Digital PDFs

AC-9120E-MC-B01

March 1978

211 pages

Original

10MB

view download

OCR Version

9.2MB

view download

Document:	CZR6IE0 RK611 UNIBUS DRIVE PART 2 AH-9122E-MC MAR 1978 bw
Order Number:	AC-9120E-MC
Revision:	B01
Pages:	211
Original Filename:	CZR6IE0__RK611__UNIBUS_DRIVE_PART_2__AH-9122E-MC__MAR_1978_bw.pdf

OCR Text

UNIBUS DRIVE PART2
CZR6IEO

AH-9122E-MC

MAR1978
wlHNE

_FICHE1OF2 MADEINUSA

UNIBUS DRIVE PART2
CZR6IEO

AH-9122E-MC

FICHE2O0F2

MAR 1978

flmmfl

MADE IN USA

BO1
780223

POP10 411

MACY1l 30A(1052)

Y3HORICZRBIESEQ

10-JAN-78

11:285

PAGE |

00010000

UMY PO
- 0 b eb s e e s9
V=W I LW OO

IV LW

UNIBUS RK6 DR PRT2

.REM %

IDENTIFICATION
PRODUCT CODE:

AC-9120€-MC

PRODUCT NAME:

CZR6IED UNIBUS RK6 DR PRT 2

DATE :

FEB 1978

MAINTAINER:

DIAGNOSTIC GROUP

AUTHOR:

GARY PAPAZIAN

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT

NOTICE AND SHOULD NOT BE CONSTRUED RS R COMMITMENT BY DIGITAL
DIGITAL EQUIPMENT CORPORATION ASSUMES
EQUIPMENT CORPORATION.
NO RESPONSIBILITY FOR ANY ERRORS THART 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 ARCCORDANCE WITH THE
TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
THE USE OR RELIARBILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS

NOT SUPPLIED BY DIGITAL.

780223

CZR6IEQ UNIBUS RKe& DR PRTR
CIRBIE.PI1]
10-JAN-78 09:43

MACY1l

30R(10S2)

COl

10-JAN-78

11:25

TABLE

ABSTRACT

e.0

REQUIREMENTS

HARDWRRE
PREL IMINARY TESTING & PROGRAMS

[ 0O NN LWWhr—
-0

PROGRAM CONSIDERRTIONS
WLWWWWwWwW
L WWW

3.0

MMM
-INNIN
NN NI
N £ WOV NN
L Wh—OWw

OF CONTENTS

1.0

e.l
2.e

PAGE 2

PDP-11 FRMILY COMPARTIBILITY
XXDP

g oo

MEMORY MANAGEMENT

PRARITY CHECK ENARBLED

BAD SECTORS
EXECUTION TIME
Fflng éSgkRT*?N
ERROR
CORRECTION 8 FRAILURE RATE ANALYSIS
DEFARULT UNIBUS ADDRESSES & VECTORS

OPERATING PROCEDURE & CONTROL FUNCTIONS
4.1
4.2
4.3
4.4
4.5
4.6
4.7
5.0

DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION
5.1
5.2

6.0

PROGRAM LORDING
STARTING LOCRTIONS
CONSOLE SWITCH REGISTERS
SOFTNRRE SHITCH REGISTER
T DIALOG
RAM EXAM LE
HRLTING THE PROGRAM

GENERAL
TEST DESCRIPTIONS

ERROR REPORTING

6.1
6.2

ERROR INTERPRETRTION
ERROR PRINTOUT EXAMPLE

SEG 0002

CZREIEQ UNIBUS RKE DR PRT2

LLLLL L E£WWWWLWILWIWWLELNNMNNINN
NI NINYOOVO
S 21—NN
e e bLW~
0 0 - OO
G OO0
0O OO0
0 Q\D\D&%M\D
LWN—OWO NN LW
LWV
OO
N
LW
N LW~ DO

$e Pt Pt et Bt

s Pt Pt Bt Bt Dt P

Dot Pt Bt P

Bt Pt Pt

s ot Pt P

e P

s Pt Pt (et Dt Pt Pt Pt Pt PPt
Pt Pt PP
s s st

CZRBIE.PLI

10-JAN-78 09:43

MARCY11 30A(10S2)
1.0

10-JAN-78

11:25

0Ol

PAGE 3

SEQ 3003

ABSTRACT

TH%S PR?GRQH PEPF?RHS PART 2 OF THE DRIVE DIAGNOSTICS TO
1S CAPABLE OF PERFORMING RERD AND WRITE
I NSURE

T BRMPe AN POLE AR L LR 1 FTnG"BRE"RERDTNG, "m0 ALL

RoRaTOZREE

OFFSET SPERQTSONS flhs PERFO EE
TECTION LOGIC

ERRO

CHECKED BY SOFTWARE ERROR FORCING.

AFTER A SUCCESSFUL RUN
(WITH NO ERRORS) OF PART 2,
IS RERDY FOR PART 3 OF THE DRIVE DIRGNOSTICS.

THE DRIVE

é? EE? R HIERARCHY APPROACH STARTING WITH
S TING
TESTS RND PROCEEDING THRU DYNAMIC TESTING.
C
BR5I
TESTS HILL BE KEPT SMALL TO FACILITATE SCOPING LOOPS.

THE

PROGRAM WILL EST RKO6 8 RKO7 WITHOUT NEED OF
ég
ATOR

INTERVENTION

%
ON
3345
%% RRCAUTT

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

2.0

REQUIREMENTS

2.1

HARDWARRE

THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DISK DIAGNOSTIC:
POP-11

CONSOLE TELETYPE
16K MEMORY
KWill-L OR KWll-P CLOCK
RKO6 UNIBUS CONTROLLER (RKb11l)
1 TO 8 RKO6/RKO7 DRIVES

NOTES:

$r
NEITHER KWll-L

OR P CLOCK IS USED,

ESTS WILL BE BY nssso

ALL TIMING

A MESSAGE At THE

BEGINNING OF THE TESTS WILL CONFIRM THIS.

A 22 SECTOR FORMATTED PACK IS REQ’D,

BUT WILL

BE A RESULT OF RUNNING DRIVE DIAGNOSTOC PART |
(SEE BELOW).

2.2

PRELIMINRRY TESTING 3 PROGRAMS

THE RKB11 DISKLESS CONTROLLER DIAGNOSTICS (ALL PARTS) SHOULD
FIRST RUN SUCCESSFULLY FOLLOWED BY THE RKO& DRIVE DIAGNOSTIC- PART 1
3.0

PROGRAM CONSIDERATIONS

3.1

10-JAN-78

EOL

11:25

PAGE 4

SEQG 0004

PDP-11 FRAMILY CCMPATIBILITY
THIS PROGRAM CAN BE USED BY THE PDP-11,04,0S,10,20,

34,35,40,45,50,

8 70.

IT IS COMPATRBLE WITH THE LSI-11 INSTRUCTION SET AND CAN TEST

THE RKO& ONLY IF THE DRIVE CONTROLLER FOR THE LSI-11 IS
DESIGNED TO BE DIRGNOSTICALLY COMPARTABLE WITH THE RKbI1l.

3.2

XXDP

Egé%ESROGRRH CAN BE CHRINED BY XXDP 8 WILL NOT OVERLAY THE
CHAIN MODE OPERARTION
MY

10-JAN-78 09:43

MACY1l 30A(10S2)

000D DNWD DD
DO DDIMODDMDDEOMEOMD NN NNNNNNNNOCCOCCT
T ONNNININNININLINL L £
N—ODONCNL£WN—OWVONCVNLWL—ODVD NN LWN—OOBONTNLWNU-ODO NN LW~-0OWVDN

IBUS RKE& DR _PRTe

°
-C
Ll4

NN
Pl]
oo
o
MM

THE

(MONITOR)

INPUT DIALOGUE

IS BYPASSED,

THE BUSS RDDRESS & CONTROLLER INTERRUPT VECTOR 1S

DEFAULTED.

ORIVE_O WiLL NOT BE TESTED.

ALL_OTHER DRIVES IN THE 'DRIVE PRESENT' CONDITION WILL

NOTE:

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

HEARDS MANUALLY LORDED
CORRECT PORT SELECTED
WRITE LOCK DISABLED
DORIVE RERDY INDICATOR ON

DUMP MODE OPERARTION (MANUARL)

INPUT DIALOGUE IF SIARTED 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 <CR> WHEN DONE.

3.3

ACT/RPT

THIS PROGRAM IS ACT COMPATIBLE.

_IT IS APT

COMPARTRBLE TO THE EXTENT THAT APT HOOKS WILL BE IN THE
PROGRAM 3 WILL WORK THRU THE 'UPTON INTERFACE".
FOR OTHER INTERFACES.

1.E. LOAD & DUMP MODE.

AUTOMRTIC MODE

APT MAY ONLY LOARD 8 START THE PROGRAM.

(MONITOR)

THE INPUT DIALOGUE IS BYPASSED.

THE BUSS RDDRESS & CONTROLLER INTERRUPT VECTOR ]S

CZR6IED UNIBUS RK6 DR PRT2

CZRBIE.P1I

10-JAN-78 09:43

MACY11l 30A(1052)

203

204

ggg
sgg
209
210
ell
;1§

11:25

PAGE S

SEQ J00S

DEFAULTED.

ALL DRIVES IN THE 'ORIVE PRESENT’ CONCITION WILL BE

TESTED.

NOTE:

FOl

10-JAN-78

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

KERADS MANUALLY LORDED
CORRECT PORT SELECTED
WRITE LOCK DISABLED
DRIVE RERDY INDICATOR ON

214

DUMP MODE (MANUAL):

gig

21?7

Sig

3.3.1

INPUT DIALOGUE IF STRRTED FROM 220.

APT ETABLE DEFINITIONS

220
gsé

THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIRONMENTAL
TRBLE C(ETABLE) ENTRIES.
VIA RUNNING THE APT UTILITY PROGRAM “TSP*:

223
224

227
228
229

-0 IF STANDALONE MODE

gsg

ENVIRONHENT MODE: BYTE
BIT
1 ETABLE DOES SIZING
= 0 PROGRAM DOES SIZING

BIT &6 = |

230

231
232
233
ggg
236
237

sortunas ENVIRONMENT:
IFAPT SCRIPT MODE

=0
BIT & = 1
= 0
BITS 4-0
3.

238

SPOOL nsssncss TO APT IF SCRIPT MODE

DON'T SPOOL TO
APT
SUPPRESS CONSOLE OUTPUT
ALLOW CONSOLE OUTPUT
NOT USED

SWITCH 1 (SOFTWARE SH%TCH REGISTER)
IF ENVIRONMENT MODE BIT 7 (SIZING BIT) 1S 3ET TO 1,

SWITCH REGISTE

239

SWITCH REGISTER

THE SOFTWARE

USED, INSTEARD OF THE Hnnouhne CONSOLE

240
241

REGRRDLESS OF WHICH ONE IS USED
L BITS
DEFINED
IN
SECTIONS
4.3
8
4.4
(SWITCH
REGISTER
OPTIONS)
MAY USED
WHEN RUNNING IN STANDALONE MODF
.

533

BE SET TO O.

245
246

247

IN APTY SCRIPT MODE, HOWEVER, BIT 14 (LOOP ON TEST) MUST ALWAYS

SWITCH 2 (USER SWITCH REGISTER)

NOT USED

248
Sgg

CPU OPTIONS:
NOT USED

2sl

MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES

254

257

Sgg

ggg
258

NOT USED

INTERRUPT VECTOR 1:

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

USED WHEN ENVIRONMENT MODE BIT ?=!.

DEFAULT = 210
DEFAULT =S

CZREIEC UNIBUS RK& DR PRT2

CZR&IE.P11

10-JAN-78 09:43

MACY11l 30R(10S2)

60
eel

ebe

263
Sgg

10-JAN-78

GOl

11:25

PAGE b

INTERRUPT VECTOR 2:
NOT USED

10. BUS PRIORITY 2:
NOT USED

)

2bb

11. BASE RDDRESS:

269

12.

USED WHEN ENVIRONMENT MODE BIT 7 = 1

Sgg
270
271

Szg

DEVICE MAP:

USED WHEN ENVIRONMENT MODE BIT 7 = 1. ERCH BIT SET TO
1 IN BITS 0-7 WILL SELECT THE CORRESPONDING DRIVE TO BE

27y
S;E

13. CONTROLLER DESCRIPTOR WORDS:
NOT USED

277

14. DEVICE DESCRIPTOR ~ODES (IN WORDS):

2’8
ggé

OEFAULT = 177440

TESTED. BITS 8-1S5 ARE NOT USED.

279
280

SEQ 0008

NOT USED

3.4

DURL RCCESS

83
284
Sgg

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.

287

DUAL ACCESS TESTS WILL BE INCORPORATED IN R SEPARATE PROGRAM

288

289
230

ggé

gga
295

gg%
298
Sgg
301

ggg

AT R LATER DRATE.

3.5

3.6

MEMORY MANAGEMENT NOT USED
PARITY CHECK ENABLED

3.7

BRD SECTOR

304
308
g?g

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

THE PROGRAM WILL COMPARE DATA ERRORS WITH THE BRD SECTOR
INFORMATION CONTRINED ON CYLINDER 410, HERD 2.
PRINTOUTS

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

38%
308

MEMORY MANAGEMENT

3.8

EXECUTION TIME

gié

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

3{3

TOTAL TIME:

1 MIN,

30 SEC

U(J%UU(JUUU o
1
1
1
1
1

NL£W—-0VONIN

0 UNIBUS RK& DR PRT2

CZR6 ¢
CZR I

e
2

P11

10-JAN-78 09:43

MACY1l 30A(1052)

10-JAN-78

FRULT

3.9

HOl

11:25

PRGE 7

SEQ 0007

ISOLRTION

TO BE DETERMINED.

ERROR CORRECTION AND FAILURE RRTE ANALYSIS

THAS PRSGRRH WILL NOT DO ERROR CORRECTION OR FARILURE RATE
NALYSIS.

3.11

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

RKOE& BUSS RODRESS
CONTROLLER INTERRUPT VECTOR
gONTRgLLER PR&ORE

P-CLOCK SET BUFFER
P-CLOCK ;fl? UFFER
L-CL SK ? H ;
L-CL
NTERRUPT VECTOR
P-CLOCK INTERRUPT VECTOR
ITY Kg BTRTEE REG
TTY K
TTY PRINTER STRTUS REG
TTY PRINTER BUFFER

LOCATION

DEFAULT CONTENTS

1264
1314
lgés
1
13ee

177440
210
240

1332
1144
1146
1150
1182

104
177560
177562
177564
177566

lgsq
13¢6
1330

172540

172542
1?;244
177546
100

OPERATING PROCEDURE & CONTROL FUNCTIONS
PROGRAM LORDING

THE PROGRAM CAN BE LOADED FROM PAPER TRAPE USING STANDARD
PROCEDURE FOR ABSOLUTE LOADER TAPES; OR FROM ANY MEDIA
SUPPORTED BY XXOP.

‘

LOARD THE STARTING ADDRESS (SEE SEC 4.2).
SET SWITCH REGISTERS RS DESIRED

(SEE SEC 4.3).

SET DRIVES TO BE TESTED IN THE 'LOAD’ CONDITION 8 WITH THE
APPROPRIATE PORT SELECTED 8 WRITE LOCK DISARBLED.
DRIVES
NOT TO BE TESTED MUST HAVE BOTH PORTS DESELECTED.

CZREIEQ UNIBUS RK& DR _PRT2

CZREIE.P11

10-JAN-78 09:43

MACY1l 30AR(10S2)

371
372

NOTE:

374
37S

g;g

I01

10-JAN-78

11:25

PAGE 8

SEQ 0008

THE DRIVE WILL NOT RESPOND TO THE ’'START SFINDLE'
COMMAND IF THE RUN/STOP SWITCH IS IN THE 'STOP’
POSITION.

4.1.4

PRESS 'START’

378
379

THE PROGRAM WILL IDENTIFY ITSELF AND WILL BEGIN A
DIALOGUE WITH THE OPERATOR TO DETERMINE DRIVES TO BE TESTED

382
383
384
385
386

THE PROGRAM BEGINS TESTING ONLY THOSE DRIVES SPECIFIED BY
THE INPUT DIARLOGUE.
IF
A SPECIFIED DRIVE CANNOT BE FOUND BY
THE PROGRAM IT WILL BE FLAGGED AS AN ERROR THAT THE DRIVE
WRS NOT AVAILABLE.
THEN BEGINNING WITH THE LOWEST NUMERICAL
DRIVE AND PROCEEDING IN SEQUENTIAL ORDER, ALL VALID DRIVES

388
389
390

PERFORMED ON EACH DRIVE BEFORE MOVING TO THE NEXT DRIVE
IN SEQUENCE.
THE DRIVE TO BE TESTED WILL BE TYPED AT THE
BEGINNING OF EACH PRSS.
“END OF PASSTM WILL BE TYPED AFTER

gg?

(SEE SEC 4.5).

387

391
39
393
294
39S

ggg
398
399

WILL BE TESTED.

ONE PARSS THROUGH THE TEST SEQUENCE WILL BE

TESTING ALL DRIVES.

4.2

400
:8é

STARTING LOCATIONS
LOCRTION 200 - STRRTING ADDRESS TO DEFAULT THE BUSS
ADDRESS & THE CONTROLLER INTERRUPT VECTOR
8 TEST ALL DRIVES IN THE
CONDITION.

:83

NOTE:

THE DRIVE PRESENT CONDITION IS:

40S

HERDS MANUALLY LOADED

408

DRIVE RERDY

406
407

B.
C.

409
410

411

IST PASS.

417

IMPORTANT:

420

ALSO,

:}g
:gé
424

426

INDICRTOR ON

VIA THE INPUT DIRLOGUE.
BUSS ADDRESS &
CONT. INTERRUPT VECTOR INPUTTED ONLY ON

d1E

425

CORRECT PORT SELECTED
WRITE LOCK DISRBLED

LOCATION 220 - srnnrrnc ADDRESS TO INPUT TESTING PARAMETERS

412
413
419

423

°"DRIVE PRESENT’

FOR VARIATIONS OF THE ABOVE

sse xxop ACT/APT

CONSIDERATIONS IN SECTIONS 3.2

THE PROGRAM WILL QUTOMQTICRLLY DETERMINE WHETHER

THE ORIVE IS AN RKOG OR RKO?

4.3

SWITCH REGISTER

THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS.

CZREIEO UNIBUS RK& DR_PRT2
CZR6IE.PI11

10-JAN-78 09:43

MACY11 30A(10S2)

427

10-JAN-78

4e8

SWITCH

431
432
433
434
43S
436
437

15
14
13
1e
11
10
9

V%49
430

::é

11:25

PAGE 9

SEQ 0009

FUNCTION

emesee
|
esece-o-

:gg
440

JO1

4.3.1

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

LOOP ON TEST IN SW«07:00>

SW¢1S>

443

THE PROGRAM HALTS ON ENCOUNTERING AN ERROR,

::g

PRESSING "CONTINUETM CONTINUES NORMAL OPERATION OF THE PROGRAM.

THE ERROR MESSAGE AND PERTINENT INFORMATION.

44y

447

::g

4.3.2

450
451

:gg

WITH SWI1S.

4.3.3

457
458
:gg

WITH SWITCH <13> SET, SWITCH <15> SHOULD NOT BE SET.
4.3.4

464

:gg

BEEN DETECTED.

4.3.5

470
471

:;g

(USUALLY 50, S IN SOME CASES). SETTING THIS SWITCH INHIBITS
ITERATIONS, SO THAT QUICK PRSSES CAN BE MADE.

4.3.6

SW<«10>

RINGS A BELL ON ERROR.

:;g
480
481

SWdID

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

472
:;3
475

SW¢l2»

THIS SWITCH BYPASSES A GIVEN DRIVE RFTER 20 ERRORS HAVE

465

466
i Y4

SWdAD

THIS SWITCH INHIBITS ALL ERROR MESSAGES.
NORMALLY USED WHEN
LOOPING ON TEST (SW14) OR_LOOPING ON ERROR (SW9).

:gg
461

SWd{1¥

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

4s2

453
454

RFTER TYPING OUT

4.3.7

SW<«O®

USEFUL WHEN ERROR TYPEOUT IS INHIBITED.

KOl

CZRBIE 0 UNIBUS RK& DR PRT2

CZReIE .Pl1

10-JAN-78 09:43

MACY1l 30A(10Se)

10-JAN-78

11:25

PAGE 10

SEQ 0010

THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP FOR
ERRORS.
IF THE PROGRAM DETECTS AN ERROR, IT WILL LOOP BRCK
TO THE BEGINNING OF TEST.

4.3.8

SW<C8»

THIS SWITCH IS USED TO SELECT A PARTICULAR TEST (RS PER
SW<00-7>) FOR EXECUTION AND SUBSEQUENT LOOPING.
THUS IF
TEST 15 IS TO BE SELECTED THE SWITCH SETTING WOULD BE

IT SHOULD BE NOTED THRT BEFORE SELECTING 8 LOOPING TEST 15,
00041S.
ALL THE PREVIOUS TESTS (1-14) WILL BE EXECUTED.
*SOF TWRARE’

i
L) $=e 0a =t Ps ot Pt s s e e ()
owoNOCrNLWL—0OW

so8

sel

SWITCH REGISTER

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR
(I.LE. AN 11/04 OR 11/34) THE PROGRAM WILL DETERMINE THART
THE HARDWARE SWITCH REGISTER IS_NOT PRESENT AND WILL USE
A 'SOFTWARE’ SWITCH REGISTER.
THE 'SOFTWARE' SWITCH
REGISTER IS LOCATED AT LOCATION 176 (8).
THE SETTINGS
OF THE ’SOF TWARE' SNITCHES RRE CONTROLLED THROUGH A
WHICH IS CALLED BY TYPING R ’CONTROL G’.
KEYBOARD ROUTINE
THE PROGRAM WILL RECOGNIZE THE *CONTROL G’ AT _ANY TIME
A HIGHER PRIORITY PROCESSING
EXCEPT WHEN THE PROGRAM IS AT
AN RKO6 INTERRUPTY.
THE ’SOFTWARE' SWITCH VALUES ARE

ENTERED RS AN OCTAL NUMBER IN RESPONSE TO THE PROMPT
FROM THE SWITCH ENTRY ROUTINE:
SWR = NNNNNN

NEW =

EACH TIME SWITCH SETTING RRE ENTERED,

THE ENTIRE SWITCH

REGISTER IMAGE MUST BE ENTERED. LERDING ZEROS ARE NOT
*RUBQUT’ AND ’CONTROL U’ FUNCTIONS MAY BE
QUIRED.
USED TO0 CORRECT TYPING ERRORS DURING SWITCH ENTRY.
ON PROCESSORS WITH HARDWARE SWITCH REGISTERS,

THE

"SOF TWARE® SWITCH REGISTER MAY BEUSED, IF YHE PROGRAM
FINDS ALL 16 SWITCHES IN THE 'UP’ POSITION ALL SWITCH
REGISTER REFERENCES WILL BE TO THE ’SOFTWARE’ REGISTER
AND THE PROCEDURES DESCRIBED RBOVE MUST BE FOLLOWED.
INPUT DIALOGUE

THE DIALOGUE WILL BE DONE INTERACTIVELY.
_THE PROGRAM WILL
THE PARAMETER MAY
REQUEST R PRRAMETER BY CONSOLE TYPEQUT.
THEN 3E ENTSRED AS SPECIFIED BELOW OR ALLOWED TO DEFRULT
BY A CARRRIAGE RETURN.
UNRECOGNIZED OR ILLEGAL RESPONSES WILL
THE PROPER RESPONSE MRY
BE ECHOED BACK FOLLOWED BY "?".
THEN BE ENTERED.

IMPORTANT:

FOR VARIATIONS OF THE ABOVE

SEE XXDP ACT/APT

CONSIDERATIONS IN SECTIONS 3.2

CZREIEQ UNIBUS RK& DR PRTZ

CZRBIE.P11

gag

10-JAN-78 09:43

MARCY11 30R(1052)
4.5.1

g:é

10-JAN-78

LO1

11:25

PRGE 11

SEG 3011

DRIVE SELECTION
THE REQUEST WILL BE:

g:a

DRIVES TO BE TESTED:

EH
S:?

THE _DEFARULT RESPONSE IS CRRR QGE RETURN TO TEST ALL DRIVES
IN THE °DRIVE PRESENT’ CONDITION

£48

THE OPERATOR CAN ALSO TYPE IN THE SPECIFIC DRIVE NUMBERS

gg?

RETURN.

549

TO _BE TESTED, SEPARATED BY COMMAS & TERMINATED BY A CARRIRGE

ggg

E.G.

554

IMPORTANT:

EEE
S57
ggg

4.5.2

gg?

FOR _VARIATIONS OF THE ABOVE

SEE XXDP

CONSIDERATIONS IN SECTIONS 3.2 & 3.3.

ACT/APT

BUS RDDRESS

TYPE IN BUSS RODRESS IF NOT 177440

ggg
566

1,2,4,b6

THE REQUEST WILL BE:

ggg

DRIVES TO BE TESTED:

THE DEFRULT IS A CARRIAGE RETURN
4.5.3

Egg

CONTROLLER INTERRUPT VECTOR
THE REQUEST WILL BE:

EZé

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210

gza

THE DEFRULT IS A CARRIAGE RETURN.

57S

g;g

s78

ggg

4.5.4

EXAMPLE OF PROGRAM DIALOGUE

THE EXAMPLE SHOWN IS FOR A PROGRAM STARTED AT ADDRESS 220.

ALL OPERATOR RESPONSES ARE UNDERLINED.

581

UNIBUS RKO& DRIVE DIRGNOSTIC

gga

CZReIEQ

ggg

DRIVES TO BE TESTED:

582

587

ggg
€30

PART 2

1,3<¢CR>

TYPE IN BUSS ADDRESS IF NOT 177440 <CR>

%gé

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR>

593
E9y

WILL TEST DRIVES:

CZR6IEO UNIBUS RK& DR PRT2
10-JAN-78 09:43
CZRBIE.PI11

MARCY11

30A(10S2)

MO1

10-JAN-78

11:25

PAGE 12

SEQ Q012

3
ORIVE 1

(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

DEFAULT ADDRESS (200) & WITH 2 DRIVES ON THE LINE.
UNIBUS RKO& DRIVE DIAGNOSTIC
PART 2
CZRGIED

oooooococooo
o
L) 0= bt 90 Pt Pt Pos Bt Pt Pt P
OVONCN LWV-O

609

gILL TEST DRIVES:
1

DRIVE O

DRIVE SERIAL NO. RAA
CARTRIDGE SERIAL NO. BBB
DRIVE

DRIVE SERIAL NO. CCC
CARTRIDGE SERIAL NO. DDD
END PRSS

WILL TEST DRIVES:

DRIVE O

DRIVE

END PRSS & 2
(ETC)

THE ABOVE ASSUMES NO ERRORS DETECTED.
THE NUMBER OF PRSSES IS DETERMINED BY ACT/APT/XXDP

IMPORTANT:
4.7

FOR VARIATIONS OF THE ABOVE

SEE XXDP

CONSIDERATIONS IN SECTIONS 3.2 & 3.3.

ACT/APT

HALTING THE PROGRAM

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

10-JAN-78

MACY11l 30A(1052)

STATE;

1E:

NO1

11:25

PRGE 13

SEQ 0013

HEADS UNLORDED OR INVALID FORMAT.

TO PROPERLY HALT,

TYPE CONTROL-C

(tC)

ON THE CONSOLE.

IF HEADS RRE LORDED 8 FORMRARTTING IS VALID,

W—

THE PROGRAM WILL:
ECHO

TYPE “CPU HALTED"

HALT THE PROGRAM

—H

F_HERDS ARE NOT LORDED AND/OR FORMATTING
HE PROGRAM WILL:

nLE

?TIBUS RK& DR _PRTe
10-JAN-78 09:43

ECHO tC
TYPE 'HALT PENDING,

IS INVALID,

PLEASE WRIT’

DO THE TEST(S) THAY LOADS HEADS AND/OR FORMATS
THE INVALID CYLINDERS
TYPE 'CPU HALTED’
HALT THE PROGRAM

NOTES:

THE ARBOVE EXAMPLE IS FOR THE PROGRAM RUNNING IN DUMP
MODE (MANUAL).
IF THE PROGRAM IS RUNNING IN CHAIN/AUTO
MODE VIR XXDP,RCT,APT;
IT WILL FIRST LORD HEADS

AND/OR FORMAT' CORRECTLY,
1IF REQ'D, THEN IT WILL
ggEEESNI;o THE MONITUR WHERE THE NEXT PROGRAM CAN BE
THE TYPEOUTS WILL BE “RABORT PENDING - PLEASE WRIT"
&
"PROGRAM RBORTINGTM

OPERATING THE ’'CONTINUE’ SWITCH
ON THE CPU CONSOLE WILL RETURN THE
PROGRRM TO TEST 1 WHERE TESTING WILL BEGIN WITH THE 1’ST DRIVE AGRIN.

5.0

DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION

5.1

GENERAL
A.

WRITE TESTS

THESE TESTS CHECK THE ABILITY OF THE DRIVE TO WRITE & RERD
WORSE CRSE PARTTERNS;
PERFORM ALL OFFSETS & PERFORM ALL
SPIRAL WRITING.
B.

SERVO 8 SPINDLE TIMING TESTS
THESE TESTS CHECK & TYPE HEAD LOAD,

UNLOAD & INDEX TIMING,

AL30 MIN, MAX, AND AVERAGE SEEK TIMES, AND MAX VELCCITY
OF THE +7..0S ARE MERSURED & TYPED.

CZREIEOD UNIBUS R & DR_PRT2

CZRGIE.PI11
—O0ONONLWN—OOD

NN NNNNNNNIYNNNY

70?7

722
;ga

10-JAN-78 09:43

MACY1l

30A(10S2)

5.2

10-JAN-78

1(1:25

PRAGE

SEQ 0014

TEST DESCRIPTIONS
e 322222 SIS

BARSIC CONTROLLER TESTS,

TEST

RG22
YL )

SIZINu & SETUP

e T T

T T

It YY)

REFERENCE ALL CONTROLLER REGISTERS
THIS TEST VERIFIES THART ALL

THE CONTROLLER REGISTERS

CAN BE ACC ESSED
THE INRBILITY
TO BE RCCESSED WIL
RESULT IN
A TIMEQUT TRAP WITH
AN ERROR MESSAGE.
ANY
ERROR IN THIS TEST WILL RESULT IN ABORTING RLL OTHER
TESTS AND JUMPING TO
TEST 2

SIZE

'END OF PRSS’

THE BUSS

7es
726

THIS TEST IS ENTERED ONLY IF °'DRIVE SELECTION’ 1S DEFAULTED
EITHER BY RUNNING IN THE AUTO MODE OR A 200 START IN THE

7e8
729

EVERY DRIVE FROM O THRU 7 IS ADDIESSED.
CONTROLLER ERROR (CERR) IS EXAMINED AND

727

MANURL

MODE.

730

DRIVE WILL BE TESTED RS AN RKO6.

732

MDS,

731

UFE OR NED BEING SET:

DICATING THE OTHER PORT IS

;gg
736

THE

TESTING THAT DRIVE ONLY IF THE EFROR WAS'A RESULT OF

733
;gg

IF NOT SET,

IF SET, THE Pnockgn WILL BYPASS

IF CERR IS DUE TO DTYE,

TEST 3

739

ACCESSED.

IN-

THE oaxvs WILL BE TESTED RS

N RKO7

VERIFY OPERATOR DRIVE SELECTIONS
THIS TEST

740
741

on eora NED 8 DRA RESET

IS ENTERED ONLY

IF oaxvs SELECTION IS NOT

DEFRULTED.
EVERY DRIVE FROM
O TO 7 IS RDDRESSED &
CONTROLLER ERROR (CERR) IS Exnnxneo IF NOT SET,
THE

742

PROGRAM HILL n§sun£ THSRDRIVE 1S PRESENT RS AN RK(6.

745
746

NED 8 DFA RESET (WRONG PORT).
IF CERR IS
R RESULT OF
NED ONLY,
IT IS CHECKED ARGRINT THE INPUTTED INFOR TO

748
749

IF csnn
AN Rk0D?

743

1IF CERR
W

744

747

787

;gg

DRIVE WILL BE BYPASSED

VERIFY It WRS NOT SPECIFIED.

TEST 4

754
755
756
787

IS DUE

TO DTYE,

THE DRIVE

WILL

TESTED AS

FIND NEXT DRIVE TO BE TESTED
THIS TEST FINDS THE NEXT DRIVE PRESENT & PUTS THAT
ADDRESS IN 'DRVAD’ 8 STMPY IS SET TO CDT IF THE DRIVE
DRIVE iS AN RKO?7.
THROUGHOUT THE FOLLOWING TESTS, THE onxvs TESTED IS

;gg
760
761

THAT

ONLY IF rns sRan WAS A RESULT OF MDS OR UFE SET OR BOTH

THE DRIVE WHOSE RDDRESS

TEST S

PRINT DRIVE SERIAL

NUMBER

'DRVAD

CZREIEO UNIBUS RKE DR PRT2
CZReIE.P11
10-JAN-78 09:43

MACY11 30A(10S2)

10-JAN-78

763

;Eg
;;g

SEQ 0018

IN DECIMAL 8 IS PERFORMED ON THE 1ST PRSS ONLY

WORD 11l

TEST & SET VV WITH PACK COMMAND

;gg
771

PAGE 1S

THIS TEST READS 8 PRINTS THE DRIVE SERIAL # FROM MSG R,

;gg
Z

co2

11:25

IF v/ IS RESET, THE PACK COMMAND IS USED TO SET IT.
TEST 7

READ & SAVE BAD SECTOR INFO 8 TYPE PACK SERIAL #

774

TH;S TEET

776
777
778
779
780
781

FACTORY DURING MANF.
RLL
SECTOR INFO (BSE) WILL BE STORED
AT TH S.TIME TO HQSK FUTURE REQD HEADER OR DATR ERROR PRINTOUTS.
IF B
INFO CANNOT
Bt RERD OR IF AFTER READING THE BSE INFO
1T I
ETERMINEB THART AN }GNHENT RRTRIDGE IS USED,
R MESSAGE WILL
BE TYPED INDICATING
THA
FUTURE FORMAT AND READ-WRITE
TESTS HéL% BE BYPASSED,

;gg

THE PRCK SERIAL 8 IS TYPED IN OCTAL & FOR THE FIRST PRSS ONLY.

775

;gg
786

787
788

;gg
791

;gg

R*FiES THAT CY% S3§ (1456 FOR RKO7),

THIS RARER CONTRINS BRD SEC 0

TRACK 2 CAN BE RERD.

NFO WHICH IS WRIYTEN BY THE

THIS IS DONE SO RS NOT TO DESTROY BSE

INFO OR QN QLIGNHENT PACK BY WRITI]

33636 96 36 36 06 36 36 3 36 36 3 36 3 3636 3 2636 3 36 3 36 36 36 36 3 36 36 3 36 36 3 36 36 3¢ 36 3 30 36 3 3698 3 36 3 3 30 3 3 06 3 30 00 30 3 3 3% 3 3 3 % % %
WRITE TESTS

63 3606 3 36 36 36 36 36 36 36 36 36 36 36 36 36 2696 3 36 36 36 3 3 36 3 36 36 3 36 36 3% 3 36 36 3 08 3 36 36 36 36 3 36 3 3 3 3 3 36 3 3 30 3 3 3 2 3 2 2 2 2 2

TEST 10 BRSIC WRITE DATR TEST;

1 WORD

794
795

THIS TEST VERIFIES THE RBILITY OF THE DRIVE TO WRITE JUST ONE WORD,
ALL SECTORS ON CYL O RRE GIVEN IDENTICAL HEADERS &

788

FOR R WRITE ERROR.

796
797

800

ggé

A WRITE COMMAND IS ISSUED. READ 8 WRITE CHECK COMMANDS ARE NOT
PERFORMED. THIS TEST PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP

TEST 11 BRSIC WRITE DATA TEST; FULL SECTOR

803

804
80S

THIS TEST VERIFIES THE ABILITY OF THE DRIVE TO WRITE
A FULL SECTOR,
ALL Z2ERQOS RARE WRITTEN BY THE WRITE DRATR COMMAND
& CHECKED BY R RD Dfl A COMMAND.
A FURTHER CHECK IS PERFORMED

THE RBOVE IS REPEATED FOR AN ALL ONES PARTTERN.

806

oNCNEwWw—-0O

[tefarerataterere

00D 0D 00 (D G0 0D (D 00

BY THE WRT CHK COMMAND.

TEST 12 20 SECTOR FORMAT TEST

DATR IS WRITTEN ON A FULL TRACK IN 20 SECTOR FORMART.
MSG BO,Bl RARE CHECKED FOR ANY ERROR CONDITION.

CYLINDER, TRRCK, SECTOR O IS USED.
TEST

13 TEST OFFSET & RTC LOGIC

CZR6IEQ UNIBUS RKe DR PRT2

CZRGIE.P11

10-JAN-78 09:43

MACY1l 30A(1052)

10-JAN-78

11:25

PAGE 16

SEQ 0016

819

THE MERDS ARE FIRST OFFSET BY OFFSET LAMANDS.

*OFFSET ON’ BIT (MSG A,00) RESETS AND THE OFFSET REG

820

823
824
825
826
8a7
829

830

832
835
834
835
837

THIS TEST CHECKS THE RTC LOGIC BY VERIFYING THAT THE

BECOMES THE CYL DIFF INFO WHEN A SEEK CMD TO A

DIFFERENT CYLINDER 15 ISSUED

IT ALSO TESTS THAT DRIVE CLEAR & SEEK TO SELF WILL NOT
CLERR THE "OFFSET ON’ BIT OR THE OFFSET REG.
ALL OFFSET POSITIONS IN BOTH DIRECTIONS ARE CHECKED
TEST 14 TEST RERD DATA AT ALL HEAD OFFSET POSITIONS

ST VERJEIES
THAT THE rE
T LOGIC IS OPERATIONAL BY
g
S
VR
ETRR
TR
TOR
S
ONGERD
»886
TRER
N A F ORMING READ DATA-FROM CERTERCINE AND
MOVING OUT + ANO - OFFSET
zgsx¥$gns
UNTIL A FRILURE OCCURES. THE orrssr N0 T IonS
OFFSET

2023

ALS0_VERIFIED BY READING MSG A, STATUS 00 & 10.

838

ALL HEA

IF THERE ARE NO FRILURES AT ALL, THIS INDICATES THAT

842
843
g4

846

NOTE THAT THE OFFSET FAILURE IS NOT AN ERROR

847

849

82?

852
853

854

855
85

858

855

861
862

864

€ TESTED

AT CYL

A. HEADS DID NOT MOVE AT ALL
B. THE COMBINATION OF DISC sunrnce
ARE EXCEPTIONALLY GOOD.

HERDS. R/W AMP

BUT AN INDICATION OF SURFACE, HEAD, & R/W ELECTRONICS QUALITY ONLY
TEST 1S WRITE WITH HERDS OFFSET

THIS TEST VERIFIES THAT WHEN ATTEMPTING TO
URITE WITH HERDS OFFSET THAT THE OFFSET WILL CLEAR
& THE DRIVE WILL WRITE
INCE THE WRITE COMMAND HAS AN IMPLIED
R
HIS TESY
IS PERFORMED FOR MAX POS & NEG SErsETS ONLY
TEST 16 TEST CURRENT CROSS-OVER CYL INDERS

THIS TEST VERIFIES THAT THE DRIVE CAN WRITE & READ OFF
ENT CHANGE CYLINDERS
X 8 Y IN THE FOLLOWING WAY:

X T CYLINDER Y
SPIRAL WRITING IS PERFORMED FROM CYLINOER

WITH
A DATA PATTERN FILLING THE ENTIRE 2 CYLINDERS.

867
868

o WRITE CHECK IS THEN PREFORMED TO VERIFY DATA WAS PROPERLY WRITTEN.
THIS TEST IS PERFORMED FOR ALL 3 HERDS

870

CYLINDER X:

127

191

255

319

383

RKO6

873
874

CYLINDER X:
CYLINDER Y:

127 255
108 956

383
384

511
6l2

639
640

67
~68

RKO7?
RKO7?

871

CYLINDER Y:

128

192

256

320

384

RKOb

CZR6IED UNIBUS RKE DR PRT2

CZR6IE.PI1

10-JAN-78 09:43

MACY1l 30A(1052)

10-7AN-78

875

g;g

EQ2

11:25

PRGE 17

SEQ 0017

THE ABOVE CYL NUMBERS RRE IN DECIMAL.

878

SSB

TEST

17 TEST HERD SWITCHING TIME

Sgé

TESTS THE ABILITY TO SWITCH HEADS IN LESS THEN 10MS WHEN HERDS SPIRAL.

883
884
885
886
887

1. SECTOR 23(8) IS FIRST LOCRTED AND A WRITE DATA COMMAND OF 512 WORDS
0 SECTOR 25(8) IS ISSUED.
2. THE PROGRAM NOW KNOWS THAT THE DRIVE WILL NOT HAVE TO TRAVEL
A FULL REVOLUTION BEFORE FINDING secron 25(8).
3. SINCE EACH sscron TAKES APPROX.
1.2MS, THE TIME BETWEEN

ggé

THE ABOVE IS REPEATED FOR HERD SWITCHING BETWEEN 1 TO 2

gga

THIS TEST 1S BYPASSED IF NEITHER L OR P CLOCK IS PRESENT

888
ggg

THE START OF T{E WRITE COMMAND (FROH SECTOR 25(8), HEADO
SECTOR
O, HEAD 1) AND CONTROLLER RERDY SHOULD BE APPROX shs

895

839

TEST 20 DRIVE OFF TRACK TEST

838

THIS TESY cuscxs FOR SERVO OSCILLATIONS DURING SETTLING TIME BEYOND

901

INITIALLY,

903
304

A FULL SECTOR WRITE connnno IS ISSUED BY R SINGLE CYL SEEK FROM O TO
AS Henocns ARE IDENTICAL,
THE NEXT SECTOk TO COME UNDER THE

306
ggg

308
910
g{é

IN THIS MANNER OSCILLATING SEEKS ARE PERFORMED BETWEEN ALL MAJOR CYLINDE
100 OSCILLATIONS ARE PERFORMED AT EACH MAJOR CYLINDER
BEFORE DOING THE NEXT CYLINDER

ggg

THE ALLOTED 3MS

902

30s

913

914
915

920

ggé

HEADS WILL IMMEDIATELY BE WRITTEN

IF THERE IS OSCILLARTION senseo BY READING THE TRIBITS,
DRIVE OFF TRACK ERROR WILL SET

ANY TEST THAT MODIFIES STANDARD FORMATTING IS FOLLOWED BY A
"CLEAN UP’ TEST 10 PUT THOSE CYLINDERS BACK TO STANDARD

gig
gig

EVERY ch'nosn IS FORMATTED WITH IDENTICAL HERDERS

(UNIQUE TO ERCH CYLINDER

FORMAT.
6.0

ERROR REPORTING

6.1

ERROR INTERPRETARTION

923

WHENEVER AN ERROR MESSAGE IS PRINTED OUT,

925

MSC R(00).

ggg

ERROR.

959
330

EVERY ERROR MESSAGE CONTAINS A PC.
THIS PC INDICRTES THE
POSITION IN PROGRAM JHERE THE ERROR CALL IS LOCATED.
THE

324

926

ALL REGISTERS

AND OTHER DARTA PERTAINING TO THE ERROR ARE ALSO GIVEN.
MSG B(Ol),

RKER,

RKBA...ETC,

INDICATE THE

CONTENTS OF THE CORRESPONDING REGISTERS AT THE TIME OF

CZREIEQ UNIBUS RKE DR _PRTe

CZRBIE.PLIL

10-JAN-78 09:43

10-JAN-78

MRCY1l 30R(10S2)

FO2

11:25

SEQ 0018

PAGE 18

931

ERROR MESSAGE,

933
Q34

PC IN THE PROGRAM LISTING, WHERE HE WILL FIND MORE INFORMRTION
ABOUT THE ERROR.
IN MANY INSTANCES, A SINGLE FAULT WILL
GIVE RISE TO MORE THAN ONE ERROR REPORT. R LITTLE DELIBERATION
AND CRREFUL EXRMINATION OF THE DATR GIVEN WILL BE CERTAINLY
VERY HELPFUL IN PINPOINTING THE FAULT.
A BRIEF EXPLANRTION
OF WHAT IS BEING CHECKED IN THE TEST IS GIVEN AT THE
BEGINNING OF EVERY TEST. ALL THE NUMBERS GIVEN WITH CRROR

932

BECAUSE OF PRACTICAL CONSIDERATIONS IS MADE

SHORT AND MEANINGFUL.

935S

936
937
938
939
g:?

THE USER IS RDVISED TO LOOK UP THE

MESSAGES RARE IN OCTAL.

g:g

NOTE

NO ERROR LOGGING OR OPERATION HAISTORY IS PROVIDED.

g:g
46

g:g
49

ERROR PRINTOUT EXRMPLES:

950

EXAMPLE

953

MESSAGE RO_ERROR

956
957
958

TEST NO.
PC
0000i4_
016530
EXTECT

9s1
952

ggg

959
360
961

AFTER STRART SPINOLE CMD 8 FWD SET

030144

100000

RCTUARL

013704

000001

962
363

140144
100000
101744 000001
RKCS1
RKCS2
RKRSOF RKER
RKDS

366
ggg

THE RBOVE EXRHPEE SHOWS EXPECTED & RCTURL DATA FOR
MESSAGE REGISTERS RO, BO, ARl & Bl.

969

MESSAGES R2,

974

HEAD & SECTOR INFORMATION IS A VARIABLE PARAMETER OF THE

ggg

970
972
973
974

97¢

376
977

978

ggg
981
982

383

ggg

040200

000100

010000

000000

RKDC

000000

B2 8 B3 WILL BE TYPED QUT ONLY RS REQUIRED IF

THE CYLINDER DIFFERENCE/OFFSET, CYLINDER RDDRESS 3
TEST.

EXAMPLE #2:

NO ATTN IN RKASOF

AFTER UNLOARD COMMAND
TEST NO.
PC
000003 _ 014330

RKMR2

000l44

RKMR3

100000

RKER

000000

RKDS

100101

RKCS1

0002Ce

RkCS2

000104

RKRSOF

0000G0

CZREIED UNIBUS RKE DR_PRTZ

CZRBIE.PLI
987
988

989

10-JAN-78 09:43

MACY11 30A(10S2)

10-JAN-78

Go2

11:25

PRGE 19

[ END OF DOCUMENT 1]

SEd 4019

CZR6IED UNIBUS RKE DR PRT2
CZR&IE.P11
10-JAN-78 (09:43

MRCY1l

10-JAN-78

30A(10S2)

HO2

11:25

PRGE 20

SEQ 0020

cERR PGH R V 832 LE

"NLIST
.LIST

.ENRBL

QBS,QHQ

; DEFINE SYSMAC MACROS
$SUR=

167400
1

.TITLE
CZRBIEO UNIBUS g;& DR PRTZ
é975
PYRIGHT (

)
GITRL EQU PM
lMRYNRRD MRSS. 017S4

!PROGRRM BY GARY PRPAZIAN
}THIS PROGRAM WAS ASSEMBLED USING THE PDP- 11 MRINDEC SYSMARC
iPQCKRGE (MRINDEC-11-DZQRC-C3), JAN 18, 1977

3
8
8
8
&
&
LS 2

s Wl WEBews

W W W W

.SBTTL

OPERATIONAL SWITCH SETTINGS
SWITCH
HALT ON ERROR
LOOP ON TEST

INHIBIT ERROR TYPEOQUTS

}VE RFTSR 20 ERRORS
RBORT
INHIBI
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR<¢7:0>

SUMMARY OF STARTING LOCRTIONS

8
8
&
L S 8

et BrwI W

me et

SBTTL

-t

= O0ONCIN L WO
DO NN LW DN LWN—0O Do~

o000
0000000000000
:J:wwuwuwwuwwmmmmmmmmmm»—»—»—»—r—»—»»—-»—-—8
00

&
-]

$TN=

DEFAULT PQRQHETERE
DEFAULT PARAMETERS
DEFRAULT PARAMETERS
INPUT PARAMETERS
INPUT PARAMETERS 8
INPUT PRRAMETERS 8
0oDT!1

8 BYPRASS WRITE TESTS
8 BYPRSS TIMING TEST
BYPASS WRITE TESTS
BYPRSS TIMING TESTS

UNIBUS RK& DR_PRTZ
11
10-JAN-78 09:43

MACY1l 30A(10S2)

BASIC DEFINITIONS

.SBTTL
oo1100

10-JAN-78

102

11:25

SEQ 002!

PAGE 21

BRSIC DEFINITIONS

-!INITIR&ISBDRESS OF THE STACK POINTER #%x

&TACK=

"EQUIV
.EQUIV

EMT,ERROR
IOT.SCOPE

1100 #x»

;;BASIC DEFINITION OF ERROR CALL
; ;BRSIC DEFINITION OF SCOPE CALL

-lQISCEL%QNEOUS DEFINITI ONS

LF=
CR=
CRLF=
PS=

177570

DODISP=

000000

RO=

12
S
200
1772776

177570

; ;CODE FOR HORIZONTAL TRB
;;CODE FOR LINE FEED

; ;CODE FOR CARRIAGE RETURN
; ;CODE _FOR CARRIAGE RETURN-LINE FEED
; ; PROCESSOR STATUS WORD

;;STACK LIMIT REGISTER
; ; PROGRAM INTERRUPT REQUEST REGISTER
; s HARDWARE SWITCH REGISTER
; ; HARDWARE DISPLAY REGISTER

. *GENERAL PURPOSE REGISTER DEFINITIONS

;s GENERAL REGISTER
REGISTER
GISTER
REGISTER
REGISTER
REGISTER
REGISTER
REGISTER

Rl=
Re=
R3=
R4=
RS=
Rb=
R7=

%1
ve
%3
7Y
%5
%6
%7

! 'GENERAL
GENERAL
; s
: GENERAL
; ;GENERAL
' 'GENERAL
: 'GENERAL
; 'GENERAL

000007

PC=

; s PROGRAM COUNTER

000000
000040
000100
000140
000200
000240

PRO=

SP=

000300
000340
100000
040000
020000
010000
00400J
002000

001000
000400
000200
000100
000040
000020
0c0ocl0o
000004

: 'STACK POINTER

. ¥PRIORITY LEVEL DEFINITIONS

PR1=
PR2=
PR3=
PRY=
PRS=
PRE=
PR7=

: ;PRIORITY LEVEL O

40
100
140
200
240
300
340

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

.»*SWITCH REGISTER”

SWITCH DEFINITIONS

SwiS="

SWi%=
SWi3=
SWi2=
SWili=
SWi0=
Sw09=
SW08=
SW07=
SWoe=
SWOS=
SWo4=
SW03=
SWie=

100000

40000
20000
10000
4000
2000
1000

400
200
100
40
20
10
Y

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

|1
2
3
9
S
&
7

CZR6IEQ UNIBUS RKBE DR PRT2

CZREIE.PI1
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108

10-JAN-78 09:43
000002
000001

if?g

1111

1112

1113
1114
1115
1116
1117
1118
1119
1120
1121
1122

1123
1124
1125
1126
1127
1128
1129

100000

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

SWol=
SWe0=
JEQUIV
.EQUIV
-EQUIV
EQUIV
.EQUIV
.EQUIV
-EQUIV
JEQUIV
JEQUIV

iig;

JO&

11:25

PAGE 22

SEG 0022

2
|
SWO9, SW9
SW08,SuW8
SW07,Sw?
SWOG,SWb
SWOS,SWS
SWO4,SW4
SWO3,SW3
SuW02.5uW2
SWOI.SW!

SWOO,SWO

. ¥DATA BIT DEFINITIONS (BITOO TO BITLS)

8I1T1S=

BITi4=
BIT13=
BIT12=
BITl1I=
BIT10=
BITO9=
8IT08=
BITO?=
BITOb=
BITOS=

100000

40000
20000
10000
4000
2000
1000
400
200
100
40

BITO4=
BIT03=
BITO2=
BITO0I=
BITOO=
.EQUIV
.EQuIv

20
10
W4
2
|
BIT09,BITS
BITOB.,BITS

-EQUIV
"EQUIV
JEQUIV
.EQUIV
.EQUIvV
-EQUIV

BIT06.BITH
BITOS,BITS
BITO4.BITH
BIT03.BIT3
BIT02,BIT2
BITOIL,BITI

.EQUIV

1131
1132
1133
1134
1135
1136

10-JAN-78

BASIC DEFINITIONS

EQUIV

1130

1139

MACY11 30A(1052)

"EQUIV

BIT107,BIT7

BITOO,BITO

¥BASIC "CPU" TRAP VECTOR noonsssss

1140
1141

000004
000010

ERRVEC= 4
RESVEC= 10

ME OUT AND OTHER ERRORS
,,RESERVED AND ILLEGAL INSTRI

1143
1144
1145
1146

000014
000014
000020
000024

TRTVEC= 14
BPTVEC= 1M
I0TVEC= 20
PWRVEC= 24
EMTVEC= 3C
TRAPVEC=34
TKVEC=
60
TPVEC= 64
PIRGVEC=240

: TRACE TRAP
:BREAKPOINT TRAP (BPT)
: INPUT/OUTPUT TRnP (IOT) #%SCOPEx*
.,Pousn FRIL

1142

000014

1147

000030

1149

000060

1148
1150

;igé

1183

000034
000064

0006240

TBITVEC=14

.SBTTL

PleTeogIT

TIONS

'EMULATOR TRAP (EMT) #¥ERROR*¥

,;"TRRP” TRAP

'TTY KEYBOARD VECTOR

,,TTY PRINTER VECTOR

: PROGRAM INTERRUPT REQUEST VECTOR

RKO® CONTROLLER REGISTER DEFINITION

R
-C
-2

——

ggz;;;z;zz;n;;g;;;»wmwHwnwhnwHpbpbwbwwhwnwwhubhh
JO
WMOMNNNNNNNNNYNNNoO oo
»Dmmwmmzwmwommflmmxwmwommmexwmwommwmmxwmnomgflggg
mm

SEG 0023

$SBASE=177440

CONTROL AND STATUS REGISTER 1

000000
000002

ISTER

000030
000032

b
34
36
RKECPS= 30
RKECPT= 32
.SBTTL

ONT

DRIVE STQTUS REGISTER
;ERROR
_REGISTE
*ATTENTION SUMMARY AND OFFSET REGISTER
:DESIRED CYLINDER REGISTER

;DRTA_BUFFER

*MAINTENANCE REGISTER 1
'MAINTENANCE REGISTER 2 (MESSAGE LINE A
iMAINTENANCE REGISTER 3 (MESSAGE LINE 8)
'ECC POSITION INFORMATION
:ECC PATTERN INFORMATION

CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0)
DRIVE COMMANDS

;SELECT DRIVE (GET STARTUS)

i PACK QCKNONLEDGE
DRIVE CLERR

100000

e T T

UNLORD

STQRT SPINDLE
RECQLIBRQTE

FSET
SEE

:READ_DATA

WRITE DATA
:READ _HEADER
'WRITE HEADER AND DATA

{WRITE CHECK
O

0 BIT

S BIT 17

D
O
O
0
m

INTERRUPT ENRBL E
:CONTROLLER REARD Y
;BUS ADDRESS BITY 1 b
m
[ot
[T2]

e e e L L

b b R
B
B
e
e
o
e B 2 |
et e P e e e OO OO
nrLwn—o

000001
000100
000200

MDODODODODODMDOE

R N T, TR TSN T TA TS

e e
e
Y

000031

SELDRvV=

PRCK=

WNANININY
s b e b= JUN L)

000001

Y e

4
b
0
e4

e e ey
ey ey e e
and St e
el il el

OO0

NN
00
oo
o WYy enye

KOe

10-JAN-78
11:25
PAGE 23
RKO& CONTROLLER REGISTER DEFINITION

MACY1l 30AR(1052)

IBUS RK& DR_PRT2
10-JAN-78 09:43

:CONTROLLER DRIVE ’YPE (0=RKO&, 1=RK0O7)
MEOU
iCONTROLLER TIMEOUTY
:CONTROLLER DRIVE FORMAT (0=22 SECTOR,

1=20 SECTOR)

:SERCON PARITY ERROR DETECTED BY CONThOLLER
:DRIVE INTERRUPT

;CONTROLLER ERROR

——

NN
00
oo

lele]

Pt Pt s Pt Pt s Pt Pt Pt Pt Pt e e
et Bt ot s Pt s Pt P Pract Pt ot Pt Pit Pt s Pt Pt Dot ot s et Pt Pt Pt Pt Pt s i Bt Pt Pt et Bt ot Pt Pt Pt Bt P Pt P
Dt B

0 UNIBUS RK& DR _PRTZ
P11
10-JAN-78 09:43

100000

000007

gooc1o
0090020
000040

LO2

MACY11 30A(1052)
10-JAN-78
11:25
PAGE 24
CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0)

CCLR=

BITIS

.SBTTL

CONTROL RAND STARTUS REGISTER 2 BITS

DRVMSK= 7

RLS=
BRI=
SCLR=

BIT3
BITY
BITS

000200
000400
001000
002000
004000

OR=
UFE=
MDS=
PGE =
NEM=

BIT?
BIT8
BIiIS
BITI1O
BITI1

320000
0400c0

UPE=
WCE=

BIT13
EiTlH

000100

010000

100000

IR=

NED=
DLT=

SBTTL

000001

0000Ge

00co0oY
000010

000040

00c100
000200

000400
001000
002000
004000
010000
020000
040000
100000

ILF=
SKI=

BIT6

BITle
T1S

; CONTROLLER CLERR
(RKCSg2:10)

;MASK FOR DRIVE SELECTION CODE

;DESELECT OR RELEASE DRIVE IN BITS 0-2
:BUS_ADDRESS INCREMENT INHIBIT
SUBSYSTEHCLERR CONTROLLER AND ALL DRIVES
; INP
OUTPUT RERDY
{UNIT FIE 8
IMULTIPL
RIVE SELECT
: PROGRAMMING ERROR
: NON~ E }gT NT MEMORY

:NON-EXISTENT DRIVE

UNIBUS PARITY ERROR
'WR]TE SHEC RROR
:DRTA LATE

ERROR REGISTER BIT DEFINITION

10
EITI

SEQ 0024

ERROR

(RKER:14)

LEGAL FUNCT N COOE
g%ih
INCO Ig

NXF =
DRPAR=

BIT2
BIT3

NON-EXECUTQBLE FUNCTION
Eflév
TED SERCON PARITY ERROR

DTYE=

BITS

DRIVE TYPE ERROR

FMTE=

ECH=
BSE=

B8ITH

BITb
BIT?

ECCHARD
;BAD SECTOR ERROR
:HEADER VRC ERROR
!CYLINDER ADDRESS OVERFLOW ERROR
:INVALID DISK ADDRESS ERROR: HERD/CYL
IWRITE LOCK ERROR
:DRIVE _TIMING ERROR
;OPERATION (SEARCH) INCOMPLETE
iDRIVE
UNSAFE

HVRC=
=
IDAE=
WLE=
DTE=
OPI=
UNS=
DCK=

BITB
BITS
BITIO
BIT1l
BIT12
BIT13
BITIY
BITIS

.SBTTL

STATUS REGISTER BIT DEFINITION (RKDS:12)

000001

DRA=

BITO

DRIVE AVAILABLE (CONTROLLER IS SET IF

000004

QFST=

BIT2

DRIVE OFFSET

000040
000100
000200
000400

DROT=
Vv=
DRDY=
DDT=

BITS
BITE
BIT?
BlT8

:DRIVE OFF TRACK
: VOLUME VALID
:DRIVE RERDY
DRIV TYPE (0=RK0&, 1=RK0?7)

020000
040000
100000

PIP=
DSC=
SVAL=

BIT13
BITIHY
BITIS

POSITIONING IN PROGRESS
!DRIVE STATUS CHANGE
iSTATUS VALID

.SBTTL

MAINTENANCE REGISTER 1 BIT DEFINITION

000010
000020

0c4000

ACLO=
DCLO=

WRL =

BIT3
BITH

BIT11

iDATA CHECK

THIS BIT IS RESET

;
OuW
;0C LOW

WRITE

LOCK

(RKMR1:22)

MO2

11:25

PAGE 25

708633

Pttt

020000

o000 D

0t It

O
=

@ T

000200

888708

b e b=
= DD
nLwn—-o

M ESMSK=

MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22)
DM M

000017
000020

10-JAN-78

30AR(10S2)

MESSQGE MASK

FORCE EVEN PARITY ON SERCON MESSAGE LINES
AGN

3INTENRNEE
2% ror PULSE
' MAINTENANCE INGEX

nn¥n1 NANCE

IO IRTENANGE

ENQGBED READ DATA

ngxnrsnnncs ENCODED
WRITE DATA
: PRECOMPENSAT ION ROVANCE
RECOMPENSATION DELAY

ECC_WORD, IS BEING RERD OR WRITTEN

;NR

;RERD G TE

LW—0D

g =4
04
0t D) 0
el 0

A
A=~
s 4t be b pe (D IO

020000
040000

000200

€0/CD (D D (OO
T

83810

0000000000

DEFINITION OF DRIVE STATUS BYTE 00 MESSARGE R (RKMR2:34)
DRIVE QVRI&QBLE

:DRIVE RERDY
DRIV gESE(0=RK06, 1=RK0?7)
E ON

POSITIONING IN PROGRESS
:DRIVE STATUS CHANGE

Dt 4[ ]

A )=
=b= e b
(O 0D O N £
LWMNO—-O

= Pl 0t 0= 0l Pl Dl D

oo Juelentselonlenkoelanton]on) )

4 4—

-t~ —
DD N O n

=4 0l D=2
04 e

LW—-0O

040000

A
b e eb

000040
000100
000200
Qo040
00100

:SERVO SIG PRES

Hsnos HoME

HOME

BRUSHES

GCKED
: DOOR TRTERL
INTERLOCK

*CARTRAGE
: SPEED_OK

,FORNR

*REVERS

*HEADS LOADING
'RETURN TO ZERO
:HEADS UNLOADING

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

020000
040000

[aaloadoaloslecasleadoales] ®

000Ge0

00000000000

DEFINITION OF DRIVE STATUS BYTE Ol MESSAGE R (RKMR2:34)

jolelelolele olelele

1258

MACY1l

Ot bt ettt

CZRBIED UNIBUS RK& DR PRT2
CZRGIE.P11
10-JAN-78 09:43

égVEbID DISK ADDRESS ERROR:HERD/CYL

: DRIVE
ILLEGRb FUNCTIO CODE
DRIVE

DETECTED SERCON PARITY ERROR

SEEK INCOMPLETE

IWRITE LOCK ERROR
:SPEED LOSS

DRIVE OFF TRACK
iR/ UNSRFE

DEFINITION OF DRIVE STATUS BYTE Ol MESSAGE B (RKMR3:3b)

SEQ 00es

wwwwwwwmmmmmmmmmmo—»—-—-—w‘: g:g:

Wi
W WWwWwtJWwWwwwwww
W
~N OCNLW-ODONCNLWNN—OOoONCNELE

lele]

0 UNIBUS RKb DR PRT2
PIl
10-JAN-78 09:43

000020

000040
000100
000200
000400
001000
002000
004000
0100060
020000
040000
000007

377770

000003

040000
000760
007000
100000

NO2

MACY11 30R(1052)
10-JAN-78 11:25 PAGE 26
DEFINITION OF DRIVE STATUS BYTE Ol MESSRGE B (RKMR3:36)

D.SECT= BITH

0.WCUR= BITS
D.WGAT= BITH
D.HDFL= BIT?
D.MHD= BITS
D.XERR= BIT9
D.T7IB= BITIO
D.PLO= BITIl
D.NMOV= BIT12
D.LIMD= BITI3
D.SUNS= BIT1H

:SECTOR ERROR

'WRITE CURRENT AND NO WRITE GATE
‘WRITE cnrs AND NO TRANSISTIONS
'HEAD FAU
HULTIPLE HERD SELECT
INDEX ERROR
*TRIBIT ERROR
!PLO ERROR
:SEEK_AND NO_MOTION
:LIMIT DETECT ON SEEK
ISERVO UNSAFE

.SBTTL

COMMON MASKS AND OTHER BITS: MESSAGE A (RKMR2:34)

M.DRV=

.SBTTL

COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3:36)

M.ID=

M.SER=

77770

M.ALGN= BITIY
M.SECT=
760
M.HEAD= 7000
M.PAR= BITIS

;DRIVE CODE,

ALL BYTES

‘DRIVE SERIAL #, BYTE 11
;BYTE 1D,

ALL BYTES

:ALIGN SiGN, BYTE 10
'SECTOR
coufir BYTE1 11
*HEAD DECODE, 'BYTE
'PARITY, MESS A/B, RLL BYTES

SEQ 0026

P
o
v
MM

W G W G
G G G G
L) () G () G ) W ) ) W W W) W W () G G G W) G ) W W W W W
W W W) [RINININ WWWWWwwwww
DO OO
DMDMODMDDMIO
NI NNNNNNNNNOCCOCCOTOT onnnunnuninn
N
nnun
nnNLLL £ LLELELLLWW
W
OO NCNL£WN-—OVDNCNLWNI—ODD
NN LW~ OVONICNL W—OWwDN CNLWL—0OOD

10-JAN-78 09:43

MACY1l 30R(10S2)

10-JAN-78

11:25

SEQ 3027

PAGE 27

COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3:36)

P11l

Pt Pt Pt P

.SBTTL

Pt P Pt Pt Pt Pt P Pt Pt Pt it Pt s Pt P

000000

' #SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

;Locnrxonlo CONTAINS O TO CARTCH IMPROPERLY LORDED VECTORS

000174
000176

000000
000000

000200

888556

012556

000220

000137

000240

000137

TRAF CATCHER

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

000174

DISPREG:
SWREG:
.SBTTL

.WORD
.WORD

O
O

STARTING ADDr~SS(ES)

: ; SOF TWARE DISPLAY REGISTER
: 'SOFTWARE SWITCH REGISTER

J"Sao

38START ;;JUMP TO STARTING ADDRESS OF PROGRAM

012546

PARSRT

: INPUT ALL PARAMETERS 3 START TESTING

055500

IMP

0.0DT

:ENTER 0ODT11

. =240

.SBTTL

ACT1l

HOOKS

R 1Y 2221222 2221222222232

Pact P
Dot Pt et Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt P Pt Pt Pt Pt s P Pt P Pt Pt P Pt Pt Pt P P
5

0 UNIBUS Rkb DR PRT2

000244

hooxs Rsouxneo BY ACT11

000046

$SVPC=

:SAVE PC

222X22222222222LL LR

000046

886822

seggno

:31)SET LOC.46 TO ADORESS OF SENDAD IN .SEOP

0000S2

100000
000244

-WORD
100000
*=§SVPC

::2)SET LOC.52 TO .00000
' "RESTORE PC

001000

.SBTTL
R

.=1000
APT PARAMETER BLOCK

0606366 063 0 3 30 3 3 3 36 3 36 36 36 3 3 3 3 36 36 3 36 3 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 % % % 3 3 9 3

QET LOCATIONS 24 AND 44 AS REQUIRED FOR RPT
001000
000024

000044

!llillll!!lllllllllllll!lllilllllllllllll!lllllll!l!llllllll!!l

.$X=.

000024

=24

,,snve CURRENT LOCATION

ET POWER rn¥L TO POINT TO START OF PROGRAM

000200

aoo

0010600

$APTHDR ,,POINT TO APT HEADER BLOCK

000644

001000

W HERE

OR
RPT START

::POINT TO APT INDIRECT ADDRESS PNTR.

=, $X

RESET LOCATION COUNTER

lliillllllillliil!lllllllilllllllll!ll!i'!ll!lll!!ll!llll!llfll

ssrup APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
: INTERFRCE SPEC.
001000

001000

000000

001006
001010

001130
001130

001002
001004
001012

001210
000430
000042

SAPTHD:

SHIBTS:

.WORD

§PASTM:
SUNITM:

.WORD
.WORD

600.
600

.LIST

SMBADR: .WORD
§TSTM:
.WORD

"WORD

SMAIL
280.

;3 TWO_HIGH BITS OF 18 BIT MAILBOX ADDR.

:RDDRESS OF RPT MAILBOX (BITS 0-15)
P'RUN TIM OF LONGEST TEST

i iRUN TIME IN SECS. OF IST PASS ON 1 UNIT (QUICK VERIFY
RODITIONAL RUN TIME (SECS) OF R PASS FOR EACH ARDCITIO RL UNIT

SETEND-SMAIL.2 : sLENGTH MAILBOX-ETABLE (WORDS)

CZR6IED UNIBUS RKb DR PRTZ
10-JAN-78 09:43
CZRBIE.PII

1394

1398
1396

1397

ngg

BLOCK
RPT QQSQHE+8R-JAN-78

MRCY11 30R(10S2)

CO3

11:25

;USE LOOP X TO OMIT SUBCLR

.MACRO

LOOP

MOV

8STACK, SP

8
JSR

A
PC,SUBCLR

SCOP1

;RESTORE STK PTR

1404
402

40S
406

.ENDC
. ENDM

LELELrLr L
L L rLfLLLLr L5558
£ GG W
W) W
W LI W NN
MU NN MU ) RU DS = 4 4 8 4 bt b e b= O)

}400

THIS MACRO FILLS EXPECTED MSG RO,

ERROR

OCOONCVN LWN—~OO0OMNCNLWN—-OVm

N LW—~0V

:83

442

1443

LOOP

BO,

R2, B2 & B3 WITH STANDARD BITS

A=D. osc AFTER ATTN OR O RFTER DRIVE CLEAR OR ANY’ IMPLIED SEEKS

NOTE A CAN BE ANY BIT COMBINATION DESIRED.
.MQCRO

F.EARB
MOV

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

5 5 MSG’ Bo
€.80
8<D.SPOK'D.CART! b DO a BRHM!0.SSP>
,E.R1 ;;EXPECTED Al
MSG ron EXPECTED' MSG Bl
81 E.BI

MoV

s2,£.82
#3,E.83

F.ERB

szE? gE A

E. hs

;
D FOR EXPECTED MSG B2
;MSG ID FOR EXPECTED MSG B3

' THIS MACROQ nssunss DRIVE MSG no ao

BO,

n C,D,E

" USE

F=(ERROR DESCRIPTION>

"MACRO

CMECK

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

ISR

PC, CHKMSG

I= 93

_WORD
ERROR
ERROR
ERROR
.ENDM

Al,

Bl WILL ALWAYS ae TESTED

B1 ERROR NUMBERS RESP

INFO xnro *CYLDIF’
REQD Msé A2’ POT
né 10
10 READ MSG B2
UT INFO INTO 'CYLROD'
FOR MSG RO,

: USE

' USE

;EXPECTED MSG AQ

CLR
MOV
MOV

CLR
MOV
.ENDM

ERROR
CHECK

TO RERD MSG B3 8 PUT INFO INTO -sscron 8 'HERDA®

BO,

A1, Bl

;8 _MSGS spscrrtso HERE"
;MSG RO ERROR
:MSH BO ERROR

;MSG Bl ERROR

;

taug

: C=<ERROR DESCRIPTION>

i448

.MACRO

:B=CYL ADDR_ERROR

CuWDe

;CHECK MSGS RO,

GIA'I
A
¢

;A=CYL DIFF/QFFSET ERROR #

1449

;CERR AFTER SCLR

144y

1445

SE@ voee

PAGE @28

A.B.C,”D,7E

:M5G Al ERROR

CZRGIED UNIBUS Rk& DR PRT2
CZREIE.PLI
10-JAN-78 U3:43

MACY11l

30R(10S2)
10-JAN-78
QPT PARAMETER BLOCK

1450

1451

i:sg

1u§w
1485

1456

1467

PC.GSTAT

EEROR
TST

2CYLADD

‘MSG
A2 NgT CLERRED C
'SEE IF MSG B2=0

ERROR

IMSG B2 NOT Ct ERRED C

BEQ

lqgg
14

E:
CENDM

CWD2

1461

.MACRO

DRCLR

1460

1462

1463

MOV

1469

MOV

1465
1466
1467

MOV
JSR
ERROR

i:gg

i:;?

PAGE 29

MOV
JSR

D03

11:25

ggn

ERROR

.ENDM

DRCLR

#2,RKMR] (RS)

.SELECT WORD 2

cy(DIF

;ggsxgrvgsc R2=0

8CCLR,RKCS]
(RS)

SUNIT RKCS2(RS)

8CLERR, HCST
PC . DOCHD
151
SC.TSTQTN

154

;

‘USE CALIB

1479

"MACRO

CALIB

R,’C

1481
1482

MOV
MOV

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

1484

JSR

PC, DOCMD

1480

1483

MOV

4382

ERROR

1487

MOV

sRECR( , HCS1

#1,RKMR1(RS)

.SELECT WORD 1

ERROR
MOV

ng
10, TEMP2

A
F.EAB

gsc

1493
1494
1495
1499

JIFB

149

1498

1499
1500
1801
1802
1503
iS04
108

JSR
ERROR

CHECK

.ENDC

.ENDM

.
SGQUICK

cWoe

PC.GSTART
#0.RTZ, HMR2

PC,FATT]
&S

;RT; NOT SET ?unxnc RECAL CMD
‘SETUP TIMEOU

(FIND ATTN
:NG ATTN AFTER Rf SAL CMD

21,275,222,276, <RFTER RECAL CMD».T.R2,7.82.7.B3

47,80, (AFTER RELAL CMD>

DRCLR

CALIB
START

:DO RECAL CMD 8 GET CONTR RD*

'RDY NOT SET AFTER RECAL CMD

1491
1492

:TEST FOR RTTN

124

JSR
BIT
BNE

;D0 DRIVE CLEAR CMD & GET CONTR RDY
'NO RDY AFTER DRIVE CLEAR CMD

TO OMIT CHECKING MSGS RO, BO, Al, Bl, R2 & B2

1488
1489
1490

;DRIVE®

;ATTN NOT CLEARED AFTER DRIVE CLERR CMD

1472
1473
14749
147§
1476

{:z?

:BR IF YES

SPINDLE

SEG 0029

———

(ele)

p ]
Do
b = 0 5t et Pt Bt Gt Pt Bt Bt Pt Pt s et B Bt Pt B et Pt e ot Pt Pt Bt ot (ot P s ot Pt e B i
Bt P P P Pt B i
Pt Bt P B s Bae e Bt it iy
Bt Pt e P Do Pt en ;
iU
oo
oL
LEL L LfLys
IUUUUUUUUU'JNNNNNNNNNN'-'—’-*-’-"—’-"—'—>-0008
—
O D00 NN LW
OO L NN
£ W~ OV
NV £ WO WM NN L WU~ OW
NN L W—~0O VD)
mm

0 UNIBUS RKE DR PRTZ
Pll

10-JAN-78 09:43

MARCYI1 30R(10S2)

10-JAN-78

APT PARAMETER BLOCK

‘MACRO

JSR

PC,SUBCLR

MOV

PC, DOCMD

#SRTSPL , HCS1

ISR

ERROR

JSR

PC,FATT!

CLR

UNLD

ERROR

' A=WRHEAD/

WRHDR

JSR
ERROR

<R>,¥

TO OMIT "HECKING RO, BO, Al 8 Bl

R,C,K,?D
8<AY

V7S]

PC,DAIL O
200

?sn

PC,GSTART

ERROR

11%

géa

Bcsnn,ucsx

ERROR

201

JIMP

$E0P

JIF B

.ENDC

_ENDM

;SETUP TIMEOUT

:FIND ARTTN

INO ATTN AFTER ST SPIN CMD.

< CFMT ! WRHEAD>

MOV

.DO START SPINDLE CMD & GET CONTR RDY

QKSRT

. USE usngn

JIF

:CERR AFTER SCLR

"RDY NOT SET AFTER ST SPIN CMD.

12]

7100, TEMP2

MOV

"MACRO

PARGE 30

GKSRT
ERROR

.ENDM

EQ3

11:25

TYPE

F.EAB

CHECK

MSG26

:D0 DATA X FOR CMD 8 GET CONTR RDY
!NO RDY AFTER WRITE HEADER CMD

:GET FRESH STATUS

:NO RDY ARFTER SELDRV CMD
:CERR AFTER WRITE HEADER CMD
:ABORTING BAL OF TESTS

277,267.300,270.<AFTER WRITE HEADER CMD>,0.0.0

WRMDR

! A=RDHERD~ <CFMT!RDHEAD>

‘USE ROHDR <R>.X T0 OMIT CHECKING RO, BO. Al, Bl

‘MACRO

RDHDR

R,C,"D,
7t

MOV

SRHTAB, RO

MOV

sA> HLS]

SEG 3030

CZREIEOQ UNIBUS Rkb DR PRTR2
CZRBIE.PLI
10-JAN-78 09:43

MACY1l

30R:10S2)
10-JAN-78
APT PARAMETER BLOCK

JSR
ERROR
BIT
.
Bt
ERROR

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

=t - OO 00000000
W .00
NN LWN—-OOm NN L W—ODL0M N

$e o

Pt Pt Pt Pt P

Pt ra P

Pt Pt Pt P

Pt P

P Pt Pt Pt Pt St Pt ot B

Pt Pt § s Pt Pt B

o~u*a'o‘u'd*a‘u'c'mc‘u“u‘u‘c'mc‘a*mmt'c§mmmmmnmmmm

s ot Pt P

i vN
D DWOWD DD DM
MOMM
33~ 1NN SN
OO o
NEZWR—NDNOVONTNLWN--0W @ N LW~ 0O 0m hR [ Ty}

1562
1563
1564

TYPE
JMP

MOV
MOV

BIT
BEQ
JSR

FO3

11:25

.ENDC

F.ERB

174

RDHDR

.MACRO

HDCHK3

RKDB(RS), (RO)+
RKDB(RG)
. (RO)+
RKDB(RS)
. (RO)+

PC,GSTAT

173

.DLT AFTER READ HERDER CMD
"ABORTING BAL OF TESTS

:CHECK WORD O ONLY, CHL#

'BR

IF SAME

'WRONG CYLS ON HERDER

5]
HOCHK3

A=TOCYL/FRCYL

HDTBL

B=HERDS®,

C = C FOR 22 SECTOR,

| FOR 20 SECTOR

R,B.C

R, CALADD

s SETUP

8C | FORMAT

' HEADER

88, HERD

PC . FHDTAB

:T0 FILL
: TRBLE

HDTBL

'QUICK SEEK.
"MACRO

:2°ND WORD
:3'RD WORD

RHTARB, TOCYL

.ENDM

;1'ST WORD FROM SILO TO RHTAB

EDLT,RKCSB(RS)

"MACRO

:ARBORTING BAL OF TESTS

$€0F

ROHERD

:CERR AFTER READ HEADER CMD

MSG26

CHECK 301,271,302.272,<RFTEF RERD HERDER CMD'.T.R2,T7.B2,0

.ENDM

:D00 DATA X FOR CMD 8 GET CONTR RDY
'NO RDY ARFTER REAC HERDER CMD

PC,DATCMD
17
scsnn.uc51

;23325

JIF

SEQ 0031

PAGE 31

GQKSEEK
MOV

ENTER WITH CYLs IN RkDC
A

#SEEK ,HCS1

P11

10-JAN-78 09:43

APT PARAMETER BLOCK

JSR

gERROR
MOV

ERROR
BIT

BEQ

ERROR

. ENDM

150000, TEMP1

pPC.FATt2
132

:00 SEEK CMD 8 GET CONTR READY

:NO RDY AFTER SEEK CMD
s SETUP TIMEOUT

:FIND ATT

'NO ATTN nrrsn SEEK CMD

#CERR, HCS1

;CERR AFTER SEEK CMD

210

GKSEEK

C=ADDR TO JMP TO ATTEMPT TO WRITE ON ANOTHER SECTOR

.MACRO

WDATR
MOV

R,C,D,E,J,K,?F,?G,?H,?]
8<R>

HCS]

JSR

PC,DATCMD

;D0 DATAX FOR CMD 8 GET CONTR RDY
:GET FRESH STATUS

gnnon

.ENDC
IF

JSR

Pc,csrnr

ENDC

ERROR

11?7

’

Yy e

ey Sy e

13}

ADDR_TQ JMP _TO BYPRSS TEST
D
:
:E: IF BLANK WILL CHECK RO, BO, Al & B1 AT THE END OF WRITING
.E IF NON BLANK WILL OMIT CHECKING RO THRU Bl

’

e ey e

e e e

PC,DOCMD

SEQ 3022

PAGE 32

fl:NRDQTfl/(CFMT'NRDQTR)

JIF

Y e

GO3

11:25

O e e

o e

T e

O S

JSR

MOV
JSR

CIF

:NO RDY AFTER SELDRV CMD

:BR IF NO ERRORS

gég

eese.nen

EEEIIF gno SECTOR FLAG

JSR
BR

PC, TRUERR
H

:ELSE SEE IF secroa LISTED IN BSE TARBLE
NO
'RETURN HERE

SECTOR

:RETURN HERE IF YES

173

neo&71~8 TEST DETECTED 10 BAD SECTORS

EREOR

.ENDC

8<CFMT!SELDRV>
,HCS1
PC,DOCMD

8CERR, HCS1

BEQ

INC

!NO RDY AFTER WRITE DATA CMD

BIT

gnp

ey Y
ey e
ey e

10-JAN-78

MACY11 30A 1052)

oY Sy Ty

Loadoaloaloadondonds aload o ad Al aloag al Al Al Al aload e aloalealo adoad e alealeadoatenle adeade aleao o gt o ale afo oo ol o als olu ads oo o« o1 oo oo
IR
IS Laleal agadoal al ad aleal AATVAITATVATVAIV A TUATVATVATT A IV o O
¥ O O o o O O oW W
W
WLl W WU YTV
TN = b=
W OWONCNLWN—ODONC
N LW
OVDITCVNLWN—ODDDONNINL
W~ OO
L WN—~0D0m

(glg]

NN
P
oo
e

l"""“

0 UNIBUS RKb& DR PRT2

IMP
MOV
IMP

IMP

éECTOR.clO.

gns10 CONSEC. SECTORS RAD

‘BYPRSS TEST
o)
8CCLR,RKCS1(RS) :TRY ANOTHER SECTOR
C

;RET HERE

IF YES

CZR6IEQ UNIBUS Rkb DR PRT2
10-JAN-78 09:43
CZReIE.PI1

MACY1l

_JAR(10S2)
10-JAN-78
APT PRRAMETER BLOCK

.ENDC

I.
IF

CVNLWN-=0ODO NN
LW —OVO NN LWN—O VDN :wm-—o.ng

D DD DDDMD

oo O
o

SEQ 0023

:CERR WITH WRITE DATA CMD

ERROR

éa

FVBE"

tE%p ¢

:RBORTING BAL OF TESTS

:BAD SECTOR NOT LISTED IN TABLE

F.ERB

JMP
ERROR

8
F.ERB
CHECK

g2 Eg 53,25, (RFTER WRITE DRTA CMD>,T.R2,T.B2.0

62,23,53,25, (AFTER WRITE DATA CMD>,T.R2,T7.82,0

WDATA

*A=RDDATA~/ (CFMT!RDDATA>
(R>,X TO
s USE RDARTA
.MACRO

PAGE 33

OMIT CHECKING RO,

BU,

& Bl

RDRTAR

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

MOV
JSR

PC,DATCMD

:D0 DATA X FOR CMD 3 GET CONTR RDY

PC,GSTAT

:GET FRESH STATUS

NN
NN N = 4= b bt be e b= 1= 1 =)
O O OO O OO 00 D DD

S
S
e
T
T oy e
o
kel
e
O
e

NN NNNNNNNNNNNININNNN

NN NN

N o O

.ENDC
. ENOM

HO3

11:25

1727

.IF
.ENDC

ERROR

#<R>

HCS]

'NO RDY AFTER RERD DATA CMD

#(CFMT!SELDRV>
,HCS1
PC, DOCMD
.ENDC

117

:NO ROY AFTER SELDRV CMD

ecsnn,ncsx

gess,usn

:SEE IF BAD SECTOR

:DETECTED BSE IN RERD BUT NOTM IN WRITE CMO.

MSG26

:ABORTING BAL OF TESTS

$e0P

:ocx,usn

:SEE IF DATA CHECK ERROR

:DATA CHECK ERROR AFTER READ CMD (ECC)

:CERR AFTER READ DATA CMD.

g%,?&,Sb,SO,‘QFTER READ DARTAR CMD>,T.R2,T7.82.0

C
0

84,26,56,30, <AFTER READ DATA CMD>,T.AR2.7.B2.0

:J,\J\l\l\l\l\l\l\l\l\)\)‘l\l‘wl\l\l‘J\l\)\l\l\l\J\l

NN INNN NN IN N NNN NN NNNNN
NNNNNO
OO
TN
NInnngn nLLLL
L £ L£L L L LWWWWWWWWIWW
NLWN—-ODONCN
LW~ 0D0m I N LW OWwm
o U LWNH—-OODNNCNLWNL~0O

[g]g)

NN
00
oo
e
MM

0 _UNIBUS RK& DR PRT2

776

Pll

10-JAN-78 09:43

10-JAN-78

MACY11 30R(10S2)

APT PARAMETER BLCCK
.ENDC
.ENDM

103
PAGE 34

11:25

RDRTA

A=WRTCHK/<CFMT! WRTCHK>
C=EXPECTED DATA FOR TYPEOUT

USE WRLUHK

<R>,DATAD,X TO OMIT CHECKING RO,

.MACRO

AR, C D,K,?E,F

WRCHK
MOV

JSR

.IF

ERROR

.ENDC
IF

o<n>

HCS1

& Bl

;00 DATAX FOR CMD & GET CONTR RDY
'NO RDY ARFTER WRITE CHECK CMD

PC GSTAT

;GET FRESH STRTUS

11?

:NO RDY AFTER SELDRV CMD

:CERR,HCSI

JMP

.MACRO

PC,DATCMD
15

8WCE , HCS2

:SEE IF WRITE CHECK ERROR

RKDB(RS) , WD1

sACTUAL WORD FOR PRINTOUT

:CERR AFTER WRITE CHECK CMD

C, WD2
éé

.ENDC
"ENDM

BO,

0<CFHT'SELDRV> HCS1

.ENDC

L IF

SEQ 0034

B
F.EAB
CHECK

§7.31,60,32,
Gab
‘ns

'EXPECTED WORD FOR TYPEOUT
'WCE RFTER WRTTE CMD

<AFTER WRITE CHECK CMD>,T.A2,7.82,0

sABORTING BAL OF TEQT

D
0

67.31,60,32,<RFTER WRITE CHECK CMD>,T.R2,7.82,0

WRCHK

OFSET
MOV
MOV
JSR

¥R, SESCAPE

8OFFSET,HCS1

;D0 RECAL CMD & GET _CONTR RDY
:NO ROY AFTER OFFSET CMD

ERROR

pC,DOCMD
33

MOV

g<géPIP!D.SPIN!D.0FF.D.VV.D.DRQ),E.QO

MOV

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

CLR

{EXPECTED MSG RO

MmMm

+4re

NN
020
o

NEWN—~-OVD NN LWR—~ODD NN LWN—OODNCNLWNN—ODEONCNLEIIV—~0O0Mm N0

Pt Bt Pt Pect Pt Pt it Pt Pt Pt Pt s Pt Bt Pt Pt Pt Pt Bt Bt ot Pt Pt Pt Pt Pt ot Pt et Pt Pt Pt Pt Pt Pt Pt Pt Pt P P

Pt Pt P P

Pt Pt Pt Pt Pt P

0000 0D 0D 0D D D 00 (000 00 G0 (0 00 4D (D €O 00 TN CD €D 00 00 D C0 OD MO MAMEEDMMM
NN NCEINNNNY
W
W W W LW NN NI N NINUN) NI NU N b 12 e bt b b= bt P bt b 0000000000V ODOLDVONOODOMMMEO

OO0

0 UNIBUS RK& DR PRT2
PIl

10-JAN-78 09:43

MACY11 30A11052)

10-JAN-78

APT PARAMETER BLOCK
MOV

11:25

PRGE 35

81,E.Bl

CHECK

35,61, 36,62, <DURING OFFSET CMD>.0,0,0

CLR

$ESCAPE

JSR

PC,FRtTE

MOV

ERROR
F.ERB

CHECK

.ENDM

OFSET

.MARCROC

EOPGM

75000, TEMP1

:SETUP TIMEOUT

;FIND ATTN

:NO ATTN AFTER OFFSET CMD

<D.DSC!D. OFF>

260,261,37,40, <AFTER OFFSET CMD>,T.R2,T.82,0

MOV

SESCAPE
#1.STIMES

INC
CMP

SDEVCT
DRIVS, SDEVCT

: INCR COUNT FOR 8 DRIVES CHECKED
'ARE ALL DRIVES PRESENT TESTED”

JNP

NUDRV

:ELSE TEST NEXT DRIVE PRESENT

MOV

BEQ
SEOPl:
.ENDM

JO3

SCOPE
EOPGM

#StACK,
SP

SEOP142

;BR_IF _YES

‘A= ERROR s
;B = ERROR CONDITION

"MACRO OFFDIR A,B,”C, D
MOV
BIT

D:
.ENDM

#B8IT7,Re

;REFRESH RKASOF

BNE

;BR IF NEG OFFSET

ggz

SE,CYLDIF

;CHECK POS OFFSET

;OFFSET IN R2 NOT = RKASOF

ggz

SI,CYLDIF

;CHECK NEG OFFSET

ERROR

;8FFSET IN R2 NOT = RKRSOF

ERROR
C:

R2,RKASOF (RS)

]

OFFDIR
.NLIST

SEQ 0035

OO0
NN

UNIBUS RK& DR_PRT2

.Pll

10-JAN-78 09:43

e
Pt et Pt P

10-JAN-78

COMMON TRGS
.SBTTL
S

11:25

PAGE 36

SEQ 0036

COMMON TARGS

MMM

IR RN

RN RN RN R

:&THIS TABLE CONTARINS VARIOUS COMMON STORAGE LOCATIONS

; ®USED

Pt et Pt Pt P

001100

o0o1100

000
000
000000
000000
000000
000000
3200
00l
000000
000000
000000
000000
000000
000000

001134
00113S

000
000

001132

001136

001140
00ll4e
001144
001146
001150
001152
001154
00115S
001156
001157
001160
00lle2
001164
001166
001170
001172

001174
001176
001200

001204
00120S
001206

SCMTAG:

000000

001102
001103
001104
001106
001110
001112
001114
001118
001116
001120
001i22
00lle4
001126
001130

000000

THE

.=1100

.WORD

O
O
O
O
O
O
O
1
O
O
O
O
O
O

; ;CONTAINS ADDRESS OF 'GOOD’ DATA
; ;CONTRINS ADDRESS OF 'BAD’ DATA
; ;CONTRINS 'GOOD’ DATA
; ;CONTRINS 'BRD’ DATA
; ; RESERVED--NOT TO BE USED

$AUTOB:
SINTRG-

O
O

; ;AUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR

DSWR
DODISP

; ;ADDRESS OF SWITCH REGISTER
; ;ADDRESS OF DISPLAY REGISTER
;3 TJTY KBD STATUS
;;TTY KBD BUFFER
;3 TTY FRINTER STATUS REG. ARDDRESS
:; TTY_PRINTER BUFFER REG. ADDRESS
;;CONTR%NS NULL CHRRACTER FOR FILLS
; ;CONTRINS 8 OF FILLER CHARRACTERS REQUIRED
; 3 INSERT FILk CHARS. AFTER R "LINE FEED”
;3 "TERMINAL AVARILABLETM FLAG (BIT<07>=0=YES)

.WORD

.BYTE
.BYTE

WORD

SWR:
.WORD
DISPLRY: .WORD
$TKS:
177560
$TKB:
177562
STPS:
177564
STPB:
177566
NULL :
BYTE
SFILLS:
.BYTE
SFILLC
YTE
STPFLG:
.BYTE

000000
000000
177607

STIMES: O
SESCAPE:0
$BELL:
.RSCIZ

Q7?7
015
000012

000377

; ; START OF COMMON TRGS
; ;CONTRINS THE TEST NUMBER
; ;CONTAINS ERROR FLAG
; ;CONTAINS SUBTEST ITERRTION COUNT
; ; CONTRINS SCOPE LOOP ARDDRESS)
; ;CONTRINS SCOPE RETURN FOR [IRRORS
; ;CONTRINS TOTAL ERRORS DETECTED
; ;CONTRINS ITEM CONTROL BYTE
; ; CONTAINS MAX. ERRORS PER TEST
; ;CONTAINS PC OF LAST ERROR INSTRUCTION

$TSTNM: .BYTE
SERFLG: .BYTE
.WORD
SICNT:
SLPADR: .WORD
SLPERR: .WORD
SERTTL: .WORD
SITEMB: .BYTE
SERMAX: .BYTE
SERRPC: .WORD
$GDADR: .WORD
$BDADR: .WORD
SGDDAT: .WORD
SBODAT: .WORD
.WORD

177570
177570
177560
177562
177564
177566
000
002
gcle
000

000000
000000
000000
000000
000000
000000

PROGRRM.

S$TMPO:
$STMPL:
sTMP2
$TMP3:
STMPY
$TMPS:

WORD
WORD
WORD
WORD
WORD
.WORD

SQUES:
SCRLF:
SLF:

.ASCII
.RSCII
.ASCIZ

0
O

O
@
12
O
O
O
O
O
O
O

; ;USER
;
;USER
; ;USER
; s USER
; s
USER
; ;USER

<«207>¢377><377>

7/
<IS
&>

DEF INED
DEF INED
DEF INED
DEFINED
DEF INED
DEF INED

; sMAX. NUMBER OF ITERATIONS
; ;ESCAPE ON ERROR RDDRESS
;;CODE _FOR BELL

; ; QUESTION MARK
; ; CARRIARGE RETURN
;s LINE F ED

;-!illllliilllli!lll!lllllliiill‘i!&l!lllllll!ll!l!i!i}illillii!i
"8BTTL APT MARILBOX-ETABLE

——

@]le)

R R R Y
222
22222222222
S 222222222222 2222222222222222222

00
0o

TUWPTU“HWU“HWU“HWULCé

001100

(0 @D €000 (000 (0 00 00 D 4D {00000 (DD G 00 (0 €0 0D D G 0D €D 0D @D 00 00D (D AN A T 0D CO (D T (D €0 00 DD M
DOOOOMOODEMDMMMO
NN NNNNNNNNO OO
—= OO0 NCN LW
OOVO NN LWNI—OWONCNLWN-OVONCNLWN—-0OW

s Pt Pt et Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt P
Pt et
it Pt Pt Pt Pt Pt st Pt Pt Pt P
e Dt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt

MACY1l 30R(1052)

EVEN

000000

$MATIL :

$MSGTY:

.WORD

AMSGTY

: s APT MAILBOX

::MESSAGE TYPE CODE

CZRBIED un1eus RK6 DR PRT2
CZREIE.PI
10-JAN-78 09:43

MACY11 30A(1052)
10-JAN-78
APT MAILBOX-ETABLE

11:25

1892

001212

000000

$FATAL:

.WORD

AFATAL

1894
1895

001216
001220

000000
000000

$PASS:
SDEVCT:

(WORD
.WORD

APASS
ADEVCT

1897
1898
1899
1900
1 901
19 G2
19 03
19 04

00léa24
001226
001230
001230
001231
001232
001234
00123s

000000
000000

$MSGAD: .WORD
AMSGAD
§MSGLG:
.WORD
AMSGLG
SETABLE:
SENV:
.BYTE
RENV
SENVM:
.BYTE
RENVM
§SWREG:
.WORD
ASWREG
SUSWR: * [WORD ~ AUSWR
§CPUOP: .WORD
RCPUOP

1893

1836

1905
1909
180
1908
1909
1910
1911
1812
1813
1914
1915

001214

001222

000000
000000

000
000
000000
000000
000000

§TESTN: .WORD
§UNIT:

.WORD

RTESTN
AUNIT

9’

%
’
*

001.+0
001241

000
000

$ nQMSI:
§MTYPLl:

PAGE 37

SEQ 0037

;;FATAL ERROR NUMBER

;;TEST NUMBER

;iPASS COUNT
;:DEVICE COUNT

::1/0 UNIT NUMBER

,,nessncs nooness
;> MESSAGE LENGTH
' :APT ENVIRONMENT TRBLE
: 'ENVIRONMENT BYTE
::ENVIRONMENT MODE BITS
;:RPT SWITCH REGISTER
;;USER SNITCH;?
CPU TYPE,OPTIONS

8t¥s 1s-11-cpu TYP

BIT 10=REAL TIHE CLOC

*
*
L %

LO3

.BYTE

RMAMSI

.BYTE

AMTYPI

*
*

3_" gg;&NG zgéNT
PROCESSOR

,,HIGH ADDRESS,M.S. BYTE
MEM.

TYPE,BLKs#1

fti. TYPE BY?E

(HIGH BYTE)

00le242

000000

¢ MRDR1: .WORD

AMADR!

;;HIGH QDDRESS BLK&

1919

001244

000

§MAMS2: .BYTE

AMAMS2

; s HIGH ADORES

1321
1922

001246
001250

000000
000

§MADR2: .WORD
§MAMS3: .BYTE

AMADR2
AMAMS3

,,nsn LRST’ ADDRESS BLK #2
chu RDDRESS, M.S.BYTE

1925
1826

(01254
001255

000
000

1918

1320

1923
1924

001245

001251
001252

000

§MTYP2:

.BYTE

AMTYP2

MEM.LAST nogh g
evrss THIS WORD AND LOW OF “TYPETM RBOVE

;;MEM.TYPE,BLKN2

009
000000

§MTYP3: .BYTE
$MADR3: .MWOR

AMTYP3
AMADR3

iga7
008800
1953 ooiegs
38155 880088

}ggo

ooiasw

scng§4:
fv
ére: .fiogo
.u8R

gcgofiq
PRIORITY#!
nvESTé gfigtgng$82
RRUPT v sééus PRIORITY#®2

1934

001274

1936

001300

gMAMSH:
§MTYPY4:

.BYT
.BYTE

sgnsfiz

.uogo

39“§§

$0DWO:

.WORD

ADDWO

000000

§ODW2:

.WORD

ADDW2

000000
000000

$0DW6:
§0DW7:

177440

193§
881593 888888
1933 001272 000000

1835

1937
1938
1939
1950
1941

1942
1943

1944

000000

001302
001304
001306

000000
000000
000000

001310
001312
001314

1345

001314

1947

001320

1946

000000

(001276

001316

177440

AMANSY
AMTYPY

M.TYPE,BLKEI
,,n§n
LAST nggassg ngca

,,anai noon SS OF EQUIPMENT UNDER TEST

gc$COW2:
Wl: .WORD
.WOR ACOW2
ngsux 3588
5SLLER DESCRIPTION WORD#!
.,CONTROL ER DESCRIPTION WORD#2
S§ODWi:

$0DW3:
SODWY:
§0DWS:
SETEND:
CMEXIT

ABASE=

.WORD

.WORD
.WORD
.WORD

.WORD
.WORD

177440

:DEVICE

DESCRIPTOR WORD#®D

ARDDWI

,,oevxcs

ADDW3
ADDWM
ADDWS

:DEVICE DESCRIPTOR WORD#3
'DEVICE DESCRIPTOR WORD#Y
;;oevxce DESCRIPTOR WORD#$S

ADOWE
RDDW?

ESCRIPTOR WORD#1

‘DEVICE DESCRIPTOR WORD#®2

;:DEVICE DE cnfpron WORD 86
‘DEVICE DESCRIPTOR WORDS?

:DEFAULT BUSS ADDRESS

000210

RKVEC:

210

OEFQULT CONTROLLER INTERRUPT VECTOR

172540

PKS:

172540

P CLOCK srqrus REG

000240

RKPRI:

PRS

RIORIT

CZR6IED UNIBUS RK& DR PRT2
CZR&IE.P11
10-JAN-78 09:43

1949
iggg

001324
001326

001322

172%42

1952

001330

000100

1948

igga

001332

172544
177546

MACY1l 30A(1052)
10-JAN-78
RPT MAILBOX-ETARBLE

PKSB:

PKRB:
LKS:

LCVEC:

000104

PCVEC:

1M
?93160

MEMVEC=

172542

172844
177546
100

104

MO3

11:25

PAGE 38

SEQ 0038

:P-CLOCK SET BUFFER

'P-CLOCK REARD BUFFER
:L-CLOCK STARTUS REG.
:L-CLOCK INTERRUPT VECTOR

'P-CLOCK INTERRUPT VECTOR.

114
M naE§= 1521L0

EM 8 g {¥Y 35?T 8N CSR START ADDR

1323
88&338 888888
1961

F?R @L#: 8

1963
1964
1965
1966

001342

000000

DRVPTR: O

:CONTAINS THE POINTER TO THE DRIVE FLAG

001344
001346
001350

000000
000000
000000

FRCYL:
TOCYL:
cCyL:

1970

001360

001362

000000

1973
1974

001364

{g;g

001366
137

1322

iggg

1962

1967

001334

TRRPPC: O

O
O
O

220

STA

DEFAULT

-}Lag FSfi Pax $¥NG 8U? PROGRAM TITLE

: (DRIVD-DRIV7) OF THE DRIVE TO BE CHECKED NEXT.
:FROM CYLINDER
:TO CYLINDER
! CURRENT CYL usso IN N SQUARE TEST

1968
001354 000000
1969 001356 000000

PCYL:

ig;é

000000

CYLADD: O

CALADD: O

:CYL ADDR'USED IN FHDTAB ROUTINE

000074

HZ:

60.

000000

COUNT:

:60 FOR 60 CPS
‘50 FOR SO CPS
:LORDED TQ EO OR 60 TO COUNT TO 1 SEC
og ngvOTHER NUMBER TO COUNT orr FRACTIONAL SECOND

1978
881373 888088
1379 001374 000000

PC ron MEM CHECK ENABLE TRAP

000000

1975

001352

000000

CALDIF:
O
CYLOIF: O

??nup;
8
SECNT: 0

'PREV CYL.,

USED

N SQUARRE TEST

:CALC
ch bxrr %N N SQUARE TEST
:CYL OIFF, RIGHT JUS IFIED FROM RKMR3
ch ADDR, RIGHT JUSTIFIED FROM RKMP3

?
88 ?o DIEQTE TIME 1S UP
:SECTOR COUNT

1980

(01376

000000

PSEC:

1984

001404

000001

000012
000062
000764
000144
011610
141520

T1:

T10:
T50:
TS00:
T100:
75000:
TS0000:

10.
50,
S00.
100.
5000.
S0000.

: TIMEOUT CONSTANTS

1932

001422

000077

CYL:

:CYLINDER NUMBERS USED IN

1994
1995
1996
iggg

001426
001430
001432
001434

000277
000377
000477
000577

001436

000177

1981
}ggg
1985
1986
1987
1988
1989
}gg?

1983

1999

2000
2001
2002
2003

001400
402
001406
001410
001412
O0C1414
001416
001420

(001424

001440
001442
001444
001446

00000
000600

000177

000377
000577
000777
001177

ESEC:
O
SECTOR: O

127

191.
255.
318.
383.

cYL?:

127

255.
383
S11.
639.

: PREVIOQUS sscron

'EXPECTED SECTOR
'SECTOR COUNT, RIGHT JUS“IFIED FROM RKMR3

: CURRENT CROSSOVER TEST FOR RKOB

:FOR RK0O?

MACY1l

302(1052)
MAILBOX-ETRBLE

NOJ3

11:25

PAGE 39

SEQ 0039

767.

0014S0

001377

0014Se
001454

000000
000000

WD1:
Woe:

001456

000000

OFFERR:

001460
Q01462
001464
OC 1466
001470
001472

000000

HEARD:
HERDQ:

000GO0

001474

000000

; ACTUAL HERDER/DATA WORD

0
0

:EXPECTED DATA WORD

O OOV LWH—O

U 0 bt p—e s ps Pt Pt Pt Pt Pe

YNNI
00000000000

CZREIEQ UNIBUS RKe& DR_PRT2
CZRBIE.PL
10-JAN-78 09:4

10-JAN-78

;SET WHEN WRITE CHECK ERROR ON OFFSET
; HERD NUMBER

:HEAD _# FROM H.B3, RT. JUSTIFIED
:SHIFTED HERD# "FOR FORMATTER ROUTINE
:FORMAT TYPE
'SHIFTED FORMAT FOR FORMATTER ROUTINE
:WORD COUNT
;sALL
O’
;0101 PATT
'ALL 1°S

202l

070627

;HERDER/DATA WORD

0000c00
000000

:HERDER WORD FROM RKDB

000000
000000
000000
000000

:LIMIT DETECT ERROR FLAG
'SET TO 1 TQ BYPASS CKCERR IN *GSTATI1’
,WORDS TO BE TESTED

; CANNOT READ BSE INFO WHEN SET

; CALCULARTED HERDER WORD TABLE

0oo102
000102
000102

SRTTQB:

0og400

BSECOH:

{FILLED
AFTER READ HEADER CMD
RBOVE RHTAB SORTED STARTING FORM
iSECTOR 0 BY SORT ROUTINE

-BLKW 256.

00e336

000400

007336

000000

007340

000000

BARDHDR:

007342

000000

HPEND:

2 SECTOR HARDWARE BSE INFO.
;20 SECTOR SOFTWARE BSE INFO.
;22 SECTOR_SOFTWARE BSE INFO.
;FILLED RFTER RERD DRTAR CMD

;SET
;SET
;SET
;SET
;SET
;SET

70
70
70
TO
TO
TO

O
1
O
1
O
1

THE ABOVE

IF
IF
IF
IF
IF
IF

HERDS ARE LORDED
HERDS_UNLOARDED
FORMARTTING OK
FORMATTING ALTERED
HALT NOT PENDING
HALT PENDING

3 FLAGS ARE USED

BY 'STOP’ R 2UTINE TO BRING
iTHE CPU TO A VALID HALT.
007344
007347
007352

001
010
100

002

200

004
046

RTTN:

.BYTE
.EVEN

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

:ATN 0-7 RESP.

CZR6IEOC UNIBUS RK& DR PRT2
CZRBIE.PI11
19-JAN-78 09:43

MACY11 30A(10S2)_
10-JAN-78
APT MARILBOX-ETABLE

BO4

11:25

PAGE 40

SEQ Q040
/

ETHE FOLLOWING RRE HOLDING REGISTERS FOR THE RK611 REGISTERS
;THEY ARE LORDED AFRTER RDY IS REC’'D FROM WRDY ROUTINE.
MCS1:
HCS2:
HWC:
HBA:

HDA:
HDS:
HER:
HASOF
HOC :
HOB:

HMR!L:

2076
2077
2078
2079

007402
00704
NCT+ub
007410

00900J
3Su0000
000000
000000

HMR2:
HMR3:
HPOS:
HPAT:

.082
2083
084
2085
2086

007412
007414
007416
007420
007422

000000
000000
000000
000000
000000

TEMP}

TEMP2
TEMP3
TEMPY
TEMPS

0
0
0
0
0
J

;HOLD RKCS1
;HOLD RKCS2
;HOLD RKWC
;ETC.

0
0
0
0

; TEMPORARY STORAGE.

0
0
0]
0

;THE FOLLOWING ARE HOLDING REGISTERS FOR MSGA(0-3) & MSGB(0-3).

2097

007424

007442

(000000

000000

H.A0:

H.Bl:

B2:
.R3:
.B3:

0
0
0

H.B0:
H.Rl:

MMMMMMMTe.«.«: TIITX

2090

RA2:

0
0

; THE FOLLOWING ARE

000001
000002
000004

'EXPECTED’

00000000

—

000000
000000
000000
000000
000000
000000
000000
000000

007444
007446
007450
007452
0074S4
007456
007460
007462

2101
€102
2103
2104
2105
2106
2107
2108
2108
cll0
elll
alle
2113
2lly
2118

@
o

THE FOLLOWING ARE

IDENTIFIERS FOR DRIVE MSG WORDS TO BE TESTED.
; TEST MSG A2

IF SET

CZR&IEQ UNIBUS RKE DR PRT2

CZRBIE.PIL1

10-JAN-78 09:43

g%ig
2119

MACY1l 30A(10S2)

APT MAILBOX-ETABLE

ca4

11:25

PAGE Y41

SEQG 0041

ALL THE FLAGS BELOW ARE CLEARED INITIALLY BY THE CLRFL3 ROUTINE.
’

2120

007464

000000

DDUMP:

2123
S{sg

007472
007474

000000
000000

PPTP:
DRIVS:

2121
007466 00000C
2182 007470 000000
2126

DDPCH:
8
ACTI1: O

O
O

:FLAG -

SET WHEN

DDP

DUMP MO

'FLRG
- EET NHEN {N 88? 8HRIN HSSE
'FLAG - SET WHEN IN ACTL1I MODE OF OPERATION

'FLAG - SET WHEN PROGRAM LOADED BY PAPER TAPE
!CONTAINS THE NUMBER OF DRIVES PRESENT

.THE FLAGS BELOW ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE

1S PRESENT AND 1S TO BE TESTED.

Sisg

2129
2130
2131
2132

10-JAN-78

007476
007500
007502
007504

000000
000000
000000
000000

DRIVO:
DRIVI:
DRIV2:
DRIV3:

O
O
O
O

:FLAG SET TO 1 WHEN DRIVE G PRESENT
:FOR BRIVE é
'FOR DRIVE
'FOR ORIVE 3

:L-CLOCK FLAG PRESENT FLAG
:P-CLOCK FLRG PRESENT FLAG
'SET IF EITHER CLOCK PRESENT FOR TIMING TESTS.
:8ET IF DEFRJLY DO SIZING IM TEST 1

2133
2134
2135
S}gg

007506
007510
007512
007514

000000
000000
000000
000000

ORIV4:
DRIVS:
DRIVE:
DRIVZ:

O
O
O
O

2138
2139
2140
cl4l

007516
007520
007522
007524

000000
000000
000000
000000

LCLKF:
PCLKF:
DOTIM:
SI2FLG:

C
O
O
O

'FOR
:FOR
FOR
‘FOR

DRIVE H
DRIVE S
DR{VE 9
DRIVE

C.R6IEQ UNIBUS Rk& DR PRT2
CZRBIE.P11
10-JAN-T8 09-43

MACY1l

30A(10S52)
10-JAN-?8
ERROR POINTER TRBLE

D04

11:25

PAGE

SEQ 0042

.SBTTL

clud
gid
14

. #THIS TABLE CONTARINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
aTHE INFORMATION Ig OBTAINED BY WSING THE
INDEX NUMBER FOUND IN
:2LOCATION SITEMB.
THIS
HUMBER INDICATES WHICH ITEM IN THE TRBLE IS PERTINENT.

2148

: ¥NOTE2:

2147

ERROR POINTER TABLE

: #NOTE] :

IF SITEMB IS O THE ONLY PERTINENT DARTA IS (SERRPC).

§1ad

gige
1583

1
ta

0T
OF

2151

2154
2155

2156
2157
2158

2159

2160
216l
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
el7e
2173
2174
2175
2176

giz7

2178
2179
2180

2181

2182
2183
2184
2185
2186
2187
2188
2189

2190
2191
2192
2133
194
2195
2196
2197

007526

: :POINTS TO THE ERROR MESSAGE
::POINTS TO THE DATAR HEADER

! !POINTS TO THE DATA
!!POINTS TO THE DRTA FORMAT

SERRTE:

0O7S26

046213

007536
007540
007542
007544

Q46432
051647
053732
054534

007546
007550
007552
007554

046453
051647
053732
054534

Q07556

Queu7y

007530
007532
007534

EACh ITEM IN THE TABLE CONTRINS 4 POINTERS EXPLAINED RS FOLLOWS:

:ERROR

EM2

:DR 8 IN RKCS2 CANNOT BE RERD BACK CORRECTLY IN RkMR2

EMS
DH1
0Tl
OF1

;DETECTED MDS

EM6
DH1
0Tl
OF1

;DETECTED UFE

EM?7

:DETECTED DRA 8 NED RESET (WRONG PORT SELECTED?)

051647
053732
054534

007860
007562
007564

051647
053732
064534

007566
007570
007572
007574

000000
0000Q0
000000
000000

007576
007600

046637
051647

007602
007604

053732
054534

007606
007610
007612
00”614

046713
0S1b47
053732
054534

DH1
DT!
OF1
; ERROR 2

:ERROR 3

:ERROR Y4

:ERROR §

:ERROR b

OM1
DTl
OF1
0
0
0
0

EMS
D1

;DR NOT PRESENT BUT SPECIFIED BY OPERATOR

EMIC
OH1
DTl
DF1

:ABORT

0Tl
OF

;ERROR 7

TEST,

COULD NOT REFERENCE CONTROLLER REGISTER

007706
007710
00v71e
007714

0S0663
053511
05373¢
0S4e6H

007716
007720
0077ee
007724

050727
052602
0S4OMM
054554

007726
007730
007732
007734

0S1004
052602
053732
0S4664

007736
007740
007742

047436
052762
053732
0os4bbH

007744

; ERR

1?7

;DRA 8 NED BOTH SET

:NO RDY

;RFTER WRITE DRTA CMD

:CERR SET

;NO RDY
;AFTER RERD DRTA CMD

o0~

oML

e [

SEQ 0043

;CERR SET

N~IX

OO0OOMm
NM<IX

oOoOooOMm
MIX

;ERR

PAGE 43

:NO_RDY

;AFTER WRITE CHECK CMD

0so6eH

007676

0S466Y4

;ERR

EQ4

11:25

WR ITE CHECK ERROR SET
RIT E CHECK CMD

RFTER

:WRITE CHECK CMD NOT FUNCTIONING
:WITH INTENTIONAL MISCOMPARE

007674

;ERR 20

;ERR 2l

;ERR ee

047042
0s276e
053732

;ERR

MM—~«IX

047436
052602
053732
0S4664

QOOmMm

os46e4

oOoOm

;ERR

007646

007700
007702
007704

oOooOom
MH4IIX

;ERR

007636
007640
007642
007644

€223

MHII

ERR

007626
007630
007632
007634

OO0OOMm

ryrfururufu
VN
ANIAVIAVIAVIAVIA
VT4 VAT g 1oV oW oW1, V] g}
PUOPONY >
0 b s e e e b= = ()
N— OO
L WN— O D

007624

:ERROR 10

OO0OUM
NI X
WowW

046776

10-JAN-78
ERROR POINTER TABLE

30A(10S2)

O0OOmMm
TM—~IIX
——NMm

00?616

MRCY11l

om
IX
o

OO0

0 UNIBUS RK& DR PRT2
P11
10-JAN-78 09:43

:READ DATA NOT COMPARE WITH WRITE DATRA

:AFTER READ DARTA CMD
;DATA CHECK ERROR

;CERR SET

{AFTER WRITE

CHECk

CMD

CZR6IEQ UNIBUS RKb DR PRT2
CSREIE. P11
10-JAN-78 09:43

MACY11 30RA(1052)
10-JAN-78
ERROR POINTERTM TABLE

S22
oorrue
047353
5526
007750 052632

ERR 23 g
OHe?

€e80 007756 0476

+ERROR 24 o

5587
5528

007782
0O7784

084270
025014

5561

007760

052450

007766

04741

5562
5565
SSed

007762
007764

o566
SSe>
S5e8

007770
007772
007774

052632
084870
085514

5571

010000

052602

5565

083735
084664

S553 007776 Q47353

5673
8873

010002
01000%

DT13
oF21

.ERR 25

11:26

PAGE 44

SEQ 00MY

MSG BO ERROR

'AFTER WRITE DATA CMD

CERR SET

DHo1

' QFTER SCLR

EM20

.MSG B1 ERROR

OTI
OF 10
OHS?
0T13
oF2l

ERR 26 nig
GH26

02478
035014

FOY4

I
OF21

.AFTER READ DATA CMD

S578 010006 047665
5577

010010

052374

5578
5579
5580

0100i2
010019

083732
OBUbLS

5583
5564
5585

010016
010020

010052
010029

Q47415
052603

02470
0550194

5588
5569
5544

010026
010030

010032
010034

047353
052762

$54>
$595
5599
5595

010036

010040
010042
010044

047415

052763
084270
085519

5596
5S9:

010046
0100S0

047042
052535

5301

010056
010080
010062
010064

047100

052532
083738
O0B4BLY

2306
367

010066
010070

047332
053545

55A1
5582

5580
5567

5591

5598
5599
5500

5302
5305
5304
5305
5308
5309

0l00B2
0100849

010072
010079

094230
025614

023739
OSUBHY

0B4S~D
0S501d

HERROR 2l oy
.ERR 30

.ERR 31

_ERR 32

.ERR 33

.ERR 34

.ERR 35

VOL VALID NOT SET

OHIg

'AFTFR PACK CMD

EM20
OHOb

.MSG B1 ERROR
'AFTER READ DATA CMD.

EMig
DH32

.MSG BO ERROR
'AFTER WRITE CHECK CMD

EM20

.MSG Bl ERROR

EMI2
DH24

;CONTR NOT READY
'RFTER OFFSECMD

EM13

.NO ATTN

EML7
BHE3

.MSG A0 ERROR
' DURING OFFSET COMMAND

OT1
bF 10

DTi3
oF2l

0113
OF21
BHI2
D113
OF2l

OT]
OF10

DHaY4
DTI
OF10

£113
oF21

)

wWwwwwwwwwww

PUI= e b e s s et pa e e
owoMICCNLWNN—~0

rururufuUU
VD

1Y)
00
oo

g e
MM

0 UNIBUS RKB DR PRTZ
Pl

10-JAN-78 09:43

010076

Q47374

010506
010110

047374
052532

010100
010102
010104

010112
Cl0lIN4

053545
0QS4270
085014

Q5420
0SS014

MACYI1 30A(10582)

10-JAN-78

ERROR POINTER TRBLE
;ERR 36

;ERR 37

;ERR 40

GO4

11:25

PRAGE 45

EM19

;MSG Al ERROR

EM19
DHeN

:MSG A1 ERROR
:AFTER OFFSET CMD

DHS3
DT13
DF21

DT13
DFel

SEQ Q0uS

CZREIED UNIBUS RKE DR PRTR2

CZRGIE.PLI

10-JAN-78 09:43

£l BlAlan Beésd:
5354

010154

095014

MACY1l 30A(1052)

10-JAN-78

ERROR POINTER TRBLE

pes

oFal

712
oio
3%
358 318188 B2l

+ERR AL iy
DHB

0101349

084550

010 .6

050340

2328

§§§§
5332
2333

334
g

010132

010190
010142

010144

0563772

082532
054350

085080

013

EM41

DH2Y
DTIY

:ERR 43

11:25

PAGE 46

PCRITY TRAP
UNEXP 8,MENTRAP
TEST

.CYL ADDR IN B2 DID NOT REMAIN CLEARED

OF 22

010146
010150

051127
052500

E41

QI01SE

QU716

5345
8344

010162
0I0IEY

083732
084600

DTl
—

5347

010170

053456

OHS1

'QFTER SEEK TO SELF

EM2S

.DETECTED 10 BAD SECTORS

5332
5338
5339
5340
5342

S92

2348
48
2350

010152
010154

010180

053732
OB46LY

051647

010166 051127

(ERR 44

EMES
DHa2
OT1
DF10

EMIS
BH1

EMBS

gigize
B10179

ge37ad
BB36ES

5321

010176

047720

2383
5325
5325

Ologoe
010509

D0S3732
O0Bubba

5320

010206

050233

5328
5329
5320

0105i2
010519

084380
025320

D14
OF 22
. ERROR 50

5362

010520

022350

OH17

2366

Dl0226

Osie7

5368
5363
5350

010232
0102349

084224
084570

2352

5327

010200

010210

052632
082350

5361 010216 050302
5365
5364
5365

5367

010552
010559

0I0S30

084380
025020

010236
010540

047332
052639

2376

010246

047374

0losy2
010544

DHE7
1

.ERROR 47

EM39

DH17

EMUY0

.ERR 51

02256

5371
5372

5375
5375
537¢

;ERR 46

0B4a70
085014

1
F10

D114
DF 22

EM93
ES

.ERR 52

.ERR

DTS
DF20

.WCE AT CYL 411,TRK 2, SEC 21

.OFFSET BIT IN RKMR2 CLEARED

'RFTER WRITE DATA CMD.

.CYL DIFF/OFFSET IN RKMR2 NOT CLEARED

'AFTER RECAL GMD

.CYL RDDR IN RKMR3 NOT CLEARED
‘RFTER RECAL COMD

.WRONG CYL® IN HERDER WORD (MISPOSITION)
‘QFTER SEEK CMD

EM17
OH2?

.MSG
AD ERR
112G
A0ERRRR ata oo

EMLIS

:MSG Rl ERROR

D713
OFal

SEJ 3046

NIBUS RK6 DR PRTZ
1
10-JAN-78 09:43
10250
10252
10254

052632
054270
0ssO1d4

10256
10260

047332
052602

10266
10270

047100
052350

10276

Q47374

10306
10310

047332
052762

10316

Q47374

10326
10330

047353
053545

10262
10264

10272
10274
10300
10302
10304

10312
10314

rorurorofufururgrn
fLrLrLrrrrL g
mp—.—.—.,....-;—-p.-;—.—
OV NONLWN—

10320
10322
10324

0S4270
0SSO14

053732
0S4664
05260c
054270
05S014

054270
0SS0
052762
054270
0SS014

10332
10334

084270
0SSOiM

10336

047415

10346

047772

10352
10354

10340
10342
10344

10350

10-JAN-78
MACY1l 30A(10S52)
ERROR POINTER TABLE

;ERR 5S4

:ERR b0

;ERR Bl

;ERR B2

Q5354%
054270
0SsS01M

EML3
DH1?

:NO ATTN
;AFTER RECAL CMD

EM1S

:MSG Al ERROR

EM17
DH32

;MSG A0 ERROR
;AFTER WRITE CHECK CMD

EMLY

;MSG Rl ERROR

EMLB
DHS3

;MSG BO ERROR
;DURING OFFSET CMD

EM20

:MSG Bl ERROR

DTl
DF 10

DH26
DT13
OF21

DT13
DF2l
DH32
DT13
OF2!l

DT13
DFel

DHS3
DT13
ERR B3 DF21

’

+MSG A0 ERROR
;AFTER READ DATR CMD

EMee

:BSE_ERROR _IN WRITE CMD NOT ON BSE TABLE

053732
0OS4e6M

DH2?7

DTl
ERR &4 DF10

;AFTER WRITE DATA CMD

10356
10360

051230
053573

EMB8
DHSY

;DID NOT FIND SECTOR O FROM INDEX
:AFTER FORMAT CHANGE AND RERDY REC'D

10366

0S00S1

EMES7

;DETECTED BSE IN READ BUT NOT IN WRITE CMD.

10362
10364

0S2e3e

EML7
DHEe

s ERROR 5SS

;ERR 57

PAGE 47

DH2?7
DT13
OF2l

DT13
DFel

;ERR Sb

104

11:25

0S373c
054664

10370
10372
10374

0S1647
053732
054534

10376
10400

000000
000000

DT1
ERR &5 OF10

’
:ERR b6

DH1
DTl
OF1
0
0

SEQ 0047

CZR6IED UNIBUS RK& DR PRT2

CZREIE.PIL
2433
2434

10-JAN-78 09:43

010402
010404

000000
000000

010408
010410
010412

000000
0000300
000000

010416
010420
010422
010424

000000
000000
000000
000000

010426
010430
010432
010434

000000
00000C
000000
000000

2451
2452
2453
24S4
2455
2456
2467
2458
2459

010436
010440
010442
010444

000000
000000
000000
000000

010446
010450
010452
010484

000000
000000
000000
000000

2462

010460

052134

2466

010466

047460

243S
243
2437
2438
2439
2440
2441
2442
2443
2444

24u4s

2446
2447
2448
2449
2450

010414

000000

MACY11l 30AR(1052)

10-JAN-78

ERROR POINTER TRBLE
;ERR &7

0
:ERROR 70
0
0
0
0

:ERR 71

0
0
C
0
:ERROR 72

:ERR 73

0
0
0
0

o}
0
0
0

2463
g:g;

DT1
ERR 75 DF10

063732
0S4664

010470
010472
010474

051647
053732
0S4534

2471

010476

010500
010502
010504

047565

051647
063732
084534

2476
2477
2478
2479
2480
2481
2482
2483

010S06
010510
010512
010Si4

000000
000000
000000
000000

010516
010520
010522

000000
000000
006000

2486

010526

0S13S2

2488

010532

054350

2472
2473
2474
2475

S:gg 010524 000000
2487

010530

053331

PAGE 48

0
0
0

1ERR 74 EM13

2467
2468
53?3

11:25

0
0

g:g? 010456 047100
010462
010464

JO4

;AT END OF HERD LORDING

EM22

:NO DRIVS IN SDEVM

EME3

:NO DRIVS ON BUSS

DH1
D11
ERR 76 DF 1

'
:ERR 7?7

:ERR

100

NO RTTN

DHIO

DH1
DT1
DF1
0
0
0
0

0
0
0

ERROR 181

EM94

DH47
DTiY

:OFFSET NOT CLEARED
:AFTER READ HERDER WITH MOVEMENT

SEQ 0048

CZR6IED ?NIBUS RKE DR _PRTZ
10-JAN-78 09:43

CZREIE.P

0000

051406
052632
053732

0000

0S50S0

051406

O000Q

010S34

050233
053671
0S4350
0S50S0

n
v
O

n
o
o
nn N

5¢ PREF R8s Ino® 2R 8\1
o
£
NN

Pt Pt P
Pt Pt
Pt P

££
£

0000

0000
oo on

0000

Pt Pt Pt Pt

O
o

Gt Pt Prt frut

0000

Q0
000

Pt o Pt Pt

0000

Gt pet Gt fd

0000

Dt pt prs Pt

0000

000

et Pt st

0000

S2
Sy

0000
o
o
(=]

o oo
e

0000

os4eb4

0000

s Pt Pt Pt

Pt Pt P

10536

050302

MACY1l

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

;ERR

DF22
102
EMSS

KO4

11:25

PRGE 49

; FORMAT NOT SET

{AFTER WRITE DATA CMD

103

;RFTER WRITE CHECK CMD
;ERR

104

;OFFSET NOT RESET

{AFTER WRITE CMD WITH OFFSET
;ERR 105

;CYL ADDR NOT O

0S50S0

0S1442
0S1647
03732
0S4Ss34
0S1473
052632
053732
0s4724
000000

000000
000000
000000
000000

051560
052632
053776
0S4640
0s0170
0see3e
053776
054640

051172
052532
054350
05S0s0

; CANNOT FIND SECTOR 23(8)

;ERR 107

; HEAD SNITCHING TOO LONG

'AFTER WRITE DTA CMD
;ERR

110

;ERR

111

;ERR

112

;DRIVE OFF TRACK SET

;AFTER WRITE DATA CMD

;ERR

113

;ERROR

D
114
EMB6
DHaY
DT1Y
DF2e

:CYL ADDR IN RKMR3 INCORRECT

= RKRSOF
;OFFSET IN A2 NOT

'AFTER OFFSET CMD

SEQ 0048

cstxso UNIBUS RK& DR PRT2

CZReIE.PI11

10-JAN-78 09:43

MACY1l 30A(1052)

10-JAN-78

ERROR POINTER TABLE

LO4

11:25

PARGE S0

SEQ 00SC

€20
010666
051172
810& 0 052500
254

FERR LIS
ae
DH22

sAFTER DRIVE CLEAR CMD

ge2? 818
10670
Sggé
2553
010702

+ERROR 1131
BHI

CONT NOT
*AFTER
PACKRDYCMD

2848
2549

010672
010674

054350
055050

2554
2555

010704

054664

47042
52374
053732

2556

010706

047042

2558
2559

(010712
010714

053732
054664

2557

010710

010720

2563
2564

010722
010724

2567

010730

052452

063732
054664

SE&E 010726 047042
052061

2568
2569
2570

010732
010734

053732
054664

2671

2572

010736

2573
2579
2575

010740

051615

010742
010744

054350
055050

2576

010746

0S1172

2578
2679

010752
010754

(54350
055050

2581

010756

047042

2563
2584

010762
010764

053732
054664

2677

2580

2582

010750

010760

2591

010776

0S0603

2696

L!''N06

046432

2693
2600

(011014

0S4614

2532
2533
2594
2595

011000
011002
011004

2597
2598

0110i.
011012

DTI
OF 10

; ERROR 12312
DH2 1

OTI
OF10

s ERROR 1%#12
:ERROR

;ERROR

053732
054614
051036
053732
0OS4614

EMIO01

:DID NOT GO TO CYL 10

DT1M
DF 22
123

EMBE

127

0S1036
053732

;ERROR

A2 OFFSET NOT = RKASOF

'AFTER BEEK TO SELF

OH. 7

:AFTER RECAL CMD

JERR 125
03

:ERR

'AFTER RERD HERDER CMD

DHS 1

0714
DF22
124
EM12

126

sAFTER SUBSYS CLEAR

:AFTER START SPINDLE CMD

OTi
DF10
122

bTi

:ERR

: CONT NOT RDY

'AFTER SEL DR CMD

DH9

DH30

052350

051036

010772
010774

DH20

053456

010770

2588
2689
2530

EMI2

052703

28 010766 050535
2687

DT1
OFi0
:ERROR 117

0S2417

Sgg? 010716 047042
2562

OTIY
OF22

CTO SET

EMBY

!WHILE WAITING FOR OR REC'D CONTR RDY. MSG A%B BRAD

EM79

:NED SET

EMS

:MDS SET

0TI
OFS

EMBY
OT1
OFS

EMBY
DTl
DFS
130

CZR6IED UNIBUS RKE& DR PRT2
CZReIE.P11
10-JAN-78 09:43

MRCY1l

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

i gh184s 888888
110e
011024

BesRds
047100
052557
053732
054664
000

000N
£NOCY

000000

===
Lo

050233
052557
053732
0S4664
047332
0S3456
054270
0S5014
047353

._.....—D

NNN

o
Lo

000000

VYLNNOCT

000000

WWWNY
L0

0000
0000

000000
0C0000
000000

Pt Pt Pt P
Pt Pt Pt o
Pt Pt Pt Pt

000000

0SS014

047374
053456
054270
0S5014
047415

Pt Pt Pt P

£LLfW
£NOoC

Y N
W
N
N
S

000000
000000
000000
000000

£
o

N
NI
s i

0000

S I

N
o
o

0000
0000

e
S

ey o

0000

S S

[

T
e e o

0000

Sy S
i

e
o e
e

ol el el

0000
o

sS4

0000

i A Y GO i

0000

OO0

053732
os4664

[

URUNL
P PPV
Lhladeadi ettt
FUNOPUNY
e tn e be e pe e
W~ O VDN
LW

000000
000000

;ERROR

0
0
131

PRGE S1

BrisE

i NPTBR seex oo

DF10
132
EM13
DH25

;NO ATTN

DT1

:ERROR

MO4

11:25

DTI
DFi0
:ERROR 133
0
0
0
0
:ERROR 134
0
g
0
0
:ERROR 135
0
0
0
0
;ERROR 136
0

0
g
:ERROR 137
EM39
DH25
DTI
OFi0
:ERR 140
EM17
1
DHS
DT13
bF2l
:ERR 141
EM18
1
DHS
DT13
DF21
:ERR 142
EM19
DHS
|
DT13
OF21
;ERR 143
EM20

;CYL DIFF/OFFSET IN RKMR2 NOT CLEARED

;MSG_ADO_ERROR

:AFTER SEEK TO SELF

SEQ 00S!

CZR6IEQ UNIBUS RK& DR PRT2
10-JAN-78 09:43

CZREIE.PI1

011150
011152
011154

053456
054270
085014

011156
011160
011162
011164

000000
000000
000000
000000

011166
011170
011172
011179

000000
DOO0OOO
000000
00000G

011176
011200
011202
011204

000000
000000
000000
000000

011206
011210
0Oll2l2
011214

000000
000000
000000
000000

5683
See4

011216
011220
Ollseg
011954

000000
000000
000000
000000

587

011830

052500

5689
5690
5631
5692
5633

011234

0B4ELY

2657
Se2s
5629
5660
5661
5662
5663
2664

5665
5666
5667
2668
5669
5670
5671
5672
5673
5674
5675
5676
2677
5678
5679
5680
2681
5682

SE8E 011226 (047042

5c88

011932

083732

MACY1l 30A(1052)
10-JAN-78
ERROR_POINTER TABLE

.ERROR 146
a
0
0
0
.ERROR 147
0
0
0
0
.ERROR 150
0
0
0
0

;ERRCR 13115
DH2S
DTI

Sea4
5695
5696
2637
5698

000000
000000
000000
000000

011246
011250
0llece

000000
000000
000000

5701

011256

0SO406

EMSS

3703
5704
270s
5706
5707
5708
5709
5710
3711
5712

011262
011269

053732
0BU6LY

OT1
OF 10
155
B
0
0
0
156
0
0

082500

011266
011570
011872
011574

000000
000000
000000
000000

011276
011300

000GOO
000000

PAGE 52

.ERROR 144
0
0
0
0
.ERROR 145
0
|
0
0

011236
011240
011942
011544

011960

11:25

SEQ 0052

DHS1
DT13
OF21

DF10
.ERROR 152
3
0
0
0
.ERROR 153
0
0
a

5702

NO4

BH22

;ERROR

.ERROR

;

NO RDY

'AFTER CLEAR CMD

.ATTN NOT CLEARED

356

000000

;ERROR

160

: ERROR

161

;ERROR

162

00000C

366
370

000000
000000

:ERROR 183

; ERROR 164
0

(@]
[ ]
o
o

[ ]
Q

W
o
n

364

o0oouno

157

0000000000000 00000

o O

WWww
W
WY

000000

WWWWw
LW

354

.ERROR

000

000000
000000
000c000

;ERROR

165
oo

nooe oo J:%OU‘ L0 £VOC £

WwWw
OO0

WWwww
===

oY Sy Gy S
B S

000000
000000
000000
000000

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

00rNN0

WWWw
U=

000000
000009

000000

WWW
onteE

Y SOy

000C00

000000
000000
000000
000000

[

Pape
e Pms

Do bt Bt

000

Bt bt Bt Bt

0000

e B

Dt Pt

0000

Bt P

Pt e

0000

Pt Pt

e P

0000

-2z

IBUS RK& DR_PRTZ
10-JAN-78 09:43

NN
NNNNNNIYNN

0
o0

O
~N

BOS

11:25

PAGE 53

SEQ 0053

CZR6IED UNIBUS RK& DR PRT2

CZRGIE.P11
2769
2770
2771
2772
2773

2774

775
776

2777
2778
2779
780
781
7E0

10-JAN-78 09:43

011372
011374

000000
000000

011376
011400

000000
000000

gxxuoa

011404

011406
011410
011412

011414

011416

G000

000000
000000
000000

000000
000000

011420
011422
011424

000000
000000
000000

2788

011430

052703

8285 orivze o47OMR

2789
2790
2791
2792
2793
2794
e;qs

011432
011434

053732
0OS4664

011436
011440
011442
011444

000000
000000
000000
000000

2798
2799
Sego

011450
(011452
011454

052703
053732
054724

2803

011460

052703

3739 011446 050441

egoé 011456 047436
7

011462
011464

30A(10S2)

0114

2809
ng?

011472
011474

083732
0OS466Y4

2812
2813
2814
2815
2816
2817
2818

011476
011500
(011802
011504

050302
052134
053732
0S4664

2819
2820

011506
011510
011Si2
011514

000000
000000
000000
0920000

2823
2824

011516
011520
011522

Q47042
053014
053732

10-JAN-78

ERROR POINTER TRBLE

;ERROR

CaS

11:25

PAGE S4

0
0

166
0
0

:ERROR

0
167

0
0
0

g
170
0

0
0
0

;ERROR 1715

)

’

EM&3

:OLT SET

EM21

:CERR SET

ERROR

DH30
D71
19515

DH30

OT1
19§1s

ERROR

;ERROR

NO RDY

'AFTER READ HEADER CMD

ERROR

DH30

DT1
OF10
172
0
0
0
193

;ERROR

063732
084724

5889 81%498 833?33

gggé

MACY11l

880000

2783
2784
2785

2804
gggg

Eux

:CYL DIFF NOT CLEARED

EMY0
DH10
DTl
OF10
177
0
0

:CYL RDDR NOT CLEARED.

DT
19210

‘AT END OF HERD LOARDING

0
0

: ERROR 200
EM12

DH39
0T1

:NO RDY
:AFTER WRITE HEADER CMD

SEQ Q0S4

oo
WWWNY
Lo
oo
£L£L0W
LOC
oo
nonunNE
Lo

] oot 1 SR
el e

0000
0000

000000
000000
000000
000000

000000

0000

L e
e
e il
ettt e

000000
000000
000000
000000

00c0c0

ERROR POINTER TARBLE

DOS

11:25

PAGE SS

SEQ Q0SS

;CERR SET

; ERROR

n
n

; ERROR

0000000000000 00000000

, ERROR

:RERD HEARDER ERROR

; ERROR

;CYL ADDR IN RKMR3 INCORRECT
'AFTER SEEK

; ERROR

:CERR SET

oooon

oo o o
e
£V
oo
NN
Lo

nn UWn

0O0O0O0
0000

047436
052557
053732
0S4664

Sy Wy e e
i etu
e
el
el
ol Y S
Sy eyey

0S0170
05esS?
053776
0S4640

10-JAN-78

; ERROR

v
i

GGG

886680

30A(10S2)

DDDO;ODDOH
n O000~—

OIS Y

0000

e
S

0000

000000
000000
000000
000000

gaptadudetusieutabutu
GGy
Sy e G GrErGEr

DOODOOo

000000
000000
000

0000

164
054;10
0S4704

MACY1l

;ERROR

82046

8 ?QDV
NNNOY oo
nNooes
FON
£ 88!
nonng
O
£rO
:£:8 wugm
LMoo

onn

047436
053014
053732
0S4724

T TM

os47eMd

eypusirest

011524
0000

CZREIED UNIBUS RK& DR PRTZ
CZRBIE.PI11
10-JAN-78 09:43

CMD

CZR6IEQ UNIBUS RK& DR PRT2

CZRGIE.PIIL
2881
2882
2883
2884

10-JAN-78 09:43

011656
011660
0l116b2

000000
000000
000000

011666
011670
011672
011674

000000
000000
000000
000000

011676
011700
011702
011704

000000
000000
000000
000000

2885
2886
2887
2888
2889
2890
2891
2892
28393
2894
2895
28%
2897
2898
2899
2900
2901
2902
2903
2904

011706
011710
011712
011714

000000
000000
000000
000000

011716
011720
011722

000000
0O00OOO
000000

2907

011726

047332

2308
2909
2910
2911

2912

011664

000000

011730
011732
011734

052350
054270
055014

011736

047374

011746
011750
011752
011754

000000
000000
000000
000000

011740
011742
011744

052350
054270
055014

MACY11 30R(1052)

10-JAN-78

ERROR POINTER TABLE

0
;ERROR 215
0
0
0
0
;ERROR 216
0
0
0
0
:ERROR 217
0
0
0
0
:ERROR 220
0
0
0

EMLT

:MSG AO ERROR

EM19

:MSG Al ERROR

DH17
DT13
OF21
.ERROR 222

011756
011760
011762
011764

000000
J00000
000000
000030

011766
011770
011772
011774

000000
000000
000000
000000

OH17
0T13
oF21
;ERROR 223
G
0
0
0
;ERROR 224
0
0
0
0
;ERROR 22%
0
0
0
0

2933

012000

052602

DH26

2924
2835
2936

012002
012008

063732
O0S4664

PAGE 56

:ERROR 214
0
0
0

2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2825
2926
2927
2928
2929
2930

£33} 011776 ourouz

EQS

11:25

1ERROR 228
1o
0TI
DF10
.ERROR 227

NO RDY

'AFTER READ DATA CMD

SEQ 00S6

0000

o
0000

Pt Pt Pt P

0000

NRRNY

047267
053201
053732
0S4744

O0O00

S Pt e P

PPN

0S0S0o4
053252
053732

054664

0000

PPN
s e e O

000000
000000
000000
000000

0000

'Y
[y Sy,

000000
000000
000000
000000

PprURUNYD
P Pt P Pn

000000

000000
000000
000000
000000
000000

WWWNY
NN~
===
F il N o Vel i d, e,
o

[y WSy Ny,
P P Pt P
e e Pt P

0000
0O

—

FOS

11:25

PRAGE 57

SEQ 00S?

:CERP SET

;sERROR

; CANNOT RERD BSE INFO
;ON SEC 10, 2. 14, 16,

18,

;ON SEC

19,

; ERROR

11,

13,

15,

17,

:ERROR

: ERROR

; CANNOT _RERD BSE INFO
;ON SECT 0,2,4,6.8

:ERROR
:ON SECT
; ERROR

1,3,5,7,9

;ALIGN CARTRIDGE

USED

;WILL BYPASS FORMAT & ALL R/W TESTS

: ERROR

[y,
St st Pt Pss

047267
053130
053732
054744

= po Pt e

000000
000000
000000
000000

0000

0S474y4

ERROR POINTER TRBLE

; ERROR

: ERROR e

;ERROR

047267
0s

10-JAN-78

—

047267
052200
053732
0S4744

30A(1052)

047436
0Seele
0583732
0os4724

MRCY11l

:ERROR 4

ale) [] O
0000
BNNN
mmmg
200
000
~
900\1
~N
nN
noocee
£ro
U‘U‘gg
nnne
££
o
£
Lo
£ &8
RER ERSe TrnoR

etet
e

eye

0000

10-JAN-78 09:43

.
Pt Pt Pt P

0000

DR _PRTZ

o
—

v
OO Qo0

[—y o el

0000

nrnrrg
0000

0000

CIRBIE.P Il

RKE

OL£0000 L0000 £0000 wWoOooo

CZSBIEO UNIBUS

0oooao

000000

moQ

PRGE

SEG Q0S8

€8

;CYL RDODR I N RKMR3 INCORRECT
! RFTER
;A

;ERR

SEEK

;RTZ NOT SET

CMD

:ERR 246

0000
0000

;ERR

;DURING RECRL CMD

:ERR 252

;:ERR 253

;ERR 254

;ERR 255

0000
0000

;ERR 251

0000

;ERR ay?

0000

L£NVOCT

000000
000000
000000

~iIuug

000000
000000
000000
000000

0000

000000
000000
000000
000000

£VO0C

0000

STST

0000

e Ll
ol

000000

000000
000000
000000
000000

0000

11:25

;ERR 2s0

e
e

0000

£NUO

PVPPPRY
PPNY
PJUVVNY

000000

furg

000000
000000
000000
000000

0000

000000
000000
000000
000000

0000

0S4664

0000

0S0sse
053103
053732

0S4156
0S4640

MACr1l

L££L
£no

£hROo

BEaLS

0000

VDY

000000
000000
000000

et
e

G W ) W ) W W W WW
OO0000000000
[V o
ey ey Y e e Y Y
Owo
NN LW~

0000

el
et way =t et et eywhwtetefpetetotetetaderedbodotates

0000

glel
giel
ol2l

< R61EQ UNIBUSLR K& DR _PRT2
0-JAN-78 09:43
Z R&IE P 11

GOS

= =0
QOON
}\l
o
£froo
oo
Qoo

U
££L£Lf
e
rf

:ERR

;ERR 2b3

;ERR 2ty

;ERR 26s

;ERR 2bb

;ERR 267

ERR 270

0000
~WEN

Do Pt Pun Prmn
Pt o Bt Pt
[T,
Pt Pumn Pt
Dot s oo Pt
[y Y
P P P P
[y —

0000
00

047415
053014

[NYY

0000

0473S3
053014
054270
0SS014

;ERR

;MSG A0 ERROR

—WED

Y.
L LW

047415
052500
054270
0SSs014

0000

VY.
WWWW

Q47353
052500
os4270
0SsOo14

;ERR

;:MSG BO ERROR

;1SG_B0 ERROR

:MSG B! ERROR

;MSG_BO ERROR

;MSG Bl ERROR

OO0OM

PPN
PPPPRY.
WWWW

000000
000000
000C00
000000

;ERR Y4

O0OO0OmMm

0000

000000
000000
000000
000000

:AFTER OFFSET CMD

0000

000060
000000
000000
000000

0Ss014

:ERR 256

0000

TPV

0000

047353
052532
0S4270
0SS014

3660

;

0000

(=]
2R8

rfufufy

000D

047332

0000

000000
000800

O00O0O

000088
38660

0000

P P

rorony
W W

00O

012276

PAGE S9

O0OOMm
M~IX
R—R—
~—wno

o Hi s

ERROR POINTER TARBLE

HOS

11:25

QOOOMm
MHIIT
P~
—wWwhuo

10-JAN-78 09:43

10-JAN-78

30R(10Se)

OOOM
M~NIIX
—wW—
~—WOom

CZIRBIE. PLl

MACr11

om
ITX
WY
VO

CZREIEQ UNIBUS RKB DR PRT2

IAFTER DRIVE CLEAR CMD

!AFTER WRITE HEADER CMD

SEQ 0053

OVODNCN LWN—-ODD NN
NONLWN—OOONCUVTLWN—-OODMNOCNLWNN—DOVONCN LWL

nNNUNUNINNE LS L L L £ L L L WWWWWWWWW WRNNMMNN
NN
bt e 0 b e = = = OO O O

W WL WWWLWWWWWGLW LW W Wl W W WL W LW W W LW W W

W ) () W

W W W) (W W W W W W W WL

Pt 9t D Bt D D=t Pt Bt Pt Pt Dt st Bt P Bt Dt Bt Bt P Pt Pt Pt Pt Pt Bt Pt Pt Pt Pt Pons Pt Pt P Pt Pt P Pt Pt Pt Pt P Pct Pt Pt Pt Pt Pt ot Pact Pt P Pt Pms

Q)+
MM

NN
00
[val o

0 UNIBLS RK6 DR PRT2
PI1

10-JAN-78 09:43

012422
015455

0S4270
025014

018432
012434

0584270
055014

0i2436

047415

0015430
124

015440
012442
01544%

"
047353
052703

052703
054270
085014

047332
124y
012446
012450 052500
018452
015424

054270
085014

012456

047374

012460
012462
012469

052500
054270
025614

012466 047353
012470

052350

0I2472
012479

084270
085014

012476

047415

018500
012502
015209

052350
064270
085614

012506 047332
018510

053014

012512
015219

054270
025514

012516

Q47374

012526

Q47332

012632
012835

054270
085614

012820
018882
015255

012530

012536
012840
012542
012844

053014
084270
025614

MACY11 30A(1052)

11:25

PAGE 60

0T13
DF21

ERR 271
8
5H30
;ERR 272

DT13
OF21

.AFTER RD. HDR. CMD.

EM20

GH30
DT13
OF21

tERR 273 117
.ERR 274

EM19

.MSG A1 ERROR

DT13
OF2l

QFTER RECAL CMD

EM20

.MSG B1 ERROR

OT13
OF21

+ERR 277
17

.ERR 3C1

MSG AO ERROR

OH39

'AFTER WRITE HERDER CMD

EM19

.MSG Rl ERROR

DT13
oF21
OH39
DT13
OF21
EML7

BH30
;ERR 302

MSG BO ERROR

OH17

OH17
OT13
oF 21

.ERR 300

MSG AD ERROR

'AETER DRV CLR CMD

HERR 275
e
.ERR 276

;

BHE2

OH22
DT13
OF21

052/03
047374
052703
084270
085014

10-JAN-78

ERROR POINTER TABLE

I0S

DT13
OF21
EM19
BH30
DT13
OF 21

.AFT RD HOR. CMD

SEQ 0060

.P11

10-JAN-78 09:43

ERROR POINTER TRBLE
.SBTTL

oxgsws

8 2737

000001

012556
012562
012564

005037
000005
012706

001336

012574
012600

012746
000002

012602

004737

041112

012554

012570

o402

012796

001336

001100

N0OOOOO

PARSRT: MOV

MOV

19:

SEQ 0061

PAGE b!

PROGRAM SETUP

START: CLR
PRGSRT: RESET
MOV

81, PARAM

;s;r FLAG FOR 220 START

PARKM

:CLEAR FOR 200 START
"CLERR ALL INT ENABLE & INIT
:SETUP STACK POINTER

PRGSRT

#STACK , SP

#PRO, - {SP)

MOV
RTI

$18,2(SP)

JSR

PC,STKINT

:START PROGRAM

:PSW LORDED TO BE

'LSI-11 COMPATABLE
'ENARBLE ALL INTERRUPTS

:SETUP KB VECTOR ADDR,

'8 TURN ON KB INTERRUPT

PRIORITY 4

;%% CPU PRIORITY LEVEL NOW AT 0 #x»
;#%¥% ANY DEVICE WHICH SETS ITS
4231
‘%%

INTERRUPT ENRBLE BIT WILL

:#x% SERVICED.

#¥#

PrY

:CLOCK INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL &_(IN 'STS’)
'RKO6 CONTROLLER INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL S IN *SETINT')
!KEYBOARD INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL Y4 (SEE ABOVE)

G G W) W L) G
) (G
WL W L WG
W) W

10-JAN-78

MACY11l 30A(10S2)

) W W) W

W G W W ()

(W W) W) Wtw ) Wit

OO0
NN
0
oo

) EN010.040001010.40580 DD B @EOMOMMMMMM
D D D DD DD NI NNNNNNNNNOT
I 1 I I <J I IO T T
TG oo
TG onN
TN
»—-o\nm\w\m.cwm»—o..ommezwm-—o.om\»mm.cumv-o.om\w‘m.cwgv-o.og R;

0 UNIBUS RKb DF PRTR

JOS

11:25

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

.SBTTL

012706
00S026

0lee22

0612706

001100

012626

012737

037220

000020

012656

012737

043330

000034

013737

031546

031540

012634
012642
012650

022706
001374

012737
012737
012737

012664
012672
012700

012737
012737
012737

012714
012720
0127249
012732
012740

005037
005037
112737
012737
012737

012706

001100
001140

000340
037500
000340

000340
036754
000340
001174
001176
000001
012732
012740

013746
012737
012737

000004
013006
177570

MOV
CLR

#SCMTAG, RE
(RE)+

MOV

#STACK, SP

CHP
BNE

#SWR,R6 ; ; DONE?
. -6

;s INITIALIZE A FEW VECYORS

PISETUP THE STACK POINTER

MOV

sSTRAP,

000036
000024
000026

MOV
MOV
MOV

#3390 IntoTvec+e ;;LEVEL 7
#SERAROR, ISEMTVEC' } ;EMT VECTOR FOR ERROR ROUTINE
cawohgoénrvsc+e ;JLEVEL 7
98 TRAPVEC' : : TRAP VECTOR FOR TRAP CALLS

$340, b TRAPVEC+2; (EVEL 7
#SPWADN, 98PWRVEC ' ; ; POMER FAILURE VECTOR
2340, JOPURVEC+2 ;:LEVEL 7

MOV

SENDLT,SEOPCT

MOV

CLR
CLR
MOVB
MOV

$TIMES
SESCAPE
81, SERMAX
¢. SLPADR
SLPERR

;;SETUP END-OF-PROGRAM COUNTER

P INITIALIZE NUMBER OF ITERATIONS
: :CLEAR THE ESCAPE ON ERROR ADDRESS
:JALLOW ONE ERROR PER TEST
P:INITIAL17E THE LOOP ADDRESS FOR SCOPE
!'SETUP THE ERROR LOOP ADDRESS

:SIZE FOR A HARDWARE SWITCH REGYSTER. IF NOT FOUND OR IT IS

!!EQUAL TO A "-1"

00000Y
001140

: sLOOP_BACK IF NO

$SSCOPE , #IOTVEC ; ;10T VECTOR FOR SCOPE ROUTINE

MOV
MOV
MOV

001115
001106
001110

;sFIRST LOCATION TO BE CLEARED
:'CLEARR MEMORY LOCATION

MOV

000022
000030
000032

012
012752
012

'SETUP’

:CLEAR THE COMMON TAGS (SCMTAG) ARER

012606
0l126le

012614
012620

. SYSMARC

INITIRLIZE THE COMMON TARGS

MOV
MOV
MOV

GETUP FOR A SOF TWARE SWITCH REGISTER.

UERRVEC,-(SP)
#6435, J¥ERRVECTM
#DSWR, SKR

;;SAVE ERROR VECTOR
;:SET UP ERROR VECTOR
*!SETUP FOR R HARDWARE SWICH REGISTER

oo
oo

0 _UNIBUS RKE DR _PRT2
P11

10-JAN-78 09:43

012766

012737

013002

001012

013004
013006

000403
012716

013014

012737

000176

012774

013012

022777

000002

177570

177777

MRCY1l 30A(1052)

001142

MoV

166136

CMP
b4S:

001140

001142

658:

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

MEMPAR:

MOV

#1S,ERRVEC

; SETUP TIMEOUT VECTOR

38:

MOV
CLR
MOV

#MEMBRS,R1
(R1)
81, (R1)

;ADDR _OF MEM CSR
;SEE IF CAN REFERENCE
;SET ENRBLE BIT IF YES

012737

001232

001140

678

0130S6

Q12737

013122

000004

013072
013076
013100

012701
005011
012711

172100

013120

000401

012737
012737

000001

036656
000340

013122
013124
013130
013134
013136

022626
062701
020127
001360
012737
00S037

000006

013150

004737

031666

013160

00S037

0012e2

013144

013154

005037

000114
000116

000006

MOV
MOV

1%:
2s:

000002
172140

THE HARDWARE SWR Is NOT = -1}

; ;BRANCH IF NO TIMEQUT
;;SET UP FOR TRAP RETURN

SPASS
SAPTSIZE,SENVM
67$

001231

66%:

MOV

; ;AND

CLR
BITB
BEQ

001216
000200

013104
013112

659
%658, (SP)

; ;BRANCH IF NO TIMEOUT TRAP OCCURRED

; ;POINT TO SOFTWARE SWR

005037
132737
001403

000006

BR
MOV

;;AND A HARDWARE DISPLAY REGISTER

;s TRY TO REFERENCE HARDWARE SWR

WSWREG, SWR

013034
013040
013046

000340

668

SEQ 0082

$DISPREG, DISPLAY
(SP)+,38ERRVEC ; ; RESTORE ERROR VECTOR

000174
000004

012737

#DDISP,DISPLAY

-1, SUR

BNE
RTI

PAGE 62

MOV
MOV

012737
012637

013064

11:25

INITIALIZE THE COMMON TRGS

013022
013030

8}%8%2

10-JAN-78

KOS

000004

001220

#SSWREG, SWR

8PR? ERRVEC+2

#MEMERR,MEMVEC
8PR7
, MEMVEC+2

:NO,USE APT SWITCH REGISTER

;LORD VECTOR IF NO TIMEOUT

CMP
ADD
CcMP
BNE
MoV

(SP)+,(SP)+
;ADJ STACK
#2,R1
; TRY NEXT CSR
R1, SMEMBRS+40
;SEE_IF TRIED ALL
3
;BR
IF NO
SERRVEC+2,ERRVEC
;RESTORE TRAP CATCHER

CLR

ERRVEC+2

JSR

PC,CLRFLG

CLR

SUNIT

CLR

SOEVCT

; CLERR DDUMP THRU SIZFLG

IFIND OUT IF XXDP, RCT, APT; CHARIN OR DUMP MODE
013164

013170
013172

013176

005737

00i01S
004737

000041

00S237

007464

001011

013212

104401

013216
013220

000000
000137

013230

005237

013224

031706

123727

013204

013206

000042

000137

START!:

O0uO00L3

CMPB

007472

1%:

2s:

19
PC,TITLE

:13=L0AOED BY XXDP

DDUMP

; SET RKO6 DUMP MODE FLAG

TYPE

, MSGe

HALT
JMP
JMP

INC

;BR IF RAUTO
;MANUAL,
TYPE PROG ID

41,413

BNE

INC

044307
013234
013300

TST

BNE
JSR

STe
ST3

PPTP

;REPLACE DRO PACK W/SCRATCH & DO<CR>
sHALT

;SET RCT/APT/PTP DUMP MODE FLRG

;CHECK IF ALL PRRAMETERS DEFAULTED.
;WITH OPERATOR.

THE REPLY TO

IF NQT, BEGIN INPUT DIRLOGUE

°‘'DRIVES TO BE TESTED'

SHOULD BE

C%RSIEO UNIBUS RK& DR_PRTe
10-JAN-78 09:43
CZIREIE.P11

MACY11

LOS

11:25
30R(10S2)
10-JAN-78
INITIARLIZE THE COMMON TRGS

PRGE b3

SEQ 0063

W) W
WU

e P

s Pt Pt Pt Pt P

a4e

W WL

0000000000

W
(A VAT AN
NN
w0~

HINQTEE BY
1,2,49<CR>

005737
001002
008&3?

383734

104401
004737
104401
004737
oog4e?

sTe:

001336
013332

18:

4437
3176

TST

(CR»

;BR_IF 220 START

;200 START,

TYPE

DEFAULT 8 SIZE THE BUSS

; BUSS ADDR
'GET_BA
!CONT_INT VECTOR
!GET INT VECTOR

a44422
032126
Q44467
032154

'AUTO MODE

SET FLAGS & NO INPUT DIALOGUE.
IF LORDED BY XXDP OR OTHER.
;CHECK
TEST ONLY THOSE DRIVES THART ARE RERD(Y
ALL PARAMETERS.
;DEFRULT

W WWWW W

0000

012737
012737

0000000000 0000000

WWWWWWWLKLIWWWWWWWGL
LfLrrLeLrw
WWW

ey Sy S
WY W
i
e
e
e
e
S
eL S

W [N) WWWWWWwWwWwLWWwWwWww W
ww {N) WWWWWWWWWwWWWW w
nn n TUNU MY 0= e e bt e pe hs ot e p—e. o
nr w -0V NCVLTLZWNN-—-O <0

) W
e

0000000

123727
001007
005237
004737
104401
ooo402
005237

000

;ON THE BUSS

464

000041

007470

177440
000210

ST3:

032206
007524

005037
005037
005037

007336
007340
007342
001176
001170

DDPCH
PC,TITLE

;SET RKOB CHARIN MODE FLAG

m&G?
3

;DRO NOT TSTD

1$:

BR
INC

RCT11

:SET ACT AUTO FLRAG.

STY:

MOV

#177440, SBRSE

;DEFAULT VALUE
; DEFAULT VALUE

TYPE

STS:

CLR

005777

;USED IN ’*STOP’ ROUTINE
;FOR VALID PROGRAM HALTS

TMPY

SUNIT
#1S, ERRVEC

aLkS

LCLKF
LCVEC,RO

823, ERRVEC
JPKS

000004

;00 “SIZE THE BUSS" TEST
; INITIARLIZE FLAGS

UNLD
BADHDOR

#DRIVO, DRVPTR
SDEVCT

001342

; CLERR RKO7 FLAG
; SETUP
u

INO. OF DRVS DONE

*CURRENT DRV UNDER TEST
TIMEOUT ERROR_VECTOR
IF L-CLOCK THERE
PRESENT,
SET FLAG.

:VECTOR ADDR

PCLKF
PCVEC, RO
3%

0oo41e

022626
012737

8210, RKVEC

PC,SETINT
SI2FLG

000004

013700

; 13=LORDED BY XXDP

41,813
13

CMPB
BNE
INC
JSR

007466
031706
o44604

004737

00Se37

000013

000004

1%:

CMP

(SP)+.

(SP)+

848 ERRVEC

JPKS

:L-CLOCK NOT THERE,

CLEAR STARCK

;SEE IF P-CLOCK THERE

CZREIEOD UNIBUS RK6 DR PRT2

CZRBIE.P11

3326

3357
8
3329
3330

013502

81350
1351
013516
013522

10-JAN-78 09:43

00S237

862799
e
012720
012710

3331

013526

000407

3%3;

000767

3336

013534

022626

013542

104401

0133
07Se
036100
000300

013536

005037

INC

38:

2%:
0B07%ece

045145

10-JAN-78

MOS

11:25

INITIALIZE THE COMMON TRGS

007520

§gg§ 813§gg 0cebeb

3337

MACY11l 30R(10S2)

4$:

MoV
INC
MoV
MoV

cMpP

CMP

YPE

PCLKF

PCVEC,RO
DOTIM
8CLOCK, (RO)+
8PRE, (RO)
TST1

(SP)+, (SP)+

DOTIM

M5G13

PAGE bY

SEQ 0064

; PRESENT,

SET FLRAG

:VECTOR _ADDR
*INDICATES TIMING TESTS CAN BE DONE
:SERVICE ROUTINE FOR CLOCKS
; ;GO TO NEXT TEST

;P-CLOCK NOT THERE, CLERR STACK

;NEITHER CLOCK THERE, CLEARR STRCK

TIMéNg TE% g CANNOT ES DONE
:HEAD

SW.

TEST BYP SS

CZR6IEC UNIBUS RKE DR PRT2
CZReIE.PI1
10-JAN-78 09:43

NOS

MACY11 30R(10S2)
10-JAN-78
11:25 PAGE 65
BASIC CONTROLLER TESTS, SIZING & SETUP

3335

.SBTTL BRSIC CONTROLLER TESTS,

3343

, !«llllllllll!!!llllllll!!llllllll!lllllli!ll!lil!lll!!!l!i*lllll

gg:g

fiTEST

3346

3347
3348
3349
gggg

S
tx
tx
¥

3352

3353 013546 000004
013550

012737

000001

3357

013562

012746

000000

3359
3360

Q13572
013574

000002

gggg 013556 012706 001100
013866

0l2746

REFERENCE ALL CONTROLLER REGISTERS

THIS TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS

CAN BE nccssseo.
THE INABILITY TO BE ACCESSED WILL
RESULT INA TIMEOUT TRAP WITH AN ERROR MESSARGE.
ANY
ERROR IN THIS TEST WILL RESULT IN ABORTING ALL OTHER
TESTS AND JUMPING TO
°'END OF PASS’

: !i!lill!!ll*ll*!lli!!!!i!lllllllllil!*!llilllll!!lllll!lil*§l§§

3384

3358

SIZING & SETUP

001174

HT]

013574

SCOPE

MOV

81, STIMES

#StACK, SP

MOV

#PRO, - (SP)

;RESET PSW TO PRIORITY O

MOV

5%:

RTI

853,- (SP)

1 ITERATION

hssrone STK PTR
8 MAKE IT LSI COMPATARBLE

SEQ 006&S

CZRGIEC UNIBUS RKE& DR_PRTZ
10-JAN-78 09:43
CZRBIE.P11

3362

013574

012737

013720

BO6

MACY11 30R(10S52) _10-JAN-78 11:25 PAGE 66
REFERENCE ALL CONTROLLER REGISTERS
T1

000004

MOV

#1$,ERRVEC

;SETUP TIMOUT ERROR VECTOR

SEG 0066

CZRIE.PI1

10-JAN-78 09:43

CZR6IEQ UNIBUS RK6 DR PRT2

CO6

SEQ 006 7

10-JAN-78
ALL | 'CoNTRoLLER REGISTERS
REFERENCE

MACY11l 30A(1052)

3323

oiasoa

013;05

ooxagq

?o¥

zefisezss

3367

013622

005765

000004

157

RKBA(RS)

3369
3370

0136
013636

005765
0065766

000012
000014

757
157

RKDS (RS)
RKER(RS)

s TIMEOUTS I THIS SECTION
' INDICARTE THAT THE CONTROLLER

1364
oxaaga

57
765

00020
0024

1631
157

RKDC (RS)
RKDB(RE)

'TESTING SHOULD NOT PROCEED
SUNTIL THIS IS REMEDIED.

36 013616
8132?3 883722
8888
8
3366
005765
000002
2368

3373

337
3373

0136

8‘ 64

0057265

885723

000006

813562
0136
013666
013672

g?&
76
005765
005765

88856
4
000036
000030

3380

013702

012737

036570

3381
gggg

013676

00657¢5

013710
013716

012737
000404

3384

013720

022626

3386

013724

000137

3385

3368

013722

104007

15T

808815

gg?fl
7s
3376
3377

gg;g

187
157
157

157
157
157
157

000032

000340

000004

000006

3332

3395

3339

328§

ggga
3336

3397
3338

3405

013732

000004

012737

000001

g:gg

013744

005237

001516

132737

000200

g:gg 013740 012706 001100

3415

3416
3417
3418

SEOP1

;

;REGISTERS CANNOT BE READ.

;SETUP TIMEOUT HANDLER

;GO TO NEXT TEST
:RESTORE STACK POINTER

*ABORT-COULD NOT REFERENCE CONTROLLER REGISTER

013750

013756
013760
013764

013770
013774
013776

001002
000137

014100

104401

044713

005037
005000
012701

007474

007476

001174

SIZE THE BUSS

THIS TEST IS ENTERED ONLY IF 'DRIVE SELECTION’

IS DEFAULTED

ESTHER
8Y RUNNING IN THE AUTO MODE OR R 200 START IN THE

DRIVE
WILLgs DRIVE
TESTEDONLY
RS AN
RKOG. 1IF SET, THE Pnochnn WILL BYPRSS
TESTING
IF THE ERROR WRS'A RESULT OF

e
013730

3412
33}3

(SP)+, (SP)+

;CSN‘RSLLER ktoxsgsns

‘u
tx

3460

3411

.PR? ERAVEC+2
TsT2’

;gs;u; Igosé ng.

unuunnnunnuunuu*iuuunnnuuu*nnnuuu

,firesr

3410

Rxnaéz 5)
RKMR2 (RS)
RKMR3(RS)
RKECPS(RS)

#BADTMO, ERRVEC

ERROR

ggg?

3403
3404

RKASOF (RS)

MOV

JMP

3389

RKDA(RS)

RKECPT (RS)

CMP

031512

)

137

MOV
BR
18:

RKEgé(Rg)
RKWC (RS)
K

EVERYoava FROM O THRU7 IS ADDRESSED.
CONTROLLER ERROR (CERR)

IS EXAMINED AND IF NOT SET,

NED BEING SET;

THE

OR B80TH NED 3 DRR RESET IN-

oxchragc rus OTHER PORT I8 RCCESSED.

DUE TO DTYE, DRIVE WILL BE TESTED RS RKO?

. o B30 363636 36 6 3 3 3 3 3 3 36 3 36 36 3 36 36 3 338 3 3 36 36 36 3 3 % 3 3 3 3 3 3 3 3 3 3 2 3 2 3 3 3 3 3 5% 3 W 2 H XX R EE
$472:
SCOPE

001231

MOV

.s?ncx SP

;

INC

BYPCERR

:DO NOT TEST CERR IN 'FROY’

BIT8

#BIT7, SENVM

:SEE IF USE APT SELECTED DRIVES

BNE
JMP
148

TYPE

CLR
¢LR
MOV

STIMES

ITERATION

hesrone STK PTR

148
128

'BR IF YES
'ELSE DO NORM SIZING OR VERIFY

MSG10

sWILL TEST DRIVES

ORIVS
RO
#DRIVO,R1

:8 OF DRIVES PRESENT
:DRV ARDDR
:DRV FLAG

CZREIEOD UNIBUS RKE DR PRT2
CZRBIE .Pl11
10-JAN-78 (9:43

014002

34ee

013702

001266

032702

000001

GRSt1

34e
342

04401
10046

3458

000

¥}

88258

3434

4040

022700
001402

|l ad o

000

000137

5853

BB
ROZR8

£ LLLLLLL
L L

N—=—QNNNOWNY
Lo
LONNE

NLL£LL
OO0NNO

s Pone Pt it P ot P Pt e ot Pt o [

SLrLfrLfrrfrrrLrfrfffr

LG
Lo

PUNUTU NI PUNUN) s bmo bres bme e

Laad ond ol ol o ol ot ot X o o Sy

000000000 O00O0O

DOODO

Ll X T )

O00000000000

159%:

007474

BIT
BEQ

TYPE

001205

ocoo1lo

007474

179

18%:

000137
000137

013356
014SSY4

012765
013737

000040
001406
032320

20s:
128:

SODEVM, R2

:APT DEVICE MAP

na;ro,ne

;sss }F

68 VS

SCRLF

44713
007474

DRV

IN DEVICE

IN§R RIVE
N

COUNT

1
0

TST
INC
CMP
BEQ

RO
#8. RO

(R1)+

: ADV Pgiursa TO NEXT FLAG

178

:BR

ROR
BR

R2
158

;ELSS GET NEXT BIT OFF DEVICE MRP
'8 TRY AGAIN

oa;vs

;SEE }r MORE DRIVES PRESENT

ERROR
HAL

;Ng onxvsa FOUND IN SDEVM
:SETUP CORRECYLY & PRESS 'CONTINUE®

JMP
JMpP

MOV
MOV

18
VERIFY

STS

VERIFY

;;

TYPE DRIVE

SINC DRIVE
‘ALL B8 TESTED”

IF YES

'BR
IF
NO
:CLSE EXIT TEST & SETUP FOR RKO?'S

:T0 TRY RGAIN
:DO0 NOT SIZE,

GO TO NEXT

;SUBSYSTEM CLEAR

Pg #ROY
180

;FéNO R?Y
:ROY NOY SET BY END OF SCLR

‘SET TIMEOUT

:SIZE BUS?
'BR IF NO
"WILL TEST DRIVES

‘8 OF DRIVES PRESENT

RO
#DRIVO,RI

:DRV ADDR
‘DRV FLRG

;RESTORE STK PTR

gie7zo1

007476

104415
012706

0ol100

$STACK, SP

800040
01406
032320

T10, TEMPI

‘SEY

RO, RKCS2(RS)

:SELECT THE DRIVE RDDR

81573
204130

010065
012737

000010

013765
013737
Q04737
013737
004737

007354
001420

#SCLR,RKCS2.RS)

PS #ROY
120

045737 801178
032320

007412
007412

TEST

#SCLR,RKCS2(RS)

T10, TEMP]

ORIVS
198:

MAP

.BYT
.BYTE

SIZFLG
208
MSG10

007S24

‘B
:

;.60 TYPE-- ?TQ
ASCI1I
2 TYPE 1 DIGIT(S)
. 'SUPPRESS LERDING ZEROS

INP

014554

SEQ J0e8

:;SAVE RO FOR TYPEOUT

TYPQ

169%:

PAGE 68

RO, -(SP)

MOV

006002
000756

L od o

Pt Pt et P Pt Pt Pt Pt Pt Pt Pt e

MOV

0B}

335

DO6

30A(1052)
10-JAN-78
11:25
Te
SIZE THE BUSS

104403

3430
3431

MACYI1

o§€ DRY . HCS1
stMPY HeS]
HCS1,RKCS1(RS)
150000, TEMPL

PC,DOLY

116, TEMPL
PC, FRDY

;SUBSYSTEM gLEnR

TIMEOU

;FSND R?Y
:ROY NOT SET BY END OF SCLR
:ADD CDT IF RKO?
:GET STATUS
J

:D0 DELAY TO CATCH MDS

;FIND RDY

O
£ Or—r—W)—Wo
o

wwgw»
£ VNNOVOg%SVVQV

o~ NNUNIN

== N—ORW—nN
L

PoR30888880
22806
O

300

007354

007402
177770
007412

007412
00?412

007466
007474

4s:

001170
001e0s

SR
ERROR

PC,BYP
1

TST

Dt Bt Bt P

Frrriis

£
~
o

££

002000
014146

001170

001000

007356

000400

007356

000001

007366

010000

007356

033026

INC
CLR
cMP
BNE

138:

69:

BNE
ERROR
HALT
JMP
BIT

BEQ
MOV
JMP

BIT

BNE
81T
BNE
BIT
BNE
BIT
BEQ
BR

IF XXDP CHAIN MODE

; INC DRIVE COUNT.
(R1)

(R1)+

RO
STMPY
88.,R0O
18

DRIVS

108
76

STS
8DTYE, HER

1
#COT, STMPY
18

:SET DRIVE PRESENT FLRG

;ADD COT IF RKO?

; ;SAVE RO FOR TYPEOUT
;; TYPE

;3 TYPE

]

; ;GO _TYPE--OCTAL RSCII
DIGIT(S )

; ; SUPPRESS LERDING ZEROS
: TYPE _BYPRSS DR

;SHIFT PTR TO NEXT DR.

:INC DR #
!CLEAR RKO? FLAG

JSR
ERROR

PC,BYP
3

2
Ss

FLRG

;MORE LEFT.

:NO _DRIVES FOUND ON BUSS

;SETUP CORRECTLY
;AND PRESS ’CONTINUE®
:ADD CDT

{TRY

RGAIN

; TYPE

BYP

#MDS, HCS2

PC,BYP

;WRITTEN DR # DOES NOT MATCH RKMR2 DR #

63
SUFE, HCS2
7S
#DRA, HDS
8
#NED, HCS2
93
11

ERROR
R

:S/B SAME

;SEE

$CRLF
RO, -(SP)

39:

TST

307370

cs
DRIVS
(R1)
STMPY,

1
O
3

e B
o Pt Pt Pt Bt Pt Pt Bt Bt

£LLLLLLLLEL

000000000

s Bt Bt Bt

013356
0ooo40

.BYTE
.BYTE
BR

007474

£LL£

B Pt
e

000
00

bt Bt

s Bt pn

i
DO NN LWU—O
Pt bt Pt Bt

WWWWWWWWWW

DOPCH

TYPOS

:NO RDY AFTER SELECT DRIVE CMD.

81C (ORVMSK>
, TEMP

RO, TEMP1
33

TST

BNE
INC
INC
BIS

SEQ 0069

PAGE &9

28
HMR2, TEMP
1

TYPE
MOV

0330ch

117
8CERR,HCS1

TST

BNE

001170
000010

004737
104003

EOG

11:25
10-JAN-78
SIZE THE BUSS

ERROR
BIT
BNE
MOV
BIC
CMP
BNE

Q
4+
0oL
000
w

[=3

LK
W

005721

Bt Bme

004737
104001

Bt Bt Pt

O00000O000O000000

LDn

MACY11l

0
0ooo403

LLLLLELLLLLLELL

LS
KE
WWWWw

0LO0O

Bt Dt

(e e

s Bt e

e B

Bt s Pt Pt s Pt Bm B

un
£
£
n—0O0
rrrw uwmm-——-»—gog;wga‘x}
£OLNNeiEo0rL
oo
o

XL
LELx
WWWwWwWwiswwwrnnnrn

347S
3476
3477
3478
3479
3480

0O0OOO0ODDOOO00OOO000

CZRBEIED UNIBUS RKe DR PRTZ
10-JRAN-78 09:43
CZReIE.PL1

30A(10S2)

;MDS DETECTED

:UFE DETECTED

0 UNIBUS RK& DR PRTZ
10-JAN-78 09:43

MARCY1l

30RA(10S2)
T2

0007eC
032737
001676
104401
010046

010000

0073Se

c§

BIT
BEQ

#NED, HCE2
4§

MOV

RO, -(SP)

TYPE

045266

TYPOS

104403
001l
000
104010
00070S

004737
104004
300701
000137

FOb

10-JRN-78
11:25
SIZE THE BUSS

1
O

JSR

033026

015146

MSG1S

.BYTE
BYTE

ERROR

PAGE 70

;DRV#

: :SAVE RO FOR TYPEOUT
; ;

SPTYPE 1 DIGIT(S)
: : SUPPRESS LEADING ZEROS

‘ORA 8 NED BOTH SET

PC,BYP

JMP

NUDRV

TYPE DR#

;;GO_TYPE--OCTAL RSCII

ESROR

SEQ 0070

:NO DRA & NO NED = OTHER PORT SELECTED

s
e
Pt Pt ot
s Bt
e
Bt Pt oot
P
Dt P
s Pt Bt P

£k
L£LLLrr
£
£
XL

00000000
OO00000D000000

e Bt

LA S

LA
TR LI TRLRI DI DI

888 8

TRPRUYY

;lilliil!llllllllll!}ll!llill!llllll!lll!lll!lllilll!lll*lil!l}l
TEST 3
VERIFY OPERATOR DRIVE SELECTIONS

THIS TEST IS ENTERED ONLY IF DRIVE SELECTION IS NOT

DEFAULTED.
EVERY DRIVE FROM O TO 7 IS ADDRESSED 8
CONTRNLLER ERROR (CERR) IS EXAMINED. IF NOT SET.
THE

PROGRAM WILL R?SUHE THE DRIVE IS PRESENTSSEDQN RKOB
ERROR WAS A RESULT OF MDS OR UFE SET OR BOTH
ONLY IF T

1If CERR IS A RESULT OF
ET (WRONG PORT).
NED 8 DRA
NED ONLY,
IT IS CHECKED RGRINT THE INPUTTED INFOR TO

VERIFY 1t un§ NOT SPECIFIED.
IF CERR DUE

TO DTYE,

THE DRIVE WILL BE TESTED AS AN RKO7.

Iz ZIIIRTTIZIZIRZSIS
SIS
SIS ILIS2RL SRS S22 2L

SCOPE

ITERATION

MOV

81, STIMES

::D0 1

007476

CLR
MOV

RO
#ORIVO,R1

:DRIVE RDDR
:DRIVE FLAG

001100

MOV

#STACK, SP

:RESTORE STK PTR

000001
001100

001174

SCOP1

MOV

000040
001406
032320
000010
000001
001170
0073sY4
001420
033010
001406
032320

MOV

007354
007354
000000
007412
007412

sStAck, spP

#SCLR,RKCS2(RS)

'RESTORE STK PTR

;SUBSYSTEM CLEAR

MOV
JSR
ERROR

T10, TEMPI
PC,FRDY
120

'SET TIME oUT
'FIND ROY
'NO RDY AFTER SCLR

MOV
BIS
MOV
MOV

#SELDRV, HCS1
sTMPY, HEST
HCS1,RKCS1(RS)
750000, TEMP1

R
v
:ADD CDT IF RKO?
GET STATUS
.

110, TEMPL
PC,FRDY
117

:FIND ROY
'NO RDY AFTER SELECT DRIVE CMD.

MOV

JSR

MOV
JSR
ERROR

RO, RKCS2(RS)

PC,DOLY

DRV ADDR

:00 DELAY TO CRTCH MDS

0000000000000

032737

ud upusd st g

013937

ep et
ey et

004737

HS:

3%:

033026

128:

007474
004

000040

007370

002000
014576

001170

032737

001000

D07356

0og400

007356

000001

007366

010000

007356

010000

0073S6

W
WWhy
n—
b—*—g
OOD\J\JS:
m
L
Lkt
£
£N00

o
o
\=]

BIC
cMP
BNE

ofc<bnvnsx> TEMPL

TST

BEQ
BIS
7S7
INC

HMR2,

TEMP1

13%:

;S/B SAME

(R1,

S?HP+H (R1)
R1)
RO
STMPY
#8. ,R0O
19

:SET _CDT_IF RKO
0

SHIFT PTR T0 NEXT DR FLAG

; INC DR

:CLERR CDT FOR NEXT DRIVE
;MORE LEFT

TSTY

:3GO TO NEXT TEST

PC,BYP

; TRY BYPRSS DRIVE®

(R1)
48

;BRANCH IF NOT SPEC BY INPUT

DRIVS

(R1)
4s

sDTYE,HER
1
8CDT,STMPY
18

‘WRITTEN DR® DOES NOT MATCH RKMR2 DR#

*DECREMENT TOTAL DRIVS
;CLEAR DRIVE FLAG

;ADD CDT

:TRY AGAIN

#MDS
, HCS2
6S
SUFE, HCS2

8s:

108:

00S711
001717

ggERR HCS1

80RA, HDS
8s
SNED, HCS2
9s
103

#NED, HCS2
118
(R1)

PC,BYP

04?737
104006
000730

033026

004737
104002
000724

033026

0o4737
104003
000720

033026

s 1

PC,BYP
3
12%

004737

033026

9%:

PC,BYP

=
= 1 =
Ll

032737
00140S
012737
000137

BIT
BNE

MoV

00og47s

0000000

007412
007412

177770
007412

001170
000010

0000

SOy wewi

007402

001170

=
ot
o
e e

007354

118:

0000000000000

000

e
o

000
o

—

W WWWwww
loalealealealeglaglenl

100000

]

Rk& DR PRTg

10-JAN-78 09:43

GDB

PRGE 71
30R(10Se)
11:25
10-JAN-78
VERIFY OPERARTOR DRIVE :ELECTIONS
T3

—

NIBUS

MACY11l

;: TYPE BYPRSS DRIVES

128
6%:

PC,BYP

128

: TYPE BYPRSS DRIVES
‘MDS DETECTED

;UFE DETECTED

CZR6IEDC UNIBUS RKe& DR PRT2
LZRGIE. P11
10-JAN-78 09:43

MACY11l

PAGE 72
30A(10S2)
11:25
10-JAN 7?8
T3
VERIFY OPERRTOR DRIVE SELECTIONS

EgROR

¥ Bielia AB3R%Y

TES

SEQ 0072

;DRA 8 NED RESET - OTHER PORT SELECTED

3645
3646

THIS PART CF THE PROGRAM WILL BE REPEARTED FOR ERCH
DRIVE PRESENT
sunxr' gnrnxns THE ADDRESS OF THE DRIVE CURRENTLY

unoe
015146

00s03?

001516

glci1se

00s037

001170

NUDRV:

CLR

BYPCERR

CLR

STMPY

22222223

irssr Y

000001
001100
000004
000004

001174

—

Q
£
£
(&]

000137

013701

4§

1%:
23:
{3

3s:

n
~N
W
N

o
Q

)n
— ~
w (V]
~~

002000

045266

001170

ARSI
SS IS
L 2]

6%:

1 ITERATION

;
STK PTR
hssrone

157

BNE
TYPE
JMP

DRIVS

qs
MSG27
$E0P]

: ANY onxvss PRESENT?

MOV

DRVPTR,RI1

;ADDR OF NEXT DRIVE FLAG

TST
BEQ
INC

$STIMES

#$TN-1
#STN-1.STSTNM

$DEVCT’
2$
SUNIT

:YES BRAN
PALL ovaes TESTED
:NO, GO TO END

‘1S FIRST DRIVE BEING CHECKED
*YES, BRANCH
:INCR DRIVE RDDR TO NEXT DRIVE
1S DRIVE PRESENT?
'BR IF YES

15T
BNE

(R1)
S$

igx)+

'ELSE FIND NEXT DRIVE

TST
BEQ

DDPCH
33

:DDP CHARIN MODE”
:BR IF NO

TST
SUNIT
3
E
TST(R1)+

O0lece

002000
001342

FIND NEXT DRIVE TO BE TESTED

SP
ns?ncxSTESTN

EET
007466

2222222232222 22X22X2XX2XX22T

MOV

MOV
MOV

04SM432
g3i1sie

00lee2

CERR IN 'FRDY'

.srx NG
AL

THIS TEST FINDS THE NEXT DRIVE PRESENT & PUTS THAT
ADDRESS IN ’SUNIT’ & $TMPY IS SET TO CDT IF DRIVE IS RKO7.
THROUGHOUT THE FOLLOWING TESTS, THE DRIVE TESTED IS
THE DRIVE WHOSE ADDRESS IS IN
"SUNIT’

MOV

00ie2ly
001102

001342
001220

LLOW
CL AR

*Ql!ll!llllllllllllll*llllllll}llllllillllll!llllll!ll!lill!illl!
TY:
SCOPE

007474

[, —

i
U

i
univ
AN
NOC oW
L L
O £0O0NO0NL
vy
WwWw -0 Q NN
o oo

000004
012737
012706
012737
012737

-0 o

pe 282 3T BRGST

e Prume P

i
Py
—

Pt o
Pt ot Pt Pt

0000

s Pt Pt Pt oot et
Do bt Pt Pt Pt

Dt Pt Pt et et Pt Pt Pt

00000000000000
00000

i
RN

00000

l
»
*
:

ENTER ERE FROM LAST TEST

BIT

BEG
MOV
MOV
TYPE

#CDT, (R1)+

63
$CDT, STMPY
RI,DARVPTR
,M5G1S

‘ELSE SEE IF DRV O
'BRIF _NO
'ELSE FIND NEXT DRIVE PRESENT
:SEE IF DRIVE UNDER TEST IS RKO7

NO
'BR _IF
'ELSE SET RKO? FLAG
:STORE POINTER TO NEXT DR FLAG
:*DRIVE"

CZREIEC UNIBUS RKB DR PRTZ2
CZRGIE.PILI
10-JAN-78 09:43

g;g?

015322

015316

013700

3702
3703
g;gg

015324
015326
015327

104403
001
000

3699

010046

106

MACY11l 3DA(10Se)
10-JAN-78 11:25 PAGE 73
T
FIND NEXT DRIVE 10 BE TESTED
MOV

001222

g;gg

;

MOV

RO,-(SP)

;;SQ¥$ER2 FOR TYPEOQOUT

TYPQOS
.BYTE
.BYTE

1
0]

;360 _TYPE--0CTAL RSCII
;s TYPE | DIGIT(S)
; ; SUPPRESS LERDING ZEROS

TYPE

, SCRLF

S TMPY
7S
#632,LC

708
3709
3710

018330
015334
015336

005737
001017
012737

000632

015434

1ST
B8NE
Mov

3712
3713

015350
018356

012737
012737

001000
000777

015436
015440

MOV
MOV

3711

3714

g;%g
3717

015344

0183e4

015372
015374

005037
012737

000425
012737

001170

015444

160017

001456

000400
002000
001777
140017

CLR

015442

O0OlS434

015444
015436
015440
015442

MOV

BR
7§:

SUNIT RO

SEQ 0073

MOV

MOV
MOV
MOV
MOV

E.oot

;SEE IF RKO7 UNDER TEST
;BR IF YES
;ELSE LOARD RKO®& PRARAMETERS

#1000 MC1
4777 .t RSK

#160017, MASK1

18715

;;GOTO NEXT TEST

#1456,LC

;LORD RKO7 PARAMETERS

TSTS

;;GOTO NEXT TEST

#0.00%t,E.oOT
OEOOO,fiCl
#1777 MASK
8140017,MQSK1

3718
3719
3720
3721

015402
015410
Q018416
015424

012737
012737
012737
Q12737

3724
3725
3726

015434
01S436
015440

000000
000000
000000

LC:
MCl:
MASK :

0
0
0

;LAST CYL
;MAJ CYL + 1 SHIFT

g;gg

015444

000000

E.ODT:

;EXPECTED DRIVE TYPE TO E.AC

g;gg

3727

3730

3731

015432

01S442

00040Ss

000000

MASK1:

015446

;&TEST S
; *

3734

g;gg

¥
. %

015446

000004

015466

012706

3739

QIS450

3742

Q015462

3744

015470

3743

(012737

000001

005737

001216

004737

034214

104401

045300

004737

033664

015466

001042

g;:g

015474

104024

3747

0Q1S476

3749

015510

3748
3750
3751
3752
3753
3784

:ENTER HERE FOR POWER FAIL RESTART

;-ii*1*iii;i4&1!!*{i;iiliii&iliii:i}!i!51;&;!!ii*iiiiiii;;*iii;;}

g;:?

PFSRT:

gzgg

3737
3738

B8h

015502

012765

Ql15Si4
Q015520

013701
012704

015224
015526
015532

(010446
012703
006101

001:C0

000003
007402
042614

000003

001174

PRINT DRIVE SERIAL NUMBER

THIS TEST READS & PRINTS THE DRIVE SERIAL # FROM MSG A, WORD 11
IN BCD & 1S PERFORMED ON THE 1ST PARSS ONLY

MOV

81, STIMES

TS7T

$PASS

JSR

PC,SUBCLR

MOV
BNE

ERROR

000026

E NN RN

L NENNEENE RN
t&815:
sScoPE

TYPE

lenCK,SP

RN RN RN RN AR R EERRRBRRREE

;::00 1 ITERATION

;RESTORE STK PTR

1576

;:GO TO NEXT IF NOT FIRST PRSS

;CERR RAFTER SCLR

;bO SUBSYS CLERR

MSGl6

;DRIVE SERIAL NO.

JSR

PC,GSTAT

;GET STATUS

MOV
MOV
ROL

R4, -(SP)
#3,R3
R1

MOV
MOV
MOV

53,RKMR1(RS)

HMR2,R1
OSOCTVL,RH

;SELECT BYTE 3

;GET SERIAL &
;GET ADDR CHAR BUFF

:STORE ON STACK FOR SSUPRS
;SETUP CHAR COOUNT
;INITIRLIZE BIT POSITIONS

CZR6IEC UNIBUS RKE DR PRT2
10-JAN-78 09:43
CZREIE.P11
3755

015534

006101

37567
3758
3759

015540
015542
(015544

006101
006101
006101

3756

3760

3761
3762
3763
3764

3765
g;gg
3768

3769

015536

015546

018550
016554
015560
(015562

015564
015566

015570

JOb

MACY11 30R(1052)
10-JAN-78
11:25 PARGE 74
PRINT DRIVE SERIAL NUMBER
TS

006101

010100

042700
(052700
110024

18:

177760

000060

001364
105014

043062

:
:

‘

015574

000004

015604

012706

001100

3782

015610

004737

034214

3785

015616

032737

000100

3788

015626

015630

012706

001100

3791

015634

004737

034214

3794

015642

015650
015654

004737
104116

032224

000003

3798

015656

032737

000100

gggg

015666

104027

g;gg

3795
g;gg
3799

:GET NEXT 4 BITS

MOV

R1.RO

:GET WORKING COPY

DEC

18
(R4)

;BR IF ALL 3 CHARS NOT DONE
'ELSE INSERT NULL TERMINATOR

JSR

PC, SSUPRS

s TYPE

TYPE

§CRLF

TYPE

#177760,R0
%60, RO
RO, (RY)+

,SCRLF

:CLEAR ALL BUT LOW 4 BITS
:CO{IVERT TO ASCII DIGIT
:FJT ASCII DIGIT INTO CHAR BUFF

2111212122222 2222222222X222XXX2222222X22222222222 28
SET VV WITH PACK COMMAND

;

016576

g;gg

IF vV IS RESET, THE PRCK COMMAND IS USED TO SET IT.
22 YYx22222222222222222222X222222222 X2 222222224
.. Y Yy I
t$T6:
SCOPE
::

3779

g;ga

R1
R1
R1

2222
HH Yy
;iTEST 3

3772
g;za

g;g?

ROL
ROL
ROL

BNE
CLRB

g;;?

g;;g
3777
3778

ROL

BIC
BIS
MOvB

005303

004737

ROL

SEQ 00TY

015614

015624

01S6M40

015664

012737

104024

001021

104415

104024

012737

001001

000001

001174

MOV

sstack, sp

JSR

PC, SUBCLR

ERROR
007402

BIT

BNE

SCOP1

MOV
JSR

81 STIMES

#D. VV, HMR2

::D0 1 ITERATION

'RESTORE STK PTR
:CERR AFTER SCLR

1677

::GO TO NEXT TEST IF vv SET

#STACK, SP

:RESTORE STK PTR

PC, SUBCLR

ERROR

:CERR AFTER SCLR

007354

MOV

PC, DOLMD
116

#PACK, HCS1

:D0 PACK CMD & GET CONTR RDY
‘RDY NOT SET AFTER PACK CMD

007402

BIY

JSR
ERROR
BNE

ERROR

#D. VV, HMR2

1577

;:GO TO NEXT TEST IF VV NOW SET

:PACK DID NOT SET V.V.

3804
3382

[ 396 3636 36 3 36 36 3 36 3 96 35 3 36 36 38 3 36 3 36 3 36 3 36 3 36 3 36 36 36 3 36 36 3 3 36 36 3 38 36 3 3¢ 3% 3¢ 3¢ 2 36 36 3 3 3 3 3 96 3 3 2 2 3 3 3 %
JRTEST 7
READ 8 SAVE BRAD SECTOR INFC _ TYPE PACK SERIAL #

3807

‘e

3808

3809
3810

12"
¥

THIS TEST VERIFIES THAT CYL 632 (1456 FOR RKO?),

TRACK 2 CAN BE READ.

THIS ARER CONTAINS BAD SECTOR INFO WHICH IS WRITTEN BY THE

FACTORY DURING MANF.

ALL BAD SECTOR INFO (BSE) WILL BE STORED

AT THIS TIME TO MASK FUTURE RERD HEADER OR DATA ERROR PRINTOUTS.

MACYL1]l

KO6

3CA(10S2)
10-JAN-78
11:25
PRGE 75
1?7
READ & SAVE BAD SECTOR INFO 8
;l

SECTORS 1,3,5,7,9 CONTRIN IDENTICAL INFQ FOR 20 SECTOR HARDWARE DETECTED BAD SEC

IF BSE INFO CANNOT BE RERD,

x
L x

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

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

‘e
¥

Lwhnyr
OL£0Con

012765

100000
Q0le222
000013
03222

000000
000010
007354

012765

000001
033664
020000

000026

104124

£ L£WWWN
=
noocnno£000 v

~N
£

762

100000
00lz2e2
000005
032224

000000
000010
007354

MOV

MOV
MOV
JSR
ERROR
MOV

H4S:

007414

007416

$TIMES

sfncx SP

PC, SUBCLR

#1,RKMR] (RS)

ERROR

244

ERROR
MOV

ITERATION

:CERR AFTER SCLR

#CCLR, RKCS1 (RS)

PC.,GSTART
80’ RTZ, HMR2

MOV
JSR

DO 1

hssrons STK PTR

SUNIT RKCS2(RS)
8RECAL , HCS1
oo RECAL CMD & GET CONTR RDY
PC, DOCMD
RDY NOT SET AFTER RECAL CMD
12%

JSR
BIT
BNE

ecs

005037
005037

THIS IS DONE SO AS NOT TO DESTROY BSE INFG OR AN ALIGNMENT PACK BY WRITING

MOV

032602

034214

OR IF AFTER READING THE ase INFO

IT IS5 DETERMINED THAT AN ACIGNMENT cnnvnxoce IS USED

: Y3222 222222222%22222222222X2X22X2X222X2X2232T2X2X222XT2E LR L
+8717.
SCOPE

007402

007414

004737
104024

SECTORS 11,13718,17,19,21 CONTAIN IDENTICAL INFO FOR 20 SECTOR SOF TWARE DETECTED

ERROR

001406
032634

INFO FOR 22 SECTOR HARDWARE DETECTED BAD SEC

SECTORS 10, 12)1%,16,18,20 CONTAIN IDENTICAL INFO FOR 22 SECTOR SOF TWARE DETECTED

JSR

034214

£
N

001174

004737
104024
000000000
oo,
wgrnmuunm01lnmuunm

00000

[ Y Y ESy

00000000

Pt Pt Pt Pt Pt s Pt P

000000000

000001
001:00

IDENTICAL

SES 007S

SECTORS 0,2,4,6,8 CONTRIN

000004
0127237
012706

TYPE PACK SERIAL #

Pt Pt Pt s Pt Pt s Pt Pt

OO0

0 UNIBUS RKE DR PRTZ
Pll
10-JAN-78 09:43

648

110, TEMP2
PC,FATTI
S5

#CCLR,RKCS1(RS)

;SELECT WORD 1

sRTZ NOT SET ounxnc RECAL CMD

serup TIHEO
A
:FIND
:NO RTTN RFTER RECAL CMD
;DRIVES

MOV
MOV
JSR
ERROR
éER

SUNIT RKCS2(RS)
#CLERR, HCS1
PC,DOCMD
15}
ggtTSTQTN

;D0 DRIVE CLEAR CMD & GET CONTR RDY
:NO RDY AFTER DRIVE CLEAR CMD
*TEST FOR ATTN

ERROR

154

:ATTN NOT CLEARRED AFTER DRIVE CLEAR CMD

JSR

ERROR

CLR

PC, SUBCLR

:CERR AFTER SCLR

TEMP2

s SECTOR CTR

TEMP3

'D=22 SECTOR HARDWARE DETECTED TABLE

CZRGIEQ UNIBUS RKG

C%RbIE.Pll

DR PRT2

10-JAN-78 09:43

MACY11l 30A(1052)

10-JAN-78

LO6

11:25

PAGE 76

3867

016060
016066

012727
013765

003336
007420

007420
00000M

3875

016110

0123765

015434

000020

016074
016102

012737
013765

001000
007422

007422
000006

375 Dieiis Big7% 40ad3D 899334
B8
Blelx iy e
3880 016140 004737 033664

#1000, TEMPS
TEMFS, RKDA(RS)

s TRACK 2,

MOV

LC,RKDC (RS)

;LAST CYL

016154

104227

3685

C16156

012737

010340

007444

MGV

3887
36888

016170
016176

012737
0ie737

00i720
000001

007450
007452

MOV
MOV

3886

016164

005037

007354

BIT

BEQ

ERROR
007446

TN
HER By M o
3835 016216 012737 000003 007462
3893

016224

004737

3837

016236

104056

3300
gggé

016242
016246

004737
104024

Q34214

3303

016250

005237

007414

3305
3906
3907

0l6ebe
016264
016270

001023
005737
001002

3894 016230 000000
3996 016539 1Duo3e
gggg

3304

016246

0162€4

104030

023727

gggg

8{25;3

683538

3910
3911
3312

016276
016304

023727
001002

ggig

016310

000422

3919

0167'2

023727

3913

3917
3918
ggég

gggé

016306

0if
0
QOltse2
016324

8{2358

033042

007414

00000S

007416

000001

2%:

104230

001002
104234
000414

éggs?é

YS$:

6% :

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

#3.E.B3

;EXPECTED MSG RO

.EXPECTED MSG' BO

o<o.spoxao.cnnrsb.gooa:o gnuneg.g P>,E.Al _;EXPECTED Al
sl E.B1
iMSG ID EOR EXPECYED' MSG B1

yE.

o S X

iMSG ID FOR EXPECTED MSG B3

JSR

.WORD
ERROR

PC, CHKMSG

;CHECK MSGS

ERROR

0f0f0
26

ERROR

:MSG Al ERROR

:MSG Bl ERROR

JSR
ERROR

PC, SUBCLR
24

s CERR AFTER SUBCLR

INC

TEMP2

BNE
TST
BNE

13
TEMP3
2%

RO,

BO,

Al,

18 MSGS gpécxrtsg HERE
2% B9 ERmoR T on READ DATA €MD

TEMP2, 45

:READ ALL S SECTORS?

ggaon

gga

:CANT RERD SECTORS 0,2,4,6,8

CMP
BNE

1EMP3,
81
49

CMP

:CERR AFTER READ DATA CMD

R
MOV

000002

227
£.80

ERROR

007416

#CERR, HCS1

“LR

CMP

007416

SECTOR O

MOV
5RarATKHE(RS) LOAD WORD CT
Rhon
ZRCRTCRO0g
RERO.2AIA CERGFOSEE £
JSR
PC,GSTAT
:GET FRESH DATR

ggga

001504

100000

;STORE 22 SECTOR HARDWARE BSE ADDR.

0l6l44

016152

032737

$8SE22H, TEMPY
TEMPY, RKBA(RS)

MOV
MOV
1S:

$238 SEETOR HaNuARE BEIRCTED TRt

MOV
MOV

3881

3882

‘

:1=22 SECTOR SOFTWARE DETECTED TABLE

3870
3871
3872
gg;g

SEQ 0076

READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL #

230

:CANT RERD SECTORS 10,12...

TEMP3, 82

BNE
ERROR
BR

6%
234
33

:CANT READ SECTORS

ggnon

531

:CANT RERD SECTORS 11,13,15 ...

1,3,5

...

CZRGIEOD unxaus RK& DR PRT2

10-JAN-78 09:43

CZRBIE.P11
3923

3924

016332

013765

007420

MACY11 30A(1052)
000004

3325
3359

016340
Siggqa

062737
8637§§

000002
007422

gggg

0}2355

ooggg7

001512

3934

gggg

016374

016400

005237

001512

3937
3338
3339
3340

016402
815405
Q16414
016416

005237
23727
001020
005037

007416
007416

12737
137 ;
127
013765
000137

;33
1018
007422
016110

8 80
422
ooooos

3947
3948

(016456
016464

023727
001020

007416

000002

3350
395]
3952
3353

016472
016500
016506
0165I4
016522

012737
013765
012737
013765

000137

002336
0067420
001001
007422

007420
000004
J07422
J00006

3356

016526

023727

007416

000003

3958

3959

3960
3361

016536

815 42

005037

012737

007414

004336

3962

ggga

016564

013765

007422

3965

016576

005737

001216

3967

016604

104401

045324

3327

sS4

0057
512332¥ D01y

gggé
3933 016372 104235
9y
Y
Y4
3944
gg:g

3949

gggg

3957

3366

164
124
164
016444
016452

l#l

000476

007422
000006

007414

égc

gsggg

ERRCR
INC

235
BSERR

INC
CMP

TEMP3
TEMP3 0l
18
TEMPE

BEQT

93 :

BNE

CLR

3%E 2H+6
108

TEMP3, 82
128

MOV
MOV
MOV
MOV

8BSE20H, TEMPY
TEMPY, RKBA(RS)
#1001, TEMPS
TEMPS) RKDA(RS)

CMP

TEMP3,
83

007420

016850 013765 007420 000004
016556 012737 001013 007422

CLR

MOV

TEMP2

016572

000006

MOV
JMP

TEMPS, RKDA(R5S)

157

$PASS

016466

016534

016602

005037

001020

000137
001040

007414

016110

042512

3371
gg;g

O0ieke4
016630

104401
104401

001205
001205

3378

016620
016634

016640
016642

004737

104024

012737

CLR

JMP
12%:

BNE

MOY
MOV

108:

BNE

TYPE

MOV

JSR

043062

108

cg E20 S

MPY, kan(RS)
#1013, TEMPS

t ANCH
T nRI 3
RID ? cnngnxocs
5
QLIGNHENT CARTRIDGE USED
,

:SET BSE ERROR FLAG

;SECTOR CTR

:STORE 22 SECTOR SOF TWARE BSE ADDR
s TRACK 2, SECTOR 12(8)
: REPEART
:SECTOR CTR

:STORE 20 SECTOR HARDWARE BSE ADDR.
: TRACK 2, SECTOR 1
; REPEAT

;SECTOR CTR

'STORE 20 SECTOR SOF TWARE BSE ADDR
: TRRCK 2, SECTOR 13(8)
:REPEAT
;:GO TO NEXT TST IF NOT 1'ST PASS

PC, 30820

; CONVERT DBL BINARY WORD TO OCTAL

G17

heseeau -(SP)

JSR

PC, SUBCLR

MOV

seg B§E gan
E

15710

PC' $SUPRS

ERROR
007354

TEMP2

JSR

TYPE
TYPE

034214

000017

11$:

;RESTORE TABLE RDDR

%2, TEMPE
:READ 2 SECTORS FROM LAST
TEHPS,RKDQ(RS)

CMP
BNE

004737

gg;g

TEMPY,RKBAR(RS)

ADD
MOV

#E 5323 3
KBA(RS)
#1012, TEMPS
TEMPS| RKDA (RS)
18

016614

3975

MOV

MOV
MoV
MOV
MOV
JMP

3969

3974

SS$:

3368 016610 012746 003336
3970

PAGE 77

READ & SAVE BRD SECTOR INFO & TYPE PACK SERIAL #

8S:

000001

MOG

11:25

3%:

003344

10-JAN-78

, SCRLF
" SCRLF

¥SEEK, HCS1

:LART SERIAL #

:TYPE SERIAL #

:CERR AFTER SCLR

:GO BRCK TO CYL O

SEQ 0077

CZRBIEQ UNIBUS RK& DR PRTZ
CZRBIE.PI
10-JAN-78 09:43

3979

ggg?
3982

004737

032224

016656

013737

001420

007412

MOV

032737

100000

007354

BIT

016654

Q016664
016670

3986

016672

gggg

016702

3990

016704

3991
3992
3993

MACY11l 30A(1052)
10-JAN-78
11:25
PAGE 78
17
READ & SAVE BRAD SECTOR INFO & TYPE PACK SERIAL #

016650

3983
gggg

3987

NOb6

016700

104131

004737
104132
00140}

032730

JSR

ERROR
JSR
ERROR

131

750000, TEMPL

PC,FATY2
132

ERROR

663

210

.SBTTL WRITE TESTS

3997

§ 5 BN

4000

gggg

iTEST 10

400]1
4002
4003
388;

s #
s
o ®
;:

4006
4007

016704

016706

012737

000001

4011

016720

00S737

001512

DOOOGM

3898 016714 012706 001100
40l2
4013
4014

3812

016724
016726
016732

016736

No RDY AFTER SEEK CMD
;SETUP TIMEOUT

FI D ATTN
NO ATTN RFTER SEEK CMD
;CERR AFTER SEEK CMD

66%:

3994

4008

;D0 SEEK CMD & GET CONTR READY

#CERR,HCS1

BEQ

104210

PC,DOCMD

SEQ 0078

001406
104401
104401

000137

001174

I IR I I

U000

00060 006 00000 0 000006

306 0N

BASIC WRITE DRTA TEST; 1 WORD

M N R

NN RN

THIS TEST VERIFIES THE ABILITY OF THE DRIVE TO WRITE JUST ONE WORD,

ALL SECTORS ON CYL O RRE GIVEN IDENTICAL HERDERS &
A WRITE COMMAND 1S ISSUED. RERD & WRITE CHECK COMMANDS RARE NOT
PERFORMED. THIS TEST PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP
FOR A WRITE ERROR.

o I IE 60600 06 36 36 36 96 06 06 36 36 36 36 36 36 6 36 36 36 36 36 36 36 36 36 36 96 36 36 36 36 36 36 36 36 36 36 6 36 36 38 "0 36 36 30 36 96 6 36 36 36 36 36 36 36 36 6
$4710:
SCOPE
MOV

MOV

#1,STIMES

TST

BSERR

IMP

$§e0P

BEQ
TYPE
TYPE

045662
045354

031452

;

ITERATION

fiESTORE STK PTR

;SEE _IF ALIGN CART

23
, MSGH0
' M5G26

BR IF
NO
BSE OR ALIGN CART USED
QBORTING BAL OF TESTS

JSR
ERROR

PC,SUBCLR
24

;CERR AFTER SCLR

4017
:8{2

0l6742
016746

004737
104024

034214

:85?

016750

005237

007340

INC

BARDHDR

;USED FOR VALID HALT

:gsg

016754

042700

001522

MOV

#HDTAB, RO

;MAKE ALL CYL 0 HERDERS IDENTICAL

(RO)+

;sHEADER WORD 0:

4024

29%:

OSTRCK SP

4025
:ggg

0l67e2
016766

016760

005020

012720
(012720

140000
140000

4028

016772

020027

001726

4031

017000

012765

001522

000004

MOV

#-66. hKNC(RS)

4034

017014

012737

000027

007354

MoV

$<WRHEAD> ,HCS1

:ggg

:83%

016776

017006

001370

0i27eS

177676

1%:

CLR

#140000, (RO)+
0140000 (RO)+

HERDER WORD 1: SECTOR O
HERDER WORD 2: XOR OF 1 & 2

CcMP

RO, #HDTAB+132.

;ALL HEADERS DONE?

$HDTAB,RKBA(RS)

;HEARADER TABLE

BNE

000002

CYL O

MOV
MOV

;BR IF NO

NORD COUNT

(22Xb=132)

CZR6IED UNIBUS RK& DR PRT2
CZREIE.PI1
10-JAN-78 09:43
403S

4036
4037
4038
4039

4040

4041
4042
4043
4044

4yous

4046

:gzg
4049

3829
4052

017022

004737

017026
017030
017034

104200
004737
032737

017044

104201

017042

017046
017052

017056
017056

00I40S

104401
000137
104415

03366M
100000

JSR

007354

0Q4S3sS4
031452

012706

001100

017064

004737

034214

017072

005037

104024

MACY11l 30R(1052)
10-JAN-?8
11:25 PARGE 79
T10
BASIC WRITE DATA TEST; I WORD

032262

017060

017070

BO7

001402

200
PC,GSTAT
cctRR HCS1

'NO RDY RFTER WRITE HEADER CMD
'GET FRESH STATUS

ERROR

201

:CERR_AFTER WRITE HEADER CMD

#STACK, SP

:RESTORE STK PTR

TYPE
IMP

SCOP1

MOV

JSR

SECTOR

MOV

oonrn1 'RKBA(RS) 'DATA TO BE RLL 1’s

000006

3822

0i7ll2

012765

177777

000002

4058

017120

012737

000023

007354

MOV

4060
406!
40e2

017132
017134
017140

104011
004737
032737

033664
100000

007354

ERROR
JSR
BIT

4065

017150

032737

000200

007370

4067
:ggg

017160
017164

004737
000455

035700

4070

(17166

005237

001402

4g72
4073
4g74
4075

017200
017..2
017204
017210

001003
1040496
000137
012765

3833

017222

104012

4079

017224

4057

4059

3823

4066

4071

4076

4080
4081
4082

4083
4084

3832

017126

017146

017156

017172

017216

004737

00I46S

001421

023727

000012

017406
100000

000000

017076

012737

010340

00S037
012737
012737

017256

012737

017264

001402

000137

017232
017236
017244
017252

032262

005037

012737

4087

017272

004737

4080

017302

104023

4088 01727 000003
4089 017300 104052

000004

007446
001720
000001
007454
000002

000003
033042

007444

MOV

JSR

SECTOR,RKDA(RS)

1, RKHNC (RS)

c<uRonTn>,Hcsx

PC,DATCMD

:CERR AFTER SCLR
; TRACK/SECTOR #

:WORD COUNT=

;00 DATA
X FOR CMD 8 GET CONTR RDY

11
PC,GSTAT
octRR HCS1

'NO RDY AFTER WRITE DATA CMD
'GET FRESH STATUS

688

:BR IF NO ERRORS

#BSE, HER

;SEE_IF BAD SECTOR FLAG

JSR
BR

PC, TRUERR
67$

*ELSE SEE IF SECTOR LISTED IN BSE TARBLE
"RETURN HERE IF NO

INC

SECTOR

65$:

BNE
ERROR
JMP
MOV

6S$
:BR _IF
NO
46
:ABORTING TEST DETECTED 10 BAD SECTORS
5§
*BYPRSS TEST
#CCLR,RKCS1(RS); TRY ANOTHER SECTOR

6638 :

ERROR

BEQ
BIT

BEQ

CMP

JMP

MOV

007450
007452

CLR
MOV
MOV

007456

MOV

(J7462

PC, SUBCLR

:ABORTING BAL OF TESTS

CLR

001402

001500

MSG26
$§E0F

017076 ,013765

017104 ‘012765

648

ERROR

4053

4054

3%:

:D0 DATA
X FOR CMD 8 GET CONTR RDY

ERROR
JSR
BIT
BEQ

6Y4S:

PC,DARTCMD

SEQ 0079

6563

SECTOR, #10.

'BR_IF NO

:RETURN HERE IF YES

*ARE 10 CONSEC. SECTORS BRD

:CERR WITH WRITE DRTA CMD

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

;EXPECTED MSG RO

£.8B0
-EXPECTED MSG'BO
#<D.SPOK!D. CRRT'b DOOR!D.BRHM!D.SSP> ,E.Al _ ;EXPECTED Al
sl E.BI
MSG 10 FOR EXPECTED MSG Bl

CLR

E.A2

EXPECTED MSG A2

MOV

#3,E.B3

nsc 1D FOR EXPECTED MSG B3

JSR

PC, CHKMSG

: CHECK nscs RO,

ERROR

_WORD
ERRGR

%2, E.B2

T.A2'T.B2'0
se

MSG 1D FOR EXPECTED MSG B2

568 sptchiED HERE
;MSG AD ERROR ARFTER WRITE DATA CMD
*MSH BO ERRCR

CZR6TEQ UNIBUS RKB DR PRT2

CZROIE.Pil
4091

10-JAN-78 09:43

017304

104053

MAC 11

9053
1P4%8Y 83?332
gusasy
4833 01300
Biggig 680185

3839

4095

017322

(17320

104063

4088

017322

012737

010340

4101

017342

012737

000001

4099
4100

4102
4103

3%82

4106

017330
017334

005037
3157 7

007454
880005
033042

4107

017374

017370

004737

4109
4110

0174%00
017402

104023
104053

4112

017406

000003

4108 017376 104052
4111

4113

007446
001720

005037
815737
012737

017404

710

67%:

6583

017350
817 Sy
17382

30R(10S2)

0003

007444

JAN-?

:MSG Al ERROR

ERROR

:BAD SECTOR NOT LISTED IN TABLE

e
JMP

MOV

i! RBORPING
BAL OF TESTS

#<0'D.SPIN'D.DRDY!D.VV'D.DRA) ,E.R0

007450

007456

CLR
MOV

E. AE
s2,E.B2

(EXPECT9
;1 MSG
OR

CTED MSG B2

JSR

RROR

PC, CHKMSG

; CHECK nscs no

80,

ERROR

53
2S5

*MSH
IMSG nx ERROR
:MSG Bl FRROR

007452

MOV

007462

MOV

LWORD

RROR
ERROR

104025

5§:

81 E.BI

MSG 10 ron EXPECTED’ MSG B!

#3,E.B3

' MSG

T.A2'T B2'0

o FOR

4118

:ig?

4119

017406

000004

012737

000001

8Y TH

001174

8 CHE xsg BY A R

ALL ZEROS ARE WRITTEN BY THE WRITE DATA COMMAND

T CHK COM

onrn COMMAND.

A FURTHER CHECK IS PERFORMED

THE ABOVE 1S REPEQTED FOR AN ALL ONES PRTTERN.

’ o J53636 3 36 36 36 3 3 3 3 3% 3 3 36 36 38 3 3 3 3 3 3 36 36 3 3 I 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 I 3 3 3 3¢ X 3¢ K% 3% ¥ % K% H
$4T11:
SCOPE
MOV

MOV

81, STIMES

JSR

PC, SUBCLR

sStAck, sp

;

ITERATION

hssrone STK PTR

017422

004737

034214

4130

017430

017436
017444

012765

012766
005037

001522

177676
001346

000002

MOV
CLR

#-66.,RKWC(RS)
TocyL’

:STANDARD FORMAT

4139

0174

013737

001346

001362

MOV

TOCY

:igg

017464

017472

012737

000000

001466

MOV

:SETUP

4136

MOV
JSR

oo FORMAT

PC.FHDTRB

'TRBLE

4139
4140

017476

012737

000027

007354

MOV

4i44

017516

032737

033664
100000

007354

104024

4135 Q017456 012737 000000

4146

017524

017526

THIS TEST VERIFIES THE ABILITY OF THE DRIVE TO WRITE

A FULL SECTOR.

017426

4145

Al,

SPECIFYED HER

M c n EanonQFTER WRITE DATQ CMD

:igg

017504
017510
0175.2

CTED MSG 83

BRSIC WRITE DATA TEST; FULL SECTOR

:}gg 017416 012706 001100

4141
4l42
4143

;EXPECTED Al

llillllli«llll!llllllllllllIlllll!llll!llllllllllillllll!i*llli!

4131
:igg

;EXPECTED MSG AO

E.BO
.EXPECTED MSG' B0
8<D.SPOK!D.CART! 6 DOOR!D.BRHM!D.SSP> ,E.Al

4117

4127

“Rsgae
5533

CLR
MOV

4116

017410

SEQ

ERROR

frssr 11

4124

AGE 8

rdToTARTTE oAtaTest ot 38ro

31%2

Y122
4123

cav

004737
004737
104200
004737
001405

104201

035212
032262

ERROR
000004

001460

MOV

#HDTARB,RKBA(RS)

CALARDD

o<uRHsno> HCS
1

JSR
ERROR
JSR

PC,DATCMD’
200
PC,GSTART

BEQ

648

BIT

ERROR

#CERR, HCS1

201

:CERR AFTER SCLR
;RESTORE TO 22 SECTOR

70 FILL
' HERDER

;D0 DATA
X FOR CMD 8 GET CONTR RDY
'NO RDY AFTER WRITE HERDER CMD
'GET FRESH STATUS
:CERR AFTER WRITE HEADER CMD

0080

CZREIEQ UNIBUS RKb DR PR72
CZRBIE.P11
10-JAN-78 09:43
4147

4148
4149
4150
4151
4152
4183
ngfl
4155
4156
4157
4158
4159
4160
4161

4165

416
4le4

175830

17534
017540

Ti1

10-JAN-78

64s:

DO7

11:25

MSG26

JMP

$eoP

SEQ 0081

PRGE Bl

BRSIC WRITE DATA TEST;

FULL SECTOR
:ABORTING BAL OF TESTS

017540
017544
017546

005037
104418

007340

gégpl

BADHDR

:USED FOR VALID HALT

012706

001100

MOV

8STACK, SP

:RESTORE STK PTR

0175Se
017556

004737
104024

034214

017560
Q017564
017572
17600

005037
013765
012765
137

001402
001402

17612

1276

17604

0{?520

012737

4170
4171
4172
4173
4174
4175
4176
4177
4178
4179
4180
4ig8l
418%
4183
4184

017646

00146S

81?650
17656
0'7660
Cl7664

831921

000023
032262

g
i1g8 RiZhdg 882747 738880
017666
01767¢
017700
017702
017704
017718

01771
017722

4737
104011

000200

JSR

000006
000004

8%:

000010
000002

18:

021156

4193
4194
41a5
41 &
4187
4198
4199
4200
420l
4202

Q17772
Q17776
02000
(020002
0200
020006
020010
0c00l4
02000

004737

033042

104401
000137
104063

045354
031452

DATAO, RO
8BAT, RKCS2(RS)
, RKWC (RS)
8-256.
8 (WRDATR)
, HCS1

ggn
ROR
é§n

PC,DATCMD
1]
PE 3arnr

;08 Barn X FQR 8"9 3 8;7
RDY AFTER WRITE DATA
'NO
:GET FRESH STATUS

BEQ

688

:BR IF NO ERRORS

#CERR,

HCS!

ONTR RDY
CMD

(%4

'ELSE SEE IF SECTOR LISTED IN BSE TABLE

INC

SECTOR

BNE
ERROR

658
46

:ARE 10 CONSEC. SECTORS BRD

;9R05F NO

65S:

MOV

ggCLR,RK051(RS)

:TRY ANOTHER SECTOR

668

ERROR

;CERR WITH WRITE DATA CMD

007450
007452

MOV
CLR

#<0'D.SPIN'D.DRDY!D.VV'D.DRA> ,E.AQ
. EXPECTED MSG'BO
E.B0

MOV

81 E.81

007456
007462

MOV
MOV

BEQ

CMP

gooolz

007444

12737

MOV
BIS
MOV

PC, TRUERR

010340

017764

;SETUP SECTOR
;WRITE ALL 0'S

JSR

012737

000001
007454
000002
000003

SECTOR
SECTOR, RKDA(RS)
80ATAO RKBA(RS)

:SEE _IF gno SECTOR FLAG

104012

Oég g
00S037

CLR
MOV
MOV

#BSE, HER

300000

017744
017752
017756

;CERR AFTER SCLR

BIT

007370

Blerss dtoene

4189
4190
4191

007354

PC,SUBCLR

ERROR

MOV

007354

035700
001402
0c1402

iigs BiZ7e
4188 8177%2 oy
4192

30RA(10S2)

TYPE

80015+ B831as2

:iSS

418S

MACY1l

IMP

JMP

MOV

SECTOR, #10.
7%

'BR IF N

'RETURN HERE IF NO

:RETURN HERE IF YES

"ABORTING TEST DETECTED !. BAD SECTORS

:BYPASS TEST

;EXPECTED MSG RO

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

FOR sxpgcrso MSG Bl

;EXPECTED Al

CLR

£.42

:EXPECTED MSG R

JSR

PC, CHKMSG

: CHECK MSGS RO,

ERROR
ERROR
ERROR
TYPE

23
53
25
MSG26

:MSH BO ERROR
:MSG Al ERROR
:MSG Bl ERROR
'ABORTING BAL OF TESTS

ERROR

:BAD SECTOR NOT LISTED IN TARE E

WORD
ERROR

eTs:

668

IMP

$2,E.82
83
E.B3

T.A2'T.B2'C
G2
$e0P

:MSG 18 FOR
‘MSG ID
FOR

EXPECTED MSG B2
EXPECTED MSG B3

B0,

A1,

-8 MSGS SPECIFYED HERE
;MSG RO ERROR AFTER WRITE DFTA CMD

CZR6IFO UNIBUS RKb& DR PRT2

CZREIE.PII

10-JAN-78 09:43

:gga

020022

420S

020022

012737

010340

020050

00S037

007454

020062

012737

000003

4206

020030

MACY11 30R(1052)

T11

11:25

PAGE 82

BASIC WRITE DATA TEST;

SEQ 0082

FULL SECTOR

68S:

005037

007446

007444

MOV

4207
Ceo0034 012737 001720 007450
4208 020042 012737 000061 007452
4209

10-JAN-78

EQ?7

CLR
MOV

E.Ac

EXPECTED MSG A2

MOV

82,E.82

83 E.83

nsc ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

: CHECK MSGS no

ERROR
ERROR
ERROR

aa
53
25

:MSH BO ERROR
:MSG Al ERROR
'MSG B1 ERROR

#<D.SPOK!D.
cnnrtb
DOOR!D.BRHM!D.SSP> ,E.Al ;EXPECTED Rl
81 E.BI
:MSG 1D FOR EXPECTED MSG B1'

4213

020070

004737

4¢19
4217
4218

020100
020102
020104

104023
104053
104025

355?

020110

012706

001100

MOV

#STACK, SP

4222

020114

004737

034214

JSR

PC, SUBCLR

:CERR AFTER SCLR

u235

Q20122

013765

001402

000006

00000
000002

MOV
MOV

MOV

SECTOR,RKDR(RS)

;SETUP SECTOR

012737

000021

007354

MOV

033664
100000

007454
0067370

020674

000003

4215 020076 104052

4219

:sga

4e2b
:Sgg
4529

4.30

020106

020120

020130
020136
020144

104415

104024

012765
012765

006336
177400

020152
020156
020160
020164

004737
104013
0047237
032737

4236
4237
4238

020174
02020«
020204

032737
001406
104065

000200

4239

(020172

020206

00I45Y

000413

032262

4240

020210

020214

000137

104401

045354

4243

020220

032737

100000

4e4s

020230

104021

35:%

4yo44

:g:g

020226

001402

007462

033042

423]
4332
4233
4234
4235

007456

MOV
MOV

EXPECTED MSG’ 80

020054

4214

000002

. WORD

ERROR
SCOP1

ERROR

JSR
ERROR
JSK
BIT

BEQ

BIT
BEQ
ERROR

698 :

031452
007370

70S:

TYPE

JMP
BIT

ha'T.B2'0

sRDTAB, RKBALRS)
#-256. . RKWC(RS)
#<RDDATA), HCS1

MSG26

$§c0P

;RESTORE STK PTR

I+

BAD SECTOR

:DETECTED BSE

IN READ BUT NOT

IN WRITE CMO.

:ABORTING BAL OF TESTS
:SEE

;:DATA CHECK ERROR AFTER READ CMD

:CERR AFTER READ DRTA CMD.

B8R

738

020234

104014

:Sé?

020236

4252

020236

012737

010340

007444

MOV

CLR

457

020270

012737

000002

007456

MOV
MOV
CLR

E.B0

MOV

82,E.B2

#3.E.B3

IF DATA CHECK ERROR

(ECC)

738:

005037

007446

4254 (020250 0.2737 001720 007450
4eSs
020256
012737
000001
007452
4256 020264 005037 007454
020276

:MSG RO tnnoaRFTER WRITE DATA CMD

#0CK , HER

:S:g

4258

-GEE

000401

(020244

Al,

#BSE, HER
708
&S
73s

72%

020232

4253

B0,

-8 MSGS SPECIFYED HERE

:00 DATAX FOR CMD & GET CONTR RDY
!NO RDY ARFTER READ DRTA CMD
:GET FRESH STATUS

718

ERROR

G ID FOR EXPECTED MSG B2

PC,DRTCMD’
13’
PC,GSTAT
8CERR, HCS1

BEQ

ERROR

718:

;EXPECTED MSG RO

E.BO

4210

3§{é

012737

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

CLR

012737

000003

007462

#<0'D.SPIN'D. onov-o VV!D.DRA> ,E.R0

XPECTED MSG’BO

;EXPECTED MSG AO

o<0 SPOK'D.CART! b DOOR!D.BRHM!D.SSP> ,E.Al ;EXPECTED Al
Bl
MSG 1D FOR EXPECTED' MSG B!
sAa
TEXPECTED MSG R2
:MSG

ID FOR EXPECTED MSG B2

‘MSG ID FOR EXPECTED MSG B3

CZRBIED UNIBUS RK& DR PRT2
CZREIE.P
10-JAN 78 09:43
4259

4260

020304

004737

4264
4265

020316
020320

104056
104030

3529

4261 020310 000003
4262
0312 104054
4263 020314
104
426

4269

020322

4270
'l
4272
4273

020332
8203
020344
020352

:ggg

020364

4o74

012737

005037
012737
012737
005037

012737

4277

020372

004737

4279
4280

020400
(020402

104054
104026

020406

104030

012737

4878 020376 000003
:ggg
4284

4285

353

4288

020404
020410

728:

010340

007450
007452

000003

007462

006336

10037

001454

020424

020021

4232

(020432

026127

007336

(020440

020037

001474

020446

000412

4295

001366

4299

020450

012765

001500

:ggg

020470

000137

017604

4304
4305

020474
020474

104415

020456

013700

4308

001500

2s:

38:

000004

012706

001100

33?3

020506

020502

004737

034214

4311

020510

052765

000020

4312
4313
4314

020516
020524
020532

012765
012765
013765

uS:

001500
1774900
001402

000004
000002
000006

: CHECK nscs RO,

-8 MSGS sptcxrtso HERE
:MSG
A0
ERROR
RFTER READ DRTA CMD
:MSH BO ERROR
'MSG Al ERROR
‘MSG Bl ERROR

698

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

;EXPECTED MSG AC

£.80
. EXPECTED MSG’ BO
#<D.SPOK!'D. cnn.'b DOOR!D.BRYM!D.SSP> ,E.Al ;EXPECTED Al
81 . E.8B1
MSG 1D FOR EXPECTED' MSG Bl
£.A2
sxpscrso
MSG Re

MOV

#3 E.B3

nsc 1D FOR EXPECTED MSG B3

JSR

PC, CHKMSG

: CHECK MSGS RQ,

ERROR
ERROR

:MSG A0 ERROR RFTER READ DATA CMD
;nsu BO ERROR

ERROR

‘MSG B! ERROR

#2 E.B2

Aa-T.82'0

MSG ID FOR EXPECTED MSG B2
BO

-8 MSGS Ptcxrie HERE

'MSG A1

ERROR

MOV

#RDTAB, R1

MOV

RO, W2

(R1), W01

;ACTUAL WORD FOR TYPEOUT

CMP

RO, (R1)+

: COMPARE READ DATA TABLE AGAINST

CMP

R1,8RDTAB+512.

;SEE IF REACHED END OF TABLE

CHP

RO, DATARO

MOV

BNE

MOV

3%
20

];
4s

chTnl RKBA(RS)

MOV

DAT

IMP

MOV
SCOP1

sscrok RKDA(RS)

'EXPECTED DRTR FOR TYPEOUT
'THE 'SHOULD BE’ VALUE
!READ DATA DID NOT COMPARE WITH WRITE DATA

'BR IF NO & DO NEXT WORD

:SEE IF DID ALL 0°S

'BR IF YES
;WRITe ALL

1'S

MOV

#STACK, SP

JSR

PC, SUBCLR

:CERR AFTER SCLR

BIS

#BA] ,RKCS2(RS)

;THIS PORTION OF THE TEST CHECKS

ERROR
000010

Aa'T.B2'0

SEG 3083

CLR
MOV
MOV
CLR

BEQ

c§:

020476

104024

_WORD

4301 020462 013765 001402 000006
3389

as
SE
30

BEQ
ERROR

020444

4300

001401

ERROR
ERROR

MOV

001401
104020

4296

:ggg

DO74S6

001462

020426
020430

020436

PC, CHKMSG

ERROR

(12701

(11137

ISR

MOV

033042

4289
:gg?

3533

007444

007446
001720
000001
007454
000002

FO7

10-JAN-78
11:25
PAGE 83
BASIC WRITE DATA TEST; FULL SECTOR

. WORD
ERROR
ERROR

104056

020414

020420

033042

000732

020356

4281

MACY11 3??;1052)

MOV
MOV
MOV

;RESTORE STK PTR

#DATAL, RKBA(RS) :0UT THE WRITE CHECK CMD
#-256. \RKWC(RS) :ALL 1'S WERE PREVIOUSLY WRITTEN
secron RKDA(RS)

0 UNIBUS RK& DR PRTZ2
.P11
10-JAN-78 09:43

020540
020546
QeUsse
020554
020560
050536

S8278

862737
4737

434943
73

032737
001453
2737

021600
020606
020614
0eci616

1410
016537
013737
04016
0437

020620

104022

Deokee
0c2630

012737

0674

004737

300003
104057

00031
3226

MACY11l

GO7

SEQ 008

BRSIC WRITE DATA TEST; FULL SECTOR
10-JAN-78

11:25_PAGE 84

8<WRTCHK> HCS1

007354

PC,DRTCMD’

:D0 DATAX FOR CMD & GET CONTR ROY

:GET FRESH STATUS

15’

:NO RDY QFTER WRITE CHECK CMD

033664
100000

007354

PC,GSTAT
;gtnn HCS 1

040000

007356

cugs HCS2

:SEE IF WRITE CHECK ERROR

00002
001500

p014Se
001454

DRTAL, WD2

RKDB(RS) , WD1

:ACTUAL WORD FOR PRINTOUT

:CERR RFTER WRITE CHECK CMD

16
758
74%:

010340
007446
001720
000001
007454
000002
000003

EXPECTED WORD FOR TYPEOUT

: WCE nrrén WRITE CMD

#<0'D.SPIN'D.DROY!D.VV!D.ORA> ,E.A0

007444

;EXPECTED MSG AO

£.80
XPECTED MSG’ B0
%<D.SPOK'D.CART!D. ooon-o BRHM!'D.SSP> ,E.Al ;EXPECTED Al
;MSG 1D ron EXPECTED MSG Bl
sl E.B1
EXPECTED G R2
E.AD

0074s0
007452

#2,E.B2

007456
007462

;MSG 1D ron EXPECTED MSG B2

83 £.83

:MSG ID FOR EXPECTED MSG B3

T.R2'T.B2'0
57

:CHECK MSGS R

PC, CHKMSG

033042

60
32

‘Eggas

045354
031452

020706
020712

E 83 ggtcx?tsg HERE
;MSG
RO
tnnoa
RFTER WRITE CHECK CMD
‘MSH BO ERROR

;M5G A1 ERROR
:MSG Bl ERROR

:RBORTING BAL OF TESTS

758%:

020716

020716
020724
020730
020736
020744
020750
020756

020764
020770
020?72
020774
020776
021000

30RL10Se)
Ti1

010340
007446
001720

000003
033042

007444

007450
0074se
007456
007462

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

E.Ae’

EXPECTED MSG R2

83 E.B3

nsc ID FOR EXPECTED MSG B3

PC, CHKMSG

; CHECK nscs RO,

#2,E.B2

T.A2'7.82'0

57
31

104032
104415
012706

004?737
104024

001100
o34214

;EXPECTED MSG RO

EXPECTEDMSG' 80
E.80
#¢D.SPOK'!D.CART! 0, DOOR! 0. BRHM! D.SSP> ,E.Al _ ;EXPECTED Al
:MSG 1D FOR EXPECTED'MSG B!
81, E.81
MSG ID FOR EXPECTED MSG B2

‘MSG Al ERROR
‘MSG B1 ERROR

#STACK, SP

:RESTORE STK PTR

PC,SUBCLR

A1,

nc RO tRRon AFTER WRITE CHECK CMD

;M<1+ BO ERR

60
32

)]

BO,

MSGS sptc FYEDHERE

;CERR ARFTER SCLR

CZR6EIEQ UNIBUS RKb DR PRT2
CZRBIE. P11
10-JAN-78 09:43
021016
021024
021032

012765
012765
013765

001474
177400
001402

Be1848 84573 888323
0210S2

104015

021066
021070

001001
104017

MACY11

HO7

30R(1052)
10-JAN-78
11:25
PRGE 85
T11
BASIC WRITE DATA TEST; FULL SECTOR

000004

MOV

MOV
MOV
ngv

000CG62
000006
007354

JSR

ERROR
é§a

851824 #9303 B4d88d 007356
s

021072

g:C THCS2

ERROR

007444

MOV

o 887584

007452

MOV

W
N

Pt
Pt ot ps
Pt Bt ot P

L
LL
oL

O
[
S

0000000
N

012737

001720

007450

012737
012737

000002
000003

007456
007462

004737
000000
104057

033042

b
oo
0O

00O
R

=
NN
oMV

004737
104024

UV
nN—00
oL£000

012765

Pt s ps pme

0000
e

Pt Pt

e Pa pa

000
o

000004
012737
012706

0el246

8 GET CONTR RDY.

NO RDY QFTER uaxve CHECK CMD
ET F es g 33

XPECT MISCOMPARE

:WR]TE CHECK
NOT F NST&SNING
'WItH INTENTI N L MISCOMPAR

8 D.SPIN'D.DRDY!D, VV! E DRA>,E, A0

;EXPECTED MSG AC

ExPECYED MSG’

MOV

$1 E.BI

:MSG I?FOREXPSC ED'MSG B1

%<D.SPOK'D.CART!H. DOOR!D.BRAM!D. S P> ,E.Al

£.R2°

#2,E.82
%3 E.B3

:MSG ID FOR
'MSG ID FOR

JSR

PC, CHKMSG

;CHECK MSGS A0,

ERROR
ERROR
ERROR
ERROR

S7
31
60
32

‘MSGA0 ERROR AFT WRT CHK CMD
: MSH BO ERROR
'MSG Rl ERROR
‘MSG Bl ERROR

0'0'0

TEXPEC

;EXPECTED Rl

CLR

iTEST 12
¥
H

:00 WRITE CHECK CMD.

E o]

MOV
MOV

79:

SETUP TO CHECK AGAINST WRONG DATA

CLR

_WORD

104031
104060
104032

ESTQT

ang

821958 38E037 BA%3
o}

#DATAC,RKBA(RS)

#-256. . RKWC (RS)
SECTOR. RKDA(RS)
.HRTngHCS1

SEQ J08S

XPECTED MSG B2
EXPECTED MSG B3
BO,

Al,

1 nscs SP cIFtED KERE’

2222222222222 222222:22X2232222X22X222
2222222222222 22222 82

20 SECTOR FORMAT TEST

ALL 1’S ARE WRITTEN ONA FULL SECTOR IN 20 SECTOR FORMAT.

MSG BO,Bl ARE CHECKED FOR ANY ERROR CONDITION.
CYL O, TRACK O, 8 SECTOR O IS USED.

: o 363636 3 3 3 3 3 3 3 3 3 3 3 3 3 3¢ 3 3 3 3 3 3 36 96 3 6 36 3 I 3 36 3 3 3 2 3 3 36 9 36 3 2 3 3 % 3 3 3 3 3 3 % W % K %K% R %R

000001
ool100

001174

SCOPE

MOV

MOV
JSR

034214

ERROR

000004

000002

001346
000000
000001
03sele

t&T12:

001362

001460
001466

MOV

STIMES

sfncx SP

PC,SUBCLR

1 ITERATION

hssroas STK PTR

:CERR AFTER SCLR

geg

?BEQL AKWC(RS)

#HDTAB,RKBA(RS)

;HEADER WORD TABLE

INC

BADHOR

:USED FOR VALID HALT

MOV

TOCYL , CALADD

MOV
MOV
JSR

%0, HEAD
81, FORMAY
PC FHDTARB

:WORD COUNT FOR 20 SECTOR FMT

:SETUP

70 FILL
'HERDER
: TABLE

ZR6IEQ UNIBUS RK& DR PRT2
ZREIE.P11
10-JAN-78 09:43
4427

Q21252

012737

4429
4430

021264
02le

104200
862737

4432

021300

Y428

4431

021260
G217y

4433
4434
4435

021302
(021310
021312

4438

021324

4440

0231324

4436
4437

4439

333%
4443

021314
(021320

004737

4737

104117

032737
00140S
104201

104401
000137
104415

010027

032262

010001

032224

100000

012706

001100

:332

021336

021332

004737

034214

4446
4447

021340
021344

005037
013765

001402
001402

y44yg
4449

::gg

4ys2

4453

4454
4455

Q021352
(21360
021366

012765
052765
012765

021374

012737

(021402
021406

MACY11 30R{10S2)
10-JAN-78
11:25
PAGE 86
T12
20 SECTOR FORMRT TEST
007354

MOV

007354

ERROR
MOV

6Y4S:

000004
000010
000002

010023

007354

032262

4S:

4487

Q21416

004737

032224

4459

QO2l424

032737

100000

007354

007370

021422

104117

::g?

021432

001465

Y462

021434

032737

000200

4464

021444

004737

035700

00S237

001402

Y463
3322

021442
021450

001421

000455

021452

4469
4470
4471
Y472

021464
021466
021470
021474

::;g

021506

4476

021510

012737

905037

007446

010340

007444

4479
4480

021530
021536

012737
005037

000001
007454

007452

4473

4477

021456

021502

021516

0c3727
001003
104046
000137
012765

000137

104012

001402

000012

022374
100000

000000

021344

BIT
BEQ
ERROR

OCERR,HCSI
64S
201

:DO DATA
X FOR CMG & GET CONTR RDY

200
NO RDY nrrsn WRITE HEADER CMD
8 (CFMT'SELDRV> , nési

11?7

:NO RDY AFTER SELDRV CMD

MSGeb
$E0P

"RBORTING BAL OF TESTS

MOV

#STACK, SP

;RESTORE STK PTR

JSR

PC, SUBCLR

CLR
MOV

SECTOR
SECTOR, RKDA(RS)

TYPE
JMP

MOV
BIS
MOV

JSR

BIT

ocenn,ucsx

ERROR
BEQ
BIT

;CERR AFTER SCLR

#(CFMT!WRDATR> ,HCS|

PC,DRTCMD
11

MOV

: CERR AFTER WRITE HEADER CMD

#0ATAL RKBR(RG) ;WRITE ALL 1°’S
#BRI, RKCS2(RS)
:BUSS ADDR xncn INHIBIT
8-256. ,RKWC(RS)
;00 FULL SECTOR

JSR
ERROR

;D0 DATA X FOR CMD 8 GET CONTR RDY
NO RDY AFTER WRITE DATA CMD

#(CFMT!SELDRV> , H¢s1
17

DOCMD

:NO RDY AFTER SELDRV CMD

688

:BR IF NO ERRORS

#BSE , HER

s SEE

xr BAD SECTOR FLAG

BEQ

6568

67¢

'RETURN HERE IF NO

INC

SECTOR

:RETURN HERE

65%:

BNE
ERROR
JMP
MOV

6S$
46
3s
#CCLR,RKCS1(RS)

:BR IF NO
neonrxnc TEST DETECTED 10 BRD SECTORS
"BYPARSS TEST
;TRY ANOTHER SECTOR

668 :

ERROR

;CERR WITH WRITE DATA CMD

JSR

4467

4468

PC,DOCMD

MOV

4456 021410 012737 010001 007354
4458

JSR

ERROR

001500
000020
177400

004737
104011

PC.DATCMD

SCOP1

000006

SEQ J086

8 (CFMT! WRHERD>, HCS]

JSR

ERROR

007354

045354
031452

021326

104024

107

CMP

JMP

MOV

PC, TRUERR

SECTOR, #10.

'BR IF NO

"ELSE SEE IF SECTOR LISTED IN BSE TABLE
IF YES

'ARE 10 CONSEC. SECTORS BRD

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

;EXPECTED MSG A0

4478 021522 012737 001720 007450

CLR

E.BO

EXPECTEC MSG BO

4481
4482

MOV
CLR

MOV
MOV

sl E.B1
E.A2
#2,E.B2
#3 E.B3

:MSG ID FOR EXPECTED’MSG Bl
:EXPECTED MSG A2

Q021542
021550

012737
012737

000002
000003

007456
007462

MOV

#<D.SPOK'D.CART! b DOOR!D.BRHM!D.SSP> ,E.Al ; EXPECTED Al
:MSG D FOR EXPECTED MSG B2
:MSG 1D FOR EXPECTED MSG B3

28 2NSF IR

004737
3

RO R

e Pt P

et Pt et P

PRI

Pt Bt

4483
4484
4485
4486
4y48?
4488
4489
4490
4491
4492
4493
Y49y
4495
4496
4497
4498
4499
4500
4501
4502
4503
4504
4505
4506
4507

Bt Pt Pt Beme

CZR6IEOQ UNIBUS RK& DR_PRTR2
CZR&1 E.P 11
10-JAN-78 09:43

012737

0eie30

04535Y4

104063

031452

010001
032224

007354

001000

007402

67%:
68S%:

. WORD
ERROR
ERROR
ERROR
ERROR
TYPE
JMP
ERROR

PC, CHKMSG

ha'T.82'0

53
25

523325

SEQG 0087

:CHECK MSGS RO,

BO,

Al,

-8 MSGS SPECIFYED HERE
:MSG AQ ERROR AFTER WRITE DATA CMD
:MSH BO ERROR

iMSG Al ERROR
:MSG Bl ERROR

:ABORTING BAL OF TESTS

;BAD SECTOR NOT LISTED

IN TABLE

#<CFMT!SELDRV>
,HCS1]
PC,D0OCMD

;RDY NOT FOUND AFTER SELDRV CMD

102

;FORMAT NOT SET

rg.FORH,HMRE

#<0!D.SPIN'D.DRDY!D.VV!D.DRR> ,E.ARO0
E.B80
EXPECTED MSG B0

007444

000003

007456
007462

LENO

o oo

022034
022036
022040

sl E.BI
E.A2
$2,E.B2
'E.B3

‘MSG 1D FOR EXPECTED MSG B3

PC, CHKMSG

cuecx MSGS A0

'MSG A0 ERROR nrrsn WFITE DATA CMD

0fdio

L£NO
Lo

00000000

NBNNNNNNNNN Y
Pt Pt Pt s Pt Pt s s

NNNNNNNN
Lwhun

033042

23
53
177400
001402

;EXPECTED MSG RO

#<D.SPOK!D.CART! b DOOR!D.BRHM!D.SSP> ,E.Al_ ;EXPECTED Rl

007450
0074se

o0 |=] 000000000
n
nn
U
NS bt s pa et e
00 =] OOONNNNNN
nn -0 - NN

e
e
e e
e bt

OO NN LW—

L
g

033042

010340

4508

Pt Bt Bt

JO7

PAGE
11:25
30A(1052)
10-JAN-78
Tie
20 SECTOR FORMRT TEST

1%:

4509
4510

4520

MACY11l

000002
000004
000010

sMSG 1D FOR EXPECTED'MSG Bl
'EXPECTED MSG A2
'MSG ID FOR EXPECTED MSG B2
ao nx

; MSGS SPECIFYED

HERE’

*MSH BO ERROR
'MSG Al ERROR
iMSG Bl ERROR

#B8Al Rk 2(R5)
SECTOR, RKDR(RS)

000006

8C(CFMT! WRTCHK)>

,HCS1

010031
032262

007354

010001
0322e4

007354

100000

007354

040000

0073%h

gwge HCS2

sSEE IF WRITE CHECK ERROR

000024
~01500

0014001454

DATAL, WD2

RKDB(RS) , WD1

16
708

s ACTUAL woao FOR PRINTOUT

s WCE nFTéR WRITE CMD

:CERR AFTER WRITE CHECK CMD

PC,DATCMD

X FOR CMD & GET CONTR RDY
:DO DATA

1
'NO RDY AFTER WRITE CHECK CMD
#<CFMT!SELDRV> ,H{S1

PC,DOCMD

OSERR,H051

699

:NO RDY ARFTER SELDRV CMD

PECTED WORD FOR TYPEOUT

CZR6IEO UNIBUS RKb DR PRT2
10-JAN-78 09:43
CZREIE.PI1

4539

4540
4G4l
442

4543
4G4y

:g:g

(022042

022050
(022054
022062

(022070
(022074

022102

012737

00S037
012737
012737

00S037
012737

012737

4547

4S4g (022110
022114 004737
4549 022116 000003
104057

045354
0314Ee

022136
(022144

012737
004737

010001
032224

007354

MOV
JSR

#<CFMT!SELDRV>
,HCS!
PC, DOCMD

022152
022160

032737
001001

001000

007402

BIT
BNE

#0. FORM, HMR2
28

022162

4Seb

022164

104117

012737

010340

0é2224

012737

000003

004737

033042

012737

007446
001720
000001
007454
000002

022236
022240
022242
022244
(22246

000000
1049057
104031
104060
104032

3%85

022252

012706

001100

483

(022256

004737

034214

4586

022264

012765

001522

4588

022300

005037

001346

4587

022250

022262

Q22272

104415

104024

012765

177676

4591

(022304

01372~

001346

4594

(022326

004737

035212

4592
4533

(022312
(022320

ERROR

T.R2'T.B2'0
s

.8 MSGS B0
sptc I 81
:MSG AQ tRRoa ARFTERWRITED HERE
CHECK CMD

117

:NO RDY ARFTER SELDRV CMD

103

:FORMAT NOT SET

005037
012737
012737
005037

(022232

70%:

ERROR

022172
022176
(022204
Q022212
022216

_WORD
ERROR

104103

4575
4576
4577
4578
4579

:ggg

:MSG ID FOR EXPECTED MSG B3
:MSH BO ERROR
:MSG Al ERROR
:MSG Bl ERROR
:ABORTING BAL OF TESTS

022164

4S80

#3 E.B3

sxpecreo MSG Ao
'MSG ID FOR EXPECTED MSG B2

31
&0
32
MSG26
$eop

:ggg

4S74

007462

E.A2
82,E.B2

ERROR
ERROR
ERROR
TYPE
JMP

(022150

4571

MOV

CLR
MOV

007456

;EXPECTED MSG AO

E.BO
MSG’ B0
#<D.SPO¥'D.CART! b XPECTED
ooon'o BRHM!D.SSP>
,E.Al ;;EXPECTED Al
sl E.BI
MSG ID FOR EXPECTED MSG Bl

104031
104060
104032
104401
000137

4659

:g;g

007450

067452

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

CLR
MOV
MOV

: CHECK MSGS no

022136

4Sp7
4Se8
4Sp9
4570

000003

MOV

PC, CHKMSG

4556

3225

007454
000002

007444

SEQ 0088

JSR

022120
022122
(022124
Q22126
022132

4Se0
4561l

007446
001720
000001

MACY1l 30R(1052)
10-JAN-78 11:25 PAGE 88
20 SECTOR FORMART TEST
T12

033042

4550
4S5]
4SS2
4563
:gg;
4557
4558

010340

KO7

01273/
012737

000000
000000

007444

(O74S0
007452
007456

007462

MOV

#3,E.B3

nsc ID FOR EXPECTED MSG B3

PC, CHKMSG

caecx MSGS RO,

MOV

001460
001466

MSG ID FOR EXPECTED MSG B2
B0,

Al,

0'0°0
57
31
60
32

8§ MSGS SPECIFIED HERE'
nsc RO ERROR AFTER WRITE CHECK CMD
‘MSH BO ERR
:MSG Al ERROR
iMSG B1 ERROR

MOV

#STACK, SP

:RESTORE STK PTR

JSR

PC, SUBCLR

MOV

cuorna RKBA(RS)

CLR

ToCYL'

MOV

TOCYL , CARLADD

:SETUP

JSR

PC.FHDTAB

: TABLE

ERROR

001362

%2,E.B2

_WORD
ERROR
ERROR
ERROR
ERROR
SCOP1

000002

;EXPECTED MSG AO

E.BO
-EXPECTED MSG'BO
#<D.SPOK'D.CART! b DOOR!D.BRHM!D.SSP> ,E.Al ;EXPECTED Rl
81 E.B1
MSG 1D FOR EXPECTED’ MSG Bl
E.A2
EXPECTED MSG A2

JSR

000004

%¢0'D.SPIN'D.DRDY!D.VV'!D.DRA> ,E.AR0

CLR
MOV
MOV
CLR

MOV

MOV
MOV

#-66.,

RKWC(RS)

80, HEAD
80, FORMAT

:CERR AFTER SCLR

;RESTORE CYL O TO 22 SECTOR FMT

70 FILL
: HERDER

:D0 DATAX FOR CMD 8 GET CONTR RDY
'NO RDY AFTER WRITE HERDER CMD
:GET FRESH STATUS

ERROR

201

:CERR AFTER WRITE HEADER CMD

TYPE
JMP

38:

CLR

BRDHOR

;USED FOR VALID HALT

000001
001100

022414

L.270e

000001

022420
O22424

004737
104024

034214

022426

010265

000016

022432
022440
022446
022452

012737
012737
004737
104033

02e5e0
000015
03eeey

001176
007354

022454

012737

032140

012737

000001

004737

033042

000000
10403S
104061
104036
104062

001174

18:

LS 20

THE HEADS ARE FIRST OFFSET BY OFFSET COMMANDS.

THIS TEST CHECKS THE ch LO“IC BY VERIFYING THAT THE
"OFFSET ON’ BIT (MSG A,00) RESETS AND THE orrssr REG
-m
m
m

WHENR SEEK CMD TOA
BECOMES THE CYL DIFF IfirSUED

IT ALSO TESTS THRT DRIVE CLERR & SEEK TO SELF WILL NOT

CLEAR THE ’OFFSET

ON'

BIT OR THE OFFSET REG.

ALL OFFSET POSITIONS IN BOTH DIRECTIONS RRE CHECKED
0

t&113:

RIS I AR RS SIS LIS 2SI

TEST OFFSET 8 RTC LOGIC

—

"Lt
et & 8 8 8 ]

_’ WP we wrWEWIWIGI
W W WL
w

000004
012737
012706

'ABORTING BAL OF TESTS

YRS

Y YR

iTEST 13

0c2400
Ocev0e
0e2410

MSG26
$eoP

[

007354

007340

X uRHEnD HCS1

PC,DATCMD’
200
PC.GSTAT
nctRR HCS1

005037

SEQ 3083

JSK
ERROR
JSR
BIT

—t

045354
031452

033664
100000

MOV

007354

Z
Q
—Dm
p o]

022374

000027
03e2eee

—

022374

012737
004737
104200
004737
032737
001405
104201
104401
000137

9.
<
—

022332

10-JAN-78 09:43

P11l

LO¥

10-JAN-78
11:25
PAGE B89
0 SECT0R FORMAT TEST

po]
m
4

O UNIBUS RK& DR _PRT2

MACY1l BQ?éIOSE)a

SCOPE

060000

1 ITERATION

MOV

osfncx SP

'hssronz STK PTR

MOV

#1,R2

:MIN POS OFFSET

JSR
ERROR

PC, SUBCLR
24

;CERR AFTER SCLR

MOV

R2,RK"30F(RS)

;SET OFFSET

MOV

86 1S, SESCAPE

STIMES

RN R RN

MOV
JSR
ERROR

#OFFSET, HCSI
PC, DOCMD
33

007444

?EX

e<gopxp-o SPIN'D.OFF!D.VV!D.DRR> ,E.A0

007450
0074Se

MOV

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

JSR

PC, CHKMSG

ERROR
ERROR
ERROR
ERROR

35
bl
36
62

MOV

_WORD

:DC RECAL CMD & GET_CONTR RDY
!NO ROY AFTER OFFSET CMD
;EXPECTED MSG RO

#1,E.BI

0!0f0

: CHECK MSGS RO,

BO,

Al, Bl

'8 MSGS SPECIFYED KERE’

*MSG RO ERROR ounxnc OFFSET CMD
‘MSH BO ERROR
'M5G Al ERROR
:MSG Bl ERROR

CZR6IED UNIBUS RKE DR PRT2

CZR6IE.PL1

10-JAN-78 09:43

Besesq BP39%7 BBLAT

4657

dee8

4691

MACYLl!l

022s32
022536

004737
104034

032730

022840

012737

052340

855250
96
02257¢

012737

022600

012737

000001
007454
000002

022606
0ceble
Deebli4
02eblb
0c2620
0cee22

004737
000003
104260
104261
104037
104040

033042

Qeeba4
022630
0c2ee3e

00S737
001401

0013860

022634
O22b4e

Q42737
010265

001000

022646
022652

032702
001005

000200

0c26S5S4
022660
02cbbe
022664

020237
001406
104114
000404

001356

022666
022672
022674

020137

001356

00744

833853 81293 80172

000003

007412

022712
022720

T13

B49:

007444

007456
007462

001356

17S:

0227s6

E.R2
#2,E.B2
#3,E.B3

i MSu

JSR

. WORD
ERROR
ERROR

PC, CHKMSG

s CHECK nscs RO,

ERROR
ERROR

aax
37
40

15T

CYLADD

ERROR

:CYL ADDR IN B2 WAS NOT O

BIC
MOV

#1000, CYLDIF
R2,RKASOF (RS)

!GET RID OF WIGH BIT
:REFRESH RKASOF

Aa'T.82'0

178

#BIT7,R2

737

00000S

0322aM

012765
00M737
032737
oculio01

100000
033664
002000

000000
007402

'AFTER OFFSET CMD FROM CYL O

;CHECK POS OFFSET

CMP

BEQ

[I4

sOFFSET IN A2 NOT = RKASOF

668

SAFTER OFFSET CMD

R1,CYLDIF

;sCHECK NEG OFFSET

114

:OFFSET IN A2 NOT = RKASOF

66$

#CCLR,RKCS1(RS)

'AFTER OFFSET CMD

;DRIVES

MOV
MOV
SR
ERROR
SR

SUNIT RKCS2(RS)
#CLERR, HCS]
PC, DOCHD
151
Egsrsrnrn

;D0 DRIVE CLEAR CMD & GET CONTR RDY
:NO RDY QFTER DRIVE CLEAR CMD
A
'TEST FOR

ERROR

154

;ATTN NOT CLERRED AFTER DRIVE CLERR CMD

67%:

'MSG Al ERROR
‘MSG B1 ERROR

R2,CYLDIF

MOV

000000
000010
007354

.8 MSGS
tcxrtso
HERE
:MSG
RO
tRRon
RFTER
OFFSET
CMD
'MSH BO ERROR

cMP

664

;EXPECTED Al

EXPE
A2
:MSG ID FOR EXPECTED MSG B2
:MSG ID FOR EXPECTED MSG B3

:BR IF NEG OFFSET

100000

sSSPy ,E.Al

658

ERROR

00leee

BRHH'

;EXPECTED MSG AO

?ron EXPECTED Msc B1’

BNE

BEQ

022736

022736
022744
022750

CLR
MOV
MOV

sl E.BI

#:D.SPOK!D.CART!D

669%:
765

'NO flTTN nrren OFFSET CMD

MOV

ERROR

0O
0O
0
O

ssrup TIHEOUT

:FIND
R

#<D.DSC!D.OFF!D.SPIN'D. onov-o vV!D.DRA> ,E.RO
EXPECTS 80
E.BO

BIT

659%:

358 %emps

gc,Fatre

SEJ 3090

MOV
CLR

BEQ

032602
4701

MOV

007450
0074s2

104042

000016

MO7

PAGE 90
11:25
10-JAN-78
TEST OFFSET & RTC LOGIC

ERROR

022676

022676
822704

30A(10S2)

MOV

JSR
BIT
BNE

#CCLR,RKCS1(RS)

PC,GSYAT
8D.OFF, HMRE
4§

£ LLLLrLLk
~ NNNNNNNN
) 0= 0=t Pt Pt =t Pt e s e
OWwO NN L WM

CZR6IEO UNIBUS RK& DR_PRT2
10-JAN-78 09:43
CZR6IE.P11
104043

022762
022770

012737

0e3002

012737

012340
007446
001720
000001

023010
023014
023016
023020
023022
023024
023026
023034

004737

033042

023040
023044

032702
00100S

000200

023046
023052
023054
023056

020237
001406
104115
ooo404

001356

023060
023064
023066

020137
001401
104115

001356

010265

30AR(10S2)
Ti3

NO7

PAGE 91
11:25
10-JAN-78
TEST OFFSET & RTC LOGIC
ERROR

022760

022774

MACY1l

001000
000016

007444

Ys:

SEQ 009!

;OFFSET BIT IN RKMRZ2 CLERRED

IAFTER DRIVE CLERR CMD & SELECT DRV CMD
#<D.OFF!D.SPIN'D.DRDY!D.VV!D.DRA> ,E.A0 ;EXPECTED AO

E.80

l(D.Sg?K!D.CQRT.D.DOOR!D.BRHH!D.SSP),E.Rl

007450
007452

8l,E

PC cwxnsc

: CHECK nscs A0,

265
274
266
#1000, CYLDIF

'MSH BO ERROR
nsc A1 ERROR

Aa'

001356

R2, RKASOF (RS)
#8177,
R2

689

CYLDIF

BO,

Al,

-8 MSGS SPECIFIED HER

sMSG AD tnnon QFTER DRIVE CL Enn CMD
MSG B1 ERROR

csr RID OF HIGH BIT
!REFRESH RKASOF
;BR IF NEG OFFSET

; CHECK POS OFFSET

;OFFSET IN A2 NOT = RKRSOF

{AFTER DRIVE CLEAR CMD
; CHECK NEG UFFSET

689%:

;OFFSET IN A2 NOT = RKRSOF

!AFTER DRIVE CLEAR CMD

69%:

023070

000017
032224

007354

001420
032730

007412

100000

007354

#SEEK , HCS1

Pglnobn

;00 SEEK CMD & GET CONTR RERDY

150000, TEMP!

SETUP TIMEOUT

PC.FARTY2
132

:NO RDY AFTER SEEK CMD
FIND_ATTN

NO RTTN AFTER SEEK CMD

8CERR,HCS1

70%

210

;CERR AFTER SEEK CMD

70%:

023132
023140
023142

002000

023144
023144

0e3172

8D . OFF, HMR2
79

007402

;OFFSET BIT CLERRED IN RKMR2 AFTER SEEK TO SELF.

7%:

0S2340

007454

007444

007450
0074se

; EXPECTED MSG RO
g(gUDSC!0.0FF!D. SPIN'D DRDY!D.VV!D.DRR> ,E.RO
XPECTED MSG BO
; EXPECTED Rl

BRHM!D.SSP> ,E.R!
O(D POK D.CART! b”ggon'o
ID FOR EXPECTED'MSG Bl
ha
; EXPECTED MSG A2

CZRGIED ??IBUS RK& DR PRT2
CZRBIE.P
10-JAN-78 09:43
4763
4764
476S
4766
Y4767
4768
4769
4770
4271
Yz77e

023176
023204

012737
012737

000002
000003

11:25
PAGE 92
TEST OFFSET 8 RTC LOGIC

pO74Sk
oo7462

MOV
MOV

82,E.82

:MSG ID FOR EXPECTED MSG B2

JSR

PC, CHKMSG

T.R2'T.B2!'0
1uo

HERE
SBOtcxrtso
-8 MSG5
;MSG RO tRRonnrrsn SEEK TO SELF

T13

033042

023212
023216
023:20

001000
0oo01e
023242
023246

000200

023250

0013S6

10-JAN-78

020137
00140}
104123

0013%S6

719%:

R2, RKASOF (RS)

nsrassu RKASOF

0Q4737
104024

o34214

023300
023306

012737
012765

000012
ococole

001346
000020

023314
023320

012700
012737

001726
000025
032262

007354

100000

007354

104401
000137

045354
0314s2

023356
023362
023366

016520
016520
016520

000024
000C24
000024

023372
023400
023402
023406
023410

032765
001407
004737
104173
104401
000137

100000

:BR IF NEG OFFSET

gsgchoxr

:CHECK POS OFFSET

123

= RKASOF
sOFFSET IN A2 NOT

cMP
BEQ
ERROR

§égCYL°IF

:CHECK NEG OFFSET

JSR
ERROR

PC,SUBCLR

123

033664
045354
031452

MOV
MOV

#10.,TOCYL

#10. ,RKDC(RS)

'AFTER SEEK TO SELF

= RKASOF
:OFFSET IN A2 NOT

IAFTER SEEK TO SELF
; CERR ARFTER SCLR

;SETUP _CYL 10
:D0 ACTURL IMPLIED SEEK TO CYL 10 TO VERIFY
POFFSET BIT IN RKMR2 CLEARED

SRHTAB, RO

8 (RDHEAD>, HCS1
PC,DATCMD’
17

:00 DATAX FOR C.i. & GET CONTR RDY
*NO RDY ARFTER READ HEADER CMD

174

s CERR_AFTER READ HEADER CMD

;SERR,HCSI

MSG26
$§coP
748

000010

:M5G A1 ERROR
iMSG B1_ERROR
GET RID OF HIGH BIT

718

72S8:

g2327e
023276

: CHECK nscs RO,

:MSH BO ERROR

728
001356

:MSG ID FOR EXPECTED MSG B3

141

#BIT7,R2

023272

023414

83 E.B3

142
143
#1000, CYLDIF

000404
023262
023266
023270

BO8

MACY11l 30R(10S2)

RKDB(RS), (RO)+

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

:RBORTING BAL OF TESTS

*ST WORD FROM SILO TO RHTAB

a NDWORD
:3’RD WORD

'8%7 RKCS2(RS)
PC,GSTAT

173
523835

:DLT RFTER READ HEADER CMD
'ABORTING BAL OfF TESTS

SEQ 0092

CIRGIED UNIBUS RKe DR PRT2

10-JAN-78 09:43

CZR&IE.PI1

MACY1l 30R(1052)

T13

10-JAN-78

Cca8

11:25

PAGE 93

SEQ 0093

TEST OFFSET 8 RTC LOGIC

758 :

3353

023420

4821

023420 012737 010340 007444

MOV

o<8-o SPIN'D.DRDY!D. VV!?
E
DRR),
E A0

;;EXPECTED MSG RO

:aeg
2s3use 9{57
0059 ;7 886081
20 ;qg gorqse
07450
435q 853335

555
MOV

007456

MOV

CLR
MOV

E.Ae
82, E.B2
83 E.B3

EXPECTEPE E
OR EXPECTED MSG B2
:MSG ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

; CHECK MSGS RO,

ERROR

272

:MSG Bl ERROR

CMP

RHTAB, TOCYL

sCHECK WORD O ONLY, CYL#

BIT
BEQ

8D. OFF , HMR2
95

CMP
BEQ

CYLADD, #:0.
10%

TST
BEQ

CYLDIF
1e$

JSR

PC, SUBCLR

4825
:ega

(023446

4829

“829

0uS037
012737
012737

007454
000002
000003

3466

004737

033042

g0&835..

104272

4830
4831
4832
4833

3472
023474
(2347F
0&3°C

4836

023504

4839

023516

:ggg
4837
4838

000003
104301
104271
104302
023737

001726

0z3S12
023514

001401
104051

4842
4843

023516
023524

032737
001401

002000

4346
4g47

023540

023727
001401

001360

:g:g

023530
023536

4850
4o51

023542
023546

005737
001401

001356

4854

023552

004737

034214

4857

023560

012737

000017

:ggg

023572

2
:g:g

:ggg
:ggg

4858
4861

023526

023550

023556

023566
023574

104024

004737

104131

013737

ERROR

032224

001420

032737
001401

100000

4869

023622

4872

023622
023626

108:

10%101

023610
023616

4873

9%:

ERROR

4865
4866

000012

104122

032730

023620

007402

104132

BEQ
ERROR

ERROR

004737

:ggg

001346

104101

023602

023606

LWORD
ERROR
ERROR
ERROR

738:

4gb2

:gga

007462

168%:

,
007354

ERROR
MOV

JSR

ERROR
007412

MOV

104210

(

T.A2'T B2'0
301
271
302
73%
51

101

122

101

#SEEK , HCS1

BU,

Al,

.8MSGS SPECIFIED HERE
:MSG R0 ERROR AFTER READ HEADER CMD
'MSH BO ERROR
:MSG Rl ERROR
'BR IF SAME
*WRONG CYL# ON HEADER

. OFFSET NOT CLEARED AFTER READ HEADER WITH MOVEMENT
;DID NOT GO TO CYL 10

sOFFSET NOT CLEARED IN RKMR2
:CERR RFTER SCLR

PC, 00EMD

:00 SEEK CMD 8 GET CONTR RERDY

150000, TEMP1

:SETUP TIMEOUT

132

'NO ATTN RFTER SEEK CMD

13}

:NO RDY RFTER SEEK CMD

JSR

PC,FATt2

BIT
BEQ

#CERR, HCS1
76%

210

:CERR AFTER SEEK CMD

BIT

#BIT7,R2

:SEE IF DOING NEG OFFSETS

ERROR
007354

Esl oospox'D.CART!
0ooonfooenun
D.SSP> ,E.A1_
E.BI
MSG 1D ron sxpsc?so
M3 B1’ ;EXPECTED Rl

ERROR

'FIND
ATTN

76%:

032702
001014

000200

BNE

188

:BR IF YES

CZREIED UNIBUS RKE DR PRTR2
10-JAN- 8 09:43
CZR&1IE P11

1852 Be3e38 833595
4877

023636
023640

001402
000137

012702
012701

L0013?

MACY!1l

023672

000137

Es 261

:SEE IF JUST DID MAX POS OFFSET

c0S$:

MOV
MOV
JMP

#201,R2
#10..R1
1§

:SETUP NEG OFFSET FOR Rxnsor
:SETUP NEG orrssr OFOR MSG
A
‘D0 NEG OFFSET

188:

§ng

RO,

sss

BEQ
JMP

022420

000201
00Ci01
022420

SEQ 0094

éHS

000061

005201

DO8

30R(10S2)
10-JAN-78
11:25
PAGE 94
T13
TEST OFFSET & RTC LOGIC

£Q
NP

000es!

0e2420

208
18

:BR IF YES
'ELSE DO NEXT POS OFFSET

ALL NEG OFFSETS DONE
5
‘F Nt
bo nwornsa

8261
Té?

H o S0 306 36 3 36 36 30 3 36 30 3 36 26 36 3 36 36 3¢ 3¢ 3 36 3 36 3 3¢ 3% 3 36 36 3 3 36 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3% 2 3 % 5% %% %

&resr 14

WRITING

UN
zggx;$ggs

OFFSET cooss ane ALSO VERIFIED BY READING MSG A, STATUS Ou & 10.

e
i*

ALL HEADS RRE TESTED AT CYLINDER 0
IF THERE ARE NO FRILURES AT ALL, THIS INCICRTES THART

s%
H

fLrfLt
LOODODDD

THIS TEST venxrrss THAT THE HERD orrser LOGIC IS OPERATIONAL BY

PERFORMIN

004737
10402

034214

023720
0237cM
023732
023740
023746

005037
013765
012765
052765
012765

001402
001402

323754
023762
023766
023770
023774

012737
004737

000023
032e26e

007354

MOV

033664
100000

007354

8IT

i04011
GC4737
032737

177400

C0000M4
000010
000002

THE FRILING OFFSET POSITIONS

THE COMBINATION OF DISC SURFACE,
ARE EXCEPTIONALL* GOOD.

HEADS,

: o 33003536 06 36 36 36 36 35 63 38 36 36 36 36 36 30 36 36 36 30 3 36 36 36 3 36 3 36 3 3 3 3 3 3 3 36 3 3% 3 3 3 3 3 36 3 3 3 3 3 2 3
$&T14:
SCOPE
1 ITERATION
;
STIMES
MOV

023712
023716

000006

A FARILURE OCCURES.

A. HERDS DID NOT MOVE AT ALL
B.

THEN

11S:

R/W AMP

NOTE THAT THE OFFSET FRILURE IS NOT AN ERROR

000004
012737
012706

001174

1°S PATTERNS ON CYLINDER
O, HEARD 0.

Rgno
DARTAR FROM CENTERLINE AND MOVING OUT+ AND - OFFSET

BUT AN INDICATION OF SURFACE, HEAD 8 R/W ELELTRONICS QUALITY ONLY.

023676
023700
023706

000001
001100

TEST READ DATR AT ALL HEAD OFFSET POSITIONS

MOV

osfncx SP

kssrone STK PTR

JSR
ERROR

PC, SUBCLR
24

:CERR AFTER SCLR

CLR

MOV

MOV
Bls
MOV

JSR
ERROR
JSR

WK ERR

SECTOR

SECTOR, RKDA(RS)

80ATAL RKBA(RS) ;WRITE ALL 1'S
#BAI,RKCS2(R5) :BUS ADDR INCR INHIB
8-256. ,RKWC(RS) ;SECTOR O ONL

iWILL DO IHPLIED SEEK TO CYL O
:WAS ON CYL 1 FROM LAST TEST

#<WRDATA), HCS1

PC,DATCMD’
1
SSTAT

océRR HCS!

:DO DATAX FOR CMD 8 GET CONTR RDY
'NO RDY AFTER WRITE DATA CMD
:GET FRESH STRTUS

CZR6IED UNIBUS RKH DR PRT2
CZREIE.PLI
10-JAN-78 09:43

:3§é

024002

00146S

4933

(024004

032737

4934
4935

:ggg
4338

4939
4940
4941

Q240i2
(24014

024020
024022

(24026
Q24034

024036

005237

001402

023727
001003

104046

(024040
(24044

000137
012765

3332

024056

104012

4947
4948
4949

(0240S2

435]

(4066
(24072
024100
(024106

:gga

024120

4950

4352

(Qgulle

000200
035700

4942
443
4944

BEQ

00142l
004737

00045S

00.402

025436
100000

000137

023724

012737
005037
012737

01034C
007446
001720

005037

007454

012737

000001

000002

012737

000003

p24126 004737
4aSE
Qev132
000003
4957
(024134
104052

033042

4955

4958

024136

4953
4360

(024140
D24142

4962

024150

4961

43963

3322

4366
4367

024144

024154

024156

024156
(24164

EOS8

MACY1l 30R(10S5c)
10-JAN-78 11:25 PAGE 95
T14
TEST READ DATA AT ALL HERD JFFSET POSITIONS

007370

000012

104401

000137

104063

Q012737
005037

(024204
024210
024216

00S037
012737
012737

007454
000002
000003

4974

Q24224

004737

033042

4977

Ce4a234

104023

4979

Q24240

104025

4975
(024230 000003
4976 024232 104052
4380

(Qo4236

Q24242

naonrxnc TEST DETECTED 10 BAC SECTCRS

658 :

ERROR

IMP

MOV

007456

007444

007456
007462

nsc ID FOR

JSR

_ WORD
ERROR

PC, CHKMSG

:CHECK MSGS RO,

ERROR
ERROR
ERROR

53
25

IMP

$eoP

MOV
CLR

#<0'D.SPIN'D. oaov-o
vvog
onn>
5 A0
E.BO
)

ERROR

MOV

000031

032262

007354

*MSH BO

EXPECTED MSG B3

BO
.8ERROR
MSGSAFTER
sptcWRITE
tEDBl HERE
DATA CMD

ERROR

iMSG Al ERROR
'MSG Bl ERROR

MSG26

:RBORTING BAL OF TESTS

:BAD SECTOR NOT LISTED IN TARBLE
;EXPECTED MSG AO

$<0.SPOK'!D.CART!
b
ooon D. BRHM'D sSSPy ,E.Al ;EXPECTED Al
sl E.BI
sMSG 10 FOR EXPECTED'MSG B!

JSR

_WORD
ERROR

PC, CHKMSG

s CHECK MSGS RO,

ERROR

;nsu BO ERROR

ERROR

81S
MOV

#BAI, RKCS2 (RS)
8-256. , RKIC (RS)

MOV

004737

:MSG AQ

EXPECTED MSG B2

'EXPECTED MSG A2
'MSG ID FOR EXPECTED MSG B2
"MSG ID FOR EXPECTED MSG B3

000006

012737

T Aa'T.82'0

G ID FOR

E.A2
#2,E.B2
#3 E.B3

001402

Q24272

82,E.B2

CLR
MOV
MOV

013766

000010
000002

;EXPECTED MSG RQ

83 E.B3

MOV

000020
177400

#<0'D.SPIN'D.DROY!D.VV'D.DRA> ,E.R0

MOV

TYPE

66 :

:CERR WITH WRITE DATAR CMD

E.BO
- EXPECTED MSG' 80
8<D.SPOK'D.CART! 6 DOOR'D.BRHM!D.SSP> ,E.Al ;EXPECTED Al
8l _E.BI
MSG ID FOR Expscrso MSG 81’
E.A2
sxpecr D MSG R2

MOV

007462

11§

‘ARE 10 CONSEC. SECTORS BRD
:BR _IF NO

CLR
MOV
MOV
CLR

000004

4885

024300

001500

052765
0127656

4986

:RETURN HERE IF YES

012766

(G242s0
Q24256

024264

SECTOR

:RETURN HERE IF NO

64S:

007452

104053

4981
4982

:gga

INC

6ed

108
'BYPRSS TEST
8CCLR,RKCS1(RS) ;TRY ANOTHER SECTOR

67%:

4970
4971
:g;g

'BR_IF NO
‘ELSE SEE IF secron LISTED IN BSE TABLE

ImpP
MOV

045354

010340
007446

.SEE IF BAD SECTOR FLAG

SECTOR, #10.
64S

007444
007450

031452

#BSE , HEP

CMP
BNE

104023

104053
104025

:BR IF NO ERPORS

658
PC . TRUERR

ERROR

000000

BEQ
JSR

4968
024170 012737 001720 007450
4369 024176 012737 000001 007452

4978

BIT

SEQ 0095

MOV

JSR

ha'r B2'0
8DATRL,

3 MSGS sptcxrt D HERE
:MSG RO tRRon AFTER WRITE DATA CMD
'MSG A1 ERROR

RKBA(RS)

‘MSG Bl ERROR

SECTOR' RKDR(RS)
$<WRTCHK>, HCS1

PC,DRTCMD’

.DO DATA X FOR CMD & GET CONTR RDY

CZREIEQD UTIBUS RKB DR PRT2

10-JAN 78 09:43

CZReIE.P
4987
4988
4989
4990
499]
4992
4993

4994

4995
4996
4397

N
Q00000000
m....—‘—-.—y._p_;—’QWO
N LW

S011

024304
024306

02433
Oe434
024346
024350

MACY1l

FO8

30R(10S2)
10-JAN-78
11:25
PARGE 96
Ti4
TEST RERD DATA AT ALL HEAD JFFSET POSITIONS

ERROR

033664
100000

0073s4

JSR
BIT

040000

007356

gég

000024
001500

001452
001454

024354
024362
024366
024374
geuu40e
04406
02441y

010340
007446

g24vyee
pe442H
024430
De443e
02443y
024436
04440
02444y

033042

000003

:NO RDY AFTER WRITE CHECK CMC

‘GET FRESH STATUS

BEQ

gggs,ucsa

:SEE IF WRITE CHECK ERROR

MOV

RKDG (RS) , WD1

s ACTUAL uono FOR PRINTOUT

ERROR

sCERR AFTER WRITE CHECK CMD

MOV

ERROR
R

:
688

ma43se

PC,GSTAT
8CERR, HCS1

SEQ 0096

DRTAL, WD2

1B
698

XPECTED WORD FOR TYPEOUT

: WCE nrrtn WRITE CMD

007444

MOV

007450
007452

MOV
MOV
CLR

#:0D.SPOK'D.CART!D. ooon D.BRHM!D.SSP)> ,E. 91 :EXPECTED Al
%l E.
s MSG 10 FOR EXPECTED' MSG
B
£.h2°
iEXPECTED
MSG Ae

MOV

83 E.B3

nsc ID FOR EXPECTED MSG B3

CLR
MOV

007456
007462

. WORD
ERROR

04S354
0314s2

#2,E.B2

-EXPECTED MSG'BO

;;EXPECTED MSG RO

MSG ID FOR EXPECTED MSG B2

JSR

PC, CHKMSG

Aa-T.82'0

: CHECK nscs RO,

ERROR
ERROR
ERROR
TYPE

31
60
32
MSG26

:MSH BO ERROR
:MSG Al ERROR
:MSG Bl ERROR
"ABORTING BAL OF TESTS

IMP

024450

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

E.B0

$eoP

MSGS sptc tED HE
:MSG RO ERROR AFTER WRITE CHECK CMD
BO

698

024450
024456

010340
007446

024502
024510

00Cco03

024516

0330~

007444

MOV

007450
007452

MOV

CLR

007456
007462

024534
024540

104401
00S001

o44641

ge4sye
024546
pe4sse

012700
104401
010146

000001
044700

024554
024556

104403
0ol

CLR
MOV
MOV

E.A2
%2,E.B82
83 E.B3

{EXPECTED MSG A2
:MSG ID FOR EXPECTED MSG B2
:MSG 1D FOR EXPECTED MSG B3

JSR

PC, CHKMSG

; CHECK nscs no

ERROR
ERROR
ERROR

31
60
32

ERROR

#<D.SPOK'D.CART! 6 ooon'o BRHM!D.SSP> ,E.Al ;EXPECTED Rl
8l E.B1

Aa'T.82'0

MSG 10 FOR EXPECTED MSG Bl

B0,

:MSG A0 tnnoanrrsn WRITE HECK CMD

iMSH BO ERROR
:MSG Al ERROR
:MSG Bl ERROR

MSG8

;Rsno WITH OFFSET TEST

MOV

#1,RO

s INIT orrssr COUNTER

TYPE
MOV
TYPOS

BYTE

MSG9
R1,-(SP)
1

SPECIFYED
H

CLR

TYPE

Ss:

XPECTED MSG'B0

;EXPECTED MSG AO

MOV

. WORD

104032

#<0'D.SPIN'D. onov-o VW!D.DRA> ,E.AR0

E.BO

:HERD #

HERD
,,snvs Rl FOR TYPEOUT
*1TYPE

HEAD

;GO _TYPE--OCTAL RSCII

DSTYPE 1 DIGIT(S)

¥4 RBIEO UNIBUS RKB DR PRT2 4
09
10-JRN
CZRBIE.P

;WRITE CHECK ERROR FLRG

034214

SR
ERROR

PC, SUBCLR
24

;CERR AFTER SCLR

000016

MOV
SWAB
MOV
SWAB

RO, RKASOF (RS)
R1
R1,RKDA(RS)
R1

MOV

8708, SESCAPE

001456

024570
024574

004737

TYPF

19:

000006

oc46le
024620
024626
024632

024700
000015
032224

0011 76
0073 54

024634
024642
024646
024654

032140
007446
001720
000001

MOV

e(ngIP!D.SPIN!D.OFF.D.VV!D.DRR),E.RO

007450
007452

MOV
MOV

020.SS?K!D.CQRT!D.DOOR!D.8RHM!D.SSP>,E.Ql

JSR

PC, CHKMSG

cuec MSGS AQ

ERROR
ERROR
ERROR
ERROR

35
b1
36
b2

MSG B1 ERROR

CLR
MOV

SESCAPE
15000, TEMP1

CLR

_WORD

007444

007450
007452

033042

025004
0esgle
025020
025026

100000

70$:

JSR

007456
007462

MOV

;EXPECTED MSG RO

8l,E

0f070

C,FRtT2

ao n

& MSGS SPECIFIED HERE'
nsc RO Enngg ounxnc OFFSET CMD

;SETUP TIMEOUT

iFIND_ATTN
INO ATTN AFTER OFFSET CMD

#<D.DSC!'D.OFF!D.SPIN!D.DRDY!D.VV!D.ORA> ,E.AC

E.BO

;EXPECTED
MSG BO

8l E
E.A2

MOV

¢3.E.83

HSG ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

-CHECK MSGS AQ,

ERROR
ERROR
ERROR

a
251
37

MOV

. WORD

000000
00GC010
007354

;D0 RECAL CMD & GET CONTR RDY

:NO RDY AFTER OFFSET CMD

CLR
MOV
MOV
CLR

ERROR

032eeH

sHERD NO.

007444

ERROR

024766
ge477e
024774
024776
025000
0es002

;OFFSET VALUE

8OFFSET HCSI
PC, DOCMD
33’

oo74le

000003

,SCRLF

MOV
JSR
ERROR

033042

024700
024704
geuzie
024716
024720
024726
024732
024740
024746
024752
024760

SEG 0097

OFFERR

00s037

004737
000000
10403S

PAGE 97

TEST READ DATA AT ALL HEAD JOFFSET POSITIONS

CLR

024Sse4

012737

GOS8

11:25

; s SUPPRESS LERDING ZEROS

001205

g24662
024666
024670
024672
0c4674
024676

T1Y4

10-JAN-78
O

000
104401

024576
0e4602
024604
024610

30A(1052)

.BYTE

024557
024560

104024

MACY1l

MOV

MOV
MOV
JSR

;EXPECTED MSG RO

#<D. SS?K0. CQRT'O DOOR'D BRHM!D.SSP> ,E.R1 ;EXPECTED Rl
G _ID FOR EXPECTED MSG Bl
EXPECTED MSG Re
$2,E.82

ha'T.82'0

#CCLR,RKCS1 (RS)

SUNIT RKCS2(RS
#CLEAR, HCS1
PC, DOCHD

MSG ID FOR EXPECTED MSG B2

BO
HERE
-8 MSGSSecxriso

;MSG AQ tnsgn nrrsn OFFSET CMD

'nsc Bl ERROR
:DRIVE®S
;D0 DRIVE CLEAR CMD 3 GET CONTR RODY

CZREIED UNIBUS RKe DR PRTe

CZRGIE.PI11

10-JAN-78 09:43

MACY1l

30A(10S2)

T1Y

10-JAN-78

sfoé 025042 104154
Yy
geefdd
853822
025?7q
852183

?
0y
84.5;2?
8§§§88 838874
81578? 601488 88§8§§
01553; 832325 0073
104015

MOV
ggg
:gz
JSR
ERROR

113

025114

032737

BIT

gi{;

025122

001421

033664

040000

007356

024

001452

éiiz 852132 86%337 88?455

2153 QE2ids BRGLFT ooust
5121 025144 103451 045620

BEQ

MOV

INC

RKDB(RS), WD1

:GET MISCOMPARED WORD

B0
TYPE

9% °R
MSG39

:WRITE CHECK FARILURE AT OFFSET

010046

MOV

S1eY

025153

104403

Tvsgg

025162

104401
104401

g{gg

B BRI

?
BT
o 200

6133
5134

025174
025200

020027
001412

000060

5137

025210

012700

000200

S140
Eidé

025220
025232

005200
000137

024564

5143

025226

005737

001456

213 055306 D0japy |oMvse

gigg

S144

025214

(025232

000137

001366

YTE

001208
001205

024564

TYPE
TYPE

2s:

8% :
3%:

4s:

Ei:g 025239 104401 04S4e2
S14?

E{:g

025240

000763

5150

025242

020027

025254

001072

€163
164

02S2Se

000760

000260

5% :

:D0 WRITE CHECK CMD. 8 GET CONTR RDY.
*NO RDY AFTER WRITE CHECK CMO

PC,GSTAT

025150

:ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

:TEST FOR ATTN

JSR

gisg

Ei%;
§g§i
5
812
25186

154

#DATR},
RK
:an
éfikgigc
gsaiggénfigg
PC,DRTCHMD
15

ERROR

1
§18§
?fBe
5{?3
gxxx

004737

:NO RDY AFTER DRIVE CLEAR CMD

éggrsrnru

025044

025110

Egn

giga

6112

718:

PRGE 48

TEST RERD DARTA AT ALL HERD OFFSET POSITIONS
RROR

g?gg §§§§§§ éggégé 032602

HOS8

11:25

suWlE, HCS2

OFFERR

RO, - (SP)

,SCALF
"§CRLF

CMP
BEQ

RO, %60
4g

MOV

#200, R0

JMP

38
18

IrC
P

RO
18

1S7T

OFFERR

TYPE

-MS637

BNE

:BAD WRITE CHK ERROR=SET ERR FLG.

Ei?@XE 89‘§2§ JEEEQUT

;;TQPTYPE-I8C¥RL RSCII

17
$8177,RO
&8

:GET FRESH STATUS

EESUPSRES& LERSING ZEROS

:SEE

_]JF OFFSET_IS + OR -

OBERELy

.SETUP FOR NEG OFFSET

:D0 NEG OFFSETS
:
RITE CHECK ERROR AT MAX POS OFFSET

B8R

‘DO NEG OFFSETS

CMP

RO, %260

BNE

TSTIS

;ngrgslsrrnsn HEADS DID NOT MOVE

:OR READ/WRITE AMP 1S EXCEPTIONALLY GOOD.

::GO

TO NEXT

TST

SEG 0Ca8

N—
O 00NN LWNN—~0O WD VG‘U‘IUND—OOQ\IU‘BJUN'—D\DQ\JU‘U\IUN’—OOQ NoONY MM

5
oo

NNNNNOOCCTCCTOCOCCVNNIVILN

Q00 VVNOOODOODDODODODOEMOOWMDOEI NNNN

0 UNIBUS Rkb DR PRT2
P11
10-JAN-78 09:43
025260
025oe4

025266

005737
001002

104401

108

MACY11 30A(10S2)
10-JAN-78
11:25 PAGE 99
TiY
TEST READ DATR AT ALL HERD JFFSET POSITIONS
6S:

001456

045540

TYPE

012765
(13765

100000
001222

025306
025314
025320

012737
004737
104124

000013
032224

025322
025330

812755
004737

033664

025344
025346

1042494
013737

025360

104055

025334
025342

025354

032737
001001

004737

ogsas

012765

025376
025404

012737
004737

026370

025410
025412

025416

025420
025422

g2s422
02544

025430

025432
025436

013765

104151
004737

000401

007354

00000!

000026

020000

007402

001406

007414

032634

100000

001222

000005
032224

MOV
MOV

000000
000010

,MSG38

000000

MOV
JSR

PC.GSTAT

#1,RKMR] (RS)

:SELECT WORD 1

ERROR
MOV

244
T10, TEMP2

:RTZ NOT SET DURING RECAL CMD
:SETUP TIMEOUT

:NO ATTN AFTER RECAL CMD

JSR

MOV

007354

104154

738;

80 RTZ,HMR2
72$

PC,FATTI

8CCLR,RKCS] (RS)

€UNIT RKCS2(RS)

MOV
JSR

#CLERR, HCS1
. >, D0CHD

73¢

ERROR
JSR

032602

8CCLR,RKCS1RS)
SUNTT RKCS2(RS)

:D0 RECAL CMD 8 GET CONTR RDY
'RDY NOT SET RFTER RECAL CMD

ERROR
000010

'NOTE' EITHER HEADS DID NOT MOVE
‘OR RERD-WRITE AMP IS EXECEPTINNALLY GOOD.

#RECA( , HCS1
PC, DOCMD
12%

BIT
BNE

72$8:

:NO WRITE CHECK ERROR AT MAX NEG OFFSET

MOV
JSR
ERROR

ERROR

.,
PC,TSTATN

:FIND ATTN

;DRIVES

.00 DRIVE CLEAR CMD 8 GET CONTR RDY
:NO RDY AFTER DRIVE CLEAR CMD
:TEST FOR RTTN

154

:ATTN NOT CLEARED AFTER DRIVE CLERR CMD

005201
020127

000003

INC
CMP

R1
R1, 3

:HERD CTR
:SEE IF ALL HEADS DONE

000137
104401

024542
045000

JMP
TYPE

9%
MSG12

‘ELSE REPEAT ALL FOR NEXT HERD
‘OFFSET FRILURES ARE NOT ERRORS

001402

BEQ
108:
;I'

0254s2

012706

012737

000001

025456

012700

000260

0eS462

004737

034214

0011060

001174

WRITE WITH HERDS OFFSET

THIS TEST VERIFIES THAT WHEN ATTEMPTING TO

WRITE WITH READS OFFSET THAT THE OFFSET WILL CLERR

S ¥

SINCE THE WRITE COMMAND HARS AN IMPLIED RTC.

000004

'BR IF YES

L a

g25s442

104

HI !!lll!lllllll!‘lli!lll!{!!lll!‘lillllllllll’!llllli!llll!llll!l»
(kTEST 15

025444

OFFERR
Y4 3

rd ¥

025272

p2s272
025300

1ST
BNE

t6715:

1$:

8 THE DRIVE WILL WRITE

THIS TEST IS PERFORMED FOR MAX POS 8 NEG OFFSETS ONLY

scope

MOV

#1,STIMES

::N00 1 ITERATION

MOV

sStAck, sp

:RESTORE STK PTR

MOV

260, RO

:MAX NEG OFFSET

JSR

PC,SUBCLR

SEQ 0099

i
rororuuR

0 UNIBUS RK& DR PRT?
.Pl1
10-JAN-78 09:43

MRCY11

025466

104024

025470

010065

oooo1le

02S474
025502
025510
02ssiM

012737
012737
004737
104033

02556
000015
032224

001176
007354

025516
025524
025530
025536

012737

007444

012737

032140
007446
001720
000001

025544
025550
025552
025554
025556
025560

000000
10403S
104061
104036
1040862

004737

033042

025562
025566
025574
025600

00S037
013737
004737
104034

025602
025610
025614
0esee2
025630
0ese34
02s642

012737
005037
012737
012737
005037
012737
012737

000002
000003

025650

004737

033042

30A(1052)
T15

025726
025732

:CERR AFTER SCLR

MOV

RO,RKASCF (RS)

;SET OFFSET

MOV

2648, SESCAPE

JSR
ERROR

8Cr FOET, HCSI
PC, COCMD
33

#<D.PIP'D.SPIN'D.OFF!D.VV'D.DRR>
,E.AR0

.(D.SS?K!D.CRRT!D.DOOR!D.9RHH!D.SSP>,E.fll

PC, CHKMSG

HsH)
35
bl
36
¥
64S:

$ESCAPE
15000, TEMP1

pC,FAtT2
34

PC, CHKM c

: CHECK nscs A3,

:EXPECTED MSG AO

8<D.SPOK'D.CART!H.DOOR!D.BRHM!D, SSP >, E. 91 ;EXPECTED Rl
$1,E.81
:MSG ID FOR EXPECTED MSG B1
E.A2°
EXPECTED MSG Re
MSG ID FOR EXPECTED MSG B2
#2,E.82
M3¢ 1D FOR EXPECTED MSG B3
#3 E.B3

007456
007462

T.82'T.B

aso

#CCLR,RKCS] (RS)

000000
000010
007354

032602
658:

000006

s SETUP rxnsour

EXPECTED MSG BO

001402
001402

:FIND ATTN
'NO RTTN AFTER OFFSET CMD

£.80

261
37

005037
013785

; CHECK MSGS RO,

8 MSGS SPECIFYED HERE'
:MSG R0 ERROR DURING OFFSET CMD
:MSH BO ERROR
'MSG Rl ERROR
:MSG Bl ERROR

#<D.DSC'D.OFF'D.SPIN'D.DROY'D.VV!D.DRA> ,E.A0

007450
007452

104154

;EXPECTED MSG AO

sl
E

007444

100000
00iz222
00000S
032ee4

:D0 RECAL CMD 8 GET CONTR RDY
:NO ROY AFTER OFFSET CMD

E.BO

007450
007452

007412

SEQ Q100

100

ERROR

MOV

02sebH4
025666
025674
025702
025710
025714
025716
025722
025724
025726

JO8

10-JAN-78
11:25
PAGE
WRITE WITH HEADS OFFSET

4%:

BO,

A1,

-8 MSGS SPECIFYED HERE
nrrsn OFFSET CMD
ERROR
RO
:MSG
:MSH BO ERROR

:MSG A1 ERROR
'MSG B1 ERROR

;DRIVES

SUNIT RYCS2(RS)
#CLERR, HCS1
PC, DOCHD
15
gg,TST“T"

;D0 DRIVE CLERR CMD & GET conrn RDY

154

;ATTN NOT CLERRED AFTER DRIVE CLEAR CMD

SECTOR

SECTOR,RKDA(RS)

'NO RDY AFTER DRIVE CLEAR CMD
!TEST FOR ATTN

CZRGIEQ UNIBUS RKE DR _PRTZ2
10-JAN-78 09:43

CZR 6IE. Pll

025740
025746
025754

MACY!1l

30AR(10S2)
T1S

012765
0c2765
012765

001474
000020
177400

000004
000010
000002

MOV
BIS
MoV

042737

000023
03e226e

007354

MOV

026010

004737
104011
004737
032737
001465

02601
02602
026022
026026

032737
00142l
004737
00045S

033664
100000

007354

000200

007370

035700

005237
023727
001003

026064

104012

026066
026074

012737
00S037

012737
012737
004737
000003
104052

010340
007446
001720
000001
007454
000002
000003

104063

nyiiniion
Ui
WWWwWwWwWWWwWWw
W
PO PO N 0= e e e e s P s e e
n—-0woNTNLWwNN~—0O

012737

026216
02bee4

0eee32
0eea4e

012737
004737
000003
104052
104023

000000

66%:

67%:

0’S

PC.DATCMD'

BIT
BEQ

#BSE, HER
6 78
PC, TRUERR

PC GSTAT

octRR HCS1

X FOR CMD 8 GET CONTR RODY
;D0 DATA

:NO RDY AFTER WRITE DATA CMD
{GET FRESH STRTUS
;BR

IF NO ERRORS

; SEE _IF BAD SECTOR FLRAG

:BR_IF NO
‘ELSE SEE IF SECTOR LISTED IN BSE TRBLE
{RETURN HERE IF NO
;RETURN HERE

IF YES

ggEIéO SONSEC SECTORS BRD

: ABORTING TEST DETECTED 10 BRD SECTORS
:BYPASS TEST
;:TRY ANOTHER SECTOR
#CCLR,RKCS1(RS)

4§

;CERR WITH WRITE DATA CMD

#<0!D.SPIN!D. DRDYED VV!D.DRA>,EORO;EXPECTED MSG RO

007444

E.80

007456
007462

PC, CHKMSG

: CHECK nscs AO,

aa
53
2S

iMSH BO ERROR
iMSG Al ERROR

Aa'T.B2'0

MSG26

68%:
69%:

00744~

007450
DO74Se

007456
007462

PECTED MSG'B

#<D.SPOK!D.CARRT!'0.DOOR!D.BRHM! g ? E.Al_ ;;EXPECTED Rl
sMSG I D FOR EXPECTED' HS 81
sl _E. Bl
XPECTED M3G R2
E.R2
MSG 1D FOR EXPECTED MSG Be
$2,E.B2
#3.E.B3
iMSG ID FOR EXPECTED MSG B3

007450
007452

045354
0314582

033042

;WRITE ALL

033042

010340
007446
001720
000001
007454
000002
000003

8 <(WRDATA> ,HCS1

JSR
ERROR
JSR
BIT
BEQ

SECTOR
SECTOR, #10.
66%

000012

026756
100000
025732

#DATAO, RKBA(RS)

SEQ 010!

101

#BAI, RKCS2(RS)
:BUS ADDR_INCR INH
8-256. , PKWC (RS) ;FUCL SECTOR

688

104023

S309

KO8

PAGE
11:25
10-JAN-78
WRITE WITH HERDS OFFSET

$eop

BO,

Al,

SGS SPECIFYED MERE

:MSG RO tnnon AFTER WRITE DATA CMD

:MSG Bl ERROR
:ABORTING BAL OF TESTS
;BAD SECTOR NuT LISTED IN TRBLE

#<0'D.SPIN!D.DRDY!D.VV!D.DRRA> ,E.RO
£.80
EXPECTE 0 MSG' B0

; EXPECTED MSG RO

#<D.SPOK'D. CRRT'b DOOR!D.BRHM!D.
SSP ,E.Al_ ;;EXPECTED Al
D _FOR EXPECTED MSG Bl

E. Bl

E.A2

sMSG I

EXPECTED MSG R2

MSG ID FOR EXPECTED MSG Be

#2,E.B2
#3 E.B3

HSG ID FOR EXPECTED MSG B3

PC, CHKMSG

: CHECK nscs A0,

T.42'T7.B2'0

SE
a3

BO,

Rl,

sGS SPECIFIED HERE

;MSG A0 tRRon nrvsn WRITE DRTR CMD
:MSH BO ERROR

CZRSIEO UNIBUS RKE& DR _PRTZ2
CZR 6lIE.
10-JAN-78 09:43
26244
Oee24e

104053
10402S

026250

01276

026302

001401
104105

026302
026304

104415
012706

026310
026314

004737
104024

MACY11

LO8

30R(1052)
10-JAN-78
11:25
PAGE
T1S
WRITE WITH HERDS OFFSET

ERROR
ERROR
000002
033664
001356

MOV

000026

70$:

001360

719%:

001100

034214

26316
cb3c4
0e6332
026340

001474

Bec304
REe3es

000031
0322k

001402

000137

007444

BR IF YES

:MSG B2 NOT CLERRED RFTER WRITE CMD WITH OFFSET

#STACK,
SP

;RESTORE STK PTR

JSR
ERROR

PC, SUBCLR
24

;CERR AFTER SCLR

8DATAQ, RKBA(RS)

1S’

PC,GSTAT

BEQ
BIT
BEQ

738
8I{CE
, HCS2
728

BIT

$CERR, HCS1

X FOR CMD 3 GET CONTR RDY
;D0 DARTA

:NO_RDY _AFTER NRITE CHECK CMD
{GET FRESH STATUS

;SEE IF WRITE CHECK ERROR

DATAO, WD2

; ACTUAL NORD FOR PRINTOUT
XPECT ED WORD FOR TYPEOUT

ERROR

;CERR AFTER WRITE CHECK CMD

MOV

g(SDD SPIN!D.DRDY!D.VV!D.
DRgé EORO;EXPECTED MSG RO

CLR

E.A2

MOV

RKDB (RS ) , WD1

ERROR
R

16
73%

MOV

729%:

IF_YES

SCOP1
MOV

RROR

02642k

045354
031452

718
105

# (WRTCHK)>
, HCS1
PC,DATCMD

Qo145e
001454

033042

TST

MOV
JSR

000024
001474

004737

CYLARDD

:MSG A2 Ngg SEESRED AFTER WRITE CMD WITH OFFSET
M
{SEE IF

007354

007356

026476
026502
026504
6506
026510
026512
026514
0e6520

gEEIF MSG R2=0

708
104

#BAI, RKCS2(RS)
#-256. , RKWC (RS)
SECTOR, RKDA(RS)

040000

012737

CcY(DIF

BEQ
ERROR

8IS
MOV
MOV

007354

026470

; SELECT WORD 2

MOV

033664
100000

010340
007446
001720
000001
007454
00ooo2
000003

#2,RKMR1 (RS)

000004
000010
000002
000006

02642

026430

;MSG Al ERROR

iMSG Bl ERROR

PC.GSTAT

BEQ
ERROR

SEQ 0102

53
25

JSR

TST

102

007450
007452

CLR
MOV
MOV

007456
007462

MOV
MOV

#<0.SPOK!D. CQRT'ODOSR'D
BRHM!D.SSP> ,E.Al _;EXPECTED Al
sl

82,E.B2
#3 E.B3

JSR

PC, CHKMSG

ERROR
ERROR
ERROR
ERROR

31
60
32

JMP

$c0P

. WORD

TYPE

s WCE RFTER WRITE CMD

Ae'T.B2'0

MSG26

;MSG_ID FOR EXPECTED'MSG BI
EXPECTED SG A2

MSG ID FOR EXPECTED MSG Be

MSG ID FOR EXPECTED MSG B3
: CHECK MSGS A0,

BO,

Al,

8 MSGS SPECIFYED HERE
.MSG A0 ERROR AFTER WRITE CHECK CMD
'MSH BO ERROR

‘MSG Al ERROR

HaG Bl ERROR
:ABORTING BAL OF TESTS

CZREIEOC UNIBUS RKe DR PRTZ
CZRBIE.P11
10-JAN-78 09:43
380

MACY1l

B few
gy
W
44
012737
00?80&

s Ee 0 e

T15

26604
026606

5393
S400

026616
026be2

S402

026626

404

02bbeb

S40S

026634

e<ooo SPIN!D.DRDY!D.vaoDonn>
,E.AD

007450
007452

go;

DO7456
007462

MOV

MOV
. WORD

JSR

012765
013765
7
862?

026656
026664
026670

012765
004737
032737
001001

S422
S4e3
S424
S4eS
S426
S427

€430

104124

[

026654

o
o
o

5408

026714

1040SS

e
g
056?5? 1273
026740
026744
026?746
026752
026754
026756
026756

2385

ERROR

000260

|<B SPOK D.CART! b0055 B BBHH'B SSP> ,E.Al ;EXPECTED Rl
PE D FOR EXPECTED’MSG B1'

ué EE.B3
B2

fié
?5 PoflExQEcreo MSG B2
:MSG ID FOR EXPECTED MSG B3

CHKM
T.ASET.ES!O

; CHECK MSGS

PC,

n
G n

RQ,

JMP

i ?89 EBECI}XEB HERE

RROR AFTER WRITE CHECK CMD

nsc nx ERROR

ERROR

MOV

000060
oesu4ee

;EXPECTED MSG RO

:MSG Bl ERROR
#260

:BR IF JUST DID POS OFFSET

'ELSE SETUP FOR POS OFFSET

#60, RO

cs:

iy
LLLLrrcrLLLr
UM 0 dms s s s s P Pt Pt e
-OwuoONOTNILWN-0O

2403 BSeEds

012700
000137

SEQG 0103

EE;

104060
104032

£3ds BsERlS 862855

103

007444

00 3
SR gBy
o0
3 Gesigg 184851
S39S

MO8

11:25
PAGE
10-JAN-78
WRITE WITH HERDS OFFSET

73%:

026Se4

gggé 026524 012737 010340

30A(10S2)

000401
1

100000
g0l222

CREREE
000001
033664
020000

000026

001406
032634

007414

100000

000000
000010
007354

032224

MOV

000000
000010
007354

MOV

007402
748

124

MOV
JSR
BIT
BNE

81,RKMR] (RS)
PC.GSTAT
80’ RTZ, HMR2
748

JSR
MOV

MOV
MOV
JSR
ERROR
SR
BR
75%:

39%:

ERROR
ERROR
ov

ERROR

(RS)

onegn% HCS[

JSR

ERROR

032602

#CCLR,RKCS]

SUNIT RKCS2(RS)

:D0 RECAL CMD & GET CONTR RDY

'RDY NOT SET RFTER RECAL CMD
:SELECT WORD 1

244
710, TEMP2

:RTZ NOT SET DURING RECAL CMD
:SETUP TIMEOUT

:NO ATTN AFTER RECAL CMD

PC,FATT1

#CCLR,RKCS1(RS)

SUNIT RKCS2(RS)
#CLEAR, HCS1
PC, DOCHMD
15]
PC,TSTATN
75$
154

:FIND ATTN

;DRIVES
;00 DRIVE CLERR CMD & GET CONTR RDY
'NO RDY AFTER DRIVE CLEAR CMD
:TEST FOR ATTN
;ARTTN NOT CLEARED AFTER DRIVE CLERR CMD

CZRGIED UNIBUS RK& DR PRT2
CZReIE.PI1
10-JAN-78 09:43

NOS

MACY1! 30A(1052)
10-JAN-78 11:25 PAGE 104
T16
TEST CURRENT CROSS-OVER CYLINDERS

6432

g:ga

2212222122122 2222222222222222X22222XP22222X2X2222222X2X22 2L

irssr 16

5435

SEQ 0104

TEST CURRENT CROSS-OVER CYLINDERS

5436
g:gg

;%
X

5439

WITH A DATR PATTERN FILLING THE ENTIRE 2 CYLINDERS.

E4y2

A WRITE CHECK IS THEN PREFORMED TO VERIFY DATAR WAS PR >FF_Y WRITTEN.

5445
g::g

s¥
i*

CYLINDER X:
CYLINDER Y:

63
64

E44g

CYLINDER X:

127 255

E:Eé

2:
ALL ABOVE CYLINDERS IN DECIMAL
: o 63636 3636 36 36 36 36 36 3 36 3 36 36 36 3 36 3 3 3 36 36 36 3 3 3 3 36 3 3 3 36 36 36 3 36 3 3 3 3 3 3 3 3 36 3¢ 36 3 3 36 3 36 3% 3 3 3 % % 3 3% % %
Y&T1e: SCOPE

g::?

P¥

2333
g:gg

5453
6454

026756

00000M

g:g;

026766

012706

458

026772

5460

027000

6455

459
S46]

026760

012737

000001

005737

001170

012700

001436

026776

001403

027004

000402

001100

001174

THIS TEST VERIFIES THAT THE onxve CAN WRITE & READ OFF
CURRENT CHANGE CYLINDERS
X 8 Y IN THE FOLLOWING WAY:

SPIRAL WRITING IS PERFORMED FROM CYLINDER
X TO CYLINDER Y

THIS TEST IS PERFORMED FOR ALL 3 HERDS.

CYLINDER Y:

MOV

MOV
75T

012700

001422

S§:

S464

027012

004737

034214

18:

467

027020

011065

000020

001502
000020
076000

000004
000010
000002

MOV
BIS
MOV

472

027746

012737

000023

007354

MOV

033664
100000

007354

JSR
ERROR
JSR
BIT

000200

007370

BIT

468
5469
g:;?
8473
S4y74
€475
8476

g:;g
6479

480
6481
G482
6483
g:gg
486

S487

027016

027024
027032
027040

O0c:054
(027060
027062
027066
027074
027076

027104
027106
027112
027114
027120
027122

027130

104024

012766
052765
012765
004737
104011
004737
032737
001451

032737

001405
004737
000441
000137
104012
012737

005037

032262

027574
010340

007446

007444

sCYL,RO

JSR

PC, SUBCLR

ERROR

BEQ

65%:

#CYL7,RO

MOV

035700

S TMPY

027006

g:gg

#StAck, SP

g:gg

128 256

8] STIMES

BEQ

MOV

BEQ
JSR
BR
JMP
ERROR
MOV

CLR

127
128

191
182

383

384

255
256

319
320

383
384

RKO6
RKOb

511

639

767

RKO?

&12

640

768

RKO?

;00 1 ITERATION

:SEE_IF RKO?

'BR_IFNO

'ELSE LOAD UP RKO7 TABLE
:RKO& CYL ADDR TABLE

: CERR AFTER SCLR

(RO) ,RKDC(RS)

;CYL

#DPAY1, RKBAIRS) ;DATA PRTTERN
#BAT,RKCS2(RS) :BUSS ADDR INCREMENT INHIBIT
#-6%32. #256. ,RKWE (RS) ;WORD COUNT TO SPIRAL & FILL 2 CYLINDERS
#<(WRDATAY, HCS1

PC,DARTCMD’
11
PC,GSTAT
uctna HCS1

;D0 DATAX FOR CMD 8 GET CONTR RDY
'NO RDY AFTER WRITE DATA CMD
'GET FRESH STATUS

678

;BR IF NO ERRORS

#BSE , HER

:SEE_IF BAD SECTOR FLAG

653
PC, TRUERR
668
33
12

:BR_IF
NO
*ELSE SEE IF SECTOR LISTED IN BSE TABLE
'RETURN HERE IF NO
‘RET HERE IF YES
:CERR WITH WRITE DATA CMD

#<0'D.SPIN'D.DRDY'D.VV!D.DRR> ,E.R0

E.BO

;EXPECTED MSG'BO

:EXPECTED MSG AO

CZR6IEQ UNIBUS RK& DR PRT2
CZREIE.PI1
10-JAN-78 09:43

5488

§489
S490
649]
g:gg

027134

Q27142
027150
Q27154
027162

012737

001720

012737
005037
012737
012737

000001
007454
000002
000003

027170 004737
6495
027174 000003
64396 027176 104052

033042

6494

S497

027200

104023

6500
6501

027206
027212

104401
000137

2383

027220

g498
S499

6502
6505

8506
6507
5508
509
6510
gfiié

(027202
(027204

027216
027220

027226
027232
027240
027246
027252
027260

6513

027266

5516

027276

ggig

027302

104053
104025

104063

012737

007450

MOV

007452

007456
007462

678:

010340

007446
001720
000001
007454
000002
000003

004737

033042

007444

G ID FOR EXPECTED MSG Bl
EXPECTED MSG R2
'MSG ID FOR EXPECTED MSG B2
:MSG 1D FOR EXPECTED MSG B3

J°R

PC, CHKMSG

;CHECK MSGS A0,

ERROR

Aa' .B2'0

:MSH BO ERROR

TYPE
JMP

53
25

MSGee
seop

;MSG A1 ERROR
:MSG Bl ERROR

ERROR
MOV

104025

ERROR

00IS02
000020
076000

000004
00001C
000002

6525

(027332

012737

000031

007354

033vb64
100000

007354

JSR
ERROR
JSR
BIT

BIT

004737
104015
004737
032737

027362

032737

040000

007356

016537

000024

001452

027370

8633

027372

gggg

027410

5534
5535

012765
052765
012765

027400
(027406

00I4S3

001410

013737
104016

027412

104022

6E40

(027414

012737

(027422
027426
027434

032262

001502

MOV

MOV
BIS
MOV
MOV

001454

00S037
012737
012737

68%:
010340

007446
001720
000001

007444

007450
007452

Ae'T.82'0

: CHECK nscs RO,

-8 MSGSAFTER
SPECI
YeDonrn CMD
;MSG RO éRRon
WRIT
,nsn B0 ERROR

:MSG Al ERROR

:MSG Bl ERROR

(RQ),RKDC (RS)

#0PAt1, RKBA(RS)
#BAI, RKCS2(RS)
8-H%22, #256. RKHC(RS)
8 (WRTCHK>, HCS1

PC,DATCMD’
15’
PC,GSTAT
#CERR, HCS1

;D0 DATAX FOR CMD 8 GET CONTR RDY
*NO RDY AFTER WRITE CHECK CMD
*GET FRESH STATUS

$WCE, HCS?2

;SEE IF WRITE CHECK ERROR

MOV

RKDB(RS) , WD1

sACTUAL WORD FOR PRINTOUT

693

BEQ

69%

BEQ

688

MOV
ERROR

000437

gggg

6641
6642
€543

ERROR

027340
027344
(027346
(027352

6532

;EXPECTED MSG RO

ERROR

. WORD
ERROR

000020

6531

#<0'D.SPIN'D.DRD/!D.VV!D.DRA> ,E.AD

104023

007462

011065

027360

;BAD SECTOR NOT LISTED IN TABLE

PC, CHKMSG

007456

027304

5530

:ABORTING BAL OF TESTS

JSR

007450
007452

5520

6526
5527
5528
5529

BO
Bl
-8
MSGS
spec
t
ED
HERE
:MSG A0 ERROR AFTER WRITE DATA CMD

E.BO
- EXPECTED MSG'BO
#<D.SPOK!D.CART! b DOOR!D.BRHM!D.SSP> ,E.A1 ;EXPECTED Al
81 E.BI
MSG ID FOR EXPECTED MSG Bl
E.A2
EXPECTEDMSG R2
%2,E.B2
MSG 1D FOR EXPECTED MSG B2
83 E.B3
nsc ID FOR EXPECTED MSG B3

104053

027310
027316
027324

;EXPECTED Al

CLR
MOV
MOV
CLR
MOV
MOV

027300

5521
5522
ggga

#¢D.SPOK!D.CARRT! o ooon D.BRHM!D.SSP> ,E.Al

8l E.BI
E.A2
#2,£.82
23 E.B3

ERROR
ERROR

669 :

SEQ 0105

MOV
CLR
MOV
MOV

<ORD
ERROR

045354
031452

005037
012737
012737
005037
012737
012737

8514
6515 027272
027274 000003
104052

6517

B80S

MACY1l 30A(1062)
10-JAN-78
11:25
PAGE 105
T:6
TEST CURRENT CROSS-OVER CYLINDERS

ERROR
MOV

CLR
MOV
MOV

DPAT1, WD2
16
22

-EXPECTED WORD FOR TYPEOUT
;WCE AFTER WRITE CMD
;CERR AFTER WRITE CHECK CMD

#<0'D.SPIN'D.DRDY!D.VV!D.DRR> ,E.AD

;EXPECTED MSG RO

E.BO
-EXPECTED MSG'BO
#<D.SPOK'D.CART!H.DOOR!D.BRHM!D.SSP> ,E.Al ;EXPECTED Al
#1,E.B1
:MSG ID FOR EXPECTED MSG B1’

10-JAN-78 09:43

CZReIE.PI1

CZR&IEOQ UNICUS RK& DR PRT2

5S4Y

027442

005037

5545
gg:g

027446
027454

S548

027462

(27466

000003

€551
6562

027472
027474

104031
104060

S554
Eggg

(027500
027504

104401
000137

6549

000002
000003

004737

033042

€550 027470 104057
€653

027476

007454

S?g
737

104032

027510

€559

Q27510

012737

01034C

6563

027536

(005037

007454

6564

027516
027522
02:-30

Pie

30A(1052)

007456
007462

CLR

£.RA2

82,E.B2
#3.E.B3

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

JSR

PC . CHKMSG

: CHECK MSGS A0,

ERROR
ERROR

31
60

TYPE
JMP

MSG26
$e0P

. WORD

ERROR

005037
012737
012737

007446
001720
000001

007444

MOV

007450
007452

CLR
MOV
MOV

007456

MOV

'MSG Bl ERROR

*ABORTING BAL OF TESTS

; CHECK nscs no 80

31
60
32
(RO)+, 8383.
4§
13

:MSH BO ERROR
:MSG Al ERROR
‘MSG Bl ERROR
‘ALL CYLINDERS DONE?
iBR IF YES
'ELSE REPERT

027566
027570
027572
027574
027600
027602

104031
104060
104032
022027
001402
000137

gg;g

027606

6579

027606

012765

013765
012737
004737
104124

001222
0000I3
032224

100000

000000

000010
007354

MOV
MOV
JSR
ERROR

€585

027636

012765

000001

000026

'OV

007462

JSR

_WORD
ERROR

000577

38:

027012

;EXPECTED MSG RO

PC, CHKMSG

6570
§571
8572
§573
5574
EE;E

000003

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

£.BO
EXPECTED MSG'BO
8¢D.SPOK'D.CART! b ooon'o BRHM!'D.SSP> ,E.Al ;EXPECTED Al
$1 E.B!
9roa EXPECTED MSG B1’
nsc 1D FOR EXPECTED MSG B3

033042

ERROR
ERROR
ERROR
CMP
BEQ
IMP

82,E.B2

T.A2'T.B2'0
57

MSG ID FOR expecrso MSG B2

YED HERE
:MSG RO ERRo2§Ptc
AFTER WRITE
CHECK CMD

4§:

6586
6587

0A7644
0.7650

5589

85755&

004737
032737

6590
6591
Eggg

7660

0010C!

(27662
(027670
027674

104244

013737
0047.7
104055

6594

027676

012765

(27704
Q277i2
(027720
027724
(027726

*MSH BO ERROR
;msc Al ERROR

83 E.B3

004737

6595
5596
6597
S598
S599

:MSG A0 tnnon AFTER WRITE CHECK CMD

MOV

027556

012737

5568
027562 000003
6569 (027564
104057

5588

expec

8567

(027614
027622
027630
027634

Al,

E.Re

000002

5580
§58]
5682
gggg

BO,

8 MSGS SPECIFIED HERE

CLR

012737

027550

Aa'T.B2'0

;EXPECTED MSG R2

69%:

027542

gggg

SEQ 0108

.
PAGE
EY0PnoERS
20RRENT LA8ER-0UBR
red? -]JAN-78

MOV
MOV

045354
031452

gggg

5560
8561
6562

MACY11l

cao9

013765
012737
004737
104151
004737

033664
020000

007402

001406
032634

007414

100000

000000

001222
000005
032224

032602

MOV

000010
007354

s, RKHRI(RS)

:SELECT WORD 1

7os

sRT2Z NOT SET DURING RECAL CMD

JSR
BIT

PC.GSTAT
#0.RTZ, HMR2

ERROR

244

BNE

70S:

8CCLR,RKCS1(RS)

SUNIT' RKCS2(RS)
$RECRL, HCS1
PC, DOCHD
:DO RECAL CMD 8 GET CONTR RDY
124
:RDY NOT SET AFTER RECAL CMD

MOV
JSR
ERROR
MOV

MOV
MOV
JSR
ERROR
JSR

T10, TEMP2
PC,FATTI
&5’
$CCLR,RKCS1(RS)

SUNIT RKCS2(RS)
$CLEAR, HCS
PC ., DOCMD
16}
PC, TSTATN

:SETUP 1 EOU
:FIND ATT
'NO ATTN nrrsn RECAL CMD
;DRIVES

:00 DRIVE CLEAR CMD & GET CONTR RDY

'NO RDY AFTER DRIVE CLEAR CMD
STEST FOR RTTN

CZR6IEQ UNIBUS RK& DR PRT2

CZRBIE.PI11
600
601

027732
0287734

5602

027736

gggg

027736

5603
5604

10-JAN-78 09:43

MACY1l 30R(1052)

T16

000401
104154

718:

10-JAN-78

D09

11:25

PRAGE 107

SEQ 0107

TEST CURRENT CROSS-OVER CYL INUERS
BR
ERROR

718
154

:ATTN NOT CLERRED RFTER DRIVE CLEAR CMD

2s:

607

HH 0032 006 300636 3 36 36 36 36 36 3 36 6 36 36 36 3 3 36 35 36 25 3 36 4 3 36 36 3 3¢ 3 2 3 3 2 3 3 3 3 3 3 3 3 I W2 W W KXW EERER

sgog

ckTEST 17
H 3

TEST HERD SWITCHING TIME

gg{?

TESTS THE RBILITY TO SWITCH HERDS IN LESS THEN 10MS WHEN HEADS SPIRAL.

S612

1. SECTOR 23(B) IS FIRST LOCATED AND A WRITE DATA COMMAND OF 512 WORDS

g 14
1S

e
a

5613

i n

§219

T0 SECTOR 25(8)

IS ISSUED.

THE Pnogann
W xngu; THR; TH§ gngvs H&Lg ngr HAVE TO TRAVEL
A FULL REVOLUYION BEFORE
FINDING
SECTOR
25(8).
INCE S“?” §E$TER TflKES APPROX .

STARY

THE

WRITE

} S"s

THS TIME BETWEEN

COMMAND (FROM SECTOR 25(8),

HERD 0; TO

S618

THE ABOVE IS REPERTED FOR HEAD SWITCHING BETWEEN 1 TO 2

gggg

THIS TEST 1S BYPASSED IF NEITHER L OR P CLOCK IS PRESENT

ggg?
5624
5625

027736

5627

027746

5626
5629

000004

027740

012737

012706

001100

J0O0001

027752

005737

007522

001174

SECTOR O, HEAD 1) AND CONTROLLER READY SHOULD BE APPROX 6MS

1. 363 3 33 3 36 36 36 36 3 3 3 3 3 36 3 3 36 3 3 3 3 3 3 3 3 3 36 3 3 3 3 36 3 3 3 36 3 3 3 3 3 3 3 3 3 32 2 I I W KR ERRER
t8717: SCoOPE
MOV

81, STIMES

;;D0 1

TST

DOTIM

; BYPRASS THIS TEST IF

MOV

sStack,
sP

ITERATION

CZKGIED UNIBUS RK& DR PRT2
CZRGIE.PI1
10-JAN-78 09:43

S630
Se2l

0277S6
027760

00100l
000Ses

EOQS

:0-JAN-78 11:25 PAGE 108
MACY1l 30R(1052'
117
TEST HEAD SWITCHING TIME

BNE
BR

19
75720

;NEITHER L OR_P CLOCK PRESENT
::GO TO NEXT TEST

SEQ 0108

CZREIED UNIBUS RKS DR PRTZ

CZRBIE.PI1]
6632

10-JAN-78 09:43

6633

027762

012737

gggg

027774

10M024

S634

027770

0Q4737

S637

027776

0Q4737

ggag

030004

OC0SIM

030006

012765

S638
Se4]l

Se42
S643
Sed4
S64S
Se46
gg:g

030002

030014
030022
030030
030036
030044
0300Se

104106

082765
012765
013765
012737
(0S3737
013765

000025

034214

001476

0336F4

Sebl
S662

030126

032737
001444

100000

ggga

030116
030124

S66S
5666

030130
030136

012737
00S037

010340
007446

S668

030150

000000

7%:

BIT

:DATA 0101

BS:

JSR

PC,GSTART

BIT
BEQ

8CERR,HCS1
39

MOV
CLR

8<0!'D.SPIN'D.DROY!D.VV!D.DRR>
,E.ARQ0
E.BO
: EXPECTED MSG BO

MOV

#]1 . E.Bl

ERROR

001720
000001

007454

030162
030170

012737
012737

000002
000003

5673

030176

004737

033042

5675

030204

030206
030210
030212

1040%2

104023
104053
104025

5680
5681
Se82
683
gggg

030214
030222
030224
030232
030236

023727
00140%
012737
000137

007444

0074S0

MOV

007456
007462

MOV
MOV

007482

CLR

JSR

000425

007422

027770

3%:

;CERR AFTER WRITE DATRA

;;EXPECTED MSG RO

O<D.SPOK!D.CRRT!b.DOOR!D.BRHH!D.SSP),E.Rl

E.A2

;MSG ID FOR EXPECTED MSG Bl

;EXPECTED MSG A2

;MSG ID FOR EXPECTED MSG B2
;MSG ID FOR EXPECTED MSG B3

PC, CHKMSG

;CHECK MSGS ARQ,

;MSG A0 ERROR AFTER WRITE DATA CMD

BC.

Rl,

o'dio

ERROR
ERROR
ERROR

23
63
25

:MSH BO ERROR
;MSG Al ERROR
;MSG B! ERROR

TEMPS 842S
TST20
425, TEMPS
=3 3

+sHERD 1 ,SECTOR 21 DONE~”
; ;GO TO NEXT TEST

cMP
BEQ
MOV
JMP

sEXPECTED A1

#2,E.B2
#3,E.83

. WORD

ERROR

007422

:CHANGE 1O 4000 7-DEC-77

2}3

ERROR
007354

;D0 WRITE DARTA CMD

BNE

JSR
ERROR

104012

S670
gg;é

5687

8DATRQ1 ,RKBA(RS)

;HERD SWITCHING LONGER THAN DELRY

004737

5686

MOV

107

030110

S676
5677
gg;g

000004

;CANNQT FIND SECTOR 23

;FIND RDY AND GET FRESH STARTUS
;NO RDY AFTER SEL DRV CMD

5658

00000C

;G0 TO NEXT TEST

PC,FRDY
11

032320

030202

1ST20

;LOOK FOR CONTROLLER RERDY

004737
104011

Sse’?4

#RDY,RKCS1(RS)

030i02
030106

005
-~

;FIND SECTOR 23

106

;00 DELAY

S6S6
Se57?

030156

PC,FSEC23

ERROR

PC,DLY

000200

Seb9

JSR

03276S

012737

;CERR AFTER SCLR

;2000 IS IN VER 30

030072

012737

s40.0, TEMPIL

5654

030142

ERROR

MOV

033010

Seb7

;HERD O, SECTOR 21 TO BE PUT IN RKDA

PC,QUBCLR

0O074l1e

004737

104107

825, TEMPS

JSR

;BUSS ADDR INCREMENT INMIBIT
;WORD COUNT
;HEAD & SECTOR

030066

030114

MoV

SEQ 0109

#BAI, RKLS2 (RS)
8-512. , RKWC (RS)
TEMFS . RKDA(RS)
sWRDRYA, HCS1
sTMPY, HEST
HCS',fiKCSl(RS)

gggg

1$:

cs:

109

BIS
MOV
MOV
MOV
BIS
MOV

004000

001006

PAGE

TEST HEAD SWITCHING TIME

000010
000002
000006
007354
00C7354
000000

012737

030100

FO9

11:28

000020
177000
007422
000023
001170
707354

030060

565S

007422

10-JAN-78

T17

035000

S649

ggg?

MACYLl1l 30R(1052)

;8 MSGS SPECIFYED HERE

;ELSE REPERT FOR HERD 1,

SECTOR 21

e R EEREREFEREEEEERERR
L ERE RN R R RN RN
RRER RN SRR
RN LTSRN

TTEST 20

DRIVE OFF TRACk TEST

WL BB

@B B

MRCY11 3?261052)

012737

000001
001100

007340
001346
100000

030270
030274

004737
104024

g34214

030276

012700

0015ee

030302
030306
030312
030316

013720

001346
140000
140000
001346

001174

001See

000004
¢Jooge
0000e0

0303s2
030360

000027
032eeke

007354

023654
100000

Yo EVERY CYngBER IS FORMATTED WITH IDENTICAL MERDERS

CYL SEER FROM O TO 1.
8nnnN?HésNés§u§EC§0R (BINGLE
22 HgkcggngREu?sggT

ATELY BE
HERDS TH WILL IMMEDILATIO
N sensso "BV READING THE TRIBITS,
THERE Is

IVE OFF

0SCIL

TRRCK

WILL SET

IN THIS MANNER OSCILLATING SEEKS RRE PERFORMED BETWEEN ALL MAJOR CYLINDERS.
100 OSCILLATIONS ARRE PERFORMED AT EACH MAJOR CYLINDER

BEFORE DOING THE NEXT CYLINDER

SCOPE

MOV

DO 1 ITERRTION

hESTORE STK
*USED FOR anxo HRLT

BADHOR'

JSR

PC, SUBCLR

:CERR AFTER SCLR

MOV

$HOTARB, RO

: FORMAT HERDERS ON ALL MAJOR CYL.

MOV

TOCYL, (RO)+

:HEADER WORD O: CYL

CMP

RO, sHDTAB+132.

ERROR

MOV
MOV
BIS

MOV
MOV
MOV

TOCYL
oexr1s,rsnps

8140000, (RO)+
#140000’ (RO)
TOCYL, (RO)+

:HEADER WORD 1: ALL SECTOR O
'HERDER WORD 2: XOR OF 0 & 1
'ADD CYL # TO WORD 2
;ALL 22 SECTORS DONE? (i2XBb=13g)

‘BR IF NO

#HDTAB, RKBA(RS)

#-66. , RKWC (RG)
ToCYL' RKDC (RS)

.(HRHEQD) HCS1

JSR

PC,DARTCMD’

:D0 DATAX FOR CMD & GET CONTR RDY

JSR
gég

PC.GSTAT
gCERR HCS1

'GET FRESH STATUS

RROR

201

IMP

$eopP

ROL

TEMPS

:SET CARRY ONLY ONCE

CMP

TOCYL,MCL

'ALL MAJOR CrL FORMATTED"

YPE

649%:

$STIMES

osfncx SP

INC

MO /

007354

SEQ 0110

ERROR

015436

110

8¥E8H§CKS FOR SERVO OSCILLATIONS DURING SETTLING TIME BEYOND

{Unddce

BNE

045354
031452

—— =~}
WwL
L Ln
oo

Fit%al

CLR
MOV

2%:

030330
030336
030344

177676
001346

+&T20:

18:

001726

10-JAN-78
,1:25
PAGE
DRIVE OFF TRACK TEST

2
Y 2122222232222 %2:12%2%2%2222222222222:ARYXX2X2222222XXX22222222L

0o742e

0303e2
030326

o000
000

i
i
NN NNNNINNNINNN
PUNU S 0= 0= et s Pt Bt s s P
—OVONCNLZW—O

330838 312737

***lfi‘**###‘*#*#'

0 LlJNIBUS RK6 DR PRTZ
10-JRN- 78 09:4

GO9

ROL

200

MSG26

TOCYL

!NO_RDY AFTER WRITE HEADER CMD

:CERR_AFTER WRITE HERDER CMD
:ABORTING BAL OF TESTS

:SELECT NEXT MAJOR CYL

xSRE1E R Y185 B 8aRE-60.
u

5748
5749
5750

030432
030434

001316
005065

000020

030440
030446
0304s2

012737
004737

000017
032eeM

03045SM4
030462
0304e6

013737
004737
104132

30470
30476
030S00

032737
001401
104210

104131

100000

3?961052)

SEQ 0111

:BR IF NO

RKDC (RS)

007354

MOV
JSR
ERROR

PC, DOCMD
1231

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

00741e

MoV
JSR
ERROR

TSOOOU TEMP]

ssrup TIHEOUT

0073S4

BIT
BEQ
ERROR

#CERR, HCS|
65§

210

;CERR AFTER SEEK CMD

CLR

8SEEK , HCS1

ATte

1é

*SETUP TO RETURN TO CYL O

FIND ATTN

NO ATTN AFTER SEEK CMD

658:

030502
030502
030504
030512

005000
012737

000001

030516
030520

104415
012706

001100

030524

013737

001346

004737
104024

034214

005037

001344

001346

001354

3%:

3117
013
01500
000020
177400
030576
030604
030610

000023
032262

030612
030616
030624
030626

033664
020000
104112

030630
030e36
030640

032737
001401
104012

100000

MOV
CLR

$1, TOCYL
FREYL

s ITERATION COUNTER

SCOP1
MoV

#STARCK, SP

:RESTORE STK PTR

MOV

TOCYL, CALDIF

:SETUP FOR ERROR PRINTOUT

PC,SUBCLR

'SETUP TO CYL

;CERR AFTER SCLR

SFORM,SEBCRPE
TOCYL
C(RS)

;GO TO CYL

#DATAl,RKBA(RS) :ALL 1'S
#BAI, RKCS2(RS)
#-256. ,RKWC(RS) ; SECTOR TO BE ALL 1'S

SWRDATA, HCS1

PC,DATCHD
11
PC,GSTAT

007404

007354

c%:

:D0 WRITE DATA CMD & GET CONTR RDY
!NO RDY AFTER WRITE DATA CMD.
:GET FRESH STATUS

g% DROT, HMR3

!SEE IF DRIVE OFF TRACK

112

:DRIVE OFF “RACK AFTER WRITE DATA CMD

ggERR,HCSl

030642

030642
030650
030654
030662
030670
030674

HOS

ot 057N 78rakd §Bg PRGE 111
BNE
CLR

000

5744

5745
74
74

MACYL]

:CERR SET AFTER WRITE DATA CMD

6%:
007444

D074S0
0074se
0074S6

#<0!D.SPIN!D.DRDY!D.VV!D.DRA>,SORO
. EXPECTED MSG
E.80

; EXPECTED MSG RO

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

%1 E.BI

:MSG ID FOR EXPECTED MSG B!

#2,E.82

:MSG ID FOR EXPECTED MSG B2

£.R2°

:EXPECTED MSG R2

;EXPECTED Al

CZRBIEO UNIBUS RK& DR _PRTe
vl. 6IE. P11
10-JAN-78 09:43
030702

012737

000003

030710

004737

033042

MACY11

30A(10S2)
Te0

poTyeR

109

10-JAN-78
11:25
PAGE
DRIVE OFF TRACK TEST
#3,E.83

;+MSG

JSR

PC, CHKMEG

; CHECK nscs AC,

iMSH BO ERROR

. WORD

ERROR

;RESTORE STK PTR

JSR
ERROR

PC, SUBCLR
24

;CERR AFTER SCLR

MOV

#DATAL,

030746
0307S2

004737
104024

034214

030754
030762
030770

012765
052765
012765

001500
000020
177400

000004
000010
ooooge

BIS
MOV

000023
032262

007354

MOV

033664
020000

032737

100000

007354

;RETURN TO CYL O

#BAI, RKCS2(RS)
#-256. , RKWC (RS)
#WRDATA, HCS1

PC,DARTCHD
11

'NO RDY AFTER WRITE DATA CMD

JSR

PC,GSTAT

;GET FRESH STATUS

BEQ
ERROR

8s
112

;DRIVE OFF TRACK AFTER WRITE DATA CMD

BIT
BEG
ERROR

#CERR, HCS1
9
12

;CERR AFTER WRITE DARTA CMD

MOV
CLR
MOV
MOV

#<0!D.SPIN!D. DRDY&D VV!D.DRA>, E.ROD
PECTED MSG’ BO
E.BO

BIT
B89%:

RKBA(RS)

iMSG B1 ERROR

JSR

ERROR

007404

:MSG Al ERROR

#STARCK,
SP

104415
012706

004737
032737
001401
104112

SCOP1
MOV

030740
030740
030742

001100

-8 MSGS sptc Iso HERE
:MSG A0 ERROR AFTER WRITE DATA CMD
;CYL ADDR IN RKMR3 NCT = RKDC

104113
7%:

he'T.B2!'0

ID FOR EXPECTED MSG B3

53
25
CYLADD, TOCYL
7$
113

030736

#D.DROT, HMR3

;D0 WRITE DATAR CMD 3 GET CONTR RDY

9%:

b= () O o

L one
LNOCLDO
LN

000002
000003

033042

001360

WWRNNNY
==

at ey
L
e
e
L

007446

O NN

et et Pt Pt Pt s ot s e

00000
Wwwww

Sy
e

010340

000000000
WWWHWWWWW

- O0mNCN LWh—-0O

un i
e}00 00 00 00D O 4D O (D (O O
TU N e e b s Pt ot e Pt Prms P

ERROR
ERROR
cMP
BEQ
ERROR

00346

SEQ 0112

MOV

ERROR

0013860

112

104042

007444
007450
007452

007456
007462

;EXPECTED MSG RO

CLR

#<D. SEOK'D CART!0. DgOR!D.BRHM!D.SSP> ,E.Al ;EXPECTED R1
81 E
;MSG_ID FOR EXPECTED’MSG B1
E.A2°
EXPECTED MSG Re

MOV

%3.E.83

HSG ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

ERROR
ERROR
ERRCR
ERROR

23
63
25

.3 MSGS BO
spécrrt Bl
D HERE
:MSG AD ERROR AFTER WRITE DATA CMD

MOV

. WORD

TST

BEQ

ERROR

#2,E.B2

Aa'T.B2'0

CYLADD

108

MSG ID FOR EXPECTED MSG Be

s CHECK nscs RO,

iMSH BO ERROR
iMSG Al ERROR
iMSG B1 ERROR
:NOT

BRCK

T0 C¥L O

CZREIEOP?TIBUS RK& DR PRT2
10-JAN-78 09:43
CZREIE.
5856

6857

031136

005200

€858

031140

020027

000144

ggg?

031146

000137

030532

€862

031152

005000

6864
€865
gggg

031160
031166
031170

023737
001402
000137

£§859
5863

031144

031154

001402

006337

001346

031174

005037

001176

gg;?

031204

012737

100000

§872

031200

005037

001346

gg;g

031216

031212

004737

034214

€875

031220

012765

001522

gg;g

031234

013765

001346

§876

031226

5879

(031242

€881
gggg

031256
031264

5880

104024

012765
013737

177676

000000

885

031270

012737

887
£888
5889

031302
031304
031310

104200
004737
032737

5886
5890

5831
5832

€893

031276
031316

031320
031322

004737
001405

104201
104401

031326

000137

€897
5898

031332
031336

006137
006137

238?

031350

001320

6902

031352

005065

£§905

031362

€909

031376

€894
5895
5896

£§899
ggga

6906
gggg
€910
€311

031332

(31342
031356

031370
031374
031404
031410

023737
005037
012737

004737
104131
013737

004737
104132

015436
FORM:

007422
12%:

709

10-JAN-78 11:25 PAGE 113
DRIVE OFF TRACK TEST
INC

BEQ

13%

CMP

RO, #100.

:ALL ITERATIONS DONE?

:ELSE DO RGAIN

CLR

:RESET ITERATION CTR

CMP
BEQ
NP

FORM

TOCYL,MCI

sALL MAJOR CYL DONE?
'BR IF YES
'ELSE DO NEXT CYL

CLR

$ESCAPE

MOV

#BITIS, TEMPS

ASL

CLR

000004

MOV

#HDTAB,RKBA(RS)

;REFORMAT ALL MAJOR CYLINDERS

000020

MOV

TOCYL ' RKDC (RS)

MOV

TOCYL ,CALADD

s SETUP

MOV
JSR

#0, FORMAT
PC.FHDTRB

: HEADER
: TABLE

000002

MOV

001466

000027

007354

MOV

007354

ERROR
JSR
BIT

JSR

ERROR
TYPE

045354

031452
007422
001346

001346

64
:

015436

000020

007354

001420

007412

#-66.
, RKWC (RS)

80, HEAD

8 (WRHEAD>
, HCS1

PC,DATCMD

201
MSG26

:CERR_AFTER WRITE _HEADER CMD
'ABORTING BAL OF TESTS

$coP

BNE

128

MOV

JSR
ERROR
MOV

JSR
ERROR

:D0 DATR X FOR CMD & GET CONTR RDY

'NO_RDY RFTER WRITE HEADER CMD

TEMPS
TOCYL

CMP

'T0 FILL

200
PC.GSTAT
#CERR, HCS1

ROL
ROL

CLR

000017

032730

IMP

CLR

001176

032224

:RESTORE TO ORIG 22 SECTOR FORMAT.
;CERR AFTER SCLR

000000
03s212

100000

TOCYL

MOV

033664

PC, SUBCLR

ERROR

001460

032262

TOCYL

'BR IF YES

JSR

001362

012737

§884

13%:

001346

031250

012737
004737

10$:

030532

5868

5869

MACY11 392[(31052)

:GET FRESH STATUS

TOCYL,MC!

;ALL _MAJOR CYL REFORMATTED?

RKDC (R5)

sSETUP TO RETURN TO CYL O

SESCAPE

#SEEK , HCS1

'BR IF NO

PC, 0OCMD
131

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

150000, TEMP1

:SETUP TIMEOUT

PC.FATt2
132

:FIND ATTN
:NO ATTN AFTER SEEK CMD

SEQ OJ113

NN LWU—-O0ONOTN
LW

i
DOOL O OOOODOODOOOOD
UMM FUTONUTUN)
0= e bt s s e e e

Mmm

NN
DD
OO
09

0 UNIBUS RK& DR _PRTe
P11

031412
031420
031422

10-JAN-78 09:43

032737
001401
104210

100000

031424

T20

007354

10-JAN-78

KOS9

11:25

DRIVE OFF TRACK TEST

#CERR, HCS1
659%

PAGE 114

BIT
BEG
ERROR

210

;CERR AFTER SEEK CMD

157
BEQ
CLR

HPEND
4§
HPEND

:SEE_IF HALT PENDING
"BR_IF NO
;CLEAR FOR FUTURE FORMARTTING

CLR

BADHDR

; HERDERS NOW OK

65%:

031424
031430
031432

00S737
001406
005037

007342

031446

005037

007340

031436
031442

MACY1l 30A(10S2)

005037
000137

007342

007340
03626e

CLR
JMP

4$:

BADHOR
STOP

:HEADERS NOW OK
:GO BACK & HALT CPU

SEQ 0114

CZR6IED UNIBUS RKE DR PRT2
CZReIE.PI1
10-JAN-78 09:43

MACY1l 30A(1052)
10-JAN-78
END OF PASS ROUTINE

LO9

11:25

PAGE 115

SEQ 0115

gggg

.SBTTL

930

HH I X2 Y2222 22222222222 2221222222222 2X2X2222X222222XX2XX2X222 2]

£932

‘%TYFEZ "END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER)

éggg

"%¥IF

§93]

: X INCREMENT THE PASS NUMBER ($PRSS)

8433

§936
€937
§338

:¥IF THERES A MONITOR GO TO IT

031452

031452
(31454
(031460

000004
005037
012737

001176
000001

€942

031472

005237

001220

€94s

Q31506

007137

015146

005037

001172

€943
S944
€946

(031466

023737
00140;

031512

0060004

0315°7
(317 4
02 .30

(005037
(05237
042737

031514

£§95]1
€952
6953

6948
8949
€950

5954

§95g
€956

€957

6958

012706

031476
031504

6947

184
031550
(031552

00001
031540
104401

031617
031614
000042

(031556

013746

104405
104401
013700

5963
€964
€965
€966
€967
€968
969

031576
031600
(031602
031604
031606
031610
031610

000005
004710
000240
000240
000240

5971

031614

£972

031574

001405

INC

SDEVCT

CMP
BEQ

STAPT

SEOP1:

SEOPCT:
SENDCT:

001216

CLR

S$TSTNM

. s ZERO THE TEST NUMBER

DEC
.WORD
BGT

(PC)+
|
$DOAGN

;1 LOOP?

MW
$EOPCT
TYPE

JMP

SCOPE

MOV

SGETH2:

SENDRD:

$DOAGN:

TYPDS
TYPE
MOV

BEQ

RESET
JSR
NOP
NOP
NOP

STAPT:

001216

000002

§977
6978
€379

031642
031644
031652

001007
023727
1063403

031660
031662

000775
000137

005237

DOAGN

18:

013356

2%:

;s TYPE “END PASS #°

;;snv; 3pa53 FOR TYPEQUT
160
TYPE--DECIMAL ARSCII
S TYPE A NULL CHARACTER
PIGET nou§ron ADDRESS

: 'BRANCH

.WORD

CMPB

STARPT

IF NO MONITOR

«15><12>/END PRSS’ ¥/
THE

APT MODE

$APTENV, SENV

BNE
CMP
BLO

23
$PASS, #2
2%

BR
IMP

13
s7s

INC

WITH SIGN

'CLEAR THE WORLD
G0 TO MONITOR
: 'SAVE ROOM
M)
PIRCT11

PC, (RO)

-ADD WAITING LOOP FOR

001102

s s YES

: 'RESTORE COUNTER

. :NULL CHARACTER STRING

001230

122737

020123

SENULL
842, RO

;1 ZERO_THE N¥MEER OF ITERATIONS
! ! INCREMENT
THE
PASS NUMBER
::DON’T ALLOW A NEG. NUMBER

-1,-1,0

000001

031634

O0SI1S0I

SENDMG

$pPASS, - (SP)

NEXT DRIVE PRESENT

.BYTE

SENDMG: .ASCIZ

S$ENULL:

(PC)+,a(PC)+

TEST

: s RETURN

042116

000

gvxnes
PASS
$100000,8PASS

'ELSE

APC)+

Q424le

377

NUDRV

IMP

015

377

SRTNAD:

: INCR COUNT FOR # DRIVES CHECKED

"ARE ALL DRIVES PRESENT TESTED?
BR é‘ YE;

CLR
INC
BIC

001216

#StAck,
sP

DRIVS, SDEVCT
SEOP1+2

031617

031654

SESCAPE
81, STINES

031634
050040
000043

€981
€982

JUNP

SCOPE
CLR
MOV

031612

031624
(031632

€980

ISN'T

MOV

001220

000137

6973
697+
5975

£976

001174
001216
100000

001174

12737

(031862
031564
031570

€970

007474

005327
000001
003022

£959
6960
S961

5962

001100

.536
31540
(31542

ggxng

THERE

SEOP:

6939
8940

6941

END OF PASS ROUTINE

$TSTNM

:TWO PASS DONE
'NOT YET

?,AS REQUIRED BY

; INCREMENT THE TEST NUMBER

:WAITING LOOP FOR APT TO DUMP NEXT PROG
:RETURN TO MRIN LOOP

CZRBIED UNIBUS RK& DR PRTe
10-JAN-78 09:43
CZRBIE. Pll

MACY11l

30A(1052)
10-JAN-78
SUBROUTINES

.SBTTL

983
98Y
Sa8s

012700

CLRFLG:

007464
177757

18:

MOV

MOV
LR

SFQ 0116

116

FLAGS FROM DOUMP THRU DOTIM

#DDUMP, RO

s-17.,RI
(ROY+’

RTS

BNE

000207

PRGE

SUBROUTINES

; SUBROUTINE TO CLERR ALL
031666

MO9

11:25

WWwww

005737
001024
005237
104401

001340

TITLE:

001340
o43420

WWWWWWWWWWW

mm""“‘"‘""“’"""""“"

nN—OWVODNOCN LWN—O

Lo aleale
alealealoaloade
gl o adegls ol
000000000000

' TYPE PROGRAM ID IF FTITLE=0

005737

oooo42

PRQGRAM
INgE anueFRigE
§8§ SOF TWARE saxr H REGIET
.SBTTL GET
: ARE RUNNING UNDER XXDP/ACT?

000403
112737

TST

001230

000001

001140

000176

000001

001134

000207

7TS7

BNE

CMPB

CMP

FTITLE

sqs

SENV, 81

WR, #SWREG

Egg

MOvVB

658
ccs
#1,3AUTOB

18:

RTS

BNE
g;sun

,,BRQNCH IF YES

nns us RUNNING UNDER APT?

Wi REG SELECTED?
é SsWITCH

orrunn

enn CH IF NO
,,csr SOFT-SWR SETTINGS
: :SET AUTO-MODE INDICATOR

ROUTINE TO INPUT DRIVE NOS. TYPED IN & SET
oaxvs, DRIVO-DRIV? REGISTERS APPROPRIATELY
GDRVS:
17?770
177400
007476
000060

18:

2%:

000070

032042

001426

177770

ROLIN

MOV

(SP)+,RO

:GET STARTING ADDR OF ASCII STRING

MOV
MOVSB
BIC
MOV
MOV

#-8. Rl
cng)i R2
7400,R2
$DRIVO, R3
#60,RY’

:SET UP COUNT
IGET nsgxlCHAR
‘MASKHI BYTE
:DRIVE FLAG ADDR

CMP

RY,R2

:WRS TYPED CHAR O THRU 7?

1NC
CMP

RY
RY, #70

TST
BNE

R2
4§

BEQ
TST

BNE

CMP

BEG

3s
(R3)+

:BRANCH IF YES
:NO, INCREMENT DR FLAG RDOR

:S/B 0-7 OR TERMINATOR

R1,8-F.

:DEFAULT ALL DRIVES

6039
28:?

032044
03c¢0S0

005037
000207

6042
6043

032052
032054

005213
005237

6044
604S
e04%
6047
6048
6049
ggg?

032060
032062
032066
032072
032074
032076
032100

112002
042702
022702
001407
005702
001001
000761

6052
ggga

032182
032106

104401
000137

6055
6056
gggg

032112
032114
032116

00Se0l
001330
000771

6059
6060
6061
6062
6063
6064
6065
6066
6067
60e8
6069
6070
6071
6072

032120
032124

00S237
000207

60?3

6074
6075
6076
6077
6078
6079
6080
6C81
5082
6083
6084
6085
6086
6087
6088
6089
6090
6031
6038e
6093
6094

MACY1l

NO9

PAGE 117
11:25
30R(10S2)
10-JAN-78
GE T VALUE FOR SOFTWARE SWITCH REGISTER

78:

007524

3%:

007474
177400
000054

CLR

RTS

INC

BEQ

4$
78

IF NOT, SOMETHING WRONG.
:FOUND tERMINRTOR, EXIT

TYPE

#54, R2

EM]

JMP

PRGSRT

INC
BNE

R1
18

B8R
007524

;SET UP FLAG FOR THE

"INCREMENT TOTAL # DR
:GET NEXT ARSCII CHAR.
‘M ASK
ORD.
(IS IT A COMMA?
W
ves GO To NEXT

757

5%:

dR3

:BYPASS TEST
:FOUND TERMINATO

DRIVS
(PO)+,R2
o17,q00 R2

BNE
BR

4s:

INC
MOVB
BIC

CMP

046137
0l2se2

SI12FLG

SEQ 0117

INC

RTS

4§

SIZFLG

A TERHINRTOR’
IS IT

:ONLY 0-7 ALLOWED.

{START ALL OVER

;S/B NO MORE THAN 8 DIFF

iDRIVES TYPED IN.
: IF NORE, HAVE ERROR.
:D0 TEST 1

JEXIT.

(SIZING)

gROUTINE TO INPUT RKBRS OR DEFALLT.
032126
032130
03el3e
032134
032136
032142
032144
032152

104412
012600
005700
001403
010037
000207
012737
000207

GBRA:

MoV
TST

(SP)+,RO
RO

MoV
RTS

RO, SBRSE
PC

RTS

BEQ

001264
177440

RDOOCT

ool2e4

18:

MOV

;GET LOW ORDER FROM STRCK

;BRANCH IF DEFRULT.

8177440, SBARSE

; DEFRULT VALUE

"ROUTINE TO INPUT RKVEC OR DEFAULT
032154
032156
032160
032162
032164
032170
032174
032176
032204

104412
012600
005700
00140S
010037
004737
000207
012737
000771

GINT:

as:
001314

18:

(SP)+,RO

;GET LOW ORDER FROM STACK

;BRANCH IF DEFAULT

TST

MOV

RO, RKVEC

BEQ

001314
032206
000210

RDOCT
MOV

JSR
RTS

PC,SETINT
PC’

MOV

8210, RKVEC

;DEFRULT VALUE

gROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY
032206
032212

013700
012720

001314
036720

SETINT:

MOV

RKVEC, RO

$INTER, (RO)+

: INTER ADDR TO RKVEC

TO BE

TESTED

[aY o

o blEO UNIBUS RK& DR_PRT2
CZRBIE.P11
10-JAN-78 09:43

CZREIED UNIBUS RK& DR _PRT2
CZR61 E.Pl
10-JAN-78 09:43
032216
032222

013710
000207

MACY11

MOV

001316

RTS

RKPRI, (RO)
PC

;PRS TO RKVEC+2

THIS ROUTINE CDT IN RKCS1 IF DRIVE UNDER TEST IS AN RKO7.
(ENTER WITH COMMAND IN HCS1

OO0
D WNCNLZWA=-0O
s Bt Pos Bt Pt Pt Pt Pt (s Pt ot Pt Pt Bt s s Pt s s Pt Dot

s Bt Bt oo s s Pt Bt P Pt D Bt Pt oot Bt Dt ot Bt Bt

s Pt P

ot ot et et ot e

NELLELLLE
£ L £WWWWWWWWLWWRINININ
MR NINNIN MYt
e e b b bs 1 e = O O O OO0 00
OWDODNENLWNH—OBONUNLWNN—OOVONCNLWRI—ODLO
NN LW

[apdeadoatopdealontealoals aloeadoato adoalo als aloale oo aTo alo als alo oo ade ol o aTe alo a¥o alo ol aTo oY o oTo oo a¥0 oo a2 s aT¢ g¥s aTu ol aTu a%s 7o o3¢ a¥1 aT0 o7 2]

610!

B10

30A(1052)
10-JAN-78
11:25_PAGE 118
GET VALUE FOR SOFTWRARE SWITCH REGISTER

03c224
032232
032240
032246
032252
032254
032260

053737
013765
013737
004737
000207
062716
000207

001170
0073S4
001406
032320

007354
000000
oo7412

bocMp:

BIS
MOV
MOV

STMPY, HCS1
HCS1 kaSI(RS
110 tem

ADD

PC
82, (SP)

JSR
RTS

0ooooo2

RTS

#Rov

:SET CDT IF RKO7
:DO COMMAND

;FIND CONTR READY

*SET HERE IF NOT RDY
:ELSE SKIP OVER ERROR

THIS ROUTINE IS SIMILAR TO THE ABOVE BUT IS USED FOR DATA TRANSFERS

:8 REQUIRES A LONGER TIMEOUT
032262
032270
032276
032304
032310
032312
032316

053737
013765
013737
004737
000207
062716
000207

001170
032320

007354
000000
007412

BatcMo: BIS
MOV
MOV
JSR
RTS
ADD
RTS

000002

STMPY, HCS1
HCS1,RKCS1(RS)
150000, TEMP1
PC, FROY
pc’

:SET CDT IF RKO7
DO CMD

:FIND CONTR RDY

82, (SP)
PC

ROUTINE TO FIND CONTROLLER READY (RDY) DURING R DELRAY
"ENTER WITH R COUNT IN TEMP
'RETURN IF RDY NOT PRESENT (ERROR CONDITION)
:RETURN +2 IF RDY PRESENT (SKIP OVER ERROR)
:STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CARSE
032320
0323e6

03276S
001010
005337

000200

000000

007412

000207

BIT

BNE
DEC
BNE

JSR

032454
033602

032364

FROY:

18:

000002
032454
033602

JSR
RTS

ADD
JSR

JSR
RTS

#RDY, RKCS1 (RS)

18
TEMP1
FRDY

PC, HOLD

sSTORE ALL RKBll REGS IN HOLDING REGS.

82, (SP)

1SKIP oOER ERROR

PC. CKCERR
pc’
PC. HOLD
PC. CKCERR
pc’

CHECK FOR SPECIAL CERR
:NO RDY, EXIT

:CHECK FOR SPECIAL CERR

'ROUTINE TO FIND CONTROLLER READY AND STORE DRIVE REGS ONLY
032366

03276S

032402
032404
032412
032420
032424

001371
01653
016537
004737
000207

032426

062716

000200

000000

#ROY1:

oo7412

000034
000036
033602
000002

007402
007404

18:

BIT
BNE
DEC
8NE
MOV

MOV
JSR
RTS

ADD

#RDY, RKCS1 (RS)

18
TEMPL
FROY1
RKMR2 (RS) , HMR2

RKMR3(RS)| HMR3
PC, CKCERR’
pc’

82, (SP)

:CHECK FOR SPECIAL CERR CONDITIONS
'NO RDY, EXIT

1SKIP oOER ERROR

SEQ 0118

CZR6IED UNIBUS RKbE DR PRTZ

CZReIE.P11

10-JAN-78 09:43

6151
6152

032432
032440

016537
016537

6164

032452

000207

6153

(032446

004737

000034
000036

033602

MACY11l 30A(10S52)

6160
6161

6162

007402
007404

032454
032462

032470

815537
016537

016537

032520

016537

032550
032556

016537
016537

oggs
0325
032542

6172

032564

6173
6174

6175
6176

80 0NQ
000ui0

000002

007354
007356

’

HOLD:

007360

032572
032600

000014

MoV
MOV

S§§SE§§§'HS‘S
RKDOS (RS) | HOS

MOV

s CHECK FOR SPECIAL CERR CONDITIONS

007370

MOV

RKWC (RS) , HWC

RKER(RS) | HER

RKASOF (RS) ,HRSOF
RKDC (RS) , HOC
RKMR1 (RS}, HMR1]

016537

000030

007406

MOV

RKECPS (RS}, HPOS

016537
000207

gooogq
000036
000032

007402
007404

MoV
MOV

007410

MOV
RTS

RKMR (Rg),nnaa
RKMR3(R5S) | HMR3

RKECPT(RS)
| HPAT
PC

;

"ROUTINE TO CHECK FOR CORRECT ATTN
'RETURN IF ATTN_NOT PRESENT (ERROR CONDITION)

"RETURN +2 IF ATTN PRESENT (SKIP OVER ERROR)

010446

6184

032616

001404

032622

062716

032604
032610

032620

013704
136437
012604

6187

032626

000207

6189

032632

000207

R CS1(RS',HCS]
RKCS2(RS) | HCS2

MOV
MOV
MOV

032602

6188

MOV
MOV

007372
007374
007400

6181

6186

PC,CKCEPR

8000
0000
000026

gigg

6185

RTS

815537
16537
016537

6177
6178

6182
6183

RKMR2
(RS ) , HMR2
RKMR3(RS)
, HMR3

"STORE ALL RK611 REGISTERS IN HOLDING REGS

6167
6168
6169
6170
6171

PAGE 119

MoV
MOV

JSR

16
935408 °i"§33 200506 907364
6165 835213 812 7 8888?3 887 66
6166

Cl0

11:25

GET VALUE FOR SOFTWRRE SWITCH REGISTER

gigg

6159

10-JAN-7?8

032630

00:222
007344

$sTRTN: Mov

MOV
BITB

007373

BEQ

MOV

000002

ADD

012604

1$:

6192

RY, - (SP)

:SAV RY

:BRANCH IF ATTN NOT PRESENT

82, (SP)

"INCR RET ADDR TO JUMP OVER ERROR.

(SP)+,RY

;RESTOR R4

SUNIT,RY
ATTN(RY), HRSOF +1
(SP)+.RY4

RTS

MOV

:RESTOR R4

'ROUTINE TO FIND ATTN WITHIN TIMES GREATER THAN 1 SEC

6193
6194

'ENTER WITH TIME IN SECONDS
IN TEMPZ
"RETURN IF NO ATIN (ERROR CONDITION)

Eigg

:STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CARSE

6195

6198

'RETURN +2 IF ATTN FOUND

6199

032634

6202

032650

6200
6201

6203
6204
6205
6206

032636
032644
032656
032660
032664
032666

010446

012737
013704

136465

001014
005337
001371
005337

177?77
00le22

007344

007412
007414

007412

000017

FATTl:

MOV

RY, - (SP)

1§%:

BITB

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

3%:

MOV
MOV
BNE
DEC
BNE
DEC

s-1, TEMPL
SUNIT. RY

23
TEMP1
13
TEMP2

: SAV RY

SEQ 0119

CZRBIED UNIBUS RKe DR PRT2
10-JAN-78 09:43
CZRBIE. P11
032672
032674

001361
005065

e
tiEiss eSq

032710

032726

000207

10-JAN-78
11:25
PRGE 120
GET VALUE FOR SOFTWRRE SWITCH REGISTER
BNE

000026
033664

RKMR] (RS)
PC,GSTAT

RTS

CLR

JSR

MOV

ADD

0ooo02

CLR
JSR

MOV

000026
033664

SEQ 0120

30AR(10S2)

RTS

(sP)+ RY

RKHR[(RS)

GSTAT

¢)+
RY
, (SP)

:SE ¢
ORD 0
E Bs
fsr STATUS

: jES

sET TATUS AFTER ATTN SEEN

STOR R4

KIP OVER ERROR

{BOVEANGL10 EROR TN gy 1+ sec

RTTN (
RE;HSN IE ?

RR R)

STRTUS IS OBTRINED BEFORE THE RETURN FOR EITHER CRSE
032730

835758

010446

032744
032746

884555

FATT2:
000017

007412

000026
033664
033006

000207

MOV

3¥IT.RY

DEC

TEMP1

ENEB

JSR
MOV

18:

:SAV RY

:FIND CORRECT ATTN

1STN(hq),RKnsor¢1<R5)

San91(R5)
PC,GSTART
(SP)+,RY

cL
JSR

RKMR1 (RS)
PC,GSTAT

ADD
RTS

82, (SP)
pc’

MOV

00000¢e

Rq -(SP)

MOV

EEE

Noo0es
033664

(SP)+, R4

:SELECT WORD O

:GET LATEST STATUS.
'RESTOR R4
;RESTO

1SKIP ovsn ERROR

ENTER WITH AR COUNT IN_TEMPI

:THE DELAY_ IS APPROX 17 US/ITERATION + 12 US TO EXIT
*WHEN COUNT IS 0. BRSED ON AN 11/0S
00000
WWWwWwW
WWwwwd
00000
Y PO
bt e
Lo £0

mvo"uu:um-

ooosroer oo
fuhufurufu
eMW

6207
6208
09
610

MACY1l

005737

00741e

BLy:

0az4le

1%:

000207

TST

TEMPI

B8R

OLY

BEQ
DEC
RTS

:5.6 US

18
TEMP1

:1.9 US
‘6.8 US

;3.8 US

'2.5 US

éTHIS ROUTINE TYPES BYPRSSED DRIVE#.
033026
03303¢

104401
010046

033034
033036
033037
033040

104403
001
000
000207

045243

BYP:

TYPE

MOV

TYPOS

.BYTE
é$;TE

MSG1Y

RG, -(SP)
1
gc

ENTER WITH DRIVEs IN RO

;BYPASS DRIVE

;Ygg go FOR TYPEOUT

cho TYPE--QCTAL ASCII

*ITYPE 1 DIGIT(S)
' 1QUPPRESS LEARDING ZEROS

CZRSIEO UNIBUS RK& DR _PRT2
CZRBIE.P11
10-JAN-78 09:43

ggga
6265 033042

62bb
6267

033050
033054

017637

000000

6269

033060

063737

001222

gg;g

033110

6270
6271
be72

062716
004737

000002
033720

ELO

MRCYIil 309(1058)
10-JAN-78 11:25_ PRGE 121
GET VALUE FOR SOF TWARE SWITCH REGISTER

001520

(HKMSG: MOV

ADD
JSR

d(SP),CHKFLG

82, (SP)
PC,GSTAT1

;PASS MSGS TO BE TESTED

007444

BIS

SUNIT,E.ROD

;SET UNIT &

E.DDT.E.RD

:ADD DRIVE TYPE

MOV

TEMPL, - (SP)

:SAVE TEMP1

MOV

E AO, TEMP1

033066
033074
033102

053737
053737
053737

0Qlc2e
0Q0leee
001222

gg;g

033116

013746

007412

6e7?

033122

033130

Q04737

036156

007444

007412

6278

053737
.13737

015444

; THIS ROUTINE FEARDS ALL MSG R 8 B WORDS 8 CHECKS THEM RS REQ'D.

007450
007454
007460

BIS
BIS

007444

E.R]
SUNIT,E.QE
SUNIT)

gggg 033134 013737 007412 007444

JSR

MOV

Tshpx E.ARO

6e81

033142

013737

007450

007412

MOV

£.R1 TEHPI

gsga

033184

013737

007412

007450

MOV

TEMPI, E.Rl

6285

033162

013737

0074S4

007412

MOV

E.R2, TEMP1

007454

JSR
MOV

007412

MOV

E.B0, TEMP1

007446

JSR
MOV

007452

007412

MOV

E.B1,TEMPI

007456

007412

MOV

E.B82, TEMP1

MOV

TEMP1,E.B2

6282
6286
gggg
6269

6290
gggé

033150

033170
033174
033202

(33210
033214

6293

033222

6297

033242

gggg

033254

6294

033230

004737

004737
013737
013737

004737
013737

013737

004737

036156

036156
007412
007446

036156
007412
036156

JSR

2532 033234 013737 007412 007452
6298
6301

033250
033Ch2

013737

004737

036156
007412

007456

013737

007462

007412

013737

6302
ggga

033270
033274

004737
013737

6305

033302

012637

007412

001176

001172

6308

033314

023737

007424

007444

033336

001176

001000
000002

145574

007426

007446

2389

6309
6310
6311
ggig
6314
62315
23{?
6318

033306

033322
033324
033332
033334
033336
033344
033346
033352

013737

00141l
012737
011646
000207
032777
001107
062716
023737

036156
007412

MOV

JSR
MOV

007462

MOV

1$:
2%:

SBPAR

PC, SBPA

PC, SBPAR
TEMPL,E.R2
PC, SBPAR
TEMPI1,E.BO
P>, SBPAR

Tshpl,e.ex

PC, SBPAR

E.B3, TEMP1

'BUMP RETURN ADDR TO 1ST ERROR
:GET ALL ACTUAL DRIVE & CONTR STATUS

:GET PARITY FOR MSG RO

:GET PARITY FOR MSG Al
:GET PARITY FOR MSG R2
:GET PARITY FOR MSG BO
sGET PARITY FOR MSG Bl

:GET PARITY FOR MSG B2

PC, SBPAR
TEMP1,E.B3

:GET PARITY FOR MSG B3

MOV

$ESCAPE,STMPS

(SP)+, TEMP1

:RESTORE TEMP1

CHP

H.RO,E. RO

s TEST MSG RO

:SAVE ESCAPE

BEQ
MOV
MOV
RTS
BITY
BNE
ADD

2$
818, SESCAPE
(SP3, -(SP)
PC
#SW9, ISWR
208
82, (SP)

:BR_IF OK
'ELSE SETUP ESCAPE
:COPY RET ADDR.
'8 RETURN TO MAINLINE ERROR
:RET HERE FROM MAINL INE ERROR
'8 BR IF _LOOP ON ERROR
'BUMP RET ADDR TO NEXT ERRNR

CMP

H.B0.E.BO

:TEST MSG BO

SEQ 0l2l

O UNIBUS RK& DR PRTe
Pll
10-JAN-78 09:43
033360
033362
033370
033372

001411

033374

032777
001070
062716

MACY11l

033374

001176

001000

145536

BEG

MOV
MOV
RTS
ysg:

c§:

000002
007430

007450

033432

001176

033430

023737
001411
012737
011646
000207

033432
C33440
033442

032777
0010S1
062716

001000

033446
D3345Y
033456
033464
033466

023737
001411
012737
011646
000207

007432

po74se

033470

001176

033470
033476
033500

032777
001032
062716

001000

032737

000001

034604
000002

F10

10-JAN-78
11:25
PAGE ]22
GET VALUE FOR SOF TWRRE SWITCH REGISTER

30AL10S2)

BIT

BNE
ADD
CMP

BEQ
MOV

MOV

H.Al,E.Al

.7; ssscnps

#SW9, ISWR
0s
82, (SP)

CMP

H.B1,E.Bl

MOV
MOV

8108, SESCAPE
(SP)
. ~.5P)

118:

BIT
BNE
ADD

#SW9, ISWR
208
#2, (SP)

001520

128:

BIT

00150

0015e0

7%:

8% :

BEQ

145442

033530

004737

034656

033534

032737

000004

033550

004737

34714
034752

033554
033s62

013737
000207

001172

001176

033564

012706
013737
000177

0110
0117

001176

108:

:BR IF OK

'ELSE SETUP ESCAPE
:COPY RET ADDR
:8 RETURN TO MAINLINE ERROR
:RETURN MERE FROM MAINLINE ERROR

:8 BR IF LOOP ON ERROR
'BUMP RET ADDR TO NEXT ERROR
s TEST MSG Al

'BR IF OK

Py, -(sP

BIT
BNE
ADD

145500

000002

#SW9, ISWR

20$
82, (SP)

RTS

-00

848 SESCAPE
(SP},-(cSP)
PC

RTS

000002

4530

118

#T.R2,CHKFLG

;TEST MSG 81

'BR IF OK

: TEST MSG A2”?

138:

BEQ
JSR
BIT
BEQ
JSR

13¢
PC,RCYLD
87,82, CHKFLG
148
PC,RCYLA

'BR_IF NO
'PUT INFO CYLDIF, DO NOT CHECK
*TEST MSG B2?
:BR_IF NO
'PUT INFO IN CYLARDD. DO NOT CHECK

148:

Eéé

:gsea,CHKFLG

; TEST MSG B3”

JSR

PC,RSEC

PC. RHERD

:PUT INFO Ih HEADA, DO NOT CHECK

MOV

$TMPS,SESCAPE

;RESTORE ESCAPE

#STACK, SP

sRESET STACK PTR

JSR
158:

20s:

RTS

MOV

?gg

3;npg$ESCAPE

:PUT INFO IN SECTOR, DO NOT CHECK

;RESTORE ESCRPE

THIS ROUTINE CHECKS FOR CERTAIN ERROR CONDITIONS ONLY

‘1.E.: IF NED, CTO OR MDS SET MESSAGE A 3 B ARE INVALID

005737

100000

000207

EKCERR: TST

00is16

007354

BNE
BIT

BNE

RTS

BYPCERR

4g
#CERR, HCS1

:BR IF CERR

SEQ Jlee

CSREIEO UNIBUS RKE DR PRTR2
10-JAN-78 09:43
CZRSIE.F 11
o

37€
6376
6377
6378
6379
6380
6381

033622
033630
03363¢
033634

032737
001402
104125
000207

004000

033636
033644

010000

033646

032737
001401
104126

033650
033656
033660

032737
001401
164127

001000

033662

000207

G10O

MaCY1l 30A(1052)
10-JAN-78
11:25
PAGE 123
GET VALUE FOR SOFTWARE SWITCH REGISTER
007354

1%:

BIT
BEQ

#CT0,HCS!
2s

RTS

BIT
BEQ

#NEL
, HCS2
33
1286

ERROR
007356

2%:

ERROR
007356

BIT

:BR IF NOT CTO

:CTO ERROR, MSG A 8 B INVALID
:BR IF NOT NED
:NED ERROR, MSG A 8 B INVALID

#MDS, HCS2

BEQ

RTS

ERROR
4§ :

125

SEQ 0123

127

:MDS ERROR,

MSG A & B INVALID

,THIS ROUTINE DOES THE SELECT DRIVE COMMAND TO GET STATUS
SIT THEN WAITS FOR CONTROLLER RERDY

O— 00O+ rer-

0000000
WL Wwww
WL WWL
NNNNOoOT
==
= O NN
oo L0000
L

i IF RDY NOT RECEIVED BY THE TIMEOUT,
007412
032224

000910
007354

GSTAT:

MOV

TEMPL, - (SP)

:SAVE TEMP

117

'ROY
NOT SET BY END OF SELECT DRIVE CMD

MOV
MOV
JSR

SUNIT’ RKCSE RS) :CURRENT onxvs '
#SELDRV, HCS
:00 SELDRV (STATUS) CMD 8 GET CONTR RDY
PC, DCCMD

MOV

(S5P)+, TEMPI

ERROR

oo74i2

AN ERROR IS FLAGGED

RTS

'RESTOR TEMPI.

THIS ROUTINE GETS STATUS OF ALL DRIVE REGISTERS (MSG RO-A3, BO-B3)
:8 ALL CONTROLLER REGISTERS.

[ OWwo

NV LW

o oo
oo
£ Fi A g
¥
¥ o
¥ o
n PO
b ps ps bt et Pt e

007412
032454
100000

104117

034150

000000

000010
000026

07440
07442

100000
00leee
03000e
0341S0

000000

034032

007402
007404

007434
00743¢

034040
034046
034054
034062

100000
00l22e
000001
034150

000000

033760
033766

033774

e4ee

034066

000010
000026

dstaT1: MoV

JSR

TEMPl -(SP)

HOLD

:SAVE TEMP]

'GET ALL CONTR REG

MOV

:CLEAR CONTR
ochR RKCS1(RS) :CURRENT
DRIVE #

JSR

PC GSTAT2

MOV
MOV

ERROR

MOV
MOV

MOV

MOV
MOV

sun T RKCS2(RS)
:SELECT WORD 3
KMR1 (RS)
?

HHR g
HMR3'H.B
#CCLR,RKCS1(RS)

PC.GSTAT2

MOV
MOV

HMRE .A2
HMR3, H.B2

MOV

MOV
MOV
JSR

ERROR

TORE MSG A3
TORE MSG B3

SUNIT,RKCS2(RS5)
82, RKMAR] (RS)
; SELECT WORD 2

JSR

ERROR

RDY NOT SET BY END OF SELECT DRV CMD

11?7

;RDY NOT SET BY END OF SELECT DRV CMD

'STOREMSG A2
:STORE MSG B2

#CCLR,RKCS1 (RS)

SUNIT RKCS2(R5)
81, RKAR] (RS)
:SELECT WORD 1
Pc&csrnre
117

:RDY NOT SET BY END OF SELECT DRV CMD

CZR6IEQ UNIBUS RK& DR PRT2

CZReIE Pl1

6431

034070

g:gg

034076

6434

034104

6436
6437

03412
034724

g:ag

034134

6435

6438

6441

013737
013737

007402
007404

012765

100000

473
104117

34150

007402

007424

012637

007412

012737

000001

034142

6444

034150

(034156
034164
(03417
034290

013737

000207

063737
Q13765
13737
04737

007404

001170
007354
001406
032366

MOV

00000Q

8137 7

034126

MOV

007432

000010

86375§

034146

007430

10-JAN-78

H10

PAGE 124
GET VALUE FOR SOFTWARE SWITCh REGISTER

0l222

03411

g::g

6445
6446
447
E448

10-JAN-78 09:43

MACY1l 30A(1052)

MOV

;RDY NOT SET BY END OF SEL DRV CMD

MOV

HMR3 ) H.BO

:STORE MSG 80

MOV

GSTAT2:

E4o0
039506 9e950¢ oooooe
24%1 834513 880269

HMR2, H. AQ

(SP)+, TEMPL

MOV

#SELDRV, HCS1

BIS
MOV
MOV
JSR

sTMPY, HEST
Hcax RKCS1(RS)
T10, teMP]
PC,FROY1

ROD
RYS

Bi23

$UNIT RKCS2(RS)

PC,GstaTe
11?%

RTS

007354
000000
007412

:STORE MSG Al

:STORE MSG B1

JSR
ERROR
MOV

007354

HMR2,H.Al

HMR3, H.B1

SEQ Jl24

#CCLR, RKCS1 (RS)

MOV

007426

11:25

S,
(sP)
PC’

:STORE MSG RO

:RESTORE TEMP]

:RET CDT IF RKO?
:GET STATUS
;FIND CONTR RDY 8 STORE DRIVE REGS ONLY

iRE]
HERE IF DR °OY
!

6454

*THIS ROUTINE DOES A SUBSYSTEM CLEAR 8 WAITS FOR CONTROLLER RERDY

6456

: THE ROUTINE THEN ers CURRENT STATUS & CHECKS FOR CONTROLLER ERROR (CERR)

6455

*TF RDY IS NOT RECEIVED BY THE END OF THE TIMEOUT,

645?

"RETURN If

E:gg

034214
034222
034230

012765
013737
004737

000040
001406
032320

000010
007412

G464

034236

013765

001222

000010

034250

004737

033664

6465

6466

034234

034244

6467

034254

6471

034272

6468
6469
6470

034262
03464
034266

104120

00S065
032737
00140l
000207
062716
000207

000026
100000

000002

#SCLR,RKCS2(RS) ;SUBSYS CLEAR
T10, TEMPI
PC,FRDY
sFIND R?Y
12

'RDY NOT

RKMR1 LRS)

:SELECT WORD O

MOV

$UNIT RKCS2(RS)

JSR

PC,GSTAT

CLR
BIT

BEQ
RTS
ADD
RTS

:GET STATUS

#CERR, HCS1

:CHECK FOR CONT ERROR

82, (SP)

:SKIP OVER ERROR

1$
PC
PC

!READ THE SECTOR COUNT IN RKMR3, RIGHTM

034274

012765

000003

000026

007404
177017

001402
001402

034302

004737

033664

G480
6481
6482

034322
034326
034332

006237
006237
006237

001402
001402

034306
034314
034336
034342

013737
042737
006237
000207

001402
001402

RDSEC:

MOV

83, RKMR1 (RS)

JSR

PC.GSTAT

ASR
ASR

SECTOR
SECTOR

MOV
BIC
ASR
ASR
RTS

SET BY END OF SCLR

:CURRENT DRIVE #

;

6477

6483
g:gg

ERROR

18:

6478
6479

SUBCLR: MOV
MOV
JSR

007354

g:;g

6476

CERR _SE

'RETURN +2 IF CERR CLEAR

6460
6461
6462

6463

AN ERROR IS FLAGGED.

JUSTIFY IT 8 STORE IT IN

eemTAD

°*SECTOR

;WORD 3

HMR3, SECTOR
#1C<M_SECT>,SECTOR

SECTOR
SECTOR
PC

:RIGHT JUSTIFY
:SECTOR
:INFO

§RERD THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT 3 STORE IT IN °‘CYLDIF®

0 UNIBUS RK& DR _PRT2
P11
10-JAN-78 09:43

000002
033664
007402
015442
001356
001356
001336
001356
001356

034344

I10

MACY1l 30A(1052)
10-JAN-78
11:25
PAGE 125
GET VALUE FOR SOFTWARE SWITCH REGISTER

000026

RDCYLD: MOV

001356
001356

MOV
BIC
ASR

HMR2, CYLDIF
MASK| [ CYLDIF
CYLDI#

RSR

CYLDIF

CMP

CYLDIF, MRSK

ASR
ASR

015440

001356

034426

JSR

18:

BNE
CLR
RTS

82, RKMR1(RS)

SE3 0125

;WORD 2

PC.GSTART

:RIGHT JUSTIFY

:CYL DIFF/OFFSET

CYLCIF

PINFO

CYLDIF

sCHK TO SEE IF RET IN COMPL. FORM

'BR_IF NOT
:CLR IF YES

18
CYLDIF
PC

000000
[y
OO0+
W) WM W
~N
[A]
~N

5337

034510
034512
034520
034526
034532

000
L=

s Pores (ot Pt
Pt ot Pt Pt

oo o
uonnnnnn v

034430

8000

‘QUICK SELECT DRIVE COMMAND TO OBTRIN CYL DIFF

3737

oo741e

000026
007354

QKCYLD: MOV

007354

000200

000000
007412
000000

0g7412

MOV
MOV
BIT

HCS1,RKCS1 (RS)
710, tEMP]
#RDY,RKCS1(RS)

;TEST FOR CONT RDY

DEC
BNE

TEMP!
18

BNE

ERROR
000034
015442
oo7412

001356

2$:

MOV

g§TMPY, HeS]

RKMR2(RS), CYLDIF

BIC

MASKI,CYLOIF

RTS

MOV

(SP)+ . TEMPI1

000026

RDCYLA: MOV

001360
001360

MOV
BIC

JSR

ASR

ASR
ASR
ASR

006237
000207

RTS

82, RKMR1 (RS)

PC.GSTAT

HMR3, CYLADD
MASK| CYLADD

CYLRDD

CYLADD
CYLADD
CYLROD

:BR IF THERE

sNO RDY AFTER SEL DRV CMD

117

'READ THE CYL ADDR IN RKMR3,

034602

;SAVE TEMP1

:SELECT WORD 2
:SELECT DRIVE CMD

BIS

1S:

TEMP1,-(SP)

#2, RKAR1 (RS)
#SELDRV, HCS1

MOV
MOV

:GET CYL DIFF ONLY (NO SHIFTING)

:RESTORE TEMP1

RIGHT JUSTIFY IT & STORE IT IN

'CYLADD’

;WORD 2
:RIGHT JUSTIFY
:CYL RDOR
:INFO

'READ THE CYL DIFF/OFFSET IN H.A2, RIGHT JUSTIFY IT & STORE IT IN 'CYLDIF"
034604

034646

013737
043737
006237

0c1002

007434
015442
001356
001356
001356
001356
001356

001356
001356

015440

RCYLD:

MOV
B1C
ASR

H.A2,CYLDIF
MASK] /CYLDIF ;CLERR UNWANTED INFO
CYLDIF ;RIGHT JUSTIFY

CHP

CYLDIF, MASK

ASR
ASR
ASR

BNE

CYLDIF
CYLDIF
CYLDIF

:CHK TO SEE IF RET IN COMPL. FORM

:BR IF NO

CZREIED UTIBUS RK& DR_PRTZ2
IE
10-JAN-78 09:43
CZRBIE.PIL

034650
034654

005037
000207

J10

MACY1l 30A(10S2)
10-JAN-78
11:25_
PAGE 126
GET VALUE FOR SOFTWARE SWITCH REGISTER

0013%Se

18:

CLR
RTS

CYLDIF
PC

:ELSE CLEAR

'READ THE CYL ADDR IN H.B2, RIGHT JUSTIFY IT & STORE IT IN ’'CYLADD’
034656

034712

013737

000207

007436
015442

001360
001360

RCYLA:

MOV

BIC
ASR

ASR
ASR
ASR
RTS

001360

H.B2,CYLADD

MASK] CYLADD
CYLADD

CYLADD
CYLADD
CYLADC

;CLEAR UNWANTED INFO
‘RIGHT JUSTIFY

'READ THE SECTOR COUNT IN H.B3, RIGHT JUSTIFY IT & STORE IT IN 'SECTOR'
D34714
034722
034730
034734
034740
034744
0347s0

913737

000207

RSEC:

007442
177017
001402
001402
00.40e
001402

MOV
BIC

H.B3,SECTOR
#4C<M.SECT>,SECTOR

ASR
ASR
ASR
RTS

SECTOR
SECTOR
SECTOR
PC

ASR

SECTOR

;CLERR_UNWANTED INFO
:RIGHT JUSTIFY

'READ THE HEAD ADDR IN H.B3, RIGHT IT 8 STORE IT IN 'HEADR®
034752
Q3477¢
334776

013737
Q42737
006237
000337
000207

RHEAD:

007442
170777
001462
001462

MOV
BIC

H.B3, HEADA
#+C<M.HERD> ,HEADA

ASR

HEADA

RTS

SWAB

HERDA

: CLEAR UNWANTED INFO
sRIGHT JUSTIFY IT

'FIND SECTOR 23

'RETURN IF NOT FOUND
'RETURN +4 IF FOUND
035000
035006
035012
035020

013737
004737
023727
oo1014

001416
034274
001402

03%0e2

034274
oo1402

000023

035050

004737
023727
001412
004737
023727
001404

034274
001402

000023

03s0se
035056
035060

00S337
001353
000207

oaz412

035062
035066

062716
000207

000004

007412
000023

#SEC23: MOV

1§:;

*READ SECTOR
'TEST FOR SECTOR 23(8)

JSR

PC, RDSEC

BEG
JSR

33
PC,RDSEC

:BR _IF READ SAME TWICE
"ELSE TRY 1 MORE TIME

BEQ

:BR IF 23(8)

cHMP
CMP

3%:

;SETUP_TIMEQUT

PC.RDSEC
SELTOR, 823

BNE

2%:

15000, TEMP1

JSR
CMP

SECTOR, 823

DEC

TEMPI

RTS

BNE

ADD
RTS

:BR IF NOT 23(8)

: TRY AGARIN

84, (SP)

:SKIP OVER ERROR

éROUTINE TO FIND HEADS HOME IN RKMR2 WORD 1 BEFORE SPECIFIED DELRAY
;ENTER WITH TIME IN SECONDS IN TEMP2

SEQ 0126

CZR6IEDC UNIBUS RK& DR PRT2
10-JAN-78 09:43
CZReIE.PII

K10

MACY11 30A(10S2)
10-JAN-78
11:25 PAGE 127
GET VALUE FOR SOFTWARE SWITCH REGISTER

6599
228?

sRETURN IF NOT FOUND
'RETURN+2 IF FOUND - SKIP OVER ERROR

6602

035070

012737

6604
6605

035104
035110

004737
032737

6603

6606
6607
6608
6609
6610
6611

6612
gg}g

035076

035116
035150
035124
035126
035132
035134

035136
035142

012765

001007
005337
001367
005337
001356
000207

062716

000207

177777

000001

033664
000040

007412

000026
007402

FHDHM:

MOV

#-1, TEMP1

1$:

JSR
BIT

PC,GSTAT
80 HDHM, HMR2

007412
007414

000002

2%:

MOV

81,RKMR]1(RS)

BNE
DEC
BNE
DEC
BNE
RTS

23
TEMP1
18
TEMP2
FHDHM
PC

RTS

ADD

82, (SP)

sALL 1°S

tWORD 1

:SKIP OVER ERROR

6615

"ROUTINE TO FIND LOAD HEADS IN RKMR2 WORD 1 BEFORE THE TIMEOUT

ggig

IRETURN+2 IF FOUND:

6616

'RETURN IF NOT FOUND

6619

035144

012737

000372

6621
6622
6623
6624
6625

035160
035164
035172
035174
035200

004737
032737
001004
005337
001367

033664
010000

6627

035204

062716

000002

6620

6626

gggg

035152

035202

035210

012765

000207

000001

007412

000026
007402

2s:

010046

6637

035216

012700

001522

6639
6640
6641

035224
035232
035236

013737
006337
006337

001460
001464
001464

006337

001464

035214

035222

010146

005001

035242
035246

006337
006337

664S

027256

013737

gg:s

035270

6646

6649

6650
6651
6652
66563

JSR
BIT
BNE
DEC
BNE

PC.GSTAT
80’ LORD, HMR2
23
TEMPL
18

RTS

ADD

RTS

#1,RKMR] (RS)

%2, (SP)

'ENTER WITH FORMAT IN 'FCRMAT’

(035212

6644

#250., TEMP!

:WORD 1

:SKIP OVER ERROR

"ENTER WITH CYL # IN 'CALADD’
SENTER WITH HEAD 8 IN 'HEAC’

2233
6635

6642
6643

MOV

'FILL HEADER TABLE WITH 66 WORDS OF VALID HERDERS

6631
6632

6638

18:

007412

6630

6636

FLOARD:

SKIP OVER ERROR

(035252

035264

035274

035300
035302
035306
0358312

FHDTARB: MOV

001466

001470

013720

001362

010110
053710
053710
004737

MOV
001464

001464
001470
035372

18:

sHOTAB, RO

ASL
ASL

HD1
HD1

MOV

FORMAT,FMT1

SWAB

001470

R1’-(SP)
R1

ASL

001470

RO, -(SP)

CLR

MOV
ASL
RSL

001464
001464

000337

006337

MOV

HEAD, HD1
HD1
HD1

HD1

FMT1

:SAV RO
:SAv Rl

:HEADER WORD TABLE ADDR

:SECTOR COUNTER

:SETUP HERD # FOR WORD 2 OF HEADER

ASL

FMT1

:SETUP FORMAT FOR WORD 2 OF HERDER

MOV

CALADD, (RO)+

:HEADER WORD 1-CYL ADDR

MOV
BIS
BIS
JSR

R1, (RO}
HD!, (RO)
FMT1. (RO)
PC,SECFLG

:HERDER WORD 2-SECTOR NO
:
-HEAD NO
:
-FORMAT

SEQ 0127

CZRBIED UNIBUS RKE DR_PRT2
CZR 6IE.Pl11
10-JAN-78 09:43

10-JAN-78

L10

11:25_

007412

042037

1362
007412

007414

CQLROD TEMP2

007414

TEMP1. TEMP2
TEMP2, (RO)+

832355 81372 387415
B3E38

SEQ Oles8

TEMP2

(RO)+, TEMP1

000026

, 822.

P)+,Rl
P)+,R0O

035362

128

annoo TEMP1

001362
parals

PAGE

GET VALUE FOR SOFTWARE SWITCH REGISTER

013737

838350 8449%7
035336

30Q(IOSE)

- 00
A

035316

MACYL1

035364
035366
035370

; HERDER WORD 3-HEARDER CHECK

EECTS STR

' BR ENOECTORS DONE?

(b6 WORDS)

;RESTOR R1

:RESTOR RO

THIS ROUTINE GETS INFORMRTION FROM THE BAD SECTOR TARBLE FILLED BY R PREVIOUS
! TEST 8 SETS BITS 14 & 1S APPROPRIRARTLY.
035372
035374
035400
035402
035406
035412

00146k

035416
g35422
035426

éscrLc. MOV
15T
BNE

R2,

- (SP)

FORMAT

18
oessaeH+8 ,R2
PC.FLGTST

; SAVE Re

;BR IF 20 SECTOR FORMAT

003346
035472
100000

MoV

005346
035472
040000

MOV
JSR
BIS

#8SE225+48. ,R2
PC.FLGTST

81714, (RODY

iGET SOF TWARE DETECTED FLAG
;RETURN HERE IF GOOD SECTOR

MOV
RTS

(SP)+,RE

;ELSE RETURN HERE

MOV
JSR
BIS

oBSEEOH;B,R2

saiTls (RO)

‘RETURN HERE IF GOOD SECTOR

MOV
JSR
BIS

oassaos+e ,R2
PC.FLGTST

;GET SOFTWARE DETECTED FLAG

MOV
RTS

(SP)+,R2
PC

035432
035434

0lee0e
000207

035436
035442
035446

012702
004737
0s2710

002346
035472
100000

035452
035456
035462

012702
004737
0sez10

004346
035472
040000

035466
035470

012602
000207

JSR
BIS

1%:

#8171, (ROY

sitiy, (RO)

; GEY HARDWARE DETECTED FLAG

:RETURN HERE IF GOOD SECTOR
;ELSE RETURN HERE

;GET HARDWARE DETECTED FLAG

;RETURN HERE IF GOOD SECTOR
;RESTORE R2

THIS ROUTINE DOES THE ACTUAL SCANNING OF THE BAD SECTOR TRBLES
IN TEMPI
:ENTER WITH THE ADDRESS OF TABLE (BSE22H, BSE22S, ETC.)
:RETURN IF NO COMPARE
:RETURN+4 IF COMPARE
035472

010346

035474
035500
035502
035504

0e1e2?7
001002
012603
000207

ELGTST: MOV
1727777

19:

CMP
BNE
MOV
RTS

R3,-(SP)

; SAVE R3

(R2), #-1

ALL
gEEIIF

2%
(5P)+,R3

:RESTORE R3

1’S

CZR6IEC UNIBUS RKe DR PRTZ2
P —
B
e P
s
s

NonLEwn [S

oo o
~

CZR6IE.PI11

10-JAN-78 09:43

MRCY11l

M10

30A(1052)
10-JAN-78
11:25
PRGE 129
GET VALUE FOR SOFTWARE SWITCH REGISTER

SES

ége)+,annoo

:GEE IF=CYL # 8 ADR PTR TO TRK/SECTOR WORD

ADD

22, R2

:GO TO NEXT CYL WORD IN TRBLE

2839

ggno,na

sGET HEAD 8 FROM FHDTAB ROUTINE

Bized8 828283

8%3

R],RZ

(§2)+,R3

gieesd BB478L

BSQ

”i
1

:8 INCR PTR TO NEXT CYL WORD
:BR é‘ sonpnn
'ELSE
TRY NEXT
CYL

(SP)+,R3

:RESTORE R3

035506
035512
035S14
035520

022237
001403
062702
000765

001362

03sse2
035526

013703
000303

001460

035540

e752 B3za4E

012603
6271
00ec0

2%:

SEQ d129

000002

3%:

4g:

000004

MOV

RDD

RYS

§ FROM FHDTAB
;SEE ? CTOR
SECTOR/HERD
CSMPER§ ROUTINE

25, (SP)

: INCREMENT RET ADOR

:THIS ROUTINE sonrg THE RHTAB T“Ek? FROM WHATEVER SECTOR IT BEGI'sS
'WITH AND RE-WRITES
035550
035552

010046
010146

SORT

035560
035566

004737
062737
004737

034274
000001
035656

035572
035576
035602
035606

012700
163700
010037
062737

000204
001402
001402
001726

035554

035614
035620

001726
00e13e

035624
035626
035632

002132

035634
035640
035642
035646

001726
001402

001402

MOV

MOV
JSR
ADD
JSR
MOV

#132.,R0

:SAVE RO
:SAVE RI

:MULT SECTOR BY &

RDD

sRHTAB,SECTOR

;SAVE INDEX

MOV

RO, SECtOR

$RHTAB, RO

:INDEX TO TOP HALF OF SRTTAB

(RO)+, (R1)+

;PUT BOTTOM OF RHTRB TO TOP OF SRTTAB

RO, SRHTAB+132.

MOV

$RHTRB, RO

MOV
CMP
BNE

MOV

MOV
RTS

: INDEX TO BOT HALF OF RHTAB

$SRTTARB, R1

CMP
BNE

035650
035652
035654

Ri.-(SP)
PC.RDSEC
#1,SECTOR
PC.MULTE

YO BEGIN WITH SECTOR O

:RO-SECTOR TO RO = INDEX

ADD

2s:

RO, -(SP)

TAB TABLE

SECTOR, RO

MOV
18:

INFO IN

SUB

MOV

001402

THE

(RO)+, tR1)+
RO, SELTOR

:PUT TOP OF RHTAB TO BOT OF SRTTARB

(SP)+,R1

(S5P)+.RO

:RESTOR RI

:RESTOR RO

EMULT BY 6. ENTER WITH DESIRED # IN ’SECTOR’
MULTB:

035656

J35676

n00207

ASL

MOV

ASL
sgg

SECTOR

;2 X SECTOR

SECTOR
égp)+,sscron

:4 X SECTOR
:(4 X S)+(2 X S)

- (SP)
SECTOR,

= & X SECTOR

CZRBIEO UlhiBUS RK6 DR _PRT2
CZReIE. Pll
10-JAN-78 09:43

"Y1l 382(1052)

10-JAN-78

N10O

11:25_

PRGE 130

SEQ 0130

T VALUE FOR SOFTWARE SWIT(H REGISTER

THIS ROUTINE IS ENTEREC ONLY IF THERE ISR BSE ERROR AFTER A WRITE DRATA

iCMD, IT VER IFIES THAT THE BRD SECTOR IS LISTED IN THE BSE INFORMATION
CYLINDER AT CyL 410, TRACK 2.
T0
RETURN IF SECTOR
NGT LISTED IN BSE TARBLE, ERROR CONCITION.
:RETURN+2 IF LISTED, SKIP OVER ERROR

tRUERR: MOV

035700

010446

035702
035710

032737
001014

010000

035712
035716
035722

012704
a04737

003346
036000

MOV

035724
035730
035734

012704
004737
00041S

005346
036000

MOV

035736
(035740

012604
000207

035742
035746
035752

012704
004737
000406

002346
036000

035754
035760
035764
035766

012704
004737
000401
000763

004346
036000

035770
035772

012604
062716
000207

035776

ooo422

000002

BIT

0073S4

BNE

JSR

R4, -(SP)
8CFMT,HCS1

,RY
#B8SE22H+8.

PC, TERR1

#BSE225+8.,R4

; SAVE RY
; CHECK_FORMAT

‘BR FOR 20 SECTOR FORMAT
:SEE IF ON HARDWARE DETECTED TABLE

'RETURN HERE IF YES
;;ELSE RETURN HERE

JSR
BR

PC, TERR1
38

:8 SEE IF ON sorruans DETECTED TABLE
IRETURN HERE IF YES

18:

MOV
RTS

(SP)+,R4
PC

RESTORE RY
RETURN WITHOUT JUMPING OVER ERROR

2s:

MOV

JSR

MOV

38:

#BSE20H+8.
,RY

PC, TERRI

;SEE IF ON HARDWARE DETECTED TABLE

IRETURN HERE IF YES

#BSE20S+8.,R4

;ELSE RETURN HERE

JSR
BR
BR

PC, TERR1
33
13

iSEE IF ON SOF TWARE DETECTED TABLE
'RETURN HERE IF YES
{RETURN HERE IF NO

MOV
ggg

(SP)+,RY
gg,(sb)

;RESTORE R4
:SKIP OVER ERROR ON RETURN

CZR6IEO UNIBUS RK& DR PRTe
10-JAN-78 09:43
CZRGIE.P11
680S

; THIS ROUTINE DOES THE ACTUAL COMPARING OF CYLINDER, HEAD 8 TRACK AGARINST
; THE BSE TRBLE FOR THE ABOVE SUBROUTINE.

6808
6809

6811

MACY11l 30A(10S2)
10-JAN-78 11:25_ PAGE 13l
GET VALUE FOR SOFTWARE SWITCH REGISTER
;

6806
6807
6810

Bll

:RETURN IF FOUND ON TABLE
; RETURN+2 IF NOT FOUND

036000

021427

177777

Yerri:

CMP

(R4, ,n-1

;SEE IF ALL 1°S

SEQ 0131

CZRG6IEOQ UNIBUS RK6 DR PRT2
10-JAN-78 09:43
CZRBIE Pl

o oocooooo
2] @
oo
TPUNY #= 0 pes b b= e
— OO NoCNL

036004

00140S

MACYLll

30R(10S2)

10-JAN-78

007374

BEQ
CcMP
BEQ
TST
BR

19
(§H)+,HDC
2
(R4)+
TERR1

00077n

036020
036024

06271
00020

0ocooe2

1%:

ARD
RTS

82, \SP)
PC

036026
036032
036034

022437
001401
000761

007364

c%:

CMP
BEG
BR

036036

000207

RTS

33:

(R4)+,HDA

TERRI

:ROUTINE TO TURN L
005037
005737

PRGE 132

SEQ@ 0132

GET VALUE FOR SOFTWARE SWITCH REGISTER

036016

036040
036044

Cll

11:25_

éLKON:

CLR
TST

OR P CLOCK

TIMUP
PCLKF

:BR IF

(ES,

NOT ON TABLE

:SEE IF CYL MATCH

'BR_IF YES

"ELSE ADV_TO NEXT CYL WORD
8 TRY RGARIN.

:SEE IF SECTOR & TRACK MATCH
{BR IF vES
!0R

TRY

AGAIN

INTERRUPT ON

CZRBIED UNIBUS RK6 DR PRT2
10-JAN-78 09:43
CZRBIE. Pll

g83

6836

6840
6841

036050
0360S2

OOIOOH

e i
036076

000207

000100

30AR(10S2)

10-JAN-?8

11:25

PRGE

133

SEQ 0133

GET VALUE FOR SOFTWRARE SWITCH REGISTER
RNE
sgg

143246

06136 143835

18:

MOV

RTS

18
;éoo, 3LKS

BRQNCH IF P-CLOCK PRESENT
L-CLOCK, ENRBLE INT

ALL 1'S

;P-CLOCK,

8-, IPKSB

SENABLE INT,

8138, 9PKS

CT UP, REP INT

:LINE FREQ & RUN

'KWll-L 8 KWll-P INTERRUPT HANDLER
036100

005037
005337

001372
001366

00S337

001364
001370

804349

£8a8
6844

BRAR%5

e847

684
6848
6849

0oo002

8Lock:
001366

001372

CLR

COUNT
13
COUNT
HZ,

N
e

MUP

DEC

18:

TIMUP

DEC
BNE
MOV

sed

RTI

:SORRY,

TIME IS UP

:ROUTINE TO TURN L OR P CLOCK INTERRUPT OFF

fees

8 5737
1003
005077
000207

eLKOF:

007520
143180

18:

143144

TIST

PCLKF

g%n

géxs

RTS

BNE

CL3

:BRACH IF P-CLOCK PRESENT

JPKS

:P-CLOCK, CLEARR INTERRUPT

:L-CLOCK,

CLEAR INTERRUPT

THIS ROUTINE GENERATES PARRITY FOR THE EXPECTED MESSAGE

‘ENTER WITH THE EXPECTED WORD IN TEMP

LEFT 17 TIMES, ERCH TINE THE_CRARRY BIT IS SET
; _TEMPL IS ROTRTED

iR1 IS_INCREMENTED

THE

iRl BIT 0 IS EXRHINED I F

;

THE PARITY BIT

; IF _IT IS NOT SET,

03keeH
036eeehb

4BPAR:
000021

007412

000001

100000

MOV

MOV
MOV
CLR
cLe

18:

ROL

2%:

DEC

BCC
INC

BNE

BIT

007412

k¥

BNE
BIS

MOV
29§

END OF 17 ROTATES ( TEMP1 BACK T3 ORI&),

IS NOT SET

{SET IN TEMPI

6832
68%&

NO=NW—~

6831

MACY1l

IS SET INDICATING AN ODD & OF 1°S,

IN B

INDICATING AN EVEN 8 OF 1'S ,THE PARITY BIT IS

RO, -(SP)

:SAVE RO

:COUNT # OF 1'S IN TEMPI
*CLERR CRRRY

Rl -(5P)
#17. RO
TEMP1

23
R1

RO
13

#B170,R!

38
#M.PAR TEMPI

(SP)+,R1
<sp)+ RO

:SAVE R1
:SHIFT COUNTER

:BR IF CRRRY CLEAR
‘COUNT % OF 1°S

"SHIFT COUNTER

:BR_IF ODD # IN RO
:SET PARITY BIT

'RESTORE Rl
:RESTORE RO

CZR6IEO UNIBUS RK& DR PRTe
10-JAN-78 09:43

CZRBIE.P 11

MACY1l

ELll

PAGE 134
11:25_
30A(10S2)
10-JAN-78
GE. T VALUE FOR SOFTWARE SWITCH REGISTER

ROUTINE TO ENRBLE LOOPING ON INTERMITTANT ERRORS
TWHEN SLPERR SET BY OTHER THAN SCOPE ROUTINE

036254
036260

00000

036230
036236
036240
036244
036246
036252

001000

001110

142702

IE: MY LOOP MACRO

§cop 18:

001103

BIT
B

; LOOP_ON ERROR?

#SW9, JSWR

iBR _IF _NC
:HAD ERROR?

13
SERFLG

;BR IF NO

SLPERR, (SP)

001410

19:

(SP),SLPERR

;SE1

LOOP ADDR FOR TIGHMT SCOPE LOOP

THIS ROUTINE IS ENTERED BY TYPING R CONTROL-C.

17 IS USED TO RLLOW THE OPERATOR TO HLAT THE CPU WHILE INSURING

oo
0 DO D DO ODOODD
PUN) ) 0= s 4o s ot et Pt Pt s P
N—OOOMNTNLWN—O

¥SSTCSSRDS ARE LORDED & FORMATTING IS VALID BEFORE ACTUALLY HALTING
(SP)+,(SP)+

;RESTORE STRCK FROM INTERRUPT

034214

PC,SUBCLR
ey

; CERR RFTER

0L /7336

UNLD
33

:SEE_IF HEARDS UNLOARDED
:BR_IF_NO

Q4s?775

13
QSG?H

:BR_IF_MANUAL MODE
:PGM RBORT PENDING

046043

,MSG7S

;HALT PENDING

004737
104024

034214

PC,SUBCLR

036326
036334
036340

012737
004737
104121

000011
032224

036342
036350
036354

013737
004737
104074

036356

00s037

007336

036362
036366
036370

005737
001460
005237

007340

036374
036402
036410
03e416

012765

036262

Ocebas

036264
036270

004737
104024

036272
036276
036300
036304
036306
036312
036314
036320

005737
001431
005737
001403
104401
000402
104401

036320

036324

oo4737

&1op:

oooo42

#SRTSPL , HCS1

007354

:DO START SPINDLE CMD 8 GET CONTR RDY

PC, DOCMD

12l

:RDY NOT SET AFTER ST SPIN CMD.

:SETUP TIMEOUT

1100, TEMP2

,FIND ATTN

PC,FATTI

INO ATTN nrrsn ST SPIN CMD.

UNLD
39:

007342

032224

;CERR AFTER SCLR

007414

100000
00leee
000013

:SEE_IF MANUAL OR AUTO MODE

000000
000010
007354

BADHDR

:SEE IF HEADERS VALID

9§
HPEND

#CCLR,RK(CS]

‘BR

IF YES

(RS)

SUNIT RKCS2(RS)

sReCAl , HCS1
PC, DOCHD

.00 RECAL CMD 8 GET CONTR RDY

SEQ J134

0 UNIBUS RXb DR PRT2
P11
10-JAN-78 09:43

036422

104124

036424

012765

036462

036464

MACY1l

30A(10Se)

10-JAN-78

100000
00liz2ee
00000S
032224

000000
000010
007354

BY4S:

ecs

036524

000137

031174

036530
036534
036536
03654e
036546
036552

005737
001410

oooo42

000137

036556
036562
036564

104401
000000
000127

81,RKMR] (RS)

: SELECT

BNE
ERROR

sus
244

RT2 NOT SET ounxnc RECAL CMD

JSR
ERROR

PC,FARTT!
S5

:FIND ATT
INO RTTN QFTER RECAL CMD

MOV

032602
03e5e4

4g:

5%:

01335¢&

.SBTTL

PC.GSTAT
80 RTZ,HMR2

710, TEMP2
8CCLR,RKCS1(RS)

WORC

:SETUP 1 EO

MOV
MOV
JSR
ERROR
égn

SUNIT RKCS2(RS)
#CLERR, HCS
PC . DOCAMD
15]
Zg¢rsrnrn

:D0 DRIVE CLEAR CMD 8 GET CONTR RDY
:NO RDY AFTER DRIVE CLEAR CMD
STEST FOR ATTN

ERROR

154

:ATTN NOT CLERRED AFTER DRIVE CLEAR CMD

IMP

FORM

:WRITE VALID FORMATS

15T

;DRIVES

:SEE

IF MANUAL OR AUTO MODE

BEQ

‘BR IF nnnunL MODE

CLR

$§E0OPCT

:SET UP EOP TO EXIT TO MONITOR

TYPE

046100
031540
001176
03isie
046122

SEQ@ 0135

:RDY NOT SET ..TER RECAL CMD

JSR
BIT

007402
007414

135

124

MOV

000026

001406
032634

PARGE

GET VALUE FOR SOFTWRRE SWITCH REGISTER
ERROR

000001
033eeH
0200C3

F11

11:25

MSG76

:PGM RBORTED

CLR
IMP

$ESCAPE
SEOP1

:ABORT PGM

;zfg

,MSG77

s CPU HALTED

JMP

STS

:START OVER

IF CONTINUE PRESSED

UNEXPECTED TIMEOUT HANDLER

THIS ROUTINE IS ENTERED IF THERE IS
;

036570
036572
036574

036610

011600
005740
032777
00100S
104401}
010046

03e6k12
03eb1Y4
036615

104403
006
000

020000
046303

142336

NON EXISTANT MEMORY (NO SSYN)

;
;

B.
C.

BOUNDRY ERROR
STACK OVERFLOW

BADTMO:

MOV

(SP)

BNE

TST
BIT

TYPE
MOV
TYPOS

.BYTE
BYTE

(RO}
osula JSUR

ho,-(SP)
&
O

:SAVE PC WHERE TIHEOUT OCCURRED.

'GET PC BEFORE UPDATE
xuuxexr ERR rvpouvv
DON'T TYPE

neokr TESTS,UNEXP T.0. @ PC=
,,;epg Rg FOR TYPEOUT
.,co TYPE--OCTAL ASCII

"TYPE & DIGIT(S)
. SUPPRESS LERDING ZEROS

MACY11l

032777
001403
022eeb
000177

001000

142314

040000

036644

032?77
001401
000002

036646

000000

036650
036652

Gll

30R(10S2)
10-JAN-78
11:25
UN EXPECTED TIMEOUT HANDLER

18:

142252

142276

2s:

3%:

036656

036672
001334
001176
001000

001176

142234

036726
036730
036732
036736
036740

036742
036743
036744

036746
036750
036752

——

000240

LOOP on
Ennonv

(SP)+, (SP)+

ves RESTORE STACK

BIT
BEG

RSW1Y, ISWR
33

:THAT GAVE BRD TIMEOUT
:LOOP ON TEST?
vgsaanncu

GO _to STARTING ADDR or TEST

HALT

;UNEXPECTED TIME OUT OCCURRED

!AS INDICATED. YOU CAN LOOP ON
{ERROR, LOOP ON TEST OR INHIBIT
:ERROR’ TYPEOUT BY SETTING THOSE
:SWITCHES.
(SP)+,(SP}+

MEMORY

MEMERR:

MOV

CLR

,RESTORE STACK

SEOPI

CHECK ENABLE

;ABORT TESTS
TRAP

813, SESCAPE

(spi TRAPPC

ssscnps
#SW9, ISWR

28
c9:

MOV

.SBTTL

RKO&

INTER:

NOP

#STACK , SP

JSLPERR

(SP),RO

104401
010046

(RO}
MSGH
RO, -(SP)

044550

104403
006
g00
000000
009240
000240
000002

.SBTTL

;STORE PC

"UNEXP MEM PARITY TRAP
;CHECK IF LOOP ON ERROR

:YES,

FORCE STACK AND TRY AGRIN

ELst RE TURN
-INIT STACK

:LOOP ON ERROR

INTERRUPT HANDLER

036720
036722
036724

012706
000177

SEQ 0138

a3LPALRTM

036706
036710
036714

136

cMP
JMP

.SBTTL

18:

PAGE

5%“9 JSWR

cMpP
JMP

031Slc

036664
036670
036672
036676
036704

BIT
BEQ

RTI

-0
£0
N

s Pt P
e P
Pe bn
P

WO NN LW

NN
N~
0000000 o

? IBUS RK6 DR PRTZ2
10-JAN-78 09:43

:SAVE PC WHERE

:TYPE PC

.,GO TYPE--OCTAL RSCII
TYPE &6 DIGIT(S)

,.SUPPRESS LEADING ZEROS

POWER DOWN AND UP ROUTINES

; POWER DOWN ROUTINE

036754
03e762

012737

000000

036766

000024

SPWRDN:

MOV
HALT

#$PWRUP,PURVEC

INT OCCURRED.

:GET PC BEFORE UPDRTE.
PINT
AT PC=
.,snve RO FOR TYPEOUT

;SET

UP VECTOR

CZR6IED UNIBUS RKBE DR PRT:

CZReIE.PI11

zggg
/

036764

10-JAN-T8 09:43

MArYl]l

036766
036772

005037
005237

037040
037040

7062

037000

012737

036754

7066

7067

;ggg

;8;?

H1l

11:25

B8R

PRARGE

-2

036776

001375

037006
037014
037022

012737
012737
012706

037032

000005

037040

000000

037026
037034

104401

000137

000340
000340
001100

$PWRUP:
18:

000024

000026

sWAIT LOOP FOR TTY
'WAIT FOR THE INCR

MOV

#SPWRDON, PWRVEC

:SET POWER DOWN .ECTOR

BNE

MOV
MOV
MOV

000036

044740

TYPE

RESET

015446

IMP

$PWRCT:

#PR7,PWRVEC+2
$PR7 TRAPVEC+2
#sTRLK, SP
,MSGI1

7075

' RO-R1-R2-R3=DIVIDEN.

7077
7078

*RO-R1=REMAINDER RFTER DIVISION
*R2-R3=QUOTIENT AFTER DIVISION

"ENTER WITH JSR PC,M.DPID

037042

012746

000040

M.OPID: MOV

037052

00S466

000002

NEG

037060
037064

005666
061601

000002

0.7070

066600

000002

7082
7083

037046
037050

7085

037056

7089

037066

7080

037074

7092
7083
7094
7095

037100
037102
037104
037106

7?C~1

7096
7087

7083

7093

7100
7101

7102

;iga

010446
010546

005416

005500

103445

037076

005046

037110
037112

00S716
001410

037116

066601

037124

005516

037114
037122
037126

037132

006103
006102
006101
006100

005016

QOSSO0
066600

000404

7105

037134

060501

7107
7108

037140
037142

005516
060400

037146

005716

7106

7109
7116

'REPORT POWER FAIL

:R4Y-RS5=DIVISOR

zggg

7088

:PRIORITY 7
: INITIALIZE STACK

:LOCKOUT ALL INTERRUPTS FOR TRAPS

:WAIT COUNT FOR TTV

:DIVISION UTILITY ROUTINE

7076

:0F WORD

PFSRT

7086
7087

{HANG UP.

$PWRCT
SPWRCT

’07¢e

7084

SE3 0137

CLR
INC

;8;3

7081

137

:POWER UP ROUTINE

7059
7060

7063
7064
7065

10-JAN-78

POWER DOWN AND UP ROUTINES

000776

;ggg

7061

30A(10S2)

037136

037144

005500

00SSI6

SBC
RDD

2(SP)
JSP,R1

ADD

2(SP) . RO

CLR

M.DPSO

:IF CARRY THEN OVERFLOW HRS OCCURRED

-(SP)

CLR

JSP

JSP
M. DP41

ADD

2(SP),R1

ADC

JSP

4(SP),RO

RS,RI

ADC
ADD

Jsp
R4, RO

M.DP42: ADC

TST

!THIS IS A LONGER LASTING CARRY BIT

s TEST CARRY INDICATOR
*IF TO CARRY THEN ADD,

:CLEAR UP FOR NEXT TIME

ELSE SU8T.

:ADD - (DIVISOR)
:SET CARRY

M.DPY2

ADD

ADC

'VERSION OF DIVISOR
s PERFORM INIT SUBT.

R3
R2
R1
RO

ADD

‘HI ORDER
:LO ORDER TO THE STACK

ROL
ROL
ROL
ROL

ADC

M.DP41:

:FORM NEGATIVE

JsP

TST
BEQ

00000

2(4p)

NEG

BCS

000002

: COUNTER FOR DIVISION CYCLES

RY, 2 (SP)
RS’ -(SP)

ADC

M.DP40:

840, - (SP)

MOV
MOV

:ADD +(DIVISOR)

JsP

:SET CRRRY

JSP

:SET CARRY

:TEST THE UPDRTE

INDICATOR

SITIINNNINNINNNNNNNINNININNYN

OWVONCNLWNNDDODNTNLWN—

OO0

NN
DD

0 _UNIBUS RK& DR PRT2
P11
10-JAN-78 09:43

037150

037152
037154
037160

005203
00S366
003347

006003
103404
060501
005500
060400
000241

037176

006103

037204
037206

000242
000207

037210
037214
0372l

BEQ

001401

037162
037164
037166
037170
037172
037174

037200

I11

MACY1l 30A(10S23
1J-JAN-78
11:25
POWER DOWN AND UP ROUTINES

062706

062706
000262
000207

INC
DEC
BGT

000006

ROR
BCS
RDD
ADC
ADD

R3
M.DPYY
RS,K!
RO
R4,R0O

ROL

CLV
RTS

CcLC

000010
000006

M.DPYY4:

M " ~80:

.44

R3
6(SP)
M.DP40

ADD
ADD
StV
RTS

#10,SP

%6, SP
PC

PAGE 138

; IF0,FORGET 17

:NO CARRY PQSSIBLE HERE
:DECREMENT CTR
:BR IF MORE TO DO

:ADJUST STACK BY 4 WORDS

SEG 0138

Pt P

s ot

s Pt Pt Pt Pt Pt Pt Pt Pt Pt et Pt Pt Pt

et Pt Gt ot Pt Pt Pt P P Pt P Pt

e Pt Pt e Pt Pt P Pt

s Pt (o Pt ot pens e Pa Pt Pt Pt Boe Pum P

M@OMOMMM NNNNNYNNNNNTC
T
NN NUINUNNUINL
L L L L L L L £ LWWWWWWWWIGL

CRLWNN=-ODDNCNLWL-OVONCUNLWN—ODONCN
LW
OOONN LW
000NN L W—

(TN (D

SN NNNN NN NN NN NN NN N NN NN N NNNN N NNIN N NN NN NN NINNININYN CINNNINNNNNNNYNIN

0 UNIBUS RKB DR PRT2
.Pl1l

10-JAN-78 09:43

MARCY11 30A(10S2)

J11

10-JAN-78

SCOPE HANDLER ROUTINE
.SBTTL
e

11:25

PAGE 139

SEQ 0139

SCOPE HANDLER ROUTINE

YTyt

R T

AR AR RIS

A SIS

ITIL TSI LTS L

iTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
:#AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:07)

;¥AND LOAD THE ERPOR FLAG (SERFLG) INTO DISPLAY<(15:08>
:#THE SWITCH OPTlggg
PROVIDED BY THIS ROUTINE RRE:
s ¥SWIY=]

ON TEST

cxSWll=1

INHIBIT ITERATIONS

- #5L09=1

LOOP ON ERROR

LOOP ON TEST IN SWR<7:0>

: xSW08=1

; #CALL

037220

037220
037222
037230

104407
032777
00111v

037232

000416

037234
037240
037246
037252
037256
037260
037262

013746
012737
005737
012637
000463
022626
012637

037266

037270

000423

$SCOPE:

040000

000004
037260
177060
000004

141710

000004

c%:

000004
000400

141642

037300
037306

127737
001465

141634

001102

037310

001115

001103

037326

032777

001000

141604

037336
037344
037346
037352
037356

013737
000446
105037
005037
000415

001110
001103

001106

7$:
4g:

004000

141552

3$%:

037370

005737

001216

037376

005237

001104

037324

101015

037334

037360
037366

037374

001404

032777
001011

001406

2s:

001174

J8ERRVEC,-(SP)
85, I 8ERRVEC
8177060
(SP)+ . 98ERRVEC
$SVLAD
(5P)+, (SP)+
(SP)+. IBERRVEC

::SAVE THE CONTENTS OF THE ERROR VECTOR
,,ssr ron TIHEOU
TIME OUT
XOR?
,,RESTORE rue ERROR VECTOR
1GO TO THE NEXT TEST
:CLERR THE STACK AFTERA TIME OUT
,,RESTORE THE ERROR VECTOR

023737
002024

001174

001104

012737

000001

001104

037426
037432

105237
113737

001102
001102

037420 013737 0374'6 001174
001214

LOOP ON THE PRESENT TEST

#BIT08, aSWR

; 1LOOP _ON spsc

SSWR, STSTNM
$OVER

:ON THE RIGHT TEST?
PBR IF YES

BEQ

:BR IF NO

BHI

CMPB
BEQ

7578

CMPB

BIT

1§:
$SVLAD:

SERFLG

$ERMAX, SERFLG

R IF NO

TEST?

SWR(7:0>

,,Hns AN ERROR OCCURRED”

!MAX. ERRORS FOR THIS TEST OCCURRED?
R IF NO

#81709, aSWR

,,LOOP ON ERROR?

MOV
BR
CLRB
CLR
BR

SLPERR,SLPADR
SOVER
SERF._G
$TIMES
18

::SET LOOP ADDRESS TO LAST SCOPE
; ;ZERQ_THE _ERROR FLAG
*CLEAR THE NUMBER OF ITERATIONS TO MAKE
: 'ESCAPE_TO THE NEXT TEST

TST

§PASS

,,xr FIRST PASS OF PROGRAM

INC

$ICN

;3 INCREMENT ITERATION COUNT

BEQ

BIT
BNE

BEQ

037402
037410

037412

MOV
MOV
TST
MOV
BR
CMP
MOV

BEQ

123737

037316

s TEST FOR CHANGE IN SOFT-SWR
} ;LOOP ON_PRESENT TEST?
YES IF SW14=]

BIT

001103

001421

#BIT1Y, 3SWR
$OVER

63:; #8uu8END OF CODE FOR THE x0R’ FESTERS 48NS

105737

037314

CKSWR
BIT
BNE

032777

001404

: s SCOPE=10T

. 4##8%START OF CODE FOR THE XOR ftsrsnsooou
§xTSTR: BR
68
i IF RUNNING ON THE “xon" TESTER CHANGE
STHIS INSTRUCTION TO A_"NOPTM (NOP=240)

037270
037276

18:

SCOPE

#8IT11, SWR
18

CMP
BGE

srxnss SICNT
sovsn

INCB
MOVB

§TSTNM
§TSTNM,$TESTN

MOV

$IC

snkcnr STIMES

'BR

IF NO

,,xnnxexr ITERATIONS?
:BR IF YES

INHIBIT xrennvxons

;s CHECK THE NUMBER OF ITERATIONS MADE
‘BR _IF MORE ITERATION REQUIRED

,,PEINITIRLIZE THE ITERARTION COUNTER

{1SET NUMBER OF ITERATIONS TO DO

: COUNT TEST NUMBERS
::SET TEST NUMBER IN APT MAILBOX

30R(10S2)
10-JAN-78
11:25
SCOPE HANDLER ROUTINE

roun

MOV

-0
£0

001 1 06
001l 1 10
001 1 76
o0 0 01
001l 1 0e
0011 06

037440
037444
037450

MACY11

0 UNIBUS RKE DR PRT2
.P11
10-JAN-78 09:43

K1l

MOV
CLR

$OVER: MOV

MOVB

29¥

SMXCNT:

037476

.SBTTL

PAGE

(SP), $LPADR

SEQ 014G

140

; SAVE SCOPE LOOP QDDRESS

(SP)’ SLPERR
$ESch
E

,,SQVE ERROR LOOP RDDRESS

,,CLEQR THE ESCAPE FROM ERROR RDORESS
;ONLY ALLOW ONE(1) ERROR ON NEXT TEST

SLPADR. (SP)

; ; FUDGE RETURN ADDRESS

srérnn ODISPLQY ,,DISPLRY TEST NUMBER

2000.

ERROR HANDLER ROUTINE

i ;FIXES PS
; ;MAX. NUMBER OF

o 326363636 338 3630 36 369636 306 30 30 3630 00 I 0 I I DI M NN

ITERATIONS

RN RN

RERREERRRRRER R

iTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
:¥SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
:%AND GO TO TYPERR ON _ERR
ROR
:#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE RRE:

T ON ERROR

S %SWIG=1

%SW13=1
#SW10=1
,aggggzl
,l

037500
037500
037502
037506
037510
037516

104407

$ERROR:

001103
001102
002000

[V 1T
[T [T
Lo

et P

£00

020000

18:
-00

— »-0800—0—
ooow-on

001116
000002
141342

ERROR
CKSWR

0SS140
001205
000001

001230

001114
o4o424

037620

MOV
BIT

STSTNM, aDISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG
#BIT10, ISWR
,,BELL ou ERRO

BEQ

TYPE
INC
ggg

037656
037660

001110
00.176

001176

141274

TO ZERO
'DON’T LET THE FLAG GO
0 - SKI

$BELL
$ERTTL
(sp)eseggpc

,,RING BELL
!COUNT THE NUMBER OF ERRORS
:!GET ADDRESS OF ERROR INSTRUCTION

#81T13, JSWR

,,SKIP TYPEOUT IF SET

MOVB

astnnpc SITEMB

BNE
JSR

208
PC, TYPERR

' 1SKIP TYPEOUTS
!GO TO USER ERROR ROUTINE

CMPB
BNE

#APTENV, SENV
2%

,,RUNNING IN APT MODE
!NO,SKIP ARPT ERROR REPORT

TYPE

, SCRLF

;;STRIP AND SAVE THE ERROR ITEM CODE

SITEMB, 218
PC,SATYY

*'SEY ITEM NUMBER RS ERROR NUMBER
! 'REPORT FATAL ERROR TO APT

22%:
23

BR
TST
BPL

22%
JSWR
33

. sAPT ERROR LOOP
! 'HALT ON ERROR
‘!SKIP IF CONTINUE

38:

CKSWR
817
BEQ

#B1T09, ISWR

*'TEST FOR CHANGE IN SOFT-SWR
,,LOOP ON ERROR SWITCH SET?.
!BR IF NO

BEQ

.,en IF NONE

BYTE
‘BYTE

HALT

001000

. TEST FOR CHANGE IN SOFT-SWR

,,ssr THE ERROR FLAG

MOVB
JSR

21%:

141310

: s ERROR=EMT AND N=ERROR ITEM NUMBER

SERFLG

BIT

208

INCS

BEQ

001200
0C111e

NNNNNNNN

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

4s:

MOV
TST

MOV

O
O

$LPERR, (SP)
SESCAPE

JESCAPE, (SP)

:'HALT ON ERROR!

:FUDGE RETURN FOR LOOPING
!CHECK FOR AN ESCAPE RDORESS

! !FUDGE RETURN ADDRFSS FOR ESCAPE

C2R6IED UNIBUS RKe DR PRY
SZReIE.PII

10-JAN-78 09:43

MACY11 30A(1052)

2233
03286:
2737 031600 000042 >3
7ous 837592 881081
/

7246

037674

000000

7248
zggg

7676

000002

7047

837272

lU-JQN—??

ERROR HANDLER ROUTINE

X ¥

.SBTTL

CMP
BME

HALT

L1l

11:25

PAGE 141

#$ENDRD, a#42
52
.

RTI
TYPE ROUTINE

SEQ O1u!

ACT-11 AUTO-RCCEPT”
,,annné IF NO

HEt

:: YES

: s RETURN

73&&

, !l!lil!illil!l!lll!«llllllfilllll!l!lll!il!llll!!lllll!lllli!l!ll

7253
7254
7255
;gg;

lTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARRCTERS AFTERA LINE FEED.
%¥NOTEL:
§NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
4norea
SFILLS CONTRINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
:NOTE3
SFILLC CONTAINS THE CHARARCTER TO FILL AFTER.

iROUTINE TO TYPE RSCIZ MESSAGE. MESSAGE MUST TERMINATE NITH 0 BYTE.

7258

%CALL
:

7259

;1) USINGA TRAP INSTRUCTION

;Sg?

;l'

7262
7263

25ke

x
T

7266

037700

7268

037706

7267

7269
7270

7271
;g;g

037704

037710
037712

037714
03;;20

105737

100002

001157

$TYPE:

000000

000430
010046

017600
622737

000002
000001

18:

001230

7274 837758
18§9§$ 000100 001231
037736
001405

7276 037740 010037 037750
037744

004737

040414

132737

000040

7278

037750

7280

037760

001003

7764
037766

100
005726

7279

728

7e8
7283

7e84

7285
7e86

037752

8 7762

012600

037776

000002

037772

040000

7289

040006

7290

662 wg

037770

7287
7288

000000

000002

122716

000011

(22716

000200

001430

040012

001006

7291

040014

005726

7293

040020

001205

040030

004737

7292

7294
7295

7296

7297

7298

040016

240022
(040026

040034
040040

62%:

2%:

062716

(040004

001231

61%:

608 :
3%

ys§:

123726

001156

040112

6%:

;1S THERE A TERMINAL®

;BR

IF YES

,,HRLT HERE IF NO TERMINAL

8159
BEQ

CQSTSPOOL SENVM 515860L
ngggn
GO CHECK roa conso
LE

MOV
czpa

az2lsP), RO
SAPTENY, SENV

MOV

RO 13

LWORD

JSR

BITB

,,Lsnvs
:SAVE RO

:GET RDDRESS OF ASCIZ STRING
,,RUNNING IN nggn ggg CONSOLE

ETUP nsssncg
RDDRESS FOR APT

PC.SATY3

,,SPOOL MESSAG

SAPTCSUP, SENVM

,,QPT congo%ssuppasssso

(RO)+,-(SP)

,,Pgsfi cuaancrsn roe; TYPED onro STACK

' MESSRGE RDDR ss

APT

BNE

60%

BNE
TST

4g
(SP)+

ADD

82, (SP)

(SP)+,R0O

,,RES ORE RG

CMPB

#HT, (SP)

1 BRANCH IF <HT>

#CRLF, (SP)

: :BRANCH IF NOT <CRLF>

MOv8
MOV
RTI

BEQ

BNE

$CRLF

X ¥

STPFLG
3%
RO, -(SP)

TYPE

040156

: sMESADR 1S FIRST ADDRESS OF AN ASCIZ STRING

BR
MOV

TST

105037
00075S

001350

TSTB

BPL

CMPB

1049401

,MESADR

TYPE
MESADR

HALT

7275

7277

TYPE

(SP)+

YES, SK1

IT ISN'T
ERMIN
CIF Teanxnnron POP IT OFF THE STQLK

,,no:usv RETURN PC
:RETURN

::POP

<CR>(LF> EQUIV

::TYPE A CR AND LF

CLRB
BR

$CHARCNT
23

;s CLEAR CHRRACTER COUNT
i iGET_NEXT CHARACTER

CMPB

gFiLLc, (sPy+

;IS IT TIME FOR FILLER CHARS."

JSR

BNE

PC,STYPEC
2%

:GO TYPE THIS CHARACTER

:1IF NO GO GET NEXT CHRR.

CZRBIEDC UNIBUS RK6 DR PRTR2

CZReIE.P11

10-JAN-78 09:43

7293

040042

013746

001154

;301

o:oous

105396

000001

7304
z§o§

040060
040064

105337
000770

040156

112716

000040

132737

000007

7300

383
;3§9

MACY1l

488?& 885;39 ouol12

7310
7311

040066

840075
040076

0047

;313
O:Ofoq 001;72
7314 481?8 8887 4
;ais

030{12

1857;7

7318

040126

122766

4011

8s:

040156

141032

000002 141024

7319
7320

040156

001003
105037

84815

00000

11:25

000015

SEJ 0142

142

SNULL , - (SP)

; GET
8 OF FILLER CHARS.

osga

1(SP)

,.ogssF SULEONSEQ ;gsagulngg; oOF STACK

DECB
BR

§CHARCNT
7€

. .DO NOT counr ns A COUNT
*.LOOP

9§R

MOVB

, STYPEC

8’ , (SP)

pc,$§TYPEC

$N$
83

a§

MOVB

g(SP) JSTPB

118

STYPEC: 53[9

000002

PRGE

MOV

;HORIZONTAL TAB PROCESSOR

7319 848158 11227
040134
040136

M1l

10-JAN-78B

TYPE ROUTINE

78:

7309

30R(10S2)

CMPB

ens
CLRB

SCHARCNT

?sp>+

S TPS

#CR, 2lsP)

:AND THE NULL CHAR.

0 ;YPE AN

: sREPLACE TAB WITH SPACE

{1 TYPE R

SPAC

,,BRRNCH

F NOT AT

: POP gpggs OFF STACK

’chT NEXT CHARACTER

:WAIT UNTIL PRINTER IS RERDY

:LCD CHAR TO BE TYPED INTO DATA REG.

,,xs CHARARCTER A CARRIAGE RETURN?

&‘
CHARCNT

,,Bnnnc IF NO
:'YES--CLEAR CHARACTER COUNT

: ' CHARRACTER COUNT STORAGE

;321
030135
003;0& Qoooole 000002 1S
7355
40182
681483
7324 040154 105227

Bfipa
gEa
INCB

;32?

§TYPEX:

RYS

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

?ggs

40166

SCHARCNT: . WORD

000207

;ggg
7330

NEEDED

gT;PE¥SP)
S#YPEX
(PC)+
c

ExxgunnnE
TER AR LINE FEED?
"égnn
: : COUNT THE CH
RARACTER

lll!llllilll!l!IllilllllllllllIlllll!lll!ll!illlll!llllllll’l!l

7331

iTHIS ROUTINE IS USED TO CHANGE
R 16-BIT BINARY NUMBER TO A S-DIGIT

7334
7335
7336

"%BEFORE THE FIRST DIGIT OF THE NUMBER. LERDING ZEROS WILL ALWAYS BE
: sREPLACED WITH SPACES.
: %CALL:

7332
7333

*#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
:¥NUMBER IS POSITIVE OR NEGQTIVE A SPACE OR
A MINUS SIGN WILL BE TYPED

7337

;ggg
7340

7341
7342
7343
7344

7345
7346
7347

7348

7349
7350
7351

7352

7383

7354

S%
040162

040162
040164
040166
040170

D40172
040174
040200
040204

010546
012746
016605

100004

040508

005405

040216

00S000

040210

040220

(040224

040230

$TYPDS:

010046
010146
010246
010346

000620

0000SS

012703

040376

112723

005002

000040

NUM, - (SP)

MOV
MOV
MOV
MOV

RO, - (SP)
R1,-(SP)
R2.-(5P)
R3,-(SP)

; ;PUSH
:'PUSH
; iPUSH
:PUSH

RO
R1
R2
R3

MOV

20(SP) RS

}iGET

THE INPUT u BER

NEG

2 MAK

CLR

; ; ZERO THE CONSTANTS

TYPDS

MOV
MOV

020200

112766

MOV

8PL

000001

18:

2%:

MOVB
MOV

MOVB
CLR

RS’ -(SP)
820200, -(SP)
18

%' -, 1(SP)
#$DBLK, R3

%' ,(R3)+

;PUT THE BINARY NUMBER ON THE STACK

,,co TO THE ROUTINE
ON
ON
ON
ON

STACK
STACK
STACK
STACK

:'PUSH RS ON STACK
1'SET BLANK SWITCH AND SIGN
:BR

: MAK

INPUT

IS
P

B%NRRY NUHBER POS.
RSCII NUMBER NEG.
INDEX

:SETUP THE OUTPUT POINTER

:'SET THE FIRST CHARACTER TO A BLANK
: :CLEAR THE BCD NUMBER

czasxso UNIBUS RKbH DR PRT2
CZREIE.PILI
10-JAN-78 09:43
7355
7356

Q40232
040236

016001
16010S

(040842

005202

040246
040250

060105
005702

4§ :

040260
040262

106316
103003

Ss:

7357

040240

7359

Q40244

7358
7360
736f
7362
7363
7364

040252
040254
040256

7367

040854

7365
7366

7368
7369
7370
7371
7372
7373
7374

7375

7376
7377

001002
105716
100407

116663

0S2702
052702
110223
005720
020027
002746

040316

010502

040320
740322

040336

012605

040342

012602

040346

012600

7382

7384

7385

7386
7387
7388

7389

7390
7381
7332
7393
7394

;ggg
7397

040340
040344

040350
040354

100003
116663

10S013

177777

63:
73:

000010

8s:

177777

177776

9g:

104401
016666

012616

040366
040370
040372
040374
040376

023420
001750
000194
000012
000004

$DTBL (RD),R1
R1,RS

,.GET THE CONSTANT
:FORM THIS BCD DIGIT

INC

,,INCRERSE THE BCD DIGIT BY 1

ADD
TST

R1,RS
R2

; ;ADD BACK THE CONSTANT
:'CHECK IF BCD DIGIT=0

RSLB
BCC

(SP)
68

: 1MSD?
2 BR IF

BIS
8IS
MOVB
TST
cHP
BLT

#'0,R2
s' 'R2
R2, tR3)+
(RO)+
RO, #'0
2s’

:'MAKE THE BCD DIGIT RSCII
:MAKE IT A SPACE_IF NOT_ALREADY A DIGIT
} iPUT THIS CHARACTER IN THE OUTPUT BUFFER
! JUST INCREMENTING
}ICHECK THE TABLE INDEX
::G0 DO THE NEXT DIGIT

MOV

RS, R2

P'GET THE LSD

BLT
BR

BNE
7578
8MI

MOVB

BR
1578

BPL
MOVB
CLRB

MoV

MOV
MOV

012601

040376
000002

000002

$DBLK:

.SBTTL

RTI

7401

040424

112737

000001

040652

SATYY:

MOVB

7403

040432

010046

122737

000001

001230

132737

000100

001231

7406

040442

001450

7408

040452

001031

040462

001425

7407
7409
7410

O4OMYM
Q40464

:BR_IF NO
,,YES--SET THE SIGN FOR TYPING

(SP)+,RS

:'POP STACK INTO RS

(R3)

(S5P)+.R3
(SP)+.R2

:SET THE TERMINATOR

:1POP STACK INTO R3
:'POP STRCK INTO R2

(5P)+ RO

(SP)+. (SP)

;1POP STACK_INTO RO

: sRETURN TO USER

o 383635 36 36 36 3 3 3 36 36 36 36 3 36 36 3 36 36 3 3 3 3 36 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 36 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3% 3¢ % %

MOVB
MOVB

(O40650

;,GO CHANGE T0 ASCII
'WAS THE LSD THE FIRST NON-ZERO?

APT connunxcnrxons ROUTINE

$ATYl:
$ATY3:

010146
10S73.

EXIT

q§
-1(SP),-2(R3)

10000
1000.
100.
10.
.BLKW

040652
040650

040434
040436

6%
(SP)+

$1GO_TO

NOW TYPE THE NUMBER
,,RDJUST THE STACK

000001
000001

7404
7405

' 'YES--SET THE SIGN

$DBLK
b(SP),4(SP)

112737
112737

040432

1(SP), ~1(R3)

:'FALL THROUGH IF O
:'STILL DOING LEADING 0’S”
:BR IF YES

TYPE
MOV

Q40406
Q40414

7402

S$
(SP)
73

:1POP STACK INTO Rl

2398
7399

7400 040422 000403

:BR IF DONE

(SP)+.RI

MOV

$OTBL:

4s§

MOV
MOV

000004

SEQ 0143

MOV
SuB

BGT

012603

040362

040364

000060
000040

00076M
105726

7381

7383

000001

003002

040324
040326
040334

3%:

000774

(040272
(04Ge76
040302
040304
040306
040312
040314

040366

002402

7378
7379
7380

N1l

MACY1l 30R(1052)
10-JAN-78
11:25 PAGE 143
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

$ATYC

o1 $FFLG
'§MFLG

MOV

RO, -(SP)

BEQ

BNE

BEQ

MOV
TST8

CMPB

BITB

,SFFLG

R1.-(SP)
SMFLG

SAPTENV, SENV

::T0 REPORT FATAL ERROR
1370 TYPEA MESSAGE

::TO ONLY REPORT FATAL ERROR
; ;PUSH RO ON STACK

'PUSH R1 ON STACK
,.SHOULD TYPE A MESSAGE?
:IF NOT:

JIF NOT:

,,opsnnrxnc UNDER RPT?

#APTSPOOL , SENVM ,,SHOULD SPOOL MESSAGES?
11IF

NOT:

000004
00000
001210

o40464
040470

0ooocoH4

001224

Bl2

3UA(10S2)
11:2S
10-JAN-78
APT COMMUNICATIONS ROUTINE

J4(SP),RO

18:
2s:

TST
1ST8

001224
001226
000004

000004
000002
177776
037700

HS:

. WORD

001230

000004
000002
0oiei0
040652
Q40651
040650

11%:

00l212
000004

-(sp)
17?775
STYP
E

,,ses 1F DONE W/ LAST XMISSION?
F NOT:

WRIT

:1PUT ADDR IN MAILBOX
:'FIND END OF MESSRGE

;;SUB START OF MESSAGE
!GET MESSAGE LNGTH IN WORDS

PIPUT LENGTH IN MAILBOX
!ITELL APT TO TAKE MSG.

: sPUT MSG noon IN JSR LINKAGE
P RETURN ADDRESS

; ; PUSH 1??775 ON STACK

JCALL TYPE MACRO

,,SHOULD REPORT FATAL ERROR?
F N T:

$3IF JO0T:

,,RUNNING UNDER APT?
,,FINISHED LRST MESSAGE?
UIF
nl
,,GET ERRO
UMP RETURN ADDR.

L aft To ;REE ERROR

.
.BYTE

'LOG

FLAG

P IFATAL FLAG

BYEE

APTSIZE=200
APTENV=001
RAPTSPOOL=100
APTCSUP=040

.SBTTL

SEQ 0144

; ;GET MESSAGE AODOR.
-BUMP RETURN ADDR.

129:

SFFLG:

000100
000040

(SP)

SMFLG:
SLFLG:

040652

(ROY+

4]
$MSGRD, RO
RO
RO, $SMSGLGT

SFFLG
12%
SENV
12%
$MSGTYPE
s
J4(SP),SFATAL

105

001210

18
RO, SMSGAD

aq(spn

040562
000004

040652

82, 4(SP)
SMEGTYPE

g:, SMSGTYPE

0oo1210

144

PAGE

> 4
O

0O UNIBUS RK& DR PRTe
Pll
09:43
10-JAN-7

MACY11l

BINARY TO OCTAL

(RSCII) AND TYPE

!!!!l!!!l!llii!ll!*!lllllll*!!l!!!*lil**l!**l!illll!li!!i!**!ll

'irnls ROUTINE IS USED TO cunncz 16-BIT BINARY NUMBER TO A 6-DIGIT
; #OCTAL

(ASCII)

NUMBER AND
TYPE

3]
;¥
]

MOV
TYPQS
.BYTE

NUM, -(SP)

; s NUMBER TO_BE TYPED
:CALL _FOR TYPEOUT

lSTEPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
; ¥C

12 ]
;

.BYTE

(X’ 1
;*
;% $TYPON----ENTER

,,n i og 3 FOR NUMBER OF DIGITS TO TYPE
"

1=TYPE_LERDING ZEROS
:0=SUPPRESS LERDING ZEROS

HERE TO TYPE OUT WITH THE SAME PARAMETERS RS THE LRAST

CZR6EIEOQ UNIBUS RK&E DR _PRT2
10-JAN-78 09:43
CZREIE.PI1

MRCY11l

; ¥CALL:
HE

: %
%

747
Y

7480

; #CALL:
1

040654

017646

000000
000Q1

Q40672

062716

0oooo2

112737

000001
000006
00000S

84883? 11823
406E

sa8s BuBs38 12
2488 84823

2480 837
7489

040734

2439 84873
7433 Bag7es
433 Bud72E

7435
7496
7497
7498
7499

7500
7€01

;sos

2283

7605
7606
7607
7508

7609
7510
7811

78z
2€13
7614

7515

7815
7617
7518

2619

7820
7821
7§22

Cle

11:25

PAGE

(RSCII) AND TYPE

145

SEQ@ J14S

OR STYPOC

MOV
TYPON

NUM,
- (SP)

; ;NUMBER TO BE TYPED
; ;CALL FOR TYPEOUT

;*STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

7474

10-JAN-78

BINRRY TO OCTAL
; #$TYPOS

2967
2468
2469
2470
297
247
72473

747
247

30A(10S2)

a3
signe
11g§0q

41101

041077

Q41077
041101
041076

B41888

041010
041012
041014
041016

041020
041024
041030
Q41034
Q41040
041044
Q41046
041050
041052
(041054
041056
041060
041062
041070

$TYPOS:

$TYPOC:
$TYPON:

MOV
TYPOC

- (SP)
NUM,

;;NHMBER T0 Bs TYPED
; ;CALL FOR TYPEOUT

MOV
MOV
MOV
ADD
BR
MOVB
MovB
HSVB

d(SP),-(SP)

; s PICKUP THE MODE

82, (SP)
STYPON

! {ADJUST RETURN ADDRESS

MOV

MOV
MoV
MOovB
NEG

04110

830208

(), 30MOBE 1

;;SET FOR SIX(6) DIGITS

sghoos+1,nq

. 1GAVE RE
NUMBER OF DIGITS TO TYPE
:IGET THE

RY. -(SP)
-(SP)
RS'
RY

86, RY
R4’ $OMODE

:SAVE RY

;;guernngv 31 FOR MAX. ALLOWED
;;SAVE

FOR USE

;3GET THE _ZERQ FILL SWITCH
; ;PICKUP_THE INPUT NUMBER
; ;CLEAR
_THE OUTPUT WORD

; ;ROTATE MSB INTO *C”
; ;GO DO H?B
; ;FORM THIS DIGIT

19:
29%:

3%:

;3SET THE ZERO FILL SWITCH

Rg:-(gP)

ée(sp),ns

041100

1 LORBERTOR pietr2
4 Y vee
;;SET THS ITERATION COUNT
iSAVE R
;

SOFILL,RY

Q41077
ooooie

Q40760
040762
040764
040766
Q40770

Q4077
048779
0:?776

]

SOMODE

;3GET LSB OF THIS DIGIT

;3 TYPE_THIS DIGIT?
;3BR_IF _NO

s3GET RID OF JUNK

177770

s ; TEST FOR O

;;SSPPRESE THIS 0°
4§:

000060
000040
Q41074

Q41074
041076

IF YES

:'DON’T SUPPRESS ANYMORE 0°S

S§:

:'MAKE THIS DIGIT ASCII
:IMAKE RSCII IF NOT ALREARDY

7%:

189 TYPE THIS DIGIT
! ICOUNT
By 1

i ISAVE FOR_TYPING

::BR IF MORE TO DO

;;?R IF DONE

6s:

000002

000004

;s INSUPE LAST DIGIT ISN'T A BLANK
;;G0 DO THE LARST DIGIT
; ; RESTORE RS

; ;RESTORE RY
; sRESTORE R3

;;SET THE STACK FOR RETURNING

UNIBUS
¢ 5 EIEO

o41072
41

041076
041077
041100

MACY11

000002

38?&1852)

ARY TO

000
000
cooooc

— 000
oL

e Pt

e
P

0000
Lt

68TJRN
-78
AL

RTI

.BYT

O
O

SOCNT:
SOFILL:

.BYTE
.BYTE

.SBTTL

TTY INPUT RCUTINE

SOMODE: .WORD
'ENABL

$TKQOUT: .WORD

; #TK

ROUTINE

.WORD

.BLKB

$TKQSRT:

RETURN

,,STORRGE FOR RSCII DIGIT

; s TERMINATOR FOR TYPE ROUTINE

,,OCTRL DIGIT COUNTER
;ZERO FILL SWITCH

: iNUMBER OF DIGITS TO TYPE

2RSSR SRR

.WORD

§TKCNT:
§TKQIN:

000000
000000
000000
000001
o41111
a4llle

LSB

SEQ 3146

I'EE

(RSCIID)

.SYT

8%:

_INITIALIZE

2 2222222222222 22222222222l

; s NUMBER OF xrsns IN QUEUE
! INPUT POINTER

' OUTPUT POINTER

::TTY KEYBORRD QUEUE

:%#THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
:#SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

,lCRLL.
:

e
e
e Bt
e
e bt

UL
£ WY
oncronLo

LY
SOy NSOy Ny wo)

00000000
o ol ¥ G
¥ O o

;

00:037

o41104

846106

STKCNT

; ;CLEAR COUNT OF ITEMS IN ousus

#STKQSRT srxaxn : novs THE srnnrxnc ADDRESS OF THE
STKQIN, stkgouT ? INTE INPUT & OUTPUT POINTERS.

MOV

8200, astKvEC+2

,,RETURN TO CALLER

TST
MOV

137764

PC, STKINT

MOV
MOV

MOV

00060
001062

000207

RETURN

$TKINT: CLR

RTS
s % TK

#STKSRY, 3uTKVEC

IS TKB

8100, 3STKS

KEYBOARD VECTOR

L n
8
INTERRUPT
KEYBOARD
TY t
NABLE

senvxgs ROUTINE

! #THIS ROUTINE WILL SERVICE THE TTY KEYBOARRD INTERRUPT

:?¥ ?fifl?aEGQaEEECHRRQCTER FROM THE INPUT BUFFER AND PUTTING

oo
WW
LL

e
et
e Pt Pt
e
et et
et
e b
B
b
P

PUMVNUNU
NONUNS M) b e e p—e
WRIN—=
== OO
oo Looccnnon

‘%IF THE CHARACTER IS
A “CONTROL-C" (#C) STKINT IS CALLED AND

00
000000000000
Pol S g o
N o o o O o o O O

7523

OR_PRT
AN-78 O

117746
Q42716
021627
001007
104401

:%UPON RETURN EXIT IS 1ADE TO THE "CONTROL-C” RESTART ADDRESS (STOP)
; ;PICKUP THE CHQRQCTER
23718, - (5P)
§TKSRV: MOVB
;'STRIP THE JUNK
#1C177, (SP)
BIC
CMP
(SP), 83
::1S ITA CONTROL C?

137760
177600
000003

BNE
TYPE

JSR
15T

Q42310
o4111le
036eke
ooooao?

001500

0e2737

18:

000176

001140

000001

p41102

13
FCNTLC

$TKINT
bcSP)+

; JBRANCH IF NO
*ITYPE A CONTROL-C

;2 INIT THE KEYBOARD
:iCLEAN UP STACK

($C)

IMP
CMP
BNE
CMP
BEQ

STOP
(SP), 47
2%
$SWREG, SWR
63

;;CONTROL C RESTART
:11S IT
A _CONTROL G?
:'BRANCH IF NO
: 215 SOFT-SWR SELECTED?
:GO TO SWR CHANGE

CMP

#1,STKCNT

.1 IS THE QUEUE FULL?

CZRBEIEC UNIBUS RKe& DR _PRTYe
CZRBIE.PI i
10-JAN-78 09:43

3%:

318:

137650
137644
177600
0000l

0oo100

323

() W)W W W

Q4110e
000140
00017S

W G W W

000040
177530
041104
o41104

o41111

O41110

o41104

4s:

SS:
S

11:25

ROUTINE

PAGE

147

SEQ 0147

BNE
TYPE

33
$BELL

: :BRANCH IF NO
SRING THE TTY BELL

CMP
BNE
CLR
757
1578
BPL
MoVB

(SP), 823
23
JSThS
(SP)+
IS TKS
318
J$TKB, - (5P)

::IS IT A CONTROL-S?
: 'BRANCH IF NO
:'DISABLE TTY KEYBOARD INTERRUPTS

BNE
S?¥

31s
#100, 3$TKS

:'BRANCH IF NO
;;REEBSELE TTY KEYBORRD INTERRUPTS

INC
CMP
BLT
CHP
BGT
BIC

$TKCNT
(SP) . 8140
4g
(SP), 8175
ys
#40, (SP)

INC
CMP
BNE
MOV
RTI

$TKQI
STKQIN, #STKQEMD
S
#STKQSRT,STKQI.y

{SPy+

BIC
CMP
137622

El2

10-JAN-78

;éT

137656

Nm [V4]

REEERNERERS
TR& n

30A(10Se2)
TTY INPUT

001200

000023

. WM

s Pt Pt Pt
s
s Pt ot Pt Prast Pt Pt ot Pt Pt Pt Primn Pt
Pt Po

000000000000
0000

001004
104401
005726

NNOTBnNEL
oo0rO£0LMN

et Pt [ [aere

g41242
Q41244
o41250
QO
g
T
£ £L

7579
7580
7681

MACY11

: CLEAN CHAR OFF STACK

P WAIT FOR A CHAR
LOOP UNTIL ITS THERE
1 1GET_THE CHARACTER

#$1C177, (SP)
(SP)+, k21

MOVB

BRI

“E&%gN CHARACTER OFF OF STACK

(SP}+ @STKQIN

:MAKE IT 7-BIT ASCII
::1S IT A CONTROL-Q?

P1COUNT THIS CHARACTER
111S IT UPPER CRSE?
; ; BRANCH IF YES
:'1S IT A SPECIAL CHAR?
: 'BRANCH_IF YES
:IMAKE IT UPPER CASE

:;AND PUT IT IN QUELE

:'UPDATE
THE POINTER
;GO OFF
THE END?
: 'BRANCH IF NO
; ;RESET THE POINTER
: RETURN

RN RN R

: $SOF TWARE SWITCH REGISTER CHANGE ROUTINE.

; #ROUTINE

IS ENTERED

FROM THE TRAP HANDLER,

RERRRRRRERERER R

RRR

AND WILL

NNNNNIN
aooooooo

;#SERVICE THE TEST FOR CHANGE IN SOFTWARC SWITCH REGISTER TRAP
000176

001140

: #CALL WHEN OPERATING

IN TTY

$CKSWR: CMP

#SWREG, SWR

MOVB
BIC
CMP

3$TKB, - (SP)
8$C177, (5P)
(SP), #?

BNE

137530

137524
177600
000007

BNE
S

BRI

28
I

INTERRUPT MODE

::1S THE SOFT-SWR SELECTED

D EXIT IF NOT

P'YES
P'MAKE 1T 7-BIT ARSCII
::1S IT_A CONTROL-G?

PUIF NOT,

;i AND ExtT

000 B

000

PUT IT IN THE TTY QUEUE

IR0

R RN

:&CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
; *ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL,

Q41434
041442
04 1444
Q41446
041452

001134

000001

041456

123727
001674
005726
0CH4737
005077
112737

o4llle
137466
000001

00113S

O41464

104401

O42322

AS A RESULT OF A

' xCONTROL-G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
Es:
CMPB
SAUTOB,
k1
: SARE WE RUNNING IN AUTG-MODE?
BEQ
157
JSR

2$
(SP)+
PC, $TKINT

! !BRANCH IF YES
! !CLEAR CONTROL-G OFF STACK
'!FLUSH THE TTY INPUT QUEUE

MovB

#1,SINTAG

'!SET

CLR

TYPE

astKs

,SCNTLG

' !DISABLE TTY KEYBOARD INTERRUPTS
INTERRUPT MODE

:;ECHO THE CONTROL-G

INDICATOR
(1G:

CZR6IED UNIBUS RKE DR PRT2

CZREIE.PIL
7635

041470

10-JAN-78 09:43
104401

7636

041474

013746

7638

041502

104401

7640
7641

041510
041512

7637

7639

;g:g

7644

;g:g
7647

7648
7649

7650

;fiéé
7653
;ggg
76E6

(041500

041506

041816

041520

041584
041530

041534
Q41536

Q41842

83%%;3
041566
041564

104402

005046

: 'BRANCH IF NOT
::YES,
ECHO CONTRC_-C

ggze
MOV

g%fiTRG,ll
8100, 3$TKS

062706

68?555
012777
000137

000006

001135
000100
036262

001005

BIC
CMP

000001
137360

gs:

062706

000006

7677
7678
7679
7680

7681

7682

041662

041672
041674
041700
041702

041706

040112

002420
02127
003915
042726

005766

041726

0SEbI6

7688

041732

T690

004737

021627

001403

041714
041716
041720
041722

7689

000100

041712

7683
7684
7635
7686

7687

868&7};

041734

041740

6316
006316
6316
005266
000667

104401

000720

000060

137264

148
15§

168:

000067
000060

000002

177776

001204

18%:

: 'CONTROL-C RESTART

(SP), 825

;15 IT A _CONTROL-U?

SCNTLU

1 YES,

;IS IT A (CR»?

11§

: 'BRFNCH_ IF YES

16
4(2)

MOV

2(SP),aSWR

ADD

: 'BRANCH IF NOT

ECHO CONTROL-U

(tU)

: 'BRANCH _IF NQ
PIYES,
IS IT THE FIRST CHAR”
: 1SAVE NEW SWR

#6 SP

:!CLEAR UP STACK

cues

dLyTRG,u

I BRANCH
TE noy o0 INTERRUPTS

JSR

PC,STYPEC

:'ECHO CHAR

BLY
CHP
BGT
BIC

189
(SP), 867
189
860, (SP)+

: 'BRANCH IF YES
:ICHAR > 77
: "BRANCH IF YES
: :STRIP-OFF ARSCII

178

: 'BRANCH IF YES

TYPE

g?\{

CMP

SCRLF

#100,d8$TKS

(SP), 860

P1ECHO <CR> AND <LF>

;;EE;EQQBLE TTY KBD INTERRUPTS

:ICHAR ¢ 07

75T

2(SP)

ASL
ASL
ASL
INC

(SP)
(SP)
(5P)
2(SP)

:'NO, SHIFT PRESENT
i
"CHAR OVER TO MAKE
;1
ROOM FOR NEW ONE.
: 'KEEP COUNT OF CHAR

“iGET

BEQ

178:

“355535L§r7;5 KEYBOARD INTERRUPTS?
$ALLOW TTY KEYBOARD INTERRUPTS

STOP

BNE
TST

BEQ
118:

(4C)

(SP), 815

CMP

137306

i 'CLEAN UP STACK

: IGNORE PREVIOUS INPUT
PILET’S TRY IT AGRIN

108:

001403

b, SpP

PIMRKE IT 7-BIT ASCII
;1S IT A_CONTROL-C?

e, SP
194

TYPE

000015
000004

#1C17%, (5P)
(SP), 843

i i THE NEW SWR
: 'CHAR THERE”?

108

021627

7676 Ddilee phipps 00Miss oooool
041666

cMe

-(SP)
3SThS

BNE

ADD
BR

001205

7676

JMP

208:

104401

7675

8s:

000006

000002

gziggg

ADD

062706
000737

016677

;E;a

11Ic NOT TRY RGRIN

98
SCNTLC

041624

041636

BNE
TYPE

7668

7670

BPL

CLP
7518

: :CLEAR COUNTER

042310

001015
10440!

00102F
005766

041632

Z(sP)

;;PICK UP CHAP

041614
041616

7669

'PROMPT FOR NEW SWR

CLR

S TKB, - (SP)

7665
7666

041622

:1GO TYPE--OCTAL ASCII(ALL DIGITS)

MOVB

177600
000003

042315

7667

: :SAVE SWREG FOR TYPEOQUT

137422

042716
021627

104401

Q41610

, SMNEW

:: TYPE CURRENT CONTENTS

117746

100375

Q41576

7664

TYPE

SEQ 0148

137426

7669

7663

198:

$MSWR

SWREG, - (SP)

PAGE 148

005046
105777

000025

041602
041606

TYPE

11:25

MOV

TYPOC

042340

021627

7660
;ggé

SGTSWR:

000176

Q41570

Q41574

10-JAN-78

TTY INPUT ROUTINE

042327

7667

7658

MACYL1 30R(10S52)

Fl2

BIS
TYPE

-2(SP), (S5P)
$QUES

208

215 THIS THE FIRST CHAR

ISET IN NEJ CHAR

THE NEXT ONE

:1TYPE ?<CR>(LF>

. :SIMULATE CONTROL-U

0 UNIBUS RK& DR PRTZ2
.F11
10-JAN-78 09:43

MACY1l

Gl2

11:2S

30AR(10S2)
10-JAN-78
TTY INPUT ROUTINE
.DSABL
X

PARGE

149

SEQ 0149

LSB

2222221232222 222XX3X22X2X2XXRXXXX22TXITIRLISLLILILSLSL
RSS2 L

iTHIs ROUTINE WSILL INPUT
R
A SINGLE CHARACTER FROM THE TTY

lCQLL

p41742
041744

000004
000004

000002

NNNNNNNNNNNN
SN NINNINININ
NN
NNY
TU PO = b b bt 2t st s Bt pe
-0V
NTN LW

o41102

o41110

042022
042C30

MOV

MOV
CLR

CLR

041766

041102
17710¢
Q41106
041106

$RDCHR:

,,NITH PARITY BIT STRIPPED OFF

(SP),=-(SP)

4(SsP),2(sP)
4(SP)
-(5P)
864§, - (SP)

; ;PUSH_DOWN THE PC AND

PS
,,GET RERDY FORA_CHARACTER
:PUT NEW PS ON STACK

'PUT NEW PC ON ~STACK
,,POP NEW PC AND PS

cus

MOV
RTI

18:

525

fgxcnr

;;WAIT ON A CHARACTER

DEC
MOVB
INC

§TKCNT
asvxoour 4(SP)
STKQOUT

; ; DECREMENT THE counrsn
,,GET ONE CHARACTER
UPDRTE_THE POINTER

BNE

000004

o411l
041106

,,GET A CHARACTER FROM THE QUEUE
; CHARACTER IS ON THE STACK

ROCHR
RETURN HERE

2s:

CHP
MOV
RTI

$TKQOUT, :sruasno 010 IT GO OFF OF THE END"
RANCH IF
NO
¥8TKQSRT, $TKQOUT' RESET THE POINTER
h

l!lIllllllllllllilllll*l¥l§l!l‘illlllll!ll!lll!li!!l!!!i!!l!!l§

iTHIS ROUTINE WILL INPUT A STRING FROM THE TTY

:%CALL:
, %*
X

SROLIN:

Q42032

1%:
29%:

042266
042310

000177

R STRING FROM THE TTY
; INPUT

ROLIN
RETURN HERE

R3,

QDDRESS OF FIRST CHQRQCTER WILL BE ON THE STRCK
,,TERHINRTOR WILL BE
R BYTE OF ALL 0'S
- (SP)

-(éP)

:;SAVE R3

; ;CLERR THE RUBOUT KEY
ESS
;3 GET 98
FULL?
.,BUFFE
IF YES

‘GO _READ ONE CHARACTER FROM THE TTY
,,GET CHARACTER

.,IS IT R RUBOUT

10%:

N
;BR IF

,,Ig }HIS THE FIRST RuUBOUT?
000134
o424
177777

04eees

: 1 TYPE

Q42264

69%:

Q42264
O4c2bH4
042126
042130

001406

SLASH

,,SET THE RUBGUT KEY
; BACKUP _BY ONE

Rg 8STTYIN

,,g;Q?KEMPTY?

(R3) 9%

.,SET¥P70 TYPEOUT THE DELETED CHRR.

5¢:

NO
A BACK

(SP)

‘

YES

; GO RERD ANCTHER CHAR.

..RUBOUT KEY SET?
::BR

IF NO

CZREIED UNIBUS RKB DR PRT2
C2RBIE.PII
10-JAN-78 09:43

747

-748
7749

~7s0

7781
7762

7753
7764
7765

776
77

7758
7769

QM2132

104401
00S016

048ls
042184

10
104401

84 14

045152

Q42162
Q42166

042170
042172

832§76
2202

7760

042204

7762
7763

042212
042216

7?76l

112737

Q42140
042144

042210

682?63
000726

4s:

111337
104401

042264
042264

7;22

ogaa:g

o?gggg

042246
042254

016666
012766

7770 BHSSHH
2771
7772

7773

7779

7775
7776
7777
7778
7779
7780
7781
7782
7783
7784

CHMPB

825, (R3)

042266

;i
:TYPE
A CONTROL

CMPB
BNE

822, (R3)
33
(R3)
,SCRLF

042265
042266
042310
042315
Q42322
042327
042334
042340
042346

000
000022
041536

043536
0IS
036440
020040
020075
042352

00S015
006525
00S0IS
0S1412
000040
042516
000

; iCLEAR THE CHARACTER
'TYPE A "CRTM & "LF"

;: HECK FOR RETURN

-1(R3)

,,CLEQR RETURN (THE 15)

;83

Es;;+ o

;LERNRUBOUT KEY FROM THE STARCK

MOV
MOV

4(SP), 2(SP)
STTYIN,
G (SP)

RTI

.BYTE

000
000012
000
051127

$TTYIN:
$CNTLC:
$CNTLU:
SCNTLG:
8$MSWR:

BYTE
.BLKB
.RSCIZ
.ASCIZ
.ARSCIZ
.ASCIZ

020127

SMNEW:

.RSCIZ

7787

1115 CHARAC
ER R "tR"”
: 'BRANCH IF NO

kiS5, (R3)+

MOV

.SBITL

$QUES

:TYPE R

(R3),9%
93

::ECHO

LO0P

:TYPE

(3p) * Sp)

O
22
/tC/<1S><i2>
/tU/<16> 1>
/tG/ (18>l
<15>¢12>/SWR
~/

NEW

THE
IF

CHARACTER

NOT

A LINE

RETURN

FEED

E?ugr THE STACK AND PUT ADDRESS OF THE
FIRST ASCII C(HARACTER ON IT

,,STORQGE FOR ASCII CHAR.

: ' TERMINATOR
: 'RESERVE 22 BYTES
: :CONTROL *C*
: *CONTROL "U”
* ICONTROL "c"

FOR

INPUT

REFD AN OCTAL NUMBER FROM THE TTY
% W AW WK WX KRN E W E W EEER KR EEEE RS

iruxs ROUTINE HILL Rsno AN OCTAL (RSCII) NUMBER FROM THE TTY AND

;;33
7791

‘?fi“"?fipl}
Tgngé
TERS WILL BE CHEC TQ INSURE THEY QREEE
GAL
¢oc§n ? ? SAN ILLEGAL CHQE §ER ?s 2 8 s
TYPED
%*

7792
;Zga

: ¥F OLL OWED ev cnnnxnce RETURN-LINE FEED. THE COHPLETE nunes MUST
‘ESE” BE RETYPED. THE INPUT 1S TERMINATED BY TYPING
A CARRIAGE RETURN.

7735

‘e

796
;zgg

%CALL
:

‘¥
%

RDOCT

,,quo AN ocrn# NUMBER

RETURN HERE

*LOW ORDER BITS ARRE ON TOP OF THE
:'HIGH ORDER BITS ARE IN SHIOCT

I'4

7793

Q42352

011646

~802

042364

010146

7800
7801

TTY

TO TYPE

o 3636 36 3 36 36 36 36 3 3 96 3 3 36 3 3 3 3 3 3 3 3 3 3 J 3 3 3 3 3 3 I I

7788

"U”

,,CLEQR THE BUFFER AND LOOP

TYPE

.EVEN

:1:GO START OVE

CLRB

BNE

000

KEY

SPTYPE THE INPUT STRING
:1GO_PICKU" ANOTHER CHACTER

MOVB
TYPE

000002
000004

RUBOUT

"§TTYIN
23

177777

000004
042266

THE

,,13 ?HQRRCTER CTRL U”?

TYPE
BR

105063

11646

::TYPE A BACK SLASH

8s
$CNTLU

TYPE

00i206

SEQ 0180

BNE
TYPE

CMPB

109401

150

;;CLEAR

CLRB
TYPE

001205

PH3E

, 9%
(SP)

0000IS

000002

;;gg

%’ ,9%

8% :

11:25

MOVB

122723

001305

042262

042264

042315

H1l2

10-JAN-78
ROUTINE

TYPE
CLR

i ¥

001204

000712

042230
042234

000025

104401

0440]
0717

7766
7767

Q42264

000022

Q4222

042226

30R(1052)
TTY INPUT

122713
001011
105013
104401

7764

7765

000134

0O4eeeM

MACYI1

042354
042362

0l66GE
010046

000004

000002

$RDOCT:

MOV

MOV
MOV
MOV

(SP),

-(SP)

47SPY,21SP)
RO, - (5P)
R1,-(5P)

,,PROVIDE

spncs

::PUSH

FOR

: P INPUT NUMBER
: 1PUSH RO on STACK
Rl

STRCK

THE

STACK

6JEQ UNIBUS RKB DR PRTZ
6IE.P11
10-JAN-78 09:43
010246

I12

11:25_
PAGE 151
10-JAN-78
RERD A4 OCTAL NUMBER FROM THE TTY

30A(1052)

R2,-(SP)

1%:

(SP)+,RC
RO, 5%
R1
R2
(RO, +,-(SP)
33

042500

29:
u00060

SEQ dJ181

; sPUSH R2 ON STACK
;sREAD AN ASCIZ LINE
; ;GET ADMRESS OF 1ST CHARACTER
; ;AND SAVE IT
; ;CLEAR DATR WORD
; ;PICKUP THIS CHARACTER

i3 IF ZERO GET OUT

; ;MAKE SURE THIS CHARACTER

IS AN OCTAL DIGIT
;3

000067

I 1
Y

001204

04eslao

cs:

SHIOCT:
.SBTTL

BR
.WORD
DOUBLE

S s B MMM

—

thUQTI

+4+4+TITNNS

; ;STRIP THE ASCII JUNK

; sADD _IN THIS DIGIT
; s LOOP

4s:

SP)

DDDOW

A~ DD~NN~

3%:

DY
0%

0oo0le
042510

NN~
N BY) - N
Vv - U
VO

; ;%8

: :CLEAN TERMINATOR FROM STWCK

SAVE THE RESULT
; ;POP STACK
; ;POP STACK
; ;POP STRCK
; s RETURN

INTO Re
INTO Rl
INTO RO

; ; CLEAN PARTIAL FROM STACK
;3SET A TERMINATOR

;s TYPE UP THRU THE BRD CHAR.

OO
= b bt hms pms

- 0000000 8

177770

$QUES

; s TRY AGRIN
e

HIGH ORDER BITS GO HERE

LENGTH BINARRY TO O&TaL ASCIT CONVERT ROUTINE

RN R AR AR ARERRRRAERRRRRER

;#THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN
;iugEEGNED

:
o42512

o42544

O=-0000000
= st () 0=t ot P Pt e e ()
oo
£
OO~ NNNO L
OL£0000000
nNON—OW E£N—W

OVONOCNLWN—0O

~ N NN NN
NN N
@{000 €D GD 00 GD 00 D 00 (D
m._p..p..._...p_._p..p..p_

7809

Q42366
Q42370
Q42372
Q42374
Q42400
Q42402
Qua404

MACY1l

OCTAL RSCIZ NUMBER.

MOV

JSR

RETURN
SAVREG

000002
Ques3l
000014
1772770

MOV

#PNTR, - (SP)

Pc, 2880820

; ; POINTER TO LOW WORD OF BINARY NUMBER

;;CALL THE ROUTINE

;; THE ADDRESS OF THE FIRST RSCIZ CHAR.
;;SAVE ALL REGISTERS
; ;PICKUP THE POINTER TO LOW WORD
; ;POINTER TO DATR TABLE
;;DgSELEVEN CHARACTERS

i3 M

; ; LOWER WORD
1¢%:

; ;HIGH WORD
;; TERMINATOR

; ;PUT CHRRACTER IN DATA TABLE
;3 GET THIS DIGIT

IS ON THE STRCK

CZREIEO UNIBUS RKE DR _PRTZ2
CZREIE.P 11
10-JAN-78 09:43
7859
7860

Q42546
Q42550
guasse
Q42554

MACY11

10-JAN-78

30R(1052)

00000e

DEC
BGT
BEQ
INC
MOV
RESREG

RY
3%
23
RS
RS,2{SP,

ASR
ROR

R3
R1

ROR
ROR
ROR
ROR

R1
RO
R1
RO

RADD

2’0, R2

2s:
3%:

042614

PHGE

152

DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE

QOS304
003007

000753
000016

J1@2

11:25_

ROR

BIC

000060

BR
.BL KB

$OCTVL:

.GBTTL

; s COUNT THIS CHRRACTER
;BR IF NOT THE LAST DIGIT
;3BR IF IT IS THE LAST DIGIT
;;ALL DIGITS DONE-ADJUST POINTER FOR FIRST
;;ASCIZ CHAR. & PUT IT ON THE STRCK
; ;RESTORE ALL REGISTERS

pPC

: ;RETURN TO USER

; ;POSITION THE MASK FOR THE LAST DIGIT
; sPOSITION THE BINARY NUMBER FOR
i

THE NEXT OCTAL DIGIT

R3,Re

; sMASK OUT ALL JUNK

;GO PUT IT IN THE DRTA TABLE
i RESERVE DATR TABLE

; sMAKE THIS CHAR. ASCII

14,

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE
NI

RNRERRERE R

R RN R RN RN RN

:4THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED

; #DECIMAL
tx

MOV

RETURN

‘e

042632
042634
Q42640
Q4eb4Yy
042650
Q42652
042654
042662
042666

§$0B2D:

000002
Q43012
000002
00001e
Q42742
042744

(RSCII)

18:
23

PC, ax$0B20

SAVREG
MOV

2(SP),R2

Q42720
042724
Q42726
042730
042732

000000
001357

4g:

;s THE FIRST ADDRESS OF ASCIZ
IS ON THE STRCK
;3

: ;SAVE REGISTERS
P'PICKUP THE DRTA POINTER

#$DECVL ,RO
RO, 2(SP}
(R2)+,R1

GET RDDRESS OF "SDECVL" STRING
: 'PUT ADDRESS OF RSCIZ STRING ON STACK
:'PICKUP THE BINARY NUMBER

MOV
MOV
MOV

$10.,4%
#$ TNPUR , RY
$STNPWR$2,
RS

:;SET UP TO DO 10 CONVERSIONS
: 'ADDRESS OF TEN POMER

CLR
SuB

(R2)+ R2

R3
(R4),R1

: s CLEAR PARTIAL
: 'SUBTRACT TEN POWER

S8C
SuB

R2
. R2
(RS)

INC

:1ADD 1 TO PARTIAL

ADD

(R4)+,R1

! 'RESTORE SUBTRACTED VALUE

3%
2%

ADC
ADD

R2
(R4)+,R2

BIS
MOVB

#'0 R3
R3, RO+

WORD

CMP

000060

: s POINTER TO LOW WORD OF BINARY NUMBER

MOV
MOV
MOV

BLT
3s:

THE SIGN OF THE BINARY NUMBER MUST BE

#PNTR, - (SP)

JSR

MOV

042730

NUMBER.

DEC

BNE

(RS)+. (RG)+

(Pe)r+

:;BR IF TEN POWER TO LARGE
L LOOP

: sMOVE TO NEXT TEN POWER

:'CHANGE PARTIAL TO ASCII
::SAVE IT

: ;DONE?

::BR IF NO

SEQ 0182

Q4e734
042736
042740

o43012

MACY1l

Kle

30A(1052)
10-JAN-78
11:25
PAGE 153
DOUBLE LENGTH BINARY TO DECIMAL RSCII CONVERT ROUTINE

105020

$TNPUWR:

000000
000014

SDECVL:

CLRB
RESREG
RTS
145000
35632
160400
2765

(RO)+

; : TERMINATOR
; ;RESTORE REGISTERS
; s RETURN
;:1.0E09

;:1.0E08

118200

;3 1.0E0Q7

041100

;:1.0€06

103240

;;1.0E0S

23420

s+ 1.0EOM

6750

;3 1.0EQ3

éqq

;3 1.0EQ2

;:1.0E01

;:1.0E00

.BLKB

SEQ 0183

: :RESERVE STORAGE FOR RASCIZ STRING

_SBTTL

SINGLE LENGTH BINARY TO OECIMAL RSCIZ ROUTINE

$ s BRI

000 003600 0000000 0000

R AR ARREA RN

:$THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN
;*UNEEGNED DECIMAL RSCIZ NUMBER.

; #CA
‘¥

MOV

RETURN

§SB2D:

MOV

‘x

043026
043034

043056

016637
012746
004737
062716
012666
000207
000000

000002
043056
042632
000005
000002
000000

043056

NUMBER,

JSR

1$:

.SBTTL

- (SP)

PC, 2885820
2(SP),1$

MOV
JSR

813, -tSP)
PC, 8880820

MOV

(5P)+,2(SP)

ADD

$ s

#5’

RTS
.WORD

(SP)

PC
0,0

; ;PUT BINARY NUMBER ON THE STACK

ICALL

' 'ADDRESS OF THE

1ST ASCIZ CHAR.IS ON THE 3TACK

; ; SAVE_BINARY NUMBER

11SET POINTER
; JCALL DOUBLE LENGTH CONVERY

:ONLY ALLOW FIVE CHARACTERS

P 'PICKUP POINTER
: 'RETURN

TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS

I NI

R RN

R RREREE R R RRRRE R RN

;4THIS ROUTINE 1S USED TO TYPE AN RSCIZ NUMBER SUPPRESSING THE
;iLEREING NUMBERS.

: %CAL

MOV

JSR

PC, 288SUPRS

SNUMADR, -(SP)

;;FIRST ADDRESS OF

$SUPRS:

MOV

RO, -(SP)

: sSAVE RO

18:

TSTB
BEQ

(RO)
23

: ' TERMINATEOR?
:iBR IF YES

'%
043062
Q43064
043070
04307¢

0O—00
OQr—r——~No0
o
£N00
O—0L
wooo

CoO

0 UNIBUS RKE DR PRT2
P11
10-JAN-79 09:43

000004

MOV

4(5P), RO

RSCIZ2 STRING

{'PICKUP THE POINTER

0 UNIBUS RK& DR PRT2

P11l

10-JAN-78 09:43

Q43074
043100
043102
043104
043110
g43112
043114

122720
001773
005300

043120

000207

043116

010037

104401
000000
012600

MACY1l 30A(1052)

11:25

PAGE 154

TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS

000060

043112

L12

10-JAN-78

2s:

3%:

0l2616

CMPB
BEQ
DEC
MOV
TYPE
_WORD
MOV

#'0, (RO)+
13
RO
RO, 3%
O
(SP,+,R0

.+ 1S THIS AN RSCII "O" 7
"iBR
IF YES
; 'BACKUP BY 1"
:'SAVE FOR TYPING
2160
TYPE
‘;RES}S POANTER GOES HERE
‘'R
RE RO

RTS

: RETURN

MOV

.SBTTL

(S5P)+. (SP)

INTEGER MULTIPLY ROUTINE

: 'RESTORE THE STACK

;ill!llllllllliil!!lll!llllllllll!!l!l!llll!*l!lllil*li!l!a!*l'li
: #CALL
S ¥
MOV
MULTIPLER, -(SP)

MOV

RETURN

PC,w8SMULT

STARCK

PRODUCT

TOP

LSB’'S

MOV

RO, - (SP)

CLR

-(5p)

o43122

043122

043124
043126

010146
010246

043132

016601

000012

NOSYOl
J16602

000014

043130

043136
043140

043142
043144
043150

—-O0ooONVNITNLZW—-0

043152

@ 0000 4D 0D 00 (D O O G0 00 vs,
@) 0000000000 O
PN 0= b = 2t e bt Pt Pt Pt P

$MULT:

010046

005046
100002
005216
100002

00S402
012746
005000
103001

043170

006000

043166

043172

043174

MOV
MOV
MOV

8PL
INC

18:

00S316

043154
043156
043162
043164

NEG
MOV
BPL

DEC

000021

060200

006001

MULTIPLICAND, -(SP)

JSR

3s:

NEG
MOV
CLR
8CC

4§ :

ROR

2%:

;;PRODUCT IS ON THE STACK

MSB’S

PIPUSH R1 ON STACK
::PUSH R2 ON STACK

12(SP),R1

*!GET THE

18
(SP)

R1
14(SP),R2
R2
817.,-(SP)
RO
4§

:'MAKE THE MULTIPLIER POSTIVE
:'SET THE LOQP COUNT
'!SETUP FOR THE MULTIPLY LOOP
::DON'T ADD IF MULTIPLICAND = O

(SP)

ADD

R2,RO

ROR

043200
043202
243204

022616
001403
005400

CMP
BEG
NEG

(SP)+, (SP)
5§
RO

Q43212
043214

005726
010066

TST
MOV

(SP)+
RO, 12(SP)

045006
043210

043220

043224

043226
043230

043232

BNE

005401
005600

010166

012602
012601
012600
000207

000012

000010

c§:

NEG
SBC

(SP)

RI
RO

MOV

MOV
MOV

(SP)+.RI
(SP)+.RO

MOV
RTS

MULTIPLICAND

1iBR_IF PLUS
:ISET THE SIGN KEY

DEC

001372

:CLEAR THE SIGN KEY

: 'MAKE THE MULTIPLICAND POSTIVE
PIGET THE MULTIPLIER
:BR_IF PLUS

005316

043176

: sPUSH RO ON STACK

R1,-(5P)
R2.-(5P)

10(5P)

(5P)+,R2

'UPDATE THE

SIGN KEY

: :POSITION THE PARITIAL PRODUCT AND
*:THE MULTIPLICAND

‘MRS ALL BITS OF THE MULTIPLICAND BEEN DONE"

11BRIF NO

' 1SHOULD PRODUCT BE NEGATIVE?
160 TO EXIT IF NO
P 1YES--SO MAKE IT SO
. sCLERR SIGN INFO. OFF OF STACK
.
*PUT THE PRODUCT ON THE STACK (MSB'S)

;iLSB’S

: 'POP STACK INTQ R2

!1POP STACK INTO RI
:1POP STACK INTO RO

SEQ 0154

CIR6IEQ UNIBUS Rkb DR PRT2

CZRBIE.PILI

10-JAN-T8 09:43

MACY1l 30A(10S2)

10-JAN-78

Ml2

11:25

PAGE 155

SEQ 01S5

SAVE AND RESTORE RO-RS ROUTINES

gggg

.SBTTL

8029

HH Y Y Y I

8031
8032
8833

;#CALL:
ta
SAVREG
:#UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:

8835

S RTOP---(+16)

8030

;% +2---(+418)

‘% +4---RS
‘% +p---RY
‘% +B8---R3
:#410---R2
i412---R]
' %414-~-R0

8037
8038
8039
8040
8041
8042

8043

8044

043234

8051

043250

8045
8046
B80M7
8048
8049
8050
8052
8053
8054
gggg

8057
8058
8059

8060

8061
8062
8063
8064
8065
8066
8067
8068
8069
8070
8071

gg;g

2222222222222 22222222XX2X2X222XXXXYX2XXX2EXTT2TX LTSRS

: #SAVE RO-RS

Q43234
043236
043240
043242
Q43244
043246

010046
010146
010246
010346
olgqus
010546

043254
043260
043264

016646
016646
016646

043270

043272

043272
043276
043302
8433
043312
043314
043316
043320
043322
043324
043326

016646

000002

$SAVREG:

000022

MOV
MOV
MOV
MOV
MOV
MOV

MOV

000022
000022
000022

MOV
MOV
MOV
RTI

RO, - (SP)
R1,-(5P)
R2,-(SP)
R3, -(SP)
R4, ~(SP)
RS’ -(5P)

: sPUSH
:'PUSH
:'PUSH
:IPUSH
'PUSH
: 'PUSH

22(5P) . -(5P)
22(SP) . -(SP)
22(SP).-(5P)

:1SAVE PC OF MAIN FLOW
:'SAVE PS OF CALL
' 'SAVE PC OF CALI

22lspP), -(sP)

RO
R1
R2
R3
R4
RS

ON
ON
ON
ON
ON
ON

STACK
STACK
STACK
STACK
STACK
STACK

:'SAVE PS OF MAIN FLOW

: RESTORE RO-RS
: %CALL:
‘e
RESREG

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600

000022
000022
000022
000022

000002

$RESREG:

MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV
MOV
.SBTTL

RTI

(SP)+,22(SP)
(SP)+,22(5P)
(SP)+.22(SP)
(sp)+,sa<sp)

(5P)+ RS
(SP)+.RY
(5P)+.R3
(SP)+.R2
(5P)+.R]
(5P)+.RO

. :RESTORE
:'RESTORE
: 'RESTORE
;;ngrons

11pOP
:'POP

: 'POP
1:POP
:1POP
::POP

PC OF CALL
PS OF CALL
PC OF MAIN FLOW
PS OF MARIN FLOW
STACK INTO RS
STACK INTO RH4
STACK INTO R3
STACK INTO R2
STARCK INTO Rl
STACK INTO RO

TRAP DECODER

g 74

;-lli!llill!ll!llllllil!ili*!iill!llli!lll!!lllll!lllllllllili!i!

gg;g

(%GO

75
8076
8077

'%THIS 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 OBTAINEC IT WILL

8080

043330

010046

8082

04333t

005740

8081

043332

016600

000002

TO THAT ROUTINE.

§TRAP:

MOV

RO, - (SP)

: s SAVE RO

TST

Z(RD)

' 'BACKUP BY 2

MOV

2(5P) RO

:'GET TRAP ADDRESS

CZREIED UNIBUS Rkt DR PRT2
CZR6IE.P11
10-JAN-78 09:43

8083
8084
8085
gggg

043340

Q43342
043344
043350

MACY1l 30RA(10S2)
10-JAN-78
TRAP DECODER

111000

006300
016000
000200

mMove
ASL
MOV
RTS

043364

8088

gggg

8091

8092

8833

N12

11:25

PAGE 156

(RO),RO

RO
$TRPAD(PO) ,RO
RO

SEQ 0156

;;GET RIGHT BYTE OF TRAP

; ;POSITION FOR INDEXING
; INDEX TO TRBLE
:;GO TO ROUTINE

;s THIS IS USE TO HANDLE THE "GETPRI* MACRO

043352

043354

043362

011646

0leebb

000002

000004

000002

$TRAP2:

MOV

MoV
RTI

(SP),~-(SP)

4(sP},2(SP)

; sMOVE THE PC DOWN

; ;MOVE THE PSW _DOWN
; ;RESTORE THE PSW

8832

.SBTTL

8097

; #THIS TRBLE CONTRINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

gig?

;

gggg

8102

; ¥BY

THE

TRAP TRABLE
"TRAPTM

ROUTINE

8103
8104
810S
8106
gigg

043364

043366
043370
043372
043374
043376

(0433S2

§TRPAD: .WORD

gi?g

043400

041470

8111
8li2
8113
8114
8115
8116
g}}é

043402
043404
043406
043410
043412
043414
043416

041400
041742
(042032
042352
043234
043272
036230

037700
040700
040654
040714
040162

INSTRUCTION

STYPE
STYPOC
STYPOS
STYPON
$TYPDS

STRAP2

; ;CALL=TYPE
;;CRLL=TYPOC
;;CALL=TYPQOS
;;CALL=TYPON
;;CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL. NUMBER (NO LEARDING ZEROS)
TYPE OCTAL NUMBER (RS PER LAST CALL)
TYPE DEC1MAL NUMBER (WITH SIGN)

SGTSWR

; ;CALL=GTSKR

TRAP+6(104406)

GET SOFT-SWR SETTING

SCKSWR
SRDCHR
SROLIN
SRDOCT
$SAVREG
SRESREG
SCOP1S

; ; CALL=CKSWR
; ; CALL=ROCHR
;;CALL=RDLIN
;;CALL=R2OCT
;;CALL=SAVREG
; ;CALL=RESREG
;;CALL=SCOP!

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)
TRAP+14(104414)
TRAP+15(104415)

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHRRACTER ROUTINE
TTY TYPEIN STRING ROUTINE
RERD AN OCTAL NUMBER FROM TTY
SAVE RO-RS ROUTINE
RESTORE RO-RS ROUTINE
INTERNAL LOOP ON ERROR

BBNEREOREBIBNFREOREBD mm
LWNH-0OVONCNLWL—-OVONOCNLWL—-OWVONTCNLEWN=-0O

e Bt B

et Pt

s Pt

e Bt

e Pt Pt it P

ot Pt fm o Pt ot Bt Bt ot et it Bt et Pt Dottt

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

s Pt Pt s

€0NNNNNo
00 (00D D 00 oo
00 Q0 €0oo0 oo
LX 0D (D 00D (D 0o @ (0 0 4D G0 0D (0 0D €0E G0L (DL A0L 6DL GL DL (D£ (DL €OL G0 0D D 00 D €D (D €D €D D (D 4D 4D D AD 0D D CO D 00 gm
o

lele)

O_UNIBUS RK& DR _PRT2
P11

043420

10-JAN-78 09:43

MARCY1l 30R(10S2)

TRAP TABLE

10-JAN-78

MSGl:

.ASCII

<«CR><LF>/UNIBUS RKO6-RKO7 DRIVE DIRGNL-TIC--PRRT 2~/

.ASCII

<CR><LF>/CZREIED/<CR>¢<LF>

<«CR><LF>/THIS PROGRAM SHOULD

047125

041111

o43434
3456
oq§3?3

051517
0508%3

0O4M4S
0S1101

026503
0Qe01eM4

043473

Oqgg

01s

Oflqug

ggéé?g

AR 83%6?1 025052

.ASCII <(CR><LF>/

043536

00S01S

Q44124

0S1S11

.ASCII

Oq?&?g o44124
g43672
Q43700

043712
043720
043726
043734

042116
852040

00S01S

g44s2?7

ggg?gg

020054
042510

0S1117
042040

040515

.ASCII

<«CR><LF>/MAY BE LEFT IN AN UNDETERMINED STRTE/

.RSCII

<(CR><LF>/INITIALLY,

020056

.ASCII

<(CRY<LF>/A. HEADS MANUALLY LORDED

o44002
O44010
g440l6

(020123
020105
042108

0O42040

01S

(040412

Q42510
040515
0S4514

.ASCII <CR><LF>/0THERWISE, CARTRIDGE FORMATTING AND, OR THE DRIVE/

043105
040440
042504
047111l
040524

047111
DO4EllY
044522
047524
042524
051440

044044
044052
044060

BE HALTED ONLY BY TYPING CONTROL-~C/

020131

043760
043766

044037

2x%%% CAUTION »#x%x%/(CR)<(LF>

046040
047111
047125
0Qu4eSee2
0S1440

042502
020124
020116
2Se4
210S
o4
00S501S
040511

p43774

SEQ 0157

SERVICE MESSAGES

1
051525
026466

030113
033460

PAGE 157

.SBTTL

00S01S

0S1040
045522

Bl3

11:285

042101
(052516
046040

020123
046101
040517

DRIVES TO BE TESTED SHOULD HAVE:/<CR><LF>

Ngob- - 00O
RIS NL=r—n
"‘U"‘N?

11:25

PAGE 158

SEQ 0158

.RSCII <«CR><LF>/B. CORRECT PORT SELECTED~

841%85
0200S6

.ASCII

<CR.<LF>/C. WRITE LOCK DISARBLED~/

020056

.ASCII

<«CR><LF>/D. DRIVE READY INDICATOR ON/<CR><LF>

823111

.ASCII

<«CR><LF>/DRIVES NOT TO BE TESTED MUST HARVE~/

O£

[

—

n
[N]

(=]
n
n

[ Lo
TM
n

e - =0~ —(NO
Lt del ot ot Iy
WO-NW LN
e O

998%888888888
Rone

@] o
un £
ow
-

S0S

-78

|o
O—-uNN=—=Or-

== ON—

NELWONO

ZRRARZR R ?

nLr

V= O
N
—)
b

Sne6u
=] §O=3
28 SRrnE-RE

Q0
LN
R ZRRIFE22R
n
N NN —

QQ0
oL
o
ONI—=r—
D
=S
VT Y

Q47520

051104

— 0O LNO—e—

5] &

£
n

s pe

LLL

2 222

[}
£
£
w
~N
o

Q44307
Q44314
Q44322
Q44330
Q44331
Q44336
ON4434Y4
Q44352

NV
£ W

8204
8205
8206
8207
8208
8209
8210
Pt Pt Pt Pt Prms

044276
044304

e P

104

815 041012 020056

844%12 8 1440 8461

8201
8202

042504

MACY1l 3 0ACl
SERYV

.ASCIZ <CR>(LF>/BOTH PORTS DESELECTED/<CR><LF>

05211?
052122

Q
£
=]

qqgg?

DOGV*$£MNHOOQ \:gm:wmwo
mmmmmmu\azj

00 o ap G 0D 0D 4D 00 G (D (00 0 00 (D00 A (D K0 GO 4D AD COCD (D wao
m._._p..p-.p—p_...;._’_’—._..._...p..._..—p_p-p-p—;—._ — —
[@ NIV
Vo)
VolValVelVal¥elosfoolee)
\l\‘
on

CZRBIEOP?TIBUS RK& DR _PRT2
10-JAN-78 09:43
CZRBIE.

Cl3

0
0

MSGe:

.ASCII

<CR><LF>/CHANGE XXDP PACK/

.ASCIZ

<(CR>(LF>/CLEAR LOC 40,RESTART PROGRAM/

.RSCIZ

<(«CR><LF>/DRIVE(S) TO BE TESTED: ~

;
e
g

0S3111

024523
Q42502
042524

052040
052040
035104

035060

020040

0S2012
047503
14
052116
052120

0S0131
(052116
(051105
051105
053040

g 8&45

MSG3:

42520 MSGY:

.ASCIZ <«CR>(LF>/TYPE BUSS ARDDRESS IF NOT 177440: -~

1
3

8224

Q44460

7
032064

8226
8227

044467
044474

01S
020105

8229
8230

044510
044516

044440
0S2522

MSGS:

LASCIZ

<CR><LF>/TYPE CONTROLLER

INTERRUPT VECTOR

IF NOT 210:

CZR6IEO UNIBUS RKb DR PRT2
CZR&IE .P11
10-JAN-78 09:43
4 S?S

3104
Y

O445S0

00501
05112;

30061

047111

11:25

PRAGE 159

SEQ 01589

Quasa4
g20124

MSGH:

.65C12Z

<CR>«LF>/INTERRUPT OCCURRED AT PC=/

MSG7:

.RSCIZ

(CR>(LF>/DRIVE O WILL NOT BE TESTED/

MSGB:

.ASCIZ

<CR> <(LF>/RERD DARTR WITH OFFSET TEST/<CR>(LF>

MSG9:

.ASCIZ

(CR><LF>/HERD NO.~/

MSG1O:

.RSC1Z

(CR> (LF>(LF>/WILL TEST DRIVES:~/

MSG11:

.RSCIZ

<CR> (LF><LF>/POWER UP RESTART TO TEST 1/<¢CR><(LF>

MSGl2:

.RSCII

(CR><LF>(LF>/THE RBOVE OFFSET FRAILURES RRE NOT ERRORS~/

.ASCIZ

<CR><LF>/BUT INDICATORS OF SURFACE,HERD,

.ASCII

(CR>(LF>~“NO L OR P CLOCKS PRESENT~

030155

042101
009
044527
051S0S
0s3111

0S3S17
020120

0s201e2

& ELECTRONICS QUALITY/<CR><(LF~,

oL
ZREZOPEENEAREE
RERZEE
NN
Lo
Or——-N—~00
ma N—-NL—=—0
Ut ~-=O0NN—N
=N\ OWN
»—mmw—o—-—r—-mt—v—gogr—o—b—
nNL£ZO £V
£ L£WO NN nNLo
I’UC)U'D88(@]
14V]

nn~—-0O-~N
o

0431

10-JAN-78
SERVICE MESSAGES

30A(1052)

§§012

PERAREL
? Z8BRZRAR RZZR
28R 23238
—MW—00
O
—0r0O
— L0 LNt 2
== O
- 00 £33 d =l
® o
-0OL—nNLn
N OUNVWON REES st R RnRLZNShRES
2 LS TR

00s0

T
47524

MACY1!

046177

MSGL3:

051

051505

044

040s0S

<CR><LF>/HEAD SWITCHING TIME TEST BYPRSSED~

CZRBEIEO UNIBUS RKe& DR PRTe
10-JAN-78 09:43
CZR6IE .P11

020104

g8eg7
65288
8289

E13

11:25

PRGE 160

SEQ 0160

0s0o131
043516
042526

MSG1N:

.ASCIZ

(CR, <LF>/BYPRSSING DRIVE

o44s22

MSGIS:

.RSCIZ

<CR> (LF><LF>/DRIVE

0S3111
o44S22
027117

MSGl6:

.ASCIZ

(CR>(LF>/DRIVE SERIAL NO.

0s2122

MSG17:

.RSCIZ

<CR><LF,»/CARTRIDGE SERIAL NO.

MSG26:

.ARSCIZ

«CR> (LF><LF>/RBORTING BRLANCE OF TESTS ON THIS DRIVE/<CR»<LF><LF>

MSG27:

.RSCIZ

«CR> <LF>«LF>/ALL DRIVES TESTED/<CR><LF><LF>

MSG37:

.ASCIZ

(CR><LF> NO WRITE CHECK ERROR AT MAX POSITIVE OFFSET/

MSG38:

.ASCIZ

<CR><LF>/NO WRITE CHECK ERROR AT MAX NEGATIVE OFFSET/<CR><«LF>

MSG39:

.RSCIZ

(CR,¢«LF>/WRITE CHECK FRILURE AT OFFSET =~

MSLH0:

LASCII

«CR><LF ~COULD NOT RERD BAD SECTOR INFO ON CYL 410~

) LN+
O L£0WNNW

L S0
HRRQoNNEGE-ON D R PRI
R SR Rh

e Gt Pt Pt e ()
NE-UNN

RP2RE222R222 Q
pd P2R2228222322R2222R2
B th FRR—
AR

nno
—0
o wun

££OL
NNOW

Q000

~magemw, =28

|®]
n

[

—d P

Z2RRRSZZZRAZZR
222 RR2PB2RY 22
)| R2R
("
ON=—-00nTnNNO
00N
REEHNAS AN
—-NE
bt Lo
L£Nro h W R W)
PRGN SRS PG
nNohOWWwonno

[eeloslostooleolaclodfoatoakes]
WWWWLWWWwWWW
) — s bt st b b bt e pm
oW NN LW+

045670

30A(10S2)
10-JAN-78
SERVICE MESSAGES

gSelll
020107
052040
0s4s0e
04210S

Q4sS2e6

o4S634
QuSe4e
Q45650
Q45656
o4se62

MACY11l

042526
046114

Q42526
0sele3
gooole
053440
Q41440
042440
o40440

020130
044524
043106

CZRBEIED UNIBUS RKb DR _PRTZ2
CZRBIE.PI1
10-JAN-78 09:43

——

[

n
n

8338

046332

042520
027107
Q40505

042524

.ASCIZ

<«CR><¢LF>-/PROGRAM RBORT PENDING...PLERSE WARIT~/

042116
027056
042523
000124

MSG?S:

.RSCIZ

<«CR><LF>/HALT PENDING...PLERSE | 3IT/

8:??6;

MSG?6:

.RSCIZ

<«CR><(LF>/PROGRRM ABORTED-

02C.25

MSG?7:

.ASCIZ

<CR><LF>/CPU HALTED/

.SBTTL

ERROR MESSRGES

EMI:

L.ASCIZ

000
nnng
O£

046101

0Siie20

1 ?3

052l

<«CR><LF>~/ERROR, ONLY O THRU 7 ALLOWED, TRY AGRIN/<CR><LF>

o
[N
o
o
£
O

.ASCIZ DRIVE # IN RKCS2 CANNOT BE RERD BARCK CORRECTLY IN RKMR2-

—

wn
=)

o
£

Q
L
o

Oflflggg 042526 EM2:
—

8“10

MSG7H4:

o44012

o
£

nNU—=N—-O—-0
L0 L0
-590*-'—’—’-‘
LW~ 0Wwno
L0
-0OL~NN

N.Lr—-

Q46242

Q
£
n

o
AV
n
o

8388

o
W

@®
o

046137

<«CR.<LF>/0R ALIGNMENT CARTRIDGE USED/<CR><LF>

(=]
Q
£
o

0Q4esSi1Y
UJ40Se?7

8374

8376

.ASCIZ

n
n

—

047522

0S00Se
020105
00g

o
N
o

Ny—
L NYys—

I OO

U~ NN

040510
000

050012

PRGE 161

041040
041505
047111
020116
030464

ge0lee

FLE

Lt e O S 0»——0’\»—-00»—0—-»—.—08
OrYot R AR S AR —UNOW
SRE

L£NN
\al'allyl

R2Z

047440
020114

on WONO

8
~NoL
nN
00
o0
n
n

Ll ol

—

O no

[£]

n
~
[ValFalVaily]
NNNN

o
£
o
o
W
n

(=])
£L
oo

048130
046136

Q42101
0S1440

Q0 Q00
Q
n £0O REZR
£
80
RARTER
Ne—

—

o
£
n
~

045720
Q45726

042522
042101

11:25

=N
-nNoO
"N

8371
8372

045676
045704

o
£
o

[0 ¢}
W
~
o

wom
W
oo
[+
RN}

w
W
"N
o

omom
WWwww
N
LWhoe—

[0 ]
w
£
@

8343
8344
8345
8346
8347

MACY1l 30R(1052)
10-JAN-78
SERVICE MESSRGES

F13

p40412

047502

020104

044524

EM3:

.ASCIZ

<«CR>(LF>/ABORT TESTS...UNEXPECTED TIME OUT RT PC=~

SEQ Q16!

104

046702

0SC117

He?7

EMG:

.ARSCIZ

~/UFE SET

.ASCIZ

~/DRA IN RKDS 8 NED IN RKCS2 RESET; WRONG PORT SELECTeD?~

.ASCIZ

~DRIVE PRESENT BUT NOT SPECIFIED BY OPERATOR/

EM9:

.ASCIZ

-DRIVE NOT PRESENT BUT SPECIFIED BY OPERRTOR-

EMl10:

.ASCIZ

/ARBORT TESTS...CANNOT REFERENCE CONTROLLER REGISTER~/

EML1L:

.ASCIZ

~DRA IN RKDS & NED IN RKCS2 BOTH SET~

Susgas

EM8:

O41040
0S110S
000

020131
052101

044522

042526

051688

05210l

OO+ —n)
- O0QWnN
ONE £
NWOo oo

Hflgss

42523

2lg2e

047101

un
— On
oo n

020!

Q421
04eS
O0S10

IN RKCSe/

Q
£
n

041456

- O+
WL£W—

0S1040
020046
047111

/MDS SET IN RKCS2/

EM7:

o
n
o

|TM

Q
£
o

051104

Q47004
G470l12
047020

4
~

046776

027056

.ASCIZ

EMS:

BHEZS8 osebod Ba7eBE BRTASS
Q46726

PAGE 162

<«CR><LF>/ABORT TESTS...UNEXPECTED INTERRUPT AT PC=~

EMY:

11:25

.ASCIZ

Ne—rmtmer=r—
NU—OMNN—
oOoocwnwN

046637

041

NUO—OMN—0M—
L0 LN
ONNWLW—-NoOoO0OWw

042105
050117

10-JAN-78

ERROR MESSAGES

un
N p—e
u —IUV—=
= —O)— L OO0

046620
g46626

047440
0e20le4

RRAR

042515
040440
000075

U'!P-*-'—*-'—
&g
£
nN—
O —
o 28R AV Ty AT Y. ]

Q46340
046346
Q46354

MACYLl 30A(10S2)
(N —
Yn
O un

10-JAN-78 09:43

£
n

.P11

(@]
N
n

0 UNIBUS RK& DR PRTZ2

Gl3

SEG (.82

CZRBIED UNIBUS RKb DF PRT2
CZRBIE .Pl1
10-JAN78 09:43

MACY1l

30A(10S2)
10-JAN-78
ERROR MESSAGES

gises
[

0sel1l1?z

SE3 J163

163

.RASCIZ

/CONTROLLER NOT RERDY

IN Rk(S1

EM13:

.RSCIZ

/NO ATTN IN RKRSOF-

EMIY:

.ASCIZ

/UNEXPECTED MEMORY PRRITY TRRP~/

EMIS:

.RSCI1I

+RkDC 8 RKDA INDICRTE THAT WCE OCCURRED RT-

.RSC1Z

<(CR><LF>7CYL 411,

EMI1E:

.RSCIZ

/CANNOT RERD BAD SECTOR INFORMATION/

EM17:

.RASCIZ

/MESSAGE RO ERROR~

EM18:

.RSCIZ

/MESSAGE BO ERROR/

EM19:

.RSCIZ

/MESSRGE A1 ERROR~/

cM20:

.ASCIZ

/MESSAGE

EM21:

.RSCIZ

/CERR SET

EMee:

.RSCII

/NO DRIVES FOUND IN DEVICE MAP (SDEVM)/<CR> LF:

Sicd

84s

PAGE

o
n

g45s

11:2€

gisect FE
047111

o44522

TRACK 2,

SECTOR 21~

04650
03046

47430
047436
047444
g474s
o4746
047466
047474
047502
Q47510
047516
047524

o42S

00eH4S1

047511

N—-WNO
S

O—=NO—0O
C»-NCP—S
Nt
an-

(]
n
n
bom s e () 0e (ST 0 0o = (Y0—e

047516
042101
0S1440

346552

080%66

84344

000

ERROR/

IN RKCS1~/

Q47527
047534
e ald o @ [ V1

WO
L0

0s210S
0Ssi11?
0S4S14
0S1040
0S21e22

050125
g4esee
o40440
051508
00s01S

020117
05150S
Q4elle
052502

0S1104
043040
047440
051523

30R('052)

10-JAN-78

ERRLR MESSAGES

I13

11:25

PRGE 164

.RSCIZ

7/SETUP CORRECTLY AND RESTART-/<«CR><LF>

.RSCII

/NO DRIVES FOUND ON BUSS/<CR><LF>

.RSCIZ

/SETUP CORRECTLY AND PRESS °*CONTINUE’/<CR><LF>

EM2Y:

.RASCI1Z

+VOL VALID NOT SET

EMES:

.RASCIZ

<CR><«LF>/DETECTED 10 BRD SECTORS...RBORTING TEST~/

:
EM2F

.RSCIZ

/DETECTED BSE BUT NOT LISTED IM BRD SECTOR FILE~

EME7:

.RSCII

+DETECTED BSE IN READ COMMAND-

.ASCIZ

<CR><LF>/BUT NOT IN PREVIOUS WRITE COMMAND TO SRME SECTOR-

.ASCIZ

+CYL ADDR IN RKMR3 NOT SAME RS RKDC~/

EM23:

020120
04150S

MACY1l

02350S
0S3040
047040
052105
045522

IN RKMR2/

gs0212

042S1S
047524
054503
0S1104
Qussee
047516

0405
ge

L
LNO NN~
N

[ I

o4e

— U= ~NONOMn
L
= Lo

L LUON—-0

0S1117

== N——-00—00

NI
VD
sAYsol

lalgl

@ODOOOO@MD
[V UalUalualValbalValValVs

0 UNIBUS RK& DR _PRT2
.P11
10-JAN-78 09:43

041505
042101
020116
020063
040523

EM36:

SEQ J1i6M

Qu31J1
Q43117
Q44440
15

~-~Oonunn

8574
857S
8576
8577
8578

050254
05026
050270

8611

050676

020123
000
Q42040
020046
05210S
Qussee
047516
04050S

Qu4es 15
0455 22
103

SROVNAT
- ERRREORNA=RRARMA 2SeeSR2ERERZERFRZERE

8573

050220
050226
050233
050240
0S0246

RNVOCO Ne—— L O NN~ L0
o= b= e b= (YO0 = (N
VU = UV 0 e

856
8568
8569
8570
8571
8572

nNOONNO~N—PNNOO

0 UNIBUS RKE DR _PRTZ
.P11
10-JAN-78 09:43

00 €D 00 00 00 0D D G0 G0 MO G0
oooocoococoooosr
U U
b s oo ps e bt Pt e
n—O0OLo0omNCN.EWN

OO0

RE!
R&1

MACYLl

0515es

047524
044440

30A(10S2)

10-JAN-78

ERROR MESSAGES

J13

11:25

PAGE

SEQ 0185

165

EM39:

.ASCIZ

/CYL DIFF & OFFSET IN RKMR2 NOT CLEARED/

EMYN.

.RSCIZ

/CYL ADDR

EM41:

.ASCIZ

/CYL RDDR IN B2 DID NOT REMRARIN CLEARED~/

047040
p4es1y
Q449440
051501

EMSS:

.RSC1Z

/ATTN NOT CLERRED IN RKASOF/

0S1440
020116
000062
o44040
020122
0o00iee
046516
Q40503
43504
042105

EMB3:

.RSCI1Z

‘DLT SET IN RKCSe/

EMES:

.RSCIZ

/RERD HEADER ERROR~

EMBS:

.RSCIZ

/ALIGNMENT CARTRIDGE USED~

EM73:

.RSCIZ

/CTO SET

EM7Y:

.RSCIZ

/RTZ NOT SET

EM?9:

.ASCIZ

+NED

EMBO:

.RSCIZ

/WRITE CHECK ERROR SET

EM81-

.ASCIZ

WRITE CHECK COMMAND NOT FUNCTIONING~

CS1440
(20116
(100061
(47516
020124
C46513

SET

IN RKMR3 NOT CLERRED~/

IN RKCS1/

IN RKMR2/

IN RKCSZ2/

IN RKCS2~

0 UNIBUS RK& DR PRTZ
.Pl1
10-JAN-78 09:43

0S0704

o42lle

MACY1l

e PO

—

NNNO L LWNON

L= NV

[=]
[Ty
n

000
nunn
oO—0

FERERBRZRBRIFER ENYrOR

m.—.—.—-p;—.y—p;—...._._

00000000000000000

10-JAN-78

ERROR MESSAGES

K13

11:25

PRGE 166

SEQ 0166

047040
Q471esS
044516
o40s0S
o40se4

040S0S

30AR(10S2)

EMBe:

.RSCIZ

/RERD DATA DID NOT COMPARE WITH WRITE DRTA~

EMB3:

.RSCIZ

/DATAR CHECK ERROR SET

EMBY:

.RSCIZ

/WHILE WRITING FOR CONTR READY OR AFTER CONTR RENDY REC’'D~s

EMBS:

.ASCIZ

#OFFSET

EMBG:

.RSCIZ

-QOFFSET REG IN Re NOT = RKRARSOF/

EMBS:

.RSCIZ

+DID NOT FIND SECTOR O FROM INDEX-~

EMS3:

.ASCIZ

EMSY:

.ASCIZ

STATUS BIT

IN RKER/

IN RKMR2 CLERRED/

o42116

o44504
o475e22

RERDING WRONG CYLINDER @ IN HERDER...MISPOSITION~

047511

o4oNY40

0se210s
047111
047516

/OFFSET

IT IN R2 NOT CLERRED-

C<REIED UNIBUS RKb DR PRTR2
CZREIE.PL1
10-JAN-78 09:43
8679
8680

051374
0S1402

020124
042522

8682
8683

051414
0S1422

82104
c2ll

8686

8630

8681

8687
8688
8689

8691

0SI406

040S0S

EMSIS:

.RSCIZ

/FORMAT BIT NOT SET IN RkMRZ-

0S1442

040503

047116

0S2117

EMI6:

.ASCIZ

/CANNOT FIND SECTOR 23(81:~/

051472

0og

040S0S

020104

EMS7:

.ASCIZ

/HEAD SWITCHING REQ'D ANOTHER FULL REVOLUTION OF DISk~

0S14S0
0SiI456
051%94

0SIN?

0S1S60

8705

051615

051566
051574

0S1e22
051630
0Si636
0S1i644

043040
Q42523
31040

110

8 elil
1440

047111
052103
024063

053523
047111
023521
052117
052506
053105

0Sell1l
020107
020104
042510
046114
046117

O0S1104

053111

047040
052105

020104
0S1117
024470

044103
Q4252
047101
0e" 22
0S1040
0S21eS

020106
020113

0S1124
042523

020105

EMI00:

.ARSCIZ

/DRIVE OFF TRACK SET IN RKMR3/

104

Q42111

047040

EMIOL:

.ASCIZ

~DID NOT GO TO CYLINDER 10/

.SBTTL

DRTRA HEARDERS

020124

DHl:

.ASCIZ

~TEST NO.

004461

DH2:

.RSCIZ

/RKMR]

RKMR2

RKMR3

RKER

RKDS

RKCS1

RKCS2/

RKBA

RKDA

RKASOF

RkDC

RKECPS

RKECPT~

052117
047524
047111
030061

043440
041440
042504
000

0S1647

124

0S1505

8716

O0SIibbY

045522

0S111S5

8718
8719
8720

0S1700
051706
051714

045522
Q45522
042113

0SI1115
0S1105
004523

8717

8723

0S1672

051734

8724
8725
8726
8727
8728
8729

0S1742
0S1750
0S1756
0S1764
0S1772
052000

8731
873¢
8733
B?3%

0Se20le
052020
052026
0S2034

8730

052005

043117
041501

020117
046131
020122

gZ{é

8713

SEJ 01e7

0S2101

8700

PAGE 167

046See

051500
0S1506
0S1S14
0S1522
0S1530
051536

8706
8707
8708
3398

11:25

047506

8692
8633
8694
8695
8696
8697

8701
8702

046103
000104

MARCY11 30A(10S2)
10-JAN-78
ERROR MESSAGES

L13

045522

0Qu4SS22

041113
040504
047523
041504
050103
041505
106
0S4S03
020117
041440
043111

0S1115

004462

Q41527

0S1011

DH3:

.ASCIZ

-RKWC

020115

DH6:

.ASCIZ

~/FROM CYL

004463
051011
0Qu45See

004501
051011
004506
051011
004523
0S2i20

Q45See
040513
045522
042513
045522
000

020114
0S4503
046131
000106

052040
020114
042040

Q47522

PC/

TO CyL

CYL DIFF~

CZRBIED UNIBUS RKE DR PRT2
CZReIE .P11
10-JAN-78 09:43

MACY11

ML13

10-JAN-78
DATA HERDERS

11:25

30A(1052)

PRGE

SEQ Ole8

B3 BESBuE 825143 BesATY 845823

DHS8:

.ASCIZ

/TEST

8738

DH9:

.RSCIZ

/AFTER START SPINDLE COMMAND REC’'D BY DRIVE~/

DH10:

.RSC1Z

/AT

DHIL:

.ASCIZ

/EXPECTED

WARS/

DH13:

.RSCIZ

/ON SECTORS 10,

12,

14,

16,

18 OR 20 CvL 410 TRRCK 2~/

DHI14Y:

.RSC1Z

/ON SECTORS 11,

13,

15,

17,

19 OR 21 CYL 410 TRRCK 2~/

DHI17:

.ASCIZ

/AFTER RECAL COMMAND~/

o4esa4
046503
040515

DH1S:

.RSCIZ

/ARFTER PACK

5210
4610
0S1104

DH20:

.RSCIZ

“AFTER SELECT DRIVE COMMAND/

DH2!l:

.ASCIZ

/AFTER SUBSYSTEM CLERR~/

DHee:

.ASCIZ

/AFTER DRIVE

052054

8740
874
874
8743
8744
8745
8746
8747
8748
8749
8750
8751

0S2074

020120

z 2222099953

8737

041520

000

Q42440
020106

004504

8752
8763
6754
8755

0S1440

NO.

168
TRAP PC/

END OF HERD LORDING~

030464
041501

041505
030440

Q40503
046518

0sesiy

o46103

047503
000104
04aSe
051502
020115
goolee
04aSa4
053111
040505

COMMAND~

CLERR COMMAND/

2
o

040

MACY11l

30R(10Se)
10-JAN-78
DATA HERDERS

N13

11:25

PAGE

169

SEQ 0169

047101
DHeM:

.ASCIZ

/AFTER CFFSET COMMAND/

DH2S::

.RSCIZ

/AFTER SEEK COMMARND~

OH26:

.ASCIZ

/AFTER

DH2?7:

.RSCIZ

/AFTER WRITE

o42s20

DH2B:

.ASCIZ

EXPECT/

0s2524

DH29:

.RSCIZ

7
RCTURL

0S110S
020104
051105
040S51S

DH30:

.RSCIZ

/RFTER READ HERDER COMMAND~/

DH31:

.RSCIZ

DH32:

.ASCIZ

/AFTER

DH39:

.ASCIZ

/RFTER WRITE HERDER COMMAND~

DH40:

.ASCIZ

“WORD#®

DH41:

.RSCIZ

/DURING RECAL

DH4Y2:

.RSCIZ

/ON SECTORS 0,2,4,6 OR 8

Q42524
0
0S2106
042505
046515

READ DATR COMMAND~

DRTA COMMAND~/

042116

=L Lt LNO——0O—00

o405

OO
=== L—L00—-0O—0O—-0ON0O—0N00O0O
L0 £+
WN= = b= 4= = P O O O == W~ O N L N UN—= U~ L WO
00N

046515

0sesae
052530
052532
0Se2s40
052546
052554

00 (DD 00 0D CD 0
D
M@OOE@@OooOdo
m’..._»..—._’-o—pOWwdmNTCNLWn

fRe

WRITE CHECK COMMAND/

046515

N LWWNI——O)
oo L£o00oWw

Q4eSey

000000000
nunnuunnnun
WWWwWWwWwwww

OO0

0 _UNIBUS RK& DR PRTe
.Pl1
10-JAN-78 09:43

046131

032040

HERDER WRS

SHOULD BE~

COMMAND/

CYL 410 TRRCK 2-

B3~

CZREIEC UNIBUS RK& DR _PRT2
CZRBIE.PI1 1
10-JAN-78 09:43

040522
000
Q42523
020123
026065

BlY

11:25

PRGE 170

1,3,5,7 OR 9

SEQ 0170

DHu43:

.ASCIZ

/ON SECTORS

CYL 410 TRACK 2/

DHYY:

.RASCIZ

/FORMAT & ALL READ-WRITE TESTS WILL BE BYPRSSED/

DHY47:

.ASCIZ

/AFTER READ HEADER COMMAND WITH MOVEMENT/

DH49:

.ASCIZ

/MSG A 8 B IN RKMR2 & RKMR3 RESP.

DHS1:

.RSCIZ

/AFTER SEEK TO SELF COMMAND/

DHS2:

.ASCIZ

/WITH INTENTIONAL MISCOMPARE/

DHS3:

.ASCIZ

/DURING OFFSET COMMAND/

DHSY:

.RSCIZ

/ARFTER FORMAT CHANGE AND CONTR RERDY REC’D/

DHSE:

.ASCIZ

/CYL #

= Vo= — LN
NN
b e b e L0 L O
COoONNOCOO00
W

ARE INVALID/

053652

rape
0NL
o
)
o
O
Oretebere

=000
L—NNONC—-0ONECO

047

o4e

0= e L 1 (Y= U0t be b

[

80?!’0’-’**—"’0*—
£O =0
O+ =
OUN—— NP
W -58(‘)01

000000
0O

052040
031040

10-JAN-78
30A(1052)
DATA HERDERS

030061
OHSSD;

8“) NON—=M—
LNNEL LN 8899
=-OLn

053166
053174

MACY11

0515

021440
042504

HERDER WORD 0/

CZREIEO LNIBUS RKb DR _PRT2
CZRBIE .Pl1l
10-JAN-78 09:43

@O w 00 (MDD
DD MDD
OO OO NN
NN NN
rory nny Pt Pt Pt Pt Pt Pt Pt Pt P P
[N
V] -0 VO NN LW—O

gt
053720
053726

02373

o42116
020110
05210S

053732

053744

8924

Q47527
0G0
Ogslgfi

o42lee

053440
043117

0Selill
051506

4e21Y e
000

40
0]
L0
oy
o

£nNe

£Lr LfIrrLfLflrrrsLLrrfkl £
o
L=}
-

RAR 2ARRIRRAARRRRRRRR
[o]e]

L
£ e= e

007370

PAGE 171

/AFTER KRITE COMMAND WITH OFFSET/

.ASCIZ

.SBTTL

ERROR OUTPUT DRTR

DT!L:

.EVEN
§TESTN, SERRPC

08111
00740
0G7366

00740M
007354

007362
007374

007364
007406

Q01334
001116
001354

001344

007362
007374

007 3¢~
007406

001116

001454

007402
007366

007404
007354

HMR1, HMR2,HMR3,
HER, HDS, HCS1, HCS2

807335

07364

HWC , HBR, HDR, HASOF , HOC , HPOS , HPAT

001116

0g1472

007366

007404
007354

HMR1, HMR2,HMR3,
HER, HDS,HCS1, HCS2

007362
007374

007364
007406

HWC , HBAR, HDR, HRSOF , HOC , HPOS , HPRT

001116
001354
007402
007366

001346

007404
007354

HMR 1, HMR2, HMR3, HER, HDS,HCS1,HCS2

007362
007374

007364
007406

HWC , HBR, HDR, HASOF , HDC , HPOS, HPART

001116

001346

007402
007366

DO7404
007354

HMRI, HMRZ , HMR3, HER, HDS, HCS 1, HCS2
HWC, HBA, HDAR, HASOF , HDC, HPOS , HPAT
STESTN, TRAPPC
$TESTN, SERRPC,FRCYL, TOCYL,CARLDIF

HCS1, HCS2
MR3,
HER,HDS,
HMR1, HMR2,H

887388 885324

8327

Cl4

11:25

DHS7:

geQlee
030040

-4

53660
53666

10-JAN-78
DATA HERDERS

30R(1052)

00O

8903
8904

MACY1l

7404

HWC , HBA, HDR, HASOF , HDC , HPOS , HPART
DT6:

07406

DT7:

DTB:

DT9:

STESTN, SERRPC, WD2, D!

STESTN, SERRPC, WOCNT, HOWD, TEMP 1

$TESTN,SERRPC, TOCYL,FRCYL,CALDIF

$TESTN, SERRPC, TOCYL,RHTARB
HMR 1, HMR2 ,HMR3, HER, HDS, HCS1, HCS2

SEQ 3171

CZRBIED UNIBUS RKE DR PRTZ2
CZRGIE.P11
10-JAN-78 09:43

MACY1ll 30R(1082)
10-JAN-78
ERROR OUTPUT DATA

7364
B9R0 RuesdBRCIeR pormss moramy
I.’

8963

0Su4ebs

0S4270

007410

001214

001116

00?444

g
B
mre g0 W
896
)
8967
4 15
7402 007404
ngg §§:§%§
7366 007354
8970

0S4

0S4340

00?372

8973

ggqggg

88 2l

8971

897S

0S4364

007454

007362

007406

88;&&8

88;:;3

007456

8976

0S4370

007424

007426

yyi2

0073

736

8977

Sg?

(0S4376

7432

4404 9?79 5

DTi3:

$TESTN, SERRPC,E.RO,E.BC,E.A1,E.B!,H.A0,H.BO,H.AL
H.BI

HMR1, HMR2,HMR3,
HER,HDS, HCS1, HCS2

007364

007374

PAGE 172

HHC,HBR,HDR,HQSOF,HDC,HPOS,HPQT

8962

D14

11:25

HWC, HBR, HDA, HRSOF , HOC , HPOS , HPART

DT14:

$TESTN, SERRPC ,E.RO,E.BO,E.R1,E.Bl,E.R2,E.B2

740

007430

8873M

H.ARO,H.BO,H.AR1,H.B1,H.R2,H.B2

HWC , HBA, HDR, HRSOF , HDC , HPOS , HPRT

007434

007436

HMR1, HMR2,HMR3, HER, HDS,HCS1, HCS2

8981

O0S4422

007360

007362

007364

8984

O0OS4440

001214

001116

007444

8387

054462
0QS4470

7432

007434

007436

007430

H.AO0,H.BO,H.ARL,H.B1,H.R2,H.B2,H.B3

8990

0S4S00

027400

007402

007404

HMR1, HMR2, HMR3, HER,HDS,HCS1,
HCS2

8993

0S4516

007360

007362

007364

HWC , HBA, HDA, HASOF , HOC , HPOS , HPAT

8982

0S4430

007372
00741

007374

007406

8366 024499 QO7ugd DO7MB0 O07MEs
8988
8391

8994
8995
8996

0S4506

(0S4S24
(S4532

7424

0C7370

007372
007410

007426

007366

007374

gggg

8999

054534

000003

9001

054540

0S1664

9000

054536

002

000
000

9002
9003
gggg

054542
0OS4544
054546

007
0S1734
007

9006

0S45S50

000001

9009

0S4SS4

00000S

9011

0S4560

051647

054564
0S4ESE

082163
o002

gggg
9010
901e

9013
3014

054552
Q54556

0OS45e2

00e

DTI1S:

007354

007406

.SBTTL

ERROR DARTA FORMATS

DF1l:

elals]

000

002

000
000

.BYTE 2,0

DH2

.BYTE
DH3
.BYTe

000
000

$TESTN, SERRPC ,E.A0,E.BO,E.AL,E.B1,E.A2,E.B2,E.B3

DfFe:

DF3:

.BYTE

7,0
7,0
2,0

.8YTE

0,0

.BYTE

2,0

DH!

DH11
.BYTE

2,0

SEQ 4dl72

0 UNIBUS RKb DR _PRTZ2
.P1l

10-JAN-78 09:43

0sS4570
054572
DSH4574
0S4576

0SiebM
007
051734
00?7

os460C
0S' 60°
0S4604

000003
002
0S1664
0Q7
0S1734
007

0s4616

054662

0S4664
0Su4666
054670
0S4672
0S4674
0s4702

Qs4704

00000S
000
053401
000
0S1647
00e
0Sie64
007
051734
007
00000S
000
051647
002
0S200S
003
0S1664
007
051734
007

000004

000
0s1e4?7
0oe
051664
007
0S1734
007

0s4722

000004
00e
053047
003
0S1664
o7
0S1734
007

0S4724
0sS4726

000004
000

MACY11 302(1052)
10-JAN-78
ERROR DATA FORMRTS
He

000

.BYTE

7,0

0oo

.BYTE

7,0

coo

DFY:

coo
000

000

DFS:

000

000
000
000
000

S
.BYTE
DH49
.BYTE
DH1
.BYTE
OH2
.BYTE
DH3
.BYTE

0,0

0,0
2,0
7,0
7,0

000

000
000

.BYTE 0,0
DH1
.BYTE 2,0
DH2
BSTE 7,0

BYTE

7.0

.BYTE
DH40
.BYTE
DH2
BYTE

2,0

000

oco

7,0

DF10:

000

7,0

S
.BYTE 0,0
DHI
.BYTE 2,0
DHE
.BYTE 3,0
DH2
7,0
.BYTE
DH3
.BYTE
7.0

000

2,0

DF6:

000

3
.BYTE
DH2
.BYTE
DH3
.BYTE

DF 14:

3,0

7,0

H3
BYTE

7,0

.BYTE

0.0

000
y

000

ELlY

11:25

PAGE

173

SEQ 0173

CCRBEIEQ UNIBUS RKE DR PRTe
CZRBIE.PI1
10-JAN-78 09:43
9071
3072

0QS4730
054732

0S1647
002

9074
9075

0S4736
0S4740

Qg7
051734

9078
9079
9080
9081
9082
9083
9084
908S
9086
3087
3088
3089

(0S4744
0S4746
0S47S0
0S4752
0OS4754
0S4756
054760
0S4762
0S4764
0S4766
0S4770
0S4772

00000S
000
053252
000
O0S1647
00e
0S16b4
0g?
0S1734
007
0000QS
0og

9073

gg;g

054734

os4742

0S1664

007

9090
9091
9092
9093
9094
3095
903
383;

QS4774
054776
0SS000
055002
0SS004
055006
055010
0sS012

051647
0oe
053645
00e
0S16b4
Q7
051734
007

9099
5100
9101
9102
9103
9104

0SS014
055016
0S5020
055022
055024
055026

000007
000
0S1647
oc2
052663
000

000

000
000
000

000
00c
000

000

000007
000

000

9118
9119
3120
9121
9122
9123
9124
9125

055060
(55062
055064
0S5066
055070
055072
055074
055076

051734

DFel:

ooo

0SS050
055052

0S5100

DF20:

000

9114
9115

9126

DF17:

oco

000

052663
0G0
052735
006
0S2673
006
0S1664
007

000

0S2735
004
0S2673
oo
0S1664
007
0S1734
007

051647
002

DH2

000

S030
055032
0SS034
055036
0S5040
055042
0S5044
055046

0SS054
055056

DH1
.BYTE

000

910S
9106
9107
3108
9109
3110
9111
giis

9116
9117

MACY11 30A(10S2)
10-JAN-78
ERROR DRTR FORMRTS

000
00c

0oo

ooo
000
000
000

.BYTE
DH3

7,0

.BYTE

7,0

.8YTE
DHYY
.BYTE
DH1
.BYTe
DHe
.8YTE
DH3
.BYTE
S
.BYTE
DHI
.BYTE
DHSE
.BYTE
DHe2
.BYTE
DH3
.BYTE

0,0

7
.BYTE
DH1
.BYTE
OHe8
.BYTE

DH31
.BYTE
DHes
.BYTE
DH2
.BYTE
DH3
.BYTE

ooo

DFee:

2,0

7
.BYTE

DH1
.BYTE

OH28
.BYTE
DH31
.BYTE
DH29
.BYTE
OHe
.BYTE

DH3

0,0
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
7,0
7,0
0,0
2,0

0,0
6,0
6,0
7,0

F1Y4

11:25

PRAGE 174

SEQ J174

00?7

0sSsigu

000007
000
0S1647
0ge2
058863
00
052735
007
052673
00?7
05166;
00
051734

WY
NI NYe—s o p—

ossioe

007

MACY11 30R.1052,_
10-JAN-78
ERROR DATA FORMRARTS

ooo

000

DFe3:

ooo
000
000
000
000
000

.BYTE

7,0

?
.BYTE

0,0

DH1
.BYTE
DHE?

.EVEN
X

.BYTE
DH31
.BYTE
DHE9
.BYTE
DHe
.BYTE
DH3
.BYTE

G1lY

11:25

PRGE 175

SEJ Q175

2,0

0,0
7,0
7.0
7,0
7,0

2221222222222 22222222222XX2XXX22X2X22222X222X2X222X22 2222 %]

'&BTTL

: *ENTRY

TYPE ERROR ROUTINE

JSR

PC,

iRETURN RTs P¢

TYP

ERR

iTHIS ROUTINE USES THE "ITEM CONTROL BYTETM (SITEMB) T0O DETERHINE WHICH
:#ERROR IS TO BE REPORTED. IT THEN USES THE “ERROR TABLE" (SERRTB)

:#ENTRY TO DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING

104413

001114
177400

05520¢e

+¢PERR: SAVREG

18:

055220

2s:
33
4§:

O——

£
o

001205

RO
RO
RC

MOV
BEQ
TYPE
TYPE
WORD
MOV
BEQ

(ROY+, 2%
3%
SCRLF

O
(RO)+, 48
Y

TYPE
.WORD

CLR
MOV

(RO)+,R0

‘GET OF POINTER

BEQ
goge

178
R:CRLF

MOVE

tRG) +,R3

:DH NUM IS O-BRANCH
:NO INDENT
:GET 8 STORE NUMBER OF DRTA WORDS

157

:TEST

RDD

MOV
BEQ

108$:

SRR

ASL
RSL
ASL

MOV

—

Q000D

00
2001

RARR AR R RRERRRRRERRRR RN

SITEMB, RO

TYPE

001205

SRR R R RN RRRRRRER RN

MOVR

BIC
OEC

001205

DD»—-CIJQC»—-— 8828

055250

CRNNEARAE R AR

007526

=00
noLn

8]{QTUW“BWULC£J
oo
o Lo

; #THE ERROR.
000000000 00000000

m»4300TQFULCUHP—DJNDVUWHILHUPCLDQ\MPWJKJN*%DQGTQTULEUH»‘OJNDVU“RIL"U”CLDQ\lIWM

»eee

ODD DD

Pt Pt Pt Pt Pt P Pt Pt Bt Dt Pt P Pt Pt Pt Pt Bms
Y W

wirar

asuspuguspuusiuis

DO DD DO DD DO D DD D DD D O DD D DD 0D D DDD D DD D O

Y ST tay W

Sy
N

DO DD

D
e
Y
o
o

MOOMNNINNNNNNYNC
oo oo
NI
NNV NN E L £ L £ £ £ £ £ L WWWWWWWWWWNININ

D O OO O DD OO

0 UNIBUS Rk& DR PRTZ2
P11
10-JAN-78 09:43

TST8

2177400, RO
RO
#SERRTB, RO

SCRLF

(RO)+,RI1
203
RY

(RG)+.R2

(RC)+

:ENTER ERROR NUHBER

:CLEAR SIGN
'FORM INDEX

ENSION
OR ERROR TABLE

: FORM noonsss OF ERROR ENTRY

"GET EM POINTER
'BRANCH IF THERE ISN'T ONE
'TYPE CRRRIAGE RETURN LINE FEEC
:TYPE ERROR MESSRAGE (EM)
:EM POINTER coss HERE
:GET DM POINTER
:BRANCH IF THERE ISN’T ONE

:TYPE CR-LF

TYPE DRTA HERDER
‘DH POINTER GOES HERE

*GET DT POINTER
:BRANCH IF THERE qns NONE
'SET INDENT SWIT

:STORE NUMBER OF DH’S

:BUMP PAST FORMAT WORD

IF ANY DATA FOR THIS HERDER

m..—.......—;...—;.....»—;.-.—»—.—.—.— ——

DD O 0D DD D DO DD D DD OO0

CZRBIELD UNIBUS Rkb DR PRTZ
CZR6IE. PLl
10-JAN-78 09:43

geases

MACY11l

80 407
13146

118:

104402

881383

30A.(1052)
10-JAN-78
TYPE ERROR ROUTINE

0SSH41iM4

O W L L OHO 0D 0

148 :

168:

3201

000002

218:

—

OWwONOCNL W

J DO DD DD
D DD
ro oo
n PUS—
b= b= b s b s b e

001205

178:

0S5414

055356
055360

000732
104414

055362
055370

032777
001410

055406

000137

001100
0314582

psS4le
055414

000esc?7
020040

000

NO - SKIP DATA PRINT
PUT FIRST DATA WORD ON STACK

DEC

:MORE DRTA WORDS

TYPOC

208 :
010000

123550

001103

000024

BLE

aos

: NO~BRANCH

757

2(RO)

ONLY DH IN THIS REQUEST”?

COM

DEC

*MORE DH’S”

$CRLF

BRANCH BYPASS INDENT
3

158

15%

NO-BRRNCH

tRO)+, 168

GET NEXT DH POINTER

BNE
ADD
B8R

218
82 RO
144

! YES-BRANCH
: INCREMENT DF POINTER
:SEE IF END OF DF BLOCK

TST

INDENT’

TYPE

SPACE2

IYES-TYPE SPACES

#SW12, ISWR

: SEE IF naonr DRV AFTER 20 ERRORS

TYPE

¢o;5

LWORD
isiB
Y

TYPE

BNE

BR
RESREG

BEQ
CMP
BNE
MOV
JMP
SPncsa

NO-BRANCH
:TYPE SEPARATORS
:LOOP

BIT

258

STYPE

4
spncea
1

BEQ
TYPE
BR

BNE

15%:

SEQ 0176

176

148
J(R1)+,-(5P)

BEQ

055414
055326

PRGE

BEQ
MOV

TYPE

001205
00000e

H14

11:25

:YES-TYPE SPRCES

O(RO)

DH
EOINTER GOLS HERE
'TYPE A DT?

$CRLF

:NO-BRANCH

10%
0s

:LOOP

25$
SERFLG, #20.
25%
#STACK, SP
SEOP

RTS

.RSCIZ2/

00T-11

SPACE2

:BR IF
N
:ELSE sss IF HAVE 20 ERRORS
*BRIF NO
:ELSE RESTORE STACK PTR
:AND GO TO NEXT DRV

.2 SPACES

-- VOOSA

DEC-11-UODPA-A-LA

: DIGITAL EQUIPMENT CORPORATION
:

055420
0S5500
000000

nnssncuussrrs 01754

.ENRBL

RBS,AMA

v.e

;

EVEN
.=.+860

Re
R4

000007

MAYNARD

1] od

CONVENTIONS

c<RBIED UNIBUS Rkt DR _PRTe
SZRBIE .P11
10-JAN-78 09:43
9239
3240
9241
9242
3243

MACY11l

3CA(10S2)
TYPE

ERROR ROUTINE

177776

000014

8. 1TvEC

0.5t
0.78T

TRTY

W
~

055616
0SSeeH

(wleleldelele ST T

0SS5530

o-..,-‘c.-.-n OOOO.-. ees @0 avw
(@]

177776
000016
055456
056656

0S5460
17277786

ENTR:

057064
055476
oss4ee

000002
057505
000340
0SebY46

000016
000014

: TRT VECTOR LOCARTION

000606

"PRIORITY MASK - STATUS REGISTER
:T-BIT MASK - STATUS REGISTER

000003

'TRT INSTRUCTION

'RTT INSTRUCTION

IS USURLLY CONSIDERED SAFE,

THE CURRENT RODRESS WORD

BE USED EXCEPT FOR JSR'S AND THE CURRENT ADDRESS POINTER (CAD).
=
=

177562
177560

;R DATA BUFFER
;R C/SR

TCSR

177864

T C/SR

T0B

177566

:T DATA BUFFER

INITIALIZE 0OT

USE 0.0DT FOR A NORMAL ENTRY

USE 0.0DT+2 TO RESTART ODT - WIPING OUT ALL BRERKPOINTS
USE 0.00T+4 TO RE-ENTER (I.E. - FRKE R BREAKPOINT)
BR
BR
MOV

0.STRT
0.RST
ST,0.UST

: NORMAL ENTRY
:RESTART
:RE-ENTER
--

MOV

PC,0.UPC

'FAKE THE PC

MOV

RST:

MOV

.45:

0.tveEc+2,sT
0.Bk1

SAVE STATUS

:SET UP LOCAL STATUS

#0.URO, SP

;SET UP STACK

JSR
MOV
MOVB
RORB
RORB

0,0.SVR
0'UiN,@0.ADR1
0.PRI.RY
RY
RY

:SAVE REGISTERS
:REMOVE THE BREAKPOINT
"GET ODT PRIORITY
(SHIFT
: TINTO

MOVB

RY, ST

MOV
BR

.RST1: JMP
056566

.STATUS REGISTER

RORB

177776

SEa 3177

RESIDES IN IT. AFTER A BREAKPOINT, IT IS SET 10 ZERO, AND SEARCH
OPERATIONS LEAVE IT RANDOMLY FILLED. OTHERWISE, IT SHOULD NOT

STRT:

177716

177

177776

340
20

JMP

0S5440
0S545Y

PRAGE

.RDB
RCSR

—

[
D’-"—‘D*‘OOHDDQhEOO
O 000000
OO0+
QOr—— 00
ONNU’INDQ?U‘U‘O‘W@I QOn quuoo
NL£
L
[N]

737

055524

00T-

IlY

11:25

=
=

RT T

0SS500
055502

10-JAN-78

SP.0.USP
0.RST]

RY4

(PLY+

B8R

0.45

B8R

0.RALL

MOV
CLRB
MOV
MOV

SRTI.0.RTIT
0.P
80.STM.
0. TVEC+2
#0.BRK.0.TVEC

'FAKE THE SAVED STACK
:CLERR BREAKPOINT TABLES

"POSITION

:STORE

IN STATUS

;SET TO RTI IF 11720 OR -0S
:DISALLOW PROCEED
;STATUS WORD TO TRT VECTOR + 2
:PC TO TRT VECTOR

:CLERR BREAKPOINT TABLES

SPECIAL NAME HANDLER

DEPENDS JUPON THE EXPLICIT ORDER OF THE TWO TABLES O.TL AND 0.URQ

055626
0SSe32
0E5636
0sseN0

004537
012704
120024
001413

057306
0s7s31

.REGT:
.RSP:

JSR

5.0.GET

(MPB

RO,

MOV

BEG

:SPECIAL NAME,

GET ONE MORE CHARACTER

#d.TL,RY

:TABLE START ADDRESS

0.5p

:JUMP IF YES

(RY)+

11S THIS THE CORRECT CHRRACTER”

CZRSIED UNIBUS RKG DR PRT2

ZREIE.PILI
9295
3296
3297

(S5642
055646
065650

022704
10!373
042700

0S7537

055660

062704

055440

3298
3239

055654
055656

920]
9302
9303

(0SSee64
055666
055670

9300

3382

10-JAN-78 09:43

0SSe74

(010004
6304

005202
000444
162704
000770

MACT1l 30AR(1052)

10-JAN-7?8

TYPE ERROR ROUTINE

0.5P1:

MOV
RASL

RO.RY
RY

0.SP:

INC
B8R
SUB

Re
0.SCAN
80.TL-7,RY

8177770,R0
80. URO, RY

: GENERATE RODRESS

0.SP1

004737

9311
9312
9313

055706
055710
055712

006202
103421
006302

ASR
8Cs
ASL

R2
0.ERR
R2

3315

055716

010205

MOV

R2 RS

010S02

9310 055704 061202
9314

gg{g

055714

056720

b.0RPC: JSR
MOV

ADD

005722

000137

15T

056172

IMP

33{3

9320

9321
3322
9323

9324
9325
9326

9327
gggg

0SS5724

005702

055734
05573p

006304
010437

0S5472

055744

012737

057546

055726
055730
055732
055742
05552

b.BKkPT: TST

001406
006204
103410

000412

000406

BEQ
ASR
BCS

0S5472

O.RALL:
.

ggga

9332

9337
9338

9339

9340

055754
055760
055764
055770

055774

055776

934]
9342
9343
9344
9345
9346

056000
0S6004
056010
(056012
056016
056020

9350

0se032

9347
9349

PC,0.TCLS
RS’ R2

cuansnr ADCRESS IN R2

aRé R2

:COMPUTE

(R2)+

0.bpP2

*MOVE ONE BIT TO CRRRY
'ERROR ifF ODD NUMBER
:RESTORE WORD
AND_INCREMENT B8Y TWO

:UPDATE CAD

:GO FINISH UP

! B HANDLER - SET AND REMOVE BRERKPUINTS

ggg?

3335
9336

:SET FOUND FLAG
:GO FIND NEXT CHARACTER
'CORRECT CONSTANT

« HANDLER - OPEN INDEXED ON THE PC

0SS5676
055702

057432

ADD

SEJ 0178

;IS THE SERARCH DONE?
:BRANCH IF NOT
:MASK OFF OCTAL

9308
3309

PAGE 178

80.TL+0.LG,RY
0.RSP

BIC

ggg;

11:25

CMP
BH1

177770

057522

J14

(0S6024
056026

0S270S
012700
004537
004537

005004

005002

004537
022700
101013
022700
103410
042700
06304
006304

060004

00000!
000077

0S7364
057464

057306
000060
000067
177770

0.RALL
RY
0.ERR

RSL
MOV

RY
RY,0.ADRI

MOV

$0. TRTC,0.ADR1

6¢o

0.0:D

: IF NO NUMBER TYPED

.
REMOVE BREAKPOINT
iCHECK IF 00D
:JUMP IF 0DD

:RESTORE ONE BIT
:SETR BREAKPOINT
;CLERR BREAKPOINT

COMMs
ND DECODEP - ODTI!

REGISTERS 50-R4 MAY BE L'SFD

4.ERR:
0.DCD:

BIS
MOV

#1,RS
¢ 3 RO

: CLOSE EVERYTHING
i
%70 BE TYPED

JSR
JSR

S,0.FTYP
§'0.CRLS

;_OUTPUT 7
STYPE
<CR>(LF)>#

CLR

R2 xs THE NUMBER FOUND FLRAG

RSL
ASL

RY
RY

!
:

"MAKE ROOM
IN

0.0CDi: CLR

0.SCAN: JSR
CMP
BHI
CMP
BLO
BIC
RDOD

5,0.GET
8'0,RO
0.CLlGL
#‘7. RO
0.cLGL
8177770, R0

RO,R4

' R4 CONTRINS THE CONVERTED OCTAL

:GETA CHRR, RETURN IN RO
'COMPARE WItW ASCII O
: CHECK LEGRLITY IF NON NUMERIC
:COMPARE WITH ASCII
"CHECK LEGALITY IF NOT OCTAL
:CONVERT TO BCD

;2ACK THREE BITS

IN RY

CZR&IEQ UNIBUS Rkb DR PRT2

CZREIE.PIL

3351
3352
3353

0Se034
056036
0S6040C

3354
9355
9356
9357
3368
3359
3360
3325

(0S6042
(056046
056050
(56052
056056
(056060
056062
0S6064

9363

056070

3365

056074

9368
9369

056102
0S6104

9364

3366
9367

9370
9371
9372
9373
9374

gg;g

056072

056076
056100

056106
066110
0S6112
0S6114
056116

10-JAN-78 09:43

005202
000760
00500

120061
00140
00520
020127
10333
000770
006301
000171

057518

.LGOR: O.WRD

;

055626

O.REGT

0.0RPC
0.BACK

:
:

000014

056070

056152

0.CRET

056462
056164

0.GO
0.0P1

055676
056216
0S6226
056304
056300
055724

0.0FST
0.WSCH
O.EFF
0.BKPT

056570

000030

005702

9381

056124

010405

05612t
056136
056132
(056134
056136
056142
056144
0S61S0

0.LGL

006205
103711
006305
011500
004537
000714
042705
000766

057222
000001

OPEN WORD

+
¢+

OPEN RELRYED, INDEX - PC
OPEN PREVIOUS

G
GO TO ADDRESS
K
<LF>
MODIFY, CLOSE,

:
:
:
:

DO THE CODES MATCH?
:JUMP IF YES
*"SET INDEX FOR NEXT SEARCH
xs THE SEARCH DONE”?
00PS?
RE-LOO
'MULTIPLY BY TWO
GO TO PROPER ROUTINE

O
W
E
B
P

OPEN NEXT

OFFSET
SEARCH WORD
SEARCH EFFECTIVE ADDRESS
BRERKPOIN
PROCEE

-0.LGDR

:LGL MUST EQUAL 2X CHLGT ALWAYS

TST

:GET VALUE IF R2 IS NON-ZERC

MOV

R4, RS

BEQ

0.WRD1: ASR
0.ERR2: BCS
ASL
MOV
JSR
BR
0.WRDA: BIC
BR

0.WRDA

RS
0.ERR
RS
RS,R
S, 0.CADV
'DCO
#1,RS
0.WRD1

:SKIP OTHERWISE

"PUT VALUE IN CRD

*MOVE ONE exr 70 CARRY
:JUMP IF ODD RDDRESS
"RESTORE THE CARRY BIT
'GET CONTENTS OF WORD
"GO GET AND TYPE OUT acRD
GO BACK TO DECODER
:CLEAR CLOSED BIT
:GO BACK TO MARIN-LINE

: PROCESS CARRIAGE RETURN

(0%,152
(S6i1S56
0Sele2

004737
052705
000702

057432
000001

ggg;

(S6l16M

9400
9401
9402
9403

056170
056172
0S6176
056200

3406

0Se214

9404
9405

0.PROC

:R2 HAS NUMERIC FLAG
!~
AND TRY AGRIN
'CLEAR INDEX

cnnnxncs RE TURN

:
:

SE2 0179

PROCESS # - OPEN WORD

.WRD:

001410

gggé

3399

R2
0.SCAN
Ri

056120

(0S6120

3393
9394
gggg

INC
BR
0.CLGL: CLR

PAGE 179

RO,0.LGCH(R1)
0.(GL2
Ri
R1, s0.CLGT
0.ERR
0. LGLl
Ri
90.LGDR(R1)

9379

9382
9383
9384
9385
9386
g387
9388
gggg

11:25

TYPE ERROR ROUTINE

056122

K14

10-JAN-78

0.LGLI: CMPB
BEQ
INC
CMP
BHIS
BR
0.LGL2: RASL
IMP

gg;g

3380

MRCY11 30R(1052)

056204
056210

004737

005725
004537
010500
004537

012700
004537

000744

b.CRET: JSR
BIs
BR

PC,0.TCLS
8] RS
0.06¢cD

OPEN NEXT WORD

PROCESS <(LF>,

057432

bd.oP1:

057456

0.0P2:

0S7222
000057
057364

JSR

PC,0.TCLS

MOV
JSR

s/ RO
S,0.FTYP

157
JSR
MOV
JSR

B8R

:CLOSE LOCATION
:CLOSE EVERYTHING
"RETURN TO DECODER
:CLOSE PRESENT CELL

(R§) +
5,0.CRLF
RS ‘RO
5,0.CADV

' GENERATE NEW ADDRESS
: (CR> <LF)>
*NUMBER TO TYPE
; TYPE OUT ADDRESS

O WRD1

.GO PROCESS IT

STYPE R 7

¢ 5 61EO UNIBUS RK& DR _PRTZ2
10-JAN-T8 09:43
cokRbl £ Pl
’

407
9408
9409
9410
il

MACYI1

30R( 1 OES
T YPE

ROR

L1Y4

10-JAN-78

11:25

ROUTINE

PRGE

180

g PROCESS ¢, OPEN PREVIOUS WORD
056216

00473~

0Sk222
00574S
056224 000762

057432

$.BRCK: JSR

737
:]

0S6226
056230
056232

006205
103737
006305

0Se234
0S6240

012700
004537

056246

005304

0S6244

056250
056252

160504

056254

005304
01N400
010402

056264

0C6200

066256
0S6eb2

056266

056270
056274

004837
010200

103402

004537
000137

700040
057364

PROCESS O,

b.0FST: ASR
8Cs
RSL

MOV
JSR

055774

€3
. FRR2
Rt

:GET LOW ORDER BIT
‘ERROR IF CLOSED
"RESTORE WORD

MOV

RY
R4, RO
R4’ R2

:
16 BIT OFFSET
:TYPE R

'SAVE R4

ASR

:DIVIDE BY TWO

SuB

JSR
MOV

B8CS
0.0F1:

OFFSET

rvpe ons BLANK
A SEPARATOR

DEC
MOV

057222

COMPUTE

a£~snnre
Nsu nooaess

8’ RO
S. O FTYP
RS R4

DEC

057222

.TCLS

-(k
0.0P2

JSR

JMP

5.5, CROV
R2,
RO

0.0F1

§.0.CARDV
0.0¢01

§ SERRCHES - SMSK

HAS THE MASK

con TE

*NUMBER IN RO - WORD MODE

:BRANCH IF 0DD

:NUMBE« IN RO - BYTE MODE

*ALL DONE

SMSK+2 HRS THE FWR
$MSK+4 HRS THE LWA

SEQ 2180

C2REIED unxeus RKE DR PRT2

CZR&IE.PI

10-JAN-78 09:43

9339

056304

002905

442
9443
3444

056316
(0S6322

013705
005108

8223

01567

9445

gyy
34y

928378
B8%E
056312 013703 0SS466
(0S6324

020237

055464

0S5470

10-JAN-78

TYPE ERROR ROUTINE

b.€EFF

4335 B2b3R9 Bg3aRt
9:39

MACY1l 3oa(xose)

o.fiscuz

11200

PAGE 181

SEQ 0181

:SET EFFECTIVE SERRCH

$L$

8 ups

Sé

MOV
COM

Ome
0.MSK+2,R2

:SET &O?DRSES§CHT FOUNG

CMP

0.MSK,RS
RS

{:SET
EHRCK
FOR OBIECT
onxcxn

R2,0.MSK+4

IS _THE SERRCH ALL DONE”

MOV

dR2, RO

GET

8:ERRi. 880
MOV
0.WDS2:

M1Y

11:25

BHI

o.gco

:SET MASK
*AND COMPLEMENT 1IT
:

0BJECT

9448
4y

0S6334
822338

005701
306 27

157
BNE

Rl
0.EFF

9451
3452

0Se342
056344

010403
040400

MOV
1

RY.R3
R4’ RO

9457

056356

MOV

RY, - (SP)

nscxsvsns Ra R4,

MOV
JSR

2’/ RO
S.0.FTYP

SLQSH 70 RO
TYPE IT

9453
9454
9455
9456
9458

10046

056346
056350
(056352
056354

042602
050003
040503
001016

056360

004537

010446

9459
(56364 01020
9460 056366 004537
9461
9462

9463
9464
9465
9466

94y6?
9468
9469

056372
056376

0S6402
05e404
056410

0Se412

0SE41IN
056416
(0S6420

012700
004537

011200
004637
012604

9472

056426

005203

9475

(0SH434

001747

9473
3474

3476
9477
9478

056430
056432

056436
0Se442

005200

(0SE4S4

9481

3483

g:gg

042700
110000

056452

9482

0Se4S6

0Se460

000057
057364

0s7222
0.WDS4:
0.EFF1:

0S&462

94390
9491

(0S6470
QSe472

05466

TST

-(SP)

(SP)+,R3
RO,R3
RS.R3
0. WDSY
5. 0.CRLF

Re,
RO
5,0.CRDV

k2, RO
S,0.CRDV
(8P)+,RY
(R2)+

0. WDS2
RO, RY
0.WDS3

ADD

Re.R3

RO, R3
R3

INC
CMP

R3
R3,RY

BIC
MOVB

#177900, RO
RO, RO

BEQ

177400

RO,

B8R
CMP
BEQ
INC

cCcC

WDS

:EXCLUSIVE OR
: 1S DONE

IN A VERY
FANEY MANNER HERE
nuo RESULT WITH MARSK
'RE-LOOP IF NO MATCH

STYPE <C

'GET
neno? ro TYPE
; TYPE ADDRESS

xncnsnsnr T0 NEXT CELL AND

RETU
(x)-xv
*TYPE IF EQUAL
;1S

2(X)

T0 R3

DX)4X

D (X)+X42
115 (X)+4X42=K?

*BRANCH

IF EQUAL

:WIPE OUT EXTRANEOUS BITS
JEXTEND SIGN

ASL
INC

RO
RO

sMULTIPLY BY TWO
‘ADD TWO

060200

ADD

R2.RO

:ADD PC

000735

INC

020004

CMP

105037

006204

103617
006304

057505

RO, R4

0.WDS3

AND RS ARE SAFE

GET CONTENTS
: TYPE conrsnrs
; RESTORE

006300
005200

9488

MOV
JSR
MOV

MOV

g:gg

9489

MOV
JSR

057222

005203
020304

000257

0SE446
056450

JSR

010003

0SE444

9479
480

057456

000743
020004
001755

0Se422

(0S6424

BIC
8IS
BIC
0.WDS3: BNE

005722

9470

9471

MOV

:NO
:BRANCH IF EFFECTIVE SEARCH

'1S THE RESULT R PROPER REL.

PROCESS G - GO

b.60:

CLRB

0.P

:DISALLOW PROCEED

BCS
RSL

0.ERR2
RY

:ERROR IF ODD NUMBER
:RESTORE WORD

ASR

*CHECK LOW ORDER BIT

BRANCH"

CZREIED UNIBUS RK& DR PRT2

CZRBIE.PILI

9492

9493
3494
9495
9496
9497

(0SE474

(0S6500
0S6506
056512
(QS6S516
(S6524

10-JAN-78 09:43

010437

112737
004537
105037
042737
017737

055456

000340
(057154
0S7504
000020
176742

MACY1l 30A(10S2)

TYPE ERROR ROUTINE

177776
0SS460

058476

3498
(56532 013777 0S7S46 176732
9499 (056540 012600

9500

056542

012601

9502
9503
9504

0S6546
056550
056552

012603
012604
012605

9506

056556

9501

9505

9507

gggg

056544

012606

056Ske

013746

056566

013746

000006

055456

9513

0S6S570

9515
9516
9517
9518
9519
9520
9521
9523

9522

gggg

;
:

MOV

0-UST.=(SP)

055474
000340
057154
000340

177776
177776

CLRB
1ST
BEQ
MOV
MOVB
JSR
MOVB

(0S6636

(052737

000020

0SS460

056644

105237

000735

057504

O.PRl:
0.Cl:

056646

DS5456

056652
056656
(56662
(056666
056670
056676

055460
057064
057504

3539
9540
9541

(056704
056710
(056712

055460

(056702

056716

055476
05S462
055462

177776

05730

0.UPC,-(5P)

THRU

AND SP

nno STATUS
AND PC

:CHANGED TO RTI FOR 1120 AND /05

0.P

;CHECK LEGALITY OF PROCEED

0.P
R2
0.PR1
RY,0.CT
80.S7M, ST
0.RStT
80.STM, ST

CLEQR PROCEED FLAG
:WAS COUNT SPECIFIED’
:NO
:YES, PUT AWAY COUNT
:FORCE HIGH PRIORITY
'RESTORE TTY
ssr HIGH PRIORITY

80. TBT,0.UST

SET -8IT

0.ERR!

0.7

0.602

NOT LEGAL

SET T-BIT FLAG

BREAKPOINT HANDLER

A TRT BRERKPOINT CAUSES O.BRK TQ BE ENTERED,

WHICH SRVES

VARIOUS 0DDS AND ENDS, FINDS QUT IF THE BREAKPOINT WAS LEGAL,
AND GIVES CONTROL TO tHE COMMAND DECODER

4.BRK:

0.BX1:
176574

MOV

.BK2:

.BK3:

(sp>+ 0.UPC

;PRIORITY IS 7 UPON ENTRY

MOV
JSR
1578
BNE
MOV
TSTB

(SP)+.0.UST
o,o.SOR
0.1
0.TBIT
O.UIN,20.ADR1
0.PRI

:SAVE STATUS AND PC
:SAVE VARIOUS Rscxsrsns
:CHECK FOR T-BIT SET
P JUMP IF SET
:REMOVE BREAKPOINTS
‘CHECK IF PRIORITY

MOVB
BR
MOVB

0.UST,RS
0.BK3
0.PRI,RS

;PICK UP USER UST IF SO
‘AND DON’T COMPUTE THE PRIORITY
ornsnuxss chx UP ACTUAL PRIORITY

BPL

356720

(QSE722
(0SE6724
056726

(SP)+.SP

INCB

BIS
!

#0.TB7,0.UST

;SET UP NEW PC

ONLY ALLOWED ARFTER A BREAKPOINT

057505

066632

80.5TM,ST
5,0 RSty
0.7

PROCESS P - PROCEED

105037
005702
001402
010437
112737
004537
112737

9532
9533
9534
9535
9536
9537

9547

(5P)+.R3
(SP)+.RY
(SP)+ RS

(0S6576
056602
056604
056606
(Se6ble
0S6620
0S6bed

!
:

9544
9545
9S4E

: RO

MOV
MOV
MOV

(SP)+.R2

BEQ

9528
gggg

9543

(SP)+ Rl

4.PROC: TSTB

9542

MOV

057505

001645

9527

9538

0.TRTC
bo ARDR1 :REPLACE
WITH TRAP
(5P)+,R0
*RESTORE

105737

056574

9526

3531

MOV
MOV

0. UIN
30.ADR1

0.RTIT: RTT
:

SEJ 0182

;SET _HIGH PRIORITY
{RESTORE TELETYPE
CLERR BOTH
T-BIT FLAGS
snvz INSTRUCTION

MOV

3510

PAGE 182

R4,0.UPC

MOV

055460

ggié
3514

0.G02:

N14

11:25

MOV

MovB
JSR
0.TBIT: CLRB
BIC
MOV

012602

056554

10-JAN-78

cCC

0.BK2

RORB

MOVB

RS, ST

RORB
RORB
RORB

RS
RS
RS

IS RS SAME RS USER PGM

:CLERR CAR

‘SRIFT LOH onoen BITS

;T
:
:

INTO
HIGH OWDER
POSITION

SPUT THE STATUS AWAY WHERE IT BELONGS

cLRsxeo UNIBUS RK& DR PRT2
CZREIE.PII
10-JAN-78 09:43

9548

056734

013705

(56740
0S674e
056746
(S6752
(0S6754

005745
010537
020537
001417
004537

o 10
0..472
057122

9566
9557
9568
9559

056770
086774
057000
(57002

012703
004537
010500
042737

057511
057350
000020

9561

(057012

005337

055474

012737
105237
004537

000001
057505
057122

004537

057364

9554

(56760

004637

MACY11 309(1052)
16-JAN-78
TYPE ERROR ROUTINE

MOV

0SS4S6

3549
9550
9551
o552
9653

057456

9562

9563
9564
9565
9566

9567

9568
9569
9570
gggé

057010

000420

057016

003302

057020
057026
057032
057036

057042

057046
057052
057056
057060

012700

013700
004537
00S00S
000137

0.82:

0S5474

057070
057074
057100
(057102

010637
012706
010546
0104946

9581
9582

057106
057110

010246
010146

057116
057120

005746
000200

9580

9583

9584
gggg

057104

057112

9590
959]
9582
9593
gggg

9600

3602
9603

BGT

0.Cl

0.CT

#i, 0.CT
0.P
5,0.5VTT
2B, RO

5,0.FTYP

:ERROR, NOTHING FOUND
: "AND CONTINUE

. JUMP IF REPEAT

JRESET COUNT TO 1
:ALLOW PROCEED
‘SAVE TELETYPE STATUS, R4 IS SAFE
TYPE “B"

0.ADR1,RD
5.0.CROV
RS
0.DCD

GET ADDRESS OF BREAK
: TYPE ADDRESS
'CLEAR CAD
:GO TO DECODER

(SP)+,0. XXX

;PICK REGISTER FROM STACK AND SAVE

R3.-(5P)

' SAVE REGISTERS RO-R6 IN INTERNAL STACK

4.svR:

055454
055454

MoV

MOV
MOV
MOV
MOV

SP, 0. USP
%0, USP, SP
RS, -(SP)
R4, ~(SP)

MOV
MOV

R2,-(SP)
RI.-(5P)

TST
RTS

-{SP)
RO

MOV

057502

MOV

0. %xX, -(SP)

'SAVE USER STACK ADCRESS
'SET _TO INTERNAL STACK
:SQVE
: "REGISTERS
:
:

"THRU

'PUT SAVED REGISTER ON STACK

. SAVE TELETYPE STATUS
(0S7122

057130
057136
(057142
(0S7i46
057152

113737

113737
105037
105037
004537
00020S

177560

177564
177560
17756M
057456

057506

057507

O.SVTT: MOVB

MOVB
CLRB
CLRB
JSR
RTS

0.RCSR,0.CSR1

0.TCSR.,0.CSR2
0.RCSR
0.TCSR
5.0.CRLF
RS

;SAVE R C/SR

:SAVE
T C-SR
:CLEAR ENABLE AND MAINTENANCE
:
"BITS IN BOTH C/SR
:TYPE (CR,LF>

: RESTORE TELETYPE STATUS
(0S7154

004537

057456

b.RSTT: JSR

9599 (057160 105737 177564
9601

0.83

DEC

MOV
JSR
CLR
JMp

gggg
9598

.CRLF

ob 80, RY

055472
057222

gggg
9589

;OUTPUT "BE” FOR BAD ENTRY
:CLEAR OUT ANY POSSIBLE FAKE T-BIT

JSR

010346

013746

IT POINTS TO THE TRT

#0.8D+1,R3
5.0.TYPE
RS, RO
%0’ TBT,0.UST

MOV

3233
3575 (S706M 012637 057502

9576
9577
9578
9579

:GET PC

MOV
JSR
MOV
BIC

000102

055770

0.UPC,RS

SEG 0183

'SUBTRALT
'FROM THE usen S pC
:COMPARE WITH LIST
:JUMP IF FOUND
:SAVE TELETYPE STATUS

MOV
INCB
0.B3:

PAGE 183

-(RS)
RS,0.UPC
RS’ 0.ADRI
0.82
s,o SVTT

MOV
055460

11:85

TET
MOV
CMP
BEQ
JSR
JSR

9555 (066764 012704 057510

9560

B1S

057164

057166

067174
057176

100375

032737

001403
105737

004000

177560

1578

S,0.CRLF

0. TCSR

sWRIT nshov ON PRINTER

BIT

#4000, 0. RCSR

:CHECK BUSY FLAG ON RERDER

BPL

BEQ
TSTB

0.RSE]
0.RCSR

CR,LF> BEFORE RESTORING

:SKIP READY LOCP IF NOT BUSY
‘WAIT READY

CZRBIED UNIBUS RKE DR PRT2
10-JAN-78 09:43
CZRBIE.P11
057202

177560
177564

0. RSE1:

(@
TRTR

TR Y]

057220

100375
113737
113737
000205

3?9(1052)
10-JAN-78
YPE ERROR ROUTINE

057222
057224
057230
057234
057236
057052

057545
000060
177770

BPL

MOVB

MOVEB
RTS

-4

0.CSR1,0.RCSR

.CADV:

MOV
M

.SPC:

MOV

R2,-(SP)

oo BUF +6 , R4
o(SPS

01??770 R2

004537
0lee0e2
00020s

ON RERDER

§HE gTQTUS REGISTERS

GHT

OO.BUF#&,R3
5,0.TYPE

057545
057350

; BUFFER STRART_RADDRESS
; CONSTANT ASCII O
GET

CHARACTER
CTQ%

RY, 80.BUF+1
0.8PC
8177776, RO

(5P)+ RO
- (RY)
RO,

; SAVE R2

CONVERT Q RSCII
:STORE IN BUFFER
SS{FT THIS MESS

RO
RO

177776

827878 412903

SEQ 0184

IN RO

057540

057266

0.C3RZ,C.TCSR
RS

R2, - (RY)
RrRG’

Qzosp3

184

PARGE

TYPE QUT CONTENTS OF WORD OR BYTE WITH ONE TRAILING SPACE

WORD

2544

057246
057250
057252
g57254

057276
057302
057304

ClS

11:25

JSP,R2

EHREE WHOLE PLRCES

'GET LAST BIT

}CONVERT 70 ASCIT

;600 PUT’ IT AKAY

:TYPE WHOLE STRING OF CHARACTERS
:RESTORE R2

GENERAL CHARACTER INPUT <OUTINE
CHARACTER INPUT GOES TO RO
057306

195737
100375
113700
004537

.GET:

177560

TSTB

0 RCSR

o RDB RO

177562
057364
177600

Fivyp

o177soo RO

HRIT FOR
INPUT FROM KEYBORRD

GET A _CHARACTER
:ECHO CHARACTER
STRIP OFF PARITY FROM CHARACTER

000040
000073
057346

057350
057352
057354
057356
057362

IGNORE THEM IF FOUND

00020S

020304
103426
112400
004537
000772

[e TRTETRT T

604

MRCY11

GENERRL CHARACTER OUTPUT ROUTINE
IRST BYTE IN R4
ADDRESS OF

ADDRESS OF LRST BYTE IN R3, "(R3)> (RY)

.TYPE:

057364
TYPE

057364

105737

177564

.FTYP:

CHECK FOR COMPLETION
: EXIT WHEN DONE

CMP
BLO
MOovB
JSR
BR

A CHARACTER
:GET
:TYPE ONE CHARACTER
:LOOP UNTIL DONE

ONLY ONE CHARACTER

TST8B

0.TCSR

(CONTARINED IN RO)
; CHECK STATUS

CZR6EIED UNIBUS RKb DR PRT2
CZRGIE. Pll
10-JAN-78 09:43

887378

30A(10S2)
10-JAN-78
TYPE ERROR ROUTINE

.TyP2:

TSTB

177566

Oerereses O

057424
057426
057430

057432
057434
057436
057440
g5744

[o]e)

7494

012703

057S0e

057504
05750S

000000
oo
000

057506
057s07

000
000

057510

042502

057513

0sS7514
gszsie
057350

OOecececes

0S7456
057462
0S746M
Q57477
057474
057500

055754

000137

.TYP1:

TST

RTS

sWARIT UNTIL RERDY
*TYPE ONE CHARACTER

1S CHAR TO BE FILLED?
; NO
:YES,

N4y, - (SP)

0.TCSR
0.TiP2

INIT THE COUNT

gg;oe

:GENERATE NULL FILLER

0.TYP2
(gp)+

:POP STACK

UPON ENTERING, R2 HAS NUMERYC FLARG, R4 HRS CONTENTS
.TCLS:

.CLS1:
TC:

ASR

BCS

RTS

0.CRLF - TYPE

:"ET LOW ORDER BIT
;JUMP IF ALREADY CLOSED

0.7C
RS
R2

; IF NO NUMBER WARS TYPED THERE IS

PC
-(SP)
0.ERR

'AND SCREAM BLOODY MURDER

N?OSHQNgfi T0 THE OPEN CELL

R bR

; POP EXTRA CELL FROM STACK

<CR,LF>

0.CRLS - TYPE <CR,LF>¥
.CRLS:
.CRS:

MOV
BR
MOV
MOV
JSR
RTS

.¥XX:

. WORD

.CRLF:

:LWA <CR,LF>

goccg+1,R3
80. cn+a R3

sLWA

JFWA

<CR,LF>#

#0.CR,RY

o.r?ps
Ré

:TYPE SOMETHING

0
0

TEHPORQRY sronnce
T-BIT FLAG

or nLLouso
N
PROCEED FLAG = O IF PROCEED

0
0

snvs CELL - R C/SR
:SAVE CELL - T C/SR

OOBE

015
Ole

0S?514

0s7see

SEQ Q18S

18S

CLOSE WORD OR BYTE AND EXIT

0s7sie
057513

0S751S

PRGE

RO J#4S
0.tvPi

000044
17756M

ga7d48

D15

11:25

-y
RO,0.708

177566
000045

057376
057402
0S7404
0S7410
0S7414

057446
057450
057452

MACr1ll

.LGCH:

.gYTE

i
i

‘%

;

ggs
0l2
-

#*
/

gnnaxncs RETURN

RT3

IF PROCEED

ALLOWED

MACY1!l

30R(°J52)
10-JAN-78
TYP. ERROR ROUTINE
B ;

057523

'E
'B

i
;

E
B

'pP

057531
0S7532
057533
0s7534
0S753S
057536

]

psE472
0SSH7Y
0ss476

049

000003

0Ss440

000007
000000
000000
000000

000000
000000
000000
0oaoo!

?BYTE

-0.7

; THE
; ORDER
s HERE

.EVEN

LENGTH

;6 CHRR.

BUFFER WITH

. TRAILING BLANK

; TRRCE TRAP PROTOTYPE
&.TRTC: TRT
gTHE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL
’

0.URD:

O0O0O0ONOOO0O0O00000oN

0SS440
0SSH42
0OS544Y
055446
05S4S0
0ss4se
0SS4SY
055456
055460
055462
g5546M
055466
0ss470

b.8UF:

;D0

sNOT
; CHANGE

; TRBLE

:
RS
;USER SP
;USER PC

ccC
voy
—O

057546

057545

0 LG

0
0
‘B

00000

057545

'p
'M

;

faYale TRIRIED

057537

-0.LGCH

;

SEQ 0186

186

;

0S7S30

PAGE

000006

ELS

11:25

onNLWwh--

0 UNIBUS RK& DR PRTZ2
.P11
10-JAN-78 09:43

BREAK POINT LISTS, ADR1 = RDDRESS OF BRERKPOINT,CT = COUNT,

;USER ST
;:0DT PRIORITY
;s MASK

;LOW LIMIT
sHIGH LIMIT

UIN = CONTENTS

.ADR1:
.CT:
.UIN:

0
0
o
.END

CZR6IED UNIBUS RK& DR PRT2
CZR6IE.P11
10-JAN-78 09:43
ABASE =

177440

1889

ACDWI =
ACOW2 =
ACLO
=
ACPUOP=
ACTII
ADDWO =
ADDWI =
ADDW10=

0000Q0
000000
000010
000000
007470
000000
000000
000000

1889
1889
12458
1883
21228
1889
1889
1889

ADOW12=
ADDW13=
ADDW14=
AGCOW15=
DOW2
=
ADDW3 =

00000Q
DOCOOO
000000
000000
DOOCO00
000000

1889
1889
1889
1889
1889
1889

ADDMW1 1 =

ADDWY

FL1S

MACY11l 30A(1052)
10-JAN-78
11:25
PAGE 188
CROSS REFERENCE TRBLE -- USER SYMBO.S
1930

1932
1933

19448

1904
3298%
1934
1935

1889

1936
1937

000000

1889

1938

ADOWE =
ADDW? =
ADDW8 =
ADDWS =
ADEVCT=
ADEVM =
AENV
=
AENVM =
AFATAL=
AMARDRI=
AMADR2=
AMADR3=
AMADRY=
AMAMS1=
AMAMS2=
AMAMS3=

00
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

1889
1889
1889
1889
1889
1889
1889
1889
1889
1889
1889
1889
1889
1889
1889
1889

1940
1941

AMSGTY=
AMTYP1=
AMTYP2=
AMTYP3=
AMTYP4=
APASS =
APRIOR=
APTCSU=
APTENV=
APTSIZ=
APTSPO=
ASWREG=

000000
000000
000000
000000
000000
000000
000000
DO00Y0
000001
000200
000100
000000

1889
1889
1889
1889
1889
1889
1889
7279
5976
3226
7279
1889

7409
1902

7450

ATTN
AUNIT
AUSWR

007344
000000
000000

20558
1889
1889

6183
189
1903

6202

6228

007340

504Ss

3306%

4020#

4151+

ADDWS

= 000000

AMAMSY= 000000
AMSGAD= 000000
AMSGLG= 000000

ATESTN= 000000
=
=

EVEC
TS 0R00
BROHDR

SEQ .87

1889

1889
1889
1889

1889

1939

1895
1931
1900
1901
1892
19i7
1921
1924
1927
1911
1319
1922

1925
1897
1898

1891
1912
1920
1923
1926
1894

74518
7226
7448w

1893

1929

7272

THO7

.
7449w

4418s

u4p08*

5708

5923%

5926%

6935

cZRBIEQ UNIBUS Rkb DR PRTZ2
cZReIE.PLIL
10-JAN-78 09:43
BADTMO

BAI

036570

= 000020

ie
1 e
2740 = BBABRT
= 000001
BI700

BITOl
BIT02
81703
BITO4
BITQS
BITOB
BITO7
BIT08
BITOS
BIT1

BIT10
BIT11
BITi2
BIT13
BITI4

=
=
=
=
=
=
=
=
=
=

000002
000004
£0Q010
000020
0DOO4Q
000100
000200
000400
001000
000002

MACY1l 30R(10S2)
10-JAN-78
11:25_ PAGE 189
CROSS REFERENCE TRBLE -- USER SYMBOLS

338C

69898

5776

5821

12088

o
11378
11278

11268
11258
11298
11238
11228
11218
11208
11198
11188
11368

716l
7169
2113

7237

1233
1234
1235
123
1237

1265
1251
1267
1252
1253

1279
1266
1281
1268
129

1293
1280
1295
1282
leed

1219

1238

1254

1246
lgy7
1229
1233

1259
lgeg
1248
1249

=
=
=
=

000020
000040
000100
000200

11338
liges
113Is
11308

1208
1209
1192
1193

1227
1228
1210
1all

BIT8
BIT9

= DOO400
= 001000

1231
1232

1250
1264

1283
1278

1277
1292

12308

4065

4172

4236

4462

4933

5278

003336
005336

20388
20408

3870
3941

3931
668D

3%B
R78S

6676

.
678l

001516

20308

3408%

36S5¥

6370

594

3603

3630

3634

3638

3642

8923

4591
8347

S879%

BE4Y

BESS

6657

6711

4075
5573

4182
5594

4472
B4I0

4693
64IB

4703

4943

394
3881
4802

369
3986
4865

4038
4930

4062
4989

Y144

4169

001512
002336
004336

BYP

033026

CFMT

CHVFLG

CHKMSG

2114
fe4s

7eal

1212
1213

BSERR
BSE20H
BSE20S

0T~
CERR

1244
1226

7176

5130

BPTVEC= 000014

cCYL

1225
1307

I214
1215
1216
1217
1218

S106

4872

BSE _ = 000200

001362
=

46~
3

6880

BITY4
BITS
BITE
BIT7

CCLRTM

3411

3421

1202

CALDIF

1314
l2es
1275
127

2112

1201

CALADD

1287
lg7y
1261
1262

1242

1112

BYPCER

6689

12283

100000

BSE22H
BSE22S

6678

1191
1137

BIT1S =

001354

100000

001350

= 002000
= 100000
= 010000
001520

033042

4775

1270

498l

119
1197
1198
1193
200

11358
11398

6693

4921

11178
11168
11168
1i19%
jiigs

= DOOOOM
= 0000IO

6682

4519

002000
004000
010000
020000
040000

BIT2
BIT3

1334

4449

=
=
=
=
=

1129%
11288
11594

20288
20378
20398

3497

19718

19688

1202%
5288

19668

11968
12018
4S28

1194
1195

3923
3950
3953

3625

3334%
6687
6631

3529

H4134s

4421%

3835
5404

3850
5419

S768%

3512
3976
4601

3613
3887
4745

H01l
6792
6796

5766

5788

5833

5889

5913

20318

6265%

6348

6351

6355

11988

3833

4427

4087

9930

4106

9453

9134

4456

4213

S469

Se42

4311

€268

5344

ssae

9162

1136
1135
1139
1133
1132
1131
1130
1129
1128
1224

SEJ 0188

B426

5275

6434

5352

6372

6467
u§s@22

4525

4557

4280

4277

4339
437y

4358

4494

5548

S008
5587

4723

CZR6IEDQ UNIBUS RK& DR PRTZ2
CZREIE.P1IL
10-JAN-78 09:43

CLKOF

CLKON
CLOCK

ik
036134

11798
68518

00001S

b
Be3L

CRLF
CcT0
cyL
CYLRDD

000200
004000
001i4ee

CYLDIF

001356

cyL?
DRTAD
DATADIL
DRTAIL

001436
001474
001476
001500

DRTCMD

032262

DCK
DCLO
DCPAR
DDISP
ODPCH

100000
000020
020000
177570
007466
Qog.go
007464
0S4534
0S4e64

poT

DDUMP
DF1
DF 10
DF 14

5475

54 1¢

3 852

46935

5256

5421

SEQ 0189

SS3e

5097

5180

846
BoRd

8208
BE8

6331

2808*

=
BY94
6543

6495%

§332:

4726

6496

6498%

6S16#

4295

4371

5267

5343

5357

4300

4312

4325

4448

Hi41

4166

423l

2193s

6956

6840
S988e

chpFLe
COUNT
CR

6132

30A(10S2)

001360

b8Yl#

6148

8554

8517
1053

5238%

b492*
%
6540
6460
4160

Se4l
40S4
5820

5e8%"

5272

5349

8147
8226

8133

8el q

B33
5853

S473

8171
8245

8176
8251

6529+

6530»

6548+

B33

8532

#
6527

6528+

9778

4783

6535+

6536*

48s0

5328
6537#

BY90»

4518

4533

4920

4980

4394

S10S

4317

4375

4428

445y

4523

4598

4800

2201l

2342

a24e?

2467

2472

a2sle

2833

6525%
4731

5526

65264
4772%

5730

6517%

5780

5825

5886

6113

6538»

nururny
mLuE
— oU
o wo

CriEE".

PAGE 190
11:25
10-JAN-78
CROSS REFERE'CE TABLE -- USER SYMBOLS

MACY1l

QS4704
0s4724
054744
0S4550
0S4770
055014

0S50S0
0ssSio4
05455y
0S4600
OS4614
0s4e40
DE1eM4T

Lot
Lk |
VDO
e
e
e
s
e Ps

DNEW--O

o jololelala)l
p « ITIIXITXIT

E 0 UNIBUS Rkb DR PRT2
E .P 1l
10-JAN-78 (09:43

0Sel3v
052163
052200

0S1664

MACY11l

30A(1052)

10-JAN-78

I1S

11:25

PRGE

191

SEQ 0190

CROSS REFERENCE TRBLE -- USER 3YMBOL.S
9116

9131

9084

9094

9109

9124

2933
e4se

2938
as1?

8801s
2532

2537

880S»

9035

907S

9086

3036

a1l

9126

3109

8814

2232
3139

8823

4696

4738

9071

9082

9090

9101

9040

9052

a2s8e

2908

87718

9022

90343

9073

2702
2322
2637
2246
226b
9133
9137
9024

3089
233e
2858
22?71
2352

87884
87938

28C3
9:35
2e8?
3104

2642

247

2652

240~

2412

8889

7191%

7213%

62468

b248

3979
sisl
6957

3440
3458

903!
2813

2387
8775s
3018

0Sa417
0se4se
s

052663
052673
0S1734
052703
05273S

8746

2657

8879

Y431
5217

4457
5257

4495

S407

S4ee

5582

§597

5748

3456+
35e9

3486#*
6026

35Cs

3607

367H

5943

B043x

8905#

0
032224

007522

0074TH
00747

4526

4558

4636

5629
5534

5306

4858

6i02s

CZREIEO _UNIBUS Rk& DR _PRT 2

10-JAN-78 09: 43

CSRBIE.PLL

DRIV]
DRIVE

DRIV3

DRIVY
DRIVS
DRIVE
ORIV?
DROT
=
DRPAR =
DRvMSK=
DRYPTR
DSC
OSWR
OYE
DTYE

DT1

007500
007502

21308
2l3ls

007506
007S10
007S12
007514
000040
000010
000007
001342

2133
2134s
2135
21368
12478
12268
12068
19628

007s0u4

= 040000
= 177570
= 010000
= 000040

083732

DT13

psue?o

12538
10588
12358
12288

3479
3310%

3590
3679

1863

3213

3510

36l

2130
2298

2196
2303

2202
2338

2207
2343

eele
2348

2217
2353

22ee
2388

2ee?
o418

2237
ouve3

2588
2824
225?
2393

2593
2829
eeb?
2398

2598
2864
2272
2403

260¢
2934
2283
2408

ebl3
2939
2288
2413

2638
2944
2293
2643

2688
2949
2308
2648

2703
2959
2313
2653

2789
2964
2318
2658

2799
2969
2323
2909

2804
300%
2373
2914

2809
89158
2378
3065

e8l4

2363

2488

250°

2508

2543

o548

2573

2578

8973

2859

8923

4eri

4333

4352

4386

5507

cgy4e

Sc61

5667

2463

gggg

2468

)

2358

D14

053776

2533

8922
2538

2834

8939

D17

o) (:]

0S4110

054156

D19
0s4224
D.ACLO= Q00100

D.BRHM= 0001CO

3697«

2179
2278

2333

os404Y

839844
2328

223c

3000

2242

3100

8931

2473

3105

2493

3110

2498

3118

8955

4541

4568

3887

4081

4100

4188

4207

gee’

5240

5294

6313

5365

5384

seee

6240

529

6313

129Cs

3887

4081

D.DRAR = 000040

52ee
12748

S240
388S

Se4
4079

0.DRDY= 0002090

see0
12768

5238
3885

5292
4079

311

6363

e382

D.D0T = 000400

0.DOOR= 000200

D.DROT=
D.DSC =
D.FLT =
D.FORM=
O.FWD =
D.HOFL=
D.HOHM=

020000
040000
000200
001000
002000
000200
000UM0

12918
4841
127748

4541

4§39

4539

130Ss
12838
13038
12788
1293
13178
12884

2513

3120

esi8

3125

2553

3130

2558

3135

2sSe3

3140

2568

3145

2583

2383

3070

31580

89478

2368
13028

1289

D.CRART= 000400

SEQ 0191

ei73
22cbe

054350

D76

PAGE 192

2167
2252

DT14

0S4440
053772

11:25

2161
2247

g?gg
DT1S
D13

10-JAN-78

CROSS REFERENCE TABLE -- USER 3YMBO.S

2132

2428

MACY1l 30R(1052)

J15

3887
4568
3718

4568

4566

S784
4657
4497
6605

Y641l

408l
4641
464]

46539
4657

£829
4758
4560

4659

471l

4oSH4

4760

4823

4949

5488

4968

5002

4271
4949

4333
4968

4478

4505

S0el

5063

S081

4362
5002

4386
Snel

4478
5063

4505
Sg8l

5796

S84}

4100
4659

4188
4711

ueQ?
4760

Y25y
4823

S488

5507

4100

4188

4207

4254

Yyaz1

4333

4352

4386

Y47

4505

5313
4098

5365
4186

5384
4205

5488
4252

§507
4269

5542
4331

SS61
4350

5667
4384

5796
Y476

5841
4503

8311
4098

6363
4186

5382
Y205

5486
4252

§50S
4269

5540
4331

5559
4350

5665
4384

S794
Y476

S486

5508

5540

§589

5665

5794

$839

5079

5238

4659
4657

4709

5365

4711

4709
4758

5384
4760
4758

482l

4823
4821

4q4?

4949
4947

4966

5542
4968

4966

5000

11 Y

5002

S000
S019

5667
5021

5019

5079

796

S063

5061

5238

c841
S081

S079

5839
4503
Se29e

O
OO000000000O0000

K15

C UNIBUS Rk DR PRTZ2
P11
10-JAN-78 09:43
= 000040
= 000400
= 020000

13018
13048
13238

= 002000

12798

4639

4657

4705

12828

4639

=101°9

5220

12968

3843

5171

1281s
4539
?ggg

3885
4566
5238

12928
4S41

= 010000
= 000400
= 310000

= 001000

= 020000

12958
13i8%
13228

4752

S412

5587

6947

4079
4639
5292

4098
4657
8311

4186
4709
5363

3887
4568

4081
441l

4100
4659

1287
4YS41
see2e

3887
4568
5240

4081
qou4l
5234

1278
4476

3785
4503

3798
4539

§794
13058
13168
1307
12808
13198
12688
12298
11978
6052
2134
2531
2571
2200

5839

13218
12948

= 000020
= 002000

13148
13068

= 010000

0o
O

= 000020

lelelelele)

0000

=
=
=
=

1000

040000
002000
040000
040000

= 000100

]

Seee

13248
13208
12974
13108

MMMMMMMMMoOOO0
00
XXX

sgbl

000040
000100
*29000
Q4000
001000
020000
000100
000030
046137
046713
051560
051615
046776
047100
o4z1e2
Q47160
Q47267

047418

NNHH’—HNHP

OONONEW

047042

P—-000
-0

Pt o e Pt po Pme

=
=
=
=
XERR=
=
=
=

047332
047353
Q47374

046213

2805
2301
2326
2341
2342

SEQ 3192

bbee

4709

13058

= 004000
= 004000

= 0200C0

mmmmMmmmmm
ITTIXIIIIXIX

MACY1l 30A(10S2)
10-JAN-78
11:25
PAGE 193
CROSS REFERENCE TRBLE -- USER SYMBOLS

Sa240

4842

S0el

5079

s220

5238

4205
4758
5382

4252
4821l
5486

4269
4gy?7
550S

4331
4966
SS40

4350
5000
5559

4394
S019
5665

Y476
Sg61
S794

4503
5079
5839

4188
4711

4207
4760

42sY
4823

4271
4949

4333
4968

4352
5002

4386
s021

4478
S063

4505
sg8l

4100
4659
5313

4188
4711
5365

4207
4760
S384

4a54
4823
5488

4e71
4949
5507

4333
4968
5542

4352
5002
SSel

4386
S0el
S667

4478
5063
5796

450S
s081
S84l

3885
4566

4079
4639

4098
4657

4186
4709

4205
4768

4252
4821

4269
4947

4331
43k

4350
S000

438Y
5019

2225

2551

@556

2%kl

2566

2581

2606

2686

2787

2461

2611

BYE2

5294

5079

5220

3197%
B376#
8442w
8700s
8758
B451s

e2ls

4758

2386
8465
8470w
2947

5313

5238

5365

5292

5384

S31!

5488

5363

5507

5382

SSye

S486

SSe1l

5505

5667

SS40

2371
2270
416

2381
2286
2376

2957

2962

23%
o406
2391

B4l
o6ME
2401

2907
3068
2651

3063
3088
2912

3118
3098
3123

3138
3108
3143

3148
3128
3153

8489
B492s
B495s

2265

2281

2291

2321

@41l

2856

3093

3103

3113

3133

8498s

B384

8559

S84l

SgeS

3198%

2306
2255
2311

2159

5796

8483w

2822

L1S

CZRBIED UNIBUS Rke DR _PRT2
CZRBIE.PIL
10-JAN-78 09:43

MACY11l 30R(10S2)
10-JAN-78
11:25
PAGE 194
CROSS REFERENCE TABLE -- USER SYMBO.S

EMel

e220
8504#

EmMe2
EM23
EMSY
EMcS
EM26
EM27
EM3
EM36
EM39
EMY
EM40
EMY1

Q47436
Q47460

Q47565
047665
047720
Q47772
0500S1
046303
0s0170
050233
046356
050302
050340

2471
2276
2351
2416
2426
6993
2536
2356
g402s
2361
2331

050406
Q46453
050441
050462
0s0s04
Q46474

2701
2171
2797
c83e
2967
el77

EMS

o46e432

EM?73

0s0S3S

EMBO0

0so6e4

EMSS
EME
EME3
EMES
EME9
EM7

EM7Y
EM79
ENB

2210
2466

85174
8529
85344
BS54l
85494
83%4s
2857
es0l
2506
gs8ls

2165

2536

2586

86044

85888
8413w
8593
85968
8599
g4lb#

050556
050603
046563

3003
2591
B426#

8607
%
86lls

EMB1
EM82
EMB3
EMBY

0S0663
050727
0s1001
051036

2235
2au40
2eus
2587

86204
86278
8635
2592

EM8B
EMB8

0S1172
051230

2541
24el

2546
geb1n

EM8BS

Ehds
EM3Y

gsiia?

Qsiorl
821’5

EMIS
EMIb
EMS7

051406
051442
051473

ESEC

001400

ERRVEC= 0000CH

E.RO

E.R!L

E.R2

E.R3
£.80

007444

007450

007454

007460
007446

2230

2336

22s0

2260

2802

2998
2636

8S63%
2807

8569

esle

85768

SEQ 0193

2827

28ebe

2937

8501s

8410w

86148

2346

2597

8640w

2576

86568

86508

S36
248

geo7s
8676%

114908
3381%

2ll
7152

Jelex
7153%

3223*
7155%

3230%
7158%

3231x

3244k

32454

3313%

3317»

3380*

21018
4E39%
Sco0*
b2b3*
21038

3885%
MS5H6%
5238%
6273*
3887%

4079%
MB3I®
5292%
6277
408l%

4098%
46S7x
S311¥
6279%
4100%

4186%
4709x
5363
6308
4188%

' 20S*
4758
5382%
8963
4207%

4252%
4B21#
S4B86#
8973
H2SH®

4269%
HIYTH
S50S#
8984
H271#

qgax:
4966#

SS40#*

2300%
9#

§55

S079x
S839%

4333
4968%

435

4S0S»

2491
251l
2516

19818

}

2436
86868
63l

8681

YEY1#
Scc2%
6270%
21058

N568%
S240#
628
3889%

MBMI®
S294*
6283%
40B83%

MES9®
S313%
6328
4102%

S367%

5386%

S490%

6272%
3886%
4YS67 %

4080%
Y640%

HE43%

8384
21078
2i0cs
YSYO»

NS570%

Mbblx®

H71l®
5365%
8963
4130%

4760%
5384%
8973
H4209%

4B23*
S5488%
8984
H42SbE

S509%

S544®

4099%
4658%

4187%
4710%

47h2%

NB825%

4949
S5507#

5563%

4970%

5669%

H4273#
SO04*

420bx
4759

42S3*
4822k

49S1x

Sc92*
43354#

S561%
43544#

4S503»

S5081#»
SB4Y1x
4S07#%

5798

S023x»
S843x

S083#
6271
%

S315»
8973

H270#
4948
%

4332%
%
4967

4351#
SO01
*

4S504»

S080»

CZRBIED UNIBUS Rkt DR PRTZ2
10-JAN-78 09:43
CZREIE.PILI

£.81

007452

£.B8e

007456

E.B3

007462

E.ODT

015444

FATTY
FRTT2
FHOHM
FHDTAB
FLGTSY

032634
032730
835070
035212
(035472

FMTE
=
FMT]
FORM
FORMART
FRCYL
FRDY

000020
001470
031174
(001466
001344
032320

FTITLE

Q001340

GDORVS

031766

FLORD

FRDY!
FSEC23
GBA

GINT

GNS

035144

032366
035000

30R(10S2)

6239
*
6291
3888#

S293*
5318

4SE9%

4oBge*
YoucH

5312%
8963

S364%
8973

4660%

4712%

Y$10]#

G314#%

5383%
8984

SEQ 0194

S4B7#

SS41x

§795»

4189%

4208%

4255%

4334#

Y479

S366#

5385#%

S489»

SS43»

8797%

Y42 10%

Ya57#

43364

4481

SSE4#

S670#

S84Sx

8984

4ZblE

8984

4B24s

8963

8973

47634

4826 #

49524

4192
4B27%
SS46%

4211
4953k
5565%

4258w
4972k

6199

6329

6951

c881%

6645

6674

358S

S6S6

6105

6llb

8105

8106

8107

8109

Bll1l

8113

4037

4061

4233

4377

4103%

SS10%

4109%
Y764%
gg;%l
5591

YiSla

S5S4Sx

4862

5078

5882
6692

6635
67048

6647 %
6965

6652

4593
8947
3576

5234

49714

S671#

6226

8752

61284

6131

462

832126

032184
EREEER

GO
= 000001
033664
GSTAT

GSTAT!
033720
GSTRT2
034150
GTSWR = 104406

HASOF
HBA
HCS1

cecl#
6289

M1S

10-JAN-78
11:25
PAGE 195
CROSS REFERENCE TABLE -- USER SYMBO.S

MACY1]l

007372
007362
007354

5170
6208
BY36

BHYYS

8919
8928
3470

8328
B936
3476

4034 #
Yyq27%
4635%

4038
4930%
4635

6372
6956%
3521
6lbl®
8919

S097#*
S476
E779%

HCSe

0073S6

HDA

007364

S274
313

4143

4168

5327
6233

6351
6237

411
6397

8936
8944
3579»

8944
8952
S80#*

89s2
2960

40S8*
4433
4737%

4062
446 3%
4745

6376
8916
3533
B381
8928

5109
5525
5788

Y140%
%
4456
4799

B399
892S
3616
£385

S180%
SS8l#
5833

b444s
8933
3618
8916

S2lbs
G596#
cB8B8S#*
6445Sx
894}
3622
8925

8936

8944

8ase

S165#
5529
5g24#

B477

8993
3BS2*

S840

CZREIED UNIBUS RK& DR _PRTZ
CZRBIE.P11
10-JAN-78 09:43
HDB

007376

20748

0067366
001522

20708
2Cc33%

HDC

007374

HOWD

001510

HDS
HDTAB

HDI
HEAD

HERDR

20738

6l68%

c0c6s

8939

20138

6568%

20148
20128

067370

c071ls
8925
2075

3510
8933
6169%

8925

8933

20798

6173%

HMR1

Q07400

HMR3

007404

20768
S4le
8916
20778

HOLD

0324SH

6132

HPEND

007342

20478

HMR2

007402

HPAT

007410

H5639%
M4135%

8919

3928
B9lb
4130

8936

8925
Y41S

8y /M4

g89se

6640%
44ycex
6£569%
3611
8941
8916

6EMI®
4592
6570%
4065
8949
8925

6b42%
SBEO®

6643*
6639

BEY4®
6716

B6SI

Y4172
8957
8933

4236
8967
g4l

Y243
8978
8349

Y462
8990
8957

8949

8957

8367

8978

8990

3620
4028

6l165%
4031

3478
5587
892S
5784

3589
bl46®
8933
5829

3750
B1S1%
8941
6l47%

6136

61608

6408

3307%

5920

6571#%

3785
B170%
8949
6152%

3798
BY4IS
8957
Bl71%

8928

8936

8944

8919

8328

8936

8941

8919

S922%

£937%

6548
B558

8976
6568

3717%
3315%
3316

37248

8186
8257
8335

8192
8263
8341

8198
8271
8349

8204
82
8355

20294
19508
3713%

3314
3720%

3721%

6B832%
37268

37278

BB53*%
6436

BN9l

3719%
3515
3233

37258
3616
3242

5743
6385

[

b4o4*
6416%

[

20958
c097%
12338
1192
12234
6094
11458
12108
3710%
21388
19528

o
Q
[
o

007436
007442
002000
000100
000001
036720
000020
000100
015434
007516
001330

HNn

H.B2
H.B3
IDRE
=
1€
=
ILF__
=
INTER
I0TVEC=
IR
=
LC
LCLKF
LCVEC

LIMERR
LKS
M3SK

001514
0013ee
015440

MCLK
=
MC1
MDS
=
MeMBAS=
MEMERR
MEMPRR

000400
015436
001000
172100
036656
013056

MASK1

0l5442

8s1z

3714%

12634
371ex
12138
19568
3236
3230%

8522

7019

6439

6478

65es

8316

8171

8963

732

S171
6947

8163

e439%

10518

4Ya4e
6622

8993

8987
8387

= 000012

4752
660S

8381

8976
8976
8987

8990

8970

8963
B963
837e

7033%
3195%

8978

8360

6438%
6431x
B53S

4705
64390

8987

8976

8987

8131

8133

8387
8387

8967

8952

6308
6328
e423%
H415#%
6318

8976

8916

8993

e090s
209%2s
20948
20968
2091ls

8963

blebxr

8381

007424
007430
007434
007440
007426

6432*

S479

8970

H.AD
H.Al
H.R2
H.A3
H.BO

6338

5278

8360

BI4Y4

2093s

4933

8952

8936

007432

8990

8344

8328

H.B1

8978
6637

8993

8919

6843

8993

8967
5875

8981

blee®

19738

8981

8957
572S

8970

20678

001364

8970

8343
§7ee

8360

007360

8960

8952

HWC

7328

3843
6423
8967
6416

8941
S715

4560
438
8390
6432

6172%
7287

8933
4586

4497
o431
8978
e4aY4

2078s

10508

SEQ 0195

6813

007406

por

HPOS

3519
4022

00146M
001460

00i462

HER

N1S

MACY11 30A(10S2,
10-JAN-78
11:25 PRGE 196
CROSS REFERENCE TARBLE -- USER SYMBOLS

3196*

7328

8534

3875

8123

8208
8286
8362

8132

8147

8214
8293
8367

8219
8297
8370

8226
8299
8376

6517

6526

6536

6549

5864

58399

6S41

8156

8235
8303
8334

8240
8307
8402

8245
8315
8477

8176

8esl
8319
8504

8181

8253
8327
8511

CZRE(EQ UNIBJS RK& DR PRTe
CZRBIE.P1.
10-JAN-78 09:43
MEMVEC= Q00114

19558

MACY11 30R(1052)
3236%

001000
000017
002000
000200
Q43420
Q44713
044740
OYS000
ON5145
045243
045266
0O45300

1264
1258
12658
12628
6002
3418
7066
5193
3338
6255
3535
3747

8123s
3455
82574
82634
82814
8293
3698
8299

MSGee

045354

4014

4O41

MSGE7
MSG3

D4S5432
o44370

3676
3277

8315
82144

MSG38
MSG39

045540
045620

5158
5121

83274
8335

MSG37

Q45462

MSGH4

g444ee

MSGHO
MSGS
MSGb

MSG?7

Q45662
044467
044550

MSG74
MSG?7S
MSG76
MSG?7
MSG8
MSG9
SP__
=
MULTE
M.ALGN=
M.OPID
M.OP40
M.OP41
M.DP42
M.DPY4
M.DPSO
M.DRV =
M.HERD=
M.ID
=
M.PAR =
M.SECT=
M.SER =

o44604

S145

3296

82408

6916
6918
6369
6974
SO34
5038
12618
6736
13348
7081%
70928
7097
7103
7116
7080
13284
13368
1333s
13378
13358
13298

NEM
= 004000
NUDRV
015146
NXF_
= 000004

1215
3547
12258

OFFSET= 000015
OFST
= 000004
OPI
= 020000

11838
1244
s
1236#

OFFERR

= 010000

001456

12168

2009%

8253

82974

40393
5306

4147

4200

4240

8377

5500

5554

3622

3625

6381

5119

5135

5143

4345

4436

5152

g1586

5736

5892

B341#
82264
82354
8355#
83624
8367%
8370#
8245
82514

67628
7114
72105
7109
7122
71274
6569
6882
6479

6559

3521

3533

36558

5945

SO46*

S117%

4635

3237%

83198

8219

045775
Q46043
046100
Q4blee
o44641
044700
000100
035656
Q40000
037042
037100
037134
037144
037176
037210
000007
007000
000003
100000
000760
077770

NED

5014

3279

4013
3281
7038

10-JAN-78
11:25 PAGE 197
CROSS REFERENCE TABLE -- USER SYMBO.S

MERD
=
MESMSK=
MEWD
=
MINC
=
MSG1
MSG1O
MSG11
MSGle
MSGI3
MSGIY
MSGIS
MSGle

4361

Blb

S057

5216

4490

83074

45853

4604

480S

we:z

ejelalelslelelalelalololalalalalelolelalolalalalalolololololalalalolalalololalalolalalalolololalolololelolntale B aTe!

R6IEQ UNIBUS RK& DR PRT2
ReIE.PL1
10-JAN-78 09:43

.ADR1

= 000200
(055472

MARCY1l 38 w108e)

Clb

198
_PRGE
YMBOLS
ROSS REFER ENCE TRBLE -- USER

9325#

9327%

1 0-JAN-78

9437

SEQ 0197

11:25_

Q498*

9536

9551

9568

3460

9464

9569

96l2s

9598

3689

9704#

9627

97324

9426
q353%

9430

9692

97064

9554

95493

9700s
97018

ERR
ERR1
ERR2
FTYP

GET

055754
0S6310
0S6130
0S7364

057306
056462
Go2
056540
LG
= 000006
LGL = 000030
LGL1

056042

MSK
T
OFST
OF1
OP1

0SS464
55500
056226
056274
0Sbklie4

ORPC

(055676
057505
0SS462
056570
0Sebie

LGLe

PRI
PROC
PR1

0Se062

0selz2

-RCSR= 177560

9563#%

9760%

33384
9431

9395

9446

3571

9335

9358

9383

9441

9684

462
9640

9567
Sp42

9638
3644

wBSH

9490

9420
96354

9722
9375

9445
Q741

97528

9412
9513
9541

q515*
%
9751

9Se4x

9698#

Q3274
9591 *

3601

9603

9605*

9638

96598

37598

CZRBIED UNIBUS RK& DR PRT2

CZRGIE.PI1

10-JAN-78 09:43

1775

92528

O.RSE1
0.RSP
0.RST_
0.RSTT
0.R§T
0.RTI
8.SgQN

057204
055636
0S5542
057154
S57e
056566
056098

9602
32938
3264
949y
9272
9282%
gggs

0.SP1

055656

92998

0.SVR_
0.SVTT
0.7
0.7BIT
0.TBT =
0.7C

057064
(057122
057504
0S6S512
000620
057450

9273
9553
9495¥
94958
32438
9677

Q.RDB
O.REgT
655652

0.SPC

82?334

0.STM_= 000340
0.STRT
055530

0.ICLS
057432
0.TCSR= 177564

0.70B = 177566
0.TL
057531
0.TRTC
057546
0.TVEC= 000014

0.JYPE
0.TYP1l
0.TYyP2
0.UIN

0.UPC

0.UST

0.WDS3
0.WDSY
C.WRD
0.WRDA
0.WRD1
0.WSCH
0.XXxX
0.45
PACK
=
PARAM
PARSRT
PAT
=
PCLKF

PCA
PCO

PCVEC
PCYL
PFSRT
PGE
PIP

=
=

9284
92708

)

9304

9533
9565
9522
9535
9496
9683¢

93393
9590

966l®
9295
9498
9266

3352

3493

9518

35758
95894
9534

3697

9523

9559

9399
9592%

9410
9599

96764
9606%

97248

9730

3667
9303
97374
S284x

9285S%

9628
3663
9666
9497%

96518
96718
9669
9536

97618

0OS5440
0S54SY4

3270
9271%

9300
9576%

97428
9577

97484

947s

9484

056306
0S6324

0S635H
0Se4l2
056120
056144
0OSbkle26
056304

9265%

9438
q44SE

9492%

9496*

440s
9467

000020

94S6s
9456
9363
9380
93828
9371
957S#
3281
11788
19598
1351
1259

9469
4664
9379
9388
9389
9433
9583
9283
3794
31bl®
Jlbls

007520

21398

3319

057502

0S5604

000003
001336
012546

004000
010000
001332
0013Se
01SH4E
002000
020000

12668
126748

19538
19674
37308
12148
1252

SEQ 0198

35384

9557
3652
96658
3274

055460

0.WDS_
0.WDS2

36054
9296
9273
3520
928C#
95084
ggqll

92428
9263

9267%

PAGE 199

3637

9683

92548
3292
3327
92418

11:25

9365

36158

9308
92558

10-JAN-?8

CROSS REFERENCE TRBLE -- USER SYMBOLS

057350
057430
057410
0S5476

0S5456

0.URO
0.USP

92918

MACY1l 30A(!0S2)

3320

7068

9507

9506

9655

9S31%

9523

3521

9659

3665

9548

9550%

97498

9532%

9539

9559x%

9693

3406
363648
3le4x

3274

:
3326%
3327

6830

6851

97508

CZREIEQO_UNIBUS RKE DR _PRTZ2
CZREIE.PI1I
10-JAN-78 09:43
PIRG

= 177772

PIRQVE= 000240
PKRB
001324

PKS
PKSB
PPTP
PRGSRT
PRO”

PRI
PR2
PR3

PRY
PRS
PR

PR7

19478
19488
21238
3162

= 000040
= DO0IOO
= 000140

10758
10768
10778

= 000200
= 000240
= 000300

= 000340

10748

10784
1079%
10808

10818

PS
=
PSEC
PSW
=
PURVEC=
QKCYLD
RCYLA
RCYLD

177776
001376
177776
000024
034430
034656
034604

10548
1980#
10558
11468
65048
6353
6350

ROCYLA
ROCYLD
RODATA=
ROGATE=
RDHEAD=
ROLIN =
RDOCT =
RDSEC
RDTAR
ROY
=
RECAL =
RESREG=

034534
034344
000021
100000
000025
104411
104412
034274
006336
000200
000013
104414

65238
64888
11858
12708
11878
6021
6066
64768
20418
11938
11828
7864

RHERD
RHTAB
RKASOF
=
RKBA
=

034752
001726
000016
000004

6358
20348
11648
11598

ROCHR =

104410

RESVEC= 000010

RKCS1

= 000000

RKCS2

= 000010

7730

11418

= 000006

RKDB

RKDS

= 000012

RKDC

DOOO2Y

= 000020

RKECPS=
RKECPT=

009030
000032

3318
£B3Y*
3265%
31658
3167

1946
3330

3325

6£835%

6£855%

6053
3357

3231

3237

3381

7063

70eM

320_%

l
3ciexr

TJS3%

70b2%

7063%

BSBE
4292
BI42
S406
3210

6734

3837
7916

B113s
Bll4s
6583
4284
6I28
6165
Bllés

6510
5581

6341

6SEES
4798
3371
3367

4836
463w
387[%

6741
4677%
3924#

6743
4721
3942%

6747
4773%
3951%

6750
SOSi«
3960

3835

36850%

4075

3467%
5096¥

3IS74¥
5106¥

1055

65488
65358

4230

4312%
Sb4l¥

4371%
57268

4415k
S776%

444yge
5820#

4S18#
S875%

5163%
6142

S178%
B160

Sos4s
BY10%

5288%
BYIBY

5404
BH2EE

11578

11618
4694

S469¥
RKDA

SEQ 4199

1057

11514
19498

001320
001322
007472
012562

= 000000

EL1B

MACYLl 30AR(1052)
10-JAN-78
11:25
PAGE 200
CROSS REFERENCE TRBLE -- USER SYMBO.S

BY60*
11608
4447%

3364

3365
4813

5G22%

3470

3449%
492i®

SSBO¥

BYE4®
3368
4520

HIY0*
3873%
4919%

11658

3372

3875

11708
11718

3377
3378

6172
6173

11668

11628

3373

3369

4329

BlES

3S81s
34e3%
H981¥

S595%

HISEH
3926%
4983+
4532

4793%

4SBE*
bl63

5419%
BY3YE

4920

4703

4943
bliys

65103%
6954
S344sn
b419%

S40S»
6427

%
4301

Y314x

€533
5902»

6168

3678
S1p4#

5776

5821%

3944#
5053

3953%
5108%

3962
5266#

S467¥

S520%

5727

4809

4226#*
S4e8x

5343

5579
BYHEH

Sp42#

4808

6228

4160%

4810

H4311#%

4449

036230
001370
03s372
001374
Do140e

10-JAN-78

6166
3748
6428

3841%
HYESH
6151

6171

6086*
Y032
S107#

6053
YOSS#*
S269%

9164
6290
3574
4046

6294
6460

4o70x
4468

4071
4520

53264
H4B88*
6516

SY10»
6505%

£585»
6523

6169
6603%

6208+
6620»

4163#%

Yo7
c523%

4313#
S643%

Y372%
S726#%

4440

4580

SY470%»

6232#

6236#

H4450#

4517

58336

5768

8813

4301

4314

4373

62l
6945+

S822#

5876%

6868%
4365

41582

64792
6587

4857
Y430

S747
4456

6039%

6059

H177%
4938%
6482*

4158#%
4918#%

6740

S108
6559
6762%

4494

4557

6506

9519
3461

%
9547
3572

6480%
6735%
§90S

5265%
6560%
6763

5266
6SB1*
67b4*

3789

3829
5206

92208

§707

SEQ 0200

12078

4183

SVAL
SWR

S169%
6476%
6170

61582

9279%
3355

€18
SUBCLR

PARGE 201

CROSS REFERENCE TRBLE -- USER SYMBOLS

6478%
6584
000017
000001
032206
007524
000002
035550

F16 .

11:25

262

7654

aly

3509
3831

qYQ3=
3406

Y220

4306

5982
3862

6976
3900

5766

4583

4629

3215

3221#

5872
7147

64608
7161

Y410

S8iy

6363

3974

4789

4854

3228

60L8

6909

7163

6921

7189

3670

94y|
7027

449
5048

3780
4625
9216

4913

4155

4308

6344

8339

7233

S634

N0
£

104415

30A(10S2)

= 000010
034714
= 000006
104413
036156
000040

MRCY11l

NEW
oun~g
oL
-0

000002

N LY
NOUNo
OO N
I F
I TR ¥

000014
000326

Lttt P=0—~
= Vo= 0 O = = [ b b
CONLLOC—00

CZREIEO UNIBUS RKE& DR_PRT
CZRGIE.PL1
10-JAN-78 O

MARCY11

TEMPI

oo7412

Pt Pt Pt Pon

ot Pcs Pt

000000000
O
W LoD

s Bt P

s P

7636

0= 6

Pt Pt P

7613

oo
o
JDr——-n

000040
000.J0
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
00u0l0
000020
000040
000100
000200
000400
001000
000014

ssNss

SWO9
=
Sl
=
SWI10
=
SWll
=
SWl2
=
SW13
=
SW14
=
SW1S
=
Ske
=
SW3
=
SW4
=
SWS
=
SWb
=
SW7
=
SW8
=
SW3_
=
TBITVE=

000010
000020

7574

SEQ 320!

7004

=
=
=
=
=

6008

7023

SW08

= 000002
= 000004

3221

2438

SWQl
SW02
SWO03
SWOY
SWOS
SWO6
SWO0?

13478
11098
10998
10988
1097s
1096
1095s
(P8 ¢ 1 T Sy e
Ay Y Sy Y AP Wy Wy WD DY WY Wy Gy Sy Wy
[V 2 [ Ty e e e e Y o 000000--00
D 101 L000000000MmmMOMMO
LD
— no nNO—~WLWLN oNLEN

SWREG
000176
SWO
= 00000l
SWOOQ
= 000001

G16

30R(10S2)
10-JAN-78
11:25
PAGE 202
CROSS REFERENCE TABLE -- USER SYMBOLS

CCREIEQ UNIBUS Rke DR PRTR
CZREIE.PL1
10-JAN-78 09:43

237?!
03
5590#*

22848

230
£502s

i
g58)”

g8,

gaes"

2138
B357s

6602#%

6607#%

66.9%

S89#
11

66244

66554#

TEMP2

007414

39584+

S174%

S415%

5590»

6206%

6609*

TEMP3
TEMPY
TEMPS

007416
007420
007422

3947
3981
3352+

3956
3959
39S3

3960
391#

3962

S633#

Se44

TERR]

036000

TIMUP
001372
TITLE
081708
TKVEC = 00006
TOCYL
001346

TPVEC = 000064
TRAPPC
001334
TRAPVE= 000034

TRY

= 000003

TRTVEC=
TRUERR
TSTATN

IS71
TSTIO

000014
035700
032602

013546
Ole70M

4 gl*
5;4
*

8347

7020%

qsgs*
5762%
8955

8922

3199%
9737

3200%

4174

Y464

4698

5100

Y417
5768

4421
S774

4588#%
S808

4591
S863%

5280

S481

67768

4792#%
S8eN

7064#*
433S

5183

5259

S4ya4

5599

61818

6959

CZRBIEQC UNIBUS RKb& DR PRTZ

CZRGIE.PL1L
1571
1571
TSTL
TSTIY
7ST1S
TST16
TST17

74
1
Y

b
02S44e
026756
027736

figo
Jet

§58’§2
79825

TSTY

015156

TSTS
1876

015446
015574

1S7?

TYyPDS =

TYPE

10-JAN-78 09:43

06567

10440

= 104401

TYPERR
TYyPQC =
TYPON =

0585140
104402
104404

T'Re”
I= GB0dor
.

T.82

= 000002

7.83

= 000004

001404

T10

0014086

7100
7SO0

00iIv1Y
0O1410

360!

639"
36688

3722
3778s

5935

8107

3261
3747
4490
Si4
62S
7568
7757
9179

7223
7637
81068

38,
12n
4;6;
SS1M

2l1l3s
4767
SS14
2lliys

19848

198Ss

6509

3738

3799

3827s

3277
3967

3279
3971

4653
S1S8
6916

4604
5193
6918

91S4s
81048

9185

7580
7758
9188

7634
7760
9192

3281
3972

4805
5306
6969
763S
7763
9197

5038
S892
7216

7659
783S
9208

7670
7975

34565
4147

3489
4200

7689
31038

7737
9164

SONMY
5957
zeeM

3675
4345
sler
6002
7386

Sies
8052
7Sle

7743
9165

7748
9159

3698
Y436
7752
9170

5
Egeg

558
S08s8

53/
go4?

34
5301

“
§320

5372

usus

wees
8391

w7
Py
S495

4088
923
55y

4107
4956
5568

4195
4975
§803

42l
S009
=El:]

4261
S0e8
6351

4278
S088

4340
Sa4?

4359
§301

4485
8320

4548
8372

4666
6391

471§
5495

3450

3464

3473

3575

3584

3846

5174

G418

€590

6104

6447

6578

Y44yl

4861

§°Sl

S909

6115

4991

S113

5354

S83l

554

6355

6950

= 000100
= Q40000

1248»
12188

3447

3549

4322

4378

3471

riel
00}:73
"WLE = BRi4zg
004000

2017:
g90es
12348

3932.
U@y

WRDATA= 000023

11868

4058

3582

3982

4530

4324
U3sdr

4532
U’

4leS

4453

4993
433
4926

Sile*
aMs
5271

S6#*
e

Esd3=

8331

s4y7e

SB4S

6779

3535
4240
cicl
S360
7292

O
ééég

6932

2025s

SO34
5736
7066

7649
7833
9205

342s
4093

OIE

3618
6912

001506

SOl
SS5Y
7038

7’638
7?67
9199

3415
YoM 1

gézg

3517
330S»

3442

3338
4014
4961
SS00
6993

/O
gégg

l2les
20438
11808
12374
12178

14554

3296
4013
4817
§377
6974

daee
“Sgg

000400
007336
000007
040000
(320000

UFE
=
UNLD
UNLORD=
UNS
=
E
=

19908

8233

1987%

SEQ ge202

s7os

S074

001420

WORD

ceer

4652

TS0000

001416

PAGE 203

CROSS REFERENCE TABLE -- USER 3YMBOL.S

1989

001412

H1E

11:25

491ils
S204s

3715
3743
378

10-JAN-?78

6928

75000

3353
3824,

30R(1052)

1988s
19868

1500

VERIFY

Y1238
YyUss
46238
4887
5183
S4S4s
56258

MRCY11l

S824

6461

CZREIEQ UNIBUS Rkt OR PRTZ
10-JAN-78 09:43
CIRBIE.PL1
WRHERD=
WRL
=
WRTCHK=
WRTGAT=

000027
004000
000031
040000

$SATYC

040432

I16

PRGE 204
11:25
10-JAN-78
CROSS REFERENCE TRBLE -- USER SYMBO.S

MARCY11l

30A(10S2)

4034

4140

4427

4897

5729

588S

4316

4374

4see

4985

5109

S348

SEQ 0203

5528

$APTHD
001000
SASTRAT= NEuxux

SRATYY

SAUTOB

$BARSE

o404
001134

001264

00l1l22
001126
001200
001270

001205

SDBLK
$0B820

040376
042632

SEOP

SEOPCT
SEOPL

SERFLG
SERMAX

O0oWwWw
Pt e e Bt
=N
—0O—=L£
WO

SCRLF

WOOWWWWIEWOOLOO
Pt s P Pt Bt pe B () Bt P 0me () B0 e
EORNCTTNNWoONINNOWW
UNJIW——
L0
MY b
-0 L£NO0oOCoONNoOD

$BDADR
SBDORT
SBELL
SCDW1

040406
o404 1Y
7784

6070%

B072%

7580

7777

7320%

73258

3197

3203

3204

3205

18768

18778

18788

1879

oW
-0
o~
Lo

$ATY]
$ATY3

3972
9169

SO4Y
9179

S1
91

3680

S94ex

S943

7272

7407

7431

420l
S501

4euyl
S55S

4346
8737

5893

7167

7173

7195

Sl28
3205

7224

Te49

7293

7328

7670

4437

4491

4S54

4605

4806

4818

7211#

veus

214

5936

CZR6IEQD UNIBUS RKBH DR PRTZ
CZR6 IE.P 11
10-JAN-78 09:43

SERROR
SERRPC

SERRTB
SERTTL
SESCAP

J16

72098

037500

3197

éggao

7218%

7219%

007526
001112

21568
18S0s

9161
7217%

7249

001116

1880
gggg

320S*
6310%

001230
001314
golele
040652
001156
001185

1899
1388
18928
7398%
18718
1870s

19428
7435%
7401»
7297
7328

SGETYe
031570
SGTSWR
Q41470
$SHD
= 000000
SHIBTS
001000
SHIOCT
042810
SICNT
001104
SINTARG
001135
SITEMB
001114
SLF
001206
SLFLG
p40651
SLPADR
001106
SLPERR
001110

53618
76358
1016
13838
7826%

SETABL

SETEND
SFATAL

SFFLG
SFILLC
SFILLS
SGDADR
SGODRT

001176

C0l1le0
00l1lev

7220

7249

g891¢

89e3

8939

8947

8958

893

33038#%
6320

4634
6330%

upSlx
65340%

SOse*
6360%

S073%
6364

5232+
7019+

773
7022

5868+

5903

7429
7328

7438%

749468

7194

7239

4892

§1948

1847%

78378
7180%

7181

7183

7194

18518

7220

7228

7249

9155

7?77?7

7838

1861

18848

7439%

1848%
1849#

7632#%

7249

74458

7651

73e8

7671

7787
7171%
6896

7187%
6899%

7192
7028

1384

1388

1890#s

3225

6006

7186

040650

7399#%

7405

7440%

7444
8

001224
001226

1897»
18984%

7415#»
7420%

7418

19174
1921
1924#
1927

001240
00la44
001250
001254
001002

1911#
1919
19224
19254
13848

042340

001210

4e327

00124l
00124S
001251
p012SS
o43122
037476
001154

SNULL
SNUTST= 000001

04107¢
Quee iy

7638

18918

7635

1912
19204
1923s
19268
7994#
7184
18698

33434
3806

c43cHs
7484%
3751

S939

7240

7242

3774

3804

7784

7002
6365

f01242
001246
001252
001256

7189»

8373

8109

3207%
3208%

001210

SOCNT
$OCTVL

18548
185618

SEQ J2C4

MACY1l 30A(10S2)
10-JAN-78
11:25 PAGE 20S
CROSS REFERENCE TABLE -- USER SYMBO.S

7782

7413

7780#

71948
7299

3348
39974

5434

7S13%
7851

7421%

7328

3389
3999

5607
75264
78764

7433

7437x

3391
4113

35504
4115

5609

S686#8

3552
44004

5688

7194
7171

r2es

36598
Y402

7188x%

727 e

3733

483908

Sl19%

CZRBEIEQ UNIBUS RkE DR PRTR2
CZRGIE.P 11
10-JAN-78 09:43

30R(10S2)

10-JAN-79

7491%
7182
3965

7502#*
7191s
Squ9x

58580+

5958

5971

7689

7760

7777

7835

7838

000137

3197

31399

1022
3208
5208

1023
3354
5455

714¢

7163

340S%
Seob®
7564

3S6b6#%
5706
7589

7601%
7713%
7716
7585%

7602#%
771M

3488
6113
6364
3343
3722

3502#
6445

351a*
6507

3595

3696

33548
3731
4113
54554

3382
3739

3405
3772

3659
3804

5607

Se3l1

Y S w 1o
== YOIV
N—-0OW
£ £oOn

C o000
OO0 00

= 0000000000000
c o oo0oL£OLLLLLLoO
> [l ol ol Y St Y ol Y o oY Sl S R
Pt Pt Pt Pt Ps Pt Pt P Pt Bt e Bna e
" L£—00O—-—0O
L
[
cCROLWEOON Lo

g891S

7595%
7630

001172
000021

52054

4o08s
5432

752848

7577

5978

7178

719s

3205

3207

5947

6003

7146

8973
4409

9984

NN
L -

7572

7141
7184

$TKB
$TKCNT
STKINT

SEQ 020S

041100
037462
Qglzlie
001006
037040
036754
036766
Go1204

1772777

STIMES

PAGE 206

CROSS REFERENCE TARBLE -- USER SYMBOLS

043062
037426
000244
167400

SSWREG
SSURMK=
$TESTN

K16

11:25_

N0
W~NWn
NN L

$OMODE
SOVER
SPARSS

MACY11l

7147
7201

8922

7709

7631

7587

Hl24ys

44098

7641

76S3%

7673

4890

S706s

4624+

UMIBUS RKE DR _PRTe

. el

10-JAN-78 09:43

MACY11l 30A(10S52)

7897
18688
18724
18678
3199
80918

7838
7317%
726b
7315
8080#
8102

7918#
7328
7328
7328

043364
010CY

glles
8085
13858

8117
81029

8l18s

042266

7727

7728

7740

734"s
726b8

8107
7426

809S

7321
74828
7481
7477%

7323
8104
74848
8105

809Ss

01102

ExnpEe

Q40162
037700

18458

o4011le

7296

040160
040700
040714
040654

001222

18968
S40S

001010
001234
001260
001262
037232
000000
041077
krvuxe |

055500

a2uREtRE

001000

8108

6419

13874
1903
19288
1929
71508
5363
7479%
7147

BI04
3672%

7303

S947x

7310

7326

8106
S380*

7758

PAGE

207

SEQ 0206

8111

8l12s

8113s

Bll4s

7163

7185%

7186

7191

7195

7213

7249

6201

3836
6ee?7

3851
6269

4694
6270

S096
6271

Sle4
6272

8179
6398

525§

13638
2038
7249
79388

13658
2039s
7328
B8914s

13668
2040%
73948
92298

1372
2041ls
7447s
3230

1373
3192
7532
3375

1375s
3207
78368
3600

1377
3208
TS3T
3604

7675

3682%
5595

3689

3699

6940

6955

1360
03Ss
194

idols
2037%
7195
78768

8115

8106

7482%
7ee3

7492

7527%

77768

1350
033
0SS

7777

1353
034s
111

1377

81108

7316

8103

b4bY

7402

8109

73158

6435

7399

T136

8108s

77768

b427

3660

8107«

777

3312%

5420

1345
ég;g

1372%

B810Ss

3249%

13418
égqal
71
75388
3636

11:25

CROSS REFERENCE TABLE -- USER 5YMBO.S

g4a74e
0l1se
001157
001150
043330
043352

00001s

10-JAN-7

L16

S580

9re2

77848

3730

618e

7838

9733s

9741w

6411l

CZRGIEQ UNIBUS Rkb DR PRTZ2
10-JAN-78 09.43
CZRBIE.PLI

CALIB
CHECK
COMMEN
CWDe
DRCLR
ENOCOM

14798

&433.

2573

11528
1448
14618

ERRER

3834
383e

2389

Sliel

4086
4713

5493

MACY1l

g402

€877

4193
4828

G547

10-JAN-78

6938
4Yele
435y

4259
4973

5566

5177

52583

4.8

JH4Y
3639
3883
4018

3466
3745
3896

347S
3783

3498
3792
3898
4060

4380

4487
4550
4647
4717
4730
4ge?
4335

4040
4143
Yoo

431

SEQ J2C?

4357

S0es

5672

4692

4545

ML1b

11:25
PAGE 279
CROSS REFERENCE TRBLE -- MRCRO NAMES

30R(10S2)

4391

5086

4483

Sea4

4510

5248

4546

5299

45?23

c318

3541

4156
4238
4329
4397
449
456

ESCAPE

F.ERB

GETPRI
GETSUR

HDCHK3
HDTBL

LOOP

MSG

4304

3430

MULT
NEL4TST

3661
48908

51948

5432

3/1

s
3997
5609

Baial

4113

4610

S432

OFDIR

8065
7994

8045

3738

3778

3827

4007

4123

4408

4623

8104
3187

8106

8107

8138

Bl.l

8il12

8113

8114

811S

8116

360!

3718

37ee

3743

3786

3799

3930

3966

4887

1371
3772
S203
7608

1378
3777
5432
7623

1838
3804
5463
7694

1885
3826
se0?7
7718

1888
3997
5624
7’787

3343
4006
5686
7840

33S2
4113
5704
7879

3389
ylee
£930
7941

3403
4400
7133
7959

3490

3536

3700

5039

Siee

6256

6994

7039

4164
452}
4139

4462

4925

5270

S471

1874

1878

1876

1877

1878

3389

3550

3659

3731

3772

3804

3997

4113

4400

4610

4890

8105

8106

8107

8109

8111

8112

8113

8114

8118

8116

8117

3382

3601

3715

3722

3743

3786

3799

3930

3966

4887

S183

770S

3331

«.

Sagy

S4SY

S194

s432

S631

S639

EsSTLSE

Zhoro o
cmmmmomwwwm;:mmx;mmmm.o
UV VNN ngmmm
£ O
NV

3 0 1= == PU LNV UN NIV TV O 0 O O U PV NV U

86888888838238888

0 B Bt Bt Bt bt st s ot s Bt (1 0t 0t

SNBSS

e Qo=
v

s e (D) 0= D) N\ L ()0 0o P

SLASH
SPACE
STARS

3668

e Pt B

SKIF

ggsg

J O 0= b poe 4t e e s () 0= 0= () (D) 07 0 00 b=

SETUP

3353
$70S

11528

04— +== D D U

TPR
|

SETTRA

4229
4797

OO0 > NI

REPORT
SCOPE

SEQ Q208

1694s
15588

St s Pt e Puat Prat P Pt Pt Pt P Pt Dot e Dt e e e (J] 00 (1) () (TN 00 00 9ot s .2 Dot P P P

RORTA
R OHOR

MACY1]l 30R(1052)
10-JAN-78
11:25 PRGE 210
CROSS REFERENCE TRBLE -- MACRO MAMES

*».n“??

<ZREIED UNIBUS RKE DR_PRT2
10-JAN-78 04:43
JZRGIE.P 11

—

4984
Y426

5347
4596

SSa4
5728

S884

us
H
BKORR BRI,
IEC
YN IBYS
FBB
_$SAVE

10018

8027

§IeE
$1vps

ippie
10018

72
7G5

'$3820
'§3COP
'$SUPR
'§TRAP
'$TYPD

ABS.

100is
10018
10018
10018
10018

057550

ERRORS DETECTED:

DSK2:CZR6IE,

BLES
! i ®RacRECRARE
MACY! 3PRUESREreABRAB"TA

7939
7131
7957
8072
7328

000

DSKZ: CZR6IE. SEQ/SOL /CRF /NL : TOC/DOC=DSKM: CZR6IE. P11

RUN-TIME: 33 26 3 SECONDS

RUN-TIME RATIO: 273/62=4.3
CORE USED:
30K
(59 PRGES)

DOCUMENT PAGES:

209

COl

SEQ 0209