Digital PDFs

AC-9120E-MC

March 1978

211 pages

Original

103MB

view download

OCR Version

145MB

view download

Document:	CZR6IE0 RK611 UNIBUS DRIVE PART 2 AH-9122E-MC MAR 1978 bw
Order Number:	AC-9120E-MC
Revision:	000
Pages:	211
Original Filename:	CZR6IE0__RK611__UNIBUS_DRIVE_PART_2__AH-9122E-MC__MAR_1978_gray.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

BO1l
EOFIC

WD 101 £ W

CZRBIE.PI1L

PRT2

1 6-1AN-78 09:

POP10 4
4Y3HDR1CZRBIESEQ
MACY1l
30A(1052) 10-JAN-78
11:25 PAGE 1

00010000

.REM %

PRODUCT CODE:

AC-9120E-MC

PRODUCT NAME:

CZR6IED UNIBUS RKE DR PRT 2

DATE:

FEB 1978

MARINTAINER:

DIAGNOSTIC GROUP

AUTHOR:

GARY PAPAZIAN

eD
oocum:m.
AR INmng
BI L w’é‘&#'m?’?%&s‘?” T MAY W
THE
ACCORDANCE WITH
D MAY ONLY BE USED ORGOINPIED
B ERE
me

NSE
ERMS OF SUCHLICE

CEtai
1

R E BB RN R

DD ® 0N £ W

IDENTIFICATION

EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS

UPPLIED

BY DIGITAL.

780223

SRR RO F RS SR AR RS S A 8 SRS A e ke b T 2 5 gg

0 UNIBUS RKE DR PRT2
P11

10-JAN-78 09:43

MACY11l 30A(10S52)

10-JAN-78

COl

11:25

PAGE 2

TABLE OF CONTENTS

1.0

ABSTRACT

2.0

REQUIREMENTS

e.l
e.e
3.0

HARDWARE
PRELIMINARY TESTING & PROGRAMS

PROGRAM CONSIDERATIONS

3.1

PDP-11 FAMILY COMPATIBILITY

3'3 1
33
§2§

ncvgn
B
s&s
fia Ema.so
x

3Ig

YI!E

3.2

XXDP

§Zm
11

4.0

4.7

ST TI

TIONS

SHITCH REGISTERS

THRRE
SWITCH REGISTER

HALTING

THE mocmn

DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION
S.1
s.2

6.0

8 FAILURE RATE ANALYSIS

noonsssss & VECTORS

OPERATING PROCEDURE & CONTROL FUNCTIONS

5.0

DEF INITIONS

GENERAL
TEST DESCRIPTIONS

ERROR REPORTING

&.é
b.

RROR ngERPR TRTION
RROR
PRINTOUT
EXRMPLE

CZREIED UNIBUS RKE DR PRT2

10-JAN-78 09:43

MACY11l 30A(10S2)
1.0

10-JAN-78

11:25

PAGE 3

SEQ 0003

RABSTRACT

TECRE PaRT THE DYSK 15 CAPRBLE OFPERAORMING
RERD ANDWRITE
88327“’5&m&*&mm%&x&m-‘* AND ALL
AFTER A S&CESSFLL RI.M (WITH NO ERRORS) OF PART 2, THE DRIVE
IS READY FOR PART 3 OF THE DRIVE DIAGNOSTICS.

Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt PPt
Pt Pt Pt

Fih EDO= D BB IE R LR BD® SR LN DD V0N £ D0 DB IR Lo O S TN Lo

CZRBIE.P11

DYNAMIC TESTING.T
EED
NG THRD
R PAGC
lTcORER<
SRETE"Eo
TESTS WILL BE KEPT SMALL TO FRCILITATE SCOPIM LOOPS.
M&WE%T}&T RKCS 8 RKO7 WITHOUT NEED OF
%

3% %%
%% RCAUTION®

HRLTING THIS PROGRAM ANYWHERE BUT AT THE END OF AR PASS,

2.0

REQUIREMENTS

2.1

HARDWARE

THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DISK DIAGNOSTIC:

e e P

Bt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt ot Pt Pt Pt Pt Pt Pt P

Pt Pt

s Pt

s P

HEQDERS IN THE DISK CARTRIDGE IN AN
JHEE
MAY LEAV

561

CON HtE TELETYPE

MEMORY
16K
KWll-L OR KW1l-P CLOCK
RKO6 UNIBUS CONTROLLER (RKB1l1)

1 7O 8 RKO6/RKO? DRIVES

NOTES:

CLSCM‘I‘?RHE:RTHIS TIMING
iEzT Iwfiié%gfl

INNI

HE TE S WILL CONFI

OC1
PART
BcR RESLCT OF RONNIRG DRIVE DIAGNOST
e.e

PRELIMINARY TESTING & PROGRAMS

OV R RGN
FiRsT¥RIA BIRKEEE
3.0

PROGRAM CONSIDERATIONS

BY" PRE "RRoc "bRiVE

DTAGROSTIC- PART 1.

2
-

NE h E LR B DB SR N FOR 8555 mm

10-JAN-78

MACY11l 30A(1052)

EOL

o Q004

PAGE 4

11:25

R e BB SRR 2028 BB SRR 2ER 8 Sa Jat 2N S S

U U MU 0= e e 5t s Bt Bt Dt s B Bt Bt Bt Bs s Bt Bt s Bt Bt Bt Bt Bt ot B Bt s Pt Bt e Bt B

s Bt s s Bt s B Pt Bt s Bt Be Bt s s Bt s s P

e Ps

.P1

10-JAN-78 09:43

BUS RKE DR_PRT2

3.1

PDP-11 FAMILY COMPATIBILITY

THI

40,u4s,
gs

;"%.USED BY THE PDP-11-04,0S,10,20,

ABLE WITH *Hé %Kbll.
DFEIG& ?N.BE DIRGNOST CALLY COHPR$
3.2

XXDP

IHIS EROGRQH CAN BE CHAINED BY XXDP & WILL NOT OVERLAY THE
CHAIN MODE OPERATION (MONITOR)

E INPUT

IS
m ?YPQSSE
ROLLER INTERRUPT VECTOR IS

TEETE
HI&?E
9%..0
3. gg'L
'DRIVE PRESENT’' CONDITION WILL
IN THE
IVES
TI-ER

THE DRIVE PRESENT CONDITION IS:

NOTE:

S: E‘cTPOR

ecrso

DUMP MODE OPERATION (MANUAL)
1.

INPUT omLocue IF SYARTED FROM 220.

E
%S;E
g

PflCK &

3.3

T THE OP RATOR IS FIRST GIVEN
WITH A SCRATCH

(CR>

ACT/APT

IS ACT COIPRTI
THIS PROGRAM

COMPATABLE TO

THE EXTENT

APT

IT IS AP

KS HILL BE IN THE

PROGRAM 3 WILL WORK THRU TFE "UPTON INTERFACE’.
FOR OTHER INTERFACES,

1.E. LOAD & DUMP MODE.

APT MAY ONLY LOAD 8 START THE PROGRAM.

AUTOMATIC MODE (MONITOR)
1.

THE INPUT DIALOGUE IS BYPRSSED.

THE BUSS ARDDRESS & CONTROLLER INTERRUPT VECTOR IS

W |
R DD
A A AtNAt o£ 6O
A et DB
4
IR
n
nM
w o~

MACY11l 30A(10S2)

10-JAN-78

FO1

11:25

SEQ 000S

%S
ORIVES IN THE 'DRIVE PRESENT’ CONCITION WILL BE
THE DRIVE PRESENT CONDITION IS:
A.

B.
C.
D.

HEADS nmua#L L

CT PORT SELECTED
C
MWRIT hOC DISABLED
Y INDICATOR ON
DRIVE

DUMP MODE (MANUAL):
3.3.1

S
PAGE

DEFAULTED.

NOTE:

INPUT DIALOGUE IF STRRTED FROM 220.

APT ETABLE DEFINITIONS

THE FOLLOHINE DEF%NITIONS ARE VALID
TABLE (ETARBLE)
RIES.
VIA RUNNING
1.

SOFTWARE ENVIRONME

EWIBI

SPECIFYING_APT ENVIRONMENTAL
T UTILITY PROGRAM “TSPTM:

23 1F Fhie. ROB

Ifli BYTE DOES S
NT

NG
3 A8t APT IF SCRIPT MODE
P‘
BIT & :fiflf
TPUT
E
sogbus
BIT S : %ou
CONSOLE OU

BITS '0-0

TER)
SWITCH
SOFTWARE
TO 1, THECONSOLE
_SET HARDWARE
BIT) OFISTHE
?iiNE
i
%
c STER htGESOL S’ HHTEAD
su*%cu gE
CH ONE IS USED, ALL BITS
£ 9.4 (SWITCH REGISTER OPYIONS) MAY USED
SWITCH 1 (S

ONENORL

ONE MODF.
Se
§caspt MODE, HOMEVER, BIT 14 (LOOP ON TEST) MUST ALWAYS
APT
éE
uus

n
!
D
£
£
£ W~ 0OWwom NN

ee4

DR_PRT2

4.
S§.

6.
7.

SWITCH 2 (USER SWITCH REGISTER)

NOT USED

CPU OPTIONS:

NOT USED

MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES

NOT USED

INTERRUPT VECTOR
1

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

USED WHEN ENVIRONMENT MODE BIT 7=1.

DEFRULT = 210
DEFAULT =S

CZREIEO UNIBUS RKE DR_PRT2
CZREIE.P11

10-JAN-78 09:43

MACY1l 30A(1052)

323

2t3

PAGE &

2:
Ro7 PRIORITY
D823

10. BUS

266

11. BASE ADDRESS:

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

ggg
270
271

GDl

11:25

9. NOT
INTERRUPT
VECTOR 2:
USED

525

Z68

10-JAN-78

12. DEVICE MAP:

EACH BIT SET TO
7
USED WHEN ENVIRONMENT MODE BIT
1 IN BITS 0-7 WILL SELECT THE connesponox
NG DRIVE TO BE

TESTED. BITS 8-15 ARE NOT USED.

274
g;g

13. CONTROLLER DESCRIPTOR WORDS:
NOT USED

277

14. DEVICE DESCRIPTOR CODES (IN WORDS):

278

NOT USED

279

280

ggé

3.4

283
284
ggg

THIS PROGRAM WILL NOT TEST OR supponr DUAL-ACCESS. A DRIVE
EQUIPED WITH DUAL ACCESS MUST BE SWITCHED TO THE PORT UNDER
TEST TO PREVENT CONTENTION WITH THE OTHER PORT

DUAL ACCESS TESTS WILL BE INCORPORATED IN A SEPARATE PROGRAM

287
288

230

535

AT A LATER DATE.

3.5

ggg
23s

ggg

3.6

309

PARITY CHECK ENABLED

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

BAD SECTOR

5r DATA égnoas oué"‘o BAD 5E51055/15n6xs u?LL BE nnsxso ouT.

ggg
308

MEMORY MANAGEMENT

MEMORY MANAGEMENT NOT USED

298
gg
301

DUAL RCCESS

3.8

EXECUTION TIME

THE EXECUTION TIMES SHOWN BELOW ARE BRSED ON THE PDP 11-/50.
TOTAL TIME:

1 MIN,

30 SEC

SEQ 000e

MACY11l 30A(1052)

3.9

10-JAN-78

11:25

PRAGE 7

SEQ 0007

FRULT ISOLATION
TO BE DETERMINED.

3.10

ERROR CORRECTION AND FRILURE RATE ANALYSIS

aS
PR GRRH WILL NOT DO ERROR CORRECTION OR FRILURE RATE
3.11

DEFAULT UNIBUS ADDRESSES & VECTORS

HING IS R L
DEFQULT .ADDRESSES &
VE TOS%LSF
ARE ? L SED
THEIR MEMORY

ADDRESSES HHERE THEY CAN BE

CHANGED.

cog?n&'sgn“?g?figun VECTOR
S-CLOSkngflgfigogé
SNTE B gVECTOR
FELEES
=
P-CLOCK *NTERRUPT VECTOR
*TY Kg
REG
TY K
TTY PRINTER STATUS

TTY PRINTER BUFFE

LOCATION -

DEFAULT CONTENTS

1314
igés

1
f;gsqo

i3
1

1332
1144
1146
1150

REG

11582

4.0

OPERATING PROCEDURE & CONTROL FUNCTIONS

4.1

PROGRAM LORADING

177262
17756
177564

17?5:6

THE PROGRAM CAN BE LOADED FROM_PAPER TAPE USING STANDARD
PROCEDURE FOR ABSOLUTE LOADER TAPES; OR FROM ANY MEDIA
SUPPORTED BY XXDP.
.

“%.1.1

LOAD THE STARTING ADDRESS (SEE SEC 4.2).

4.1.2

SET SWITCH REGISTERS AS DESIRED (SEE SEC 4.3).

%.1.3

SET DRIVES TO BE
RPPROPRIQTE PORT

TESTED

IN THE ’'LOAD’ CONDITION & WITH THE

SELECTED 8 WRITE LOCK DISRBLED.
DRIVES
NOT TO BE TESTED MUST HAVE BOTH PORTS DESELECTED.

CZREIED UNIBUS RKE DR _PRT2
CZREIE.P11
10-JAN-78 09:43

MACY11 30A(10S52)

NOTE:

4.1.%

I01

10-JAN-78

11:25

PAGE 8

SEQ 0008

THE DRIVE WILL NOT RESPOND TO THE ’'START SPINDLE’
COMMAN
8NIF THE RUN/STOP SWITCH IS IN THE ’'STOP’

PRESS ’START’

THE PROGRRH WILL IDENTIFY ITSELF AND WILL BEGIN
A
?égkoggg
- g) HE OPERATOR TO DETERMINE DRIVES TO BE TESTED

BEGINS TESTING

HE
PRO
WRAS NOT AVA
DRIVE
AND P

WILL
FL
D AS AN ERROR THAT THE
DRIVE
Rgts.
THENSEEGINN NG géTH THE LOWEST NUMERICAL
ING IN
SEQUENTIAL
ORDER, ALL VALID DRIVES

THE INPUT DIALOGUE

WILL

TESTED.

Y _THOSE DRIVES SPECIFIED BY

F_A SPECIFIED DRIVE CANNOT EE FOUND BY

ONE PASS T

THE TEST SEQUENCE WILL BE

PERF
D ON EACH gEIVE ?E
MOVING TO THE NEXT
DRIVE
IN
SEQUENCE.
THE
DRIVE TO BE TESTED WILL BE TYPED AT THE
PARSSTM WILL BE TYPED AFTER
TME
BEGINNING OF ERCH PRSS.
TESTING ALL DRIVES.

4.2

STARTING LOCATIONS

LOCATION 200 - STARTING ADDRESS TO DEFAULT THE BUSS
ADDRESS & THE CONTROLLER INTERRUPT VECTOR
% TE§¥IghL DRIVES IN THE *DRIVE PRESENT’

NOTE:

THE DRIVE PRESENT CONDITION IS:
RA.

g.
.

frrr P o o o o o o o ¥
g o o
rurnornonTUNY & = b b e b b b o e e
nLwn -DwoNoCNLEWL~-0O

409

426

HEADS MANUALLY LOADED

CORRECT PORE SELECTED

WRITE LOCK

DISRBLED

DRIVE READY INDICATOR ON

LOCATION 220 - STRRTING ADDRESS TO INPUT TESTING PARAMETERS
VIA THE INPUT DIALOGUE.

BUSS ADDRESS &

?g?TPnégTERRUPT VECTOR INPUTTED ONLY ON

IMPORTANT:
ALSO,

FOR VARIATIONS OF THE ABOVE

SEE XXDP ACT/APT

CONSIDERATIONS IN SECTIONS 3.2 & 3.3.

THE PROGRAM WILL ARUTOMATICALLY DETERMINE WHETHER

THE DRIVE IS AN RKOG6 OR RKO?.

4.3

SWITCH REGISTER

THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS.

CZR6IED UNIBUS RK& DR PRT2
CZRBIE.P11

10-JAN-78 09:43

MACY11 30A(1052)

427

M Ciarc
430

431
432
433
434
435
436
437

335

SWITCH

4.3.1

11:25

PAGE 9

SEQ 0009

FUNCTION

() o

15
14
13
12
11
10
9

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUT
BYPASS DRIVE AFTER 20 ERRORS
INHIBIT éT RATION
BELL ON ER
LOOP ON ERROR

:gg
440

10-JAN-78

JO1

M————"

LOOP ON TEST IN SW<D7:00>

SWIS

443

rue PROGRAM HALTS ON ENCOUN
r uc AN eanoa

332

s MAL op:nnrxon OF THE PROGRAM.
PRESSING “CONTINUE” CONTINUE

Y44

447

::g

THE ERRORMESSAGE AND PERTI

4.3.2

450

:gg

4.3.3

4.3.4

SW1D

THIS SWITCH BYPASSES A GIVEN DRIVE AFTER 20 ERRORS HAVE

465

:gg

SWUD

uxru SWITCH <13> SET, SWITCH <15> SHOULD NOT BE SET.

464

466
467

THIS SWITCH IS NORMALLY USED ALONG

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

:gg
325

SWIW

;H
uxrcu IS PUT ON.

457
458

Y61

AFTER TYPING OUT

7ue PROGRAM LOOPS ON THE TEST THAT IS BEING EXECUTED WHEN

32&

453
YEH

gnro 10N,

BEEN DETECTED.

4.3.5

SW<ID

470
471

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

:;5

ITERATIONS, 'SO THAT QUICK PASSES CAN BE MADE.

472

475

:;g

(USUALLY 50, & IN SOME CASES).

4.3.6

480
481

SW<IDY

RINGS A BELL ON ERROR.

3;3
4.3.7

SETTING THIS suxrcu INHIBITS

SWOD

USEFUL WHEN ERROR TYPEOUT IS INHIBITED.

UNIBUS RKE DR_PRTZ2
10-JAN-78 09:43
.P11

MACY11l 30A(10S2)

10-JAN-78

KOl

11:25

PAGE 10

SEQ 0010

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

4.3.8

SW<C8»

THIS SWITCH IS USED TO SELECT A PARTICULAR TEST (RS PER
THUS IF
SW<00-7>) FOR EXECUTEON AND SUBSEQUENT LOOPING.
TEST 15 IS TO BE SELECTED THE SWITCH SETTING WOULD BE
TED THAT BEFORE SELECTING & LOOPING TEST 15,
T SHOUL 8;
00041S.
ALL THE
vIOUS TESTS (1-14) WILL BE EXECUTED.
R

*SOFTWARE® SWITCH REGISTER

BEING R ON A SHITCHLESS PROCESSOR
ILL DETERMINE THAT

I
THE PROGRAM
(IEunsg“&ééOQ

THE

TCH

A SOFT

GIST R IS NOT PRESENT AND WILL USE

SOFTWARE® SWITCH
H;S

ii
PUNY b= b bs s s b b s pa pme o0
—=OVONOCNLWN—-0OWVm

EEG%EEER
TION (8).D ;ns SETTgflcS
G’
AAT *CONTROL
%#%NG
Y?TROL
SE HHIéEN
KEYBOQRDSSSUTi
TIME
ANY
G’
'cHIGHER
PROGRAM WT
PRIORITY PROCESSING
EXCEPT WHEN
AN RKO6 INTERRUPT.
ENTERED RS AN

S07

THE

OFTHnRE' SWITCH VALUES ARE

IRy CROGT TNE

FROM THE SUITCH ENTRY ROUTINE:
SWR = NNNNNN

nTIME 1 SWITCH
é
REGIST
REQUIRED.

EACH

USED TO cbnn:c

N PROCESSORS W

RESPONSE TO THE PROMPT

NEW =

THE ENTIRE SWITCH

NTERED,
T
N
RE BE
;ERoMAY
Rinb
aé RREEE
' CONTROL U’ runc

SETT

vpx

RRORS DURING SWITCH ENTRY.

H Hnnouanznguxrcu
REGISTERS

GISTER

THE

tHE PROGRAM

CHES IN THE 'up' POSITION ALL_SWITCH

ENCES WILL BE TO THE ’'SOFTWARE’ REGISTER

S22

S DESCRIBED RBOVE MUST BE FOLLOWED.

“4.§

INPUT DIALOGUE

THE DIALOGUE WILL BE DONE INTERACTIVELY.
_THE PROGRAM WILL
THE PARAMETER MAY
CONSOLE TYPEOUT
REQUEST A PARAMETER BY
BE& R ALLOWED TO DEFAULT
s
RETURN. UNRECZED OR_ILLEGAL RESPONSES WILL
BY A CARRIAGE
THE PROPER RESPONSE MAY
"?*.
?55502252BECED OLLOWED BY

IMPORTANT:

FOR VARIATIONS OF THE ABOVE

SEE XXDP ACT/APT

CONSIDERATIONS IN SECTIONS 3.2

CZR6IED UNIBUS RKE DR _PRT2
10-JAN-78 09:43
CZREIE.P11

MACY11 30A(10S2)
4.5.1

10-JAN-78

LO1

11:25

PAGE 11

SEQ 0011

DRIVE SELECTION
THE REQUEST WILL

BE:

DRIVES TO BE TESTED:

INETREFQBkIVEEggggEET}Sc8§g¥¥?gfi'RETURN TO TEST ALL DRIVES
THE OPERATOR CAN nkgo TYPE IN THE SPECIFIC DRIVE NUMBERS
;ETBENTESTED, SEPARATED BY COMMAS &
TERMINATED
BY A CARRIAGE

E.G.

IMPORTANT:

4.5.2

DRIVES TO BE TESTED:

FOR VARIATIONS

CONSIDERATIONS

1,2,4,6

OF THE ABOVE,

SEE XXDP, ACT/APT

IN SECTIONS 3.2 & 3.3.

BUS RDDRESS
THE REQUEST WILL BE:

TYPE IN BUSS ADDRESS IF NOT 177440
THE DEFAULT IS A CARRIAGE RETURN
4.5.3

CONTROLLER INTERRUPT VECTOR
THE REQUEST WILL BE:

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210
THE DEFAULT IS A CARRIAGE RETURN.
“.5.4

EXAMPLE OF PROGRAM DIALOGUE
THE EXAMPLE SHOWN IS FOR A PROGRAM STARTED AT ADDRESS 220.
ALL OPERATOR RESPONSES ARE UNDERLINED.
UNIBUS RKO& DRIVE DIAGNOSTIC

PART 2
CZREIED

DRIVES TO BE TESTED:

1,3<¢CR>

TYPE IN BUSS ADDRESS IF NOT 177440 <CR>

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR>
WILL TEST DRIVES:

CZRBIED UNIBUS RKBE DR PRT2
CZRBIE.P11
10-JAN-78 09:43

MACY1l 30A(10S52)

10-JAN-78

MOl

11:25

PRARGE 12

SEQ 0012

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

PROGRAM EXRAMPLE
THE FOLLOWING IS AN EXAMPLE OF A PROGRAM STARTED AT THE

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

e e

HILL TEST DRIVES:

WDONOCNEW—-0

oororororor
oo o oo o
o

PART 2
CZRBIED

DRIVE O

DRIVE SERIAL NO. AAA
CARTRIDGE SERIAL NO. BBB

DRIVE
1

623

DRIVE SERIAL NO. CCC
CARTRIDGE SERIAL NO. DDD
END PRSS 81
WILL TEST DRIVES:

DRIVE O
DRIVE 1

END PRSS & 2
(ETC)

THE ABOVE ASSUMES NO ERRORS DETECTED.

THE NUMBER OF PARSSES IS DETERMINED BY RACT/APT/XXDP

IMPORTANT:
4.7

FOR VARIATIONS OF THE ABOVE,

SEE XXDP, ACT/APT

CONSIDERATIONS IN SECTIONS 3.2 & 3.3.

HALTING THE PROGRAM

THE PROGRAM PROVIDES
THE CARTRIDGE AND/OR

A METHOD OF HALTI N? ITSELF SUCH THAT
DRIVE IS NOT L EFT
IN ON UNDETERMINED

IBUS RKE DR_PRT2

10-JAN-78 09:43

1 0-JAN-78

MACY11l 30A(10S2)

STA TE;

IE:

NO1

11:25

PAGE 13

SEQ 0013

HEADS UNLOADED OR INVALID FORMAT.

TO PROPERLY HALT,

TYPE CONTROL-C (tC) ON THE CONSOLE.

IF HEARDS ARE LOADED & FORMATTING IS VALID,

THE PROGRAM WILL:

HEADS ARE NOT LOADED AND/OR FORMATTING IS INVALID,
PROGRAM WILL:

NOnNLEWw

ECHO tC
YP; “CPU_HALTED"
THE PROGRAM
HALT

;cuo tC
YPE 'HALT PENDING,

PLEASE WAIT’

DO THE TEST(S) THA! LOADS HEADS AND/OR FORMATS
THE INVALID CYLINDERS
TYPE ’'CPU HAL
HALT THE PROGRAM
ES:

THE ABOVE EXAMPLE IS FOR THE PROGRAM
ING IN
(
).
IF THE PROGRAM IS RUNNING IN CHAIN/AUTO
MODE
VIR
XXOP,ACT,APT;
IT uka FIRST 'on? HEADS

D/OR FORMAT CORRECTLY,
IF REQ’D, THEN IT WIL
THE MONITUR WHERE THE NEXT PROGRAM CAN BE

ON TO
J UMP
CALLED IN.

THE TYPEOUTS WILL BE "ABORT PENDING - PLERSE WARIT*
&
"PROGRAM RBORTINGTM

OPERATING THE ’CONTINUE’ SWITCH ON THE CPU CONSOLE WILL RETURN THE
PROGRAM TO TEST
1 WHERE TESTING WILL BEGIN WITH THE 1°ST DRIVE AGAIN.

5.0

DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION

S.1

GENERAL
A.

WRITE TESTS

THESE TESTS CHECK THE ABILITY OF THE DRIVE TO WRITE & RERD

WORSE CASE _PATTERNS;
SPIRAL WRITING.

PERFORM ALL OFFSETS & PERFORM ALL

SERVO & SPINDLE TIMING TESTS
rnsss TESTS CHECK & TYPE HEAD LOAD,

AL30 M

MAX,

UNLOAD & INDEX TIMING,

AND AVERAGE SEEK TIMES, AND MAX VELOCITY

OF THE H#nos ARE MEASURED 8 TYPED.

bt et

8 N MM

MACY11l 30A(10S2)

s.2

10-JAN-78

BO2

11:25

PRAGE 14

SEQ 0014

TEST DESCRIPTIONS
L3ttt obdobdebabedotdatdotdotdobadodod
bt
b bt st a b2 2 22 22222 22222222 R R 22 22 2

BASIC CONTROLLER TESTS,

TEST

SIZING & SETUP

T Ty e

REFERENCE ALL CONTROLLER REGISTERS

THIS TESCVE FIES THflTH.I; THE CONTROLLER REGIQTERS

NNNNN

m.—.—....—.—.—.—.—.-'—
OwoNCNLWNN~-0O

0_UNIBUS R“6 DR_PRT2
.P11
10-JAN-78 09:43

%
0 BE ACCESSED WIL'
Rfl' %ITY
SI.I.
IN
3l
T
AN
ERROR MESSAGE. ANY
ERRO
THIS TEST HILL RESULT IN ABORTING ALL OTHER
TESTS nno JUMPING TO

7el

TEST 2

'END OF PRSS’

SIZE THE BUSS

THIS TEST

EITHER

IS ENTERED ONLY IF

'DRIVEOEELECT ON’

ING IN THE AUTO MODE

A 200

IS DEFAULTED

START IN THE

Emm.sa?Tm'|u)
I3“wnflfzSSED
gfl
sr AS Ex
?r“gIF :2 NOTP%(E)GfiflflWILL BYPASS
s
oru mon
mc?:on musoaomnssn m—
?
cA'r
POR s ACCESSED.

TEST 3

DTYE, THE DRIVE WILL BE TESTED RS N RKO?

VERIFY OPERATOR DRIVE SELECTIONS
&é?gT
TH
IS
WW
FR&!
xg*VE
SiLEC%g
NOT

CONT
I
Oflg
%
o
I

R!?i

ANRO
TEST 4

Ilfi F NOT gsTkK&HE
TMT HLL
EE2?0
rl? gET
OR BOTH
C KED RGQINT HE NPUTTED INFOR TO
NOT

CIFIED.

0 OTYE,

THE DRIVE WILL BE TESTED RS

FIND NEXT DRIVE TO BE TESTED
THIS TEST FINDS THE

BRY

S SIRN

VAD'
07.

NEXT DRIVE PRESENT 3 PUTS THAT

STMPY IS SET TO CDT IF THE DRIVE

THROUGHOUT THE FOLLOWING TESTS,
THE DRIVE WHOSE RDDRESS IS

—

TEST S

PRINT DRIVE SERIAL NUMBER

THE DRIVE TESTED IS

"DRVA

CZREIEO UNIBUS RKE DR_PRT2
CZRBIE.P11
10-JAN-78 09:43

MACY11l 30A(1052)

10-JAN-78

763

;;g

SEQ 001S
'

IN DECIMAL & IS PERFORMED ON THE 1ST PASS ONLY

TEST &6 SET VV WITH PACK COMMAND

; g
771

PRAGE 1S5

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

;gg

?EZ

coe

11:25

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

READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL #

THISI68% (ERACIGS BLBTSEIhoR%R.d
G K00 EXRY
1 TRPEY 5, o€
i 0R MSRl
b B (el

283

3'&2&2‘"“"&“7‘%:8":%
R ol

?gg

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

786

Tuxgnfs88“258"25 .“RIT

BSEL&NPS gxpnsssLian:nv PACK BY WRITI

;gg

:;;;E!?lg:!llllIll.llllllllI»llllll!lllIll.lllllllllllll!llllll.ll

;gg

3636 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 3 36 36 36 36 36 36 36 3 3 3 36 3 36 3 3 3 3 36 3 3 3% 3 3% 3 3 3 % % % %R

791

TEST 10 BRSIC WRITE DATA TEST;

1 WORD

;gg

;tzs TEST VERIFIES THE RBIL
xr; ?5: gfxxg
T0 HR{TE JUST ONE WORD,

797

PERFS"ES?

536

798

200
385

?fiEM'&?“&
TXEAD B W{eus COMMANDS
ARE NOT
TH&;OREST PROVIDES THE x TEST POSSIBLE SCOPE LOOP
e

TEST 11 BRSIC WRITE DATA TEST; FULL SECTOR

803
804

THIS TEST vsnxrxss T
Ffltt

807

gsov:
1S nspenrzo FOR AN ALL ONES PATTERN.

0D 0D 0D €D 0D 0D 0D 0D 0D €D O
B b bt s bt e s b b () ()
oo
LEWw-0OWwo

gog

3 C

ILITY OF THE
xv: T0
“aéTSn
unxrr;n Y1
A COMMAND

URTHER cu:cx IS PERFORMED

TEST 12 20 SECTOR FORMAT TEST

TRQCK IN 20 SECTOR FORMAT.
A g%a
F
DATA_IS WRITTEN
non CONDITION.
MSG BO,B1 ARE CH CKED

CYLINDER, TRACK, SECTOR
O xs u

TEST 13 TEST OFFSET & RTC LOGIC

CZRGIE.P11

10-JAN-78 09:43

MACY1l 30A(10S2)

10-JAN-78

D02

11:25

PRARGE 16

SEQ 0016

I-? ARE FIRST OFFSET BY OFFSET COMMANDS.
THIS
MCKS THE RTC LOGIC BY VERIFYING THAT THE
'OFFSET ON’ BIT (MSG A,00) RESETS AND THE
OFFSET REG

Sié

?;FFE

FF IlfO
WHEN A SEEK CMD TO A

m& (S)EEK
TO_SELF WILL NOT

T REG.
POSITIONS IN BOTH DIRECTIONS ARE CHECKED
TEST

14 TEST REARD DATA AT ALL HEAD OFFSET POSITIONS

=i
*s&fi‘“‘fi*%
18, wo - orvser
ITI
FRILURE BETEE
OCCURES. FEDio'eitnfs
OFFSET POSITIO

%t%m%swafigxlD BY RERDING MSG A, STATUS 00 & 10.
IF THERE ARE NO FRILURES AT ALL, THIS INDICATES THAT

? DI gI.flFRCE HEADS, R/W AMP
mé%??"
8. &
PTIONALLYGOOSC

NOTE THAT THE

OFFSET FAILURE IS NOT AN _ERROR

BUT AN INDICATION OF SURFACE, HERD, 8 R/W ELECTRONICS QUALITY ONLY
TEST 15 WRITE WITH HERDS OFFSET

(R Te ITHEADS OFFSET

THAT THE OFFSET WILL CLEAR

T2
TEST

R e o

16 TEST CURRENT CROSS-OVER CYLINDERS

AR TR 50, s YR 92 ML
SEAPS EHETNR EAPPEONIRR RO eROALoS
T Moe" ¥
TH&?I;ES%‘P?SK P{grncnom&moar&

IFY DATA WAS PROPERLY WRITTEN.

X:
CYLINDER
CYLINDER Y:

63
&4

127
128

191
192

2S5
@256

319
320

383
384

RKO6
RKO6

CYLINDER X
CYLINDER

127 255
128 256

383
384

511
Sl2

639
640

767
768

RKO?7
RKO?

CZRGIED UNIBUS RKE DR PRT2

1
;

O_UNIBUS RKE DR _PRT2
.P11

10-JAN-78 09:43

MACY11l 30A(10S2)

10-JAN-78

E02

11:25

PRAGE 17

THE ABOVE CYL NUMBERS ARE

SEQ 0017

IN DECIMAL.

TEST 17 TEST HEAD SWITCHING TIME

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

CTM ss Fgfl?T SSRTED AND A WRITE DATA COMMAND OF S12 WORDS

1-5 DRIVEO&Luor HAVE TO TRAVEL

3. sx E H m % szcron
xrc BETWEEN
HEAD 0; TO
sec on o. nsno n nm comnou.zn nzaov hppnox 6hs
nc

THE ABOVE IS REPEATED FOR HEAD SWITCHING BETWEEN 1 TO 2
THIS TEST IS BYPASSED IF NEITHER L OR P CLOCK IS PRESENT
TEST 20 DRIVE OFF TRRCK TEST

THIS TEST

KS FOR SERVO OSCILLATIONS DURING SETTLING TIME BEYOND

gRY CV&

THE ALLOTE

Y A_SINGLE CYL SEEK FROM O TO
'eé " ui § C“QE SS DOR
TO COME ER THE
3.
tkfifi gD
o REMING THE TRIBITS,
BRIVEHE
IN THIS MANNER OSCILLATING SEEKS ARE PERFORMED BETWEEN ALL MARJOR CYLINDE
&Q 0 &&TI?{(‘S é)%(TPEYLO%g AT EACH MAJOR CYLINDER

WD WD DWW
D WD D DD
D DWW DWW DO OO DD DD
W
U 0 s e Bt s Bt Bt ot s Bt ()
OwoNCNLWN
W=D WVOoONO'NLWN~=0OWw

R IS FORMATTED WITH IDENTICAL HERDERS

R F

ANY_TEST THAT HOOIFIE? STANDARD FORMATTING IS FOLLOWED BY R
;CLER!F UP’ TEST TO PUT THOSE CYLINDERS BACK TO STANDARD
6.0

ERROR REPORTING

6.1

ERROR INTERPRETATION

WHENEVER

L RE ISTERS
fi's'g g{gnongn
PER'EIN&(NE % PRINTED
me
EmogOUTMfio Icgg
IVHE
TIME OF
CONTEN br"?r: co&ntlncRscxs§ RS AT THE

EVERY ERROR MESSAGE CONTAINS A PC.

THIS PC INDICATES THE

POSITION IN PROGRAM WHERE THE ERROR CALL IS LOCATED.

THE

°§

C_UNIBUS RKE DR _PRT2
Pl

10-JAN-78 09:43

MACY11l 30A(10S2)

10-JAN-78

FO2

11:25

PAGE 18

ERROR MESSAGE, gggauss

SEG 0018

PRACTICAL CONSIDERATIONS IS

MADE

kann "’"§a82° #oér xnétg §¢u§7 “xx RATION
is 2152#
N é"’%&"fl’?fiALL¥=§THE522#NUH%ERS
:usngs ségggz:ifsg.
35gggéggégcnzg
uxru £RROR
GIVEN57

2?3g7n7 PgL§gnoa.
g‘
*
:§2=§unrxo«°8i ‘u: DAT ?xvén WILat
nug
NOTE

NO ERROR LOGGING OR OPERATION HISTORY IS PROVIDED.
6.2

ERROR PRINTOUT EXAMPLES:
EXAMPLE #1

%?sgchgTEgg?RNOLE CMD & FWD SET
00001‘1 xgésgao

OgOI‘N i&@01370'4 %@1 -

285
s ee
ACTUAL DATA FOR
1401

nESsSSSVEEE”Q?Ehg 23°“§05*’ECTED&

D ouT

Ngs Sf ?
R DIFFE NC
CYL
OR INFORMATION

YL INDER

ns REQUIRED IF

RESS &

n VARIABLE PARAMETER OF THE

EXAMPLE #2:
NO_ATTN IN RKASOF
AFTER UNLORD COMMAND
TEST NO

RKMR2
000144

‘014330

RKMR3
100000

RKER
000000

RKDS
100101

RKCS1
000206

RKCS2
000104

RKASOF
000000

CZRBIED UNIBUS RK? DR_PRT

CZREIE.P11

10-JAN-78 09:43

MACY1l 30A(10S2)

987
988

989

990

10-JAN-78

GOe

11:25

PAGE 19

[ END OF DOCUMENT ]

SEG 0019

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

MACY1l 30A(1052)

10-JAN-78

11:25

PAGE 20

SEQ J020

l»ll
gGH n832 %%

ENRBL

RBS AMA

; DEFINE SYSMAC MACROS

i&?HOO

TITb

ZRBI?O UN;EUS RK& DR PRTZ2

ggsglggng¥l¥gggs 15.*413,11,10,9,8

36GITAL" ol printe0%F

!PROGRRH BY GARY PAPAZIAN
iT
HIS PROGRAM WAS ASSEMBLED SING THE PDP-11 MAINDEC SYSMAC
lPRCKRGE (MARINDEC-11-DZQRC-C3), JAN 19, 1977.
iBTTL

OPERATIONAL SWITCH SETTINGS

SWITCH

;¥

s 8
;¥

12
11

T¥

: ¥

;¥

SBTTL

R L

U
[y S

0000000000000
LLWWW

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

s Bt Bt Pt Bt e Bt Bt Bt Pt s Bt Bt P

Bt Bt Bt Pt e

UWNUUN&NN’UNNNNN'—H'—
-—o.omvgm
LWN~-0OW NONLEWN-0OWVOoNCNLWN—-0O Do

0000000000000 00000000 o

-y 0000

100S

§§fi§=

*
*
*
*

*
*

USE
HALT ON ERROR

&NHIB T EEEOR

RFTSR 20 ERRORS
?R
ABORT
TERAT
INHIB

BELL

LOOP ON ERROR

LOOP ON TEST IN SWR<7:0>

SUMMARY OF STARTING LOCATIONS

200
204
el4
ec0

DEFAULT PARAMETERS
DEFRAULT PARA T RS
DEFRULT PARA
INPUT PflRRHET

240

oDT11l

eeH
230

PASS WRITE TESTS
YPRSS TIMING TESTS

INPUT
HETERS & BYPASS WRITE TESTS
INPUT PRRRHETERS & BYPARSS TIMING TESTS

CZRGIED UNIBUS RK& DR PRT2

CZRBIE.PI11

10-JAN-78 09:43

MACY1l 30A(1052)

10-JAN-78

BASIC DEFINITIONS

102

11:25

PAGE 21

SEQ 0021

% :g

.SBTTL

1044

!INITIRL ADDRESS OF THE STACK POINTER #%¥ 1100 *x»

1045

1046

001100

igzg

1049

EQUIV

.EQUIV

1050

000011

igég
1054
i8§2
1057
1058
iggg
1061
1062
1063

888263
177776
177774
177772
177570
177570
000000
000001

1051

&TAC

000012

%2
%3

H
i

RAL
RAL

%5
%6
%7

H
i

RAL
REGISTER
RAL 55
GISTER
R“?o TER

; ; PROGRAM ounrsn

PC=

RY4=

Sp=

000040
000100
000140
000200
000240
000300
000340

PR1=
PR2=
PR3=
PRY=
PRS=
PR6=
PR7=

1083

100000
040000

s
3"
1u-

1086
1087

1090
1091

1092
1093
1094
1095
1096
1097

020000
010000

381008
000400
000200
000100
000040
000020
000010
000004

FEED

HH
i

RAL

f E

. ¥PRIORITY LEVEL DEFINITIONS

PRO=

1075
1076
1077
1078
1079
1080
iggé

1084
1085

; CODE FOR nonxzournL TAB

R2=
R3=

000007

000000

gnfr
530
.,co ESSOR
FOR gnan%ncs
sgrunn LINE FEED
PS=
177776
33
STATUS WORD
T
LIHIT
éggfé¥ 7?’??3
PIRG=
177772
::snggann
?
Esouesr REGISTER
DSWR=
177570
Suxtcn REGISTER
.,unaoflggg ISPLAY REGISTER
DDISP= 177570
i ¥GENERAL PURPOSE REGISTER
DEFINIT
RO=
%0
cEE
anL 522?TER
Rl=
%1
,.csusnnL nsc sren

{8;5

1074

DEFINITION OF SCOPE CALL

FOR LINE

RS=
Rb=
R7=

1073

FINITION OF ERROR CALL

::BRSIC

,.co

000S
0006
000007
000006

..ansg

1067
1068
1069
1070

IOT,SCOPE

LF=

002
000003

000004

1100

EMT, ERROR

; ¥MISCELLANEOUS DEFINITIONS

bT=

1064
1065

1066

BASIC DEFINITIONS

40
100
140
200
240
308
4

..Pn}onirv LEVEL O

P IPRIORITY LEVEL
: ;PRIORITY LEVEL
;;Pn{on TY LEVEL
:'PRIORITY LEVEL
::PRIORITY LEVEL
;;PRIOR%TY LEVEL
: 'PRIORITY LEVEL

. ¥*SUITCH REGISTER" SWITCH DEFINITIONS

SWi3=
SWi2=

SW09=
SW08=
-

SW07=
SWob=
SWoS=
SWo4=
SW03=
SWo2=

100000

4000
20000

10000

1830

400
200
100
40
20
10
4

1
g
H
S
6

Bt B ot (ot ot s s Bt s ot Bt ot ot ot ot s Bt s B B B et Pt ot ot ot Bt Bt Pt et et ot s s Pt Pt Pt et s s et ot ot o ot Pt Pt ot ot s P ot
s s Pt s s s Pt Pt P ot Pt Pt Pt s Pt s s Pt s ot s s ot et ot Pt s s s s s s s Pt Pt Pt ot s s Pt Pt Pt o ot (s Pt Pt Pt Pt i

3F
i FE
<

01
0e
03
o4
0s

000004

000240

PIRQVEC =240
TPV

.SBTTL

?unnunouun
TR
TE g
P

et bt b bl bt

% O=-NWENC"NDW
) )e e = = =

e B

MOOOOD {erlevlolir]

G BERCZRR[B3

A A=

CLCCCCLLLL <L

000001
"

T mimmimmmmmnmP B

10-JAN-78
MACY11 389(1058)
C DEFINITIONS

Cetteteettns
m
8 Orrr—enD
=W £
"

000002
000001

EEEERRPPELS

098
099
00

O
] nmo OOOOMOO~

CZREIEOQ UN IBUS RKE DR_PRT2
CZRBIE.P11
10-JAN-78 09:43

—A—0MeVWM
x
=D

——m

W—DVONCNLWN—-DWDN
LW Lo = IV
1N
] LWN—-DVONOCNLWN=-0OW
onnnErLLLLrLr
SUUUR&UU%NUNNNNNNNNNN'—H”5-0-"’-*-'—0—9838

e B

Bt et Pt et

e
————
e
——

11:25

JOe
PAGE 22

2o
2106!

VECTOR ADDRESSES

iR §Eg¥§0 AND ILLEGAL INSTRL'"TIONS
;3 TIME OUT AND OTHER ERRORS

; ; TRACE TRAP

;;gngT/OUTPUT TRAP (IOT) #%SCOPE**
]
R Ffil#
;;gmnza; RAP (EMT) %%ERROR**

; ; BRERKPOINT TRAP (BPT)

TRAP
TRAP"
;3
:;TTY KEYBOARD VECTOR
;3 TTY
PRINTER VECTOR

; ; PROGRAM INTERRUPT REQUEST VECTOR

RKO& CONTROLLER REGISTER DEFINITION

SEQ 0022

CZRGIED UNIBUS RK& DR PRT2
10-JAN-78 09:43
CZRBIE.P11
1154

i}?,fi

000000

1161

000010

usg
116
1164

1165

1163
1168
1169

1170

fi;é

MACY1l 30A(1052) 10-JAN-78 11:25 PAGE 23
RKOB CONTROLLER REGISTER DEFINITION
;

1157

1158
1159
1160

KOe

RKCS1=

SEG 0023

$BASE=177440

2
M
b

s CONTROL AND STATUS REGISTER 1

:WORD COUNT REGI T;n

000002
000004
006

RKWC=
RKBA=
=

888812
14
000016

RKDS=
12
RKER=
14
RKASOF= 16

00003¢
034
000036

RKPR1=
5t
RKMR2=
34
RKMR3= 36

I2mfm m
TNTERANGE SEGETER
REGISTER é (MESSAGE LINE R)
‘MAINTENANCE REGISTER 3 (MESSAGE LINE B)

000032

RKECPT= 32

'ECC PATTERN

000020

000030

H;g

RKCS2=

RKDC=

000001
000003

1182
1183

13
oooox;

:DEST

RKECPS= 30

.SBTTL

{{;5
1179
1178

:BUS
SS REGISTE
‘DESIRED TRACK
SECTOR REGISTER
: CON
AND STATUS mfi'cxsrsn 2

: Eg&\ofs TATUS
REGISTE
:
GISTER
:ATTENTION
AND OFFSET REGISTER

cvkmocn REGISTER

ECC qursgn INFORMATION

INFORMATION

CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0)

DRIVE COMMANDS
;
SELDRV= 1

:SELECT DRIVE (GET STATUS)

000005
0007
0011

PACK=
3
CLEAR= §
UNLOAD= 7
agrsnz 11

:PACK ACKNOWLEDGE
:DRIVE CLEAR
: UNLOAD
:START SPINDLE

1184
1185
1186
1187
1188
Hgg

00001
000021
23

SEEK=
57
RODDATA= 21

3255
:
DATA
TWRITE ’Emn
;55
ADER
: WRI E HEADER AND DATA
:WRITE CHECK

1191

106

1178
1180
1181

1192

1198
1195
1196

1197
1198

1199

1200
1201

000031

CAL= 13
OFFSET= 15

WRDATA= Sg
ROHERD=
WRHERD= 27
WRTCHK= 31

;Rscgtpmrs
:OFF

GO=

1E=

BITO

Bale=
BAl7=
-

s*rg

010000

¢T0=
CFMT=

G178
BITS
gmo

; énr

171l
BITI2

:CONTROLLER TIMEOUT
: CONTROLLER gnxv FORMAT (0=22 SECTOR,

0400
100000

I=
CERR=

BIT1Y
BITIS

:DRIVE INTERRUP
: CONTROLLER ERROR

800400
001000
00
00

DCPAR=

BIT13

;GO

BIT

PESug
B0 %gs
ROBRESS
BIT
11
IT
: CONTROLL
IVE TYPE (D=RKOG,1=RK07)
:SERCON PARITY ;

1=20 SECTOR)

OR DETECTED BY CONTROLLER

CZREIEDO UNIBUS RKE DR_PRT2
10-JAN-78 09:43
CZRBIE.P11

.SBTTL

CONTROL AND STATUS REGISTER 2 BITS (RKCS2:10)
A
A A~
el
ey [ A [T TR
nEwn—-0

RVHSK-

s s et b
B
e B

; CONTROLLER CLERR

BIT1S

020000

IDESELET BR RELEASE
DRIVE IN 1S 0-2

§§§aeggg§gLéESEONTROLLEA
AND ALL DRIVES
; OUTPUT RERD

'%T FIELBO&VERSELECT

gz
BgssrfcgRfiRSon

B b

N EWN-O

e e e e e e e e

bbb b e b D DN
(UB<AL=

000D T T (D 0D D T D €0 Co WD 1 (D

s Pt Pt Pt ot

et bt et b

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

{EER TheompiEte”
“
NON-EXECUTGBLE

TION

DE;ES;ED SERCON PARITY ERROR

IVE TYPE ERROR

;ECC HARD

RROR

?
N?Eogx kB0
Bflgg RE OW_ERROR
ROR:

.DRI

ERROR

3
RATION (EERRCH)
;DRIVE UNSAF
;DATA CHECK

HERD/CYL

INCOMPLETE

STATUS REGISTER BIT DEFINITION (RKDS:12)
DRIVE AVAILABLE (CONTROLLER IS SET IF
THIS
PIT IS RESET

DRIVE

;AC

LOW

;

UME VALID

’

sg;ggo

e Dt 0l Dl D
0t 0

100000

=
e = NI
EW
nLw-

e
= =~

0t Dt

M m

BITO

DD (O D0 I M D

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

8 0d 5t bt

s ot ot et et Pt e B

e Bt

SEQ 0024
'

CCLR=

NNNNNNNN})NNNNNNN
i
mmmmmmmmmmmmmrommmmmmmmmmmmmmmmmmmg
LLLLfLfLLrfw
W W W WL W
nn LW OWVO NN LW~ OW
\NoenEw Y 0 mflmm:umwoa%mzugnggm

s bt Be
e e

100000

LO2

10-JAN-78
11:25
PAGE_24
CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0)

MACY11l 30A(10S2)

: ,,,2“OFF TRACK
:0C

RERDY
TYPE (0=RK06, 1=RK07)

i POSI IO ZNG IN PROGRESS

;DRIVE STATUS CHANGE
iSTATUS VALID

MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22)

CZREIED UNIBUS RKE DR _PRT2
CZReIE.P11
10-JAN-78 09:43

1258

000017

1259

ooooaoq

iase

000200

1888

870000
33%

MO2

SEQ 0o2s

PAGE
ION (RKMR1:22)
RAiATERAncE RECTSTER 11477 DEFINIT

MACY1l 30A(10S2)

10-JAN-78

MESMSK= 17

;MESSAGE MASK

R’s‘B
nmga
n&o:
geuo:

BITY

:FORCE

31;7

ECCM=

Efila

}ggg

.SBTTL

DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE A (RKMR2:34)

74
e
12;9
ggm

1
Rl
11
:'ER?Y:= Bx;g
T

1%54
i gs
{ase

i§?§

888?08
géggm
10

i
1281
0100

1282
5533

020000
040000

{gg

1287
1588
1289
xsqc;
1291

1292
1533
1

e
iage

000020
0001
ggg

001000

pe
040

iggg

PAT=

11:25

EH?
Efrs
axHo

peo:

BIiA

ggcgr'e;

Hé

g
BZSP N= i
Sina
-

D.SSP=
BITY
B:- Rbm=
BITS
BRHM=
T;
-DOOR=
‘CART=

BIT
BIT8

;
:

CART

NTERLOCKED
INTERLOCK

ELis
D= gmu

ot
Lone,
: nos UNLOADING

.SBTTL

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

BITS

mvnuo DISK ADDRESS ERROR:HEAD/CYL

31}7

g v§~6:g.

020000

D.DROT= BIT13

igig

:SERVO SIG PRES
i: READS HONE
5 ugcs

1309

040000

:POSITIONING IN PROGRESS
:DRIVE STATUS CHANGE

: SPEED OK
:F
; 5

B'éx:' g}fio

igig

:SPINDL

D.SPOK= BITS
"FWD=
BITIO
-REV=
"é

ég

040
10

ke
H

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

é%

1307
1308

D5 AVA
eyE
R TYPE {0RKOB, 1=RK07)
zgfixgg

.SBTTL

[

i ERECOMPENGATION BovANC

gaxsgosgg és BEING Reno OR WRITTEN

BIT13
BITIY

890100
0002

5%
'3 TOR PULSE
;n‘gxgrm xms
Emim
E
D READ DATA
1MA
NCODED WRITE DATA

3.919:
.DSC=

13
130

iaos

EVEN PARITY ON SERCON MESSAGE LINES

B:ACLo= BITE
o.n.gz
,

§'SPLS=
= Einé
BITI
.

s’sfik xncog ?eéscScou PARITY ERROR

'ugir
ES
Sa
SPEE
s

.omvs orr TRACK

D.UNS=

BITIH

:R/W UNSAFE

_SBTTL

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

[NTA]

WWwww
WWwwww
WWw W
wWwnn
Noon F4A

oy s=yunyus

WWWwWw
L ettt &
R== OO0 NCNLEWNN~=OOoONNoN
L l'"'l

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

NO2

MACY11 30A(1052)
10-JAN-78 11:25 PAGE
2
DEFINITION OF DRIVE STATUS BYTE Ol nzssace B (RKMR3:36)

000020

D.SECT= BITY

0538

B.ucnrs BITE
"HDFL= BIT?
D.MHD= BITB
o.x§RR= g 19
D.TIB=
T10
D.PLO= BITil
BIT12
D.NMOV=
D.LIMD=
BIT13
D.SUNS=
BIT14

gggnqo
00

001000
002000
004000
010000
020000
040000
000007

077770
000003

D.WCUR= BITS

IWRITE
§ AND NO TRANSISTIONS
{HEAD F|
iMULTIPLE HERD SELECT
;xuosx ERROR
:TRIBIT ERROR
:PLO ERROR
:SEEK_AND NO_MOTION
;LIMIT DETECT ON SEEK
i SERVO UNSAFE

.SBTTL

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

M.DRV=

.SBTTL

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

M.SER=

77770

040000

M.ALGN= BITI14

M.ID=

100000

M.PAR=

BITIS

000760
007000

; SECTOR ERROR

IWRITE CURRENT AND NO WRITE GATE

M.SECT=
760
M.HEAD= 7000

;8n§vs CODE,

ALL BYTES

:DRIVE SERIAL#, BYTE 11
aerng
ALL avres

;SECTOR
couflT avrs
:HEAD DECODE, 'BYTE 11

:PARITY, MESS A/B, ALL BYTES

SEQ 0026

-e

CZREIED UNIBUS RKE DR PRT2

CZRBIE.P11

10-JAN-78 09:43

iggé
1

1§§
1

}333;

{gws

NCE

LOCATIONS FROM Y4 - %omnm A ", +2,HALT"

TO CATCH ILLEGAL TRAPS

174

176

000200

xsm:c: g

w
s*r TING noor'SS( ES)

:;SOFT

PARSRT

: INPUT ALL PARAMETERS 8 START TESTING

0.0DT

;ENTER 0DT11

012546

055500

JIMP

000240

000137

{3??
1358

;;ggr

1361

00054e

0000S2

igga

. =240

13?9

hooxs nsouxnso BY ACT11

137§

100000

061500

000024

1376

000044

i} RESTORE PC
TER BLOCK

3 I'lllIlllllllllllllllll!l“l!lllllllllllllllllllllllilllllllfllll!

1010

.$X=,

$iSET

000044

L =44

000200

001000

lllllllllllllll!llllllll“ll“lllli!ll!l!llillllllllllllIllllIi

238"

iggg 001012 000042
1393

4392.“

;;a)sgr LOC.52 TO 100000

000024

1377
001000
1:‘!78
1379
{ggtla
1382 %moo
1383
1000
1384 881002 00121
1385
1004
1339 %wos ggugg

1392

.SBTTL

001000

1374

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

ser LOCATIONS 24 AND 44 RS REQUIRED
F

1371

1375

‘

.SBTTL ACT11 HOOKS

000244

13 0

137

SWITCH REGISTER

S8START ;;JUMP TO STARTING ADDRESS OF PROGRAM

igg 000046 8868@

136

DISPLAY REGISTER

R 1212122212222 222222222222322:22323222221222223223222222222222222222 23

1359

1365

INTERRUPTS

.Locmxon com INS O TO CATCH IMPROPERLY LOADED VECTORS

{3§$ 000220 000137

1364

goe S
,

012556

1353

.SBTTL TRAF CATCHER

%é 7

iggg

803

10-JAN-

8 @mn ae?s
MESSAGE B (RKMR3:36)

; #AL

000000

1
1339
1348

MACY11 3onuosa)

0?“

mp. POINT TO START OF PROGRAM

TRRT

iPOINT TO APT xrm

$APTHOR ; ;PO m T0

APT

cT noonsss PNTR.

=.8X
::RE
Loeanon coum
se
T PARAMETER BLOCK RS DEFINED IN THE APT-PDP11 DIAGNOSTIC
mrsnrac: SPEC.
SAPTHD:
SHIBTS: .
;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
;naaon: - WORD
;;nooa;ss OF APT my. X (BITS 0-15)
TSTM: .WORD
88
iiRUN TIM OF LONGEST
TEST
SPASTM: .uong
i § RUN Tyt IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)

H lIllIIllllllll*‘illllllllllllll!lIllllllllllllllllllllll!l!ll!l

SUNITM:

.WOR

- WORD
.

‘ADDITIONAL RUN

TIME (SECS) OF A PASS

ssrsno-shhx 72 ;;LENGTH MAILBOX-ETABLE (WORDS)

FOR EACH ADOITIONAL UNIT

CZREIED UNIBUS RKE DR PRTS
10-JAN-78 09:43
CZRBIE.P11

BBURREOREBBVRRE

e Bt Pt

e — Pt Pt P

PPP £ LfrrrrsrrrrrrrrirLrrrr
s
LfLrLfL
L L £L £
UMD MU MU= b
o
m
(P 4N

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

s Pt Pt Pt Pt Pt Pt Pt Pt P

e
IS‘SIS&‘&&IéJ&&“‘SW
s s et s Pt s P e
SBIR

1394

1449

MACYIL 308t BRRAme

N-78
tERTBLOCK

CO3

11:25

PRAGE 28

SEQ Q028

;USE LOOP X TO OMIT SUBCLR
.MACRO

JIF

LOOP
SCOP1

A
PC, SUBCLR

ERROR
.Enoc

"ENDM

:RESTORE STK PTR

#STACK, SP

:CERR AFTER SCLR

LOOP

THIS MACRO FILLS EXPECTED MSG RO,

BO,

Al,

Bl, A2, B2 8 B3 WITH STANDARD BITS

;n-o DSC AFTER ATTN OR O AFTER DRIVE CLEAR OR’ANY' IMPLIED SEEKS
:NOTE:

A CAN BE ANY BIT COMBINATION DESIRED.

'MACRO

F.ERB

MOV

8<A'D.SPIN!D.DRDY!D.VV!D.DRA> ,E.AR0

gox

.ENDM

v
nbv
MOV

F.ERB

;EXPECTED MSG RO

1 B BRAN! B , e nx ;EXPECTED Al
hEBo5K
'0.BRHM!D.SSP>
D ogs CTED MSG B2
;

.SPOK!D.CART!D

.nsg gzfion §:§gcreo Bl

.Bl1

s2,E.82
#3.E.B3

:MSG ID FOR EXPECTED MSG B3

DRIVE MSG RO, BO, Al, Bl WILL ALWAYS BE TESTED
RESP.
ERROR"78NUMBERS
MSG AD, BO, A1,POT B1 nr8
53
“
E
A,C,D
*CYLDIF’
G=T.

ruxs nacao RS

USE
uss

PUT
B3 & PUT

:
:

H=T.
x:T

:USE

F=(ERROR DESCRIPTION>

"MACRO

CHECK

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

JSR

PC, CHKMSG
2-h'x

EERROR

RROR

.ENDM

C
g

HECK

nsch DIFF/OFFSET ERROR v
:B=CYL ADDR ERROR
:C=<ERROR oescnxprxou>
"MACRO

CWD2

A,B,C,"0,"%E

INFO
INFO

INTO *CYLADD’
INTO *SECTOR’ &

HECK
hené
E
R
IMSG gfigcnggzo
;

B0 ERROR
MSG Al Ea

:MSG Bl

ERROR

'HERDA’

*538&& L£L£EL L
S&-‘#&J‘gé
D& LN
E
LR s.unvgm:ux! 8

10-JAN-78

APT PARAMETER BLOCK
MOV
JSR
TST

e s

e B—

MACY1l 30A(10S2)

£
L

CZREIED UNIBUS RKE DR PRT2
CZREIE.P11
10-JAN-78 0U3:43

e
e b= Bt
e Bt Bt

CuWD2

.MACRO

DRCLR

:SELECT WORD 2

cY(DIF

;gselgrvgsc R2=0

B
.ENDM

"MACRO

RRor
Zi
MOV

c:
.

§mmmg§:
2
B8
£E

ng usr CLEARED C
IF

MSG B2=0

;BR IF YF‘S
IMSG B2
NOT CLEARRED C

IF B

.ENDC

.ENDM

R0 ROY BrTER DRIVE CLERR RO

PC,TSTATN

; TEST FOR ATTN

154

;ATTN NOT CLERRED AFTER DRIVE CLEARR CMD

TO OMIT CHECKING MSGS RO, BO, A1, Bl, A2 & B2

(RS)

iSEE

CALIB
MOV
MOV

;

DRCLR

' USE CALIB

SEG 0029

LRI e

Bt B

.ENDM

PAGE 29

82, RKMR] (RS)

PC,GSTAT

CYLADD

e Bt B
e
P

DO3

11:25

BNE

g0 meca o 3 ot conrn ey

;SELECT WORD 1

ERT; uo; gfguguaxnc RECAL CMD

fow"
JgR

Pé,tn T1

cifcx

33? 275,222,276, <AFTER RECAL CMD>,T.R2,7.82,T.B3

ERROR
g
-

cuwb2

£g

E??ngar¥n

NO ATTN AFTER REZAL CMD

47,80, <AFTER RECAL CMD>

DRCLR
CALIB

'QUICK START SPINDLE

P11

10-JAN-78 09:43

MACY11 30A(1052)

a BB TN £ whosB.DD G5 £ oror o BB I

10-JAN-78

APT PARAMETER BLOCK

EO3

11: 25

PAGE 30

SEQ 00230

"MACRO GKSRT
JSR

ERROR
MOV

JSR
ERROR

;CERR AFTER SCLR

#SRTSPL , HCS1

;D0 START SPINDLE CMO 8 GET CONTR RDY
‘RDY NOT SET AFTER ST SPIN CMD.

PC, DOCMD
121

JSR

PC,FATT]

CLR

UNLD

ERROR
.ENDM

PC, SUBCLR

T100 T;flpa

MOV

;SETUP TIMEOUT

iFIND ATTN

:NO ATTN AFTER ST SPIN CMD.

QKSRT

WRHEAD>
< CFMT !AD.
! A=WRHE

TO OMIT CHECKING RO, BO, Al & Bl

! USE WRHOR

(A>,%

.MACRO

WRHDR

A,C,K,?D

§nnon

soo

3EREA¥755
ol

!NO ROY AFTER WRITE MEADER CMD

PC,GSTAT

:GET FRESH STATUS

’

r}ox

£¢W n SERRRRRY xmmmmmmwmwmmm
WM
F B0 ® N £
OBB IR

§§

0 UNIBUS RKE& DR PRT2

'%FDC
-

’

?SX

sgnon

.iF B

gggn

1
MSG26

$E0P

——

CHECK

.ENDM

WRHDR

! ps

:USE

"MACRO

117

8CERR, HCS1

:NO RDY AFTER SELDRV CMD

:CERR AFTER WRITE HEADER CMD
‘ABORTING BAL OF TESTS

300
¢ AFTER WRITE HEARDER CMD>,0,0,0
»,0,0,
277,267,300,270,

/<CFMT!RDHEAD)>

<R>,X TO OMIT CHECKING RO, BO, Al, Bl

RDHDR

A,C,?D,%E

MOV

SRHTAB, RO

MOV

& GET CONTR RDY

Sé csg‘r: Agsmnw LHCS1

JIMP

DO DATA X FOR CMD

s<A> HES]

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

s s s s Pt Pt Pt Pt et P Bt Pt Pt
Pt P
s s s Pt P

scsm.ncsx

17]

174
MSG26

IMP
MOV
MOV
MOV

$EOF
RKDB(RS), (RO)+
RKDB(RS)
. (RO)+
RKDB(RS)
. (RO)+

#0LT,RKCS2(RS)

;D0 DATA X FOR CMD & GET CONTR RDY

'NO RDY AFTER READ HEARDER CMD

:CERR
AFTERBALRE 89 'r?s?gR CMD
;aSonnnc
;1°ST WORD FROM SILO TO RHTAB
:2'ND
;3'RD WORD

Jnson
?vp:
IMP

LIF

]

CHECK 301,271,302,272,
<AFTER READ HERDER CMD>,.T.A2,T.B2,0

F.ERB

.ENDM

RDHDR

.MACRO

HDCHK3

Egneces
—

SEG 0031

$e0P

DLT AFTERBALREADor"?ssHEADER CMD
‘ABORTING

NN EWwh—-0O

Bt Bt Pt bt

s Pt

oooocoooor

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

s s s ot

BRRZERCRSESRRLEN

—

s Pt (s Pt Pt ot Pt Pt Pt P

U INUNININIIUIL
0

(]

PC,DATCMD

ESR
nga

FO3
PAGE 31

11: es

JSR

RROR

s Pt Pt Pt Pt P

i
gwmmmmmmmmm
W
oo
BBFREOR-B
D@ et L D-D£ A nNniw X

§§

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

ROHDR

CMP
ESS

LENDM

"R
RDHERD

RHTAB, TOCYL

A
SI

;CHECK WORD O ONLY, CYL#®
‘BR IF SAME
'WRONG CYL® ON HEARDER

HDCHK3

A=TOCYL/FRCYL , B=HEAD®, C = O FOR 22 SECTOR,

"MACRO

HDTBL

AR,B,C

MOV

A, CALADD

JSR

PC,FHDTAB

ngv
v

.ENDM

:g,%RHQT
,HERD

1 FOR 20 SECTOR

;?ETLP

; HERDER

;70 FILL

; TRBLE

HDTBL

QUICK SEEK.

ENTER WITH CYL® IN RKDC

"MACRO

QKSEEK

MOV

#SEEK,HCS1

£
(=]

Bt Pt Pt P

Pt Pt Pt

ooooooooooo
o

s Pt Pt Pt Pt P

Pt Pt Pt Pt Bt

s Pt Pt Pt Pt

_fi

gfl'
oo
o
BBVRERLER DERERRNRT nN—0Owm
l"ll"l

0 UNIBUS RKE DR PRT2

10-JAN-78 09:43

MACY11l 30A 1052)

JSR

ERROR
MOV

OwoNNCTN LW

SEQ 0032

D0 SEEK CMD & GET CONTR READY

150000, TEMP1

;SETUP TIMEOUT

132

'NO ATTN AFTER SEEK CMD

131

BIT
BEQ

#CERR, HCS1
A

210

:NO RDY AFTER SEEKCMD

:FIND_ATTN

:CERR AFTER SEEK CMD

. ENDM

QKSEEK

fltHRDflTfl/ (CFMT!WRDATA>
:

TO JMP TO ATTEMPT TO WRITE ON ANOTHER SECTOR

.MACRO

WDATA

A,C,D,E,J,K,?F,?G,?H,"I

HSH6
um

ERROR

gaa

PC,DOCMD

BIT

#CERR, HCS1
1

:BR IF NO ERRORS

BIT

#BSE , HER

CTOR LISTED IN BSE TRBLE
;ses 578
Rttt

END OF WRITING
AT THE
gvpnssnésag 1 8 A0Bl THRU
,E
; “??RaLani"
BLRNKeP HILL OMIT C éxxnc
Bl
-

JIF

9sn

MOV

ROR

BEQ

PC,GSTAT

& GET CONTR RDY
;D0 DATAX FOR CMD

'NO RDY AFTER WRITE DATA CMD

:GET FRESH STATUS

#<CFMT!SELDRV>
,HCS1

117

?Eg PC, TRUERR
oo
J
INC

FETSEERRT
A gmmmgmmm

PAGE 32

PC, DOCMD

PC FATt2

ERROR

—

11:25

JSR

ERROR

.ENDC
JIF
oo
o oo o

10-JAN-78

APT PARAMETER BLOCK

GO3

SECTOR

:NO RDY AFTER SELDRV CMD

IF gao SECTOR FLAG

;RETURN HERE IF YES

CMP

;ccron,oxo.

na: éo CONSEC. SECTORS BRD

RROR

TESY DETECTED 10 BAD SECTORS

ANOTHER SECTOR
ASCCLR,RKCSI(RS) !TRY
iA

?gg

.ENDC
JIF

JMP

:RET HERE IF YES

CZRGIED UNIBUS RK& DR PRT2
10-JAN-78 09:43
CZRBIE.P11

tg5e

MACY11 _JA(10S2)
10-JAN-78
APT PARAMETER BLOCK
ENDC

ERROR
F.ERB

FBE"

F.ERB
CHECK

WDATA

MIUNO—OM NN LW~ 0OWwo flgu\?

e e

ey Ny Py

NN N NNNNNNNNNNNNNNNINNNYN NNNNNNNNoO
o
oo oo oo o
o
MU MU MU
N b= 5t s et s s e e 3= =) O O
OO
D3

eS8 SRRESRN28IBIRR
2

1683

JMP
ERROR

HO3

11:25

SEQ 0023

PRAGE 33

;CERR WITH WRITE DATA CMD

S5u53,52.25. TERURHTE
ORIE GOy Ly T 020
;BAD SECTOR NOT LISTED IN TRBLE
0

§2,23,53,25, <AFTER WRITE DATA CMD>,T.R2,T7.B2,0

'n-nooarn/<crnr-noonrn
SE RDATA

.MACRO

.IF
.%FDC

.ENDC

BO,

Al & Bl

RDATA

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

MOV
JgR

PC, DATCHD

;DO

JSR

Pc GSTAT

;GET FRESH STATUS

s ROR

$<RA>

X FOR CMD & GET CONTR RDY

DY RFTER READ DATA CMD

O(CFHT'SELDRV) HCS1
OCMD

JSR
ERROR

11?

BI;

#CERR, HCS1

;NO RDY ARFTER SELDRV CMD

gase.nsn

;SEE IF BAD SECTOR

ERROR
BR

:DETECTED BSE IN READ BUT NOT IN WRITE CMD.

TYPE
JMP

s:%&

MSG26

y:ABORTING

BIT
BEQ

gocx.usn

:SEE IF DATA CHECK ERROR

ERROR
R

;DATA CHECK ERROR AFTER READ CMD (ECC)

ERROR

;CERR AFTER READ DATA CMD.

F.ERB

G:
IF

<R>,X TO OMIT CHECKING RO,

CHECK
BR
B

F.ERB

CHECK

BAL OF TESTS

gw.es.ss,ao,<nrrsn READ DATA CMD>,T.R2,T.B2,0

30, <AFTER READ DATA CMD>,T.A2,T7.B2,0
&4, 26,56,

\l\l\l\l\l\lfl\lV\Jflfl\lfl\l\l\l\l\lfl‘l\lfl\lgfl\lflaaaa
NN LW 000NN Igg

NNNNNY NN
o
L £L
—-OwNonNE wWh—-0uWw o

>
NI T N
I
IT DOARABARAS:

Lond

NN
0
o

P11

10-JAN-78 09:43

O@OOOOODIN NNNNNNNNoO oo
nLwn~-o0 0

10-JAN-78

MACY1l 30A(10S2)

APT PARAMETER BLOCK

ZE“S%

SEQ 0034

PAGE 34

RDATA
< CFMT ! MRTCHK)

! A=WRTCHK/

I C=EXPECTED DATA FOK TYPEOUT

¢R>.DATAD,X TO OMIT CHECKING RO, BO, Al & Bl

P USE WRCHK
.MACRO

A,C,D,K,?E,?F

WRCHK

MOV

#<A> ,HCS1

JSR

PC, DATCMD

;D0 DATA X FOR CMD

:GET FRESH STATUS

Enaos

.ENDC
JIF

JSR

PC,GSTAT

ERROR

117

SNy S Sy
T T Sy S
O e
L To O O
[

OO0

0 _UNIBUS RK& DR_PRT2

I03

11:25

MOV
JSR

#<CFMT!SELDRV>
,HCS1
PC, DOCMD

gcsna.ncs1

gga

SWCE , HCS2

MOV

uga ;i
c DB(RS),
()

:ACT
58Ro FOR TYPEOUT
Esxpgc#eo
WRTTE CMD

E"ESS

§a

:CERR AFTER WRITE CHECK CMD

TYPE

WD1

m5G26

$E0P

.ERB

D
O

LIF

CHECK

.ENDM

WRCHK

.MACRO

OFSET ?A
MOV

:SEE IF WRITE CHECK ERROR
WORD

FOR PRINTOUT

{WCE AFTER

7.31,60,32, <AFTER_WRITE CHECK CMD>,T.R2,T.82,0

CHECK
F:

:NO RDY AFTER SELDRV CMD

gés

ERROR
E:

& GET CONTR RDY

:NO RDY ARFTER WRITE CHECK CMD

;ABORTING BAL OF TESTS

57,31,60,32, <AFTER WRITE CHECK CMD>,T.R2,T.B2,0

#A, SESCAPE

MOV
JSR

80FFSET,HCS1
PC,DOCMD

MOV

g( 6PIP!D.SPIN!D.OFF!D.VV!D.DRQ),E.RO

MOV

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

ERROR

;D0 RECAL CMD 8 GET_CONTR RDY

:NO RDY AFTER OFFSET CMD

;EXPECTED MSG RO

CZREIED UNIBUS RKE DR_PRT2

CZRBIE.P11

10-JAN-78 09:43

MACY11 30R(10S2)

10-JAN-78

APT PARAMETER BLOCK

1786
kggs

JO3

11:25

PRAGE 35

MOV
CHECK

#1,E.Bl
35.61,36,62, <DURING OFFSET CMD>,0,0,0

CLR
n%v

ESCA
*sooopsenpx

:SETUP TIMEOUT

i;gg

ERROR

:NO ATTN AFTER OFFSET CMD

1794

F.EAB

1?7
1733

1791

JSR

i;gg

1797

1798

1799
1800

1801
1802
1803
1804

CHECK
.ENDM

OFSET

.MACRO

EOPGM

1805
igg?

1803

¢D.DSC!D.OFF>

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

INC

SDEVCT

; INCR COUNT FOR 8 DRIVES_CHECKED

?ng

NUDRV

EsLsé TEE? NEXT DRIVE PRESENT

#StAck,
SP

2§5¥§;§°EV°T

SEOP1:

igig

‘B = ERROR CONDITION

181

"MACRO

i%iz

283"5

1819

MOV
17

igg?
1822

:BR IF NEG OFFSET

CMP

R2,CYLDIF

;CHECK POS OFFSET

i%ao

1831

{a;g
18234
1935

ROR

CMP

Eso

ROR

.ENDM

:REFRESH RKASOF

#BIT?,R2

igas
1353

né,hxn509<n5)
c

EEO

1824

A,B,?C,?

SNE

1823

1959

;ggs gL§ DRIVES PRESENT TESTED?

. ENDM
GM
}
:A= ERROR #

OFFDIR

R1,CYLDIF

:OFFSET IN R2 NOT = RKASOF
B

;CHECK NEG OFFSET
;grrssr IN R2 NOT = RKASOF

OFFDIR
' NLIS T

f
'

SESCAPE
81,STIMES

xgm

1811
1812
1813

:FIND ATTN

SCOPE
CLR
MOV

MOV

1806

PC,FAtT2

SEQ 003S

10-JAN-78 09:43

R
FoR-5389R

Y Uy WY Wy Sy Sy SOy SOy Sy

Y SOy ShY Sy Sy UhY Wby oy WY oy Sy Uy Y Wy WY SO

833NER PARNLA

e ol T e
e
e

—

«2SR

COMMON TARGS

FETHI

:%USED

1100

KO3

11:25

PAGE 36

SEQ 0036

COMMON TRGS

negs conmms VARIOUS COMMON STORAGE LOCATIONS
IN

SCMTAG:

THE PROG

.=1100

. ;START OF COMMON TAGS

Hog

srsmg. Zg'if

“33%2?

utx’g
111

ngg: WORD
P§TL:: .uo:g
.WO

: ;CONTA
:: ;CONTA
:CONTA

Eom : %

1114
001115

Hé

D011

ITEMB: .BYTE
SERMAX: .BYTE

BHE
D011

O
|

SBDADR: .

foviee: (B é

;PB:

31158
001172

el
e
TMPS: .WORD

ii?fl

001253
i
001206

)

TH’UE
Zuo'
:RBE
TMP2:
.MWOR

000377

iéé
i

s il

RS G BleRTeR
T

iatgi,
1
]
g&t. . :gYTE 6

000D

nsmucnon
ingsnaon %

EBAIE
ee
HH
-NOT TO BE USED

BHE
5
fi§ 892.6
1122
DO1164

I sng TROL
MAX.
ERRORS

:: onmg

. WO

Z%
:
oA

ADDRESS
um
FOR ERRORS
5“ rEcreo

..cga;g

TOB: .BYT

1
0011 e
BHE

?“57 ??smnon COUNT

CONTAINS
: :CONTAINS

fi% .

15 TE?E NUMBER

: ;CONTA

sxcn‘f "

113-4
0011

D011

e e

10-JAN-78

3 X 1122122122121 2122222222222232323232232223322222222222222222222222222 222

D011

el e
e e e e e
e

MACY1l 30A(1052)
.SBTTL

0D 0D D 0

gn&

0 UNIBUS RK& DR PRT2

CATOR

TER
B
€ TCH SR

";Rnu
a

TATUS

REG. noonsss

sl
bt
sfifls
E
AREE
I
feaugoeo
5517 A z* ruac(9&*"87»5-vcs>

JRUSER

DEFDEF

i
:
;USER DEF
s or

% IéRRTI S

(207> ¢377> 377> ;;Eooe 02“BE
g
BRI e
x?»
iINE D

lilllllll!llllll‘illllll!!lilllllll!l!ll!llliillb
llll!lllllllll
3"4BTTL
APT MAILBOX-ETABLE

;écgalllilllllllllll!llllllllIllllllllllllllillllllllllllll!lliii

001210

000000

$MATL :

§MSGTY:

.WORD

AMSGTY

; sAPT MAILBOX

;;MESSAGE TYPE CODE

Ml"!

u—o—§ S RECRER ISR EEN 3

oplx"fx

301531
B0C
001232 000000

LO3

PAGE 37
APT ggfwox-s ABLE
; sFATAL ERROR NUMBER
AFAT
$FATAL: .WORD
NUMBER
;;ngr
mssm
gt STN: .WORD
;;PA csoum
APASS
.WORD
PASS:
ADEVCT ;;DEVI goum
SDEVCT: .W0
H

11:25

AENVM
::3131
EE
BITS
ASWREG ; ; APTsungn
GISTER

‘%

ACPUoP Lics 1§-u PU TYPE
M og;os 16/20-03 11/40=04, 11/45=05

NV:

e
KPUGPs NORD
’

001240

001241

000

§MAMS1: .BYTE

SMTYPL: .BYTE

AMAMSI

AMTYP1

B SR =

mfflt v?

SS,M.S.

.BYTE

AMT

001250

001251

SMAMS3: .BYT

SHTYPS: ‘BYTE

AnT

; sHIGH
'

K83

001255

TYP4: .BYTE

AMT

MEM.

N-0

3 32L

%1533

2\0 £

SR Brast
=001

s'u" —
: .gT

Bt s Bt et Bt s Bt Bt Bt Bt et Bt Bt Bt Bt Bt Bt Bt ot Bt B

BYTE

P g:ooa

aaondin
001244

Bt e B

BIT 10=REAL TIME' CLOCK

MTYPS:

SEQ 0037

ENVR:
BYIE
sufic: »

giE3
00000
ey

10-JAN-78

ot e B

o bt e b

MACY1l 30A(1

2 b

DM NV
L W

Rx?m-n

i§i3
121
1 §§

s Pt s s s Bt
s Pt e Bt Bt s Bt Bt

Bt Bt s s s s Pt Bt Bt s Bt s s B

DD D DD D DD

BUS

. "ng
; sHIGH
1

g.r

i n. v

a’:g . évr;g,mxs
WORD AND LOW OF “TYPETM RBOVE
BY
52

.S.BYTE

)
201280
01264
fif%
01272

i
y.a
fVEor::g -:fi
(fom vECTL
iIMiekaer sfi.fia&s
%25" ;;gfi ADDRESS OF EGUIPMENT UNDER TEST
figsuwifi :
1 iCONTH
SCRIPTION WORDS1

H
ooiaw fiéfis‘x‘g

Be5: R A RIG
RO i
ABA
AULT BUSS ADDR
Efigs%? éég7744.
agzr
comnousn mrennun VECTOR

COM2:

1
1
i
i

1314

881

172540

i
ot
3l
-

i BEY
i 3 DEV
B8V
: iDEV

_ fia PT

RIPT
1PT
A1PT
RIPTOR

.gonooe

'
'é
"
WORD#S

TEf?:

PKS

172540

OCK STATUS REG

$931hd
000000

LKS:

CVEC:
CVEC:

TRAPPC:

8888sletlats

100
104

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

143100

flfiggaz Ffifii*y XEQIgfl CSR TRAP
STRRT RDDR
’}LsaarsioriIQQINc"gugerquzflocann TITLE

?82133"&"‘5

PC FOR MEM CHECK ENRBLE

CKED NEXT.
c
NTHE ORIVE 10 BF ch

TEST
ROM RKMR3

’
l

0%IERTE TIME IS UP

SECTOR
C

g:s$£?E§§RIGHT JUSYTIFIED FROM RKMR3

; TIMEOUT CONSTANTS
(v}

NA BN ARARN

o§-o-

—

P
4=

;P-CLOCK SET BUFFER

;P-CLOCK READ BUFFER
;L-CLOCK STATUS REG.

:;g“flfi”
T?HER NUHSERT?OC u§178F7 8crxonnL SECOND

! FREFEN 8oLReRE

Lk
L£LLrff
£

£EE

446

te
'

SEQ 0038

180 FOR £ She

BN ¥

PN RIS L L L

s Bt Bt Bt
ot ot Pt Bt
Pt Bt Bt Pt Bt ot Bt s Bt Pt P

PAGE 38

172542
172544
177546

00000000

FARRLe.

s Pt
ot
ot ot Pt B

R RRRRFRRRR A S8 d i

s Pt s Pt s Pt Pt Pt et Bt Bt s Pt
Pt Pt Pt e

0100

81332104

PKSB:
PKRB:

001326

172542
172544
177546

MO3

11:25

128 g1z

MARCY11l 30A(10S2)
10-JAN-78
APT MAILBOX-ETRBLE

CZRGIEO UNIBUS RK6 DR PRT2
CZRBIE.P11
10-JAN-78 09:43

;CYLINDER NUMBERS USED_ IN

;iCURRENT CROSSOVER TEST FOR RKOB

CYL?:

:FOR RKO?7

10-JAN-78 09:43

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

e et
e

000000

OFFERR: O

;SET WHEN WRITE CHECK ERROR ON OFFSET

000000
00

HEARD:
HERDA:

;HEAD NUMBER
iHEAD % FROM H.B3,

000000
000000
000C00

FORMAT: 0
FMT1:
O
WDCNT: O

:FORMAT TYPE
:SHIFTED FORMAT FOR FORMATTER ROUTINE
:WORD COUNT

DATAO:
O
DATAOL: 52525
177777
DATAL:
DPAT1:
DPAT2:

133467
70627

;ALL 0’S
10101 PATT
(ALL 1°S

WORD:

O
O

;Hcgggn/onrn WORD
:HEADER WORD FROM RKDB

0000

HD1 :

000000

el e

WD1:
WD2:

HOWD:

0
0

O
O

e
e

ERR:
B?nsna:
3
BYPCERR: 0

CHKFLG: 0

£
.BLKW 6.

sACTUAL HEADER/DATA WORD
:EXPECTED DATA WORD

TABL
R 1oCHD
LoD
ERRED
S0CURAIERL
T 203T ARTING FORM
RHT
:
'ggo

.EKH
.BLKW
.BLKW
.BLKW
.BLKMW

007336

UNLD:

007340

BRDHDR:

007342

HPEND:

ATTN:

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

D07352

200

Bog

04c

.EVEN

EST

iWORDS TO

:
EgE
:
E
:
E
BSE22S:
RDTAB:

007344

WHEN SET

INFO

READ BSE

Eanx? DE§ cT Einsn gan
CKCERR IN *GSTAT!’
1SET T0 1 93 g

.BLKW
.BLKMW

RT. JUSTIFIED

!SHIFTED HEAD® FOR FORMATTER ROUTINE

HDTRAB:
RHTAB:
SRTTAB:

007347

SEQ 0039

PAGE 39

000000
000000

P
R

e el e

11:25

767.

001377

§E= 8888 88 88888 888888
0
£ 65&#88
RS ROt &5T o8

e eb

DOV

Bt bt

e Be

EWN-0O

&
yeE?B388888888%%%3%% gg

IBUS RK? DR PRT2

:
:

CcT

SORT

TINE

NFO
NFO

NFO

;ATN 0-7 RESP.

ZR6IED UNIBUS RKG DR PRT2

ZReIE.P11

10-JAN-78 09:43

MACY11 30A(1052)

10-JAN-78

APT MAILBOX-ETABLE

11:25

PAGE 40

SEQ 0040

r Y ARE LOADED ARTER RDY IS REC'D FROM WRDY ROUTINE.

2065

HCS1:
HCS2:
HIWC :
HBA:
HDA:

O
O
0
0
0

HDC:
HDB:
HMR1:

0
0
0

000000

HPAT:

O
O

2
007412
5833
007414 %%%

TEMP1:

gggg

TEMPS:

FOLLOWING ARE HOLDING REGISTERS FOR THE RK&11 REGISTERS

5&9

eosg

58?0

HDS:
HER:
HASOF
:

537
7

207
2074
207s

£975
20

2084
2085

200000

007416
007420
DO7422

000000
000000
000000

aoaam

HRs.
HPOS:

007424

2095

0074

aegga

007442

000000

H.AD:

2031 0074
aogg 0074
2093
007M
2094 0074

000000
000000
000000
000000

H.BO:
H.Al:
H.Bl:
H.R2:

0000

H.A3:

DO744

oooogg
000000

5?%

2102

2106
2107

Sf%

2113
g“;

O
O

y: TEMPORARY STORAGE.

H.B2:
H.B3:

O
O
O
O
O

:rue FOLLOWING ARE ’'EXPECTED’' REGISTER FOR THE ABOVE.

00
7446
000000
74
00

ngz
7454

00
000000

000000

007456
7460

000000
000000

S}}?
2112

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

2090

2101
2103
2104
2105

d
3

TEMP2: OO
TEMP3:
TEMPY:

;HOLD RKCS1
1HOLD RKCS2
THOLD RKWC

L.A0:
E.ao:
E.m:

'Bl:
E.R2:

E.B2:
E.A3:

E.B3:

O
0
O
O

O
O

:THE FOLLOWING ARE IDENTIFIERS FOR DRIVE MSG WORDS TO BE TESTED.
000001

000002
000004

t.R2=BIT0

T.82=BIT1
T.83=BIT2

;TEST MSG A2 IF SET

SE3BYRREEREBBVR
RO S sa m

e e

rurn

e B

s ot ot

Bt Pt B

Bt B

e Bt

s et Bt Bt Pt Bt

s Pt B

RN RPN RN PPN PRNY

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

MACY1l 30A(10S2)
10-JAN-78
APT MAILBOX-ETRBLE

CO4

11:25

PAGE 41

SEQ 0041

gRLL THE FLAGS BELOW ARE CLEARRED INITIALLY BY THE CLRFLG ROUTINE.

8
BRuTE:
gg;gx:

DRIVS: 8

< 81 B ) B8 BT

N xn ncrxx noos OF
o;sgigxggps

PRESE
OF
s oh:CQE
cofl*nxngtrnnunacn

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

: 1S PRESENT AND IS TO BE TESTED.

DRIVO:

;FLAG SET TO 1 WHEN DRIVE QO PRESENT

3% DR4

BRtve: 8

83 3§§ 3

;r82

ve:

DRIV3:
DRIV4:

ORiVS:

LCLKF:
PCLKF:
DOTIM:
SIZFLG:

O
0

O
0O

O
O

iFOR DRI
iFOR DRIVE 4

igon §§¥§§ ;

:L-CLOCK FLAG PRESENT FLAG
: P-CLOCK r#nc PRESENT FLAG

;SET IF Sé HER cbocx PRESENT FOR TIMING TESTS.
DEFAULT DO SIZING IN TEST 1
:SET IF

C«rRBIED UNIBUS RKE DR PRT2
CZRBIE P11
10-JAN-78 09:43

§148

STELFRE

.SBTTL

DO4

11:25

D RECRN
; ¥NOTE2:

SEQ 0042

ERROR POINTER TRBLE

; #THIS TABLE CONTRINS THE
#NOTEL:

PRAGE 42

INFO:HQTION F?fiEEfiggE§RROR Tgfl; CAN ?CCUR.
N

R }78?83?55 WICH ITEM IN TM&.
TABLE IS PERTINENT.

Y
IF SIT $H8 }S ? TH‘
IN THE
TABL
ERCh I EM

TA_IS (SERRPC).
INTERS EXPLAINED AS FOLLOWS:

; sPOINTS TO THE ERROR MESSAGE
; sPOINTS TO THE DATA HEADER

1POINTS 10 THE BATA Formar

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

;DETECTED MDS

;DETECTED UFE

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

s s s o

;RBORT TEST,

0
N

;DR NOT PRESENT BUT SPECIFIED BY OPERATOR

Bt Bt s o ot ot ot

s ot ot s

o Pt o

FRESK S EBB IR ROV BB

s ot ot o

A LN

s s s ot P

ot ot ot Pt P

UMV FUNUNL ML ML FU LML MU TV UM NL MU U MU RV LN MU LML PV UV U U UL MU NV L FL LU

P Pt Pt Pt Pt Pt Pt Pt Pt

s Pt Pt P Pt Pt Pt Pt

Y U NV U N PV MUY MU FUNVNU Y

5142

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

COULD NOT REFERENCE CONTROLLER REGISTER

mQr—w¢4[*VT)mm—-XQ-woxQOw4[+Wo9[+4'xowjL=o]
o4SX' x =4Qx )' o[z"Y) xwOXor o=x 4a(&') u4-(n=] --W]
NNoTmmmLmRmAmBmlmmwmSEmaeamwmECmmmmwmOOo aggaaassgswmREmm0 mmmwEmms£( mmmm
NN
Eicw=oiuyEit3e©aSmw&gmw3yGe --wmoF¥Ww&hemo(gEG ")w¢>=¢2 B gsZ&>¢ m&2 v¥w&Is h>¢oEZ&2 om2ao e
B
;ERR 14

;ERR 15

;ERR 16

;ERR 17

: m

;ERR 21

;ERR 22

11:25

% z

ointER TABLE

0-JAN-78

3 wog — :

CZREIE 0O_UNIBUS RKE DR_PRT2
CZRBIE.P11
10-JAN-78 09:43
MACY11 329 (1052
OR PO

EO4
PAGE 43

SEQ 0043

;ERROR 1

;ERR ll

;ERR 12

;ERR 13

[Y) (=]x [ x

10-JAN-78 09:43

822832
o84
TM

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

;ERR 23

bz
Téa

:ERROR 24

FO4
11:25

PAGE 44

SEQ 0044

MG _BO ERROR
!AFTER
WRITE DATA CMD

EM21

:CERR SET

‘AFTER SCLR

4664

0474

s e bt Pt

;AFTER READ DATA CMD

;VO% VALID NOT SET
;AFTE R PRCK C MD

4eb4

s614

i
i5

;MSG_Bl1 _ERROR
;AFTER
READ DATA CMD.

; MSG SO ERROR

;AFTER

WRITE CHECK CMD

;MSG Bl ERROR

;CONTR NOT RE ADY
‘AFTER OFFSE1 CMD

;NO ATTN

;MSG Bl ERROR

s e Bt

ot ot s s

(ot et s B

Bt Bt s e

(s Bt s P

h-h-o—g

Pepo
b
s

RNN
NN
Sdo'2 W

P11

“eb4

OO0

SRR@ 32

O _UNIBUS RK& DR PR T2

054270
0SsS01M

;MSG_AD ERROR

:DURING OFFSE T COMMAND

mMm

b4t

OwOVIICNLWNN~-0O

33
rurururuururuuuun
WWWWwwWwwwwww
b bt
e b
e b=
ebbe

IBUS RKE DR _PRT2

10-JAN-78 09:43

7374

1
1
1

3SHg
ggfl 7
14

8103
11

047374
052532

0ll2
0114

0S4270
0SS01M

MACY11 30A(1052)_

10-JAN-78

ERROR POINTER TARBLE
;ERR 36

;ERR 37

;ERR 40

GO4

11:25

PAGE 45

EMIS

;MSG Al ERROR

EMIS
DH2M

:MSG Al ERROR
;AFTER OFFSET CMD

DHS3
DT13
DF2l

DT13
DF21

SEQ Q045

CZREIED UNIBUS RKE DR PRT2
10-JAN-78 09:43
CZRBIE .P11

MACY11

10-JAN-78
ERROR POINTER TRBLE

30A(10S2)

;ERR 41

;ERR 42

;ERR 43

11:25

PAGE 46

SEQ J046

;MSG Bl ERROR

Brg

;¥NEXP MEM PCRITY TRAP

EM41
DH24
DT1Y
DFee

;CYL ADDR IN B2 DID NOT REMAIN CLERRED

DF2l

D73
DF2

;TEST 8,

TRAP PC

Eneg
DH2
DTl
DF10
M1S

;WCE AT CYL 411,TRK 2,

SEC 21

R 2R RRKR RRRR

iggéifi 28 PR3 §§g§§i Tl

;OFFSET BIT IN RKMR2 CLEARRED
;AFTER SEEK TO SELF

;DETECTED 10 BAD SECTORS
:AFTER WRITE DATA CMD.

;CYL DIFF/OFFSET IN RKMR2 NOT CLEARED
;AFTER RECAL CMD

;CY# ADDR AN RKMR3 NOT CLEARED
;AFTER

RECAL COMD

ggg?gg gz&a égDHEflDER WORD (MISPOSITION)

;"§$ AD
;AFTER

ERROR
WRITE DATA CMD

;MSG Al ERROR

e
NW

;AFTER RECAL CMD

;ERR B2

M-I
TS TUr=
~Wow
—“IX
MU=
W

;MSG Al ERROR

;MSG _BO ERROR
;DURING OFFSET CMD

;MSG Bl ERROR

;AFTER WRITE DATA

MD NOT ON BSE TRBLE

;ERR B3

;MSG_AO ERROR
;AFTER WRITE CHECK CMD

;ERR b1

U
o

;ERR B4

—01%
~

:NO_ATTN

:ERR &0

;ERR 66
[=]

;MSG_AD_ERROR
;AFTER READ DATA CMD

;MSG Al ERROR

M=
WY

;ERR 57

£
~N
NN
£
=

(5 Bk

2 RRRE RARE
B 3 B¢ ~
£
zShn
=

-“Ix
o
U—
—Wwow

;ERR S6

4270

SOIM4

SEQ Q047

PRAGE 47

; ERROR 55

-0
—-WWO

EM17
DH2e
DT13

n
N

5870
ggsglfl

0000
0000

0000

n s Bt Bt Pt ot ot Pt Bt Pt s Pt Pt s ot e ot Pt Bt s

0000
0000

o—a Bom bt o s
9 (W]
N
NN
2o 2

os4664

;ERR 5S4

e
e

0000
D000

7374

0000

s e Pt B Pt s B Bt B s fm e o e e B

33
RBBBVRREOR
Bom <o £wh—o6

aggfi!¥
SEESEEESRaYT

0sS

104

11:25

Ha?
T13
DF2l

s s e

3% SR Roge go;m 997 S997 R9P7 ROPROR

g7z gioes g
014

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

oogoom 32

CZREIEO UNIBUS RKE DR _PRT2
10-JAN-78 09:43
CZRBIE.P11

NOT FIND
R FORMAT

SECTOR O FROM INDEX
CHANGE AND REARDY REC'D

;DETECTED BSE IN READ BUT NOT IN WRITE CMD.

CZRGIED UNIBUS RKGE DR PRT2

CZRBIE.P11

10-JAN-78 09:43

MACY11 30A(1052)

ERROR POINTER TABLE

2435

;

gi? §183°§x

33
Y

Y
44

543

4s
48

,
!

:ERR &7

: ERROR 780

0
0

:ERR 71 .

1
1

{

ERROR 72
0
0

:ERR 73

10454

;ERR 74

010464

183;8

10478
18:37-4

f‘
;é

igg

7
74

1
010504

1051

86
8

)

xgggs

010532

-0

EM13

8;1

;ERR 75

:ERR 77

:NO ATTN

:AT END OF HERAD LOADING

EM22

:NO DRIVS IN SDEVM

:NO DRIVS ON BUSS

B
Bn
;ERR 76

1051

10514

0
0

DH10

PAGE 48

1
1

1
1
10422

JO4

11:25

8433 818488

10-JAN-78

DTl
DF1

§
0

;ERR 100

;g
ERROR 101

HY7

DT14

1QFFSET _NOT CLEAREDWITH MOVEMENT

:AFTER READ HEADER

SEQ 0048

010564

0233
;6
435

g*40
Y4
254

254y

;ERR 103

061
0614

o ee

gé

m?
0654

Oeb4

EM3IS
3’7‘?2

DF10

3q
JERR 104
DH57
DT14

’

PAGE 49

SEQ 0049

;FORMAT WRITE
NOT SET
DATA CMD
{AFTER
;AFTER WRITE CHECK CMD

NOT RESET
. OFFSET WRITE
CMD WITH OFFSET
‘AFTER

DF22
smg

ERR msorea
EM3B
DH1

535

11:25

DF10

:CYL ADDR NOT O

;CANNOT FIND SECTOR 23(8)

:ERR 107

;ERR 110

EMS7
8H27

T1
DF1S

;HEAD SWITCHING TOO LONG
'AFTER WRITE DTA CMD

;ERR 111

;ERR 112
;ERR

e e e

0000

e
e e
ee
e

DT1

0000

0000
0000

13
1

19-4

et
R e
e e

1,
1

0000

14
15

o lgfies
DH27

;ERR 105

d 82 144,

oe
e

1§

0000

25101

DF2

;ERR 113

Sing eia

0000

%? %%7

2504

0000

0S14
Eggg
§3§
Y

e
g e
e

30
é

010534

0000

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

~No

OO0

znsxsoUNIBUS RKB DR PRT2
10-JAN-78 09:43
ZREIE.P11

KO4

!;ERROR 114M864
TIY

DF22

;DRIVE OFF TRACK SET

iAFTER WRITE DATA CMD

;CYL ADDR IN RKMR3 INCORRECT
;OFFSET IN

‘AFTER OFFSET

NOT = RKASOF

CMD

CZR6IEOD UNIBUS RKE
:
DR PRT2
Ke DR
EIE. P11
CIR
09:43
N-78
10-JA
25::

oios;u 0%
2548
e

5250

”

S0S0

gsz gig702 %3525
7042
24 o107
752
{ ;?g
Qigrie

08373

T
»
5
3

i%a 08qgs

=
3732e
Oi073s2 guzme
2568 giers
0527
0107402 0543
72 oio74
i
g;a

-7
MACY1l 30R(1052)
el
ER JAN
ERROR POINT10:ERR 115

Hee
i

oF22

BHO
;ERROR 1175”55
H1

BTt

;ERROR 120

onl
B
10

SEQ 00S0

:AFTER DRIVE CLEAR CMD
i
ER"SQCK CMD
.S?T
:CONT

_NQT RDY

RDY
582"7ERNOT
SEL DR CMD
{AFT
;AFTER SUBSYS CLEAR

| AFTER SEE1K0 SELF

mig
i

:AFTER RECAL CMD

75
g;;

ggn

JERROR 123

2580

——

OF22
;ERROR 124

:AFTER START SPINDLE CMD
1

:A2

OFFSET

35: i% géi‘?.

TM b7

gfl%s g@g

n7e

;NED SET

ENG
Ol

258s

iR
3

oul

giooe

054614
e

38
Eugig 0259
38 011019
084614
2599

2600

DF10
g

Bré

JERR 127

OFS

;ERROR 130

|
|

TO CYLR ¢ho
;DID NOT
R READGO HERDE
‘AFTE

§
§§§38
107 2 0837
1076

FEROR 1612
M101
ek Di;?g
.ERROR 181
B

05161

5578 Dio7ee 3328

NOT = R

ET
;:CT
WAITING FOR OR REC'D CONTR RDY. MSG A3B BAD
.HH?LE

o
Lol
ol ol
bapapaiue
ot ot ot .

Pt ot ot Pt

Ll
ol d
pabapespes

Bl
el ol
pabapapes
Pt Pt Pt s

—

N
£

;ERR 140

;ERR 141

;ERR 142

;ERR 143

; ERROR

; ERROR
o

—

(=]

gOOOOUODOQG‘)QOOQUOO
wn
WMHIIN

—

(STe LR =]=1="=
o
T
o )

;ERROR 1

(=}

[

; ERROR

8
K2

[

Y S =
Pt s PP

o188

TM [ S
WD
—wWe—~

; ERROR

oOMWOO00
-4
XN

S ST Y S
S S S S
Pt Pt P
Pt Pt s ot

; ERROR

m
<X
——
W0

R2%
85
R

] =T e S
Pt Pt it Pt

gRad INF TREP BEF IRIW RSB

Sle
e
Pt Pt s Pt

011024

—

s Pt P

Tl
ol B
] el ol S
Pt P puapus
Pttt
put

& o FER MBS IR

—

OONOCNEW

R0 !RUQH¥§§§§:&SERRERRRRRRARREHBRREERY &- 22

ook
PRI
FneW BBB ST Ewro—oub

CZR6IED UNIBUS RKBE DR PRT2
C ZRBIE.P11
10-JAN-78 09:43
MACY11 30A(10S2)
10-JAN-78
ERROR POINTER TRBLE
11:25

MO4
PAGE S1

i NP TBR seex cmo
;NO ATTN

;CYL DIFF/OFFSET IN RKMR2 NOT CLEARED

RROR
;MSG RO
;AFTER SEEK TO SELF

SEQ 00s1

CZREIED UNIBUS RKE DR_PRT2
10-JAN-78 09:43

PAGE S2

-y s()

T -l

RoN

1
;ERROR

0 0 il
0 0 0GRRRo0)o) o0Radet]]0e)
o

11508 G00080

1
;ERRCOR

—EXTHLM

Ouu

Y
PR B DRC

|.|.|o|.

M&sooousooSED DSO O SODO SE

et
—
auuuN
NAH

1
;ERROR

838
s

.T.mm77n3nfln

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

Do omggq0 0 H.0000DDDM.OOOOH.

CZRBIE.P11

NOY4

11:25

1
;ERROR

; NO_RDY
;AFTER CLEAR CMD

1
;ERROR

;ERROR
1

1
;ERROR

1
:ERROR

;ATTN NOT CLERRED

SEQ 00s2

MACY11

RROR POINTER TRBL
;ERROR 1 7

e
S
o

;ERROR 161

0000

e
T

;ERROR 162

000

;ERROR 1863

;ERROR 1

—

000000
000000
000000
000000
000000

000000

;ERROR 164

;ERROR 16S
(= =]

A8 R

R A

NN
NNNNNNNNNYN
-

NNNNNNNN

PI2L.}g§§3VERZOREEBBNERE

OOOOSQOQO oo

Y oY Sy Sey ey

K88 TAZH SRSy WS RSP W 6

10-5aN-78 0843

e e

7
7

NoONLEW

EERelEetY"

-JAN-

BOS

11:25

PAGE 53

SEQ 00S3

CZRBIE.P11

10-JAN-78 09:43

CZREIED UNIBUS RKG DR PRT2
769

27EY

788
;go
73
2794

§u

011
11

01141

-JAN-78

0
§

Bi1dls
e

80888

giizgqa

000000

811458 900000
114

Hzg
4
o
——y
118
DO000C

;

; ERROR 100

‘

; ERROR 191
EM12
3'7‘?0

81 jlfl% DO000C

g ERROR 1%10
0
0

ERROR 193

22 Bz

011452

053732

§H§§

7483

;ERROR 174
55‘36

11
011464

3732
4729

DTl
RS ll?)l-'sls

2800 011454 054724

S B g
aaio

S&g

281

14
1

{

S8ie

011474

114
11

011
11

011218

2819

011512

o&
é Sug

2824

011522

PAGE S4

; ERROR 137

000000

gg;

11:25

011442

2799

CcOS

575 o1
774
7

ERROR BOINTER ThaL

MACY11l 30A(10S2)

011372

gr% 811
3

0S4664

;NO_RDY

{AFTER READ HEADER CMD

gns

- 1r.?)gm

EMY0
DH10

;CERR SET

;CYL_DIFF_NOT

CLEAR

;CYL ADDR NOT CLERRED.

DT1
gno

; ERROR 107

! ERROR aoo
Eme
DH39

DT1

:NO RDY

{AFTER WRITE HEADER CMD

00s4

CZR6IED UNIBUS RKE DR PRT2

CZRGIE.P11

10-JAN-78 09:43

011524

0S4724

0}1526

0‘07‘03“

1
1

164

e 2kek BRES TSR GRE INF EXEM

s e

ERROR POINTER TARBLE
. ERROR

DOS

11: a2s

PAGE SS

x15

M21

DF1S
;ERROR 202

M&S
;

;CERR SET

;READ HEARDER ERROR

; TM

;ERROR 203
g

e e P

S46

ML
OsM

10-JAN-78

s Pt Bt B

et e i e
P

s e

Dot s Bt

o s e peas

Bt v s e

B oo e

fil B

MACY1l 30A(10S2)

Po P

1
1

2870
7
?
7
374

7
2880

811
11

811

811
11

311
11

11
11
11
011

11
11
011
11644

116
116

116
011684

M36

DH2S

8}4

o6
. ERROR 2énax
DH2

DT1

DF10

; ERROR 261

0
0
0
;ERROR 212
0
0
0
0
;ERROR 213
0
0
0
0

;CYL ADDR IN RKMR3 INCORRECT
;AFTER SEEK CMD

:CERR SET

SEQ 00SS

P Pt ot e

0000

s Ben s

o P P Pt

e Bt 3o

ot ot Pt P

; ERROR
n

; ERROR

P ot Pt Pt

wtst
w

0000

Pt Pt Pt P

§ e Ss Z8 WS IRF WE&

ot Pt ot s

atst
g

0000

; ERROR

£
n

P Pt Pt s

'®

P P Pt Pt

0000

1 ==
=yettt
e

0000

iy 4

Pt Pt s Bt

= ==

0000

;ERROR 214

;ERROR 2

; ERROR

mMoOoOo0O
K23
NDDOQ&OOOONQOQDN
£
w
X
800000\-‘ 0000 -0000~-0000
o
un
AN
IE
S
o on
=WNO
=WNN

; ERROR

n
n
~

§O

Ot et Pt et
~N

!
0000

i3
18

;

e
e

0000

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

EQS
PAGE S6

;MSG AD ERROR

;MSG Al ERROR

:NO_RDY
'AFTER READ DATA CMD

SEQ 00Sse

29279909eSS

;ERROR 2

ZRER P8

T Sy S
ST
e
S

SEQ 00S?

;CERR SET

iON SEC 10, 12, 14, 16,

18,

17,

19,

;ON SEC 11,

13,

1S,

;ERROR 2

iON SECT 0,2,4,6,8

; CANNOT READ BSE INFO

;ON SECT 1,3,5,7,9

o
0

;ERROR 2

; ERROR 230
0
v}
0
; ERROR 231
0
; ERROR 232

;ERROR 2

£0

;:ERROR 2

n
0000w
~N

Tho

g oy
S au

o
oo

rorrn

PRGE 57

;ERROR 2

o
b
e b

0000

OOOO

D Ll

COOO

OO0

COOO

St
wel gye
w i e
wt e

M-

OOOO

BBBBD
NN
2W

+3UL
0
0

012136

FOS

11:25

; CANNOT READ BSE INF 0

ST
IIE L RIZI0

0—0—-—3 %‘%’fii‘%fi%%@fi?fi

0000

| slel

EM21

e e

0000

Il
R
I8 B

30“(1053)
0-JAN-78
ERROR
OIN ER TABLE

OOMWOO0O00O W

£ Jo %f%

MACY11

EERelEP

DR _PRT
UNIBUS RKE
11
10-JAN-78 09:43

;ALIGN _CARTRIDGE USED
;WILL BYPASS FORMAT & ALL R/W TESTS

121
13188
12172
12174

. ERR EHHDFG

;ERR 245
;ERR 246

;ERR 247

Bt B

e B fm b

NoOnNLWw—-0

0S4Y640

3025
302

;ERR 250

;ERR 251

:ERR 252

0
0
0
0
0
0
0
0
0
0
0

;ERR 2530

3039
é

:
;ERR 2540

3044
3045
3046
3047
3048

0
0
0

;ERR 255

12154

TM oot
R
"

p—rly DT8
—

3001

e
4156
1§1§§

WACYIL 30ACIOSE: IO-TGN-78 11:25 PAGE S8
00

0000 0000 0000 go
=

OO0

JREIED_UNIBUS
BKG DR PRIZ
20000
130
12194 000000

GOS

a1z
NOT SET

sa coss

SEQ 00S9

O
0000
0000

;ERR 257

;ERR 260

;MSG A0 ERROR
;AFTER OFFSET CMD

;ERR 261

;MSG BO ERROR

goommoooo 0000 0000

:ERR 262

;ERR 2863

;ERR 266

;ERR

OO m
M- P 4
N
n
WO

—~XIX
N —MNr—
~—who

;ERR

:MSG

ERROR

EQF$ES DRIVE CLEAR CMD
;MSG Bl ERROR

;ERR 270

oOoOooOm
M<NIXX
M=~
~Wom

£NVO

PAGE S9

;MSG_BO ERROR
;AFTER WRITE HEADER CMD

om
IZX
W
VO

e - R

Rds 328 FREN WS 7 Thol Thbe
e

:ERR 256

e
e
e
e e
e

HOS

11:25

ey
e
R
D
T e

00
£
08

— b

Wwwww

8
(<tetetstatet
% SRRLSR2
i43assnones RERERFARA

wt e

00 0000 0000 D000 D000 0000 0000 0000 0000 D000 D000

5 1

10-JAN-78
ERROR POINTER TRBLE

MACY11 30A(10S2)

CZR6IEDC UNIBUS RKE DR PRT2
10-JAN-78 09:43
CZRBIE.P11

;MSG Bl ERROR

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

PAGE 60

SEQ 00e0

DoNONT=MOmw

l]TETolgXTrol-TLlTToTlET.XlrT-.Tl.TlTT.TlTT.TlToTlT.LolaD.oll.TlITooaD.olT!ITo.g.ITIol.TcoalDo1IT.T1aoglTo1TaogD1ol1o.1oe11T1Tog1Lo11T1Lo1Do1L1o1Lo1[1Lo1y1Do1Tog1L1oL1o1e

1-y —M—~0y-y

G
3
5
6
G
3
c
s
o
s
_
G
d
c
s
ONM— ONM—~ O"UM— NUM—~ M= OMOM—~ M=

CZR6I EO_UNIBUS RK& DR_PR T2
CZR6I1 E.P11
10-JAN-78 09:43

I0S

11:25

LA& pR

4
4
o
=
o
t
4
[=]==]a]

1
1
1

;ERR 271

IR
—d

7332

BN7TT5 17TTTRON RO AN

055014
&

So=

HDR.

CMD

JERR 274

__
JERR 275

;ERR 275

;ERR 27?

;MSG_AO_ERROR

AFTER DRV CLR CMD

;MSG Al ERROR

;MSG_BO_ERROR
;AFTER RECAL CMD

:MSG Bl ERROR

(—=] ow|*4

—elgolt4lo

3i§§
815835
es

S4e
2544

;ERR 3C1

=—M—n~y0NOM—~

[o=a72] TM=aOax
4 [+ xr

00002 0000=

&8%

0 0 R)e

;ERR 273

bPt %
(v

;AFTER RD.

;ERR 272

wooo woo GM~yO0E°aMS— =M=yNOG'T3Mcs— &

;AFT RD HDR.

=Q
g Q W x [&]b

CMD

cgu3 BBIRR 2R 8 BB RR2ER S IBIF A TN IDDVEHELRZESE mm
o

10-JAN-78 09:43

MACY11 30A(1052)
.SBTTL

737 000001
12546
865432
81525%

001336

12600

012602

004737

b bb e
e e

PR R
W
b—o-o—o—os
0OWw
SERZ

CLR

FOR 220 START
T FLAG
og
35

81, PARAM
PA&SRT

; CLEAR roni

PARAM

MWL INT)meae . ICLERR
§§u
03028 5
Esx1 conm

WSTACK,SP
PRGSRT: BV’
MOV
#PRO, tsm
MOV
#1S,-(SP

00110
15285 812706
8153?0
12796
380003
gxesn
me46 012602

RTI

18:

041112

SEQ 0061

PAGE b1

PROGRAM SETUP

PARSRT: MOV

START:

7 001336

8‘5323

JOS

11:25

10-JAN-78

ERROR POINTER TRBLE

e eP e ee ee e e

e o e s bt et

P11

WWhWWWWWWwhWWwWwwWwwww

W
o

0 UNIBUS RK& DR PRT2

JSR

ALL xmsmrs

;SETUP KB VECTOR ADDR,

PC, STKINT

:8 TURN ON KB INTERRUPT

PRIORITY 4

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

ix%¥ ANY DEVICE
WHICH SETS ITS
;x%% INTERR T ENABLE BIT WILL
Ill SERVIC

; CLOCK

»xx
#»»
ET2 3

SRRLPTS %Ek CHANGE CPU PRIORITY TO LEVEL 6_(IN 'STS')

RK06 CONT

RUPTS WILL CHANGE CPU_PRIORITY TO LEVEL S IN 'SETINT')

L
O#ERRI}TS
WILL CHANGE CPU PRIORITY TO LEVEL 4 (SEE ABOVE)

.H.L *SYSMAC’ TRAPS WILL CHANGE CPU PRIORITY TO LEVEL 7 (SEE BELOW)

.SBTTL

-gvsmc *SETUP’

mmnuzs THE COMMON TRG

(SCMTAG) AREA

012606 012706 001100

:;CLEAR THE COMMON mc

126
74
813532
3?5;05
001100

MOV
s?
355
,.mmauzs A rsu

1
4

127

ig;g

127
i 4

1 503;

? ag
3

1546
u;z

MOV

#SCMTAG,

BNE

00020

MOV

otT

012746
013746
00000M
012752
012737
013006 000004
012760 012737 177570 001140

;5§2¥up
THEgmcx POINTER

;3107
v;cron FOR SCOPE ROUTINE
n
*
i
cron FOR ERROR ROUTINE

’é vscron FOR TRAP CALLS

!
';-Pousn
v
FAILURE VECTOR

1543

g LEE
8xam
015737 Rl
012735 mue
001110

.,msr LOCATION ro ae CLEARED

'%3

MOV
MOV
MOV

.seoxsg é._é
55“s
ub %n xrenmxonsss
OUNTER

s
ek R
PERR
$:¥u3“’f
r
F
0§
SWITCH REG

A ESS ——

ahensanvec
E?g? T .
. suoncescrgésrsn
#64S
acshnvs
T
fi
ERROR VECTOR
#DSWR, SWR
,,serup FOR A HARDWARE SWICH REGISTER

!
CZRGIED UNIBUS RKG6 DR PRT2
CZRBIE.P11
10-JAN-78 09:43

3214

012766

012737

177570

KOS

MACY11 30R(1052)
10-JAN-78 11:25
INITIALIZE THE COMMON TARGS

is §f§ooz77q 88%%5 .
P
i? Eifi
1
gég
71603 013014
BYS:

ggg i

MOV

oo SP

CLR

me?sxzs SENVM ::?esr
USER SIZE unosn APT
67%
: YES, USE_NON-APT SWITCH

013014

gés

012737

MOV

3355
32

}1 40

3; 385563 001231
éqo;

BITB
BEQ

737
22 000004
ifi& 815737
868540
000006

ggfi

gg
§i£g§
35
0131

i&%% %&N wp - 66S:
7

12737

001232 001140 saky
7

335

131

013144

818, ERRVEC

#PR? ERRVEC+2

-sevup TIMEOUT VECTOR

MOV

onenens R1

MOV
ggv

u mn

zsssT x?‘cnn
R%FERENCE
ENRBLE BIT IF YES

sMEMERR nenvgc:LORD VECTOR IF NO TIMEOUT
5’,’“7, MEMVE

CMP

(SPH (SP)+

no.r ST ?

31666

001220
001222

325
32
3255

35;0

01316M

737

000042

i 1

005237

3267

3269

3268

:ADDR OF MEM CSR

SRE

TRY NEXT CSR
gx,onsnenswo ssz
IF TRIED ALL

CLR

ERREC+2

JSR

PC,CLRFLG

ADD

CLR
CLR
;

START1:

74964

@3% 834387

B3
GiEe polY oiaem
gg:;g 013230 005237 007472
D

,R1’

SERRVEC+2, ERRVEC'

SDEVCT
surm

:RESTORE TRAP CATCHER
!

:CLEAR DDUMP THRU SIZFLG

.
'FIND OUT IF XXDP, ACT, APT; CHAIN OR DUMP MODE

5
8 GBI o
%53 iax&s %-fl 886041 000013
_

CLR
MOV

MOV

000006

131
0047
3243
§1gx§3
005037
ggu
13160
005037

3254

18:

1 939 000006 000004

324

LEAR PASS COUNT

MOV

324% ggi% éxa# 1”95938
?fiw'

; ;POINT TO SOFTWARE SWR

ss
R%ot%v ; ;RESTORE ERROR VECTOR
SPLAY

MEMPAR: MOV

2%:

131

MOV

:TRY TO
REFERENCE
HARDWARE SWR
::anR?T n-:our
mnp OCCURRED
aamcn ||||||n||nnm§
T "O
::ss
on”?ms Rg"f

aSHR

:NO,USE APT SWITCH REGISTER

3%:

157
goaass 000114
12737
340 000116

MOV

;;AND A HARDWARE oxsnnv REGISTER

55"
65%
$E£58, (SP)
#-1,

#SSWREG, SWR

§?i
12711

3233 gx 104
%gg of iéS

ng}/

3221

gggg

000176 001140 6SS:

gne

#DDISP,DISPLAY

SEQ 0082

MOV

77777

001142

PAGE 62

28:

TST

ta:zga
N
izg;:

Z} 813
MP
?ggca

13-Lonbeo BY XXDP
;SET RKO& DUMP MODE FLAG
REP%RCE DRO PACK W/SCRATCH & DO<CR>

INC

PPTP

:SET ACT/APT/PTP DUMP MODE FLAG

IF ALL PARAMETERS DEFAULTED.
BEGIN INPUT DIALOGUE
ux%n ogsnmoa
THE REPLY TO 'DRIVES _IFTONOT,
BE' TESTED'
SHOULD BE
{CHECK

CERIECA
O BSaRE
E Rs

LOS

"1 SRR
e Bl MoRRon B PP ©2
;mm

o8 178

i
JSR
TYPE

fee
fic
Msc%

fag
csr an

gé %um w?w 001336

sT2:

GlE
et
3280 Ol
737 Ed
Q32lee

32;; 813532 ggo?g; oxaaga
3e83

11
1

401
7
7

wug
32154

3508

§§83

e e e

Ww
WWwW

NV EWh-

dee%

3302i

Pt Pt Pt et et Pt Pt

3239

Pt Pt Pt Pt

§§gg

;

Pt Pt Pt s Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt s Pt Pt

3293

123727 000041 000013 ST3:

00100

Pgs NT

: 200 STnéo
Bgs;ggggos SIZE THE BUSS
,co
INT vsgton
:GET INT
VECTOR

BNE

41,013

; 13=LOADED BY XXDP

:SET RKDB CHAIN MODE FLAG

18:

INC

ncrxx

:SET ACT AUTO FLAG.

GEE g
2206 B T

M
JSR
INC

A
AR
PC
stTINT
;00 "SIZE THE BUSS" TEST
SIZFL

7538
7342

OER
GLR

Babioe
HPE

6004

4604

E;PE

007470

7524

¢2298
1

T
001342

MOV

000004

MOV

ggsa
b

Ba
1

G pmabn

CMPB

gocH g

§§f;82

! 777 e
: 39
R
1
1
000412

Jgn

¥s

528

8§34§7

1 B
Bif
4={3§é
3325

&F"" V“BSRQEET’E‘RP ORISRy TrOSE DRIvES THAT HRE READY "

3290

SSE&

SEPBR“VEE ) 52"?2§TEDTER"’““758RBY <CR>

;onxvs N2§;

013534

3476 005777 165616

MOV

-y
000004

18:

;

SCAPE

MPY

.DRIV?,DRVPTR
SDEVC

Sli"SuERRVEC
SLke”
LCLKF
chsc RO

;DRO NOT TSTD

6’360, N 1DFE10B
RourIng
PROGRAM HALTS
.CL AR RKO7 FLAG
.SE uP
NO

ERR R
§E TI..P TI "E°8c
EIFL

VECTOR

?g¥
N

MOV
BR

KSERRVEC
R
PCVEC RO

F P-CLOCK
THERE
sssz
gt?cm
vscoR AD

CMP
MOV

(sp)¢ (SP)+
ERRVEC

:L-CLOCK NOT THERE, CLEAR STACK

TST

apxs

;SEE IF P-CLOCK THERE

CZREIED UNIBUS RKE DR PRT2
CZRBIE.P11
10-JAN-78 09:4

MARCY11l 30A

10-JAN-78

MOS

11:25

THE COMMON TRGS

PCLKF

25 el e
3340

SEQ 00e4

; PRESENT,

SET FLAG

PSVEC,RO
DOTIM

;
VECTOR
_ADDR
gE
NDICATE T HING 0ESTS CAN BE DONE

TST1

;G0 TO NEXT TEST

23:

3§P)+,(SP)+

;P-CLOCK NOT THERE, CLEAR STACK

4s:

(g§)+,(SP)+

NEéTnERTE$OCKCTnER§ CLESfiESTRCK

OCLOC?k(RD)O

752
S14

PAGE &M

oReils

VICE

{HERD ‘S,

NE
FOR CLOCKS

TLET BYP

SsED

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

NOS

MACY1l 30A(1052)
10-JAN-78 11:25 PAGE &S
BASIC CONTROLLER TESTS, SIZING & SETUP

33:5

.SBTTL BASIC CONTROLLER TESTS, SIZING & SETUP

H l!lllll!llllllil'lllllll“lll!lll!llllI!lllllllllllllll!lill«!!l

33:;
|

3346

3347
3348
3349
ggg?

"
e
"
H

3352
gasa

gxasas

000004

3357

313352

812745

3359
ggg?

813572
13574

000002

354
013550 012737 000001
gggg
013556
012706 001100

3358

013566

012746

001174

REFERENCE ALL CONTROLLER REGISTERS

THIS TEST VERIFIES rnnt nLL THE CONTROLLER REGISTERS

CAN BE nccss;eo.
TH; #TY TO BE ACCESSED WILL
RESULT IN
IMEOUT TRAP WITH
ERROR MESSAGE.
ANY
ganon IN THIS TEST WILL RESULT 1
neoarxuc ALL OTHER
ESTS AND JUMPING TO 'END OF PASS’

s o 363636 36 36 36 36 36 36 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 36 3 3 36 36 36 3 36 36 36 36 36 36 3 36 36 3 3 36 3 36 36 3 3 3 3 36 3 3 X % % %
t&T1:
scop

000000

013574

MOV

8l srxnss

sStACK,

;

MOV

#PRO, - (SP)

;RESET PSW TO PRIORITY O

MOV

5%:

RTI

#5S, - (SP)

1 ITERATION
kssrons
STK PTR

18 MAKE IT LSI COMPATABLE

SEG 0085

PROE
7
E%{Eopmfiuws‘sg
3362

013574

012737

013720

MACY11 3??(1052) 0-JAN-

BO6

s
ERENCE7&.L C(fi?mtfgREGISTERS

000004

MOV

#1$,ERRVEC

;SETUP TIMOUT ERROR VECTOR

MACY11 3??( 10582)

OO0

0_UNIBUS RK DR
.Pl1
10- M—?fl

CO6

RE}&%M-? L 146RProlLER RE1STERS
¥§¥

;SETUP INDEX REG.

Rk&al zns)
ke

15T
15T

nxuug)
RKBA(RS)

¥§}

nxmt )

;s;

(RS)

EBRERBLCER
R EFens

ntatatatatad
feseeeddsSRRES
o2.S

157

18:
031s12

;;G0 TO NEXT TEST

cg;on

;spu,(spu

;RESTORE STACK POINTER

SEOP1

;ABORT-COULD NOT REFERENCE CONTROLLER REGISTER

SIZE
THE BUSS

THIS TEST IS ENTERED ONLY IF 'DRIVE SELECTION' IS DEFAULTED
IM IN THE MTO nooe A 200 START IN THE
R

EKXMI
N e %IF
TPSSGQMWILL BYPARSS
]
‘ onc D
N3H
chr
T
H
E
OT
AL NG “‘78YEDRI S?Lfl:srso RS RKO?
¥

gév; ;rt.

STED

ll!llIlEs;EllllllIllllIl!lllIlllllllllllll!ll!llllllllll!llilll

000001
001100

013744

005237

001516

10
311
oia7s0 132737

000200

013756
013760

001002
000137

1 813770 400
17 813770 83283
3418

;SETUP TIMEOUT HANDLER

TST2

012737
012706

3412
gia

#BADTMO, ERRVEC
mv ERRVEC+2

& 3630060 36 00 00 0 00000 0000 00 0000 000 00 00 0000 00 0000 0000 30 0000 36 0000 30 06 30 30 0030 0600 36 06 30 00 000 00 0006 30 000600 0 0

irssr 2
;l

137
13732
3406 013740

3408

MOV
ggv

000004
000006

**gg:% 52)

013776

012701

001174

tait2

001231

044713
007474
007476

sP
sStack,
BYPCERR

BITB

#BIT7, SENVM

BNE
JMP

014100

148:

81, STIMES

MOV
INC

TYPE
MOV

148
128

MSG10
oonxvo Rl

ks TORE STK PTR
;

ITERATION

;00 NOT TEST CERR IN 'FRDY’

;SEE _IF USE APT SELECTED DRIVES
;BR_IF YES
;ELSE DO NORM SIZING OR VERIFY
;WILL TEST DRIVES

DReF DRIVES PRESENT

iDRV FLAG

SEQ 0087

MACY11 30A(10S2)

e e

CZRGIED UNIBUS RKE DR PRT2
CZRBIE.P11
10-JAN-78 09:43

014002

013702

014006

001266
158:

000001

B384 syt corr
e

60“40

00120s

GER

D06

10-JAN-78
11:25
SIZE THE BUSS

000010

SDEVM, R2

:APT DEVICE MAP

BIT

#BITO,R2

; SEE gr DRV IN DEVICE MAP

s
“%EP)
!
1

{ah, xg«
I DURE S,T o
;egs
rga TYPEOUT
%E{?o Yfi!x012?¥?§)
: RSCII

1ST

R1)+

BEQ

#8. ,RO
178

{9RY
ERIVTES
iALL B8
TESTED?

m
;ECE
TYP
.BY
L
CMP
Bgn

014060

ohe

88?;85

007474

000137

014SS4

178:

188:

014074

0001
000137

044713
007474

72
7

474

81u§
4

014244

013737

007476

(=]

007412

737

032320

NTER TO NEXT FLAG

:BR IF YES

;

JNP

VERIFY

:CLSE EXIT TEST & SETUP FOR RKO?'S

RR
e

#SCLR,RKCS2(RS)

;SUBSYSTEM CLEAR

MOV

sEL

STS
VERIFY

T NEXT BIT OFF DEVICE MAP

SEE

r~30n£ DRIVES PRESENT

1
N
VM
0
EIERENE
PoRBEL"
comrue:

;70 TRY AGAIN
:D0 NOT SIZE, GO TO NEXT TEST

MOV

no‘,;ggm

gvgs

;nfiv NOT SET BY END OF SCLR

BRIVS

:8 OF

MOV

#STACK, SP

;RESTORE STK PTR

28;
g OR

ixstgchx
|

Ezsv

HCS1,RKCS1(RS)

;;Ezoringous
;név Ng? SET BY END OF SCLR
:SELECT THE DRIVE ADDR
;aog cgr IF RKO?

;GET

PC,DLY

:00 DELAY TO CATCH MDS

SCOP1
v

7354

8Ivs

Efi%oa

18:

001100

737

137

128:

SS LERDING ZEROS

EEB

ELE

g %

O»

:g.,fi'-"

354
gt
3471 Qldsze
'

PRI <5

014176

e
e

gi3tes
gi3i%2

014146
014150

O=-=0D00

141

5 3

14
14134
1H1:§
1414

3467

007524

E“ifi
141

gi31g2 015757 B8%40e
032320
8iuidg

£i §§YGEGAIN

JMP
IMP

013356
014554

B
180

1§s

81482E

SEQ 00es

MOV

BYTE

168:

PAGE 68

nog

MOV

MOV
JSR

dre10

ggnxvo,nx
SCLR,RKCS2(RS)

RO Rxcsa&ggi

u'uggx

150000, TEMP1

710, TEMPL
PC,FROY

’?ErTo 'rsqvour

Ay
iWILL
TEST
DRIVES
DRIVES PRESENT

2853 FL

;SUBSYSTEM

CLEAR

STATUS

;FIND RDY

0 UNIBUS RKb DR PRT
P11 w-?m-n oszqa
%%%E
7S

01M

;;

i"
14
1
1N
{3
14
14
14
14
IC)

s;
]

g
14
é
9;
1N
14

3500

007466
007474
ugg
12
10494

1
fisg
)3

3530

737

033026

14416
14424
in

2?2:’
CMP
7
“%5
§Nc
NC
gx
vgc
MOV

|"cr§2awrsmx)
TEMP1:S/B SAME
RO, TEMP1 '

BYTE cg
O
BY

5%:

TST

ggos.ucsa

1447,
i:"

7
737

033026

6S:

JSR
Esnon

004737

033026

78:

JSR

0145068

104003

g’fi
aExTE
aExTEQ

ERROR

..MS Lsno nc ZEROS
;SHIFT PTR TO NEXT DR. FLAG
1
r«o7 FLAG
iCLE

BIT

5; 000400 007356
195? 000001 007366
95?
010000 007356
ug

nscu

(R1)+

ST
:givs,nea

138:

--ocr

S DR &
TY
# DOES NOT MATCH RKMR2 DR #
:i P‘rm

J!'PL
gg

007356

1 '

3356 007370 2%:
%oouo
001000

wp; vgg

PC,BYP

1
007474

MOV
*, INP

noo COT IF
..savs RO ron TYPEOUT
i

ng
STMPY
ng.,no
1
°§§"5

E'n‘hgn

;SEE IF XXDP CHAIN MODE
SENT FLAG
; Sggu
RKOD?

INC
CLR
CMP
BNE
TST

00 001170
gn“anl%
37

ERROR

JSR

iw
i
11

014502

H
Snxvs
(R1)
$TMPY, (R1)
RLF
3
-(SP)
RO,
Y

—

:NO RDY AFTER SELECT DRIVE CMD.

gsm.ncsx

3s:

%rg

144

3529

117

g’x*r:

0143s2

35
gg%o
is

ys:

EOB

11:25 PAGE 69

3sx§
§i4

ERROR

007354

um9§
007412

14354
14
14
14
i:

392 (1082) sxfg THE BUSS

14
1
% 814323

350

000

MACY1l

-JAN-78

;MORE LEFT.

ugTonM: rogno ON BUSS

#CDT,
15 ' STMPY

;ADD
COT
:TRY AGAIN

AND PRESS 'commus'

;tirs.ncsa
ggfln.ws
#NED, HCS2
g

3
PC,BYP

PC,BYP

#
; TYPE BYP DR
i MDS osrecr:o
:UFE DETECTED

E 0 UNIBUS RKE DR _PRT2
E.P
10-JAN-78 09:4
014S10

000720
7

010000

104401
010046

04S266

RARARRRRRAARR
un
N N LOR
B 5D ST

MACY11 30A(1052)

007356

B%:

BEE

ogeo,HCE2

MOV

RO, -(SP)

1
1
00070S

ERROR
BR

PAGE 70

MSG1S

:DRVS

::SAVE

033026

9s:

0001

015146

108:

JSR

PC,BYP

JMP

NUDRV

RO FOR TYPEOUT

BOTH SET ZEROS
BRA & NEDDxcxnoxnc
I"TYPE

ssaon

SEQ 0070

Hgds
GO
--0CTAL ASCII

'B¥¥E 610

004737

800701
37

sNO DRA & NO NED = OTHER PORT SELECTED

VERIFY:
} llllll!l!!ll!llllllllllllllllll!lllll!llllllll!i!llllllllllllll

VERIFY OPERATOR DRIVE SELECTIONS

HEh
é‘
15 S8

3;
OR
T on BOTH

AN hx
§"$2s KT8

0%2 v ”HCQE
n
gg
NPU
D
xuroa
T0
iVE WILL BE TESTED RS AN RKO7.
§o"8:g .
#:

éena ouE

T OF

00000000

;é;lllllggll!llllllllllllllll!!ll!illl!llillllllllllllillll!lllll

wtut

801168
007476

’

001174

nova
MOV

81,871
aéfachgg

i
£h2§7

MOV

#STACK, SP

;RESTORE STK PTR

MOV
MOV
JSR

#SCLR,RKCS2(RS)
: gi ?rf %
u
TEMP1
T10,
PC, FRDY

CLR

MOV
:

SCOP1

ERROR
MOV
MO
BIS
MOV
MOV

JSR

£
No

0000000000000

[ yefudduy
enput sy ettt ey et

ms.gwSHEa

'r
csm
v xr Tm

Ptx*

W&W
BB
RRE

TYPOS

FDB

11:25

104403

AR
I2

SIZE THE BUSS

?vps

3 ¥

10-JAN-78

MOV
JSR
ERROR

#ORIVO,R1

‘DR

:DRIVE

TERATION
TK PTR

ADDR

FLAG

;SUBSYSTEM CLEAR

RKCS2(RS)
W Hionv HCS1
§TMPY, HEST
HCS1,RKCS1(RS)
Tgoobo,rsnp1
P o#v
710, TEMPL
PC,FRDY
117

NO ROY arren SCLR
:DRV ADDR
ey
;ADD CDT IF RKO?
;GET STATUS
7

:00 DELAY TO CATCH MDS

;:FIND RDY
:NO RDY AFTER SELECT DRIVE CMD.

GO6

BN Re083 TTRCYL 3ROSR AR PERATOR BRIVE SELECTIONS
GO UNIBUS
118:

711

§§ 3@ gé;éi ——
%

ofd
q

1170

4762 000475

ggé

ores

%53
g
1

5114

000730

007370

002000
014576

001170

001000

007356

000400

007356

116

004737

—

28:

13%:

004737

:S/8 SAME

?n?'?‘i""“

?.ETr&rroNEXT DR FLAG

: STY
.

;MORE TO_LEFT
NEXT TEST
1560

%gzoa

IRYTTEN
DR® DOES NOT MATCH RKMR2 DR®

TST

&gx;

S 7MPy

fig
BEQ

010000 007356 B8S%:

j08: ’

033026

;BRANCH_IF NOT SPEC BY INPUT

TYE,HER

138

#COT,STMPY
18

;ADD CDT
; TRY AGARIN

#MDS , HCS2
&S

6%:
78:

9s:

A, HDS

fir

mzo,ucsa

SNED, HCS2
i

161
BEQ
JSR
ERROR

(AD
4s
PC,BYP
&

JSR

PC,BYP

033026

§cu:a2"COT FOR NEXT DRIVE

&E. HCS2

007366

21
o4
isls3 43095
§i§2
@gé
s
S134
07
n

3635
%

000040

..5 010000 007356

Oie19e 008711
gx%
oom%
737
1
gu ?83085

iis

FRERR
£
588

FaReRY 9978 &

BR
ten By

e e
e e B
e e
P

BQ. TEMP1

SRE
BR

N
£ W

RRRRLRE

3% 1.24 —

% MAL

4s:

gé

<Oo—

7 bo%ais

SCERR,HCSI

3 3= B

3;§

BIT

007354

m100000

S £

37?6

Efi

: TYPE BYPASS DRIVES

128

ERROR
R
R
%gnon
BR

2e
PC,BYP
3128

JSR

PC,BYP

; TYPE BYPASS DRIVES

iMDS DETECTED

;UFE DETECTED

T R foml
:

————

CZRGIED UNIBUS RKE DR PRT2

CZRGIE.P11

10-JAN-78 09:43

MACY1l 30A(10S2)

10-JAN-78

11:25

PRAGE 72

VERIFY OPERATOR DRIVE SELECTIONS
Y

DRA

3651

us&arEggnmms THE ADDRESS OF THE DRIVE CURRENTLY

33
Y4

NUDRV:

S 015146 00S037 001516

015152 00S037 001170

BYPCERR

CLR

STMPY

;ENTER Hensxraoncéfirm §FR0Y'

-cut% %&'S% }"Sc

3659

3 I!lllllllllllllllllllllllllllllllllllllllll!llllllillllllllllll

:
k%]

.
e

THIS r:s rxms n: rtxr DRIVE PRESENT 8 PUTS
T
ADDRESS I
}
? SET10 CDT IF DR ve 1S RKO?.

3665

THE DRIVE WHOSE ADDRESS 1S

hes

3664

gt?

68 015156 000004

3669
367
i;é

3674

Ei%
i12150
1

12737 000001 001174
001100 o
iz;os
157 %%82 001102
737

gfl 015220
1

}

;35
5 11

gga
% §i§§ %
gg; gigsg

389
3690

01
015264

14
737
1002

3694
3695
3599
369
3698

onga
01
153
15
018312

721
140
12737
10137

3s§§

332

007474

13# 031512

1
ig gxgg
1

taTy.

1220

1342

4s:

001222

18$:

007466

5%:

001222

né

104401

FIND NEXT DRIVE TO BE TESTED

mnoucuouv THE OLLOH uc TE s, THE omv: TESTED 1S

MOV

;
&érsmnou
STK PTR
k:sr

1ST

n sm:s
ir
'TfN
m- .53

DRIVS

:ANY DRIVES PRESENT?

JMP

$E0P1

INO, GO TO sr5

ggx
MOV

TST

MOV
BEQ
pc

3s:
001170

6S:

SDEVCT’

;ADDR OF NEXT
FLAG
H
.vsg
:
INCR w{_ noon TO NEXT DRIVE

(R1)+

Efsé rxré NEXT DRIVE

33
SUNIT
3s

iBR
_IF NO
'ELSE SEE IF DRV O
iBR_IF _NO

§§“

TST

?E?
BR

BEQ
TST
NE

BIT
BEG
MOV
MOV
TYPE

:1S FIRST onxvgn
BEING CHECKED

DRVPTR,R1
ss
UNIT

TST(R1)+

002000
002000
001342
045266

sunx

e e az sz 2222222222323 222222222222 2]

COPE

DDPCH

#CDT, (R1)+
3
#CDT,STMPY
RI,DRVPTR
,M5G1S

ot Aot

5"‘}5 Pmrsgr THE PROGRAM WILL BE REPEATED FOR EACH

RESET - OTHER PORT

3646

———
-

SEQ 0072

B4
BIEE 409
3645

i 1S Dngs

ggp Emm MODE?

'ELSE FIND NEXT DRIVE PRESENT

,sse xr DRIVE UNDER TEST IS RKO7
F NO
E!fSE SET
RKOD? FLAG
ons POINTER T0 NEXT DR FLAG

MOV

00
B e

NON

,-(5P)

;;go TYPE--OCTAL ASCII

15T
BNE
MOV

STMPY

;SEE_IF RKO7 UNDER TEST

MOV
BR

MOV

MOV
MOV
MOV

MOV
Bh

;;su$5n£ss LERDING ZEROS

73
#632,LC

£.00t
sl
#

8160017, MASK1

1575

; ;GOTO NEXT TEST

#1456,LC

;LORD RKO? PARAMETERS

TSTS

; ;GOTO NEXT TEST

oo.gsf E.DDT
#2000, AC1
81777 . MASK
#140017, MASK1

;Ln§r cYL

IMAJ

MASKi:

CYL + 1 SHIFT

;EXPECTED DRIVE TYPE TO E.AO

E.ODT:

:BR IF YES
:ELSE LOAD RKO& PARAMETERS

MC1
MASK

0
0

MASK :

1 DIGIT(S)

$:TYPE

MOV
MOV

LC:
MC1:

“33?5:”2 FOR TYPEOUT

CLR

78:

SUNIT,RO

SEQ@ 0073

.BYTE

BYTE

000

AR A A
QUYY R

89 Ko S

TYPOS

lOflB&?

———

SRS

000
Pn Boe s

P
P
s P
s Pt
et
P

MOV

P
e

Pty

NN Ekz

10-JAN-78 09:43

Bis SR o=

grannaunnfinounnfinuhnn
FRECREEEBNER
YL S0
NNNNNNNNNNNNNNNNNNNNNNYN
\Pfl\fiiirfl
dNDN'NflJhMUfifflg

:ENTER HERE FOR POWER FAIL RESTART

PFSRT:

;-lllllIIlllll&ll!lllll!l!!lllllil!llllllllilllll!l!llllilllil{ll

1kTEST S

R
Iflg?flfl“fl““flfln
Rel .
IR PEF
i

ot ot P

0000

s eP

000

%
%

e B

et B

ot ot

00000000

WWww WWWWWWWw
NNNN
W
~N

IBUS RK? DR_PRT2

106

PAGE 72
11:
MACY1l 3?3(1052)
10-JAN-78
FIND NEXT DRIVE
TO BE TESTED

PRINT DRIVE SERIAL NUMBER

THIS TEST RE
8 PRINTS T
IN BCD & IS PERFORMED ON THE

on*vs
RIAL # FROM MSG A, WORD 11
PASS ONLY
1ST

!-#gi!llllllllllll!lllillllllIlllil!llll.lll!llllll!Ilillllli!!ll
000001
001100

001174

001216

034214

80300
0336
eblY
000003

MOV

#1,STIMES
SP
sStAck,

532
JSR

sgss
Pc.guaCLn
24

::D0
1 ITERATION
Erx PTR
Ekggroné
IF NOT FIRST PASS
GO TO ¢§NEXTCLéna
60
AFTER SCLR
:CERR

TYPE

MSG16

;DRI

JSR
MOV

k3, RKMR1(RS)

PC.GSTAT
2.R1

;gs STATUS
=
iGET 3833

MOV
MOV
ROL

4, -(SP)
83 R3
R1

ERROR
000026

MOV

#$0CtVL ,RY

RIAL NO.

;EE#E ngv E 3

;c;r

HAR BUFF

:STORE ON STACK FOR $SUPRS
:SETUP CHAR COOQUNT
:INITIALIZE BIT POSITIONS

MACY11 30A(1052)
{5

18:

1224

1o-Jnn-7a

2
L
12264

ROL

ROL
ROL
ROL

Rl
Rl
Rl

MOV

R1,R0

BIS

#177760,R0
#60, RO

:CLEAR RL

FUT nscxl DIGIT

gggs

sg,lnu)+

12266

CLRB

BNE

1=q

JSR

PC, SSUPRS

a
S

SEQ 0074

:GET NEXT 4 BITS

(RY)

,SCRLF
scnur

TYPE
TYPE

;
:

PAGE 74

BIC

043062

JOb

11:25

PRINT DRIVE SERIAL NUMBER

ROL

15544
1

;GET WORKING
g

convsa

4 BITS

nsc 1%cxr

INTO CHAR BUFF

an IF ALL 3 CHARS NOT DONE

:ELSE INSERT

NULL TERMINATOR

: TYPE

3 ll!ll!lil!lllll!illlllillillllllllllllllllllllIllllll!lllil!lll

SET VV WITH PACK C

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

764024

034214

801021

000100

104415
012706

:CERR AFTER SCLR

BIT

#D. VV, HMR2
1577

:3GO TO NEXT TEST IF Vv SET

#STACK, SP

;RESTORE STK PTR

JSR

000003
032224

007354

000100

007402

ERROR
MOV

JSR
ERROR
I7

ERROR

104027

sstac

PC,SUBCLR

#PACK , HCS1

PC, DOMD
116

#D. VV, HMR2

1577

;CERR AFTER SCLR

;D0 PACK CMD & GET CONTR RDY
:RDY NOT SET AFTER PACK CMD
;:GO TO NEXT TEST xr vv NOW SET

V
:PACK DID NOT SET

; l!!llllll!lllllllllllllili!illl!llllilbllllllilll!lllllllllll!l

iTES
*II‘I‘

g Boe e &

PC,SUBCLR

SCOP1

2737

JSR

MOV

034214

831081

8l srxncs

BNE

001100

e& P88 52 8

007402

xrsnnrxon

;
STKP
hssroas

MoV
MOV
ERROR

004737
104024

104116

001174

e
g e

815788

000001
001100

00O

ié;zIlll!g;;&lllllllllllllIlllllllllllllllll!lillllll!lllll!lll!l

000004

[
e

SRR
R R WWWWWWwWwWwWww
N
NNN
£
NN
'Qarfl\flg\PQfl
RESS
DR
83t2 -0

RRLPEPEEERER
PR

IBUS RKE DR _PRT2
.P11
10-JAN-78 09:43

READ & SAVE BAD SECTOR INFC . TYPE PACK SERIAL #

THIS TEST v:n;r*ss THAT cv# 632 (1456 FOR RKO?)

THI

ARE A

rnncx
;
CAN BE RERD.

CONTRINS BAD ss on xuro WHICH xs unxfr

FACTORY DURING MANF.
CTOR INFO (BSE) WIL BE STORED
HIS TIME TO MASK FUTURE RERD HERDER OR DATA ERROR PRINTOUTS.

H
e
H

SECTORS 0,2,4,6,8 CONTAIN

fr zssoé

H
¥

0O000Y

000001
012706 001:00
15700 012737
15710

004737

001174

034214

MOV
MOV

8l srxnes

JSR

PC,SUBCLR

MOV

suu&r'axcgécgg)
sRECAL , HCS1

ERROR

000000
1
111577%5
stgté
63925%
000010
733
12737 gooox
007354

MOV
MOV

7 §§§§§u
17 7

000026

007414

157
1

7
1041

15764
1 ;;3

16000
1

32224
1

81%15744
1

737

1406

032634

007402

BYS:

000000

R16036 000401 —

%xsouo 104154
16042

004737

034214

016050

00S037

007414

005037

007416

sStAac
24

STK PTR
keronsITERATION
;

;CERR AFTER SCLR

8CCLR, RKCS1(RS)

;D0 RECAL CMD 8 GET CONTR RDY
‘RDY NOT SET AFTER RECAL CMD

JSR
17

MOV

PC.GSTA
oginrz,nnaa

#1,RKMR] (RS)

ERROR
MOV

y
10 r;npa

:RTZ NOT SET DURING RECAL CMD
ISETUP r;ncour

JSR

PC,FATTI

MOV

occ R, RKCSI(RS)

ERROR 154
JSR

:SELECT WORD 1

:FIND ATTN

INO ATTN AFTER RECAL CMD

% CS2(RS) ;DRIVE®
OCL
nfiHCSl
;D0 DRIVE CLEAR CMD & cs CONTR RDY
PC, DOCHMD

R
flirary
BR
65§

65%:

gxsouz

016054

0 OR AN ALIGNMENT PACK BY WRITING

PC, DOCHMD
124

MOV
MOV
JSR

104024

DETECTED
rscr D ano
FECTED¢

T TSHIL&NEE BYPASSED.

JSR
ERROR

ERROR

81§§?§ 8157&? fioxaea 000010
016016 2737
00000S 007354
737 032224

16046

rscr D BAD
§£c

THE PACK SERIAL % IS TYPED IN OCTAL 8 FOR THE FIRST PASS ONLY.
;g:;Illl;g;;gl!l!illl!llllllll'lllllll!llllIlllllllllllllllllll«lll

815572
gx§7ou

FOR 22 SECTOR HARDWARE

F AFTER READING THE BSE INFO
nsnoce 1S USED,
cuni

so ns NO TO

FUTUR%QGE

015670

IDENTICAL INFO

SECTORS 10,12,1fi 16,18,20 CONTAIN IDENTICAL INFO FOR 22 SECTOR
SECT
sscrgsg 1,3
11.1315,19:TAIN
5 IDENT
f: ioé?c figo CTOR
OR 20HARDWARE
SECTOR

PC, SUBCLR

TR ATORI CLERRCTO

sATTN NOT CLEARED AFTER DRIVE CLEAR CMD

ERROR

:CERR AFTER SCLR

CLR

TEMP2

:SECTOR CTR

CLR

TEMP3

0=22 SECTOR HARDWARE DETECTED TABLE

——————

D
s Pt

e Bt Pt Bt e

OONCNLEWN-=

SEQG 007%

MACY1l 30A(1052)
10-JAN-78 11:25 PAGE 7S
17
READ 8 SAVE BAD SECTOR INFO & TYPE PACK SERIAL #

mMm

QuuLey 33
iSEDDDE
WS

OO0

KOB

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

doEF ZRESKRY-S R

o mmm §§E§E

3%?3

016274

RKDC (RS)

BEORIC
PC,GSTAT

BAIR G0 SR Y
108 B0
FRESH m

227

;CERR AFTER READ DATA CMD

CTED MSG’BO

.SE%

737

034214

016306
016310

104230
e

1
3918
ggég

16_2
O0lbzee
016324

10
104234
000414

3921
3922

016326
016330

104231
000412

come
TM

3727 007416

000001

=< H

4S$:

i MSH BO

PC,SUBCLR
24

;CERR AFTER SUBCLR

TENPS,
45

;READ ALL S SECTORS?

TEMP3
4]
33
3%

;CANT READ SECTORS 0,2,4,6,8

TEMP3, 81

230
000002

PRLBER
RFTER READ ©DATA CMD

Bl ERROR
"gg

007416

{156 {8 F9REXPECTER b "

; CANT READ SECTORS 10,12...

TEMP3, #2

;CANT READ SECTORS 1,3,5
68:

EXPECTED Al

&
TEMP

00000S

000430
727

,EXPECTED MSG RO

E‘EESS?K'D caRT1b.
nggoaez‘,mxgsfié'o
PC , CHKMSG

;LAST CYL

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

DO746

004737
104024

16250 BECTOR HOFTWARE DETEC E TABLE

;STORE 22 SECTOR HARDWARE
; TRACK 2, SECTOR O

o-éssmnscugiam :LORD WORD CT

ggtm HCS1

DO74S

3913
33}%

16315

18:

pB7422

i pieems g
1

TEMPS, RKDA(RS)

007444

074

2 fie

g0%acs

007354

b b

016242
Olee4e

016264
01

ANAVE BAD BECTORCINFG & TYPE PACK SERIAL &
$BSE22H, TEMPY
TEMPY, RKBA(RS)
#1000, TEMPS

007420

000020
00000z
007354

[y
=]

e e e

3906
7

§§174

P
s Pt Pt Pt Pt P

e wnpury S

OO ONOON
OO

ey e S und

13755

Pt Pt

1
0{

Bt
ot Pt

[y
S ey e

§1
1

£ Hien
3900
3901

LO6

;122 SECTOR SOF TWARE DETE § ;ggts

R R

NNN
WM

F3roatesecanooninwzgggggssss
B Jotor
2

Eifi&iE”r??‘““sxsf ?RN-?ER58:43

MACY11 3??(1052)RE£8-

...

;CANT REARD SECTORS 11,13,15

...

11:25
10-JAN-78
READ & SAVE BAD SECTOR

000004
007422
000006

MOV
ADD

gav

TEMPY, RKBA(RS)
] FTE
<
,RKDA(RS)
I

BSERR

G%NFO & TYPE PACK SERIAL ®

007420

00S237

oo1s12

INC

003344

T
Q

Yee

ERROR

ooisi2

g8m1e
007414

EHPSRKDQ(RS)

1611

118:

TEMP3, 82
$

; SECTOR CTR
;STORE 22 SECTOR SOFTWARE BSE ADDR
;TRACK 2,

SECTOR 12(8)

; REPEAT

et ey|

; SECTOR_CTR

; TRACK 2,

80006

SECTOR 1

; REPEAT
12%:

TEMP3,
83
os

EMP2

Rkonchs)
186G
#1013, TEMPS

7420

004
4

TEMPS, RKDA (RS)

000006
108:

hasgéau -(SP)

PC, 30820
PC. $SUPRS
, SCRLF
'SCRLF
PC,SUBCLR
24

007354

BSE ERROR
F

;STORE 20 SECTOR HARDWARE BSE ADDR.

007420
000004

&
&
52
8
o
o
£
n

)

W@ B

000003

;RESTORE TABLE ADDR

iREAD 2 SECTORS FROM LAST

%E%S "

000001

——

Lt
e el e el I e

il ol ol

e
£0 Eg
; oo
EFR£ y - oo o

e eT

o e S S S A S

Wm“ o oom“‘w
ne
FER

S S

35 Rimiies BooRn Ba0

A
R

VY Wiy Wy

013765
;37

—

WA 0 el
NN N
z n
-0

MO6

MACY11 30A(10S2)

N N W

CZREIEOD UNIBUS RKE DR _PR T2
10-JAN-78 09:43
CZRBIE.P11

#SEEK,HCS1

,SECTOR

;STORE 20 SECTOR SOF TWARE BSE ADDR
s TRACK 2,

SECTOR 13(8)

; REPEAT

;:GO TO NEXT vsr IF NOT 1°'ST PASS

:CART SERIAL
#

; CONVERT DBL BINARY WORD TO OCTAL

;iTYPE SERIAL #

;CERR AFTER SCLR

;GO BACK TO CYL O

SEQ 0077

CZREIED UNIBUS RKE DR_PRT2
- CZRBIE.P11
10-JAN-78 09:4
3979

MACY11l 30A(10S2)
17

JSR

16650
16654

004737
104131

032224

§122;:
16664
166

3?37

001420
032730

007412

100000

007354

16672
16700
16702

i4
737

032737
1401
104210

NOG

10-JAN-78
11:25
_PAGE 78
READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL

ERROR
MOV

SEQ 0078

PC,DOCMD

;D0 SEEK CMD & GET CONTR RERDY

131

iNO RDY AFTER SEEK CMD

JSR

150000, TEMP1

serup T%HEOUT

ERROR

PC,FATt2
132

BIT
BEQ
ERROR

#CERR,HCS1
66$
210

;CERR AFTER SEEK CMD

FIND ATTN
NO ATTN AFTER SEEK CMD

66%:

016704

.SBTTL WRITE TESTS
lI!il!!lll.llilllilllllllllllil!lllill!llllllllllilllilllillli!

'ir

;:
‘¥

BASIC WRITE DATA TEST; 1 WORD

;EIS TESTvsnxréss THE naéksr; ?r ;;g 2Exvggsgngnirs JUST ONE WORD,
A un§$g conngno ¥§ gsgfis E EE ?E CHECK COMMANDS ARE NOT
Fggronfleoi TungEST

PROVIDES

THE rxcurssv POSSIBLE SCOPE LOOP

0001
1100

L
s
00

001174

o 3636 36 36 36 3 36 3 36 36 36 36 36 36 36 36 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 3 36 36 36 36 36 36 36 X 36 36 3 36 3 36 3 36 3 36 3 36 3 3 3% %

t&ti0:

é?DCKMDCNDCKD

oo1s12

MOV

#1,STIME

TST

BSERR

$e0P

oéfacx,sg

zhggro

TERATION

STK PTR

;SEE_IF ALIGN CART

iBR _IF _NO
iBSE OR ALIGN CART USED
;ABORTING BAL OF TESTS

JSR
ERROR

PC, SUBCLR
24

;CERR AFTER SCLR

007340

INC

BADHDR

;USED FOR VALID HALT

oo1se2

MOV

#HDTAB, RO

;MAKE ALL CYL O HERADERS IDENTICAL

2s:

034214

18:

CLR

(RO)+

;HERDER WORD 0: CYL O

MOV
MOV

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

;HEADER WORD
;HEARDER WORD

CMP
BNE

ng,ouorna+1aa.

;ALL HEADERS DONE? (22X6=132)
:BR IF NO

140000
140000

8 b77i

0200;7
001370

001726

017000
017006

012765
012765

001522
177676

000004
000002

MOV

#HDTAB,RKBA(RS)

017014

012737

000027

007354

MOV

#<WRHEAD)>
, HCS1

1677

%
, MSG40
' MSG26

BEQ
TYPE
TYPE

835562
S354
031452

01272

scop

MOV

#-66. , RKWC(RS)

;HEADER TABLE

;WORD COUNT

1: SECTOR O
2: XOR OF 1 & 2

{7022

i
oy

{65500

c AR T oé#faz?ss?fi

SEQ 0079

JSR
ERROR
JSR
BIT
BEQ

§§§

BO?7

EEREIE
P Y% B FaR 78 08:4

MACY11 39?61052)a“é?

007354

e ETCEE

6Y4S:

JMP

YOS

B3 0 e

#STARCK,
SP

9 8 K

17072

005037

40SS

017112

01276

0006
00004
000002

3% §17134
i1z BhS
Oqgéé

;CERR AFTER SCLR
TRACK/SECTOR #
;DATA TO BE ALL 1’S
COUNT=1

3%:

;

PC,SUBCLR

;RESTORE STK PTR

007354

ages Siftag b7
2

171

4065

017150

zggg

017164

032737

Hg?

4074

4075
flO;;
30;8

{7188

0osEz

175

lg?

017210
017216

017222

104012

000012

017406
100000
017076

s0s

17252

Qi7ses
01727

004737

7450
7452

4090

017302

104023

007453
00746
033042

65%:
66%:

007444

G127

4086
4087

000000

FN§RD SECTOR FLAG
SEE

ggsrausnn

SE5: ?;CTOR LISTED IN BSE TRBLE
EESE

gECTOR
CTOR, #10.
eSS

678

s0ed 61785 GAEGY

4083

#BSE, HER

007370

001003
1276
13

J
ERROR
J
B

007354

146S

£t Bk
;g

, N?ET§ST
T
DETECTED 10 BAD SECTORS

; RY RNOTHER SECTOR
8CCLR,RKCS1(RS)

;CERR WITH WRITE DATA CMD

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

;;EXPECTED MSG RO

E.BO

xpccreo MSG’ BO

Aa-

Al,
Bl
§F
PECIFIED
HERTR CMD
TER WRITE DA
;MSG RO tnnon
ERROR

#<D.SPOK!D. cnnrob on§P sxpecvso Al
81,E.Bl1
FOR
sxgsc
ED’ MSG
'EXPEC
E.R2°
#2,E.B2
E
CTED MSG B2
#3,E.B3
nsc ron
CTED MSG B3
PC cuxnsc

; CHECK nscs RO

:MSH BO

xo-.mn-n

—— 3?“‘losa’an§?cjfigx7? o&*hafiesgncf H9r0

87310 ARG punaR

67%:
68$:

Gisda 1o
0000000

%g;

%93:%

2z B0 SR

bisrs B

17370
17374

004737
000003

0000000

|
1

007444

ERROR
MOV
CLR
v
v

JSR
. WORD

033042

;EXPECTED MSG RO

éiot?S?K cnnr-bflggoarsiggunxgégiz sxpscreo Al

At 820

sCHECK
W30S
4804 SPEciF!
£
;
Esggg AFTER WRITE DATA CMD

iMSG Al ERROR
iMSG Bl ERROR

...flkil

001174

“‘és(“SEcTOR."
ACLTZER08
hae uRirTEN B0 Yhe imiTebata coman
w COMMAND. A FURTHER CHECK IS PERFORMED
go

VE IS REPEATED FOR AN ALL ONES PATTERN.

lllII.lllIII!iIlIlilllllilllllll'llllill'llllllll!liillllllilll

fsrxx-

8l srxn:s

;

1 ITERATION

HOV
MOV

sstac

ZRRoR

PC,SUBCLR

MOV
MOV
CLR

8-66.
, RKWC (RS) ;s$2u8250 FORMA

,E.A0

BRSIC WRITE DATA TEST; FULL SECT

Hov

00140S
104201

fi&h:fi?fi&fi%fi%%

;BAD SECTOR NOT LISTED IN TRBLE

lllll‘lilllll!Illl'll.iIlll!lili'lllllll.l!lllaall!lllll!llllll

'ir

;MSG A1 ERROR

2‘360.SPIN'D. onov-o
vvig
.DRAY

17406

8 1
017416

SEQ 0080

§338n7§u5"§83 OF TESTS

o §§

g
i
g
%

2333
JJF 33 A3
Ro2 NE
igaus
R

LfLLfrrrLrrrrrrrrrsL sS
£
SR

S S R S S S S R

FihEon-538 SRR ZEREBBYRR RO B o0 e n £ hn— 08 IR A ZoR=8

4092

0000000

EFEFEEER

CZRBIE.PIi1

co?

€5§%§N

CZR6IED UNIBUS RKE DR_PR

;CERR AFTER SCLR

sHDTAB,RKBA(RS)

;REST

T0 aa sscron

TOCYL

ALADD
AS
80, FORMAT

MOV
JSR

PC,FHDTAB

MOV
SR
ERROR

PC DATCMD’

Q
ERROR

kssroas STK PTR

AD>, HCS1

GSTAT

nctn ,HCS1
201

T
?S
i
HEADER

i TABLE

;00 DATAX FOR CMD 8 GET CONTR RDY
:NO RDY AFTER WRITE HEADER CMD
:GET FRESH STATUS
;CERR AFTER WRITE HEADER CMD

CZR6IED UNIBUS RKE DR PRT2

CZRGIE.P11

Y147

MACY11 :muosa)

10-JAN-78 09:43

T11

§ gg 683“% 831-452

812& ?g:og

:ifl

b4S:

) 085337 007340
1049415

:f
¥l

418
4160

737

034214

17564
0l

1
14

il
B
:i 3 i 2 01

000006 8S:
000004

17646

1465

4174

3{3
41
M

17664
1
1

017

737

3{ 0

:ies
¥l

177
177

mgg

7794

41
41

B'
104012

|77

BADHOR

;USED FOR VALID HALT

MOV

#STRCK, SP

;RESTORE STK PTR

JSR
ERROR

PC, SUBCLR
24’

;CERR AFTER SCLR

CLR

SECTOR

MOV
MOV

JSR

6?%209 000000 65%:
1720

007444
007450

66S:

lllll

4194
4l

737

033042

MOV

JSR
ERR

ERROR
67%:

SECTOR, RKDA(RS) ;SETUP SECTOR
mmo RKBA(RS) ;WRITE ALL 0'S

2.3.6

Rgs)

""53“2:%,HCS1

JONOOT

108REIAERF ISR 6

wgfii HCS1
,HER

;BR IF NO ERRORS

678
CTOR
gfgron.no.

RETURNo:k s;
TURN
I RREUND
CONGEC. SECTORS BAD

TRUERR

o ai

SECTOR FLAG

:SEE_IF

’EL

CTOR LISTED IN BSE TRBLE

:CERR WITH WRITE DATA CMD
'D.SPIN'D. onov-o vv! om> A0 ;EXPECTED MSG RO

"AS.Bl1

PC cumsc
sg

LEVH

L
P sEép

ERROR

5553

#<D.SPOK!D. cnm-b

| Wi

CLe

DO7Y

4501
19 000137 03198
4202 35%50 ?83053

ERROR
MOV

007452

:ABORTING BAL OF TESTS

2ok TEST DETECTED !0 BRD SECTORS
§
;’
Jmon
Bon
MOV
gcn.mcsunm Egn%néa SECTOR
JIMP
CLR

43 G SIEE B B
7

i3 & |

CLR

BR
Np

14
301488
o0oo012

15788

flfi
5

035700

MSG26

BEQ

3{;% gigg @g 000200 007370

$eoP

ffon

ui;g gf;fia @;3; Tmo 007354

3%7

SEG 0081

TYPE

MOV

ey Biress gy ceess

11:25 PRGE 81

JIMP

MOV
3
1 e %&2 T

:155 017620 012;37 000023 007354

i
41
9yl

10-JAN-78

BASIC WRITE DATA TEST; FULL SECTOR

SCOP1

:{g 01754 012706 001100

DO7

SP> s m

crzo

EitmT es

EXPECTED Al

; CHECK

DATA CMD
OuR Bl

& Bl

BlE

';:BAD SECTOR NOT. LISTED
. IN TRBLE

CZREIED UNIBUS RK& DR PRT2
CZRGIE.PI11
10-JAN-78 09:43

EQ?

MACY11 30A(1052)
10-JAN-78
e; PAGE 82
T1l
BRSIC WRITE onm EST; FULL SECTOR

68S:

“

007444

EE;

uo-o SPIN'D. onov-owi,g.onm.
.A0

7456
7962

E‘EX

MOV
MOV

og%gg

iHsgficrCTEDD MSG
MSG B2B3

JSR
LWORD
ERROR

PC, CHKMSG

cr:cx
;MSG

007450
007452

Yol
4 ig

MOV

el
14
y21s

l‘

w2l

RROR

4218

“
:

SEG 0082

)

Y
Y
Y4
h

002

SECTOR, RKDA(RS) ;SETUP SECTOR
ongge,nx A(RS)

007354

MOV

J
533053
JSR
BIr

698:

32232

020234

4
5

020236
36

4257
4258

100000

007370

104014

#-256.

;RESTORE STK PTR
:CERR AFTER SCLR

, RKWC(RS)

#<RDDATA>,HCS1

;DO oma X FOR CMD & cf‘sr CONTR RDY
:NO
RDY AFTER READ DATA CMD

Eég

PC,DATCMD’
;3
C,.GSTAT
;gsm.ncsx

;ng.uen

:SEE IF BAD SECTOR

ssnon

93:

;DETECTED BSE IN READ BUT NOT IN WRITE CMD.

MSG26

:ABORTING BAL OF TESTS

TYPE

:GET FRESH STATUS

70S:

IMP
aéz

$e0P
%K,FER

;SEE IF DATA CHECK ERROR

ganon
R

;13s

718:

ERROR

;CERR AFTER READ DATA CMD.

MOV

#<0'D.SPIN'D. onov-o VV!D.DRA),

;DATA CHECK ERROR AFTER READ CMD (ECC)

73%:

10340

007444

0 i57§;
0i2937 0017281 00748
745
4 00S0
007454
e

020270
020276

gecx
Eg
HERE
AFTER WRITE DATA CMD

RROR

MOV
MOV
MOV

007370

35:%
:

RROR

000006
888004

4240

4256

PC, SUBCLR

4584
4255

RROR

Jgg

007354

“4

ERROR

RROR

: m sxpecrso Al
1

525
t

.
#STACK, SP

Y 55

4
:

T.A2'T.B2'0

SCOP1
v

;

u spox-o CART! b&SS roa E

;EXPECTED MSG AO

012737
012737

000002
000003

007456
007462

H6y
MOV
CLR

MOV
MOV

;EXPECTED MSG RO

§<8°spox-o
cARTH.
I )
;EXPECTED Al
1.E.B1
ng“'?;32'B 3?0Fel 1’
sAa

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

iMSG ID ron
:MSG ID FOR

xpscreo MSG B2
EXPECTED MSG B3

CZR6IED UNIBUS RK& DR PRT2

CZReIE.PI11

4523 020

10-JAN-78 09:43

Y
H

Yob4
Y
B

12
19

T1l

737 033042

MACY11 30R(1052)

1
1

:o.sg

Y4
w ;g

4280

007444

737

g 0184026

MOV
CLR
MOV

81,E.B1
E
#2,E.82

MSG Bl
MSG B2

JSR
_WORD

PC, CHKMSG
T.A2'T.B2'0

2s:

007336

38:

737

034214

012765
013765

177400
001402

: 03 83%35 ?8302-0
431
1
10
431
1
1 76
75? 8?383 %80-4
0524
020532

Y4S:
5%:

001100

ROR

000002
000006

; MSG 8
*MSH
iMSG Al
:MSG Bl

#<D.SPOK!D. cmub
#3.E.B3

-3 MSGS
ERROR
ERROR

- g
> : Al ;EXPECTED Al

cmcx nscs
RO

go
1Eanon

}

teD

HERE

AD DATA CMD

i MSG
SRDTAB, R1

(R1), W01
RO, w2

RO, (R1)+
SROTAB+512.

s AC
TYPEOUT
wfi:flmFOR TYPEOUT

TA maLE AGAINST

ne''So 82?2‘8, uor“éonmn: WITH WRITE DATA

CMP

RO, DATAD

MOV
MOV
MOV
JMP

oonmx RKBA(RS) ;WRITE ALL 1°'S
Ag
sscrok
KDA(RS)
18

MoV

#STACK, SP

ERROR
BIS
MOV

PC,SUBCLR

MOV
MOV

crto
MSG B3

nsc

R1,

SCOP1

cIF1ED HERE

RROR AFTER READ DATA CMD
RROR

CMP

BEQ

001500 000004
‘582
14 000006
17604

012706

MOV
MOV
MOV

cng

g? 001474

60«415

ERROR

Y4 é

12765
137
1

4308

431
4314

;EXPECTED MSG AO

T.A2'Tea-

ERROR

“
5
4:
4

3(%0.SPIN!D. onov'o vv! .onm .AD

ERROR

gfx

ERROR

g&a 02?321

4304

SB
33’
3

MOV

033042

ERROR
Eflnnon

000003 007462

“
012701 006336
4285
% 10¥ CIl
001452
qsgg
éo r1
001454

;CHECK MSGS RO, BO, Al, Bl

MOV

7452
007456

104026

3 J

PC, CHK

7450

7454

SEQ 0083

JSR

72%:

PRGE 83

FULL SECTOR

Ennon
RROR

FO?7

11:25

BASIC WRITE DATA TEST;
_WORD

4
Yo7
Y274

10-JAN-78

.szz F nzacuso sno OF TABLE
sss ;r1D ALL 0'S

;RESTORE STK PTR

24
;CERR AFTER SCLR
(RS) m S PORTION OF THE TEST CHECKS
noa*hx SKSn
5)
ms WRITE CHECK CMD

#-256.
. RKWC (RS) ,RLL 1'S WERE PREVIOUSLY WRITTEN
sscron RKDA(RS)

OO0

1E0 UNIBUS RK& DR PRT2
10-JAN-78 09:43
gfxf.ru

5 i;

2;3; 888225 S——

431

433y
K

5
%)

b
:33

505

Bl Bl

020620

104022
1

19332 007444

4338

79 B8ga3; 93304

.
:

BRSO B127
NE
1

748

7 1 7-45
0074

02075 012737 010340 007444

MOV
MOV

RKDB(RS), WDl
DATAL, WD2

ERROR
gf:

;CERR AFTER WRITE CHECK CMD
22
gw-o.SPIN!D.onovéo V\cl 605'55 ,E.AD ;EXPECTED MSG AO

B0
MOV

W
#3.E. Bg

P
8 :33 35
i MSG 8 XX
FOR
cTES

TR0

TCASYNMBS.g

OMECK MSES
8% BecTF1eB'ue

AR
RR

758:

ms,ncsa

o s

ERROR

1049
5354
583?2 %x?fi 831452

020716

g%GSTAT
,HCS1

MOV
MOV

M o
007462

gc T

Béz

goooz4 - 0o14S2
1S00 001454

GE3

S'f‘a

040000 007356

1
1

SEQ 0084

CWRTCHK) , HC

om
1
007354

10-JAN-78 11:
PRGE 84
FULL SECTOR
WRITE omne%sr;
BRSIC

'}%m Sc'.%n?cm’ - D“"‘,,,'S““Srgstc’c::&c%n ROY

7354

T11

MACY11l 30A(10S2)

GO7

'c‘grn?n:sn E

;SEE IF WRITE CHECK ERROR

;ACTUAL WORD FOR PRINTOU
ron TYPEOUT
x:sg Eo

YSosm(-o
CART! b@
81,E.B1
;
Igsf
7

' S‘ip)
m EXPECTED Al
ED

;MSG AD ERROR AFTER WRITE cuecx CMD

RROR

spe
IMP

“Hscae
$e0P

i NBORTING BAL OF TESTS
y

EEK

e(o-o.SPIN'D. onov-o w!D onm E.AD

;EXPECTED MSG RO

MOV
MOV
3'65
MOV

aam- .SSP>, : m sxpscrso Al
Bospox-o CART! b '5
u As.Bl
é? ogss “scfl:o
52 E.B2
nsc P
CTED
B2
oa!s B3
i MSG 18 E CTED
MSG B3

S g
guy oo
4360
772 104057
i
mhr e
3 3 1038
104032

e
ERROR
o
ERROR

TSNEo
57
g32

IOk NS0 BB Blcne
;ns EnnonAFTER WRITE CHECK CMD
g axEnnoa
;nsc

:3&

MOV

#STACK, SP

;RESTORE STK PTR

<
5
3355
:

17
3%
7e0 12
127

4365

851%3
1

012706

001100

4368

gsxow

004737

034214

4369

1014

104415

T'?"e's 007450
1 007452
3 007456
000003 007462

104024

SCOP1

JSR

ERROR

PC, SUBCLR

:CERR AFTER SCLR

MACY1l 30A(10S2)
10-JAN-78
11:25 PRGE 85
Til
BASIC WRITE DATA TEST; FULL SECTOR

S SFEBRIER

e pape

gl
1
1

1
1
1

&6
T ':.":."3'.'

-0

FEREFES RESK2 8~

']
JUUUU
o
+

D000C

SDATAO,RK%(

MOV

SECTM RKDgiRS)

MOV

8672

ROV

JSR
. WORD
ERROR

PC, CHKMSG
H
?

5‘63

MOV

Hov

7‘456

07462

e
RROR

78:

3 XTIl

hs 12

1
03sz21e

LLfw
oo,
oo

001346

[Ssyuyy

684348

000004
000002

BORRE T

EHIE

<Q!D.SPIN!D. onov-o

AR G, "B

;;EXPECTED MSG RO

§<§°spox'D. cmr-bxfig'g°BR§2¢ EoEXPECTED’’ MSGAl BI ;EXPECTED Al
A
:S,E.ES

:
T
==§2
1B FOR EXPEGTED
Meg 83

39o)

SFG
T CHK CMD
g
;L‘?& i
81..,.
ERROR

cvccx MSGS AD

AL, B1

22221222222222223:32222222323232213222222222222222222 22222 ]

20 SECTOR FORMAT TEST

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

122212222222222222322:323323232333222222TTT22222X2TTTTTTE2T2T
LTS

'réna-

SCOPE
MOV

MOV

#1,STIMES
sP
sstack,

;
1 ITERATION
STK PTR
TORE
hs

;CERR AFTER SCLR

JSR

PC, SUBCLR

MOV

ouoma RKBA(RS)

;HEADER WORD TABLE

B an

;USED FOR VALID HALT

ERROR

288

b
M)

gy 8
o—v—ggh-8 on
e
FOF

RRRR BB RRR
SRR

nrn
£ L
o

001522
177704

———

=]
n

£
P =
n
£

034214

001174

DO WRITE CHECK CMD. 8 GET CONTR RDY.

ALL 1'S ARE WRITTEN ON A FULL SECTOR IN ao SECTOR FORMAT.

¥
;.
X

SEQ Q08s

; ;SETUP TO CHECK AGARINST WRONG DATA

68%#

007444

033042

000001
001100

8-2S6.

ton 17

68:

BA%248

MOV

0 Lem

B384

—

SE §

474

1
gl"fl&

R 8

Bt Pt Bt Pt Pt Pt

Pt Pt Pt P

£r L

flg?%
437
437

D25

CZREIED UNIBUS RK6 DR PRT2
CZRGIE.P11
10-JAN-78 09:43

MOV

138

,RKWC(RS)

MOV

TOCYL , CALADD

MOV

JSR

;WORD COUNT FOR 20 SECTOR FMT

%0, Hsho

TO
FéhL

PC.FHDTAB

mau:

FORMAT

R e N IBUS K7608: 43
CZREIED UNIBUS RK

:3w3l

Yy
4y
4y
Yy
::0.

x§§3 8&:7 ? 7
zsa

018l
1

85222«

131
131
1314
1

1
m:g 851&
6

m«;
Yyy

1
1

737

:::g 851332 ?3:'0024
334

12;5

1374

igqawe gizgi

::2;
Y

1450
14

:“

007354

127,

N85

ERROR

BIT
B4S:

034214

4S:

1444

000455

1474

Y473

gsxgg

1510

::74

“y
Y47,
s
4y

Y481

Y482

012 g;

104012

012737

SCOP1
MOV

#STACK, SP

;RESTORE STK PTR

24’

;CERR AFTER SCLR

;CERR_AFTER WRITE HEADER CMD

:ABORTING BAL OF TESTS

ERROR

JSR

PC, SUBCLR

CLR
MOV

SECTOR
SECTOR, RKDA(RS)

moonm&mgg% )) s“u'sincn INHIBIT

10023

007354

MOV

PC, DATCMD

axg

#BSE , HER

;

BR
INC

67¢
CTOR

:RETURN HERE IF NO
URN

gsease

035700

100000

021394

19340

15
127
00S037

021550

012737

000003

000000

JSR

65%:
66S:

007444

07450
007482
007456

007462

o-a&..fixuctgs) '933FULL
ucrnnmonm»,ncs

c
T CONTR RDY
RROR
11’
Y
n
rrsgnunfl?s
DATA
CMD
MOV
ucrm
rgewav»ué
gsn
??m ulncl:’m
HCS1
S
SR S -~
Sco
se& y
;BR IF NO ERRORS

000200 007370

46
1
7454

012737

64
201
MSG26
$E0P

'a'?g
MOV

18
1
1
1536

021542

BEQ
;mon
YPE
JMP

%8302

0336

;NO RDY AFTER SELDRV CMD

0000%

afi&g 85}%-0&“ % s 1435 000012
w?o
11M
Y47
;
022374
Y47,

ccgaa,ucsx

1 :

4455 glfi
%g?
141
27gé gégoox
007354
Y
1M
224
Yy
i: ge}.‘c;
100000 007354
:351
wg‘a'
1465
1

#<CFMT!WRHEAD>
, HC
Pc!omcm
oo
38 X FOR c s csr
Somn RDY

sneon
8<CFMT!SELDRV>,
nc(31 Y WTER unS
TR
Pe
bocHD:

007354

000006

MOV

JSR

001100

001402
1402

IO?

e Lo Format-TesTPAGE 86

30AC1052) 10-JAN-

007354

5354
1452

Y4y

MACY11

C, TRUERR

gflng
snnoa
MP

§§gron.uo.
43

JMP

MOV

ERROR

MOV

SEE ;r BAD SECTOR FLAG

522 IF SECTOR LISTED IN BSE TABLE

& ngc.
szcrons BAD
neomgm;
rgsr DETECTED 10 BAD SECTORS
g

8CCLR,RKCS1(RS) ;TRY ANOTHER SECTOR
12

;CERR WITH WRITE DATA CMD

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

;EXPECTED MSG RO

CLR
MOV
MOV
CLR

E.BO
XPECTED MSG'
%<D.SPOK!D.CART!D.DOOR! D, BRHM! D.SSP> ,E.Al ;EXPECTED Al
#1,E.B1
:MSG_ID FOR EXPECTED'MSG B1
E.A2°
;sxpscrsg MSG
_

MOV

#3.E.B3

MOV

#2,E.B2

iMSG 1D

FOR EXPECTED MSG B2

:MSG 1D FOR EXPECTED MSG B3

%0 o

421;
£
218

45
452l

HS3§

:MS

iMSG Al Ennon

VWY

32
007354

67S8:
68S:

1 MSG g%
RROR
:ABORTING BAL OF TESTS

:BAD SECTOR NOT LISTED IN TABLE

#<CFMT!SELDRV>
, HCS1
PC,DOC MD

ié’r

007402

SEQ 0087

;MSGH RO
Efingg nr?Es ua%gg DATA CMD
BO ERROR

;RDY NOT FOUND AFTER SELDRV CMD

18’

102

;FORMAT NOT SET

18:

g«géo.spxnso.onovéo.vg%g.onn>.sbno

e P Pt et Pt Pt Bt

007444

o
N
£

&%
3

gxhs.al

‘ESG §?E§o§ss

.S;E,Eg

:MSG ID FOR Exrscreo MSG

007456

007462

N XPE

,E.

:MSG

PC, CHKMSG

ot Bt Bt Bt

702

FOR

CTED

EXPECTED MSG B2

;CHECK MSGS RO,

BO,

Al, Bl

o'd'o

18 MSGS spsgarieo HERE

:MSH BO

7%8
B
g

;EXPECTED MSG RO

uZo.spox!o.cnnteb.oognzo.aaafis .s§P>,£.A1 :EXPECTED Al

7450
452

et e P

£is

PAGE 87

TEST

.ngc ng Enn

ERROR

AFTER WRITE DATA CMD

#-256. ,RKMC(RS) '

0?0083

Pt B B

10
11

JO7

800010
000006

SBAL AKCHS(RE)
SEC*OR,RKDG(RS)

ot Bt

3298bhbts

EEEEEEEEE

4y
4y
Yy
4y

MACY11l 30A(10S2)
10-JAN-78
11:
Tie
20 SECTOR FORMAT

007354

0t e P

RRISERRRRRRREE
FRRRREREER RRRERER B
00
NN
82—
#o2 § RERETRRGS 2

Yy
44
4y

e
e oy Sy S Sy vy oy gt

CZR6IEO UNIBUS RKE DR _PRT2
CZRBIE.P11
10-JAN-78 09:43

007354

(CFMT!WRTCHK> , HCS1
*";D0 DATA X FOR CMD & GET CONTR RDY
gc?nnrcno
5§crn1-55Lon> Hég? RDY AFTER WRITE CHECK CMD

742

022040

PC, DOCMD
léénn it

007354

708

007356

00145.
001454

104022

69%:

;NO RDY AFTER SELDRV CMD

gggs,ucse

;SEE IF WRITE CHECK ERROR

RKDB(RS) , WD1

;ACTUAL WORD FOR PRINTOUT

DATAL, KD2
%3:

:EXPECTED WORD FOR TYPEOUT
;WCE AFTER WRITE CMD

:CERR AFTER WRITE CHECK CMD

0 _UNIBUS RKE DR_PRT
09:43
10-JAN-78

7
ol
ot et ond

g
e o S

007444

28;

g«o-o.SPIN!D.DRD

007450
007452

gfix

JSR

PC, CHKMSG

1% BandEz
7

032224

007354

88%7 I

001000

007402

S
g S
S

.B1

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

T.R2'T.B2'0
g?
56
32

IMP

$e0P

MOV

6oan>.

MSG26

.A0

.SSP>

,E.Al_;EXPECTED Al

i:MSG
MSG ID Foa
XPECTED MSG B2
FOR EXPECTED MSG B3
1

;s CHECK

!;MSG RO tsggg
52 n%Ssggt
};8
cuscx CMD
2? RROR
;H%E
i MSG a% RROR
:ABORTING BAL OF TESTS

#<CFMT!SELDRV> ,HCS1

PC, DOCMD

BIT
BNE

#0.FORM, HMR2
2%

geg

onn» E.AD
vv-g
e 360.SPIN!D. onov-o

ERROR

;EXPECTED MSG AO

c so MSG Bl

JSR

ERROR

104103

:NO RDY AFTER SELDRV CMD

103

;FORMAT NOT SET

cs:

[

104117

708:

=e G0

IQSPSPOV!D.CRRT!

.
:gggz
Ennon
ERROR
TYPE

T g
1
127

02
3

007444

607422
007456
007462

033042

104031

sxpecrso Al
#<D.SPOK!'D. cnnr-b
,,88”'1' rg“” ifionsc
gxhs.B1
%2,E.B2
”5§§£§c150
MSG aa
#3,E.B3
CTED MSG

JSR

" RROR

PC, CHKMSG
)
37

ERROR

MOV

#STACK, SP

PC,SUBCLR

ggggg
001100

737

034214

ERROR

15768 10925 886662

MOV
MOV

88136

Rgv

737

004737

001346

000000

035212

001466

;EXPECTED MSG AD

MOV
gex
MOV
MOV
RROR

12706

005037

022326

MOV
MOV

007456
007462

010001

MOV

ggaégg

4585

o —

PAGE 88
SECTOR FORMAT TEST
20 10-JAN-

033042

127%;

KO?7

MACY11 3??51052)

§§9340

000003

BRSNS
YernEons REREERR RFERSezo 55 %fi

5558
S
WRPDRRS

I
n

iy PR

dhihin
EEEEELEELLELLEE

EEREIE" P11

11;

CLR

MOV
JSR

32
24

c"332c“¥!s§°fisnz
ER WRITE CHECK CMD
.nsc

s MSH

1MSG

nnon

:MSG B1 ERROR

;RESTORE STK PTR

:CERR AFTER SCLR

#HDTAB, nxa RS) ;RESTORE CYL O TO 22 SECTOR FMT
$-66. ,
RS)

TocyL'

ALADD
ocnt5

#0. FORMAT
PC.FHDTAB

s SETUP
FILL
E*S
: HERDER
: TABLE

83282

007354

MOV

007354

géz

2364

045354
031452

00S037

007340

0_UNIBUS RK

5
i

088374
022374

033664
100000

£
r

30A(1052)

%0 (0%

e PormAt TESTPAGE 89
mu;nw
8¢
,HCS1

JSR
ERROR
JSR

PC GSTAT

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

ERROR

201

:CERR_AFTER WRITE HMEADER CMD

CLR

BRDHOR

;USED FOR VALID HALT

octfin HCS1

MSG26
$§e0P

718:

3s:

LO?

10-JAN-7

TYPE

:ABORTING BAL OF TESTS

3 N0 3 6 363 36 36 36 3 36 36 3636 36 36 3 36 36 36 36 36 36 3 36 36 36 3 36 36 3 36 36 36 3 36 3 3 36 3 3 3% 3 3 3 3 3 % % %

DONOCNEWN-0O

%FE5EESSESESAaddddiasHihhinin
BBIRR mm

Edrel .P11

FEEFTFETTTFTTTFOT
T EETT PET T
33
Fy
85 SFHE wh-0O SBYRRZOR-E
t W

301052

10-3aR-78PR55:43

MACY1l

irzsv 13

TEST OFFSET & RTC LOGIC

E”E

;¥

812757

T orrszr

vgx 33

gEs;

orr
RL

OFFSETCOMMANDS.

S AND T

SET REG

cgv vsaxr uc THRT THE
g

N A SEEK CMD o

LEAR & SEEK TO SELF WILL NOT

T OR THE OFFSET REG.

T POSITIONS xu BOTH DIRECTIONS ARE CHECKED

MOV

#1,STIMES
sp
sstack,

ITERATION
;
STK PTR
kesroas

MOV

#1,R2

:MIN POS OFFSET

JSR
ERROR

PC, SUBCLR
24

:CERR AFTER SCLR

MOV

R2,RKASOF(RS)

;SET OFFSET

MOV

"8%
ERROR

8648, SESCAPE

007444

ggx

g«gbplpeo.spxneo.orrzo.vveo.onn>.s.no

007450

MOV

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

.WORD
ERROR

PC, CHKMSG
000
35

001174

000001
001100

C.2702

000001

004737
104024

034214

010265

000016

815737
164633

022520
0000
032224

001176

1373;

032140

127

000001

033042

i 5317

104082

§R$

; sll!lil;gs;zllllli!lllilll&l!lllllilllllllillll!ll!lllllllilllll

012706

i184836
:051

Tfl?H§:$

DO74Y

18:

00745

MOV

JSR

RROR
ERROR

RROR

°°FF§E;6"C51
!

GET CONTR RDY
no
: ESc“krrsnOFFSET CMD

:EXPECTED MSG RO

#1,E.Bl

31
b
B2

; sggggecggtsg
ING orrssr CMD

cuc

ng E
nnon
M5G
:MSG 51 ERROR

012737

022540

0S2340

gek oy B
:

30A(10S2)
T13

4s8:

MO7

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

ERROR

007444

MOV

007450
007452

ggz

CLR

007456
007462

033042

gggg?g
14

001356

17§%:

PC, CHKMSG

RROR

ERROR

37
4O

1ST

CYLADD

ERROR

BIC

MOV

T.A2!T.B2!'0
51

178

#1000, CYLDIF

888
388
%58

NOoOWNWWo
L= = G

R
2
3

R
NN
®

678:

433089
002000

000000

007402

: .ggun

5:§3sé?s§Rt RS

i fg
MSG
E§:§ES HEE 35
; CHECK MSGS RO,

; MSG gg Enn

RROR

*MSH

BO,

AFTER OFFSE

iM5G Al Ennon
1MSG

WAS NOT O

nr ERSrsgst
cnoBIT
FROM CYL O

;BR IF NEG OFFSET

CMP

ng CYLDIF

; CHECK POS OFFSET

114

;OFFSET IN R2 NOT = RKASOF

668

iAFTER OFFSET CMD

CMP

R1,CYLDIF

; CHECK NEG OFFSET

ERROR

114

°“5§T°}" A2

BEQ

664

MSGS SPECIFIED HERE

¥BIT7,R2
.
sg‘

668

;EXPECTED MSG AO

3?26,E.
918 ;EXPECTED Al

MOV

032602

TSD MSG 80

gns

66%:

100000
1222
0S
032224

nsrnssu nxnsor

ERROR

65%:

u%"grrnAFTER OFFSET CMD

R2, RKASOF (RS)

BEQ

001356

;s SETUP TIHEOUT

.1 .ssoxvo.CART!D.

JSR

BEQ

SEQ 0090

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

go
E.

oa E.B
ag

RROR

1
1

:gagzgignvx

MOV
.

851§i

s5tReset
883&&3#
NNNNNN FEFaEass
23 W SEBIRR L2
P —————

{

MACY11

GEEERy GO GBI oo7412 ’
e GBS

FEFFFTFTTTTT
SR RARR FARKS

ERREEERE SRR

CZREIED UNIBUS RKE DR PRT2
CZRGIE.P11
10-JAN-78 09:43

‘AFTER

OFFSET

NOT = RKASOF
CMD

#CCLR,RKCS1(RS)

MOV
MOV
JSR
RROR
gn

SUNIT RKCS2(RS) ;DRIVES
8CLEAR, HCS1
;D0 DRIVE CLEAR CMD & GET CONTR RDY
PC, DOCHMD
35
NO RDY nrr;n DRIVE CLEAR CMD
sgtTSTRTN
'TEST FOR ATT

ERROR

154

? x

RKCS1(RS)
occtn

BIT

BNE

#D. OFF, unna

4§

sATTN NOT CLEARED AFTER DRIVE CLEAR CMD

“7§§

022760

104043

12737

4?7

4710
471

774

4713
‘071;
471

ceaoio
%12§

471

47%2
47
47
N7

187

T13

10-JAN-78

NO?7

11:25

PAGE 91

12340
7;“6
1

007444

4s:

SEQ 0091

TEST OFFSET & RTC LOGIC

orr

T BIT IN RKMR2 CLEARED

AFTE

E‘gLOFF!D.SPIN!D’ onov-o vv. "

Dksnn
CMD & SELECT

?
ass

Aguxgg.

g?z

#1000, CYLDIF

001356

a7ed B3040

sei '

#BIT?7,R2

;BR IF NEG OFFSET

zg‘choxr

; CHECK POS OFFSET

4758

pesosy

698

iAFTER

47,

§§3060

zé‘choxr

;CHECK NEG OFFSET

3066

sOFFSET

115

:;35

023070

473

47
4733
a7l
sz
:;:;

§§ 7!
Be3
geaion
SRS i
ggglsg 032737

1747
4748
4749
4750
4751
4752
4753
4754

023130

Y4748

001401
104210

800017
32224

023132
0231
02314

Pg nolmMD
131

001420

oo7412

100000

007354

032730

#SEEK, HCS1

007354

150000, TEMP1

;OFFSET _IN A2 NOT = RKASOF

DRIVE CLEAR CMD

= RKASOF
_IN A2 NOT

nrr?i o&xvs CLEAR CMD

;DO

EK Cflg L3 GET CONTR RERDY

;NO RDY

AFTER SEEK CMD

sSETUP TIMEOUT

PC, FAT2
132

;FIND_ATTN
!NO ATTN AFTER SEEK CMD

#CERR, HCS1
708
210

;CERR AFTER SEEK CMD

708:

023132

:; 2 023144
4728
47

69%:

3070

68%:

001356

3064

032737
?0100

002000

#0.0FF ,HMR2

007402

78
45

;OFFSET BIT CLERARED IN RKMR2 AFTER SEEK TO SELF.

78:

7
8003
1373?
012737
005037

052340

007444

00172

007450
007452

0C 744

000001
007454

#<D.DSC!D.OFF!D.SPIN!D.DRDY!D.VV!D.DRA> ,E.RO
MSG BO
:EXPECTED
.80

; MSG E
no t593§°§r$ss6R%2 CLEAR CMD
IMSH
nsc Al RR
OF uxcn BIT
? Sio
SH RKASOF
; CHECK MSGS RO

DRY CMD

:ioss:ox-o.CART!D.DOOR!D.BRHM!D.SSP> ,E.Al

745
745

R2, RKASOF (RS)

;EXPECTED

; EXPECTED MSG RO

#<D.SE?K'DCRRT'b880?'0. BRHM! .SSP> ,E.Al_ ;EXPECTED Al
D _FOR EXPECTED'MSG Bl
;EXPECTED MSG A2
E.R2°
8l E

(ele]

MACY11 30A(10S2)

CZR6IED
UN IBUS RKE DR_PRT2
10-JAN-78 09:43
CZRBIE.P11

CZR&IED UNIBUS g
CZReIE.PI11
10- m-

MACY1l 30R(10S2) ég-muT13
TEST
OFFSET

-ua

4763

BOB

SEQ 0092

PAGE 92
8 mc LOGIC

023176
Ol
007462
% 007456
815;3;
:;g; géo-o
e
1
4
475
Y
1041

MOV
,E.
oa.E.aa
MOV
JSR
.ERROR
WORD PC
T.Agfi'.'ggso
140

:MSG ID FOR EXPECTED MSG
B2
ID FOR Exn:cn MSG B3
:MSG
: CHECK
A
1
';MSG RO ERROR
-EfMSGSr&sAFTERcxhss
HERE
SEEK TO SELF

ERROR

;

477

47
3

001000
000016

4778
H

4785
47

BIT

020237 001356

CMP

#BIT7,R2
'’
718

3795

47:3?

47
47
48
Y
Y
4g

ERROR

123

:OFFSET IN n;
NOT RKASOF
IAFTER SEEK TO SE

JSR

PC, SUBCLR

001346
000020

MOV
MOV

#10.,TOCYL
#10. \RKDC(RS)

;CERR AFTER SCLR

1573“9 0017
oooo?‘é 007354

MOV
MOV

100000

BIT
BEQ

ocem,ucsx
748

4g
3389
Y4
48
:gio

TYPE
JMP
MOV
MOV
MOV

MSG26
$e0P
RKDB(RS), (RO)+
RKDB(RS)
. (RO)+
RKDB(RS)| (RO)+

7°L
PC,GSTAT

012737
012765

000012
000012

14
353320

g‘g

023356

gsggs

023406
023410
023414

BEQ

724

728

728:

D23
D23

718:
.

034214

491%
481
3372
4814
g
4815
3382
4816
4817
4818

123
ERROR 728
BEQ

001356

737

;BR IF NEG OFFSET

R1,CYLDIF

3;5% 853575 ?33033

"73
Y7
4794

RROR

:GET
RID g HIGH BIT
;REFRESH RKASOF

'AFTER SEEK TO SELF
;CHECK NEG OFFSET

104123

BR
CMP

137

023272

‘M

;CHECK POS OFFSET

8535;23 g?ugx

MSH

R2,CYLDIF

wgg

0232

000200

1 o4

473
3;8

RROR

8l
CYLDIF
R2,RKASOF(RS)

702
a
E
g‘h’fog
:fi

IC
MOV

001356

ERROR

7;7

1041

032262

007354

045354
1
031452
016520 000024
gxsggg 000224
16
000024
S

100000

104173
104401
000137

045354
031452

1"’87
737 033664

00001

ERROR

24’

unozghm HCS1

JSR
ERROR

ERROR

174

Sgg
J

ERROR
TYPE
JIMP

;OFFSET IN A2 NOT= RKASOF

;SETUP_CYL io
D0 _ACTUAL IMPLIED SEEK TO CYL 10 TO VERIFY

‘OFFSET BIT INnxma CLEARED

:D0 DATAX FOR CMD 8 GET CONTR RDY
:NO RDY AFTER READ HEADER CMD
;CERR_AFTER READ HEADER CMD

:ABORTING BAL OF TESTS

,vsr WORD FROM SILO TO RHTAB
;2'ND WORD
;3'RD WORD

#DLT,RKCS2(RS)

173
MSG26
$§e0P

:DLT AFTER READ HEADER CMD
‘ABORTING BAL OF TESTS

CZRGIED UNIBUS RKE DR
Pu xo-:m-nB09:43
znsxe

MACY11

uosa)

cos8

755:

Efi% gbgég % 007444

EEX

ggg

i
B..ES

g’g
7N
76

3B,

Y
83-.22

737

1
1
10427
104

033042

97w

JSR
uogg
ERR
RROR
RROR

104272

001726 001346
23737
;og ggw
&33?; 104051
BO14D1
5]

1401

002000

ERROR

73%:

007402

104101
001360 000012 9$:
3727

1041

3
4854

737 001356
737

034214

168:

007354

weé 85%& 004737 032730

013737

007412

:gs“g

023606

104132

4865
Y4

gsasw
16

032737
001401

007354

395“? oageo 104210

o ne

02362

4872

023622
0236

TST

Eso

ROR

012737 000017
737 032224
104131

Yen

853

104101

023560
023566
3&3 023572

4873

ERROR
CMP

108:

853225 M

4858

BEQ

14 é

001420

100000

< 10.SPIN!D. DROY}mgv,rgbm>

JSR

ERROR

MOV
JSR
ERROR
MOV

;EXPECTED MSG RO

uo spox'o cnm-b
n28°“ofmx&i?’éoHea's :xpscrso Al
“t

SGTED st 2

wie

cu:cx

r.aSn'.‘ESeo
301
27

fir&s?écxhsg HERE

:gu E
c

272

RHTAB, TOCYL
MP
&:o
738
ERROR 51
BIT

Y4
=

u'etsaE 023542

= 0090%

RiE506T
e OERSET o 11;:

R READ HEADER CMD

0 ONLY, CYL®
R
1
%
uaonc CYLS ON HEADER

; CHECK

ng.orr,nma

0
CYLADD, #10.

:OFFSET NOT CLEARED AFTER READ HEADER WITH MOVEMENT

:DID NOT GO TO CYL 10

CYLDIF
13:

101

;OFFSET NOT CLEARED IN RKMR2

PC, SUBCLR

;CERR AFTER SCLR

24’

#SEEK, HCS1
13|

PC, DoMD

150000, TEMP1

’

;00 SEEK CMD & GET CONTR RERDY

:NO RDY RFTER SEEK CMD
;SETUP TIMEOUT

JSR

PC,FATt2

BIT
BEQ

#CERR, HCS1
768

210

:CERR AFTER SEEK CMD

BIT

#BIT7,R2

:SEE IF DOING NEG OFFSETS

ERROR

132

:FIND ATTN

:NO ATTN AFTER SEEK CMD

032702
001014

000200

BNE

188

:BR IF YES

CZRGIED UNIBUS RK6 DR PRT2

CZRBIE.P11

10-JAN-78 09:43

4878

MACY11 30A(1052)
113

ERS

000061

023‘00

000137

022420

208:

420
g 4w s

ol
023672

000137

10-JAN-78

188:

000261
022420

11:25

PAGE 94

TEST OFFSET 8 RTC LOGIC

;SEE IF JUST DID MAX POS OFFSET

ES #61

BEQ

208
18

:ELSE DO NEXT POS OFFSET

:zg;,sf

ss;g NEG or;gr Sfonmnmsor

y«g

IMP

JMP

A
JMP

iBR IF YES

104

186 NEGOFFSET

R
18

1o%
55
:00 ANO
L

8261

OFFSETS DONE

, lIl!lIlI!Ill!lllllIlll!l!IIllllll!lll!l!llllli'll!lllllllllllll

2
e pe

o e

s e e

e e B

DO NN
LW -

frrrrrrrrr
s
D OO DD DD DD

‘!930

BHE K

023774

032737

TTE

ga F

ch
c xs orznmxom. BY

ON C

+ AND- OFFSET
m ALSO VERIFIED BY READING MSG A, STATUS 00 & 10.
FRIL

gsm n-: ran. uc

rser POSITIONS

or ssr

‘¥
¥

ALL HEADS ARE greo AT CYLINDER 9
IF THERE ARE NO FRILURES AT ALL, THIS INDICATES THAT

BUT AN INDICATION OF SURFACE, HEAD & R/W ELECTRONICS QUALITY ONLY.

m:nos oxo 'm ourE sunracs HERDS, R/W AMP

NOTE THAT THE OFFSET FAILURE IS NOT AN ERROR

;g#t:llllIszgllllllllillll!llll.llllllIlllllill!lll!lll!lllllllil
1100

001174

MOV

034214

gEren osoaz

gTe R
5205 20l)

;ST
ven;nsn
S THAT THE HE

i e

TEST READ DATA AT ALL HERAD OFFSET POSITIONS

000006

gl
802
007354
033664
100000

007354

11S:

:s
Ehggr

;CERR AFTER SCLR

JSR

PC, SUBCLR

CLR

SECTOR, RKDA(RS)

ERROR

MOV

B
MOV

TERATION

#1,.8TI
.éfie«'.‘%?

STK PTR

SECTOR

SE e
BPAEE
35 ;SURACA&u.v
SK S

jWILL DO IMPLIED SEEK T0 CYL O

‘WAS ON CYL I FROM LAST TEST

MOV
RROR
SR
BIT

JSR

$<WRDATA> , HCS1

PC,DATCMD
GSTAT

#CERR, HCS1

X FOR CMD 3 ET CONTR RDY
DO DATA

ES ngv nrrgn WRITE
DATA CMD
T

FRESH

STATUS

EOS

035700

DO1Y
000012
l"g

INC
CMP

o254

JMP

65$:

?(’),Y

007450

DO74S2

MOV

887ies

ROV

JSR
RR
mg

i 4

;

5354
1452

ggg:

i &

9332 007444

121 11

007456
007462

737

1720Q 1 007450
007452

033042

024272

024300

MOV
'88%

MOV
MOV

8682‘87”

000031

007354

MOV

032262

'é

R SECTOR

;CERR WITH WRITE DATAR CMD

LV
JSR

;EXPECTED MSG RO

55?.(-0 CMT"%%P g%,fi.fllaleXPECTED Al
PC

T.A2!'T.82'0
§

; CHECK
;

c
HERE
AFTER WRITE DATA CMD

nsc
?i

2‘ 'D.SPIN!D. onov-o
w*gbonm

RROR
ggeon

004737

;TRY |

EE%

ERROR

1
é&i

012737

LR,RKCS1(RS)

Tg@ T;ST DETECTED 10 BRD SECTCRS

MSG26
tgop

854525 015768 boid0s 000006

YPE
IMP

JSR
uog
Eggon

]

108

MOV

11
1

URN
%fl{. ;ECTMS BRD
gi

w*gbom>
!D.SPIN!D. MDY'D

1M
1

; #se”g iscron LISTED IN BSE TABLE

SECTOR
E.E'ETOR,IIO.

ERROR

gggg

;

¢, TRUERR

4986

6MS:

bed

20|

000000

033042

1
i

zsn

;BR IF NO ERRORS
; SEE gr BAD SECTOR FLAG

SEQ 0095

678
ogge,HEP

498S

BEQ
axs

—

L£

4960

MACY11l 30R(10Sz)
10-JAN-78 11:25 PAGE 95
T1Y
TEST READ DATA AT ALL HERD OFFSET POSITIONS

024002 001465
000200 007370
27
04

Li’gfifi“g“g

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

anL OF TESTS

.aao SECTOR NOT LISTED IN TRBLE

uo SPOK!D.
cmr-b
ooon
.B1
s

-g gg

1 MSG 3Foa

i
PC, CHK

iMSG ID FOR
; CHECK
S A0

;EXPECTED MSG AO

.SSP>
,E.Al_ ;EXPECTED Al
CTED'MSG Bl

CTED
MSG B2
CTED MSG B3

n} 81
cl t; HERE
§
s MSG gg ERROR AFTER WRITE DATA CMD

T.R2'T.
g

:% k( RS)

iMSG Al
iMSG B1

ERROR
ERROR

#<WRTCHK),HCS1

PC,DATCMD’

:D0 DATA X FOR CMD & GET CONTR RDY

DR_PRT2

09:43
EERelE
PIL T 10-JAN-78
10~
304

£,HCS2

007356

1‘012

87860 881485
68%:

- &@ ‘

)

(]

$e0P

mxm
)s ACTUAL
-sggsc
°¥°, TYPEOUT
ITE CMD
AFTE
.AD

;EXPECTED MSG RO

s§P,E.Al
;EXPECTED Al
CTED'MSG Bl
EXPECTED mec 83

.cuzcx

} gx

cx te

WRITE cuccx CMD

:
,Réoa?ini“& OF TESTS

69S:

Paug

2‘360.SPIN!D. onov'o
vv*googgé.

007444

#<D.SPOK'D. cnar'

JO74S0

;EXPECTED MSG RO

.g;r
:
nx

gxhs.B1

J07456

HH R

{B XPECTED Mag

PC, CHKMSG

cuscx nscs RO,

T.R2'T.B2'0
37
1

60
32
MSG8

O44641

000001
044700

.AD

?QSE

§§§%§§
ol
Lo

£
o

;CERR AFTER WRITE CHECK CMD

32fscae

0330~

07462

‘"H@%fi%

;MCE

T.A2'T.B2'0

Baiee

—

WR—

)

e
Pt B

;SEE IF WRITE CHECK ERROR

RKDB (RS) , WD1
oa?gx,uoé
é

PC, CHKMSG

| el
and

NN LEWhe-

s e e

8888588

007452

033042

024554
024556

:GET FRESH STATUS

o«sospox-o
CART! b
.afiafi
81,E.B1
; MSG gsroa
E.AE
;EXPE M
HR RS
B FOR

007450

SEQ 00%

;NO_RDY AFTER WRITE CHECK CMD

#¢0'D.SPIN'D. onov-o V! oonn»,

887ues

[adend

res?

,HCS1

007444

34
40

FOB

JAN-78
;S 9%
RERD DflTR AT ALL HEAD OFFSET POSITIONS

PC gsrnr

007354

i &

750560

MACY11 30A(10S2)
TITM

ki
9s:

#1.RO

M5G9
R1,-(SP)
1

ED'MSG
B

zxpscrso Al

BO, Al
§F§P$
xri;o
;ngc
E
ITE cuecx CMD
MSH
;

iMSG Al snnon
iMSG Bl ERR

; READ uxru OFFSET TEST

;HERD #

s INIT orrssr COUNTER

{HERD
#
R1 FOR TYPEOUT
,,§n

P:TYPE

HEARD
#

16O TYPE--OCTRL ASCII

;3 TYPE 1 DIGIT(S)

10~ Rg§7gnag:fl3

TES

18:

034214

PC, SUBCLR

:CERR AFTER SCLR

go.nxnsor(nsa

;OFFSET VALUE

zi,RKDG(RS)

;HEAD NO.

?ggo?'&""s“

299%

JSR
ERROR

5
1

340

007444

7454

000003

033042

708:

$SESC

75000,

TEMP1

pC,FAtTE
M

032224

;EXPECTED MSG RO

837450
7452

007456
007462

“91:8"@:'
DURING OFFSET CMD

2"n§§3

B
T
iMSG B

;SET

naon
r;rtour

ATTN

nr N AFTER OFFSET CMD

e<gbosceo.orr-o srxmgi
o
ve .vv-o DRA> ,E.A0

;EXPECTED MSG RO

nx EXPECTED Al
;P
DOOR!
#<D.SPOK!D. cnnr-b
it eyE
R
oé,E.aa
: MSG o OR E
#3.E.B3
1 MSG o FOR
TED MSG aa
PC, CHKMSG
: CHECK
T.R2'T.B2!'0
"sinscsAFTER
ggtcxriso
HERE
OFFSET CMD
;

MSG

MSH
;
nnon
Al
iMSG
iMSG Bl ERROR

occ&n
,RKCS1(RS)
CS2(R5)

;DRIVES

PC, DOCHD

:D0 DRIVE CLEAR CMD & GET CONTR RDY

;D0 RECAL CMD& GET CONTR RDY

:NO RDY AFTER OFFSET CMD

BESSOK'D CART!D.DOOR!D.BRHM!D.SSP> ,E.Al

oo7412

;WMRITE CHECK ERROR FLAG

#<D.PIP!D.SPIN!D.OFF!D.VV!D.DRA> ,E.AD

iuTe
73

2958 =3
§§§§§

OFFERR

e e e

CLR

SOFFSET, HCS1

033042

; ;SUPPRESS LERDING ZEROS

, SCRLF

Pc.oocno

1720

1176

SEQ 0097

%708, SESCAPE

@o"?

000016

—

HERD OFFSET POSITIONS
READ DATAn?snLL

.BYTE

TYPE

001208

001456

0000
Ot
Lnown
~ NN
WWeg
NN

S
n
(=
v
[+

000
104401

SR
% @?’
557

Fh28
o

SSRSERRRSR
L L L
.
T
I SiFas

Ciflsl .P11

GOS8

MACY11l 3??&1052) -JAN-78

CZREIED UNIBUS RK

oCLsnhucs1

CZREIED UNIBUS RKG DR PRT2
CZRGIE.PL1
10-JAN-78 09:43

gan

1
104154

ERROR

032602
—

OBB SRR 2 RS BB YRR L O Bom e £ e BB ITA ZoRCS
RO BB ST E o

NN NI
NN TGN TN LW
i
iyAU
VW DWWy

bb e §

xm;s

HOS8

11:25
PAGE 98
MACY11 30A(1052)
10-JAN-78
TEST READ DATA AT ALL HEAD OFFSET POSITIONS
Tiv

BISPEE
2737 4108
00003 7o

1
xg R T

;NO_RDY NT;RDRIVE CLEAR CMD

718
154

;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

#? TSTATN

i TEST FOR ATT

B SBAD AKCER(RS)
ROV

Bas7Ee 834328

RS 2K

ERROR

SEG 0098

MOV

L
ey
BIT
out??ucsa

;fifi;
TSr‘f.“scxun?"E
CHE xTcfioomR ——

BEQ

e By oy oo
st gy oolee
gs2ids dfogee °*°e°

W
S
Ve

SRR

g& léfii
CHK ERROR-SET ERR FLG.

025152

104403

TYPOS

025162

1
1
104401

001205
001205

gs2i%8 B3T3

000200

1421

geis
1

83%0R

&S?éa*
RKDA(
SRTCHK
HCS1 RS

174 oaoga‘r 000060

g0 —
0

8%:

852553 805737 oeuseu

025226

4s:

00?737

001456

852535 %‘0%? 045462
025240

000763
09 7

Ses4
0e2S2Se

000260

52 corees

1072
000760

Ss:

flT OFFSET

RO-o(eP)

YPE--OCTH. SCII

b, SCRLF

: sfingsg Léaamc ZEROS

EEEI}F

TYPE
TYPE

'SCRLF

CMP

RO, %60

6‘03

2’00 RO

T IS 4+ OR

;SETUP FOR NEG OFFSET

N
TST

?'Y%E

8§FERR

, MSG37

CMP

EO, %260

BNE
BR

TSTI1S
33

m?TgCIfiECK ERROR AT MAX POS OFFSET

NOTE' EITHER HERDS DID NOT_MOVE

iOR READ/WR T$ AMP IS EXCEPTIONALLY GOOD.
:DO NEG OFFSETS

;;GO TO NEXT TST

S
A

—

RZER=EEB R R 2508 3B SRR 2ER 8 333t 2N 3D E G h E LR E DB IR mm

IBUS RKE DR_PRT2

10-JAN-78 09:43

88300

NSNS NSNS

104401

108

11:25 PAGE 99
MACY11l 30A(10S2)
10-JAN-78
TEST READ DATA AT ALL HERD OFFSET POSITIONS
Tiv
68:

001456
O4SS40

OFFERR

TYPE

,MSG38

:NO WRITE CHECK ERROR AT MAX NEG OFFSET
;norssnsxrusn ugggs gxg NOT MOVE
10R READ/WRITE

7%:

MOV
MOV

occ%n.nxcsxtns:
SUNIT RKCS2(RS)

JSR
ERROR

PC
124

sRECAL

, HCS1

PC.GSTA

JSR

;o.nrz,unna
2%

BIT
BNE

3 S

sgson

000003

104401

2§§Nspnr¥n

Pé.tn?rx
S

INO ATTN AFTER RECAL CMD

MOV
MOV

(sga
8CCLR, RKC
€UNIT RKCS2(RS)

;DRIVES

JSR

;c TSTATN

' NO BSYVSF$§ BRIVE CLEAR CMD
:TEST FOR ATTN

INC
ggg

Rl
R1,#3

;HEAD CTR
:
SEE }F
L HEADS DONE

025462

012700

000260

004737

034214

001174

WRITE WITH HERDS OFFSET

rnx; TEST vsnxrge

un;

"
%

INC
HIS TEST

‘¥

000001
001100

8 GET CONTR RDY

sATTN NOT CLEARED AFTER DRIVE CLEAR CMD

154

ESnon

DO DRI

108:
i

8452

;nr; no; ggau?unxnc RECAL CMD

JMP
:ELSE
REPEAT ALL FOR NEXT HEAD
ERRORS
OFFSET FAILURES ARE NOT
MSGl2
TYPE
e
T R M
T R P
T

Q24542
045000

000004
012737
012706

s SELECT WORD 1

JSR

PATEST 15

025442
S44y

EXECEPTIONALLY GOOD.

ERROR

> SggfiSCSI
?2%
ERROR 131
73%:

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

81,RKMR] (RS)

MOV

agg

SEQ 0099

THAT WHEN ATTEMPTING

WITH HEARD grr T THAT THE OFFSET WILL CLEAR
VE u; L WRI

COMMAND HARS AN IMPLIED RTC.
WRITE
IS PERFORMED FOR MAX POS & NEG OFFSETS ONLY

s Py Y Y Y Y I 2222222222222 2223222232 2222222222222 22222222222 2]
$8115: SCOPE

18:

;200 1 ITERATION

MOV

sstAack, SP

#1,STIMES

{RESTORE STK PTR

MOV

*260, RO

:MAX NEG OFFSET

JSR

PC, SUBCLR

MOV

B§=S

T1S

104024

'fifg i % 5%$5¢
25cs i
L
SEE

01006S
7

000016

i
24

:CERR AFTER SCLR

MOV

RO,RKASOF (RS)

;SET OFFSET

1
38FEgENONCS
33’

ES AF sn orrssr cMD
NO

PC, CHKMSG

)

052340

007444

QO74SY4

bY4%:

BO,

Al, Bl

1 MSG 28 Ennon DURING OFFSET CMD
RROR

i MSH

;MSG Al ERROR
ERROR
iMSG Bl

TIMEOUT
TUPnt¥
:?fua
OFFSET CMD
INO

ATTN AFTER

;EXPECTED MSG RO

#<D.SPOK!D. CRRT'b
5 igs“”xpeg§g
nx
o zxpecrso Al
"g:nn?
.B1
g1A§
%2 35
MSG aa
MSG FOR§§E§58
i: 18

7450

)07452

oatE
T.A2!'T.B2'0
1

7456
7462

PC, CHKMSG

; CHECK

7
40

nsc nx snnoa
iMSG Bl ERROR

IE HERE
o T clIS

nsg:

8CCLR,RKCS1(RS)

000000
000010
007354

IT RKCS2(RS) ;DRIVES
#CLERR, HCS1
;D0 DRIVE CLERR CMD & GET CONTR RDY
pocHD

:NO RDY AFTER DRIVE CLEAR CMD

154

:ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

Eg*rsraru

000006

;CHECK MSGS RO,

8 MSGS SPECIFIED HERE

.VW!D.DRA> ,E.A0
e«o.DSC!D.OFF!D.spln-cronov-o

032602

001402
001402

?5380 $en91
PC,FAtTE
34

033042

100000
00l2ee
00000S
032224

;;EXPECTED MSG RO

8 GET CONTR RDY

CAL

SCAPE

:igzssoxeo.canr:o.ooonzo.anuneo.ssp>,s.nx

007412

NON

NNN

NNN
WU wWwo
=N
L=

28=
LW

ERROR

001176

SEQ 0100

|l
ol o

E?; E50%

[ = -

i
n
U
n
o
one

PAGE 100

WRITE WITH HEADS OFFSET

35
1

007446

00S037
013765

JO8

11:25

#<D.PIP!D.SPIN!D.OFF!D.VV!D.DRA>
,E.AD

140
46
1720
000001

BSS:

10-JAN-78

»eY

033042

G498

L e

RO
o0 32
VEREORSom NN LW mm

MACY11 30A(10S2)

IBUS RKE DR_PRTZ
10-JAN-78 09:43

4S:

SECTOR
SECTOR,RKDA(RS)

:TEST FOR ATTN

§é§§5

001474

MACY11
000004

769 Ois7es 179400 ooooDS
4 g
R
g o
7

774

g m

1465

1
4

000200 007370

7 0014
1985 000012
g?fi?
1003
b

007354

1
1

1
123
1
026164
16
852125
026

{;
ie 355 1

319

6322

026242

6009(3:2

000000

104012

1127
11

1
x&
i{é
1
134
wg
M2
199

026756

737

66%:
678:

&1’

007444
s

033042

104053
1

104401
1

045354
031452

BEQ
I7

3
ogis HER

£8%:

698:

:NO_RDY mgn WRITE DATA CMD

iGET FRESH STATUS

Sc313n;usm

.
%fimss"gmr
FE;E ?5CTOR
NO LISTED IN BSE TRBLE

:BR IF NO ERRORS
:SEE _IF
SECTOR FLAG

CTOR
Z:'.Ecron,ow.

BNE
Snaon
MP

;D0 DATA X FOR CMD 8 GET CONTR RDY

GSTAT
'SS ,HCS1

Jsg
BR
INC
CMP

: RETURN
YES
BAD
10 cl Sfigzc.IF &crms
{ARE

?gg

668
4
3

;
NO
:AB Tg
rgsr DETECTED 10 BAD SECTORS
ES
;g

gccm.m(csuns; ; TRY ANOTHER SECTOR

ERROR

;CERR WITH WRITE DATA CMD

MOV

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

JSR
ERR
RROR

1
1

PN, L gt
I(I%RRTR),I'CSI
TCMD
P(lt,

G50
MOV
G50
MOV

0074
720 1 7-423
H7456
000003 007462

8DATAD,RKBA(RS) ;WRITE ALL 0’'S

E
J?R
BIT

@g 035700

saxg

S0 ain

10-JAN-78 11:25 SET
WITH HEADEOFF PAGE 101
%5% (RiTe
0830A(1052)

gsfi 2

CZR6IED UNIBUS RKG DR_PRT2
E o 10=SaN-78 09:43
i1
CoRI

KO8

;EXPECTED MSG RO

» E.Al EXPECTED Al
15 ehmn!
56 sPoK10.caRT!b
s1,E.8Bl1
;
I #a "E' figo MSG Bl
‘Emi P nsgfi T
€.S: 85
;222 8 rg
STEB '432 85
TM

PC, CHKMSG
T.A2'T.B2'0
gg

:CHECK MSGS RO,
'
m
;ngfi
E
‘M
RROR

BO, Al, Bl
;Pscxrigo HERE
ER WRITE DATA CMD

RROR
RROR

53
25

iMSG Al
:
gi

ERROR

:BAD SECTOR NOT LISTED IN TRBLE

CLR

E.BO

-Expzcrso MSG'

YPE
JMP

MSG26
$e0P

;

ERROR
RROR

BAL OF TESTS

012737

010340 007444

MOV

12737

001720

0074S0

MOV

o002 00746
0074s
127 . %95

G50
MOV

Eéhz
B2
oa!EZaa

e Bron
D PR Expscr
EXPECTEDD MSG
iMSG
MSG B3

ERROR

:MSH BO ERROR

37 007946

737

§;420
%’8
%:5.003
321
40
104052
104023

889021

033042

007452

;

MOV

JSR
_WORD
ERROR

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

,E.A0

#<D.SPOK!D.CART!D.DOOR!D.BRHM!D.

SSP> ,E.Al_

81 .E.Bl

PC, CHKMSG
T.A2'T.B2'0
52

;EXPECTED MSG RO

; MSG é? FOR EXPECTED'MSG Bl

;EXPECTED Al

:CHECK MSGS RO, BO, Al, Bl
:;MSG A0 ERR
.3 53“2,—5’
cxri;o HERE
TER WRITE DATA CMD

0 UNIBUS RK

cfmi %E P11
5323

10- m-raog

026244

026246

MACY11 30A(1052)

715

xmosa

Do6oE

1356

ERROR

000026

708:

ngg % 1“8-41&

gsggs

04415
12706 001100
gsggm 004737 034214
149

2348
3

104024

Y74

B3
GRS et
80819
sz-o; 026340 013765 001402 000006
27
éfig 8585'3 864733
83282& 007354
1

1774

010340

007444

MOV

1
127
1

D017,
000001

007450
007452
007456

MOV
MOV

127
7

007462

gg?é
237 852553
85(’
i 837
3

033042

ggl378 35';:
14 104401 045354
026520 000137 031452
-

1MSG B2 ngr CLERRED AFTER WRITE CMD WITH OFFSET

CLR

MOV

(RS)

HC(RS)

0 DATAX FOR CMD & GET CONTR RDY

c2 TR FRESH
Rear ErafLs
STATU = CHECK CMD

;SEE IF WRITE CHECK ERROR
;ACTUAL WORD
FOR PRINTOUT
:EXPECTED WORD FOR TYPEOUT

453

;WCE AFTER

;CERR AFTER WRITE CHECK CMD

WRITE CMD

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

E.
80

Egssrs MsG’

;EXPECTED MSG AO

SPOK!D.CART!D
BRHM!D.SSP> ,E.Al_ ;EXPECTED Al
u s Bl
,nsc ID FOR EXPECTED MSG Bl

g ag

RROR

YPE

;CERR AFTER SCLR

sscron RKDA(RS)
#<MRTCHK)> ,HCS1

3
PC, CHKMSG

JMP

T cbsmso AFTER WRITE CMD WITH OFFSET

;RESTORE STK PTR

MOV
JSR

_WORD
RROR

MSG ng

;gnzx; Ygsc B2=0

72ss,ucsa
nxgamsa
WD1
DATAO, WD2

012737

;SEE IF MSG R2=0
:

7vmoo

§§2
MOV
MOV

ERROR

:SELECT WORD 2

16&

§EROR )3
GSTAT
;ctnn HCS1

72%:

iMSG Bl ERROR
;BR _IF Ysg

ieALNCE
PC, ? 3

026430

Y
Y

cYtoxr

os
MOV
?gnv

104022

"—

026426

79454

s nxm (RS)

PC, SUBCLR

snnon

102
:MSG Al ERROR

JSR

74;8

#STACK, SP

05;

11:25

SCOP1
MOV

Yyo2

Esaon

SR
BIT

308 gfi? 040000 007356
406
015539 880024
001452
414 013737
1474 001454
4

MOV

2327 BsB3e3 032737
AQ4943 033664
100000 007354
g

ERROR

LO8

PAGE
mf?r: WITH HERDS OFFSE
ERROR

: 7 001360

-JAN-78

T.A2'T.B2!'0
g

MSG26

$e0P

EXPE rsg

: MSG

8 OR

cT o MSG B2

i MSG
FOR EXPECTED MSG B3
; CHECK nscs A0, BO, Al, Bl

.8MSGSAFTER
SPECIFIED
;:gu
Ennon
WRITE HERE
CHECK CMD

naon?fns
am. OF TESTS

CZRGIED UNIBUS RKE DR PRT2

SRR

CZRBIE.P11

MACY11 30A(10S2)
T1S

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

012737

010340

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

007444

007456
007462

BB3E3E

033042

o
foeee

feASES
o

ERROR

gg.oaso

12765
013765

§=8§

#60,R0O
18

025462

SUNIT, RKCS% RS)

a“ssé

8l,RKHR*(RS)
PC,G

748:

104055

S426

026754

Sie7 0e7te
U
o

5429
¥ ¥

431

026756

Qourss

104154

; SELECT WORD 1

fi'o TEMP2

gc,ta T1

;RT

NOT SET
?URING RECAL CMD

;: SE UP

;FIND

; NO RTTN RFTER RECAL CMD

’

:lg 026;16 OIE;SS }00000
g g B Bl
C)
7

S
489
GEere

;00 RECAL CMD & GET CONTR RDY

;RDY NOT SET AFTER RECAL CMD

0. RTZ HMR2

748

737

;BR_IF JUST DID POS OFFSET

;ELSE SETUP FOR POS OFFSET

#CCLR,RKCS1( RS)

100000
00lee22

765 goooot
026714

FOHECK M78°nE8s BBecihee

; a g
AFTER mns cnscx cMD
i MSG A1 ERROR
:MSG Bl ERROR

= H

104124

;EXPECTED MSG RO

<B°spox-o cmvb‘%fi%fl?fi
Bossm E.mm;sxpscuo Al
MSG 1D FOR EXPECTED’MSG
fi§5‘fsspoflsfxfifcrso
MSG B2
4e
;MSG ID FOR EXPECTED MSG B3

007450
007452

506 Gesedz gl

g:i?

SEQ 0103

738:

E:OS

10-JAN-78 09:43

#CCLR,RKCS1 RS)

032224

2(RS)
SgfléThRKC

;DRIVES

éc TSTATN

iNO_RDY RFT;R DRIVE CLERR CMD

154

;ATTN NOT CLERRED AFTER DRIVE CLEAR CMD

—

754

75%:

3%:

;00 DRIVE CLEAR CMD & GET CONTR RDY

i TEST FOR ATT

0 uuxaus RK

c5§2¥f Pll

PRT2

?n~-7a 09:43

MACY11

(1052)

10-JAN-78

NOS

11:25

PAGE
1
TEST CURRENT CROSS-OVER
chxnoens

=e Q

s 1 21222222222 222223222333322322223223222222222T2222222222223 2222

435

:gq

irssr 16

. %

TEST CURRENT CROSS-OVER CYLINDERS

THIS

VERIFIES THAT THE DRIVE

CAN WRITE & READ OFF

:3;

3:?

WITH A DATA PATTERN FILLING THE ENTIRE 2 CYLINDERS.

A WRITE CHECK IS THEN PREFORMED TO VERIFY DATA WAS PROPERLY WRITTEN.

|24y3

i*%

CYLINDER X:

4 1

ALL RABOVE CYLINDERS IN DECIMAL

439

S4y2

3333
S445

:¥

3;0

gfl?

454

855728

8ooooq

gzg;
sgss

5455

Harl

026766

15782

0127

000001

026;72

005337

001170

001100

001174

7006 012700 001422
12

004737

034214

0023

027046

gz;;

547
S474
47
47

027074

737
01
73
737

001451

262
033664
1000

gz;a

7953

1q37

000200

gzax

;i?g

oooza

035700

g:gg

104012

027122

012737

sugg

S486

6487

<7054
7
837
vd

7153

027130

THIS TEST IS PERFORMED FOR ALL 3 HERDS.

Rkoe
3/ RKO&
13t 335§ 380319 383
15 191
SVLINDER ¥: 6389 127

CYLINDER X:

CYLINDER Y:

010340

007446

SCOPE

127 255
128 256

394

639
640

767
768

MOV

8l srxnzs

;00 1 ITERATION

gg;

g;npu.

; SEE xr RKO?

MOV

#CYL,RO

MOV

18:

007354

RKO?

ggv
JSR

ERROR
MOV
MOV
BIS
MOV
MOV

#StAck,

#CYL?,RO

PC, SUBCLR

ELsé
Lono UP RKO7 TABLE
;RKO& CYL ADDR TRBLE

24’
;CERR AFTER SCLR
(RO) ,RKDC(RS)
sopat
KBALRS) Sn#n
#BAI,RKCS2 (RS
INHIBIT
o-scéa %256. RKHC(RSJnoon
;WORD xucn:n:
COUNT TO SPIRAL
& FILL 2 CYLINDERS
#<WRDATA> , HCS1

007354

JSR
ERROR
J?R
BIT

PC,DATCMD’
I’
PC,GSTAT
octn ,HCS1

;00 DATAX FOR CMD 8 GET CONTR RDY
:NO RDY ARFTER WRITE DATA CMD
iGET FRESH STATUS

007370

géa

oggz,usn

ss zrusno SECTOR FLAG

gga

Eggrnusnn

,ELSEsesigg §ec;8n LISTED IN BSE TABLE

ERROR

013# 027574

00S037

}4T16:

S§:

gzég 353315 104024
467
7020
011
20
gqég 7024
5925
1502
000004
70
7656
000020 000010
337? 704 12765 076000 000002
472

%RRL un;rxnc ;g PERFORMED FROM CYLINDER X TO CYLINDER Y

o 3369636 36 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3% 36 36 3 36 36 3 3 36 36 3 36 36 36 36 36 3 3 3 3 3 3% 3 % % % % %

§3§3 8523§§ §Eéz§§ 001436
gzgé

N‘ unucé é INDERSX & Y IN THE FOLLOWING WAY:

BEQ

65%:

007444

JMP

MOV

CLR

;BR IF NO ERRORS

YES

RR ux H unxrs DATA CMD

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

E.BO

;EXPECTED MSG'BO

;EXPECTED MSG RO

(a7

gg%ém*g eogoo a32
328
%

3 Rogse &

882

—

—r—

#<D.SPOK!D.CART!D.DOOR!D.

SEQ 0108

o 1,E.B1

; MSG xg rgn E

007456
007462

'§:E ES
PC, CHKMSG
T.R2!7.B2'0
sg

;Héc 18 r82 E crEo MSG B3
: CHECK MSGS A0, BO, A
1
’
.3 MSGS sptcxéisg HERE
;ggg sg RROR AFTER WRITE DATA CMD

323325

;neoatfuc BAL OF TESTS

;BAD SECTOR NOT LISTED IN TABLE

66%:
67%:

#<0'D.SPIN!D.DRDY!D.VV!D.DRA)
E.BO
:
EXPECTED MSG

,E.R0

;EXPECTED MSG RO

#¢D.SPOK!D.CART!D.
0. BRHM!D.SSP> ,E.A1_ ;EXPECTED Al
81,.E.BI
; MSG xg FOR EXPECTED MSG Bl

007456
007462

%fig
g

R
n

BOS

TEST CURRENT CéOgE-OVER
CYLINDERS
0-JAN-78_

007450
007452

007450

000003

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

EXPEC sg

iMSG
ID oHEE CTED MSG B2
:MSG ID FOR EXPECTED MSG B3

PC, CHKMSG

T.R2'T.82!'0

; CHECK MSGS

23
gg

Ennon
:MSH
:MSG Al ERROR

[N]

Pt s Pt e

()=]

~N
B

Tie

Al,
Bl
-aflnggé B0,
sptcxrigo
HERE

; MSG gg ERROR AFTER WRITE DATA CMD

:MSG Bl ERROR

oggnfxgfiBA(RS)
RKDC

N
£

MACY11 30A(10S2)

007444

7454

!g R

Bt e Bt B

LY
un

DO NN LW

s Bt et Bt e

FERRERE&emmmmmmmmmmmmm
R§44

£%

1720

NN \I%

S:BB

~NW NS

CZREIEOD UNI
CZRGIE.P11

000002

000031

007354

(RS)

RS
o-s;ée
Igés.,RKHC(RSJ

$<WRTCHK> ,HCS1

Pg,DflTCHD

1
PC,GSTAT

#CERR, HCS1

;D0 DATA
X FOR CMD

& GET CONTR RDY

:NO_RDY AFTER WRITE CHECK CMD
iGET FRESH STATUS

qg;

100000

007354

040000

007356

#WCE , HCS2

;SEE IF WRITE CHECK ERROR

016537
063737
104016
000437

000024
001502

001452
001454

RKDB(RS), WD1

;ACTUAL WORD FOR PRINTOUT

410

698

104022
012737
00S037
012737
012737

DPAT1, WD2
16

68%:

010340
007446
001720
000001

007444
007450
O0074Se

:EXPECTED WORD FOR TYPEOUT
sWCE AFTER WRITE CMD
;CERR AFTER WRITE CHECK CMD

#<0!D.SPIN!D.DRDY!D.VV;D.DRA> ,E.ARD0

;EXPECTED MSG RO

XPECTED MSG'
E.BO
#<D.SPOK!D. CRRT'O DOOR!D.BRHM!D.SSP> ,E.Al_ ;;EXPECTED Al
#1,E.Bl
MSG ID FOR EXPECTED MSG Bl

CcOS

1edY L0RRERT 4A682-o0BRE
4 tnoers

CZRBIE.P11

10-JAN-78

09:43

SSHYY

005037

0O74SY

555

MACY11 3??&1052)

JSR

CZREIED _UNICUS RK? DR_PRT

feon
};;E &
‘Eggas

nov

B8038s g573e8

E.A2

e5E
85

snggg
5731
ERROR

—

[N]
N

818737

§t—-o—o—

027442

PC, CHKMSG

T.A2!'T.82'0

SEQ 0106

;s EXPECT ED XEE -

ihee I8 £8

SEB Hae
83

c
;:MSH
MSG BO
no t %r?Ps%55
cuccx CMD
; CHECK nscs AO

&
5 BAL OF TESTS
neoa?xnc

=3
e

[=]

007444

EE&

g<géo.SPIN!D.onovégng%gbona>,E.AD

007450
007452

583

84D,sg?x-ocnnr-b
’°¢ .s;r»
,E. n1

MOV

007456
007462

MOV

YRYRSE

—

ggxr'
xcéé(fié)
AL, HCS1

;EXPECTED MSG RO

Bl
.
o
iMSG

sxpecrso Al

ID FOR EXPECTED nsc

s sg
MSG gflggg
¢ ir§P$cxé %52 HERE
CHECK CMD
; CHECK

ALL CYLINDERS DONE?

BR IF YES

{ELSE REPEAT

8CCLR,RKCS1(RS)

JSR
ERROR

PC, DOCHD
124

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

?gx

Sé RKHR*(RS)

; SELECT WORD 1

BIT

ogsRTz, HMR2

MOV
JSR
ERROR

10, TEMP2
PC,FATTI
5

Ean

MOV

85—
o
RN

Jope PO

(50)4.:393.

MOV

MOV
MOV

708:

T.A2!'T.B2'0

PC, CHKMSG

MOV
MOV
JSR

032602

JSR

n
n

W
N

geee 58

#3.E.B3

BEQ

JIMP

2.—

[ ]

Enp

004737

#2,E.B2

Ennon g{
JSR

%o
2
2 RS 57 3 gi
;
B
R

77
027724

o
££
e NN
un
[N

559
SS

fe7o0n
és

[

8235
SS

BR28EESA

m&wwvmmm
L T Ty 1Ty 1Ty )e

N RNSR

698:

ERROR

#CCLR,RKCS1(RS)

sRT NOT SET DURING RECAL CMD

,ss UP TIMEOUT
:FIND ATTN
INO ATTN AFTER RECAL CMD

SUNIT RKCS2(RS) ;DRIVES
SCLEAR, HCS1
;D0 DRIVE CLEAR CMD & GET CONTR RDY
PC, DOCHD
15
NO RDY AFTER DRIVE CLEAR CMD
TEST FOR ATTN
PC, TSTATN

CZR6IED UNIBUS RK& DR PRT2

CZRBIE.P11

rad
gnf
01851&4

-1

10-JAN-78 09:43
1

5605

§i°

2618
Ele

MACY11 30A(1052)

T16

718:

027736

2s:

10-JAN-78

D09

11:25

PAGE 107

TEST CURRENT CROSS-OVER CYLINUERS
718

Eannon

1§w

;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

, lllllllllllll!lllllll!'!llllllllllllllllllI!lllil!llll!!illllll
fire

TEST HERD SWITCHING TIME

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

231,
5618

H
E
H
i

2.
B’Mfi
T HAVE TO TRAVEL
e 53ssg&ggnss
xmm‘f
g In&us“é!iro&;ts"gYo
SLCE RACH SECTOR, TAKES BPPROX. JaoliSac THE, TINE SETHEEN
SECTOR O, HERD 1) AND CONTROLLER READY SHOULD as bPPflox

ssag

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

ggg

1. SECTOR 23(8) IS FIRST LOCATED AND A WRITE DATA COMMAND OF S12 WORDS

THE ABOVE IS REPEATED FOR HERD SWITCHING BETWEEN 1 TO 2

§§§; 027736
o4
fsgT;lllggml!llllll!ll!l!lil!llI'll'll»Il!lllllllllll!illlllIll«lll
Seob 027740 0127C37 000001 001174
MOV
5l srm:s
;D00 1 ITERATION
Sb

5629

027746

012706

001100

MOV

sstack,

027752

005737

007522

TST

DOTIM

;BYPASS THIS TEST IF

SEQ 0107

¢
c

IED_UNIBUS RK& DR _PRT2
10-JAN-78 09:43
IE.P11

630

001001

831 887788 G0
7

L 093

MACY11 QG(IOS?‘
19-10"-78 *l:ES PAGE 108
17
TEST HERD SWITCHING TIME
BNE
BR

t8rao

;NEI ‘I’T R L ?RTEsgLOCK PRESENT
;36O 0 NEX

SEQ 0108

— o

0_UNIBUS RK& DR_PRT2
P11
10-JAN-78 09:43

34214

iggggsuaxacsuasncsuczac
SERLORCE
5D & £

007422

18:

2s:

035000

sHEAD 0, SECTOR 21 TO BE PUT IN RKDA

ERROR

;CERR AFTER SCLR

%ESon

PC,FSEC23

;Exuo

‘

rngé RKBA(RS)

I,RKES2(RS)

0 néQQ §Esr

;DATA 0101

;BUSS ADDR INCREMENT INHIBIT

#4000, TEMP1

;2000
i¢

JSR

PC,DLY

;00 DELAY

chY,RKCSL(RS)

:LOOK FOR CONTROLLER READY

JSR
ERROR

PC,FRDY
1

;FIND RDY AND GET FRESH STATUS
:NO RDY RFTER SEL DRV CMD

ERROR

107

;HEAD SWITCHING LONGER THAN DELAY

BIT
BEQ

8CERR, HCS1
3$

MOV
CLR

,E.A0

MOV

MOV
f60
MOV

#<0'D.SPIN!D.DRDY!D.VV!D.DRA>
E.BO
:
D MSG

81,E.Bl1
S
F. g2
#3,E.B3

;MSG I D,r3§ E ' .g;fi»,s.nx
ED'MSG Bl :EXPECTED Al
1 Ef8 FOR
OR
EcrES
XPECTED MSG
;REE
MSG B2
B3

JSR

PC, CHKMSG

;CHECK MSGS

BO,

Enn
RROR
ERROR
ERROR

2
3
53
25

i MSG
:MSH BO ERROR
:MSG Al ERROR
iMSG Bl ERROR

000000

78:

JSR

007354

8s:

887422
007456
007462

NNON

——

#géao

gron aacmR -

MOV

007444

033042

.uogg

030212 10“022
ey g oo
BES R B

PC, SUBCLR

007412

ERROR

SREEHEE B TSRR8N

wipetetg ettt

(et eteter et

825, TEMPS

JSR

STMPY, HES]
HCS1,RKCSI(RS)

033664

030210 ?ggggg

—

MOV

032320

737

PAGE 109

7354

033010

Eigéég

11:

BIS
MOV
MOV
MOV
BIS

100000

MOV

354

000200

10-JAN-78

TEST HEAD SWITCHING TIME

BR
800010

SEEER
QRARE

485

PEEeerreay
SIBATIN
oo

(4] Ll Tal"a]

MACY11l 30A(10S2)
T1?7

CMP

0oo42s
007422

8-S12. ,RKWC(RS)

TEMPS . RKDA(RS)
A, HCS1

C,GSTAT

;WORD 2ouur

;HEAD & SECTOR
;DO WRITE DATA CMD

rohus60VER FopEc-77

IS IN

;CERR AFTER WRITE DATA
;EXPECTED MSG RO

#<D.SPOK!D.CART!D.

TEMPS, 8425

:8 MSG

RO,

Al, Bl

c F£§9 HERE

ER WRITE DATA CMD

;HEAD 1,SECTOR 21 DONE?

BEQ

15720

;G0 TO'NEXT TEST

JMP

;ELSE REPEAT FOR HEAD 1, SECTOR 21

MOV

#9425, TEMPS

P RERREREEEREREERRERREERRERRERRRERLERRRRRRERERRRRERRRRRERRRRRRRERR

‘&TEST 20

DRIVE OFF TRACK TEST

£
w

QFAZERCSSBSARISE OSSR

GO9

MACY11 30fl(1052)
10-JAN-78
11:25 PAGE 110
DRIVE OFF TRRCK TEST
Te0
R

TATAE-Yy EXECSIVERR 1S Fom

S FOR SERVO OSCILLATIONS DURING SETTLING TIME BEYOND

R IS FORMATTED WITH IDENTICAL HERDERS

Pt BR

~TIirur

TM
‘¥
¥

000001

001174

100000

e B

Sg
53
i

—

000

———

:D0 1 ITERATION

oevr

'g&

hgiom&sm.mHALT

IRRor

DS SUBCLR

:CERR AFTER SCLR

%xv

TOCYL,

MOV

BIS

#BITIS, TEMPS
sHOTAB, RO

; FORMAT HEADERS ON ALL MAJOR CYL.

(RO)+
:?fig%Eggr

&
&385R 5838 0:: CYL
RLLsscrog
1]

Téch (RO)+

RO, $HDTAB+132.
2%
o

50CYLI: 90uono

;ALL 22 SECTORS DONE? (22X6=132)
iBR IF NO

TABnfignms)

MOV

TOCYL RKDC (RS)

?SX

5“”o

S3368

TAT
58%
§§§°R
Eé;
octn ,HCS1

cgrngne§mw§

5'3
JMP

eoéces
tcop

;CERR_AFTER WRITE_HEADER CMD

160yt

2Re NEXT FiRJOR EYL

W
N

045354
031452

88135

8l snnes

ik D00 25
007354

R =D

28K225y

Hgops

o
n
W
iLotand
www
NNN

ZoZ28

AL BGt

N THIS MANNER OSCILLATING SEEKS ARE PERFORMED BETWEEN ALL MAJOR CYLINDERS.
529 Osgc&&mx
“r'iw?fig AT EACH MAJOR CYLINDER

CMP
BNE

001726

001346

015436

65 tm&:mxmon 9"‘25? BY READING THE TRIBITS,

c"S

oo1see

bt e

t&t20:

3140 oo7422

e b

030424

$.llIlllI!IIil!lllll!!!lllI!lll&!llllllilll!lllilllllllllllllllil

034214

NN LW

e P

12737

n
Ne—

SRRZER-

HIS T

AR
W NINUNNIUNTUNINIUYNIV
IWTITUIUTUIUIN UWNTIUTL (0
NNNNNNNNNNNNYN NNNNNNNNNNNNNNNNNYN NNN

5743

i®

R ik

879957

SEQ 0110

CMP

TOCYL,MC1

DO DATA X FORcngeaflecs“&gog;g RDY

;S ORTING BAL OF TE?.2
T

CARRY

ONLY ONC

ALL mJon CYL FORMATTED?
Y

ESRBIE R
S7494

§7=;
7

8YS | BE3aR2B708:
va
030432
030434

737

104131

RNSRR
AR A
TR

CLR

832845

007354

882750

007412

100000

007354

MOV

RKDC (RS)
#SEEK ,HCS1

PC, DOEMD

SEQ 0111

:BR IF NO

:SETUP TO RETURN TO CYL O

;D0 SEEK CMD 8 GET CONTR READY

énaon

131
TEMP1
T
Pgngg??a
132

17
£Q

#CERR, HCS1
sgg
.

210

;CERR AFTER SEEK CMD

CLR
gfx

RO
:§¢$ECYL

ITERATION COUNTER
s
T0 CYL
Ess?up

SCOP1

ngv

#STACK, SP

;RESTORE STK PTR

MOV

TOCYL,CALDIF

;SETUP FOR ERROR PRINTOUT

fESOR

55'

3883620

RSVv

Bos
MOV

’§§¢2'353§25§) ;GO TO CYL #
il TO BE ALL 1°'S
s ; SECTOR
o tlakm(sa(( §s)
n-agt.,sxuc7

007354

MOV

SWRDATA, HCS1

ERROR

104210

:NO RDY AFTER SEEK CMD
;;iggp T;ncour
;
ATTN
INO ATTN AFTER SEEK CMD

\
.

65S:

~N
~

DOV
\08\0

£ %Soh
\l\l‘fi\l\l\l\l\l\l\l\lfl\lfl\l\la
R It AR 2

v i U NNV
VWD
NNN NNN NN
NN

BNE

001316
00S06S

748
79

HOS

-JAN: gESTPnce 111
MACY1l 3996’°sa’on195189r7?nné§

000001
001344

872768

001100

013737

001346

0973,

034214

813785

l’l §§éé§8
D01

geees

030576
10

030612
6

001346

1273
00S037

000023
032262

004737

033664
020000

032737
00140
10401

031 74

012737
004737
104011
gfii?g?
14
10411

001354

100000

SUBCLR

éggon T?'Dfl Tcho

;CERR AFTER SCLR

WRIT
:D0
CMD. RDY
RDY Er?gn1AuS??E 8 ogsnGET CONTR
538

:GET FRESH STATUS

gés

ggfonor.unna

PC,GSTAT

:SEE IF DRIVE OFF TRACK

ERROR

112

:DRIVE OFF TRACK AFTER WRITE DATA CMD

géa

ggznn.ucsx

ERROR

00744y

EEX

g<oéo.spxnzo.onovég.vv%gboggé,gfino

007452

geg

gxhs.ax

007456

MOV

#2,E.B2

JSR

007404
007354

G8:

:CERR SET AFTER WRITE DATA CMD

6S:

Bigr3:

012737

guoze
£ 007450
0001
07454
000002

MOV

;EXPECTED MSG RO

.BRHM!D.SSP> ,E.Al ;EXPECTED Al
oig.spox:o. .mnb.ozgae
‘Efigsé?esofisEXSECTso MSG Bl
IMSG ID FOR EXPECTED MSG B2

CZR6IED UNIBUS RK&

CZRGIE.PI11

DR PRT2

10-JAN-78 09:43

gggg 030702 012737
10
?

14 1
716

581
ggig

O00T462

9:2’;

1401

001360

736

104113

30742

104415
012706

001100

004737

034214

giz 3%7733 wuogq

031010

828
5829
5830

1012 004737
1353 032737
1
001401

033664
020000

1026

104112

1030

032737

100000

ggg

31040

104012

55337

031042

5840

ggéé

5834 §§xoas 001401

23
53

iMSH BO ERROR
iMSG Al ERROR

CMP

CYLADD, TOCYL

ERROR

B8%:

007446

#STACK, SP

:RESTORE STK PTR

JSR

PC, SUBCLR

:CERR AFTER SCLR

MOV
BIS

#BAI, RKCS2(

ERROR

PC, DATCHD
11’

:D0 WRITE DATA CMD 8 GET CONTR RDY
:NO ROY AFTER WRITE DATA CMD

JSR
BIT
BEQ

PC,GSTAT
#0.DROT, HMR3
8s

:GET FRESH STATUS

BIT

BEG

007462

CLR

1102

012737

sewg
5849

031114
03 “58

3
104052

"WORD
ERROR

585

31122

104053

ERROR

007450

MOV

8127 7

gg:g

720

1
12737
1 007452
1
00
007454
187u 315737
007456

saa-o'?" 031110 004737 033042
S8sS0

85
854
855

0311

gus:

11
031132
031134

104023

63902;
5737
001401
104042

001360

:MSG Bl ERROR

SCOP1
MOV

ERROR

9§ :

3 MSGSAF ;Ptcx
i HERE
;MSG A0 tmon
DATA CMD

:CYL ADDR IN RKMR3 NOT
= RKDC

ERROR
007354

T.A2'T.B2'0
se
113

584

831

ERROR
ERROR

MOV
JSR

007404

sagg ggxggs 012737 010340 007444
gg:

:MSG ID FOR EXPECTED MSG B3
; CHECK MSGS RO
é Bl

MOV

104011

SEQ 0112

#3,E.B3
PC, CHKMEG

ERROR

%gw
030776 012737 000023 007354
6825 031004 004737 032262

PAGE 112

MOV
JSR

BEQ

109

11:25

DRIVE OFF TRACK TEST

ERROR

00!346

3353
030754 012765 001500 000004
5821 0307% 352755 000020 000010
58 s 0307
012765 177400 000002
ggs;

10-JAN-78

LWORD
ERROR

1
3
104053

?
io

000003
033042

MACY11 39nuosa)

MOV

#DATAL RKBR(RS) JIEREEY W

8-256. nxuc RS)

SWRDATA, HCS1

112

;DRIVE OFF TRACK AFTER WRITE DATA CMD

#CERR, HCS1

;CERR AFTER WRITE DATA CMD

#<0'D.SPIN'D.DRDY!D. vv-o onm E.A0 ;EXPECTED MSG RO

E.BO

sxpecr

G'B0

1MSG

XPECTED

#<D.SPOK'D. cmvb ooon D. anm

§ ,E.Al_;EXPECTED Al

MOV
CLR
MOV

81, E.Bl
E.A2°
ce,s.ag

ID FOR xgsc ED'MSG Bl
TEXPECTED
: MSG
xpscrgg MSG B2

JSR

PC, CHKMSG

;CHECK MSGS RO, BO, Al, Bl

ERROR

MOV

RROR

ST
BEQ
ERROR

%3 E.B

T.A2'T.B2'0
52

MSG B3

-3 MSGS PECIFQ;O HERE
:MSG A0 ERROR AFTER WRITE DATA CMD
;MSH BO ERROR
iMSG Al ERROR
:MSG B1 ERROR

:NOT BACK TO CYL O

CYLADD

gf)&

BRaRREnRcs$ataaaaas
R
eb

-0

MACY11 30A(1052)

10-JAN-78

11:25

PAGE 113

T20

DRIVE OFF TRACK TEST

11
823539 000144
1133
1144 886“05

108:

INC
CMP

RO, #100.

;ALL _ITERATIONS DONE?

138:

CLR

:RESET ITERATION CTR

CMP
BEQ
JMP

TOCYL,MC1
FORM

;ALL MAJOR CYL DONE?
iBR_IF YES
{ELSE DO NEXT CYL

CLR

sescnPE

MOV

oexrxs TEMPS

10-JAN-78 09:43

P11

DDDDODDOD
DD
GR-B3a
ot 2uneS

v
mm
VoIV

UNIBUS RK& DR PRT2

JOS

1146

137

030532

1154

1346

11
11;8
11

ug;
1

1553

005037

1204

012737

1346
001176

001346

831515 933033

121

034214

1220

0127%

09 S22

1276

1255

124

12737

331570

2737

1525

1264
1
1
1

1310
131
1

1
31326

1376

100000

PC,SUBCLR

;CERR AFTER SCLR

000004

MOV

#HDTAB Rxen RS) ;REFORMAT ALL MAJOR CYLINDERS

0000

MOV

TOCYL nxoc(ns)

MOV

TOCYL ,CALADD

; SETUP

MOV

#0, FORMAT

: HEARDER

0000

0000 001466

737
“329

000027

032262

001362

001460

MOV

007354

MOV

832137
37

007422
001346

001320

023737

001346

015436

831370
1379
031376

031404
031410

JSR
ERROR
- JSR

012737

000017

007354

013737

001420

007412

032730

8-66. ,

RKWC (RS)

#0, HEAD

PC.FHDTAB
#<WRHEAD), HCS1

PC,DATCMD’
;ob
STAT

octnn.ucsx

213

:T0 FILL
: TABLE

:D0 DATA X FOR CMD 8 GET CONTR RDY
iNO_RDY nr ER WRITE HERDER CMD
:GET FRESH STATUS
;CERR_AFTER WRITE Henosn CMD

201

ROL
ROL

TEMPS
TOCYL

BNE

128

:BR IF NO

RKDC (RS)

:SETUP TO RETURN TO CYL O

TYPE
IMP

CMP

CLR

032224

ERROR

CLR

004737
104131

004737
104132

BIT

BEQ

BYS:

ggxggf 33?833 889%52
031362

JSR

033664

1
1

ERROR
MOV

737 100000 007354
1405

183281

TOCYL

JSR

128:

CLR

iBR IF YES
{ELSE DO AGAIN

;RESTORE TO ORIG 22 SECTOR FORMAT.

2737

ASL

13%
33

TOCYL

007422

1346

045354
031452

FORM:

137g?

1044 ;
000137

031332

015436

030532

005037

1 s&

BEQ
JMP

MOV

JSR
ERROR
MOV

JSR
ERROR

MSG26
$e0P

TOCYL ,MC1

SESCAPE

#SEEK , HCS1

:ABORTING BAL OF TESTS

;ALL MAJOR CYL REFORMATTED?

PC, DOCMD
131

;D0 SEEK CMD & GET CONTR READY
iNO RDY AFTER SEEK CMD

150000, TEMP1

:SETUP TIMEOUT

PC,FATT2
132

:FIND ATTN
:NO ATTN AFTER SEEK CMD

SEQ 0113

KOS

IBUS RKE DR_PRT2
10-JAN-78 09:43

MACY1l 30A(10S2)
_10-JAN-78 11:25 PAGE 114
Te0
DRIVE OFF TRACK TEST

1412
1420

007354

1422

032737
001401

100000

104210

1430
Hgg
14
031442
031446

#CERR,HCS1
5SS

ERROR

210

;CERR AFTER SEEK CMD

TST

HPEND

; SEE IF HALT PENDING

65%:

1424

BIT
BEQ

00S737

007342

001406
005037
005037
000137

007342

00S037

007340

007340
036262
4§:

BEQ
CLR
CLR
JMP

4§
HPEND
BADHDR
STOP

;CLEAR FOR FUTURE FORMATTING

‘BR_IF NO
HEDERSNOW OK
GO BACK & HALT CPU

CLR

BADHDR

; HERDERS NOW OK

SEQ 0114

EO _UNIBUS RK& DR _PRT2

E.Pl11

10-JAN-78 09:43

LOQ

MACY11 3gR(1052)
10-JAN-78
ND OF PASS ROUTINE
.SBTTL

11:25

PAGE 115

SEQ 0115

END OF PASS ROUTINE

.!llll!l.illl!llllllil’l!ll!ll}lllIllll!llllllllll!lllllillllll

'iINC

S NUMBER (SPASS)

XXXX"
HH?RE XXXXX IS A DECIMAL NUMBER)

R SoRZRE 23NS ERara T Thr Bt B ok R

SEOP:

MOV

s Bt Bt Pt et Bt Bt

COO00 DELELEEREEEREEREBEE
BB t PERBERRReRasan

MOV
I
CEP

ooi216

e B

SEOPCT:

et ot o

SCOPE

ot B

(ot B

SEOP1:

SENDCT:

SGETH42:
SENDAD:

SDOAGN:

88
A
A2

nLw
O
-~

EEMELS B

‘100000, SPRSS

.WORD
BGT
MOV

1
SDOAGN
(PC)+,3(PC)+
1

R:R

000001
001216

SRTNAD:

TYPE

SENULL

J
NOP
NOP
NOP

PC, (RO)

JMP

.WORD

ERSE TE§§ NEXT DRIVE PRESENT

nrxous
sn
F
3
Ir
9
P
E
E
Q
¥
"
T
E
E
"
E
S
R
,,DON T ALLOWR NEG. NUH
LOOP?

;3 YES

; ;RESTORE COUNTER

PA
PE “END

::§“v§v32 E nnIY5§8?1 WITH SIGN

EMES"H8“§§8n
::&
iCLEAR THE WO

#42,R0O
oY
8RR
REEET
MOV

; INCR_ COUNT FOR
8 DRIVES CHECKED

iARE ALL DRIVES PRESENT TESTED?

,ZERO THE TEST NUMBE

BIC

uwWn

s B Bt Pt Pt B

e ot Bt et Pt et 0t
B

SDEV C
gngs‘goevcr

SENDMG

Pt P

oo oo

gTIHES
8l
sStAc

§pPAsSS, - (sP)

e Bt

e o ot Bt
B

D O

D DD DD DD DD

S Nt Fi eyR

NIV
AT VIO
O

S4?7

00
wWw

R R R AR AR AR 0 895Eis

Hiset ST s 31

,.co 10 nonxron

ROOM

;;RCTII
; s RETURN

d(PC)+

STAPT

NULL
1,-1
;
NDMG :: nscfz <1$><lg>/sno Pass’s

NULL CHARACTER STRING

-agg WAITING LOOP FOR THE APT MODE

§TAPT:

oo1102

18:

013356

23:

CMPB
BNE

CEP

BR
JMP

SAPTENV, SENV

$PASS, #2

% STNM
18
STS

; TWO PR?S DONE ?,AS REQUIRED BY

:NOT YE

INCREHENT THE TESTNUMBER

WAITING LOOP FOR APT TO DUMP NEXT PROG

iRETURN TO MAIN LOOP

CZR61ED UNIBUS RKE DR PRT2
10-JAN-78 09:43
CZRBIE. P11

MACY1l 30A(10S2)
10-JAN-78
SUBROUTINES

.SBTTL

012700
12701

SEQ 0116

PAGE 116

SUBROUTINES

#DDUMP, RO

CLRFLG: MOV

007464
177757

15 ’

S &&
¢
?NC
BNE

RTS

000207

! TYPE PROGRAM ID IF FTITLE=0

SeyidRiRey 88
o—o—§

TITLE:

001340

e e e e

20008820888 8888

a
.SBTTL gé?‘anutnigh SOF TWARE snxfigcnflgcigrsgc
UNDER XXDP/ACT?
g

001230

000001

001140

000176

e b
e e e s Bt

000207

001134

::annucnx

ssnv 8l

i §ARE WE uunxnc UNDER APT?

g;sun

::GET SOFT-SWR SETTINGS

EEE’

MOVB

#1,SAUTOB

; ;SET AUTO-MODE INDICATOR

15:

RTS

CHPB

EES

e b

000042

000001

FTITLE

INC

001340
043420

118757

;ST

ggg,osuasc

55§§Eg§““§F sfiificu
REG SELECTED?
NO

ao TINE TO INPUT gnxvs NOS. TYPED IN &
:DRIVS, DRIVO-DRIV? REGISTERS APPROPRIATELY
;

- |

NNN

258

472400

RVS:

012701

177770

127
012704

177400
007476
000060

18 :

2%:
000070

o
&

DONCNEWN—-0O

SERRRRRAERERBEEESEEEEEdoddaiias:faessg8

11:25

; SUBROUTINE TO CLEAR ALL FLAGS FROM DDUMP THRU DOTIM

£38%

AN
AN
BUEREERE

MOS

032042

177770

(SP)+,RO

;GET srnnrrnc ADDR OF ASCII STRING

MOV

2177400,
R2
#DRIVO,R

#60,

:DRIVE FLAG ADDR

MP
Sso
TST

RY,R2

;WAS

R8LI

hove
BIC
MOV

?Eeitkée
RY

NO Incnsneur DR FLAG ADDR

:5/B 0-7 OR TERMINATOR

RY
RY, #70

R2
4s

CMP

BEQ

cunn 0 THRU 77

TYP
59
“gnc

3s’
(R3)+

INC
CMP

REcT T CrAR
'§E¥
; MASK H? fi?s

R1, 8-B.

:DEFAULT ALL DRIVES

%’3
g320u4

é
fie

007524

13 oorury
.
g‘ ek

8044

(B8t 0321 000761
R
ggg?
§§§§ 838188 00013 Bisidl
116

000771

6053

032120

0o0s237

AARNNNNNN
KRR

SRR

pO7S2

OB Re FORT OThart 0T 1ok REcI4Ten
78:

Ne DRlvs
(PO):.R2
B

48:
6S:

6379

3 i
331

oYM412
1

GBA:

6309

10037

032152

000207

001264

1S4

10441

GINT:

010037 001314

8089

RD.

£O&
BR
7
IWT

PRogRT

A
rouuo
?snnxuaron EXIT
fg%mo'?AveR- -

x NORE, HAVE ERROR.

s1zFLG

100 TEST 1 (SIZING

RDOCT

)+,R0

¥g¥

BEQ

553

:?77~ao $BASE

RTS

0, SBRSE

;

:GET LOW ORDER FROM STACK
;BRANCH IF DEFAULT.

;DEFAULT VALUE

RDOCT
MOV

R6Y
ISR
MOV
BR

(SP)+,RO

:GET LOW ORDER FROM STACK

&0, RKVEC

gc'SETINT
10, RKVEC
2%

: DEFAULT VALUE

6050

8094

R LREMENT TOTAL ¥ BRIVESTO BE TESTED
g

c: NEXT RSCII CHAR.

énourxne TO INPUT RKVEC OR DEFAULT

35164

6093

EgmsTE&s& S

fove

MOV

6084 832}29 86493; 032206
2s:
288; §§§17& 8?3357 000210 001314 1S:
6087
032204 000771
soeg

sizFLG

'ROUTINE TO INPUT RKBAS OR DEFALLT.

;é 8 Sizq 8?3;33 177940 001264 1S
73

NOS

0-JAN-78

'ROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY
032206

032012

013700

012720

001314

036720

SETINT:

MOV

RKVEC,RO

SINTER (RO)+

;INTER ADDR TO RKVEC

- Sl

[T o

| CoRIE pi) BUS 10-?au-7a05:43

MACY11 300(1052)

B10O

10-JAN-78
11:25 PAGE 118
GET VALUE FOR SOFTWARE SWITCH REGISTER

w5 S8 IRRZEREBBNFR
RO B o m e £ w6 D6 IRA 2008

ggg

e Bt B

s pn

bocMp:

BIS
MOV
MOV
J
RTS
ggg

S$TMPY, HCS1
HCS1,RKCS1(RS)
710, tEMP1
PC, FROY
PC
3@,(59)

:SET CDT IF RKO7
;DO COMMAND

;FIND CONTR _READY
:SET HERE IF
NOT RDY
:ELSE SKIP OVER ERROR

P Pe e B

EIuagofiggEgug Es sxgx%?gsngTus ABOVE BUT IS USED FOR DATA TRANSFERS

s P

baTCcMD: BIS
MOV
MOV
g;g
ADD
RTS

s et

neLsLr
OwomN

;PRS TO RKVEC+2

;ENTER WITH COMMAND IN HCS1

s B Pt ot ot et

$TMP4, HCS1
HCS1,RKCS1(RS)
750000, TEMP1
gg,rno?

:SET CDT IF RKO?
;DO CMD
;FIND CONTR RDY

82, (SP)

;Efi¥s£”5 ;3 E’E° cgnr LER READY (RDY) DURING A DELAY

53” ssnr (sanon couoxrxona
,REunn fr nov
n?v PRESENT (SKIP OVER ERROR)
srnrus x

r <

RERRRRRRRES
&
BB
R alS

s Bt Bt
Bt ot B P Bt Pt Pt ot ot

O O O
oo

e Bt Bt Bt Bt ot et Bt Bt Bt Bt B

ggpax,(aom

SEQ 0118

ETHIS ROUTINE COT IN RKCS! IF DRIVE UNDER TEST IS AN RKO?.

e B

OO O OO O O O O O O O O O O O O O N OV O O O oo OO OO OO OO OV O

3933 |

MACY11l 30A(1052)

000200

000000

FROY:

oo7412

8%2454
3602

18:

000002
032454
033602

BIT

BNE
DEC
BNE

TAINED BEFORETHE RETURN FOR EITHER CASE
#RDY,RKCS1(RS)

18
TEHPI

JSR

cHOLg

ADD
JSR

PC.HOLD

JSR
RTS
JSR

RTS

Pc CKCERR

ua (SP)

PC,CKCERR
PC

;STORE ALL RK&1l REGS IN HOLDING REGS.

:CHECK FOR spscxnL CERR
:NO RDY, EXIT

:SKIP oOERERROR

;CHECK FOR SPECIAL CERR

:ROUTINE TO FIND CONTROLLER READY AND STORE DRIVE REGS ONLY
000200

000000

FROY1:

007412

0036
033602
000002

007402
007404

BIT

3
TEMPL
FROY1
Rxnaa( RS), HMR2

RTS

MOV
JSR

18:

#RDY,RKCS1(RS)

BNE
DEC
BNE
MOV

ADD

RKMR3 (RS
) ) HMR3
PC,CKCERR’

cuccx FOR SPECIAL CERR CONDITIONS

82, (SP)

sxxp OVER ERROR

NO RDY,

EXIT

CZRSIEO UNIBUS RKE DR _PRT2

10-JAN-78 09 H3

i i s

382l.)E ;‘-35“5"3?1“& éuzitcmcfé?sn
MOV
MOV

007402
007404

.{?E

RKMR2(RS), vme
Rxmamgn
P

:CHECK FOR SPECIAL CERR CONDITIONS

’

1
1

032602

010446
013704

e e

12604

Zie

32630

032632

o
P

HOLD:

007373

MOV

RKWC (RS) , HWC

MOV
MOV
MOV

RKER(RS) |HER
(RS) ,HASOF
RKASOF
RKDC(RS) , HOC

MOV
MOV

55
(RS) ' HMR
RKECPS(RS)
, HPOS

:33

ggz

007410

RKBA(RS),
(RS),
RKDS(RS)
|

nxmxsns;.mm

RKECPT(RS) | HPAT

ROUTINE TO CHECK FOR CORRECT ATTN
;RETURN IF ATTN_NOT PRESENT (ERROR CONDITION)
iRETURN +2 IF ATTN PRESENT (SKIP OVER ERROR)
;SAV R4
RY, -(SP)
tsTaTn: Mov
auflxr RY
MOV
+1
TTNCRY),HASOF
BITB
BEQ

;BRANCH IF ATTN NOT PRESENT

s?g

38-‘59’

:INCR RET ADDR TO JUMP OVER ERROR.

(SP)+,RY

;RESTOR R4

MOV

000002

18:

(RS)

R..

Mov Rkcas(Re) Heal
v
MOV
v

7358
35

012604

MOV
RTS

(SP)+,.RY

iRESTOR R4

‘Rouxne T0 r§no ATTN W THIN TIHES GREATER THAN 1 SEC
NTER iTH T n; IN gsg
gnpa
URN F NO ATTN (ERROR couoxr ON)
g sg ATTN rguuo

BEFORE THE RETURN FOR EITHER CASE

TAINED

srn us 1

SQTTORE

R
& oRe

Cl0

:STORE ALL RKG11 REGISTERS IN HOLDING REGS

016537

BIRR 2SR

3B IR R 2R B3It 2NN DB LFRED

032“32

L
%q4esG
:
e

| ot
8‘«'}9&“2&.‘&'

CZRBIE.P

Lopd
el alealoalo gl o alo gl als alo als ols ole ols ols oo o s
Ll
al e al ol ol oo s ol s e ol ol
oo
.-.-.-.-.-.-.-.-....--.-.-.-.-.-.-.-SSESS&'—'SS.—.—.—2.-.-&'-'.—.—.-2.-.—225352.—.—

MACY11

032666

005337

032650

657777

1222
007344
007412
007414

007412

000017

FATTL:

3s:

18:

BITB
BNE

DEC
BNE
DEC

(SP)

T?ficx
l

:SAV RY

RKASOF+1(RS) ;FIND CORRECT ATTN
nrrnrku)
;
MP1
1
TEMP2

SEQ 3119

CZR6IED UNIBUS RKB DR PRT2
CZROIE.P11
10-JAN-78 09:43
6207
6208

032672

032674
1

sy
032726

001361

BNE

000026

033664

000026
033664

6
000207

000002

737

10-JAN-78

D10

11: 25

2""'3%%2?’
-\
<§¢

rteilsatus
%sba

ELS

RK"E&%EE)

gET 8;9S AFTER ATTN SEEN

:sx? ovén ERROR

g'(sfi)

2§3
RTS

R LR
9&DN12 16 AN FRORGC
ggrra:
000017

HIN 1 SEC

ATTN

TRINED

BEF

-(SP)

DEC

Tsrm

0388E8

PC,GSTA

Eg&
MOV

18:

000002

THE RETURN FOR EITHER CASE

Ezza 3¥¢nch4) RKASOF+1(RS) ;FIND CORRECT ATTN
MOV

007412

000026
033664

CL
J

RTS

MR1(RS)

(SP)+,RY

RKMR1 (RS)
GSTAT

RY
gb)o
(sP)

;SAV RY

;SELECT
_WORD O
:GET LATEST STATUS.
RESTOR R4

R
;RE?TOR
:SKIP OVER ERROR

NTER W TH
N TEMP
US/ITERATION + 12 US TO EXIT
Ssggoxsé7
?
DE
§HE
D ON AN 11/0S
'WHEN COUNT IS 0.

005737

oo7412

BLy:

1ST
Q
c

TEMP1

;5.6 US

:1.9
;6.8
i2.5
:13.8

18:

RTS

BYP:

TYPE
MOV

MSG1Y4
-(SP)
RO,

; BYPASS
32 RBR}OS TYPEOUT
.,

1
0

"TYPEgé g
no NG ZEROS
: 'SUPPRES

gTHIS ROUTINE TYPES BYPASSED DRIVE®.

b700%¢

S—

033040

045243

ug
U
US
US

MP1
DLY
PC

007412

bebl
6262

SEQ d120

GeR
5§g

884555

PAGE 120

GET VALUE FOR SOFTWARE SWITCH REGISTER

e Bt

NoOnNEw

RO ORI RO R RO D AR
Rarofo fu o a0 FOTORORS
/ §m2wsmmw&.
RO

MACY11l 30A(1052)

104403

TYPOS

000207

RTS

.BY E
TBYT

ENTER WITH DRIVE# IN RO

,,co s--o

nscxx

ELD

Pt P

Pt Pt Pt

s Pt

NN EWN~-D

oo
oo
WWwwwwww

s ot

'%%%%85%%%&§m5@§§%§m S

O_UNIBUS RKE DR _PRT2
8

MACY11 300(1058)éO-JRN-?B 1:25__PAGE121
OR SOFTWARE SWITCH REGISTER

SEQ 0121

; THIS ROUTINE READS ALL MSG A & B WORDS & CHECKS THEM RS REQ’'D.

001520

CHKMSG: MOV

794Y
7450

JSR
BIS
BIS

PC.GSTATI
SUNIT,E.RO
SUNIT E.Al

DO7444

axg

.DDT E.

ADD

137

MOV
MOV
JSR
MOV
MOV

007412
007444
7450 007412

gii 9 §°“;:§ %‘&2 007450
1
37
007412
ST foird BN e

ok
MOV
R

d(SP) ,CHKFLG
82, (SP)

TEMP1,~(SP)
E.m TEMP1
¢
TEMP1,E.RD
Al, TEMP1

S‘En?"’sAl
.A2,
TEMP1
BeSeeaR
.

3z
737
0137
37
§6~7§;
13737

7» 007412
ss 007446
007412
%‘1‘55
12 007452

MOV
JSR
MOV
MOV
JSR
MOV

033242

013737

007456

007412

MOV

3262

013737

007462

007412

MOV
JSR

PC, SBPAR

12637
7412
Sggfi 81937
u
& 001172

MOV

(SP)+. TEMP1
SESCAPE,STMPS

”E’S
14
?

fig&

833520 873737 G35iT2 oo7use
7

MOV
JSR

figh §°137g; 803418 007462
0

0361

MOV

033314 023737 007424 007444
2
éfls;
12737
033336 001176
116
ggg
332107

001000

033346

062716

000002

033352

023737

007426

145574
007446

s
TEMP1
¢
AR
TEMP1,E.BO
.B1,TEMP1
sc SBPAR
TEMP1,E.B1
£.82, TEMPI

;PASS MSGS TO BE TESTED

T 1ST ERROR
: BUMP RETURN ADDR
:GET ALL ACTUAL onxv: 8 CONTR STATUS
;SET UNIT #

;ADD DRIVE TYPE

:SAVE TEMP1

;GET PARITY FOR MSG AO

T SR e - oy
cer eARITY FOR mss fe

:GET PARITY FOR MSG BO

:GET PARITY FOR MSG Bl

Tsfigxg,sl B2

:GET PARITY FOR MSG B2

£.83, TEMPI

TEMP1,E.B3

'.GET PARITY FOR MSG B3

;RESTORE TEMPI

;SAVE ESCAPE

BEQ
MOV
MOV

H.RO,E.ROD
2%
81§ ssscnps
cspi.-

; TEST MSG RO
:BR &F K
iELS
TUP ESCAPE
:COPY
RET ADDR.
8 RET

TO MAINLINE ERROR

1§:

grxé

gggq.asun

gsg

gsLsggnmmE%égs ERROR

2s:

ADD

82, (SP)

'BUMP RET ADDR TO NEXT ERROR

CMP

H.BO,E.BO

; TEST MSG BO

RTS

RK& DR PRT

-JAN-78
0 0%:43
R61E0, unIBUS At

6318 fi% o311
32

TIL
e

BRRRaRR R

3737

MOV

001000

145536

000002

007430

007450

033432

001176

4s:

BIT

Ss:

ADD

145500

78:

007432

007452

#SW9, ISWR

CMP
BEQ

n Al,E.Al

MOV

, (SP)

-sg ssscnpz

033470

001176

BIT
ggs

#SW9, ISWR
208

CMP

H.B1,E.B1

MOV

oxos SESCAPE

MOV
RTS

001000

145442

000001

80602

108:
118:

000002

SEQ@ 0Olee

001520

BIT
BEQ

001176

158:

20s:

to MAINLINE ERROR

RETURN HERE rnon MAINLINE ERROR

LOOP ON
Sunp s;

ERROR

TO NEXT ERROR

; TEST MSG Al
:BR IF OK

; TEST MSG Bl

'BR IF OK

#SW9, ISKR

; TEST _MSG A2?
;gs IF NO

Pg,RCYLD

:PUT INFO CYLDIF, DO NOT CHECK

JSR

PC RCYLR

:PUT INFO IN CYLADD, DO NOT CHECK

3&5

ogiaa,cuerc

ae CHKFLG

C, RSEC

;;ssr MSG B27
:BR_IF NO
; TEST MSG B3?

;PUT INFO IN SECTOR, DO NOT CHECK

JSR

PC,RHEAD

:PUT INFO IN HEADA, DO NOT CHECK

MOV

grnps,ssscnps

;RESTORE ESCAPE

RTS

MOV

?gg

THIS ROUTINE C

636
6368

i8 RE

JSR

737

(sp) -(8P)

OT A2, CHKFLG

138%:

148:

118

208
82, (SP)

BIT
BEQ

:BR_IF OK
.EL
UP

82, (SP)

BNE
ADD

128:

004737

012706
013737
000177

BIT

001520

33564
33570
D33576

), =(SP)

BEQ

034656

033550

'sg SESCAPE

BNE

MOV

000002

#STACK, SP

srnps tsscnpe

;RESET STACK PTR

'RESTORE ESCAPE

CKS FOR CERTAIN ERROR CONDITIONS ONLY

iILE.: 1 F NED, CTO OR MDS SET MESSAGE R & B ARE INVALID

G0 mee
6372
6373
6374

BEQ
MOV

001176

RTS

001000

033374

RTS

107870

:¢

o
W

MACY11 30fll1052)
10-JAN-78
11:
122
GET VALUE ron SOF TWARE SWITCH necISTER

033610
033616
033620

mve

032737
001001
000207

éxceanz TST
007354

BNE
BIT
BNE

RTS

BYPCERR

CERR, HCS1
18

;BR IF CERR

GET VAL

007354

18:

007356

2s:

007356

3%:

1 0-JAN-78

é’

SEQ Q123

11:25

#CTO, HCSI

Q
g¥gon

2
éc

:BR IF NOT CTO
:CTO ERROR, MSG A 8 B INVALID

BIT
BEQ

ERROR

, HCS2
SNED
33
126

:BR IF NOT NED
:NED ERROR, MSG A 8 B INVALID

BIT
BEQ

#MDS, HCS2
4§

RTS

ERROR
4§

Gl10 123

REGIST ER
UE FOR SOFTWARE SWITCHPAGE

MACY11l 30A(10S2 )

127

:MDS ERROR, MSG A 8 B INVALID

§ruxs ROUTINE DOES THE SELECT DRIVE COMMAND TO GET STATUS

:IT THEN WAITS FOR CONTROLLER READY

:IF RDY NOT RECEIVED BY THE TIMEOUT, AN ERROR IS FLAGGED
’

869388

GSTAT:

v
RSv
MOV
JSR

ERROR

ggg

TEMP

TEMPL,-(SP)
SE(RS) ;2fi%§su§ o&xvs ¥
Sggl*'flk
8SELDRV, HCS1
(STATUS) CMD & GET CONTR RDY
;28 sgb
PC,DOCMD
: RDY ? SET BY END OF SELECT DRIVE CMD
117
{RESTOR TEMPI.

;gp)+,15npx

EIHAELR88;$=SLEEESREE?; Rgr ALL DRIVE REGISTERS (MSG ARO-A3, BO-B3)

o-o—g [

&sTaTi: Mov

?ov

;i?éggg%ésg)

EEEEEET uSEB 5

:GET ALL CONTR REG

—

)

MOV

HHR3H:
B3

PC.GSTAT2

007434
00743¢

MOV
MOV

HMR2, H. A2
HMR3 . H.B2

800010

MOV
MOV

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

JSR

PC GSTAT2

’i?flq
DO744

D00 8
u.n
0

000026

;SAVE TEMP]

PC,HOLD

—

000000

TEMPL,-(SP)

JSR

mlfl
2%
>

[A]
—

O
=g8000 ©O 000 00O
TEWN Ww 38 W
Z §EE§ n
~N
599N
9
|
= NN
—WOe
W
) oot
SNnnn
N < ~N
n
SN

Exeys
N

noco

RROR

MOV

ERROR

11?7

:RDY NOT SET BY END OF SELECT DRV CMD

{TORE MaC 83

; SELECT WORD 2

:RDY NOT SET BY END OF SELECT DRV CMD

:STORE MSG R2
:STORE MSG B2

#1,RKMRL (RS)

:SELECT WORD 1

117

:RDY NOT SET BY END OF SELECT DRV CMD

0_UNIBUS

10-JAN-7808:43

MACY11

30A(1052)
10-JAN-78 11:
PAGE 124
GET VALUE FOR SOF TWARE SWITCH REGISTER

007430
007432

MOV

888818

MOV

Qi g B87ige
1

007354
007354

MOV

ax§§£(§§)
; ZTstaT
#CCLR,

JSR
Enson

fié;

Rgg

(SP)+, TEMP1

BIS
ggv
Vv
g;n

%moooe

;STORE MSG Al

HMR3.H.B1

GSTAT2: MOV

Bl BRI 867402

HMR2,H. Al

MOV

007412

Prmun

ot S

Pt Pt P

834878 81%73% 83768

53959999 95 999398
RFZENCRE 5 PRNYNSD

.P11

:STORE MSG Bl
RKCS1(RS)

HHRS:H:ES
#SELDRV, HCS1

Hs
[
ucax figS?l(RS)
;5
T
LFROY1

R?Y NOT SET BY END OF SEL DRV CMD

3 852 flé

;RESTORE TEMPI

;RET CDT_IF RKO?
iGET STATUS
;FIND cournrnggTs
STORE DRIVE REGS ONLY

THIS ROUTINE DOES
A SUBSYSTEM CLEAR & WAITS FOR CONTROLLER RERDY

FLAGGED.
F _RDY IS NO'BERECEIVED BY THE END OF THE TIMEOUT, AN ERROR_IS
TS CURRENT STATUS 3 CHECKS FOR CONTROLLER ERROR (CERR)
ROUT

TR1 eCE&SCLEAR

0000'40

000010
007412

oes 0006
664

000010

z 7

062716

033

100000

&uscL R:

SSCLR RKCSE(RS) ; SUBSYS CLERR

Péotns

RsYNOR?SET BY END OF SCLR

gunar RKCS2(RS) g
KMR1LRS)

PC,GSTAT

£RR, HCS1

007354

000002

MOV

18:

;g,(sp)

T STA s

cuecx ron CONT ERROR
:SKIP OVER ERROR

énmo THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN 'SECTOR’
012;6;

ooogog

7§7
7

g?fl&g
14

13737 83;‘08‘0

e37
006237
006237
000207

1402
001402
001402

000026
001402
001402

RDSEC:

88 ngng%(nsn

:WORD 3

Hflkg CTOR
ofc<hSECT>,SECTOR
:RIGHT JUSTIFY
SECTO

SECTOR

SECTOR
sEcron

:SECTOR

1INFO

:REQD THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN °CYLDIF®

SEQ 0124

CZR6IED UNIBUS RKG DR PRT2
CZREIE.P11
10-JAN-78 09:43
587

B488
8489

8490
sug%
&Y

Du3uy

849

01276
2

137

B494

6495

EY496
E497

6498

6208

6503

6504

e
630

:gg 005037

001336
--xgss
D01

001356

000026

RDCYLD: MOV

001356
001356

18:

430

{3;-3 007412

ATE

5737

3757 golee
765
1004
7

034510

1371
104117

034512

016537

18:

sRIGHT JUSTIFY
:CYL DIFF/OFFSET
: INFO

CMP
BNE

CYLDIF, MASK
18

CLR
RTS

013737
7

034602

2s:

000034

PC.GSTAT

CYLDIF

CYLDIF
PC

;CHK_TO SEE IF RET IN COMPL. FORM
iBR_IF NOT
:CLR IF YES

BIC
ASR
ASR
ASR
ASR

00207

RTS

034640
034646

023737
001002

001356

B 37 BE
901326

31
h5«
xcsx(RS)
é
9

CS1(RS)

Ean
18

;SAVE TEMP1
{SELECT WORD 2
:SELECT DRIVE CMD

;TEST FOR CONT RDY
:BR IF THERE

117

;NO RDY AFTER SEL DRV CMD

RKMR2(RS), CYLDIF

:GET CYL oxrr ONLY (NO SHIFTING)
{RESTORE TEMP

MASK1,CYLDIF
é% )+, TEMP1
82, RKHRI(RS)
PC.GSTAT
HMR3, CYLADD
Maskl, cYLADD
CYLADD
CYLADD
CYLADD
CYLADD

'CYLADD’

;WORD 2

sRIGHT JUSTIFY

:CYL RDOR
1 INFO

‘READ THE CYL DIFF/OFFSET IN H.A2, RIGHT JUSTIFY IT & STORE IT IN 'CYLDIF'

6o
1
007434
;:sg;
%
343737
Bicuas
653

001356

BIC
ggg

RDCYLA: MOV
JSR
MOV

007404
Dis4dz

006237

MOV

TEMP1, -(SP)
%2 RKfiRl(RS)
ostL

READ THE CYL ADDR IN RKMR3, RIGH T JUSTIFY IT 8 STORE IT IN

e
e
beu0
6

BNE

ERROR

S34
012765 000002
293 00473 oa3ees

Sue
254

MOV
BIT

DEC
BNE

007412

BE41
6842

HMR2, CYLDIF
nnsx% CYLDIF
CYLDIF
CYLCIF
CYLDIF

BIS
MOV

001170

B
B Rl el
6230 0276 O0OCS3, 001368
6531

MOV
BIC
ASR
ASR
ASR

dkCYLD: MOV
MOV
MOV

6525
6528

;WORD 2

ASR

015440

il
fme oy7 B
:Slg 03“235
5'%5
6524

82, RKMR1 (RS)

JSR

SEQ 0125

£502
6516

7‘333
544
001356
001356

I10

30A(1052)
10-JAN-78
11:25 PAGE 125
GET VALUE FOR SOFTWARE SWITCH REGISTER

:QUICK SELECT DRIVE COMMAND TO OBTAIN CYL DIFF

el
6511
612
D

651
6514

33664

MACY11

RCYLD:

015440

MOV

BIC
ASR

H.R2,CYLDIF

ASR
ASR
ASR

CMP

c
cho r
CYLDIF

CYLDIF, MASK

BNE

choxr ;CLEAR _UNWANTED INFO
nnsxl
ox# sRIGHT JUSTIFY
18

:CHK TO SEE IF RET IN COMPL. FORM

:BR IF NO

CZR&IED UNIBUS RKE DR_PRT2
10-JAN-78 09:43
CZREIE.P11

$S43
B54d

034650
(034654

00S037
000207

001356

654
6548
£o43

034656
4

013737
043737

007436
015442

6551
52
8533

034676
034702
Q34706

006237
006237
006237

001360
001360
001360

S0 Q34672 B0b237 001360

6554

712

000207

J10

MACY11l 30A(1052)
10-JAN-78 11:25_ PAGE 126
GET VALUE FOR SOFTWARE SWITCH REGISTER
18:

001360
001360

gé&%

gSed
%

6566

@gfie
“3=1-]

6569
6570
5571
g572

ASR
RTS

714

722
024730

013737

042737
Qobe3s

007442

177017
DOLNOS

001402

cYLADD

CYLADD
CYLADD
CYL

RSEC:

749 D0BS3, 00140

MOV

BIC
ASR

ASR

SECTOR

013737 007442 001462 RHEAD: MOV

H.B3, HEADA

000337
000207

HEADA
PC

RTS

#$C<M.SECT>,SECTOR__;CLEAR_UNWANTED INFO
SECTOR
;RIGAHT JUSTIFY

000207

034760
034766
034772
034776

042737
006237

:READ THE HEAD ADDR IN H.B3, RIGHT IT & STORE IT IN 'HEADA’

170777
001462

001462

BIC
ASR

001462

SWAB
RTS

#$C<M.HERD> ,HEADA__;CLEAR UNWANTED INFO
HEADA
;RIGHT JUSTIFY IT

6574

iFIND SECTOR 23

8578

IRETURN +4 IF FOUND

6575

iRETURN IF NOT FOUND

5578
5579

035000
035006

013737
37

035020

001014

6580

035012

5584

55
65

£58

6588

023727
737

3727
141g
737

(035050

6590

3727

O0OI404
337

£23] D03%0%E 001353
B53¢
=] S

(035080

000207

gggg

035062
035066

e71
062716

6594

6597

eS 98

;RIGHT JUSTIFY

H.B3,SECTOR

034750

;ELSE CLEAR

READ THE SECTOR COUNT IN H.B3, RIGHT JUSTIFY IT & STORE IT IN 'SECTOR'

6559
6560

CYLDIF
PC

'READ THE CYL ADDR IN H.B2, RIGHT JUSTIFY IT & STORE IT IN ’CYLADD’
RCYLA: MOV
H.B2,CYLADD
BIC
MASK] ,CYLADD ;CLEAR UNWANTED INFO
ASR
ASR
ASR

@ggg
£558

CLR
RTS

000207

001416
034274

001402
034274

001402
007412

000004

007412

000023

FSEC23: MOV
18:
JSR

15000, TEMP1
PC, RDSEC

;SETUP_TIMEOUT
iREAD SECTOR

BNE

:BR IF NOT 23(8)

JSR

PC, RDSEC

BEQ
JSR

3
PC, RDSEC

;BR_IF _READ SAME TWICE
iELSE TRY 1 MORE TIME

BEQ

;BR IF 23(8)

DEC

TEMPL

RTS

: TRY AGAIN

ADD

14, (SP)

;SKIP OVER ERROR

CcHP

000023

CHP

000023

CHP

2s:

3s:

BNE
RTS

SECTOR, #23
SELTOR, #23

SECTOR, #23

:TEST FOR_SECTOR 23(8)

'ROUTINE TO FIND HEADS HOME IN RKMR2 WORD 1 BEFORE SPECIFIED DELAY
;ENTER WI TH TIME I N SECONDS IN TEMP2

SEQ 0128

K10

MACY11 30“(1052)
10-JAN-78 11:25_ PAGE127
VALUE FOR SOFTWARE SWITCH REGISTER
;RETURN

007412

000026

007402

EHDHM:

MOV

#-1, TEMP1

18:

JSR

PC,GSTAT

MOV
BIT

007412

Shiat

007414

062716
000207

81, RKMR1 (RS)

;ALL 1°'S

WORD 1

ghom,umz

RTS

ADD

2s:

000002

IF FOUND
- SKIP OVER ERROR

Zoen
I3 3 I

=i ow

77777

33551

SEQ 0127

IF NOT FOUND

AAname

035142

RARRAARAAGS
QRREEONS

iRETURN+2

82, (SP)

;SKIP OVER ERROR

LOAD HEADS IN RKMR2 WORD 1 BEFORE THE TIMEOUT
no TINE TO r*ug
:RETURN IF NO
:RETURN+2 IF rouuo SKIP OVER ERROR
035144

012737 000372 007412
035152
012765 000001 000026
160 323737 033664

1;;
1
174

035210

737
005337
001004

%133;

062716
000207

010000
007412

007402

FLOAD:

18:

MOV

MOV
JSR

BIT
BNE
DEC
ang
RT

noo

2s:

000002

RTS

%250

MP1
81,
nxhnx(RS)
PC,GSTAT

8D LORD, HMR2
[
EMPI

;WORD 1

oa.(spx
PC

:SKIP OVER ERROR

# ngsn TABLE WITH 66 WORDS OF VALID HEADERS

A G
o ne
RS=S

NN EWN-0O

AR5ke5FEFFEEEESs858

o
o

§ GEER
838

0_UNIBUS RK? DR_PRT2
.P11
10-JAN-78 09:43

.EN ER u{
H ch IN 'CALADD’
8 IN "HERD'

(ENTER W

{ENTER uxru ronnnr IN 'FORMAT’
12

010046

12700 001522

8$8§

14
325

3 37

7256
4

ggggsa

FHDTRB: MOV

010146

337

001460
001464
001464
001464
831u¢u

1464

013737

001466

001470

813728

001362

1011

001470

035302 053718 001464
035306 053710
035312

004737

001470
035372

MOV
MOV
CLR

001464

HEAD, HD1

ASL

HD1

MOV

SWAB

18:

R1.-(5P)
sHOTARB, RO
R1

MOV
ASL
ASL
ASL
ASL

001470

RO, -(SP)

HD1
HD1
HD1
HD1

FORMAT,FMT1
FMT1

;SAV RO

1SAV R1
:SECTOR COUNTER

‘HEADER WORD TABLE ADDR

;SETUP HERD #% FOR WORD 2 OF HERDER

ASL

FMT1

MOV

annoo (RO)+

:HEADER WORD 1-CYL ADDR

B1S

FMTL, (RD)

MOV

BIS
JSR

R1,

;SETUP FORMAT FOR WORD 2 OF HEADER

(RO}

HDl (RO)

PC,SECFLG

{HEADER WORD a-SECTOR NO

HEAD NO

~FORMAT

B
BIC
BIS

Rl
(R0)+ fsnpx
TEMPL) TEMP2
TEMP2, (RO)+

;HEADER WORD 3-HEADER CHECK

RL ez

ECTOR
8 gecrons DONE? (66 WORDS)
3L

MOV

(SP)+,R

:RESTOR Rl

RTS

MOV

007412

007414
007414

MOV
N

BigdEs
035362

BNE

MOV

(SP)+:R6

&ECFLG: MOV
TST

;GET HARDWARE
;RETURN HERE IF

MOV
JSR

#BSE225+48. ,R2
PC,FLGTST

;ELSE RETURN

MOV
RTS

(SP)+,R2
PC

MOV
JSR

sassaou+e ,R2
LGTST

81714, (RO

BIS

oairxs (RO)

MOV
JSR

oassaos+a ,R2
LGTST

BIS

MOV

nLn
NNN

VVB
r—ug
— o S
=]
o

§§ §§

—

e R82

; SAVE R2

031712
(RO)

Pessea¥+e..na

BIS

RTS

00020

ROM THE BAD SECTOR TABLE FI LLED BY A PREVIOUS
IATLY.

;BR IF 20 SECTOR FORMAT

?ox

BIS

040000

R2,-(SP)
rghnnr

;nssron RO

BNE

—

[=]

\IVQ \lVQ,IO\l
YR SYReY

THIS ROUTINE GETS INFORMATION
TTEST & SETS BITS 14 & 15 APPR

18:

SEQ 0128

035336

135?a357PR583H3

L10

PAGE 128
11:2
0-JAN-78
SWITCH REGISTER
FOR SOF TWAR

MACY11 30A(10S52)
GET VALUE

ERelE”P11

UNIBUS

iGET
i RETURN HERE IF

DETECTED FLAG
GOOD SECTOR

TECTED FLAG
GOOD SECTOR

;ELSE RETURN HERE

;GET HARDWARE DETECTED FLAG

;RETURN HERE IF GOOD SECTOR

;GET SOFTWARE DETECTED FLAG

oaim (RO)

iRETURN HERE IF GOOD SECTOR

(SP)+,R2

;RESTORE R2

BAD SECTOR_TRBLES
ACTUAL SCANNING OF
ROUTI
¥2=Nu1;u"$u2°580n255
OF TRBLE (BSE22H, BSE22S, ETC.) IN TEMP1

nerunu+q IF COMPARE
1777277

038208

00207

FLGTST: MOV

R3,-(SP)

; SAVE R3

CMP
BNE
MOV
RTS

(R2), #-1
2%
(SP)+,R3
PC

gEE IF gLL 1'S

18:

iRESTORE R3

CZR6IED UNIBUS RK6 DR PRT2
CZRBIE.P11
10-JAN-78 09:43

022237
001;03

001362

013703
000303

001460

OS2
eriz
2 aaeald i
7is
6717

035526

6720

MACY11 30A(10S2)

2%:

3s:

§28483

6727
6728

0355:0

4s:

000004

faesug

731

6735
6739

1
&3
£
674

6744

PRGE 129

SEQ 0129

ggg

5§a>+,annoo

:SEE IF=CYL % & ADR PTR TO TRK/SECTOR WORD

g D

?i.na

;GO TO NEXT CYL WORD IN TRBLE

ggxa

:gno,na

;GET HEAD & FROM FHDTAB ROUTINE

Efi

R1,R3

(Aéu,na

QBE ific .I.ggT&iFI‘.BfloF ggnfifin@OUTINE

£k

ELsé TRYNEXT oYL

MOV

n?g
R

(SP)+,R3

a4, (SP)

PC’

R PTR TO NEXT CYL WORD

;RESTORE R3

: INCREMENT RET ADDR

TH S ROUTINE

1S THE
TA
FROM WHATEVER
NS
tuith BRB R RORTE
THE RHTAB
BHTB8 TRBkE
R ROe TR e BTNSECTOR
Qi ThIT SECTOR
O

5;32

M10O

11:25

GET VALUE FOR SOF TWARE SWITCH REGISTER

brel g
5;24

10-JAN-78

&0RT:

035550

S60
035566

O
035614

03S620

;SAVE RO
:SAVE R1

PC.RDSEC
#1,SECTOR

JSR
ADD

JSR

PC.MULTE

:MULT SECTOR BY &

MOV

001402

ggs
ADD

SEC ohfno
SECTOR
03h§59

;RO-SECTOR TO RO = INDEX
;SAVE INDEX

ADD

#RHTAB, RO

MOV
18:

MOV

2s:

001374

:INDEX TO TOP HALF OF SRTTAB

oRfi

(RO)+, (R )+

;PUT BOTTOM OF RHTAB TO TOP OF SRTTAB

MOV

$RHTAB, RO

:PUT TOP OF RHTAB TO BOT OF SRTTAB

MOV
CMP
BNE
MOV

035650
035652
035654

; INDEX TO BOT HALF OF RHTAB

#SRTTAB,R1

CMP
BNE

001374

035646

RO, -(SP)
Ri.-(SP)

001402

062700
012701

G dlatel

MOV
ngv

MOV

RTS

(RO)+, LR1)+
RO, SECTOR
2s’
(SP)+,R1

(SP)+.RO

:RESTOR Rl

:RESTOR RO

!MULT BY &. ENTER WITH DESIRED & IN ’'SECTOR’
MULTE:

035656

032cee

035672
035676

N00207

ASL

SECTOR

;2 X SECTOR

ASL
ggg

SECTOR’
;gpa+,SECTOR

X SECTOR
(u x S)+(2 X S) = & X SECTOR

MOV

secron -(SP)

RK&6 DR PRT2

10-JAN-78 09:4

MACY11l 30A(1052)

10-JAN-78

11:25

PAGE 1

SEQ 0130

GET VALUE FOR SOFTWARE SWITCH REGISTER

' THIS ROUTINE IS ENTERED ONLY IF
iCMD,

IT Vi

:CYLINDER AT
:RETURN IF

iRETURN+2 1
035700

010446

32737

010000

012704
004737

012704

1014

000422

e
4
7

883537
15

tRUERR: MOV

005346

MOV

036000

JSR

18:
036000

83878
35764

012704

80%%

00020

8CFMT,HCS1

#BSE22H+8. ,RY
PC, TERRI

4737

2716

R4, -(SP)

MOV
JSR

012704

035770
035772
035776

SKIP OVE

003346
036000

00040
00076
12604

OR NGT LISTED

STED,

035742
035
035

513

BIT

CYL 410, TRACK

BNE

86830"

4737

007354

002346

2%:

MOV
JSR
BR

MOV

036000

000002

MOV

RTS

JSR

38:

BR
BR
MOV

ADD

RTS

BSE ERROR AFTER A WRITE DATA
STED IN THE BSE 1
1

1ES THAT THE

N BSE TABLE,
ERROR

ERROR CONDITION.

; SAVE RY

;CHECK FORMAT
;BR FOR 20 SECTOR FORMAT

;SEE IF ON HARDWARE DETECTED TRBLE
;RETURN HERE IF YES

#BSE225+8. ,RY

if"?% REFUON SOFTWARE DETECTED TRBLE

PC, TERR1
3s

(SP)+,RY

iRE URN HERE 1P YES

;RE;TORE RY
;RETURN WITHOUT JUMPING OVER ERROR

$BSE20H+8. ,RY

PC, TERR1
33

$BSE205+8. ,RY

PC, TERRI

3s
15
(SP)+,RY
82, (SP)

%Rflgl 0_UNIBUS RKE DR PRTE
.P11

10-JAN-78

MACY11 30fl(1052)
éO-JRfl-?B
T VALUE FOR SOFT

Bll

1:25_ PAGE 131
SWITCH REGISTER

'THIS ROUTINE DOES THE ACTUAL COMPARING OF CYLINDER, HEAD & TRACK AGRINST
; THE BSE TRBLE FOR THE ABOVE SUBROUTINE.

0
6811

:RETURN
i RETURN+
036000

021427

177777

terr1:

UND ON TABLE
IF NOT FOUND

cMP

(R4, #-1

;SEE IF ALL 1°'S

SEG 0131

CZR6IED UNIBUS RKGE DR PRT2

CZRBIE.P11
6812

036004

10-JAN-78 09:43

MACY11 30A(1052)

23:5 §¥§w
16

00140S

6821

BEQ

téear

000
7
336839 Bageds oo

oae::az 007364

2s:

036036

000207

3s:

721

5040 00S037 001372
sggg 8353-«
005937 oo%sao

Cll

PAGE %g;

SEQ 0132

CMP

énqu,uoc

;BR IF YES,

TERR1

:8& TRY AGAIN.

?S?

036026

§§§ 8&835
wg

000

1l:

GET VALUE FOR SOFTWARE SWITCH REGISTER

saia ossogg 022337 007374
ggi;

10-JAN-78

4T
cm;

(RY)+

(ELSE ADV TO NEXT CYL WORD

.SP)

(R4)+,HDA

?fnm

RTS

;sss grYsecron & TRACK MATCH

Egn *RY Sénm

'ROUTINE TO TURN L OR P CLOCK INTERRUPT ON
CLKON: CLR
TIMUP

TST

NOT ON TABLE

: SEE erch MATCH

PCLKF

CZRGIED UNIBUS RKE DR PRT2

CZRGIE.P11

10-JAN-78 09:43

6831
6832

001004
012777

000100

11:25

PAGE 133

SEQ 0133

GET VALUE FOR SOFTWARE SWITCH REGISTER

143246

8IS0 Wz 1umm

18:

RNE
5?;

18
oxoo aLKS

aaaucu IF P-CLOCK PRESENT
L-CLOCK, ENRBLE INT

RSV\"

n15$apsg

RTS

000207

10-JAN-78

MACY11l 30A(10S2)

NnbLE 1NT c UP REP INT

LINE FREQ & RUN

IKW1l-L & KW1l-P INTERRUPT HANDLER
6840

036100

58"%

036104

EAYY

00S037

001372

001370

fis:m

001366

e8ue
Ei@
@2 001372
6847
0361
6E49

Bl Gl R oS
s Giiss B0%6%
6853
2

036142
10

154

005077

143160

143144

000207

6ece

18:

sel

+?nup

RTI

;SORRY, TIME IS UP

{ROUTINE TO TURN L OR P CLOCK INTERRUPT OFF

ALkOF:

18:

PCLKF

TST
BNE

;BRACH IF P-CLOCK PRESENT

CLR

gLKS

RTS

:L-CLOCK, CLEAR INTERRUPT

:P-CLOCK, CLEAR INTERRUPT

SSKS

GENERATES Pnaxrv on THE EXPECTED MESSAGE

géBACK ;3 35xc),

R s TPl e
1 NS}
1

AN EVEN # OF 1'S ,THE PARITY BIT IS
;ggtage- “81027} Mok
,xr"?

cace
6873 03156
836162 01004
012700 000021
gg;s

036198

0361

S001

6874
6875

036172
036176

006137
103001

O&Efi

sapnn:

007412

1 2

032701

03cese D062y

ggx

MOV
CLR
cLC

18:

ROL

2s:

ésc

agg
NE

BIT

000001

el gesis gyg; —
6885
6888

u! COUNT

DEC

| fre

eas

6884

MOV

‘%‘sfim“g“m’%;g"""fi”x““r"x
TERCH
’3”5
7 ROTAT
TT
N

nggs

Y=
gaao

TIMUP

686
B86Y

(e
&2

CLR

' THIS ROUTINE

6860
686

6871

lLock:

3%:

ENE
I

MOV
29§

g?,-gsg;

017.,20

TEMP1

né
1

#BITO,RI

3
#M.PAR, TEMP1

(SP)+,R1
(gp)+'RO

; SAVE RD

COUNTER
SHVST
: COUNT # or 1'S IN TEMPI

:CLEAR cnn

;BR IF CARRY CLEAR

SHYFT counrén

gfl IF o?? }n RO
ET Pnn v BIT

iRESTOR
RESTORE no

10-JAN-78 09:43

036260

10-JAN-78

11:

GET VALUE FOR SOFTWARE SWITC

1403

3716

BEQ

001110

18:

000002

3“4

TIPE
TsflEw.s LOOPING ON INTERMITTANT ERRORS
HY e Thac Y OTHER THAN SCOPE ROUTINE

001000 142702 &coPis: BIT
#SW9,
ISWR
B3777
Boone
737 001103
TST8
SERFLG

036254 011637 001110

29}/

SLPERR, (SP)

MOV

(SP), SLPERR

RTI

ON snaom
e
*HAD ennom
:BR IF NO

:SET LOOP ADDR FOR TIGHT SCOPE LOOP

mrs ROUTINE IS ENTERED BY TYPING A comnm.-c

1T ;s USED TO ALLOW THE OPERATOR TO HLAT THE CPU WHILE INSURING
msa cnsaos ARE LOADED & FORMATTING xs vnuo BEFORE ACTUALLY HALTING

036262 022626
Y

CMP

(SP)+, (SP)+

;RESTORE STACK FROM INTERRUPT

034214

JSR

PC, SUBCLR

737 007336
14 ;
57
000042
1403
"Sé 045775

TST
BEQ
TST
?so
YPE

UNLD
35
42
15
égsc;ru

;CERR AFTER

;SEE_IF HEADS UNLORDED
NO
ses IF MANUAL OR AUTO MODE
MODE
R IF
GM ABORT
PENDING

TYPE

, MSG7S

;mu.r PENDING

JSR

PC, SUBCLR

MOV

737

836250 04034
?

NN
£ W

MACY1l 30A(10S2)

SEESRRenRs3855&R333888DDDD
38

.P11

LAl Al Al Al Al LA AL UL AL AL AL AL AL AL AL AL Al AU Al Al Al Al Al al alal al ali
DD DD D DOD DD

&toP:

104401

046043

8%353

083733

034214

ERROR

24’

syS8

QiA

RORR

SU‘
22 ?

O_UNIBUS RKE DR _PRTZ2

1040

012737

004737
104121

832
355

8637 7

354

1040

ERROR

000011

007354

1414

007414

032224

737

032634

036356

00S037

007336

362

737
Y

007340
007342

036374
836402
036410
036416

013768

012765
012737
004737

|
001292
000013
032224

JSR
ERROR
MOV

000000
000010
007354

;CERR AFTER SCLR

PC, DOCMD
121

#SRTSPL , HCS1

;D0 START SPINDLE CMD & GET CONTR RODY
:RDY NOT SET AFTER ST SPIN CMD.

1100, TEMP2

;;srur r;neour

INO ATTN AFTER ST SPIN CMD.

JSR

PC,FATTI

CLR

UNLD

BEQ

1ST
INC

BADHDR
4%
HPEND

MOV
MOV
JSR

occua nxcsuasy
sRECAL , HCS1
PC, DOCHD
;D0 RECAL CMD 3 GET CONTR RDY

ERROR

3%:

MOV

SUNIT.RKC32(R8)

iFIND ATTN

:SEE_IF HEADERS VALID

iBR IF YES

SEQ 0134

cznsxco uuxaus RK& DR PRT2
CZRGIE.P
2

6945

3
3
694
694
[3

10-JAN-78 09:43

036422

104124

Y4
Y4
vl
Y4

g
&

6964
ggg;
696

6968
6969
6970

6971
g ;

838583
001406

032634

032224

S22

104154

036524

000137

031174

737

000042

ggg

533
gu
g

036556

036564

036562

10-JAN-78
11:255 PAGE 135
GET VALUE FOR SOFTWARE SWITCH REGISTER

000026

MOV

007402
007414

6M4S:

1410
o440

4s:

100
1540

104401

046122

000137

013356

; SELECT WORD 1

;nr; NOT SET DURING RECAL CMD
:SETUP TIMEOUT

MOV
MOV

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

;DRIVES

JSR

PC, DOCHD

#CLEAR, HCS1

iNO ATTN AFTER RECAL CMD

:D0 DRIVE CLEAR CMD 8 GET CONTR RDY

ggn

151

:gtrsrnrn

INO RDY AFTER DRIVE CLEAR CMD

ERROR

154

;ATTN NOT CLERRED AFTER DRIVE CLEAR CMD

IMP

FORM

;WRITE VALID FORMATS

;SEE_IF MANUAL OR AUTO MODE

1ST

BEQ
TYPE
CLR

TYPE

HALT
JMP

6379

(RS)

PC.
g;rn
Z,HMR2
g
10r;

:FIND ATTN

CLR
JMP

5%:

81,RKMR]

SEG 013%

:RDY NOT SET ~FTER RECAL CMD

ERROR

124

Jgg

MOV

1176
031512

000000

007354

032602

37
000137

JSR
BIT
BNE
ERROR
MOV

ERROR
000000
000010

;

£3

6975

000001

01
1

MACY11 30A(1052)

ERROR

sggé

1
Y

295

?
1001
3;44

F11

5§
MSG76
$EOPCT

:TEST FOR ATTN

'BR IF MANUAL MODE
:PGM ABORTED
'SET UP EOP TO EXIT TO MONITOR

SESCAPE
SEOP1

;ABORT PGM

MSG?77

:CPU HALTED

STS

;START OVER IF CONTINUE PRESSED

ggg?

.SBTTL

6982

6983

UNEXPECTED TIMEOUT HANDLER

ruxs ROUTINE IS ENTERED IF THERE IS

6984
6985
69

6388
6989
S
011600
6990 8325;2 005740

:
:
:

a.
C.

BADTMO:

MOV

;

-(RO}

BNE

8355

032777

gggg

036610

010046

MOV

6996

036612

104403

TYPOS

6998

036615

000

BYTE

36602

001005

6993 036604 104401 046303
£997

036614

142336

TST

sqgé
9

020000

NON EXISTANT MEMORY
BOUNDRY ERROR
STACK OVERFLOMW

BIT

TYPE
.BYTE

(NO SSYN)

? BEFOR§ UPDATE

(SP),RO

snvs WHERE TIMEOUT OCCURRED.

#SW13, ISKR

xnuxa T

EM3

RO, -(SP)

YPOUT?

DON’T TYPE

neohr
Tssrs UNEXP T.0. @ PC=
"rvps RO FOR TYPEOUT

:I 0 TYPE--OCTAL ASCII
O

‘TYPE & DIGIT(S)

. SUPPRESS LERDING ZEROS

C%EEIEO
UNIBUS RK

DR PRT2

10-JAN-7!8 09:43

§’£§é: 1
U N—

142314

142252
040000

142276

000000

18:

TIMEOUT HANDLER

giuq.asua

JMP

JSLPADR

cng

28:
;

T
géo
RTI

38:

HALT

Gll

11:25

PAGE 136

SEQ J136

;LOOP

RROR"

(SP)+. (SP)+

:£S Rssroaz STAC

#SW1Y, ISR
3% ;

0P oN TEST?
||
:n§°8a23cu
:
;
YES

,*o tocg xnc noon
gr TEST

xzsgrsg TIME OUT OCCURRED

CA so vou cnu LOOP ON

T OR INMIBIT

sux TCHES.
036650
036652

CMP
IMP

022626
000137

012737
011637

DNV LW

XPECTED

1?—.!9!1-78

ERROR rvpsour av ssrrxnc THOSE

SRRERRS

NNNNNNNNNNY

036646

001000

MACY11 30“(1052)

001176

032777
00

142234

(SP)+, (SP)+
sEoP1’

RESTORE STACK
:ABORT TESTS

.SBTTL

MEMORY CHECK ENRBLE TRAP

MEMERR:

MOV

18:

ERROR
CLR
BIT
BNE

RTI

#1S, SESCAPE

(SP’ g

i GNERP MEM PARITY TRAP

#SW9, ISWR
28

CHECK IF

#STACK, SP

:INIT STACK

SESCRPE

2%:

MOV

.SBTTL

RKO& INTERRUPT HANDLER

INTER:

NOP

JMP

;SAVE PC WHERE INT OCCURRED.

TST

-(RO}J

cs;
PC BEFORE UPDRTE.

MOV

RO, -(SP)

.,snve RO FOR TYPEOUT

TY$?5

‘BYT

.SBTTL

;LOOP ON ERROR

TYPE

044550

JSLPERR

t Rgnc

LOOP ON ERROR
STACK AND TRY AGAIN

MSGE

: INT

AT PC=

,,rvpe PC
iGO T PE--OCTRL RSCII

::supsngsg LéflDING ZEROS

POWER DOWN AND UP ROUTINES

; POWER DOWN ROUTINE

036754
03&762

012737
000000

036766

000024

S$PWRDN:

nng

#SPWRUP,PWURVEC

;SET UP VECTOR

CZRGIED UNIBUS RKE DR PRTZ

CZRGIE.P11
;g;

10-JAN-78 09:43

036764

7DEE

036754 000024

;osg @fi EDé: 044740
001130 880852

$PWRUP: gzg
CLR

18:

MOV

037034 000137

;3;?

037040

PAGE 137

{HANG UP.

cr
fgp

015446

%P"WS
E‘s’sr
P:ouscn DOWN VECTOR
:PRIORITY 7
VEC+

MOV

sPR7

JNP

PFSRT

$PWRCT: O

000000

7072

'oxvxsxon UTILITY ROUTINE

7075

Ro-nx-n;-n:a:oxvmeno

;°;7
;§;§

Ra R
n RFTERR °5¥§?53"
:ENTE fi'fiu Ssn PC,M Sfo

7076

f
708
4

R4-RS=D
-R3=

83;835
os;oso

711

71
71

;oea
oagfiw
70
71 s
7101

7102

;igg
71

1601

7104

818-7432 000040
010546
-

;833
7094
7

ng“

0371

037126

037132

sg 000002
1

o —

066600

000404

00SS16
005716

aSP,R1

i:(’sm

no#

" ROL
ROL
TE

His 000002

R2
RI

aspP

PP
S—
: IF _CARRY THEN OVERFLOW HAS OCCURRED
:THIS IS A LONGER LASTING CARRY BIT

; TEST cnnnv moxcmo

gn.g

s(sm,m

gégmx

cl:u-:ng SP
FOR figrmr’?h R, S

ADC

aspP

'SET CARRY

M.DP42

ADD

M.DP41:

8%p)
RO
M.DPSO

c?uggggnron DIVISION CYCLES
r° gn%n
ro THE STACK

ADD

ADC

000004

330,@3@)
RS(S';;SP)

I
ADD

A05
BCS

037144
037146

f.0PID: ngg
noz

006101

A%
Bix B
nge ognwg 323403
7109
7110

:WAIT COUNT FOR TTY

7073

;ggé
7083

sWAIT 82’7 FOR INCR
TTY
Eougfr

:83
'g?&}"”
c+2
:Igén;ogz
?EL
%msnnuprs
FOR
TRAPS
FAIL
3
:REP
;EEET

11:25

;POWER UP ROUTINE

8&?& %gis 8378:8
1

;

10-JAN-78

POWER DOWN AND UP ROUTINES

000776

;

MACY1l 30A(1052)

ADD

=
ngo

M.DP42: ADC
TST

4(SP),RO

RS,R1

o
R4, RO

JsP
JsP

noo -(DIVISOR)

00 SRS

:SET CAR
:TEST me upome INDICATOR

SEQ 3137

£ o !"!M
‘O

D® O

s Pt

Pt Pt Pt s Pt s et

s Pt P

NN NN NN

s Pt Pt

s Pt
e P

s P

WhNN

B BB NP

s Pt

NN NN N NN N NN N

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

8371

7184
ngg
71
037164

%301

:IF 0,FORGET IT

B(SP)
M.DPY0
R3
M. DPY4

:DECREMENT CTR
:BR IF MORE TO DO

103404

DEC
BGT
ROR
BCS

5500
00
41

ADC
ADD
CLC

RO
RY, RO

ggg
%osm

006103

8372m

000242

BEQ

037210

037214
037216

ADD

000207

062706

000262
000207

INC

000006

337533 062706 000010
37206

PAGE 138

3371

71
83"7
7174

I11

MACY1l 30A(10S2)
10-JAN-78
11:25
POWER DOWN AND UP ROUTINES

000006

M.DPY4:

ROL

RS,R1

ADD

RTS

CLV

M.0PS0: ADD
SEV
RTS

:NO CARRY PQSSIBLE HERE

#10,SP

%6, SP
PC

:ADJUST STACK BY 4 WORDS

SEG 0128

0 UNIBUS RKE DR _PRT2

NNNNNNNNNNNNNNNNNNNNNNYN

nnNLLLr

;a;;;;_hhszhhzqz_;h;b;;gdgfi33522322332§322222223§2332222
RN
N RRRR A A A R A
e Re

.Pl11

10-JAN-78 09:43

MACY11l 30A(10S2)

10-JAN-78

SCOPE HANDLER ROUTINE
.SBTTL

J11

11:25

PAGE 139

SEQ 0139

SCOPE HANDLER ROUTINE

uununnflnnunnnunuu"uunuunnnunnnu:

hnxs ROUTI

; ¥AND Lgsg

: #AND

$0NTROLS THE !F NG OF s¥arssrs IT WILL INCREMENT
Nunasacg smm INTO

.gm: sxlmcu OPTE

;.suu =]

LOOP ON

037232

000416

D372

037234
7240
7523

001114

040000

141710

000004
737
037260 000004
g 177060

7256 000%3

;gg

000004

868323 —
15547

000400

141642

037

657737

141634

001102

;

037
037310
731-4

;

;335

qg;
1057
wg;

1237

37
1

837374

37
ogfl

03741
037412

037420
037426
037432

;

004000

3%:

001216

013737

105237
113737

000001

03746
001102
001102

001104

001174
001214

(NOP=240)

A
TRUCTION TO

$SvLAD

MOV

ggc

(SP)+, 98ERRVEC

n: sna vecvon

GO T0

Es"ii'és.'é“ . ,;c E‘T'R T éarren n TIME OUT

7? !

” SiL :onE

SRESENTEST

JSWR, STSTNM

iON

THE RIGHT TEST?

SWR(7:
0>

?sg
STB
BEQ

ggv;h
RFLG
gg

iBR_IF
1HAS AN
..an IF _NO

géo

fo:énoq.asun

"anooér%ERROR?

CLRB

izm

..zsao n: ERROR FLAG

..s

BNE

.,?n }r

BEQ

ggv
CLR

BIT

TST

52
001104
023737 001174 001104
012737

;;;r RUNNING ON THE ~xon~ TESTER CHANGE

3 THI

a:g
c,~-(SP) ;;savi
CONTENTS
OF THE ERROR VECTOR
85
';:Enkvsc
;;
T
FOR
n
our
381727060
; rfi

c'rrs

4s:

141552

;TEST FOR CHANGE IN sorr SWR
;,LOOP ON PRESENT TEST?

#BIT14, ISWR

MOV
MOV
TST

CMPB

001103

001174

BS:; #8RN8END
OF ggx
coo;08,
FOR3SWR
THE XOR ,,L
fes r%
REBENS
SPEC. TEST?
BIr

13737 001110 001106 7$:

7356

0373

§xTSTR: BR

2%:

33 001103

; ; SCOPE=10T

SOVE
"Y§E IF SuWlY=l
-onuSTRRE”; OF coge
FOR THE XOR YESTERuusus

232 001000 141604

7§§ 1
7

001103

001115

Le
SCOPE
$SCOPE:
CKSWR
1S:
BIT

5%:

D3772

LOOP ON TEST IN SWR<7:0»

':Efiff"

104407
032777

é BY THIS ROUTINE ARE:

xmxa?'r‘ E Raganons

: %5109=1

037220
037220
: gegs

THE DISPLAY REG. (DISPLAY<7:0>)

FLAG (SERFLG) INTO DISPLAY<IS:08>

RMAX , SERFLG

"GCEER-’U’“’"
TIME

#BIT11,3SWR

PASS

INC
CMP

SICNT
;nnss,sxcm

MOV

$MXCNT,STIMES

18:

BGE
MOV

$SVLAD:

INCB
MOVB

OCCURRED?

,.Bngx.rsmons FOR THIS TEST OCCURRED?

::SET LOOP ADDRESS TO LAST SCOPE
cg

numca

F érgmmous TO MAKE

:: INHIBIT

i3 1F

: : INCRE
: : CHECK

mfmmous

?r xremmons MADE

OVER
#1,SICNT

1iBR_IF
TERATION REQUIRED
P IREINITIALIZ
He IT nmxon COUNTER

STSTNM
$TSTNM,STESTN

: :COUNT TEST NUMBERS
::SET TEST NUMBER IN APT MAILBOX

;:;SET NUMBER OF ITERATIONSTO DO

o oY

v 53

RoBBIRRESRN283BT mm

011637

83?‘054
7462
7470

127;?
7

037476

003720

83?‘0‘4'4
7450

7474

Kll

10-JAN-78

E HANDLER ROUTINE

001106

583

000001
001102
001106

SOVER: MOV
M

(SP),

CLR
MOVB

l 1;0
001176

s?P

11:25

;ggg

SEQ 0140

VE SCOPE LOOP ADDRESS

::gavsnTHE“;&SSS;“?RSN
Enaon ADDRESS
5 ON NEXT TEST

PRDR, (SP)

SMXCNT: 2000.
.SBTTL

PAGE 140

?gs?"E(
its*fin,aostan,,DISPLRY

RTI

e e e e

e S

NNNNNNNNNNNINNY

037440

MACY11 3(5386'1,052)

ERROR HANDLER ROUTINE

::nax. NUMBER OF ITERATIONS

ll’ililllIilllllllll!lflll!l!llllIlIllllll!lllll!llllll!llllllll!!

‘THIS ROUTINE WI

IN:REPENT THE_ERROR FLAG AND_THE ERROR COUNT,

muo GO

PSOVDED BY THIS ROUTINE ARE:

_TO

ERROR

AND THE ADDRESS OF THE ERROR CALL

;#THE_SWITCH g

HAL ME RROR
xnuxaxr RROR TYPEOUTS
Ob EROR
ON ERROR
LOOP

;lSNIS-'-l

:%5W13=1
; ¥SW10=1
=:§£E“

‘¥
SERROR:

001103

032777

002000

78:
’

001102

0375

(S =

T
o

000001

004737

040424

g7eos odlo
037614

001205

2737

777

005777

141310

37636

0327

001000

037652

37660

iy
013716

001230
037620

208:

001176
001176

Tne
BEQ
g?¥

RFLG
"§E§Trfiga
SN
CFLAG GO
SOFT-SWR
TO ZERO
THE FLAG
LE§Tsaonuunaen
H
;g
AND ERROR FLAG
$§;Tg,gg£§Pan gEspLav

MOVB
T$PE

3?4E
INSTRUCTION
SS OF ennoaERRORS
3£Pc
xrsna ..g§§P
,.srn P;vpsgg;
AND v§
rns ERROR ITEM CODE
F SE
cax 13, 9SWR
SE;;EFERR
;16O usE 2non ROUTINE

CMPB

SAPTENV, SENV

BNE

MOVB
JssT

s
’

§§7§2‘0

BIT

TBYT

B
(sp) ksnapc
’

xrsna 218
SATYY

22%
JSWR
33

; ;RUNNING IN APT MODE
: iNO sx*rAPT ERROR REPORT

::SEY ITEM NUMBER RS ERROR NUMBER
: iREPORT FATAL ERROR TO APT

: ;APT_ERROR LOOP
,;anr ON ERROR
1iSKIP IF CONTINUE
:HALT ON ERROR!
:1TEST FOR _CHANGE IN SOFT-SWR
;;LOO?FON ERROR SWITCH SET?

3%:

BR
TST
BPL
HALT
CKSWR
gég

Ys:

ggg

SLPERR,
(SP)
ggscnpt

;;Ffiocs
ggrunn FOR LOOPING
;;ggegg ;855“" ESCAPE RDDRESS

MOV

SESCAPE, (SP)

: 'FUDGE RETURN ADDRESS FOR ESCAPE

228:
2s:
141274

: s ERROR=EMT AND N=ERROR ITEM NUMBER

ERROR

e
INC
gsg

18:

e P

6688

105237

37502

lelel

0_UNIBUS RKE DR _PRT2
.P11
10-JAN-78 09:43

MOV

:gxroe.asun

IER s
TMS B
CTRE

"7 BB

75“3 NS T e SR
7243

OODDOD

gg 832878 ooooo2

:°“
T

7264

037700

105737

o i
03771

Bl
707 837750
7874
0377
7873
83758
7578 O37798
72
7794

7287
7%

755
729

;29-1

TYPE ROUTINE

::gfinuél RPTO-RCCEPT’
,,YES

SFILLS CONTAINS THE NUMBER OF FILLER CHRRECTERS REQUIRED
SFILLC CONTAINS THE CHARACTER TO FILL AF

*C ALL

7564
7§2§

;

.SBTTL

att

!1) USING A TRAP INSTRUCTION

7260

H NOTE3s
"

7
7
7283

lNOTEE'

7
7§§g

7278
7279
7280

SSENDAD, 3042

lTHE ROUTINE HI&L INSERT
R _NUMBER
OF #
CHflRACTERS AFTER
A LINE FEED.
Q0 BE
USED RS THE FILLER CHRRRCTER.
i ¥NOTEL:
L _CONTAINS THE CHARACTE

7254

gre

SEQ Q1v!

lllllillllllllllllllllllll!ll!lllllllllllllllllllllilllllllllll
iAo
NE_TO TYPE ASCIZ HESSRGE
SSRGE MUST TERMINATE HITH A O BYTE.

7825

7265
7e6b

1:5% P 1

Rl B

037664

037674

L1l

7750

gg;;g
83%25
037766

040000

001157

TYPE

TYPSOR

$TYPE:

TSTB

&
BR

DI
oo
iy
éa
838301 001230
CMPB
118
13894 000100 001231
B
010037 037750
ROV
869937 S-m-uw
JSR
000000
132737
1003

000040

628:
2s:

005726

122716
éu

001231

61%:

Sa—
000011

ng:

-t

ys:

FEAD
S—
726

3 g?

040156

5%
GO 00V
gwoue
7298 040040
1350

MOVB
BNE
TST
v

CMPB
BEQ

ENE"
TST

. WORD
BITB
BNE

TYPE

SCRLF

s’

CLRB

IR
NE

, MESADR

; sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

STPFLG
18

;1S THERE A TERMINAL?

ovm

..{%

A
B9tss5
onprsnoagew

HERE

IF NO TERMINAL
SS OF RSCIZ STRING
N APT

TSPOOL SENVH

CONSOLE

pS $itva
D

oaPTcsup SENVM
60%
(RO)+,~-(SP)

(2P
)+. RO
og,(s#)

#HT, (SP)
#CRLF, (SP)
5%
(SP)+

SCHARCNT
23
PC,STYPEC

gFiLLC (SP)+

RYPES
ONTO STARCK

,.IF TERHINGTOR POP IT OFF THE STRCK

::55 .’,8‘%‘.,29[,,, PC
;;Bflflflgs IF <HT

; ;BRANCH IF NOT <CRLF>
,,TYPE AR CR AND
LF

; sCLEAR_CHARACTER COUNT
; sGET_NEXT_CHAR CTER
;GO TYPE THIS CHARACTER

;3IS IT TIME FOR FILLER CHARS. ?
IF NO GO GET NEXT CHAR.
;s

CZREIED UNIBUS RKE DR PRTZ
CZRBIE.P11
10-JAN-78 09:43

; g

040042

013746

001154

7301

040046

10S366

000001

DECB

1(SP)

; 1 DOE

BSCB

’SHMCNT

,] 08°PNOT CMT RS A COUNT

MOvB

8’

; sREPLACE_TRAB WITH SPACE

7309

040066

112716

000040

8s:

;315

mxg

105777

141032

STYPEC: T IB

;319

moias

122766

000015

000002

4y
766
7385 Badidd
ABTIES

000012

000002

7319

;§ 000002 141024

;gg fifiis 1 02 040156

7352
baoaa0
Fz Dugise
BiBies oRR2

éfia
TST
8

MOVB
CMPB

ggfig

1§:
..

SEQ 0142

,.QE."S
8 OF FILLER CHARS. NEEDED

Wome

;HORIZONTAL TAB PROCESSOR

?giz Wfi
fi;gig
800087 ouoise
1
1372
231q 848178 883255

PRGE 142

SNULL, -(SP)

B
B s
0156
guq %;;D

;

11:25

MOV

78:

;fi

M1l

MACY1l 30A(10S2)
10-JAN-78
TYPE ROUTINE

MPB
Sza

,(SP)

"SicuSSEm
; §B§

JSTPB

#CR,2lsP)

gv%gm

F.2(SP)
$rbeessr

HmcmNeoro fe
o °*
BB

| BR

10 BE TY

::g&;fl}“fisr AT
P
He
g RAR

$sWAIT UNTIL mmsn IS RERDY

:;L0D CHAR TO BE TYPED INTO DATA REG.

;IS cuamgren A CARRIAGE RETURN?

::vg' ";'-cculmugmmcrza COUNT
s

TER
A LINE FEED?
i ARCHARGETERA
LINE
FEE

GO
T R TER e
H

;‘;_

.SBTTL

g?
7332

$ lllll!lllllllll!lll!i!llllllll!lllll!lllllilll!lllllilllllillil
hms
TINE IS gs: u-mgz x?- T gmmv NUMBER TO A S-DIGIT
;sx
cxm. ( x) NUMBER AND
1T. DEPENDING ON WHETHER

7331

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

7333
7334

unasa ssxr
OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
'EE
o%
&xr
OF THE NUMBER. LERDING ZEROS WILL ALWAYS

7337
;%

‘¥
;;

;%35

7342
734
7344
345
7

040164
3:01
01
1
749

734

010146
010246
010346
1054
1&
Ol

7348 040308 009908

'rvPos

$TYPDS:

7330 833155 010046
0200

0020

MOV

2%:

Nun,-tsm

: ;PUT_THE BINARY NUMBER ON THE STACK
1:G0 TO THE ROUTINE

RO, -(SP)

; ;PUSH RO ON STACK

MOV
MOV
MOV
MOV
MOV

R1.-(5P)
R2.-(5P)
R3.-(5P)
RS’ -(5P)
ogba ,=(SP)

: 1PUSH ng ON gmcx
1:PUSH R3 ON STACK
;;Pu;?n nw STACK

NEE

iR The BINAR

MOV

BB IR s oo |,
7385
Ouossa 113703 Bodous
7354 040230 00S002

ED ux

20(

,RS

M B
HOVE
CLR

BToCRA)S

:iPUSH R1 ON STACK

;;gi

;;GET

THE I

pcu
nng SIGN

R pOS.

R FE WP

"EE}“’T’HE"EU;ST
EHARRCTER O A BLANK

::ct.snn THE BCD NUMBER

3 22

NNNNNNNNNNNNNNNNNNYN
a: NNUNNNNNNNNNNY
WWWWWL
BRSE3S Jfnia REA e L
N mm

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

D232
.

016001

N1l

MACY11 30A(1052)
10-JAN-78 11:25 PAGE 143
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

040366

6663

000001

0040

ggooso

177777

16&3?3
15315

177776

1260

15805
§§8§§§
8652
0
4401
83§

364

83 3

16666

15363
833u28

040376

000002

000004

38175

g DO'?

THE

Bgc

ADD

BCC

TST
fote

R1,RS

R2’
(5P

B 68N

MOVB

63:

BIS
BIS
MOVE

8s:

177777

;;GET THE CONSTANT

R1,RS

4§:

552 000010
64

$DTBL (RO),RI

SUB

?LT

78:

18355§

gggggg

MOV

3%:

9§:

1(SP),~1(R3)

#'0,R2
’
R2,lR3)+

:: INCREARSE

THE BCD DIGIT BY 1
CONSTANT

;;SEEcfl EF aES DIGIT=0
1950, 'DOING LEADING 0'S?

e
1F VES
::BR IF
;;ves--§£

THE SIGN

:MAKE
THE BCD DIGIT RSCII
:iMAKE IT A SPAC ér NOT RLRER?Y A DIGIT
$IPUT THIS CHARACTER IN THE OUTPUT BUFFER

éfi“:Io
2s’
RS,R2
68’
é?”‘

=§ NEQ# &D c5$ INDEX
-pi L IR
i
e L ASCII
::GO
cuaucks?o
Egggsxgus LSD THE FIRST NON-ZERO?

MOVB

CLRB
MOV

~1(SP),-2(R3)

;:YES~--

MOV

(R3)
'
(SP)+,RS

Hov
MOV
TYPE

(S5P)+.R3

3T
(§P)+'n6
$DBLK

::POP STACK INTO R3

INTO
AL
::11000
1NOW
POP 2TAcK
§788x
NTO
RO
vp; THE NUMBER

MOV

2(SP),4(SP)

29¥
sl o
$DTBL: 10000.
$DBLK:
LK:

::FORM THIS BCD DIGIT

e
BLT
Rov
BR
53{3

1000.

mgg;u 0086‘1'3

SEQ 0143

ign.
.BLKW

: IADJUST

THE STACK

RETURN TO USER

040376

000004

8:05

112737

000001

040652

thTYé:

novg
ESV

gé?YgFLG

ox.;rrLc

;;TO REPORT FATAL ERROR

112737

000001

040652

gg;;g:

MOVB

#1,S8FFLG

;;TO ONLY REPORT FATAL ERROR

MoV

RO, -(SP)

; ;PUSH RO ON

040650

ggga

ggth

000100

BNE
BITB
BEQ

33
::IF NOT:
BR
$APTSPOOL
, SENVM ; ; SHOULD SPOOL MESSAGES?
33
::IF NOT:
BR

ouég

zg;

.SBTTL

000001

040650

1 19;

6§573

40452
040454
040462

001031
132737
001425

8:8:34 1 5739 000001 001230
001231

THE SIGN
FOR TYPING
;§§E§
TEE
TERMINATOR
::POP STACK INTO RS

APT COMMUNICATIONS ROUTINE

o o 53636363636 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 36 36 3 36 36 36 36 36 36 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 3 3 3 2 3 % X X%

SATY3:

MOV

CMPB

Rl -(5P)

SAPTENV, SENV

1370 TYPE A MESSAGE

:PUSH R1_ON

STACK

;;suou%o TYSS A MESSAGE?

: OPERATING UNDER APT?

SEQ 0144

001224

18:

es:

T1ST8

; ;GET MESSAGE_ADOR.
:BUMP RETURN ADDR.

15 DONE W/ LAST XMISSION?

1577?6

; ;SUB START OF MESSAGE
;sGET
MESSAGE LNGTH éOWORDS
,,PUT LENGTH IN MAIL

q
w

NEN

; TELL APT TO TRKE MSG

oo1210

040562
000004

; ; PUSH 155576

:iCALL TYPE MACRO

037700

BB 5

o40652

001230

$MSGTYPE
S

001210

éfl(SP) SFATAL

oole
000004

4(SP)

128:

TYPE

CLRB

REPORT FATAL ERROR?
BR
; IF NOT:
"RUNNING UNDER APT?
BR
;3 IF HOT:
;}NISHED LR?T MESSAGE?

hfinfi'faruo
TzlE(E snnggm
mm# &nc
-

LOG L
sncsormc

: :POP gr%x fmo
; RETURN

—

LBOX

; sFINDSF
END MESSAGE

oo1224

001226
000004

ur-m

.,xr NOT-

121

000004

—

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

,.NESSG. FLAG

;;LOG FLAG
; ;FARTAL FLAG

APTEPOOL=100
RPTCSUg
0
.SBTTL

BINGRY TO OCTAL (ASCII) AND TYPE

llllllllllli!llllllllli!lill!lllllilll!llllll!ll!!lllli!lllllll

THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
*OCTRL (ASCII) NUMBER AND TY TYPE IT
!gEEPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

MOV

.BYTE

i¥
;¥
i ®
; *
s ¥

TYPOS
.BYTE

NUM, -(SP)

;NUMBER TO_BE TYPED

,,CQLL FOR TYPEOUT

;3N=1 TO & FOR NUMBER OF DIGITS TO TYPE

jiM=1 OR O

; 1=TYPE LERDING ZEROS

,,O‘SUPPRESS LERDING ZEROS

——

; ¥8TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

CZRGIED UNIBUS RK& DR PRT2

10-JAN-78 09:43

CZRGIE.P11

2967
7468

MACY11 30A(1052)

; ¥§TYPOS OR STYPOC
' %CALL:

L
¥

PAGE

MOV
TYPON

NUM, - (SP)

Pkt
v
e
TYPOC

NUM,-(SP)
;

145

SEQ 0145

: ;NUMBER TO BE TYPED
*!CALL FOR TYPEOUT

! ¥§TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

STYPOS: MOV

geo

040654 017646 000000
22

7477

242

'y,

11:25

BINARY TO OCTAL (ASCII) AND TYP

7469
747

A
;:;;

10-JAN-78

Cle

é; 000002

3(SP),-(SP)

Esc''HEEE%R10_BE_TYPED
TY sou?
s ;PICKUP THE MODE

10 TvPE
iéfi??%&u P RORBEROF DIETTE

: §

: ADJUST RETURN ADDRESS

i8S M
o éim
11573, 000005
DoOOO 041076
T STYPON:
STYPOC: gsgg
OrE
gg

S SOMOBEL
g:s?gg;

. iSET FOR
S1X(b) DIGITS
COUNT75'5 flsn&xgu
'g\k

;‘Oq

Wl,m

5522‘7"7“&5 NUMBER OF DIGITS TO TYPE

;:as 040724

010446

noz

13704 041077
0000

MOVB
MOV

83832 919‘0’3 04110.

R
g
7482

7
M
% 006105
7477:95

% g}g

;ég? 838;;5

g&s

7505

1010

wéa

18:

2s:

105

3s:

105337 041100

53968 177770

;sg&m rfig DIGIT

Rg'

CLR
RgL

i
5RS (SP) RS

DECB

;gnooe

;;Tvpirm S DIGIT?

BNE

4§

:3TEST FOR
O

%'0.R3
8’ .R3

ROL

#177770,R3

?siu fiio-m figé«?
Al
B Rl
7518 041054 012605

7%:

ag ag$§OCNT
i
MOV
(SP)+,RS

5258
fii106
2l
7522

041070

§i§:a
16666
012616

6S:
000002

000004

THE OUTPUT WORD
55cn.2nk’
;;norgg: MSB INTO “C”

ss e

a'x‘g
BIS

NI R

DEC

nov
MOV
MOV

2R
Rd

2(SP) 4(SP)
(SP)+. (SP)

mioe

;;SET THE gn? FILL SWITCH
NPUT NUMBER
T
PIPICKUP

5%:

Blboor
SOFILL,RY

2209
7510 mioég
8318?3 g%g% 000060
8900-40
1076

B?E

1002

RH,-(SP;

;;GET LSB OF THIS DIGIT

EE@T RID OF JUNK

0°
;”mx'rrm
1 MAK
? BEeIT
ir NOTBecrl
ALRERDY
:iBR H‘T MORE1 TO DO
Dl
L gpcp gT @ o
; iRESTORE
RS
HH
.

i1iSET
RE100E
R
THE STACK FOR RETURNING

ESRETE P Y T8 185 5aR 76" 08: u3

Dle

e RN BETAE ert
Rl BB 1
RTI

000002
l‘?ll

.BYT

JUU

SFILE: (BYIE

600

SOHITE: +419"EneuY RouTINE

00000C

i; sNUMBER
OFRO-FILL
SMITCHOF DIGITS TO TYPE

ill!lll!illliilIliliill!lll'll!llllillllllll!'l!illl!llllllilli

TS I ouee
R0
::ourpuvPoxnren

e o
xooui
.WORD O
xggar "BLKB 1

JUUUUU

l‘l‘l‘lll

::TTY KEYBOARD QUEUE

TK.3."5%NEEH?EET??
IZ NDHETURN
TTY ONKEYBOARD
INPUT QUEUE
THE KEYBOARD INTERRUPT

T
TUP THE INTERRUPT VEC

:CQLL Rgum
3
PC, ! STKINT

041104

o gl
7552

1140

7555

041160

$TKINT: an

000062

ggv

5gfl@?2 ::i i?f
a;ggéaoixvcc+e $3"BR" L

RTS

ngv

13776M

; #TK

:Tux

; ;CLEAR couur or xtsns IN ousuc

o*rsosa;?srxa*u : s MOVE THE

avxgi
ROUTINE

ROU

HILL
HE

ISTKS

" POINTERS
ngoncgUTg

T”E stgonso ¥

::EhEEEEQ?txtegonno INTERRUPT

; iRETURN TO CALLER

RVICE THE TTY KEYBOARD INTERRUPT
CHARACTER FROM THE INPUT BUFFER AND PUTTING

;xr gnnggguin
IS A “CONTROL-C" (#C) STKINT IS CALLED AND
T IS flROE TO THE "CONTROL-C* RESTART ADDRESS (STOP)

22 RERe REBE n

§TKSRV:

137088

000003
042310
o41112

18:

000176

001140

000001

o41102

036262
000007

"?MOVB

JSTKB,

THE CHARACTER
sPICK
JUNK
‘8 gp
fig

BNE
TYPE

13
SCNTLC

BRANCH
i s
::TYPE A

{gn
T

Pt P

99 PPPRPPIIIIIT

B
e e
e
e e

: #UPON

- (SP)
(5P)
09619?
(SP), 83

,,xs IT A CONTROL c?

IF ns
CONTROL-C (1C)

AC, STKINT
(§P)+

--é"é' Tns nggonao
i
5

gnp

égP),o7

xr A OnBROL G?
,,ég

CM
BEQ

#SWREG, SWR
63

118 sorr-sun SELECTED?
::G0 TO SWR CHANGE

CMP

#1,STKCNT

:;1S THE QUEUE FULL?

JMP

sToP

:CONTROL C RESTART

11:

s Pt P P

3s:

000023

P P P

137656

318:

s P

137650

e Pt

l;?&flfl
7600
S

000100

s Pt ot Pt P

]

Tgr

éspn

%lTi

:(:ssp;'g

TQSE

Pt pe

2PPRPRRRPRPRRRRRRTe
PR
~

10-JAN-78

TTY INPUT ROUTINE

PR2 |3

OO0
N

MACY11l 30A(10S2)

137622

80158

32%:

o950
gt

o41111

041110

041104

NN
o

,:nxnc né
TTY BELL

cxthm CHARACTER OFF OF STACK

::fs xrun Eomnon.-s'

1578

gflxs

naovl'a 3$TKB, - (5P)

:WATT fmu

BNE
gg}l

31s
#100,

;:%mc
éi TTY
NO KEYBOARD INTERRUPTS
1 ;m

INC

gtg

MOVB

INC

CMP
5§:

; s BRANC

539),.23

CMP

000175

Bt B Bt Bt Pt Bt ot Bt Bt

aRE

aaELL

SEQ 0147

moEvE

RTI

3$TKS

S$TKCNT
a
), 8140

(SP), 8175
u?
’
#40,

(SP)

(SP)+, ISTKQIN

xoi

,,&x' A8 5
TTY xgvagnno INTERRUPTS
%"sanrmne

;:cgg’n; gmjecTER
:;
i
IT

CHARACTER

R CRSE

4
A
m. CHAR?
£§agmcu
? : g
; ; MAKE

IKO N, 8STKQEND i

RSE

T:E

”s

Nsmzn

#STKQSRT, STKQIi 5E§§er me POINTER
85

RERe £oR0

Pt Pt Pt

LfrLLrrrr

s Pt Pt

PPPPPEEE

Illllllllllilg;ll!lllll!llll!llllllllllllllll!llllll!lllllliill

000176

001140

: ¥ROUT
S ENR§
ER
ussnvf"E
*
OR mCHANGE
IN
;or
W
&
ITCH
néc%sren TRAP
TTY INTERRUP

t
sun-

137530

137524

¥g§8
B
BPL
gxc

aPE

821627
01300

5 *

?x
ucxg?

a?,'.’

H xxr

'r-sun SELECTED

HRITING’
..x?NOT,HflflEXIT
IT 7-BIT RSCII

f?57 ;Sur 17 m’me TTY QUEUE

5 3000000 0000 00 0000 00 000 00 00 00 000 00 00000 00 0000 0000 30000 30 000 3000 000 3036 030 006 003 00 00 0 0

t kCONTR

000001

001135
104401

O423e22

ASSED TO THIS POINT

TTY INTERRUPT SERVICE

GRS,
2ol ot L
.z";os'*és*z.&ecifiazcsflsga
R
?g?
¢oR
MOVB

Sfifz’“’"’
u,s?nma

i Lem"&4 s_? OFF STACK
AT R
AR
LI ICATOR
Sgé?“?‘
NTERRUPT
,,882“?

TYPE

, SCNTLG

; ;ECHO THE CONTROL-G

(1G)

23
EELEQUORD T

OO0

UNIBUS RKE DR PRT2
10-JAN-78 09:43

Foioier Sotalatatet

.P 11

1470

104401

MACY1l 30A(1052)
10-JAN-78
TTY INPUT ROUTINE

042327

000

i
?fi:fig
fm
4Ol 042340
1

} : %fi

@STKB,-(SP)

#1C17?7, (SP)

::mcs T 7-BIT ARSCII

Bigge 000003
10

;gss

“s’cg;t.c

"EEEMECHOgomnol.-c (1C)

g%e

g NTARG, #1

STOP

; ;CONTROL-C
RE

.SCNTLU

i,,vwcg&c?nmo&
RaneHTFONOT
O "Ng(tu)

7746

igu& 65:1’7

’

78:

isxg

001135 000001

01
000100 137360
000137 036262

112?3
1674
1

17
17

171
1714
83171

Ex;
owinu
041740

000737

000015

000100

000065
000067

8s:

652

000004

137306

000001

137264

MOV
JMP

%100, 3STKS

s PICK

CHAR

T ¢
noH 1O

irrg KEYBOARD INTERRUPTS?

"nu.ouTTY xsvaomo INTERRUPTS

208:

TYPE
ADD
BR

k6, SP
19$

(:LET’S TRY IT AGRIN

108:

CMP

ig;).us

g 17 ax:_cmv

(SP) , aSWR

EEEN
::
ma“F 'T«T)}r xao INTERRUPTS?

i’

I5:

000060

igi
MOV

R?‘x’

#100, 3STKS

viOous

::vss 1S ;T"?u: FIRST CHAR?

;;

;sm: TTY KBD INTERRUPTS

1
BLY

fIEF
188 '

cHas
"Em"g
: : BRANCH gr YES

BGT

18%

15T

860, (SP)+

2(SP)
178
(SP)
(5P)

::1S THIS THE FIRST CHAR
,.anmgn }r ;Ss
1INO,
SHIFT
PRESENT
i
'CHAR OVER TO MAKE

a'xas
gvps

;gtsm (SP)
$QUES

::GET %fl:"‘ugxr“gfie
{ITYPE ?<CR)> <LF)>

CHP

BEQ
ASL
ASL

’
18%:

Ziim

B
AR
g'rza figmc,u

BIC

000002

177776
001204

BIC

%i?%
B5165e
0000=s
1253
04401 335362
gizig

gén%coums

MOVE

1230

gta

SWREG F
YPEOU
DIGITS)
nscmm.L
YPE--OCTGL
rfiSWR

137422

lans 177600

041606

-(gg)

- (s
SuREc,
'7'390c
, SMNEW
TYPE

vcg cmnsm comsms

::xrnor"?mrAGAIN

33{?53

19%:

-(SP)

SEQ 0148

9‘ KS

l83::7'5 P

1564

$MSWR

PAGE 148

7ST8

{ %

f 3

$GTSWR: TYPE
v

F12

11: 25

(SP), #67

,.cum >

o}r YES

t: m'"xls F

ASCII

: :SIMULATE CONTROL-U

RIS BT R

T TR Ml 1 PR v

7691

.DSABL

LSB

I RERERERRX 1 312212122 2222222222222322222222222322222222 2222322222222 2]

72%

fizgfi. ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

7239

?
; §3

7701

7702

7783

x
a
0M1742

1744

86?322

44
172 8?39%
96 041766"
7782 1;23
;; 7 g{;& 000002

000002

;;?3 @593 nos;;g o41102

774 %
771% éooo
1 ;gs
771
37
;;*g ggggg 1555
7716 042022 012737
042030

~002

0411

175135 000004
041106
041106 041111
041110 041106

SROCHR: MOV

MOV

ELRv
RTI

18:

EEE

DEC

MOVB
INC
SN"E
MOV

2P
#6498, -(SP)

i8R r'éuNEAOYFON
:PUT
53 ON Srak
“STACK CER

s;xcm

;;WAIT ON A CHARACTER

shes23

843518

2 H

2713

000177

108:

gggég 104410
112613

7;35

1%5

7739
o-czogg ue%r
000134
042264
77
83
owog
m;;gq

:g¥¥¥ffl:§3,aa

: ;SAVE R3

: iCLEAR THE

RUBOUT KEY

g;Sfirrg FOLL?
;s
senoYE 3ne CHARACTER FROM THE TTY
1160

RDCHR
MOVB
CMPB

afis

(SP)+, (R3)
gmv,lna)

égp)

Ezgg ng's‘o THE FIRST RUBOUT?

251’(5',)
U
(R3)

R
P By ORE
s 4 TO 4
::SETUP
TYPEOUT
THE

MOVB
TYPE

7us O4Sise
009716
042130 001406

7746

-(&p)

68:
beC
A
MOV

835}50 ib«& 8:5524

R3,-(SP)

3INPUT B STRING
52%:«2785
quL RORACTER
A BYTE OFWILL
ALL BE0'SON THE STACK

BLOS

7739 O4sio9 Oveany
77
il
Baits Y Dty 1337 oY
774
774

::POP NEW PC AND PS

2s:
RTI
CRET
SRR
I
I
ffigaxf.nounue WILL INPUT A STRING FROM THE TTY

SROLIN: MOV

;;'g 53

KCNT
:s
T
OUNTER
asrxoogr,-usm
;E&?%NTcmficgsn
TKQOU
H
ri THE PO}NCT)ER
i;xoour,osrmeno ::DID HT goNsr
THE END”?
#STKQSRT, STKQOUT' } ; RESET %us POINTER

Him RETURN HERE
‘x

7731
;;33

: SCHARACTER IS ON THE STACK
;iWITH PARITY BIT STRIPPED OFF
; ;PUSH DOWN THE PC AND

7554
;;ga
10

:3;GET A CHARACTER FROM THE QUEUE

(SP),~(SP)

4(sP},2(sP)

7717
7718
;;.%_3

RETURN HERE

011646 .

771

2 RD(f‘HR

799

#'\,98
9s

92 'TM

R - Wy
73

BEQ

: :GET CHARACTER
:; 1S F gonuaour

::TYPE A BACK SLASH

;;25 WPEO

O BRG T OKEY SE T CHAR.

1'BR IF NO

TED CHAR.
e

CZRGIED UNIBUS RKb DR PRT2

CZRBIE. P11

Qu18

000134
O4226M

165?87
104401

—

bt
=
=
)

)

1205
226b

)

::TYPE A CONTROL "U"

000

000
0000
0
0S11

020127

STTYIN:

S B0

'!Tg 3nnnag?§§A "tR"?

oge.(na)

,.cLsaa THE BUFFER AND LOOP

: ;ECHO THE CHARACTER

(R3),9%

kisS, (R3)+

23
-1(R3)

TST

tse)+

nog
MOV
RTI

5(P;S-é(§3)
OS?TYIN,H(SP)

uscx FOR RETURN

15008
LEAR asruannfrgg"xS)
::$v§£A
LINE

(

HE]

;;RETURN
QGS OSR ASCII CHAR.

TO TYPE

22 BYTES FOR TTY INPUT
RESE&VE
;
CONTROL “C"

/fC/¢1S>¢
1>
/7tUs¢1 )(15)

/7tG7¢] )(é >
<15>¢12>/SWR

nuaout e FROM THE STACK
T

;5§8§u8§5
ué STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT

)+,Rg

.BYT
.BYT

.BLK

cnnaactzn

THE 1 usR
TYPExcxur 2:31 éuncrsn

SCRLF
TTYIN

BNE
LR

.ASCIZ

EVEN

uT KEY
A CTRL U”?

&lgou: S

.SBTTL

TER

?5?5
BR

§CNTLC: .ASCIZ
CNTLH
c

SMNEW:

EARR T EE

..gsésn

MOV

00S01S

5, (R3)

33
(R3)

9s:

BNE
LRB

77777
1206

042818

SCNTLU

TYP

2 2
5

i
i

MOV

BR2eEe 806063

o
<
n
W

{SP)

YPE
TYPE

ik =%‘

—

fioers
Y
15

SEQ 0180

CLR

gfipa

3%:

150
;s TYPE A BACK SLASH

YPE

001204

PAGE

#'\,9%

§REB

8%:

000022

11:25

MOVB

TYPE

78:

042315

H12

30A(10S2)
10-JAN-78
TTY INPUT ROUTINE

0Ou42264

00002s

.,CONT oL “u*

/,,CONTROL "“G"

NEW = /

READ AN OCTAL NUMBER FROM THE TTY
0000 0000 06000000000

0 00

iTHIS ROUTINE HILL RERD AN OCTAL (ASCII) NUMBER FROM THE TTY AND

bE
TYPED
m?fiu"&'cx?““"“?’ifismttm
cuEfiSc?En’?s’:’a‘E%‘S HILL
4ro Loggo A CARRIAGE RETURN

L0
L
u\u
J o ol

42362
042364

gue35y

—

042352

- oo

0000

77497
7748

10-JAN-78 09:43

MACY11

000004

000002

RETYPED.

RE?URN HERE

$RDOCT:

MOV

MOV
MOV
MOV

THE

(SP),

INPUT

AN RETR SVESRTRRETESRNORR
BT .

28e8°a“$s"fl"fi‘on TOP OF THE STACK
::“Sfi°0
HIGH ORDER BITS ARE IN SHIO
-(SP)

4(sP},2(sP)
RO, -(5P)
R1,-(SP)

,,PROV DE SPACE FOR THE
.,INPU
NUMBER
; PUSH RO ON STACK

i iPUSH R1 ON STACK

CZREIEQ UNIBUS RKE DR _PRT2
CZRBIE.P11
10-JAN-78 09:43

pioes

7803
7804

MACY11 30A(10S2)
11:25
1 51
10-JAN-78
TTY
THE
M
REARD Ai{ OCTAL NUMBER FRO
18:

000067

R2,-(SP)

MOVB
BEQ

(SP)+,RC
RO,SS
R1
R2
(RO +,-(SP)
33

BGT

CMPB
cHPB

000060

BLT

#’0, (SP)
8’7, (SP)

177770

R1
R2
R1
R2
R1
R2
#1C7,

0000
o42s

BR
TST
MOV
MOV

2
(SP)+
R1, 12(SP)
R2. SHIOCT

MOV
Egv

(SP)+.RI
(SP)+.RO

ADD

3s:

MOV

4s:

001204

5%:

—

$HIOCT:
.SBT TL

TYPE

.WORD

(SP)

;sSTRIP THE RASCII JUNK

; ;ADD_IN THIS DIGIT

: :CLEAN_TERMINATOR FROM STACK

;;SAVE THE RESULT
; ;POP
;
.

STACK INTO RO

ja) TERasGRTOR

;3 TYPE UP T

THE BRD CHAR.

337 “CR" & “LF"

$QUES

DOUBLE LENGTH BINARRY TO

;3 TRY AGAIN
HIGH ORDER BITS GO HERE
OLTAL ASCII CONVERT ROUTINE

o 363036 0000 06 0006 00600 06 000000 0000 000000 0006 00000

:&THIS ROUTI

STACK INTO Re
TACK INTO Rl

33 L;RN PARTIAL FROM STACK

(SP)+

LWORD

TYPE

; ;PICKUP THIS CHARACTER
IF ZERO GET OUT
;3
; ;MAKE SURE THIS CHARACTER
;1S AN OCTAL DIGIT

;%8

(SP)+,R2

(RD)

; ;PUSH R2 ON STRCK
;
;READ AN ASCIZ LINE
;;GET ADPRESS OF 1ST CHARACTER
;;RNDRRRVE sT
; ;CLEAR
DATA
WORD

)

(gpyl,nx

CLRB

dIs1

;%2

ASL
ROL
ASL
ROL
RSL
ROL
BIC

3§3§§§§2§H¥9! SHERNERNezo

222222222PP PP P PP P R R R R R 2
RABRLE
PEERPYRY
[=] FRS
2

WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN

:%UNSIGNED OCTAL ASCIZ NUMBER.

; #CALL
‘¥

MOV

——

oo-soooooob b
s e e e (O
oo £

Y SR
w

’

s Bt Pt Pt s Pt Pt Pt

QALY%REsEEReRS

DR
NN

122716

2%:

——

ONCNLWNN-O

NNNNNN
DDIDD00D
00D
M

042500

MOV
ROL IN
MOV
MOV
CLR
CLR

SEQ@

000002
04263l
000014
177770

#PNTR,

- (SP)

JSR

RETURN

Pc, as$0B20

$DB20:

SAVREG
MOV
MOV
MOV
MOV

2(SP),R
#S0CTYUL
#12.,RY
#4C7 R3

MOV
CLR
MOVB
MOV

(R1)+.R1
R2
R2,-(RS)
RO, R2

MOV

18:

(RI)4,RO

“Poxfr$flchob$“ WORD OF BINARY NUMBER

;;?fit ADDRESS o?"?ue FIRST ASCIZ CHAR. IS ON THE STACK
;sSAVE ALL REGISTERS
; sPICKUP
THE PO%NT;R TO LOW WORD
; ;POINTER _TO DATA

TABLE

; ;00 ELEVEN CHARACTERS

i} OWER WORD
¥
WORD
: ; TERMINATOR

::PUT CHARACTER IN DATA TARBLE
:1GET THIS DIGIT

CZR&IED UNIBUS RK& DR PRT2

CZReIE.P11

10-JAN-78 09:43

7859

7860 8:53
g

MACY11 30A(1052)

DEC

338‘7'
4

0S66

7868
787
787
7874
7875
7876

787¢

2859
787

mgxe
042614

702

000753

PAGE 152

SEQ 0182

000060

000016

$OCTVL:

"SBTTL

7379

: s COUNT u S CHARACTER

3%
z3

1iBR
IF NO T
1iBR IF _IT

MOV

RS,2(SP)

,;nsc;

ASR

,§POS{T¥ON THE

MASK FOR THE LAST DIGIT

582

NEXT OCTAL DIGIT

ROR
ROR
BIC
ADD
BR

RO
R3,R2
s'0,R2
xs

ROR

2606

11:25

BGT
BEQ
INC

000002

7959

;ga

10-JAN-78

DOUBLE LENGTH BINARY TO OCTAL ARSCII CONVERT ROUTINE

.BLKB

RO
R1

:ALL gr n
C

nsr o
GIT
gxcn
¥s

POINTER FOR FIRST

& PUTIT ON THE STACK

:iPOSITION THE

BINARY NUMBER FOR

THE

5 3 MASK ou1 Juux
1
THIS C
ASCII
T 1T

nm TRBLE

DATA
T

DOUBLE LENGTH BINARY TO bt mn. nscn CONVERT ROUTINE

o 36363636 36 36 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 6 36 36 36 36 36 36 36 36 36 36 36 3 36 36 36 3 36 3 3 3 3 3 3 3 3 3 3 3 36 3% 3 3 % 3 % % % %

7880

;ssg

huxs ROUTINE uxu. convsm n

:ggg%emscn

-an BINARY NUMBER TO AN unsmnso

7883
;:gg;

,lanL
%

Jsx

; ;POINTER TO LOW WORD OF BINARY NUMBER

7886

‘¥

RETURN

$DB2D:

SAVREG

; :s?

7389

7890

042632

835&"0

81 7

7891

733;

7
78593

042634
sg

104413

0166

i %

04301
0000

127 892745 ’
065385 042744

7893
;
7
;903

;9057

sox

7909
7910
7911
7912
7913

042716
8:27
27
oqa7g8
0427

2525
703
103
632
000000

000002

3
401

772

042732

001357

;s THE_FIRST

;3 IS ON THE STARC

2(SP),R2

sss OF RSCIZ

..snvs REGISTE

,,ng UP THE.DATA POINT

MOV

#SDECVL , RO
RO,2(SP)

MOV

#10..4%

CLR
ggg
SuB
lxalfiz

R3
,gg'“-'"
(RS),R2
gg

,,ggonl' ¥E"p”°“'§" TO LARGE

3%:

238

,‘;g"“,R1

,.nssrons SUBTRACTED VALUE

4§:

CMP
BIS
MOVB
DEC
.WORD

(RS)+ (RS)+
#'0,R3
R3, [RO)+
(Pe)+
O

583

42730

18:
2%:

7388 8:3 715 qu
7914

MOV

150

mos!D 8: 7

MOV

32"5555:‘;35’

OF THE BINARY NUMBER MUST BE

000060

MOV
MOV

ADD

BNE

22%;:,55

.i?mé
R4 RS
#8STNPUWR+2,

(R4)+,R2

,,PUT

STRING
nscizCVL”
STRING
ON STACK

PICKUP THE BINARY NUMBER

10 convsnsxons

Ms SFDQEN POWER
.,cu.em PARTIAL
: ISUBTRACT TEN POWER

: 1 LOOP

:sMOVE TO NEXT TEN POWER
,,cunucs PARTIAL TO ASCII
$3SAVE TT
¥
33 BR IF NNO

nNo

Kle

SEQ 0183

MACY1l 30A(1052)
10-JAN-78
11:25
PAGE 153
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

CLRB
RESREG
RTS
$TNPWR: 145000
35632
160400
2765
113200
230
9;1100

=it

105020

g
8

29997999999999
2200

S8FoREaNos<

793

2222922992

Mmm

OO0

IS FF
s

0_UNIBUS RKE DR_PRT2
.P11
10-JAN-78 09:43

SDECVL:

.SBTTL

(RO)+

; s TERMINATOR
: 'RESTORE REGISTERS
; s RETURN
::1.0E09

;;1.0E08
;3 1.0E07
;3 1.0E06

inaeuo

:;1.0E0S

83420

;3 1.0E04

6750

;;1.0E03

644

;3 1.0E02

;;1.0E01

;;1.0E00

.BLKB

12.

. : RESERVE STORAGE FOR ASCIZ STRING

SINGLE LENGTH BINARY TO OECIMAL ASCIZ ROUTINE

HH 122 22222222222222322222322332232232232222323222222222222222222222 22

:5THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN
‘:EEEEG"ED DECIMAL RSCIZ NUMBER.

I
"

MOV
JSR

NUMBER, - (SP)
PC, 3#8582D

§$SB2D:

MOV

2(SP), 18

000002
043056

000002

000000

012685
00
on

2222222
o 8 888
$o8 2
wWw

¥
043056

RETURN

MOV
JSR

ADD

MOV
18:

.SBTTL

§ 3

RTS
.WORD

; ;PUT BINARY NUMBER ON THE STACK °
:iCALL

: :ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK

; ;SAVE_BINARY NUMBER

818, -{SP)
PC, 388DB20

1iSET POINTER
::CALL DOUBLE

(5P)+,2(5P)

: 'PICKUP POINTER

#S’ (SP)

PC
O ?

LENGTH CONVERT

::ONLY ALLOW FIVE CHARACTERS

; ;sRETURN

TYPE NUMERICAL RSCIZ STRING SUPPRESS LERDING ZEROS

E RN R R

R R

R RR R

RRRRR AR

RERRRR

; $THIS ROUTINE gs USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE

; #LEADING NUMBERS.
; #CALL

7970

043072

0046
6600
5710

1403

000004

e
‘¥

MOV
JSR

#NUMADR, - (SP)
PC, a8$S(PRS

; sFIRST ADDRESS OF ASCIZ STRING

$SUPRS:

MOV

RO, -(SP)

: ;SAVE RO

18:

TSTB
BEG

(RD)
2%

: ' TERMINATEOR?
{iBR IF YES

MOV

4(5P) RO

1 IPICKUP THE POINTER

CZR6IED UNIBUS RKGE DR PRT

CZReIE.PI11

;3;

10-JAN-78

83‘5?&

09:43

10-JAN-78

MACY11 300(1052)

L].E

SEG 0154

11:25 PAGE 154

YPE NUMERICAL ASCIZ STRING suwnsss LEADING ZEROS

68?3';2 000060

gemao

fio,(mu

1
7974
fi§18§
82§8§9 043112
;;i?s
110 104401
937
§§§ii5 11363
;f.";g maiég

2%:

;33?

.SBTTL m?ecen MULTIPLY ROUTINE'

;ggg

;iIIl!Illlllllllllll!lllllllllilllllll!llllllll!lllllllllli LR

7984
7985

7973

o
;;

7986

;ggé

798

7%
_fl@

TM
:

7994
7995
799

i*
3155
31
3124

$MULT:

010046
010146
010246
5046

7997
'mgg

0431
1

8001
8002
8003

g:awg 005216
3142
NOS401
maiw 1’6“’35 000014

8006

043154

5300 Eii

11 gl 000012

eaoflc:sD 333132 00S316

402

8008
fiiigim 103001
bog 000021
%?3

%ié ggig %

ggia oqgf% %?'g;g

8015
%i?

8018

8019

ggso

1
8022
8023
8024
8025

026

ggg

aség

Dua08

BOBHOL

833553

325-‘

1
010166
813502

043232

000207

3220

043226
043230

012601
012600

DEC

MOV
MOV

18:

JSR

TACK

PRODUCT

MSB ’

MOV
MOV
MOV
CLR

RO, -(SP)
R1.-(5P)
R2' -(5P)
-(5p)

;;PUSH RO ON STACK
:1PUSH Rl ON STACK

INC
NEG
ggt

(SP)
Rl
é:(sm.na

::SET THE SIGN KSY
: i MAKE THE m%n LICAND POSTIVE
”aGET 'r_
%I. IPLIER

NEG

PLICAND

(SP)

P UP r;

SIGN KEY

ggflrnc

RO’

;;l;g%;nxoq n?cpmnm. PRODUCT AND

CMP

(SP)+, (SP)

JEOUR, NN 3

(8P)+

,,Sugan.E’E" snrg OFF OF

DEC

000010

i;csm,m

5%:

:PUSH R2 ON STACK
1:C ;m HE S
KEY

;;Bcg !;ns'_

35&

BEQ

000012

-(SP)
% PLER,
?chm
-(SP)

o
8BCCB RSe
3s:

4s:

:
KI.P
:.3255
os Tv#mc
.
::“Eg
BRECRD | GOES HERE
,,neslr’gzs THE STACK

RETURN ,,#nooucv IS ON THE STACK

531‘.’

3510 oosgoo

R
v
ng.as
TYPE
oy
2 ?SPn
RO
MOV
é“s:P)# (SP)

153
nus m ASCI1 "0" ?

SBC

TST

(5P)

v
MOV
MOV

RO, 12(SP)
R1.10(5P)
(5P)+,R2

RTS

MOV
MOV

(5P)+.RI
(SP)+ RO

: iMAKE

THE

Tén.xga POSTIVE

”éflfioka‘?"m
S&"TIPLY LOOP= O
::DON'T ADD IF MULTIPLICAND

;Egg n‘r"'luhoL 31 S o“r"nm: MULTIPLICAND BEEN DONE”
:3G0

1
:
,,POP

SHOULD PR?DUCT BE NEGATIVE?

TO EXIT

IF _NO

STACK

RODUCT ON THE STACK (MSB'S)
mcx INTO R2

::POP STACK INTO RI
::POP STACK INTO RO

SEQ 01SS

SAVE AND RESTORE RO-RS ROUTINES

;'illlll!lillllllllllli'lIll!ll!lllllIlllllll!l!llll!!lllliil!ll!

;iggxf RO-RS
®

SAVREG

; ®UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE:
3’

; #TOP--=(+18)
e 041}
i*
;% 44--=RS

;% +6---RY

; % +8---R3

TRCK

2223 —
o
33
25

; *RESTORE RO-RS

NN
0L

55 B

3ais

NN
PN

000

Nt Nt N

C)-NMJEUIURMNU

g
s
o b 2 2 2

b
-t
b
Nt Nl Nt Nt Nt St

.SBTTL

090'0'0'0'0'0'0'0

RESREG

8
8

(=]
(=]

82220000000

SRR

$RESREG:

NN
AN ANNANANNANEN N

; #CALL:

RTI

TRAP DECODER
I I

R RN RN RN NN

1T To" TNDEX.
{KROUGH
TRRETHE
TABLE
FOR og$n§NED
TME STARTING
ADDRESS
;Xen0-USE
#0F THE DéSIRED
ROUTINE.
¥EENTHE.
GEING
RbSRESS
T WILL
;

; %GO TO THAT ROUTINE.

00
6600
s7

—

nT
rr
o=
EX

ACK

[RKN222222

SRSRRELRS

b3
MMMME
LT T

e
w-swr

wmews
e

-t

vy
VOVOVO

Nt Nt Nt

swswsws

°%
--fldvfidnUHgUNhUi
weve
PO
V0O
1)) s

I
L
L
N

wmuwere L
VOOV~~~

lalele
L

NN 202020 00

2
(=]
<

FREAE
Frree

332

$SAVREG:

nnunnuaL:unu~ig

; #410---R2
; #412---R1
; #+14---R0O

8073
o

Mle

10-JAN-78
11:25_ PAGE 155
SAVE AND RESTORE RO-RS ROUTINES

30A(10S2)

.SBTTL

DOO

S SO E S ALK A0 AR LKIE 28 SA 722022 i Srotso
PP P PP PR PR R
~
223299999999
® i SOCHER
RS

CZREIEQC UNIBUS Rk DR PRTZ
10-JAN-78 09:43
CZRBIE .P11

MACY11l

000002

TRAP:

MOV

ngv
TST

RO, -(SP)

2(5P) RO
-(RO)

: ;SAVE_RO
TRAP ADDRESS
::GET
: 'BACKUP BY 2

CZRGIED UNIBUS RK& DR PRT2

CZRGIE.PI11

8083

%39

10-JAN-78 09:43

MACY11 30A(1052)

3342 111000

ggu

3350

338

016000

MOVB

043364

883..

PAGE

156

SEQ 0156

(RO),RO

:;GET RIGHT BYTE OF TRAP

$TRPAD(PO),RD

ASL

RTS

MOV

8088
3883

10-JAN-78

TRAP DECODER

N12

:25

:POSITION FOR

1:G0

X 70 TABL

INDEXING

TO ROUTINE

:;THIS IS USE TO HANDLE THE "GETPRI" MACRO

043352

011646

043362

000002

043354 0l6bbe

000004

000002

$§TRAP2: MOV

MOV

(SP),~(SP)

4(SP},2(SP)

;;novs THE PC DOWN

: IMOVE THE PSW_DOWN
: 'RESTORE THE PSW

8095

.SBTTL

3339

5:3{«1; Hgngnfie‘“89"}2_5,'7‘2uEr Oammnc ADDRESSES OF THE ROUTINES CALLED

8099
gigo
81
1
8104
8105
8106

83335-4
3366
043370
3372
3374

gwaasz
037700
040700
040654
040714

‘
;
ROUTINE
$§ TRPAD: .uong
STRAP2
§TYP
; ;CALL=TYPE
TYPOC
;;CALL=TYPOC
§TYPOS ;;CALL=TYPOS
STYPON ::CALL=TYPON

OM3400

8111

3185

3376

040162

TRAP TABLE

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(1U4404)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE
OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)

§TYPDS

;:CALL=TYPDS

041470

SGTSWR

;;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

043402

041400

$CKSWR

; ; CALL=CKSWR

TRAP+7(104407)

TEST FOR CHANGE IN SOFT-SWR

8113

gwa«o

042032

SROLIN

;;CALL=ROLIN

8115

043412

043234

§SAVREG ;:CALL=SAVREG

8112 043404 0417492
8114
Bl116
g“;

043410

043414
043416

042352
043272
036230

TRAP+S(104405)

TYPE

DECIMAL NUMBER (WITH SIGN)

SROCHR ;;

L=RDC

TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE

$RDOCT

CALL=ROOCT

TRAP+12(104412) READ AN OCTAL ngnaen FROM TTY

; ;

SRESREG : :CALL=RESREG
SCOP1§
;;CALL=SCOPI

RAP+ é“ u-ué) TTY TYPEIN STRING

TRAP+13(104413) 2‘“’? no-ng ROUT u;

ROUTINE

TRAP+14(104414)
RESTORE RO-RS ROUTINE
TRAP+15(104415) INTERNAL LOOP ON ERROR

MACY1l 30A(10S2)

TRAP TABLE

10-JAN-78

Bl3

PAGE 157

11:25

SEQ 0157

go 8&

ms5NUD0fMi—91¢aNfl5sfiyiwmawue=w0TsTao~wtam—mIOn.NIoDlncmq‘ol|a&MLm5S1-0o5Rn1mT7A0Lme0z“oT6am0N7&-2w%esonatmHTS1M3N0T6s7aBx

4gWD—4(D[—e72t]eAG0Ae0eGt0%Go00DoG0woo —oGl0nmoDtmm€GmmGo(e1wmG[moG}tm4D%GomGo0dG0fmfDDome(iDGo0m[oo —— oG}oGfRmdGemDdmoGmeG0meG0me€meGt0dmG(meB[G10}moGl0mGo0m0omv&€o0mGo0mn®-GomGom0oDmemGmo(l0mGe0mDmo[[GO—7001}]tG0/o@0((ooS0)&t50]}4(30

c ZREIE O_UNIBUS RKE DR_PRT2
10-JAN-78 09:43
C ZRGIE .P11

-. mQ -.

|
-

<CR><LF>/UNIBUS RKO6-RKO7 DRIVE DIAGNCSTIC--PART
2/

(CR>XLF>/CZREIED/<CR><LF>
N

2x%%% CAUTION xxx%%/(CR><LF>

(CR><LF>/THIS PROGRAM SHOULD

(CR><LF>/0THERWISE,

BE HALTED ONLY BY TYPING CONTROL-C~/

CARTRIDGE FORMATTING AND,

OR THE DRIVE~/

(CR><LF>/MAY BE LEFT IN AN UNDETERMINED STATE/

(CR><LF>/INITIALLY,

<CR><LF>/A.

DRIVES TO BE TESTED SHOULD HAVE: /<CRY<LF>

HEADS MANUALLY LOADED~

MACY1l

30A(1
ERV

P28 meddal

AN-78
ES

Cl3

11:25

SEQ 0158

PAGE 158

.ASCII

<(CR><LF>/B.

CORRECT PORT SELECTED~/

.RSCII

(CR,<LF>/C.

WRITE LOCK DISABLED/

.ASCII

<(CR><LF>/D. DRIVE READY INDICATOR ON/<CR><LF>

.ASCII

<(CR><LF>/DRIVES NOT TO BE TESTED MUST HAVE/

.ASCIZ

<CR><LF>/BOTH PORTS DESELECTED/<CR><LF>

.RSCII

<CR><LF>/CHANGE XXDP PACK~/

.RSCIZ

<CR><LF>/CLEAR LOC 40,RESTART PROGRAM/

MSG3:

.ASCIZ

<CR><LF>/DRIVE(S)

MSGH:

.ASCIZ

(CR><LF>/TYPE BUSS ADDRESS IF NOT

MSGS:

.ASCIZ

<(CR><LF>/TYPE CONTROLLER INTERRUPT VECTOR IF NOT 210:

020056
04150S
1

=]
e

042040
o42s14

3372 1333
888 R

[

—

Il T
[,V 3

e
P
——

§22

.—.—m

:= &5 = 7
22
228
7
§§m~
Ts che

—

8015

NNE

TO BE TESTED:

177440:

LO00O-W
oo
-

Pt P
P

044440
0sa2se2

fimfl"

4S0oe
Q44510
044516

m.—.p
ooccLwn

gfl‘

(=)

=
28

B
=

——

—

MSG2:

£
P

R RN
RES Bsr-o-o-v-o-o-o-»-o—
NONL£W-0O

[ reteteretetes
et wtedeteted et etated whaduge

SRSESRR 20 E8BBIRR2ER
"B I3t

CZR6I EO_UNIBUS RKE DR_PRT
143
10-JAN-78
CZR6 IE.P11

CZRGIED UNIBUS RKbE DR PRT2
CZRBIE.P11
10-JAN-78 09:43

MACY11l 30A(1052)
10-JAN-78
SERVICE MESSAGES

MSG6:

.A5CIZ

<CR><LF>/INTERRUPT OCCURRED AT PC=/

MSG7:

.ASCIZ

<CR><LF>/DRIVE O WILL NOT BE TESTED/

O40S0S

MSGB:

.ASCIZ

<«CR><LF>/READ DATA WITH OFFSET TEST/(CR><LF>

MSGS:

.ASCIZ

<CR><LF>/HERD NO.~/

MSG10:

.ASCIZ

<CRYLF><LF>/WILL TEST DRIVES:~/

§§SS 7

MSGll:

.ASCIZ

<CR><LF><LF>/POWER UP RESTART TO TEST 1/<CR><LF>

MSG12:

.ASCII

<CR><LF><LF>/THE ABOVE OFFSET FAILURES ARE NOT ERRORS~/

.ASCIZ

<CR><LF>/BUT INDICATORS OF SURFACE,HEAD, & ELECTRONICS QUALITY/<CR><LF>

::ac:ggz

047

4
30
154

%
bl
U Ll oy

-00
LWWO
L

—0—

=80R0

ig
1

\No'n

e
o b

b
) e
—tm
)

RALE

R2R 3

—

g.—.—

82ss

SR RIIaas

8285

—

pe
S
1]

TR o R n
bt vt
= P aP

8294

SEQ 0159

guzszy

gghiee

PAGE 1S9

11:25

?Eg MSG13: .ASCII <CR)(LF>/NO L OR P CLOCKS PRESENT/

(045503

Bs1e0e

15 044012 040505

LASCIZ <CR><LF>/HEAD SWITCHING TIME TEST BYPASSED~

CZREIEO UNIBUS RKE DR _PRTZ
10-JAN-78 09:43
CZROIE.P11
0104

Q4S2C

B2S
8¢

03523

1823

::%
'

<CR><LF><LF>/DRIVE /

MSG16:

.ASCIZ

<CR><LF>/DRIVE SERIAL NO. ~

Q4OSC

MSG17:

.ASCIZ

<CR><LF>/CARTRIDGE SERIAL NO. /

MSG26:

.ASCIZ

<CRY<LF><LF>/ABORTING BALANCE OF TESTS ON THIS DRIVE/<CR><LF><«LF>

MSG27:

.ASCIZ

<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>

':f—*,'.'

QU5 3%

OMEIC

4350

i’

:q;'*:’

JHC fi!

831

)

0S1

:‘W{'

Qu8ugs

o 3e

::f ¢
w

H008

-7

O4C

p3es:

D0OSC 12

)

.*.4

JHSS5U

-:';?‘

£e
&0

SRR

OuE
8313 45

0421

.ASCIZ

8¢3%

0S211]

MSG15:

QuSet

PAGE 160

<CR’<LF>/BYPASSING DRIVE ~/

8237

B31

11:25

.ASCIZ

:W.;."}.

8305

EL13

MSG14:

10-JAN-78
SERVICE MESSAGES

MACY1l 30A(1052)

§§§ :wj-‘}'

:-—

8§3§ puzei

O4YSE

gg:l : §§
'

U
8342 045670

MSG39: .ASCIZ <CR>¢LF>/WRITE CHECK FRILURE AT OFFSET =/

SGHO ASCII R F>/COULD NOT RERD BAD SECTOR INFO ON C . e

MSGH0:

(CR><LF>~

LD N

N CYL 410/

CZR6IED UNIBUS RKG DR_PRT2

CZROIE.P11

10-JAN-78 09:43

8343

Q42101
0SI

7111

e e

116
4

e e e

lUi;

;g
8380

1113
lés

gl
8393
8394

8395

8396
8397
8398

.ASCIZ

<CR.<LF>/0R ALIGNMENT CARTRIDGE USED~/<CR><LF>

MSG74:

.ASCIZ

<CR><LF>/PROGRAM ABORT PENDING...PLERSE WARIT~/

MSG7S:

.RSCIZ

<«CR><LF>/HALT PENDING...PLEASE | AIT/

MSG76:

.ASCIZ

<CR><LF>/PROGRAM RBORTED~

MSG?77:

.ASCIZ

<CR><LF>/CPU HALTED/

.SBTTL

ERROR MESSAGES

EM1:

.ASCIZ

EM2:

.ASCIZ /DRIVE # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2~

EM3:

.ASCIZ

<«CR>(LF>/ERROR, ONLY O THRU 7 ALLOWED, TRY AGARIN/<CR><LF>

16“

PAGE 161

041040

$8RT

E;;

8
8

11:25

041505

g%;g

838

10-JAN-78

SERVICE MESSAGES

MM
W

SRR s

114

MACY1l 30A(1052)

F13

i
1621
11

0sz2l

0S15e4
O4eSle
042524

1
Dgs
0501
020104

827202
1505

456
1505
044524

<CR><LF>/ABORT TESTS...UNEXPECTED TIME OUT AT PC=~

SEQ 0161

10—302575R53:43

MACY11 30A(10S2)
ERROR MESSAGES
—

e I
§TS R

0_UNIBUS RK

.ASCIZ

<CR> <LF> /ABORT TESTS...UNEXPECTED INTERRUPT AT PC=/

EMS:

.ASCIZ

/MDS SET

IN RKCS2/

EMG:

.ASCIZ

/UFE

IN RKCS2/

EM7:

.ASCIZ

/DRA IN RKDS & NED IN RKCS2 RESET; WRONG PORT SELECTeD?~

EMS:

.ASCIZ

/DRIVE PRESENT BUT NOT SPECIFIED BY OPERATOR~

EMS:

.RSCIZ

/DRIVE NOT PRESENT BUT SPECIFIED BY OPERATOR~

EMIO:

.RSCIZ

/ABORT TESTS...CANNOT REFERENCE CONTROLLER REGISTER/

EM11:

.RASCIZ

/DRA IN RKDS & NED IN RKCS2 BOTH SET~

§"‘ 52 2

000122

1108
40
1
047111

020105
8:211
2516
0S1040

e b

“'—RQC‘O

samfggg
£
n
00N
Ule=beie
O
WEWr-

2524

%% gi7ss;
0‘43565

(=]

;éss

=
(NN
—
-

J~7516

004
047012
047020

0S1117

1
11

SET

gRIn
of

—

Egl

g§§§§§§

1440

B bea
o

%
1

1
11
1

PAGE 162

EMY:

P22
ars

8399
8400

G1l3

11:25

(1]

SRelE .P11

b
P P L PP PP LR
2992322222299R
BBBNTNE wWh— S3BURRE ~EEBVER
2L S5m o £ w0 B8

¢
C

10-JAN-78

SEG .62

CZREIED UNIBUS RK& DR PRT2
CZREIE.P11
10-JAN-78 09:43

SeBirsicet Buloe
—

7111

PRAGE

163

SEQ Jl6e3

EMi2:

.ASCIZ

/CONTROLLER NOT READY IN RKCS1~

EM13:

.ASCIZ

/NO ATTN IN RKASOF~

EMI1Y:

.ASCIZ

/UNEXPECTED MEMORY PARITY TRAP/

EMIS:

.ASCII

/RKDC 8 RKDA INDICATE THAT WCE OCCURRED AT~

.ASCIZ

(CR><LF>~CYL 411,

EM16:

.ASCIZ

/CANNOT READ BAD SECTOR INFORMATION/

EM17:

.ASCIZ

/MESSAGE RO ERROR~/

EM18:

.RSCIZ

/MESSAGE BO ERROR/

EM1S:

.ASCIZ

/MESSAGE Al

ERROR~/

eM20:

.ASCIZ

/MESSAGE Bl

ERROR/

EM21:

.ASCIZ

/CERR SET

EM22:

.RSCII

/NO DRIVES FOUND IN DEVICE MAP (SDEVM)/<CR><LF>

TRACK 2,

SECTOR 21~/

~N>—

P
=1

e b

—
[y

£
wn

=]
I
~
n
[ IS
L0000

—

m
wn

RARAR

P2PRTPR2

3535288SBIRR LD

—

7114

116

ZEEdgpaidiasSodapRaanR s
252
R
i
v
g
o]

P P PR P P PP PR PP PP R R229922222222
2222
2272222227
233 }} NNNNNNNNY NNNNNN \l\l'g
88

0471

L
8469

114
7

11:2€

117

b Hgéizg
8459

MACY11l 30A(10S2)
10-JAN-78
ERROR MESSAGES

IN RKCS1l~/

10-JAN-78

NN LW

e et Pt Pt Pt

.ASCII

/NO DRIVES FOUND ON BUSS/<CR><LF>

.RSCIZ

/SETUP CORRECTLY AND PRESS ‘CONTINUE®/<CR><LF>

EM24:

.ASCIZ

/VOL

EM2S:

.ASCIZ

<CR><LF>/DETECTED 10 BAD SECTORS...ABORTING TEST~

EM2E:

.ASCIZ

/DETECTED BSE BUT NOT LISTED IM BAD SECTOR FILE~

EM27:

.ASCII

/DETECTED BSE IN READ COMMAND~

.RSCIZ

<CR><LF>/BUT NOT IN PREVIOUS WRITE COMMAND TO SAME SECTOR~

.ASCIZ

/CYL ADDR IN RKMR3 NOT SAME RS RKDC~

VALID NOT SET

IN RKMR2/

0L
ouno

g .—‘.—)-.
£

PrSTRS N

1440

—

o e () s b

s
83

¥eb2008

Y
o
Ty
A= T |
) Lt
N
-

A
.
[=]=]
01U 0= s bt e o ot e e

n
AR

PAGE 164

/SETUP CORRECTLY AND RESTART/<CR><LF>

EM23:

£ oo
9T
CRCE5B

113

11:25

.ASCIZ

s s

AARAR

ERelE”

MACY11l 30A(1052)
10-JAN-78
ERRUR
MESSAGES

UNIBUS RK

EM36:

SEQ Cle4

Be22

PR7as
3
SRRURE

165

/CYL DIFF & OFFSET

EMYN-

.ASCIZ

/CYL ADDR

EM41:

.ASCIZ

/CYL ADDR IN B2 DID NOT REMAIN CLEARED~

EMSS:

.ASCIZ

/ATTN NOT CLERRED IN RKASOF~/

EMB3:

.ASCIZ

/DLT SET IN RKCS2/

EMBS:

.ASCIZ

/RERAD HEARDER ERROR/

EMBS:

.ASCIZ

/ALIGNMENT CARTRIDGE USED~/

EM73:

.RSCIZ

/CTO

EM7Y4:

.ASCIZ

/RTZ NOT SET

EM79:

.ASCIZ

/NED SET

§§§i0§ EMBO:

.ASCIZ

/WRITE CHECK ERROR SET IN RKCS2~

.ASCIZ

/WRITE CHECK COMMAND NOT FUNCTIONING~

IN RKMR2 NOT CLERRED/

IN RKMR3 NOT CLERRED/

R ee

-z

.ASCIZ

ges
865?

PAGE

S ier

st
Bblg

J13

11:25

EM39:

mm
N

o fi
|
SesEEEEany

RARRRANAA
PEARS pRR

RRARAANR
SRR
L
8610
861
861
861
8614
861
861
861

PRT
78

MACY11 30A(10S2)
10-JAN-78
ERROR MESSAGES

124

0418513

ys2

92518

046517

SET

IN RKCS1~/

IN RKMR2/

IN RKCS2/

1 2
1 1
1 3
4

3
S

EMBI:

SEQ QJ1eS

—oz Wxc
.

288

N [ =

z —

£33

Q - =

—oo>& s4@1ov=a)(}v w*& NW <5 &wox@ oSQ@zaP— @o && ow=a—@T-N

o
TOO0
Nt

mON2t0mUm~—mUMNmUOuTUmM—uaH0T %ammmIaEmWnmMOmm—mw&muMO~=O(II~ —T~O—lNyO~—T3iAoO2zWD =-

~.@~a)w—-o)wzaz-~~\ ~k.<v 0QQ owW @S ()a-oav &oy =- xz=z- xw=& AX.e..NN)2y, ~-I(oaQ—_ozQw=W-ow N@—[- =N}]- ~[]IxTz-ovb ¥"~NM7}S] ~5& I=.QQ SS a0wz vuo WW xQ @a =o |wQ-NN 4%=x -w N)}.[+- ~I-Q(|wW =34a—— (TWL4@- zwz4—-»=N@}ooe[]]+~~I@QoaQawao— W@2 xW=oN}Ob ]~((@=& xa[—a- x~E'Iz@ @=o4—¥==NY—-(])]e~@ao=~xa0oQ ®W -Wa wz .~@ ao D)o I-- .|NN

Wz—oW—TMw®—wY—@W—” ]—TaWT—wMwo-'~—“Q=u9Hi]

ARm&ummmmmmmmusaewwwmwmuwmwmmwm:;m
o

K13
SEQ Qles

@ W (8] o N

lmom0“.75.1
—1235mo=b205d0)“o.)0)Qx-)—g0]UdMe—lUemN-m4=[+JF«.-O[TY—0eUKNR=RpetmeOR“=Ww>peeRRRRRemm-ee7RmRe'=~8bRRleAORfiemeBR

-.H.xI.”Hul.Qox—[:@hfifix@\i4N)[m—Mnaox4[«ma%WNN xlmxn“xOmo[

TGeoplTsCcsYmeqA&%8m@FRmFERmERxTES87peslonwm
mo

Q o

mmmw=

0mwbm5.05[71w])0mS5xT05mu,0w5T00Now0mR50e0xT.0Nw05Gm05Tx05Yw10)5Rm05A05T=0m150'-l5'mh5F0mMUw0R5Sm0A5“1(I0)T0m5UmTO lRw.uSlm(wWU &.7)mYgxlwwRowlAmmIwmwSowtwT—tm[7Rm2x])wemmmTwIm7w)&RmaSxumT&wu(www IV1w%]Gmw
-NQoeg>>[WN8Tld] ~QQ -&432 (xNx( xW4=wxQoo=N["[]++ xQ—N[43&xx £W4Q]@@. vQ xx —Nx4 4Qw &=xx 41X[M[[7)O+|++]~ONgo&-“—88mwT o-oNoz (NQT W-N-o>x u\&d T[(-QQa Nm§2 LQ@xQ =" Nx-.W7RlY] ~o[--(v*w|TNxo&*= -[-&oG"=-[0=N\llX[Bd[—}]++ ~7T-L2sQQ41NMoN}[t+ =[QQQ -N:-L wz-=4LWQ \¥)"17|8b]+
See
1

"
1

I.fi-lalo

|
-

l&l‘l‘l‘l

4[+ z ~

CZRE IE 0O_UNIBUS Rk DR PR T2
CZRe IE.P11
10-JAN- 78 09:43
MACY11l 30A(10S2)
10-JAN-78
ERROR MESSAGES

11:25

L13
PAGE

167
SEQ 0167

w > o|
-

—

CZREIED UNIBUS RKE DR PRT2
CZRBIE.P11
10-JAN-78 09:43
1

PAGE 168

SEQ 01&8

TRAP PC/

.ASCIZ

/TEST NO.

DHS:

.ASCIZ

/AFTER START SPINDLE COMMAND REC'D BY DRIVE~/

DH10:

.ASCIZ

/AT END OF HEARD LOARDING/

DH11:

.ASCIZ

/EXPECTED

WRS/

DH13:

.ASCIZ

~/ON SECTORS 10,

12, 14,

DH1Y:

.ASCIZ

/ON SECTORS 11, 13, 15, 17, 19 OR 21 CYL 410 TRACK 2~/

020122

DHI17:

.ASCIZ

/AFTER RECAL COMMAND~/

122

DH19:

.ASCIZ

/AFTER PACK COMMAND/

DH20:

.ASCIZ

/AFTER SELECT DRIVE COMMAND/

DH21:

.ASCIZ

/AFTER SUBSYSTEM CLEAR/

DHee:

.ASCIZ

/AFTER DRIVE CLEAR COMMAND/

1520

000

8&5 gg

(]

;%82 93

Sgg

03
DE

1
464

1501

101

—

R 2028
oo

s s

833111 020
040S05

[

qu£c8

WWfij .%

gzsgsg

1117

16, 18 OR 20 CYL 410 TRACK 2/

—

oE 2

ML3

11:25

DHB:

mggzg

gsbfi

ngg

2 REEE
oW
— o—v—am
8 ZORE

RRE0E

STRBLIRTrER

g;gg

g@e

a;g

MACY11l 30A(10S2)
10-JAN-78
DATA HEADERS

DH24:

.ASCIZ

/AFTER CFFSET COMMAND/

DH2S:

.ASCIZ

/AFTER SEEK COMMAND/

=0 0189

.ASCIZ

/AFTER READ DATA COMMAND~/

DHes:

.ASCIZ

EXPECT/

DH29:

.RSCIZ

ACTUAL/

DH30:

.ASCIZ

/AFTER READ HEADER COMMAND~/

—

ggzgg%

PAGE 169

1 ;

11:25

DATA

i
R hAn

046515

7§§3

MACY11 30AC1052)
10-JAN-78
HERDERS

76 08:43

NNNN

33
S V;EV*)

0 UNIBUS RK& DR PRT
.P11
10-JAN-

o
EES%%? 0152 DH27: .ASCIZ /AFTER WRITE DATA COMMAND~/
1

: goss ¢
igme5 B A PofR R R nAZR
T

-NLNNO

020122
046131

DH31: .RASCIZ /A0

DH32:

.ASCIZ

/AFTER WRITE CHECK COMMAND~/

DH39:

.ASCIZ

/AFTER WRITE HEADER COMMAND~

DH40:

.ASCIZ

/WORD®

DH41:

.ASCIZ

/DURING RECAL COMMAND~/

§gégeg

DH42:

.ASCIZ

~/ON SECTORS 0,2,4,6 OR 8

NOO

-0

—-00

e
e

e
s

a0z

EneY5822
£

'-%\lfl

047440
O41440

030S02
031

3&8 2§=¢e

Y6l

2202 22
S5o SB

—r—

11
1{

04150

042520

222

054683

Aessogogh

2228 2 R

Busis Bualie

éi&x

[N]

GSoo

Nt
2rirxt
vt

33054
020070
03204

HEADER WAS

SHOULD BE~

CYL 410 TRRCK 2~

B3~

MACY11 30A(1052)

10-JAN-78

DATA HEADERS

BlY4

11:25

SEQ 0170

PAGE 170

o40S2e

031040
1113 826123

CYL 410 TRACK 2/

DH43:

.ASCIZ

/0N SECTORS 1,3,5,7 OR 9

DH4YY:

.ASCIZ

/FORMAT & ALL READ-WRITE TESTS WILL BE BYPASSED/

DH47:

.ASCIZ

/AFTER READ HEARDER COMMAND WITH MOVEMENT/

DH4S:

.ASCIZ

/MSG R & B IN RKMR2 & RKMR3 RESP.

DHS1:

.RSCIZ

/AFTER SEEK TO SELF COMMAND/

DHS2:

.ASCIZ

/WITH INTENTIONAL MISCOMPARE/

DHS3:

.ASCIZ

/DURING OFFSET COMMAND/

DHSY4:

.ASCIZ

/AFTER FORMAT CHANGE AND CONTR REARDY REC'D~/

DHS6:

.ASCIZ

/CYL

Ule—-

ARE INVALID/

NNr=O=
000 =

LO=-=NONC~-0ONECO

Or=Orte
bt ps

pape

202 ZRON 22
NO»-

]

22 299

Qu Ra=EoroS ERt

~
<

NNEON

2
PER 2IRESZ
.-3..-.=0
OD8% — 02 B53NR
297

2 £0

026065

S3aeRisttanaeRnennens 328L

CZR6 EO_UNIBUS RK& DR_PRT2
.P11
10-JAN-78 09:43
CZR6

2047
#

HERDER WORD 0/

MACY11 30A(1052)

10-JAN-78

DATA HERDERS

Cl4

11:25

PAGE 171

o42122

e m Egzqqo Geers

110S

gm
AR
N

/AFTER KRITE COMMAND WITH OFFSET/

DHS7:

.ASCIZ

.SBTTL

ERROR OUTPUT DATA

DT1:

HflsSTRSRRP 3,HER,HDS,HCS1,HCS2

051506

Be37

007366

74904
7354

007364
007406

BILLE

001344

007362
007374

007 3&~
007406

001116

001454

007402
007366

007404
007354

HWC , HBA, HDA, HASOF , HDC , HPOS , HPAT
T3:
TTM:

833?5
881445

001472

DT6:

STESTN, SERRPC, WD2, D1
HMR1,HMR2,HMR3, HER,HDS,HCS1, HCS2

HWC, HBA, HDA, HASOF , HDC , HPOS , HPAT
DT?:

STESTN, SERRPC, WDCNT, HOWD , TEMP1

07404

HMR1, HMR2, HMR3, HER, HDS ,HCS1, HCS2

007364
007406

HWC, HBA, HDA , HASOF , HDC, HPOS , HPAT

07354

001346

007402

007404
007354

887354

7364
7406

001116

001346

007402
007366

007404
007354

007366

TESTN, SERRPC,FRCYL,
TOCYL ,CALDIF

HWC , HBA, HDA, HASOF , HDC , HPOS , HPAT

7406
88735 88738¢

001116

iTEgTN TRRPPS

,HCS 1, HCS2
HER, HDSMR3,
HMR1, HMR2,H

griEe 887384

S8R50 AR

Pt Pt

s Pt Pt P

Pt Pt P

OO
£ W

D D D NDD DD
[V

235808|

0_UNIBUS RKE DR_PRT2
.P11
10-JRN-7B 09:43

DT8:

STESTN, SERRPC, TOCYL ,FRCYL ,CALDIF

S
1, HCS2
HMR1, HMR2 , HMR3, HER,HDS,HC
HWC , HBA, HDR, HASOF , HOC , HPOS , HPAT
DT9:

TOCYL , RHTAB
SERRPC, TN,
STES
HMR1, HMR2, HMR3, HER, HDS, HCS 1, HCS2

SEQ 0171

SEN

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

MACY11l 30A(10S2)
10-JAN-78
ERROR OUTPUT DATA

007444

88738

DT13:

007362

007364

8?"0'4'4

007374

DT14:

gg;g

$STESTN, SERRPC,E.RO,E.BO,E.AL1,E.B1,E.R2,E.B2

H.RO,H.BO,H.A1,H.B1,H.R2,H.B2

2b oo;:gg

g‘glg

! HMR2, HMR3,- HER, HDS , HCS 1, HCS2

HWC , HBA, HDA, HASOF , HOC , HPOS , HPAT

007406

7452

$TESTN, SERRPC,E.AROD,E.BO,E.A1,E.B1,H.A0,H.BO,H.AL1,H.BI
HMR1,

887366 80738

8371

PAGE 172

HWC, HBA, HDA, HASOF, HOC, HPOS, HPAT

887353 B973R¢
001116

11:25

m g;‘l :‘0

HMR1,HMR2,HMR3, HER,HDS,HCS1,HCS2

D07 364

HWC , HBA, HDA, HARSOF , HDC , HPOS , HPAT

8%‘1‘%3

007444

0074

H.AO,H.BO,H.A1,H.B1,H.R2,H.B2,H.B3

8990

007402

007404

HMR1,HMR2,HMR3, HER,HDS,HCS1 ,HCS2

€

007362
007374

007364

HWC , HBA, HDA, HASOF , HDC , HPOS , HPAT

9001

007366

4536

4YS44

051734

0S4540
=

051664
007

007
000001

90”89 8?3222
002
9009! pSYSSY 00000S

10
1
1
901
9014

007452

DTIS:

?‘468

D074

007354
007406

.SBTTL

58 2

899§

DO7406

0S4SE
Y5E
4564

0S4S66

05183

2
052163
002

000

hoit

000
000
000

ERROR DATA FORMATS

DF2:

DF3:

DH2
’
.BYTE 7,0
DH3

000

STESTN, SERRPC,E.A0,E.BO,E.AL1,E.B1,E.R2,E.B2,E.B3

.BYTE
1

.BYTE
5

"BYTE
.BYTE
DH11

7,0

2,0

DH1

0,0
2,0

.BYTE

2.0

SEQ d172

bbb

\Non

828888888 F&

0S1664
007
051734
007
000003
002
05165;

0517347

RNRERE

00000S
000
0S3401
000
OSISH?
05166;

051734

007

osERE AR S

0S1647

8
5

OO0

O_UNIBUS RKE DR_PRT2
P11
10-JAN-78 09:43

3
0S166Y4
007
051734
007

051847

MACY11l 30A(10S2)
10-JAN-78
ERROR DATA FORMATS
DH2
.BYTE
DH3
.BYTE

000

000
000

DFY:

7,0

2,0
7,0

7,0

000

DFS:

0,0
c,0

000

2,0
000

7,0

000

7,0

000

DFb:

0,0

e,n

3,0

000
000

7,0

000

7,0

DF10:

0,0

000

002
051664
007
0S1734
007

000

2,0

000

7,0

000004
002
053047
003
0S1664
007
051734
007
000004
000

7,0

000

DF 14:

2,0

000

3,0

000

7,0

000

7,0

000

0.0

ELlY

11:25

PAGE 173

SEQ 0173

o Bt B (e Bt Bt e B

Bt Bt Pt Bt et Pt Bt Bt Pt P

S SOy S

o
-0

808
8o 2n
£

8833882338388
1.

[

RRGGR

% 8 R
>
83858%8

2,0

000
2,0

000
7,0

gé
1

000

£
n ~N

—

o
£

—

¥ <

£LL
L

§ A2y

£LELLLLLL

ffig]9RERQfifigg
o
£

—

SRER]

LL£LL
L

473

2888808 ¥ &

3344R LoS TONS e

£eos S8

RRECR-Som NN LW c38IRRZER2

e Bt Bt Bt Bt Pt B

0 D DD WD DD DD DO DD DD D DD D DD D DD DD

0 _UNIBUS RKE DR _PRTZ2
P11
10-JAN-78 09:43

000

MACY11l
30A(10S2)

ERROR DATA FORMATS

051835

DF17:

DF20:

DF21:

DF22:

10-JAN-78

2,0

000
7,0

0,0

000
0,0

0co
2,0

000
7,0

7,0

0,0

000

2,0

000
0,0

000
4,0

000
7,0

0,0

000

2,0

000

0,0

000
6,0

000
7,0

11:25

F14
PAGE 174

SEQ 0174

WD OO

f SRS S8R RIBRVUEREN
N

B Bt Bt B Bt B

WO DWW D OW DO DO

et Bt ot Pt Bt Bt ot Bt P

s Bt

R B33 Yo't 2R OB E T F Ll BoB IR N FORCSE® 56

s P Pt ot Pt Bt Bt ot s Pt s P Pt s Pt Bt Bt s Bt Bt

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

D DWW U W DD D D DD WD O DO D DD WD WD DD D O D DD WD DD WD DO DD WD O DDWD DD

OO0

e
mm
o

UNIBUS RKE DR_PRTZ2
.P 11
10-JAN-78 09:43

0ssi02

007

110

ossile

0SsieM

002

114

158
1
ossiee
Sl
gl
1
0ss13e
ggglfl

136

0se

0oo
000

000

007
0517

000

007

DF23:

0,0

.BYTE

2,0

.BYTE

0,0

BYTE

7,0

.BYTE

7,0

.BYTE
DH3

7,0

DH31

DH29
DH2

000

.BYTE

Gl4

11:25

PAGE 175

SEQ 0175

7,0

.BYTE

DH1

000
000

0S1664

.BYTE

000

007

05257;

MACY11 30A(1052)_
10-JAN-78
ERROR DATA FORMATS

7,0

; unuuunnnununuuuuunlunuunuuuunnuu
ERROR ROUTINE

QSQTRY Jgfl PSCT

ngs

INT
gggwg
iq

104413

113;00

Beels e

0SS1
1

?%563

5202

S174 xgaggui 001205
Egg 1
055220

05521
12

0ss2
gggs
0ss2

?S«
055246

0SS250

NPE

1904
1

001205

12001

18:

gs:
g:
4§

5%:

455

2002
1446
005104
‘0““85
1120
105720
005703

ONTROL BYTE" £ XTEHB) T0 DETERHIM WHICH
??E? lag

NF MTION

sx;;ngono

ASL
grses

lfi
"IT

i
POR

ABLETM (SERRTB)

PORTED CONCERNING

'uiullnuuunuuunnnnuuu"nunnunnnnnun

300

001205

108:

ASL

Bngg

” 0)+,28

ADD

ngg
.WORD
MOV
Tng

o snma RO

,SCRLF
O(RO)+,48

U A AT v
ss or ERROR ENTRY

EM OIN
GST

? "':calin 95as*uan
ans FEED
& T fu;sn
g?
HERE
IN

5%
,SCRLF

{BRANCH IF THERE ISN’T ONE
T
k

(RO)+,R1

GET or POIN

ou
Nuno-anmcu
5
:NO INDENT

Tu‘Soma

BEQ
CLR
MOV
MOV
BEQ
COM
TYP
MOV
TSTB
TST

os
( o ,RO
(RO)+.R2

MOV

;ENTER
gmon
N

anur

tRO)+,R3
(RO

a"ESESHERE

usn;
QRE NONE
oxn

:GET
& STORE NUMBER OF DATA WORDS
:BUMP PAST FORMATWORD
:TEST IF ANY DATA FOR THIS HEADER

CZREIED UNIBUS RKGE DR PRTZ2
CZRGIE.P11
10-JAN-78 09:43

MACY1l

922l

118:

0Ss406

gega1s

158:
168:

535858

0SS414
055326

—

000002

218:

001205

178:

0SS414

208:

BEQ

TYPOC

BEC
Q
TYPE
BR
DEC
L
Y
ST
Q
M
gust
Y
MOV
Tvsso

148

- SKIP DATA PRINT

J(R1)+,-(SP)

PUT FIRST DATA WORD ON STACK

148
SPACE2
i1s

non
Tn WORDS
INO(TYP sepnnnrons
.L
:MORE DH’S?
: NO-BRANCH

20$
SCRLF
2(R0O)
3
15%
SPACE2
tRO)+, 168

YPE IT

A DH x xs REQUEST’
vfigeannncnPASS INDENT
: NO-BRANCH
:YES-TYPE SPACES
iGET NEXT DH POINTER
:rvpso
ur;n GOLS HERE

#2,R0

or POXNTER
gucngnsnr

YPE

1ST

guse
Y
SR

ESREG

001103

000024

gng

MOV

JMP
RTY

(RO)
218

YPE

144

SCRLF

IF END OF DF BLOCK

; INDENT?

: NO-BRANCH
:YES-TYPE SPACES
:LOOP

108
SPACE2
108

:SEE IF ABORT DRV AFTER 20 ERRORS

#SW12, ISWR

25$

;

IF NO

hs Fss

RFLG, #20.

:AND GO TO NEXT DRV

:2 SPACES

0DT-11 --

;

DEC-11-UODPR-R-LA

: DIGITAL EQUIPMENT CORPORATION
MASSACHUSETTS 01754
: MAYNARD,
.ENABL ABS,AMA
RO
Rl
R2
R3
R4

000007

RS
SP
PC

-EVEN
=, 460

=
=
s

%1
%e
%3

=
=
=

%S
7B
%7

: REGISTER
;.
3

IF HAVE 20 ERRORS

ELSE RESTORE srncx PTR

#STACK, SP

SEOP
PC

7
SPRCE2: .ngcxz/
VOOSA
;

SEQ 3178

ADD

BEQ

25%:

PRAGE 176

;gn

BIT

00c

123550

001100
0314Se

11:25

isTe
BNE

010000

(=]
~N

022388

= ()»-

—

R FREooIe
:;VO\JS
YR J ZKSiess8

148:

e e

e et e

ROIOR
RO FOROTORD
e
WO NN
E WM

0 WD DD

1
1
1
1
1
1
1
1
1
1
1
1
1

WD DD DD D DD D

SRSBIRRLSOEBBIRA

318 geecs gousez
1

30A(10S2)
10-JAN-78
TYPE ERROR ROUTINE

NAMING
CONVENTIONS

CZR6IED UNIBUS RKE DR_PRT2
CZREIE.P11
10-JAN-78 09:43

MACY11 3onxxosa)
10-JAN-78
YPE ERROR ROUTINE

11:25

PAGE 177

177776

3241
9245
EEC

000014
000340
000020
000003
000006

9247
3248

b.1vEC =
14
TRT v:cron Locnrxon
0.STH
=
gqo
anoarY MASK - ; TUS REGISTER
0.78T
=
0
1T-BIT MASK - STATUS REGISTER
TRT
=
000003
:TRT INSTRUCTION
RTT
000G0&
IRTT INSTRUCTION
;
IS USUALLY CONSIDERED snr:
: ncsxo§§ IN IT. AFTER A BREAK OXNT 17 * gev 10 %gn
SEARCH

ggg?

! BE USED EXCEPT FOR JSR'S AND THE CURRENT ADDRESS POINTER (CRD).

9253

177562

9283
9254
9255

9256

0.RCSR
0.T0B
0.TCSR

9257
92
928

:
;

:
;
:

9260
9261

4555 0SS500 000413
9264
3265
326

055502
SS04
ggsgés
5
055524

000417
013737
187 7
10737
137

0S5460
177776

1
35790 §§§§§2 §6§§g9
82 Y40
4oy

BR
O.ENTR: MOV
MOV
MOV
JNP

O.STRT: MoV
MOV

92;3

9280

9281

9235
92

9284
85

gggg

0S557Y

RORB

nong

127

oooqo;

oxggg

0S5610
ggssxs

012737
012737

Se24

177776

105037

000447

000340
0See4s

9288

000016
000014

0.45

0.STRT

0.RST
ST,0.UST
0.tvEC+2,sT
PC,0.UPC
0.8ki

#0.URO,
SP
o.usgSP

8'8Sg¢n
0’0.PRI.RY
UIN, 30.ADR1

RY,ST

P&+

0.45

CLRB

0.P

0.RALL

SRTI,O0.RTIT

STACK

nvs
RE RKPO
. TR,
SE
MOVE
?gg
anenxpoxur

RY4

MOV

MOV
MOV

?S«E uPT

:S xr

MOV

snrnv

'REST
RE-ENTE -- savs STATUS
‘SET up OCAL STATUS
‘FAKETHE PC

RORB

0.RST1: JMP

056566

;R DATA BUFFER

;R C/§n
;T DATA BUFFER
;T C/SR

"USE 0.0DT
FOR A NORHRL ENTRY
USE 0.0DT+2 TO RESTART 00T - WIPING OUT ALL BREAKPOINTS
USE 0.0DT+4 TO RE-ENTER (I. E. - FAKE A BREAKPOINT)

l; ggsu
7064b 177716 0.RST MOV
?gn
§§sfl“
8139;7
S4
113704
055462
MOVB
5322

177560
177566
177564

SHOULD NOT

quranxz§ 00T

gg;
9274
9275

92;;

177562

=
=
=

b.00T: BR
177776
000016
055456
6

;STATUS REGISTER

RATIONS LEAVE IT RANDOMLYFILLED. OTHERWISE

b.rOB

177560
177566
177564

177776

SE3 3177

gggg

9244
gg:g

114

xnro

POSITION

:STORE IN STATUS

:SET TO "7533' 16/20 OR ~/0S
oxsnLLou

80.STM, 0. TVEC+2 ; TATU TO rnr VECTOR + 2
#0.BRK.0.TVEC
:PC ro rnr VECTO

:CLEAR ansnxpoxnr TABLES

! SPECIAL NAME HANDLER

gggg

929]

0SSe2e6

004537

9293

0S5S636
0SSe40

120024
001413

055632

012704

057306

057531

"DEPENDS UPON THE EXPLICIT ORDER OF THE TWO TABLES 0.TL AND 0.URO

0.REGT: JSR

5.0.GET

:SPECIAL NAME,

0.RSP:

RO, (R4)+
0.5p

1S THIS THE CORRECT CHARACTER?
:JUMP IF YES

MOV

CMPB
BEG

2. TL,RY

GET ONE MORE CHARACTER

:TABLE START ADDRESS

CZRSIE 0_UNIBUS RKE DR _PRTZ2
10-JAN-78 09:43
CZREIE. P11

(L5

087537

704

0SS440

1627

0007

cHP

RO, RY

0S7s22

0. SP:

INC
8R
SUB

ADD

.ORPC:

#0.URO, RY

R2
0.SCAN
80, TL-7,RY
0.SPI

PC,0.TCLS

ADD
ASR
BCS
ASL

aR2,R2
R2
0.ERR
R2

MOV

R2,RS

JMP

0Sel172

0ss472

SEQ Q178

;IS THE senncu DONE
?

: BRANC}
‘MASK OFF

OC nL

; GENERATE noonsss

iSET rggno
NEXT cnnnncrsn
:GO FIND
*CORRECT CONSTAN

.BKPT: TST
BEQ

Oererernies e

(R2)+

0.0pP2

R2
0.RALL

ASR
BCS
ASL
BSV

RY
0.ERR
RY
gw 8.non1

0.D2D

.RALL: MOV

0ss472

; CURRENT ADDRESS IN R2

: COMPUTE
BIT TO CARRY
: MOVE
{ERROR I ooo NUMBER
Rssrons
éncgsnsnr BY TWO
uponr

iGO FINISH UP

B HANDLER - SET AND REMOVE BREAKPUINTS

;IF
;"

_NO
REMOVE

R TYPED
BREAKPOINT

{CHECK IF 0DD
.JUHP IF 0DD
:RESTORE ONE BIT
:SET A BRERKPOINT

oo.rgrc,o.nonx ; CLEAR BREAKPOINT

COMMAND DECODER - ODT11
% ;Rs RO-RY MAY BE USE 3

GISTER RS WILL BE CONSIDERED SAFE

.ERR:

BIS

%1, RS

CLO

.DCD:

JSR

§'0.CRLS

rvps

CLR

BHI

0.CLGL

MOV
JSR

.DCD1: CLR

057306
000060

.SCAN: JSR
CMP

000067

CMP

177770

$177770,R0

JSR

MOV

15T

057546

PAGE 178

« HANDLER - OPEN INDEXED ON THE PC

057432

e la)

g__
W

MOV

ASL

Oesaves

Crsiath

W
~

—

-ST
=
o 8o
8282 reYets]
noo
NELE
%n—
W)
oF
~N

RRARAARAR
vy
\l\l\l\l\lflflw
So TRoR 2ot

333292%
ae
s0y,
055752

o.R§P

0. SP1:

J14

11:25

#0.TL+0.LG,R4

eué
Bl

177770

- e

&
2

&
3

9295

MACY11 300(1052)
10-JAN-78
YPE ERROR ROUTINE

BLO

BIC
ASL

ASL
ASL

ADD

s’} RO
S,0. FTYP

5,0.GET
#'0, RO

E nvrnxnc
s;
gE
ouT

<cn><

;
on
rnc convsnrso OCTAL
;
Hgs R FOUND FLAG
nsrunn IN RO
:GE a
;COHP
Wtk
nsch 0
K hn#xrvI non-nunznxc
,cuec

%'7.RO

: COMP:

$177770,R0
RY
RY

: CONVER
! MAKE
R
i
IN

0.CLGL

RO, R4

Cl17

.cutc # ?RLITY 1r NOT OCTAL

:PACK THREE BITS IN R4

9351
3
9
4
S

é%??

057515

MACY11

.CLGL:

INC
BR
CLR

LGLI: CMPB
BEQ

INC
CMP

000014

BHIS

2 =8
gggé

000171

]
3354

ossorg
;“

056120
056152

9367
9368

133
1

ossxg:
0556

0.0RPC

26
6304
056300
0557;q
osgg 0
000030

0.0FST
0.WSCH
0.EFF
0.BKPT
0.PROC
=

93;9

0.REGT

osn;:gxs

937

822120

005702

9381

124

010405

3380

.CRET

122

3382

ias

AGL

oog;os

3389
o2eide 0%
3 06
2ol 00439 os7222
3 85
Oseias BO031a

9388
9389
9390
939]
9392
93393

9394
9395

9399
939

0S6I44
056150

(056152

0S6156
0Sb162

ossira

9~8§ 335
04

9405
9406

000001

TRY AGRIN

RO, 0 bccmnn
0.LGL

Ri
R1,0.CLGT

0. tnn

0.L
Ri
90.LGDR(R1)

CLEM INDEX
CODES MATCH?
i00 T
; JUMP
YE S

NDEX FOR_NEXT SEARCH

i SET

IS THE gE H DONE”?

IPLY BY TWO
0 PROPER ROUTINE

OPEN

CARRIAGE RE

gsc¥ TER

;

0.GO
0.0P1

3
-4 LF>

0.BACK

HO%EFY
OPEN

OPEN

OPEN NEXT

INOEX -

:
O
OFFS
;
W SEAR CH WOR
SERRCH EFF CTIVE ADDRESS
3
B
ansnx
B
:
;
P ocsso
;LGL MUST EQUAL 2X CHLGT ALWAYS
"-0.LGDR

TST

BEQ

0.WRDA

.WRD1:
.ERR2:

MOV
ASR
BCS
ASL
MOV

RY,RS
RS
0.ERR
RS
3RS, RO

-WRDA:

BAC

#1,RS

,GO BACK TO MR

PROCESS CARRIAGE RETURN

3395
164
3400 832190

3:01

042705
000766

RE HAS NUMERIC FLAG

R2
0.SCAN
Ri

SEQ Q179

PROCESS # - OPEN WORD

.WRD:

001410

PAGE 179

056204

0Se210
0Se214

004737

052705
7

057432

000001

737 057432
5725

0?3537

057456

012700

0000S

4537

004537
000744

0S722

057364

.CRET:

JSR

BIS

PC,0.TCLS
sl RS

0.0cD

PROCESS <LF>,

OPEN NEXT WORD

.OP1:

JSR

PC,0.TCLS

.0P2:

JSR

5,0.CRLF

TST

(RS)+

MOV
JSR

& RO
5, 0.CADvV

JSR
BR

§,0.FTYP
0:WRD

MOV

%' /,R

;CLOSE LOCATION

;CLOSE EVERYTHING
;RETURN TO DECODER
RESENT CELL
E NEW ADDRESS

'fl—“

qarg

BR
ASL
JMP

.LGDR: g.uno

76 Sgsq(

31
11
0Sell2
822114
116

11:25

0 YPE
UT ADDRESS

9370
937
9372
9373
3374
3575

056070

Osterer O

3369

.LGL2:

q%&i

K14

10-JAN-78
TYPE ERROR ROUTINE

30fl(1052)

CZR6IED UNIBUS RK& DR PRT2
CZRGIE.P11
10-JAN-78 09:4

;GO PROCESS IT

0Se216

004737

0S7432

L14

11:25

PROCESS

¢,

0. BAcK: %5$

PAGE

OPEN PREVIOUS WORD

NEW ADDRESS
THE REST
285"80RATE

b.0FST: ASR

£3

;GET

ASL

RESTORE WORD

. PROCESS 0, COMPUTE OFFSET

MOV

000040

057364

JSR
sug

SEC

0s7222

s’ ng

;go'FTYP
nu'""

LOW ORDER BIT

IF CLOSED

L TYPE

: AS A
: COMPUT

BLANK

SEPARATOR

16 BIT OFFSET

ITYPE A

ggn
BCS

;:DIVIDE
BY TWO
:BRANCH IF 0DD

JSR
JMP

nu R2

5 o cnov
0.DC01

! SEARCHES - SMSK

ERR

RY, RO

Jss

0.0F1:

v FRR2

MOV

0s7222

085774

SEQ 2180

180

P? OSTCLS
o.gfiz

BCS

YYR8EYRS

038255 805762

§28 £ ég&

R
R e s C 28

<0
L
W
£

L
!

PLLLLLLLLLLLLLLPLLLPLLLL
PP FD

OO0

0 _UNIBUS RK?RN
DR_PRT
Pl
8 09:43

'SAVE RY

:NUMBER IN RO - WORD MODE

INUMBE< IN RO - BYTE MODE
{ALL DONE

HAS THE MASK
SMSK+2 HAS THE FWA

(3 MSK+4 HAS

THE LWA

MACY11l 30A(10S2)

10-JAN-78

0.€EFF:

0SS470

cu;

MOV
MOV

o.nsmsgna
gsnsx

:SET ORIGIN
;SET MASK

R2, 0. MSK+4

;

8.5831: 530
0.WDS2:

COM
CMP

MOV

oog

TST

;EXCLUSIVE OR
; 1S DONE

BIS
BIC

Ro.ag
RS.R

flg
"

RY, -(SP)

8'/,RO

MOV
JSR
MOV
0.WDSY: ;gr
CMP

2 Rg
5,0.CRovV
'FTYP

,ngo
CADV
'
(8P)+,RY
(R2)+

0. WDS2
RO, RY

BEQ
MOV
ADD
INC
INC
CMP
BEQ

0.MWDS3
RO, R3
ns,na
R
R3
R3,RY
0.WDS3

MOVB
cecc
ASL
INC

BIC

INC
ADD
CMP

0. WDSY

MOV

JSR

(SP)+,R3

g O.CRLF

057364

n
wn

—

£N

frsrrrrrrrrr

R;PPETesPRTCORTrre
2
:e 2RSR RS
ShoneE

33949ELE
SO
2999 282209092
¥ o'
2
=3

,=(
RY.R3

JSR

v
JSR

BR
057505

;Nocsvg OBJECT

RY RO

05722

IS ;r: SEARCH ALL DONE?

BIC

MOV

177400

,RO

:AND COMPLEMENT IT

:BRANCH IF EFFECTIVE SEARCH

0.WDS3: BNE

0.EFF1:

ecvuu'm

gosrr

a§c

0s7222

’&'585 x?RuSB

BNE

MOV
MOV

057456

0.ERR

;SET uogo ssmacuT >

IN A VERY

;

FANCY MANNER HERE

IAND RESULT WITH MASK
;Rs-liogp F NO MATCH
ga,m. AND RS ARE SAFE
iREGISTE

'tT;:r
; TYSE'‘Cnerr’
'SogngssTYPE
RO

:SLASH TO

‘GET céwr NT
; TYPE

;

TYPE

ENTS

INGRERENT

TO NEXT CELL AND

: xge(x):x?
:

) +X

)+X+2
(X)+X+2=K?

XX<

55SRR

0SS466
0SS464

;SET EFFECTIVE SEARRCH

0.WDS
sé

—~r~
-y

;

0.WSCH:

SEQ Q181

1(X)

IF EQUAL

TO R3

8681

11:

TYPE ERROR ROUTINE

bt~

—

T
IBUS RKE DR _PRT2
10-JAN-78 09:43

; BRANCH *F EQUAL

RO
#177900,

RO, RO

;WIPE OUT
EXTRANEOUS BITS
;EXTEND SIGN

RO
RO

;HULT%PLY BY TWO
TWO
;ADD

RO
R2,R0
RO, RY

;ADD _PC

0.P

;DISALLOW PROCEED

0.UDS3

;IS THE RESULT A PROPER REL. BRANCH?

PROCESS G - GO

4.G0:

CLRB

ASR

;CHECK LOW ORDER BIT

;ERROR_IF ODD NUMBER
; RESTORE WORD

Olg;

:
177776

52 8227
176732

176
057546

ggv
JSR
0.TBIT: CLRB
BIC

0.G02:

MOV
MOV
MOV
MOV
MOV
MOV

MOV
MOV

MOV
MOV
MOV

0SS460
055456

0.RTIT: RTT

gg'gigpcr
s.g.ns??
0.

80.TBT,0.UST

90.ADR],0.UIN
0.TRTC, 90.ADR1
(5P)+,R0
(S5P)+.R1
(SP)+.R2
(SP)+.R3

(gg)o,nq
(SP)+,RS

(SP)+.SP
0.UST,=(SP)
0.UPC,-(5P)

PR onxrv
EESTOAEHTEL
TYPE
; go

;

i rhsg§

;
i

THRU

snvs
10N
nsp%ggs WITH TRAP

;
3

: AND SP
:
AND STATUS
;
AND PC

:CHANGED TO RTI FOR 11/20 AND /0S

: PROCESS P - PROCEED

e o

ONLY ALLOWED AFTER A BREAKPOINT

b.PROC: T1STB

Frono
Aoy
ggu
RN
737

BEQ
RB

s B
e
e Be B

SRR

SEQ d182

TYPE ERROR ROUTINE

NN LwWwh-0O

RRRRRBRRR RARRRARR

5474

Ll el ad el ad el ol ad ad od ol

leliel

§§

0_UNIBUS RKE DR_PRT2
i1
10-JAN-78 09:43

TST
BEQ

177776

0.PR1:

0.Cl:

055460

MOV
MOVB
JSR

MOVB

INCB
g%s

0.P

0. SR’"
0.
R2
0.PR1

sCHECK_LEGALITY OF PROCEED

LEGAL
c AR PROCEED FLAG
NO

COUNT

CIFIED?

RY,0.CT
oo STM ;T
rst

vss
:FOR
;RE?

0.7
#0. TBT,0.UST

:SET T-BIT FLRG
:SET T-BIT

cb srM,ST
0.6

:SET

PUT AWAY COUNT
xgu PRIORITY
TY

PRIORITY

HIGH

NTE RSEAKPO
WHICH
SAVESLEGAL,
;E BRE?#TOINERKPO
vnnxougR5uo Ezggi Sr? ? BF 5
NT WAS

9527
c8

t
AND GIVES CONTROL 10

b.anx=

0.BK1:

JSR

1578

NE
MOV

176574

ggla

0.BK2:

177776

MOV

0.BK3:

MOVB

BR
MOVB
cCcC

RORB
RORB
RORB
RORB

MOVB

(SP)+,0.UPC

anoaxr 1S 7 uron ENTRY

0,0.SVR

; n

g.raxr

;

o.us$.ns

Pigx
upsngin 95?
:AND DON’ conpure ruz ano ITY

(SP)+ 0.UST

0.7

‘UIN,30.ADR1
8.521
0.BK3
0.PRI,RS
RS
RS
RS
RS

RS,ST

STATUS AND
P

:CHECK F

; nové
:CHECK 1

REGIsrsns

SET

-BIT SET

AKPOINTS
pnxggxrv . PGH

‘0THERWISE PICK UP ACTUAL PRIORITY
:CLEAR CARRY

:SHIFT LOW ORDER BITS
i
INTO
HIGH ORDER
:
POSITION
;

'PUT THE STRTUS AWAY WHERE IT BELONGS

cznsxso uuxeus RK& DR PRT2

CZRBIE.P11

9548

33“9
go
38
og
9554
gtcg
95
gg
3559

10-JAN-78 09:43

MOV

TST
MOV
CHP
BEQ
JSR
JSR
MOV
MOV
ggs
BIC

Oui47e
057122
gg 56
7510
8275 6

760
;;3
774

735
000020

1
1
18

055460

0S5474

0.B2:

3261
02
Ghes 32;853

Qogogs
327122 O0s=HH

9569
9570
95;1

057052
(057056
057060

057222
055770

0.B3:

9576

7070

057502

b.svR:

I
B
9SE8 835335
§§;fl

7068

oLes
055472
012637

010637

9577
9578

057074
057100

012706
010546

9580
9581

057132
gg?:

10346
10246

9579
9582
9584

35533

0S7102

055454

Thes

-(RS)
RS, 0.UPC
Re’ 0. ADR1
0.82°
§,0.SVTT
§'0.CRLF
#0.80,RY
#0.BD+1,R3
ohavpt
#0. TBT,0.UST

0.83
0.CT
0.Cl

0827
5,0.SVTT
o

e
MOV
0.ADR1,RO
JSR
CLR
JMP

5.0.CAbDV
RS
0.DCD

MoV

csp)+ 0. XXX

MOV
MOV

oo usp Sp
5.-(SP)

MOV

0. (ISP

MOV

R4, -(SP)

7110

010146

MOV

RI.-(SP)

057153

005746

057112

0571

013746

PAGE 183

0.UPC,RS

010946

MOV
MOV

057502

MOV
TST

000200

RTS

SEQ 0183

:GET _PC

17 POINTS TO THE TRT

: SUBTRALT
THE
Ussn’s
LISTPC
WITH
COMPARE
{:FROM
: JUMP ¥r FOUND
iSAVE TELETYPE STATUS

;ERROR, NOTHING FOUND
;OUTPUT "BE" FOR BAD ENTRY
;CLEAR QUT ANY POSSIBLE FAKE T-BIT
: AND CONTINUE

; JUMP_IF REPEAT

EEE"
BROGEED.STATUS, R4 IS SAFE
E“TELETYPE
L%

csr
nognsss OF BREAK
: TYPE ADDRESS
:CLEAR CAD
:G0 TO DECODER

R3.-(SP)
R2,-(SP)

0. %xx, -(SP)
-({SP)

;PICK REGISTER FROM STACK AND SAVE

:SAVE USER STACK ADDRESS
1SET _TO INTERNAL STACK
1 SAVE
; REGISTERS
:
:

"THRU

:PUT SAVED REGISTER ON STACK

: SAVE TELETYPE STATUS

057122

113737

177560

3530
95g]
9592
9593
gggg
gggg

71
71
(57142
(S7146
057152

113737
105037
105037
004537
000205

177564
177560
17756M
057456

SEag

7154

004537

057456

9601

057166

032737

004000

057506

05750

057174
057176

001403
105737

177560

O.SVTT: MOVB

Egla

177560

0.RCSR,0.CSR1

MOVB
0.TCSR,0.CSR2
CLRB
0.RCSR
CLR8
0.TCSR
§.0.CRLF
JSR
RTS
RS
; RESTORE TELETYPE STATUS

. 0.RSTT: JSR

3533 §§;igg i sggg 177564
9602
9603

BR
DEC
BGT

11:25

: SAVE REGISTERS RO-R6 IN INTERNAL STACK

ggg;

9589

10-JAN-78

TYPE ERROR ROUTINE

055456

0S6734

9560
9561
8562

MACY1l 30&(1052)

B15

BIT

BEQ
TSTB

5,0.CRLF

o TCSR

ouooo 0.RCSR

0.RSE]
0.RCSR

;SAVE
R C/SR

;SAVE T C/SR
CLERR ENABLE AND MAINTENANCE
BITS IN BOTH C/SR
rvps <CR,LF>

CR,LF> BEFORE RESTORING

sWRIT nshov ON PRINTER

:CHECK BUSY FLAG ON READER

:SKIP READY LOOP IF NOT BUSY
*WAIT RERDY

S%RSIEO UNIBUS RKE DR_PRT2
RBIE.P11
IO-JRN~78 09:43

9605
82;204113737 75!
9609 7el 113?37 837589
0S7222

9620
£
£8

010246

9628
9629
9630
9631
%32

7276
057302
0S7304

mms

7306

R
9633
7350
9639

ae -(SP)

MOY

c'o -cs )

MOV

110244

004537
0126
000

7324

ggs?
9623
953
9BSY
3255

773

057354
0573
0S7362

1
ADD
ngva

8177776, RO
(SP)+,RO
gg.-thu)

iGET LAST BIT
s CONVERT TO ASCII
nug PUT IT AWAY

JSR

5,0. TYPE

'BUF +6,R3

égp)+,aa

.GET:

TSTB
BPL

0.RCSR
-4

MOVB
JSR

.RDB,RO
g
tvp

R—

BEQ
CMPB
BEQ

0.GET
ougtao
T
o

RTS

BIC

177600

030
103426

1lleM
S37
000772

CMPB
BEQ

;

rnnse WHOLE PLACES
NO

TYPE WHOLE STRING OF CHARACTERS

Rssroae R2

ol77soo RO

: RO
o ce

sWAIT FOR
INPUT FROM KEYBOARD

iGET A cunanc R
;ECHO CHARACTE

srnxp OFF PARITY FROM CHARACTER
GNORE Nuugs
HECK FOR SPACES
NULLS
GN

ssn ~COLON
r?n
cuscx
FOUND
: IGNORE THEM

ourpur ROUTINE
rg

GENER

ADDRE s

RST

ADDRESS OF sr avrs IN na ' (R3)> (RY)

.TYPE: CMP

057364

:8T0
;SHIFT _THIS nsss
: "RIGHT

GENERAL CHARACTER INPUT rOUTINE
CHARACTER INPUT GOES TO RO

6573

BLO
MOVB
JSR
BR

P
o.t
(R4)+,R0

s,o Fivp
0. TYPE

?x
FOR CONPLETION
N DONE
:cer
A cunnnc ER

TYPE ONE CHARACTER
.LOOP UNTIL DONE

TYPE ONLY ONE CHARACTER (CONTRINED IN RO)

965

9658
%S9

;

000205

0S7384

105737

177564

ASCII O

RY, 80.BUF+1

177560

TETETETE
T

3648
9649

0S734%

;CONSTANT

Egg

9%B4S
3646
%47

:BUFFER START_ADDRESS

2,~(RY)
RO
RO

MOV

057350

;SAVE R2

MOVB
ASR
ASR

g5 B3
28 oon
7344 081760

RE§H2R§T9TUS REGISTERS

TE
c
: x§27“§
:c

ASR

0S754S

105737

042

ON READER

5077770
§P, s ; R2

"?X
weer. goo

062600

12703
(o

6.6581;8.9588

6. CADV: MOV

TETETET)

B87

SEQ 0184

PAGE 184

WORD IS IN RO

645% 177776

W2S

RSEL: gggg

ClS

11:25

TYPE OUT _CONTENTS OF WORD OR BYTE WITH ONE TRAILING SPACE

;

%is ; lé@g 177770
$ie B8 M
g5

gl B0 fiow

| gu

Se0

360
9608
9609
310
9615
36l

18
-JAN-78
EE ROR OUTINE

MACY11 30“(10

b. FTYP: TSTB

0.TCSR

;CHECK STATUS

CZR6IEO UNIBUS RKE DR PRT2

CZRGIE.P11

gg
96

10-JAN-78 09:43

79
73

198975
1012

96885

Bon mom
Eroe gl

0S7500

00020S

%§

0S7502

000000

9700
::;%

7506
057507

000
000
000
000

970S

BAl

g;io

0S751S

gi Emie
9713
9714
9715

057520
057521
(087522

TSTB

o TYP2

BgL

BGT

0.7C:

TST
RTS

0s?7

107
0le
137

;WAIT

SEQ Q18S

UNTIL R

5 3&5 n§28

0’ J¥4S

IS cuna To BE FILLED’
NO
vss INIT THE COUNT

YP1

aouu ~(SP)
TCSR

108

; GENERATE NULL FILLER

0.TYP2

Rgp;+

;POP STACK

freld

Ba
B

RT?

Sch

:GET LOW
R BIT
:JUMP IF ALREADY CLOSED

ooc
ol

B YR8 OPEN ceLL T IS
i
ok
l5ho

POP EXTRA CELL FROM STACK

-(SP)

0.ERR
! 0.CRLF - TY:E <CR,LF>
<CR,LF>#*
! 0.CRLS - TYPE

{AND SCREAM BLOODY MURDER

O.CRLF: mov

80.CR+1,R3

;LWA <CR,LF>

oo.ca+s R3

;LWA <CR,LF>#*

5.0.

:TYPE SOMETHING

JMP

0.CR

ngv

#0.CR,

0.CRLS: MOV

0.CRS:

JSR

RTS
O.xxx:
0.7:

.WORD
BYTE

0.P:
BYTE
0.CSR1: .BYTE
0.CSR2: .BYTE

TEHPORRRY STORAGE

O
O
O

PROCEED FLAG = o xrPROCEEB NOT AL bONED
F PROC
ALLOWE
snvs CELL - n C/S
:SAVE CELL - T C/SR

.EVEN
.WORD

“BE

0.crR:

.BYTE

015

YT
.BYT

8.LGCH: .BYTE

<CR>

T
3
:

‘=~

Po.

0*5

.BYTE
.BYTE

'G
0l2

.BYTE

T-BIT FLAG

012
'

BYTE

;

0.8D:

SEEB

°'$ESI’

5
¥

7504
0S57S0S

BNE

b.TcLs: ASR
EE

g 0S74S6 012703 057513
369
%g

ho0.TDB

MOVB

PAGE 185

OR BYTE AND EXIT
: CLOSE
: UPON ENTERING, R2 HAS NUMERIC FLAG, R4 HAS CONTENTS

0.TYP2:

D15

11: 25

MOVB

CMPB

0.TYP1:

g0 Bl wo

Xes

BPL

00004S

2 gErize Qocres

10-JAN-78

TYPE ERROR ROUTINE

|,peee

g6 B s o
*62 i | ;; 177566
%67 Gruis |GGy
967
9674

MACY1l 30A(1052)

CARRIAGE RETURN

i
G
)
HERTH

MACY11l 30A(:0S2)
10-JAN-78
TYPE ERROR ROUTINE

SRA it

'E
’

:
¢

’

; TRBLE LENGTH

;DO

0
0
'B

; THE
; ORDER
; HERE

;NOT
; CHANGE

-0.TL

0 LG

0S754S

;6 CHAR.

?BYTE

ounLwn-—-

<£

)
N

SEG 0186

-0.LGCH

b.BUF:

PAGE 186

Lo
1’ 10V
oouUow

000006

£1S

11:25

=28

BUFFER WITH

; TRARILING BLANK

.EVEN

B.TRTC: TRT

; TRRCE TRAP PROTOTYPE

gTHE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL

000001

.=
(0]

coD

OO ws et e

00000

0.00T-40
; USER RO
;

R4
RS

p
w

0.URD:

0O0OVNOOOO0OO o000

RRRRAR
ARG
RECRE

2
-

—

Rfib

S
R

RARARR
o
8
w

—

10-JAN-78 09:43

)

VERETRTM

OONT

DO
O0 00
DO DD D
NNN NNNNNNNN

IBUS RK&E DR_PRTZ

; USER gP
; USER
PC
;US;R ST
PRIORITY
;ODT
; MASK
;LOW LIMIT
;HIGH LIMIT

$gs, ADR1 = ADDRESS OF BREAKPOINT,CT = COUNT,

CZRGIED UNIBUS RKBE DR PRTZ2
CZRBIE.PI11
10-JAN-78 09:43
ABASE =
ACDW] =

1889
188

1930
1932

AcPUOP= OX
2871
= 00000C

‘533'
éxaao
1889

1904
3298*
1934

ACDWE =

F15

MACY11l 30A(10S2)
10-JAN-78
11:25 PRAGE 188
CROSS REFERENCE TABLE -- USER SYMBOLS

1 =

10=
ll=
.
12=
%l
.

00O
)

14=

1889
1889
1889
1889

1889
1889

.| ADDWY ~=
=
=

1933

1935

=
=

1338

1889

1941

1889
1889

188

VM =

1936

18339

lggl‘
1889

=
-

188S

1939
1940

1895

188

1931

NVM =
AFATAL=

1889
1889

1901
1892

1889

§NV

1889

AMADR]1=

1933
1888

1900

1917

1921

1924

AMADRY=

1889

1927

1889
1889

1919
1922

1889

1911

1925

1889

1897

m‘ifi Y=

1886

1891

AMTYP2=

1889

1920

AMTYPY=

1889

1926

7393

7usis

74488

1689

AMTYPl=

1888

AMTYP,
APASS

1944s

1889

S=
=

1889

SEQ 0187

18€

APTCoD=
:

APTENV=

5976

APTSPO=

7274

APTSIZ=

1889

A gs N=

1889

1598

1912

1923

1894

7226

7272

7409

74508

1902

1893

ATTN

2055s

6183

AUSKR =

1889

1903

204Ss

3306%

AUNIT =

1889

1896

7407

6202

6228

Y020%

41S51*

74498

BADHDR

007340

4418%

4608

S5708*

5923*

S5926*

6935

CZR6IED UNIBUS RKBE DR PRTZ2
CZRBIE.P11
10-JAN-78 09:43

gapmo_ gasee
T

gaig =
§a+go
==
T

BITOl = 000002
T
[T

=
=

ET =
BIT

100

G15

MACY11 30A(10S2)
10-JAN-78 11:25 PAGE 189
CROSS REFERENCE TABLE -- USER SYMBOLS

B e e

63898

5776

1135
llggl
1127%
1126#

8821

1191
1137

1223

SEQ d1es

S106

1242

elle

3421

6880

S268

S344

S469

ssa2

se42

6693

1136

11258
11248

1135
11

11228

1132

11 gl 1133
11218

1131

s T10 =

11178

Hige nE o R e
1199

1214

1233

1265

lsgg

159

7214

1521

7176

BITIN = m

;i‘.l’;l

1200

1218

123

12583

1269

128%

1323
1324

7ez2l
1334

6682

S870

6678

6689

1317

3411

46" 3

=
=

Tlé =

]

ginis : o
=

BJ;W : 000020

Birs = gocoo
=

lllg.

119

S B
Ye

ii33.

12185

1234

ISS;

R g
1226

1266

1245

amen

128

{208

{227

i?:;

{229

i ?z

i31fl
1276

138

1347

lany

‘BIT7

= 000200

&;Zgl

&é;g

ézéé

1230

1249

1262

' BITE

= 000400

}}SS:

11298

1194

1195

121

1213

1231

1232

1250

1264

1278

126

1277

ésggl

uogg

4172

4236

4462

4933

278

3634

‘g;;sgct 0010?3
BSE

BSERR
ggEBOH

1512
336

=R
36

BSE22S

B¥:C R

8
2037:

3929%

o408

3934#
Sbgz

481 2 BN

3?0?6

3997.

g§§§.

ggeg.

CCLR

= 100000

ISOSI

gfig&

EC¥L

001350

33;5

CACRGD 0013¢3
CERR =1
=

CFMT
= 001520
010000
CHKFLG
CHKMSG

033042

4011
6;92

OR B

~78S

VS;B

3603

3630

gssg

Hg?

4182

4472

sess

;

333?

4038

4062

4483
6351

63S

Hy5h

B9y

4522

5371

421
H?gs

4260
4829

477
yasg

10 A WA Bl serer sews

se8

i966:

12018

11988

Hflg

2031s

b2ES %

6348

S246

S300

8319

3
4

4087
4644

1292

4106
YUpes

§57

194
4714

cEgy

6410

G499y

4693

6418

6513

6255

4723

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

ErEa: Qo2
CLKOF
CLKON
LOCK

036134
036040

513
117

11:25
PAGE 190
10-JAN-78
CROSS REFERENCE TARBLE -- USER SYMBOLS

MACY11l 30A(10S2)

5438

4695

COUNT
CR

Bif,
5097

SEQ d1e3

S180

5256

5421

S5%%

6956

8208
BE8

8413

§5ed

8219
85%

822¢

8156
8235

5853

6525#%

6S26#*

%
6527

6528%

6495#%

4726
6496

6498*

6S1b*

4778

4783

4371

5267

5343

5357

4312

4325

4448

5438

8473

524

seda'
5738

4731

8572

Y772%

8171
824S

8383

6S17%

6529%

6530*

48S0

s328
6537#

6535#

6536%

4s18

4920

4980

8738

4454

4523

5825

5886

5228
764

DF1

2339
2584
S0S0Os

5678
2273

5101
2364

5221

2289
414

3181

111

2504

3009

0s1e4?

2599
2860
el7e

S038s
2189

219s

2201

2342

2427

2467

2472

asia

2833

53 7
297
Sg&?
16
2206
gaxgo

2347

053573

2422

823008

8739.

2908

2913

3129

8771

9022

9033

044

0S4

9073

256;

87848

3119

8788#
8793

8779

SSH
302
607
eel
ell
918;

317
5612

)
256
9118

9lee
017

9l
9003

7
5182

2798
9120

edl
:

eesl
3099

2642

4Ye

edle

889

2407

ESOé. 2533 890S#s
e e pe

ede
567
c00s
8648

; .

£2288%

6 3010

MO OTM UV b () b
- L0ONNNE

gggg;?

8871

YRR

0s “é

2582

5702
3ee
2637
2246
22bb
9133

9137
024

2803
9135

3089

e33e
2858

3094

es4e
2863

3064
2999

9109

eec’l
2352

ec8e
237e

382
2377

2933
2492

2537

903S

9046

9056

907S

9lll

3109

3114

3149

ees?
3104

2292
3139

2397
3144

2402
88288

2647

2652

2657

8879

8814#
8823

82;5?6

2487

£8

g
—

~—

7é
88198

82%331
0l

gles
52530

—

3233

762
3014

238
87758
3015

e4lz

8889

8735
8738

14%

3222%

7191%

7213%

SeS2

62468

6249

3853
S166

3979
Si8l

4431
5217

4457
5257

4495
S407

S468

337%
5521

5629
S534

3620

3416*

3423%

34S6*

3486*

3505

3310

3418

o
J£D
[1)]
S|

0s27
0527%2

Se
9001

8013

wo
D
P -

0S1734

ecbl

0Seb3e
82;293

9101

8
8

Sggggg
ggsggz

082

43&

04
052061
BI
=
040000
ISPLA
il4e

DLB

35
2;77
g 68

ggawég
ey

9071

949

rnry
O L£oNWN

REITITIRTITIITIISS RneeTeNee

74
1664

0s2

8753
7628

§750e
3

SEQ 0190

PAGE 191

USER SYMBOLS

39:2.

9311

BEEId3

055200
4

DH13
g:lfl
17
DH19
DHe

115

11:25

ggfé

8713w

——

Buil

CROSS REFERENCE TABLE

124

09:43

U= 1= PO

10-JAN-78

wene
2
£

CZRBIE.P11

(10S2)

C%RSIE

3440
3458

3569

6026

4558

5582

4738

S306

4858
e102s

CZREIEDQ UNIBUS RKE DR PRT2

&
21368

12268

VMSK=
DRVPTR
1342
DSC
= 0400
DSWR
= 177570
=

8gg73g

DT13

0s4270

0000000000

8T1

0S4350
0S4440
053772
053776
0SH044
0S4110
0S41S6
0S4eeM

T14
T1S
13
TM

T6
17
T8
T9

.ACLO= 000100
.BRHM= 0001

D.CART= 000400

D.DDT = 000400

D.DOOR= 000200
D.DRA = 000040
D.DRDY= 000200
‘

D.DROT=

| D.DSC =
' D.FLT =
D.FORM=
. D.FWD =
. D.HDFL=
| D.HDHM=

040000
000200
1000
002000
000200
000040

1247

1
#
19628
12538
1058%

2161

2247

2428
2588
Eggfl
eesS?
2338
30
315

233
8
il
2328
2533
gaaa
883
3
2368

1302
12898

i
12918

3697%

80—

= 000040

1338

2227
2418
256
809
8315
2378
3065
3148

Y478

5063

796
9478

Yoy
1

5063
5§79

1290%

4478

?s;;l

4541

sa2ee
1
o]

4539

see0
1573.

453

S311

1309

12838
1303
1278#%
12938
13178
1288%

2237
2423
2583
2814
2383
70
3150

DROT

O07el
7514

BRIV
Dfllz?

51310
2132

- L0
JD
NWWLEoOow

DRIV3
DRIV

SEQ 0191

1308

ifiggoa
7S04

wnnn

DO07S00

8:;v5

8 v—u‘mf

0-JAN-78 09:43

y v

CZR&IE.PI11

J15

11:25__PAGE 192
10-JAN-78
CROSS REFERENCE TABLE -- USER SYMBOLS

MACY11l 30A(10S2)

5063
796
9476
s0el
794

9476
5238

4505

5081

5841
4505

5081
5841

4505

5081
5841
4503
5079
5839

4503
5292

K15

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

MACY11 30A(10S52)
10-JAN-78 11:25 PAGE 193
CROSS REFERENCE TABLE -- USER SYMBOLS

iDfiEt

1301s

kF =
Lost

13048
1323

e
V=

13228

ebee

2;; =

i279:

4639

4657

470S

PIP =
&0 =

xggeu
13218

4639

S061

Seel

RT% =

12968

3843

5171

SKI =
2000
SPIN= 010000

1306
1%81!

3885

V =

4709

4752

S4l12

5587

6947

4079

4098

4186

4205

4252

5238

5292

8311

5363

5382

S486

1292#
4541

3887
4568

4081
4Ye41l

4100
4659

4188
4711

4207
4760

4254
4823

12878
Hgflé

3887
456

4081
4641

4100
4659

4188
4711

4207
4760

4254
4823

378S
4503

3798
4539

3885
4566

4079
4639

4098
4657

8311

4186
rd

5363

2556

2561

12948

SECT=

D.SPLS= 010000

D.SPOK= 001000
D.SSP = 000020
D.S
= 040000
D.TIB = 002000
D.UNLD= 040000

W
o=
1
Ry

13148

4539
1

seee

See

13248
13208
1297

1275%
Y476

Egg&

4566

Se40

Se4

S079

4639

SeNM
S

See0

4657

8313

5238

4709

5365
S365

5292

4758

5384
S384

4758

4842

S0e1

S079

se2z20

5238

2566

2581

2606

2686

2787

4821

5488

S468

e
13198

M1
M10
M100
M101

046137
046713
0S1S60
051615

6052
2194
es31
2571

3197%
83764
BY4CH
8700#
8705#

3198%

7042

ggga

gsé;.

2ees

2296

2551

2386
83950
9.
-kl

2461

ebll

8462

2957

2962

2396
2406
2391

eb4l
2b46
2401

2907
3068
2651

3063
3088
e9le

www

oW
wWom

2291

2321

2411

2656

3093

CCWH
=
CH
=
MTVEC=

Hlé
Ml

mmmmmmmmm

M13
M1N
M1S
M1b

M17
M1B
M1S
M2
M20

0000
0100
0030

8:6776

047100
o471e2
8:71
7eb

047332
047353
047374
046213
0474185

12684
12298
11478

ang

2301
23eb
234%
294

2306
2255
e3ll
2159
2265

84S1is

2371
2270
cJdlb
8384s
2281

2381
2286
2376

B8483#

[

i
e
. XERR= 88?000

1315s
13168

MMMMMMMMMoOoOO000

.WCUR= 000040
.WGAT= 000100

SEQ 0192

2822

L1S

CZR6IED UNIBUS RKE DR PRT2
CZRBIE.PI1
10-JAN-78 09:43

MACY1l 30A(10S2)
10-JAN-78
11:25
PAGE 194
CROSS REFERENCE TABLE -- USER SYMBOLS

Enax

ou7w§8

2210

2220

na;

7772

2416

8541s

nas
M2
MY
M2S

Eng

Engg
M

79E
7565
?933
77
g

0S0170

M40
MY 1

0340

EMS
EMSS

046432
0504

Ensg

Zé

EME

EMBS

- EM?

M73

EM7Y

EM79

Engo
EMB1

046474

0535
0S

B854
%ossa

EMB2
EMB3
M8Y
M8S
M86
EMB8

050727
1001
10
11
1172
051230

' EMSS

051406

EM33
EMey

Qo871
OB1%6s

EREVEC: 836004
ESEC

001400

007444

466
2471
276

ERES

6993

2536
s

Y02

2361

8413

832

85964

2967

2177

2586
3223

3230°
2235

1981%

8&3&.
g 3 I

007450

E.R2

007454

3? 4

.A3

007460

3231%

3244%

3245#

3362#*

Yoso
s
anl:

4269%
ggqs:

SO061#*

8s0ls

2636

2807

85698

8410%

@slus
208

Beire
Bejos
il

152

97
650#
2576

#*
%

8640#
8656#

86818

3223
71S5%

71S8%

79%
4639%

E3
gss :

H;Sgl
g
:

Y
Bl

MBS
g 13%

4711%
gggéu

4760%
5384#%

4823%
gqeflu

47Bbo*
©5509%

NB2S*
SS44*

49Si¥
SSp3*

4970
SEE9*

SO04*
5798%

S296*
6287

4O99%

41B87%

420b%

4253%

4270%

%
Y477
5062#%

153%

E37%%
3887%

£575°
40B81»

e3vee
4100%

SSS%-

3883!

9102%

)%
S240#

YE43%
sggz-

4570%
6386%

1078

85768

2937

118

4541#
sa;a:

21028

2812

2862

8416#

2496

1148.

85634

2827

86044

2491

3381#

2998

2802

85938

86278
8635#
sgqa
46
2546
86618

16
386

2260

85334

2240
224
258
]
2541
2421

E.Al

007446

2501

a;;;

8394

2857

8581

2165
2701

2250

85498

2331

B5E0s
21038

8504 #
178
EEEEY]
85344

SEQ J193

B272%

3886%

MBY1¥
saeu:

YEbl®
5S490%
40B80*

30%

o8
4188%
Y4190%

#*
:

84207%

uaogc

8973
H4254¥

4325-

8399
H271#

4949x
5507%

4273

Y476%

S794#

HY478#%
S063%
S796#%
Y480%

CZREIED UNIBUS RKE DR PRTZ2

CZREIE.P11

10-JAN-78 09:43

10-JAN-78

11:25

S221%

S239%

S293%

S312#

S4B7%

SS06*

SSY1*

SSe0*

Sebb®

579S5%

Sg4Ox

4712%
gggg'

4208%
N47bl®
quq‘

4255%
4B24%*
S489%

M272%
4950
S5S08%

M334*
4969#
S543»

43S3I*
2823'
*

4387%
gggs
*

Y479%
i
797%

4S506#
2895‘
Yo

Y2578
Y
ES
S670%
4258%

H274%
ggJSI
99%
427S%

433b%
024
ISR
4337%

N3SS#
sogql
6297
43Sk

4389%
zsq %
k3
4390%

Y4BL1#
3597!
73
44E2%

S316%

GS565%

5671%

G5800%

5845%

6301

£303*

8984

6929
5234

6951
§752

»
%
'

YEHPR
39'

Yi01*
MbbO®
135

O
4189%

£.B2

007456
007462

*
%
E
1%

40B4Y®
¥
saeél
¥

4103
i
»
S510#%
G104%

4191-

£.83

21068
HEY4E
[}
108

492

5555'

A
| rnrra

uom
rLgao

FNTE

Ssgzw

0327

0350
144

FMTI
'. FORM
ancfr

DD1Y
1179
001433

FROY

rnsv

66028
66198

4G572%
z

1
46

661

46b3%
7288

416
4742

T4
5
20133

YS®
2362
9 35:

BEYEH
58688
uuagc

32366

bl42s

6145

6448

031766
032154

3278
82

§gégao

FTITCE 001390
caa
é;as
GINT

1;5

k
3993

PR*

5383

eé B
4542
g-

;59.

5335

BES2
5881%

BG4S

6674

3575

3585

5656

S244*

5910

62268

6105

6116

61288

6131

BY62

5298%

S317%

8106

8107

8109

8111

8112

8113

8114

8115

8116

33»2

39?0

go;r

uosx

wxu;

uxs?

gsaa

gg;g

;g??

gggo

gzg:

3952

BYYY S

%
s §3§§.
eus e
gkn gigg:
gm g
ggs § B
§3§S: 335333;2 :gme
79: gww
55951 gwe
3§31. 3§33
3?374 e
aega'

3355'

a%u%

GSTAT!

033720

1191w

§2§§
8267

6413

qggén
4S57%

60214
60798

géas

séog

s?zx.

6429

6436

64088

qrgu

476

gE.OI

6372

876

Sgg%

3517
8831

3521
blbl*

3533
6381

3§é5

6385

3618

362

bBB2!

8919

8928

8936

8944

7497%

20668
51;%

35]5
S354

2069

blb4*

Yi®

wggg;
Hfla

63978

Yol

§733

4933
4737%

2337

Y427
%
463S*

qugg;

2353

3393wgg;

4389

5;;3!

uies
Hggn

4385%

SY06#*

007364

BEY7E
6965
“333'

SOBS*

8105

= 000001

HDA

61998
5075

S02S*

8104

GSTAT

007356

9]
4862

SO06*

8103

' GO

HCS2

4972%

8934
4509

6001

5?2;

§3§q

GS4Y6%

g 'fl
G211%
4953

©£993°
60668

= #usssx U

c;rnre: ?auaso

gfl

47BN

55‘0 l
9192%
4B27%

19208
298

l GNS

033664

SEQ 0194

S364®

007452

YSUSE

PAGE 195

CROSS REFERENCE TABLE -- USER SYMBOLS

E.BI

FWT

MACY1l 30A(1052)

M1S

Y4SE®

4930

SE46*

5647

S6b1

5729+

HHE

836?

6507%

650

892

3625

8933

4322

437

834

835

89s2

8960

8970

8981

8993

21551

S180%

779%

5788

E824*

5833

885»

933

941

BISH*

5581 %
Yz

8916

6604

gagi&

5097%

g524

648

4523.
Y

4799%
S216%

HYS%

4459

5459

Y494
4B8S7%

4695*
S109#

5525

6466

480
S2S6%

§SHSG
949

S271%

8341

85913

836

sau *
6102*

8378
453

4528

6103

839
499

896

|
:

PRT2

MACY1l 30A(1052)

g%:szPvaxausxo-§agfra 09:43
D07376
7374

HDB

e H%

464

HEéga

ééifls

el
HMR

> ween

Hgk?
H

HPEND
=$OS

23 fl?fl

4SY

007342
?H?G

10-JAN-78

N1S

11:25

PAGE 196

“

CROSS REFERENCE TABLE -- USER SYMBOLS

2074s
738

898

ol 30 & N W MO
4s

B639%

BB4O*

BEYlx

EbY2*

0; 8

656B%

BSE9%

6570%

6571w

sOiSI

H13S%

Y422«

HéQSl

S860*

BB43®

6639

BEY4x

6716

S479
8990

S4le
891

S58
89

bl46*
3

H151%
894

B170%
8949

B4IS
8957

e423
8967

0?5.

gso *

89?3

8952

8936

8944

8952

8944

8952

g BB
0478
28;8:

*
9%;;&

5920
gflég

S922%
8928

e (0 B
*

6937
8936

7l%

BY16

Egc 4 135%
:ggg: Slbgl 8319 8928 8936 8944 8952
R 6535 8976
R
DO7434
8
6423%
8987
=

?lHO
D07426

2091ls

6318

6439

B963

976

H.B

007442

20978

bB41b*

B5SSB

6568

8987

{lrg:

70338
3195%

3196

9528

316

IDAE
= 002000
IE
= 000100
ILF__
= 000001
{NTER
036720
ISTVECS 008?88

12338
1192
12238
6094

415#

8987

001330

FleERE

gt U by oum o EM WG
8e
833;

2b
8341

8271
8349

8281
8355

8286
8362

8293
8367

8297
8370

6536

8554

851

8522

8534

MasSK
015440
Rgffil & 863:38

3713%
?g&g:

3720%
3721%

37268
37278

6496
BM9l

6541
6517

6526

MC
15436
MD
=
001000
MEMBAS= 172100
MEMERR
036656
MEMPAR
013056

3712%
12138
19568
3236
3230%

3719%
3515
3233
7019

37258
3616
3242

S743
6385

S864

S899

6166%

4752

Y842

6478

6525

6605

8993

H.§
H.

VEC

897

6637

8993

eba22

ARA3

MVEC= 000114

19558

1265#

RD
=
1
SMSK= 00001

MIND

HeCl0
neell
MSGI2

M3G13

Ouar
Sdzud
045000

12648
12588

15628

597
J066
5193

3236%

3237%

362"
Bac7s
Bob3s

gesas

g::fiewa

043145

3338

8o8lw

2566
045300

b255

3638
3747

3698
82998

8297%

M3CoE

3614

4041

4093

MSG27

Q4S432

83158

MBG14

M3G15
HSGI;

HoG38

Quesas

N3G
mSGh |
MaG40
M3GS

4961

2158

Bo9am

5014

2121
3279
%013
3281
7038
3296
5916
8918

B335#
82198
B34is
264
Bo3os
B8o408
BaSSH
83b2s

M3GS
044700
MSP
= 000100
MULTG
035656

5038
12618
536

82518

MaG
M3

6100
6122
46491

MaG

M.DPID

M.DP4O
M.DP41
M.DP42

M.DPY4
M.DPSO
M.DRV =
M.HERD=
M.ID
=
M.PAR =
M.SECT=
n:SER =

NED

NEM

NUD

OFFERR

=
=

037100
037134
037144

83969
8979
8034

1334%

7081%
20928
2097
7103

037176
037210
000007
007000
3
100000
000760
077770

2116
2090
3288
13368
13338
13378
13358
13238

DO4000

12158

3622

3625

638l

5119

5135

5143

5554

4345

4436

5152

5156

5736

5892

7114
7105w
7109%
7lo2w
71574
6569

19768

3521

3533

015146

347

esse

534S

001456

2009%

SO46¥

S117%

11838
12948
12368

4240

5600

67628

6559

OFFSET= 00001S
OFST= 000004
T
= 020000

4200

5377

83678
B370%
B24Se

6882
6476

010000

4147

83278

045620
iz
5660
Q967
4550
044604
5775
3

M3G7
MaG
M3G75

5306

CZREIED UNIBUS RKG& DR PRTZ
CIZREIE.P1i
10-JAN-78 09:43

Blb

10-JAN-78 11:25 PAGE 197
MACY11 30A(1052)
CROSS REFERENCE TABLE -- USER SYMBO.S

4638

5057

5216

4490

8307%

4SS3

4604

480S

4817

10-JAN-78 09:43

CZR6IED UNIBUS RKB DR PRT2

CZRGIE.P11
OR

0.ADR1 = gflé
5‘0%
0.BACK

.gm
.BK1

g é:

?
.

g?ga?
7

.BKS
.BK

.CADV
.CLGL

9373
9533%

9497

9627

97328
9430

I
?ggz

9426
9353#

9692

9706%

9458

3554

9533

9S414%
954::

(0S7222
0S6040

9386
9343

9403
9345

1
0S7456
0S7464

0S7470

wod
DCD
i chl
.EF

0S6624
055770
0SS774
0S6300

i
8
SY
0SB416
0SS

ERR

268

5754

ggég
9

&
'

9264
9401
9338

18#%:

3222'
Qgg s
s

96914

B1%

9323

93358

9358

9383

9441

9684

9462
9640

9567
9p42

9638
ge4Y

9654

.LGL = 000030

9375

OFST

0See

MSK
oDT
.0F1
.0P1

OPS

P
PRI

93838

9366

9514

9M17

94884

93638

9722
9375

935448
9355

9445
9741

5464
SS00

qyy2
1354

164

94
9367

94318
93994

5676

93088

9370
9316

94168
94018

9412

9513
9541

9368

0575
CSs4ee

9283#%
9275

9488#*
9537

RCSR= 177S&0

92538

9589

PROC
PR1
RALL

0S6570
0Sebkle
0SS5744

9490

9420
9635%

9361

9
93604
9443
92638

172

968948

9312

350u
97108

056042

9598

9374
9517
3286

§759%

94684

332"
9354

LGLé
LGL

96128

9571

‘£e=
0B0B
LGCH 05751

9569

GULE

940S
934

.LGDR

9464

9395

9337
9291

9460

9338%
9431

057364
7

9568

97608

.FTYP
.GET

9551

94418

.GO

9536%

9562
9328
9387
Q4374

qu4g
92654

SEQ 0197

9498%

95218
93%3
93398
9372

631
1

o70Me

11:25

96924%

.ERR1

.ERR2

-JAN-78

9327%

9‘4;00

9538
9540

.CRS

.EFF1
.ENTR

9325%

?58
7.’

g
ER
755
.CRET
.CRLF
.CRLS

1211s
9274%

Clb

198
gvné&.s
CROSSSSEFEQENCE TRSLE - USEEPAGE

MACY11l 30R(10S2)

95134
95194
9321

93274

9c591%

96598

9752

9515%
9751#%

9564

96984

960!

9603

9p0S*

9635

056000

827855

055656

9519

9559

"
nn

(1)

3
[ 3

47s

9410
9599

96768
9606%

9724#

9730

9285*
9655

9693

97618
%
9531

9548

9550%

9748#
9523%

9532%

9539

9484

406

3164*»

3274

——

b
s e
0‘0‘2
WO
oW

QR RO
R AR~

3
2
L 2

N LZO0NWO
N D=

o P
e e () = e 1) bt Bt Bt B

nun

9521

%97

PAGE 199

11:25

hY
O

hYy
©

10-JAN-78

CROSS REFERENCE TABLE -- USER SYMBOLS

——
-

OOOmm

MACY11 30A(10S2)

9602
92938

%3»SEEEEL
Z3
2°g
o

REEE : RABIARa

CZREIED UNIBUS RKE DR PRT2
CZRBIE.P11
10-JAN-78 09:43

334"
7068

6830

6851

9659

SEQ 0198

CZR6IED UNIBUS RKE DR PRT2
CZR&IE.P11
10-JAN-78 09:43
PIRG
= 655572
PIRQVE=
40
PKRB
001324

PKS

10578
11518
19498

19478

PKSB
1322
PPTP
007472
PRGSRT
O
PRO
=

19488
21238
3162
10748

PRI

-7b
10778

= 838140
=

= 000200

1078#%

PR&
' PR7

= 000300
= 090390

10808
10818

PSW

= 62;776

' PRY
PRS

= 000240

ggEC

= ] 75;2

PWRVEC=

QKCYLD
RCYLA
| RCYLD

ROCHR =

ROCYLD
RDDATA=

000024

1079%

iOSN:

105S#

11468

ELB

MACY11l 30A(1052)
10-JAN-78
11:25 PAGE 200
CROSS REFERENCE TARBLE -- USER SYMBOLS

3318

6B834*
3265%
31658
3167

3325

3381

7063

7064

T0S3*

7062*

7063%

1946

3330
3231

3237

320.%#

3c0cx

1058

034430
034656
034604

65048
6353
6350

6548#
653S#

3941

Ba5a8
11858

3877

4230

4799
7804
6079
6579
4226

8l113s
8l14s
6583
4284

6586
4292

6734

5406
9210

SS81

6941

6743
4721%

6747
4773%

6750
50S1*

HOS4*
S105%

6202

Bl163
38S0%

HO31*
4980

6167

7S%
3%

3960%
4920%
HO7S*

4182%

4Y472%

4693%

67%

3S74%

383b%

38S1¥

gég

7730

8lles

1
11
104412
034274
006336

12708
11878
6021
6066
64768
20418

CAL =
RESREG=
RESVEC=
HERD
RHTAB
RKASOF=

000013
104414
000010
034752
001726
000016

11828
7864
11418
6358
20348
11648

383
7916

S16S
8lles

6;68.
98
3371

4836
Yb32#

SE4lx
11578

725%
Cl

7;3'
%

KBA

£855%

6053
3357

RDGATE=
‘ RDH%
=
' RDLIN =
' RDOCT =
RDSEC
RDTAB
Y

6835

SEQ 0199

;

= 000200

= 000004

RKCS1 = 000000
RKCS2 = 000010

11938

11598
4312%

SB65S4

3367
N371%

6128

blye

6741

6S10

3871%
N441Sx

3924%
444Bx

3942%
YS1B%

ggeogél

Sib3*
blye

178%
6160

Y¥
g:l #*

S5288%
g:l #*

S4O4*
33 #

4E94%

4813

4921%

49B81%

S09:*

11618

3365

3951%
4SBE*

8955
213%

S419%
BY34x

S579%
BY46*

S594x
HS508*

Sl0b*

Slb4x

S179%

3578%

4130*
S267%

5228

Y160*
S343%
4703%

6103*
59S4»

bBll4*

Bl28

S25S%

S268%

S3Y4x

S4OSx | S4H20*

4449

4519»

B427%

B43SH

4314%

H43I73=

Y162

H3ll®

5%58:

2 qg:

Se42%

S776%

S82l%

bBl6l

6398%

bBH4ll®

B419%

4520%
3373
3372

73%
4919%
4324
3875%

3926%
49B83%
4532
4793%

3944x
S50S3*

3953
S108%

4159%
Se4Y4®

4225%
6164

H301¥

S4p7%

S520%

%
S26b*
4810
S5727%

40S3%
S346%

= 000020

11608
Y47
11668
11658

S74Sx

S774#

S877%

S902*

RKECPT= 000032

11718

3378

6173

= 000006

RKDB

= 000024

RKDC

BR.Eed

4808

4809

4993

SO9S*

SBSH
6939%

ggfis:

RKDAR

4943*

SE47%
£S10

gagg:

4226%
4299=
S4eB8x | S521#%

5116

5356

€533

6168

MACY11l 30A(10S2)

CZRGIED UNIBUS RKE DR_PRT2
10-JAN-78 09:43
CZRBIE.P11
= 000014
RKER
RKMR1 = 000326

RKMR
= 000036

Rl
" Ll
RK:E = 880062

SEQ 0200

3370
3374

6166

S169%

S326*
6488%
6516

SY10%*
650S*

S585*
B6S23#%

6169
6603#%

6208*
6620%

b2l12%
FERLEE

6232

6236#

Y4163

4ea7*
SS23*

4313#
Se43#

4372%

Y41b#

Y4S0#

4S17%

Y440

4580

S336

S76S

€813

4301

4314

S470%

S777%

S822#»

S876%

SECNT
SECTOR

6868#

4219

4365

6298

6bS3

036230
001370
035372
001374
001402

=MW

SCOP1S
EC
SECFLG

178

~
N
VoW N

104413
036156
000040
104415

?\D 080- £

= 000006

SAVREG=
SBPAR
SCLR
=
SCOP1 =

4158#*
4918%
6480%

S
6559*
6762%

6735%

100000
001140

Ses

DN £

SVAL
SWR

3974

4854

——

031634
012556
U;;;Sq
74
]
036262
013234
013300
013332
013356
034214

3789

3670

4913

9441

7027

£L
DO

STAPT
START
START
STKLMT=
STOP
ST2
ST3
STY
STS
SUBCLR

QS47%
3

83921

60C8

7169

~Noe
W
e L
oL

1100

5265*
6560%
6763

8506

5433

sSESs

STRCK =

RO A 89’\!00-0wa‘moum: R

002132

e 657775

D0 =MW

SRTTAB

B,
B
SRTSEE= 800011
=

5905

O
W
o NONO U

000017
000001
032206
007524

= UV L= DN

=
EK
SELDRV=
SETINT
g}%FLG

S726#%

= 000010
034714

RTT

F16
.

11:25__PAGE 201

CROSS REFERENCE TABLE -- USER SYMBOLS

11638
11678
BY12%
11688
11698
19468
194Ss
11588
S87#

RLS
RSEC

10-JAN-78

4049

s048

6324
7214

4155

Yyaze

S339

S4eM

6344

£892

7233.

7237

3829
s20e

Gl6

CZRE6IED UNIBUS RKE DR PRT2
CZRGIE.P11
10-JAN-78 09:43

MACY1l 30A(10S2)
10-JAN-78
11:25
PAGE 202
CROSS REFERENCE TABLE -- USER SYMBOLS

D0176

13478

a2l

= 000001
= 000002

11098

10998
10988

1109
1108

%58« = %

109Ss

1105

2i8-C = 300001
SWO0
SW0l

SWOS
SWoe
SW07
SWO8
§§?9
10
S

' SW1e
SW13
. SWIY
SW1S

- SW

= %gouo
=
130
= 000200
= 000400
:

10948
10938
1092
1091ls
iggog

=
010000
= 020000
= 040000
= 100000

10878
1086#
10858
}?8;:

11058
1104%

- 001

iigéz

6314

§g§&'
eldde
gzq?:

g:ag:
£S97*
aflgéi

40
=
000100
= 000200

1103#
11028

:igrxa;‘f‘ 889%3
TEMP2
TEMP3

007414
007416

TEMPS

007422

TERR]
;§?UP

036000
001;72

TEMPY

007420

;ggtg o ggéggb
TPVEC = 000064

TRAPPC
001334
TRAPVE=
34

TRTVECS
Y
TSTATN

§§°3
60

B gl

6324

6334

6344

6892

9212
6991
7004

=
=

7636

1104
1103
1102
1i0l
1100

| SWY
SWS

7613

llggi

' SWe
SW?

7574

10888

6008

SEQ 0201

1“5:

BSULr
659:‘

3899:
gg #*

S:
3882

EogSO

ga7 i

6782
13;;.

6786
6829#%

3870%

632%

BS30*
6339:

29;8

6793
6840:

6797
6846%

10%

3924

S»

870%

68l1ls

lqu 2§§§:
Zggg' HY17% 4421
S;Hg
gzégl 5768
S774

11508

fjuzs
4653
38SS

7020%
3;995

8922
3200%

7064
%

4698

5100

4464

4935

%
4174

OE o

S183

3960

YSggg * 459
4792% 483
S 65* S8e4
58&8{

Eég;

394

g;?g

3871

3959=

3941 %

3904'
ggfg

5280
5259

* 258‘"
S89%
104% 11 :

3383:
8%
6607 %

BEd9t
6S18%

390 *
38??

75#%

g ;ll
BS0d.
eb02*

BSd5.
ggégi

ézsgl

1957%
1148s

7023

% 3464*
3471% 3473% 4Y78% 479% qeg
46 q: H?Hl: Hesli OZH: ge;sl 6;?.

203§:
28 ol

c0B8S#

6999

BAOD.
6578%

3940:
ggggl

3949
3938

Y 3%

3944

897 %

6816

S48l

S4yeN

3950*

BS0%"

6590*

3958#*
3947

S174%
3956

3952#

3953

3951

S415%

3961%

BSEA.
bE.9%

BRE
6624%

g?égi
BASl.
6655#%

3962

SE633#

Se44

S590*

6206#*

6609%

6823

67768
5899

6181ls

6959

709%

717

§8$9

289 #*

727

28%9

CZREIED UNIBUS RKBE DR PRTZ2

CZRBIE.P11
T
réflg
TST1

24
E%x%
&

18714
TSTIS
15T16

10-JAN-78 09:43

uggg.
4 s

MACY11l 30A(1052)

4
5153
SY54e

4911w
S204s

§§§§§§

§§§§.

3282

015156
015446

3601
3715

3668
3722

| ;;ggs .2 iéfl:%g

3261
3747
4490

3577'> 3279
Wi

027;35

| ¥§}§°
' 15T4
' TSTS

ssegn

?
0S5140
1094402

¥$§82 . 18::83

;

BEOTR
E§§§

TYPERR
TYPOC =

11:25

PAGE 203

SEQ d202

41238

(025442
026756

;5;17

10-JAN-78

CROSS REFERENCE TABLE -- USER SYMBOLS

;57

15498
81048

37388

en
U604

3281
W
480

M
7760

7635
27763

239
i

9192
9185

9197

3296
401
481

5377
8374
7638
7767
9199

3338
9014
4]

3415
9o41

SOI4

3425 345
3489
4093
9419
4200
SO3% 2 S038 2 SOMM

sggg
b
276M9
7833

sacy
8
7659
7835

§736
7066
7670
7975

9205

9208

5832
7216
27689
31038

957
224
27737 2
9164

24
o
I
Sl21
Sl27

530
292
7M3
91658

&0
386
7N@
9189

£98

5128

6052
7510
7782
9170

3538

3702 2 S041 2 S124
q

9214

6258

99 2 7041
434

4359

B10Ss

27138
aze7

4088
4830

9107
4358

4195
4a7e

9214
500

426l
5028

4278
5088

4340
6247

4359
5301

4485
5320

4548
S372

4BBE
5391

4715
S4a5

21148
13848

£35S

1§880

qgg

6928

3464

3473

3675

3584

3846

5174

S41S

5590

BI04

BN47

646l

19898

4652

S074

5233

6578

889335

éfiqgo

3305

691

6932

4741

486l

5751

5909

6115

UPE
= 020000
vzsxrv' §63%§§

15378
%g:g.

3447

35498

WCE

12188

4322

4378

4991

5113

5354

5531

T.82

= 000002

.B3
i

= 000004
001404

001406

100

001414

50
€00

001410
001412

15000

001416

Eggooo_ ooxwgg

UNLD

UNLOARD= 000007

o
ugs

'WLE

WORD

= 040000

w‘:’%
BRIdES

= 004000
3
001506

WRDATA= 000023

3492

5705w

T.A2 = 000001

gégg'

4883

2452
1
7580
72768

Se81

de 3 OME IR B om0 B0

5514

éqggo
19868
19878

19?0:

11808

?.017:
3858

12348

20258

11868

554

327%

gg?a

580

3982

4530

5939!
438

4324#
U3sdr

YU=

4058

4165

4453

4993%
433
4926

2MsrE3

SH#
E3%

s271

s472

44
Y
4666
g47
om
m1
O & 58

&’3%

8331

S64S

5779

>
s824

EZRSIEO UNIBUS RKE DR_PRTZ
10-JAN-78 09:43
ZRBIE.P11

ron: éfi%’
WRHERD=

1188
esis

116

11: 2s

10-JAN-78
PAGE 204
CROSS REFERENCE TABLE -- USER SYMBOLS

MACY11l 30A(1052)
4034

4140

4427

4597

5729

5§88S

4374

4s22

498S

S109

S348

SEQ 0203

5525

SATY3
SATYY

Suguae

040414
?Y
1264
1702

1156
i

$COM2
001572
SCHARC
156
$CK
1400
SCMTAG
001
$CM3
=

SeNTLC. 099318
SCNTLE
Ous3s9
CNTLY
Qu231S
cPU
RLF

1236
00150¢

040376

$0BSD
g20
DWl
SOOW2
SODW3
SO0M3
$ODWS
SODWE
S00W?
SoECVL

7784

6070

BO72%

7580

7777

7320%

7325

3197

3203

3204

3205

18768

18778

1878

18798

3971

3972
9169

9179

s127

3680

S942%

5943

7226
7274
4148

7272
7279
4201

7407
7409
4241

9164

9192

5128
3205

7224

7249

7293

7328

7670

460S

4806

4818

OMb3o
Duasis
1374
001576
001300
001302
001304
1306
001310
1312
Q43012

Ve
SOEVM
SDOAGN
SOTBL .
SE
SENDCT
SENOMG
SENULL
SENV ~
SENVM
SEOP

1026
001266
031610
040366
031600
031546
031617
O3l
0D1230
001531
031452

SEOPCT
SEOPI
SERFLG
SERMAX

031540
031818
001103
001115

5378

SS01

59468

6972

6970%

7165
7190

7167
7195

111
7015

7173%

7431

§737

5833

4437

449]

4554

7195

7211%

7249

214

4346

5936w

9217

CZRGIED UNIBUS RK&
DR PRT2
CZREIE.P11
10-JAN-78 09:43

SERRPC 001106
SERRTB 007526
SESCAP 00113
TRBL

001230

g%r;no 001314
001212

' $FATAL

$FFLG

?égan
Si%es
18808
g306
18998

1388

18718
18708

7297
7328

0011
GORBR 001124
| SGODAT
SCTSUR Ou1a70
S0 "= 80000

18548
18568
o358
1016

SHISLF 8ase%e

' $ICN 805109
§INTAc
00113

7401%

184978
18618

8109
J—
7180%

18848

72949

¥, -

SEQ 0204

7219¢

7220

7249

891

8923

8931

8939

8947

9955

8983

B320x

2803«

ue3us
6330%

630x

upSi®

S0Se*
B360%

S073%
b364*

6971%

5215

52328
7019%

S773s
7022%

SSe@%
71892

S903%
5939
7240 2 7242

7429

7438%

7446

7183%

7194
7784
7194

7239

37318

37728

3779

7328

7181
7651

18518

7632%
7220%

| StPRSR 001306

{o9as

3203%

7002

7171%

7187%

7192

7194

| $MADR2

19218

7171

7188%

1388

18908

3225

6006

7186

7226

7272

7444

3552

%30

36598

' SITEMB

SLF

001114

001208

| SLPERR gi ig

001246

lgyss

e
e
A
001210
SMAMS1 001540
SMAMS2

001244

bk
13684
13118

AMSY
SMBADR

(001254
001002

19254
1368498

]

SMFLG
W

001250

3208%

7e28

7671
7249

7797

9155

683

7308

b3S

7405
7782

7440%

2327

7635

fhe
il
ST BaAE33
SNOCL
0B189
NWTST=
pVURY: W—

it
13554
Theas

snivey
SMTYP2

ooisdl
001245

SOCNT
SOCTVL

041076
O42e1M

7838

7028

18228

7399%
7638

SnScTv

7777

1919

0650
2340

122y
1226
o0iei0

8373

19428

7435

7398%

oLl
11

7209

809
916l
353C%
8310

18928

0652

$EILLe
L

J16

MACY1l 30A(1052)
10-JAN-78 11:25 PAGE 205
CROSS REFERENCE TABLE -- USER SYMBOLS

18978
18988
18918

1912
19208

38
E4328
74B4%
3751

7416%
7420%
7413

7418

7780w

7421%

7433

7437

733"
I3
5434

7328
393
5607#

Al
5603

i
SeEbs

7513%
7851

75268
78764

838,
5688

3661

3733

fiehe

38048

CZREIED UNIBUS RKE DR_PRTZ2
CZRBIE.P11
10-JAN-78 09:43
0

1216

008

SPASTM

;&22

’%C:

N
T

SR2A

SSAVRE
$5820
SSCOPE

7488

7491*

7S502%

7528%

18948

3225%

3742

3965

5949%

S9S0=*

S59S8

5971

7328

7689

7760

7777

7835

7638

3158%
3768
7156
13608

134
236

3195
7244

3197
7572

3199
7577

3201
7578

3203
7608

3970
71858
1365

79678

3204

320S

3207

;gg&.

77028

Bll2

Euxunx U

18828

811

8113

5970:
8117

77998
77188

161

3234
b
ce0

177777
043
037426
00929

= 167400

8044s
7950
3195

;158.
ell

1001s

STESTN
STIMES

001214
001174

$TKB
STKCNT

001146
041102

18938
18798
49lo%
18664
75338

STKQIN
$TKQOU
$TKQSR

TKS

STKSRY
TMPO
$TMP1
$TMP2
$TMP3

$STMPY

$TMPS

041162
001160
001162
00116
0011F

O00.

001172
= 000021

49le
7140
7191

7141

7603

714

75368

7549

7551
1873%
1874
1875#
1876#%

75648

75348
75358

1144

1021

75378

O41104
041106

831110

1016

7186%
33S4#*
S4S5%
553
7578

3171

18658

18778

5458

18788
10028

3671
3930
8183

71918

5978

7178

3208

3207

7195

70708
7062

3671%
3204%
S5205%
32
7548*

0Oullle

TKQEN= O41111

7145s

?829

1028

7182

B115

4
71
7188

1902

7;?2

Bl1M

4409
7138
;ézg
001232

$SWRMK= 000000

7249

77258

SSWREG

STKINT

7164

1742

SSETUP= 000137

$SWR

7483%

7148

7053%
7059

SEQ 0208

7479%

9%
3201
7053

= #xsxx® U

SSTUP =
SSUPRS
SSVLAD
SSVPC =

MACY11l 30A(10S2)
10-JAN-78 11:25 PAGE 206
CROSS REFERENCE TABLE -- USER SYMBOLS

SROCHR

K16

7548

7549%
7550%
7532

3309%

Sb46

bB306*
1016

367¢
3966
S194

1022

3208
S20S
7141
7194

7142

8915
4OS*
Sbeb*
7564
7595%

7630

7550
7712

7601%
7713%
7716
758S5%

7554%

3469

6102

6360
3331

3715
3997
5205#

3488

6113
6364
3343

3722
4008
5432

1023

3354

455
147
7201

1024

340S

S6eb
7159
7202

7163

7603
771b%

7605%

7587

7593%

7615

B44S

6507

3Sl2*

3580

3354#

3382

_
3389

37398
4l24#
S607

7174
7233

8973

8931
| 3739%
S94B*
7644

7602%
7714

3731
4113
S4SSs

5971

5706
7161
7203

36b9*
940*
617
7711%

3743
4400
Se2b#

7146

1
4008

1025

356

3Sbb*
S706%
7589
7709

3502

6003

Y409

7631%

7641

7653*%

7673%

3708

36698
3828

4912

CIRe e LN TBYS
042742

TPFLG
1PS
TRAP

0011
11
043330

187¢8
18678
3199

7
731
8080+

TRAP2

TRP

35%

. STRPAD

043364

0011

§787M,

$TSTNM

Bo1004

STTYIN

042266

STYPEC
TYPEX

(Q40l12
040160

| STYPON

040714

| §TvPDS. Q4gies
B
832483
STYPOC

040700

§TrROS

OuO6SY

SUNI

01222

UNITM

001010
001234

VECTL
VECT?
XTSTR

| $SGET4=
SOFILL
SHOCAT=
.
=

.
,

STNPUR

1ee

BGRB8 s

001260
001262
037232

000000
041077
¥xxxxx U
055500

18688
09 %O

095s

.$X

001000

Bl104s

SRROATREreABNIETRBLe
11 %DseR " SIBOLs
hur
7328
7328

B10Ss

8l17s
8102

8118

18458

3672%

S947%

73908
72668

8107
7426

13858

7727

7
732l

7728

B419

13874
3038

8109

8110#

8111

8li2s

8113s

81148

7163

7185k

7186

7191

7195

7213

7249

S0%
6271

S164
6272

S179
6398

73158

7316

7675

3682%
5595

3689
6182

3836
6227

3851
6269

BI40

3699
6201
BISS

1360

1%)e

13634

1365#

13388

8103

3243
S420

3312
5580
B435

B4e4

7482%
7223
1xiee

7492

75278

1JS0e

i3s3

B427

7136

81088

7776

8106

8103

B8IC7¢

7772

7484s

rizZe

18968
S40S

S53B0%

7758

7323

8104

7481

7740

Bl106s

7310
73264

7482s

SEQ J208

7328

Blies
8

6270

8l115s

S2sS
41l

19284
9
71508

59634
7478%
7147
Lle

977"

4882

oBEE' - SO

SOt

%36

966

9722

9730

97338

9741w

ge3ge

.SASTA= zxxxxx U

7317

L16

7393

13728

7776
7402

1377

7777

7784w

7838

Z87bs

7938

5528

8914#

53348

9229

1372

3
;04
9230.

13778

9604

CZREIED UNIBUS RKE DR PRT2

MACY1l 30A(10S2)

CALIB

s402

s577

6938

CZRBIE.P11

CHECK
COMMEN
CWp2

DRCLR

10-JAN-78 09:43

14798

3834

14338

3892

08
1152w
1438w

5325

14bls

Sikl

4086

4105

4193

4ale

4259

6177

6253

S4i8

Fvs

4892

S094

ayuw

aus2

388
Wlll
484
430
ussQ
WB
3759

3Wi
43

ueSl
B8
4801
4

2398

2393

230

R
Seb4

M
57

uE
S83

:Ig&

4420

4590

5878

gi¢

NEWTST

ééfi;l

g?fl;

3389

35S0

OFSET
OWNTRG
POP

17768
13%0#
11528

4633
44
7381

S0SS

s214

7441

QKSEEK
QKSRT

1blSs
1S07%

3977
919

4736

11528

%3’

CBRRSE

fBBEE

3983
4i69
4s37
433
4537
4707
47

{10

4sA%
4s93
aSe
478
4383
u437e

4979

2388

%39

11:25

PAGE 209

SEQ J2C?

CROSS REFERENCE TABLE ~-- MACRO NAMES

3893

| Enocon

MLlG

10-JAN-78

%43

Wi42

4558
4eS
819
4
33§§

3820
Wl%
45k
43%
usgg
453
dg1c
a1

4276

4338

5593

6953

3507

3526

o
v S
zzéé
4s
4528
g3

94180
4929
3?29
oWe3)§

Bigy

2988

4357

WGBS
i

498

YIS

d
4357
:sgg
u9§3
4g31
'3

4i67

4315

4338

3530

e
4189

S
M2
qua
4559
4E3
4333

4391

4483

3541

3SHS

3038
4l
M
W95
32?3
d5Z4
ued

3381
4
WM
4288
G588
4ews

ST
42§
583
u@us

d4%:
WsR
4283
8H
ess

31
4
w7
u§33
%Y
vess

2358

2919

2933

2336

S
833

4197

4333

4510

3577

4YS4b

S
3586

jeue

419

4is3

WIS

4573

ueoe

10
F.ERB

GETPRI
GETSWR

HD?SE3

OFFDIR

PUSH

| S—

lqé

223

%
sS

1152
11S5e2s

600

1290:

1816w

1152.

7340

—

———

4721

7402

———

SNE

3659

3731

377c

3208

3997

4113

4400

4610

4890

S194

S43e

7442

7827

8023

806S

4856

S746

S04

4773

7404

7425

7801

7994

B804S

8&} 0_UNIBUS
P11

DR_PRT.

10-JAN-78 0%:"3

3910
("1

el o

el el
e ol ol ol e Al

DOC

DOO
454! '
te ‘:’-‘- ‘- titats
-.’..

d el o
ol ol
[l

888 4+

and o o el e el el el and el el end endl andLandt

s i %g >

3253

-_—

MACY11l 30A(

)
JAN-78 11:25 PRGE 2
CRO%?&F‘&:
TABLE -- MACRO N&g

SEQ Q208

4553

—

3338

g%z

3668

3738

3778

3827

4007

4123

4408

4623

4911

810S

8106

8107

81239

8l.l

8ll2

8113

8114

8115

8116

8117

3382

3601

3718

3722

37493

3786

3799

3930

396

4887

S183

P9
3l

3343
3389
34
35
3564
HEEEEEEREER:

3490

3536

3700

4521

4EY

4139

4452
4984
Y426

Y
S34
4596

1874

1875

7633 M Psie

5 %

5039

si122

6256

6994

7039

S471

5728

S884

1876

1877

1878

3550

3659

3731

3772

3804

3997

4113

4400

4610

4890

810S

8106

8107

8109

8111

8112

8113

8114

8118

8116

8117

3382

3601

3718

3722

3743

3786

3799

3930

3966

4887

S153

sa04

S4Sy

S631

ng Lo

S194

S432

Se31

S639

ESRBIECHYYIBUS BXORRERIG.uz
ggg

00ls

8027

001

O0ls
00ls
00ls
18
il
]

ABS.

087550

ERRORS DETECTED:

DSKZ2:CZRBIE,DSKZ:CZR6IE

.. DOCUMENT PAGES:

NTABLRES
! 1 :%RacRECRa
MACY1L 3PRLESRE-cAPRIE

7939
7131
7957

%3
000

O
. SEQ/SOL/CRF /NL: TOC/DOC=DSKM: CZR6IE.P11

AT
TG ey
209

cOol

SEQ 0209