Digital PDFs

AH-9122F-MC

April 1982

216 pages

Original

11MB

view download

OCR Version

9.7MB

view download

Document:	CZR6IF0 RK611,RK06,RK07 UNIBUS RK6 DR PRT2 APR 1982 bw
Order Number:	AH-9122F-MC
Revision:	000
Pages:	216
Original Filename:	CZR6IF0__RK611,RK06,RK07__UNIBUS_RK6_DR_PRT2__AH-9122F-MC__APR_1982_bw.pdf

OCR Text

-RK611

RKO6 ., RKO7

UNIBUS RKé6 DR PRT2
CZR6IFO

AH-9122F -MC
FICHE

OF 2

COPYRIGHTE

e 1N usa

76-82

ngmm@m

611

RKS%.RKO?

UNIBUS

RKé

CZR6IFO

PRTZ2

AH-9122F - MC

FICHE 2 OF 2 weoe v usa
COPYRIGHTE

76-82

]

‘

]D@M@m

CIRG6IFO UNIBUSS RK6 DR PRT2

04~JAN-82 12:46

04~JAN-82

13:04

1
PAGE 2

SEQ@ 0001

WNIPINININI
R PONININAD =D b ad b b eed ek e od ek
OOV OO
WNN) = OO 00 NONVVES NN = O 000 NON N

NN =

CZROIF .P1N

MACY11 30(1046)

.REM X
IDENTIFICATION

PRODUCT CODE:

AC=9120F
=MC

PRODUCT NAME:

CIZR6IFO UNIBUS RK6 DR PRT?

DATE :

JANUARY 1982

MAINTAINER:

STORAGE SYSTEMS SOFTWARE

AUTHOR:

TEST APPLICATIONS

LEBLANC

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICC AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A

LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
TERMS OF

SUCH LICENSE.

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

MACY11

30(1046)

04-JAN- 82

13:04

1
¢
PAGE 3

SEQ 0002

REVISION HISTORY
REVISION

FIXES

DATE

CIROIF

IMPLEMENTED XXDP LOAD MEDIA OPTION

JAN &2

[T en]

CZR6IFO UNIBUSS RK6 DR _PRTZ
CZROIF PN
04~JAN-82 12:46

04~JAN-82

52
53

TABLE OF

D 1
PAGE 4

CONTENTS

1.0

ABSTRACT

2.0

REQUIREMENTS

2.1
2.2

HARDWARE
PRELIMINARY TESTING & PROGRAMS

[]
[]

4.0

5.0

PDP=11 FAMILY COMPATIBILITY
XXDP
ACT/APT
APT ETABLE DEFINITIONS
DUAL ACCESS
MEMORY MANAGEMENT
PARITY CHECK
BAD SECTORS
EXECUTION TIME
FAULYT ISOLATION

ERROR CORRECTION € FAILURE RATE ANALYSIS
DEFAULT UNIBUS ADDRESSES & VFCTORS

OPERATING PROCEDURE & CONTROL FUNCTIONS
.1
.2
.3
.6
4

PROGRAM { OADING
STARTING LOCATIONS
CONSOLE SWITCH REGISTERS

SOF TWARE SWITCH REGISTER
INPUT DIALOGUE
PROGRAM EXAMPLE
HALTING THE PROGRAM

DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION

5.1
5.2

6.0

—o

[]

— 2000
NS NN —

PROGRAM CONSIDERATIONS
LN N AN AN AN N N AN NN NN

3.0

54
55
56
57
58
9
60
61
62
63
64
65
66
67
68
69

13:04

MACY11 30(1046)

EaR AR P

6IF 0 UNIBUSS RK6 DR PRT2
04-JAN-82 12:46
61F PN

GENERAL
TEST DESCRIPTIONS

ERROR REPURTING
6.1
6.2

ERROR INTERPRETATION
ERROR PRINTOUT cXAMPLE

SE@ 0003

CZIRGIFO UNIBUSS RK6 DR PRTZ

b v

)

b ned

b cd el =D e

WVIWVAAWNWILAES BS80S

D e

b wod

b o)

d ed e

b cnd

)

D oD

NN WWN NN NN ARIAN NI NI NNININNINN) 2 b ek B b b d =2 3 2 O OO

D e

[ololole) (=le

WJ‘WN-‘OOQNOMJ\WN—-OOQVO\nbWN-‘O'OmVO‘\hl\wN-‘O‘OONO\hJ\WNdOOOVgU‘bWN -0

CZR6IF .P1N

04-JAN-82 12:46

MACY11 30(1046) 04~JAN-82 13:04 PAGE S
E

1.0

SEQ 0004

ABSTRACT
THIS PROGRAM PERFORMS PART 2 OF THE DRIVE DIAGNOSTICS TO
INSURE THAT THE DISK IS CAPABLE OF PERFORMING READ AND WRITE

DATA OPERATIONS IN BOTH 20 AND 22 SECTOR FORMATS.

WORST CASE PATTERNS, SPIRAL WRITING AND READING, AND ALL
OFFSET OPERATIONS ARE PERFORMED.
ERROR DETECTION LOGIC IS CHECKED BY SOFTWARE ERROR FORCING.
AFTER A SUCCESSFUL RUN

(WITH NO ERRORS) OF PART 2,

1S READY FOR PART 3 OF THE DRIVE DIAGNOSTICS.

THE DRIVE

TESTING IS BASED ON A HIERARCHY APPROACH STARTING WITH
BASIC LOGIC TESTS AND PROCEEDING THRU DYNAMIC TESTING.
TESTS WILL BE KEPT SMALL TO FACILITATE SCOPING LOOPS.

THE

THIS PROGRAM WILL TEST RK06 & RKO7 WITHOUT NEED OF
OPERATOR INTERVENTION.
aaxt*CAUTION®
en

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

2.0

REQUIREMENTS

2.1

HARDWARE
THE FOLLOWING HARDWARE

IS REQUIRED TO RUN THE DISK DIAGNOSTIC:

PDP-11
CONSOLE TELETYPE
16K MEMORY
KWi1-L OR KW11-P CLOCK
RKO6 UNIBUS CONTROLLER (RK611)
1 T0 8 RKO6/RK0O7 DRIVES
NOTES:

IF NEITHER KW11=L OR P CLOCK IS USED, ALL TIMING
TESTS WILL BE BYPASSED.
A MESSAGE AT THE

BEGINNING OF THE TESTS WILL CONFIRM THIS.

2.2

A 22 SECTOR FORMATTED PACK IS REQ'D, BUT WILL

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

PRELIMINARY TESTING & PROGRAMS
THE RK611

DISKLESS CONTROLLER DIAGNOSTICS

(ALL PARTS)

SHOULD

FIRST RUN SUCCESSFULLY FOLLOWED BY THE RKO6 DRIVE DIAGNOSTIC-~ PART 1.

3.0

PROGRAM CONSIDERATIONS

04-JAN-82 12:46

3.1

PDP=-11

13:04

PAGE 6

SEQ 0005

FAMILY COMPATIBILITY

THIS PROGRAM CAN BE USED BY THE PDP-11/04,05,10,20,

34,35,40,45,50, & 70.

IT IS COMPATABLE WITH THE LSI-11 INSTRUCTION SET AND CAN TEST
THE RKO6 ONLY IF THE DRIVE CONTROLLER FOR THE LSI-11 IS
DESIGNED TO BE DIAGNOSTICALLY COMPATABLE WITH THE RK611.

3.2

XXDP
ISASE:ROGRAM CAN BC

CHAINED BY XXDP & WILL NOT OVERLAY THE

CHAIN MODE OPERATION (MONITOR)
THE

INPUT DIALOGUE

IS BYPASSED.

THE BUSS ADDRESS & CONTROLLER INTERRUPT VECTOR IS
DEFAULTED.
DRIVE O WILL NOT BE TESTED.
S%Lrg£¢sg DRIVES IN THE °'DRIVE PRESENT' CONDITION WILL

NOTE:

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

HEADS MANUALLY LOADED
CORRECT PORT SELECTED
WRITE LOCK DISABLED
DRIVE READY INDICATOR ON

DUMP MODE OPERATION (MANUAL)
1.

3.3

INPUT DIALOGUE

IF STARTED FROM 220.

DRIVE O CAN BE TESTED, BUT THE OPERATOR IS FIRST GIVEN

A MESSAGE TO REPLACE THE PACK IN DRO WITH A SCRATCH
PACK & TYPE <CR> WHEN DONE.

ACT/APT
THIS PROGRAM IS ACT COMPATIBLE.
IT IS APT
COMPATABLE TO THE EXTENT THATM APT HOOKS WILL BE
PROGRAM & WILL WORK THRU THE 'UPTON INTERFACE®.

IN THE

FOR OTHER INTERFACES, APT MAY ONLY LOAD & START THE PROGRAM.

I.E. LOAD & DUMP MODE.

AUTOMATIC MODE

(MONITOR)

THE INPUT DIALOGUE IS BYPASSED.

THE BUSS ADDRESS & CONTROLLER INTERRUPT VECTOR IS

P11

04~JAN-B2

=
*

MACY11 30(1046)

SN
[]
-

0 UNIBUSS RK6é DR PRTZ2

G 1
PAGE 7

DEFAULTED.
?%%TgQIVES IN THE

NOTE:

SEQ 0006

'DRIVE PRESENT'

CONDITION WILL BE

THE DRIVE PRESENT CONDITION IS:

DUMP MODE

3.3.1

13:04

en]

04-JAN-82

HEADS MANUALLY LOADED

CORRECT PORT SELECTED

WRITE LOCK DISABLED
DRIVE READY INDICATOR ON

(MANUAL):

INPUT DIALOGUE IF STARTED FROM 220.

APT ETABLE DEFINITIONS
THF FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIRONMENTAL

TABLE

(ETABLE) ENTRIES.

VIA RUNNING THE APT UTILITY PROGRAM ‘'‘TSP‘':

SOF TWARE ENVIRONMENT:
=1 IF APT SCRIPT MODE

=0 IF STANDALONE MODE

ENVIRONMENT MODE :BYTE

BIT 7 = 1
= 0

ETABLE DOES SIZING
PROGRAM DOES SIZING

= 0
BIT 5 = 1

DON'T SPOOL TO APT
SUPPRESS CONSOLE OUTPUT

BIT 6 = 1

= 0
BITS 4-0

SPOOL MESSAGES TO APT IF SCRIPT MODE

ALLOW CONSOLE OUTPUT
NOT USED

SWITCH 1 (SOFTWARE SWITCH REGISTER)
IF _ENVIRONMENT MODE BIT 7 (SIZING BiT) IS SET TO 1, THE SOF TWARE
SWITCH REGISTER WILL BE USED, INSTEAD OF THE HARDWARE CONSOLE
SWITCH REGISTER.
REGARDLESS OF WHICH ONE IS USED, ALL BITS
DEFINED IN SECTIONS 4.3 & 4.4 (SWITCH REGISTER OPTIONS) MAY USED

WHEN RUNNING IN STANDALONE MODE.
ég gg} ¥8R6PT MODE, HOWEVER, BIT 14

(LOOP ON TEST) MUST ALWAYS

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.

DEFAULT = 210

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

DEFAULT = §

[

MACY11 30(1046)

D>
[] - L] L]

??IBUSS RK6 DR _PRT2
04-JAN-82 12:46

CZR6IFO UNIBUSS RK6 DR PRT2
CZROIF P11
04~JAN=-82 12:46

MACY11 30(1046)

268
269

04-JAN-82

%;?

13:04

1
PAGE 8

SEQ 0007

INTERRUPT VECTOR 2:

NOT USED

272
273
274
275
%;9

10. BUS PRIORITY 2:
NOT USED
11. BASE ADDRESS:
USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 177440

278
279
280
gg;

12. DEVICE MAP:
USED WHEN ENVIRONMENT MODE BIT 7 = 1.
EACH BIT SET TO
1 IN BITS 0~7 WILL SELECT THE CORRESPONDING DRIVE TO BE
TESTED. BITS 8-15 ARE NOT USED.

283

13.

286
287
288
289
ggg

14. DEVICE DESCRIPTOR CODES (IN WORDS):
NOT USED

ggg

3.4

CONTROLLER DESCRIPTOR WORDS:
NOT USED

DUAL ACCESS

292
293

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

296
297

DUAL ACCESS TESTS WILL BE INCORPORATED IN A SEPARATE PROGRAM
AT A LATER DATE.

TEST TO PREVENT CONTENTION WITH THE OTHER PORT.

532

298
299
;89

3.5

%8%
304
ggg

MEMORY MANAGEMENT NOT USED
3.6

307

AN NN N N NN NN N N NN
NONINOND
= b cd o e ek b —d b
W2 OOV
NN =

PARITY CHECK ENABLED
IF THE MEMORY PARITY CHECK OPTION IS AVAILABLE ON THE SYSTEM,

THE PROGRAM WILL RUN WITH MEMORY CHECK ENABLED.

%88

310

MEMORY MANAGEMENT

3.7

BAD SECTOR
THE PROGRAM WILL COMPARE DATA ERRORS WITH THE BAD SECTOR

INFORMATION CONTAINED ON CYLINDER 410, HEAD 2.

OF DATA ERRORS DUE

3.8

PRINTOUTS

TG BAD SECTORS/TRACKS WILL BE MASKED OUT.

EXECUTION TIME
THE EXECUTION TIMES SHOWN BELOW ARE BASED ON THE PLP 11/50.

TOTAL TIME:

1 MIN,

30 SEC

CZR6IFO UNIBUSS RK6 DR _PRTZ
CZR6IF P11
04=JAN-82 12:46

MACY11

30(1046)

3.9

04~-JAN-82

13:04

1
I
PAGE 9

SEQ 0008

FAULT ISOLATION
TO BE DETERMINED.

3.10

ERROR CORRECTION AND FAILURE RATE ANALYSIS
THiS PROGRAM WILL NOT DO ERROR CORRECTION OR FAILURE RATE
ANALYSIS.

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

LOCATION

= O000~NO
W

DANARRRRER

344

1264

P-CLOCK STATUS REG
P-CLOCK SET BUFFER
P-CLOCK READ BUFFER

1320
1322
1324

CONTROLLER INTERRUPT VECTOR
CONTROLLER PRIORITY

H WA

L=CLOCK STATUS REG
L=CLOCK INTERRUPT VECTOR

P=CLOCK INTERRUPT VECTOR

(9,]

RKO6 BUSS ADDRESS

210
240

1326
1330

177546
100

1144
1146
1150

TTY PRINTER BUFFER

177440

1314
1316

1332

TTY KB STATUS REG
TTY KB BUFFER
TTY PRINTER STATUS REG

DEFAULT CONTENTS

1152

4.0

OPERATING PROCEDURE & CONTROL FUNCTIONS

6.1

PROGRAM LOADING

172540
172542
172544

104

177560
177562
177564
177566

THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING STANDARD
PROCEDURE FOR ABSOLUTE LOADER TAPES: OR FROM ANY MEDIA

SUPPORTED BY XXDP.

6.1.1

LOAD THE STARTING ADDRESS

4.1.2

SET SWITCH REGISTERS AS DESIRED

4.1.3

SET DRIVES TO BE TESTED IN THE ‘'LOAD' CONDITION & WITH THE
APPROPRIATE PORT SELECTED & WRITE LOCK DISABLED.
DRIVFS
NOT TO BE TESTED MUST HAVE BOTH PORTS DESELECTED.

(SEE SEC 4.2).
(SEE SEC 4.3).

CZR6IFO UNIBUSS RK6 DR PRTZ
CZR6IF .P11
04~JAN-82 12:4

MACY11 30(1046)

4.1.4

04-JAN-82

13:04

1
J
PAGE 10

SEQ 0009

NOTE:

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

PRESS

°'START'

THE PROGRAM WILL IDENTIFY ITSELF AND WILL BEGIN A
?ge%oggs 21;? THE OPERATOR TO DETERMINE DRIVES TO BE TESTED
THE PROGRAM BEGINS TESTING ONLY THOSE DRIVES SPECIFIED BY
THE INPUT DIALOGUE.
IF A SPECIFIED DRIVE CANNOT BE FOUND BY
THE PROGRAM IT WILL BE FLAGGED AS AN ERROR THAT THE DRIVE
WAS NOT AVAILABLE.
THEN BEGINNING WITH THE LOWEST NUMERICAL
DRIVE AND PROCEEDING IN SEQUENTIAL ORDER, ALL VALID DRIVES
WILL BE TESTED.
ONE PASS THROUGH THE TEST SEQUENCE WILL BE
PERFORMED ON EACH DRIVE BEFORE MOVING TO THE NEXT DRIVE
IN SEQUENCE.
THE DRIVE TO BE TESTED WILL BE TYPED AT THE

BEGINNING OF EACH PASS.
TESTING ALL DRIVES.

4.2

'END OF PASS'' WILL BE TYPED AFTER

STARTING LOCATIONS

LOCATION 200 - STARTING ADDRESS TO DEFAULT THE BUSS
ADDRESS € THE CONTROLLER INTERRUPT VECTOR
€ TEST ALL DRIVES IN THE °'DRIVE PRESENT'
CONDITION.

NOTE:

THE DRIVE PRESENT CONDITION IS:
OO
>»

)
d cmed wmd
—

413

HEADS MANUALLY LOADED

CORRECT PORT SELECTED
WRITE LOCK DISABLED
DRIVE READY INDICATOR ON

LOCATION 220 - STARTING ADDRESS TO INFUT TESTING PARAMETERS
VIA THE INPUT DIALOGUE.
BUSS ADDRESS &
%g?TfiAggTERRUPT VECTOR INPUTTED ONLY ON

IMPORTANT:
ALSO,

FOR VARIATIONS OF

THE ABOVE

sse xxoP ACT/APT

CONSIDERATIONS IN SECTIONS $.2 € 3.3.

THE PROGRAM WILL AUTOMATICALLY DETERMINE WHETHER

THE DRIVE IS AN RKO6 OR RKO7.

4.3

SWITCH REGISTER
THE

SWITCHES ARE USED

TO PROVIDE

CONTROL

FUNCTIONS.

e
nd
e

HALT ON ERROR

LOOP ON TEST
INHIBIT ERROR TYPEOUT
BYPASS DRIVE AFTER 20 ERRORS
INHIBIT ITERATION
BELL ON ERROR
LOOP ON ERRCR
LOOP ON TEST IN SW<07:00>

SW<15>
THE PROGRAM HALTS ON ENCOUNTERING AN ERROR,

THE ERROR MESSAGE AND PERTINENT INFORMATION.

AFTER

PRESSING °‘‘CONTINUE'' CONTINUES NORMAL OPERATION OF

TYPING OUT

THE PROGRAM,

SW<14>
THE PROGRAM LOOPS ON THE TEST THAT IS BEING EXECUTED WHEN
THE SWITCH IS PUT UN.
THIS SWITCH IS NORMALLY USED ALONG

WITH SW15.,

SW<13>
THIS SWITCH INHIBITS ALL ERROR MESSAGES.

NORMALLY USED WHEN

LOUPING ON TEST (SW14) OR LCOPING ON ERROR (SW9).
WITH SWITCH <13> SET, SWITCH <15> SHOULD NOT BE SET.

SW<12>
THIS SWITCH BYPASSES A GIVEN DRIVE AFTER 20 ERRORS HAVE
BEEN DETECTED.

SW<11>
EACH TEST WILL BE EXECUTED ONLY ONCE.
IS

NORMALLY AFTER THE

FIRST PASS,

EACH SUBTEST

ITERATED A NUMBER OF

ITERATIONS,

SO THAT QUICK PASSES CAN BE MADE.

(USUALLY 50, 5 IN SOME CASES).

TIMES

SETTING THIS SWITCH INHIBITS

SW<10>
RINGS A BELL ON ERROR.

SW<09>

USEFUL WHEN ERROR TYPEOUT

INHIBITED.

lala]

FUNCTION

SEQ 0010

[ Y

SWITCH
b

13:04

1
K
PAGE 11

04-JAN-B2

MACY11 30(1046)

00 OO =N\

E%:blFO UNIBUSS RK6 DR _PRT2
61F.P11
04-JAN-82 12:46

04~JAN-82

13:04

L 1
PAGE 12

SEQ 0011

THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP FOR

ERRORS.

IF THE PROGRAM DETECTS AN ERROR,

TO THE BEGINNING OF

4.3.8

IT WILL LOOP BACK

TEST,

SwW<08>
THIS SWITCH 1S USED TO SELECT A PARTICULAR TEST

(AS PER

SW<00=7>) FOR EXECUTION AND SUBSEQUENT LOOPING.
THUS IF
TEST 15 IS TO BE SELECTED THE SWITCH SETTING WOULD BE

000415.
ALL
4.4

IT SHOULD BE NOTED THAT BEFORE SELECTING & LOOPING TEST 15,

THE PREVIOUS TESTS

'SOFTWARE'

(1-14)

WILL BE EXECUTED.

SWITCH REGISTER

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR
(I.E. AN 11/04 OR 11/34) THE PROGRAM WILL DETERMINE THAT

NO NS WA=

SWITCH REGISTER IS NOT PRESENT AND WILL USE

THE PROGRAM WILL RECOGNIZE

THE

°‘CONTROL G'

AT ANY TIME

EXCEPT WHEN THE PROGRAM IS AT A HIGHER PRIORITY PROCESSING
AN RKO6 INTERRUPT.
THE 'SOFTWARE® SWITCH VALUES ARE
ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE PROMPT

OOV

N ed cad d ced e ed D d oD

THE HARDWARE

A 'SOFTWARE®' SWITCH REGISTER.
THE 'SOFTWARE' SWIT(CH
REGISTER IS LOCATED AT LOCATION 176 (8).
THE SETTINGS
OF THE °SOFTWARE® SWITCHES ARE CONTROLLED THROUGH A
KEYBOARD ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'.

FROM THE

SWITCH ENTRY ROUTINE:

SWR = NNNNNN

NEW =

EACH TIME SWITCH SETTING ARE ENTERED,

THE ENTIRE SWITCH

REGISTER IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT
REQUIRED.,
‘RUBOUT' AND °‘CONTROL U' FUNCTIONS MAY BE
USED TO CORRECT TYPING ERRORS DURING SWITCH ENTRY.

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, VHE
'SOFTWARE® SWITCH REGISTER MAY BE USED.
IF THE PROGRAM
FINDS ALL 16 SWITCHES IN THE 'UP* POSITION, ALL SWITCH
REGISTER REFERENCES WILL BE TO THE °‘SOFTWARE®' REGISTER
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLCWED.

4.5

INPUT DIALOGUE
THE DJALOGUE WILL BE DONE INTERACTIVELY.
THE PROGRAM W]LL
REQUEST A PARAMETER BY CONSOLE TYPEQOUT.
THE PARAMETER MAY
THEN BE ENTERED AS SPECIFIED BELOW OR ALLOWED TO DEFAULT
BY A CARRIAGE RETURN.
UNRECOGNIZED OR ILLEGAL RESPONSES WILL

BE ECHOED BACK FOLLOWED BY °'*?'".
THEN BE ENTERED.

IMPORTANT:

FOR VARIATIONS OF

THE PROPER RESPONSE MAY

THE ABOVE,

SEE XXDP. ACT/APT

CONSIDERATIONS IN SECTIONS $.2 € 3.4.

MACY11 30(1046)

Pod ot

CZR61IFO UNIBUSS RKé DR PRT?
CLROIF P11
04~JAN-82 12:46

4.5.1

13:04

PAGE 13

SEQ@ 0012

DRIVE SELECTION

00 NO NN —

DRIVES TO BE TESTED:
THE

DEFAULT RESPONSE

IN THE

°'DRIVE PRESENT'

CARRIAGE

CONDITION.

RETURN TO TEST ALL

DRIVES

THE OPERATOR CAN ALSO TYPE IN THE SPECIF C DRIVE NUMBEKS
TO BE TESTED, SEPARATED BY COMMAS & TERM NATED BY A CARRIAGE
RETURN.

559

E.G.
IMPORTANT:

4.5.2

THE ABOVE,

SEE

XXDP, ACT/APT

CONSIDERATIONS IN SECTIONS $.2 & 3.3.

REQUEST WILL BE:

TYPE
THE

DEFAULT

IN BUSS ADDRESS
IS A CARRIAGE

IF NOT

177440

RETURN

CONTROLLER INTERRUPT VECTOR
THE

REQUEST WILL BE:
TYPE

THE

6£.5.4

FOR VARIATIONS OF

1,2,4,6

BUS ADDRESS
THE

6.5.3

DRIVES TO BE TESTED:

DEFAULT

IN CONTROLLER
IS

CARRIJAGE

INTERRUPT

VECTOR

NOT 210

RETURN.

EXAMPLE OF PROGRAM DIALOGUE
THE
ALL

EXAMPLE SHOWN 1S FOR A PROGRAM STARTED AT ADDRESS 220.
OPERATOR RESPONSES ARE UNDERLINED.

CZR6IFO UNIBUS RK6 DR PRT?2

DRIVES TO BE TESTED:

1,3<(R>

TYPE

IN BUSS ADDRESS

TYPE

IN CONTROLLER

¥1LL

TEST DRIVES:

NOT

177440 <CR>

INTERRUPT VECTOR

IF NOT 210 <CR>

[ala

04~JAN-82

THE REQUEST WILL BE:

VIV IV IV IV, IV, 1V, U
VAV IV IV IV IV IV \N

548
549
550

MACY11 30(1046)

CZR6IFO UNIBUSS RK6 DR _PRT?
CZR6IF.P1
04~JAN-82 12:46

|
30(1046)

04-JAN-82

13:04

PAGE 14

SEQ 0013

3
DRIVE 1
(THE REST

4.6

IS IDENTICAL

TO THE EXAMPLE

SHOWN [N 4.6 BELOW)

PROGRAM EXAMPLE

THE

FOLLOWING

IS AN EXAMPLE OF A PROGRAM STARTED AT

DEFAULT ADDRESS (200) & WITH 2 DRIVES ON THE LINE.

THE

CZR6IFO UNIBUS RK6 DR PRT2
WILL

TEST DRIVES:

DRIVE 0
DRIVE SERIAL NO. AAA
CARTRIDGE SERIAL NO. BB8

DRIVE 1
DRIVE SERIAL NO. CCC
CARTRIDGE SERIAL NO. DDD

END PASS #1
WILL

TEST DRIVES:

DRIVE 0

DRIVE 1

END PASS # 2
(ETC)
THE ABOVE ASSUMES NO ERRORS DETECTED.
THE NUMBER OF PASSES IS DETERMINED BY ACT/APT/XXDP

IMPORTANT:
4. 7

FOR VARIATIONS OF

THE ABOVE

sse xxop ACT/APT

CONSIDERATIONS IN SECTIONS $.2 & 3.3.

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

STATE;

I1E: HEADS UNLOADED OR INVALID FORMAT,

TO PROPERLY HALT,

TYPE

CONTROL-C

(“C'

THE

CONSOLE.

MACY11

€l RSIFO UNIBUSS RK6 DR _PRT2
CZR 61F.P1
04-JAN-82 12:46

MACY11 30(1046)

04-JAN-82

13:04

B 2
PAGE 15

SEQ 0014

IF _HEADS ARE LOADED § FORMATTING IS VALID,

THE PROGRAM WILL:

2.
3.

ECHO “C

TYPE ''CPU HALTED''

HALT THE PROGRAM

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

s
.

LND—

ECHO “C

WVIES

CZIR6IFO UNIBUSS RK6 DR PRTZ
CZR6IF .P1!
04-JAN-82 12:4

TYPE 'HALT PENDING, PLEASE WAIT'
DO THE TEST(S) THAT LOADS HEADS AND/OR FORMATS
THE INVALID CYLINDERS
TYPE 'CPU HALTED®
HALT THE PROGRAM

NOTES:
1.

THE ABOVE EXAMPLE IS FOR THE PROGRAM RUNNING IN DUMP
MODE (MANUAL).
IF THE PROGRAM IS RUNNING IN CHAIN/AUTO
MODE VIA XXDP,ACT,APT;
(T WILL FIRST LOAD HEADS
AND/OR FORMAT CORRECTLY,
IF REQ'D, THEN IT WILL
gngEgNI;O THE MONITOR WHERE THE NEXT PROGRAM CAN BE
THE TYPEOUTS WILL BE ''ABORT PENDING = PLEASE WAIT'

€

'PROGRAM ABORTING''

OPERATING THE 'CONTINUE®' SWITCH ON THE CPU CONSOLE WILL RETURN THE
PROGRAM TO TEST

WHERE

TESTING WILL BEGIN WITH THE

5.0

DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION

5.1

GENERAL
A.

1°'ST DRIVE AGAIN.

WRITE TESTS
THESE TESTS CHECK THE ABILITY OF THE DRIVE TO WRITE & READ
WORSE CASE PATTERNS;
PERFORM ALL OFFSETS & PERFORM ALL
SPIRAL WRITING.

SERVO & SPINDLE TIMING TESTS
THESE TESTS CHECK & TYPE HEAD LOAD, UNLOAD & INDEX TIMING,

ALSO MIN, MAX, AND AVERAGE SEEK TIMES, AND MAX VELOCITY

OF THE HEADS ARE MEASURED & TYPED.

5.2

TEST DESCRIPTIONS
1428322222222

0008302322

3222833822232 2223323823223222323233333322232323
34

CZIR6IFO UNIBUSS RK6 DR _PRT2
CZROIF P11
04-JAN-82 12:46

MACY11 3001046,

04~JAN-82

13:04

c 2
PAGE 16

SEQ 0015

BASIC CONTROLLER TESTS, SIZING £ SETUP

AAAAARAAAAAAAAARAARAANAAAARANARAARARANARRRARARNRAAAAAAAO
A AEAANCES

TEST 1

REFERENCE ALL CONTROLLER REGISTERS
THIS TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS
CAN BE ACCESSED.
THE INABILITY
TO BE ACCESSED WILL
RESULT IN A TIMEOUT TRAP WITH
AN ERROR MESSAGE.
ANY

ERROR IN THIS TEST WILL RESULT IN ABORTING ALL OTHER
TESTS AND JUMPING TO
'END OF PASS'

TEST 2

SIZE THE BUSS
THIS TEST

IS ENTERED ONLY IF

°'DRIVE SELECTION'

IS DEFAULTED

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

MANUAL MONE.

EVERY DRIVE FROM 0 THRU 7 IS ADDRESSED.

CONTROLLER ERROR (CERR) IS EXAMINED AND IF NOT SET, THE
DRIVE WILL BE TESTED AS AN RKO6.
IF SET, THE PROGRAM WILL BYPASS
TESTING THAT DRIVE ONLY IF THE ERROR WAS A RESULT OF
MDS, UFE OR NED BEING SET; OR BOTH NED & DRA RESET INDICATING THE OTHER PORT IS ACCESSED.
IF CERR IS DUE TO DTYE, THE DRIVE WILL BE TESTED AS AN RKO7

TEST 3

VERIFY OPERATOR DRIVE SELECTIONS
THIS TEST IS ENTERED ONLY IF DRIVE SELECTION IS NOT

DEFAULTED.
EVERY DRIVE FROM 0 TO 7 IS ADDRESSED &
CONTROLLER ERROR (CERR) IS EXAMINED. IF NOT SET, THE
PROGRAM WILL ASSUME THE DRIVE IS PRESENT AS AN RKO06.
IF CERR WAS SET, THAT DRIVE WILL BE BYPASSED
ONLY IF THE ERROR WAS A RESULT OF MDS OR UFE SET OR BOTH
NED & DRA RESET (WRONG PORT).
IF CERR IS A RESULT OF

NED ONLY, IT IS CHECKED AGAINT THE INPUTTED INFOR TO
VERIFY IT WAS NOT SPECIFIED.
iz 558; IS DUE TO DTYE, THE DRIVE WILL BE TESTED AS

TEST &

FIND NEXT DRIVE TO BE TESTED
THIS TEST FINDS THE NEXT DRIVE PRESENT & PUTS THAT

ADDRESS IN 'DRVAD' & $TMP4 IS SET TO CDT IF THE DRIVE

DRIVE IS AN RKO7.

THROUGHOUT THE FOLLOWING TESTS, THE DRIVE TESTED IS
THE DRIVE WHOSE ADDRESS IS IN
'DRVAD'.

TEST 5

PRINT DRIVE SERIAL NUMBER

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

IN DECIMAL & IS PERFORMED ON THE 1ST PASS ONLY

CZR6IFO UNIBUSS RK6 DR _PRT2
CZR6IF.PNN
04~JAN-82 12:46

MACY11 30(1046)

04~JAN-82

TEST 6

13:04

D 2
PAGE 17

SET VV WITH PACK COMMAND

IF VV IS RESET,
TEST 7

SEQ 0016

THE PACK COMMAND IS USED TO SET IT.

READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL #

THIS TEST VERIFIES THAT CYL 632 (1456 FOR RKO7), TRACK 2 CAN BE READ.

THIS AREA CONTAINS BAD SECTOR INFO WHICH IS WRITTEN BY THE
FACTORY DURING MANF.
ALL BAD SECTOR INFO (BSE) WILL BE STORED
AT THIS TIME TO MASK FUTURE READ HEADER OR DATA ERROR PRINTOUTS.

IF BSE INFO CANNOT BE READ, OR IF AFTER READING THE BSE INFO
IT IS DETERMINED THAT AN ALIGNMENT CARTRIDGE IS USED,

A MESSAGE WILL BE TYPED INDICATING THAT ALL
FUTURE FORMAT AND READ-WRITE TESTS WILL BE BYPASSED.
THIS IS DONE SO AS NOT TO DESTROY BSE INFO OR AN ALIGNMENT PACK BY WRITI
THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY.
S22

28822028

daddddiit

s iddstidiadiaddididiidsdlisisislssassssy

WRITE TESTS
L2280

222

ddddiddsiildti

ittt asdssiaddiiiisiiiisalisdisdsiidislisdsy

TEST 10 BASIC WRITE OATA TEST;

1 WORD

THIS TEST VERIFIES THE ABILITY OF

THE DRIVE

TO WRITE JUST ONE WORD,

ALL SECTORS ON CYL O ARE GIVEN IDENTICAL HEADERS &
A WRITE COMMAND IS ISSUED. READ & WRITE CHECK COMMANDS ARE NOT

PERFORMED. THIS TEST PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP
FOR A WRITE ERROR.

TEST 1N BASIC WRITE DATA TEST; FULL SECTOR

iy
W
N
PR QT

Vele L NTo JV, ¥ NPV

00 00 O 0o 00 0o 0o

811
812

820

THIS TEST VERIFIES THE ABILITY OF THE DRIVE TO WRITE
A FULL SECTOR.
ALL ZEROS ARE WRITTEN BY THE WRITE DATA COMMAND

& CHECKED BY A RD DATA COMMAND.

A FURTHER CHECK IS PERFORMED

BY THE WRT CHK COMMAND,
THE ABOVE IS REPEATED FOR AN ALL ONES PATTERN.

TEST 12 20 SECTOR FORMAT TEST

DATA IS WRITTEN ON A FULL TRACK IN 20 SECTOR FORMAT.
MSG BO,B1 ARE CHECKED FOR ANY ERROR CONDITION.

CYLINDER,TRACK, SECTOR 0 IS USED.

TEST 13 TEST OFFSET & RTC LOGIC
THE HEADS ARE FIRST OFFSET BY OFFSET COMMANDS.
THIS TEST CHECKS THE RTC LOGIC BY VERIFYING THAT THE

‘OFFSET ON' BIT (MSG A,00) RESETS AND THE OFFSET REG

CZR6IFO UNIBUSS RK6 DR PRT?
CZR6IF .P11
04~JAN-82 12:46

MACY11 30(1046)

04-JAN-82

E 2
PAGE 18

13:04

SEQ 0017

BECOMES THE CYL DIFF INFO WHEN A SEEK CMD TO A
DIFFERENT CYLINDER IS I1SSUED

IT ALSO TESTS THAT DRIVE CLEAR & SEEK TO SELF WILL NOT
CLEAR THE "OFFSET ON' BIT OR THE OFFSET REG.

ALL OFFSET POSITIONS IN BOTH DIRECTIONS ARE CHECKED

TEST 14 TEST READ DATA AT ALL HEAD OFFSET POSITIONS
THIS TEST VERIFIES THAT THE HEAD OFFSET LOGIC 1S OPERATIONAL BY
WRITING ALL 1°'S PATTERNS ON CYLINDER 0, HEAD 0. THEN

PERFORMING READ DATA FROM CENTERLINE AND MOVING OUT + AND - OFFSET
POSITIONS UNTIL A FAILURE OCCURES. THE OFFSET POSITIONS
ARE V1YPED OUT.

OFFSET CODES ARE ALSO VERIFIED BY READING MSG A, STATUS 00 & 10.
ALL HEADS ARE TESTED AT CYL 0.
IF
OR

THERE ARE NO FAILURES AT ALL,

THIS INDICATES THAT

A. HEADS DID NOT MOVE AT ALL
B. THE COMBINATION OF DISC SURFACE, HEADS, R/W AMP
ARE EXCEPTIONALLY GOOD.

NOTE THAT THE OFFSET FAILURE IS NOT AN ERROR,
BUT AN INDICATION OF SURFACE, HEAD, & R/W ELECTRONICS QUALITY ONLY

TEST 15 WRITE WITH HEADS OFFSET
THIS TEST VERIFIES THAT WHEN ATTEMPTING TO
WRITE WITH HEADS OFFSET THAT THE OFFSET WILL CLEAR

€ THE DRIVE WILL WRITE
SINCE THE WRITE COMMAND HAS AN IMPLIED RTC.
THIS TEST

IS PERFORMED FOR MAX POS & NEG OFFSETS ONLY

TEST 16 TEST CURRENT CROSS-OVER CYLINDERS
THIS TEST VERIFIES THAT THE DRIVE CAN WRITE & READ OFF

CURRENT CHANGE CYLINDERS X & Y IN THE FOLLOWING WAY:

SPIRAL WRITING IS PERFORMED FROM CYLINDER X TO CYLINDER Y
WITH A DATA PATTERN FILLING THE ENTIRE 2 CYLINDERS.
A WRITE CHECK IS THEN PREFORMED TO VERIFY DATA WAS PROPERLY WRITTEN.
THIS TEST IS PERFORMED FOR ALL 3 HEADS.

CYLINDER X:
CYLINDER Y:

63
64

127
128

191
192

255
256

319
320

383
384

RKO6
RKO6

CYLINDER X:
CYLINDER Y:

127 255
128 256

383
384

511
512

639
640

767
768

RKO?
RKO7

THE ABOVE

CYL NUMBERS ARE

IN DECIMAL.

CZR6IFO UNIBUSS RK6 DR_PRTZ2
CZROIF .P11
04~JAN-82 12:46

MACY11 30(1046)

884
885

04-JAN-82

13:04

2
PAGE 19

SEQ 0018

TEST 17 TEST HEAD SWITCHING TIME
TESTS THE ABILITY TO SWITCH HEADS IN LESS THEN '0MS WHEN HEADS SPIRAL.

2.
3

SECTOR 23(8) IS FIRST LOCATED AND A WRITE DATA COMMAND OF 512 WORDS
TO SECTOR 25(8) 1S ISSUED,
THE PROGRAM NOW KNOWS THAT THE DRIVE WILL NOT HAVE TO TRAVEL

A FULL REVOLUTION BEFORE FINDING SECTOR 25(8).

SINCE EACH SECTOR TAKES APPROX. 1.2MS, THE TIME BETWEEN

THE START OF THE WRITE COMMAND (FROM SECTOR 25(8), HEAD 0;

SECTOR O, HEAD 1) AND CONTROLLER READY SHOULD BE APPROX 6MS
THE ABOVE

IS REPEATED FOR HEAD SWITCHING BETWEEN 1

THIS TEST

IS BYPASSED IF NEITHER L OR P CLOCK IS PRESENT

TO 2

TEST 20 DRIVE OFF TRACK TEST
THIS TEST CHECKS FOR SERVO OSCILLATIONS DURING SETTLING TIME BEYOND

THE ALLOTED 3Ms.
1.

INITIALLY, EVERY CYLINDER IS FORMATTED WITH IDENTICAL HEADERS
(UNIQUE TO EACH_CYLINDER)

A FULL SECTOR WRITE COMMAND IS ISSUED BY A SINGLE CYL SEEK FROM 0 TO
AS HEADERS ARE IDENTICAL, THE NEXT SECTOR TO COME UNDER THE
HEADS WILL IMMEDIATELY BE WRITTEN.

IF THERE IS OSCILLATION SENSED BY READING THE TRIBITS,

DRIVE OFF TRACK ERROR WILL SET.

IN THIS MANNER OSCILLATING SEEKS ARE PERFORMED BETWEEN ALL MAJOR CYLINDE
100 OSCILLATIONS ARE PERFORMED AT EACH MAJOR CYLINDER
BEFORE DOING THE NEXT CYLINDER
ANY TEST THAT MODIFIES STANDARD FORMATTING IS FOLLOWED BY A

;8k§2¥ UP'

TEST TO PUT THOSE CYLINDERS BACK TO STANDARD

6.0

ERROR REPORTING

6.1

ERROR INTERPRETATION
WHENEVER AN ERROR MESSAGE IS PRINTED OUT, ALL REGISTERS
AND OTHER DATA PERTAINING TO THE ERROR ARE ALSO GIVEN.

MSG A(00), MSG B(01), RKER, RKBA...ETC, INDICATE THE
gggggNTS OF THE CORRESPONDING REGISTERS AT THE TIME OF
EVERY ERROR MESSAGE CONTAINS A PC.
POSITION IN PROGRAM WHERE

THIS PC INDICATES THE

THE ERROR CALL

IS LOCATED.

THE

ERROR MESSAGE, BECAUSE OF PRACTICAL CONSIDERATIONS IS MADE
SHORT AND MEANINGFUL.
THE USER IS ADVISED TO LOOK UP THE
PC

IN THE PROGRAM LISTING, WHERE HE WILL FIND MORE

INFORMATION

CZR6IFO UNIBUSS RK6 DR _PRT?
CZROIF .P11
04~JAN-82 12:46

MACY11 30(1046)

940
941

04~JAN-82

13:04

6 2
PAGE 20

SEa 0019

ABOUT THE ERROR.
IN MANY INSTANCES, A SINGLE FAULT WILL
GIVE RISE TO MORE THAN ONE ERROR REPORT.
A LITTLE DELIBERATION
AND CAREFUL EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY
VERY HELPFUL IN PINPOINTING THE FAULT.
A BRIEF EXPLANATION
OF WHAT IS BEING CHECKED IN THE TEST IS GIVEN AT THE
BEGINNING OF EVERY TEST.
ALL THE NUMBERS GIVEN WITH ERROR
MESSAGES ARE

IN OCTAL.

NCTE

NO ERROR LOGGING OR OPERATION HISTORY IS PROVIDED.

6.2

ERROR PRINTOUT EXAMPLES:

EXAMPLE #1
MESSAGE A0 ERROR
AFTER START SPINDLE CMD & FwD SET
TEST NO.

000014
A0

030144

016530

EXPECT
80

100000

013704

000001

000100

010000

000000

ACTU.
140144
100000
101744
000001
RKCS1
RKCS2
RKASOF
RKER
RKDS

040200

000000

THE ABOVE EXAMPLE SHOWS EXPECTED & ACTUAL DATA FOR

MESSAGE REGISTERS A0, BO, A1 ¢ B1.

MESSAGES A2, B2 & B3 WILL BE TYPED OUT ONLY AS REQUIRED IF
THE

CYLINDER DIFFERENCE/OFFSET,

CYLINDER ADDRESS &

¥E§$ & SECTOR INFORMATION IS A VARIABLE PARAMETER OF THE

EXAMPLE #2:
NO _ATTN IN RKASOF
AFTER UNLOAD COMMAND

TEST NO.

000003

RKMR2

000144

014330

RKMR3

100000

RKER

000000

RKDS

100101

RKCS1

000206

[ END OF DOCUMENT 1]

RKCS2

000104

RKASOF

000000

UNIBUSS RK6 DR PRTZ
P11
1
04~JAN=-82 12:46

MACY11 30(1046)

04-JAN-82

13:04

H 2
PAGE 21

SEQ 0020

CZR6IFO UNIBUSS RK6 DR _PRT?
CZR6IF.P11
04=JAN=-82 12:46
997
998
999
1000
1001

MACY11 30(1046)

04-JAN-82

13:04

1002
}882

;wex PGM REV 032 wwx
NLIST
CND,MC,MD
LIST
ME
.ENABL
ABS,AMA

}882

:DEFINE SYSMAC MACROS

1007
1008
1009
1010
10N
1012
1013
1014

}8} g

167400
000001

$SWR=
$TN=

[
2
PAGE 22

167400
1

;DEFINE SWITCKES 15.14, 13 11,10,9.8
:SET FIRST TEST NO. TO
1

.TITLE
CZR6IFO UNIBUSS RK6 DR PRT2
:«COPYRIGHT (C) 1976,1982
;*DIGITAL EQUIPMENT CORP.

;*MAYNARD, MASS. 01754
- %

}8}5

:*PROGRAM BY GARY PAPAZIAN

1019

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC

}85?

1022

}8%2

. %

:*PACKAGE (MAINDEC-11-DZQAC-CS5), JAN, 1981.
.SBTTL

OPERATIONAL SWITCH SETTINGS

- &

1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036

}8§§

;%
(%
%
Ix
ix
%
B
s
B
B

SWITCH
ememee
15
14
13
12
1
10
9
8

USE
ceccccccccsccccece=HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEQUTS
ABORT DRIVE AFTER 20 ERRORS
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>

.SBTTL

SUMMARY OF STARTING LOCATIONS

. %

1039
1040
1041
1042
1043
1044
1045

}829

B
S x
i
I
®
i
X

200
204
214

DEFAULT PARAMETERS
DEFAULT PARAMETERS & BYPASS WRITE TESTS
DEFAULT PARAMETERS £ BYPASS TIMING TESTS

224

INPUT PARAMETERS & BYPASS WRITE TESTS

220
230

240

INPUT PARAMETERS

INPUT PARAMETERS & BYPASS TIMING TESTS

opT11

SEQ 0021

CZR6IFO UNIBUSS RK6 DR_PRT2
CZR6IF.PN
04-JAN-82 12:46

MACY11 30(1046)
04-JAN-82
BASIC DEFINITIONS

N NN —

SEIKIILKR
=2 OO 00 NN

od e
i
d
e
e

wviviwnunavnawnuawn

[elelelolelolelelo]

e
e
D
D
d
d
e
d d b —
d
d
d
d e
—

elelelolelelelelo o o)
NNNNNNNNNO
~
—_
CONO
NS
WWN=OO 00 NOMAN LIS NN

D o

.SBTTL

1079

001100

000011
000012
000015
000200
177776
177774
177772

177570
177570

000000
000001
000002
000003
000004
000005
000006
000007
000006
000C07
000000
000040
000100
000140
000200
000240
000300
000340
100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004

13:04

J 2
PAGE 23

SEQ 0022

BASIC DEFINITIONS

:*INITIA%1680RESS OF THE STACK POINTER s#x 1100 w««

STACK=
.EQUIV
.EQUIV

EMT,ERROR
]OT,SCOPE

::BASIC DEFINITION OF ERROR CALL

::BASIC DEFINITION OF SCOPE CALL

;*MISCELLANEOUS DEFINITIONS

HT=

::CODE FOR HORIZONTAL TAB

PS=
.EQUIV

177776
PS,PSW

: ;PROCESSOR STATUS WORD

PIRQ=

177772

LF=
CR=
CRLF=

12
15
200

::CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN-LINE FEED

STKLMT= 170774

::STACK LIMIT REGISTER

DSWR=
DDISP=

: HARDWARE SWITCH REGISTER
: HARDWARE DISPLAY REGISTER

177570
177570

: ;PROGRAM INTERRUPT REQUEST REGISTER

; *GENERAL PURPOSE REGISTER DEFINITIONS

RO=

;;GENERAL REGISTER

R2=
R3=

12
13

:;GENERAL
::GENERAL
::GENERAL
::GENERAL

R1=

R4 =
RS=
R6=
R7=
SP=
PC=

1%
x5
16
17
16
X7

: ;GENERAL REGISTER

;*PRIORITY LEVEL DEFINITIONS

PRO=
PR1=

::PRIORITY LEVEL 0O
SSPRIORITY LEVEL 1

PR3=
PRG=
PRS=
PR6=
PR7=

140
200
240
300
340

SSPRIORITY
SSPRIORITY
::PRIORITY
::PRIORITY
SSPRIORITY

PRZ2=

100

::PRIORITY LEVEL 2
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;* 'SWITCH REGISTER'' SWITCH DEFINITIONS

Sw15="
SWi4=

Swi3=
swi2=
SWi1=
sWw10=
Sw09=

sw08=
Swo7=
swo6=
sSWo5=
SWo4=
Swo3=
SWo2=

100000
40000
20000
10000
4000
2000
1000

400
200
100
40
20
10
4

3
&
S
6
7

i wd

4
4
5
5
5
5
5

5
5

OO NOWNE
WA =OVD

) d D b ed b =

VOOV

UWN=O VO NOWVNE W

=0V

NO VNS W

=O 0

D b aud b wnd e b e ) b D ol wd D od D b ) D e b b d b D b el ) D el e i ) D D D D o aed e d
SNBSS BN WNWWNIWN WNIWNWN WNWAIN NNIN N NNINININ) = b b b et ed b = = S O OO OO

NOWVMSWN=O VO NOMWVIES

000002
000001

swo1=
SWo0=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

SW08,Sw8
SW07,Sw7
SW06,SW6
SW05,SW5
SW04, SwWé

"EQUIV

SW00.SW0

K 2
PAGE 24

SEQ 0023

2
1
SWC9,SW9

:*DATA e{(r) ogsmmms (BITOO TO BIT1S)

100000
040000

BIT15=
BIT14=

000010
000004
000002
000001

BIT03=
BIT02=
BITO1=
BIT00=
.EQulv
.EQUIV
.EQUIV
.EQuUIV
.EQUIV
.EQUIV

020000
010000
004000
002000
001000
000400
000200
000100
000040
000020

13:04

BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BIT08=
BIT07=
BIT06=
BIT05=
BIT04=

.EQUIV

.EQUIV
.EQulv
.EQUIV

00
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
&
2
1
BIT09.8BIT9
BIT08,BIT8
BIT07,8BIT7
BIT06,BIT6
BIT05,8IT5
BIT04,BITS
BIT03,BIT3
BIT02,BIT?
BIT01,8IT1
8IT00,BIT0

000004

; *BASIC ''CPU'* TRAP VECTOR ADDRESSES
ERRVEC= 4
;. TIME OUT AND OTHER ERRORS

000014
000014
000014
000020
000024
000030
000034

TBITVEC=14
TRTVEC= 14
BPTVEC= 14
JIOTVEC= 20
PWRVE(C= 24
EMTVEC= 30
TRAPVE (=34

T BIT
:: TRACE TRAP
; BREAKPOINT TRAP (BPT)
s s INPUT/0UTPUT TRAP (10T) ««SCOPEx+
;s POWER FAIL
s ;EMULATOR TRAP (EMT) «+ERRORw+
::"'TRAP'' TRAP

000240

PIRQVE(C=240

; ;PRCGRAM INTERRUPT REQUEST VECTOR

000010

000060
000064

RESVEC=

s sRESERVED AND

ILLEGAL

TKVEC=
TPVEC=

60
64

.SBTTL

RKO6 CONTROLLER REGISTER DEFINITIGN

;. TTY KEYBOARD VECTOR
;. TTY PRINTER VECTOR

INSTRUCTIONS

C4=-JAN-82 12:46

MACY11 30(1046)
04-JAN-82
BASIC DEFINITIONS

IF.P1

d ol wved ed e

lalal
NN

61F0 UN IBUSS RK6é DR _PRT?

D b D e e ad D e
D i
i e
D D e
b o e
b b o e
e

RKCS1=
RKWC=
RKBA=
RKDA=
RKCS2=
RKDS=
RKER=
RKASOF=
RKDC=
RKDB=
RKMR1=
RKMR2=
RKMR3=
RKECPS=
RKECPT=

0
2
4
6
10
12
14
16
20
24
26
34
36
30
32

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS

DRIVE COMMANDS

SELDRV=
PACK=
CLEAR=
UNLOAD=
SRTSPL=

1
3
5
7
11

;CONTROL AND STATUS REGISTER 1
sWORD COUNT REGISTER
sBUS ADDRESS REGISTER
sDESIRED TRACK SECTOR REGISTER
;CONTROL AND STATUS REGISTER 2
;DRIVE STATUS REGISTER
sERROR REGISTER
SJATTENTION SUMMARY AND OFFSET REGISTER
;DESIRED CYLINDER REGISTER
;DATA BUFFER
JMAINTENANCE REGISTER 1
JMAINTENANCE REGISTER 2 (MESSAGE LINE A)
sMAINTENANCE REGISTER 3 (MESSAGE LINE B)
sECC POSITION INFORMATION
JECC PATTERN INFORMATION
(RK(CS1:0)

sSELECT DRIVE (GET STATUS)
sPACK ACKNOWLEDGE
;DRIVE CLEAR
JUNLOAD
s START SPINDLE

13
15
17
21
23
25
27
31

sRECALIBRATE
;OFFSET
; SEEK
JREAD DATA
JWRITE DATA
JREAD HEADER
sWRITE HEADER AND DATA
JWRITE CHECK

000001
000100

6O0=
IE=

8170
BIT6

;60 BIT
s INTERRUPT ENABLE

000400
001000
202000
004000
010000
020000
040000
100000

BAl16=
BA17=
(DT1=
CT0=
CFMT=
DCPAR=
DI=
CERR=

BIT8
BIT9
BIT10
BITN
BIT1?
BIT13
BIT14
BIT1S

;BUS ADDRESS BIT 16
;BUS ADDRESS BIT 17
;CONTROLLER DRIVE TYPE (0=RK06,1=RK07)
sCONTROLLER TIMEOUT
;CONTROLLER DRIVE FORMAT (0=22 SECTOR, 1=20 SECTOR)
sSERCON PARITY ERROR DETECTED BY CONTROLLER
;DRIVE INTERRUPT
;CONTROLLER ERROR

SIESY (=l=]
SERYE

i o b b i e o

b e e e

) ) e el

RECAL=
OFFSET=
SEEK=
RDDATA=
WRDATA=
RDHEAD=
WRHEAD=
WRTCHK=

[

000200

RDY=

BIT?7

;CONTROLLER READY

$BASE=177440

SEQ 0024

000001
000003
000005
000007
000011

RKO6 CONTROLLER REGISTER DEFINITION

D i e

000000
000002
000004
000006
000010
000012
000014
000016
000020
000024
000026
000034
000036
000030
000032

04~JAN-82

[alm

St g

O O

Yo
o
3

. B, e R W
vy pw D 9T Dr B
R
S
QU S
N
S
S
i S
i i i S i
D
PR
00 0o Co 0o O Qo 00000000 N NN NNNNNNNOOOOO
OO o
W
NAWNEB WOV
VNOWNEWN 2OV
NS WSOV
NOWVMES WSO

04~-JAN-82 12:46

b s

P11

13:04

L 2
PAGE 25

MACY11 30(1046)

000013
000015
000017
000021
000023
000025
000027
000031

) e b
el
b e

[alal

0 UN IBUSS RK6 DR _PRTZ2

|
Og

Oe~JAN-82 12:46

100000

2
3

000007
000010

S
6

000040
000100

04-JAN-82

13:04

PAGE 26

CONTROL AND STATUS REGISTER 1 BITS

(RK(CS1:0)

(CLR=

BIT1S

.SBTTL

CONTROL AND STATUS REGISTER 2 BITS

DRVMSK= 7
RLS=
8IT13

SEQ 0025

;CONTROLLER CLEAR
(RK(S2:10)

sMASK FOR DRIVE SELECTION CODE
;DESELECT OR RELEASE DRIVE IN BITS 0-2

000020

BAl=

BITé

;BUS ADDRESS INCREMENT

000200

OR=

BIT7

;OUTPUT READY

9
0
1
1222
1223
1224
1225

001000
002000
004000
010000
020000
040000
100000

MDS=
PGE =
NEM=
NED=
UPE=
W(E=
DLT=

BIT9
8IT10
sITN
BIT1?
BIT13
8IT14
BIT15

000400

1227
1229
0

000001
000002

2
3

000010
000020

36
37

38
39
40

41
1242
1243
1244

b
and
e
md o
e
d
d
et
e
et o
b

NONLNLNLALNIALNLNUNUNL
PN NLND Y
[e o Yo No SUAV T AW AV IV IV IV IV IV, P N

9
?

BITO
BIT1

DRPAR=
FMTE=

B8]713
BIT4

ECH=

ILLEGAL FUNCTION CODE
sSEEK INCOMPLETE

BIT?

sNON-EXECUTABLE FUNCTION

BITS

;DRIVE

8IT6

;DRIVE DETECTED SERCON PARITY ERROR
;FORMAT ERROR
TYPE ERROR

JECC HARD

BSE=
HVRC=

B8IT7
BIT8

010000
020000
040000
100000

DTE=
OP]=
UNS=
D(K=

BIT12
8IT13
BIT14
8IT15

.SBTTL

STATUS REGISTER BIT DEFINITION (RKDS:12)

000001

DRA=

8170

sDRIVE AVAILABLE

000004

OFST=

BIT?

:DRIVE OFFSET

000020
000040

DCLO=
DROT=

BIT4
BITS

001000
002000
004000

000100

JMULTIPLE DRIVE SELECT
sPROGRAMMING ERROR
JNON-EXISTENT MEMORY
sNON-EXISTENT DRIVE
JUNIBUS PARITY ERROR
JWRITE CHECK ERROR
;DATA LATE ERROR

000200
000400

JUNIT FIELD ERROR

ILF=
SK]=

DIYE=

000010

5
6

BIT18

000200
000400
004000

020000

040000
100000

COE=
IDAE=
WLE=

ACLO=
vy=

DROY=
DDT=
WRL =

PIP=

DSC=
SVAL=

.SBTTL

INHIBIT

;sSUBSYSTEM CLEAR CONTROLLER AND ALL DRIVES
s INPUT READY

ERROR REGISTER BIT DEFINITION (RKER:14)

000040

000100

BITS
BITé

.SBTTL

NXF =

2
3

UFE=

000004

1246

SCLR=
IR=

BIT9
BIT10
BITN

BIT3
BIT6

BIT7
8IT8
BITN

8IT13
BIT14
BIT15

sBAD SECTOR ERROR

JHEADER VRC ERROR
sCYLINDER ADDRESS OVERFLOW ERROR
sINVALID DISK ADDRESS ERROR: HEAD/CYL
sWRITE LOCK ERROR

;DRIVE TIMING ERROR
;JOPERATION (SEARCH) INCOMPLETE
sDRIVE UNSAFE
sDATA CHECK

THIS BIT

(CONTROLLER IS SET

IS RESET)

AC LOW

:DC LOW
sDRIVE OFF
sVOLUME

TRACK

VALID

;DRIVE READY
;DRIVE TYPE (0=RK06,1=RK07)
sWRITE LOCK

sPOSITIONING IN PROGRESS

;DRIVE STATUS CHANGE
;STATUS VALID

MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22)

[ala)

MACY11 30(1046)

;0 UNIBUSS RK6 DR PRTZ

1264
1265
1266
1267
1268
1269
1270

000017
000020
000040
000100
000200
000400
001000

1272

0046000

1274

020000

1271

1273
1275
}g;;

}Sgg

MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22)

002000

17
BIT4
8IT5
BITé
SIT7
3]T8
BIT9

BIT10

sMESSAGE MASK
sFORCE EVEN PARITY ON SERCON MESSAGE LINES
;DIAGNOSTIC MODE
sMAINTENANCE SECTOR PULSE
sMAINTENANCE INDEX
JMAINTENANCE CLOCK
sMAINTENANCE ENCODED READ DATA
sMAINTENANCE ENCODED WRITE DATA

010000

PCD=

BIT1?

sPRECOMPENSATION DELAY

040000
100000

000040
000100
000200
000400
001000
002000
004000
010000
020600

040000

}33}

PCA=

ECCWw=_

BITN

BIT13

WRTGAT= BIT14
RDGATE= BIT15

+PRECOMPENSATICN ADVANCE

sECC WORD IS BEING READ OR WRITTEN
;WRITE GATE
JREAD GATE

.SBTTL

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

D.DRA=
D.vv=
D.DRDY=
0D.DDT=
D.FORM=
D.OFF=
D.WRL=
D.SPIN=
D.PIP=

BITS
BIT6
BIT7
BJT8
BIT9
BIT10
BITN
BIT1?2
BIT13

.SBTTL

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

D.DSC=

BIT14

;DRIVE AVAILABLE
;VOLUME VALID
;DRIVE READY
;DRIVE TYPE (0=RK06,1=RK07)
;DRIVE FORMAT
;OFFSET ON
JWRITE LOCK
;SPINDLE ON
sPOSITIONING IN PROGRESS

JDRIVE STATUS CHANGE

1293
1294
1295

000020
000040
000100

D.SSP=
BITé
D.HDHM= BITS
D.BRHM= BIT6

1297
1298
1299
1300
1301

000400
001000
002000
004000
010000

D.CART=
D.SPOK=
D.FWD=
D.REvV=
D.LOAD=

BJT8
BIT9
BIT10
BIT11
BIT12

.SBTTL

DEFINITION OF CRIVE STATUS BYTE 00 MESSAGE B (RKMR3:36)

D.IDAE=
D.ACLO=
D.FLT=
D.ILF=
D.PAR=
D.SKI=
D.WLE=
D.SPLS=
D.DROT=

BITS
BIT6
BIT7
BIT8
BIT9
B8IT10
BITN
BIT1?
BIT13

.SBTTL

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

1296

1302
};82

000200

020000
040000

}%82
1307
1308
1309
1310
131
1312
1313
1314
1315

}%}9

;%%g

000040
000100
000200
000400
001000
002000
004000
010000
020000

040600

;SERVO SIG PRES
JHEADS HOME
;BRUSHES HOME

D.DOOR= BIT?

;DOOR §INTERLOCKED

D.RTZ=
BIT13
D.UNLD= BIT14

JRETURN TO ZERO
JHEADS UNLOADING

D.UNS=

BIT14

;CARTRAGE INTERLOCK
s SPEED OK
- FORWARD
sREVERSE
JHEADS LOADING

s INVALID DISK ADDRESS ERROR:HEAD/CYL
;AC LOW
sDRIVE FAULT
s ILLEGAL, FUNCTION CODE
sDRIVE DETECTED SERCON PARITY ERROR
sSEEK INCOMPLETE
;WRITE LOCK ERROR
s SPEED LOSS
:DRIVE OFF TRACK

sR/W UNSAFE

N 2
PAGE 27

MESMSK=
PAT=
DMD=
MSP=
MIND=
MCLK=
MFRDMEwC=

}%;g
1280
1281
1282
1283
1284
1285
1286
1287
1288

13:04

SEQ 0026

04-JAN-82 12:136

04~JAN-82

lalal

CZROIF.PN

MACY11 30(1046)

[

CZR6ITO UNIBUSS RK6 DR _PRT?2

CZR6IFO UNIBUSS RKé DR PRT¢
CZR6IF .P11
04-JAN-82 12:46
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
}gg?

000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

}%%%
1334

}%gg

000007

077770

}%%g
1339
1340
1341
1342
1343

000003
040000
000760
007000
100000

B 3
MACY11 30(1046)
04=-JAN-82 13:04 PAGE 28
DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE B (RKMR3:36)
D.SECT=
D.WCUR=
D.WGAT=
D.HDFL=
D.MHD=
b.XERR=
D.TIB=
D.PLO=
D.NMOvV=
D.LIMD=
D.SUNS=

BIT4
BITS
BITS
BIT?7
BIT8
BIT9
BIT10
BITN
BIT1?
BIT13
BIT14

.SBTTL

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

M.DRV=

.SBTTL

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

m.ID=
M.ALGN=
M.SECT=
M.HEAD=
M.PAR=

3
BIT14
760
7000
BIT15

M.SER=

77770

sSECTOR ERROR
;WRITE CURRENT AND NO WRITE GATE
sWRITE GATE AND NO TRANSISTIONS
JHEAD FAULT
sMULTIPLE HEAD SELECT
s INDEX _ERROR
¢ TRIBIT ERROR
sPLO ERROR

+SEEK_AND NO MOTION

sLIMIT DETECT ON SEEK
+SERVO UNSAFE

;DRIVE CODE, ALL BYTES

;DRIVE SERIAL #, BYTE 11

;BYTE ID, ALL BYTES
;ALIGN SIGN, BYTE 10
sSECTOR COUNT, BYTE 11
sHEAD DECODE, BYTE 11
sPARITY, MESS A/B, ALL BYTES

SEQ 0027

.SBTTL

000000

000174
000176
000200
000220
000240

000240
000137

TRAP (CATCHER

012556

DISPREG: .WORD 0
SWREG:
.JORD O
.SBTTL
STARTING ADDRESS(ES)

@FSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM

012546

PARSRT

sINPUT ALL PARAMETERS & START TESTING

055672

JMP

0.0DT

<ENTER 0ODT11

ACT11 HOOKS

T o RARRAR AN RN R RN AR

000046

000052

AN RR AR

AR AN AANRRA AN AN

;HOOKS REQUIRED BY ACT11
$Sv
‘42(::.

-WORD

: fggsc
.SBTTL

AR AR RRRARARRANAAARNRNRAR

;SAVE PC

i§~vo

100000

000244
001000

;. SOF TWARE DISPLAY REGISTER
s SOFTWARE SWITCH REGISTER

JMSZO

.SBTTL

000244
000046
031636
000052

SEQ 0028

s*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘.42 HALT''
s *SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:'LOCATION194C0NTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000
000137
000220
000137

MACY11 30(1045)
04-JAN-82
13:04 PAGE 29
COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3:36)

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

::2)SET LOC.52 TO 100000
*: RESTORE PC

APT PARAMETER BLOCK

SIRRRARR AR AN NAN AR AR AN AR R AR A RARARAAANARRARARAARRARARAAANARAEARARY

sSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

:;tt*tttt*ttttttttt**tt'ttt"ttfifitttfittttt.ttttfitttt'tttttttttttt

000024

000044

001000
000024
000200
000044
001000
001000

LIX=,

.=24
200

;:sSAVE CURRENT LOCATION

;:SET POWER FAIL TO POINT TO START OF PROGRAM
J:FOR APT START UP

=44
:POINT TO APT INDIRECT ADDRESS PNTR.
$SAPTHDR ;;POINT TO APT HEADER BLOCK
«=.8X
;;RESET LOCATION COUNTER

;;ttlt*ttttttttttttttQtttttttttttfitttttt*tttttttt*ttttitfiittttttt

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
JINTERFACE SPEC.
001000
001000
001002
001004
001006
001010
001012

000000
001210
000430
001130
001130
000042

$APTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:
SUNITM:

.WORD
.WORD
_WORD
.WORD
.WORD

0
SMAIL
280.
600.
600.

LIST

.WORD

;. TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
;;ADDRESS OF APT MAILBOX (BITS 0-15)
ssRUN TIM OF LONGEST TEST
..RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT

SETEND-SHAIL/Z s cLENGTH MAILBOX~ETABLE (WORDS)

FO UN IBUSS RK6é DR PRT?
F.P11
04~JAN-82 12:46

MACY11 30(1046)
064-JAN-82 13:04
APT PARAMETER BLOCK

D 3
PAGE 30

SE@ 0029

;USE LOOP X TO OMIT SUBCLR
.MACRO

d b

1404

N
N

D cd e

=D D
d i

D od

A
PC,SUBCLR

sRESTORE STK PTR

sCERR AFTER SCLR

LOOP

:THIS MACRO FILLS EXPECTED MSG AO, BO, A1, B1, A2, B2 & B3 WITH STANDARD BITS
“A=D.DSC AFTER ATTN OR O AFTER DRIVE CLEAR OR ANY IMPLIED SEEKS
iNOTE: A CAN BE ANY BIT COMBINATION DESIRED.

"MACRO

) D ad

-ENDC
.ENDM

F.EAB

MOV

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

MOV
Mov

#<D.SPOK!D.CART!D.DOOR!D.BRHM!D.SSP>
,E.A1
EXPECTED A1
#1,E.81
sMSG _ID FOR EXPECTED MSG B1

Mov

#2,E.B2

CLR

)

8
JSR

#STACK,SP

.ENDM

MOV

F.EAB

;EXPECTED MSG AQ

E.BO

:EXPECTED MSG B0

E.A2

sEXPECTED MSG A2

#3,E.83

¢MSG ID FOR EXPECTED MSG B3

sMSG ID FOR EXPECTED MSG B2

A.C.D,.E FOR MSG A0, BO, A1, B1 ERROR NUMBERS RESP.

;
;

H=T.82
I=T.B3

‘USE

F=<ERROR DESCRIPTION>

"MACRO

CHECK

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

.ENDM

JSR
.WORD
ERROR
ERROR
ERROR
ERROR
CHECK

PC,CHKMSG
G!H!I
A
(
D
E

;USE

G=T.A2

TO READ MSG A2°® PUT INFO INTO 'CYLDIF'

TO READ MSG B2 & PUT INFO INTO 'CYLADD'
TO READ MSG B3 & PUT INFO INTO 'SECTOR' & 'HEADA'

;A=CYL DJFF/OFFSET ERROR #
;8=CYL ADDR ERROR #
; C=<ERROR DESCRIPTION>

VALY

—

b el

b wd el

b cnd cnd

TN T

D cand =

D e cd

sUSE

)

:THIS MACRO ASSUMES DRIVE MSG A0, BO, A1, B1 WILL ALWAYS BE TESTED

) D

ERROR

.IF

LOOP
SCOP1
Mov

.MACRO

(CWD?2

A,B,C,?D,%

;CHECK MSGS A0, B0, A1, B1
;8 MSGS SPECIFIED HERE
:MSG AQ ERROR F
;MSH B0 ERROR
:MSG A1 ERROR
:MSG B1 ERROR

CZR6IFO UNIBUSS RK6 DR_PRT2
CZR6IF P11
04~JAN-82 12:46

0 ??IBUSS RK6 DR _PRT?2
P
04-JAN-82 12:46

MACY11 30(1046)
04=JAN-82
13:04
APT PARAMETER BLOCK
MoV
JSR

PC,GSTAT

BEQ

#2 ,RKMR1(RS)

;SELECT WORD 2

CYLDIF

;SEE IF MSG A2=0

ERROR
TST

A
CYLADD

sMSG A2 NOT CLEARED ¢
:SEE IF MSG B2=0

ERROR

TST

E 3
PAGE 31

BEQ

:BR IF_YES

:BR IF YES

sMSG B2 NOT CLEARED €

.ENDM

(WD2

.MACRO

DRCLR

MOV
MoV
MOV
JSR
ERROR

#CCLR,RKCS1(RS5)
SUNIT,RKCS2(R5)
#CLEAR ,HCS1T
PC,DOCMD
151
:C.TSTATN

sTEST FOR ATTN

ERROR

154

sATTN NOT CLEARED AFTER DRIVE CLEAR CMD

.ENDM

DRCLR

égR

;DRIVEAN
;DO DRIVE CLEAR CMD & GET CONTR RDY

sNO RDY AFTER DRIVE CLEAR CMD

:USE CALIB

"MACRO

CALIB

A,2C

MOV
MoV
MOV
JSR

#CCLR,RKCS1(RS)
SUNIT ,RKCS2(RS)
#RECAL ,HCS1
PC,DOCMD

;DO RECAL CMD & GET CONTR RDY

MOV

#1 ,RKMR1(RS)

;SELECT WORD 1

8IT
BNE
ERROR
MOV
JSR
ERROR

#D.RTZ,HMR2
C
244
T10, TEMP2
PC,FATTI
55

F.EAB

DSC

(w2

47.50,<AFTER RECAL CMD>

ERROR

JSR

C:
e

CHECK

LENDC
.ENDM

TO OMIT CHECKING MSGS A0, BO, A1, B1, A¢ ¢ B2

124

PC.GSTAT

sRDY NOT SET AFTER RECAL CMD

;RTZ NOT SET DURING RECAL CMD

*SETUP TIMEOUT
‘FIND ATIN
*NO ATTN AFTER RECAL CMD

221,275.,222.276,<AFTER RECAL CMD>,T.A2.T7.82.7.B3

DRCLR
CALIB

1QUICK START SPINDLE

SEQ 0030

1512
1513
1514
1515
}2}9

MACY11

30(1046)
04-JAN-82
13:04
APT PARAMETER BLOCK

:
"MACRO

F
3
PAGE 32

OKSRT
JSR

PC.,SUBCLR

:CERR AFTER SCLR

1518
1519

MOV
JSR

#SRTSPL,HCS1
PC,DOCMD

;DO START SPINDLE CMD & GET CONTR RDY

1522
1523

MOV
JSR

ERROR

7100, TEMP2
PC.FATTI
74

1526
1527
1528
1529
1530

CLR

UNLD

ERROR

}gg?

ERROR

}ggg

.ENDM

121

*RDY NOT SET AFTER ST SPIN CMD.
;SETUP TIMEOUT
SFIND ATTN

*NO ATTN AFTER ST SPIN CMD.

QKSRT

1531

;
:

: USE WRHDR

<A>,X

}ggg

"MACRO

WRHDR

A.C.K,?D

MOV
JSR

#<A> ,HCS1
PC,DATCMD

N8
MOV
JSR

K
#<CFMT!SELDRV>
,HCS1
PC,DOCMD

BIT
BEQ
ERROR
TYPE
JMP

#CERR,HCS1
D
201
,MSG26
$EOP

}ggg

A=WRHEAD/<CFMT !'WRHEAD>

1536
1537

1538

1539

1540
1541
1542
1543
1544

1545

1546
1547
1548
1549
1550
1551
1552
1553

1554,

F
.ENDC
IF

.ENDC

D:
JFB

ERROR

JSR

ERROR

F.EAB

200

PC.GSTAT

117

:
+ A=RDHEAD/<CFMT 'RDHEAD>

}ggg

"MACRO

}ggg

1566
1567

.ENDM

;DO DATA X FOR CMD & GET CONTR RDY

*NO RDY AFTER WRITE HEADER CMD
;GET FRESH STATUS

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

1555
1556
1557
1558
1559
1560
1561

.ENDC

CHECK

TO OMIT CHECXING A0, BO, A1 & B1

277.,267.,300,270,<AFTER WRITE HEADER CMD>,0.0.0

WRHDR

*USE RDHDR <A>,X TO OMIT CHECKING A0, BO. A1, B1
RDHDR

A,C.?D,7E

MOV
MOV

#RHTAB,RO
#<A> HCST

SEQ 0031

(n
Y an

€2 R6IFO UNIBUSS RKé6 DR _PRT?
CZR6IF .P11
04~JAN=82 12:46

MACY11 30(1046)

04=JAN-82

APT PARAMETER BLOCK

Q000000000
NN NNNNNNNN
NOWNSUWN—=O
VO NOWVS W =0O

G 3
PAGE 33

SEQ 0032

ERROR
Sé;

PCibATCHD

17
gcsnn.ucs1

;DO DATA X FOR CMD & GET CONTR RDY

ERROR

174

;CERR AFTER READ HEADER CMD

JMP

$eopP

MOV
MOV
MOV

RKDB(RS), (RO)+
RKDB(RS5)
. (R0)+
RKDB(R5).(R0O)+

BIT

#DLT,RKCS2(RS)

TYPE

MSG26

*NO RDY AFTER READ HEADER CMD

*ABORTING BAL OF

TESTS

;1°ST WORD FROM SILO TO RHTAB
:2'ND WORD
:3'RD WORD

BEQ
JSR

E
PC,GSTAT

TYPE
JMP

,M5G26
$EOP

ENDC

CHECK 301.,271.302,272,<AFTER READ HEADER CMD>,T.A2,T.B2.0

ERROR

)
D
)
D
D e

D
P
d
b
b
)

A AN AN

b et el cd
b
—d

VIV AW

D e

JSR

13:04

F.EAB

.ENDM

RDHDR

.MACRO

HDCHK3
RDHDR

A
.ENDM

CMP
BEQ

ERROR

173

;DLT AFTER READ HEADER CMD
*ABORTING BAL OF

TESTS

?A
RDHEAD

RHTAB, TOCYL
A

sCHECK WORD O ONLY,
:BR IF SAME

CYL#

;WRONG CYLA ON HEADER

HDCHK3

: A=TOCYL/FRCYL , B=HEAD#, C = 0 FOR 22 SECTOR, 1 FOR 20 SECTOR
"MACRO

HDTBL

A.B.C

MOV
MOV
MOV

A,CALADD
#8,HEAD
#C,FORMAT

JSR

.ENDM

PC.FHDTAB

;SETUP
:TO FILL
sHEADER

s TABLE

HDTBL

‘QUICK SEEK.

ENTER WITH CYL# IN RKDC

"MACRO

OKSEEK

MOV

#SEEK,HCS1

[gn
Y on ]

CZIR6IFO UNIBUSS RK6 DR_PRT?2
CZR6IF .P11
04-JAN=-82 12:46

APT PARAMETER BLOCK

b
d
b
b

SEQ@ 0033

PC,DOCMD

131

“NO RDY AFTER SEEK CMD

MOV

750000, TEMP1
PC.FATT2

;SETUP TIMEOUT
SFIND ATTN

BIT
BEQ
ERROR

D
b
d

H 3
PAGE 34

132

;DO SEEK CMD & GET CONTR READY

*NO ATTN AFTER SEEK CMD

:csnn.ncs1

210

;CERR AFTER SEEK CMD

.ENDM

QKSEEK

FMT
! WRDATA>
:A=WRDATA/<C

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

:D=ADDR TO JMP TO BYPASS TEST

;E: IF BLANK WILL CHECK AO, BO, A1 & B1 AT THE END OF WRITING
.E: IF NON BLANK WILL OMIT CHECKING A0 THRU B1
.MACRO

.IF

-ENDC
IF

.ENDC

e md

(o Yo Yo Xe )

b e

SRR R

D e

RRR

b o

b e

d e e} md

D o

d e

R AR NARN AR A ARILRRRRR

b cnd e

13:04

JSR
ERROR
JSR
ERROR

OO oooononOrONOONONON
& D WNWNW NNNINN
SNSNSNYN
—
W = OV NOWNHUNNI=OVBNO
NS WN—=O 0D~V
W= OV~ o VSN

04-JAN-82

1674

.ENDC
AF

WDATA

A,C.D,E,J.K,?F,2G,?H,?1

MOV

#<A> ,HCST
PC,DATCMD
11

;DO DATA X FOR (MD & GET CONTR RDY
*NO RDY AFTER WRITE DATA CMD

PC,GSTAT

;GET FRESH STATUS

JSR
ERROR
8
JSR
NB
MoV
JSR

K
H<CFMT!SELDRV>
,HCS1
PC,DOCMD

BIT
BEQ

#CERR,HCS1

:BR IF NO ERRORS

BIT
BEQ
JSR
BR
8

#8SE ,HER

;SEE

PC. TRUERR

:ELSE

INC
CMP
BNE
ERROR
JMP

SECTOR

:RETURN HERE

;BR IF NO

MOV

zCCLR,RKCS1(R5)

s TRY ANOTHER SECTOR

NB
JMP

ERROR

JMP

117

SECTOR,#10.

46
D

:NO RDY AFTER SELDRV CMD

BAD SECTOR FLAG

‘BR IF NO
SEE

SECTOR LISTED

SRETURN HERE IF NO
IF

IN BSE

TABLE

YES

SARE 10 CONSEC. SECTORS BAD
*ABORTING TEST DETECTED 10 BAD SECTORS
:BYPASS TEST

JRET HERE IF YES

MACY11 30(1046)

CZIR6IFO UNIBUSS RK6 DR PRTZ2
CZR6IF .P11
04~JAN-82 12:46

1680
1681
1682

MACY11 30(1046)
04~JAN-82 13:04
APT PARAMETER BLOCK
.ENDC
G:

1683

ERROR
F.EAB

CHECK

1684

TYPE

1685

JMP

1
3
PAGE 35

SEQ 0034

12
0

;CERR WITH WRITE DATA CMD

MS5G26

;ABORTING BAL OF TESTS

;BAD SECTOR NOT LISTED IN TABLE

52.23.53.25.<AFTER WRITE DATA CMD>,T.A2.T7.82.0

$EOP

}239

ERROR

1688
1689
1690
1691

B
F.EAB
CHECK

3
0
52.23.53,25,<AFTER WRITE DATA CMD>,T.A2,T.B2.0

.ENDC
"ENDM

1692

1693
1694
1695
1696

}ggg

1699
};8?

1702
1703
1704
1705
1706
1707
1708
1709
1710

1711

;
*A=RDDATA/<CFMT 'RDDATA>

*USE RDATA

<A>,X TO OMIT CHECKING A0, B0, A1 & Bf

.MACRO

RDATA

A,(.K,?D,7E,?F,?G,?H

MOV
JSR
ERROR
B
JSR

#<A> HCST
PC,DATCMD
13
K
PC,GSTAT

NB
MOV
JSR

K
#<CFMT
' SELDRV> ,HCS1
PC,LOCMD

117

:NO RDY AFTER SELDRV CMD

BIT
BEQ
BIT
8EQ
gsnon

#CERR,HCS1
G
#8SE ,HER
3
gs

;SEE IF BAD SECTOR

JENDC
IF

1712
1713
1714
1715
1716
};}g

.ENDC

1719

1722

;;g?
1723

1724
1725
1726
};%g
1729
1730
1731
1732
1733
1734
1735

WDATA

ERROR

;GET FRESH STATUS

;DETECTED BSE IN READ BUT NOT IN WRITE CMD.

JMP

$EOP

MSG26

:ABORTING BAL OF

BIT

#DCK, HER

;SEE IF DATA CHECK ERROR

ERROR
BR

21
H

:DATA CHECK ERROR AFTER READ CMD (ECC)

ERROR

:CERR AFTER READ DATA CMD.

F.EAB
CHECK
BR

0
54,26,56,30,<AFTER READ DATA (0>,T.A2.T1.82.0
D

B
F.EAB
CHECK

C
0
54,26,56,30,<AFTER READ DATA CMD>,T.A2.T.82.0

G:
IF

TYPE

:DO DATA X FOR CMD & GET CONTR RDY
*NO RDY AFTER READ DATA CMD

BEQ

TESTS

CZR6IFO UNIBUSS RKé DR PRT2
CZR6IF .P11
04~JAN=-82 12:46

MACY11 30(1046)
04-JAN-82 13:04
APT PARAMETER BLOCK
.ENDC
.ENDM

J 3
PAGE 36

SE@ 0035

RDATA

*A=WRTCHK/<CFMT 'WRTCHK>

~
o~

*C=EXPECTED DATA FOR TYPEOUT
<A>,DATAQ,X TO OMIT CHECKING AO, BO, A1 ¢ B!
sUSE WRCHK

NN NN NN NNNNNN

A= O 00NN SN -

IFO UNIBUSS RK6 DR PRT2
F.P1
04~JAN-82 12:4

o (o Yo IV IV, IV IV 1V, 1V [V 1V ] v

€2

.MACRO

.IF
-ENDC
JIF

.ENDC

.IF

WRCHK

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

MOV
JSR

N<A> HCS1

PC,DATCMD

;DO DATA X FOR CMD & GET

PC.GSTAT

:GET FRESH STATUS

ERROR
8
JSR
NB

CONTR RDY

*NO RDY AFTER WRITE CHECK CMD

K
#<CFMT
! SELDRV>,HCS1
PC,DOCMD

MoV

JSR
ERROR

117

;NO RDY AFTER SELDRV CMD

gCERR.HCS1

BIT
BEQ
BIT
BEQ
MOV
MOV
ERROR
BR

gucs.ucsz

;SEE IF WRITE CHECK ERROR

RKDB(RS) ,WD1
C.wh2
26

:ACTUAL WORD FOR PRINTOUT
*EXPECTED WORD FOR TYPEOUT
‘WCE AFTER WRITE CMD

ERROR

:CERR AFTER WRITE CHECK CMD

CHECK
TYPE
JMP

§7.31,60,32.<AFTER WRITE CHECK CMD>,T.A2,T7.82.0

F.EAB

.MSG26

$EOP

F.EAB

57.31,60,32,<AFTER WRITE CHECK CMD>,T.A2,T.B2.0

CHECK

-ENDC
.ENDM

WRCHK

.MACRO

OFSET
MoV
MOV

JSR
ERROR

;ABORTING BAL OF TESTS

#A,SESCAPE
#OFFSET HCST
PC,DOCMD

;DO RECAL

CMD & GET CONTR RDY

+NO RDY AFTER OFFSET CMD

MOV

g<ngIP!D.SPIN!D.OFF!D.VV!D.DRA).E.AO

MOV

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

CLR

SEXPECTED MSG AQ

e el i

el
NN
p ) P4

0 ??IBUSS RK6 DR _PRT?
.P
04-JAN-82 12:46

MACY11 30(1046)
04~JAN-82
13:04
APT PARAMETER BLOCK

D cad ) e D d el D

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

CLR
MOV
JSR
ERROR

SESCAPE
75000, TEMP1

CHECK

D D d D wd aid i D et D e
d De e D e b b b ) D d b o
D wnd D e
d ) D e e
— e e e wd e

CHECK

F.EAB

LENDM

OFSET

.MACRO

EOPGM
SCOPE

CLR

$EOP1:
.ENDM

PC,FATT2
34

<D.DSC!D.OFF>

$ESCAPE

#1,$TIMES

INC
CMP
BEQ
CLR
JMP
CLR

$DEVCT
DRIVS.SDEVCT
1$
BSERR
NUDRV
BSERR

BR
SCOPE

;SETUP TIMEOUT
sFIND ATTN
+NO ATTN AFTER OFFSET CMD

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

MOV

1$:

K 3
PAGE 37

#STACK,
SP

$SEOP1+2

:INCR COUNT FOR # DRIVES CHECKED
:-ARE ALL DRIVES PRESENT TESTED?
‘BR IF YES
*CLEAR BAD SECTOR ERROR FLAG
*ELSE TEST NEXT DRIVE PRESENT
*CLEAR BAD SECTOR ERROR FLAG

EOPGM

‘A= ERRUR #

‘B = ERROR CONDITION

"MACRO

OFFDIR
MOV

A,B,?C,?D
R2,RKASOF
(RS)

;REFRESH RKASOF

8
8

8IT
BNE

#81T7.R2
C

:BR IF NEG OFFSET

ggg

gZ.CYLDIF

;CHECK POS OFFSET

ERROR

;OFFSET IN A2 NOT = RKASOF

ggg

g1.ch01r

;CHECK NEG OFFSET

ERROR

:OFFSET IN A2 NOT = RKASOF

g
D:
.ENDM

OFFDIR
NLIST

TMMD

SEQ 0036

UNIBUSS Rké DR PRT?
1"

04~JAN-82 12:46

13:04

MACY11 30(1046)
04-JAN-82
COMMON TAGS
.SBTTL
MR

TABLE

ARt

CONTAINS VARIOUS

:*USED IN THE PROGRAM.

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000

STSTNM:
SERFLG:
$ICNT:
$SLPADR:
$SLPERR:
$ERTTL:
SITEMB:
SERMAX:
$ERRPC(:
$GDADR:
$BDADR:
$GDDAT:
$8BDDAT:

001130

$SAUTOB:
$INTAG:

b
e
i o
b b cod id d b
b

Ny NN
o0
[« AV]

.WORD
.BYTE
.BYTE
.WORD
.WORD
-WORD
.WORD
.BYTE
.BYTE
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.BYTE
.WORD

.WORD
. WORD

0
177607
077
015
000012

000377

SEQ 0037

!TIHES 0
SESCAPE: 0
$BELL:
LASCI2
$QUES:
LASCII
$CRLF:
LASCI]
.ASCJZ
SLF

ittt

iadidliiiltsl])

COMMON STORAGE LOCATIONS

::START OF COMMON TAGS

;s CONTAINS THE TEST NUMBER
;s CONTAINS ERROR FLAG
;s CONTAINS SUBTEST ITERATION COUNT
;sCONTAINS SCOPE LOOP ADDRESS
2 ;CONTAINS SCOPE RETURN FOR ERRORS
: ;CONTAINS TOTAL ERRORS DETECTED
:;CONTAINS ITEM CCNTROL BYTE
;s CONTAINS MAX. ERRORS PER TEST
;s CONTAINS PC OF LAST ERROR INSTRUCTION
;s CONTAINS ADDRESS OF ‘GOOD' DATA
:;CONTAINS ADDRESS OF °'BAD' DATA
; ;CONTAINS 'GO0D* DATA
2 2CONTAINS 'BAD' DATA
s sRESERVED=-=NOT TO BE USED
5:AUTOMATIC MODE INDICATOR
;- INTERRUPT MODE INDICATOR
JoADDRESS OF SWITCH REGISTER
;<ADDRESS OF DISPLAY REGISTER

.WORD

DISPLAY: . WORD
177560
$TKS:
177562
$TKB:
177564
$TPS:
$TP8B:
177566
$NULL:
BYTE
SFILLS: .BYTE
SFILLC: .BYTE
: .BYTE
.WORD
.WORD
.WORD
.WORD

b
—

o0
QO

b b

b o

b e

b wnd

3333838888888

REIANNIEXRIIINER

SWR:

.=1100
(=lelalelelolelalelol dolololalalelsla)

$CMTAG:

;:TTY
2:TTY
J:TTY
;2TTY

OO0O0O0O0O0O—-MNO

NENOGR

o SO

b
e
el
i
i
b
cd
e

— -—t

(=4
o

n NN
= == 2200

001100

PAGE 38

COMMON TAGS

AAA LSRR

s*THIS

KBD STATUS
KBD BUFFER
PRINTER STATUS REG.
PRINTER BUFFER REG.

ADDRESS
ADDRESS

;. CONTAINS NULL CHARACTER FOR FILLS
;cCONTAINS # OF FILLER CHARACTERS REQUIRED

;S INSERT FILL CHARS. AFTER A 'LINE FEED''
s 'TERMINAL AVAILABLE'' FLAG

;sUSER
2 sUSER
JsUSER
2:USER
;sUSER
..USER

DEF INED
DEF INED
DEFINED
DEF INED
DEF INED
DEF INED

(BIT<07>=0=YES)

NUMBER OF ITERAT]ONS
ESCAPE ON ERROR ADDRESS

<207><377><377> ..CODE FOR BELL

2sQUESTION MARK

<15>
<A

;o CARRJAGE RETURN

JoLINE FEED

JENRARARANA RGN RANANAC LR NN NR AR ANARANAARAARARAARNNEARAITRRCEANRENNR

.SBTTL

APT MAILBOX-ETABLE

(oS 1aV ]

QO
[ela)

) wmh

AN UAR RN AR AN RN RN R

000000

.EVEN
SMA]L:
$MSGTY:

.WORD

AN AN

AMSGTY

TN RN NARRANNRAR ARG ANAN AR ONORRRNANRIORORRY

;. APT MAILBOX
s sMESSAGE TYPE CODE

001212
001214
001216
001220
001222
001226
001226
001230
001230
0123
001232
001234
001236

000000
000009
000000
000000
000000
000000
000000

000
000
000000
000000
000000

b il

[« SV P NV T,NIY
o IV )

PONIND)

R
AV

b
b ek
e

OO0 VOO OVO

MACY11

30(1046)
04-JAN-B2
APT MAILBOX-ETABLE
SFATAL: .WORD
STESTN: .WORD
$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
_WORD
$MSGAD: .WORD
$MSGLG: .WORD
SETABLE:
$SENV:
.BYTE
SENVM:
_BYTE
$SWREG: .WORD
SUSWR:
_WORD
$CPUOP: .WORD

AFATAL
ATESIN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV
AENVM
ASWREG
AUSWR
ACPUOP

;;FATAL ERROR NUMBER
;;TEST NUMBER
;;PASS COUNT
,;DEVICE COUNT
::1/0 UNIT NUMBER
;;MESSAGE ADDRESS
; ;MESSAGE LENGTH
::APT ENVIRONMENT TABLE
;. ENVIRONMENT BYTE
. ENVIRONMENT MODE BITS
;:APT SWITCH REGISTER
;;USER SWITCHES
;;CPU TYPE,OPTIONS

BITS 15-11=CPU TYPE

BIT 10=REAL TIME CLOCK

. ®

BIT

000
000

$°4MS1:
$MYPT1:

001242

000000

i
o*
.¥
$MADR1:

001244
001245
001246
001250
001251
001252
001254
001255
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302
001304
001306
001310
001312
001314

000
000
000000
000
000
000000
000
000
000000
000000
000000
177440
000000
G00000
000000
000000
000000
000000
000000
000000
000000
000000
000000
177640
000210
000240
172540

001314
001316
001320

SEQ 0038

11/704=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,0=10

001240
001241

n 3
PAGE 39

13:04

o
B

) i cod e e

OO OOV OV OOV O OVOOOO

£28

N=2OVO~NO
NS WA =O VN

0 UNIBUSS RK6 DR PRT?2
PN
06=-JAN-82 12:46

BIT
.BYTE
_BYTE

AMAMS]
AMTYP1

9=FLOATING POINT PROCESSOR

8=MEMORY MANAGEMENT

;:HIGH ADDRESS ,M.S. BYTE
;.MEM. TYPE ,BLKA1

MEM.TYPE BYTE

(MIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003
;;HIGH ADDRESS,BLKA1

.WORD

AMADR1

SMAMS?2:
SMTYP2:
SMADRZ:
SMAMS3:
SMTYP3:
SMADR3:
SMAMS4:
$MTYP4:
SMADR4:
SVECT1:
SVECT2:
$BASE:
$DEVM:
$COW1:
$CPW2:
$0DW0:
$ODW1:
$DOW2:
$ODW3:
$DDW4:
$DDWS:
$ODW6:
$ODW7:
SSEEY?'

_BYTE
_BYTE
.WORD
_BYTE
_BYTE
.WORD
.BYTE
_BYTE
.WORD
_WORD
.WORD
.WORD
_WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
,WORD

AMAMS?
.HIGH ADDRESS,M.S. BYTE
AMTYP2
;. MEM.TYPE .BLKAN2
AMADR?
; MEM.LAST ADDncSS,BLKA?
AMAMS3
; HIGH ADDRESS,M.S.BYTE
AMTYP3
. MEM.TYPE,BLKA3
AMADR3
;.MEM.LAST ADDRESS,BLKA3
AMAMSG ; HIGH ADDRESS,M.S.BYTE
AMTYP4 ; ;MEM.TYPE ,BLK#4
AMADRG ; MEM.LAST ADDRESS,BLKAG
AVECT1
;:INTERRUPT VECTORA1,BUS PRIORITYA1
AVECT2
;;INTERRUPT VECTORA2BUS PRIORITYA?
ABASE
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
ADEVM
;:DEVICE MAP
ACDW!
;;CONTROLLER DESCRIPTION WORDA1
ACDW2
;;CONTROLLER DESCRIPTION WORDA?
ADDWO
;.DEVICE DESCRIPTOR WORD#Q
ADDW1
;;DEVICE DESCRIPTOR WORDA1
ADDW2
;;DEVICE DESCRIPTOR WORDA2
ADDW3
;:DEVICE DESCRIPTOR WORDA#3
ADDW&
;.DEVICE DESCRIPTOR WORDA4
ADDWS
;;DEVICE DESCRIPTOR WORDAS
ADDW6
;.DEVICE DESCRIPTOR WORD#6
ADDW7
;;DEVICE DESCRIPTOR WORDA7

ABASE=
RKVEC:
RKPR]I:
PKS:

177440
210
PRS
172540

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF

sDEFAULT BUSS ADDRESS
sDEFAULT CONTROLLER INTERRUPT VECTOR
sPRIORITY
sP=CLOCK STATUS REG

‘‘TYPE'' ABOVE

172542
172544
177546

APT MAILBOX-ETABLE

PKSB:
PKRB:

N 3
PAGE 40

SEQ 0039

172542
72 544
77 546

;P=-CLOCK SET BUFFER
;P=-CLOCK READ BUFFER
sL=CLOCK STATUS REG.

LCVEC:

sL=CLOCK INTERRUPT VECTOR

000000

MEMVEC=
MEMBAS=
:
TRAPP(

O—t—

sMEMORY PARITY VECTOR

001334

172100

001336
001340

000000
000000

PARAM:
FTITLE:

001342

000000

DRVPTR:

LKS:

13:04

001344
001346
001350
001352
00135¢
001356
001360
001362

000000
000000
000000
000000
000000
000000
000000
000000

FRCYL:
TOCYL:

001364

000074

HZ:

001366

000000

COUNT:

001370
001372
001374
001376
001400
001402

000000
000000
000000
000000
000000
0€0000

SEC:

0
0
SECNT:
0
PSEC:
0
ESEC:
0
SECTOR: 0

sSECOND COUNTER
sFLAG TO INDICATE TIME IS UP
sSECTOR COUNT
sPREVIOUS SECTOR
SEXPECTED SECTOR
sSECTOR COUNT, RIGHT JUSTIFIED FROM RKMR3

001404
001406
001410
001412
001414
001416
001420

000001
000012
000062
000764
000144
011610
141520

T1:
T10:
150:
1500:
T100:
15000:
150000:

s TIMECUT CONSTANTS

001422
001424
001426
001430
001432
001434

000077
000177
000277
000377
000477
000577

CyL:

001436
001440
001442
001444

000177
000377

cyL?:

000114

001446

001177

PCVEC:

CCyL:

PCYL:

CALDIF:
CYLDIF:
CYLADD:
CALADD:

04
14

72 100

OOO0O0O0O0OO0O0

000100
000104

TIMUP:

:P=CLOCK INTERRUPT VECTOR.

sMEMORY PARITY OPTION CSR START ADDR
;PC

FOR MEM CHECK ENABLE

TRAP

;1 FOR 220 START, NO DEFAULT

;FLAG FOR PRINTING OUT 1ST PROGRAM TITLE

sCONTAINS THE POINTER TO THE DRIVE FLAG
; (DRIVO-DRIV7) OF THE DRIVE TO BE CHECKED NEXT.
sFROM CYLINDER
:TO CYLINDER
sCURRENT CYL, USED IN N SQUARE TEST
;PREV CYL., USED IN N SQUARE TEST
sCALC CYL DIFF USED IN N SQUARE TEST
;CYL DIFF, RIGHT JUSTIFIED FROM RKMR3
;CYL ADDR, RIGHT JUSTIFIED FROM RKMR3
sCYL ADDR USED IN FHDTAB ROUTINE

;60 FOR
;50 FOR
;LOADED
sOR ANY

60 CPS
50 CPS
TO 50 OR 60 TO COUNT TO 1 SEC
OTHER NUMBER TO COUNT OFF FRACTIONAL SECOND

So.
500.
100.
5000,
50000.

63.
}g{.

sCYLINDER NUMBERS USED IN
s CURRENT CROSSOVER TEST FOR RKO6

255.
383.
127.

255.
383.
511.

639.

;FOR RKO7

lalal

04-JAN-82

o
o

N Py

NN~ -~

d e

000 OO0

s3838g3838 2

1957
1958
1959
1960

—

04-JAN-82 12:46

30(1046)

~~a

CZROIF . P11

MACY11

CZRG6IFO UNIBUSS RK6 DR _PRT2

04~JAN-82

MACY11 30(1046)

APT MAILBOX-ETABLE

13:04

B &
PAGE 41

SEQ 0040

001450

001377

001452
001454

000000
000000

Wwh1:

001456

000000

OFFERR: 0

JSET WHEN WRITE CHECK ERROR ON OFFSET

001460
001462
00146+
001466
001470
001472

000000
000000
000000
000000
000100
000000

HEAD:
HEADA:
HD1:
FORMAT:
FMT1:
WDCNT:

0
0
0
O

sHEAD NUMBER
JHEAD # FROM H.B3, RT. JUSTIFIED
JSHIFTED HEAD# FOR FORMATTER ROUTINE
:FORMAT TYPE
JSHIFTED FORMAT FOR FORMATTER ROUTINE
JWORD COUNT

001474

v00000
052525
177777
133467
070627

DATAQ:
DATAO1:
DATA1:
DPAT1:
DPAT2:

0
52525
177777
133467
70627

SALL 0°'S
:0101 PATT
JALL 1°'S

000000
000000

WORD:
HDWD:

O
O

;HEADER/DATA WORD
JHEADER WORD FROM RKDB

767.
wh2:

;ACTUAL HEADER/DATA WORD
JEXPECTED DATA WORD

000000
000000
000000

BSERR:
0
LIMERR: 0
BYPCERR: 0
CHKFLG: O

;CANNOT READ BSE INFO WHEN SET
;LIMIT DETECT ERROR FLAG
JSET TO 1 TO BYPASS CKCERR IN °'GSTAT1'
;WORDS TO BE TESTED

000102
000102
000102

HDTAB:
RHTAB:

SRTTAB:

.BLKW 66.

;CALCULATED HEADER WORD TABLE
JFILLED AFTER READ MEADER CMD

;ABOVE RHTAB SORTED STARTING FORM

006336

000400
000400
000400
000400
000400

BSE20H:
BSE22H:
BSE20S:
BSE22S:

.BLKW 256.
.BLKW 256.
.BLKW
256.
.BLKW
256.

:20
;22
;20
:22

007336

000000

UNLD:

JSET TO O IF HEADS ARE LOADED

007340

000000

BADHDR: 0

JSET TO O IF FORMATTING OK

007342

000000

HPEND:

000000

RDTAB:

.BLKW 66.
.BLKW 66.

.BLKW 256.

:SECTOR 0 BY SORT ROUTINE
SECTOR
SECTOR
SECTOR
SECTOR

HARDWARE
HARDWARE
SOFTWARE
SOFTWARE

BSE
BSE
BSE
BSE

INFO
INFO.
INFO.
INFO.

sFILLED AFTER READ DATA CMD

JSET TO 1 IF HEADS UNLOADED

JSET TO 1 IF FORMATTING ALTERED
JSET TO O IF HALT NOT PENDING

JSET TO 1 IF HALT PENDING

;THE ABOVE 3 FLAGS ARE USED
;BY 'STOP' ROUTINE TO BRING
¢THE CPU TO A VALID HALT.
007344
007347
007352

001
010
100

002
020
200

004

040

ATTN:
.EVEN

TM~

CZR6IFO UNIBUSS RK6 DR_PRTZ2
CZROIF .P11
04~JAN-82 12:46

CZRG6IFO UNIBUSS RK6 DR PRTZ2
CZROIF P11
04-JAN-82 12:46

04-JAN-82

MACY11 30(104 6)

APT MAILBOX-ETABLE

13:04

C 4
PAGE 42

:THE FOLLOWING ARE HOLDING REGISTERS FOR THE RK611 REGISTERS
;THEY ARE LOADED AFTER RDY IS REC'D FROM WRDY ROUTINE.

000000

007410

000000

007412
007414
007416
007420
007422

000000

HCS1:
HCSZ:

sHOLD RKW(C
JETC.

[elelelele]

HWC:
HBA:

sHOLD RK(CS1
sHOLD RKCS2

[=lelelelelalalelelololelalals]

007354
007356
007360

000000
000000
000000
000000

s TEMPORARY STORAGE.

[elelelalelals)

L]
.
L)
[]
.
.

; THE FOLLOWING ARE

2=8BIT0
BIT1
BIT?

000001
000002
000004

'EXPECTED'

[elelelelelelels)

000000

(=]

000000
000000
000000

FOLLOWING ARE

(O [ 8]

007444
007446
007450
007452
007454
007456
007460
007462

MMMMMMMMescscs.

007442

D
D
d =D
b e
D
D ad
b
b
d
b o
b e
d ad
-

NNV
b b
b e —d b ek 2 O O OO
BUN=2O0VWV
NN
NN =2O OO N

105

000000
000000
000000
000000
000000
000000
000000
000000

— e =4

NORIALNALNINL
RN AL NN N NI PO NN NN

007424

TTITIIXTIIXI

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

IDENTIFIERS FOR DRIVE MSG WORDS TO BE TESTED.

;TEST MSG A2 IF SET

SEQ 0041

WNES BN 8585 8585 85 8 8 B NN N N N N N NN NN OO
N
OV NOWVEBWNSOVONOWVNESWN=2O0VONYON

04~JAN-82

APT MAILBOX-ETABLE

13:04

4
PAGE 43

007464
007466
007470
007472
007474

000000
000000
000000
000000
000000

D e
e e
o
d e
D d cd e
ed
— e

DDUMP:
DDPCH:
ACT11:
PPTP:
DRIVS:

0
0
0
0
0

sFLAG = SET WHEN IN DDP DUMP MODE
sFLAG = SET WHEN IN DDP CHAIN MODE
sFLAG = SET WHEN IN ACT11 MODE OF OPERATION
:FLAG
- SET WHEN PROGRAM LOADED BY PAPER TAPE
:CONTAINS THE NUMBER OF DRIVES PRESENT

sTHE FLAGS BELOW ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE
:1IS PRESENT AND IS TO BE TESTED.

D nd e

i e

)

ALL THE FLAGS BELOW ARE CLEARED INITIALLY BY THE CLRFLG ROUTINE.

007476
007500
007502
007504
007506
007510
007512
007514

000000
000000
000000
000000
000000
000000
000000
000000

DRIVO:
DRIV1:
DRIV2:
DRIV3:
DRIV4:
DRIVS:
DRIVG:
DRIV?:

0
0
0
0
O
0
0
0

sFLAG SET TO 1 WHEN DRIVE O PRESENT
sFOR DRIVE 1
sFOR DRIVE 2
:FOR DRIVE 3
;FOR DRIVE 4
sFOR DRIVE 5
sFOR DRIVE 6
;FOR DRIVE 7

007516
007520
007522
007524

000000
000000
000000
000000

LCLKF:
PCLKF:
DOTIM:
SIZFLG:

0
0
O
0

sL=CLOCK FLAG PRESENT FLAG
sP=CLOCK FLAG PRESENT FLAG
sSET IF EITHER CLOCK PRESENT FOR TIMING TESTS.
sSET IF DEFAULT DO SIZING IN TEST 1

SEQ 0042

—

DD
oon

MACY11 30(1046)

AOAANINIALRNIN
AN NN NI PN NAINI AN
NN
PN

0 UN IBUSS RKé DR _PRT?
P11
04~JAN-82 12:46

MACY11 30(1046) 04=JAN=82 13:04
ERROR POINTER TABLE

E &
PAGE 44

SEQ 0043

%}g;

.SBTTL

2153
2154

s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

%}gg

s *NOTE2:

2155
2156

2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182

s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
c*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

i
;%
o¥
ol
007526
007526
007530

007532
007534

sERROR 1

046405
052041

054124
054726
046624
052041
0564124
054726

007546
007550
007552
007554

046645
052041
054124
054726

007556
007560
007562
007564

046666
052041
054124
054726

007566
007570
007572
007574

000000
000000
000000
000000

2197
2198
2199
%gg?

007576
007600
007602
007604

047031
052041
054124
054726

2202
2203

007606

047105

2205
2206

007612
007614

054124
054726

2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196

EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

EM
DH
DT
DF

¢ POINTS
¢ sPOINTS
s ;POINTS
¢ :POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTB:

007536
007540
007542
007544

2183
2184

ERROR POINTER TABLE

EM2
DH1

:DR # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMRZ2

EM5
DH1
DT
DF1

sDETECTED MDS

EM6
DH1
b1
DF1

sDETECTED UFE

EM
DH1
DT1
DF1

sDETECTED DRA & NED RESET (WRONG PORT SELECTED?)

DT
DF1
:ERROR 2

sERROR 3

sERROR &

sERROR 5

sERROR 6

sERROR 7

0
0
0
0

EM9
DH1
DT1
DF1

sDR NOT PRESENT BUT SPECIFIED BY OPERATOR

EM10
DH 1
g; 1
1

sABORT TEST, COULD NOT REFERENCE CONTROLLER REGISTER

CZR6IFO UNIBUSS RK6 DR_PRTZ
CZR6IF.P11
04-JAN-82 12:46

=
NN

D
d e
nd
ad
—d e

O 00~ O N

MNININI
A NININININ
ENLNLNENTENDNTNT
NN

;ERROR 10

007616
007626
007622
007624

JERR n

007626
007630
007632
007634

JERR

007636
007640
007642
007644
007646
007650
007652
007654

047234
052774
054124
055056

007656
007660
007662
007664

047630
052774
054124
055056

007666
007670
007672
007674

047234
053154
054124

055056

007676
007700
007702
007704

051016
053154
054236
054746

007706
007710
007712
007714

051055
053703
054124
055056

007716

051121

007720
007722
007724

007726

007734
007736
007740
007742
007744

MACY11 30(1046)
04~JAN-82 13:04
ERROR POINTER TABLE

;ERR 13

JERR 14

;ERR 15

JERR 20

EM12
DH27
DT
DF10

;NO RDY
JAFTER WRITE DATA CMD

EM21
DH27

sCERR SET

EM12
DH26

:NO RDY

EM21
DH26
DT
DF10

;CERR SET

EM12
DH32

;NO RDY

o1l
DF10

DT1
DF10

JERR 22

sAFTER READ DATA CMD

JAFTER WRITE

CHECK

CMD

DF10

EM80
DH32

sWRITE CHECK ERROR SET

JAFTER WRITE CHECK CMD

DF3

EM81
DH52

sWRITE CHECK CMD NOT FUNCTIONING
sWITH INTENTIONAL MISCOMPARE

EM82
DH26

¢READ DATA NOT COMPARE WITH WRITE DATA

DT
DF10

DTé
JERR 21

SEQ 0044

sDRA & NED BCTH SET

DT6

;ERR

4
PAGE

EM11
DH1
DT1
DF1

DT1

:ERR 16

sAFTER READ DATA (CMD

DF3

EM83

:DATA CHECK ERROR

EM21
DH3?2

JCERR SET

DH26
DT
DF10

DT
DF10

JAFTER WRITE

CHECK CMD

ZR6IFO UNIBUSS RK6 DR_PRTZ2
IROIF.P1
04-JAN-82 12:46

0 UNIBUSS RK6& DR_PRT?2
P11
04-JAN=-82 12:46
007746

047545

007752
007754

054462
055206

007756
007760
007762
007764

(47630
052644
054124
055056

007766
007770
007772
007774

047607
053024
054462
055206

007776
010000
010002
010004

047545
052774
054462
055206

010006
010010
010012
010014

050057
052566
054124
055056

010016

047607

010026
010030
010032
010034

047545
053154
054462
055206

010036
010040
010042
010044

047607
053154
054462
055206

010046
010050
010052
010054

047234
052724
054124
055056

010056

047272

010066
010070
010072
010074

047524
053737
054462
055206

007750

b
b
e el
cmd wd
e
—

00 O\
NN =

[aSTAST
NS 81,871,818}
N N A NN N NN

010020
010022
010024

010060
010062
010064

053024

052774
054462
055206

052724
054124
055056

MACY11 30(1046)
04=-JAN-82
13:04
ERROR POINTER TABLE

:ERR 23

EM18

DH2?7

DTi3
DF21
;ERROR 24
M21
DH21
DT
DF10
ERR 25
EM20
DHZ27
pT13
DF21
;ERR 26
EM18
DH26
DT13
DF21

;ERROR 27

:ERR 30

:ERR 31

:ERR 32

JERR 33

JERR 34

JERR 35

G &
PAGE 46

:MSG BO ERROR

JAFTER WRITE DATA CMD

;CERR SET
:AFTER SCLR

;MSG B1 ERROR

:AFTER READ DATA CMD

EM24
DH19
DT1
DF10

:VOL VALID NOT SET
;AFTER PACK CMD

EM20

:MSG B1 ERROR

EM18
DH32
pT13
DF21

:MSG B0 ERROR
JAFTER WRITE CHECK CMD

EM20
DH3?2
DT13
DF21

;MSG B1 ERROR

EM12
DH24
DT1
DF10

;CONTR NOT READY
JAFTER OFFSET CMD

EMI13

:NO ATTIN

EM17
DHS3
DT13
DF21

;MSG A0 ERROR
;DURING OFFSET CCMMAND

DH26
pT13
DF21

DH24
D11
DF10

JAFTER READ DATA CMD.

SEQ 0045

04~JAN-82 12:46

010076
010100
010102
010104

047566
053737
054462
055206

010106
010110

047566
052724

010112
010114

054462
055206

MACY11 30(1046)

04-JAN-82

ERROR POINTER TABLE

:ERR 36

JERR 37

:ERR 40

13:04

PAGE 47

EM19
DHS3
DT13
DF21

:MSG A1 ERROR

EMI19
DHZ24

:MSG A1 ERROR
JAFTER OFFSET CMD

DT13
DF21

SEQ 0046

??IBUSS RK6 DR _PRT?

010116
010120
010122
010124

0647607

:ERR 43

010146
010150
010152
010154
010156
010160
010162
010164

JERR 44

054772

051321

010166
010170
010172
010174

055056

010176
010200
010202
010204

050112
053024
054124
055056

010206
010210
010212
010214

050425
052542
054542
055242

010216
010220
010222
010224

050474

010236
010240

;JERR 45

053650

054124

JERR 46

;CYL ADDR IN B2 DID NOT REMAIN CLEARED

EM8S
DHZ22
DT

DF10

EM15

;WCE AT CYL 411,TRK 2, SEC 21

EM8S
DHS1
DT1

;OFFSET BIT IN RKMR2 CLEARED

EM2S5
DH27
DT
DF10

;DETECTED 10 BAD SECTORS

DH1
DT
DFé

;AFTER SEEK TO SELF

DF10

:ERROR 47
EM39
DH17
DT14
DF2¢

JERROR S0

EM4LO

;ERR 51

010226
010230
010232
010234

SEQ 0047

sUNEXP MEM PCRITY TRAP
sTEST #, TRAP P(

;ERR 42

010136
010140
010142
010144

I &
PAGE 48

;MSG 81 ERROR

JERR 41

010126
010130
010132
010134

;AFTER WRITE DATA CMD.

cCYL DIFF/OFFSET IN RKMRZ2 NOT CLEARED
;AFTER RECAL

CMD

;CYL ADDR IN RKMR3 NOT CLEARED

sAFTER RECAL COMD

sWRONG CYL# IN HEADER WORD

:AFTER SEEK CMD

wids

2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381

MACY11 30(1046)
04=-JAN-82 13:04
ERROR POINTER TASLE

JERR 52

;MSG_AO ERROR

JAFTER WRITE DATA CMD

;ERR 53

sMSG A1 ERROR

(MISPOSITION)

[an Yan]

CZRSIFO UNIBUS S RKé DR_PRT?
CZROIF .P11
04-JAN-82 12:46

2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2600
24601
2602
2403
2404
2405
2606
2607
2408
2409
26410
26411
26412
%2}2

010250
010252
010254

053024
054462
055206

010256
010260
010262
010264

047524
052774
054462
055206

010266
010270
010272
010274

047272
052542
054124
055056

010276
010300
010302
010304

047566
052774
054462
055206

010306
010310
010312
010314

047524
053154
054462
055206

010316
010320
010322

047566
053154
054462

2615
2416
2617
gz}g

010326
010330
010332
010334

047545
053737
054462
055206

2620
2421
2422
2423
2424
2425
2426
26427
2428
2429
2430
2631
2432
2433
2434
2435
2636
2437
2438
2439
2440
2441

010336
010340
010342
010344

047607
053737
054462
055206

010346
010350
010352
010354

050164
053024
054124
055056

010356
010360
010362
010364

051422
053765
054124
055056

010366
010370
010372
010374

050243
052041
054124
054726

010376
010400

000000
000000

010324

055206

MACY11 30(1046)
04=JAN-82 13:04
ERROR POINTER TABLE

JERR 54

4
J
PAGE

SEQ 0048

;MSG A0 ERROR

sAFTER READ DATA CMD

)

;ERROR 55
EM13

DH17
DTl

JERR 56

;ERR 57

JERR 60

JERR 61

:ERR 62

JERR 63

:NO ATIN
sAFTER RECAL CMD

DF10
EM19
DH26
DT13
DF21

:MSG A1

EM17
DH32
DT13
DF21

;MSG_AO ERROR

EM19
DH32
DT13
DF21

sMSG A1 ERROR

EM18
DH53
DT13
DF21

;MSG BO ERROR
;DURING OFFSET CMD

ERROR

JAFTER WRITE

CHECK €MD

:MSG B1 ZRROR

;BSE ERROR IN WRITE CMD NOT ON BSE TABLE
sAFTER WRITE DATA CMD

JERR 64

JERR 65

JERR 66

.Dl ? NOT FIND SECYOR O FROM INDEX
;AFTER FORMAT CHANGE AND READY REC'D

;DETECTED BSE IN READ BUT NOT IN WRITE CMD.

(gn Yon

el
~N~N

R6IFO UNIBUSS RK& DR_PRT2
ROIF.P11
04-JAN-82 12:46

010406
01 0410
010412
010414

000000
000000
000000
000000

010416
010420
010422
010424

000000
000000
000000
000000

2455
2456
2457
2458
2459
2660
2461

010426
0106430
010432
010434

000000
000000
000000
000000

010436
010440

000000
000000

2465
2466
2467
2468
2469
2470
2471
2472
2473
247%
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490

010646
010450
010452
010456

000000
000000
000000
000000

010456
010460
010462
010664

047272
052326
054124
055056

010466
010470
0106472
010474

047652
052041
054124
054726

010476
010500
010502
010504

047757
052041
054124
054726

010506
010510
010512
010514

000000
000000
000000
000000

010516
010520
010522
010524

000000
000000
00000
,00000

010526
010530
010532

051544
053523
054542

2447
2448
2449
2450
2451
2452
2433

2462
2463

2491
2492
2493
2494
2495
2496
2497

010442
010644

000000
000000

2445

;ERR 67

:ERROR 7

:ERR 71

JERROR 7

;ERR 73

:ERR 74

OOOOOOOOO0O

000000
000000

PAGE 50

OOOONOOOO

010402
010404

OOO0O0

2442
2443

MACY11 30(1046)
04~JAN-82
13:04
ERROR POINTER TABLE

VOUM

CZR6IFO UNIBUSS RK6 DR PRT?
CZROIF P11
04-JAN-82 12:46

M13
H}O

:NO ATTN
;AT END OF HEAD LOADING

EM2?2

sNO DRJVS IN SDEVM

;ERR 75

F10

DH1
DT

:ERR 76

;ERR 77

;ERR 100

DF1

EM23

DH1
DT1
DF1

JNO DRIVS ON BUSS

0
0
0
0
0
0
0
0

JERROR 101
EM94

g??z

JOFFSET NOT CLEARED

JAFTER READ HEADER WITH MOVEMENT

SEQ 0049

CZR6IFO UNIBUSS RK6 DR PRT?
CZROIF
.P11
04-JAN-82 12:46

MACY11 30(1046)
04-JAN-82 13:04
ERROR POINTER TABLE

L &
PAGE 51

SEQ 0050

DF22

;ERROR 102

EM95
DH27
T

Y, IV, 1V, )

:ERR 103

SN H $ NN N AN
NN N N NN N PO AV NO NI NI NI NI N = b md e b b d
O\ &N ey OOV NOWVEWN~O VB NJOANE W
OOV
NN
W

:ERR 104

ek b
=0

NNMNNNNNgugNNNNNNNNNNNNNNNNNNNNNMNNNNNNNNNNN
L AL AV A L o
T i
T T
T T AT IR
N
(V]
W VAW AR VA T A

2509

050474
054063
054542
055242
051634
052041
054124
054726

051665
053024
054124
055116
000000
000000
000000
000000
000000
000000
000000
000000

051752

:ERR 105

;FORMAT NOT SET
JAFTER WRITE DATA (MD

DF10
EM9S
DH32

DT1
DF10

JAFTER WRITE

CHECK CMD

EM39
DHS7
DT14
DF22

;OFFSET NOT RESET
;AFTER WRITE CMD WITH OFFSET

EM4O
DHS7

;CYL ADDR NOT O

;ERR 106

s CANNOT FIND SECTOR 23(8)

JERR 107

JHEAD SWITLHING TOO LONG
JAFTER WRITE

DTA CMD

JERR 110

JERR 111

;ERR 112

;DRIVE OFF TRACK SET

JAFTER WRITE DATA CMD

;ERR 113

;CYL ADDR IN RKMR3 INCORRECT
D

JERROR 114
EMB6
DH24
DT14
DF 22

JOFFSET IN A2 NOT = RKASOF

JAFTER OFFSET CMD

0666

051364

0672
0674

054542
055242

0670

MACY11 30(1046)
04-JAN-B2 13:04
ERROR POINTER TABLE

;ERR 11§

052672

EMB6

DHZ?2
DT14
DF22

:ERROR 116
EM12

0676
0700
0702
0704

047234
052566
0564124
055056

0706
0710
0712
0714

047234
052611
056124
055056

0716
0720
0722
0724

047234
052644
054124
055056

0726
0730
0732
0734

047234
052253
054124
055056

0736
0740

052007
053075

054542
055242

EM12
DH9
pT
DF10
:ERROR 122
EMI101
DH30
DT14
DF 22

0746
0750
0752
0754

051364
053650
054542
055242

EM86
DHS1
DT14
DF22

C756
0760
0762
0764

047234
052542
054124
055056

0772
0774

054124
055006

0776

050775

1006
1010
1012
1014

046624
051230
054126
055006

0742
0744

1000
1002
1006

051230
054124
0550C6

DH19
DT
DF10

:ERROR 117

EM12
DH20
DT1
DF10

PAGE 52

SEQ 0051

JAFTER DRIVE CLEAR CMD

;CONT NOT RDY
JAFTER PACK (CMD

;CONT NOT RDY
JAFTER SEL DR CMD

;ERROR 120

EM1?2
DH21
DT
DF10

JAFTER SUBSYS CLEAR

;ERROR 121

;ERROR 123

JAFTER START SPINDLE CMD

;DID NOT GO TO CYL 10
JAFTER READ HEADER (CMD

;A2 OFFSET NOT = RKASOF
JAFTER SEEK TO SELF

;ERROR 124

SERR 125

ERR 126

;ERR 127

EM12
DH17
bDT1
DF

DT1
FS

JAFTER RECAL CMD

JWHILE

WAITING FOR OR REC'D CONTR RDY. MSG ARB BAD

EM79

JNED SET

EMS
EM84
pT
D FS

;MDS SET

EM84
o7
F

JERROR 130

IBUSS RK6 DR _PRTZ2
04-JAN-82 12:46

CZR6IFO UN IBUSS RK6 LR _PRT?
CZR6IF.P11
04~JAN-82 12:46

2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631

2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665

011016
011020
011022
011024

900000
000000
000000
000000

011026
011030
011032
011034

047234
052751
054124
055056

011036
011040
011042
011044

047272
052751
056124
055056

011046
011050
011052
011054

000000
000000
000000
000000

011056
011060
011062
011064

000000
000000
000000
000000

011066
011070
011072
011074

000000
000000
000000
000000

011076
011100
011102
011104

000000
000000
000000
000000

011106
011110
011112
011114

050425
052751
054124
055056

011116
011120
011122
011124

047524
053650
054462
055206

011126
011130
011132
011134

047545
053650
(054462
055206

011136
011140
011142
011144

047566
053650
054462
055206

011146

047607

MACY11 30(1046)
04-JAN-82 13:04
ERROR POINTER TABLE
0
0
0
0
;ERROR 131
EM12
DHZ5
DT
DF10
;ERROR 132
EM13
DH25
DT1
DF10
JERROR 133
0
0
0
0

PAGE 53

:NO _RDY
sAFTER SEEK CMD

;NO ATTN

;ERROR 134
0
0

0
0
;ERROR 135
0
0
0
0
;ERROR 136
0
0
0
0
;ERROR 137
EM39
DH25
DT1
;ERR 140

JERR 141

JERR 142

JERR 143

EM17
DH51
DT13
F

EM18
DHS51
DT13
EMI9
DH51
pT13
!

sCYL DIFF/OFFSET IN RKMR2 NOT CLEARED

;MSG A0 ERROR
JAFTER SEEK TO SELF

SEQ@ 0052

2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692

2693
269%
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720

2721

011150
011152
011154

053650
054462
055206

011156
011160
01116°

000000
000000
700000

011166
011170
011172
011174

000000
000000
000000
000000

011176
011200
011202
011204

000000
000000
000000
000000

011206

000000

011216
011220
011222
011224

000000
000000
000000
000000

011226
011230
011232
011234

047234
052672
054124
055056

011236
011240
011242
011244

000000
000000
000000
000000

011246
011250
011252
011254

000000
000000
000000
000000

011256
011260
011262
011264

050600
052672
054124
055056

011266
011270
011272
011274

000000
000000
000000
000000

011276
011300

000000
000000

01116

011210
011212
011214

100000

000000
000000
000000

MACY11 30(1046)
04-JAN-82 13:04
ERROR POINTER TABLE

;ERROR

B 5
PAGE 54

DHS1
DT13
DF21
144
0
0
0
0
145
0
0
0
0
146
0
0
0
0
147
0

0
0
0
;ERROR 150
0
0
0

;ERROR

0
151
EM12
DH22
DT
DF10
152
0
0
0
0
153
0
0
0
0
154
EMSS
DH22
DT1
DF10
155
0
0
0
0
156
0

;NO_RDY
:AFTER CLEAR CMD

;ATTN NOT CLEARED

SEQ 0053

£~

C%RglFO UNIBUSS RKé DR PRT?
1F.P11
04-JAN-82 12:46

2722
2723
2724
2725
2726
2727
2728
2729
2730
2731

2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2731
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777

011302
011304

000000
000000

011306
011310
011312
011314

000000
000000
000000
000000

011316
011520
011322
011324

000000
000000
000000
000000

011326
011330
011332
011334

000000
000000
000000
000000

011336
011340
011342
011344

000000
000000
000000
000000

011346
011350
011352

000000
000000
000000

011354

000000

011356
011360
011362
011364

000000
000000
000000
000000

011366
011370

000000
000000

MACY11 30(1046) 04-JAN-82E 13:04
ERROR POINTER TABL

0
0
;ERROR 157
0
0
0
0
sERROR 160
0
0

0
0
sERROR 161
0
0
0
0
sERROR 162
0
0
0
0
sERROR 163
0
0
0

0 ¢ERROR 164
0
0
0
0
sERROR 165
0

c 5
PAGE 55

SEQ 0054

£~

CZROIFO UNIBUSS RK6 DR_PRT2
CZR6IF.P11
04=JAN-82 12:46

CZR6IFO UNIBUSS RK6 DR _PRTZ2
CZRGIF P11
04~JAN-82 12:46
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2801

2800

2802
2803
2804
2805
2806

2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822

2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833

011372
011374

000000
000000

011376
011400
011402
011404

000000
000000
000000
000000

011406
011410
011412
011414

000000
000000
000000
000000

011416
011420
011422
011424

000000
000000
000000
000000

011426
011430
011432
011434

047234
053075
054124
055056

011436

000000

011446
011450
011452
011454

050633
053075
054124
055116

011456
011460
011462
011464

047630
053075
054124
055116

011466
011470
011472
011474

050425
052326
054124
055056

011476
011500
011502
011504

050474
052326
(054124
055056

011506
011510
011512
011514

000000
000000
000000
000000

011516
011520
011522

047234
053206
054124

011440
011442
011444

000000
000000
000000

MACY11 30(1046)
04-JAN-82 13:04
ERROR POINTER TABLE

;ERROR

0
0
166
0
0
0
0
167
0
0
0
0
170
0
0
0
0
171
EM12
DH30
0TI
DF10

D 5
PAGE 56

SEQ@ 0055

sNO_RDY
sAFTER READ HEADER CMD

;ERROR 172

0
0
0
;ERROR 173
EMO3

;ERROR

JERROR

;ERROR

DH30
T
DF15
174
EM21
DH30
DT
DF15
175
EM39
DH10
DT
DF10
176
EM40
DH10
DT
DF10
177
0
0
0
0
200
EM12
DH39
0T1

;DLT SET

;CERR SET

sCYL DIFF NOT CLEARED
;AT END OF HEAD LOADING

;CYL ADDR NOT CLEARED.

:NO_RDY
;AFTER WRITE HEADER CMD

2834

2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886

2887
2888
2889

011524

055116

011526
011530
011532
011534

047630
053206
054124
055116

011536
011540
0115642
011544

050654
052041
054302
055076

011546
011550
011552
011554

000000
000000
000000
000000

011556

000000

011566
011570
011572
011574

000000
000000
000000
000000

011576
011600
011602
011604

000000
000000
000000
000000

011606
011610
011612
011614

050362
052751
054170
055032

011616
011620
011622
011624

047630
052751
054124
055056

011626
011630
011632
011634

000000
000000
000000
000000

011636
011640
011642
011644

000000
000000
000000
000000

011646
011650
011652
011654

000000
000000
000000
000000

011560
011562
011564

000000
000000
000000

MACY1T 30(1046)
04-JAN-82 13:04
ERROR POINTER TABLE

E 5
PAGE 57

DF15

;ERROR 201
EM21
DH39
bT1
DF15
;ERROR 202
EM65
DH1
D17
DF14
;ERROR 203
0
0
0
0
;ERROR 204
0
0
0
0
;ERRNR 205
U
0
0
0
;ERROR 206
0
0
0
0
:ERROR 207
EM36
DH25
DT4
DF6
;ERROR 210
EM21
DHZ5
DT
DF10
;ERROR 211
0
0
0
0
:ERROR 212
0
0
0
0
;ERROR 213
0

0
0
0

;CERR SET

sREAD HEADER ERROR

sCYL ADDR IN RKMR3 INCORRECT
;AFTER SEEK CMD

JLERR SET

SEQ 0056

CZR6IFO UNIBUSS RK6 DR_PRTZ2
CZROIF .PT
04~JAN-82 12:46

047566
052542
054462
055206

047234
052774
054124
055056

. ERROR 2

s ERROR 2

;ERROR

:ERROR

. ERROR 2

000000
000000
000000
000009

055206

;MSG A0 ERROR

;ERROR

;MSG A1 ERROR

:ERROR

;ERROR 2

sERROR 2

;ERROR 2

;ERROR

sNO RDY
;AFTER READ DATA (CMD

Y o)

SEQ 0057

[

F
5
PAGE 58

;ERROR 214

[
QY
Ny ey
o
o

O NNNN
OO
HNVOON

000000
000000
000000
000000

047524
052542
054462

13:04

(elelele flelelelalJolelelefdolelelellelalele]

NNNN
wavaS
SO

000000
000000
000000
000000

ERROR POINTER TABLE

SNNwyo

O ONNNN O NNSNN O NNSNYN S NNSNYN
BB DWW
WWWND
NN
=
D
O
SN0
SHNOON
S NOON
NOoOON

000000
000000
000000
000000

04-JAN-82

NTmwXI RO

o
QOON
N n OON

000000
000000
000000
000000

MACY11 30(1046)

no
NNOODOMNUIOCOOONIOOOONNOOO

rOrONON
oo
SO
oooooror
NN o
No

000000
000000
000000
000000

~ NNN
~
NON
&~ NOON

OO0OO0O
OO0
OO0
OOO0O0
OOOO0O
OO0O0O0
OO00O0
OO0
OOO0O0

OO0OO00

OO0

CZR6IFO UNIBUS S RK6 DR_PRT?2
CZR6IF .P11
04~JAN-82 12:46

2946
2947
2948
2949
2950
2951
2952
2952
2954
2955
2956
2957

13:04
MACY11 30(1046)
C4=JAN-82
ERROR POINTER TABLE

EM21
DH26

012006
012010
012012
0312014

G 5
PAGE 59
;CERR SET

sCANNOT READ BSE INFO
;ON SEC 10, 12, 14, 16, 18, 20

012016
012020
012022
012024

;ERROR 231

012026
012030

;ON SEC 11, 13, 15, 17, 19, 21

;ERROR 232

047461
053322
054124
055136

2971
2972
2973
2974

012056
012060
012062
012064

047461
053373
054124

055136

RO
SMNOON
NN
HSNOON

OO0 o
&N o

d -—d

000000
000000
000000
000000
000000
000000
000000
000000

012136

000000

b
b

000000
000000
000000
000000

phur Qhur Ghar Qur G

3001

000000
000000
000000
000000

WA
OO

S
e Grur Quur P

bbb
emd

Gur Gur Ghur S

b edomd

Gur G

Surd

050676
053444
054124
055056

;ERROR 233

: CANNOT READ BS E INFO
;ON SECT 0,2,4.6.8

;ERROR 234
;ON SECT 1,3,5,7.9

;ERROR 235

;ALIGN CARTRIDGE USED

;WILL BYPASS FORMAT & ALL R/W TESTS

;ERROR 236

:ERROR

;ERROR

012046
012050
012052
012054

2966
2967
2968
2969

sERROR

000000

sERROR

012044

ObOOOOfiOOOOJ\OOOOMOO
~N
o
~

2964

SEQ 0058

CIROIFO UNIBUS S RK6 DR _PRT?
CZROIF .P11
04-JAN-82 12:46

OO0

MACY11

30(1046)

04-JAN-82

ERROR POINTER TABLE

&S
~roo

;ERROR 243

H 5
PAGE 60

SEQ 0059

;CYL ADDR IN RKMR3 INCORRECT
;AFTER SEEK CMD

¢RTZ NOT SET

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

000000
000000
000000
000000
000000

;ERR 250

JERR 251

JERR 252

JERR 253

JERR 254

;ERR 255

OO0O0O0C
OOO0O0D
OCOO0

000000
000000
000000
000000

VOO0

000000

;ERR 247

OOO0O0

000000
000000
000000

JERR 246

OO0O00

000000

OO0OO0O0O

JERR 245

OO0O0O

sDURING RECAL CMD

NNNOD
SO

OO
SO

000000
000000
000000
000000

012266

13:04

NS
SO

-— e

-—b

—=C

IBUSS RK6 DR _PRT?
04-JAN-82 12:46

CIR6IFO
.P
CZR6IF

]

3058

3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3076
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
2101
3102
3103
3106
3105
3106
3107

2108
3109
3110
31
3112
3113

012270

MACY11 30(1046)
04-JAN-82 13:04
ERROR POINTER TABLE

000000

012272
012274

000000
000000

012276
012300
012302
012304

000000
000000
000000
000000

012306
012310
012312
012314

000000
000000
000000
000000

012316
012320
012322
012324

047524
052724
054462
055206

012326
012330
012332
012334

047545
052724
054462
055206

012336
012340
012342
012344

000000
000000
000000
000000

012346
(12350
012352
012354

000000
000000
000000
000000

012356
012360
012362
012364

000000
000000
000000
000000

012366
012370
012372
012374

047545
052672
054462
055206

012376
012400
012402
012404

047607
052672
054462
055206

01240€
012410
012412
012414

047545
053206
054462
055206

012416
012420

047607
053206

5
I
PAGE 61

:ERR 256

;ERR 257

;ERR 260

:ERR 261

;FRR 262

JERR 263

;ERR 264

JERR 265

;ERR 266

:ERR 267

;ERR 270

0
0
0
0
0
0

0
0
0
0
EM17
DHZ4
DT13
DF21

:MSG A0 ERROR
;JAFTER OFFSET CMD

EM18
DH24
pT13
DF21

:MSG BO ERROR

0
0
0
0
0
0
0
0
0
0
0
0

EM18
DHZ2?2
DT13
DF21

;MSG BO ERROR
;AFTER DRIVE CLEAR CMD

EM20
DH2?2
DT13
DF21

:MSG B1 ERROR

EM18
DH39
D113
DF21

;MSG BO ERROR
JAFTER WRITE HEADER CMD

EM20
DH39

:MSG B1 ERROR

SEQ 0060

CIRG6IFO UNIBUSS RK6 DR PRT?
CZR6IF .P11
04=JAN=-82 12:46

0D
AN N NN W

04~JAN-82 12:46

054462
055206

N U AN AN A O

N N NN N AN N NN

434
436

047524
052672
054462

N
O*O*O*O*O*O‘\n\h\h\h\h\h\n\h\fi\hl\bl\bbbbl\bbuwwuuw&
NOAWVE NN = OV
NO WV
WM =000 NN

047566
052672
054462
055206

N W AN O G

b e

puiy

055206

—=maaD
MO

047524

—d d ) b

OO0C0

d
cd

=
HANOON

WWWND
HVVOON

SN
HNOO

047566
053075
054462
055206

— b o

047524
053075
054462
055206

OOCO

d ed b aud

b
d
b
b

OO0O0O0

o and e b

OO0OO00

VB NN =2 OV

055206
047566

b
b
b
b md
d
d
b
ek
b ad

047607
052542
054462

055206

b md

)

N N U U U O U O

b —d

047545
052542
054462
055206

d ad

N U AN U U

047607
053075
054462

055206

130
131

AN U O AN L U L L A U U U U

047545
053075
054462
055206

055206

MACY11 30(1046)
04-JAN-82
13:04
ERROR POINTER TABLE

;ERR 271

J
5
PAGE

SEQ 0061

DT13
DF2

JAFTER RD. HDR. CMD.

;ERR 272

JERR 273

;ERR 274

JERR 275

;ERR 276

;ERR 277

:MSG A0 ERROR
sAFTER DRV CLR CMD

;MSG A1 ERROR

;MSG B0 ERROR
sAFTER RECAL CMD

sMSG B1 ERROR

;MSG A0 ERROR

cAFTER WRITE HEADER CMD

;ERR 300

;MSG A1 ERROR

;ERR 301
;AFT RD HDR. CMD

JERR 302

CZR6IFO UNIBUSS RK6 DR_PRTZ
CZR6IF.P11
04~JAN-82 12:46

MACY11 30(1046)
04=JAN-B2 13:04
ERROR POINTER TABLE

3167
g}gg

.SBTTL

3170
g};&

012546
012554

012737
000402

000001

3173

012556

005037

001336

3175
3176
3177

012564
012570
012574

012706
012746
012746

001100
000000
012602

3180
3181
3182
3183
3184
3185
3186
g}gg

012602

004737

041222

3174

g};g

012562

012600

000005

000002

001336

PARSRT: MOV
BR

#1,PARAM
PRGSRT

sSET FLAG FOR 220 START
;START PROGRAM

START:

CLR

PARAM

sCLEAR FOR 200 START

MOV
MoV
MOV

#STACK,SP
#PRO,=(SP)
#18,=(SP)

;SETUP STACK POINTER
:PSW LOADED TO BE
;LSI-11 COMPATABLE

JSR

PC,STKINT

sSETUP KB VECTOR ADDR, PRIORITY 4
:& TURN ON KB INTERRUPT

RTI

1%:

sxx%x
cxtx
sxx%
sxxx
;

3190

sALL 'SYSMAC' TRAPS WILL CHANGE CPU PRIORITY TO LEVEL 7 (SEE BELOW)
‘

¢sCLEAR THE COMMON TAGS ($CMTAG) AREA
MoV
#$CMTAG,R6
+cFIRST LOCATION TO BE CLEARED
CLR
(R6) +
s sCLEAR MEMORY LOCATION
.
CMP
#SWR,R6 ;;DONE?
BNE
-6
s -LOOP BACK IF NO
#STACK, SP
:3SETUP THE STACK POINTER
..INITJALIZE A FEW VECTORS
#$SCOPE ,a#10TVEC ..IOT VECTOR FOR SCOPE ROUTINE
MOV
#340,a#10TVEC+2;:LEVEL 7
MoV
#SERROR,a#ERTVEC ..EMT VECTOR FOR ERROR ROUTINE

001100

012626
012634
012642

012737
012737
012737

037256
000340
037536

000020
000022
000030

3208

012656

012737

043452

000034

MOV

3210

012672

012737

000024

MOV

3212
3213
3214
3215
3216
3217
3218

012706
012714
012720
012724
012732
012740

013737 031604
005037 001174
005037 001176
112737 .000001
012737 012732
012737 012740

3211

3219

3220
3221
3222

012664

012700

012746
012752
012760

012737

013746
012737
012737

sSYSMAC ‘SETUP*

INITIALIZE THE COMMON TAGS

012706
005026
022706
001374
012706

012650

001100

.SBTTL

012606
012612
012614
012620
012622

3209

CPU PRIORITY LEVEL NOW AT 0 ##x
ANY DEVICE WHICH SETS ITS
#xx
INTERRUPT ENABLE BIT WILL
#»x
SERVICED.
bl

:KEYBOARD INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL 4 (SEE ABOVE)

3196

3207

cENABLE ALL INTERRUPTS

:RK06 CONTROLLER INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL 5 IN 'SETINT®)

%}g{

3197
3198
3199
3200
3201
3202
3203
3204
3205
3206

;CLEAR ALL INT ENABLE & INIT

sCLOCK INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL 6 (IN _°ST5')

%}8}

3195

001140

000340
000340
037012

000340

000004
013006
177570

000032

000036
000026

031576
001115
001106
001110

MOV

#340,3WERTVEC+2 ;:LEVEL 7

MOV

#340,a#TRAPVEC+2; LEVEL 7

MoV

001140

#STRAP,a# TRAPVEC ..TRAP VECTOR FOR TRAP CALLS

#SPWRDN, 3#PWRVEC ..POHER FAILURE VECTOR

#340, aAPURVEC+2 :.LEVEL 7

MOV
SENDCT,SEOPCT
::SETUP END-OF~PROGRAM COUNTER
CLR
STIMES
:cINITIALIZE NUMBER OF ITERATIONS
CLR
SESCAPE
¢cCLEAR THE ESCAPE ON ERROR ADDRESS
MovB
#1,SERMAX
s sALLOW ONE ERROR PER TEST
MoV
#.,SLPADR
s2INITIALIZE THE LOOP ADDRESS FOR SCOPE
MoV
#.,SLPERR
:SETUP THE ERROR LOOP ADDRESS
;:SIZE FOR A fiRDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS
ssEQUAL TO A

000004

SEQ 0062

PROGRAM SETUP

PRGSRT: RESET

3189

K 5
PAGE 63

MOV
MOV
MoV

**-1°'', SETUP FOR A SOFTWARE SWITCH REGISTER.

akERRVEC,=(SP)
#64S,aERRVEC’

#DSWR, SWR

~;;SAVE ERROR VECTOR
::SET UP ERROR VECTOR
ssSETUP FOR A HARDWARE SWICH REGISTER

3223
3224
3225
3226
3227
3228
3229
3230
3231
gsgg

012766
012776
013002

012737
022777
001012

013004
013006
013012
013016
013022
013030

000403
012716
000002
012737
012737
012637

3234
3235
3236
gggg

013034
013040
013046
8}%8?3

005037
132737
001403
012737

001216
000200

001231

001232

3239
3240
32641

013056
013064
013072

012737
012737
012737

000000
000000
013136

3244
3245
32646
3247
3248
gggg

013106
013112
013116
013120
013126
013134

012701
005011
012711
012737
012737
000401

172100

3251
3252
3253
3256
3255
gggg

013136
013140
013144
013150
013152
013160

022626
062701
020127
001360
012737
005037

3258

013164

004737

§52?

0131764

005037

gszg

3259

013100

013170

012737

005037

177570
177777

L 5
MACY11 30(1046)
04-JAN-82
13:04 PAGE 64
INITIALIZE THE COMMON TAGS
001142
166136

MOV
CMP
BNE

#DDISP,DISPLAY
#-1,3SWR
663
65$
#65$, (SP)

66$:

BR
MOV
RTI
MOV
MOV
MOV

001140

675

CLR
BITB
BEQ
MOV

$PASS
WAPTSIZE,S$ENVM
678
#SSWREG, SWR

::CLEAR PASS COUNT
;.TEST USER SIZE UNDER APT
*:YES,USE NON-APT SWITCH
2:NO,USE APT SWITCH REGJISTER

000032
000036
000004

MOV
MO\
MEMPAR: MOV

#PRO,EMTVEC+2
#PRO, TRAPVEC+2
#1$ , ERRVEC

;EMT VECTOR TO PRIORITY 0
:TRAP VECTOR TO PRIORITY 0
*SETUP TIMEOUT VECTOR

MOV
CLR
MOV
MOV
MOV
8R

#MEMBAS ,R1
(R1)
#1,(R1)
#MEMERR ,MEMVEC
#PR7 ,MEMVEC+2
2s

;ADDR OF MEM CSR
:SEE IF CAN REFERENCE
:SET ENABLE BIT IF YES
:LOAD VECTOR IF NO TIMEOUT

CMP
ADD
CMP
BNE
MOV
CLR

(SP)+,(SP)+
JADJ STACK
#2.R1
$TRY NEXT CSR
R1,#MEMBAS+40
JSEE IF TRIED ALL
3s
:BR IF NO
#ERRVEC+2,ERRVEC
SRESTORE TRAP CATCHER
ERRVEC+2

031724

JSR

PC.CLRFLG

001222

CLR

SUNIT

013014
000176
000174
000004

000340

000001
036714
000340

648 :
001140
001142

000006

000114
000116
1$:
2s:
000004

001220

CLR

3262

%%22
3265

3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276

MOV

3$:

000002
172140
000006
000006

65$:

;;AND A HARDWARE DISPLAY REGISTER
$:TRY TO REFERENCE HARDWARE SWR
::BRANCH IF NO TIMEOUT TRAP OCCURRED
SSAND
THE HARDWARE SWR IS NOT = -1
S:BRANCH [F NO TIMEOUT
*:SET UP FOR TRAP RETURN

#SWREG, SWR
::POINT TO SOFTWARE SWR
#DISPREG,DISPLAY
(SP)+,@#ERRVEC
;;RESTORE ERROR VECTOR

#PR?ERRVEC+2

$DEV(CT

:CLEAR DDUMP THRU SIZFLG

JFIND OUT IF XXDP, ACT, APT; CHAIN OR DUMP MODE

013200
0132064
013206
013212
013220
013222
013226
013232
013234
013240
013244

005737
001015
004737
123727
001011
005237
104401
000000
000137
000137
005237

’

000042
C31744
000041
,
007464
044403

013250
013314
007472

START1:
000013

1$:
2$:

TST
BNE
JSR
CMPB
BNE
INC
TYPE
HAL T
JMP
JMP
INC

42
18
PC.TITLE
41.#13
28
DDUMP
,MSG2
ST2
ST3
PPTP

:BR IF AUTO
“MANUAL, TYPE PROG ID
:13=LOADED BY XXDP
:SET RK06 DUMP MODE FLAG
*REPLACE DRO PACK W/SCRATCH & DO<CR>
THALT
JSET ACT/APT/PTP DUMP MODE FLAG

SEQ 0063

CZR6IFO UNIBUSS RK6 DR _PRTZ2
CZR6IF .P11
04~JAN-82 12:46

CZROIFO UNIBUSS RKé DR _PRT?
CZR6IF P11
04-JAN-82 12:46

13:04
PAGE 65
MACY11 30(1046)
04-JAN-82
INITIALIZE THE COMMON TAGS

)

;CHECK IF ALL PARAMETERS DEFAULTED.
IF NOT, BEGIN INPUT DIALOGUE
sWITH OPERATOR.
THE REPLY TO °'DRIVES TO BE TESTED' SHOULD BE
DRIVE NOS.
SEPERATED BY COMMAS £ TERMINATED BY <CR>
1.,2.4<CR>
EX:
DRIVES TO BE TESTED:

3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
329
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330

SEQ 0064

013250
013254
013256
013262
013266
013272
013276
013302
013306
013312

005737
001002
000137
104401

004737
104401

004737
104401
004737
000427

001336

TST
BNE
JMP
TYPE
JSR
TYPE
JSR
TYPE
JSR
BR

013346
044562
032024
044614
032164
044661
032212

PARAM

;BR IF 220 START

,MSG3

:DRIVES TO BE
sGET DR NOS.

ST4

PC,GDRVS

:200 START, DEFAULT & SIZE THE BUSS
TESTED

:BUSS ADDR
;GET BA

*CONT INT VECTOR

‘GET INT VECTOR

*AUTO MODE

SET FLAGS & NO INPUT DIALOGUE.
sCHECK IF LOADED BY XXDP OR OTHER.
TEST ONLY THOSE DRIVES THAT ARE READY
;DEFAULT ALL PARAMETERS.
;ON THE BUSS

013314
013322
01332¢
013330
013334
013340
013342

123727
001007
005237
004737
104401
000402
005237

013346
013354
013362
013366

012737
012737
004737
005237

177440
000210
032244
007524

013372
013376
013402
013406
013412
013416
013424
013430
013434
013442
013446
013452
013456
013484
013470

005037
005037
005037
005037
005037
012737
005037
005037
012737
005777
005237
013700
012737
005777
005237
013700
000412

007336
007340

022626

000041

000013

ST3:

007466
031744

044776
007470

1%:

001264
001314

ST4:

(MPB
BNE
INC
JSR

001342
000004

000004

;DRO NOT TSTD

MOV
MoV

#177440,8BASE
#210 ,RKVEC

sDEFAULT VALUE
sDEFAULT VALUE

SIZFLG

;DO "'SIZE THE BUSS'® TEST

UNLD
BADHDR

JINITIALIZE FLAGS
JUSED IN °'STOP' ROUTINE
sFOR VALID PROGRAM HALTS

CLR
CLR
CLR
CLR
CLR
MOV
CLR
(LR
40V
ST
INC
MoV
TST
INC

PC,SETINT

HPEND

$ESCAPE
$TMP4
#DRIVO,DRVPTR
$DEVCT
SUNIT
#1$ ,ERRVEC
aLKS
LCLKF

LCVEC,RO

#2% ,ERRVEC
oPKS
PCLKF

sSET ACT AUTO FLAG.

;CLEAR RKO7 FLAG
s SETUP

:NO. OF DRVS DONE
sCURRENT DRV UNDER TEST
;SETUP TIMEOUT ERROR VECTOR
sSEE IF L-CLOCK THERE
;PRESENT, SET FLAG.
;VECTOR ADDR

sSEE IF P-CLOCK THERE
;PRESENT,

SET

FLAG

MOV

PCVEC,RO

;VECTOR ADDR

cMP

(SP)+,(SP)+

sL=CLOCK NOT THERE,

B8R

1%:

;SET RKO6 CHAIN MODE FLAG

ST4
ACTT

MoV

007520
001332

MSG7

:13=LOADED BY XXDP

TYPE
8R
INC

JSR
INC

STS:

£1,m3

1%
DDPCH
PC,TITLE

CLEAR STA(CK

N
Vi

o
nNOo

T
TV L

on (Y RV IV IV IV L
wVivY

NONNIONNIONO

SNNNNON)
= = O

022626
000767

NN N NN N NN

012737
005777
005237
013700
005237
012720
012710

WWWN

1BUSS RK6 DR _PRTZ
06-JAN-82 12:46

000407

022626
005037
104401

013550
165602
007520
001332
007522
036136
000300

007522

045337

MACY11 30(1046)
04-JAN-82 13:04 PAGE 66
INITIALIZE THE COMMON TAGS
000004

SEQ 0065

MOV
TST
INC
MoV
INC
MoV
MOV

#4$ ERRVEC
aPKS
PCLKF
PCVEC,RO
DOTIM
#CLOCK, (RO) +
#PRG, (RO)
TST1

;.00 TO NEXT TEST

28:

CMP
BR

(SP)+,(SP)+
3s

sP-CLOCK NOT THERE, CLEAR STACK

48:

CMP
CLR

(SP)+,(SP)+
DOTIM

sNEITHER CLOCK THERE, CLEAR STACK
sTIMING TESTS CANNOT BE DOME.

3s:

TYPE

.MSG13

sSEE IF P-CLOCK THERE
sPRESENT, SET FLAG
sVECTOR ADDR
s INDICATES TIMING TESTS CAN BE DONE
sSERVICE ROUTINE FOR CLOCKS

JHEAD SW.

TEST BYPASSED

CZR6IFO UNIBUSS RK6 DR PRTZ
CZR6IF.P1
04-JAN-82 12:4

B 6
MACY11 30(1046)
04~JAN-B2 13:04 PAGE 67
BASIC CONTROLLER TESTS, SIZING & SETUP

%gg%

SEQ 0066

.SBTTL BASIC CONTROLLER TESTS, SIZING & SETUP

3354

g%gg

:TEST 1

3357

g%g;

3358
3359
3360

M
o
o
. %

3363
3364
3365
ggg?

013562
0313564
013572

000004
012737
012706

3368
3369
3370
3371

013576
013602
013606
013610

012746
012746
000002

000001
001100

001174

T T T T e

REFERENCE ALL CONTROLLER REGISTERS

THIS TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS

CAN BE ACCESSED.
THE INABILITY
TO BE ACCESSED WILL
RESULT IN A TIMEOUT TRAP WITH AN ERROR MESSAGE.
ANY
ERROR IN THIS TEST WILL RESULT IN ABORTING ALL OTHER

TESTS AND JUMPING TO

'END OF PASS'

:.tttttttttttttttttfitttttttttttttttttttttttt'tttttttttttttttttttt
SCOPE
Mov
#1,STIMES
::D0_1 ITERATION
MoV
#STACK,SP
¢RESTORE STK PTR

TST1:

000000
013610
5%:

MOV
MOV
RTI

#PRO,~(SP)
#58,~(SP)

SRESET PSW TO PRIORITY 0
;% MAKE IT LSI COMPATABLE

3372

MACY11 3?{1046)

04=-JAN-82

13:04

PAGE 68

REFERENCE ALL CONTROLLER REGISTERS

SEC 0067

~r~

CZR6IFO UNIBUSS RKé6 DR _PRT2
CZR6IF .P11
04~JAN-82 12:46

CZR6IFO UNIBUSS RK6 DR PRT2
CZR6IF .P11
04-JAN-82 12:4
3373

013610

012737

013734

D 6
MACY11 30(1046)
04-JAN-82 13:04 PAGE 69
T
REFERENCE ALL CONTROLLER REGISTERS
000004

Mov

#1$ ERRVEC

sSETUP TIMOUT ERROR VECTOR

SEQ 0068

CZR6IFO UNIBUSS RK6 DR PRTZ2
CZR6IF P11
06=JAN-82 12:46
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393

3394
3395
3396
3397
3398
3399
3400
3401

3402
3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417
3418

3419
3420
3421
3402
34,03
3424
3425
3426

3427
3408
3,29

013616
013622
013626
013632
013636
013642
013648
013652
013656
013662
013666
013672
013676
013702
013706
013712

005765

000032

013716
013724
013732

012737
012737
000404

036626
000340

013734
013736
013740

022626

MACY11 3?{1046)

04=JAN-82

MoV

TST

TST
TST
IST
1ST
TST
TST
IST
TST

000137

RKCS2(RS)
RKWC (RS)
RKBA(RS)
RKDA(RS)
RKDS(RS)
RKER(RS)
RKASOF (RS)
RKDC (RS)

;CONTROLLER REGISTERS

TST
TST

RKECPS(RS)
RKECPT(RS)

MOV

B8R

031550

sSETUP INDEX REG.

RKDB(RS)
RKMR1(RS)
RKMR2 (RS)

MOV

1%:

$BASE ,R5

RKCS1(RS5)

TST
TST
TST

TST

104007

E 6
PAGE 70

REFERENCE ALL CONTROLLER REGISTERS

001264

000004
000006

13:04

CMP

ERROR
JNP

sREFERENCE ALL THE

s TIMEQUTS IN THIS SECTION
s INDICATE THAT THE CONTROLLER
;REGISTERS CANNOT BE READ.
sTESTING SHOULD NOT PROCEED
SUNTIL THIS IS REMEDIED.

RKMR3 (RS)

#BADTMO,ERRVEC

;SETUP TIMEOUT HANDLER

TST2

;G0 TO NEXT TEST

#PR7 ,ERRVEC+2
(SP)+,(SP)+

$EOPT

;RESTORE STACK POINTER

;ABORT-COULD NOT REFERENCE CONTROLLER REGISTER

:;ttfitfittttttttttttttttttttttttttfittttttttttttt'tfittttttttttitttt

*TEST 2

SIZE THE BUSS

o
Ml
o
o
]
o
o
o
A
::

:.ttttttttkttttttttt"tttttttttttttttQttttttttttttttttt’ttttttttt

013744
013746
013754

000004
012737
012706

000001
001100

013760

005237

001516

013764
013772
013774

001002
000137

132737

000200

014000

014004
014010
014012

104401

005037
005000
012701

THIS TEST 1S ENTERED ONLY IF °'DRIVE SELECTION' IS DEFAULTED
EITHER BY RUNNING IN THE AUTO MODE OR A 200 START IN THE
MANUAL MODE.
EVERY DRIVE FROM O THRU 7 1S ADDRESSED.
CONTROLLER ERROR (CERR) IS EXAMINED AND IF NOT SET, THE
DRIVE WILL BE TESTED AS AN RK06.
IF SET, THE PROGRAM WILL BYPASS
TESTING THAT DRIVE ONLY IF THE ERROR WAS A RESULT OF
MDS, UFE OR NED BEING SET; OR BOTH NED & DRA RESET INDICATING THE OTHER PORT IS ACCESSED.
IF CERR DUE TO DTYE, DRIVE WILL BE TESTED AS RK07

001174

TST2:

001231

007476

#1,8TIMES
#STACK,SP

;D0 1 ITERATION
sRESTORE STK PTR

INC

BYPCERR

;DO NOT TEST CERR IN °‘FRDY'

81718

#8177 ,8ENVM
148
128

:BR IF YES
sELSE DO NORM SIZING OR VERIFY

TYPE
CLR

,MSG10
DRIVS

sWILL TEST DRIVES
:# OF DRIVES PRESENT

BNE
JMP

014114

045105
007474

SCOPE

MOV
MoV

14%:

CLR
MOV

RO
#DRIVO,R1

sSEE IF USE APT SELECTED DRIVES

sDRV ADDR
sDRV FLAG

SEQ 0069

013702

001266

032702
001410
005237
005211

000001

cdedaded

005721
005200
022700

cdwd

005737
001402
000137

d d b =D

200
O8N
OOONONWVWNVWNES
B WWWIWNN =
SNV ONONSONES
OWVIS B NN == ONN
ONOONSONOSHONO

bbb
b
b el
D
b
b
b
b ed ed

DDD
b el e e d eod b d mad —d wd —ed med

ededed
d
D
b md
D
b wd ed
e
od
b e

074

S
DEEES
NOMNORNOPOMNONINDNININD
b b

Blalelole B elele

006002
000756

Db
d

001402

104075
000000
000137

000137
012765
013737
004737
104120
005737
001762
104401
005037
005000
012701

001205

007474

17%:

014600
18$%:

013372
014600

000040
001406
032356

:
208

0000
0074

12%:

BEQ
INC
INC

BIT

#8170,R2
16$
DRIVS
(R1)

;SEE IF DRV IN DEVICE MAP
;BR IF NO
JELSE INCR DRIVE COUNT
;8 SET DRIVE PRESENT FLAG

MOV

RO,-(SP)

045105
007474
18:

000040
001406
032356
000010

032356

000010
007412

007354
007354
000000
007412
007412

;s SAVE RO FOR TYPEOUT

TST
INC
CMP

(R1)+
RO

;ADV POINTER TO NEXT FLAG
sINC DRIVE #

8EQ

17%

ROR
B8R

R2
15%

sELSE GET NEXT BIT OFF DEVICE MAP

TST
BEQ
JMP

DRIVS
18$
VERIFY

sSEE IF MORE DRIVES PRESENT
sBR IF NO
sELSE EXIT TEST & SETUP FOR RKC?'S

ERROR

JMP
JMP

STS

sNO DRIVES FOUND IN SDEVM
sSETUP CORRECTLY & PRESS 'CONTINUE'®

VERIFY

;DO NOT SIZE, GO TO NEXT TEST

MOV
MoV

#SCLR,RKCS2(RS)
T10, TEMPT
PC.7RDY

s SUBSYSTEM CLEAR
¢SET TIMEOUT

HALT

120

SIZFLG

sALL 8 TESTED?
:BR IF YES

;8 TRY AGAIN

;TO TRY AGAIN

sFIND RDY

sRDY NOT SET B8Y END OF SCLR
:SI1ZE BUS?

,MSG10

:BR IF NO
sWILL TEST DRIVES

#DRIVO,R1

:DRV ADDR
:DRV FLAG

MOV

#STACK,SP

sRESTORE STK PTR

MOV
MOV

#SCLR,RKCS2(RS)
T10,TEMPI
PC,FRDY

s SUBSYSTEM CLEAR
sSET TIMEOUT

TYPE
CLR

007476

,SCRLF

:.TYPE DRIVE #
.60 TYPE--OCTAL ASCII
;o TYPE 1 DIGIT(S)
: :SUPPRESS LEADING ZEROS

JSR
ERROR
TST
BEQ

007524

001100

120

;APT DEVICE MAP

.BYTE
.BYTE

000010

SEQ 0070

$DEVM,R2

TYPOS

16$%:

F
6
PAGE 71

MoV

TYPE

dedad

104403
001
000

007474

104401

010046

15%:

-—

Blelc B elelele Blelele B ele
)

014016

eleleleleleleleloleleleieloelelelalelelelaleleclala

(eYo S, IV, IV, IV IV IV IV IV IV IV P W

e W

RERR
RRRRRARARRRPRRRRRRRRY RERRRRRRR

AL =SLOWVRNOVNES
A
WA —=OVONO VS WA =O wwwg
OO0
NO WWWW&_‘N
N
NN

3430

MACY11 30(1046)
04=-JAN-82 13:04
T2
SIZE THE BUSS

CLR
MoV

SCoP1

JSR
ERROR

MOV
MOV

208

ongs
R

120

:# OF

DRIVES PRESENT

sFIND RDY

RO,RKCS2(RS)

sRDY NOT SET BY END OF SCLR
sSELECT THE DRIVE ADDR

BIS

#SELDRV,HCS1
$TMP4 ,HCST

HCST,RKCST(RS)

;ADD CDT IF RKO7
sGET STATUS

JSR

PC,DLY

;DO DELAY TO CATCH MDS

JSR

PC.FRDY

sFIND RDY

MOV
MOV
MOV

750000, TEMP1
110, TEMPI

(e
Y an

CZRGIFO UNIBUSS RK6 DR _PRT?
CZROIF P11
04-JAN-82 12:46

CZR6IFO UNIBUSS RK6 DR PRT?
CZR6IF .P1T
04~JAN-82 12:46
100000

007354

007402
177770
007412

007412
007412

30(1046)
04-JAN-82 13:04
T2
SIZE THE BUSS

W
~N

—

o~
N

o
o

104401
010046

104001

&
&H

Q
o~

005721
005200
purd

001170
001205

000403

004737

033064

o
nN
=20 OO
NN

004737
104002

000724

BNE
cMP8
BEQ
INC
INC
BIS

007370

002000
014162

001170

001000

007356

v00400

007356

000001

007366

010000

007356

033064

6$:

HMR2, TEMP1
RO, TEMP1

RO
43

ogpcu

41,m3

DRIVS
(R1)
$TMP4, (R1)

.SCRLF

:S/B SAME

;SEE

XXDP CHAIN MODE

:1S DRIVE O TO BE TESTED

;BRANCH [F NOT

:INC DRIVE COUNT.
:SET DRIVE PRESENT FLAG
;ADD CDT IF RKO7

TYPOS
.BYTE

:TYPE 1

PC.BYP

:TYPE BYPASS DR #

(R1)+

:SHIFT PTR TO NEXT DR.

3
DRIVS
108
76

:MORE LEFT.

TST
INC
CLR
CMP
BNE
TST
BNE
ERROR
HALT
JMP
BIT
BEQ
MOV
JMP

13%:

sNO RDY AFTER SELECT DRIVE CMD.

RO,-(SP)

5%:

2%:

SEQ 0071

TYPE
MOV

JSR
ERROR

b —d
b md
b e
i
d
e

&~
»

b o
d
d md
b od
—d
b

032737
001015
032737
001015
032737
001015
032737
001424
000730

#4C<DRVMSK>, TEMP1

3s:

001170
000010

013372
000040

000137

8I(
CmP
BNE

007474

=leloleclelelelelealaleleBielalealelalaleleleT] o

'A ¥

104403
001
000

NN) ~

n PN =

N =20 000 NV
0

()

000013

007474

~
W

W
H
0
VW LV LV, LV VU 1V, ]
b b b ed b d b
v (ALY AV, LV

U WA N U AN N AN AN AN NN

000041

117
ggsan.ucs1

TST
BNE
TST

007466

G 6
PAGE 72

ERROR
BIT
BNE

MOV

wd and

)

(elelele)
OOOOOOSOOOOOOOOO
—d b b b
—d ad ad b

106117

MACY11

RO
$TMP4

STS

#DTYE ,HER

13%

#CDT,$TMPS
13

8IT
BNE
BIT
BNE
BIT
BNE
BIT
BEQ
BR

#MDS
, HCS?2
63
#UFE,HCS?2
78

JSR

PC,BYP

ERROR
BR

::SAVE RO FOR TYPEOUT

;:TYPE DR #

::G0 TYPE~~OCTAL ASCII
DIGIT(S)

;:SUPPRESS LEADING ZEROS

;WRITTEN DR # DOES NOT MATCH RKMR2 DR #
:INC DR #
:CLEAR RKO7 FLAG

:NO DRIVES FOUND ON BUSS

;SETUP CORRECTLY
;AND PRESS °CONTINUE'®
:ADD CDT
:TRY AGAIN

#DRA,HDS

#NED ,HCS2

9
5%

FLAG

:TYPE BYP DR #

;MDS DETECTED

ViAW

4526
4532
4534

004737
104003
000720

033064

4536
4544
4546
4552

032737
001676
104401
010046

010000

4554
4556
4557
4560
4562

104403
001
000
104010
000705

4564
4

004737
104004
000701

000137

MACY1]

007356

3?51046)

04~JAN-82
13:04
SIZE THE BUSS

7%:

JSR
ERROR
BR

PC,BYP
3
5$

8S$:

BIT
8EQ
TYPE
MOV

#NED ,HCS2
4
,MSG1S
RO,-(SP)

TYPOS
BYTE
.BYTE
ERROR
BR

1
0
10
58

JSR
ERROR
BR

PC,BYP
4
58

045460

033064

015172

JMP

PAGE 73

SEQ 0072

;UFE DETECTED

;DRVA
;;%?gg gg’FOR TYPEOUT

$:60 TYPE-=QCTAL ASCII
S2TYPE 1 DIGIT(S)
2 2SUPPRESS LEADING ZEROS
:DRA & NED BOTH SET

;NO DRA & NO NED
= OTHER PORT SELECTED

NUDRV

tttttttttttfitttttttttttttttttttfittttttttttttttttttttttttttttttt

tTEST 3

VERIFY OPERATOR DRIVE SELECTIONS

i
e
ta

o
S
Sw
ot
i
i
- %

0
0
0
0
8

000004
012737
012706
005000
012701

0
0

THIS TEST IS ENTERED ONLY IF DRIVE SELECTION IS NOT

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

PROGRAM WILL ASSUME

THE DRIVE

IS PRESENT AS AN RKO06.

IF CERR WAS SET, THAT DRIVE WILL BE BYPASSED

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

NED & DRA RESET (WRONG PORT).
IF CERR IS A RESULT OF
NED ONLY, IT IS CHECKED AGAINT THE INPUTTED INFOR TO
VERIFY IT WAS NOT SPECIFIED.
IF CERR DUE TO DTYE, THE DRIVE WILL BE TESTED AS AN RKO7.

:’tttttttttttttttttttt'tttttttttttttttttttttttttttttttttttttttttt

007476

ScOPE
MOV
MOV
CLR
MOV

#1,8TIMES
#STACK, SP
RO
#DRIVO,R1

::00 1 ITERATION
:RESTORE STK PTR
*DRIVE ADDR
:DRIVE FLAG

104415
012706

001100

SCOP1
MOV

~ STACK, SP

;RESTORE STK PTR

0
0
0

012765
013737
004737

000040
001406
032356

MOV
MOV
JSR

#SCLR,RKCS2(RS)
710, TEMP1
PC,FRDY

;SUBSYSTEM CLEAR
SSET TIME oUT
:FIND RDY

0
0
0
0

010065
012737
053737
013765

000010
000001
001170
007354

MOV
MOV
8IS
MOV

RO,RKCS2 (RS
#SELDRV,HCS
$TMP4 ,HCST
HCST RKCST(

*DRV ADDR

004737

033046

JSR

PC.DLY

0
0

104120

013737

000001
001100

001420

001406

001174

000010
007412

TST3:

ERROR

007354
007354
000000

007412
007412

MOV

120

150000, TEMP
110, TEMPI

'NO RDY AFTER SCLR
:ADD CDT IF RKO?
SGET STATUS
:DO DELAY TO CATCH MDS

0 UNIBUSS RK6 DR PRTZ2
04-JAN-82 12:46

CZROIF.P11

3598

04-JAN-82 12:46

MACY11 3?§1046)

014720

004737

032356

3600
3601
3602
3603
3606
3605
3606
3607

014726
014734
0164736
014744
014752
014756
014760
014762

032737
001036
013737
042737
020037
001014
005711
001402

100000

007354

007402
177770
GO7412

007412
007412

3609
3610

014770
014772

3599

3608

014724

104117

04-JAN-82

JSR

PC.FRDY

BIT
BNE
MOV
BIC
CMP
BNE
TST
BEQ

#CERR ,HCST
28
HMR2, TEMP1
#~C<DRVMSK>, TEMP1
RO, TEMP1
:S/B SAME
3s
(R1)
3]

ST
INC

(R1)+
RO

sNO RDY AFTER SELECT DRIVE CMD.

$TMP4 ., (R1)

;SET CDT IF RKO7.

$TMP4
#8..R0
18
TST4

:CLEAR CDT FOR NEXT DRIVE

JSR
ERROR
TST
8EQ
DEC
CLR
BR

PC.BYP
1
(R1)
3
DRIVS
(R1)
43

s TRY BYPASS DRIVE#X
;WRITTEN DR# DOES NOT MATCH RKMR2 DR#

BIT
BEQ
MoV
JMP

#DTYE HER
138
#CDT ,$TMPS
18

BIT
BNE
BIT
BNE
BIT
BNE
BIT
BEQ
BR
8IT
BEQ
TST
BEQ

#MDS ,HCS2
63
NUFE HCS2
’$
#DRA ,HDS
8s
#NED,HCS2
9s
108
#NED ,HCS2
11$
(R1)
43

JSR
ERROR
BR

PC,BYP
6
12%

;TYPE BYPASS DRIVE#X

;TYPE BYPASS DRIVE#X
:MDS DETECTED

053711

001170

3611
3612
3613
%g}g

014774
015000
015004
015006

005037
022700
001306
000475

001170
000010

3616
3617
3618
3619
3620
3621
ggg%

015010
015914
015016
015020
015022
015026
015030

004737
104001
005711
001763
00,337
005011
000757

033064

3s:

007474

128:

3626
3625
3626
%ggg

015032
015040
015042
015050

032737
001405
012737
000137

000040

007370

002000
014622

001170

3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
%gz;

015054
015062
015064
015072
015074
015102
015104
015112
015114
015116
0151246
015126
015130

032737
001027
032737
001027
032737
001005
032737
001423
000404
032737
001715
005711
001717

001000

007356

000400

007356

000001

007366

010000

007356

010000

007356

3643
3644
ggzg

015132
015136
015140

004737
104006
000730

033064

3647
3648
ggég

015142
015146
015150

004737
104002
000724

033064

6$:

JSR
ERROR
BR

PC.BYP
2
128

3651
3652
3653

015152
015156
015160

004737
104003
000720

033064

7$:

JSR
ERROR
BR

PC.BYP
3
12%

48:

8IS

CLR
CMP
BNE
BR

2%:

13s:

8S$:

10$:

;FIND RDY

117

014764

005721
005200

1
6
PAGE 74

VERIFY OPERATOR DRIVE SELECTIONS

ERROR

118:

13:04

;SHIFT PTR TO NEXT DR FLAG
s INC DR#

sMORE LEFT
;:GO TO NEXT TEST

sBRANCH IF NOT SPEC BY INPUT
;DECREMENT TOTAL DRIVS
sCLEAR DRIVE FLAG

sADD CDT
:TRY AGAIN

sUFE DETECTED

SEQ@ 0073

CZR6IFO UNIBUSS RKé DR _PRT?

(o lele]

1516
1516
1517

CZR6IFO UNIBUSS RK6 DR PRT2
CZR6IF .P11
04~JAN-82 12:46

004737
104004

MACY11

033064

J
6
04~JAN-82
13:04 PAGE 75
VERIFY OPERATOR DRIVE SELECTIONS

3?;1046)

9s:

JSR
SSROR

0v0714

PC.BYP
?23

SEQ 0074

;DRA & NED RESET - OTHER PORT SELECTED

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

:'SUNIT® CONTAINS THE ADDRESS OF THE DRIVE CURRENTLY
;UNDER TEST

015172

005037

001516

015176

005037

001170

NUDRV:

CLR

BYPCERR

CLR

$TMPS

sENTER HERE FROM LAST TEST

sALLOW CHECKING CERR IN 'FRDY'
:CLEAR RKO7 FLAG

ttttttttfittttttttttttttt't'ttttttttttttttttttttttttt*tttttttttt

TRTEST 4
[

i
i
i
*
]

OO0OO0OO0O

005737
001004
104401
000137

007474

013701
005737
001402
005237
005711
001002
005721
000772
005737

001342
001220

48:

001222

18:

OO0

pur Qs hurPur G

o
o

000001
001100
000004
000004

001174

TST4:

001214
001102

045624
031550

28:

002000

001170

;ANY DRIVES PRESENT?

$E0P1

:NO, GO TO END

DRVPTR.R1
$DEVCT

;ADDR OF NEXT DRIVE FLAG
*1S FIRST DRIVE BEING CHECKED

INC

SUNIT

S INCR DRIVE ADDR TO NEXT DRIVE

BEQ
ST
BNE

(R1)
13

§§1)+

1ST

DDPCH

SUNIT

BEC

TST(R1)+

38:

DRIVS

MOV
ST

BNE

002000

::D0 1 ITERATION
SRESTORE STK PTR

(8
MSG27

ggr

007466

#1,$TIMES
#STACK, SP
#STN=1.$TESTN
NSTN=1.STSTNM

BNE
TYPE

JMP

000762

032721
001403
012737

SCOFE
MOV
MOV
MOV
MOV
TST

001222

Gur

OCOIJTO0O0OOOOOOO0O0OO

Sur P
PuurGuur-PrarPuurGuur-Qiuer- G

Gour o

000004
012737
012706
012737
012737

276

THIS TEST FINDS THE NEXT DRIVE PRESENT & PUTS THAT
ADDRESS IN *SUNIT® & STMP4 IS SET TO CDT IF DRIVE IS RKO7.
THROUGHOUT THE FOLLOWING TESTS, THE DRIVE TESTED IS
THE DRIVE WHOSE ADDRESS IS IN ‘SUNIT'.

:'ttttttttttttttttttt't'ttttttttttttttttttttttttttttttttttttttttt

OO0O00

ur S GG
Gr Gurd

FIND NEXT DRIVE TO BE TESTED

B8R

BIT
BEQ

#CDT,(R1)+
6$

MOV

#CDT ,$TMPS

*YES BRANCH
:ALL DRIVES TESTED

:YES, BRANCH

*1S DRIVE PRESENT?
:BR IF YES

SELSE FIND NEXT DRIVE

;:DDP anxu MODE?
:BR IF

ELSE sss

*BRIF NO

IF DRV 0

ELSE FIND NEXT DRIVE PRESENT

ses xr DRIVE UNDER TEST IS RKO?
NO
:BR
ELSE SET RKO7 FLAG

CZR6IFO UNIBUSS RK6 DR _PRTZ
CZROIF P11
04-JAN-82 12:46
3710
3711
3712
37213
3714
3715
3716
3717
3718
3719
3720
3721
3702
3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
3736

3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747

015332
015336
015342
015346

013700
010046

015350
015352
015353

104403
001
000

010137
104401

015354
015360
015362
015370
015374
015402
015410
015416

005737
001017
012737
005037
012737
012737
012737
000425

015420
015426
015434
015442
015450
015456

012737
012737

015460
015462
015464
015466
015470

000000
000000
000000
000000
000000

000405

MACY11

001342
045460
001222

6%:

MOV
TYPE

R1,DRVPTR
MSG1S

;STORE POINTER TO NEXT DR FLAG

MOV

RO,-(SP)

;s SAVE RO FOR TYPEOUT
s;DRIVE #
;260 TYPE==OCTAL ASCII
s:TYPE 1 DIGIT(S)
¢ :SUPPRESS LEADING ZEROS

015460

001456
000400
002000
001777

LC:
MC1:

MASK:

MASK1:
E.DDT:

TYPE

,SCRLF

ST
BNE
MOV

$TMP4
78
#632.LC

;SEE IF RKO7 UNDER TEST
;BR IF YES
sELSE LOAD RK06 PARAMETERS

TSTS

:.GOTO NEXT TEST

MOV

#1456,L¢

:LOAD RKO7 PARAMETERS

MOV
MOV
MOV
BR

#2000, MC1
#1777 MASK
#140017, MASK1
TSTS

c.GOTO NEXT TEST

E.DDT
#1000, MC1
#777 .MASK
#160017 ,MASK1

#D.DDT,E.DDT

0
0
0
0
0

cLAST CvL

sMAJ CYL + 1

RN AR RN NARRA AN N AN

T*TEST S

SHIFT

SEXPECTED DRIVE TYPE TO E.A0

PFSRT:
RN

;"DRIVE"'

$UNIT
RO

1
0

MOV

140017

SEQ 0075

TO BE TESTED

.BYTE
BYTE

CLR
MOV
MOV
MOV

78:

015472

K 6
PAGE 76

FIND NEXT DRIVE

001170
000632
015470
001000
000777
160017

13:04

TYPOS

cENTER HERE FOR POWER FAIL RESTART

AT R AR AR AR AANANNRAAARANA AR ARARANNRNRRARRRNS

PRINT DRIVE

SERIAL NUMBER

. &

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

IN BCD & IS PERFORMED ON THE 1ST PASS ONLY

3709

3761
3762
3762
3764
3765

04=-JAN-82

MOV

3748

3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760

30(1046)

015472
015474
015502

015506
015512
015514
015520
015522
015526
015534
015540
015544

015550

000004

012737
012706

000001
001100

005737

001216

001174

TST
BNE
JSR
ERROR

034252
0456472

042736

SCOPE
MOV
MOV

000026

TYPE
MOV

JSR

MOV
MOV
MOV

#1,8TIMES

#STACK,SP

$PASS
TST6

;:D0 1 ITERATION
sRESTORE STK PTR
:.G0 TO NEXT IF NOT FIRST PASS

PC,SUBCLR

:DO SUBSYS CLEAR
sCERR AFTER SCLR

,MSG16

sDRIVE SERIAL NO.
JSELECT BYTE 3
:GET STATUS
:GET SERIAL #
sGET ADDR CHAR BUFF
:STORE ON STACK FOR $SUPRS

#3,RKMR1(RS)
PC.GSTAT

HMRZ2 ,R1
#$0CTVL R4

R4,
- (SP}

3766
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
g;gg

015552
015556
015560
015562
015564
015566
015570
015572
015574
015600
015604
015606
015610
015612

012703
006101
006101
006101
006101
006101
006101
010100
0462700
052700
110024
005303
001364
105014

3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
%;gz

015614

004737

015620
015622
015630

000004
012737
012706

3795
gggg

015634
015640

004737
104024

034252

3798
3799
3800
3801
%gg%

015642
015650

032737
001021

000100

015652
015654

104415
012706

3804
%ggg

015660
015664

3807
3808
%g?g
3811
3812

3813
3814
3815
3816
3817
3818
3819
3820
3821

L
6
MACY11 30(1046)
04-JAN-82 13:04 PAGE 77
T5
PRINT DRIVE SERIAL NUMBER

000003

MOV
ROL
ROL
ROL
ROL
ROL
ROL
MOV

18:

177760
000060

BIC

043204

JSR

TYPE
TYPE

'TEST 6
.

000001
001100

001174

SINITIALIZE BIT POSITIONS

R1
R1
R1
R1
R1,RO

sGET NEXT 4 BITS

#60,R0
Rg.(na)+

SCONVERT TO ASCII DIGIT
SPUT ASCII DIGIT INTO CHAR BUFF

007402

SCLEAR ALL BUT LOW 4 BITS

18
(R&)

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

PC.$SUPRS

:TYPE

,$CRLF

. $CRLF
AR A NARC RN

222202228220l

7876
§

;GET WORKING COPY

#197760,R0

IF VvV IS RESET,

. %

:SETUP CHAR COOUNT

AR AR A AN RAA RN ANRANAAAEA AR NARARAANANEAARRRRE

SET VV WITH PACK COMMAND

. %

#3,R3

SEQ 0076

SCOPE
MOV
MOV

THE PACK COMMAND IS USED TO SET IT.

0RdRdadl

#1,STIMES

2222023222232

::D0 1

#STACK,SP

232

2222222223232

ITERATION

sRESTORE STK PTR

JSR
ERROR

PC.,SUBCLR

;CERR AFTER SCLR

BIT
BNE

#D.VV HMR2
1817

::G0 TO NEXT TEST IF vv SET
;RESTORE STK PTR

SCOP1

001100

MoV

#STACK,SP

004737
104024

034252

JSR
ERROR

PC.SUBCLR

;CERR AFTER SCLR

015646
015¢ &
015700

012737
004737
104116

000003
032262

007354

MOV

#PACK,HCS1
PC.DOCMD

;DO PACK (CMD &
GET CONTR RDY

015702
015710

032737
001001

000100

007402

015712

JSR
ERROR

BIT
BNE
ERROR

104027

*TEST 7
0

116

:RDY NOT SET

#D.VV, HMR?

1ST17

;.60 TO NEXT TEST IF VV NOW SET
sPACK DID NOT SET v.v.

NA RN AR AR AN RARAN TR

ASTER PACK CMD

AN RN

AN R A NR

AN AR AR

RARNCANRANERNRS

READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL #

THIS TEST VERIFIES THAT CrL 632 (1456 FOR RKO07), TRACK 2 CAN BE READ.
THIS AREA CONTAINS BAD SECTOR INFO WHICH IS WRITTEN BY THE

o~
s

CZR6IFO UNIBUSS RK6 DR PRTZ
CZROIF P11
04-JAN-82 12:4

CIR6IFO UNIBUSS RK6 DR PRT?
CZROIF .P11
04~JAN-82 12:46

MACY11

3822

né
30(1046)
04-JAN-82
13:04
PAGE 78
7
READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL #

FACTORY DURING MANF.

SEQ 0077

ALL BAD SECTOR INFO (BSE) WILL BE STORED

%ggz

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

3825

SECTORS

SECTORS 11,73,15,17.,19,21 CONTAIN IDENTICAL INFO FOR 20 SECTOR SOF TWARE DETECTED

%gsg

3828

%g%g

°®

3831
3832

ot
;*

%g%g

3833
3834

A
o
b

%ggg
3839
3840

it
b

3841
%gz%

015714
015716
015724

000004
012737
012706

3844
3845

015730
015734

004737
104024

034252

3848
3849
3850
3851
ggg%

015736
015744
015752
015760
015764

012765
013765
012737
004737
1046124

100000
001222
000013
032262

3854
3855
3856
3857
3858
3859
3860
ggg;

015766
015774
016000
016006
016010
016012
016020
016024

012765
004737
032737
001001
104244
013737
004737
104055

000001
033722
020000
001406
032672

007414

3863
3864
3865

016026
016034
016042

012765
013765
012737

100000
001222
000005

000000
000010
007354

3867
3868
3869
3870
3871
3872
3873
3874
3875
3876

016054
016056
016062
016064
016066

104151
004737
000401
104154

3866

016050

016066
016072

004737

004737
104024

000001
001100

032262

001174

]

SECTORS 1,3,5,7,9 CONTAIN IDENTICAL INFO FOR 20 SECTOR HARDWARE DETECTED BAD SEC
IF BSE INFO CANNOT BE READ, OR IF AFTER READING THE BSE INFO
IT IS DETERMIMED THAT AN ALIGNMENT CARTRIDGE IS USED,

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

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

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

:.MR ESS Rl
TST7:
SCOPE

lRRRRl

222

23022222323 2222232 2232222

MOV
MOV

#1,8TIMES
#STACK,SP

::D0 1 ITERATION
;RESTORE STK PTR

JSR
ERROR

PC,SUBCLR
24

;CERR AFTER SCLR

000000
000010
007354

MoV
MOV
MOV
JSR
ERROR

#CCLR,RKCST(RS)
SUNIT ,RKCS2(RS5)
#RECAL ,HCS
PC,DOCMD
124

;DO RECAL CMD & GET CONTR RDY
sRDY NOT SET AFTER RECAL CMD

000026

MOV
JSR
BIT
BNE
ERROR
MOV
JSR
ERROR

#1,RKMR1(RS)
PC.GSTAT
#D.RTZ,HMR?
648
244
710, TEMP2
PC.FATT
55

MOV
Mov
MOV

#CCLR,RKCS1(RS)
SUNIT,RKCS2(RS)
#CLEAR,HCST

ERROR
JSR
BR
ERROR

151
PC,TSTATN
653
154

007402

64S:

JSR

0322640
65%:

034252

SECTORS 16.12,1L 16,18,20 CONTAIN IDENTICAL INFO FOR 22 SECTOR SOF TWARE DETECTED
0,2,4.6,8 CONTAIN IDENTICAL INFO FOR 22 SECTOR HARDWARE DETECTED BAD SEC

JSR
ERROR

PC,DOCHD

PC,SUBCLR
24

JSELECT WORD 1

sRTZ NOT SET DURING RECAL CMD
;SETUP TIMEOUT
sFIND ATTN
sNO ATTN AFTER RECAL CMD
:DRIVE#

;DO DRIVE CLEAR CMD & GET CONTR RDY
sNO RDY AFTER DRIVE CLEAR (MD
JTEST FOR ATTN

sATTN NOT CLEARED AFTER DRIVE CLEAR (MD

;CERR AFTER SCLR

3906

3907
3908
3909
3910
3911
3912
3613
3914
3915
3916

3917
39,8
3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932

005037
005037

007414
007416

016104
016112
016120
016126

OO0O0O0
bbb
WD

3878
3879
3880
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890
3891
3892
3893
3894
3895
3896
2897
3898
3899
3900
3901
3902
3903
3904
3905

003336

016134
016142
016150
016156
016162
016164
016170
016176
016200

OO0O0O0
Ot
b d
SO

016202
016210
016214
016222
016230
016234
016242

012737
005037
012737
012737
005037
012737
012737

016250

004737
000000

016074
016100

016254
016256
016260
016262
016264

007422
015460
177400
000021
032320
033722

100000

CLR

007420
000004
007422

000006

000020
000002
007354

1s:

TEMP3

MoV
Mov
MOV
MOV

#BSE22H, TEMP4
TEMP4 ,RKBA (RS)
#1000, TEMPS
TEMPS ,RKDA(RS)

MOV

sTRACK 2,

SECTOR 0

sLAST CYL
sLOAD WORD CT

JSR

PC.DATCMD

;DO READ DATA CMD & GET CONTR RDY

JSR
BIT
BEQ

PC,GSTAT
#CERR,HCS1
8s

*GET FRESH DATA

#RDDATA,HCS1

226

227

*NO RDY AFTER READ DATA (MD

:CERR AFTER READ DATA CMD

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

001720
000001
007454

007450
007452

MOV

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

007456
007462

MOV
MOV

#2,E.B2
#3 E.B3

E.A2

‘EXPECTED MSGA2

JSR

PC . CHKMSG

;CHECK MSGS A0, B0, A1, B1

000002

000003

CLR

MOV

CLR

033100

.WORD

ERROR

005237

007414
007414

000005

007416

00001

2s:

104230

000422

000002

4$:

#.E.B1

:MSG ID FOR EXPECTED MSG B1

:EXPECTED A1

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

:8 MSGS SPECIFIED HERE

‘MSG A0 ERROR AFTER READ DATA CMD

JSR

PC.SUBCLR

:CERR AFTER SUBCLR

INC
CMP
BNE

TEMP2
TEMP2, #5
5%

:READ ALL S SECTORS?

BNE
ERROR
BR

28
233
33

:CANT READ SECTORS 0.2.4.6.8

CMP
BNE
ERROR

#1
TEMP3,
48
230

CMP
BNE

TEMP3,
#2
6$

8R
007416

;EXPECTED MSG 80

26
56
30

000430

:EXPECTED MSG A0

E.80

ERROR
ERROR
ERROR

ERROR

007416

023727
001002
104234
000414

:3=20 SECTOR SOF TWARE DETECTED TABLE
;STORE 22 SECTOR HARDWARE BSE ADDR.

MOV

016274

016336
016344
016346
016350

1=22 SECTOR SOF TWARE DETECTED TABLE
2 20 SECTOR HARDWARE DETECTED TABLE

007444

007446

034252

023727
001002

0 22 SECTOR HARDWARE DETECTED TABLE

10340

004737

016322
016330
016332
016334

sSECTOR CTR

#<256. .RKWC (RS)

ERROR

104054
104026
104056
104030

104024

LC,RKDC (RS)

ERROR
BR

*MSH B0 ERROR
‘MSG A1 ERROR
‘MSG B1 ERROR

TEMP3

234
33

:CANT READ SECTORS 10,12...

:CANT READ SECTORS 1,3.5 ...

[ala)

SEQ 0078

MOV

007354

TEMP2

CLR

ERROR

016266
016272

016300
016306
016310
016314
016316
016320

N 6
MACY11 30(1046)
06-JAN-82 13:04 PAGE 79
17
READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL #

[
YT
]

CZR6IFO UNIBUSS RK6 DR _PRT?2
CZROIF.P11
04-JAN-82 12:46

CZR6IFO UNIBUSS RK6 DR PRT?
CZR6IF.P11
04~JAN-82 12:46

3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962

3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
2986
3987
3988
3989

016352
016354

104231
000412

016356
016364
016372
016400

013765

016402
016406
016410
016414
016416
016420
016424

005237
000550
005737

016426
016432
016440
016442
016445
016454
016462
016470
016476

005237

016502
016510
016512

016516
016524
016532
016540
016546

000655

000476

6$:

ERROR

23
3s

;CANT READ SECTORS 11,13,15 ...

5$:

Mov
ADD
MOV
B8R

TEMP4 ,RKBA(RS)
#2,TEMPS
}EHPS.RKDA(RS)

sRESTORE TABLE ADDR
sREAD 2 SECTORS FROM LAST

001512

3$:

003344

8$:

INC
BR
TST
BEQ
ERROR
INC
B8R

BSERR
TST10

sSET BSE FLAG
c:G0 _TO NEXT TEST
sTEST CARTRIDGE TYPE
;BRANCH IF DATA CARTRIDGE
sALIGNMENT CARTRIDGE USED
:SET BSE ERROR FLAG

007420

000002
007422

000004
007422
000006

001512
007416
007416

000001

000137

007414
005336
007420
001012
007422
016134

007420
000004
007422
000006

023727

007416

000002

007414

000137

002336
007420
001001
007422
016134

007420
000004
007422
000006

016552
016560
016562
016566
016574
016602
016610
016616

023727

007416

000003

000137

016134

016622
016626
016630
016634
016640
016644
016650
016654

005737
001040

001216

106401

003336
042634
043204
001205
001205

016660
016664

004737

34252

007414
004336

104024

MACY11 30(1046)
04-JAN-82 13:04 PAGE 80
17
READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL #

045516

9%:

INC
CMP

BNE
CLR
MoV
MOV
MoV
Mov
JMP

11$:

CMP
BNE
CLR

007420
000004
007422
000006

TEMP3,
42
128
TEMP2

#BSE20H, TEMP4

CMP

TEMP3 ,#3
108
TEMP2

BNE
CLR

MOv
MOV
Mov
MOV

JMP

108:

TEMP3
.M
TEMP3
118
TEMP2
#BSE22S, TEMP4
TEMP4 ,RKBA(RS)
#1012, TEMPS
{gMPS.RKDA(RS)

MOV
Mov
MoV
MOV

JMP

128:

BSE22H+6
9s
235
BSERR
108

TST
BNE
TYPE
MOV
JSR
JSR
TYPE
TYPE

JSR
ERROR

TEMP4 ,RKBA (RS)
#1001, TEMPS
{EHPS,RKDA(RS)

#BSE20S, TEMP4
TEMP4 ,RKBA(RS)

#1513, TEMPS
{EHPS.RKDA(RS)

$PASS
TST10

sSECTOR CTR
sSTORE 22 SECTOR SOFTWARE BSE ADDR

sTRACK 2, SECTOR 12(8)
sREPEAT

sSECTOR_CTR

sSTORE 20 SECTOR HARDWARE BSE ADDR.
sTRACK 2, SECTOR 1
sREPEAT

sSECTOR CTR
;STORE 20 SECTOR SOF TWARE BSE ADDR

sTRACK 2, SECTOR 13(8)
<REPEAT

MSG17

;.GO_TO NEXT TST IF NOT 1°'ST PASS
sCART SERIAL #

PC,$DB20

sCONVERT DBL BINARY WORD TO OCTAL

#BSE22H,~(SP)
PC,$SUPRS

.SCRLF
-SCRLF

PC,SUBCLR

;TYPE

SERIAL #

sCERR AFTER SCLR
260 BACK TO CYL O

SEQ 0079

CZRGIFO UNIBUSS RK6 DR PRT2
CZROIF.P11
04~JAN-82 12:46

3990
3991
3992
3993
3994
3995
3996
3997
3998
3999

6000
4001
4002
4003
4004
4005
4006
4007
4008
4009
4010
4011
4012
4013
4014
4015
4016
4017
4018
4019

4020
4021
4022
4023
4024
4025

4026
4027

4028
4029
4030
4031
4032

4033

4034
4035
4036
4037
4038
4039
4040
4041
4042
4043
4044
4045

MOV
JSR

#SEEK ,HCST
PC,DOCMD

;DO SEEK CMD & GET CONTR READY

MOV
JSR

750000, TEMP1
PC,FATT2

;SETUP TIMEOUT
SFIND ATTN

BIT
BEQ
ERROR

#CERR,HCS1
668
210

;CERR AFTER SEEK CMD

012737
004737
1064131

007354

016702
016710
016714

013737
004737
104132

007412

016716

032737
001401

ERROR

100000

04=JAN-82
13:04 PAGE 81
READ € SAVE BAD SECTOR INFO & TYPE PACK SERIAL #

016666
016674
016700

016724
016726

MACY11 3?;1046)

007354

106210

131

132

*NO RDY AFTER SEEK CMD

*NO ATTN AFTER SEEK CMD

66%:

016730

.SBTTL WRITE TESTS
tttttttttttttttttfitt't*'t'tttfifittt*tttttttttt'ttttfitttttttti'tt

SATEST 10

BASIC WRITE DATA TEST:

1 WORD

. %

i
e

w
n
. %

000004
012737
012706

016744
016750
016752
016756
016762

005737
001406
104401
104401

000137

046054
C.5546
031476

016766
016772

004737

034252

016774

005237

017000

012700

017004
017006
017012

104024

PERFORMED. THIS TEST PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP
FOR A WRITE ERROR.

:.2 2232222222223 22232322222223222222322223 2223222222323 32T LR L L

016730
016732
016740

THIS TEST VERIFIES THE ABILITY OF THE DRIVE TO WRITE JUST ONE WORD,
ALL SECTORS ON CYL O ARE GIVEN IDENTICAL HEADERS &
A WRITE COMMAND IS ISSUED. READ & WRITE CHECK COMMANDS ARE NOT

000001
001100

001174

tST10:

Scope
MOV

#1,8TIMES

::Du

BSERR

;SEE

IF ALIGN CART

TYPE
TYPE
JMP

,MSG40
.MSG26
$EOP

*BSE OR ALIGN CART USED
*ABORTING BAL OF TESTS

MOV

001512

BEQ

28:

#STACK, SP

ITERATION

*RESTORE STK PTR

:BR IF NO

JSR
ERROR

PC.SUBCLR
24

;CERR AFTER SCLR

007340

INC

BADHDR

;USED FOR VALID HALT

001522

MOV

#HDTAB,RO

;MAKE ALL CYL O HEADERS IDENTICAL

CLR
MOV
MOV

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

sHEADER WORD 0:
*HEADER WORD 1:

CMP
BNE

RO,#HDTAB+132.
1$

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

MOV
MOV

#HDTAB,RKBA(RS)
#-66. ,RKWC(RS)

;HEADER TABLE
*WORD COUNT

1$:

140000
140000

017016
017022

001726

017024
017032

0015 22
177676

000004
000002

CYL 0
SECTOR 0

-HEADER WORD 2: XOR OF 1 & 2

SEQ 0080

CZIR6IFO UNIBUSS RK6 DR PRTZ
CZROIF.PN
04-JAN-82 12:4
4046
4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058

017040
017046
017052
017054
017060
017066
017070
017072
017076
017102

012737
004737
104200
004737
032737
001405
104201
104401
000137

03372
100000

007354

MOV

200

PC,GSTAT
#CERR,HCS1

007354

045546
031476

648
201

JRESTORE STK PTR

017104

012706

001100

#STACK,SP

4062

017110

0064737

034252

PC,SUBCLR

4065
4066
4067
4068
4069
4070
4071
4072
4073
4074

017116
017122
017130
017136

005037
013765
012765
012765

001402
001402
001500
177777

017144
017152

012737
004737

000023
032520

017114

4075
28;9

017156
017160
017164
017172

4078
4079
4080

017174
017202
017204

4083
4084
4085
4086
4087
4088
4089

1046024

104011
004737
032737
001465

033722

24
(00006
000004
000002

SECTOR
SECTOR,RKDA (RS )
#DATA1,RKBA(RS)
#-1,RKWC(RS)

3$:

007354

;DO DATA X FOR CMD & GET CONTR RDY
:NO _RDY AFTER WRITE HEADER CMD
;GET FRESH STATUS
;CERR AFTER WRITE HEADER CMD
sABORTING BAL OF TESTS

$EOP

:
649

SEQ 0081

MSG26

017102

2822

#<WRHEAD> ,HCS1
PC,DATCMD

4059

28%?

104415

000027
032320

MACY11 30(1046)
064-JAN-82 13:04 PAGE 82
710
BASIC WRITE DATA TEST; 1 WORD

#<WRDATA> HCS1

?g.DATCHD

;CERR AFTER SCLR
;TRACK/SECTOR #

;DATA T0 BE ALL 1°'S
sWORD COUNT=1

;DO DATA X FOR CMD & GET CONTR RDY
¢NO RDY AFTER WRITE DATA (CMD
sGET FRESH STATUS

100000

007354

PC,GSTAT
#CERR ,HCS1

68%

;BR IF NO ERRORS

032737
001421
004737

000200

007370

#BSE ,HER

gSEIIF~8AD SECTOR FLAG

PC, TRUERR

67$

sELSE SEE IF SECTOR LISTED IN BSE TABLE
:RETURN HERE IF NO

017212
017216
017226
017226
017230
017234
017242

005237
023727
001003
104046
000137
012765
000137

901402
001402

SECTOR

sRETURN HERE IF YES

4092
4093
4094
4095
4096
4097
2833

017250
017256
017262
017270
017276
017302
017310

012737
005037
012737
012737
005037
012737
012737

010340
007446
001720
000001
007454
000002
000003

4100
4101

017316
017322

004737
000003

033100

283;

283?

017210

017246

000455

104012

66%

035736

017432
100000
017122

000012

SECTOR,#10.
65%

agf10 CONSEC. SECTORS BAD

IF NO
sABORTING TEST DETECTED 10 BAD SECTORS
58
:BYPASS TEST
#CCLR,RKCST(RS): TRY ANOTHER SECTOR
46

000000

65$:

66$:

007444

l<060.SPIN!D.DRDY!D.VV!D.DRA> E.A0
E.B
;EXPECTED MSG B0

007450
007452
007456
007462

sCERR WITH WRITE DATA CMD
sEXPECTED MSG A0

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

MOV

JSR
.WORD

;EXPECTED A1

#1,E.81
E.A2

sMSG_ID FOR EXPSCTED MSG B1

PC, CHKMSG

sCHECK MSGS A0, B0, A1l . 81
;& MSGS SPECIFIED HERE

#2,E .82
’3, E 8 3
T.A2!7.8B2!0

A
:EXPECTED MSG
sMSG ID FOR EXPECTED MSG B2
:MSG ID FOR EXPECTED MSG B3

CZR6IFO UNIBUSS RK6 DR _PRT?
CZR6IF.P11
04-JAN-82 12:46

4135
6136
4137
4138
4139

4140
4141
4142
4143
4144

4145

4146
4147
4148
64149
4150
4151
4152
4153
4154
4155
4156
4157

017324
017326
017330
017332
017336
017340
017344
017346

104052

ERROR
ERROR
ERROR
ERROR

MSG26

TYPE

67%:
68s$:

104063

017346
017354
017360
017366
017374
017400
017406

012737

012737
012737

000002
000003

017414
017420
017422
017424
017426
017430
017432

004737
000003
104052
1064023
104053

033i00

007444

JMP
ERROR

iEOP

MOV

g<060.SPIN!D.DRDY!D.VV!D.DRA>,E.AQ0

104025

SS:

CE AN

tTEST "

sMSG 1D FOR EXPECTED MSG B3

PC,CHKMSG

s CHECK HSGS A0, B0, A1, Bl

23
53
25

:MSG A1 ERROR
:MSG B1 ERROR

;éAZ!T.BZEO

ERROR
RN RN AR

SEXPECTED MSG
A2
:MSG ID FOR EXPECTED MSG B2

l .E.83

JSR
.WORD
ERROR
ERROR
ERROR
AN

AN ARAA

;EXPECTED A1

;MSG_ID FOR EXPECTED MSG B1’

E AZ
E.B2

MoV
Mov

007462

EXPECTED MSG AOQ

:;DESS?K'D.CART
! _DOOR!D.BRHM!D.SSP>,E. A1

CLR

007456

:BAD SECTOR NOT LISTED IN TABLE

;EXPECTED MSG BO

CLR
Mov
MOV

007450
007452

SEQ@ 0082

;MSG AQ ERROR AFTER WRITE DATA CMD
;MSH B0 ERROR
;MSG A1 ERROR
;MSG B1 ERROR
;ABORTING BAL OF TESTS

:MSG AQ éRROR AFTER WRITE DATA CMD
MSGS SPECIFIED HERE

:MSH B0 ERROR

AN AL

RARARAR RN RAA AN A RANRANRARAARRAARARNRAR

BASIC WRITE DATA TEST;

FULL SECTOR

THIS TEST VERIFIES THE ABILITr OF THE DRIVE TO WRITE
A FULL SECTOR.
ALL ZEROS ARE WRITTEN BY THE WRITE DATA COMMAND

& CHECKED BY A RD DATA COMMAND.

A FURTHER CHECK IS PERFORMED

BY THE WRT CHK COMMAND.
THE ABOVE IS REPEATED FOR AN ALL ONES PATTERN.
AN RARAARAARRIN RN AN R AN RN RN AR RN AR RRN RN RARAR AR

017432
017434
017442

000004
012737
012706

000001
001100

017446
017452

004737

034252

017454
017462
017470

012765
012765
005037

001522
177676
001346

000004
000002

Mov
MoV
CLR

017474
017502
017510
017516

013737
012737
012737
004737

001346
000000
000000
035250

001362
001460
001466

017522
017530
017534
017536
017542

012737

000027

007354

104024

032737

032320
033722

100000

001174

T1:

SCOPE
MOV
MoV

JSR
ERROR

007354

#1,8TIMES

#STACK,SP
PC,SUBCLR

sCERR AFTER SCLR

#HDTAB,RKBA
(RS) JRESTORE TO 22 SECTOR

s STANDARD FORMAT

MOV
MOV
MOV

TOCYL ,CALADD
#0,HEAD
#0,FORMAT
PC,FHDTAB

s SETUP
sTO FILL

MOV

#<WRHEAD> ,H(CS1
PC,DATCMD

JSR

JSR
ERROR
JSR
8IT

RNRARARARAR A AR

::D0 1 ITERATION
JRESTORE STK PTR

#-66. ,RKWC(RS5)
TOCYL

4102
4103
6104
6105
6106
107
4108
6109
4110
6111
6112
4113
6114
4115
6116
4117
4118
6119
4120
6121
6122
6123
6126
4125
6126
4127
4128
4129
4130
613
4132
4133
4134

E 7
MACY1 3? (1046)
04-JAN-82 13:04_ PAGE 83
10
BASIC WRITE DATA TEST; 1 WORD

PC,GSTAT
#CERR,HCST

sHEADER

s TABLE

;D0 DATA X FOR CMD & GET CONTR RDY
sNO RDY AFTER WRITE HEADER CMD
sGET FRESH STATUS

Sr Guur Ghar Sourd

CZRGIFO UNIBUSS RK6 DR_PRT?2
CZROIF.P11
04-JAN-82 12:46

~J
nN

AV,)

OO0
O0O0O0O0O0

104201
104401

puur Quur G- Gunr Q- Guur G- Gur S G- S

OO0OOoO

001405

&
&»

MSG26

$E0P

sCERR AFTER WRITE HEADER CMD
sABORTING BAL OF TESTS

007340

CLR

BADHDR

sUSED FOR VALID HALT

001100

MOV

#STACK,
SP

;RESTORE STK PTR

004737
104024

034252

JSR
ERROR

PC,SUBCLR

005037

001402
001402
001474
001474
000020
177400

CLR
MoV
MoV

SECTOR
SECTOR,RKDA(RS)

104415
012706

012737
004737
104011
004737
032737
001465

000023

032320

033722

SCOP1

000006
000004

8s:

000010
000002

1$:

007354

007354
007370

017712
017716
017724
017726
017730
017734
017742
017746

005237
023727
001003

001402
001402

017750
017756
017762
017770

012737
005037
012737
012737
005037
012737
012737

000002
000003

004737

033100

000012

000000

007444
007450
007452

045546

007456
007462

MOV

BIS

MoV

MOV

035736

106046
000137
012765
000137
104012

000003
104052
104023
104053
104025
104401

648:

100000

000200

020034

BEQ
ERROR
TYPE
JMP

005037

032737
001421
004737
000455

020016
020022

64$
201

SEQ@ 0083

000137

017674
017702
017704
017710

020010

7
F
13:04 PAGE 84
BASIC WRITE DATA TEST; FULL SECTOR

04~JAN-8?2

045546
031476

012765

O
——

MACY11 3 046)

#DATAOQ_RKBA (R5)
DATAQ,RO

;CERR AFTER SCLR
sSETUP SECTOR
SWRITE ALL 0'S

#BA],RKCS2(RS)
#-256. ,RKWC (RS)
#<WRDATA> HCS1

JSR
ERROR
JSR
BIT
8tQ

?g.DATCHD

68$

:BR IF NO ERRORS

BIT
BEQ
JSR
BR

#8SE HER
PC, TRUERR

SEE IF BAD SECTOR FLAG
R IF
ELSE SEE IF SECTOR LISTED IN BSE
;RETURN HERE

IF NO

SECTOR

sRETURN HERE

sABORTING TEST DETECTED 10 BAD SECTORS
:BYPASS TEST

INC
CMP
BNE
ERROR
JMP

65%:

MOV

66$:

PC,GSTAT
#CERR,HCST

663

67$

SECTOR,#10.
65%

78
#CCLR,RKCST(RS)

;DO DATA X FOR CMD & GET CONTR RDY
¢NO RDY AFTER WRITE DATA CMD
:GET FRESH STATUS

YES

325120 SONSEC SECTORS BAD

:TRY ANOTHER SECTOR

JMP

ERROR

MOV

g<060.SPIN!D.DRDY!D.VV!D.DRA> E.A0

CLR
MoV
Mov
CLR
Mov
MoV
JSR
.WORD
ERROR
ERROR
ERROR
ERROR
TYPE

TABLE

;CERR WITH WRITE DATA CMD

:EXPECTED MSG B0

;EXPECTED MSG AQ

ngsss?K'DCART'D DOUR!D.BRHM!D.SSP>,E.A1
EXPECTED A1l
MSG ID FOR EXPSCTED MSG 81

#2,E.B2
#3,E.83

:EXPECTED MSG A
;MSG ID FOR EXPECTED MSG B2
sMSG ID FOR EXPECTED MSG B3

PC,CH
SG

s CHECK HSgS A0, B0, A1, B

T.A2!7.82!0
52

23
53
25
.MSG26

MSGS SPECIFIED MERE

:MSG AO ERROR AFTER WRITE DATA CMD
:MSH B0 ERROR
:MSG A1

ERROR

:MSG B1 ERROR
sABORTING BAL OF TESTS

020046

04~JAN-82 12:46
000137
104063

010340
007446
001720
000001
007454

020046
020054
020060
020066
020074
020100
020106
020114
020120
020122
020124
020126
020130
020132

031476

000002

000003

67%:
68$:
007444

04~JAN-82

JMP
ERROR

MoV

$EOP

E.BO

;EXPECTED MSG B0

#1,E.81

sMSG ID FOR EXPECTED MSG B1

#2,E.82

;MSG ID FOR EXPECTED MSG B2

PC,CHKMSG

;CHECK MSGS A0, BO, A1, B1

23
53
25

:MSH B0 ERROR
sMSG A1 ERROR
;MSG B1 ERROR

#3,E.83
T.A2!T.82!0
52

012706

001100

#STACK,SP

020140
020144

004737

034252

PC,SUBCLR

020146
020154
020162

013765
012765
012765

001402
006336
177400

000006
000004
000002

020170
020176
020202
020204
020210
020216
020220
020226

012737
004737

000021
032320

007354

020240

000137

104401

045546
031476

020244

032737
001402

100000

020230
020232
020234

020256

104021
000401

020260

104014

007354

000200

007370

020262

020310

;RESTORE STK PTR

SECTOR,RKDA(RS)

;SETUP SECTOR

#<RDDATA> ,HCS1
PC,DATCMD
PC,GSTAT
#CERR,HCS

70$:

;DO DATA X FOR CMD & GET CONTR RDY

:NO RDY AFTER READ DATA CMD
;GET FRESH STATUS

72%
;ggs.uen

;SEE IF BAD SECTOR

9§s

;DETECTED BSE IN READ BUT NOT IN WRITE CMD.

MSG26

;ABORTING BAL OF TESTS

$E0P

71%:

020262

;& MSGS SPECIFIED HERE
:MSG AQ ERROR AFTER WRITE DATA CMD

#-256. ,RKWC (RS)

:
69

007370

sMSG ID FOR EXPECTED MSG B3

;CERR AFTER SCLR

#RDTAB,RKBA(RS)

;EXPECTED A1

SEXPECTED MSG A2

100000

EXPECTED MSG AO

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

020134

033722

SEQ 0084

;BAD SECTOR NOT LISTED IN TABLE

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

E.AQ

007456
007462

033100

104024

6 7
PAGE 85

BASIC WRITE DATA TEST; FULL SECTOR

MOV
CLR

007450
007452

13:04

;?gx.usn

:SEE

DATA CHECK ERROR

5}3

:DATA CHECK ERROR AFTER READ CMD (ECC)

:CERR AFTER READ DATA CMD.

73%:

010340
007446
001720
000001

007454

007444

MOV

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

007450
007452

Mov
MOV
CLR

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

CLR

EXPECTED MSG AO

E.8

:EXPECTED MSG B0

#1,E.81

MSG ID FOR EXPECTED MSG B1

E.A2

:EXPECTED MSG A2

EXPECTED A1l

[alml

P11

MACY1 3046)

[

0 UNIBUSS RK6 DR PRT?2

020314
020322

012737
012737

000002
000003

020330
020334
020336
020340
020342
020344
020346
020350

004737
000003

033100

007456
007462

010340
007446
001720
000001
007454
000002
000003

020416
020422
020424
020426
020430
020432

033100

012701
011137

020450
020452
020454

020021
001401
104020

020456
020462

020127
001366

007336

020464
020470
020472

020037
001401
000412

001474

020474
020502
020506
020514

012765
013700
013765
000137

001500

020520
020520
020522

104415

010037

JSR
. WORD
ERROR
ERROR
ERROR
ERROR
BR

PC CHKMSG

;CHECK MSGS A0, B0, A1, B1
-6 MSGS SPECIFIED HERE

007444

MoV

g<060.SPIN!D.DRDY!D.VV!D.DRA> E.AQ

007450
007452

MOV
MOV

#<D.SS?K'D.CART!D,DOOR!D.BRHM!D.SSP>,E . A1
SEXPECTED A1
#,E
sMSG ID FOR EXPECTED MSG B1

007456
007462

MOV
Mov

CLR

2%:

3s:

000004

A H

000006

.A2!T,.82! 0

:MSG A0 ERROR AFTER READ DATA CMD

:MSH B0 ERROR

:MSG A1 ERROR
:MSG B1 ERROR

:EXPECTED MSG B0

E.A2
#2,E.B2
#3,€.83

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

JSR
.WORD
ERROR
ERROR
ERROR
ERROR

PC,CHKMSG

sCHECK MSGS A0, B0, A1, B1

26
56
30

:MSH BO ERROR

MOV
MOV
MOV

#RDTAB,R1
(R1) ,WDi

CMP
BEQ
ERROR

RO, (R1)+

3s
20

sTHE

CMP
BNE

R1,#RDTAB+512.

;SEE IF REACHED END OF TABLE

CMP
BEQ
BR

RO.DATAQ
(3

;SEE IF DID ALL 0°'S
:BR IF YES

MOV
MOV
MOV

#DATA1 ,RKBA(RS)
DATA1,RO
?ECTOR.RKDA(RS)

SWRITE ALL 1'S

sRESTORE STK PIR

SCOP1

;ZAZ!Y.BZ!O

RO,WD2

;& MSGS SPECIFIED HERE

:MSG AQ ERROR AFTER READ DATA (MD
:MSG A1 ERROR
:MSG B1 ERROR

sACTUAL WORD FOR TYPEOUT
¢EXPECTED DATA FOR TYPEOUT
:COMPARE READ DATA TABLE AGAINST
*SHOULD BE'

sBR IF NO & DO NEXT WORD

MOV

#STACK,SP

020526
020532

004737

034252

JSR
ERROR

PC,SUBCLR

sCERR AFTER SCLR

020534

052765
012765

000020
001500

BIS
MOV

#BA] ,RKCS2(RS)
#DATA1,RKBA(R5)

¢THIS PORTION OF

000010
000004

VALUE

sREAD DATA DID NOT COMPARE WITH WRITE DATA

001100

020542

JEXPECTED MSG A0

CLR

JMP

5%:

#3,£.83

012706
104024

SEQ 0085

SECTOR

;MSG ID FOR EXPECTED MSG B2
JMSG ID FOR EXPECTED MSG B3

006336
001452
001454

017630

FULL

#2,E.B2

104030

020634
020440
020444

H 7
PAGE 86

BASIC WRITE DATA TEST;
MOV
MoV

72$:

020350
020356
020362
020370
020376
020402
020410

13:04

04~JAN-82

THE

TEST CHECKS

sOUT THE WRITE CHECK CMD

lalal

MACY11 30(1046)

CZR6IFO UNIBUSS RK6 DR PRTZ
CZR6IF .P11
04~JAN-82 12:46

~N~

——

—

CZR6IFO UNIBUSS RK6 DR PRT?
CZR6IF.PN
04~JAN-82 12:46

MACY11 30(1046)
TM

064~JAN-82

13:04

PAGE 87

BASIC WRITE DATA TEST;

FULL SECTOR

SEQ 0086

020550
020556

012765
013765

177400
001402

000002
000006

MoV
MOV

#-256. ,RKWC(R5)
SECTOR,RKDA(RS)

020564
020572

012737
004737

000031
032320

007354

MOV
JSR

#<WRTCHK> ,HCS1
PC,DATCMD

;DO DATA X FOR CMD & GET CONTR RDY

PC,GSTAT

*GET FRESH STATUS

;255LHCS2

:SEE IF WRITE CHECK ERROR

MoV
MOV

RKDB(RS) ,WD1

;ACTUAL WORD FOR PRINTOUT

16
758

:WCE AFTER WRITE CMD

ERROR

;CERR AFTER WRITE CHECK CMD

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

007450
007452

MOV
CLR
MOV
MOV

007456
007462

MoV
MOV

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

JSR
. WORD

033722

016537
013737
104016

100000

007354

040000

007356

000024
001500

001452
001454

020642

000437

020644

104022

020646
020654

012737
005037
012737
012737
005037
012737
012737

010340
007446
001720
000001
007454
000002
000003

004737
000003

033100

020706
020714
020720
020722
020724
020726
020730
020732
020736

ERROR
JSR
BIT
BEQ
BIT
BEQ

ERROR
BR
748
:

007444

CLR

104057

104031
104060
104032
104401
000137

ERROR
ERROR
ERROR
ERROR

045546
031476

TYPE
JMP

020742

;ggan.ucs1

DATA1,WD2

;ALL 1°'S WERE PREVIOUSLY WRITTEN

*NO RDY AFTER WRITE CHECK CMD

;EXPECTED WORD FOR TYPEOUT

EXPECTED MSG A0

E.BO

;EXPECTED MSG B0

E.A2

SEXPECTED MSG A2

PC,CHKMSG

sCHECK MSGS A0, BO, A1, B1

#<D.SPOK'D.CART !D.DOOR!D.BRHM!D.SSP>,E.A1
;EXPECTED Al
#1,E.81
sMSG ID FOR EXPECTED MSG 81

T.A2!T.B2!'0
57
3
60
32
§?8326

sMSG ID FOR EXPECTED MSG B2
sMSG ID FOR EXPECTED MSG B3

;& MSGS SPECIFIED HFRE

;MSG A0 ERROR AFTER WRITE CHECK CMD

:MSH B0 ERROR
:MSG A1 ERROR
:MSG B1 ERROR
;ABORTING BAL OF TFSTS

75%:

020742
020750
020754
020762
020770
020774
021002

012737
005037
012737
012737
005037
012737
012737

010340
007446
001720
000001
007454
000002
000003

021010
021014
021016
021020
021022
021024

004737
000003
104057

033100

021026
021030

104415
012706

001100

0219034

004737

034252

104031

104060
104032

007444

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

007450
007452

MOV
CLR
Mov
MoV

007456
007462

EXPECTED MSG AQ

E.BO

;EXPECTED MSG BO

#1,E.81

sMSG_ID FOR EXPECTED MSG B1

MOV
Mov

#2,E.B2
#3,€.83

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

JSR
.WORD
ERROR
ERROR
ERROR
ERROR

PC,CHKMSG

;CHECK MSGS A0, BO, A1, Bl

:MSG AQ ERROR AFTER WRITE CHECK CMD

MOV

#STACK,SP

sRESTORE STK PTR

JSR

PC,SUBCLR

CLR

SCOP1

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

E.A2

T.A2!T.B2!'0

3
60
32

;EXPECTED Al

:EXPECTED MSGA2

:& MSGS SPECIFIED HERE

;MSH 80 ERROR
:MSG A1 ERROR
:MSG B1 ERROR

04~JAN-82 12:46

021040

104024

021042
021050
021056
021064
021072
021076
021100
021104
021112
021114

012765
012765

013765

001474
177400
001402
000031
032320

033722
040000

021164
021170
021172
021174
021176
021200
021202

004737
000000

012737

PAGE 88

SEQ 0087

FULL SECTOR

ERROR

;CERR AFTER SCLR

MOV

#DATAO,RKBA(RS)

:SETUP TO CHECK AGAINST WRONG DATA

MoV
MOV
JSR

SECTOR,RKDA(RS)
'URTCHK.HCS1
PC,DATCMD

;D0 WRITE CHECK CMD.

JSR

007356

13:04

BASIC WRITE DATA TEST;

MOV

'-256..RKUC(R5)
15

PC,GSTAT

& GET CONTR RDY.

JNO RDY AFTER WRITE CHECK CMD
JGET FRESH STATUS

ghg

ngE.HCSZ

JEXPECT MISCOMPARE

ERROR

JWRITE CHECK CMD NOT FUNCTIONING
JWITH INTENTIONAL MISCOMPARE

007450
007452

MoV
CLR
MOV
MoV

#<0'!'D.SPIN'D.DRDY!D.VV!D.DRA> ,E.AC
EXPECTED MSG AO
£.80
;EXPECTED MSG B0
#<D.SPOK'D. CART'D DOOR'D.BRHM!D.SSP>,E.A1
:EXPECTED A1l
#1,E.B1
JMSG ID FOR EXPECTED MSG B1

007456
007462

MoV

#3.5.83

68
010340
007446
001720
000001
007454
000002
000003

04-JAN-82

ERROR

021116

012737

000094
000002
000006
007354

104017

021116
021124
021130
021136
021144
021150
021156

30(1046)

007444

CLR
Moy

033100

E. A2
’2 E.B2

JEXPECTED MSG
A2
:HSG ID FOR EXPECTED MSG B2

JSR

PC,CHKMSG

;sCHECK MSGS A0, B0, A1, B1

ERROR
ERROR

57
3

;MSG AQ ERROR AFT WRT CHK CMD
;MSH B0 ERROR

.WORD

104057
104031
104060
1046032

ERROR

78:

ERROR

0!630
60
32

.MSG ID FOR EXPECTED MSG 83

;8 MSGS SPECIFIED HERE

;MSG A1 ERROR
;MSG 81 ERROR

'fi"'tt'ti"'fi.'fi**.*"'*tt"i*..*.*".*fl".'..t*'.'ifi.".."***fi

-rssr 12

.*
o*
A
* %

ALL 1°'S ARE WRITTEN ON A FULL SCCTOR IN 20 SECTOR FORMAT,
MSG 80,81 ARE CHECKED FOR ANY ERROR CONDITION.
CyL 0, TRACK 0, & SECTOR O IS USED.

:.*'*.**tt.'fi.'.tfi.t"f"'tt".t.t'fifi*Q*"..*t'fi".'*"'.fi'fi*.t*‘

021202
021204
021212

000004
012737
012706

000001
001100

021216
021222

004737

034252

021224

012765

000004
000002

021244

001522
177704
001346
007340

021250
021256
021264
021272

001346
000000
000001
035250

001362
001460
001466

104024

20 SECTOR FORMAT TEST

001174

T8712:

SCOPE
MOV

#1,STIMES

JSR

PC,SUBCLR

;CERR AFTER SCLR

MOV
Mov
CLR
INC

#HDTAB,RKBA(R5)
#-60. ,RKWC(RS)
TOCYL
BADHDR

;HEADER WORD TABLE
;WORD COUNT FOR 20 SECTOR FMT

TOCYL,CALADD

JSETUP

MoV

ERROR

MOV

MOV
MOV
JSR

#STACK,SP

#0, HEAD
#1,FORMAT
PC.FHDTAB

;:D0 1

ITERATION

JRESTORE STK PTR

JUSED FOR VALID HALT

;70 FILL
JHEADER
s TABLE

lalw

CZR6IF.PN

MACY11

~NN

CZR6IFO UNIBUSS PK6 DR PRT2

4442
4643

44644

4645

4446
4647

4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458
4459
4460
4461
4462
4463
4464

4465

4466

4467

4468
4469
4470
4471
4472
4473
4474
4475
4476
4677
4478
4479
4480

021276
021304
021310
021312
021320
021324
021326
021334
021336
021340
021344
021350

007354

10001

007354

gECSST'SELDRV>.HCS1

100000

007354

zEERRLHCS?

32320

032262

000137

045546
031476

MoV

200

:NO RDY AFTER WRITE HEADER CMD

117

:NO RDY AFTER SELDRV CMD

201

:CERR AFTER WRITE HEADER CMD

.MSG26

64%:

$EOP

012706

001100

#STACK, SP

021356
021362

004737
104024

034252

PC.SUBCLR

021364
021370
021376
021404
021412

001402
001402
001500
000020
177400

021420

01003
032320

Cn7354

010001
032262

007354

032737
001465

100000

007354

#CERR,HCS1

032737
001421
004737
000455

000200

007370

021426
021432
021434
021442
021446
021450
021456

021460

000006
000004
000010
000002

021562

005037

010340
007446
001720
000001
007454

;CERR AFTER SCLR

;WRITE ALL 1'S
;BUSS ADDR INCR INHIBIT
;DO FULL SECTOR

:NO RDY AFTER SELDRV CMD

688

:BR IF NO ERRORS

#8SE ,HER

;SEE

PC, TRUERR

*ELSE SEE

IF BAD SECTOR FLAG

‘BR IF NO

SECTOR LISTED

*RETURN HERE IF NO

SECTOR

;RETURN HERE IFf YES

658

*BR IF NO

104012

STK PTR

117

SECTOR,#10.

104046

012737

#DATA1,RKBA(RS)
#BAI ,RKCS2(R5)
#-256.,RKWC(R5)

67%

000000

;RESTORE

SECTOR

SECTOR,RKDA(RS)

663

000012

000137
012765
000137

*ABORTING BAL OF TESTS

#<CFMT!WRDATA>
,HCS1
PC.DATCMD
;DO DATA X FOR CMD & GET CONTR RDY
1
:NO RDY AFTER WRITE DATA (CMD
#<CFMT!SELDRV>
,HCS1
PC,DOCMD

035736

005237
023727
001003

TABLE

*ARE 10 CONSEC. SECTORS BAD
:ABORTING TEST DETECTED 10 BAD SECTORS

65%:

3s
*BYPASS TEST
z§CLR.RKC51(RS)*TRY ANOTHER SECTOR

66%:

;CERR WITH WRITE DATA CMD

007444

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

007450
007452

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

EXPECTED MSG AQ

E.BO

:EXPECTED MSG B0

#1,E.81

sMSG ID FOR EXPECTED MSG B!

E.A2

IN BSE

sEXPECTED MSG A2

;EXPECTED A1

lalal

SEQ 0088

#<CFMT !WRHEAD> ,HCS1
PC,DATCMD
:DO DATA X FOR CMD & GET CONTR RDY

021350
021352

104415

10027

4641

4438
4439
4440

MACY11 30 (1046)
04-JAN-82 13:04 PAGE 89
T12
20 SECTOR FORMAT TEST

CIR6IFO UNIBUSS RK6 DR_PRT?2
CZROIF P11
06-JAN-82 12:46

CZR6IFO UNIBUSS RK6 DR PRT?
(ZROIF.P11
04-JAN-82 12:46
4494
4495
4496
4497
4498
4499

021566
021574

012737
012737

000002
000003

021602
021606
021610
021612
021614
021616
021620
021624

004737
000003

033100

021630
021632
021632
021640
021644

021646
021654
021656

104052
104023
104053
104025
104401
000137
104063

012737
004737
104117
032737
001001

007456
007462

045546

010001
032262

007354

001000

007402

67$%:
68$:

sMSG ID FOR EXPECTED MSG B2
sMSG ID FOR EXPECTED MSG B3

JSR
. WORD
ERROR
ERROR
ERROR

PC,CHKMSG

sCHECK MSGS A0, B0, A1, B1
;& MSGS SPECIFIED HERE

JMP
ERROR

;éAZ!T.BZEO

23
53
25

MSG26

$ENP

;MSG A0 ERROR AFTER WRITE DATA CMD
:MSH B0 ERROR

:MSG A1 ERROR
:MSG B1 ERROR

;*CORTING BAL OF TESTS

sBAD SECTOR NOT LISTED IN TABLE

Mov
JSR
ERROR
8IT
BNE
ERROR

#<CFMT!SELDRV>
,H(CS1
PC,DOCMD

007444

MOV

g<060.SPIN!D.DRDY!D.VVID.DRA> ,E.A0

007450
007452

MOV

#<D.SS?K'D.CART!D,DOOR!D.BRHM!D.SSP>,E.A1
;EXPECTED A1
#E
sMSG ID FOR EXPECTED MSG B1

104102

117

#D.FORM,HMR2
18
102

sRDY NOT FOUND AFTER SELDRV CMD

;FORMAT NOT

SET

1$:

021660
021666
021672
021700
021706
021712
021720

012737
005037
012737
012737
005037
012737
012737

010340
007446
001720
000001
007454
000002
000003

021726
021732
021734
021736
021740
021742
021744
021752
021760
021766

004737

033100

CLR
MoV

;EXPECTED MSG BO

EXPECTED MSG A0

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

007456
007462

CLR
MOV
Mov

177400

000002
000004
000010
000006

JSR
. WORD
ERROR
ERROR
ERROR
ERROR
MOV
MOV
BIS
Mov

010031
032320

007354

MOV

#<CFMT !WRTCHK> ,HCST
PC,.DATCMD
:DO DATA X FOR CMD & GET CONTR RDY

010001

007354

#<CFMT!SELDRV>,H(CS1
PC,DOCMD

100000

007354

040000

007356

MOV
JSR
ERROR
8IT
BEQ

000024
001500

001452
001454

001500
000020
001402

032262

022062

#2,E.82
#3,€.83

TYPE

031476

SEQ 0089

MOV
MoV

ERROR

021660

021774

MACY11 30(1046)
04~JAN-82 13:04 PAGE 90
T12
20 SECTOR FGRMAT TEST

JSR
ERROR

BIT
BEQ

MOV
MOV

ERROR
BR

#2,E.B2
#3,E.8B3
PC,CHKMSG

0100

#-256. ,RKWC (RS)

sCHECK MSGS A0, B0, A1, B1
;% MSGS SPECIFIED HERE
:MSG AO ERROR AFTER WRITE DATA CMD
;MSH B0 ERROR
;MSG A1 ERROR
:MSG 81 ERROR

#DATA1,RKBA(RS)
#BAI ,RKCS2(R5)
SECTOR,RKDA(RS)

:NO RDY AFTER WRITE CHECK CMD

117

;NO RDY AFTER SELDRV CMD

708
MJCE HCS2

JSEE IF WRITE CHECK ERROR

#CERR,HCS1

698
RKDB(RS) ,WD1

QQIA
1,WDe
708

sACTUAL WORD FOR PRINTOUT
;EXPECTED WORD FOR TYPEOUT
sWCE AFTER WRITE CMD

S8-S0
wwwAaWVAWYAWN

022064

2
3

022066
022074
022100
022106
022114
022120
022126

010340
007446
001720
000001
007454
000002
000003

022134
022140
022142
022144
022146
022150
022152
022156

033160

5
6
7

022162
022162
022170
022174
022176
022204
022206

T12

n 7
064-JAN-82 13:04 PAGE 91
20 SECTOR FORMAT TEST

69%:

ERROR

007444

MoV

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

007450
007452

MOV
MOV

#<D.SPOK!D.CART !D.DOOR!D.BRHM!D.SSP>,E.A1
;EXPECTED Al
# . E.B1
:MSG ID FOR EXPECTED MSG B1

CLR
MOV
MOV

007456
007462

JSR
.WORD
ERROR
ERROR
ERROR
ERROR

000137

104401

045546
031476

012737
004737

010001
032262

007354

032737
001001

001060

007402

104117

CLR

TYPE

708
:

104103

022210

;CERR AFTER WRITE CHECK CMD
EXPECTED MSG A0

E.BO

;EXPECTED MSG BO

E.A2

SEXPECTED MSG A2

PC.,CHKMSG

;CHECK MSGS A0, B0, A1, B1

:MSG A0 ERROR AFTER WRITE CHECK CMD

.MSG626

SABORTING BAL OF TESTS

#2,E.B2
#3.E.B3
T.A2'7.82'0

31
60
32

‘MSG ID FOR EXPECTED MSG B2
“MSG ID FOR EXPECTED MSG B3
;8 MSGS SPECIFIED HERE

:MSH BO ERROR
‘MSG A1 ERROR
‘MSG B1 ERROR

JMP

$EOP

MOV

#<CFMT
! SELDRV> ,HCS1
PC,DOCMD

JSR
ERROR
8IT
BNE
ERROR

SEQ 0090

117

;NO RDY AFTER SELDRV CMD

103

:FORMAT NOT SET

gg.roan,unnz

2$:

022210
022216
022222
022230
022236
022242
022250

012737
005037

022256

004737
000000

012737

104057
104031
104060
104032
104415

010340
007446
001720
000001
007454
000002
000003

007444
007450
007452

007456
007462

033100

MOV
CLR
MOV
MOV
CLR
MOV
MOV

JSR
. WORD
ERROR
ERROR
ERROR
ERROR
SCOP1

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

;EXPECTED MSG B0

EXPECTED MSG AQ

l<D SPOK!D.CART!D.DOOR!D.BRHM!D.SSP>,E.A1
;EXPECTED Al
#1.€.81
sMSG ID FOR EXPECTED MSG B1

E.A2

SEXPECTED MSG A2

#2,E.82

:MSG ID FOR EXPECTED MSG B2

PC,CHKMSG

;CHECK MSGS A0, BO, Al, B1

#3.€.83

'6
31
60
32

“MSG ID FOR EXPECTED MSG B3

:8 MSGS SPECIFIED HERE

;MSG AQ ERROR AFTER WRITE CHECK CMD
;MSH B0 ERROR
sMSG A1 ERROR
;MSG B1 ERROR

022276

012706

001100

MOV

#STACK,SP

022302
022306

004737

034252

JSR
ERROR

PC,SUBCLR

;CERR AFTER SCLR

#HDTAB ,RKBA(RS5)

;RESTORE CYL O TO 22 SECTOR FMT

104924

022310
022316
022324

001522

177676

000004
000002

MoV
MOV

022330
022336

001346
000000

001362
001460

MOV
MOV

001346

CLR

fagei. RKWC (RS)

TOCYL,CALADD

#0 ,HEAD

sRESTORE

STK PTR

sSETUP

sTO FILL

———

VLIV, IV, TV TV, TV TV I T

30(1046)

MACY11

lalal
~IN

DD
OO

0 UNIBUSS RK6 DR PRTZ
F PN
04~JAN=-82 12:46
F

(LI

€2
4

CIR6IFO UNIBUSS RK6 DR PRT?
CZR6IF.PN
04-JAN-82 12:46
4606
4607
4608
4609
4610
4611
4612
4613
4614
4615

012737
004737

3?( 046)
12
1

JHEADER
s TABLE

007354

MOV
JSR

#<WRHEAD> ,H(CS1
PC,DATCMD

;DO DATA X FOR CMD & GET CONTR RDY

JSR

PC,GSTAT

JGET FRESH STATUS

007354

000137

BIT

8EQ
ERROR
718:

005037

3s:

;CERR AFTER WRITE HEADER CMD
;JABORTING BAL OF TESTS

CLR

BADHDR

JUSED FOR VALID HALT

‘%

o®
o*
L
)
o
J*
ML
> %

012737
012706

000001
001100

022440

012702

000001

022444
022450

004737

034252

022452

010265

000016

022456
022464
022472
022476

012737
012737
004737

022544
000015
032262

001176
007354

022500
022506
022512
022520

012737

032140
007446
001720
000001

022526

004737
000000
104035
104061

022540

104033

012737

104036

AR R AR

R AR

N AT RN AN AN RN

AN AR AA NN RN

ANRRA NS

TEST OFFSET & RTC LOGIC

THE HEADS ARE FIRST OFFSET BY OFFSET COMMANDS.

THIS TEST CHECKS THE RTC LOGIC BY VERIFYING THAT THE
'OFFSET ON* BIT (MSG A,00) RESETS AND THE OFFSET REG
BECOMES THE CYL DIFF INFO WHEN A SEEK CMD TO A
DIFFERENT CYLINDER IS ISSUED
IT ALSO TESTS THAT DRIVE CLEAR & SEEK TO SELF WILL NOT
CLEAR THE °'OFFSET ON' BIT OR THE OFFSET REG.
ALL OFFSET POSITIONS IN BOTH DIRECTIONS ARE CHECKED

E:tttttttttttttttttttttttt'tttttttttttttttttttttttttttttttttttttt

0226424
022426
022434

104024

#CERR ,HCST

JNO RDY AFTER WRITE HEADER CMD

TYPE
JMP

JxTEST 13
13

206

718
201
MSG26
$EOP

RN AR RN AN AR

000004

SEQ 0091

#0,FORMAT
PC,FHDTAB

104201
10464401

022420

13:04

MOV
JSR

ERROR

004737
032737
001405

022420

N 7
PAGE 92
20 SECTOR FORMAT TEST

064-JAN-82

001466

104200

4616
4617

4618

000000
035250

MACY1

033100

001174

TST13:

SCOPE

MOV

#1,8TIMES

;:D0 1

MOV

#1,R2

;MIN POS OFFSET

JSR

PC,SUBCLR
24

:CERR AFTER SCLR

Mov

R2.RKASOF (RS)

JSET OFFSET

MOV
MOV
JSR

#6468 ,SESCAPE
#OFFSET ,HCST
PC,DOCMD

007444

?Ex

g<ng1P!D.SPIN!D.OFF!D.VV!D.DRA).E.AO

007450
007452

MOV

[ [01

1$%:

ERROR

#STACK,SP

ITERATION

JRESTORE STK PTR

;DO RECAL CMD & GET CONTR RDY

JNO RDY AFTER OFFSET CMD

JEXPECTED MSG AQ

l&D.SPOK!D.CART!D.DOOR!D.BRHH!D.SSP>,E.A1

MOV

#1,E.B1

JSR

PC, CHKMSG

;CHECK MSGS A0, BO, A1, B1

ERROR
ERROR
ERROR

35
61
36

;MSG AQ ERROR DURING OFFSET CMD
:MSH B0 ERROR
:MSG A1 ERROR

.WORD

0!0'0

:& MSGS SPECIFIED HERE

222%

022542

104062

4664

022544

005037

001176

4666

022556

004737

032766

4665

222;

022550

022562

013737

104034

001416

007412

022564
022572

012737
005037

052340
007446

007444

4673

022606

012737

000001

007452

4674

022576

012737

001720

4675
22;9

022616
022624

022612

005037

012737
012737

000002
000003

4678
4679
4680

022632
022636
022640

004737
000003
104260

033100

4682

022644

104037

4681

2232

022642

022646

0074564

ERROR

CLR

$ESCAPE

JSR

PC,FATT?

MOV
CLR

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

MOV

01 LE.B1

MOV

ERROR

4669
4670
4671

4672

648:

007450

MOV

CLR

007456
007462

104261

rsooo TEMPY

:MSG B1 LRROR
;SETUP TIMEOUT

SFIND ATIN

*NO ATTN AFTER OFFSET CMD

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

SEXPECTED MSGA2

JSR
LWORD
ERROR

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

;CHECK MSGS A0, B0, A1, B1
;8 MSGS spscxr:eo HERE
:MSG A0 ERROR AFTER OFFSET CMD

ERROR

‘MSG A1 ERROR

ST
BEQ
ERROR

CYLADD
178
42

BIC

#1000,CYLDIF

ERROR

*MSG ID FOR EXPECTED MSG B2
*MSG ID FOR EXPECTED MSG B3

*MSH
BO ERROR
‘MSG B1 ERROR

4685
4686
4687
4688

022650
022654
022656

005737
001401
104042

001360

2239

4689

022660

022666

042737

001000

4692

022672

032702

000200

BIT

#BIT7.R2

658

:BR IF NEG OFFSET

4695
4696
4697
2233

022700
022704
022706
022710

020237
001406
104114
000404

001356

cMP
BEQ
ERROR
BR

R2,CYLDIF
66$
114
663

;CHECK POS OFFSET

4700

022712

020137

001356

CMP

R1,CYLDIF

;CHECK NEG OFFSET

4702
4703

022720

104114

ERROR

114

258?

022722

:OFFSET IN A2 NOT = RKASOF
SAFTER OFFSET CMD

4706
4707
4708
4709

022722
022730
022736
022744

012765
013765
012737
004737

100000
001222
000005
032262

4711

022752

004737

032640

4713
2;;;

022760
022762

104154

4716
4717

022762
022770

2232

4701

4710

4712

022676

022716

022750

022756

010265

001005

001401

000016

001356

17%:

MOV

BNE

658:

BEQ

R2,RKASOF (RS)

66$

668 :

104151

000401

012765
004737

000000
000010
007354

100000
033722

JOFFSET IN A2 NOT = RKASOF
‘AFTER OFFSET CMD

#CCLR,RKCS1(RS)
SUNIT.RKCS2(RS)
#CLEAR,HCST
PC,DOCMD

:DO DRIVE CLEAR CMD € GET CONTR RDY

JSR

PC,TSTATN

STEST FOR ATIN

ERROR

154

BR
000000

;CYL ADDR IM B2 WAS NOT 0
JAFTER OFFSET CMD FROM CYL O
:GET RID OF HIGH BIT
:REFRESH RKASOF

MOV
MOV
MOV
JSR

ERROR

678:

;EXPECTED Al

xz.e.az
#3.€.83

261

;EXPECTED MSG AO

:MSG ID FOR EXPECTED MsG B1°

MOV
MOV

ERROR

104040

SEQ 0092

MOV
JSR

151

67$

#CCLR,RKCST(RS)
PC,GSTAT

:DRIVE#

*NO RDY AFTER DRIVE CLEAR CMD

;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

[ala]

B 8
MACY11 3001 046)
04=JAN-82 13:04 PAGE 93
T13
TEST OFFSET & RTC LOGIC

[
..

CZRGIFO UNIBUSS RK6 DR PRT2
CIR6IF.P11
04-JAN-82 12:46

CZR61F0P¥?IBUSS RK6 DR _PRT?
CZR
04-JAN-82 12:46

022774
023002
023004

032737
001001

002000

023006
023014
023020
023026

012737
005037
012737
012737

012340
007446
001720
000001

023034
023040
023042
023044
023046
023050
023052
023060

004737
000003

033100

c 8
MACY11 30(1046)
04-JAN-82
13:04 PAGE 94
T13
TEST OFFSET & RTC LOGIC
007402

104043

1064273
104265
104274
104266
042737
010265

001000
000016

023064
023070

032702

023072
023076
023100
023102

020237
001406

023104
023110
023112

020137
001401
104115

001005

007444
007450
007452

001356

JSR
. WORD
ERROR
ERROR
ERROR
ERROR
BIC

#D.OFF ,HMR2
43

OFFSET BIT IN RKMR2 CLEARED

AFTER DRIVE CLEAR CMD & SELECT DRV CMD
#<D.OFF!D. SPIN'D DRDY!D.VV!D.DRA> ,E.AQ
SEXPECTED AO

E.B0

l<D.SE?K!D.CART!D.DOOR!D.BRHH!D.SSP>.E.A1

#,E

PC,CHKMSG

T.A2!7.82!0
273

265
274
266

;CHECK MSGS A0, BO, A1, B1
;& MSGS SPECIFIED HERE

sMSG AQ ERROR AFTER DRIVE CLEAR CMD

;MSH B0 ERROR
:MSG A1 ERROR
:MSG B1 ERROR

:GET RID OF HIGH BIT

MOV

#1000,CYLDIF
R2 ,RKASOF (R5)

000200

8IT
BNE

#81T7.R2
68%

:BR IF NEG OFFSET

001356

CMP
BEQ
ERROR
BR

R2,CYLDIF

;CHECK POS OFFSET

115
698

sOFFSET IN A2 NOT
= RKASOF

CMP
BEQ
ERROR

R1,CYLDIF

sCHECK NEG OFFSET

115

sOFFSET IN A2 NOT
= RKASOF
:AFTER DRIVE CLEAR CMD

MOV
JSR

#SEEK ,HCS1
PC,DOCMD

MoV
JSR

150000, TEMP1
PC, FATT2

8IT
8EQ
ERROR

#CERR,HCS1

708
210

sCERR AFTER SEEK CMD

81T
BNE

#D.OFF ,HMR2
7%
45

sOFFSET BIT CLEARED IN RKMR2 AFTER SEEK TO SELF.

104115
000404

68$:

001356

69§

69%:

023114
023122
023126

012737
004737
104131

000017
032262

007354

023130
023136
023142

013737
004737
1064132

001420
032766

007412

023144
023152
023154

032737
001401

100000

007354

ERROR

104210

023156

131

132

sREFRESH RKASOF

;AFTER DRIVE CLEAR CMD

;DO SEEK CMD & GET CONTR READY
sNO RDY AFTER SEEK CMD

;SETUP TIMEOUT
sFIND ATIN

:NO ATTN AFTER SEEK CMD

708:

032737
001001

002000

007402

104045

ERROR

023170
023170
023176
023202

MOV
CLR
MOV
Mov

023114

023156
023164
023166

BIT
BNE
ERROR

SEQ 0093

7$:

052340
007446
001720

007444

007450

MOV
CLR
MoV

g<goosc'oLOFF!D. spxn'o DRDY!D.gv-o.DRA>,E.AQ
XPECTED MSG

#<D.SPOK!'D. CAar'6 DOOR!D.BRHM!D.SSP>,E.A1

;EXPECTED MSG AO

<EXPECTED A1

4774
4775
4776

023210
023216
023222

012737
005037
012737

000001
007454
000002

4779
4780

023236
023242

004737
000003

033100

2;;;

023230

012737

000003

4781
4782
4783
4786
4785
2;39

023244
023246
023250
023252
023254
023262

104140
104141
104142
104143
042737
010265

4788
2;33

023266
023272

032702
001005

000200

4791

023274

020237

001356

4793

023302

023304

0C0404

4796

023306

020137

4798
4799

023314
,

104123

4802

023316

004737

034252

4805
4806

023324
023332

012737
012765

000012
000012

4792
2;32

4797

023300

023312

001406

001000
000016

007452
007456

007462

001356

4,807

023322

:MSG ID FOR EXPECTED MSG B1
SEXPECTED MSG A2
“MSG ID FOR EXPECTED MSG B2

JSR
LWORD

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

;CHECK MSGS A0, BO, A1, B1
-8 MSGS SPECIFIED HERE

718:

MOV

:MSG A0 ERROR AFTER SEEK TO SELF
:MSH B0 ERROR
‘MSG A1 ERROR
‘MSG B1 ERROR
:GET RID OF HIGH BIT
:REFRESH RKASOF

BIT
BNE

#81T7,R2
718

:BR IF NEG OFFSET

CMP

R2,CYLDIF

:CHECK POS OFFSET

728

123

;OFFSET IN A2 NOT = RKASOF

CMP

R1,CYLDIF

;CHECK NEG OFFSET

ERROR

123

;OFFSET IN A2 NOT = RKASOF
SAFTER SEEK TO SELF

BEQ

72%

728 :
104024

JSR

PC,SUBCLR

MOV
MOV

#10.,70CYL
#10..RKDC(RS)

ERROR
001346
000020

4808

023340
023344
023352

012700
012737
004737

001726
000025
032320

007354

4815
4816
4817
4818

023360
023366
023370
023372

032737
001405
104174
104401

100000

007354

045546

4821
4822

023402
023406

016520
016520

000024
000024

4825
4826

023416

032765

100000

4828

023426

004737

033722

2333
2352

4827

4829

SAFTER SEEK TO SELF

:CERR AFTER SCLR
;SETUP CYL 10

:DO ACTUAL IMPLIED SEEK TO CYL 10 TO VERIFY
“OFFSET BIT IN RKMR? CLEARED

4811
4812
4813

4814

:MSG ID FOR EXPECTED MSG B3

140
141
142
143
#1000,CYLDIF
R2,RKASOF
(R5)

ERROR

001356

#3.E.83

ERROR
ERROR
ERROR
ERROR
BIC

BEQ

238? 023316
2382

#1,E.81
E.A2
#2,E.B2

MOV

104123

001401

MOV
CLR
MOV

023356

023376
023412

023424

023432

104171

000137
016520

001407

104173

MOV
MOV
JSR

#RHTAB.,
RO
#<RDHEAD> ,HCS1
Pr DATCMD

;DO DATA X FOR CMD & GET CONTR RDY

BIT
BEQ
ERROR
TYPE

#CERR,HCS1
748
74
45626

;CERR AFTER READ HEADER CMD
*ABORTING BAL OF TESTS

MOV
MOV

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

;1°ST WORD FROM SILO TO RHTAB
:2°ND WORD

8IT

#DLT,RKCS2(RS)

JSR

PC,GSTAT

ERROR

031476

JMP

748:

000024

MOV
000010

BEQ

ERROR

171

$e0P

RKDB(RS)
. (RO)+

*NO RDY AFTER READ HEADER CMD

:3°RD WORD

758

173

:DLT AFTER READ HEADER CMD

SEQ 0094

OTM

D 8
MACY11 30(1046)
04-JAN-B2
13:04
PAGE 95
T13
TEST OFFSET & RTC LOGIC

[ LYY W]

CZR6IFO UNIBUSS RK6 DR _PRT2
CIROIF.P11
04-JAN-82 12:46

(830

4831

023434

104401

045546

2g§§

023440

023444

000137

031476

4834

023444

012737

010340

4836

023456

012737

4838
4839

023472
023476

005037
012737

4842
4843
4844
4845
4846

023512
023516
023520
023522
023526

004737
000003
104301
104271
104302

033700

4849
4850
4851
4852

023530
023536
023540
023542

023737
001401
104051

001726

4855
4856
zggg

023542
023550
023552

032737
001401
104101

002000

4859
4860
zggz

023554
023562
023564

023727
001401
104122

001360

4863

023566

005737

001356

2222

023574

104101

4835

4837

232?

2325

4864

023452

023464

023504

023526

023572

005037

012737

TYPE

MOV

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

001720

007450

MOV

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

0074564
000002

007456

CLR
MOV

E.A2
#2,E.82

000001

000003

001346
73s:
007402

000012

012737
004737

000017
032262

007354

4874
4875

023620
023626

013737
004737

001420
032766

007412

4878

023634

032737

100000

07354

4882
4883
4884
4885

023642
023644

104132

001401
104210

023646

O$:

108 :

023604
023612

4879
2339

MOV

168:

;EXPECTED MSG A0

E.80

;EXPECTED MSG B0

” E.B1

:MSG ID FOR EXPECTED MSG B1

#3.E.B3

*MSG ID FOR EXPECTED MSG B3

SEXPECTED MSG A2
:MSG ID FOR EXPECTED MSG B2

PC, CHKMSG
T.A2!'T.B2'0
301
271
302

;CHECK MSGS A0, B0, A1, B1
;8 MSGS SPECIFIED HEREF
:MSG A0 ERROR AFTER READ HEADER CMD
:MSH BO ERROR
:MSG A1 ERROR

CMP
BEQ
ERROR

RHTAB, TOCYL
73$
51

;CHECK WORD 0 ONLY, CYL#
‘BR IF SAME
*WRONG CYL# ON HEADER

BIT
BEQ
ERROR

#D.0FF ,HMR2
98
101

;OFFSET NOT CLEARED AFTER READ HEADER WITH MOVEMENT

CMP
BEQ

ERROR

CYLADD,#10.
108
122

;DID NOT GO TO CYL 10

CYLDIF

ERROR

107

;OFFSET NOT CLEARED IN RKMR2

JSR
ERROR

PC,SUBCLR
24

;CERR AFTER SCLR

MOV
JSR

#SEEK,HCS1
PC,DOCMD

13§

*NO RDY AFTER SEEK CMD

MOV
JSR

750000, TEMP1
PC,FATT?

;SETUP TIMEOUT
‘FIND ATTN

BIT

#CERR,HCS1

BEQ

ERROR

BEQ
ERROR

272

168

132

:MSG B1 ERROR

;DO SEEK CMD & GET CONTR READY

*NO ATTN AFTER SEEK CMD

768
210

;CERR AFTER SEEK CMD

#RIT7 ,R2

;SEE IF DOING NEG OFFSETS

768:

032702

0002C0

:EXPECTED A1

JSR
L.WORD
ERROR
ERROR
ERROR

ERROR

4870
4871

023632

MOV

007462

034252

23;9

CLR

007452

004737
104024

104131

007444

007446

75$:

023576
023602

023616

;ABORTING BAL OF TESTS

$E0P

4867
2323

23;;

MSG26

SEQ 0095

JMP

104272

001401

BIT

MACY11 30(1046)
04~JAN-82 13:04 PAGE 96
T13
TEST OFFSET & RTC LOGIC

lalal

CZRGIFO UNIBUSS RK6 DR PRTZ2
CZREIF.P11
04=JAN-82 12:46

I
023652

001014

023654
023656
023662
023664

005202

000137

022444

023670
023674
023700

012702
012701
000137

000201
000101
022444

023704
023706
023710
023714
023716

005201
005202

020227
001402
000137

F
8
13:04 PAGE 97
30(1046)
04~JAN-82
T13
TEST OFFSET & RTC LOGIC

000061

BNE

188

:BR IF YES

INC
CMP

R2
RO ,#61

:SEE IF JUST DID MAX POS OFFSET

JMP

*ELSE DO NEXT POS OFFSET

BEQ
208:

18s:

000261

208

MoV

#201,R2

INC

CMP

R2., 4261

MOV
JMP

INC

BEQ
JMP

0226444

SEQ@ 0096

#101.R1
18

1s714
18

‘BR IF YES

sSETUP NEG OFFSET FOR RKASOF

SSETUP NEG OFFSET OFOR MSG A
:DO NEG OFFSET

;SEE IF ALL NEG OFFSETS DONE
::60 TO NEXT TST
‘DO ANOTHER

tttttttttttttttttt'tttttt"ttttttttttttttttttttittttttttttttttt

CRTEST 14

TEST READ DATA AT ALL HEAD OFFSET POSITIONS

. %

e
Tw

THIS TEST VERIFIES THAT THE HEAD OFFSET LOGIC IS OPERATIONAL BY
WRITING ALL 1°S PATTERNS ON CYLINDER O, HEAD 0. THEN

:ggx;iggg gurxL FAILURE OCCURES.

. %

PERFORMING READ DATA FROM CENTERLINE AND MOVING OUT + AND - OFFSET

OFFSET CODES ARE ALSO VERIFIED BY READING MSG A, STAIUS 00 & 10.

i
o

ALL HEADS ARE TESTED AT CYLINDER 0
IF THERE ARE NO FAILURES AT ALL, THIS INDICATES THAT

o
i
i

o
v

NOTE THAT THE OFFSET FAILURE IS NOT AN ERROR,
BUT AN INDICATION OF SURFACE, HEAD & R/W ELECTRONICS QUALITY ONLY.

s %

023722
023724
023732

060004
012737
012706

023736
023742

004737
104024

THE FAILING OFFSET POSITIONS

]

A. HEADS DID NOT MOVE AT ALL
B. THE COMBINATION OF DISC SURFACE, HEADS, R/W AMP
ARE EXCEPTIONALLY GOOD.

:2332233283323 223322223 2232233322222 2332222323322 3 X222 3232222224

000001
001100

001174

TST14:

001402
001402
001500
000020
177400

024000
024006
024012

000023
032320

#1,8TIMES

JSR

PC.,SUBCLR

CLR

SECTOR

MOV

034252

023744
023750
023756
023764
023772

SCOPE

MOV

ERROR
000006
000004

000010
000002
007354

11$:

MOV
MOV

BIS
MOV

#STACK, SP

ITERATION

:RESTORE STK PTR

;CERR AFTER SCLR

SECTOR,RKDA(RS)
#DATAT.RKBA(RS) :WRITE ALL 1'S

#BAI,RKCS2(RS) :BUS ADDR INCR INHIB
#-256. ,RKWC(RS) SECTOR O ONLY

:WILL DO IMPLIED SEEK TO CYL O
sWAS ON CYL 1 FROM LAST TEST

MOV

#<WRDATA> ,H(CS1

ERROR

JSR

::D0 1

PC.DATCMD

;DO DATA X FOR CMD & GET CONTR RDY

*NO RDY AFTER WRITE DATA CMD

MACY11

lalal

CZR6IFO UNIBUSS RK6 DR _PRT?2
CZROIF .P11
04-JAN-82 12:46

13:04

PAGE 9 8

SEQ 0097

TEST READ DATA AT ALL HEAD OFFSET POSITIONS

004737
032737
001465

033722

100000

007354

JSR
8IT

PC.GSTAT
#CERR,HCS1

678

;BR IF NO ERRORS

024030
024036
024040
024044

032737
001421
004737
000455

000200

007370

BIT

. HER
#8SE

SEEIIFNgAD SECTOR FLAG

JSR

PC, TRUERR

024046

005237
023727
001003

0014
0014

024052
024060
024062
024064
0¢4070
024076
026102

BEQ

035736

B8R

INC
CMP
BNE
ERROR

000012

104046

000137
012765
000137

023750

024104
026112
024116
024124
024132
024136
024144

012737
005037
012737
012737
005037
012737
012737

010340
007446
001720
000001
007454
000002
000003

024152
024156
024160
024162
024164
024166
024170
024174
024200
024202

004737
000003
104052
104023
104053

033100

104012

000000

010340
007446
001720
000001
007454
000002
000003

024250
024254
024256
024260

033100

007444

JMP
MOV
JMP

ERROR

658

668

SECTOR
SECTOR,#10.
648
46
108
#CCLR,RKCS1(RS)
118

:ELSE SEE IF SECTOR LISTED IN BSE

SRETURN HERE IF NO
+RETURN HERE

TABLE

YES

sARE 10 CONSEC. SECTORS BAD

:BR IF NO
sABORTING TEST DETECTED 10 BAD SECTORS

sBYPASS TEST

:TRY ANOTHER SECTOR

;CERR WITH WRITE DATA (MD

g<360.SPIN!D.DRDY!D.VV!D.DRA> ,E.A0

007450
007452

MOV
CLR
MOV
MOV

#<D.SS?K'D.CART!D_DOOR!D.BRHM!D.SSP>,E.AT
:EXPECTED A1
;MSG ID FOR EXPECTED MSG B1
»E

007456
007462

MOV
MOV

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

E.AQ

SEXPECTED MSG A2
;MSG ID FOR EXPECTED MSG B2
;MSG ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

;CHECK MSGS A0, B0, A1, B1

CLR

LWORD
ERROR
ERROR
ERROR
ERROR

66$:
67%:

007444

007450
007452
007456
007462

001500
000020

000004

001402

000006

177400

:
648

65%:

045546
031476

024202
024210
024214
024222
024230
024234
024242

024310

BEQ

;GET FRESH STATUS

;EXPECTED MSG B0

T.A2'T.B2'0
52
23
53
25

EXPECTED MSG AO

;MSG A0 ERROR AFTER WRITE DATA CMD

;MSH B0 ERROR
:MSG A1 ERROR

;MSG B1 ERROR
sABORTING BAL OF TESTS

TYPE
JMP

,MSG26
$EOP

MOV
CLR
MOV
MOV

#<060.SPIN!D.DRDY!D.VV!D.DRA> ,E.A0
;EXPECTED MSG AO
£E.8
;EXPECTED MSG BO
#<D.SPOK'D.CART!D.DOOR!D.BRHM!D.SSP>,E.A1
;EXPECTED Al
#,E.81
sMSG ID FOR EXPECTED MSG B1

ERROR

sBAD SECTOR NOT LISTED IN TABLE

CLR
MOV
MOV

E.A2
#2.E.B2
#3.E.83

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

JSR

PC, CHKMSG

;CHECK MSGS A0, B0, A1, B1
;8 MSGS SPECIFIED MERE
:MSG A0 ERROR AFTER WRITE DATA CMD
:MSH B0 ERROR

.WORD
ERROR
ERROR
ERROR
ERROR

MOV

8IS
MOV
MOV

T.A2'T.B2'0
52
23
53
25

#DATAT,RKBA( RS )

#8A],RKCS2(R 5)
#-256. ,RKWC ( RS)

SECTOR.RKDA
( RS)

:MSG A1 ERROR
;MSG B1 ERROR

lalal

T14

04=JAN-82

024014
024020
024026

[ole)
(A8 1,8

4942
4943
4944
4945
4946
4947
4948
4949
4950
4951
4952
4953
4954

MACY11 30(1046)

~N~

CZROIFO UNIBUSS RK6 DR PRT?
CZR6IF.P1
04=JAN-82 12:46

CZRGIFO UNIBUSS RK6 DR _PRTZ2

CZR6IF .P1T
4998
(999

S000
5001
5002
5003

024316
024324

04=JAN=-82 12:46
012737
004737

024330
024332
024336
024344

104015
006737
032737
001453

024364

013737

007354

040000

007356

000024

001452

024346
024354
024356

5008
gg?g

024372
024374

gg}}

024376

104022

§013
5014
5015
5016

024400
024406
024412
024420

012737
005037
012737
012737

010340
007446
001720
000001

5018
gg;g

024432
024440

012737
012737

000002
000003

5021

024446

004737

033100

gggg

024470

000137

5017

5022
5023
5024
5025
5026
5027

0264426

024452
024454
004456
024460
024462
024464

104016
000437

005037

000003
104057
104031
104060
104032
104407

001500

ERROR

JCERR AFTER WRITE CHECK CMD

007450
007452

MOV
CLR
MOV
MOV

#<0'D.SPIN'D.DRDY'D.VV'!D.DRA>,E.AC
:EXPECTED MSG AD
E.B0
;EXPECTED MSG BO
#<D.SPOK'D.CART!D.DOOR!D.BRHM!D.SSP>,E.A1
:EXPECTED A1
#1,€.81
:MSG ID FOR EXPECTED MSG B1

007456
007462

MOV
MOV

#2,E.82
#3.€.83

E.AQ

*EXPECTED MSG A2

JSR

PC. CHKMSG

;CHECK MSGS A0, B0, A1, B1

JMP

$EOP

007444

045546

031476

007444

5035

024514

012737

000001

007452

T.A2'T.B2'0
57
31
60
32
MSG26

;ACTUAL WORD FOR PRINTOUT

;EXPECTED WORD FOR TYPEOUT

*MSG ID FOR EXPECTED MSG B2
:MSG ID FOR EXPECTED MSG B3
:8 MSGS SPECIFIED HERE
:MSG AO ERROR AFTER WRITE CHECK CMD
‘MSH B0 ERROR
*MS5 A1 ERROR
:MSG B1 ERROR
SABORTING BAL OF TESTS

698 :

012737

005037

012737
012737

001720

007454

5037
gggg

024526
024534

5040
5041

024542
024546

004737
000003

5043
5044
3822

024552
024554
024556

104031
104060
104032

5047
2823

024560
024564

104401
005001

045033

5050
5051

024566
024572

012700
104401

000001
045072

5042 024550 104057

024576

CLR

.WORD
ERROR
ERROR
ERROR
ERROR
TYPE

010340
007446

5053

DATAT, WD

JNO RCY AFTER WRITE CHECK CMD
*GET FRESH STATUS

:WCE AFTER WRITE CMD

012737
005037

5052

MOV

;D0 DATA X FOR CMD & GET CONTR RDY

16
698

0264474
024502

024522

#<WRTCHK> HCST
PC,DATCMD
15
PC,GSTAT
#CERR,HCS1
698

SEQ 0098

ERROR
BR

001454

5032
5033

5036

MOV
JSR
ERROR
JSR
BIT
BEQ

BIT
BEQ
MOV

68%:

007454

13:04

;SEE IF WRITE CHECK ERROR

024474

024506

T14

H 8
PAGE 99
TEST READ DATA AT ALL HEAD OFFSET POSITIONS

04-JAN-82

MICE, HCS2
68$
RKDB(RS) ,WD1

ggg?

5034

30(1046)

007354

033722
100000

5005
5006

5007

032737
001410
016537

000031
032320

MACY11

010146

000002
000003

007450

MOV
CLR

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

MOV

#,E.81

MOV

CLR

007456
007462

033100

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

:MSG ID FOR EXPECTED MSG B1

;EXPECTED Al

MOV
MOV

#2,E.B2
#3.E.83

E.A2

SEXPECTED MSGA2

JSR
.WORD

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

: CHECK nsss A0, B0, A1, B1
MSGS SPECIFIED HERE

ERROR
ERROR
ERROR

3
60
32

;MSH B0 ERROR
*MSG A1 ERROR
*MSG B1 ERROR

TYPE
CLR

,MSG8
R1

;READ WITH OFFSET TEST
"AEAD #

MOV
TYPE

#1,R0
,MSG9

SINIT orrssr COUNTER
*HEAD
#

ERROR

;EXPECTED MSG A0

MOV

R1,=(SP)

*MSG ID FOR EXPECTED MSG B2
*MSG ID FOR EXPECTED MSG B3

;MSG AO énnon AFTER WRITE CHECK CMD

*:SAVE R1

ron TYPEOUT

:: YYPE HEAD
#

~NN

—

[alal

—

CZR6IFO UNIBUSS RK6 DR PRT2
CIR6IF. P11
04-JAN-82 12:46

5054
5055
5056

026600
024602
024603

026604

104403
00"
000
104401

00 <05

2823

024610

005037

001456

5061
ggg§

024614
026620

004737
104024

5066
5065
5066
gggg

024622
024626
024630
024634

5069
5070
5071
gg;g

MACY11

30(1 046)
T4

04-JAN-82

13:04

I 8
PAGE 100

TEST READ DATA AT ALL HEAD OFFSET POSITIONS

SEQ 0099

TYPOS
.BYTE
BYTE
TYPE

1
0

::G0 TYPE=-OCTAL ASCII
SSTYPE 1 DIGIT(S)
:SUPPRESS LEADING ZEROS

CLR

OFFERR

;WRITE CHECK ERROR FLAG

034252

JSR
ERROR

PC.SUBCLR
24

;CERR AFTER SCLR

010065
000307
010165
000301

000016

MOV
SWAB
MOV
SWAB

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

024636
024644
024652
024656

012737
012737
004737
104033

024724
000015
032262

001176
007354

MOV
MOV
JSR
ERROR

#708
, $ESCAPE
#OFFSET,HCST
PC,DOCMD
33

5074
5075
5076
gg;g

024660
024666
024672
024700

012737
005037
012737
012737

032140
007446
001720
000001

007444

MOV
CLR
MOV
MOV

#<D.PIP'D.SPIN'D.OFF!D.VV'D.DRA>,E.A0
;EXPECTED MSG A0
£.80
#<D.SPOK'D.CART!D.DOOR'D.BRHM!D.SSP>,E.A1
#1,E.B1

5079

024706

004737

033100

JSR

PC, CHKMSG

:CHECK MSGS AQ, BO, A1, B1

5081
5082

024714
024716

104035
1046061

ERROR
ERROR

35
61

iMSG AO ERROR DURING OFFSET CMD
‘MSH B0 ERROR

gggg

5080

024712

000000

000006

5083
gggg

024720
024722

5086
5087
5088
gggg

024724
024730
024736
024742

005037
013737
004737
104034

001176
001416
032766

5091
5092
5093
5094

024744
024752
024756

012737
005037
012737

052340
007446
001720

5096
5097
gggg

024772
024776
025004

005037
012737
012737

007454
000002
000003

5100
5101
5102

025012
025016
025020

004737
000003
104260

033100

025030
025036

012765
013765

100000
001222

5095

5103
5106
g}gg

5107

5108
5109

024764

025022
025024
025026

18:

007450

007452

L.WORD

104036
104062

012737

000001

,S$CRLF

0'0'0

;OFFSET VALUE
;HEAD NO.

;DO RECAL CMD & GET CONTR RDY

*NO RDY AFTER OFFSET CMD

:8 MSGS SPECIFIED HERE

ERROR
ERROR

36
62

CLR
MOV
JSR
ERROR

$ESCAPE
75000, TEMP1
PC.FATT?
34

007450

MOV
CLR
MOV

#<D.DSC'D.OFF!D.SPIN'D.DRDY!D.VV'D.DRA>,E.A0
:EXPECTED MSG AQ
E.B0
SEXPECTED MSG BO
#<D.SPOK!'D. CART'D DOOR'D.BRHM!D.SSP>.E.A1
:EXPECTED Al

007456
007462

CLR
MOV
MOV

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

*EXPECTED MSG
A2
*MSG ID FOR EXPECTED MSG B2
*MSG ID FOR EXPECTED MSG B3

JSR
.WORD
ERROR

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

;CHECK MSGS A0, B0, A1, B1
:§ MSGS specxrxeo HERE
:MSG AO ERROR AFTER OFFSET CMD

MOV
MOV

#CCLR,PKCST(RS)
SUNIT.RKCS2(R5) ;DRIVE#

007412

007444

007452

104261
104037
104040

70$:

MOV

ERROR
ERROR
ERROR
000000
000010

# ,E.B1

261
37
40

‘MSG A1 ERROR
‘MSG B1 ERROR

:SETUP TIMEOUT
SFIND ATTN
*NO ATTN AFTER OFFSET CMD

MSG ID FOR EXPECTED MSG B1

‘MSH BO ERROR
‘MSG A1 ERROR
*MSG B1 ERROR

000005
032262

007354

025060

004737

032640

025066
025070

104154

d ok
b acd
b
b

NHININ=O VO NO NS UWN <OV

NOWVMESWN =20V

P
b d
e
e e
et e
b d e
b

N
WN =200
NV
VB WA= OV

TWA

b e
D

AN N AR W NN

b d =D

D o e

LAV AN WTA N VT DDA DAV

b
b

LT T T

d e

b e

TR A VTITVHA W A

b d md b

WAV SN BN BN BN 25 25 85 85 05 25 LW

b
b d

O\OCONON O\ N NNV

WAWIA AN

025056

025064

04=JAN-82 12:46

104151

000401

025070
025076
025104
025112
025120
025126
025132
025134
025140
025146

012765
052765
012765
013765
012737
004737
104015
004737
032737
001421

001500
000020
177400
001402
000031
0352320

025150
025156

016537
005237

000024
001456

025162

005737

001456

025166
025170

025174

001411
104401

010046

033722
040000

104403
006
000

025206

104401

001205

025212
025216

032700
001023

000200

025220
025224
025226
025232
025234
025240

020027
001412
005737
001404
012700
000137

000060

025244
025246

005200
000137

025252
025256
025260

005737
001366
104401

025264

000763

025266
025272
025274

020027
001404
005737

025202

104401

0C0004
000010
000002
000006
007354

007356
001452

001456

28:

001456

PC,TSTATN

STEST FOR ATIN

ERROR

154

151

71$

;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

MOV
BIS
MOV
MOV
MOV
JSR
ERROR
JSR
BIT
BEQ

#DATA1,RKBA(RS)
#8A] ,RKCS2(RS)
#-256. ,RKWC (RS)
SECTOR,RKDA(RS)
MWRTCHK,HCS1
PC,DATCMD
;DO WRITE CHECK CMD. & GET CONTR RDY.
15
*NO RDY AFTER WRITE CHECK CMD
PC.GSTAT
SGET FRESH STATUS
MICE HCS2
2s

MOV
INC

RKDB(RS) ,WD1
OFFERR

1631

OFFERR

MOV

RO,=-(SP)

2
,MSG39

TYPOS
BYTE
BYTE

6
0

TYPE

$CRLF

,$CRLF

;GET MISCOMPARED WORD
:BAD WRITE CHK ERROR=SET ERR FLG.

;WRITE CHECK FAILURE AT OFFSET

::SAVE RO FOR TYPEOUT

*STYPE OFFSET VALUE

::G0 TYPE==OCTAL ASCII
::;TYPE 6 DIGITS
$:SUPPRESS LEADING ZEROS

#81T7,R0
13

CMP
BEQ
ST
BEQ
MOV
JMP

RO, #60
43
OFFERR
38
#200,R0
18

38:

INC
JMP

RO
18

48:

ST
BNE
TYPE

OFFERR
8s
,MSG37

;DO NEG OFFSETS
~o WRITE CHECK ERROR AT MAX POS OFFSET

‘D0 NEG orrsers

CMP
BEQ
ST

RO, #260
6$
OFFERR

8s:

SEQ@ 0100

*NO RDY AFTER DRIVE CLEAR CMD

BIT
BNE

045654

000260

JSR

TYPE

001456

024610

;D0 DRIVE CLEAR CMD & GET CONTR RDY

BEQ
TYPE

001205

000200
024610

#CLEAR,HCS1
PC,DOCMD

B8R

046012

025176
025200
025201

MOV
JSR

ERROR

718:

.ONS

;SEE IF OFFSET IS + OR *BR IF - OFFSET

;SETUP FOR NEG OFFSET

[alal

012737
004737

J 8
13:04 PAGE 101
TEST READ DATA AT ALL HEAD OFFSET POSI

04-JAN-82

T
NOVSWNNI—O

0 0

025044
025052

St Py

MACY11 3

PO PO NI NI A RO PO RIN) —2 = —d b b b b b b

AT A N WDV

[ala
~Ne~

UNIBUSS RK6 DR PRT2

CIR6IFO UNIBUSS RK6 DR _PRT?
CZROIF
. P11
04-JAN-82 12:46

025300
025302

~NO~
o

001072
000760

005737
001002

b—

AR NNV

5166
5167
5168

104401

001456

63:

045732

d o

MACY11 3?%1046)

04-JAN-82

13:04

K 8
PAGE 102

BNE
BR

IST15
3s

ST
BNE
TYPE

OFFERR
78
,MSG38

;:60 TO NEXT TST

sNO WRITE CHECK ERROR AT MAX NEG OFFSET

*NOTE! EITHER HEADS DID NOT MOVE

:OR READ/WRITE AMP IS EXECEPTIONALLY GOOD.

SEQ 0101

TEST READ DATA AT ALL HEAD OFFSET POSITIONS

100000

d ad

001222
000013
032262

~
Ly

:Soo\dg\fl’flflfld-dg

025346
025354
025360
025366
025370
025372
025400
025404
025406

C
OO0V

VIV

OO0

b o

b md e

AN N

00 00 00 00 00 0O
OO~

h o

TN AN AN

025340
025344

025446
025446
025450
0c5454
025456
025462

000001
033722
020000

104055

012765
013765
012737
004737
104151
004737
000401

000000
000010

007354

007402

007414

100000

000000
000010
007354

001222
000005
032262

104401

ERROR

124

728:

’3

000003
108:

*RDY NOT SET AFTER RECAL CMD

MOV

710, TEMP2

BNE
ERROR

;SELECT WORD 1

728
244

;RTZ NOT SET DURING RECAL CMD

JSR

PC.FATTI

SFIND ATTN

MOV
MOV
MOV
JSR

#CCLR,RKCS1(RS)
SUNIT.RKCS2(R5)
#CLEAR,HCS1
PC.DOCMD

ggn

;§‘TSTATN

ERRCR

154

:ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

INC
CMP

R1
R1,#3

:HEAD CTR
:SEE IF ALL HEADS DONE

JMP

:ELSE REPEAT ALL FOR NEXT HEAD

BEQ

024566
045172

;D0 RECAL CMD & GET CONTR RDY

#1,RKMR1(RS)
PC.GSTAT
#D.RTZ,HMR2

ERROR

032640

#RECAL ,HCST
PC.DOCMD

MOV
JSR
BIT

ERROR

104154

005201
020127
001402
000137

#CCLR,RKCS1(RS)
$SUNIT.RKCS2(RS)

MOV
JSR

000026

001406
032672

MOV
MOV

TYPE

SSETUP TIMEOUT

*NO ATTN AFTER RECAL CMD

151

;DRIVEN
;DO DRIVE CLEAR CMD & GET CONTR RDY

:NO RDY AFTER DRIVE CLEAR CMD
STEST FOR ATIN

10$

‘BR IF YES

.MSG12

;OFFSET FAILURES ARE NOT ERRORS

I RRANANRRAAARRAARAARA
AR A AN AAARAAANNRENANANRANARNRAANRNRNRARARANS

“RTEST 15
2

THIS TEST VERIFIES THAT WHEN ATTEMPTING TO
WRITE WITH HEADS OFFSET THAT THE OFFSET WILL CLEAR

»
%

¢ THE DRIVE WILL WRITE

SINCE THE WRITE COMMAND HAS AN IMPLIED RTC.

THIS TEST IS PERFORMED FOR MAX POS & NEG OFFSETS ONLY

025466
025470
025476

000004
012737
012706

000001
001100

025502

012700

000260

=~ OO NS

—

ASLSLN 1,81 G,V 1 N1,¥1,81,61,§1
DONY =t =d ced = cad o v
b wd

LV, VLV IV IV, IV, 1V [V [V 1V ]

WRITE WITH HEADS OFFSET

001174

T15:

222022220220

822222803

SCOPE
MOV
MOV

M1, STIMES
#STACK,SP

::D0 1

MOV

#260,R0

sMAX NEG OFFSET

ITERATION

sRESTORE STK PTR

2323223222222

DD
OO
VWAV AVIAVINWVIWVLY
ronoroNIrOrRDNNN DN

UNIBUSS RK6 DR PRTZ2
1"

04~JAN-82 12:46

MACY11

025506
025512

004737
104024

034252

025514

010065

000016

025520
025526
025534
025540

012737
012737
004737

025606
000015
032262

001176
007354

025542
025550
025554
025562

012737
005037
012737
012737

032140
007446
001720

025570
025574
025576
025600
025602
025604

004737
000000

033100

025606
025612
025620
025624

005037
013737
004737

001176
001416
032766

025626
025634
025640
025646
025654
025660
025666

012737

052340
007446
001720
000001
007454
000002
000003

025674
025700
025702
025704
025706
025710

004737

033100

025712

106033

000001

L 8
04=JAN-82 13:04 PAGE 103
30(1046)
T15
WRITE WITH HEADS OFFSET
18:

JSR

PC,SUBCLR

:CERR AFTER SCLR

MOV

RO,RKASOF (RS)

:SET OFFSET

MOV
MOV
JSR

#64$, SESCAPE
#OFFSET HCST
PC,DOCMD

;DO RECAL CMD €& GET CONTR RDY

007444

?EX

g<gbpxpso.spxneo.orrso.vv:o.onA>.s.Ao

007450
007452

MOV

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

JSR

PC, CHKMSG

;CHECK MSGS A0, B0, A1, 81

ERROR

:MSG A0 ERROR DURING OFFSET CMD

100000

001222
000005
032262

LWORD

007412

:
643

007444
007450
007452

000000
000010
007354

;EXPECTED MSG A0

‘8 MSGS SPECIFIED HERE

CLR
MOV
JSR
ERROR

$ESCAPE
75000, TEMP1
PC,FATTS
34

MOV
CLR

#<D.DSC'D.OFF!D.SPIN!D.DRDY!D.VV'!D.DRA> E.A0
£.80
SEXPECTED MSG B0

:MSH BO ERROR
*MSG A1 ERROR
:MSG B1 ERROR

;SETUP TIMEOUT
SFIND ATIN
*NO ATTN AFTER OFFSET CMD
;EXPECTED MSG AO

#<D.SPOK'D.CART!D.DOOR!D.BRHM'D.SSP>,E.A1
:EXPECTED Al
#1,€.81
:MSG ID FOR EXPECTED MSG B1

E.A2

SEXPECTED MSGA2

MOV
MOV

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

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

JSR

PC, CHKMSG

;CHECK MSGS AQ. B0, A1, B1

LWORD
ERROR
ERROR
ERROR
ERROR

T.A2!T.B2'0
260
261
37
40

MOV
MOV
MOV
JSR

#CCLR,RKCST(RS)
$UNIT.RKCS2(RS)
#CLEAR,HCS1
PC,DOCMD

égn

zgiTSTATN

ERROR

154

ERROR

65%:

0'0'0

*NO RDY AFTER OFFSET CMD

61
36
62

CLR

007456
007462

ERROR
ERROR
ERROR

MOV
MOV

032640

025752

ERROR

104035
104061
104036
104062

1064034

SEQ 0102

151

:MSG AO
*MSH BO
‘MSG A1
‘MSG B1

-8
MSGS SPECIFIED HERE
ERROR AFTER OFFSET CMD
ERROR
ERROR
ERROR

;DRIVE#
:DO DRIVE CLEAR CMD & GET CONTR RDY

*NO RDY AFTER DRIVE CLEAR CMD
*TEST FOR ATIN

;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

78
79

025752
025756

005037
013765

001402
001402

000006

84
5285

012737
004737
104011
004737
032737
001465

000023
032320

5287
5288
5289

026006
026014
026020
026022
026026
026034

033722
100000

007354

5291
5292
5293
5294

026036
026044
026046
026052

032737
001421
004737
000455

000200

007370

5296
5297
5298
5299
5300
5301
5302
5303

026054
026060
026066
026070
026072
026076
026104
026110

005237
023727
001003
104046
9000137
012765
000137
104012

001402
001402

5305
5306
5307
5308
5309

026112
026120
026124
026132
026140

012737
005037
012737
012737
005037

010340
007446
001720
000001
007454

007444

026152

012737

000003

007462

ALNONINOND N

n 8
MACY11 30(1046)
04=-JAN-82 13:04 PAGE 104
T15
WRITE WITH HEADS OFFSET

lalal
~~

IFO UNIBUSS RK6 DR _PRT?
IF.P1
04~JAN-82 12:46

3
10

WA WVVAA

026144

012765
052765
(12765

012737

026160

004737

16
17
18
19

026170
026172
026174
026176

104023
104053
104025
104401

14
15

20
21
gg

24
25
26
27

N LA U U LA A

W WNAAA AW

025764
025772
026000

e AN U AN U U AN A

AN WA

A AN N AN N NN NN

NN N VTV

NNV

80
81
g%

29
%?

32
33

026164
026166

000003
104052

001474
000020
177400

000004
000010
000002
007354

0335736

027002
100000
025756

000002

000012

00""00

007450
007452
007456

MOV
BIS
MOV

#DATAQ,RKBA(R5) ;WRITE ALL 0'S
#BA],RKCS2(R5) :BUS ADDR INCR INH
#-256. ,RKWC(RS) :FULL SECTOR

MOV
JSR
ERROR
JSR
BIT
BEQ

#<WRDATA> ,HCS?
PC.DATCMD
11
PC,GSTAT
#CERR ,HCST
69%

:BR IF NO ERRORS

BIT
BEQ
JSR
BR

#8SE HER
678
PC,TRUERR
683

;SEE IF BAD SECTOR FLAG
:BR IF WNO
JELSE SEE IF SECTCR LISTED IN BSE TABLE
sRETURN HERE IF NO

INC
cMp
BNE
ERROR
JMP
MOV
JMP
ERROR

SECTOR
SECTOR, 0.
66%
46
3s
#CCLR,RKCST1(RS)
31
12

sRETURN HERE IF YES
sARE 10 CONSEC. SECTORS BAD
;B8R IF NO
sABORTING TEST DETECTED 10 BAD SECTORS
:BYPASS TEST
;TRY ANOTHER SECTOR

MoV
CLR
MoV
MoV
CLR

#<0!D.SPIN!D.DRDY!D.VV!D.DRA> ,E.AQ0
EXPECTED MSG A0
E.BO
;EXPECTED MSG B0
#<D.SPOK!D.CART!D.DOOR D.BRHM!D.SSP>,E.A1
;EXPECTED A1
#1,E.8B1
sMSG 1D FOR EXPECTED MSG B1
E.AQ
SEXPE.TED MSG A2

Mov

#3.E.B3

MOV

sCHECK MSGS A0, BO, A1, Bt

045546

23
53
25
.MSG26

010340
007446
001720
000001

007444

026242
026250

012737
012737

000002
000093

007454

033100

cCERR WITH WRITE DATA (MD

:MS6 ID FOR EXPECTED MSG B2

ERROR
ERROR
ERROR
TYPE

031476

;D0 DATA X FOR CMD & GET CONTR RDY
sNO RDY AFTER WRITE DATA CMD
sGET FRESH STATUS

#2,E.B2

PC,CHKMSG

.WORD
ERROR

012737
005037
012737
012737

004737
000003

SECTOR
SECTOR,RKDA(RS)

JSR

026210
026216
026222
026230

026256
026262

CLR
MoV

033100

000137
104063

005037

668:
678:

026202
026206
026210

026236

4$:

T.A2!T7.82!0
52

sMSG ID FOR EXPECTED MSG B3
;& MSGS SPECIFIED HERE
:MSG AQ ERROR AFTER WRITE DATA (MD
;MSH B0 ERROR
:MSG A1 ERROR
:MSG B1 ERROR
;ABORTING BAL OF TESTS

JMP
ERROR

$EOP
63

007450
007452

MOV
CLR
MOV
MOV

#<0!D.SPIN!D.DRDY!D.VV!D.DRA> ,E.AQ
EXPECTED MSG A0
E.80
:EXPECTED MSG BO
#<D.SPOK!D.CART!D.DOOR!D.BRHM!D,SSP>,E. A1
;EXPECTED Al
#1,E.81
;MSG _ID FOR EXPECTED MSG B1

007456
007462

MOV
MOV

#2,E.B2
#3,£.83

68$:
69%:

CLR

JSR
.WORD

;BAD SECTOR NOT LISTED IN TABLE

E.AQ

:EXPECTED MSG A2

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

;CHECK MSGS A0, B0, A1, Bl
;& MSGS SPECIFIED HERE

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

SEQ 0103

104415
012706

71%:

CYLDIF
70$
104
CYLADD

:SEE IF MSG A2=0
‘BR IF YES
‘MSG A2 NOT CLEARED AFTER WRITE CMD WITH OFFSET
‘SEE IF MSG B2=0

:SELECT WORD 2

AL
ml
asm

‘BR IF YES
‘MSG B2 NOT CLEARED AFTER WRITE CMD WITH OFFSET

;RESTORE

71$
105

ALALALAL

PC.GSTAT

#2,RKMR1(RS)

JSR
TST
BEQ
ERROR
TST
BEQ
ERROR

104105

MOV

:MSH B0 ERROR
‘MSG A1 ERROR
‘MSG B1 ERROR

70%:

:MSG A0 ERROR AFTER WRITE DATA CMD

104104

005737
001401

52
23
53
25

SCOP1

000026

ERROR
ERROR
ERROR
ERROR

94
Cz¥

001100

Mov

#STACK, SP

026334
026340

034252

JSR
ERROR

PC.SUBCLR

026342
026350
026356
026364

001474
000020

000004
000010
000002
000006

MOV

#DATAQ,RKBA
(RS)

007354

MOV

STK PTR

:CERR AFTER SCLR

033100

026536

A
s
A
m

;WCE AFTER WRITE CMD

ERROR

;CERR AFTER WRITE CHECK CMD

007444

MoV

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

007450
007452

MOV
MOV

#<D.SPOK'!D.CART!D.DOOR!D.BRHM:D.SSP>
E. A1
EXPECTED Al
#1,E.81
sMSG ID FOR EXPECTED MSG B1

007456
007462

MOV
MOV

#2,E.82
#3,€.83

sMSG ID FOR EXPECTED MSG B?
:MSG ID FOR EXPECTED MSG B3

JSR
. WORD
ERROR
ERROR
ERROR
ERROR

PC,CHKMSG
T.A2!7.82!0

;CHECK MSGS A0, B0, A1, B1
;& MSGS SPECIFIED HERE

CLR
CLR

;EXPECTED WORD FOR TYPEOUT

E.BO

;EXPECTED MSG 80

E.A2

;EXPECTED MSG A2

57
3
60
32

SR
Sms
A
e

DATAQ, WD

ERROR
BR

72%:

026522

16
73s

026452
010340
007446
001720
000001
007454
000002
000003

SRl

;ACTUAL WORD FOR PRINTOUT

026450

026454
026462
026666
026474
026502
026506
026514

RKDB(RS) ,WD1

mmd

MOV
MOV

sSEE IF WRITE CHECK ERROR

001452
001454

gggf.ucsz

000024
001474

SGET FRESH STATUS

007356

PC,GSTAT
;ggnn.ucs1

CONTR RDY

*NO RDY AFTER WRITE CHECK CMD

;MSG AQ
:MSH 80
;MSG A1
JMSG B1

;EXPECTED MSG AO

ERROR AFTER WRITE CHECK CMD
ERROR
ERROR
ERROR

040000

BIT
BEQ
BIT
BEQ

:DO DATA X FOR CMD & GET

s Mmool
MM. M
A
M

007354

100000

#<WRTCHK> ,HCS?
PC,DATCMD

SNl

033722

JSR
ERROR
JSR

000031
032320

MOV

001402

#BA] RKCS2 (RS)
#<256. ,RKWC (RS)
SECTOR ,RKDA(RS)

et
ML e

026372
026400
026404

177490

8IS
MOV

012765
004737
005737
001401

SEQ 07104

WRITE WITH HEADS OFFSET

026326
026330

1064053
1046025

N 8
PAGE 105

026326

106052
104023

13:04

026274
026302
026306
026312
026314

04-JAN-82

NN NN

026264
026266
026270
026272

MACY11 3?( 1 046)

WUMIWAWM

SRSNRRH Oomwmmmmmmmmbbg RRR »H

T VT WTA TN WVTAWN N AWAVVWA A AVTEA NN NNV
LA U AN AN U AN N NN NN N NN

NUNNNNN

N=O0 ONOAWVBWN=OVo~N VIS
= O V00 ~NON NS
NN =0V~ VSN

FO UNIBUSS RK6 DR PRT?Z
F.P11
04=-JAN-8¢2 12:46

NN NN

VIVALAWA VIV

€2
(2

[ala)

0 UNIBUSS RKé DR PRTZ2
F.P1
04~JAN-82 12:46

026540
026544

104401

000137

B 9
MACY11 30(1046)
04=JAN-82 13:04 PAGE 106
T15
WRITE WITH HEADS OFFSET

045546
031476

TYPE

026550
010340
007446
001720
000001
007454
000002
000003

026616
026622
026624
026626
026630
026632

033100

020027
001004
012700
000137

007444

007450
007452
007456
007462

000260

012765
013765
012737
004737

026702
026710
026714
026722
026724
026726

012765
004737
032737
001001

000060
025506

104124

104244
013737
004737
104055

012765

100000

032262
000001
033722
020000

000000
000010

027002

l(O'D SPIN!D.DRDY!D.VV!D.DRA> ,E.A0
E.B
:EXPECTED MSG B0

JSR
. WORD
ERROR
ERROR
ERROR
ERROR

EXPECTED MSG A0

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

;EXPECTED A1

#1,E.B1

:MSG_ID FOR EXPECTED MSG B1

#2,E.B2
#3,E.83

:MSG ID FOR EXPECTED MSG B2
:MSG ID FOR EXPECTED MSG 83

PC,CHKMSG

sCHECK MSGS A0, 80, A1, B1

:MSG AO ERROR AFTER WRITE CHECK CMD

60
32

:MSG A1 ERROR
:MSG B1 ERROR

£.AQ

T.A2!7.82!0

007354

000026

#1,RKMR1(R5)

007402

#D.RTZ,HMR2
748

001406
032672

007414

100000

000000
000010
007354

001222
000005
032262

#CCLR,RKCS1(RS)
SUNIT ,RKCS2(R5)
#RECAL ,HCST
PC,DOCMD
124
PC,GSTAT

748

;EXPECTED MSG A2

;& MSGS SPECIFIED HERE

;MSH B0 ERROR

:BR IF JUST DID POS OFFSET
cELSE SETUP FOR POS OFFSET

104154

75%:

3s:

;DO RECAL CMD & GET CONTR RDY

¢RDY NOT SET AFTER RECAL CMD
sSELECT WORD 1

244
110, TEMP2

sRTZ NOT SET DURING RECAL CMD
sSETUP TIMEOUT

¢NO ATTN AFTER RECAL CMD

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

;DRIVEA

PC.FATTI

sFIND ATIN

#CLEAR, HCS1
PC.DOCMD

;DO DRIVE CLEAR CMD & GET CONTR RDY

;gfiTSTATN

sTEST FOR ATTIN

151

032640
027000
027002

Moy
CLR
Mov
MoV
CLR
MOV
MoV

2s:

026652
026660
026666
026674
026700

026742

$E0P

RO.#260
2%
1gO.R0

026652

026734
026740

;ABORTING BAL OF TESTS

JMP
73%:

026550
026556
026562
026570
026576
026602
026610

026634
026640
026642
026646

MSG26

SEQ 0105

154

sNO RDY AFTER DRIVE CLEAR CMD

sATTN NOT CLEARED AFTER DRIVE CLEAR CMD

—

CZR6IFO UNIBUSS RK6 DR PRTZ
CZROIF .P11
04-JAN-82 12:4

c 9
MACY11 30(1046)
04=-JAN-82 13:04 PAGE 107
To
TEST CURRENT CROSS-OVER CYLINDERS

5445
5446

SEQ 0106

JNRRRARRARNARAARANAAN
AR AP RANANRRARAAANAARAARARARAANRRNORNACNNNAN

-resr 16

5647

TEST CURRENT CROSS~OVER CYLINDERS

:t
:t

:t
:t
:Q

THIS TEST VERIFIES THAT THE DRIVE CAN WRITE £ READ OFF

CURRENT CHANGE CYLINDERS X © Y IN THE FOLLOWING WAY:

SPIRAL WRITING IS PERFORMED FROM CYLINDER X TO CYLINDER Y

WITH A DATA PATTERN FILLING THE ENTIRE 2 CYLINDERS.

:t
;t

A WRITE CHECK

i
o

CYLINDER X:
CYLINDER Y:

63
64

127
128

191
192

255
256

319
320

383
384

RKO6
RKO6

o
.

CYLINDER X:
CYLINDER Y:

127 255
128 256

383
384

511
512

639
640

767
768

RKO7
RKO7

ALL ABOVE CYLINDERS IN DECIMAL

. %

MRSt

027002
027004
027012

000004
012737
012706

027016
027022
027024
027030
027032

005737
001403
012700
000402
012700

001170

001422

027036
027042

004737
106024

034252

027044
027050
027056
027064

011065
012765
052765
012765

000020
001502
000020
076000

027072
027100
027104
027106
027112
027120

012737
004737

000023
032320

004737
032737
001451

033722
100000

007354

027122

032737

000200

007370

104011

00C001
001100

001174

8716:

104012

027146
027154

012737
005037

001436

#1,8TIMES
#STACK,
SP

::D0 1 ITERATION

$TMP4

MOV

#CYL7.RO

;SEE IF RKO7
:BR IF NO
;ELSE LOAD UP RKO7 TABLE

5¢:

18
#CYL.RO

18:

JSR

PC.SUBCLR

;CERR AFTER SCLR

MoV
MOV
BIS

(RO) ,RKDC(RS)
#DPAT1,RKBA(RS)
#BA] RK(52(RS)

;CYL #
:DATA PATTERN
:BUSS ADDR INCREMENT INHIBIT

MoV
JSR

#<WRDATA> ,HCS1
PC,DATCMD

BEQ

678

;B8R IF NO ERRORS

BIT

#8SE ,HER

gSEIIF gAD SECTOR FLAG

JSR

PC. TRUERR

;ELSE SEE IF SECTOR LISTED IN BSE TABLE
:RETURN HERE IF NO

ERROR

MOV

007354

ERROR
JSR
BIT

8EQ

BR
65$:

007444

BR
MOV

000004
000010
000002

027620
010340
007446

SCOPE

s sttt
2222
23223282822 2222 220

MOV
MOV

BEQ

035736

027144

IS THEN PREFORMED TO VERIFY DATA WAS PROPERLY WRITTEN.

THIS TEST IS PERFORMED FOR ALL 3 HEADS.

JMP
ERROR

MOV

CLR

;RK06 CYL ADDR TABLE

#-6%22. '256..RKUC(R5) sWORD COUNT TO SPIRAL & FILL 2 CYLINDERS
11
PC,GSTAT
#CERR,HCS1

65$

66$
3
12

;DO DATA X FOR CMD & GET CONTR RDY
¢NO _RDY AFTER WRITE DATA CMD
:GET FRESH STATUS

:RET HERE IF YES

sCERR WITH WRITE DATA CMD

l<060.SPIN!D.DRDY!D.VV!D.DRA> ,E.A0
.B
sEXPECTED MSG 80

EXPECTED MSG A0

CZR6IFO UNIBUSS RK6 DR PRT?
CZROIF P11
04=JAN-82 12:46

027160
027166
027174
027200
027206

012737
012737
0059037
012737
012737

027214
027220
027222
027224
027226
027230
027232
027236
027242

004737

027244
027252
027256
027264
027272
027276
027304

012737
005037
012737
012737
005037
012737
012737

010340
007446
001720
000001
007454
000002
000003

027312
027316
027320
027322
027324

004737
000003

033100

027244

001720

000001

007454
000002
000003

MACYN 3? (1046)
16

007450
007452
007456
007462

033100

66$:
67%:

027330
027334
027342
027350

000020
001502
000020

027356

000031
032320

076000

033722

SEQ 0107

#<D.SPOK'!D.CART!D.DOOR!D.BRHM!D.SSP>
,E.A1
;EXPECTED A1l
#1,E.81
sMSG _ID FOR EXPECTED MSG B1

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

JEXPECTED MSG A2
sMSG ID FOR EXPECTED MSG B2
sMSG ID FOR EXPECTED MSG B3

JSR
.WORD

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

;CHECK MSGS A0, B0, A1, B1
;& MSGS SPECIFIED HERE

ERROR
ERROR
ERROR

23
53
25

:MSH B0 ERROR
:MSG A1 ERROR
:MSG B1 ERROR

TYPE
JMP

,MSG26
$EOP

:MSG AQ ERROR AFTER WRITE DATA CMD
:ABORTING BAL OF

TESTS

ERROR

007444

MoV

007450
007452

MOV
MOV

#<0!D.SPIN!D.DRDY!D.VV!D.DRA>
,E.A0
E.BO
;EXPECTED MSG BO

007456
007462

MoV
MOV

#2,E.B2
#3,€.83

E.A2

;EXPECTED MSG A2

JSR

PC,CHKMSG

;CHECK MSGS A0, B0, A1, B1

CLR

.WORD
ERROR
ERROR
ERROR
ERROR

;:BAD SECTOR NOT LISTED IN TABLE
EXPECTED MSG AQ

#<D.SPOK!D.CART'!D.DOOR!D.BRHM!D.SSP>
,E.A1
;EXPECTED A1l
#1,E.81
sMSG ID FOR EXPECTED MSG 81

T.A2!T7.82!0
52
23
53
25

¢MSG ID FOR EXPECTED MSG B2
sMSG ID FOR EXPECTED MSG B3

:MSG
:MSH
:MSG
:MSG

AQ
B0
A1
B1

;& MSGS SPECIFIED HERE
ERROR AFTER WRITE DATA CMD
ERROR
ERROR
ERROR

MOV
MOV
BIS

(RO) ,RKDC (RS)
#DPAT1,RKBA(RS)

Mov
JSR

#<WRTCHK> ,HCST
PC,DATCMD

;DO DATA X FOR CMD & GET CONTR RDY

JSR

PC,GSTAT

;GET FRESH STATUS

gég

gggE.HCSZ

cSEE IF WRITE CHECK ERROR

MOV

RKDB(RS) ,wD1

sACTUAL WORD FOR PRINTOUT

ERROR
BR

16
69%

sWCE AFTER WRITE CMD

ERROR

sCERR AFTER WRITE CHECK CMD

007444

MoV

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

007450
007452

Mov
Mov

#<D.SPOK'!D.CART!D.DOOR!D.BRHM!D,SSP>,E.A1
EXPECTED A1
#,E.B1
:MSG ID FOR EXPECTED MSG B1

000004
000010
000002

MOV

007354

ERROR

100000

007354

040000

007356

000024
001502

001452
001454

BIT
BEQ

MOV

549

68$:
010340
007446
001720
000001

D 9
PAGE 108

CLR
MoV
MoV

ERROR

000137
104063

13:04

TEST CURRENT CROSS~OVER CYLINDERS
Mov
MOV

027326

027460

04-JAN-82

#BA] ,RKCS2(RS)

H-6222.+256.
,RKWC (R5)
15

gggRR,HCS1

DPAT1,WD2

E.BO

sNO RDY AFTER WRITE CHECK CMD

;EXPECTED WORD FOR TYPEOUT

;EXPECTED MSG B0

:EXPECTED MSG AQ

027466
027472
027500

005037
012737
C12737

007454
000002
000003

027506
027512

004737
000003

033100

027516
027520
027522
027526

104031
104060
104032
104401

027514

027530

30(1046)
T16

007456
007462

104057

000137

CLR
MOV
MOV

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

;EXPECTED MSG A2
‘MSG ID FOR EXPECTE®TM <.G B2
:MSG ID FOR EXPECTED MSG B3

JSR
WORD

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

;CHECK MSGS AO, B0, A1, B1
.g MSGS SPECIFIED HERE

ERROR
ERROR
ERROR
TYPE

31
60
32
MSG26

*MSH B0 ERROR
‘MSG A1 ERROR
‘MSG B1 ERROR
*ABORTING BAL OF TESTS

#<0'D.SPIN'D.DRDY!D.VV!D.DRA>,E.AC ;EXPECTED MSG AD
E.B0
;EXPECTED MSG B0
#<D.SPOK'D.CART!D.DOOR!D.BRHM!D.SSP>,E.A1
:EXPECTED Al
c1 £.81
:MSG 1D FOR EXPECTED MSG B1

ERROR
045546

031476

JMP

027534

04=JAN-82
13:04
PAGE 109
TEST CURRENT CROSS-OVER CYLINDERS

$E0P

;MSG A0 ERROR AFTER WRITE CHECK CMD

698
:

02753¢
027542
027546
027554

012737
005037
012737
012737

010340
007446
001720
000001

007444
007450
007452

MOV
CLR
MOV
MOV

027566
027574

012737
012737

000002
(000003

007456
007462

MOV
MOV

cz.e.ez
#3.E.B3

JSR
LWORD
ERROR
ERROR
ERROR
ERROR

PC, CHKMSG
T.A2'T.B2'0
57
31
60
32

;CHECK MSGS AQ, BO, A1, B1
:8 MSGS SPECIFIED HERE
:MSG AQ ERROR AFTER WRITE CHECK CMD
*MSH B0 ERROR
‘MSG
A1 ERROR
:MSG 81 ERROR

BEQ
JMP

48
18

‘BR IF YES
‘ELSE REPEAT

027562

005037

027602
027606
027610
027612
027614
027616

004737
000003
104057
104031
104060
104032

027624
027626

001402
000137

027620

022027

007454

CLR

033100

000577

3$:

027036

027632

CMP

(RO)+,#383.

SEXPECTED MSG A2

‘MSG ID FOR EXPECTED MSG B2
‘MSG ID FOR EXPECTED MSG B3

*ALL CYLINDERS DONE?

48:

027632
027640
027646
027654
027660

012765
013765
012737
004737
104124

100000
001222
000013
032262

000000
000010
007354

MOV
MOV
MOV
JSR
ERROR

#CCLR,RKCS1(RS)
SUNIT.RKCS2(RS)
#RECAL ,HCS1
PC.DOCMD
:DO RECAL CMD & GET CONTR RDY
124
JRDY NOT SET AFTER RECAL CMD

027662
027670
027674
027702
027704
027706
027714
027720

012765
004737
032737
001001
104244
013737
004737
104055

000001
033722
020000

000026

001406
032672

007414

MOV
JSR
BIT
BNE
ERROR
MOV
JSR
ERROR

#1,RKMR1(RS)
PC.GSTAT
#D.RTZ,HMR2
70$
244
710, TEMP2
PC,FATTI
55

027722
027730
027736
027744

012765
013765
012737
004737

100000
001222
000005
032262

000000
000010
G07354

MOV
MOV
MOV
JSR

#CCLR,RKCS1(RS)
SUNIT.RKCS2(RS) ;DRIVE#
#CLEAR,HCST
PC,DOCMD
:00 DRIVE CLEAR CMD & GET CONTR RDY

027752

004737

032640

JSR

PC.TSTATN

027750

104151

007402

708:

ERROR

15§

;SELECT WORD 1

;RTZ NOT SET DURING RECAL CMD
*SETUP TIMEOUT
‘FIND ATIN
*NO ATTN AFTER RECAL CMD

*NO RDY AFTER DRIVE CLEAR CMD
sTEST FOR ATIN

SEQ 0108

~~a

MACY11

lala)

0P¥?IBUSS RK6 DR PRT2
04-JAN-82 12:46

027756
027760
027762

000401
106154

B8R

ERROR

718
154

SEQ 0109

JATTN NOT CLEARED AFTER DRIVE CLEAR CMD

2s:

027762

aNARAN AN RRANN

tTEST 17
FI FE FRFE FE TN X
TR TR YR NN NN FEFE NI
AR

000004
012737
012706

000001
001100

027776

005737

007522

027762
027764
027772

001174

AR AN

AR ANANNARANNA

AN RANRAARAN

R AR

TEST HEAD SWITCHING TIME

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

SECTOR 23(8) IS FIRST LOCATED AND A WRITE DATA COMMAND OF 512 WORDS
TO SECTOR 25(8) IS ISSUED.

2. THE PROGRAM NOW KNOWS THAT THE DRIVE WILL NOT HAVE TO TRAVEL
A FULL REVOLUTION BEFORE FINDING SECTOR 25(8).

3. SINCE EACH SECTOR TAKES APPROX.
THE START OF

THE WRITE COMMAND

1.2MS, THE TIME BETWEEN

(FROM SECTOR 25(8),

HEAD 0;

SECTOR 0, HEAD 1) AND CONTROLLER READY SHOULD BE APPROX 6MS
THE ABOVE

1S REPEATED FOR HEAD SWITCHING BETWEEN 1

TO 2

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

SRANAARRARRAARARAARAAA
AN R AN AR AN NN ANRARRNNANNANARAANR RN

T17:

SCOPE
MOV
MOV

#1,STIMES
#STACK,SP

::D0O 1

DOTIM

;BYPASS THIS TEST IF

ITERATION

04-JAN-82 12:46

04-JAN-82
13:04 PAGE 110
TEST CURRENT CROSS-OVER CYLINDERS

[T
)

P11

MACY11 3 (1046)
T16

(7. L X Olll"l.ll&"l'

*vfl

0 UNIBUSS RK6 DR_PRTZ2

~NO NS N

5 6 43
5 6 44

03 0002
03 0004

€01001
000526

BNE
BR

18
TST20

JNEITHER L OR P CLOCK PRESENT
.60 TO NEXT TEST

SEQ 0110

~Ne

MACY11 30¢( 1 046)
13:04 PAGE 111
04=JAN-82
T4
TEST HEAD SWITCHING TIME

lala

94 R 6 If 0 UN IBUSS RK6 DR_PRTZ2
€2 R 6 IF .P 1
04-JAN-82 12:46

030006
030014
030020

012737
004737

000025
034252

030022
030026

004737

035036

030030

106024

104106
000514

030032

MACY11

30(1046)
T17

007622

1%:
2%:

04=JAN-82

13:04

9
PAGC 112

TEST HEAD SWITCHING TIME

SEQ 011

#25,TEMPS

JHEAD O, SECTOR 21

sCERR AFTER SCLR

JSR
ERROR
BR

PC,FSEC23
106
TST20

;FIND SECTOR 23
;CANNOT FIND SECTOR 23
::60 TO NEXT TEST

MOV

#DATAO1 ,RKBA(RS)

MoV
MOV
MOV

#-512. ,RKWC (RS) :WORD COUNT

Mov

JSR
ERROR

PC,SUBCLR

TO BE PUT IN RKDA

000004
000010

030076

001476
000020
177000
007422
000023
001170
007354

000000

MoV

BIS

MIRDATA,HCS
$TMP4
, HCS

030104

004000

0074612

MoV

#4000, TEMP1

JSR

PC.DLY

;D0 DELAY

8IT
BNE
JSR
ERROR
JSR
ERROR

ggov.nxcs1<n5)

;LOOK FOR CONTROLLER READY

PC.FRDY
11
PC,GSTAT

:FIND RDY AND GET FRESH STATUS
*NO RDY AFTER SEL DRV CMD

BIT

ggznn.ncs1

030112

004737

033046

030116
030124
030126
030132

032765
001006
004737

000200
032356

030134
030140

004737

033722

03014¢

032737

100000

030150
030152

104011

104107

001444
104012

000000

007354

012737
005037
012737
012737
005037
012737
012737

010340
007446
001720
000001
007454
000002
000003

033100

030236

004737
000000
104052
104023
104053
104025

030240

023727

007422

000425

000137

000425
030014

007422

030154
030162

030214
030222

030262

BIS

7s:

8s$:

007444

BEQ
ERROR

:DATA 0101

#8A] ,RKCS2(RS)

;BUSS ADDR INCREMENT INHIBIT

TEMPS ,RKDA(RS)

:HEAD & SECTOR

HCST,RKCST1(RS)

:DO WRITE DATA CMD

107

;2000 IS IN VER 30,

*CHANGE TO 4000 7-DEC-77

;HEAD SWITCHING LONGER THAN DELAY

;CERR AFTER WRITE DATA

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

007450
007452

Mov
CLR
MOV
MOV

007456
007462

MOV
Mov

#2.E.B2
»..E.B3

JSR
.WORD
ERROR
ERROR
ERROR
ERROR

PC, CHKMSG

000

'8 MSGS SPECIFIED HERE

CMP
8EQ

TEMPS , #425
TST20

;HEAD 1,SECTOR 21 DONE?
1:60 TO NEXT TEST

CLR

MoV

3s:

JMP

;EXPECTED MSG B0

»1,E.B1

:MSG ID FOR EXPECTED MSG 81

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

E.A2

*MSG ID FOR EXPECTED MSG B2
:MSG ID FOR EXPECTED MSG B3
;CHECK MSGS AO, BO, A1, B1

:MSG A0
‘MSH BO
*MSG A1
*MSG B1

#4625 ,TEMPS
2
AR

;EXPECTED Al

SEXPECTED MSG A2

52
23
53
25

AR AR R AR AR AR AR AN

tTEST 20

EXPECTED MSG AO

E.BO

ERROR AFTER WRITE DATA CMD
ERROR
ERROR
ERROR

;ELSE REPEAT FOR HEAD 1, SECTOR 21

AN RN AR ARN R AN AR NN A RARN AN

DRIVE OFF TRACK TEST

AN RARRNNRNIRANS

e
NN

CZR6IFO UNIBUSS RK6 DR PRT2
CZR6IF
. P11
04=-JAN-82 12:46

THE ALLOTED 3Ms.

INITIALLY, EVERY CYLINDER IS FORMATTED WITH IDENTICAL HEADERS

A FULL SECTOR WRITE COMMAND IS ISSUED BY A SINGLE CYL SEEK FROM 0 TO 1.

%%
% %
%

B,y

00800
0,0,

004737

034252

030322

012700

001522

030326
030332

001346

030336
030342

013720
012720
012710
053720

030346
030352

104024

®e

-y Ve

030314
030320

012737

00001
001100

001174

100000

007422

007340
001346

(UNIQUE TO EACH CYLINDER)

AS HEADERS ARE IDENTICAL, THE NEXT SECTOR TO COME UNDER THE
HEADS WILL IMMEDIATELY BE WRITTEN.

IF THERE IS OSCILLATION SENSED BY READING THE TRIBITS,

DRIVE OFF

TRACK ERROR WILL SET.

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

SARRARARARANRRARARRAA
NN TR AN RN RAANR RN NN AN AN AR AN AR RN
AR

000004
012737

SEQ 0112

THIS TEST CHECKS FOR SERVO OSCILLATIONS DURING SETTLING TIME BEYOND

% %0888
%28

5701

030262
030264
030272
030276
030302
030306

MACY11 30(1046)
04~JAN-82 13:04 PAGE 113
720
DRIVE OFF TRACK TEST

T20:

SCOFE
MOV
MOV

1%:

2$:

#1,STIMES

#STACK,SP

::D0 1 ITERATION
sRESTORE STK PTR
;USED FOR VALID HALY

INC
CLR

MoV

BADHDR
TOCYL
#BIT15,TEMPS

JSR

PC,SUBCLR

:CERR AFTER SCLR

MOV

#HDTAB,RO

;FORMAT HEADERS ON ALL MAJOR CYL.

TOCYL,

sHEADER WORD 0:

ERROR

MoV

(RO)
+

CvyL #

Mov

001346

MOV
8IS

#140000, (R0)+
#140000, (RO)
TOCYL, (RO)+

sHEADER WORD 2: XOR OF 0 & 1
¢ADD CYL # TO WORD 2

020027
001365

001726

CMP

RO,#HDTAB+132.
2%

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

030354
030362
030370

012765
012765
013765

001522
177676
001346

000004
000002
000020

MOV
MOV
MOV

#HDTAB,RKBA
(RS)
#-66. ,RKWC (RS)
TOCYL ,RKDC(RS)

030376

012737
004737

000027
032320

007354

MOV

#<WRHEAD>,HCS1

004737
032737
001405

033722

ERROR

200

sNO RDY AFTER WRITE HEADER CMD

201

;CERR AFTER WRITE HEADER CMD

104200

104201
104401

030440

030440
030444
030450

140000
140000

100000

000137

045546
031476

006137
006137
023737

007422
001346
001346

JSR

007354

648%:

015462

PC . DATCMD

:HEADER WORD 1: ALL SECTOR 0

;DO DATA X FOR CMD & GET CONTR RDY

JSR
BIT
BEQ
ERROR
TYPE

PC,GSTAT
#CERR,HCST
64$

JMP

$EOP

ROL

TEMPS

:SET CARRY ONLY ONCE

CMP

TocYL.mC1

sALL MAJOR CYL FORMATTED?

ROL

MSG26

TOCYL

sGET FRESH STATUS

:ABORTING BAL OF

TESTS

<SELECT NEXT MAJOR CYL

lala)
~NN

CZR6IFO UNIBUSS RK6 DR PRT?
CZROIF.P1
04-JAN-82 12:46

MACY11

030456
030460

001216
005065

030464
030472
030476

012737
004737
106131

000017
032262

007354

030500
030506
030512

013737
004737
104132

001420
032766

007412

030514
030522
030524

032737
001401

100000

007354

000020

SEQ 0113

BNE
CLR

18
RKDC (RS)

:BR IF NO
*SETUP TO RETURN TO CYL 0

MoV

#SEEK,HCS1
PC.DOCMD

;DO SEEK CMD & GET CONTR READY

750000, TEMP1
PC,FATT2

;SETUP TIMEOUT
SFIND ATTN

JSR
ERROR

MOV

JSR
ERROR

BIT
BEQ
ERROR

1046210

131

132

*NO RDY AFTER SEEK CMD

*NO ATTN AFTER SEEK CMD

#CERR,HCS1

658
210

:CERR AFTER SEEK CMD

; ITERATION COUNTER

mMov

#STACK, SP

;RESTORE STK PTR

MoV

TOCYL.CALDIF

;SETUP FUR ERROR PRINTOUT

JSR
ERROR

PC.SUBCLR

#EORM, SESCAPE

65%:

030526
030526
030530
030536

005000
012737
005037

030542
030544

012706

001100

030550

013737

001346

030556
030562

004737
104024

034252

030564
030572
030600
030606
030614

012737
013765
012765
052765
012765

031220
001346
001500
000020

001176
000020
000004
000010
000002

Mov
MoV
MOV
BIS
MoV

030622
030630
030634

012737
004737
104011

000023
032320

007354

MOV
JSR

030636
030642
030650
030652

004737
032737
001401

033722

030654
030662
030664

032737

100000

104415

000001
001344

177400

020000

CLR

001346

MoV

CLR

SCOP1

001354
3s:

ERROR

007404

007354

#1,T0CYL
FRCYL

5S$:

SSETUP TO CYL #

:CERR AFTER SCLR

TOCYL.RKDC(RS)
#DATAT,RKBA(RS)

:GO TO CYL #
:ALL 1°'S

#-256. ,RKWC(RS)

; SECTOR TO BE ALL 1°S

MVRDATA,HCS1
PC,DATCMD
11

;DO WRITE DATA CMD & GET CONTR RDY
*NO RDY AFTER WRITE DATA CMD.

PC.GSTAT

:GET FRESH STATUS

112

:DRIVE OFF TRACK AFTER WRITE DATA CMD

#BA],RKCS2(RS)

gg.onor.unns

1064112

*SEE IF DRIVE OFF TRACK

ggenn.ncs1

030666

030666
030674
030700
030706
030714
030720

30(1046)
04-JAN-82 13:04 PAGE 114
120
DRIVE OFF TRACK TEST

:CERR SET AFTER WRITE DATA CMD

6$:
010340
007446
001720
000001
007454
000002

007444

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

007450
007452

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

007456

EXPECTED MSG AQ

E.BO

; EXPECTED MSG BO

”,E.B1

sMSG ID FOR EXPECTED MSG B1

E.A2
#2,E.8B2

SEXPECTED MSG A2

+MSG ID FOR EXPECTED MSG B2

;EXPECTED Al

lals)
NN

CZROIFO UNIBUSS RK6 DR PRTZ2
CZR6IF.P11
04-JAN-82 12:46

030726

012737

000003

030734
030740
030742
030744
030746
030750
030752
030760
030762

004737
3

033100

001360

030764
030764
030766

K 9
MACY11 30(1046)
04~JAN-82 13:04 PAGE 115
120
DRIVE OFF TRACK TEST
007462

001346

7%:

Mov

#3,E.B3

;MSG ID FOR EXPECTED MSG B3

JSR
.WORD
ERROR
ERROR
ERROR
ERROR
CMP
BEQ
ERROR

PC,CHKMSG

;CHECK MSGS A0, B0, A1, B1
;& MSGS SPECIFIED WERE
;MSG AQ ERROR AFTER WRITE DATA CMD

SCOP1

T.A2!T7.B2!'0

52
23
53
25

:MSH B0 ERROR

;CYL ADDR IN RKMR3 NOT
= RKDC

JRESTORE STK PTR

MOV

#STACK,SP

030772
030776

034252

JSR
ERROR

PC.,SUBCLR

031000
031006
031014

001500
000020

000004
000010
000002

MOV

#DATA1,RKBA(RS)
#BA] ,RKCS2(R5)
#-256. RKWC(R5)

031022
031030
031034

000023
032320

007354

MOV

031036
031042
031050
031052

004737
032737
001401

033722
020000

031054
031062
031064

032737
001401

100000

JSR
ERROR
JSR

104112

8$:

104012

JRETURN TO CYL O

;DO WRITE DATA CMD & GET CONTR RDY

PC,GSTAT

;GET FRESH STATUS

8s
112

sDRIVE OFF TRACK AFTER WRITE DATA CMD

#D.DROT ,HMR3

BIT

#CERR,HCST

BEQ
ERROR

;CERR AFTER SCLR

#WRDATA HCS1
PC.DATCMD
n

BIT
BEQ

- ERRCR

007354

9s
12

;NO RDY AFTER WRITE DATA (MD

;CERR AFTER WRITE DATA CMD

9%:

012737
005037
012737

012737

004737
000003
104052
104023
104053
104025

005737
001401
104042

019340
007446
001720
000001

007454
000002
000003

033100

001360

007444

MOV

g<060.SPIN!D.DRDY!D.VV!D.DRA>,E.A0

007450
007452

MOV
MOV

#<D.SS?K'D.CART!D.DOOR!D.BRHM!D.SSP>,E.A1
;EXPECTED Al
#1,E
sMSG ID FOR EXPSCTED MSG B1

007456
007462

MOV
MOV

#2,E.82

E.AQ

A
:EXPECTED MSG
sMSG ID FOR EXPECTED MSG B2
:MSG ID FOR EXPECTED MSG B3

JSR
.WORD
ERROR
ERROR
ERROR
ERROR
TST
BEQ
ERROR

PC,CHKMSG

sCHECK MSGS A0, BO, A1, B1

CLR

;EXPECTED MSG B0

T.A2!7.82!0

£ =2 PNOWNINOW
O
< N NN

NN—
OO
OSBRSS
W
OO
NOS

b—

d md

e ok

e
o
e

b od md e

b o
d

—d md

WNN

) le]=]

NN NN

=l=lelelelelelo]

MOV

007404

031066
031066
031074
031100
031106

BlS

:MSG A1 ERROR
:MSG B1 ERROR

CYLADD,TOCYL
’$
113

001100

177400

SEQ 0114

® MSGS SPECIFIED HERE

;MSG AQ ERROR AFTER WRITE DATA (MD

;MSH B0 ERROR
ADD

EXPECTED MSG AQ

;MSG A1 ERROR
:MSG B1 ERROR

sNOT BACK TO CYL O

el
N~

CZRGIFO UNIBUSS RK6é DR PRT?
CZROIF P11
04-JAN-82 12:46

NNVNOO
OSSN
=200
N
&SNS
W)
OSSO0
SN
O

b
b
b
b

001176
001346

004737

034252

D
s

005037
005037
012737

NN~

005000
006337
023737
001402
000137

ond o

OO0CO0O0

b
d b

OO0
(NN

b ed

OO
W

005200
020027
001402
000137

OO0O0O0

104024

001346
001346

13%:

015462

030556

100000

001346
031266
031274
031302
031310

001346
000000
000000
035250

031314

000027
032320
033722

100000

FORM:

007422
12$:

sALL ITERATIONS DONE?

JMP

13$

;BR IF YES
;ELSE DO AGAIN

CLR

sRESET ITERATION CTR

;ALL MAJOR CYL DONE?
;BR IF YES
SELSE DO NEXT CYL

ASL
CMP
BEQ

CLR
CLR
MOV
JSR

TOCYL
TOCYL ,MC1
FORM

$ESCAPE
TOCYL
#8IT15, TEMPS
PC.SUBCLR

JRESTORE TO ORIG 22 SECTOR FORMAT,

ERROR

000004
000002
000020

MOV
MOV
MOV

#HDTAB,
RKBA (RS) SJREFORMAT ALL MAJOR CYLINDERS
#-66. ,RKWC (RS)
TOCYL _RKDC (RS)

001362
001460

MOV

001466

045546
031476

PC.FHDTAB

JHEADER
;s TABLE

MOV
JSR

#<WRHEAD> ,HCS1
PC,DATCMD

;DO DATA X FOR CMD €& GET (ONTR RDY

JSR
BIT

PC.GSTAT
#CERR,HCS1

TYPE

,MSG26

BEQ
ERROR
:
648

007422
001346
001346

031376
031402

005065
005037

000020
001176

031406
031414
031420

012737
004737

000017
032262

007354

031422
031430
031434

013737
004737

001420
032766

007412

JMP

ROL

015462

;SETUP

#0.HEAD
#0.FORMAT

ERROR

007354

TOCYL, CALADD

sCERR AFTER SCLR

MOV
MOV
JSR

007354

006137
006137
023737
001320

104132

RO
RO,#100.

JMP

031356
031362
031366
031374

1064131

INC
CMP

BEQ

030556

177676

000137

ROL

200

648
201

$EOP

;70 FILL

sNO RDY AFTER WRITE HEADER CMD
;GET FRESH STATUS

sCERR AFTER WRITE HEADER CMD
JABORTING BAL OF TESTS

TEMPS

TOCYL

CMP

TOCYL,MC1

12$

sALL MAJOR CYL REFORMATTED?
;BR IF NO

CLR
CLR

RKDC (RS)
$ESCAPE

sSETUP TO RETURN TO CYL O

MOV
JSR

NSEEK ,HCS1
PC,DOCMD

MOV
JSR

750000, TEMP1
PC.FATT?

BNE

ERROR

131

138

;DO SEEK CMD & GET CONTR READY
sNO RDY AFTER SEEK CMD
;SETUP TIMEOUT

JFIND ATTN
sNO ATTN AFTER SEEK CMD

SEQ 0115

L 9
04-JAN-82
13:046 PAGE 116
30(1046)
120
ORIVE OFF TRACK TEST
108:

000144

001522

031356

MACY11

~NN

CZR6IFO UNIBUSS RK6 DR _PRT?
CZROIF.P11
04-JAN-82 12:46

CZRGIFO _UNIBUSS RKGL DR _PRTZ2
CZR6IF.PN
064~JAN-82 12:46

632737
001401

100000

MACY11 30(1046)
120

007354

1046210

04-JAN-82

13:04

n9
PAGE 117

DRIVE OFF TRACK TEST
BIT
BEQ

#CERR ,HCST

ERROR

65%
210

;CERR AFTER SEEK CMD

TST
BEQ
CLR
CLR
JMP

HPEND
43
HPEND
BADHDR
STOP

;SEE IF HALT PENDING
s8R _IF NO
sCLEAR FOR FUTURE FORMATTING
JHEADERS NOW 0K
;GO BACK & HALT CPU

CLR

BADHDR

sHEADERS NOW 0K

65%:
005737
001406
005037
005037
000137

007342

005037

007340

007342
007340
036320
4%:

SEQ 0116

CZRGIFO UNIBUSS RK6 DR _PRT?2
CZR6IF.P1N
C4~JAN-B2 12:46

MACY11

“941

.SBTTL

3942

59¢3
5944

5958

SEQ 0117

END OF PASS ROUTINE

'INCREHENT THE PASS NUMBER ($PASS)

s*TYPE 'END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER)

:«]F THERES A MONITOR GO TO IT
s*IF THERE ISN'T JUMP TO STAPT
031476

$EOP:

000004
005037

012737
012706
005237
023737
001404
005037
000137
005037
000401
000004
005037
005037
005237
0642737

001176
000001
001100

001220

001102
001174
001216

100000

SCOPE
CLR

001174

001216

031655
001216

MOV
MOV

INC
CMP
BEQ
CLR
JMP
18:
CLR
BR
$EOP1:
SCOPE
CLR
CLR
INC
BIC
DEC
$EOPCT: .WORD
86T
MoV
$ENDCT: . WORD
SEOPCT

TYPE
Mov
TYPDS
TYPE
$GET4L2: MOV

031652
000042

BEQ

$SENDAD:

000240
000240

031662
031670

031672
031700
031702
031710
031712

000137
031672
377
015
050040
000043
122737

005237

$DOAGN:
Eada®
]

5955
5956
5957

N9
PAGE 118

SRR AAARRANRAARNANNAART
RN AANANAAAAAAARARNERNNRAANIANNRNRNONORND

WWNWNN
— = O

5945
5946
5947
5948
5949
5950
5951
5952
5953
5954

13:04
30(1046)
04~JAN-8?2
END OF PASS ROUTINE

000
042116
020123

000001

001230

001216

000002

37
04241
05150

001102

SRTNAD:
SENULL:

S$ENDMG:

RESET

SESCAPE
#1,STIMES

#STACK,SP

SDEVCT
?§IVS.$DEVC7

BSERR

NUDRV

BSERR
SEOP1+2

$TSTNM
STIMES
$PASS
?100000LSPASS

s INCR COUNT FOR # DRIVES CHECKED
sARE ALL DRIVES PRESENT TESTED?
¢BR_IF YES
sCLEAR BAD SECTOR ERROR FLAG
sELSE TEST NEXT DRIVE PRESENT
sCLEAR BAD SECTOR ERROR FLAG

;sZERO THE TEST NUMBER
:;1ERO THE NUMBER OF [TERATIONS
::INCREMENT THE PASS NUMBER
::Egg;z ALLOW A NEG. NUMBER

$DOAGN
%PC)+.8(PC)+

..RESTORE COUNTER

. SENDMG

;:TYPE "END PASS #''

.SENULL

soTYPE A NULL

$PASS ,-(SP)

a#é?2 RO
$DOAGN

JSR
NOP
NOP
NOP

PC. (RO)

JMP
.WORD
.BYTE

a(PC)+
STAPT

JYES

;:SAVE SPASS FOR TYPEOUT
;.60 TYPE--DECIMAL ASCI] WITH SIGN
CHARACTER

:2GET MONITOR ADDRESS
;:BRANCH IF NO MONITOR
2sCLEAR THE WORLD
260 TO MONITOR
; :SAVE ROOM
: :FOR

TIACTN
.0

; ;RETURN

LASCIZ <15><12>/s~o PASS’ #/

:NULL

CHARACTER STRING

cADD WAITING LOOP FOR THE APT MODE
STAPT:

1%:

(MPB

BNE
CMP
BLO
INC

géPTENV.SENV

. TWO PASS DONE ?,AS REQUIRED BY
$PASS
, #2
:NOT YET
28
STSTNM
: INCREMENT THE TEST NUMBER

CZRGIFO UNIBUSS RK6 DR _PRTZ2
CZR6IF .P11
04-JAN-82 12:46
5997
5998

031716
031720

000775
000137

013372

MACY11 30(1046)
04~JAN-82 13:04
END OF PASS ROUTINE
28:

BR
JMP

18
STS

B 10
PAGE 119
;WAITING LOOP FOR APT TO DUMP NEXT PROG
;sRETURN TO MAIN LOOP

SEQ 0118

CZR6IFO UNIBUSS RK6 DR_PRT2
CZR 61F.P1 1
04-JAN-82 12: 46

MACY11 30(1046)

04-JAN-82

.SBTTL

SUBROUTINES

SUBROUT INES

13:04

c 10
PAGE 120

sSUBROUTINE TO CLEAR ALL FLAGS FROM DDUMP THRU DOTIM
031724
031730
031734
031736
031740
031742

012700
012701
005020
005201
001375
000207

007464
177757

CLRFLG: MOV
1%:

Mov
(LR

INC
BNE
RTS

#DDUMP RO
#=17..R1
(RO)+
R1
1%

:TYPE PROGRAM ID IF FTITLE=0
031744
031750
031752
031756

005737
001024
005237

001340

104401

001340
043542

031762
031766
031770

005737

000042

000403
112737
032022

TITLE:

.SBTTL

001230

000001

001140

000176

000001

001134

000207

TST

BNE

FTITLE

INC
FTITLE
TYPE
,MSG1
sPROGRAM ID
GET
VALUE’EgR SOF TWARE SWITCH REGISTER
TST
::ARE WE RUNNING UNDER XXDP/ACT?

BNE
CMPB

648
SENV.
M

cMP
BNE
GTSWR

SWR,#SWREG
65%

B8EQ

643

64S$:

B8R
MOVB

653
#1,3AUT08

18:

RTS

65$:

s sBRANCH IF YES
s:ARE WE RUNNING UNDER APT?
s sBRANCH IF YES
ssSOFTWARE SWITCH REG SELECTED?
: :BRANCH IF NO
::GET SOFT=-SWR SETTINGS

ssSET AUTO-MODE INDICATOR

*ROUTINE TO INPUT DRIVE NOS. TYPED IN & SET

*DRIVS, DRIVO-DP'V? REGISTERS APPROPRIATELY
.

’

032024

GDRVS:

177770
177400

007476

032046

000060

032052
032054
032056
032060
032062
066

032100

18:

2$:

000070

001426

177770

RDLIN
MOV
Mov

(SP)+,RO
#-8. R

MOV

#177460,r2
#DRIVO,R3

#60,R4

sGET STARTING ADDR OF ASCII STRING
sSET UP COUNT
sGET ASCII CHAR
¢MASK H] BYTE
:DRIVE FLAG ADDR

CMP

R4 ,R2

;WAS TYPED CHAR 0 THRU 7?

Movs
8IC
MOV

BEQ
TST
INC
CMP
BNE
TST
BNE
CMP
BEQ

(RO) +,R2

3s
(R3)+

R4
R4, 470

sBRANCH IF YES
sNO, INCREMENT DR FLAG ADDR

:$/8 0-7 OR TERMINATOR

sDEFAULT ALL DRIVES

SEQ@ 0119

CZRGIFO UNIBUSS RK6 DR PRT2
CZR6IF .P11
04-JAN-82 12:46
6055
2829

032102
032106

005037
000207

6058
6059
6060

032110
032112
032116

005213
005237
112002

6062
6063
6064
6065
2829

032124
032130
032132
032134
032136

022702
001407
005702
001001
000761

000054

6068
2893

032140
032144

104401
000137

046331
012562

6071
6072
28;2

032150
032152
032154

005201
001330
000771

6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086
6087
6088
6089
6090
6091

032156
032162

005237
000207

6061

032120

042702

D 10

MACY11 30(1046)
04~JAN-82
13:04 PAGE 121
GET VALUE FOR SOFTWARE SWITCH REGISTER

007524

007474

§105

6109

6110

SIZFLG
PC

JBYPASS TEST 1 (SIZ NC
JFOUND TERMINATOF, cXxI1

38:

INC
INC
MOVB

aR3
DRIVS
(RO)+ ,R2

:SET UP FLAG FOR THE DRIVE
; INCREMENT TOTAL # DRIVES TO BE TESTED
JGET NEXT ASCII CHAR.

#54 ,R2
5%
R2
43
7%

JIS IT A COMMA?
;YES, GO TO NEXT WORD.
:NO, IS IT A TERMINATOR?
;IF NOT, SOMETHING WRONG.
;FOUND TERMINATOR, EXIT

BIC

#177400,R2

*MASK

TYPE
JMP

LEM1
PRGSRT

;ONLY 0-7 ALLOWED.
:START ALL OVER

5$:

INC
BNE
BR

R1
18
48

:S/B NO MORE THAN 8 OIFF
:DRIVES TYPED IN.
:1F NORE, HAVE ERROR.

6$:

INC
RTS

SIZFLG
PC

;D0 TEST 1
SEXIT.

(SIZING)

:
;ROUTINE TO INPUT RKBAS OR DEFAULT.
:
032164
032166

032170

032172
032174

032200

032202
032210

104412
012600
005700
001403
010037
000207
012737
000207

GBA:

001264
177440

001264

1$:

RDOCT
MoV
TST
BEQ
MOV
RTS
MOV
RTS

(SP)+,RO
RO

1%
RO, $BASE
PC
#177640,8BASE
PC

:GET LOW ORDER FROM STACK
:BRANCH IF DEFAULT.
;DEFAULT VALUE

JROUTINE 70 INPUT RKVEC OR DEFAULT
032212
032214
032216
032220
(032222
032226
032232
032234
032242

104412
012600
005700
001405
010037
004737
000207
012737
000771

GINT:

001314
032244
000210

2}89

6108

CLR
RTS

CMpP
BEQ
TST
BNE
BR

2835

6094
6095
6096
6097
6098
6099
6100
6101
6102
6103

7%:

177400

207524

SEQ 0120

2$:
001314

1$:

RDOCT
MOV
TST
BEQ
MOV
JSR
RTS
MOV
BR

(SP)+,RO
RO
1$
RO,RKVEC
PC,SETINT
PC
#210,RKVEC
23

:GET LOW ORDER FROM STACK
:BRANCH IF DEFAULT

;DEFAULT VALUE

JROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY
032244

032250

013700

012720

001314

036756

’

SETINT: MOV

MoV

RKVEC,RO

#INTER, (RO) +

:INTER ADDR TO RKVEC

032254
032260

013710
000207

MACY1]

30(1046)

04-JAN-82

13:04

E 10
PAGE 122

SEQ 0121

GET VALUE FOR SOFTWARE SWITCH REGISTER

001316

MOV

RTS

gEPRI,(RO)

;PRS TO RKVEC+2

:THIS ROUTINE CDT IN RKCS1 IF DRIVE UNDER TEST IS AN RKO7.
cENTER WITH COMMAND IN HCS1
032262
032270

032316

053737
013765
013737
004737
000207

001170
007354
001406
032356

007354

000000
007412

DOCMD:

BIS

$TMP4 HCST

;SET CDT IF RKO7

JSR

PC,FRDY
PC

sFIND CONTR READY
;SET HERE IF NOT RDY

MoV
MOV
RTS
ADD
RTS

000002

HCS1,RKCST(RS)
710, TEMP1

gg.(SP)

;DO COMMAND

sELSE SKIP OVER ERROR

:THIS ROUTINE IS SIMILAR TO THE ABOVE BUT IS USED FOR DATA TRANSFERS
;& REQUIRES A LONGER TIMEOUT

032320

032354

053737
013765
013737
004737
000207
062716
000207

001170
007354
001420
032356

007354
000000
007412

DATCMD: 8IS

MOV
MOV

JSR

RTS
ADD
RTS

000002

JROUTINE

$TMP4 ,HCST
HCS1,RKCST(RS)

;SET CDT IF RKO?
DO CMD

;g.rnov

;FIND CONTR RDY

150000, TEMP1
|&

#2.(SP)
PC

TO FIND CONTROLLER READY

(RDY)

DURING A DELAY

SENTER WITH A COUNT IN TEMPT
JRETURN IF RDY NOT PRESENT (ERROR CONDIT]ON)
;RETURN +2 IF RDY PRESENT (SKIP OVER ERROR)
sSTATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE
032356

032765

000200

000000

FRDY:

007412

SRR
VIS
NN 2OV
O N

b
b and —
b
b
b cnd
b v
—d o

O\ONONON AN WA

(o Yo Yo Yo Yo Yo No Yo No Yo No Yo ¥

000207

#RDY ,RKCS1(RS)
18

JSR

PC,.CKCERR

DEC
BNE
JSR

032512
033640

032422

BIT
BNE

000002
032512
033640

1$:

RTS

ADD
JSR

JSR

RTS

TEMP1
FRDY
PC,HOLD
PC

#2,(SP)
PC,HOLD

PC.,CKCERR
PC

sSTORE ALL RK611

REGS IN HOLDING REGS.

sCHECK FOR SPECIAL CERR
<NO RDY,

EXIT

:SKIP OVER ERROR

sCHECK FOR SPECIAL CERR

JROUTINE TO FIND CONTROLLER READY AND STORE DRIVE REGS ONLY
032424

032765

000200

000000

FRDY1:

007412

032464

000207
062716

000034
000036
033640

000002

007402
007404
1$:

BIT

BNE
DEC
BNE
MOV
MoV
JSR
RTS
ADD

#RDY ,RKCST(RS5)

1%
TEMP1
FRDY1
RKMR2
(R5) ,HMR2
RKMR3(RS5) ,HMR3
PC,CKCERR
PC
#2,(SP)

sCHECK FOR SPECIAL CERR CONDITIONS
sNO RDY, EXIT
;SKIP OVER ERROR

UNIBUSS RK6 DR PRT?
P11
04~JAN-82 12:46

CZROIFO UNIBUSS RK6 DR _PRT?2
CZR6IF.PN
04-JAN-82 12:46

032470
032476
032504
032510

016537
016537
004737
000207

000034
000036
033640

MACY11

F 10
30(1046)
04~JAN-82
13:04
PAGE 123
GET VALUE FOR SOFTWARE SWITCH REGISTER

007402
007404

MOV
MOV
JSR
RTS

RKMR2
(R5) ,HMR2
RKMR3(RS) ,HMR3
PC,CKCERR
PC

SEQ 0122

sCHECK FOR SPECIAL CERR CONDITIONS

VLIV LV AV IV AV VLV, LV, IV, ]
W W W N NN N N N NN NN N
~ ~ N NNNNNNNNNNN
(9,]\ ¥, ] ALV

b
b
d md
D e
b ad
d e
b
b

032636

o ooooooorOrOr
O NMONONONONON

032512
032520
032526
032534
032542
032550
032556
032564

[oleleleleleleloaleleloelelolela)

:STORE ALL RK611 REGISTERS IN HOLDING REGS

00207

000000
000010
000002
000004
000006

000012
000014
000016
000020
000026
000034
000036
000030
000032

007354
007356
007360
007362
007364
007366
007370
007372
007374
007400
007402
007404
007406
007410

HOLD:

MOV
MOV
Mov
MoV
MOV
MOV
MOV

RKCS1(RS) ,HCST
RKCSZ(RS),HCSZ
RKWC (RS) ,HW(
RKBA(RS) ,HBA
RKDA (RS) ,HDA
RKDS (R5) -HDS
RKER(RS) _HER

MOV
MOV
MOV
MOV

RKDC (RS) HDC
RKMR1 (RS, HMR1
RKMR2 (R5) . HMR?2
RKMR3 (R5) JHMR3

MOV

MOV
MOV
RTS

RKASOF (RS) , HASOF

RKECPS (RS5 ,HPOS
RKECPT (RS) _HPAT

:ROUTINF TO CHECK FOR CORRECT ATTN

JRETURN IF ATTN NOT PRESENT (ERROR CONDITION)

sRETURN +2 IF ATTN PRESENT (SKIP OVER ERROR)
032640
032642
032646
032654
032656
032660
032664
032666
032670

010446
013704
136437
001404

012604
062716
000207
012604
000207

001222
007344

TSTATN: MOV
007373

000002

JROUTINE

;SAV Ré4

gg.(SP)

sINCR RET ADDR TO JUMP OVER ERROR.

(SP) + R4
PC

sRESTOR Ré

SUNIT,RG
ATTN(R&) ,HASOF +1
19
:BRANCH IF ATTN NOT PRESENT
(SP) + R4
cRESTOR Ré

MOV
RTS

agg
18:

R4 ,~(SP)

MOV
BITB
BEQ
MoV

TO FIND ATTN WITHIN TIMES GREATER THAN 1

SEC

032722
032724

N=NSWNESE O

032672

OO00O—=000

JENTER WITH TIME IN SECONDS IN TEMP?
JRETURN IF NO ATTN (ERROR CONDITION)
sRETURN +2 IF ATTN FOUND
;STATUS 1S OBTAINED BEFORE THE RETURN FOR EITHER CASE

177777

001222
07344

007412
007414

007412
000017

FATT1:

MOV

R4, -(SP)

18:

MOV
gaga

SUNIT.RG
s;ru(n4)LRKASOF+1(RS)

DEC
BNE
DEC

TEMP1
1$
TEMP2

38:

MOV

»-1,TEMPI

:SAV R4

:FIND CORRECT ATTN

CZR6IFO UNIBUSS RK6 DR _PRT?

CZR6IF .PI

6223
6226
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237
6238

032730
032732
032736
032742
032744
032746
032752
032756
032760
032764

04~-JAN=-82 12:46

001361
005065
004737
012604
000207
005065
004737
012604
062716
000207

MACY11 30(1046)

000026
033722
000026
033722

2$:

000002

032766
032770
032774
033002
033004
033010
033012
033016
033022
033024
033026
033032
033036
033040
033044

010446
013704
136465
001011
005337
001367
005065
004737
012604
000207
005065
004737
012604
062716
000207

001222
007344

000026
033722

18:

000002

3s
RKMR1(RS)
PC.GSTAT
(SP)+,R4
PC
RKMR1 (RS)
PC,GSTAT
(SP)+ R4
#2,(SP)
PC

SELECT WORD 0
JGET LATEST STATUS
;RESTOR R&
;GET STATUS AFTER ATTN SEEN
JRESTOR R4
:SKIP OVER ERROR

MOV
MOV
8178
BNE
DEC
BNE
CLR
JSR
MoV
RTS
CLR
JSR
MOV
ADD
RTS

R4 ,-(SP)
;SAY R4
SUNIT,R4
ATTN(RG) ,RKASOF+1(RS)
:FIND CORRECT ATIN
18
TEMP1
23
RKMR1(RS)
:SELECT WORD 0
PC,GSTAT
;GET LATEST STATUS.
(SP) + R4
:RESTOR R4
PC
RKMR1(RS)
PC,GSTAT
(SP) + R4
:RESTOR R4
#2,(SP)
;SKIP OVER ERROR
PC

JENTER WiTH A COUNT IN TEMPI
;THE DELAY IS APPROX 17 US/ITERATION + 12 US TO EXIT

JWHEN COUNT IS 0. BASED ON AN 11/05
033046

005737

007412

6264

033054

005337

007412

033052
033060
033062

001403

000772
000207

DLY:

1$:

gsgg
6271
6272
6273
6274
6275
6276
6277

000017

FATT2:
2$:

007412

6262

6270

BNE
CLR
JSR
MOV
RTS
CLR
JSR
MOV
ADD
RTS

JSTATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE

ggg?

6265
2529

610
PAGE 124

:
:ROUTINE TO FIND ATTN WITHIN 1 SEC
JENTER WITH COUNT IN TEMPI
JRETURN IF NO ATTN (ERROR)
RETURN +2 IF ATTN FOUND

6258
6259

6263

13:04

GET VALUEL FOR SOFTWARE SWITCH REGISTER

ggzg

6241
6242
6243
6244
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
25;9

04-JAN-82

TEMP1

:5.6 US

DEC

TEMP1

;6.8 US

BEQ
BR
RTS

113

DLY
PC

:1.9 US

;2.5 US
;3.8 US

sTHIS ROUTINE TYPES BYPASSED DRIVEX#.
033064
033070

104401
010046

033072
033074
033075
033076

104403
001
000
000207

045435

’

8YP:

TYPE
MOV

MSG14
RO,-(SP)

TYPOS
.BYTE
.BYTE
RTS

1
0
PC

ENTER WITH DRIVE#X# IN RO

;BYPASS DRIVE
::SAVE RO FOR TYPEOUT
;:TYPE DR#
;:G0 TYPE--OCTAL ASClI
J:TYPE 1 DIGIT(S)
s sSUPPRESS LEADING ZEROS

SEQ 0123

:THIS ROUTINE READS ALL MSG A & B WORDS & CHECKS THEM AS REQ'D.

017637
062716
004737

000000
000002
033756

001520

CHKMSG: MOV

053737

001222
001222
001222
001222
015470

007444
007450
007454
007460
007444

BIS
BIS
BIS
BIS
BIS

E.DDT,E.AQ

;ADD DRIVE TYPE

033154

013746

007412

MOV

TEMP1,~(SP)

:SAVE TEMP1

033160
033166
033172

013737
004737
013737

007444
036214
007412

007612

MoV
JSR
MOV

E.AQ,TEMP1

033200
033206

007450
036214
007412

007412

033212

013737
004737
013737

033220
033226
033232

004737
013737

013737

007454
036214
007412

007412

033240
033246
033252

013737
004737
013737

007446
036214
007412

007412

033260
033266
033272

013737
004737
013737

033300
033306
033312

ADD
JSR

007444

a8(SP) ,CHKFLG
#2,(SP)
PC.GSTATT

;PASS MSGS TO BE TESTED
sBUMP RETURN ADDR TO 1ST ERROR
sGET ALL ACTUAL DRIVE & CONTR STATUS

SUNIT,E.AD
SUNIT E.AT
SUNIT E.A2
SUNIT E.AY

sSET UNIT #

PC,SBPAR

E.A1,TEMPT

MOV
JSR
Mov

PC,SBPAR

MOV
JSR
Mov

PC,SBPAR

007446

MOV
JSR
MOV

PC,SBPAR

007452
036214
097612

007412

MoV

013737
004737
013737

033320
033326
033332

007450

007454

TEMP1,E.A1

E.A2, TEMPI
TEMP1,E.A2

E.B0,TEMP1
TEMP1,E.B0

E.B1,TEMP1

007452

JSR

MOV

PC, SBPAR

007456
036214
007412

007412
007456

MOV
JSR
MOV

PC,SBPAR

013737
004737
013737

007462

007612

MoV

E.B3,TEMP1

007462

MoV

TEMP1 E.B3

033340
033344

012637
013737

007412
001176

001172

MOV
MOV

$ESCAPE ,5TMPS

033352
033360

007424

007444

033374

001176

033372

023737
001411
012737
011646
000207

033374
033402
033404

032777
001107
062716

001000

033410

023737

007426

036214
007412

145536

007446

TEMP1 ,E.B2

;GET PARITY FOR MSG A2

;GET PARITY FOR MSG BO

;GET PARITY FOR MSG B1

JGET PARITY FOR MSG B2

;GET PARITY FOR MSG B3

(SP)+,TEMP1

sRESTORE TEMP1
sSAVE ESCAPE

"CMP

H.A0,E.A0

MoV
MoV
RTS

#18,SESCAPE
(SP) ,-(SP)
PC

;TEST MSG AO
;BR IF OK
;ELSE SETUP ESCAPE
:COPY RET ADDR.

BIT
BNE

#SW9,aSWR

ADD

208
#2,(SP)

JRET HERE FROM MAINLINE ERROR
;% 3R IF LOOP ON ERROR
;BUMP RET ADDR TO NEXT ERROR

CMP

H.B0,E.BO

;TEST MSG B0

BEQ

2%:

000002

E.B2,TEMP1

;GET PARITY FOR MSG Ai

PC,SBPAR

JSR

18:

TEMP1 ,E.B1

JGET PARITY FOR MSG AQ

;& RETURN TO MAINLINE ERROR

H 10
30(1046)
04-JAN-82 13:04 PAGE 125
GET VALUE FOR SOFTWARE SWITCH REGISTER

SEQ 0124

[alal

MACY11

CZR6IFO UNIBUSS RK6 DR _PRTZ2
CZROIF.PT
04~JAN-82 12:46

—

CZR6IFO UNIBUSS RK6 DR _PRT?
CZR6IF .P11
04-JAN-82 12:46

033416

MACY11 30(1046)

033430

001411
012737
011646
000207

033432
033440
033442

032777
001070
062716

001000

033446
033454
033456
033464
033466

023737
001411
012737
011646
000207

007430

007450

033470

001176

033470
033476
033500

032777
001051
062716

001000

033504

033512
033514
033522
033524

023737
001411
012737
011646
000207

007432

007452

033526

001176

033526
033534
033536

032777
001032
062716

001000

033542
033550
033552
033556
033564
033566

032737

0000u1

001520

032737

034642
000002

001520

033572
033600
033602
023606

032737
001404
004737
004737

000004

033612
033620

013737
000207

001172

001176

033622
033626
033634

012706
013737
000177

00110
00117
14525

001176

001402
004737

145500

5%:

145442

165404

000002

(SP5,=(SP)

#5W9,aSWR

sRETURN HERE FROM MAINLINE ERROR

ADD

#2.(SP)

sBUMP RET ADDR TO NEXT ERROR

CMP
BEQ

H.A1,E.A1
8$
#7$,$ESCAPE
(SP) ,=(SP)

BIT
BNE

MOV
MOV
RTS

7%:

8s:

000002

Mov
MOV
RTS

48:

10%:
11$:

128:

034714

001520

100000

sTEST MSG A1
:BR IF 0K

#SW9,3SWR

cMp
BEQ

H.B1,E.B1
118
#108, SESCAPE
(SP).=(SP)

208

#2,(SP)

JTEST MSG 81
;BR IF 0K

MoV
MOV
RTS

BIT
BNE

#SW9,3SWR
208

81T
BEWQ
JSR
BIT
BEQ
JSR

#T.A2,CHKFLG
138

;TEST MSG A2?
;BR_IF NO

#7.82,CHKFLG
148

;TEST MSG B2?
:BR_IF NO

#7.B3,CHKFLG
158

sTEST MSG B3?

ADD

#2,(SP)

PC,RCYLD

PC.RCYLA

sPUT INFO CYLDIF,

DO NOT CHECK

:PUT INFO IN CYLADD, DO NOT CHECK

sPUT INFO IN SECTOR, DO NOT CHECK
sPUT INFO IN HEADA, DO NOT CHECK

15%:

MOV
RTS

$TMPS ,SESCAPE

sRESTORE ESCAPE

:
208

MoV
MOV

#STACK,SP

cRESET STACK PTR
sRESTORE ESCAPE

JMP

$TMPS, $ESCAPE
aSLPERR

CHECKS FOR CERTAIN ERROR CONDITIONS ONLY

IF NED, CTO OR MDS SET MESSAGE A & B ARE INVALID

EKCERR: TST
007354

;& BR IF LOOP ON ERROR

PC,RSEC
PC.RHEAD

034752
035010

001516

208

BIT
BEQ
JSR
JSR

.I.E.:

005737
001025
032737
001001
000207

#4$ ,$ESCAPE

8IT
BNE
ADD

THIS ROUTINE

033640
033644
033646
033654
033656

SEQ C125

;BR IF 0K
;ELSE SETUP ESCAPE
;COPY RET ADDR
;& RETURN TO MAINLINE ERROR

BEQ

001176

000002

001402
004737

033432

I 10

13:04
PAGE 126
GET VALUE FOR SOFTWARE SWITCH REGISTER

04-JAN-82

BYPCERR
43
#CERR,HCST
18

;BR IF CERR

033660
033666
033670
033672

032737
001402
104125
000207

004000

033674
033702
033704

032737
001401

010000

007356

033706
033714
033716

032737
001401

001000

007356

033720

000207

007354

18:

BIT

#CTO,HCS1

RTS

2%
125

:BR IF_NOT (TO
:CTO ERROR, MSG A & B INVALID

28:

BIT
BEQ
ERROR

#NED,HCS2
{3
126

;BR IF_NOT NED
:NED ERROR, MSG A & B INVALID

38:

BIT

#MDS ,HCS2

ERROR

127

104126

104127

48:

BEQ
ERROR

SEQ 0126

BEQ
RTS

:MDS ERROR, MSG A & B INVALID

:THIS ROUTINE DOES THE SELECT DRIVE COMMAND TO GET STATUS
;1T THEN WAITS FOR CONTROLLER READY
;IF RDY NOT RECEIVED BY THE TIMEOUT, AN ERROR IS FLAGGED
033722
033726
033734
033742
033746
033750
033754

013746
013765

012737
004737
106117

012637
000207

007412
001222
000001
032262

GSTAT:

MOV
MOV
MOV
JSR

#SELDRV,HCS1
PC . DOCMD

MOV
RTS

(SP) +,TEMP1
PC

ERROR

007412

TEMP1,-(SP)
SUNIT ,RKCS2(R5)

117

:SAVE TEMP1
;CURRENT DRIVE #
;DO SELDRV

(STATUS)

CMD & GET CONTR RDY

sRDY NOT SET BY END OF SELECT DRIVE (MD
¢RESTOR TEMP1.

:THIS ROUTINE GETS STATUS OF ALL DRIVE REGISTERS (MSG AO-A3, B0-B3)
;& ALL CONTROLLER REGISTERS.
033756

013746

007412
032512

100000

OO—
Sa0
W

001222
000003
034206

034076
034104
034112
034120
034124

:SAVE TEMP1

000000
000010
000026

MOV
JSR

#3 ,RKMR1(RS)
PC,GSTATZ

sSELECT WORD 3

JSR
MOV
MOV

ERROR

PC,HOLD
#CCLR,RKCST1(RS)
SUNIT,RKCS2(R5)

117

sGET ALL CONTR REG
;CLEAR CONTR
;CURRENT DRIVE #

sRDY NOT SET BY END OF SELECT DRV CMD

007402
007404

007440
007442

MOV
Mov

HMR2 ,H.A3
HMR3,H.B3

765

100000

37
7

034206

000000
000010
000026

MOV
MoV
MOV

#CCLR,RKCS1(RS)
C
SUNIT ,RKCS2(R5)
#2 .RKMR1(RS5)

sSELECT WORD 2

117

sRDY NOT SET BY END OF

OO—=0000
Q2300
aa
WWERUWND

737
737

—-O000
OIS0
EEROWN

034070

TEMP1,-(SP)

GSTAT1: MOV

JSR

ERROR

PC GSTATZ

/4
7

007402
007404

007434
007436

MOV

HMR3.H.B 2

S
5
5
;

100000
001222
000001
034206

000000
000010
000026

MOV
MOV
MOV
JSR

#CCLR,RKCST(RS)
C
SUNIT.RKCS2(RS)
#1,RKMR1(RS)
PC.GSTAT2

ERROR

HMR2,H.A 2

117

:STORE MSG A3

:STORE MSG B3

;STORE MSG A2
;STORE MSG B2

SELECT DRV CMD

sSELECT WORD 1
;RDY NOT SET BY END OF SELECT DRV CMD

J 10
MACY11 30(1046)
04=JAN-82 13:04 PAGE 127
GET VALUE FOR SOFTWARE SWITCH REGISTER

(i)

CZR6IFO UNIBUSS RK6 DR PRT?
CZR6IF.P1N
04~JAN-82 12:46

K 10

30(1046)
04-JAN-82
13:04 PAGE 128
GET VALUE FOR SOFTWARE SWITCH REGISTER

SEQ 0127

6447
gzzg

034126
034134

013737
013737

007402
007404

007430
007432

MOV
MOV

HMR2,H.A1
HMR3.H.B1

6450
6451
6452

034142
034150
034156

012765
013765
004737

100000
001222
0346206

000000
000010

MOV
MOV
JSR

#CCLR,RKCS(RS)
SUNIT.RKCS2(RS)
PC,GSTAT2

6454
gzgg

034164
034172

013737
013737

007402
007404

007424
007426

MOV
MOV

HMR2,H.AQ
HMR3 . H.B0

117

:RDY NOT SET BY END OF SEL DRV CMD

6457
gzgg

036200
0346204

012637
000207

007412

MOV
RTS

(SP)+, TEMP1
PC

;RESTORE TEMP1

6460
6461
6462
6463
6464
6465
64666
6467

036206
034214
034222
034230
034236
034242
036246
034250

012737
053737
013765
013737
004737
000207
062716
000207

000001
001170
007354
001406
032424

6453

Fope

034162

104117

007354
007354
000000
007412

000002

ERROR

GSTAT2: MOV
8IS
MOV
MOV
JSR
RTS
ADD
RTS

#SELDRV,HCS1
$TMP4 ,HCST
HCS1,RKCST1(RS)
710, TEMP1
PC,FRDY1
PC
#2,(SP)
PC

;STORE MSG Al
*STORE MSG B1

SSTORE MSG A0
:STORE MSG B0

;RET CDT IF RKO?

-GET STATUS

JFIND CONTR RDY £ STORE DRIVE REGS ONLY
*RET HERE IF NOT RDY
‘RET HERE IF OK

6470

:THIS ROUTINE DOES A SUBSYSTEM CLEAR € WAITS FOR CONTROLLER READY

6472
6473

cTHE ROUTINE THEN GETS CURRENT STATUS & CHECKS FOR CONTROLLER ERROR (CERR)
*RETURN IF CERR SET

6471

:IF RDY IS NOT RECEIVED BY THE END OF

gz;g

SRETURN +2 IF CERR CLEAR

6476

034252

012765

6479

034272

104120

6477
6478

6480
6481
6482
6483
6484
6485
6486
6487

7
223?

034260
034266

034274
034302
034306
034312
034320
034322
034326
034330

013737
004737

013765
005065
004737
032737
001401
000207
062716
000207

000040

001406
032356

001222
000026
033722
100000

000010

007412

000002

000003
033722

000026

6495
6496
6497
6498
6499

034352
034360
034364
034370
034374

042737
006237
006237
006237
006237

177017
001402
001402
001402
001402

001402

6500

6502

034400

000207

007404

ERROR

1$:

012765
004737

013737

MOV
JSR

007354

034332
034340

034344

SUBCLR: MOV

000010

6492
6493

6494

THE TIMEOUT, AN ERROR IS FLAGGED.

001402

MOV
CLR
JSR
BIT
BEQ
RTS
ADD
RTS

#SCLR,RKCS2(RS) :SUBSYS CLEAR
710, TEMPT
PC,FRDY

120

SUNIT.RKCS2(RS)
RKMR1 (RS)
PC,GSTAT
#CERR,HCS1
1$
PC
#2,(SP)
PC

;FIND RDY

*RDY NOT SET BY END OF SCLR

:CURRENT DRIVE #
*SELECT WORD 0
SGET STATUS
*CHECK FOR CONT ERROR
:SKIP OVER ERROR

SREAD THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT € STORE IT IN 'SECTOR®

RDSEC:

MOV
JSR

#3,RKMR1(RS)
PC.GSTAT

MOV

HMR3, SECTOR

RTS

8IC
ASR
ASR
ASR
ASR

:WORD 3

#2C<M.SECT>,SECTOR
SECTOR
sRIGHT JUSTIFY
SECTOR
*SECTOR
SECTOR
- INFO
SECTOR

READ THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN 'CYLDIF®

lals)

MACY11

[ Y

CZR6IFO UNIBUSS RK6 DR _PRT2
CIROIF.P11
04~JAN-82 12:46

6503

04-JAN-82 12:46

6506
6505
6506

034402
034410
0344146

012765
004737
013737

000002
033722
007402

6508
6509
6510
6511
6512
6513
6514
6515

034430
034434
034440
034444
034450
034456
034460
034464

006237
006237
006237
006237
023737
001002
005037
000207

001356
001356
001356
001356
001356

6507

034422

043737

015466

30(1046)

000026

RDCYLD: MOV
JSR
MOV

001356

034466
034472
034500
034506
034514
034522
034530
034536
034540
034544
034546

013746
012765
012737
053737
013765
013737
032765
001004
005337
001371
104117

007412
000002
000001
001170
007354
001406
000260

6532
6533
6534
gggg

034550
034556
034564
034570

016537
043737
012637
000207

000034
015466
007412

000026
007354
007354
000000
007412
000000

007412

001356
001356

gggg

PAGE 129

BIC

ASR
ASR
ASR
ASR
CMP
BNE
CLR
RTS

#2.RKMR1(RS)
PC.GSTAT
HMR2,CYLDIF

;WORD 2

CYLDIF
CYLDIF
CYLDIF
CYLDIF
CYLDIF ,MASK
1$
CYLDIF
PC

;RIGHT JUSTIFY
;CYL DIFF/OFFSET
L INFO

MASKT,CYLDIF

:CHK TO SEE IF RET IN COMPL.

*BR IF NOT
SCLR IF YES

SEQ 0128

FORM

QKCYLD: MOV
MOV
MOV
8IS
MOV
MOV
18:
BIT
BNE
DEC
BNE
ERROR

TEMP1,-(SP)
#2 ,RKMR1(RS)
#SELDRV,HCST
$TMP4 ,HCST
HCS1,RKCS1(RS)
710, TEMPI
#RDY ,RKCS1(RS)
2
TEMP1
18
117

28:

RKMR2
(RS) , CYLDIF
MASK1,CYLDIF
JGET CYL DIFF ONLY (NO SHIFTING)
(SP)+,TEMP1
JRESTORE TEMP1

MOV
8IC
MOV
RTS

:SAVE TEMP1
:SELECT WORD 2
:SELECT DRIVE CMD

:TEST FOR CONT RDY
‘BR IF THERE

;NO RDY AFTER SEL DRV CMD

JREAD THE CYL ADDR IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN

6539
6540
6541

034572
034600
034606

012765
004737
013737

000002
033722
007404

6543
6544
6545
6546
222;

034620
036624
034630
034634
034640

006237
006237
006237
006237
000207

001360
001360
001360
001360

034612

043737

015466

000026
001360

001360

gggg
6551
6552
6553
6554
6555
6556
6557
6558

L 10

;QUICK SELECT DRIVE COMMAND TO CBTAIN CYL DIFF

6520
6521
6522
6523
6526
6525
6526
6527
6528
6529
gg%?

6542

1$:

gg}g

13:04

GET VALUE FOR SOFTWARE SWITCH REGISTER

015464

001356

04-~JAN-82

RDCYLA: MOV
JSR
MOV

BIC

ASR
ASR
ASR
ASR
RTS

#2 ,RKMR1(RS)
PC.GSTAT
HMR3, CYLADD

:WORD 2

CYLADD
CYLADD
CYLADD
CYLADD
PC

;RIGHT JUSTIFY
SCYL ADDR
L INFO

MASK1,CYLADD

°*CYLADD®

:READ THE CYL DIFF/OFFSET IN H.A2, RIGHT JUSTIFY IT & STORE IT IN °*CYLDIF®
034642
034650
034656
034662
034666
034672
034676
034704

013737
043737
006237
006237
006237
006237
023737
001002

007434
015466
001356
001356
001356
001356
001356

001356
001356

015464

RCYLD:

MOV
BIC

ASR
ASR
ASR
ASR
cMP
BNE

H.A2,CYLDIF
MASK,CYLDIF

;CLEAR UNWANTED INFO

CYLDIF
;RIGHT JUSTIFY
CYLDIF
CYLDIF
CYLDIF
CYLDIF ,MASK
;CHK TO SEE IF RET IN COMPL. FORM
13
;BR IF NO

CZROIF.P11

MACY1T

lalal

CZR6IFO UNIBUSS RK6 DR PRTZ

6559
6560

034706
034712

005037
000207

001356

" 10
30(1046)
04-JAN-82
13:04 PAGE 130
GET VALUE FOR SOFTWARE SWITCH REGISTER
18:

CLR

RTS

CYLDI¥

SEQ 0129

;ELSE CLEAR

:READ THE CYL ADDR IN H.B2, RIGHT JUSTIFY IT & STORE IT IN 'CYLADD'
6566
6565
6566
6567
6568
6569
6570

034714
034722
034730
034734
034740
034744
034750

013737
043737
006237
006237
006237
006237
000207

007436
015466
001360
001360
001360
001360

001360
001360

RCYLA:

MOV
BIC
ASR
ASR
ASR
ASR
RTS

H.B2,CYLADD
MASK1,CYLADD
CYLADD
CYLADD
CYLADD
CYLADD
PC

sCLEAR UNW.NTED INFO
JRIGHT JUSTIFY

:READ THE SECTOR COUNT IN H.B3, RIGHT JUSTIFY IT & STORE IT IN *SECTOR'
6574
6575
6376
6577
6578
6579
6580

034752
034760
034766
034772
034776
035002
035006

013737
042737
006237
006237
006237
006237
000207

007442
177017
001402
001402
001402
001402

001402
001402

RSEC:

MOV
BIC
ASR
ASR
ASR
ASR
RTS

H.B3,SECTOR
W#4C<M.SECT>,SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
PC

;CLEAR UNWANTED INFO

JRIGHT JUSTIFY

JREAD THE HEAD ADDR IN H.B3, RIGHT IT & STORE IT IN 'HEADA'
6584
6585
6586
6587

6588

035010
035016
035024
035030

035034

013737
042737
006237
000337
000207

007442
170777
001462
001462

001462
001462

RHEAD:

MOV
BI(

H.B3, HEADA
#2C<M_HEAD> ,HEADA

SWAB
RTS

HEADA
PC

ASR

HEADA

;CLEAR UNWANTED

sRIGHT JUSTIFY

INFO

*FIND SECTOR 23

JRETURN IF NOT FOUND
SRETURN +4 IF FOUND

6594
6595
6596
6597

035036
035044
035050
035056

013737
004737
023727
001014

001416
034332
001402

004737
023727

034332
001402

004737
023727
001404

034332
001402

005337
001353
000207

007412

062716
000207

000004

007412

000023

FSEC23: MOV
1$:
JSR

CMP
BNE

000023

PC,RDSEC

JSR

PC,RDSEC

(MP
BEQ

2%:

SECTOR,#23
2%

JSR

P
BEQ

000023

75000, TEMP1
PC,RDSEC

sBR _IF READ SAME TWICE

SECTOR,#23
3s

:BR IF 23(8)

TEMPY

RTS

ADD

RTS

;TEST FOR SECTOR 23(8)
;BR IF NOT 23(8)

SECTOR,#23
3s

DEC

BNE

;SETUP TIMEOUT
sREAD SECTOR

JELSE

TRY

:TRY AGAIN

#4, (SP)

:SKIP OVER ERROR

TIME

:ROUTINE TO FIND HEADS HOME IN RKMR2 WORD 1 BEFORE SPECIFI1ED DELAY
JENTER WITH TIME IN SECONDS IN TEMP?

~NN

MACY11

lalal

CZR6IFO UNIBUS S RK6 DR _PRT?
CZR6IF.P1
064-JAN-82 12:46

N 10
30(1046)
04-JAN-82
13:04 PAGE 131
GET VALUE FOR SOFTWARE SWITCH REGISTER

SEQ 0130

JRETURN IF NOT FOUND

;RETURN+2 IF FOUND - SKIP OVER ERROR

035126
035134
035142
035146
035154
035156
035162
035164
035170
035172
035176
035200

012737
012765
004737
32737
001007
005337
001367
005337
001356
000207
062716
000207

177777
000001
033722
000040

007412
000026

007402

FHDHM:

18:

007412
007414
000002

2$:

MOV
MOV
JSR
BIT
BNE
DEC
BNE
DEC
BNE
RTS
ADD
RTS

#=1,TEMP1
#1,RKMR1(RS)
PC,GSTAT
#D .HDHM ,HMR?
23
TEMP1
18
TEMP2
FHDHM
PC
#2,(SP)
PC

JALL 1°'S
;WORD 1

:SKIP OVER ERROR

:ROUTINE TO FIND LOAD HEADS IN RKMR2 WORD 1 BEFORE THE TIMEOUT
sRETURN IF NOT FOUND
sRETURN+2 [F FOUND:

035202
035210
035216
035222
035230

012737
012765
004737
032737
001004

035246

000207

035232
035236
035240
035242

005337
001367
000207
062716

000372
000001
033722
010060

007412
000026
007402

FLOAD:
1$:

007412
000002

2s:

SKIP OVER ERROR

MOV
MOV
JSR
8IT
BNE

#250.
, TEMP1
#1_RKMR1(RS)
PC.GSTAT
#D.LOAD ,HMR?
2$

RTS

DEC
BNE
RTS
ADD

TEMP1
18
PC
#2.(SP)

:WORD 1

:SKIP OVER ERROR

JFILL HEADER TABLE WITH 66 WORDS OF VALID HEADERS
JENTER WITH CYL # IN 'CALADD'

SENTER WITH HEAD # IN ‘HEAD'
JENTER WITH FORMAT IN ‘FORMAT'
035250
035252
035254
035260
035262
035270
035274
035300
0353064
035310
035314
035322
035326

010046
010146
012700
005001
013737
006337
006337
006337
006337
006337
013737
000337
006337

035332
035336
035340

013720
010110
053710

001362

035350

004737

035344

053710

FHDTAB: MOV
MOV
MOV
CLR
MOV
ASL
ASL
ASL
ASL
ASL
MOV
SWAB
ASL

RO.=(SP)
R1,-(SP)
#HDTAB,RO
R1
HEAD ,HD1
HD1
HD1
HD1
HD1
HD1
FORMAT,FMT1
FMT1
FMT1

1$:

001464

MOV
MoV
8IS

CALADD, (RO) +
R1, (RO)
HD1, (RO)

035430

JSR

PC.SECFLG

001522
001460
001464
001464
001464
001464
001464
001466
001470
001470

001470

001464

001470

8IS

FMTT, (RO)

:SAV RO
:SAV R1
;HEADER WORD TABLE ADDR
JSECTOR COUNTER

:SETUP HEAD # FOR WORD 2 OF HEADER
;SETUP FORMAT FOR WORD 2 OF HEADER

;HEADER WORD 1-CYL ADDR
JHEADER WORD 2-SECTOR NO
:
~HEAD NO

~FORMAT

[alal

MACY11

~NG

—-C

0 p ?IBUSS RK6 DR_PRT?
06~JAN-82 12:46

CIRO6IFO UNIBUSS RK6 DR _PRT2
CZROIF .P11
04~JAN-82 12:46

013737

0356422
035424
035426

001362

013720

007414

005201
020127
001344

000026

8B 11
MACY11 30(1046)
04-JAN-82 13:04 PAGE 132
GET VALUE FOR SOFTWARE SWITCH REGISTER

SEQ@ 0131

007412

MOV

CALADD , TEMP1

007414

BIC
BIC
BIS
MOV

CALADD, TEMP2
(RO)+, TEMP1
TEMP1
. TEMP2
TEMP2. (RO) +

;HEADER WORD 3-HEADER CHECK

INC

;SECTOR CTR

BNE

:BR IF NO

(SP)+ ,R1
(SP)+,R0

;RESTOR R1
JRESTOR RO

MOV

007414

CMP

012601
012609
000207

MOV
MOV
RIS

(RO), TEMP2

R1.,422.

sALL 22 SECTORS DONE? (66 WORDS)

:THIS ROUTINE GETS INFORMATION FROM THE BAD SECTOR TABLE FILLED BY A PREVIOUS
;TEST & SETS BITS 14 & 15 APPROPRIATLY.

035430

035450

010246
005737
001016
012702
004737
052710

035454
035460
035464

012702
004737
052710

035470
035472

012602
000207

035474
035500
035504

012702
004737
052710

035530
100000

035510
035514
035520

012702
004737
052710

004346
035530
040000

035524
035526

012602
000207

R2,=(SP)

:SAVE R2

BNE
MOV

1%
#BSE22H+8.
,R2

:BR IF 20 SECTOR FORMAT

100000

BIS

#B8IT15, (RO)

sRETURN HERE IF GOOD SECTOR

005346
035530
040000

MOV

#BSE225+8.,R2

BIS

#BIT14,(RO)

001466

SECFLG: MOV
TST

003346
035530

JSR

MoV

002346

1$:

FORMAT

PC,FLGTST

sGET HARDWARE DETECTED FLAG

;ELSE RETURN HERE

PC,FLGTST

;GET SOFTWARE DETECTED FLAG

(SP)+,R2

sELSE RETURN HERE

RTS

MoV
JSR

#BSE20H+8.
,R2
PC,FLGTST

cRETURN HERE IF GOOD SECTOR

sGET HARDWARE DETECTED FLAG

8IS

#81715,(RO)

RETURN HERE IF GOOD SECTOR

MoV
JSR
BIS

#BSE20S+8.
,R2
PC,FLGTST
#81T14,(RD)

;GET SOFTWARE DETECTED FLAG
sRETURN HERE IF GOOD SECTOR

(SP) +,R2

;RESTORE R?2

MOV

RTS

sTHIS ROUTINE DOES THE ACTUAL SCANNING OF

THE BAD SECTOR TABLES

;ENTER WITH THE ADDRESS OF TABLE (BSE22H, BSE22S, ETC.)
JRETURN IF NO COMPARE
;RETURN+4 IF COMPARE

035530

010346

035532
035536
035540
035542

021227
000207

FLGTST: MOV
177777

1$:

CMpP

BNE
MOV
RTS

R3,-(SP)

;SAVE R3

(R2) ,#-1

;SEE IF ALL 1°S

2$
(SP)+,R3
PC

:BR IF NO
*RESTORE R3

IN TEMPI

WNWN

NN NN

leleleBNolelele]

—‘

CZR6IFO UNIBUSS RK6 DR PRTZ
CZR6IF.P
04-JAN-82 12:4

022237
000765
013703
000303
050103
022203

c 11
13:04 PAGE 133
MACY11 30(1046)
04 -JAN-82
GET VALUE FOR SOFTWARE SWITCH REGISTER
2s:

001362
000002

3s:

001460

035576
035600
035604

012603
062716
€00207

CMP
BEQ
ADD
BR

(R2)+,CALADD
38
#2.R2
1$

MOV
SWAB
BIS

HEAD,R3
R3
R1,R3

BEQ
BR

43
i$

sADD SECTOR # FROM FHDTAB ROUTINE
;SEE IF SECTOR/HEAD COMPARE
s& INCR PTR TO NEXT CYL WORD
:BR _IF COMPARE
sELSE TRY NEXT CYL

(SP)+.R3

;RESTORE R3

CMP

001401
000756
¥
A

000004

SEQ 0132

MOV
ADD
RTS

;SEE IF=CYL # & ADR PTR TO TRK/SECTOR WORD
sGO TO NEXT CYL WORD IN TABLE
;GET HEAD # FROM FHDTAB ROUTINE

(R2)+,R3

; INCREMENT RET ADDR

#6, (SP)
PC

:THIS ROUTINE SORTS THE RHTAB TABLE FROM WHATEVER SECTOR IT BEGINS
sWITH AND RE-WRITES THE

SORT:

035606
035610
035612
035616
035624

010046
010146
004737
062737
004737

034332
000001
035714

035630
035634
035640
035644

012700
163700
010037
062737

000204
001402
001402
001726

035652
035656

062700
012701

001726
002132

035662
035664
035670

012021
020027
001374

002132

035672
035676
035700
035704

012700

001726

035706
635710
035712

012601
012600
000207

001374

001402

MOV
MOV

INFO IN SRTTAB TABLE

RO,=(SP)
R1,<(SP)
PC,RDSEC
#1,SECTOR
PC.MULT6

TO BEGIN WITH SECTOR 0

;SAVE RO
:SAVE R1

001402

JSR
ADD

001402

MOV
sus
MOV
ADD

#RHTAB,SECTOR

sSAVE INDEX

ADD
MOV

#RHTAB,RO
#SRTTAB,R1

sINDEX TO TOP HALF OF SRTTAB

MOV
CMP

(RO)+,(R1)+
RO, #RHTAB+132.

sPUT BOTTOM OF RHTAB TO TOP OF SRTTAB

MoV
MOV

#RHTAB,RO

;PUT TOP OF RHTAB TO BOT OF SRTTAB

JSR

1$:

BNE

2$:

#132.,R0
SECTOR,RO
RO,SECTOR

sMULT SECTOR BY 6

;RO-SECTOR TO RO = INDEX

+INDEX TO BOT HALF OF RHTAB

(RO)+,(R1)+

CMP
BNE

RO,SECTOR

MOV
MOV
RTS

(SP) +,R1
(SP)+,RO

sRESTOR R1
sRESTOR RO

‘MULT BY 6. ENTER WITH DESIRED # IN 'SECTOR'®
035714

035734

006337
013746
006337
062637
000207

001402
001402
001402
001402

MULT6:

ASL
MOV
ASL
ADD
RTS

SECTOR
SECTOR,=(SP)
SECTOR

égP)*,SECTOR

;2 X SECTOR
;4 X SECTOR
;(6 X S)+(2 X S)= 6 X SECTOR

CZR6IFO UNIBUSS RK6 DR_PRT?
CZR6IF .P11
04~JAN-82 12:46

D11
MACY11 30(1046)
04-JAN-82 13:04 PAGE 134
GET VALUE FOR SOFTWARE SWITCH REGISTER

SEQ 0133

6785
6786
g;gg

:THIS ROUTINE IS ENTERED ONLY IF THERE IS
A BSE ERROR AFTER A WRITE DATA
;CMD.
IT VERIFIES THAT THE BAD SECTOR IS LISTED IN THE BSE INFORMATION
CYLINDER AT CYL 410, TRACK 2.

6789

RETURN IF SECTOR NOT LISTED IN BSE TABLE, ERROR CONDITION.

g;g?

RETURN+2 IF LISTED, SKIP OVER ERROR

g;g%

035736

010446

TRUERR. MoV

R4 ,=-{SP)

;SAVE R4

6794
g;gg

035740
035746

032737
001014

010000

BIT
BNE

#CFMT HCST
23

;CHECK FORMAT
;BR FOR 20 SECTOR FORMAT

6797
6798
gggg

035750
035754
035760

012704
004737
000422

003346
036036

MoV
JSR
BR

#BSE?ZH*B R4
PC,TERR1
3s

;SEE IF ON HARDWARE DETECTED TABLE
sRETURN HERE IF YES

6801
6802
2382

035762
035766
035772

012704
004737
000415

005346
036036

MoV
JSR
BR

#BSE225+8.
,R4
PC,TERR1
3s

;ELSE RETURN HERE
;8 SEE IF ON SOFTWARE DETECTED TABLE
sRETURN HERE IF YES

6805
ggg?

035774
035776

012604
000207

18:

MOV
RTS

(SP) + R4
PC

¢RESTORE R4
SRETURN WITHOUT JUMPING OVER ERROR

6808
6809
6810

036000
036004
036010

012704
004737
000406

28:

Mov
JSR
BR

#BSE20H+8.
R4
PC,TERR
3$

;SEE IF ON HARDWARE DETECTED TABLE
JRETURN HERE IF YES

002346
036036

007354

P11

puir Puir Pty Sulr G- Suir Guir S

OV NONNISNN
=

- G Py

geaseeseas3

O
NN

0 UNIBUSS RK6 DR PRTZ

04~JAN-82 12:4

036012
036016
036022
036024

012704
004737
000401
000763

036026
036030
036034

012604
062716
000207

MACY11 30(1046)

13:04

EN
PAGE 135

GET VALUE FOR SOFTWARE SWITCH REGISTER

004346
(36036

000002

04-JAN-82

3s:

Mov
JSR
BR
BR

#BSEZOS*B .
PC,TERR1
3s
18

ELSE RETURN HERE
sSEE IF ON SOFTWARE DETECTED TABLE
;RETURN HERE IF YES
sRETURN HERE IF NO

MoV
ADD
RTS

(SP)+ R4
#2,(SP)
PC

;RESTORE R4
;SKIP OVER ERROR ON RETURN

SEQ 0134

(ZR6IFO UNIBUSS RK6 DR _PRT?

CZRSIF.P

04~JAN-82 12:46

6821

6822
6823
6824
6825
6826
6827

MACY11 30(1046)

021427

177777

13:04

F 1

PAGE 136

GET VALUE FOR SOFTWARE SWITCH REGISTER

036036

04-JAN-82

sTHIS ROUTINE DOES THE ACTUAL COMPARING OF CYLINDER, HEAD & TRACK AGAINST
;THE BSE TABLE FOR THE ABOVE SUBROUTINE.
JRETURN IF FOUND ON TABLE
:RETURN+2 IF NOT FOUND
:
TERR1:
(MP
(R&) ,2-1
;SEE IF ALL 1°S

SEQ 0135

CZRGIFO UNIBUSS RK6& DR _PRT?2
CZR6IF.P1
04~JAN-82 12:46

MACY11 30(1046)

064-JAN-82

13:04

61N
PAGE 137

GET VALUE FOR SOFTWARE SWITCH REGISTER

036042
036044
036050
036052
036054

001405
022437
001405
005724
000770

036056
036062

062716
000207

000002

18:

036064
036070
036072

022437
001401
000761

007364

2%:

036074

000207

BEQ
CMP
BEQ
TST
BR

007374

3s:

ADD

RTS

CMP

18
(R4)+ ,HDC

;BR _IF YES, NOT ON TABLE
sSEE IF CYL MATCH

(R4)+
TERR1

sELSE ADV TO NEXT CYL WORD
;8 TRY AGAIN.

;BR _IF YES

#2,(SP)

(R&) + ,HDA

;SEE IF SECTOR & TRACK MATCH

TERR1

sOR TRY AGAIN

BEQ
BR

RTS

;BR IF YES

SROUTINE TO TURN L OR P CLOCK INTERRUPT ON
036076
036102

005037
005737

001372
007520

CLKON:

CLR
ST

TIMUP
PCLKF

SEQ 0136

036106
036110
036116
036120
036126
036134

036136
036142
036146
036150
036156
036162
036164
036170

001004

012777
000207
012777
012777
000207

005037
005337

143210

177777

143174
143164

000135

001372
001366
001370

04-JAN-82

13:04

H 1

PAGE 138

GET VALUE FOR SOFTWARE SWITCH REGISTER

000100

001364

000002

MACY11 30(1046)

BNE

1$:

sBRANCH IF P-CLOCK PRESENT
sL=CLOCK, ENABLE INT

#135,3PKS

;P-CLOCK, ALL 1°'S
SENABLE INT, CT UP, REP INT

PC
#~1,3PKSB

RTS

CLR
DEC
BNE
MOV
DEC
BNE
INC
RTI

COUNT
18
HZ,COUNT
SEC
13
TIMUP

*LINE FREQ & RUN
‘kw11-L & KW11-P INTERRUPT HANDLER
CLOCK:

001366

001372

1$
#100,3LKS

MOV
RTS
MOV
MOV

18:

TIMUP

;SORRY, TIME 1S UP

*ROUTINE TO TURN L OR P CLOCK INTERRUPT OFF
036172
036176
036200
036204
036206
036212

005737
001003
005077
000207
005077
000207

007520

CLKOF:

143122

143106

18:

TST
BNE
CLR
RTS
CLR
RTS

PCLKF

1$
aLKS
PC
aPKS

¢BRACH IF P=-CLOCK PRESENT

sL=-CLOCK, CLEAR INTERRUPT

sP-CLOCK, CLEAR INTERRUPT

sTHIS ROUTINE GENERATES PARITY FOR THE EXPECTED MESSAGE
JENTER WITH THE EXPECTED WORD IN TEMPI

: TEMP1 IS ROTATED LEFT 17 TIMES. EACH TIME THE CARRY BIT IS SET,
sR1 IS INCREMENTED. AT THE END OF 17 ROTATES ( TEMP1 BACK TO ORIG),
;R1 BIT 0 IS EXAMINED. IF IT IS SET, INDICATING AN ODD # OF 1°S,
s

THE PARITY BIT IS NOT SE1

IN B

$IF IT 1S NOT SET, INDICATING AN EVEN # OF 1'S ,THE PARITY BIT IS
sSET IN TEMP1
036214
026216

010046
010146
012700
005001
000241

000021

036230
036234
036236
036240
036242

006137

007412

036244

032701
001003
052737

036226

036264

103C01

SBPAR:

CLR
cLe

18:

005201
005300
001372

012601
012600
000207

2$:

000001
100000

MOV

MoV
MoV

007412

3s:

RO, =(SP)
R1.-(SP)

#17RO
.
R1

ROL
BCC
INC

DEC

MoV

MOV
RTS

JSHIFT COUNTER
JCOUNT # OF 1°'S IN TEMPI
;CLEAR CARRY

:BR IF CARRY CLEAR
;COUNT # OF 1°S
sSHIFT COUNTER

BNE

BIT
BNE
8IS

;SAVE RO
;SAVE R1

#81T0,R1

#M_.PAR, TEMPI
(SP)+,R1
(SP)+ RO

s8R _IF ODD # IN RO
;SET PARITY BIT
sRESTORE R1
sRESTORE RO

SEQ 0137

[T
]

CZROIFO UNIBUSS RK6 DR PRT?
CZROIF .P11
04-JAN-82 12:46

I 1N
MACY11 30(1046)
04-JAN-82 13:04 PAGE 139
GET VALUE FOR SOF TWARE SWITCH REGISTER

:ROUTINE TO ENABLE LOOPING ON INTERMITTANT ERRORS

6904

;WHEN SLPERR SET BY OTHER THAN SCOPE ROUTINE
IE: MY LOOP MACRO

036266

032777
001406
105737

036310

036312
036316

001403
013716
000002

011637
000002

001000

1462644

SCOP1s: BIT

001103

001110
001110

MOV

#SW9,aSWR
18
$ERFLG
1$
( SP)
$LPERR,

;LOOP ON ERROR?

(SP) ,SLPERR

;SET LOOP ADDR FOR TIGHT SCOPE LOOP

:BR_IF NO
sHAD ERROR?

:BR IF NO

;THIS ROUTINE IS ENTERED BY TYPING A CONTRCL=C.

;1T 1S USED TO ALLOW THE OPERATOR TO HLAT THE CPU WHILE INSURING

:}fieTchADS ARE LOADED & FORMATTING IS VALID BEFORE ACTUALLY HALTING

§ TOP:

036320

022626

036322
036326

004737
104024

036330
036334
036336
036342
036344
036350
036352
036356

005737

036356
036362

004737

034252

036364
036372
036376

012737
004737

000011

036400
036406
036412

013737
004737

001414

036414

005037

007336

036420
036424
036426

005737
001460
005237

007340

036432
036440
036446
036454

012765
013765

100000
001222
000013
032262

001431
005737
001403
104401
000402
104401

104024

104121

104074

012737
004737

CMP

(SP)+,(SP)+

034252

JSR
ERROR

PC.SuBCL R

007336

TST
BEQ
TST
BEQ
TYPE
B8R
TYPE

000042

046167
046235

032262

032672

007354

3s:

007342

000000
000010
007354

:PGM ABORT PENDING

MSG75
PC,SuUBCL R

MoV

#SRTSPL ,HCS1
PC,DOCMD

MOV

121

T100,TEM 4

JSR
ERROR

PC,FATT1

CLR

UNLD

TST

BADHDR
43
HPEND

MOV
MOV
MOV
JSR

#CCLR,RK €s1( RS)

BEQ
INC

;CERR AFTER
sSEE IF HEADS UNLOADED
:BR_IF NO
;SEE IF MANUAL OR AUTO MODE
:BR IF MANUAL MODE

JSR
ERROR

007414

sRESTORE STACK FROM INTERRUPT

JHALT PENDING

;CERR AFTER SCLR

;DO START SPINDLE CMD & GET CONTR RDY
sRDY NOT SET AFTER ST SPIN CMD.

sSETUP TIMEOUT
sFIND ATTIN
sNO ATTN AFTER ST SPIN CMD.

;SEE IF HEADERS VALID
:BR IF YES

SUNIT ,RK CS2(R
(RS)

#RECAL
,Hcs1
PC,DOCMD

;DO RECAL CMD & GET CONTR RDY

SEQ 0138

CZR6IFO UNIBUSS RK6 DR _PRTZ2
CZR6IF .P11
04~-JAN=-82 12:46

CZR6IFO UNIBUSS RKé DR PRT?
CZR6IF.P11
04-JAN-82 12:46
036460

104124

036462

012765
004737
032737
001001

MACY11 30(1046)

04-JAN-82

13:04

J 1
PAGE 140

GET VALUE FOR SOFTWARE SWITCH REGISTER

ERROR

SEQ 0139

124

;RDY NOT SET AFTER RECAL CMD

#1,RKMR1(RS)

JSELECT WORD 1

cRTZ NOT SET DURING RECAL CMD
s SETUF ? IMEOUT
FIND nTTN
sNO ATTN AFTEK RECAL CMD

000001
033722
020000

000026

MOV

007402

104244
013737
004737

001406
032672

007414

8IT
BNE
ERROR
Mov
JSR
ERROR

#D .RTZ ,HMR2
648
244
710, TEMP2
PC.FATTT
55

036522
026530
036536
036544
036550
036552
036556
036560
036562

012765
013765
012737
004737

100000
001222
000005
032262

000000
000010
007354

MOV
MOV
MOV
JSR

#CCLR,RKCST(RS)
SUNIT ,RKCS2(R5)
#CLEAR HCS1
PC,DOCMD

004737
000401

032640

ggR

ZE§TSTATN

ERROR

154

sATTN NOT CLEARED AFTER DRIVE CLEAR CMD

036562

00137

031220

JMP

FORM

SWRITE VALID FORMATS

036566
036572
036574
036600
036604

005737
001410

000042

TST
BEQ

;SEE IF MANUAL 75 AL/C MODE
:BR IF MANUAL MOVLE

036610

005037
005037
000137

42
5%
MSG76

036614
036620
036622

104401
000000
000137

036520

104055

104151

648:

ERROR

104154

104401

JSR

658:

046272
031576
001176
031550

TYPE

CLR
CLR
JMP

046314

5%:

013372

.SBTTL

PC,GSTAT

151

$EOPCT
SESCAPE
$EOP1

;DRIVEAN
;D0 DRIVE CLEAR CMD & GET CONTR RDY

sNO RDY AFTER DRIVE CLEAR CMD
sTEST FOR ATIN

:PGM ABORTED

;SET UP EOP TO EXIT TO MONITOR
;ABORT PGM

th;

MSG77

;CPU HALTED

JMP

STS

:START OVER IF CONTINUE PRESSED

UNEXPECTED TiMEOUT HANDLER

:THIS ROUTINE IS ENTERED IF THERE IS

036626

036646

011800
005740
032777
001005
104401
010046

036650
036652
036653

104403
006
000

020000

046475

142300

:
:
:

A.
B.
C.

BADTMO:

MOV

NON EXISTANT MEMORY (NO SSYN)
BOUNDRY ERROR
STACK OVERFLOW
(SP) ,RO

TST
BIT

-(R0O)
#SW13,3SWR

TYPE

LEM3

BNE

MOV

TYPOS

.BYTE
.BYTE

RO,-(SP)

6
0

;SAVE PC WHERE TIMEOUT OCCURRED.

JGET PC BEFORE UPDATE
;INHIBIT ERR TYPOUT?
JYES, DON'T TYPE

;ABORT TESTS,UNEXP T.0.

;3SAVE RO FOR TYPEOUT
2:TYPE PC
.60 TYPE--OCTAL ASCII
;. TYPE 6 DIGIT(S)

s :SUPPRESS LEADING ZEROS

@ PC=

CZR6IFO UNIBUSS RK6 DR PRT2
CZROIF .P11
04~JAN-82 12:46

036654
036662
036664
036666

032777
001403
022626
000177

001000

036672
036700
036702

032777
001401
000002

040000

036704

000000

K 11
MACY11 30(1046)
04~JAN-82 13:04 PAGE 141
UNEXPECTED TIMEGUT HANDLER
142256

1$:

142214

142240

28:

BIT
BEQ
CMP
JMP

#5W9,aSWR
2$
(SP)+,(SP)+
aSLPADR

BIT
BEQ

#SW14,aSWR
3s

RTI

38:

HALT

;LOOP ON ERROR?
:NO, BRANCH

*YES, RESTORE STACK
:GO TO STARTING ADDR OF TEST

:THAT GAVE BAD TIMEOUT
:LOOP ON TEST?
*NO BRANCH
*YES

;UNEXPECTED TIME OUT OCCURRED
:AS INDICATED. YOU CAN LOOP ON
*ERROR, LOOP ON TEST OR INWIBIT
*ERROR TYPEOUT BY SETTING THOSE
*SWITCHES.

036706
036710

022626

000137

cMP

031550

JMP
.SBTTL

036714
036722
036726
036730
036734
036742
036744
036746

036752

036730
001334
001176
001000

142176

000240
000240
000240
011600
005740
104401
010046

036776

104403

*ABORT TESTS

#1$,SESCAPE
£§P).TRAPPC
$ESCAPE

:STORE PC
;UNEXP MEM PARITY TRAP

BIT
BNE

#SW9,aSWR
2%

sCHECK IF LOOP ON ERROR
sYES, FORCE STACK AND TRY AGAIN

28:

MOV

#STACK,SP

sINIT STACK

.SBTTL

RKO6 INTERRUPT HANDLER

INTER:

NOP
NOP
NOP
MOV

RTI

012706
000177

sRESTORE STACK

MEMORY CHECK ENABLE TRAP

MEMERR: MOV
MOV
ERROR
1%:
CLR

000002

036756
036760
036762
03€764
036766
036770
036774

037010

001176

(SP)+,(SP)+

SEOP1

JMP

TST

044742

TYPE
MOV
TYPOS

006
000
000000
000240
000240
000002

.BYTE
.BYTE

HALT
NOP
NOP
RTI
.SBTTL

9SLPERR

(SP) ,RO

=(R0O)

,MSG6
RO.-(SP)

6
0

sELSE RETURN

:LOOP ON ERROR

:SAVE PC WHERE INT OCCURRED.

sGET PC BEFORE UPDATE.

s INT AT PC=
;s SAVE RO FOR TYPEOUT
::TYPE PC
;.60 TYPE--OCTAL ASCII

;. TYPE 6 DIGIT(S)
;s SUPPRESS LEADING ZEROS

POWER DOWN AND UP ROUTINES

;POWER DOWN ROUTINE
037012
037020

012737
000000

037024

000024

SPWRDN: MOV

HALT

#$PWRUP ,PWRVEC

.SET UP VECTOR

SEQ 0140

CZR6IFO UNIBUSS RK6 DR _PRT?
CZR6IF.P1
04-JAN-82 12:46
7071
7072
7073
7074
7075
7076
7077
7078
7079
7080
7081
7082
7083
7084
7085

037022

MACY11

04-JAN-82

30(1046)

13:04

POWER DOWN AND UP ROUTINES

B8R

000776

LN
PAGE 142

SEQ 0141

;HANG UP.

:POWER UP ROUTINE

037024
037030
037034
037036
037044
037052
037060
037064

037076
037076

037012
000340
000340
001100
045132

037070
037072

037076

$PWRUP:
1%:

000024
000026

000036

$P_"CT

:WAIT LOOP FOR TTY

BNE
MOV
MOV
MOV

18
#SPWRDN,PWRVEC
#PR7,PWRVEC+2
#PR7.TRAPVEC+2

10F WORD
:SET POWER DOWN VECTOR
:PRIORITY 7
-LOCKOUT ALL INTERRUPTS FOR TRAPS

INC

MOV
TYPE
RESET

015472
000000

CLR

JMP

$PWRCT:

$PWRCT

*WAIT FOR THE

#STACK, SP
,MSG11

INCR

SINITIALIZE STACK
*REPORT POWER FAIL

PFSRT

;WAIT COUNT FOR TTY

*DIVISION UTILITY ROUTINE

*RO-R1-R2-R3=DIVIDEND
*R4-RS=DIVISOR

*RO-R1=REMAINDER AFTER DIVISION

*R2-R3=QUOTIENT AFTER DIVISION
*ENTER WITH JSR PC.M.DPID

N NN
—
N =2 OO0

b
b
d e
b ek
d

b ok b e ek ad b b

e
e
—b e

PNONON) =

NNNNNNNNNNYN

037100
037104
037106
037110
037114
037116
037122
037124
037126
037132

037162
037164
037170

037172
037174
037176
037200
037202
037204

012746
010446
010546
005466
005416
005666
061601
005500
066600
103445
005046
006103
006102
006101
006100
005716
001410
005016
066601
005500
005516

000040

M.DPID: MOV

000002

MOV
NEG

000002

SBC

MOV

NEG

ADD

ADC
ADD

000002
M.DP40:

M.DP41:

:LO ORDER TO THE STACK
*FORM NEGATIVE
*VERSION OF DIVISOR

asP

2(SP)

aSP.R1

RO
2(SP) ,RO

ROL

-(SP)
R3

R1
PO

BEQ
CLR
ADD
ADC

M.DP41
asP
2(SP) .R1
RO

ADD

4(SP)

aspP

asP

M.DP42

ADD
ADC

RS,R1
RO

ADD

R4 ,RO

ADC

asP

*HI ORDER

:PERFORM INIT SUBT.

:IF CARRY THEN OVERFLOW HAS OCCURRED
*THIS IS A LONGER LASTING CARRY BIT

ROL
ROL

ADC

M.DP42:

RS.=(SP)
2(SP)

M.DP50

CLR
ROL

ADC

000004

;COUNTER FOR DIVISION CYCLES

Ré4,=(SP)

BCS

000002

#40,-(SP)

.RO

;TEST CARRY INDICATOR

*IF TO CARRY THEN ADD, ELSE SuBT.
:CLEAR UP FOR NEXT TIME
;ADD =(DIVISOR)
*SET CARRY

:ADD +(DIVISOR)
*SET

CARRY

_ :SET CARRY
"*TEST

THE UPDATE

INDICATOR

CIR6IFO UNIBUSS RK6 DR _PRTZ
CZR6IF.PN
04-JAN-82 12:46
7127

037206
037210
037212
037216
037220
037222
037224
037226
037230
037232

060501
005500
060400
000241

037234
037236
037242
037244

006103
062706
000242
000207

037246
037252
037254

062706
000262
000207

001401
005203
005366
003347
006003

MACY11

30(1046)

06-JAN-82

13:04

POWER DOWN AND UP ROUTINES

BEQ

INC
DEC
BGT
ROR
BCS

000006

103404

LJRA
PAGE 143
;IF O,FORGET IT
sNO CARRY POSSIBLE HERE

sDECREMENT CTR
;BR IF MORE TO DO

ADD
ADC
ADD

000010

M.DP44:

ROL

ADD
CLv
RTS

000006

M.DP50: ADD
SEV
RTS

sADJUST STACK BY 4 WORDS

SEQ 0142

N1
PAGE 144

30(1046)
13:04
04-JAN-82
SCOPE HANDLER ROUTINE
SBTTL

SEQ 0143

SCOPE HANDLER ROUTINE

SoNAN AR

R AR

s*THIS ROUTINE

AN AN RN A AT

CONTROLS

RN AR AN R IR ARAANANENRARARARCANOARAENS

THE LOOPING OF

SUBTESTS.

IT WILL INCREMENT

;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>

s*THE

SWITCH OPTIONS PROVIDED BY

LOOP ON
INHIBIT
LOOP ON
LOOP ON

s *SW14=1

*SW11=1
: *SW09=1
; *SW08=1
s*CALL

i
037256
037256
037260
037266

032777
001114

037270

000416

037272
037276
037304
037310
037314
037316
037320
037324
037326
037326
037334
037336
037344
037346
037352
037354
037362
037364
037372
037374
037402
037404
037410
037414
037416
037424
037426
037432
037434
037440
037446
037450
037456
037464
037470

013746

104407

012737
005737
012637
000463
022626
012637
000423

032777
001404
127737
001465
105737
001421
123737
101015
032777
001404

013737
000446
105037

$SCOPE:

040000

141652

1$:

SCOPE
CKSWR
BIT
BNE

NHHANASTART OF

$XTSTR: BR

000004
037316
177060
000004

000004

b ¥

000004
000400

141604

161576

001102

001103
001103

001000

141546

001110

001106

001103
001174
004000

7$:
48:

141514

3s:

001216
001104
001174

000001
037534
001102
001102

001104

001104
001174
001214

CMP

MoV
BR

:;SCOPE=]0T

#B1T14,3SWR
$OVER

ngf

FOR

THE

;. TEST

FOR CHANGE

IN SOFT-SWR

..LOOP ON PRESENT TEST?

XOR

SNERRVEC, = (SP)
#5$, A#ERRVEC

an1/7060

(SP)+, 3#ERRVEC
$SVLAD
(SP)+, (SP)+
§§p>+. ARERRVEC

JYES IF SW14=1
TESTERNNANN

s:IF RUNNING ON THE ''XOR'' TESTER CHANGE
s:THIS INSTRUCTION TO A 'NOP'’' (NOP=240)
;. SAVE THE CONTENTS OF THE ERROR VECTOR
:SET FOR TIMEOUY
;. TIME OUT ON XOR?
s ;RESTORE THE ERROR VECTOR
;.60 _TO THE NEXT TEST
s CLEAR THE STACK AFTER A TIME OUT
..RESTORE THE ERROR VECTOR
LOOP ON THE PRESENT TEST

68 : ; MUANNEND OF CODE FOR THE XOR TESTER#‘#‘#
BIT
521T08.ASWR
..LOOP ON SPEC. TEST?

2$:

001115

MOV
MOV
TST
MOV
B8R

THIS ROUTINE ARE:

TEST
ITERATIONS
ERROR
TEST IN SWR<7:0>

1$:

$SVLAD:

BEQ
CMPB
BEQ

TST8B

BEQ
CMPB
BHI
BIT
BEQ
MOV
BR
(LRB
(LR
BR

BIT

BNE
1ST
BEQ
INC
(MP

B8GE

MOV
MOV

INCB

MOvB

dSWR,STSTNM
$OVER
$ERFLG

:BR IF NO

;30N THE RIGHT TEST?
s:BR _IF YES

SWR<7:0>

s sHAS AN ERROR OCCURRED?

ggRflAX.SERFLG

;:BR If NO
::HAX ERRCRS FOR THIS TEST OCCURRED?

zg1109.QSUR

..LOOP ON ERROR?

SLPERR,SLPADR
SOVER
SERFLG
$TIMES
1%
#BIT171,3aSWR
1$
$PASS
1$
$ICNT
STIMES,SICNT
$OVER
#1,81CNT
SHXCN;.STIHES
$TSTN
STSTNM,STESTN

::SET LOOP ADDRESS TO LAST SCOPE

:BR 1 IF NO

;BR_IF NO

;. ZERO_THE ERROR FLAG
s CLEAR THE NUMBER OF ITERATIONS TO MAKE
:.ESCAPE TO THE NEXT TEST
2o INHIBIT ITERATIONS?
;:BR IF YES
..IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS

: INCREMENT ITERATION COUNT
;s CHECK THE NUMBER OF ITERATIONS MADE
:;BR IF MORE ITERATION REQUIRED
JoREINITIALIZE THE ITERATION COUNTER
;:SET NUMBER OF ITERATIONS TO DO
2 COUNT TEST NUMBERS
2.SET TEST NUMBER IN APT MAILBOX

[T W)

MACY11

CZROIFO UNIBUSS RK6 DR PRT2
CZROIF P11
06~JAN-82 12:46

—

CZROIFO UNIBUSS RK6 DR_PRT2
CZROIF.PN
04~JAN-82 12:46

037476

011637

MACY11 30(1046)
04~JAN-82 13:04
SCOPE HANDLER ROUTINE

001106

SOVER:

001106

MOV
MOV
CLR
MOv8
MOV

MOV
RTI

037534

B 12
PAGE 145

(SP) ,$LPADR
(SP) ,SLPERR
SESCAPE
#1,SERMAX
STSTNM,@DISPLAY

$SLPADR, (SP)

SMXCNT: 2000,
.SBTTL

ERROR HANDLER ROUTINE

;s SAVE SCOPE LOOP ADDRESS
s SAVE ERROR LOOP ADDRESS
scCLEAR THE ESCAPE FROM ERROR ADDRESS

scONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER

::FUDGE RETURN ADDRESS
..fIXES PS

¢ sMAX. NUMBER OF ITERATIONS

Qttfitttt'.ttttttttttttt"*t.'ttttfifittttttttttttt.'ttt't..tt.tt'

STHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
:«SAVE THE ERROR ITEM NUMSER AND THE ADDRESS OF THE ERROR CALL
*«AND GO TO TYPERR ON ERROR
:«THE _SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

-su15 )|
'SH13-

HALT ON ERROR
INHIBIT ERROR TYPEOUTS

tSU10

BELL ON ERROR

LOOP ON ERROR

:'SUO9=

s*»CALL

122737
001007
113737

004737
00

OO~

ek
o
—

055332
001205

001230

001114
040534

037656
21%:
22%:
2$:

141252

001110
001176
037716

001176

INCB

141236

3s:

48:

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

$ERFLG

BEQ

BIT

#8I1T10,3SWR

INC
MOV
sus
MOVB

$ERTTL
(SP) ,$ERRPC

8EQ
TYPE

18
JSBELL

JSR

CMPB
BNE
MOVB
JSR

#APTENV,SENV
23
$ITEMB,21$
PC,8ATY4

BYTE
BR

0
22%

TYPE

BYTE

TST
BPL

HALT
CKSWR

8IT
BEQ
MOV

TST
BEQ

MOV

J:TEST FOR CHANGE IN SOFT-SWR

..SET THE ERROR FLAG

;DON'T LET THE FLAG GO TO ZERO

STSTNM,aDISPLAY ..DISPLAY TEST NUMBER AND ERROR FLAG

#2,3ERRPC
@SERRPC,SITEMB
#8IT13,3SWR
208
PC,TYPERR

8IT
BNE
208

000001

001000

CKSWR
MOV

18:
—b
o
b

141304
020000

001102
002000
001200
001112
001116
000002

104401

7%:

001103

(N
=D =

032777

$ERROR:

-3

104407
105237
001775
013777

—=OQ0O
HOO

037536
037536
037540

ERROR

JSCRLF

s sBELL ON ERROR?

JsNO - SKIP
s sRING BELL

;s COUNT THE NUMBER OF ERRORS
:;GET ADDRESS OF ERROR INSTRUCTION

;;STRIP AND SAVE THE ERROR ITEM CODE

;:SKIP TYPEOUT IF SET
J:SKIP TYPEOUTS

;:G0 TO USER ERROR ROUTINE
J;RUNNING IN APT MODE
:iNO,SKIP APT ERROR REPORT
::SET ITEM NUMBER AS ERROR NUMBER
2 sREPORT FATAL ERROR TO APT

aSWR
3s

::APT ERROR LOOP
;sHALT ON ERROR
;:SKIP 1F CONTINUE

#81709,aSWR
48
$LPERR, (SP)
S$SESCAPE
5%

;:LOOP ON ERROR SWITCH SET?
;:BR JF NO
;sFUDGE RETURN FOR LOOPING
;sCHECK FOR AN ESCAPE ADDRESS
::BR [F NONE

$ESCAPE, (SP)

;sHALT ON ERROR!
JsTEST FOR CHANGE IN SOFT-SWR

;sFUDGE RETURN ADDRESS FOR ESCAPE

SEQ (144

CZR6IFD UNIBUSS RK6 DR PPT?2

CZR6IF .P1T
7259
7260
7261
7262
7263
7264

;‘ggz

037722
037722
037730
037732
037734
037734

04-JAN-82 12:46
022737
001001
000000

031636

MACY11 30(1046)

04=JAN-82

13:04

ERROR HANDLER ROUTINE

000042

5$:

6$:

000002

.SBTTL

CMP
BNE
HALT

€12
PAGE 146

#SENDAD ,a#42
63

;sACT=11 AUTO-ACCEPT?
;sBRANCH IF NO
12 YES

RTI

s sRETURN

TYPE ROUTINE

7267

JINARERNR

7268
7269
7270
7271

J*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
s*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
;*NOTE1:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
;*NOTE2:
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

;5;%

AR RAA N AR

;*NOTE3:

RN R R RN

SEQ 0145

7274
7275
7276
7277

s*CALL:
t1) USING A TRAP INSTRUCTION
TYPE
+MESADR
tOR

7279

MESADR

$TYPE:

TSTB
8PL
HALT

7282
7283
7284
7285
7286
7287

037736
037742
037744
037746
037750
037752

105737
100002
000000
000430
010046
017600

001157

000002
000001

001230

7290
7291
7292
7293
7294
7295
7296
7297
7298
7299

037766
037774
037776
0640002
040006
0640010
0640016
040020
040022
040024

132737
001405
010037
004737
000000
132737
001003
112046
001005
005726

000100

001231

040030
040034
040036
040042
040044
040050
040052
040054
040056
040060
040064
040066
040072
040076

062716
000002
122716
001430
122716
001006
005726
104401
001205
105037
000755
004737
123726
001350

000002

7288
7289

7300

7301
7302
7303
7304
7305
7306
7307
7308
7309
7310
7311
7312
7313
7314

037756
037764

040026

122737
001011

012600

18:

040006
040524
000040

001231

61$:
62%:

2$:

000011

608 :
3s:

48:

000200

040266
040150
001156

5%:
6$:

RA RN

$SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

°t

7278

AR AR NN AN AN AR AN R NN NA NN

;JMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE

B8R
MOV
MOV
cMP8
BNE
B8ITB
BEQ
MOV
JSR

WORD
BITB
BNE
MOov8
BNE
TST

MOV

ADD
RTI
(MPB
8EQ
(MPB
BNE
TST
TYPE
$CRLF
CLRB
BR
JSR
(MPB
BNE

$TPFLG
18

33
RO,=(SP)
#2(SP) ,R0O

;:1S THERE A TERMINAL?
;:BR IF YES
..HALT HERE IF NO TERMINAL
LEAVE
*SAVE RO
..GET ADDRESS OF ASCIZ STRING

#APTSPOOL ,$ENVM
62%
RO,61$
PC,$ATY3
O
#APTCSUP,SENVM
608
(RO)+,~-(SP)
43
(SP)+

; ;SPOOL MESSAGE TO APT
2:NO,GO CHECK FOR CONSOLE
::SETUP MESSAGE ADDRESS FOR APT
..SPOOL MESSAGE TO APT
;JMESSAGE ADDRESS
..APT CONSOLE SUPPRESSED
;;YES,SKIP TYPE OUT
::PUSH CHARACTER TO BE TYPED ONTO STACK
J:BR IF IT ISN'T THE TERMINATOR
;s
IF TERMINATOR POP IT OFF THE STACK

#2,(SP)

..ADJUST RETURN P(
JRETURN
S :BRANCH IF <HT>

#APTENV,SENV
623

(SP)+ RO

#HT, (SP)
8s
#CRLF, (SP)
5%
(SP)+
$CHARCNT
23
PC.STYPEC
SFILLC,(SP)+
23

2 sRUNNING IN APT MODE
2 :NO,GO CHECK FOR APT CONSOLE

;sRESTORE RO

;sBRANCH I1F NOT <CRLF>

;:POP <CR>XLF> EQUIV
;;TYPE A CR AND LF
;s CLEAR CHARACTER COUNT
2sGET NEXT CHARACTER
;.60 TYPE THIS CHARACTER
:
so1S
IT TIME FOR FILLER CHARS.?
sc1F NO GO GET NEXT CHAR.

CIRG6IFO UNIBUSS RK6 DR_PRT2
CZROIF .P11
04=JAN-82 12:46
040100

013746

001154

040104
040110
040112
040116
040122

105366

000001

000770

MACY11 30(1046)

D 12
PAGE 147

13:04

04-JAN-82

TYPE ROUTINE

$NULL,~(SP)

78:

DF(CB

040150
040266

1(SP)

PC,STYPEC

SCHARCNT
14]

SEQ 0146

;;GET # OF FILLER CHARS. NEEDED
¢sAND THE NULL CHAR.
2;DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF STACK
:.G0 TYPE A NULL
;:D0 NOT COUNT AS A COUNT
;.LOOP

sHORIZONTAL TAB PROCESSOR
040124
040130

112716
004737
132737
001372
005726
000724

000040
040150
000007

105777
100022
017746
042716
122716
001012

140770

105777
100375
117716
042716
122716
001366

040266

040270

MOVB

JSR
8118
BNE

$TYPEC:

140764
177600

1640744

TST8
BPL
MOV

a$TkKS
108
a8$TKB,-(SP)

000021

000002

000015

108:

140714
000002

000002

#SXOFF ,(SP)

1028

CMPB

8
$CHARCNT
: . WORD
$TYPEX: RTS
.SBTTL
MR

;;CHAR IN KYBD BUFFER?
;:BR IF NOT
;:6ET CHAR
;:STRIP EXTRANEOUS BITS
;:WAS CHAR XOFF
;:BR IF NOT

#SXON, (SP)

::GET CHAR
J:STRIP IT
JsWAS IT XON?

(SP)+

s FIX STACK

a8TPS
108

sWAIT UNTIL PRINTER IS READY

#177600, (SP)

qu.Z(SP)

18:

;sREPLACE TAB WITH SPACE
;sTYPE A SPACE
;sBRANCH IF NOT AT
;:TAB STOP
;:POP SPACE OFF STACK
;:GET NEXT CHARACTER

;sWAIT FOR CHAR

asTKS
1018
asTKB, (SP)

;:BR IF NOT

2(SP) ,as$TP8

040266
000012

#177600. (SP)

101$

102%:
140722

g;.SCHARCNT
(SP)+
pa 3

TST8
BPL
MOvB

140740
177600

,(SP)

PC.STYPEC

TST

CMPB
BNE

101s:

B8IC

000023

005726
105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

8$:
9%:

SCHARCNT
STYPEX
#LF,2(SP)
$iYPEX
(PC)+

:sLOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
s sBRANCH IF NO
::YE§?°CLEAR CHARACTER COUNT
. EX
:+1S CHARACTER A LINt FEED?
¢ sBRANCH IF YES
s COUNT THE CHARACTER
s sCHARACTER COUNT STORAGE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
2R

SRRt

iR 2383222223222
2223382223808

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPEMDING ON WHETHER THE
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
s *REPLACED WITH SPACES.

s*CALL:

MoV

NUM,
- (SP)

scPUT THE BINARY NUMBER ON THE STA(CK

:MJD001
:MJDOO
;MJD001
:MJD001
:MJDO01
:MJDOO
;MJD001
;MJDOO1
:MJD001
sMJDO01
:MJDO0T
:MJD001
:MJD001
;MJD001
:MJD0O1T
:MJDOO1
;MJD001

CZR6IFO UNIBUSS RK6 LR FRT?
CZROIF P11
04--JAN=82 12:46

MACY11

E 12

30(1046)
04~JAN-82 13:04 PAGE 148
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

::6G0 TO THE ROUTINE

$TYPDS:

040272
040272
060274

RO,-(SP)
R1,-(SP)
R2.-(SP)

R3.~(SP)
RS,~-(SP)

#20200,-(sP)

020200
000020

20(sp> RS

000055

18:

040506
000040

2%:

040476

3s:

A ¥

5%:

000001
000060

78:

000040

RS
#'=,1(SP)
RO
#SDBLK ,R3

'éL(RS)+
R

$DTBL (RO) ,R1
R1,R5
43
R2

38
R1,R5
R2
5%
(SP)
78
(SP)

63
1(SP) -1(R3)

Ré

000010

8s:
177777

9%:

6
(SP)+
93
<1(SP) ,~2(R3)
(R3)
(SP) +.RS

(SP)+,‘R3

040506
000002

(SP)+.R2
(SP)+,R1
(SP)+ RO
$DBLK

5(sP),4( SP)

000004

(SP)+,(SP)

$DTBL:

040502
040504

;:PUSH RO ON STACK
2:PUSH R1 ON STACK
JiP'JSH R2 ON STACK
;:PUSH R3 ON STACK
;:PUSH RS ON STACK
;sSET BLANK SWITCH AND SIGN
..GET THE INPUT NUMBER
;BR IF

INPUT IS POS.

..HAKE THE BINARY NUMSER POS.
JJMAKE THE ASCII NUMBER NEC.
;:IERO THE CONSTANTS INDEX
;eSETUP THE OUTPUT POINTER
;sSET THE FIRST CHARACTER TO A BLANK
;;CLEAR THE BCD NUMBER
J:GET THE CONSTANT
;;FORM THIS BCD DIGIT
;:BR [F DONE
;s INCREASE THE BCD DIGIT BY 1
J:ADD BACK THE CONSTANT

:;CHECK IF BCD DIGIT=0
::FALL THROUGH IF O
..STILL DOING LEADING 0°'S?

BR IF YES
MSD?
,.BR 1F NO
::YES==SET THE SIGN

;sMAKE THE BCD DIGIT ASCII
JsMAKE IT A SPACE IF NOT ALREADY A DIG IT
J:PUT THIS CHARACTER IN THE OUTPUT BUF FER
;:JUST INCREMENTING
;sCHECK THE TABLE INDEX
2260 DO THE NEXT DIGIT
::G0 TO EXIT
;:GET THE LSD
.60 CHANGE TO ASCII
..gSSI;HEOLSD THE FIRST NON-ZERO?
..YES-~SET THE SIGN FOR TYPING
:sSET THE TERMINATOR
;:POP STACK INTO RS
;:POP STACK INTO R3
;:POP STACK INTO R2
;:POP STACK INTO R1
;:POP STACK INTO RO
JsNOW TYPE THE NUMBER
;s ADJUST THE STACK

;:RETURN TO USER

SEQ 0147

000004

$DBLK:
.SBTTL

040516
060524
040532
040534
0460542

000001
000001

040762
040760

§ATY1:

000001

040762

$SATY4:
$ATYC:

SATY3:

040760

000001

001230

000100

001231

000004
000002
001210

000004

001224

MoVB

MOVB
B8R
MOVB
MOV
MOV
TST8

BEQ

001210

000004
000002

000004

177776

000000
105737

0460672

037736
040762

000004
000002
001210
040762
040761
040760

040762

012600
000207
000
000
000
040764
000200
000001

dddR

2222222222222

22322222222]

;.70 REPORY FATAL ERROR

::TO TYPE A MESSAGE

M ,SFFLG

c-TO ONLY REPORT FATAL ERROR

RO,-(SP)
R1,-(SP)
SMFLG
58

:cPUSH RO ON STACK
:cPUSH R1 ON STACK
..SHOULD TYPE A MESSAGE?

SATY(

#APTENV, SENV

1%:

TST

2s:

TST8

3s:

MOV

001230
001210

2SR

#1,8FFLG
#1,SMFLG

cIF NOT:

¢IF NOT:

..OPERATING UNDER APT?

#APTSPOOL
, SENVM ..SHOULD SPOOL MESSAGES?
F NOT:
3s
BR

001224
001226
000004

SEQ 0148

4
.BLKW
APT COMMUNICATIONS ROUTINE

7434
7435
7436
7437
7438
7439
74640
7441
7442
7443
7444

040506

7627

7428
7429
7430
7431
7432
7433

F 12
MACY11 30(1046)
04-JAN-82 13:064 PAGE 149
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

118:

001212
000004

TST
MOV
ADD

128:

SMFLG:
SLFLG:
$FFLG:

INC
CLRB
CLRB
CLRB

MOV
MOV
RTS

.BYTE
.BYTE
.BYTE
.EVEN
APTSIZE=200
APTENV=001

@84 (SP) ,RO
#2,4(SP)
SHSGTYPE
RO $MSGAD

(RO)+

$MSGAD ,RO
RO
RO, SMSGLGT
#4 ,SMSGTYPE
58
34 (SP) .48
#2,4(SP)

::GET MESSAGE ADDR.
:;BUMP RETURN ADDR.
;. SEE IF DONE W/ LAST XMJSSION?
WAIT
¢ 1F NOT:
::PUT ADDR IN MAILBOX
;.FIND END OF MESSAGE

::SUB START OF MESSAGE
sGET MESSAGE LNGTH IN WORDS
:sPUT LENGTH IN MAILBOX
;s TELL APT TO TAKE MSG.

:;PUT MSG ADDR IN JSR LINKAGE

-BUMP RETURN ADDRESS

177776,-(SP)
Sc,STYPE

: ;PUSH 199776 ON STACK

$FFLG
128
SENV
128
$MSGTYPE
118
@4 (SP) ,SFATAL
#2,4(SP)
SMSGTYPE
$FFLG

¢ sSHOULD REPORT FATAL ERROR?
BR
;.1F NOT:

+3CALL TYPE MACRO

::RUNNING UggER APT?
F NOT:

..FINISHED LAST MESSAGE?
c1F NOT:

WAIT

..GET ERROR ”

;BUMP RETURN ADDR.

;s TELL APT TO TAKE ERROR
J:CLEAR FATAL FLAG
;sCLEAR LOG FLAG
JsCLEAR MESSAGE FLAG
;:POP STACK INTO R1
;;POP STACK INTO RO
J:RETURN
;JMESSG. FLAG
;:L0G FLAG

.,FATAL FLAG

(anYen

CZRGIFO UNIBUSS RK6 DR PRTZ2
CZROIF .P11
04-JAN-82 12:46

7483
7484
7485
7486
7487
7488
7489
7490
749N
7492
7493
7494
7495
7496
7497
7498
7499

MACY11 30(1046)

04~JAN-82

13:04

APT COMMUNICATIONS ROUTINE

G 12
PAGE 150

SEQ 0149

APTSPOOL=100
APTCSUP =040
.SBTTL
BINARY TO OCTAL (ASCII) AND TYPE

000100
000040

T LI

:*THIS ROUTINE IS USED TO CHANGE A 16-8IT RINARY NUMBER TO A 6-DIGIT
s*0CTAL (ASCII) NUMBER AND TYPE [T,
:*%;ZtOS---ENTER HERE TO SETUP SUPPRESS EROS AND NUMBER OF DIGITS TO TYPE
1

MoV

NUM,-(SP)

;;NUMBER TO BE TYPED

BYTE

J:N=1 T0 6 FOR NUMBER OF DIGITS TO TYPE

.BYTE

M
o%

TYPOS

;:CALL

;:M=1

FOR TYPEOUT

0RO

;:1=TYPE LEADING ZEROS
::0=SUPPRESS LEADING ZEROS

:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

7500

;*$TYPOS OR STYPOC
;*CALL:

o¥
M
%

MOV
TYPON

NUM,~(SP)

;;NUMBER TO BE TYPED
;s CALL FOR TYPEOUT

:*EIIEOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

o¥
o
040764

017646

000000
000001
041211
000002

000001
000006
000005

041207

$TYPOS: MOV

MOVSB

Move
ADD

B8R

$TYPOC: MOVB

MOVB
STYPON: MOVB
MOV
Mov

000006
000012
18:

2s:

001002

177770

3s:

NUM,-(SP)

;sNUMBER TO BE TYPED
;sCALL FOR TYPEOUT

a(SP) ,-(SP)

::P1CKUP _THE MODE

(SP) +,$0MODE+1
#2,(SP)

;;NUMBER OF DIGITS TO TYPE
; :ADJUST RETURN ADDRESS

1(SP) ,SOFILL

$STYPON

#1,80FILL

:.LOAD ZERO FILL SWITCH

:oSET THE ZERO FILL SWITCH

#6,$OMODE +1
#5,80CNT
R3,-(SP)
R4 ,-(SP)

RS,-(SP)
§2HODE+1.R4

:;SET FOR SIX(6) DIGITS
2;SET THE ITERATION COUNT
;:SAVE R3
;s SAVE Ré
::SAVE RS
::GET THE NUMBER OF DIGITS TO TYPE

ADD
MOVB
MOVB
MOV

#6 R4
R4, SCMODE
SOFILL.R4
12(SP) RS

;;SUBTRACT IT FOR MAX. ALLOWED
s.SAVE IT FOR USE
:.GET THE ZERO FILL SWITCH
:;PICKUP THE INPUT NUMBER

ROL

:;ROTATE MSB INTO '°C"’

ROL
ROL
MOV

RS
RS
R5,.R3

DE(CB
B8PL
8IC

$SOMODE
78
#177770.R3

MOV
:2%8

04121

041210

MOV
TYPOC

CLR

BR
ROL

ROL

BNE

;. CLEAR THE OUTPUT WORD

3s
RS

;.60 DO MSB
;:FORM THIS DIGIT

;;GET LSB OF THIS DIGIT

;;TEST FOR O

;J:TYPE THIS DIGIT?
;:BR IF NO
J:GET RID OF JUNK

TM~

CZR6IFO UNIBUSS RK6 DR _PRT?
CZROIF.PN
04-JAN-82 12:46

CZR6IFO UNIBUSS RK6 DR PRTZ
CZR6IF .P11
06=JAN-82 12:4
7539
75640

7561
7562
7563
75644
7565

7546
7547
7548
7549
7550
7551
7552
7553
7554
7555
7556

7561

0641122
061124

041126
041130
041134
041140
0641144

H 12
MACY11 30(1046)
04~JAN-82 13:04 PAGE 151
BINARY TO OCTAL (ASCII) AND TYPE

005704
001403

005204
052703
052703
110337
104401

0641150
041154
041156
041160
041162
041164
061166
041170
041172
041200
041202

105337
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002

041210

000
000000

48:

000060
000040
061204
041204
041206

78:

68:
000002

000004
8s:
$OCNT:
$OFILL:
$OMCDE:
.SBTTL

..suppnsss THIS 0?

INC

S:DON'T SUPPRESS ANYMORE 0°'S

R3,8$
8$
$OCNT

*:SAVE FOR TYPING
2360 TYPE THIS DIGIT
2 :COUNT BY 1

$:60 DO THE LAST DIGIT

MOV
MoV
MoV
MOV

(SP)+.Ré
(SP)+,R3
2(SP) ,4(SP)
(SP)+, (SP)

S:RESTORE Ré

.BYTE
.BYTE

0
0

BEQ

BIS
BIS

#'0,R3
2R3

BGT
BLT
INC

2
63
R4

MOV

(SP)+,RS

MOVB
TYPE
DECB

B8R

RTI

.BYTE
.BYTE
.WORD

:BR 1 YES

SIMAKE THIS DIGIT ASCII
S:MAKE ASCII IF NOT ALREADY

S:BR IF MORE TO DO
;:BR IF DONE
:INSURE LAST DIGIT ISN'T A BLANK

7568
7570
757

1220

.ENABL
$TKCNT:

000000
000000
000000

LSB
.WORD

$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB

000001

041221
041222

$TKQEND=.
.EVEN

*:RESTORE
RS

:;RESTORE R3

s:SET THE STACK FCR RETURNING
: -RETURN

s:STORAGE FOR ASCII DIGIT
;. TERMINATOR FOR TYPE ROUTINE

0
0
0
TTY INPUT ROUTINE

iR RN RN AR A AR R AN RN A RN AR

1212
1214
041216

SEQ 0150

s:0CTAL DICIT COUNTER
;. ZERO FILL SWITCH
;sNUMBER OF DIGITS TO TYPE
R AN AN ARA AN AN RARA

AN AN

csNUMBER OF

0
0
1

NARRRNRNARARAAANS

ITEMS IN QUEUE

;s INPUT POINTER
;. OUTPUT POINTER
;. TTY KEYBOARD QUEUE

s*TK INITIALIZE ROUTINE
:«THIS ROUTINE WILL INITIALIZE

THE

TTY KEYBOARD INPUT QUEUE

*ssrup THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

.-cALL.

o
o

7581
7582
7583
7584
7585
7586
7587
7588

061222
041226
041234
041242
041250
041256
041262
041270

005037
012737
013737
012737
012737
005777
012777
000207

041212
041220
041214
041272
000200
137664
000100

JSR
RETURN

$TKINT: CLR

STKCNT

::CLEAR COUNT OF ITEMS IN QUEUE

#200, 3#TKVEC+2

;;'BR"'

#100,38TKS

::ENABLE TTY KEYBOARD INTERRUPT

MoV
MOV
Mov

#STKQSRT,$TKQIN ;;MOVE THE STARTING ADDRESS OF THE
S$TKQIN,$TKQOUT
;;QUEUE INTO THE INPUT & OUTPUT POINTERS.
#$TKSRV ¥ TKVEC ..}NILIAL!ZE THE KEYBOARD VECTOR

TST

as$1kB8

MOV
137654

PC,$TKINT

MOV
RTS

LEVEL 4

sCLEAR DONE FLAG

c.RETURN TO CALLER

:*TK SERVICE ROUTINE
:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:*IT IN THE QUELE.
.
.

:*IF THE CHARACTER IS A

*'CONTROL=C''

(“C) STKINT IS CALLED AND

CZR6IFO UNIBUSS RK6 DR_PRT?
CZR6IF.P1N
04-JAN-82 12:46

MACY11 30(1046)

04-JAN-82

TTY INPUT ROUTINE

13:04

I 12

PAGE 152

SEQ 0151

;*UPON RETURN EXIT IS MADE TO THE '‘CONTROL~C'' RESTART ADDRESS (STOP)
117746

$TKSRV: MOVB

137650
177600
000021

BIC
cv>
BNE

000002

021627
001007

30s:

000003

042432
041222

041354

041356
041356
041364
041366
041372
041374
041376
041402

041404
041410

041412
041416
041420
0461424
041430
041434
041436

001500
022737
001004
104401

005726
000451
021627
001021
005077
005726

000176

001140

000001

041212

2$:

001200

000023

3s:

PC,S$TKINT
+
(SP)
STOP

cMP
BNE

CMP

LSCNTLC

(iP),l?

#SWREG,
SWR

#1,$TKCNT

3s
L3BELL

(SP)+
5%
(SP) 423

328

asTKS

+
(SP)
as$TKks

318:

137526

318

@$TKkB, - (SP)

#2C177,(SP)

137500

32$%:

INC

48:

Mov8

5$:

RTI

000175
000040
177516

041214
041214

041221

041220

061214

:.PICKUP THE CHARACTER
¢:STRIP THE JUNK

::1S IT A RANDOM XON?
::BRANCH IF NO
2:CLEAN RANDOM XON OFF STACK
;sRETURN

;IS IT A CONTROL C?
2 :BRANCH IF NO
J:TYPE A CONTROL=C (“C)
;¢ INIT THE KEYBOARD
;:CLEAN UP STACK
;;CONTROL C RESTART
2:1S IT A CONTROL G?
:JBRANCH IF NO
:31S SOFT=SWR SELECTED?
;260 TO SWR CHANGE
:21S THE QUEUE FULL?
; :BRANCH IF NO
J:RING THE TTY BELL
::gk??N CHARACTER OFF OF STACK

;:IS IT A CONTROL=-S?
;2BRANCH IF NO
;:DISABLE TTY KEYBOARD INTERRUPTS
22CLEAN CHAR OFF STACK
J:WAIT FOR A CHAR
;2LOOP UNTIL ITS THERE
JsGET THE CHARACTER

J:MAKE IT 7-BIT ASCII

;1S IT A CONTROL-Q?
31
JsBRANCH IF NO
#100,3$TKS
:JREENABLE TTY KEYBOARD INTERRUPTS
:sRETURN
STKCNT
2;COUNT THIS CHARACTER
(gP).#140
::1S IT UPPER CASE?
4
:sBRANCH IF YES
(SP) ,M175
::1S IT A SPECIAL CHAR?
43
:2BRANCH IF YES
#40, (SP)
ssMAKE IT UPPER CASE
(SPJ+,@$TKQIN
JAND PUT IT IN QUEUE
$TKQIN
:sUPDATE THE POINTER
gIKOIN,ISTKOEND 2260 OFF THE END?
::BRANCH IF NO
#$TKQSRT,$TKQIN ;J;RESET THE POINTER
J2RETURN
(s:)+.021

041212
000140

000002

(SP)+

JSR
TST
JMP
CMpP
BNE
CMP
BEQ

137534

000100

(SP)
, #$XON

308

(SP) 43
18

137522
177600
00C021

041444

041446
041452
041456
041460
041464
041466
041472
041476
041502
041510
041512
041520

18:

#AC177. (SP)

CMP
BNE

TYPE

036320
000007
061346

TST
RTI

a$TKB, - (SP)

AR AR R AN R AR AN R AN

AR C R AN AN AN R AR R AR RN N AN RN ARA R

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.

N RN RN

s*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.

;RANOO1
;RANOO1
;RANOO1
;RANOO?

;RANOO1

022737
001124

041550
041554

105777
100121
117746
042716
021627

001300

000176

MACY11 30(1046)

04-JAN-82

TTY INPUT ROUTINE

001140

S$CKSWR: (MP

BNE
TST8

137406

8PL
Move
8IC
CMP

137402
177600

000007

BNE

13:04

#SWREG, SWR

15%
as$TKS
15
as$TKB,~-(SP)

#4C177,(SP)
(SP) A7
2

J 12
PAGE 153

SEQ 0152

EEexxr IF
..HAKE IT

7-BIT ASCII

2:1S IT A CONTROL=G?
s.1F NOT, PUT IT IN THE TTY QUEUE
ssAND EXIT

RAN AN RN AN AARARR RO RAAA AR RARAAAARAARAAANTANRAA
AR AANRAC AR

s*CONTROL IS PASSELC TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
s*ROUTINE OR FROM THE

123727
001674
005726

001134

000001

004737
005077

041222
137344
000001

001135

041606
041612
041616
041622
041624
041630
041632
04134
041640

104401
104401
013746
104402
104401
005046
005046
105777
100375

042444
042451
000176

041642
041646

117746
042716

041652
041656
041660

021627
001015

041664

041670
041676
041700
041706

112737

104401

062706
123727
001003
012777
000137

041712
041716
041720
041724
041736

021627
001005

041732
041736
041740
041744
041746

01627
0):022
05766
001 '003
016¢77

104401

062706
000737

19%:

TYPE
TYPE
MOV
TYPOC
TYPE
CLR

7%:

TST8

$GTSWR:

042462

SWREG, - (SP)

AS A RESULT 9F A

-SMNEW

JsECHO THE CONTROL=-G (*G)
;s TYPE CURRENT CONTENTS
;:SAVE SWREG FOR TYPEOUT
;:60 TYPE~-OCTAL ASCIICALL DIGITS)
;:PROMPT FOR NEW SWR
;s CLEAR COUNTER

BPL

=(SP)
=(SP)
as$TKS
78

137300
177600

Movse
8IC

#4C177. (SP)

as$TKB, - (SP)

:;PICK UP CHAR
ssMAKE IT 7-BIT ASCII

000003

CMP
BNE

(SP) 43
9s

5:1S IT A CONTROL=C?
s :BRANCH [F NOT
;:YES, ECHO CONTROL-C (*~C)
;:CLEAN UP STACK
;oREENABLE TTY KEYBOARD INTERRUPTS?
;sBRANCH IF NO
JcALLOW TTY KEYBOARD INTERRUPTS
s CONTROL=C RESTART

137304

042432
000006
001135
000100
036320

TYPE
ADD
CMPB

000001
137236

8%:

000025

9%:

062437
000006

:
208

000015

108:

000004

000002

137164

CLR

BNE
mMov
JMP

CMP
BNE

gINTAGM
#100,a8TKS
STOP

(SP) ,#25
108
LSCNTLU

;s THE NEW SWR

;s CHAR THERE?
;:IF NOT TRY AGAIN

TYPE
ADD
BR

#6.SP

::1S IT A CONTROL-U?
s BRANCH IF NOT
s:YES, ECHO CONTROL-U (*U)
: IGNORE PREVIOUS INPUT

CMP
BNE
TST
BEQ
MOV

(S P).M5
16 $
4( SP
1$
2( SP) ,aswR

2218 IT A <CR>?
:sBRANCH IF NO
2:YES, IS IT THE FIRST CHAR?
;JBRANCH IF YES
;:SAVE NEW SWR

19$

041556
041564
041566
041570
041574
041600

SOFTWARE SWITCH REGISTER TRAP CALL,

6;CONTROL-G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
CMPB
SAUTOB, #1
;:ARE WE RUNNING IN AUTO-MODE?
BEQ
28
; ;BRANCH IF YES
+
TST
(SP)
:sCLEAR CONTROL-G OFF STACK
PC.STKINT
JSR
sFLUSH TME TTY INPUT QUEUE
CLR
a8$TKS
s:DISABLE TTY KEYBOARD INTERRUPTS
MOovB
#1,8INTAG
::SET INTERRUPT MODE INDICATOR

scLET'S TRY IT AGAIN

oTM

CZR6IFC UNIBUSS RK6 DR PRTZ
CZROIF .P11
04-JAN-82 12:4

CZR6IFO UNIBUSS RK6 DR PRTZ
CZR 61F.P11
04-JAN-82 12:46

041754
041760
041764
0641772
041774
042002
042004
042010
042014
042016
042022
042024
042030
042034
042036
042040
042042
042044
042050
042054
042056
042062

062706

MACY11 3 001046)

13:04

TTY INPUT ROUTINE

000006
001205
001135

000001

000100

137142

040150
000060

11$:
148

ADD
TYPE

CMPB

BNE
15%:
168:

000067
000060
000002

000720

04~JAN-82

MOV
RT]
JSR

000002
177776

178:

001204

188:
.DSABL
MR

#6,SP
$CRLF

158

#100,387K5
PC.STYPEC

(SP)
, #60
188
., #67
(SP)
18$
#60, (SP) +

8EQ

ASL
ASL
ASL
INC
BIS
BR
TYPE

B8R

LSB

IS THIS THE FIRST (CHAR
sc
; ;BRANCH IF YES

(SP)
(SP)
(SP)
2(SP)
-2(SP), (SP)
7$
,$QUES

2:NO,
)

[

SHIFT PRESENT

CHAR COVER TO MAKE

ROOM FOR NEW ONE.

;;KEEcP COUNT OF CHAR
;2oSET IN NEW (CHAR
;cGET THE NEXT ONE

J2TYPE

208

SEC 0153

J:STRIP=-0FF ASCII

2(SP)

AR ARttt

154

s CLEAR UP STACK
JsECHO <CR> AND <LF>
: :RE-ENABLE TTY KBD INTERRUPTS?
s :BRANCH IF NOT
s cRE-ENABLE TTY KBD INTERRUPTS
;:RETURN
;;ECHO CHAR
J:CHAR < (?
JsBRANCH IF YES
::CHAR > 7?
;;8RANCH IF YES

£1~1AG ”

CMP
BLT
CMP
BGT
BIC
TST

K 12

PAGE

2<CR><LF>

;:SIMULATE CONTROL=-U

ittt

it itssdisisstsssss]

s*«THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

‘%CALL:
Pe
RDCHR

::GET A CHARACTER FROM THE QUEUE

:WITH PARITY BIT STRIPPED OFF

042064

011646
016666
005066
005046
012746
000002

005737
001775
005337
117766
005237

042152

023727
001003
012737
000002

000004
000004

000002

042110
041212
041212
177070
0641216
041216

041221

041220

041216

RETURN HERE

::CHARACTER IS ON THE STACK

SRDCHR: MOY
MOV
CLR
CLR
MOV
s,
RN

(SP) ,~(SP)
4(SP§,2(SP)
4(SP)
=(SP)
#64S,-(SP)

::PUSH DOWN THE PC AND
ITHE PS
1GET READY FOR A CHARACTER
1IPUT NEW PS ON STACK
::PUT NEW PC ON
STACK
:POP NEW PC AND PS

18:

Ist

$IKCNT

;;WAIT ON A CHARACTER

DEC
MOV
INC
(MP
BNF

$TKCNT
; :DECREMENT THE COUNTER
STKQOUT,4(SP)
:iGET ONE CHARACTER
$TKQOUT
UPDATE THE POINTER
$TKQOUT,#STKQEND ::DID IT GO OFF OF THE END?

000004

MOV

; {BRANCH IF NO

ASTKOSRT, $TKQOUT’"R$SET THE POINTER

.t.ii*tfili'.ifififitfiiiti't"tfi*fi;;*fifififi'lttt*fii.i'*'i'ittfiiIlt'ti

:Zfiff ROUTINE WILL

i
i

RDLIN

RETURN HERE

INPUT A STRING FROM THE TTY

::INPUT A STRING FROM THE TTY

::ADDRESS OF FiRST CHARACTER WILL BE ON THE STACK
::TERMINATOR WILL BE A BYTE OF ALL 0'S

CZR6IFO UNIBUSS RK6 DR _PRTZ
CZR6IF P11
04~JAN-82 12:46

042154
042156
042160
042164
042170
042172
042174
042176
042202
042204
042206
042210
042216
042222
042226
042230
042234
042236
042242
042246
042250
042252
042254
042262
042266
042270
042274
042276
042302
042304
042310
042312
042314

SRDLIN: MOV
CLR
1$:
MOV

062410
042432

2$:

000177

108:

000134
062406

042406

177777

6$:

042410
042406
042406

000134
042406

042406

000025

7%:

042437
8%:

001205
042410
4%

042406
042406
000015

3¢:

000004
042410

BNE
MOVS

63
#'\,9%

Movse

(R3).,9%

DEC
CMP
BLO

R3
R3,#STTYIN
L8
9%

P13

BEQ

TST

MOVB
TYPE
CLR

CMPB
BNE
BR

CMPB
BNE
CLRB

(SP)

#'\,9%
9%
SP)

#25.,(R3)
8s
SCNTLU

l22 (R3)
38
(R3)

SEQ 0154

;:SAVE R3

;CLEAR THE RUBOUT KEY
;2GET ADDRESS
s sBUFFER FULL?
;:BR IF YES
260 READ ONE CHARACTER FROM THE TTY
::GET CHARACTER
2218 IT A RUBOUT
;+BR IF NO
::1S THIS THE FIRST RUBOUT?
;:BR JF NO
;sTYPE A BACK SLASH

;:SET THE RUBCUT KEY
;:BACKUP BY ONE
J:STACK EMPTY?
;:BR IF YES
:3SETUP TO TYPEOUT THE DELETED CHAR.
;:G0 TYPE
2 +G0 READ ANOTHER CHAR.
2 sRUBOUT KEY SET?
;:BR IF NO
;sTYPE A BACK SLASH
;:CLEAR THE RUBOUT KEY

2:1S CHARACTER A CTRL U?

;J:BR IF NO
;sTYPE A CONTROL 'V

2260 START OVER
::1S CHARACTER A '"R'"TM?
;2BRANCH IF NO
;sCLEAR THE CHARACTER

J:TYPE A ''CR' & 'LF'

+SCRLF
STTYIN

;:TYPE

.SQUES

J:TYPE A 2

THE

INPUT STRING

B8R

BR
MOVB

18
(R3),9%

;s CLEAR THE BUFFER AND LOOP
;2ECHO THE CHARACTER

CMPB

#15,(R3)+

CLRB

=1(R3)

;s CHECK FOR RETURN
:-LOOP IF NOT RETURN
;:CLEAR RETURN (THE 15)

TYPE

MOV
MoV

$TTYIN:
$CNTLC:
SCNTLU:
$CNTLG:
$MSWR:

(SP)

.93
#-1,(SP)

TYPE
TST

9%:

(SP)+,(R3)

TYPE
MOV

B8NE

000002
000004

R3,-(SP)

-(SP)
#STTYIN,R3

#177.,(R3)
5%

TYPE
TYPE

001204

PAGE 155

CMPB
BNE

RDCHR
MOVB

TYPE

000022

L 12

#STTYIN+22
,R3
43

TYPE

5%:

13:04

CMP
BLOS

TST

177777
001206

042451

04-JAN-82

TTY INPUT ROUTINE

010346

-t OO0 == OO0
= =2000
=2 ONNO =0 —=000N=0OO0N
= (=]
SN
N=POND S =N W
SNONONONS SN o
OWO
=N — = 4 NO O &~
= N NONVWWOON
NN o~

7763

7764

MACY11 30(1046)

.98

JSLF
(SP)+

(SP)+,R3
(SP) -(SP)

2:60 PICKUP ANOTHER CHACTER

::TYPE A LINE FEED

s CLEAN RUBQUT KEY FROM THE STACK

;;RESTORE R3
..ADJUST THE STACK AND PUT ADDRESS OF THE
e
FIRST ASCII CHARACTER ON IT

MOV

4(SPS ,2(SP)

BYTE
. BLkB
. ASCIZ
. ASCIZ
. ASCIZ
LASCIZ

0
;s STORAGE FOR ASCII CHAR. TO TYPE
0
;. TERMINATOR
22
..RESERVE 22 BYTES FOR TTY INPUT
/*C/7<15><12>
;s CONTROL
'
/*U/<15><12>
2. CONTROL U"
/4G/<15><12>
;:CONTROL ''6"
<15><12>/SWR = /

MOV
RTI
.BYTE

lSTTYIN 4 (SP)

; -RETURN

CZR6IFQ UNIBUSS RK6 DR _PRT?
CZR6IF.PN
04~JAN-82 12:46
7819

042456
042462
042470

036440
020040
020075
042474

000040
042388

n12

MACY11 30(1046)

064-JAN-8?2

020127

SMNEW:

LASCIZ

.EVEN
.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

TTY

INPUT ROUI INE

A2 4222200020208

13:04

PAGE 156

SEQ 0155

NEW =/

2200l

2222832

s*THIS ROUTINE WILL READ AN OCTAL

2238228232222

(ASCII)

2323222

22222

NUMBER FROM THE

TTY AND

:*CHANGE IT TO BINARY.
s*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL
;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘"' WILL BE TYPED
s*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
s*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.

s«CALL:
. %

- %

RDOCT
RETURN HERE

042474
042476
042504

16666

0000064

000002

$RDO(T: MOV

1%:

010037

042622
2%:

122716

000060

122716

000067

000012
042632

BIC

ADD

3s:

042624
042630

000730

001204

CLR
CLR
Movs
BEQ
CMPB
8GT
CMPB
BLT
ASL

ROL
ASL
ROL
ASL
ROL

177770

010166
010237

MOV
MOV
MOV
MOV
RDLIN
MOV
MoV

5$:

BR
TST

MOV
MOV
MOV
MOV
MOV
RTI

TST
CLRB
TYPE
. WORD
TYPE
BR

(SP) ,=(SP)

4(SP) ,2(SP)
RO.-(SP)
R1,-(SP)
R2,~(SP)

(SP)+ RO
RO,5$
R2
(RO)+,-(SP)

;oREAD AN OCTAL NUMBER
:.LOW ORDER BITS ARE ON TOP OF THE STAIK
::HIGH ORDER BITS ARE IN SHIOCT

;;PROVIDE SPACE FOR THE
2 s INPUT NUMBER

;:PUSH RO ON STACK
:2PUSH R1 ON STACK
2;PUSH R2 ON STACK
J;READ N ASCIZ LINE
;:GET ADDRESS OF 1ST CHARACTER
;AND SAVE IT
J:CLEAR DATA WORD
;sPICKUP THIS CHARACTER
1F ZERO GET OUT
;o
JsMAKE SURE THIS CHARACTER
2s1S AN OCTAL DIGIT

siw2
sovh

;.8
#%C7,(SP)
(SP)+,R1

+
(SP)

R1.12(SP)
R2,$HIOCT
(SP)+,R2
(SP) +,R1
(SP)+,RO
+
(SP)
(RQ)

0
,SQUES
18

::STRIP THE ASCII

JUNK

;;ADD IN THIS DIGIT
;.LOOP
;. CLEAN TERMINATOR FROM STACK
¢sSAVE THE RESULT
;:POP STACK INTO R?
;.POP STACK

INTO R1

;:POP STACK INTO RO

2 ;RETURN

;:CLEAN PARTIAL FROM STACK
J:SET A TERMINATOR

;oTYPE UP THRU THE BAD (HAR.
::l'?ll

llcRO.

;:TRY AGAIN

‘ILFII

7875
;g;g

062632

000000

N 12

30(1046)
04-JAN-82
13:04 PAGE 157
READ AN OCTAL NUMBER FROM THE TTY

SEQ 0156

$HIOCT: .WORD
0
;HIGH ORDER BITS GO HERE
_SBTTL
DOUBLE LENGTH BINARY TO OETAL ASCII CONVERT ROUTINE

7878

:;ttttttttt*ttttttttttt"tt't'tttittttttttttttttttttttttttttttttt

7879

:*THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN

;gg?

:*ggEiGNED OCTAL ASCIZ NUMBER.

7882

MOV

;ggé

RETURN

$DB20:

SAVREG
MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOVB
MOV
DEC
BGT

2(SP) ,R1
#$OCTVL+13..RS
#12. R4
#°C7 R3
(R1)+,R0
(R1)+.R1
R2
R2.-(RS)
RO.R2
R4
3$

::SAVE ALL REGISTERS
*3PICKUP THE POINTER TO LOW WORD
::POINTER TO DATA TABLE
;D0 ELEVEN CHARACTERS
; sMASK
LOWER WORD
.,HIGH WORD
: :TERMINATOR
$:PUT CHARACTER IN DATA TABLE
S:GET THIS DIGIT
+3COUNT THIS CHARACTER
::BR IF NOT THE LAST DIGIT

RTS
ASR
ROR

PC
R3
R1

*:RETURN TO USER
S:POSITION THE MASK FOR THE LAST DIGIT
::POSITION THE BINARY NUMBER FOR

7883

7886
7887
7888
7889
7890
7891
7892
7893
7894
7895
7896
7897
7898
7899
7900
7901
7902
7903
7904
7905
7906
7907
7908
7909
7910
7911
7912
7913
7914

;3}2

042634
042636
042642
042646
042652
042656
0462660
042662
042664
042666
042670
042672
042674
042676
042700
042704
042706
042710
042712
042714
042716
042720
042722
0462724
042726
062730
042734
042736

7917
7918
7919

2920
7921
7922
7923
7924
7925
7926
7927
7928
7929
7930

104413
016601
012705
012704
012703
012100
012101
005002
110245
010002
005304
003007

001405
005205
010566
104414

000002
042753
000014
177770

1$:

006000
006001
006000
006001
006000
040302
062702

000753
000016

28:
3s:

000060

$OCTVL:

.SBTTL

104413
016602
012700

ROR
ROR
ROR
ROR
ROR
BIC
ADD

#PNTR,~(SP)

PC,a#$DB20

2
RS
RS,2(SP)

RO
R
RO
R1
RO
R3,R2
¥ 0,R2

;:POINTER TO LOW WORD OF BINARY NUMBER

::CALL THE ROUTINE

+THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK

S:BR IF IT IS THE LAST DIGIT
::ALL DIGITS DONE-ADJUST POINTER FOR FIRST
2:ASCIZ CHAR. & PUT IT ON THE STACK
{:RESTORE ALL REGISTERS

THE NEXT OCTAL DIGIT

;:MASK OUT ALL JUNK
$IMAKE THIS CHAR. ASCII
2360 PUT IT IN THE DATA TABLE
*RESERVE DATA TABLE

BR
18
.BLKB
14.
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

JIRNE AR AR R AR AR R A AR R AR RN RN N AN AN NN RN NAR A AN RN AR AR AR AR NR AR RS
:*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
;*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE

)
042754
0427-6
042762

BEQ
INC
MOV
RESREG

000002

000207
006203
006001

JSR

< «POSITIVE.
“wCALL
e
MOV
i
JSR
‘e
RETURN

000002
043134

$DB2D:

SAVREG
MOV
MOV

#PNTR, = (SP)
PC,a#$DB2D

2(SP) ,R2
#$DECVL,RO

;:POINTER TO LOW WORD OF BINARY NUMBER
::THE FIRST ADDRESS OF ASCIZ
;1S ON THE STACK

: :SAVE REGISTERS
“:PICKUP THE DATA POINTER
$3GET ADDRESS OF '‘$DECVL'® STRING

MACY11

CZROIFO UNIBUSS RK6 DR PRTZ2
CZR6IF .P1
04~JAN=82 12:46

042766

7931
7932

O=O0OO0000O (=
[ =Y Yo P
purprpur-gnry puord
W =2 \NANINININON) Q
nNO
o
o

CZR6IFO UNIBUSS RK6 DR PRT2
CZROIF .P11
04~JAN-82 12:46

7
4

8 13

MACY11 30(1046)
04~JAN-82 13:064 PAGE 158
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

000002
000012
043064

MOV

043052

MOV
MOV

043066

CLR

3s:

7948

043042

052703

SUB
SBC
SU8
8LT
INC
BR
ADD

ADC
ADD
CMP

BIS
MOVB

000060
48:

$TNPUR:

DEC
.WORD

BNE
CLRB

RESREG
RTS

145000
35632
160400

RO, 2(SP)

(R) +,R1

(R2)+.R2

#10.,48

ssSET UP TO DO _10 CONVERSIONS
:;ADDRESS OF TEN POWER

R3
(R4) ,R1
R2
(RS) ,R2
3
R3

;:CLEAR PARTIAL
J:SUATRACT TEN POWER

#STNPUR R4
#STNPWR+2 RS

28
(R4)+.R1
R2
(R4) +,R2

(RS)+,(RS)+

#'0.RS
R3,(RO)+
(PC)+
0
18
(RO)+
PC

o
o

N =d ad cud =b
DONEN0

2765
113200
230
041100

000014

;:BR IF NO
;:TERMINATOR

..RESGSRE REGISTERS
+31.0E09

::1.0€E08

::1.0E07
::1.0€E06

::1.0E04

1750
0

::1.0€03

0
$DECVL: .BLKB
.SBTTL

;<MOVE TO NEXT TEN POWER
s CHANGE PARTIAL TO ASCII
:2SAVE IT
; sDONE?

53420

144

TEN POWER TO LARGE

..RESTORE SUBTRACTED VALUE

::1.0E05

043134

;BR IF

..ADD 1 TO PARTIAL

}03240

0
12
0
7979

s PUT ADDRESS OF ASCIZ STRING ON STACK
¢ :PICKUP THE BINARY NUMBER

::1.0€E02
:21.0E01

::1.0€00

12.
;RESERVE STORAGE FOR ASCIZ STRING
SINGLE LENGTH BINARY TO DECIHAL ASCIZ ROUTINE

AN RARR RN AR RRANNRA AN

R ORI R AN RN RR AN RN ANRNCNRARAARANRANANNCRRARARY

tTHIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN

'UNSIGNED DECIMAL ASCIZ NUMBER.
*CALL
t
MOov
NUMBER,~(SP)
..PUTLBlNARY NUMBER ON THE STACK
b
PC,ax$5820
JSR
1
RETURN
s ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK

SEQ 0157

CZR6IFO UNIBUSS RK6 DR PRTZ
CZR6IF .P11
04-JAN-82 12:4

016637
012746

043200

004737
062716
012666
000207
000000

000002
043200
042754
000005
000002
000000

c 13

MACY11 30(1046)
04=JAN-82
13:04 PAGE 159
SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

063200

$SB2D:

1%:
.SBTTL
G o

MOV

2(SP) 1%

;:SAVE BINARY NUMBER
::SET POINTER
::CALL DOUBLE LENGTH CONVERT

(SP)+,2(SP)

..PICKUP POINTER
:RETURN

#18,-(SP)

MOV
JSR
ADD
MOV
RTS

WORD

SEQ 0158

0,0

JONLY ALLOW FIVE CHARACTERS

TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS

RARNRARA R

RANR AN RN RN

A AR AR

NACAARANRN AN

R AN ANRNANAAARANRARNY

s*THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE
s*LEADING NUMBERS.

M
M
043204

010046
016600
105710
001403
122720
001773
005300
010037
104401

000004

$SUPRS: MOV

1%:

000060

043234

000000
012600

2%:
3s:

012616
000207

MOV
JSR

.SBTTL

MoV

T1STB
8EQ
CMPB
BEQ

DEC

MoV
TYPE

.WORD

J
BN B
2R BB BN BN B

MOV
MOV
JSR
RETURN

RO,=(SP)
4(SP) ,RO
(RO)

::SAVE RO

J:PICKUP THE POINTER
;o TERMINATEOR?
;:BR ]F YES

#'0,(RO)+
13
RO
RO,3$

.,IS THIS AN ASCII ‘0"
?
;BR IF YES

..BACKUP 8y ‘1"

;sSAVE FOR TYPING
;G0 TYPE
:sASCIZ POINTER GOES HERE
;sRESTORE RO
J;RESTORE THE STACK
2 sRETURN

AR RAANRAANR RN ARANAAARNRRANRNNARAANRERNRSY

MULTIPLER,-(SP)

MULTIPLICAND,-(SP)
PC,a3#SMULT

;PRODUCT IS ON THE STA(CK

PRODUCT

LSB'S

043244

scFIRST ADDRESS OF ASCIZ STRING

MOV
(SP)+ RO
MOV
(SP)+,(SP)
RTS
PC
INTEGER MULTIPLY ROUTINE

e R AR AR AR AN AN

;*CALL

#NUMADR
, - (SP)
PC,3#$SUPRS

MSB'S

$MULT:

RO,-(SP)
R1,-(SP)
R2,=(SP)
=(SP)
1%(SP).R1

000012

(RS
« P
)

s *CALL

: sPUSH RO ON
::PUSH R1 ON TACK
:sPUSH R2 ON
s;CLEAR THE §
::GET THE MUL

?P)

043272

100002

000014

18:

MOV

4(SP) ,R2
3

::BR IF PLUS

AND POSTIVE

CZRG6IFO UNIBUSS RK6 DR PRTZ 46
CZR6OIF.P11
04-JAN-82 12:

063274

005316
005402
012746
005000
103001

000021

MACY1T 30(1046)
04=JAN-82 13:04
INTEGER MULTIPLY ROUTINE

28:
3s:
48:

6
010066
010166
012602
012601
012600
000207

000012
000010

5$:

.SBTTL

DEC
NEG

SEQ 0159

(SP)
R2

:cUPDATE THE SIGN KEY
;:MAKE THE MULTIPLIER POSTIVE
scSET THE LOOP COUNT
2.SETUP FOR THE MULTIPLY LOOP
;;DON'T ADD jF MULTIPLICAND = 0

RO
R1
(SP)

s.POSITION THE PARITIAL PRODUCT AND
;. THE MULTIPLICAND
::gaSIéLkOBITS OF THE MULTIPLICAND BEEN DONE?

MOV
CLR
BCC
ADD

#17.,-(SP)
RO
43
R2,RO

BNE
cMP
BEQ
NEG
NEG
s8¢
TST
MOV
MoV

3s
(SP)+, (SP)
5$
RO
R1
RO
(SP)+
RO,12(SP)
R1,10(SP)

ROR
ROR
DEC

D 13
PAGE 160

2 :SHOULD PRODUCT BE NEGATIVE?
;.60 TO EXIT IF NO
;. YES==SO MAKE IT SO

;:CLEAR SIGN INFO. OFF OF STACK
::fgé.gne PRODUCT ON THE STACK (MSB'S)

MoV
(SP;+,R2
1:POP STACK INTO R2
MOV
(SP) +,R1
1:POP STACK INTO R1
MoV
(SP)+,R0
1:POP STACK INTO RO
RTS
PC
SAVE AND RESTORE RO-R5 ROUTINES

SRR RAA AN AR AAN AN AR AN AT NN

AR AR NAR AR AR

tSAVE RO-R5

s*CALL:

SAVREG

:*UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE:
M

$*TOP===(+16)

ix 42-==(+18)
;% +4-=-R5

;% +6---Ré
;v +8-~-R3
;*+10--=R2
;*+12--=R1
;*+14---R0

043356

$SAVREG:

Mov
mov
MoV

RO,-(SP)
R1,-(SP)
R2,=(SP)

Mov
MOV
MOV
MoV
MoV

R4 .~ (SP)
R5.=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,-(SP)

MOV

043412

000022

E?Y

;*RESTORE RO-RS

043414

s*CALL:
o*

$RESREG:

RE SREG

R3,-(SP)

22(SP) .~(SP)

;sPUSH RO ON STACK
;:PUSH R1 ON STACK
:;PUSH R2 ON STACK
;:PUSH R3 ON STACK
;cPUSH R4 ON STACK
;;PUSH R5 ON STACK
ssSAVE PS OF MAIN FLOW
;SAVE PC OF MAIN FLOW
::SAVE PS OF CALL
s s SAVE PC OF CALL

043446
043450

b —t
b
d

000022

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP) +,RS

Mov
Mov

(SP) +,R3
(SP)+,R2
(SP) +,R1
(SP)+,RO

ssRESTORE PC OF MAIN FLOW
;:RESTORE PS OF MAIN FLOW
;;POP STACK INTO RS
;:POP STACK INTO R4
:.POP STACK INTO R3
;;POP STACK INTO R2
::POP STACK INTO R1
;:POP STACK IN10 RO

32232232232 232F223232222232233222322222

o
o

1\¥ ]

(SP) +,R4

MoV
MOV

.SBTTL
A

SEQ 0160

MOV
MOV
Mov
MOV
MoV
MOV

b o

1266?

000022
000022
000022

RTI
TRAP DECODER

2222222202002

2020000 d0R28

s ;RESTORE PC OF CALL

s;RESTORE PS OF CALL

s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

THE ‘'‘TRAP'' INSTRUCTION

;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:*GO TO THAT ROUTINE.

012666
012666
012666

MACY11 30(1046)
04~JAN-82 13:064 PAGE 161
SAVE AND RESTORE RO-R5 ROUTINES

b amd end o cd cd and e
—b

PNINIA) —d b cd o

043414

i —h QOC
N=2OOVBNO
N WN=O Ooo~

8099
8100
8101
8102
8103
8104
8105
8106
00 00 00 00 00 00 0o 0o 0o 00 00 00 00 0o oo

CZR6IFO UNIBUSS RK6 DR _PRTZ
CZROIF.PN
04-JAN-82 12:46

E 13

043452
043454
043460

010046
016600
005740

000002

043472

006300
016000
000200

043506

S$TRAP:

MOV
MOV

RO,=(SP)
2(SP) ,RO

TST

111000

;:SAVE RO

=(R0O)

movs
ASL
MCV
RTS

(RO) ,RO
RO
$TRPAD (R0O) ,RO
RO

;:GET TRAP ADDRESS
::BACKUP BY 2

s:GET RIGHT BYTE OF TRAP
:.POSITION FOR INDEXING
;s INDEX TO TABLE
;G0 TO ROUTINE

;.THIS IS USE TO HANDLE THE °‘‘GETPRI'® MACRO
043474
043476
043504

011646
016666
000002

000004

000602

$TRAP?: MoV
MOV
RTI

s*THIS

b
b ad
b
b
b b
d mud
—
Gt Gt Quir

;-MOVE THE PC DOWN
;-MOVE THE PSW DOWN
;;RESTORE THE PSW

TRAP TABLE
TABLE

CONTAINS

THE

STARTING ADDRESSES OF

;*BY THE '‘TRAP'' INSTRUCTION.

Vi
S
SN Y Y ¥ JVIVITVY
S WOV NS W= OV~

0 0o 0o 00 0o G0 0o 00 OO OO 0o Co OB 0000 Co GO Co OO

.SBTTL

Juir Gt Gu

(SP) ,-(SP)
4(SP),2(SP)

THE ROUTINES CALLED

ROUTINE

043506
043510
043512
043514
043516
043520

043474
037736
041010
040764
041024
040272

063522

043524
043526
043530
043532
043534
043536

$TRPAD:

.WORD
STYPE
$TYPOC
$7YPOS
S$STYPON
$TYPDS

STRAP?
;;CALL=TYPE

041612

041522
042064
042154
042474
043356
043414

;s CALL=TYPOS

;:CALL=TYPON
;s CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

$GTSWR

s CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

$CKSWR
$RDCHR
SRDLIN
SRDOCT
$SAVREG
SRESREG

;. CALL=CKSWR

TRAP+7 (104407
TRAP+10(1044

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TvY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY

2 CALL=TYPOC

2 sCALL=RDCHR

;.CALL=RDLIN
;.CALL=RDOCT
;. CALL=SAVREG
;.CALL=RESREG

SAVE RO-R5 ROUTINE

RESTORE RO-R5 ROUTINE

CZR6IFO UNIBUSS RK6 DR _PRT2

CZR6IF.P11

g}gg

063540

04-JAN-82 12:46

036266

MACY11 30(1046)

04~JAN-82

TRAP TABLE

SCOP1$

13:04

F 13
PAGE 162

;. CALL=SCOP1

TRAP+15(104415)

SEQ 0161

INTERNAL LOOP ON ERROR

CZR6IFO UNIBUSS RKS DR PRT?
CZROIF .P11
04~JAN-82 12:46

MACY11 30(1046)

TRAP TABL

—

[]

005015
051525
020066
0521%%

=SB

043542
043550
043556

O—=2ONOMNIN

.SBTTL

24~JAN-82

13:04

G 13
PAGE 163

SEQ 0162

SERVICE MESSAGES
.ASCII

<CR><LF>/UNIBUSS RK6 DR PRTZ/

LASCII

<CROXLF>/CIROIFO/<CRO<LF>

.ASCII

<CR><LF>/

LASCII

<CR><LF>/THIS PROGRAM SHOULD

.ASCI1

<CR><LF>/OTHERWISE,

FORMATTING AND,

saknx CAUTION wexex/<CROSLF>

CARTRIDGE

042040

020131
043105

HALTED ONLY BY

TYPING

THE

CONTROL-C/

DRIVE/

.ASCI!

<CR><LF>/MAY BE

LASCI]

<CR><LF>/INITIALLY,

LASCII

<CR><LF>/A.

HEADS MANUALLY LOADED/

.ASCI!

<CR><LF>/B.

CORRECT PORT

LEFT

IN AN UNDETERMINED

STATE/

046522
051440

047111

044112
044120
044126
044133
044140
044146
044154
044162
044165
044172
044200

DRIVES

TO BE

TESTED SHOULD HAVE:/<CR><LF>

SELECTED/

044400
044403
044410
044416
044424
044432
044440
044446

044652

OO0O—==00
=N
H W
NOO=—=
NS =)
=HO=O=Hr
O
N =2 \AVNO
S

MACY11

39(1046)
04-JAN-82
SERVICE MESSAGES

13:04

H13
PAGE 164

SEQ 0163

.ASCI]

<CR><LF>/C.

WRITE

LOCK DISABLED/

LASCII

<CR><LF>/D.

DRIVE

READY

<ASC!]

<CR><XLF>/DRIVES NOT

TO BE

LASCIZ

<CR><LF>/BOTH PORTS

DESELECTED/<CR><LF>

.ASCI]

<CR><LF>/TO TEST DRIVE

040505
020103
044040
047117

LASCII

<CR><LF>/CLEAR LOC 40,8 HIT

042040

LASCII

<CR><LF>/IF

MSG3:

-ASCIZ

<CR><LF>/DRIVE(S)

MSGé:

LASCIZ

<CR><LF>/TYPE BUSS ADDRESS

INDICATOR ON/<CR><LF>

TESTED MUST HAVE/

—d ad

b AN

ONN=OMNINO)
= =2
NN NN SN N =

)

LOWO
=\

020056

OO0OO0O
OO000O0O0
(olele]
Fa R AV IV RV P
V. IV R
N
PONOMNON
NONNNW
“NOOO

O = \N\N= O

el \ ) b b O

— ) d L d )

o
~
o
SN
=Ny
—
NS SNES
OHNIWNWN

052040
020104
044040
015
020110
020123
042514
005015

[eleleleloleleBNelalelele BNelelele]

N0 =N
own OOV
SO —b b \) = N
= O = b ) b
oW NNES =PI SN S = IS
N

N — (v

044240
044246
0446247
044254
044262
044270
044276
044304
044306
044314

051440
062524

[(=1=] [=]=]
v v (=]

044206
044214
064217
044224
064232

SNV
wMMANN)
= O N=

CZRG6IFO UNIBUSS RK6 DR _PRTZ2
CZROIF .P11
04~JAN-82 12:46

052012
052123
042526
042522
054040
042515
046103
047514
023054
041440
027040
043111
042526
047123
020117

MSG2:

REMOVE

XXDP MEDIA,/

044504

DRIVE O

ISN'T

TO BE

CONT.

TO BE

TESTED:

TESTED,

HIT CONT.

NOT

177440:

./<CR><LF>

—

061040

0521%2
0
020104
053440
043117
052040
000012
005015
047040
015

NN
OO =W

000
015
020105
047522
044440
052522
041505
0431M
031040
000040
005015
051122
041517
042105
041520
005015
020105
046114

04-JAN-82

MSGS:

LASCIZ

<CR>XLF>/TYPE

NNV

044660

MACY11

113

30(1046)

MSG6:

LASCIZ

<CR><LF>/INTERRUPT OCCURRED AT PC=/

ON =)=

CZIR6IFO UNIBUSS RK6 DR_PRT2
CZR6IF .P11
04~JAN-82 12:46

MSG7:

LASCIZ

<CR><LF>/DRIVE

MSG8:

LASCI2Z

<CR><XLF>/READ DATA WITH OFFSET

MSG9:

ASCIZ

<CR><LF>/HEAD NO./

MSG10:

.ASCIZ

<CR><LF><LF>/WILL

MSG11:

JASCIZ

<CRO>XLF><LF>/POWER UP RESTART

TO TEST

MSG12:

LASCI]

<CR><XLF><LF>/THE ABOVE

FAILURES ARE

LASCIZ

<CR><LF>/BUT

SERVICE MESSAGES

13:04

PAGE 165

SEQ 0164

CONTROLLER

INTERRUPT

0 WILL NOT BE

VECTOR

NOT 210:

TESTED/

TEST/<CR><LF>

006524

042101
0

TEST

DRIVES:/

1/<CR><LF>

020124

052012

045332

054524

OFFSET

INDICATORS OF

SURFACE ,HEAD,

NOT ERRORS/

& ELECTRONICS QUALITY/<CR><LF>

O00O
s
=00

015
0201 14
0414 40
0201 23
0471 05
0 15
0201 04
0441 03
044524
051505
040520
000
015
051501

MSG13:

-—

W
-

SEQ 0165

<CR><LF>/NO L OR P CLOCKS PRESENT/

LASCI1Z

<CR><LF>/HEAD

MSG14:

LASCIZ

<CR><LF>/BYPASSING DRIVE /

MSG15:

LASCIZ

<CR><LF><LF>/DRIVE

MSG16:

LASCIZ

<CR><LF>/DRIVE

MSG17:

LASCIZ

<CR><LF>/CARTRIDGE

MSG26:

ASCIZ

<CR><LF><LF>/ABORTING BALANCE

MSG27:

LASCIZ

<CR><LF><LF>/ALL

MSG37:

LASCIZ

<CR><LF>/HO WRITE

CHECK ERROR AT MAX POSITIVE

OFFSET/

MSG38:

LASCIZ

<CR><LF>/NO WRITE

CHECK ERROR AT MAX NEGATIVE

OFFSET/<CR><LF>

MSG39:

.AS(C1Z

<CR><LF>/WRITE

SWITCHING

TIME

TEST BYPASSEL/

SERIAL NO.

=OOHOON)
OANNO =N

POND = =B POININ) b —d aud b —d
SN
SN
=N

042040
000040
005015
042526
005015

J 13
PAGE 166

LASCII

OO0O0O0O00C
Swvnuvioune
NHSNONO

043516

13:04

046114

042526

SERIAL NO.

DRIVES

TESTS

THIS DRIVE. XCR><LF><LF>

TESTED/<CROKLE><LF>

044524
043106

053440

046020

044103

CHECK FAILURE

AT OFFSET

[ TanY

30(1046)
064-JAN-82
SERVILE MESSAGES

~S\NOQ ==\
OOHhO0O—O
WVINNON~WV"

O
v
O

045337
045344

MACY11
NNO
=
OONr-—
WVIWO~N

CZR6IFO UNIBUSS RK6 DR _PRT?
CZR6IF .P11
04-JAN-82 12:46

CZROIFO UNIBUSS RK6 DR_PRT2
CZROIF .P11
04-JAN-82 12:46
8381
8382
8383
8385
8386
8387
8388
8389
8390
8391
8392
8393
8394
8395
8396
8397
8398
8399

046026
046034
046042
046050
046054
6062
046070
046076
046104
046112
046120
046126
046127
046134
046142
046150
046156
046164
046167

020113
051125
047440
020124
005015
020104
0642522
042101
047526
047506
054503
060
015
046101
047105
052122
020105
005015
015

040506
020105
063106
000075
047503
047516
042101
051440
020122
047440
020114
047412
043511
020124
064522
051525
000
050012

MACY11 30(1046)
04-JAN-82
SERVICE MESSAGES

046125
020124
041040
041505
047111
020116
030464

MSG40:

020122
046516
040503
063504
0642105

.ASCII

<CR><LF>/COULD NOT READ BAD SECTOR INFO ON CYL 410/

LASCIZ

<CR><LF>/0R ALIGNMENT CARTRIDGE USED/<CR><LF>

MSG74:

.ASCIZ

<CR><LF>/PROGRAM ABORT PENDING...PLEASE WAIT/

0
064012

046101

MSG75:

.ASCIZ

<CR><LF>/HALT PENDING...PLEASE WAIT/

0050;3

051120

043517

MSG76:

.ASCIZ

<CR><LF>/PROGRAM ABORTED/

17
15
68

050103
052114

020125
042105

MSG77:

.ASCIZ

<CR><LF>/CPU HALTED/

.SBTTL

ERROR MESSAGES

EM1:

LASCIZ

<CR><LF>/ERROR, ONLY 0 THRU 7 ALLOWED,

EM2:

.ASCIZ

/DRIVE # IN RK(CS2 CANNOT BE READ BACK CORRECTLY IN RKMR2/

b)
9

SEQ 0156

046111
052101
062523

046272

K13
PAGE 167

047522

8411

13:04

046330

046331

8422
8423
8424
8425
8426

046344
046352
066360
046366
046374

054
051
0461
026104
040440

052040
040507

054
047

8428

046405

106

044522

8435
8436

046456
046464

13
041505
047111

046124
051040

SO0

042412

8421 046336 051

=2 NNON)
=N =)
W=
=2PONNONON

8420

=N
=N
= NININO NN

TRY AGAIN/<CR><LF>

046716
046724

046732
046740

046746
046754
046755
046762
046770
046776
047004
047012
047020
047026

047031
047036
047044
047052
047060
047066
047074
047102
047105
047112
047120
047126
047134
047142
047150

020123
047111
031123
042506
044440
051503
020101
042113
042516
051040
051040
020073
020107
051440
04252

044522
042522

SEQ@ 0167

EM3:

LASCI1Z

<CR><LF>/ABORT

TESTS...UNEXPECTED

TIME

EM4:

.ASCIZ

<CR><XLF>/ABORT

TESTS...UNEXPECTED

INTERRUPT AT PC=/

EMS:

LASCIZ

/MDS SET

IN RK(CS2/

EM6:

.ASCIZ

/UFE SET

IN RK(CS2/

EM7:

LASCIZ

/DRA

EM8:

LASCIZ

/DRIVE PRESENT BUT NOT SPECIFIED BY OPERATOR/

EM9:

LASCIZ

/DRIVE

NOT PRESENT BUT

EM10:

LASCI2

/ABORT

TESTS...CANNOT REFERENCE

ONN=

NNV OWVIOO

OwnVesSwnonin

020124

PAGE 168

OO0 WWVIWNY

041101

L 13

SHVIONWVMWS
W= N0 OOOW

000
040412
052040
027056
050130
020104
047440
020124

13:04

WVWWOs

031122
015
052122
051524
0642516
042524
042515
040440

30(1046)
04-JAN-82
ERROR MESSAGES

IN RKDS & NED

IN RKCS2 RESET;

OUT AT P(C=/

WRONG PORT SELECTED?/

SPECIFIED BY OPERATOR/

052116

OWO
N
=200

046472
046475
046502
046510

MACY11

O==NJOMNIN)
VOO
BN

CZR6IFO UNIBUSS RK6 DR _PRT?
CZROIF .P11
04~JAN-82 12:46

CONTROLLER REGISTER/

M3
PAGE 169

13:04

SEQ 0168

(V]

(=
&~
W

051040

— ek e A
=
O =
WOV
NS NO

0647156
047164
047170
047176
047204
047212
047220
047226
047234
047242
047250
047256
047264
047272
047300
047306
047314
047322
047330
047336
047344
047352
047360
047366
047374
047402
047410
047416
047423
047430

MACY11 30(1046)
04-JAN-82
ERROR MESSAGES

W=OWOOWVONWNOOON
=N(¥,]

CZR6IFO UNIBUSS RK6 DR PRTZ
CZR6IF P11
04~JAN-82 12:46

EM11:

LASCIZ

/DRA IN RKDS & NED

EMI12:

LASCIZ

/CONTROLLER NOT READY

EM13:

.ASCIZ

/NO ATTN

EM14:

LASCIZ

/UNEXPECTED MEMORY PARITY

EM15:

LASCII

/RKDC & RKDA

.ASCIZ

<CR><LF>/CYL 411,

EM16:

LASCIZ

/CANNOT READ BAD

EM17:

LASCIZ

/MESSAGE AO ERROR/

EM18:

LASCIZ

/MESSAGE BO ERROR/

EM19:

LASCIZ

/MESSAGE A1

ERROR/

EM20:

LASCIZ

/MESSAGE B1

ERROR/

EM21:

CASCIZ

/CERR SET

EM22:

LASCII

/NO DRIVES FOUND IN DEVICE MAP

IN RK(CS2 BOTH SET/

IN RK(CS1/

IN RKASOF/

INDICATE

TRAP/

THAT WCE OCCURRED AT/

TRACK 2,

SECTOR 21/

047652

047516
042101
051440

4
—AN—A—A

047101
042522
042101
047524

SECTOR

INFORMATION/

=NOO0OO—=2NO—=OO=NO—20O=O

020122

044522

IN RK(CS1/
(SDEVM)/<CR><LF>

OOOO

NHBO
=OOON

053040

8579
8580
8581
3582
8583
8584
8585
8586
8587

050120
050126
050134
050142
050150
050156
050164
05017¢
050200

052103
020060
042523
027123
051117
052C'9
042504
042105
041040

042105
040502
052103
027056
044524
051505
042524
041040
052125

8592
8593
8594
8595
8596
8597

050236
050243
050250
050256
050264
050272

042514
052105
020104
047111
020104

8599
8600
8601
8602
8603
8604

050304
050312
050320
050326
050334
050342

044506
1064
042524
020105
040505
046515
01 5
04704 0
0201} 6
0475 1
0445 2 2
04651 7

ownasnes
s
O
= NN

030440
020104
0511
041
043
000
052

B
Nk
&SNS
ONI=2NWEN)

NN=BOHMNMNVOOSHOOONIH
==
NON—=O—
WOOOWVOWMSWONVION
O = —=OWWHON=~N

V. [ V]N
W

OOOOO

V. LS IRV, [V IV IV IV B
RV P
AL [ S IV I
L
LS
R Ll
R
QO =N

13:04

N 13
PAGE 170

SEQ 0169

.ASCIZ

/SETUP CORRECTLY AND RESTART/<CR><LF>

.ASCII

/NO DRIVES FOUND ON BUSS/<CR><LF>

.ASCIZ

/SETUP CORRECTLY AND PRESS

EM24:

.ASCIZ

/VOL VALID NOT SET IN RKMR2/

EMZ5:

LASCIZ

<CR><LF>/DETECTED 10 BAD SECTORS...ABORTING TEST/

EM26:

.ASCIZ

/DETECTED BSE BUT NOT LISTED IN BAD SECTOR FILE/

EM27:

LASCI1

/DETECTED BSE

LASCIZ

<CR><LF>/BUT NOT

EM23:

°'CONTINUE'/<CR><LF>

052105

eleleleleleloBeleololeloelolelelele)

052040

1
0531
0525
0201
0050
0425
047503
046124
020104
020123
044524
005015
126
046101
052117
044440

0521

—=OHMNIN

0421
0405

047734

041 4

OO000O

047742
047750
047756
047757
047764
047772
050000
050006
050010
050016
050024
050032
050040
050046
050054
050057
050064
050072
050100

BS57

OO0

8558
8559
8560
8561
8562
8563
8564
8565
8566
8567
8568
8569
8570
8571
8572
8573
8574
8575
8576

OOO0O0O0O0

042526
04712
0420
0201
0220
0064

OOOOO

047660
047666
047674
047702
047710
047716
047721
047726

[elalelelalelele
N
I~ nnnaes
&
OONI
= =N =~y
=SV
O —
—_ el PUNIN)
=2 = O
NS
NO NN =

8549
8550
8551
8552
8553
8554
8555
:
8556

MACY11 30(1046)
04~JAN-82
ERROR MESSAGES

OOO00

CIR6IFO UNIB_SS RK6 DR _PR 2
CZR6IF .P1Y
04~JAN-82 1

IN READ COMMAND/

IN PREVIOUS WRITE

COMMAND TO SAME

SECTOR/

886?33

041505

054503
051104
04
047

020114
044440
051115
020124

042101
020116
020063
060523

040505

050474

054503

020114

042101

020123
000
042040
020046

13:04

8 14
PAGE 171

EM36:

.ASCIZ

/CYL ADDR IN RKMR3 NOT SAME AS RKD(C/

EM39:

.ASCIZ

/CYL DIFF & OFFSET IN RKMR2 NOT CLEARED/

EM40:

ASCIZ

/CYL ADDR IN RKMR3 NOT CLEARED/

EM41:

_ASCIZ

/CYL ADDR IN B2 DID NOT REMAIN CLEARED/

o
N
o
(=]
o
V)

(=4

N
N

»H

N
g

2
iy

A%,]

046103

020124

050462

040440
041504
0646131
020106

SO
O ~N—=WRVIONN)

&H
~

n
o~

042515

(=4

W
W

050362
050370
050376
050404

FRESR BEEEERERR

NONIAONY
SN0 V00 ~NOMN
NN —

8607
8608
8609
8610

050350

8682

MACY11 30(1046)
04~JAN-82
ERROR MESSAGES

8625

050532

054503

020114

042101

8627
8628
8629
8630

050546
050554
050562
050570

031102
047040
046505
046103

042040
052117
044501
040505

042111
051040
020116
042522

8632 050600
8633. 050606

052101
052117

047126
041440
0642105

047040
042514
044440

EMS55:

.ASCIZ

/ATTN NOT CLEARED IN RKASOF/

051440
020116
000062
044040
020122
000122
046516

EM63:

.ASCIZ

/DLT SET IN RK(S2/

EM65:

.ASCIZ

/READ HEADER ERROR/

EM69:

_ASCIZ

/ALIGNMENT CARTRIDGE USED/

045522
000

051501

050727
050734
050742
050750

103
052105
045522
052122

047524
044440
051503
020132
042523
051040
000
0642105

051440
020116
000061
047516
020124
046513

EM73:

.ASCIZ

/CTO SET IN RKCS1/

EM74:

_ASCIZ

/RTZ NOT SET IN RKMR2/

051440

EM79:

_ASCIZ

/NED SET IN RK(S2/

052111

020105

EM80:

.ASCIZ

/WRITE CHECK ERROR SET IN RK(CS2/

047522

020122

&~
&H
&
&

AW ViAW

ERERRREERSSR

—t

8648

[«

042105

o
~N
(=]

051525

(=]

020105

(=)

050720

OONINO=NI=N)
N NNOVVONAY)
= IS

8646

045522
042522
040505
051105
046101

(%,]

050646
050654
050662
050670
050676

OOVoo~ OWVSBWN—=O

8639
8640
8641
8642
8643

052114
044440
051503
062101
042504
047522
043511

SEQ 0170

CZRGIFO UNIBUSS RKé DR PRT?
CZROIF P11
04-JAN-82 12:46

05111
051126

051134
051142
051150
051156
051164

051172
051173
051200
051206
051214

000
127
041440
061440
062116
043040
047511
000

122
040504
042111
941440
042522
020110
020105
000
106
044103
051105
042523

0471
0311

044522
042510
046517
047040
047125
044516

0425
0455
0405
0521
0521
0435

040505
040524

0201
0420

047040
046517
053440
051127
040504

0521
0405
0521
0521
0405

052101
041505
047522
020124

0201
0201
0201
047

020124
041513

EM81:

.ASCIZ

/WRITE CHECK COMMAND NOT FUNCTIONING/

EM82:

.ASCIZ

/READ DATA DID NOT COMPARE WITH WRITE DATA/

EM83:

.ASCIZ

/DATA CHECK ERROR SET IN RKER/

EM84:

.ASCIZ

/WHILE WAITING FOR CONTR READY OR AFTER CONTR READY REC'D/

EM85:

.ASCIZ

/OFFSET STATUS BIT IN RKMR2 CLEARED/

EM86:

.ASCIZ

/OFFSET REG IN A2 NOT = RKASOF/

EM88:

.ASCIZ

/DID NOT FIND SECTOR O FROM INDEX/

8699
8700
8701
8702
8703
8704
8705
8706
8707
8708
8709

051356
0513
051372
051400
051406
051414
051422
051430
051436
051444
051452

040505
043117
051040
020116
052117
040513
044504
020124
051440
020122
046517

042522
051506
043505
031101
036440
047523
020106
044506
041505
020060
044440

000104
052105
044440
047040
051040
000106
047516
042116
047524
051106
042116

8712
8713
8714
8715
8716

051470
051476
051504
051512
051520

043516
043516
047111
020043
040505

053440
041440
042506
047111
042504

047522
046131
020122
044040
027122

8710 031468 V123 040308 owssos Ems3:

.asciz

LASC

READING WRONG CYLINDER

IN HEADER...MISPOSITION/

Fan
[

SEQ@ 0171

—O—ON)
OMANNWVIWNES

051054
051055
051062
051070
051076
051104
051112
051120

042523
051040

C 14
PAGE 172

N=DN=DO
S ONO
S

8663

8664
8665
8666
8667
8668
8669
8670
8671
8672
8673
8674
8675
8676
8677
8678
8679
8680
8681
8682

051040
051046

13:04

OO—=OWNINI—=ON=N—=O
VNN
= NN =WV
=NIN=

8661
8662

MACY11 30(1046)
04-JAN-82
ERROR MESSAGES

N=ON)
=N

CZEbI:OpUNIBUSS RK6 DR _PRT?
CZROIF
.PI1
04-JAN-82 12:46

MACY11 30(1046)
04-JAN-82
ERROR MESSAGES

D 14
PAGE 173

—n)
O==0
WOh=an

.ASCIZ

/OFFSET IT IN A2 NOT CLEARED/

WVMINONND

NOSO
VIO
—=

EM95:

.ASCIZ

/FORMAT BIT NOT SET IN RKMRZ2/

EM96:

.ASCIZ

/CANNQOT FIND SECTOR 23(8)/

EM97:

.ASCIZ

/HEAD SWITCHING REQ'D ANOTHER FULL REVOLUTION OF DISK/

EM100:

.ASCIZ

/DRIVE OFF TRACK SET IN RKMRS/

EM101:

.ASCIZ

/DID NOT GO TO CYLINDER 10/

.SBTTL

DATA HEADERS

020124
050040

DH1:

.ASCIZ

/TEST NO.

004461

DH2:

.ASCIZ

/RKMR1

RKMR2

RKMR3

RKER

RKDS

RKCS1

RK(CS2/

DH3:

.ASCIZ

/RKWC

RKBA

RKDA

RKASOF

RKDC

RKECPS

RKECPT/

\N\N—dmd

\
N

ONNIN

EM94:

ON)

SEQ@ 0172

N=O—
ONSN

027056
051517

13:04

O==rNHNVONOO
WVHANNWVON
= MNWES

h
b
b
i
d wd
—d ad cad

AWV

VIV WNHAWVUA
AL

COOO0O0O0O0O

-—

~
~n

CZR6IFO_UNIBUSS RK6 DR _PRT?2
CZROIF .P11
04-JAN-82 1

deded

051606

024063

N —

=2NOO =2NNININO =N

050103

—d bk
) b

PC/

NONY

000
047040
020117
046131
020122

004523

NI=
PO =N =2

H
U

VWA NN =
=

o
o

&»H
W

O NS LN—

=t NN

\J%\h

(=)
-l e e cnd ) e ) ek aed O

iAo

ALY

[pS LS TN 1N T S, N1 N1, N 181,91 ,8],§1,§)

=lelelelelelalalelalelaleolelele]

o
~
O

(¥,]

) = amd ) =d b b b ad md
AN =2 NN = = O\ NSO

040505

O0O00O
&
ONO
O—0—0
Aoafkad
Ofrovio

- NO

/FROM CYL

DHS8:

.ASCI12

/TEST NO.

DH9:

LASCIZ

/AFTER START SPINDLE COMMAND REC'D BY DRIVE/

DH10:

LASCIZ

/AT END OF HEAD LOADING/

DH11:

LASCIZ

/EXPECTED

WAS/

DH13:

CASCIZ

/ON SECTORS 10,

12,

14,

16,

18 OR 20 CYL 410 TRACK 2/

DH14:

LASCI2

/ON SECTORS 11,

13,

15,

17,

19 OR 21

DH17:

LASCIZ

/AFTER RECAL

042524
045503

DH19:

LASCIZ

/AFTER PACK COMMAND/

052106
046105
051104
047503
000104
042524

DH20:

.ASCIZ

/AFTER SELECT DRIVE

DH21:

ASCIZ

/AFTER SUBSYSTEM CLEAR/

051104

042640
020106
0646040
043516
050130
004504

VIOWMUNI=
NOD-10—2
NNONOO

.ASCIZ

020114

Qo
on
N

TO CYL

CYL

DIFF/

TRAP PC/

041501

LAWY

041505
030440

A
WVIAWAWAL

SERRE ERREEREEREE

OVOWNONES
NN =

051124
000062
051440

8828

SEQ 0173

DH6:

051440
051522
030440
026064
030440
031040

21
2

E 14
PAGE 174

O0O00OOO
OO0
AERNEERWN
&R
W==OFURU—
O~
200N a—a—ON0
a2fERIINNOONE
—=SOONORNWVMONO

101
051440
051440
042514
040515
041505

13:04

(=] 0O
&» &8
O

027117
020120

04~JAN-B2

DATA HEADERS

=2 LNON =

061440
063111
042524

MACY11 30(1046)

=PI
WNO = UM

WAV
WAWAWVWA A WA WAV

106

054503
020117

Qead b b\ NN b \ NN 2

=i=lelelelalelelolelololelolelolalalota]

041505

[elelelelelolele]
VIO SO
NINOONSO
NN

CZIRGIFO UNIBUSS RK6 DR PRT2
CZR6IF.P1
04-JAN-82 1
)

COMMAND/

046515

040515

COMMAND/

CYL 410 TRACK 2/

101

054105
000
061501
000
052106

S
On—

OWw
(N

BN
NOOO

ONON
OV
—-ON)
AN
O—O0
=W

OO
OO00O0

DH25 :

F 14
PAGE 175

SEQ 0174

/AFTER DRIVE CLEAR COMMAND/

.ASCIZ

/AFTER OFFSET COMMAND/

ASCIZ

/AFTER SEEK COMMAND/

DH26:

.ASCIZ

/AFTER READ DATA COMMAND/

DH27:

.ASCIZ

/AFTER WRITE DATA COMMAND/

0642520

DOH28:

.ASCIZ

EXPECT/

052526

DH29:

.ASCIZ

ACTUAL/

051105

DH30:

.ASCIZ

/AFTER READ HEADER COMMAND/

DH31:

.ASCIZ

/AD

DH32:

.ASCIZ

/AFTER WRITE CHECK COMMAND/

DH39:

.ASCIZ

/AFTER WRITE HEADER COMMAND/

DH40:

.ASCIZ

/WORD#

DH&1:

_ASCIZ

/DURING RECAL COMMAND/

SIS
ONO

.ASCIZ

NOOHMN
NHNON

011
052103
011
046101

DH24:

13:04

020105

o
o
b=
[=
O
W

053055
053062
053065
053072
053075

OO
= =2
O —
A N b b b ok b ON

8854
8855
8856
8857
8858

OO0

DH22:

S0
NO—=

043117

N=NNOOON
Pmtfddas

VWAL

2732

052523

=O=NN—=O
NSOV

052652

=OOO—=ON
NNORONONS

8829

MACY1T 30(1046)
04-JAN-82
DATA HEADERS

OO0

CZR61F0 UNIBUSS RK6 DR _PRT2
CZR6IF.PI1
04-JAN-82 12:46

3254

020122

040

3270
3
3302
3310

020104
104
020107
020114

042
051
042
047

047111

046515

HEADER WAS

SHOULD BE/

B3/

[gn
¥ o

30(1046)
04-JAN-82
DATA HEADERS
DH42:

.ASCIZ

/ON SECTORS 0,2,4,6 OR 8

(YL 410 TRACK 2/

DH43:

.ASCIZ

/ON SECTORS 1,3,5,7 OR 9

CYL 410 TRACK 2/

DH44:

_ASCIZ

/FORMAT & ALL READ-WRITE TESTS WILL BE BYPASSED/

DH47:

.ASCIZ

/AFTER READ HEADER COMMAND WITH MOVEMENT/

DH49:

_ASCIZ

/MSG A & B IN RKMR2 § RKMR3 RESP. ARE INVALID/

020122
052040
043114

DH51:

_ASCIZ

/AFTER SEEK TO SELF COMMAND/

020110
052116
020114
046517
000
047111
051506
046517
000
051105
040515
047101
042116

DH52:

.ASCIZ

/WITH INTENTIONAL MISCOMPARE/

DH53:

.ASCIZ

/DURING OFFSET COMMAND/

DH54:

.ASCIZ

/AFTER FORMAT CHANGE AND CONTR READY REC'D/

8885
8886
8887
8888
8889
8890
8891
8892
8893
8894
8895
8896
8897
8898
8899
8900
8901
8902
8903

053316
053322
053330
053336
053344
053352
053360
053366
053373
053400
053406
053414
053422
053430
053436
0534446
053452
053460
053466

047101
047117
047524
031054
047440
041440
030061
045503
117
052103
026061
020067
020040
030464
0641501
047506
023040
051040
051127

000104
051440
051522
032054
020122
066131
052040
031040
020116
051117
026063
051117
054503
020060
020113
046522
040440
040505
052111

041505
030040
033054
020070
032040
040522
000
042523
020123
026065
034440
020114
051124
000062
052101
046114
026504
020105

8905
8907
8908
8909
8910
8911
8912
8913
8914
8915
8916
8917
8918

053502
053510
053516
053523
053530
053536
053544
053552
053560
053566
053573
053600
053606
053614

044527
020105
051523
101
051040
042510
041440
042116
020110
042515
115
023040
020116
020062

114
054502
042105
052106
040505
042101
046517
053440
047515
052116
063523
041040
045522
020046

041040
040520
00 0
051105
020104
051105
040515
052111
042526
000
040440
044440
051115
045522

8920
8921
8922
8923
8924
8925
8926
8927
8928
8929
8930
8931
8932

053630
053636
053644
053650
053656
053
053672
053700
053703
053710
053716
053724
053732

050123
020105
044514
043101
042523
020117
041440
042116
127
047111
047511
044515
040520

020056
047111
000104
042524
045505
042523
046517
000
052111
042524
040516
061523
042522

051101
040526

8904

8919

8933
8934
8935
8936
8937
8938
8939
8940

053474

053622

053737
053744
053752
053760
053765
053772
054000
054006

042524

051115

106
020107
052105
040515
101
043040
020124
042507

052123

020063

051125
043117
041440
042116
052106
051117
044103
040440

13:04

G 14
PAGE 176

MACY11

SEQ 0175

020123

042522

040515

[gn
X en]

CZR6IFO UNIBUSS RK6 DR PRTZ2
CZROIF .P11
04~JAN-82 12:46

H 14

PAGE 177

OO0

DH56:

LASCIZ

/CYL #

DHS7:

.ASCIZ

/AFTER WRITE COMMAND WITH OFFSET/

.SBTTL

ERROR OUTPUT DATA

DT1:

.EVEN
$TESTN, SERRPC
HMR1,HMR2
,HMR3 ,HER ,HDS ,HCS1 ,HCS?2

HEADER WORD 0/

0564120

056126
054130
0564136
054144
054146
054154
054162

007404

007362
007374

007364
007406

007354

001334
001116 001344
001354
007402 007404
007366 007354

054164
054170

054176
054202
054210
054216
054220
054226
054234

054236
054244
054246

054376
054400

001116
007402
007366

V07360

HW( ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

DT3:
DT4:

S$STESTN, TRAPP(
STESTN,SERRPC,FRCYL,TOCYL,CALDIF

HMR1,HMR2
,HMR3 ,HER ,HDS ,HCS1,H(S?2

007362
007374

007364
007406

001116

001454

007402
007366

007404
007354

HMR1
,HMR3 ,HMR
,HER ,HDS ,HCS1,H(CS2
2

007362
007374

007364
007406

HW( ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

001116
007412
007402
007366

001472

007404
007354

HMR1,HMR2
,HMR3 ,HER ,HDS ,HCS1,H(CS2

007362
007374

007364
007406

HWC ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

001116
001354
007402
007366

001346

007404
007354

HMR1
,HMR3 ,HMR
,HER ,HDS ,HCS1,HCS2
2

0v7362

007364

HW(C ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

HWC ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

DT6:

DT?7:

DT8:

S$TESTN,SERRPC,WD2,WD1

S$TESTN,SERRPC
,WDCNT ,HDWD , TEMP1

$TESTN,SERRPC,TOCYL,FRCYL,CALDIF

SEQ@ 0176

[gn Fan

DATA HEADERS

13:04

OO0

061440
051040
051048

04=-JAN-82

QOO0O0O0

054014

MACY11 30(1046)
Y
D e
R 2T LY I
V. (V|
=SFION—=
NN
NN
==
aunids
OwnO==NO
VO
SO
=~V
NSO
NS

CZR6IFO UNIBUSS RK6 DR "RT2
CZROIF .P11
04-JAN-82 12:46

13:04

1 14
PAGE 178

MACY11

007374

007406

001116

001346

007402
007366

007404
007354

HMR1
,HMR3 ,HMR
,HER ,HDS ,HCS1,HCS2
2

007362
007374

007364
007406

HW(C ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

001116
007450
007426

007444
007452
007430

007402
007366

007404
007354

HMR1 HMR2 ,HMR3 ,HER ,HDS ,HCS1,HCS2

007362
007374

007364
007406

HWC ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

001116
007450
007456
007426
007434
007402
007366

007444
007452
007430
007436
007404
007354

H.A0,H.BO,H.A1,H.B1,H.A2,H.B2

007362

007364
007406

HWC ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

001116
007450
007456
007426
007434

007444
007452
007462
007430

007402
007366

007404
007354

HMR1,HMR2
,HMR3 ,HER ,HDS ,HCS1,H(CS2

007362
007374

007364
007406

HWC ,HBA ,HDA ,HASOF ,HDC,HPOS
,HPAT

054406
054414
054416
054424
054426
054434
0564442
0546444
054452
054460
054462
054470
054476
054504
054506
054514
054522
054524
054532
054540
054542
054550
054556
054562
054570
054576
054604
054612

007372

007374

054706
054710
054716
054724

054726
054730
054732
054734

007372
007410

054736
054740

000003
002
052056
007
052126
007

054742
054744

000001
002

000

DT9:

DT13:

DTI4:

S$TESTN,SERRPC ,E.A0,E.BO,E.A1,E.B1,H.A0,H.B0,H.AT,H.B1

$TESTN,SERRPC ,E.A0,E.BO,E.A1,E.B1,E.A2,E.B2

HMR1,HMRZ2
,HMR3 ,HER ,HDS ,HCS1 ,H(S2

0T15:

S$TESTN,SERRP( ,E.A0,E.BO,E.A1,E.B1,E.A2,E.B2,E.B3
H.A0,H.B0,H.A1,H.B1,H.A2,H.B2,H.B3

007436

LSBTTL

ERROR DATA FORMATS

DF1:

3
.BYTE 2,0
DH2
.BYTE 7,0
DH3
.BYTE
7.0

DF2:

1
.BYTE

000

$TESTN,SERRPC,TOCYL
,RHTAB

2.0

SEQ 0177

[gn
Y gn]

30(1046)
04~JAN-82
ERROR OUTPUT DATA

CZR6IFO UNIBUSS RKé DR _PRT?
CZR6IF.PT1
06-JAN-82 12:46

CZR6IFO UNIBUSS RK6 DR _PRT2
CZROIF .P11
04~JAN-82 12:46

054746
054750
054752
054754
054756
054760
054762
054764
054766
054770

000005
000
052041
002
052355
002
052056
007
052126
007

054772
054774
054776

055004

000003
002
052056
007
052126
007

055006
055010
055012
055014
055016
055020
055022
055024
055026
055030

000005
000
053573
000
052041
002
052056
007
052126
007

055032
055034

000005

055036
055040
055042

055044
055046

055050
055052
055054
055056
055060

055062
055064

000
052041
002
052177
003
052056
007
052126
007

000004
000
052041
002
052056

007
052126
007

000004
002
053241
003
052056
007

000

MACY11 30(1046)

ERROR DATA FORMATS

DF3:

000
000

000

DFé4:

3
.BYTE

DH3
.BYTE

000

DF5:

000

5
.BYTE
DH49

DH1
.BYTE
DH2
.BYTE
DH3
.BYTE

060

000
000
000

5
.BYTE
DH1
.BYTE
DH11
.BYTE
DH2
.BYTE
DH3
.BYTE

DH2
.BYTE

000

04=JAN-82

DF6:

0.0
2,0
2.0
7,0
7.0
2.0
7,0
7,0
0,0

2,0

7,0
7.0

000

DH1
.BYTE 2,0
DH6
.BYTE 3.0
DH2
.BYTE
7.0

000

7,0

000
000

000

DH3
.BYTE
DF10:

000

000
000
000

000

.BYTE 0,0
DH1
.BYTE 2.0
DH2
.BYTE 7,0
DH3

.BYTE

DF 14:

7,0

.BYTE
DH40
.BYTE
DHZ
.BYTE

2,0

3,0
7.0

13:04

J 14
PAGE 179

SEQ 0178

000005
000
053444
000
052041
002
052056
007
052126
007
000005
000
052041
002
054037
002
052056
007
052126
007

055200

000007
000
052041
002
053055
000
053127
004
053065
004
052056
007
052126
007
000007
000
052041
002

053055
Voo
053127

ERROR DATA FORMATS

DH3
.BYTE

000

DF1S:

000

000
000

DF17:

000
000

000

000
000

DF20:

000

000
000

000

5
.BYTE
DH&44
.BYTE
DH1
.BYTE
DH2
.BYTE
DH3
gBYTE
.BYTE
DH1
.BYTE
DH56
BYTE
DH2
.BYTE

DH3
.BYTE

000

DF21:

000

7
.BYTE
DH1
.BYTE
DH28
.BYTE

DH31
BYTE
DH29
.BYTE
DH2
.BYTE
DH3
.BYTE

000

000
000

000

DF22:

000

7
.BYTE
DH1
BYTE

000

BYTE

000

K 14
PAGF 180

SEQ 0179

7,0

DH1
.BYTE
DH2
.BYTE
DH3
.BYTE

000

13:04

DH28

2,0
7.0
7,0
0,0
0,0
2,0

7.0
7,0
0.0
2.0
2.0

7.0
7.0
0,0
2.0

0,0
4,0
4,0

7.0

7,0
0.0
2,0
.

222222222222z
22222

—D
oo
i e
end
e
e
e

WWWWNONNN
—
MNOoONSVVOO

d
md
e e
o
b 2acd ed
i
b ad
b wad
b e
—

000004
000
052041
002
052056
007
052126
007

NNNNOOONOOWNWWNWNWNS
S SN
RSO
SNNOOSTNOONSNOO

wvivviauuaiuiuiuiviaivivivavawvawv.
vivaioaunaaiuawniug
viviviviuiuuviuiiaiiviviaaviinaibve . viawvivivauvauu

=lnlslelelolalalalalelelelaclalaleBelelaleololelale]

—h

[@XVels
- RNTe JV F JV 1, V]

e
i
b
md

cd e cd e
e
o

b and e
b

000 00OV OO

007

04-JAN-82

N
o DY

052126

MACY11 30(1046)

D>2>>>>>

CZR6IFO UNIBUSS RK6 DR PRT?2
CZROIF .P11
04=JAN-82 12:46

CZROIFO UNIBUSS RK6 DR _PRT?
CZROIF.PI1
04~JAN-82 12:46

9165
9166
9167
9168
9169
9170
9171
9172
9173
9174
9175
9176
9177
9178
9179
9180
9181
9182
9183
9184
9185
9186
9187
9188
9189
9190
9191
9192
9193
9194
9195
9196
9197
9198
9199
9200
9201
9202
9203
9204

9205
9206
9207
9208
9209
9210
9211
9212
9213
9214
9215
9216
9217
9218
9219
9220

055260
055262
055264
055266
055270
055272
055274

006
053065
006
052056
007
052126
007

055276
055300
055302
055304
055306
055310
055312
055314
055316
055320
055322
055324
055326
055330

000007
000
052061
002
053055
000
053127
007
053065
007
052056
007
052126
007

MACY11

30(1046)

ERROR DATA FORMATS

000

BYTE
DH29
.BYTE
DH2
.BYTE
DH3
.BYTE

000
000
000
000

DF23:

000
000

04-JAN-82

.EVEN

7
.BYTE
DH1
.BYTE
DHZ28

DH31
BYTE
DHZ29
.BYTE
DH2
.BYTE
DH3
BYTE

.SBTTL

13:04

L 16
PAGE 181

SEQ 0180

6,0
6,0

7,0
7,0
0,0
2,0

7,0
7.0

7.0
7,0
L

ity

TYPE ERROR ROUTINE

S*ENTRY JSR PC,TYP ERR
;*RETURN RTS PC
L

;*THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB)

TO DETERMINE WHICH

;*ERROR IS TO BE REPORTED. IT THEN USES THE '‘ERROR TABLE'' (SERRTB)
:.$zERgR;8RDEF1~E WHAT INFORMATION IS TO BE REPORTED CONCERNING
B

oA RR AR

TYPERR: SAVREG

055332
055334
055340
055344
055346
055350
055352
055354

MovB

007526
055374

055366
055372
055374
055376
055402

1$:

001205
055412

2%:
3s:

001205
48:

5%:

012002

AN AR AT RN AN RN AN AR RARRRN AN RANRRAACNRARSL

$ITEMB RO

sENTER ERROR NUMBER

DEC
ASL
ASL
ASL
ADD
MOV
BEQ

RO
RO
RO
RO
#$ERRTB,RO
(RO)+,28
3s

;FORM INDEX FOR ERROR TABLE

.WORD
MOV

BEQ

0
(RO)+,4%
5%

.WORD

:DH POINTER GOES HERE

CLR
MOV
MoV

R4
(RO) +,RO

;SET INDENT SWITCH
;GET DF POINTER

BIC

055360
055364

055404
055410
055412
055414
055416
055420
055422
055424

AR AR AR A RN AN

TYPE
TYPE

MOV
BEQ

#177400,R0

.SCRLF

(RO)+,R1
20$

(RO)+,R2

sCLEAR SIGN EXTENSION

.FORM ADDRESS OF ERROR ENTRY
sGET EM POINTER
;BRANCH IF THERE ISN'T ONE

;TYPE CARRIAGE RETURN LINE
sTYPE ERROR MESSAGE (EM)

JEM _POINTER GOES HERE
;GET DH POINTER
;BRANCH IF THERE ISN'T ONE
sTYPE CR-LF
;TYPE DATA HEADER

.GET DT POINTER
;BRANCH IF THERE ARE NONE
;STORE NUMBER OF DH'S

FEED

CZR6IFO UNIBUSS RK6 DR PRT2
CZROIF P11
04~JAN-82 12:46

055426

001446
005104
104401
112003
105720
005703

MACY11 30(1046)

TYPE ERROR ROUTINE

8EQ
(OM

001205

108:

001407
013146

118:

104402

005303
001403
104401

000771
005302
003431

055606

148%:

104401

005760
001404
005104
001002
104401

012037

15%:

000000

16%:

104401

105710

001003
062700
000754
106401

005704
001335
104401

000732

000002

001205

21s:

055606

17%:

104414

055554
055562
055564
055572
055574
055600

032777
001410
023727
001004
012706
000137

055604
055606

000207
020040

20$:

010000

123356

001103

000024

TYPE

MOVB

TSTH
TST

BEQ
MOV
TYPOC
DEC
BEQ
TYPE
BR

DEC

BLE
TYPE
TST
BEQ
COM
BNE
TYPE

MOV

TYPE
.WORD
TSTB
BNE
ADD
BR

TYPE

TST
BNE

TYPE
BR
RESREG

BIT
BEQ
CMP
BNE

001100
031476
000

04-JAN-82

25$:

SPACE2:

;

13:04

LR
PAGE 182

17$

;DH NUM IS 0-BRANCH

*NO INDENT

,$CRLF
(RO) +,R3

(RO)+
R3
148
a(R1)+,~(SP)

;GET & STORE NUMBER OF DATA WORDS
‘BUMP PAST FORMAT WORD
STEST IF ANY DATA FOR THIS HEADER
*NO - SKIP DATA PRINT
;¢$;Er{§sr DATA WORD ON STACK

*MORE DATA WORDS

LSPACE2

STYPE SEPARATORS

148

*NO-BRANCH

i1s
R2
208
$CRLF

1LOOP
*MORE DH'S?
*NO-BRANCH

15$
R4
158

*YES-BRANCH BYPASS INDENT
S INDENT?
*NO-BRANCH

2(R0)

;ONLY A DH IN THIS REQUEST?

,SPACE?2

(RO)+,168
0
(RO)
218

‘YES-TYPE SPACES

*GET NEXT DH POINTER

STYPE DH

*DH POINTER GOES HERE
STYPE A DT?
* YES=BRANCH

#2 RO
14$

- INCREMENT DF POINTER
:SEE IF END OF DF BLOCK

,$CRLF

; INDENT?

108

*NO-BRANCH

108

;LOOP

#SW12,3SWR
258
$ERFLG,#20.

:SEE IF ABORT DRV AFTER 20 ERRORS
*BR IF NO
TELSE SEE IF HAVE 20 ERRORS

LS2ACE2

SYES=TYPE SPACES

258

*BR IF NO

MoV
JMP

#STACK, SP

$EOP

*AND GO TO NEXT DRV

RTS

PC
/

;2 SPACES

.ASCIZ2/

0DT=11 -- VOOSA

*ELSE RESTORE

; DEC-11-UODPA-A-LA
; COPYRIGHT 1969,1970,1972
; DIGITAL EQUIPMENT CORPORATI ON
; MAYNARD, MASSACHUSETTS 0175 4
055612
055672
000000
000001

RO
R1

SEQ 0181

. ENABL

, AMA
ABS

=
=

%0
%1

: REGISTER
;.
NAMING

STACK PTR

CZR6IFO UNIBUSS RK6 DR PRTZ2
CZR6IF P11
04~-JAN=-82 12:46
9277
9278
9279
9280
9281
9282
8%3}
4

9285
9286
9287
9288
gsgg

MACY11

000002
000003
000004
000005
000006
000007
177776

R2
R3
R4
RS
SP
PC
ST

000014
000340
000020
000003
000006

O.TVEC
0.STM
0.187
TRT
RTT
:
;
s

8%3?

13:04

=
=
=
=
=
=

X2
X3
1
x5
%6
X7
177776

=
=
=
z
=

14
340
20

9291
9292
9293

N 14
PAGE 183
CONVENTIONS

000003
000006

JSTATUS REGISTER

JTRT VECTOR LOCATION
JPRIORITY MASK - STATUS REGISTER
;T-BIT MASK - STATUS REGISTER
;TRT INSTRUCTION
JRTT INSTRUCTION

RS IS USUALLY CONSIDERED SAFE, THE CURRENT ADDRESS WORD
RESIDES IN IT.,
AFTER A BREAKPOINT, IT IS SET TC ZERO, AND SEARCH
OPERATIONS LEAVE IT RANDOMLY FILLED.
OTHERWISE, IT SHOULD NOT

. BE USED EXCEPT FOR JSR'S AND THE CURRENT ADDRESS POINTER (CAD).

9296
9297
9298
9299
9300
9301
9302
9303
9304

177562
177560
177566
177564

0.RDB
=
177562
;R DATA BUFFER
0.RCSR
=
177560
R (/SR
0.708
=
177566
;T DATA BUFFER
0.TCSR
=
177564
;T C/SR
:
:
; INITIALIZE ODT
.
USE 0.0DT FOR A NORMAL ENTRY
;s
USE 0.GDT+2 TO RESTART ODT - WIPING OUT ALL BREAKPOINTS

gggg

;

9307
9308
9309
9310
9311
gg}%

055672
055674
055676
055704
055712
055716

000413
000417
013737
013737
010737
000137

9314
9315
9316
9317
9318
9319
9320
9321
9322
9323
9324
9325
9326
9327
9328
9329
3%%?

055722
055726
055732
055734
055740
055746
055752
055754
055756
055760
055764
055766
055770
O§S776
(56002
056010
056016

012706
010837
000414
004037
013777
113704
106004
106004
106004
110437
000127
000403
012737
105037
012737
012737
000447

9332

30(1046)
04~JAN-82
TYPE ERROR ROUTINE

177776
000018
055650
057050

055652
177776

055632
055646
057256
055670
055654

177716

177776
000002
057677
000340
057040

056760
000016
000014

USE 0.0DT+4 IO RE-ENTER (I1.E. = FAKE A BREAKPOINT)

0.0DT:

BR
BR
O.ENTR: MOV
MOV
MOV
JMP

C.STRT
0.RST
ST,0.UST
0.TVEC+2,ST
PC.0.UPC
0.8x1

;NORMAL ENTRY
JRESTART
JRE-ENTER
-~
SAVE STATUS
sSET UP LOCAL STATUS
JFAKE THE PC

0.STRT: MOV
MOV
BR
G.RST:
JSR
MOV
MOVB
RORB
RORB
RORB
MOVB
0.RST1: JUMP
BR
MOV
0.45:
CLRB
MOV
MOV
BR

#0.URO,SP
SP,0.USP
0.RST1
0,0.SVR
0.UIN.,a0.ADR1
0.PRI,R4
R4
R4
R4
R4,ST
(PC)+
0.45
#RTI,0.RTIT
0.P
#0.STM,0.TVEC+2
#0.8BRK,0.TVEC
0.RALL

JSET UP STACK
sFAKE THE SAVED STACK
;CLEAR BREAKPOINT TABLES
;SAVE REGISTERS
JREMOVE THE BREAKPOINT
;GET ODT PRIORITY
JSHIFT
: INTO
;s
POSITION
JSTORE IN STATUS

;

SPECIAL NAME HANDLER

sSET TO RTI IF 11720 OR /05
:DISALLOW PROCEED
;STATUS WORD TO TRT VECTOR + 2
sPC TO TRY VECTOR
JCLEAR BREAKPOINT TABLES

SEQ 0182

j
.SP1:

.ORPC:

056364

055664

057740

055664

:1S THIS THE CORRECT CHARACTER?

0.5P
#0.TL+0.LG,R4
0.RSP
#177770,R0
RO, R4
Ré
#0.URO,R4
R2

BR
SuB
BR

0.SCAN
#0.TL-7,R4
0.SP1

;TABLE START ADDRESS

;JUMP TF YES
;IS THE SEARCH DONE?
:BRANCH IF NOT
:MASK OFF OCTAL
;GENERATE ADDRESS
cSET FOUND FLAG

;GO0 FIND NEXT CHARACTER
sCORRECT CONSTANT

JSR
MOV
ADD
ASR
8(S
ASL
TST
MOV
JMP

PC,0.TCLS
R5,R2

8R2 ,R2
R2
0.ERR
R2
(R2)+
R2,R5
0.0P2

s CURRENT ADDRESS IN R2
s COMPUTE
;MOVE ONE BIT TO CARRY
;ERROR IF ODD NUMBER
sRESTORE WORD
; AND INCREMENT BY TWO
;UPDATE CAD
:GO FINISH UP

B HANDLER - SET AND REMOVE BREAKPOINTS

.BKPT:

TST

8EQ
ASR
BCS
ASL
MOV
BR
0.RALL: MOV
BR

0.RALL
Ré
0.ERR
Ré
R4,0.ADRY
0.D(CD

#0.TRTC,0.ADR1
0.D(D

:1F NO NUMBER TYPED

;
REMOVE BREAKPOINT
s CHECK IF 0ODD
sJUMP IF ODD

sRESTORE ONE BIT

.SET A BREAKPOINT
:CLEAR BREAKPOINT

jelelvivieolviviolelw)

005702
001406
006204
103410
006304
010437
000412
012737
000406

RO, (R4)+

BEQ
CMP
BHI
BIC
MOV
ASL
ADD
INC

(MPB

056116
056120
056122
056124
056126
056130
056134
056136
056144

057624

[ LRI Y

056112

004737
010502
061202
006202
103421
006302
005722
010205
000137

sSPECIAL NAME, GET ONE MORE CHARACTER

#0.TL,R4

- HANDLER - OPEN INDEXED ON THE PC

[« LI

XN I

.SP:

5,0.GET

MOV

SEQ 0183

jvivivivielolelvivivicleolofolol, BNe Yo

.RSP:

057714

B 15
PAGE 184

DEPENDS UPON THE EXPLICIT ORDER OF THE TWO TABLES O.TL AND 0.URO

.REGT: JSR

055632

13:04

004537
012704
120024
001413

000770

04-JAN-82

TYPE ERROR ROUTINE

(]

056020

MACY11 30(1046)
O
e

CZROIFO UNIBUSS RK6 DR_PRT?
CZR6IF PN
04-JAN-82 12:46

000001
000077
057556
057656

057500
000060
056204

022700

000067

0.ERR:

BIS
MOV

JSR
0.DCD:
JSR
0.DCD1: CLR
CLR
0.SCAN: JSR
CMP
BHI

cMP

#1,R5
#'?,R0

5.0.FTYP
5,0.CRLS
R4
R2
S‘O.GET
#°0,RO
0.CLGL

#'7,.R0

sCLOSE EVERYTHING
:
2 TO BE TYPED

: OUTPUT ?
STYPE
<CROCLF>+
: R4 CONTAINS THE CONVERTED OCTAL
: R2 IS THE NUMBER FOUND FLAG
sGET A CHAR, RETURN IN RO
sCOMPARE WITH ASCII 0
sCHECK LEGALITY IF NON-NUMERIC

;COMPARE WITH ASCII 7

052705
012700
004537
004537

KEGISTERS RO-R4 MAY BE USED,
REGISTER RS WILL BE CONSIDERED SAFE

ivivivivielels)

;
:

; COMMAND DECODER - 0ODT11

006205

103711
006305
011500
004537
000714
042705
000766

056356
056362

004737
052705
000702

004737
005725

057624

@0.LGDR(R1’

sMULTIPLY BY TWO
:GO TO PROPER ROUTINE

;

0.0P1
0.0RPC

;
:

<LF>
MODIFY, CLOSE, OPEN NEXT
OPEN RELATED, INDEX - P(

0.0FST
0.WSCH
O0.EFF
0.BKPT
G.PROC
=

;

GO TO ADDRESS K

®TM

OPEN PREVIOUS

TST

;
O
OFFSET
;
W
SEARCH WORD
:
E
SEARCH EFFECTIVE ADDRESS
;
B
BREAKPOINTS
;
P
PROCEED
.-0.LGDR
;LGL MUST EQUAL 2X CHLGT ALWAYS

ASL
MoV

RS
a3R5,R0

.WRDA: BIC
BR

#1,R5
0.WRD1

JSR
BR

0.ERR

5.0.CADV
0.DCD1

sGET VALUE IF RZ2 IS NON-ZERO
:SKIP OTHERWISE
;
PUT VALUE IN CAD
:MOVE ONE BIT TO CARRY
sJUMP IF ODD ADDRESS
:RESTORE THE CARRY BIT

;GET CONTENTS OF WORD
;GO GET AND TYPE OUT aCAD
;GO BACK TO DECODER
;CLEAR CLOSED BIT
;GO BACK TO MAIN-LINE

PROCESS CARRIAGE RETURN

.CRET:

JSR

PC,0.TCLS

sCLOSE LOCATION

B8R

0.0CD

*RETURN TO DECODER

8IS

#1,RS5

PROCESS <LF>,

OPEN NEXT WORD

.0P1:

<R$)+

JSR

TCLS

v lolelvlvleolvl Joleleolewlole ]

IS THE SEARCH DONE?

0.WRDA
R4 RS
RS

057414

057624
000001

00PS
!
.RE-LOOP

BEQ
MoV
.WRD1: ASR

[« LT

056344
056350
056354

0.ERR
0.LGL1

R1,40.CLGT

/
OPEN WORD
CARRIAGE RETURN
$
REGISTER OPS

.ERR2: BCS

000001

H
Ré
sPACK THREE BITS IN Ré
sR2 HAS NUMERIC FLAG
;
_AND TRY AGAIN
:CLEAR INDEX
;DO THF CODES MATCH?
;JUMP IF YES
s SET INDEX FOR NEXT SEARCH

PROCESS / =~ OPEN WORD

.WRD:

N T

056342

005702
001410
010405

R4
RO.R4
R2
0.SCAN
R1
RO,0.LGCH(R1)
0.LGLZ
R1

;
:

0.BACK

AGL

; MAKE ROOM

O.WRD
0.CRET
0.REGT

0.6G0

056762
000030

;CHECK LEGALITY IF NOT OCTAL

:CONVERT TO B(CD

1
056312
056314
056316
056320
056322
056324

.LGDR:

Oeeve. O

056310

JMP

Ré

SEQ 0184

sCLOSE EVERYTHING

;CLOSE PRESENT CELL

:GENERATE NEW ADDRESS

.LGL2: ASL

056262

056270
056272
056274
056276
056300
056302

Ré4

cCMP

[e LY

056312
056344
056020
056654
056356
056070
056410
056420
056476
056472
056116

ASL

BHIS
BR

[ LN TR ¥

28 RRRVRRRR

d ed ek md
N —d
W
-0 Voo~

9412

056262
056264
056266

#177770.RO

ASL
ADD
INC
BR
.CLGL: CLR
.LGL1: CMPB
8EQ
INC

0.CLGL

8IC
ASL

c15
PAGE 185

CICAICICI
TM

BLO

177770

000014

000171

13:04

TYPE ERROR ROUTINE

057707

056256

04-JAN-82

mMmmmmmmmmoIcoocCI
TM

103410
042702

MACY11 30(1046)

MrraraMAfMmMmmmm

CZROIFO UNIBUSS RK6 DR PRTZ
CZROIF .P11
04-JAN-82 12:4

004537
010500
004537
012700
004537
000744

057650

TYPE ERROR ROUTINE

0.0P2:

057414
000057
057556

JSR

13:04

D 15
PAGE 186

5.0. CRLF

s <CRYCLF>

MOV

RS, RO

*NUMBER TO TYPE

MOV

#$7 RO

STYPE A /

B8R

0-WwRD1

JSR

5 o CADV

5,0.FTYP

TYPE OUT ADDRESS

:GO PROCESS IT

: PROCESS “, OPEN PREVIOUS WORD
10
16
16

004737
005745
000762

057624

0.BACK:

9460
96461
9462
9463
94664

9465
9466
9467
9468
9469
96470
9471
9472
9473
9476
947

056420
056422
056424
056426
056432

056436
056440
056442
056444
056446
056450
056454
056456
(56460
056462
056466

006205
103737
006305
012700
004537

150504
005304
005304
010400
010402
004537
010200
006200
103402
004537
000137

JSR

ST
B8R

PROCESS O,

0.0FST: ASR

PC.0.TCLS

-(RS)
0.0P2

COMPUTE OFFSET

;GET LOW ORDER BIT

RS. R4

: CCMPUTE

000040
057556

BCS
ASL
MOV
JSR

0.ERR?
RS
#" RO
S,0.FTYP

057414

DEC
DEC
MOV
MOV
JSR

R
R4
R4 RO
R4.R2
5,0.CADV

057414
056166

SUB

MOV
0.0F1:

ASR
BCS
JSR
JMP

;GENERATE NEW ADDRESS
26O DO THE REST

R2.RO

RO
0.0F1
5.0.CADV
0.DCD1

*ERROR IF CLOSED
*RESTORE WORD
STYPE ONE BLANK
: AS A SEPARATOR

;
16 BIT OFFSET
‘TYPE
A
*SAVE Ré
*NUMBER IN RO - WORD MODE
;DIVIDE BY TwO
*BRANCH IF ODD
*NUMBER IN RO - BYTE MODE
SALL DONE

SEARCHES - $MSK
HAS THE MASK
$MSK+2 HAS THE FWA
$MSK+4 HAS THE LWA

Sea 0185—1

([ Yo

04-JAN-82

mMmMmMmMMmMmMmMmmMmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm T M rrmm

056364
056370
056372
056376
056602
056406

30(1046)

9445
9646
9447
94648
9449
9450

MACY11

rmm

CZR61F0 UNIBUSS RK6 DR PRT2
CZR6IF.P11
61F
04-JAN-82 12:4

MOV

COM
0.wDS2: CMP

BHI
MOV
ST
BNE
MOV

MOV
BIC

BIC
8IS
BIC

0.wWDS3: BNE
057650
057414
000057
057556

057414

056654
056660
056662
056664

105037
006204
103617

006304

sSET WORD SEARCH
s CHECK FOR 0BJECT FOUND
;ERROR IF NO OBJECT
:SET ORIGIN
:SET MASK

0.MSK RS

RS
R2,0.MSK+4

0.0CD
aR2,RO
R1

0.EFF1
RO, =(SP)
R4.R3
R4 .RO
(SP)+,R3
RO.R3

0.EFF1: CMP
BEQ
MOV
ADD
INC
INC
cMP
BEQ
BIC
MOVB

YE
GET OBJECT

BRANCH IF EFFECTIVE SEARCH

JEXCLUSIVE OR

;

1S DONE
:

IN A VERY

5,0.CRLF

JTYPE <CR,LF>

5.0.CADV
#°7.RO
5,0.FTYP
aR2,R0O
5,0.CADV
(SP) +,R4
(R2)
+

0.WDS2
RO.R4

0.wDS3

RO.R3
R2.R3

R3
R3
R3,R4
0.WDS3
#177400,R0

RO.RO

RO
RO
RO
R2.RO
RO,R&

0.WDS3

ASR

ASL

0.ERR2

;HE SEARCH ALL DONE?
;IS

RS.R3

* PROCESS G - GO
0.50:
CLRB
0.P
BCS

sAND COMPLEMENT

N
FANCY MANNER HERE
SAND RESULT WITH MASK
JRE-LOOP IF NO MATCH

R2,RO

JSR
MOV
JSR
MOV
JSR
MOV
0.WDS4: ST

ASL
INC
INC
ADD
cMp

057677

R2
0.ERR
0.MSK+2,R2

MOV

cce

020004
000735

sSET EFFECTIVE SEARCH

0.WDS

0.WDS4
R&,~(SP)

B8R

177400

MOV

JSR

SEQ 0186

:REGISTERS R2.,R4, AND RS ARE SAFE

JGET READY TO TYPE
TYPE ADDRESS
;
JSLASH TO RO
JTYPE IT
;GET CONTENTS

;TYPE CONTENTS

; RESTORE R4

s INCREMENT TO NEXT CELL AND
RETURN
:
;IS (X)=K?

;TYPE IF EQUAL

:(X) TO R3
J(X)+X
s (X)+X+2

JIS (X)+X+42=K?
JBRANCH IF EQUAL
;WIPE OUT EXTRANEOUS BITS
SEXTEND SIGN
¢sMULTIPLY BY TWO
;ADD TWO

:ADD P(
;IS THE RESULT A PROPER REL. BRANCH?

:DISALLOW PROCEED
sCHECK LOW ORDER BIT
-ERROR IF ODD NUMBER
sRESTORE WORD

T MM

CLR

TST
.ERR1: BEQ
MOV

PAGE 187

(Y2 aTalnalash
Bl s Bna e Baslns e Bl

055662

.WSCH:
.WDS:

INC

B8R

E 15

[ Y )

055660
055656

.EFF:

13:04

A AY2aYa)

TYPE ERROR ROUTINE

OO0

005201
000401

C4-JAN-82

30(1046)

MACY11

CZR6IFO UNIBUSS RK6 DR _PRT2
CZR6IF .P1T
06-JAN-82 12:46

0.7
#0.78T7,0.UST

:CLEAR BOTH
¢
T=BIT FLAGS

0.TRTC,a0.ADR1
(SP)+,R0
(SP)+,R1
(SP)+,R2
(SP)+,R3
(SP)+ R4
(SP)+ ,R5
(SP)+,SP
0.UST,~(SP)
0.UPC,=(SP)

;REPLACE WITH TRAP
+RESTORE
: RO
s
THRU

0.602:

0 RTIT:

MOV
RTT

SAVE INSTRUCTION

H
H
R5
; AND SP
:
AND STATUS
:
AND PC

s CHANGED TO RT] FOR 11/20 AND /05

' PROCESS P - PROCEED

ONLY ALLOWED AFTER A BREAKPOINT

056762
056766

057677
055666
000340

057036

0 .PROC:

057677

052737
000735

057346
000340
057676
000020

177776

0.PR1:

177776

0.C1:

055652

TSTB
BEQ
CLRB
TST
BEQ
MOV
MOVB
JSR
MOVB
INCB

BIS
BR

0.pP
0.ERR1
0.P
R2
0.PR1

R4,0.CT
#0.STM,ST
5 0.RSTT
#0.STM,ST
0.7

#0.T8T7,0.UST
0.602

sCHECK LEGALITY OF PROCEED
sNOT LEGAL
;CLEAR PROCEED FLAG
;WAS COUNT SPECIFIED?
:NO
¢YES, PUT AWAY COUNT
sFORCE HIGH PRIORITY

JRESTORE TTY
¢SET HIGH PRIORITY
;SET T-BIT FLAG

;SET T-BIT

: BREAKPOINT HANDLER
;A TRT BREAKPOINT CAUSES O.BRK TO BE ENTERED, WHICH SAVES
;
VARIOUS ODDS AND ENDS, FINDS OUT IF THE BREAKPOINT WAS LEGAL,
;
AND GIVES CONTROL TO THE COMMAND DECODER
057040

012637
012637
004037
105737
001311
013777
105737

055650

0.BRK:

0.BK1:

057676
055670
055654

176574

Nf\)d—bddg
NNOONSNO

110537

177776

(SP)+,0.UPC
(SP)+,0.UST
0.0.SVR

;PRIORITY IS 7 UPON ENTRY
:SAVE STATUS AND P(
:SAVE VARIOUS REGISTERS

BNE

0.718IT

;JUMP IF SET

BPL
MOVB

0.8K2
0.UST.R5

TST8

MOV
1ST8

055652

055654

MOV
MoV
JSR

0.8K2:

0.8kK3:

B8R
MOVB
cCC
RORB
RORB
RORB
RORB

mMovB

0.7

0.UIN,30.ADR1
0.PR]

0.8k3
0.PRI,RS
RS
RS
RS
RS

R5,ST

OM
XIXXXITXTITIXITIXT

sRESTORE TELETYPE

sSET HIGH PRIORITY

5.0.RSTT

80.ADRT,0.UIN

055652
055650

056760

;SET UP NEW P(C

#0.STM,ST

0.78IT:

R4,0.UPC

bt
bt et e T Y XY TIXIXIIITXFTIITCTIITSIT

MoV

SEQ 0187

sCHECK FOR T-BIT SET

;REMOVE BREAKPOINTS
sCHECK IF PRIORITY

; IS AS SAME AS USER PGM
sPICK UP USER UST If SO

:AND DON'T COMPUTE THE PRIORITY
;OTHERWISE PICK UP ACTUAL PRIORITY

:CLEAR CARRY
sSHIFT LOW ORDER BITS
;
INTO
H
HIGH ORDER
:
POSITION

sPUT THE STATUS AWAY WHERE 1T BELONGS

055650
000340
057346
057676
000020
176742
057740

F 15
PAGE 188

Ix S

TYPE ERRCR ROUTINE

13:04

Ju Px S

010437

04~JAN-82

056666
056672
056700
056704
056710

MACY11 30(1046)

e Px

CZR6IFO UNIBUSS RK6 DR _PRTZ2
CZR6IF P11
04=~JAN-82 12:46

N = OO0

LEERL
PNONON)
— = BRRXRER

9610

9623

000137

sCLEAR OQUT ANY POSSIBLE FAKE T-BIT
: AND CONTINUE

055666

DEC

86T

MOV

INCB

JSR
MOV
JSR

0.83:

056162

MOV

JSR

CLR
JMP

¢JUMP IF REPEAT
RESET COUNT TO 1
sALLOW PROCEED
sSAVE TELETYPE STATUS, R4 IS SAFE

:GET ADDRESS OF BREAK

s TYPE ADDRESS
o

057677
057314
000102
057556
055664
057414

;OUTPUT 'BE'' FOR BAD ENTRY

(=]

000001

0.82:

sERROR, NOTHING FOUND

JSR

MOV
BIC

055652

5,0.CRLF

;FROM THE USER'S PC

sCOMPARE WITH LIST
sJUMP IF FOUND
sSAVE TELETYPE STATUS

s CLEAR CAD
;G0 TO DECODER

: SAVE REGISTERS RO-R6 IN INTERNAL STACK
057256
057262
057266
057272
057274
057276
057300
057302
057304
057310
057312

012637
010637
012706
010546
010446
010346
010246
010146
013746
005746
000200

057674
055646
055646

0.SVR:

MOV
MOV
MOV
mMov
MOV

MOV
MOV
MOV
MOV
TST
RTS

057674

(SP)+,0.XXX
SP,0.USP

#0.USP,SP

R5,=(SP)
R4,=(SP)
R3,-(SP)
R2,=(SP)
R1,-(SP)
0.XXX,=(SP)
-(SP)
RO

sPICK REGISTER FROM STACK AND SAVE

+SAVE USER STACK ADDRESS

:SET _TO INTERNAL STACK
*SAVE
; REGISTERS

: THRUS

*PUT SAVED REGISTER ON STACK

* SAVE TELETYPE STATUS
057314
057322
057330
057334
057340
057344

177560
177564
177560
177564
057650

057¢00
057701

0.SVTT: MOVB
MOVB

CLRB
CLRB

JSR

RTS

0.RCSR,0.CSR1
0.TCSR,0.CSR2
0.RCSR
0.TCSR

S.0.CRLF

sSAVE R (/SR
+SAVE T C/SR
sCLEAR ENABLE AND MAINTENANCE
BITS IN BOTH C/SR
;_

sTYPE <(CR,LF>

: RESTORE TELETYPE STATUS

057346
057352
057356
057360
057366
057370

004537

057650
177564

032737
001403

004000

105737
100375
105737

177560

0.RSTT:
177560

JSR

5,0.CRLF

TSTB

0.TCSR

BIT

#4000,0.RCSR

TSTB

0.RCSR

BPL

BEQ

0.RSET

;<CR,LF> BEFORE RESTORING
;WAIT READY ON PRINTER
;CHECK BUSY FLAG ON READER
:SKIP READY LOOP IF NOT BUSY
JWAIT READY

MmN~

1
MOV
MoV

R5,0.ADR1
0.82
5.,0.8VTT

057314
057650

;GET PC, IT POINTS TO THE TRT
¢ SUBTRACT TWO

SEQ 0188

TR RXRTRETRERRERTREERRERRERRERRR®

(MP
BEQ
JSR
JSR

G 15
PAGE 189

OOOMOPFPPZPRRERERRETRTRTRTRTRTRETRERTRTRERERTRERERTRERTRERERERR
R R R R

MOV
TST
MOV

055666

13:04

04-JAN-82

TYPE ERROR ROUTINE

055650

000020

057252

30(1046)

OoOVDVIOWNRWNOROOO

OO
O SN0

b
b
b

IV IV N

MACY11

055650
0 55664

d ed aad
D ed
b

013705

[« AVUV T ¥

NNNNNNNNY

CZR6IFO UNIBUSS RKé DR PRT?
CZR6IF.PN
04-JAN-82 12:46

|
057700
057701

057737
000060

30(1046)

775 6 0
775 6 4

0. RSE1:

TYPE ERROR ROUTINE

MoV

;

ADD
MOVB
ASR
ASR
ASR

asP,R2
R2,-(R&4)
RO
RO
RO

*CONVERT TO ASCII
*STORE IN BUFFER
JSHIFT THIS MESS
;s RIGHT
s
THREE WHOLE PLACES

BHI

0.SPC

004537
000772

105737

g?g

[
LI FAL

#0.BUF
+6 R4

#197770.R2

;

R4 ,#0.BUF +1
#177776,R0

(SP)+,RO
RO,-(R4)
#0.BUF +6 ,R3
5,0.TYPE

égP)*,RZ

;BUFFER START ADDRESS
GET
;CONSTANT ASCII O

OCTAL CHARACTER

:DONE?

;GET LAST BIT

s CONVERT TO ASCII
;AND PUT IT AWAY
;LWA
;TYPE WHOLE STRING OF CHARACTERS

sRESTORE R?2

GENERAL CHARACTER INPUT ROUTINE
CHARACTER INPUT GOES TO RO
.GET:

TSTB
8PL
Movs

JSR
BIC

177600

BEQ
CMPB
8EQ
CMPB
ggg

00004C
000073

0.RCSR
.~b
0.RDB,RO

5,0.FTYP
#177600,R0
0.GET
#40,R0
0.GET
#'..RO
gsGET

cWAIT FOR
;
__INPUT FROM KEYBOARD

;GET A CHARACTER
cECHO CHARACTER

sSTRIP OFF PARITY FROM CHARACTER
s IGNORE NULLS

sCHECK FOR SPACES

s IGNORE NULLS
sCHECK FOR SEMI-COLON
s IGNORE THEM IF FOUND

GENERAL CHARACTER OUTPUT ROUTINE
ADDRESS OF FIRST BYTE IN R4,
ADDRESS OF LAST BYTE IN R3, (R3)>(R4)

.TYPE:

057556

177564

BIC

ADD
MOvB
MOV
JSR

000205

112400

TRAILING SPACE

#'0,-(SP)
RO,R2

177562
057556

020304
103426

THE STATUS REGISTERS

MOV

BIC

P )

057556

122700
001763
122700
001760

;SAVE R2

CMp

QOoeve v,

057542
057544
057546
057550
057554

004537
042700
001766

ON READER

R2,=(SP)

057737
057542

177560

RS SR2,0.TCSR

;

;RESTORE

.CADV: MOV
.SPC:

[
LI
T I

057540

105737
100375
113700

2?!8

.~4

0 CS 1,0.RCSR

SEQ 0189

TYPE QUT CONTENTS OF WORD OR BYTE WITH ONE

177776

057500
057504
057506
057512
057516
057522
057524
057530

MOvVB

H 15
PAGE 190

13:04

WORD IS IN RO

057732

012602
000205

BPL

MOV

177770

057474
057476

C64-JAN-82

CMP
BLO
MOvB
JSR
BR

TYPE ONLY ONE

LFTYP:

TSTB

R3,R4
0.TYP1
(R4)+,R0
5,0.FTYP
0.TYPE
CHARACTER

0.TCSR

sCHECK FOR COMPLETION
: EXIT WHEN DONE
;GET A CHARACTER
;TYPE ONE CHARACTER
;LOOP UNTIL DONE
(CONTAINED IN RO)

sCHECK STATUS

alolelolalelalelelalelolololelolelololololololololololololololololalololololalslslalolololelslololelelolelolele BN e Y

100375

MACY11

[« L I I

CZRGIFO UNIBUSS RK6 DR PRTZ
CZROIF .P11
04~JAN-82 1¢2:46

000044
177564
177566

‘-‘
R0,0.7D8
RO, 345

sWAIT UNTIL READY

;TYPE ONE

NO
YES

BPL
CLR8B
DECB
BGT
TST

;POP STACK

Osevevene
O

;GET LOW ORDER BIT
:JUMP IF ALREADY CLOSED

ASL
TST
BEQ
MOV

¢IF NO NUMBER WAS TYPED THERE IS

JMP

sPOP EXTRA CELL FROM STACK
sAND SCREAM BLOODY MURDER

:NO CHANGE TO THE OPEN CELL

:STORE WORD

RTS
TST

0.CRLF - TYFE <CR,LF>
0.CRLS - TYPE <CR,LF>*

.CRLS:
.CRS:

MOV
BR
MOV
MOV
JSR
RTS

#0.CR+1,R3

5.0.TYPE

s TYPE

.BYTE

: TEMPORARY STORAGE
s
T=-BIT FLAG
PROCEED FLAG = Q0 IF PROCEED NOT ALLOWED
1 IF PROCEED ALLOWED
:SAVE CELL - R C/SR

.BYTE

0
0
0

.CSR1:
.CSR2:

.BYTE
.BYTE

0
0

:SAVE CELL - T C/SR
m

.BYTE
.BYTE
.BYTE

«aOO

.LGCH:

.EVEN
.WORD

SOMETHING

.WORD

.CR:

%SA <CR,LF>*

.¥XX:

.8D:

JLWA <(CR,LF>

0.CRS
#0.CR+2,R3
#0.CR,R4

row

.CRLF:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

W —

000
000

057706
057704
057542

INIT THE COUNT

sGENFRATE NULL FILLER

oD & aOD =
=0Owm—=
w
~N

057700
057701

057705

CHARACTER

IS CHAR TO BE FILLED?

TSTB

000000
000
000

056146

<CR>
<LF>
*

/
gARRIAGE RETURN

<LF>

SEQ 0190

CLOSE WORD OR BYTE AND EXIT,
UPON ENTERING, RZ2 HAS NUMERIC FLAG, R4 HAS CONTENTS

.CLS1:
TC:

Ovssveven.

012703

057674
057676
057677

057707
057710
057711
057712
057713
057714

I 15

PAGE 191

.TCLS: ASR
BCS

006205
103405
006305
005702
001401
010415
000207
005746
000137

057666
057672

057704
057705
057706

BPL
MOvB
CMPB
BNE
MOVB

13:04

.TYP1: RTS

000402
012703
012704
004537
000205

057702

.TYP2:

OO0

057650
057654
£57656
057662

177566
000045

057624
057626
057630
057632
057634
057636
057640
057642
057644

100375

04=JAN-8?2

TYPE ERROR ROUTINE

O-- O

057562
057564
057570
057574
057576
057602
057606
057610
057614
057616
057620
057622

30(1046)

o-.

9704
9705
9706
9707

MACY11

VTVOUUVUULUV VOV VOO0O0O00O0O000O000000000000000000000000000D0000000D

CZRGIFO UNIBUSS RK6 DR PRT?
CZR6IF .P11
04-JAN-82 12:46

CZIR6IFO UNIBUSS RK6 DR PRTZ2
CZRSIF P11
04~JAN-82 12:46

057731
057737
057740

[=4 OQOw-dedd
(=] O=MNIN)
o OWVOoOWw

057723
057724
057725
057726
057727
057730

102
000006

057737

.BYTE
.BYTE
.BYTE
.BYTE
0.CLGT

6.TL:

0.L6

.BYTE
.BYTE
.BYTE
BYTE

BYTE

"EVEN

0.TRTC:

J 15
PAGE 192

13:04

‘W

0
E

'P
:
.~0.LGCH

;00

sNOT

'M
0
0
'B
-0.TL

;

SEQ 0191

0.BUF:

040

000003

04-JAN-82

TYPE ERROR ROUTINE

136

[=]
(=]
[=]
O detmd =2NOON —
sorunwy ~

057715
057716
057717
057720
057721
057722

MACY11 3((1046)

; CHANGE
: THE

;ORDER
JHERE

;TABLE LENGTH

3
4
5
6

;6 CHAR. BUFFER WITH

;TRAILING BLANK

TRT

:TRACE

TRAP PROTOTYPE

:THE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL
;USER RO
R1
17

Senen

OCOONOOOOOOOOOI

OO0000

0.0DT=40

;USER SP
sUSER PC
;USER ST
:0DT PRIORITY
sMASK
sLOW LIMIT
;HIGH LIMIT

BREAK POINT LISTS, ADR1
UIN = CONTENTS
L]

000000
000000
000000
000001

.USP:
LUPC:
LUST:
.PRI:
.MSK:

055664
055666
055670

0.URO:

OO
s s,

055662

[

055632
055634
055636

055632
000000
000000
000000
000000
000000
000000
000000
000000
000000
000007
000000
000000
000000

= ADDRESS OF BREAKPOINT,CT = COUNT,

SEQ 0192

19534

NSNS SN
OO0 ~NOWN

b
b
b
b
b

OO0 OO0

—d

b ad b
D

K 15
PAGE 194

CROSS REFERENCE TABLE == USER SYMBOLS

g‘O‘O‘O‘O‘OW\OMO\O

SN
—=O
0N
0

13:04

064-JAN-82

AVECT1
000000
AVECT?= 000000
007340
BADHDR

b ek o
b

APASS =
APRIOR=
APTCSU=
APTENV=
APTSI2=
APTSPO=
ASWREG=
ATESTN=
ATTN
AUNIT
AUSWR

£
®

AMTYP1=
AMTYP?2=
AMTYP3=
=
AMTYPL

AMSGAD=
AMSGLG=
AMSGTY=

b ad amd ek

b ek e

b red e

d e

OO N0 OO0 O N0 00O OO OO OO OO0
OWUWNINOOOWNWNINIWWNWNO
OO
WOV —O NOSH 2O NOON—=O
VOTM

00
00
B0

ADEVCT
ADEVM
AENV

ADDW15
ADDW?2
ADDW3
ADDW4
ADDWS
ADDW6
ADDW?7
ADDW8
ADDW9S

ADDW1
ADDW1
ADDW1
ADDW1
ADDW1

b b d d d B\

1774640
000000
000000
ACLO
000010
ACPUOP= 000000
ACT11
007470
ADDWO
000000
ADDW1
000000
ABASE
ACDW1
ACDW2

MACY11 30(1046)

OG0 G0 00 00 00 0O — 00N GO 00

CZROIFO UNIBUSS RK6 DR _PRTZ2
CZR6IF .P11
06-JAN-82 12:46

7288

7440

74824

74834

6218

6244

4033x

4164r

4431e

6621

5721«

5936+

5939+

6951

CZIR6IFO UNIBUSS RK6 DR_PRTZ2
CZROIF .PN
04-JAN-82 12:46

MACY11

BADTMO 036626
BAI
= 000020

70054
g;;z

BA16
BA17
BITO
81700
BITO1
BIT02
BIT03
81704
BITOS
BIT06
BIT07
BITO8
BIT09
BIT1
BIT10
BIT11
BIT12
BIT13
BIT14

BIT15
BIT2
BIT3
BIT4
BITS
BIT6
BIT7

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

=
=
=
=

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

12004
12014
11434
11334
11324
11314
1:304
11294
11284
11274
11264
11254
112644
11424
11234

L 15

30(1046)
13:04
PAGE 195
04~JAN-82
CROSS REFERENCE TABLE -~ USER SYMBOLS
4324

4462

4532

4934

4994

1229

1248

2121

3432

6896

1239
1240
1241
1242
1243

1271
1257
1273
1258
1259

1285
1272
1287
1274
1275

11224
11214
11204
;}gg#

1197
1143
1142
1141
1140
1139
138
1137
1136
1135
1134
1230
1202
1203
1204
1205
1206

7177
7185
2122
1220
1221
1222
1223
1224

SEQ 0193
5281

5357

5482

5655

1299
1286
1301
1288
1289

1326
1313
1328
1315
1316

7230
1327

7192

1329
1330

7237
1340

5723

5883

6694

1322
1323

3422

4692

4736

7253

6709

=
=
=
=
=
=
=

100000
000004
000010
000020
000040
000100
000200

11184
116414
11404
11394
11384
11374
Z;gg#

1207
1231
1213
1214
1215
1198
lggg

1208
1250
1232
1233
1234
1215
;gz;

1225
2123
1251
1252
1253
1235
1236

1244

1260

1276

1265
1266
1254
1255

1293
1280
1267
1268

1320
1294
1281
1282

1307
1295
1296

1321
1308
1309

BIT8 =
BIT9 =
BPTVEC=
BSE
=
BSERR
BSE20H
BSE20S
BSE22H
BSE22S
BYP
BYPCER
CALADD
CALDIF
CCLR
=

000400
001000
000074
000200
001512
002336
004336
003336
005336
033064
001516
001362
001354
100000

11354
11344
11504
12364
20374
20464
2048%
20474
20494
3510
20394
19804
19774
12084

1200
1201

1218
1219

1237
1238

1256
1270

1269
1284

1283
1298

1297
13N

1310
1325

1324

4078
3942+«
3963
3972
3883
3954
3538
3419«
4147+
5781+
3848

4185
3947+«
6703
6707
3944
6696
3542
3668+
4434
8967
3863

4249
4024
6808
6812
3981
6801
3557
6386
L604x
8991
4088

4475
5958+

4946
5960+

5291

5492

6692

6797

3616

3643

3647

3651

3655

62714

5892+

6665

6671

6673

6727

4195

4485

4706

4716

6450

6955

5176

6570

5191

5267

19754
12024
12074
4541
5768
12044
206404

6442

4956

001350
= 002000
= 100000

6434

3525
3487
4614
£801
4440
6281+

3626
3600
4758
5846
4443
6364

3707
3894
4815
5902
4466
6367

4051
4943
6388
4507

4075
5002
6483
4535

4157
5288

4182
5365

4247
5489

4333
5542

4446
5674

4472
5746

4538

4570

6794

4657

4678

4273

4290

6352

4371

4405

4497

4524

4560

5040

5079

5100

ccyL
DT
CERR

CFMT = 010000
CHKFLG 001520
CHKMSG 033100

5301

3906

4587

5259

56417

4100

5313

5432

4119

5332

5592

4207

4727

5384

5607

3709
3999
4878
5926
4469
6371
4226

4779

5403

6426

4842

5507

4968

5526

4987

5561

5021

5580

5108

5686

5815

5860

5238

62814

cyL
CYLADD

= 000200
= 004000

001422
001360

CYLDIF

001356

cyL?
DATAO
DATAOT

001436
001474
001476

DATAT

001500

DATCMD
DCK
0CLO
DCPAR
DDISP
DDPCH
DDT
DDUMP
DF1
DF10

032320
=
=
=
=

100000
000020
020000
177570
007466
= 000400
007464
054726
055056

DF 14
DF15
DF17

055076
055116
055136

DF20
DF21

055162
055206

DF22

055242

DF2

DF23
DF3
DF&
DF5
DF6
DH1

0564742

055276
054746
054772
055006
055032
052041

10594
12034

20014
19794
6565
19784
6507+
6555+
20084
20284
20294

gggg‘

6164
7252
4708

6169
81494
5110

63864
5193

5269

5634

5609

6972

6857+
7351
8226
8301
8379
8561

6859+
7361
8232
8307
8385
8566

8161
8238
8315
8393

8165
8245
8325
8399

8167
8250
8330
8406

8171
8258
8337
8411

8181
8263
8341
8414

8190
8270
8343
8420

8197
8279
8347
8438

8205
8284
8351
8446

8210
8289
8359
8521

8215
8295
8363
8548

5475
4685
6566%
4689*
6508+

4859
6567«
4695
6509«

5821
6569
4733«
6511+

5866

6541%

6542+

6543«

6544+

6545+

6546%

6564+

6557

5344
6568+
4700
6510«
6559+

4739
6512

4744
6514~

4785«
6532+

4791
6533+

4796
6551+

4863
6552+

5341
6553«

6506+
6554+

6174

4308

4384

5280

5356

5370

4312

4313

4325

4338

4461

4531

454¢

4933

4993

5007

5118

4048
4999
4256

4072
5123

4154
5285

4179
5362

4244
5486

4330
5539

4388
5743

4441
5793

467
>838

453¢
5899

4611
61294

4813

2438
2262
2508
2824

2478
2272
2563
2874

2483
2288
2568
2944

2523
2308
2573
2979

90434
2313
2578
3015

2348
2593
90944

2388
3075
3155

2393
3080
3160

2521

2842

68564
60044

7305
6392

6556
5473

4173
5654
gggz
3

7361

8578

8598

3891
4940
12640
12524
12054
10654
21304
12564
21294
2171
2217
2358
2618
2844
2528
2954

1873
3305«

3223
3495

3700

3271+
2177
2222
2363
2€23
91034
2809
295y

6004
2183
2227
2398
2648

2189
2232
2428
2698

2200
2237
2433
2713

2206
2247
2473
2799

2212
2257
2503
2819

2814
2969

2834
2974

2839
9122#

2949

91134

2378
2267
2403
%}02

91324
2277
2408
g}gg’

2282
2413
3110

2293
2418
3115

2298
2423
3120

2303
2653
3125

2318
2658
3130

2323
2663
3135

2328
2668
3140

2333
2919
3145

2383
2924
3150

2343

2368

2373

2498

2513

2518

2553

2558

2583

2588

9158#

90534

2169

2252
90644
2603
2548
2175

90714
3010

90824

2204

2210

2351

2436

2476

2481

2338

91734
2242
2353
2598
2543

90504

2608
2869
2181

2187

2198

CRLF
CT0

6149
7162
11854
68674
68454
3340
3258
12384
19844
10584
8220
8297
8371
8555

ITOMNMNMNMOODERM NI OO MND

6153
7226
3865

033640
104407
000005
036172
036076
036136
031724
001000
001366
000015

SEQ 0194

RC—IOOTTMOMODEBERT R

CKCERR
CKSWR =
CLEAR =
CLKOF
CLKON
CLOCK
CLRFLG
COE
=
COUNT
CR
=

n15

30(1046)
04=-JAN-82
13:04
PAGE 196
CROSS REFERENCE TABLE == USER SYMBOLS

R~ TITOTMOMMD

MACY11

—TONMNMOMNMDE R

CZR6IFO UNIBUSS RKk6 DR _PRT?
CZROIF .P11
04~JAN-82 12:46

DH10
DH11
DH13
DH14
DH17

052326
052355
052372
052456
052542

87574
2471

MACY11

9055
2817

N 15
30(1046)
04-JAN-82
13:04
PAGE 197
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0195

9075
2822

9084
87904

9096

9115

9126

9134

9145

9160

9175

2591

2917

2922

3138

3143

88154

9066

9077

9088

9098

9107

9117

9128

9138

9153

9168

3098
2341
2867
2280
2361

2103
2551
2872
2291
2381

3128
3073
3008
23N
2386

3133
3078
88414
2401
2426

88324
88374
2942
2501

2947
2526

88454
2541

2546

88494

9079

9090

9100

9109

9119

9130

9140

9155

9170

3118

3123

3158

3163

8858#

2301

2406

2411

2506

88674

2666

89234

4751
5919

4871
61184

052566
052056

87944
2952
2957
2366
2286
gqgg#

9057
87974
88064
23N
2561
9045

2396
88194
9059

DH20
DH21
DH22
DH24
DH2S
DH26
DH27
DH28
DH29
DH3

052611
052644
052672
052724
052751
052774
053024
053055
053065
052126

2566
2270
2346
2306
2376
2225
2215
88544
88564
gqggl

88234
2571
2556
231
2616
2230
2220
9147
9151
9047

88284
2696
2326
2621
2250
2265
9162
9166
9061

2711
233
2646
2255
2275
9177
9181
9068

DH30
DH31
DH32
DH39
DH40
DH41
DH42
DH43
DH&4
DH47
DH49
DH51

052075
053127
053154
053206
053241
053275
053322
053373
053444
053523
053573
053650

2581
88634
2235
2832
88774
3013
2967
2972
2977
2496
89154
2356

2797
9149
2240
2837
9105
88824
88864
88934
89004
89084
9073
2586

2807
9164
2260
3108

2812
9179
2296
3113

2651

2656

2661

DH53
DH54
DH56
DHS7
DH6
DH8
DH9
DI
=
DISPLA
DISPRE
DLT
=
DLY
DMD
=
DOCML

(53737
053765
054037
054063
052177
052232
052253
040000
001142
000174
100000
033046
000040
032262

2316
2431
89454
2511
87744
2336
2576
12064
18734
13524
12254
3483
12664
3808
5071
6416
21494
20314

2321
89374
9136
2516
9086
87794
87824

2416

2421

89334

3223«
3231
4826
3596

3231«

7207x

7229«

N
5665

62624

6265

3851
5111
6941
3339«
5481

3866
5179
6958
3348+
5534

3992
5194
6973
5642
5547

4444
5230

4470
5270

4508
5420

4539
5435

4571
5595

4649
5610

6709
5761

3532

3633

3427+
3321

3434+
3429

351
3469

3467«
3582

3499«
5042

3518

3620«

3687

5956

6059+

DH19
DH2

DHS5?2

053703

DOTIM
007522
DPAT1
001502
DPAT2
001504
DRA
= 000001
DRDY
= 000200
DRIVS
007474
DRIVO
007476

2245

20324
12484

12554
21334
21384

89284

3148

3153

88724

9124

89494

FRCreITOTYMNMOMNDERMRCCr—ITOMYTMONDEZR

CZR6IFO UNIBUSS RK6 DR _PRTZ2
CZR6IF.PN
064-~JAN-82 12:46

CZRGIFO UNIBUSS RK6 DR _PRT?
CZROIF P11
04~JAN-82 12:46

MACY11

8 16

30(1046)
04-JAN-82
13:04
PAGE 198
CROSS REFERENCE TABLE -~ USER SYMBOLS

SEQ 0196

ORIV
DRIVZ
DRIV3
DRIV4
DRIVS
DRIV6
DRIVZ?

007500
007502
007504
007506
007510
007512
007514

21394
21404
21414
2 N
21634
2144
21454

DRVMSK=
DRVPTR
DSC
=
DSWR
=
DTE
=

000007
001342
040000
177570
010000

12124
19714
12594
10644
12414

3490
3321+«

3603
3692

1872

3222

054124

2170

2176

2182

2188

2199

2205

2211

2216

2221

2226

2402

2407

2412

26417

2422

2652

2657

2662

2667

2918

2372

2497

2512

2517

2552

2557

2582

2587

90174

2868
89754

89674

4094
4654
5307
4094
4654
5307

4113
4672
5326
4113
4672
5326

4201
4724
5378
6201
4724
5378

4220
4773
5397
4220
4773
5397

4267
4836
5501
4267
4836
5501

4284
4962
5520
4284
4962
5520

4346
4981
5555
6346
4981
5555

4365
5015
5574
4365
5015
5574

4399
5034
5680
4399
5034
5680

44N
5076
5809
4491
5076
5809

4518
5094
5854
4518
5094
5854

4094
4654
5307
4092
4652

4113
4672
5326
6111
4670

4201
4724
5378
4199
4722

4220
4773
5397
6218
44

4267
4836
5501
4265
4834

4284
4962
5520
4282
4960

6346
4981
5555
4344
4979

4365
5015
5574
4363
5013

4399
5034
5680
4397
5032

44N
5076
5809
4489
5074

6518
5094
5854
4516
5092

5092

5251

DROT
= 000040
DRPAR = 000010

DTYE

= 000040

DT13

054462

12534
12324

12340

2256
2437
2597
2833
2266
g?zz

DT14
DT15
DT3
DT4
DTé

054542
054632
054164
054170
054236

2342
9028#
2337
2542
2241

DT8
DT9
D.ACLO=
D.BRHM=

054350
054416
000100
000100

3009
2377
13084
12954
4554
5235
1297#
4554
5235
12834
12964
4554
5235
1280#
4552

D17

054302

D.CART= 000400
0.DDT = 000400
0.DOOR= 000200
D.DRA = 000040

D.DRDY= 000200
0.DROT= 020000
D.DSC = 040000
D.FLT = 000200

D.FORM=
D.FWD =
D.HDFL=
D.HDHM=

001000
002000
000200
000040

2843

5233
1282¢
4552
5324
13154
12894
13094
12844
12994
13234
12944

3523

2261
2472
2602
2838
2276
368?’
2367

89664
2547
2251
89834
89914
89994
3900
4581
5253
3900
4581
5253
3731
3900
4581
5253
3898
4579

3624

2271
2477
2607
2873
2281
3109

5251
3898
4579
5376
5797
4670

5305
4092
4670
9395
5842
477

4510

4573

6621

3710+

2287
2482
2617
2943
2292
3114

5324
411
4722
5499

2307
2502
2622
2948
2297
3119

5376
4199
4771
5518

2312
2507
2647
2953
2302
3124

5395
4218
4834
5553

2347
2522
2697
2958
2317
3129

5499
6265
4969
5572

2352
2527
2712
2968
2322
3134

5518
4282
4979
5678

2357
25
2798
2973
2327

3139

5553
4344
5013
5807

2231

2236

2246

2362
2567
2808
7978
¢332

2397
2572
2813
3014
2382

2427
2577
2818
89594
2387

2432
2592
2823

3144

3149

3154

3159

5572
4363
5032
5852

2923

5678
4397
5092

3074

5807
4489
5251

2392

3079

5852
4516
5305

CZR6IFO UNIBUSS kké DR _PRT?
CZROIF.P11
04~JAN-82 12:46

4771

4855

5074

5092

5233

5251

5233

5425
NON—
RN —
SO —

5233

13144
1298#
4554
5235
12934
4554

4516
5092
5852

5235

4518
5094
5854
4518
5094
5854

13304
13264
13034
13164
12814

5032

5678

3239+

2570

2575

2916
3077
2660
2665

2590

3122

2565

3207«

—

2209
2214
2941
2310
2335
2350
2951
2315
2264
2320
2168
2274

4397

SV
P
NN

4489
5074
5807
13214
13224
13134
12864
13254
12744
12354
11534
6068
2203
2540
2580

WNNIN

047272
047314
047352
047461
047524
047545
047566
046405
047607

4765

b
d ok

EM13
EM14
EM15
EM16
EM17
EM18
EM19
EM2
EM20

047170
047234

4722

ANON
NN

EM1]
EM12

000040
000100
004000
004000
001000
020000
000100
N00030
046331
047105
051752
052007

4718

D.WCUR=
D.WGAT=
D.WLE =
D.WRL =
D.XERR=
ECCW =
ECH
=
EMTVEC=
EM
EM10
EMI00
EM101

040000
002000
040000
040000
000100

13074
13104
13294
13014
13244
13284
12854
13114
12884
13274
13004
13024
13204
13124
12874
4552

Sea 0197

~nN

D.SUNS=
D.TIB =
D.UNLD=
D.UNS =
D.vv
=

CROSS REFERENCE TABLE =-- USER SYMBOLS

—

D.SSP = 000020

€ 16
PAGE 199

0.SPLS= 010000
D.SPOK= 001000

13:04

(NO
2 (NON =
RN=RIN=—
RWONRIN

000040
000400
020000
010000
000400
010000
002000
001000
020000
004000
004000
020000
000020
002000
010000

04-JAN-82

VY N NVY
Y SRV ¥N

D.IDAE=
D.ILF =
D.LIMD=
D.LOAD=
D.MHD =
D.NMOvV=
D.OFF =
D.PAR =
D.PIP =
D.PLO =
D.REV =
D.RTZ =
D.SECT=
D.SKI =
D.SPIN=

MACY11 30(1046)

2615

2695

2796

2831

CZR6IFO UNIBUSS RK6é DR PRT2
CZROIF.P11
04~JAN-82 12:4

MACY11

EM21
EM22

2229
85484

047630
047652

EM23
EM24
EM25
EM26
EM27
EM3
EM36
EM39

047757
050057
050112
050164
050243
046475
050362
050425

EM4LO

050474

EMé

2219
2475
2480
2285
2360
2625
2435
7009
2545
2365

2259

2269

2811

85614
85734
85784
85854
85934
84384
2866
2510

3007
2645

86074
2816

86134

2515

2821

86204

046550

84464

050532
046624
050600
046645
050633
050654
050676
046666
050727
050750
050775
046755
051016
051055
051121
051173
051230
051321
051364
051422
047031
051463
051544

2340
2174
2710
2180
2806
2841
2976
2186
2595
3012
2600
84704
2239
2244
2249
2254
2596
2345
2550
2430
2197
2375
2495

86254
2605
86324
84574
86374
86404
86434
84604
86484
86514
86554

EM96
051634
EM97
051665
ERRVEC= 000004

2520
2525
11464
3392«
19904
21104
4552%
5233«
6285+
21124

87304
87354
3220
7168

EM4T
EMS
EMS5
EM6
EM63
EM65
EMS9
EM7
EM73
EM74
EM79
EM8
EM80
EM81
EM82
EM83
EMB4
EM85
EMB6
EM88
EM9
EM93
EM94

EM9S5

051600

ESEC
E.A0

001400
007444

E.A1

007450

E.A2

007454

E.A3
£.80

007460
007446

2500

4554

5235+
6286
21144
4556*
gggg'
21164
21114
4553%

D 16
30(7046)
O04~JAN-82
13:04
PAGE 200
CROSS REFERENCE TABLE -- USER SYMBOLS

86584
86644
86714
86794
2601
2355
2555
87054
84784
87114
87204

2505

SEQ 0198

2836

287

2946

85454

84544

2606
86944
2585

86844
87004

87254
3221
7169«

3232+
7171«

3241+
7174+

3242+

3255+«

3256+

3324+

3328+

3335+«

3373«

3391s

4092+
4652+
5305+
6293
4094+

4111+
4670%
5324+
6295+«
4113x

4199+
4722+
5376+
6324
4201+

4L218Bx
4771+
5395+
9007
4220%

4265+
4B34x
5499%
9017
4267%

4282+
4960+
5518«
9028
4284x

4344%
4979+
5553«

4363*
5013«
5572+

4397+
5032+
5678+

4LB9v
5074+
5807+

4516
5092+
5852+

4346%

4365+

4399

4491t

4518

6297
3902«
4583%
5399+

5307«
6299+
4096*
4674
5503«

5326
6344
4115+
4775+
5522+«

5378+«
9007
4203+
4LB3Br
5557+«

5377«
9017
4222%
4964r
5576%

5501«
9028
4269%
4983+
5682+

5520%

5555«

5574x

568G+

5809+

5854+

4286%
5017+
5811«

434Bx
S036%
5856+

4367+
5096%
6287+«

4401
5255+
6301

4493+
5309«
6303+

4520+
5328«
9017

(288«
3899+
4580*

4093+
4653%

4112+
4671%

4200%
4723+

4219+
4772+

4266+
4835+

42B3%
4961«

4345+
4980%

4364v
5014+

4398
5033+

4470
5075+

4517+
5093«

3898+
4579
5251%
6289+
3900+
4581
5253+

4654r

L672%

4724

4773+

4B36%

4962+

4981+

5015+«

5034+

5076%

5094+

€.81

007452

£.B2

007456
007462
015470

032672
032766
035126
035250
035530
035202
000020
001470
031220
001466
001344
032356
0324264

GINT

032212

5325«

9007
41146
4673%
5327«
9007
4116
4776
5523«

5573+

5679+

5808+

5853+

4347+
4982+«
5556«

4366+
5016+
5575+

4400+

4492+

5077+«
5870+

4519+«
5095+
5855+

4368+
5097+«

4402

4494

4521+

4777«
55264%
6289
5604
4875

4840
5559«

4349+
5037+«
5857«
4350+
5038+
5858«

62154
5088

62424

5895
6708

66514
67204

6663
6981

6668

L4117~

4606

4205+

5035+
5681+

6317

5256+
6315+
4403+
5257«
6319«

6147

6478

6313

4369«
S098+

5310«

9017
4495+

5311
9028

8991
3589

5894«

6661

6690

3598

5669

6121

8143

8144

8153

4050
5183

4074
5287

4717
567
6540

6452

64604

8963
8972
3481

8972
8980
3487

6132

61444

6225

(033756
034206
104406
007372
007362
007354

007356

007364

4047«
4640%
4648+
5110

6229

4051
4443
4708+
5122+

5489
5792«
6388
6972«
3534
6177«

5538+
5801
6392
8960
3546
6397

8963

8972

033722

omon\:nmowvv

thwnkn

OOV —0000O

= 000001

HDA

5554+

HCS2

5500+

9017
4202+
4725+
5379«
9017
4204+
4839+
5558«

'\’“"f"""

GSTAT1
GSTAT2
GTSWR =
HASOF
HBA
HCS1

5377+

SEQ 0199

5329+
9028
4522+
5330+

035036
001340
032164
032024

GNS

GSTAT

E 16
30(1046)
13:06
PAGE 201
04-JAN-82
CROSS REFERENCE TABLE == USER SYMBOLS

OO
S
OWVON—~

FSEC23
FTITLE
GBA
GDRVS

MACY11

VIWVWASS
&

€E.DDT

FATT1
FATT2
FHOHM
FHDTAB
FLGTST
FLOAD
FMTE
=
FMTI
FORM
FORMAT
FRCYL
FRDY
FRDY1

£.83

srownes~nonanessroonun

CZR6IFO UNIBUSS RK6 DR PRTZ
CZR6OIF. P11
04-JAN-82 1

3890+

4247
6541
4943

5742+
6119
6524
9034
9011

CZR6IFO UNIBUSS RK6 DR _PRTZ2
CZROIF .P11
04~JAN-82 12:46

MACY11

F 16
30(1046)
04-JAN-82
13:04
PAGE 202
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0200

HDB
HDC
HDS
HOTAB
HOWD
HD1
HEAD
HEADA
HER

007376
007374
007366
001522
001510
001464
001460
001462
007370

20834
20824
20794
20424
20354
20234
20214
20224
20804

6184+
3532
4035
8983
6655+
4148+
6584
3523

6829
3633
4041

8963
6181«
4044

8972
8960
4143

8980
8969
4428

8988
8977
4599

8996
8985
5728

6656
4435+
6585+
3624

6657
4605+
6586+
4078

6658+
5893+
6587+
4185

6659+
6655

6660+
6732

6667

HMR 1
HMR2

007400
007402

20844
20854

6185+
3489

8960
3602

8969
3763

9001

8977
3798

4249
9011

4256
9022

HMR3

007404

20864

5797

5842

6163+

6186
8993

6168+

6431
9001

6439
9011

HOLD
032512
HPAT
007410
HPEND
007342
HPOS
007406
HT
= 000011
HVRC
= 000400
HW(
007360
HZ
001364
H.A0
007424
H.Al
007430
H.A2
007434
H.A3
007440
H.80
007426
H.81
007432
H.82
007436
H.B3
007442

6148
20884
20564
20874
10564
12374
20764
19824
20994
21014
21034
21054
21004
21024
21044
21064

6152
6189+
3318+
6188+
7303

61764
8963
5933
8963
7361

6425
8972
5935+
8972

9001

9011

8980
6953+
8980

6178+
6859
6324
6344
6439+
6431«
6334

8963

8972

6454
6447«
6551

6354
6440%
6432«

6455«
6448+
6564
6574

70494
3204*

3205+

IDAE
=
IE
=
ILF_
=
INTER
I0TVEC=
IR
=
LC
LCLKF
LCVEC
LF
=

LIMERR
LKS
MASK

MASKT
MCLK
=
MC1
MpS
=
MEMBAS=
MEMERR

MEMPAR

002000
000100
000001
036756
000020
000100
015460
007516
001330
000012

001514
001326
015464

015466
000400
015462
001000
172100
036714

013072

8969

5425
8960

8969

12394
11984
12294
6110
11514
12164
3723«
21478
19614
10574
8229

8297
8371
8555
20384
19594
3726
3727«
12694
3725«
12194
19654
3247

32414

8977
5600
8969
8977

3730
3326+
3327
73555
8226
8301
8379
8561

8985

6162
8977

8985

9004
8993
5735

9014
9001
5738

9025
9011
5888

9037
9022
6653

9034

4475
9034

4946

5291

5492

6182+«

8960

9001
4510

6506

9034
4765

6621

6638

6963

6440

6454
9034

9022
4718

6432

6447
9022

9011
4573
6448

6455

6494

6541

8960

8988

8996

9004

9014

9025

9037

8988

8996

9004

9014

9025

9037

8980

8988

8996

9004

9014

9025

9037

9007
9007
9020

9020
9020
9031

9031
9031

9007
9007
902C
6584

9020
9020
9031
9031

9031
9031

8165
8245

8167
8250

8171
8258

8181
8263

8190
8270

8197
8279

8205
8284

8210
8289

8215
8295

6542

6552

6565

8993

6167+
8985
8993

37374

3888

7361
8232
8307
8385
8566

8161
8238

3325
3733+
3734«

6848+
37394

6869+
6512

3732«
3528
3244
70354

37384
3629
3253

756
6401

3740

8315
8393
8578

6507

8325
8399
8598
6557
6533
_
5877

8985
3811

6187+

8330
8406

5912

8993
3856

9022

8337
8411

9034

8341
8414

8343
8420

8347
8438

8351
8446

4855

8359
8521

5184

8363
8548

CZR6IFO UNIBUSS RK6 DR PRTZ
CZROIF.P1T
04=JAN-82 12:4
MEMVEC= 000114

MERD
=
MESMSK=
MEWD
=
MIND
=

001000
000017
002000
000200

19640

3247+

81614
3466
83014
83074
83254
83374
3711
83434
83474
82384
4054
5027
B3SoN
82584
83794
82634
83854
82704
8279
8284N
83994
84064
84114
84144
82894
82954

12704
12644
12714
12684

MSG1
MSG10
MSG11
MSG12
MSG13
MSG14
M5615
MSG16
MSG17
MSG2
MSG26

043542
045105
045132
045172
045337
045435
045460
045472
(45516
044403
045546

MSG27
MSG3_

045624
044562

6018
3626
7082
5206
3349
6271
3548
3760
3980
3272
4027
4974
3689
3288

046012
044614
046054
044661
044742
044776
046167
046235
046272
046314
045033
045072
000100
035714
040000
037100
037136
037172
037202
037234
037246
000007
007000
000003
100000
000760
077770
010000
004000
015172
000004
001456

5134
3290
1026
3292
7054
3307
6932
6934
6985
6990
5047
5051
12674
6752
13400
70974
71084
7113
7119
7132
7106
13344
13420
13394
13434
13414
13354
1222#
12214
3560
12314
20184

MSG37
MSG38

MSG39
MSG4
MSG40
MSGS
MSGE
MSG7
MSG74
MSG7S
MSG76
MSGZ7
MSG8
MSG9
MSP_
=
MULT6
M.ALGN=
M.DPID
M.DP40
M.DP41
M.DP42
M.DP44
M.DPSO
M.DRV =
M_HEAD=
M.ID
=
M.PAR =
M_SECT=
M.SER =
NED
=
NEM
=
NUDRV
NXF
=
OFFERR

045654
045732

OFFSET= 000015
OFST = 000004
0PI
= 020000

MACY11

5158
5171

11894
12504
12420

G 16

30(1046)
06-JAN-82
13:04
PAGE 203
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 020"

3248+

82974

83414

4106
5319

4160
5390

4213
5513

4253
5567

3635

3638

6397

5132
5229

5148

5156

4358
5749

4449
5905

5165

5169

83634
83714

67784
7130
71210
71254
71334
71434
6585
6898
6495

6575

3534
-

3546

36684

5959

5059+
4648

5130+
5070

4503
B354

4566

4617

4818

4830

CZR6IFO UN IBUSS RK6 DR _PRTZ

CZROIF .P11

OR
= 000200
0.ADR1
055664
0.BACK
056410
0.80
057702
0.BKPT
056116
0.Bk1
057050
0.Bk2
057104
0.Bk3
057122
0.BRK
057040
0.BUF
057731
0.82
057204
0.83
057244
0.CADV 057414
0.CLGL
056232
0.CLGT= 000014
0.CLS1
057640
0.CR
057704
0.CRET 056344
0.CRLF
057650
0.CRLS
057656
0.CRS
057662
0.CSR1
057700
0.CSR2 057701
0.CT
055666
0.C1
057016
0.0CD
056162
0.0CD1
056166
O.EFF
056472
O0.EFF1
056610
0.ENTR 055676
0.ERR
056146
0.ERR1
056502
0.ERR2 056322
0.FTYP 057556
0.GET
057500
0.G0
056654
0.602
056732
0.LG_
= 000006
0.LGCH 057707
0.LGDR 056262
0.LGL = 000030
0..6L1
056234
0.LGL2 056254
0.MSK
055656
0.0DT
055672
0.0FST 056420
0.0F1
056466

0.0P1
0.0P2
0.0RPC
0.P
0.PRI
0.PROC
0.PR1
0.RALL
0.RCSR=

056356
056364
056070
057677
055654
056762
057004
056136
177560

04~JAN-82 12:46

12174
9318+
9413
9599
93644
9312
9582
9584
9329
9657
9596
9604
9430
9387
9401
9724
9733
9408
9445
9382
9734
9633+
9634
9562
95654
9370
93834
9416
9493
93094
9356
94854
94274
9381
9335
9410
95434
9339
9398
9405
94194
93984
9399
9486
1360
9414
9473

9411
9360
93524
9327«
9319
9418
9561
9330
92974

MACY11

30(1046)

9369+
9454n
9600
9417
95774
95854
95914
95754
9666
96054
96134
9447
9389
97664
97264
9735
94374
9502
97354
97364
9649
9650
9605+
9606
9372
9431
94814
95124

9371+

9367
9558
9461
9449
9385
95324
9568
97744
97544
94074

9403
94044
9487
93074
94604
94754
94434
94454
9412
9532+
9581
95574
95634
9365
9633

04-JAN-82

13:04

H 16
PAGE 204

CROSS REFERENCE TABLE -=- USER SYMBOLS

9541

SEQ 0202

9542+

9580+

9595

9612

9504

9508

9613

96564

9642

97334

97484

9671

97764

9470
93974

9474

9736

97504

9598

9637

97444
97454
9607+

98044

93824
9475

9439

9490

9615

93794

9402

9427

9485

9728

9534
9464
96794

950¢
9684

9611
9686

9682
9688

9698

9766
9419

9489
9785

979+&

9456
9557
9585

9559+
97954

9608+

97424

93714
9635«

9645

9647

9649+

9679

97034

98034

CZR6IFO UN 1BUSS RK6 DR_PRT?
CZROIF.P11
04=JAN-82 12:46

MACY11 30(1046)

0.RDB = 177562
0.REGT
056020
0.RSEV
057376
0.RSP
056030
0.RST
055734
0.RSTT 057346
0.RST1
055764
O.RTIT
056760
0.SCAN 056172
0.SP
056062
0.SPC
057426
0.SPT
056050

9296#
93354
9646
93374
9308
9538
9316
9325¢
9346
9338
9654
93434

9681
9409
96494
9340
93174
9564
93244
95524
93854
93474
9667
9348

0.STRT
0.SVR_
0.SVIT
0.7
O.TBIT

9307
9317
9597
9539«
95398

9314H
9577
9609
9566+
9579

0.STM = 000340

0.78T =
0.TC
0-TCLS
0.TCSR=
0.TDB =
0.TL
0-TRTC
0.TVEC=

055722
057256
057314
057676
056704

000020
057642
057624
177564
177566
057723
057740
000014

92864

92874
9721
9352
92904
9298#
9336
9371
9285#

9328

9540
97274
9437
9634
9705+
9330
9542
9310

(057542
057622
057602
055670
055650
055632
055646

9601
9696
9709
9318
9317+
9314
9315+

9672
9707
9710
9541+
9536«
9344
9620¢

0.WDS3
0.WDS4
0-WRD
0.WRDA
0.WRD1
0.WSCH
0.XXX
0.45

056546
056604
056312
056336
056320
056476
057674
055776

9500#
9500
9407
9424
94264
9415
9619«
9325

9513
95104
94234
94324
9433
94834
9627
93974

PACK
=
PARAM
PARSRT
PAT
=
PCA
=
PCD
=
PCLKE

055652
056500
056516

000003
001336
012546
000020
004000
010000
007520

PCVEC
001332
PCYL
001352
PFSRT
015472
PGE
= 002000
PIP
= 020000

9309+
9482
94894

11840
19684
1357
12654
12720
12734
214BH

1962¢
19764
37634
12204
1258#

13:04

11§
PAGE 205

CROSS REFERENCE TABLE -- USER SYMBOLS

0.TYPE
0.TYPT
0.TYP2
0.UIN
0.UPC
0.URD
0.USP
0.UST
0.WDS_
0.WDS2

04-JAN-82

9540+
94844
9511

96424
9396

9537

9563

96194
96334
9578

97414

9567

9603

9443
9636+
9711w
9347
97814
9328*
96954
97154
9713
9580
9551
97864
9621
9550

9454
9643

9720#
9650t

9768%

9774

9329«
9699

9737

980SH
9575+
97924
9567x

9519

9703

9709

9502

9594+

97934

9576%

9583

9603+

9450
97404
3173«

3285

3330«

3337+

6846

7084

9565

9528

3807
3170«
31708

3331

SE@ 0203

3338

6867

9794

CZR6IFO UNIBUSS RK6 DR PRTZ
CZR6IF.P11
04-JAN-82 12:4
PIRQ
=
PIRQVE=
PKRB
PKS
PKSB
PPTP
PRGSRT
PRO"
=
PR1
=
PR2
=

PR3
PRG
PRS

177772
000240
001324
001320
001322
007472
012562
000000
000040
000100

10634
11574
19584
19564
19574
21328
3171
10804
10814
10824

= 000200
= 000240

10844
10854

= 000140

PR6
=
PR7
=
PS
=
PSEC
PSW
=
PWRVEC=
QKCYLD
RCYLA
RCYLD
RDCHR =
RDCYLA
RDCYLD
RDDATA=
RDGATE=
RDHEAD=
ROLIN =
RDOCT =
RDSEC
RDTAB

10864
1087+
1060#
19894
10614
1152
65204
6369
6366
7768
65394
65040
11914
12764
11934
6037
6082
64924
20504

RECAL = 000013

1188#

= 000200

RESREG=
RESVEC=
RHEAD
RHTAB
RKASOF=
RKBA
=

RKCS1

104414
000010
035010
001726
000016
000004

= 000000

RKCS2 = 000010

RKDA

= 000006

RKDB
=
RKDC
=
RKDS
=
RKECPS=
RKECPT=

000024
000020
000012
000030
000032

3320
6850+

3276+
31744
3176

J 16

30(1046)
04-JAN-82
13:04 PAGE 206
CROSS REFERENCE TABLE == USER SYMBOLS

3336

6851+

6871+

6069
3239

3240

3368

3248

3392

7079

7080

3211+

7069+

7078+

7079+

6750

SEQ 0204

10834

000300
000340
177776
001376
177776
000024
034466
034714
034642
104410
034572
034402
000021
100000
000025
104411
104412
034332
006336

RDY

MACY11

11994

1955
3341
3242
1061

3210«
65648
65514
81504
3890

4812
7842

4243

6095
6595
4239

81514
81524
6599
4297

6602
4305

3850

5178

5419

5667

6144

6158

559

6957

6757
4690%
3937«

6759
4734*
3955+

6763
4786+
3964+

3504+

3848+

7902
11478
6374 "
20434
11700
11654

7956

B154

9254

6584n
4811
3382
3378

4849
4645«
3884+

11634

3375

3481+

4325«
5654+

5176%
6158

11674
4707+
5482+
6476%
1166#
4460
1172¢
11714
1168¢
1176
1177¢

43B4r
5738+

5191%
6176

3376
4B26
5535+
64B0x
3379
4533
3384
3383
3380
3388
3389

4428+
5788+
5267+
6426%

3460
4934+
5593«
6956+
3886+
4932«
4337
3888+
6781
6188
6189

6526

L481%
5833x
3301+
Bh34r

3474
49%=
5608+
6971*
3939«
4996+
4545
4806+

4S531v
5888+

6766
5064r
3973x

8999
5226%
4044*

6183
4067%

6218
4143¢

6244
4173%

4239¢

3863+

4088+

4195+

4485+

4706%

4716%

4956¢

6130«

6144

3587+
5119+

3597s
5177%

3849v
5192«

3864+
5268+

4175+
5281+

4324
5357«

4462¢
S418+

4532+
5433w

4238+
6180
5369
5890s

4314r

4327+

4386+

5546
5915+

6184

4599+
6179

5417+
6442+

5432«
6650%

5655«
]

5789%

3478+
5109+

3957«
5086+
4821
5480«

3966r
5121«
4822
5533«

4933
5592«
B4bor

4993«
5607+
6524

5118+

5660%
6526

5834x

6177

6414

3975+
5279+
4823
5740«

4066%
5359«
5006
5758+

4172+
5657%
5129
5787+

5280%

5667
6955+

6427%

5356+

6119«
6970+

6435%

S54B1+

6443+

4312+

5534e
5108+

6451w

SAVREG=
SBPAR
SCLR_
=
SCOP1 =

104413
036214
000040

SCOP1$
SEC
SECFLG
SECNT
SECTOR

036266
001370
035430
001374
001402

OO
OO

»
%

0o \00o0
NONNON

oooNonn

NO
=

SEQ 0205

5423+
6521+

6224+

6252+

4176%
5483+

4385+
5739«

4530+
5889+

4593

5826

4190«
4951«
6498+

4238
4996

4386

6756+

6574~
6768

4570

6460

6636+

6318

104415

= 100000
001140

9537«
3417
4233
5779

7609
OO
x
»

031672
012556
013200
177774
036320
013250
013314
013346
013372
034252

5918
4507

OO
WN -

STAPT
START
START1
STKLMT=
STOP
ST2
ST3
ST4
ST5
SUBCLR

4171
4931%
6496+
6751+

Vil

000017
000001
032244
007524
000002
035606
055606
000011
002132
177776
001100

4318

=
SEEK
SELDRV=
SETINT
SIZFLG
SKI
=
SORT
SPACE2
SRTSPL=
SRTTAB
ST
=
STACK =

SVAL
SWR

K 16
PAGE 207

= 000010
034752
= 000006

NONIWN - VESSWNWNWN
O
coHCoH

RLS
RSEC
RTT

13:04

wneHoe

19544

6182
3761«
6444

04=JAN-82

CRO3S REFERENCE TABLE =-- USER SYMBOLS

RKMRZ = 000034
RKMR3 = 000036
RKPRI
001316
RKVEC
001314
RKWC
= 000002

11654

11734
6428+
11744
11754
19554

= 000014
= 000026

30(1046)

RKER
RKMR1

MACY11
S5 N NOMNNOM
NN
O NN =2 (NN
N
N~ — =3 00 00 (N OD OO
VNN
= ~NOROANN —

CZR6IFO UNIBUSS RK6 DR _PRT?2
CZROIF.PN
06-JAN-82 12:46

4172
4932

6497
6755

4538

9565+

3580

4379
5954

3753
4594
7081

5279
6577+
6780+

3842
5219

CZR6IFO UNIBUSS RK6 DR _PRT2
CZROIF.P11
04-JAN-82 12:46
SWREG
Sw0
=
Sw00 =
Sw01
=
SW02
=
Sw03 =
w04
=
SWw05 =
sSwoé =
Sw07 =
Sw08 =
sw09 =
SW1
=
W10 =
SW11
=
sWwi2
=
SWw13 =
SW14
=
swi15
=
Sw2
=
sw3
=
sw4
=
SWS
=
swé
=
SWw?
=
Sw8
=
SW9
=

000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000

TBITVE= 000014
TEMP1
007412

TEMF2

007414

TEMP3
TEMP4
TEMPS

007416
007420
(07422

TERRT
0365036
TIMUP
001372
TITLE
031744
TKVEC = 000060
ToCYL
001346

TPVEC =
TRAPPC
TRAPVE=
TRT
=
TRTVEC=

TRUERR
TSTATN
TST1
TST10

000064
001334
000034
000003
000014

035736
032640
013562
016730

13534
11154
11054
11064
11034
11024
11014
11004
10994
10984
10974
10964
11144
10954
10944
10934
10924
10914
10904
11134
11124
11114
11104
11064
11084
11074
11064

11484
20914

3604
6160%
6305+«
6463
6674+
20924
6672«

2093¢
20944
20954

5693

6798
19874
3268
11554
19744

5755«
8967
11564
19664
11544

9288#
11494

4080
3868
3342
3943

L 16
MACY11 30(1046)
04~JAN-82
13:04
PAGE 208
CROSS REFERENCE TABLE -- USER SYMBOLS
3230

SEQ 0206

6024

7612

7651

7674

6330

6340

6350

6360

6908

7015

7039

3461+
3995«
6216

3475+
4665%
6220%

3490+
5246%
6291

3491
5662«
6293+

6319
6606%

3878+

3484+
4874+
6262
6313+
6528+
8983
3917
6944

3489+
5087+
6264

3859+

3482+
4754+
6246%
6311
6525+
6898+
3916+
6676

3953+«

3962+

3950«
3955
3956+

3951
3963«
3957

1115
1114
1113
1112
1111
1110
1109
1108
1107
1106

9256
7007
7020

6307
6477«
6675
6673
3879+
3883+
3885«

5695+

6309+
6520
6890+
6675+
3919
3884
3886

5723«

6802
6845+«
3306
7584%
4145+

6809
6856
60154
7585+
4147

7036+
3208+
9781

4187
47N
33644
3979

5756
8991

3924
3937
3938+«

5754+

3929
3954«
3939

5883+

6315
6534r

6966+

5910«

6317«
6594r

3588«
5764r
6295

6321«
6618+

3595+«
5922«
6297+

6413
6673r

3597«
6120*
6299
6418+
6635+

3602+
6131v
6301+
6424
6640

3603«
6146%
6303
6457+
6671

3971«

5187+

+28%

5603+

6222+«

6625+

3960
3964
3965«

3969
3972«
3966

3973
3974

3975

5646

5657

5722+«
5890

5730
5892

5733
5911«

5740
5912

6813
6R62¢

68274

6832

6839

4430%
5781

4434
5787

4601+
5821

4604
5876

4805+
5877

4849
5882+«

8966
3209+

3240+

7080+

4477
5113

4948
5196

5293
5272

5494
5437

67924
5612

61974

6975

5775«
8999

40204

CZROGIFO UNIBUSS RKé DR PRTZ
CZREZF P
04=~JAN-82 12:4

TST11

(17432

(21202
022424
023722
025466
027002
027762
013744
030262

“21n
LO364
4900
5166
564674
56384
3393
9644

1ST4

015202

3614

36814

1ST6

015620

3756

3791»

014600

TSTS

015472

1S17

015714

TYPDS = 106405
TYPE
= 104401

TYPERR
TYPOC =
TYPON =
TYPOS =
T.A2 =

055332
104402

SEQ 0207

41364

1ST12
TSTI3
IST164
TST15
IST16
TST17
TST?
1ST20

1ST13

MACY11 30(1046)
04-JAN-82
13:04
PAGE 209
CROSS REFERENCE TABLE == USER SYMBOLS

35784

3728

3799

4924H
52174

34154
5652
3735

37514

3812

38404

5975
3272

81454
3288

4503
5158
6271
7606
7795
9223
7239
7675

21214
4780

3760

5694

57184

3290

3292

3307

4566
5N
6932
7618
7796
9232
91984
81424

4617
5206
6934
7672
7798
9236

4818
5319
6985
7673
7801
9241

4830
5390
6990
7676
7805
9243

3505
4101
4843

3551
6120
4969

3980

3984

3985

3349

3426

3436

2466

3502

4026

4027

4054

4106

4160

4213

3715
4208
4988

5054
4227
5022

5137
4274
5041

6274
4291
5101

7012
4353
5260

4974
5513
7009
7687
7871
9249

5027
5567
7054
7697
7873
9252

5047
5749
7082
7708
8013

3548

3689

3711

5057
5973
7240
7775
9208

4253

5134
5976
7308
7781
9209

4358

4449

7057
4372
5314

81434
4498
5333

4561
5385

4679
5404

4728
5508

5051
5905
7232
7727
81414

5140
6018
7419
7786
9213

5141
6068
7545
7790
9214

9229

104404
104403

8144
3439

1.82

= 000002

4120
4969
5581

4208
4988
5816

4227
5022
5861

6364

4274
5041
6367

42N
5101

4353
5260

4372
5314

4498
5333

4561
5385

4679
5604

4728
5508

= 000004

4101
4843
5562
6371

586

1.83

2122
4780
5527
21234
19934
lgggl

zggl

3475

3484

3588

3597

3859

5187

5428

5603

6120

6463

6477

19974
19954
19964
19984
19994
1218¢

6944

5087
3595
3631

5246
3995

6594
4754

4874

5764

5922

6131

T
110

000001

001404
001406

1100
150
1500
15000
750000
UFE
=

001414
001410
001412
001416
001420
000400

UNLOAD=
UNS
=
UPE
=
VERIFY
v
=
WCE
=
WDCNT
wD1
wD2

000007
040000
020000
014600
000100
040000
001472
001452
001454

UNLD

007336

WLE
= 004000
WORD
001506
WRDATA= 000023

5527

20524

11864
12430
12234
3453
12544
12244
20264
20154
20164

12404
20344
1192#

5562

4665
3482
3530

5581

5816

3316

6928

6948+

3458

35624

4335
8983
4298+

439N

4543

5004

5126

5367

55644

4299+

4337+«
4338+

4545+
4546«

5006
5007+

5129+
5370+

5369+
5547+«

5546+
8975

8975

4071

4178

4466

4939

5284

5485

5658

5792

5837

000027
004000
000031
040000
001000

SASTAT=
SATYC
SATY1
SATY3
SATYSL
$AUTOB
$BASE
$BDADR
$BDDAT
$BELL
$COW1
$COW2
S$CHARC
$CKSWR
SCMTAG
$CM3 =
$CMé
=
SCNTLC
SCNTLG
SCNTLU
$CPUOP
S$CRLF

weeene
040542
040516
040526
040534
001134
001264
001122
001126
001200
00170
001272
040266
041522
001100
000000
000006
042432
042444
042437
001236
001205

$DBLK
$082D
$0820
$ODW0
$DOW1
$o0wW2
$ODW3
$DODW4
$OOWS
$oOwW6
$ODW7
SDECVL
SDEVCT
$DEWVM
S$DOAGN
$OTBL
$ENDAD
SENDCT
SENDMG
SENULL
$ENV
SENVM

040506
042754
042634
001274
001276
001300
001302
001304
001306
001310
001312
042134
001220
001266
031646
040476
031636
031604
031655
031652
001230
001231

$EOP

$EOPCT
$EOPT
SERFLG
SERMAX

031476

031576
031550
001103
001115

11944
12574
11954
12754
1382
7662
7433
74314

7293

7245
18694
19394
18644
18664
18904
19414
19424
7310«
76514
18524
18824
18824
7606
767¢
7697
19134
18924
7795
7385
7928#
3982
19434
19444
19454

19464
19474
19484
19494
19504
7930
19044
19404
5969
7388
1368
3212
5973
5976
19094
19104
4028
4975
3212«
3397
18554
18614

04=JAN-82

13:04

c 1
PAGE 210

CROSS REFERENCE TABLE == USER SYMBOLS

4047

6153

4440

4610

5742

5898

4329

4387

4535

4998

5122

5361

6028+
3311«

7822
6086+

6088+

7232

7618

7815

7353«

73584

3206

3212

3213

18854

18864

18874

3984
9208

3985
9213

3693

5955+

7242
7290
4161
5391
6986+
59624
7181

7288
7295
4214
5514

SEQ@ 0208

5538

13884
7477
74354

76324

7634m

3322+

514;

7240

7265

7309

7361

7708

4359
5750

4450
5906

4 504
5 9494

4567
9261

4618

4819

4831

721

7227«

7265

9258

5956

59844
7260

OO \NON NINLOMNOND
WA =2 N O NNV

WRHEAD=
WRL
=
WRTCHK=
WRTGAT=
$APTHD

MACY11 30(1046)

NNWIAWAN
S NN
- =2 O ON=
O

CIR6IFO UNIBUSS RK6 DR PRTZ 46
CZRO6IF.PV
04-JAN-82 12:4

6988
7183
7211

74664

MACY11 30(1046)

CZRG6IFO UNIBUSS RK6 DR PRYZ
CZROIF .P11
04~JAN-82 12:4
$ERROR
SERRP(

037536
001116

3206

D 1
PAGE 211

SEQ 0209

7236

7265

8959

8967

8975

8983

4H47%

4664

5069+
6376+

5086+
6380+

5228+
6987+

7035+

7038+

7671«

74794

7199«
7709
7265
7805

7210
7822
9199
7815

7876

7187«
6912

7203+
6915+

7208
7044

7210
7187

7204+

7210

7255

18994

3234

6022

7202

7242

7288

7473+

746774

3565
G130
5701

36724
4415

46234

7235+

8on

SETABL

13:064

CROSS REFERENCE TABLE == USER SYMBOLS

b b
JON =D =D
O AN O NN

SERRTB
SERTTL
S$ESCAP

04-JAN-82

63646

6356+

5245+

8991

5786+

8999

5881+

9007

5916«

9017

5952+«

7205+

7256

7258

37854
4905

3787
5207#

38174
5209

08#

SETEND

SFATAL

— N
00 £

SFFLG
SFILLC

SFILLS
$GDADR
$GDDAY

$GET42
$GTSWR
$HD
$HIBTS
SHIOCT
SICNT

$INTAG
$I1TEMB
$SLF
SLFLG
S$LPADR
SLPERR
SMADR1
$MADR?2

$MADR3

$MADRS
SMAIL
SMAMS1

1394

74651

$OCNT
$OCTVL

041206
0462736

7466

7470+

3402
41264
5622

35634
4128
56994

Nvu\mwsmooo»o
o

001154
000001

NN
= N OD = =2 —d =

7454+

w50

3674

37444

4625

3746

49034

E 1
MACYT1 30(1046)
04-JAN-82 13:04 PAGE 212
CROSS REFERENCE TABLE == USER SYMBOLS

CZRG6IFO UNIBUSS RK6 DR PRTZ
CZR6IF P11
04-JAN-82 12:4
SOMODE
SOVER

041210
037520

7512«
7166

7516%
7180
3234«

3755

$PWRCT
SPWRDON
SPWRUP
SQUES
SRDCHR
SRDDEC=

037076
037012
037024
001204
042064
teeees U

7075«
3210
7069
18914
77400
8153

7076+
7069%
7075#
7265
8150

7086#
7078

$PASS
$PASTM

SROLIN
SRDOCT
$RDSZ =
SRESRE
SRTNAD
SROA =
$SAVRE
$5820
$SCOPE
$SETUP=

001216
001006

042154
042474
000022
043414
031650
wweren |
043356
043150
037256
000137

$STUP = 177777

$SUPRS
SSVLAD
$SVPC =
$SWR =

043204
037464
000244
167400

$SWREG
$SWRMK=
STESTN
STIMES

001232
000000
001214
001174

$TKB
STKCNT
STKINT
STKQEN=
STKQIN
$TKAOU
$TKQSR
$TKS

001146
041212
041222
041221
041214
041216
041220
001144

1903
13920

7521
7188

7524
7198

7535%
72074

75614

5965t

5966+

5974

5987

7361

7727

7798

7815

7873

7876

3206
7260

3206
7610

3208
7615

3210
7616

3212
7646

3213
7822

7630
78374
77564
80984
59864
8155
8082¢
79884
3206
31674
7226

8151
8152

3781
7172
13664
1007#

3983
7201
1371
1022

80054

1422
715
g2

4637
7155
7204

4925
7156

19110
103
1902¢
1888#
4925+
1875#
75668
3180
75708
75678
75680
7569
18740

3237
1035
3684+
3213+
5218«
7334
7581%
75814
7641
7582+
7583+
7582
7332

31674

3213

SEQ 0210

3978

599

7196

7211

3214

3216

5963

815«
8153
71614
3203
7252

3214

1028

1029

1031

1032

1033

103

1888

6019

1889

7162

1890

3216

3217

3365

3416

3579

3682

3752

3792

3841

4021

4137

7157
7202«
3365«
5468+
7341
7616
7607

,
7158
8959
3416%
5639*
7381
7633x
7668

7179
8966
3579«
5719+
7565
7747

8967
3682«
5953
7586
7749+

8975
37522
5064s
7537

8983
3792+
7190+
7627

8991
3841r
7197
7655

8999
4021+
7200%
7682

9007
4137%
7210

9017
4422«

9728
4637+

7583
7750
7643
7339

7639%
7751
7754
7361

7640%
7752

7641
7754+

7643%

7565

7587+

7623+

7625

7631%

7653

7669+

7679

7691

3480

3501

3515«

7752

5218
7157
7210

5468
7163
7217

5639
7175

5719
7177
7219

5946
7178
7220

5964
7181
7221

5979
7182
7230

5985
7183
7237

5987
7190
7249

7153
719
7253

$TKSRV
STMP0
STMP1
STMP?
$TMP3
STMPG

041272
001160
001162
001164
001166
001170

STMPS
001172
$TN
= 000021

7586
18820
18834
18844
18854
18864
5471
18874
10084

3684
3943

7597#

3320+

5659
6322+«
1022
3685
3979

6118
6376
3342
3728
4010

6129
6380
3354
3735
40214

6461

6523

3525«

3593

3608

3611%

3626

3670v

3709+

3721

33654

3393

3400

34164

3563

35794

3614

3672

36824

3744,
4126

37524
41374

3756
4413

3785
&4422¢

37924
4623

3799
4637#

3812
4900

3817
4903

38414
49254

001010
001234
$SVECT]
001260
SVECTZ2 001262
S$XOFF = 000023
$XON
= 000021
$XTSTR 037270
$SGET4= 000000
SOF ILL
041207
$40CAT= 14244844
055672
SUNITM
SUSWR

001222

+SASTA= 22T
. $X
001000

SNDNE

041010
041024
040764

037736
040150
040270

SUNIT

WODNOONNN00

STYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS

N NN
—

STTYIN
$TYPBN=
$TYPDS
040272

O WLINNON VoW

$TRPAD
$TSTM
STSTNM

CON
=
2 = = )

$178
$TPFLG
$TPS
$TRAP
$TRAP2
=
$TRP

W
NON
OG0
oo

5166
7935

STNPWR

0000000000 I~~~
=2 e =2 = B (NN WO
SN
S8ONNO
OWVNIOWONOONN
»
Rl
X

F
1
MACYT1 30(1046)
04=JAN-82 13:04 PAGE 213
CROSS REFERENCE TABLE =-- USER SYMBOLS

CZR6IFO UNIBUSS RK6 DR_PRTZ2
CZROIF .P11
04~JAN-82 12:46

52184

79564

54684

SEQ@ 0211

5620

56394

5644

5652

5694

5699

57194

B144N

81464

8147

8148#

8149

81504

81514

8152#

5996+

7179
78144

7201«

7202

7207

7211

7229

7265

3849
6243

3864
6285

4707
6286

5109
6287

5177
6288

5445

7361
7361

81438
81564
5963+

7778

7796

8133
7326
73594

8141
73314

8144

3323«
5593
6451

3695+
5608
6480

7599

8153#

7525

75604

13564
20620
70711

13594
20438
7127

7815
9766

78224
9774

13674

20464

97774

721
79144
97854

13714
20484
7361
61
89584

5268
6427

CZRGIFO UNIBUSS RK6 DR PRT2
CZROIF P11
04~JAN-82 12:46
CALIB

CHECK

COMMEN

CwD2
DRCLR
ENDCOM
EOPGM
ERROR

ESCAPE
F.EAB

GETPRI
GETSWR
HDCHKS
HDTBL

LOOP
MSG

MULT
NEWTST
OFFDIR
OF SET

OWNTAG
POP
PUSH
OKSEEK
QKSRT

14854

3847

5174

6 1
MACY11 30(1046)
04=-JAN-82 13:04 PAGE 215
CRUSS REFERENCE TABLE == MACRO NAMES
5415

5590

6954

4841

4967

14394

3905

4099

6118

4206

5383

5402

5506

5525

5560

4656

4677
11584

14544
164678
14
18064
1052
3644
3876
3997
6122
4228
4294
4382

5338
3862
11584
5950
3396
3648
3892
4001
6123
4229
4295
4389

4992

5000

4726

4778

42235

4272

4289

4351

5579

5685

5814

5859

4986

5020

5039

SEQ 0212

4370

4406

4496

4523

4559

4586

3617
3870
3993
G2

5078

5099

5237

5258

5312

4705

5107

5190

5266

5431

5606

6969

3455
3652
3896
4031
6124
4230
4303
4393

3463
3656
3908
4049
6141
4231
4322
4407

3477
3758
3909
4053
4155
4236
4331
4408

3486
3796
3910
4063
4159
4245
4339
4409

35N
3805
3911
4073
4169
4251
4342
4410

3520
3809
3914
4086
4180
4258
4354
4426

3539
3813
3921
4090
4193
4261
4355
4442

3543
3845
3926
4102
6197
4275
4356
4445

3554
3852
3931
4103
4209
4276
4357
4448

3558
3858
3934
4104
421
4277
4373
4457

3590
3861
3946
4105
4211
4278
4374
4468

3599
3867
3988
4108
4212
4292
4375
447

5008

5011

5023

5024

5025

5026

5042

5043

5044

5045

5062

5072

5331

4215
4293
4376
4483

5081

5082
5198
5¢99
5371
5478
5563
5670
5799
5868
647$'

5083
5224
5303
5374
5487
5564
5672
5803
5886
??gg'

5084
5231
5315
5386
5497
5565
5676
5817
5900
6926

5089
5240
5316
5387
5509
5566
5688
5818
5904
6938

5102
5241
5317
5388
5510
5582
5689
5819
$920
6942

5103
5242
5318
5389
5511
5583
5690
5820
5924
6946

5104
5243
5321
5405
5512
5584
5691
5823
5928
6959

5105
5248
5334
5406
5515
5585
5726
5830
6394
6965

5112
5261
5335
5407
5528
5596
5744
5839
6399
6968

5115
5262
5336
5408
5529
5602
5748
5844
6403
6974

5124
5263
5337
54621
5530
5605
5762
5848
6417
6977

5180
5264
§343
54¢7
5531
5611
5766
5862
6430
7037

5186
5271
5346
5630
5540
5614
5770
5863
6438

5189
5274
5353
5636
5548
5648
5784
5864
6446

5195
5286
5363
5439
5551
5651
p)
5865
6453

14194
4669
5552
1w
14
15964
16094
14034
33544
gg;s’

3897
4769
5571
11584
11584
4809
4146
3470
3356
g;g?‘

409N
4833
5677

4110
4959
5805

4198
4978
5850

4217
5012

4263
5031

4281
5091

6343
5250

4362
5304

4395
5323

4488
5375

4514
5394

4551
5498

4577
5517

1w
14
5445
18254
17824

11584
1158¢

13964
14
14

16214
15134

5620
4690
4646
1953
11584
1158«

3990
6935

6019
4433

4603

3583
34004

5891

4128

3801
3402

L1384

4059
35634

4165
3565

4232
36724

4317
3674

4378
37448

4453
3746

4593
37854

5349
3787

5778
38174

5825
3819

40104

3354

3400

3563

3672

3744

3785

3817

4010

4126

4413

4623

4903

5207

7475
7437
5759

7865
7458

8061
7839

8103
8032

8083

5699
4734
5068

4786
5227

7414
7373
4749

7474
7435
4869

44615

66224

5917

4625

49034

4905

52074

5209

54454

5447

56204

5622

CIRGIFO UNIBUSS RKé DR PRT?
CZR6IF.PN
04=-JAN-82 12:46

SCOPE

SETPR]

SETTRA
SETUP
SKIP
SLASH
SPACE
STARS

10534
5638

81334
1w
)
5652
17
11584
4

3672

SWRSU
TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
WDATA
WRCHK
WRHDR
SSCMRE
SSCMTM
$SESCA
SSNEWT

17
81334
1w
1w
14
1w
1w
1w
1#
16484
17464
153404
18454
18454
1w
1w

$SSET
$SSETM
$$SKIP

81334
32344
1#
565¢
14
1
10
14
14
1007#
14
14
4
14
4
14
14
14

-EQUAT
+HEADE
KT11
.SETUP
. SWRHI
.SWRLO
.SACT
.SAPTB
.SAPTH
.SAPTY
.SASTA
.SCATC
SCMTA
.$082D
.$0820
.$01V
.$EOP
.$ERRO

5445

14
1
14
14

SEQ 0213

4242
4810
-

17004
15644
1

RDATA
RDHDR
REPORT

H 1
MACY11 30(1046)
04=-JAN-82 13:04 PAGE 216
CROSS REFERENCE TABLE == MACRO NAMES

3364

3415

5718
11584
8142
1158%
1158»
5694
11584

5951
7743
8143
3196
3342

1158%
3680

1364
3744

11564

32184

11584
11584
1158#
1158#
11584
1158
11584
4070
4328
4046

4421

5467

4903

5207

5166

5644

8153
3943

336
4126

5974

3437
7674

3503

5052

6177
4534
4152

4465
4997
4439

5484

5897

5135

6272

7010

7055

1882
11584
11584

1883

1884

1887

3354

3400

3744

3785

3817

4010

6126

4413

4623

8142

8143

8144

8149

8150

8151

8152

8153

8154

8155

1158¢
5694
10074
1007#

3342

3393

3735

3756

3799

3812

3943

3979

4900

1007#
10074
10354
10074
18954
10074
10074

3167
1023

10074
1007+
10074
1007

1345
1845
7915
7876

10074
10074

5941
721

5620

5217

5699

1048
1012

1362

1373
7428

b
e

d ad e

b e

d e

-SERRT

. ABS.

L222222222222
X 222 2 X S

CZIR6IFO UNIBUSS RK6 Dk _PRT2
CZROIF
.M
04~JAN-82 12:46

057742

ERRORS DETECTED:

10674

8018

1007#
1007#

7823
7562

10074
1007#

8065
7977

1007#

7147

10074
1007#

7995
8110

MACY11 30(1046)

04=-JAN-B82

1
I
PAGE 217

CROSS REFERENCE TABLE == MACRO NAMES

10074
10074
1007#

000
O

CZROIF ,CZROIF .LST/SOL/CRF/NL:TOC=SYSMAC.SML,CZR6IF
.P11

RUN-TIME: 21 25 2 SECONDS
RUN-TIME RATIO: 124/49=2.5
CORE USED:
¢ 3Kk
(86 PAGES)

13:04

SEQ 0214