Digital PDFs

AH-9122F-MC

April 1982

216 pages

Original

110MB

view download

OCR Version

148MB

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_gray.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

MACY11 30(1046)

04-JAN-82

13:04

8 1
PAGE 2

PONIND =D it b e

N=O VNV

b b e e

b b

WA= OV

NO VNN

CZIR6IFO UNIBUSS RK6 DR PRTZ
CZROIF.P1
04~JAN-82 12:46

.REM X
IDENTIFICATION

PRODUCT CODE:

AC=9120F
-MC

PRODUCT NAME
:

CZR6IFO UNIBUS RK6 DR PRT2

DATE:

JANUARY 1982

MAINTAINER:

STORAGE SYSTEMS SOF TWARE TEST APPLICATIONS

AUTHOR:

T. LEBLANC

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE 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.

SEQ 0001

MACY11 30(1046)

04=JAN-

82 13:04 SAG% 3

SEQ 0002

REVISION HISTORY
REVISION

FIXES

DATE

CZROIF

IMPLEMENTED XXDP LOAD MEDIA OPTION

JAN 82

[alal

CIR6IF *NlBUSS RK6 DR_PRT2
CZR6IF. P11
04~JAN-82 12:46

04~JAN-82

13:04

D 1
PAGE 4

TABLE OF CONTENTS
1.0

ABSTRACT

2.0

REQUIREMENTS

2.1
2.2

s
s
2

o)
.2

ACT/APT
APT ETABLE DEFINITIONS
DUAL ACCESS
MEMORY MANAGEMENT
PARITY CHECK
BAD SECTORS
EXECUTION TIME
FAULY ISOLATION

ERROR CORRECTION & FAILURE RATE ANALYSIS
DEFAULT UNIBUS ADDRESSES & VECTORS

PROGRAM LOADING
STARTING LOCATIONS
CONSOLE SWITCH REGISTERS
SOFTWARE SWITCH REGISTER
INPUT DIALOGUE

PROGRAM EXAMPLE
HALTING THE PROGRAM

DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION

5.1
5.2
6.0

—

—3

5.0

PD;-11 FAMILY COMPATIBILITY

OPERATING PROCEDURE & CONTROL FUNCTIONS

4.0

=\ 0NN W)
=

PROGRAM CONSIDERATIONS
NNN NN N NN NN NN

3.0

HARDWARE
PRELIMINARY TESTING & PROGRAMS

ENT- SEY N

MACY11 30(1046)

P NN
AN

CZR6IFO UNIBUSS RK6é DR PRTZ
CZROIF.P1
04-JAN-8212:4

GENERAL
TEST DESCRIPTIONS

ERROR REPURTING

6.1
6.2

ERROR INTERPRETATION
ERROR PRINTOUT £XAMPLE

SEQ 0003

=lelelelelele]

) D D

04=JAN-82 12:46

1.0

13:04

E 1
PAGE 5

SEQ 0004

ABSTRACT

DATA OPERATIONS IN BOTH

20 AND 22

SECTOR FORMATS.

AFTER A SUCCESSFUL RUN

(WITH NO ERRORS) OF PART 2, THE DRIVE

D e

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

IS READY FOR PART 3 OF THE DRIVE DIAGNOSTICS.

D D i e

NNV
S G aC a a
s

04-JAN-82

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

MACY11 30(1046)

D d

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

D D

THIS PROGRAM WILL TEST RK0O6 & RKO7 WITHOUT NEED OF
OPERATOR INTERVENTION.

d D d

txwtkCAUTION*txnn

2.0

REQUIREMENTS

2.1

HARDWARE
THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DISK DIAGNOSTIC:

WWWWWWWWNRIN
V0N

) D D

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

D D —d

VIS
SN S WO
N J\J\wg
VS WN=O00NOWNS

) —d ) —d D

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

) D e

D e

NOTES:

D e
D D
) D e

2.2

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.

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.

b e
—

lalisl

UNIBUSS RK6 DR_PRT2

3.0

PROGRAM CONSIDERATIONS

MACY11 30(1046)

3.1

S8 8RR

S LAY

04=JAN-82

13:04

F 1
PAGE 6

SEQ 0005

PDP=11 FAMILY COMPATIBILITY
THIS PROGRAM CAN B; USED BY THE PDP-11/04,05,10,20,

34,35,40,45,50, &

70.

IT 1S 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

IgigE:ROGRAH CAN BC CHAINED BY XXDP & WILL NOT OVERLAY THE
CHAIN MODE OPERATION (MONITOR)

RS 2 8 BRI R R RN 2B ISV

RN s ad e aleol Yo

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

2.
3.

THE INPUT DIALOGUE IS BYPASSED.

THE BUSS ADDRESS & CONTROLLER INTERRUPT VECTOR IS

DEFAULTED.

DRIVE O WILL NOT BE TESTED.

3%L7g§¥53 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 THAT APT HOOKS WILL BE IN THE

PROGRAM £ WILL WORK THRU THE "UPTON INTERFACE'.

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

I1.E. LOAD & DUMP MODE.

AUTOMATIC MODE

(MONITOR)

THE INPUT DIALOGUE IS BYPASSED.

THE BUSS ADDRESS & CONTROLLER INTERRUPT VECTOR IS

04-JAN-82

=000~V

SEQ 0006

DEFAULTED.

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

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

DUMP MODE (MANUAL):

3.3.1

6 1
PAGE 7

?E%TgSIVES IN THE 'DRIVE PRESENT' CONDITION WILL BE

NOTE:

S W

13:04

INPUT DIALOGUE IF STARTED FROM 220.

APT ETABLE DEFINITIONS
THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIRONMENTAL
TABLE (ETABLE) ENTRIES.
VIA RUNNING THE APT UTILITY PROGRAM ‘‘TSP'‘:

SOFTWARE ENVIRONMENT:
=1 IF APT SCRIPT MODE

=0 IF STANDALONE MODE

ENVIRONMENT MODE:BYTE
ETABLE DOES SIZING
BIT 7 = 1
= 0 PROGRAM DOES SIZING
BIT 6 = 1
SPOOL MESSAGES TO APT IF SCRIPT MODE
=0 DON'T SPOOL TO APT
BIT 5 = 6 SUPPRESS CONSOLE OUTPUT
BITS 4=0

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 HARDUARE 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 g?} ¥8R5PT 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

INTERRUPT VECTOR 1:

NOT USED

USED WHEN ENVIRONMENT MODE BIT 7=1.

DEFAULT = 210

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

DEFAULT =5

lalal

*‘fl

oo~

MACY11 30(1046)

noro NININININININNININ
N
NN PONOND
= b d b b o b-

b -3

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

0 UNIBUSS RK6 DR_PRT2
P11
04=JAN-82 12:46

MACY11 30(1046)

04-JAN-82

13:04

1
PAGE 8

SEQ 0007

INTERRUPT VECTOR 2:

NOT USED

10. BUS PRIORITY 2:
NOT USED

11. BASE ADDRESS:

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

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.

13. CONTROLLER DESCRIPTOR WORDS:
NOT USED

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

3.4

DUAL ACCESS
THIS PROGRAM WILL NOT TEST OR SUPPORT DUAL-ACCESS.

A DRIVE

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

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

3.5

MEMORY MANAGEMENT
MEMORY MANAGEMENT NOT USED

VJ%WWU‘WU‘WWWWW
ORI
_a_n_n_._a_n-n_n_n-ng
W=

OV NOWNSAWN=O O

3.6

PARITY CHECK ENABLED

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

3.7

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

INFORMATION CONTAINED ON CYLINDER 410, HEAD 2.

PRINTOUTS

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

3.8

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

TOTAL TIME: 1 MIN, 30 SEC

CZR6IFO UNIBUSS RK6 DR _PRT2
CZROIF.PI
04=JAN-82 12:46

MACY11 30(1046)

3.9

04-JAN-82

13:04

I 1
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.

3.1

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
RKO6 BUSS ADDRESS

1264

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

1320
1322
1324

P=CLOCK INTERRUPT VECTOR
TTY KB STATUS REG
TTY KB BUFFER
TTY PRINTER STATUS REG
TTY PRINTER BUFFER

1332
1144
1146
1150
1152

CONTROLLER INTERRUPT VECTOR
CONTROLLER PRIORITY

L=CLOCK STATUS REG
L=CLOCK INTERRUPT VECTOR

DEFAULT CONTENTS
177440

1314
1316

210
240

1326
1330

177546
100

4.0

OPERATING PROCEDURE & CONTROL FUNCTIONS

4.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.

4.1.1

LOAD THE STARTING ADDRESS (SEE SEC 4.2).

4.1.2

SET SWITCH REGISTERS AS DESIRED (SEE SEC 4.3).

4.1.3

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

—t

—

e O
v

PLE2LEELETRELES

lalal
NN
00

UNIBUSS RK6 DR_PRT2
04-JAN-82 12:46

MACY11 30(1046)

04-JAN-82
NOTE:

4.1.4

13:04

J 1
PAGE 10

SE@ 0009

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

PRESS 'START'
THE PROGRAM WILL IDENTIFY ITSELF AND WILL BEGIN A

?éetoggg 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:
A.

B.
C.
D.

HEADS MANUALLY LOADED

CORRECT PORT SELECTED
WRITE LOCK DISABLED
DRIVE READY INDICATOR ON

LOCATION 220 - STARTING ADDRESS TO INPUT TESTING PARAMETERS
VIA THE INPUT DIALOGUE.
BUSS ADDRESS &
gg?TiAggTERRUPT VECTOR INPUTTED ONLY ON

IMPORTANT:

FOR VARIATIONS OF THE ABOVE,

SEE XXDP, ACT/APT

CONSIDERATIONS IN SECTIONS 5.2 & 3.3.

ALSO, 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.

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

MACY11 30(1046)

436
437

438

1
PAGE 11

04=JAN-82

13:04

SWITCH

FUNCTION

SEQ 0010

.............

439
440

HALT ON ERROR

442
443

13
12

INHIBIT ERROR TYPEOUT
BYPASS DRIVE AFTER 20 ERRORS

10
9
8

BELL ON ERROR
LOOP ON ERRCR
LOOP ON TEST IN SW<07:00>

441

444

445
446
447
448
449
22?

4.3.1

452
453
2§§
456
22;

459
460
461
462
463
2g§

473
474
475
476
2;5

4.3.2

4.3.3

SW<1&>

SW<13®
THIS SWITCH INHIBITS ALL ERROR MESSAGES.
NORMALLY USED WHEN
LOOPING ON TEST (SW14) OR LCOPING ON ERROR (SW9).
WITH SWITCH <13> SET, SWITCH <15> SHOULD NOT BE SET.

4.3.4

SW<12>

THIS SWITCH BYPASSES A GIVEN DRIVE AFTER 20 ERRORS HAVE
BEEN DETECTED.
4.3.5

SW<1>
EACH TEST WILL BE EXECUTED ONLY ONCE.

480

FIRST PASS

481

NORMALLY AFYER THE

EACH SUBTEST IS ITERATED A NUMBER OF TIMES

(USUALLY 56 S IN SOME CASES).

zgg

SETTING THIS SWITCH INMIBITS

ITERATIONS, SO THAT QUICK PASSES CAN BE MADE.
4.3.6

zgg

489
490

SW<15

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

479

484
222

INHIBIT ITERATION

THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER TYPING OUT
THE ERROR MESSAGE AND PERTINENT INFORMATION.
PRESSING ‘‘CONTINUE'' CONTINUES NORMAL OPERATION OF THE PROGRAM.

466
L67
zgg
470
2;}

LOOP ON TEST

SW<10>
RINGS A BELL ON ERROR.

$.3.7

SW<O9>

USEFUL WHEN ERROR TYPEOUT IS INHIBITED.

492
493

04-JAN-82

13:04

L 1
PAGE 12

~N~a

MACY11 30(1046)

(ale)

CZR6IFO UNIBUSS RK6 DR PRT2
CLROIF.PN
04=JAN-82 12:46

SEQ 0011

THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP FOR

ERRORS.

IF THE PROGRAM DETECTS AN ERROR, IT WILL LOOP BACK

TO THE BEGINNING OF TEST.

4£.3.8

SW<08>
THIS SWITCH IS USED TO SELECT A PARTICULAR TEST (AS PER

SW<00-7>) FOR EXECUTION AND SUBSEQUENT LOOPING.
THUS IF
TEST 15 1S TO BE SELECTED THE SWITCH SETTING WOULD BE
000415,
IT SHOULD BE NOTED THAT BEFORE SELECTING & LOOPING TEST 15,
ALL THE PREVIOUS TESTS (1-14) WILL BE EXECUTED.
4.4

'SOFTWARE' 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

509

THE HARDWARE SWITCH REGISTER IS NOT PRESENT AND WILL USE

A 'SOFTWARE®' SWITCH REGISTER.
THE °"SOFTWARE' SWITCH
REGISTER IS LOCATED AT LOCATION 176 (8).
THE SETTINGS

OF THE °SOFTWARE®' SWITCHES ARE CONTROLLED THROUGH A

KEYBOARD ROUTINE WHICH IS CALLED BY TYPING A "CONTROL G°'.
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
FROM THE SWITCH ENTRY ROUTINE:

SWR = NNNNNN

NEVW =

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, THE
"SOF TWARE' 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.
INPUT DIALOGUE
THE DIALOGUE WILL BE DONE INTERACTIVELY.
THE PROGRAM WILL
REQUEST A PARAMETER BY CONSOLE TYPEOUT.
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.

FOR VARIATIONS OF

THE PROPER RESPONSE MAY

THE ABOVE

ses xxoP ACT/APT

CONSIDERATIONS IN SECTIONS $.2 & 3.4.

———

IMPORTANT:

‘*?°.

4.5

CZROIF.P11

gzg ;

04=JAN=-82 12:4

MACY11 30(1046)

4.5.1

DRIVE SELECTION

IS CARRIAGE RETURN TO TEST ALL DRIVES

THE OPERATOR CAN ALSO TYPE IN THE SPECIFIC DRIVE NUMBERS

TO BE TESTED, SEPARATED BY COMMAS & TERMINATED BY A CARRIAGE
RETURN.
E.G.

IMPORTANT:

564
4.5.2

569

DRIVES TO BE TESTED:

1,2,4,6

FOR VARIATIONS OF THE ABOVE

<ee xxop ACT/APT

CONSIDERATIONS IN SECTIONS 5.2 € 3.3.

BUS ADDRESS
THE REQUEST WILL BE:

571

TYPE IN BUSS ADDRESS IF NOT 177440

573

THE DEFAULT IS A CARRIAGE RETURN
4.5.3

578

CONTROLLER INTERRUPT VECTOR
THE REQUEST WILL BE:

580

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210

582

587

SEQ 0012

IN THE °"DRIVE PRESENT' CONDITION.

563

585

PAGE 13

THE DEFAULT RESPONSE

561

576

DRIVES TO BE TESTED:

558
559

567

13:04

THE REQUEST WILL BE:

ViV
vivionawnunauniuon
NO NS W
=

§50

04=JAN-82

THE DEFAULT IS A CARRIAGE RETURN.
4.5.4

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

ALL OPERATOR RESPONSES ARE UNDERLINED.

591

CZR6IFO UNIBUS RK6 DR PRT2

593

DRIVES TO BE TESTED: 1,3<(R>

ggg

TYPE IN BUSS ADDRESS IF NOT 177440 <CR>

599

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR>

602

gILL TEST DRIVES:

lalal
~N~

CZR6IFO UNIBUSS RK6 DR PRTZ

04=JAN-82 12:46

04=JAN-82

1
PAGE 14

13:04

SEQ 0013

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

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

DEFAULT ADDRESS (200) & WITH 2 DRIVES ON THE LINE.
CZR6IFO UNIBUS RK6 DR PRT2
WILL

TEST DRIVES:

DRIVE 0
DRIVE SERIAL NO. AAA
CARTRIDGE SERIAL NO. BBB

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 1S DETERMINED BY ACT/APT/XXDP

IMPORTANT:
4.7

FOR VARIATIONS OF

THE ABOVE

sec xxDP ACT/APT

CONSIDERATIONS IN SECTIONS 5.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;

IE: HEADS UNLOADED OR INVALID FORMAT.

TO PROPERLY HALT,

TYPE CONTROL=C

(*C)

ON THE CONSOLE.

lalal

MACY11 30(1046)

UNIBUSS RK6 DR_PRTZ2

IFO UNIBUSS RK6 DR_PRT2 »
F 31
04-JAN-82 12:

04-JAN-82 13:04 gAGg 15

MACY11 30(1046)

IF HEADS ARE LOADED & FORMATTING IS VALID,

TH E PROGRAM WILL:

ECHO *C

HALT THE PROGRAM

TYPE ''CPU_HALTED"

IF_HEADS ARE NOT LOADED AND/OR FORMATTING IS INVALID,

THE PROGRAM WILL:
1

2
3
4.

CHO “C
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:

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;
IT WILL FIRST LOAD HEADS
AND/OR FORMAT CORRECTLY,
IF REQ'D, THEN IT WILL
fgffegnxfio 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 1 WHERE TESTING WILL BEGIN WITH THE 1'ST DRIVE AGAIN.

5.0

DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION

5.1

GENERAL
A.

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 HEADSARE MEASURED & TYPED.
5.2

TEST DESCRIPTIONS
AR AAA AR A AR

AR AR AAAAANRAAAARRARAAAAAAR
AR
AR
AR AR AR RS

SEQ 0014

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

MACY11 30(1046)

04-JAN-82

¢ 2
PAGE 16

13:04

SEQ@ 0015

BASIC CONTROLLER TESTS, SIZING & SETUP
LA

TEST 1

add

ittt

it didiidatiiiiiididdisiisdiiistissds

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
gg gUNNING IN THE AUTO MODE OR A 200 START IN THE

EVERY DRIVE FROM 0 THRU 7 IS ADDRESSED.

CONTROLLER ERROR (CERR) IS EXAMINED AND IF NOT SET, THE
DRIVE WILL BE TESTED AS AN RK0O6.
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 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 If WAS NOT SPECIFIED.

gsgu
IF
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
CZROIF.P1
04=JAN-82 12:46

MACY11 30(1046)

04-JAN-82

TEST 6

13:04

D 2
PAGE 17

SEQ 0016

SET VV WITH PACK COMMAND

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

TEST 7

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.
LA

dddd

sttt

adiddd

it iisiiisiiidsdiisiiasiiisiisissds

dddddd

ittt diiaiiisiiiiiiisiiiiiisissdy

WRITE TESTS
LAA R

ARt

TEST 10 BASIC WRITE DATA 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 1 BASIC WRITE DATA TEST; FULL SECTOR

oo 00 02 Ov 00 0o 0o 00 o

b
d
N— b d b e
o Fels RNTe AV, F N VPI,N)

811

821

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 O 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 PRT2

CZROIF.P1

828
829
830
831
832
ggz
835
g%g

04-JAN-82 12:4

MACY11 30(1046)

04-JAN-82

13:04

E 2
PAGE 18

SEQ 0017

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
TEST 14 TEST READ DATA AT ALL HEAD OFFSET POSITIONS

838
839
840

THIS TEST VERIFIES THAT THE HEAD OFFSET LOGIC IS OPERATIONAL BY
WRITING ALL 1°'S PATTERNS ON CYLINDER O, HEAD 0. THEN
PERFORMING READ DATA FROM CENTERLINE AND MOVING OUT + AND - OFFSET

&2
843

ARE TYPED OUT.
OFFSET CODES ARE ALSO VERIFIED BY KEADING MSG A, STATUS 00 & 10.

gzg

IF THERE ARE NO FAILURES AT ALL, THIS INDICATES THAT

848
849
gg?

841

gzg

852

ggz

855

ggg

858
859
860
861
gg%

864
ggg
867

ggg

870

POSITIONS UNTIL A FAILURE OCCURES. THE OFFSET POSITIONS

ALL HEADS ARE TESTED AT CvL 0.

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

g;}

WITH A DATA PATTERN FILLING THE ENTIRE 2 CYLINDERS.

873
g;g

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

876
g;g

CYLINDER X:
CYLINDER Y:

63
64

127
128

191
192

255
256

319
320

383
384

RK06
RK06

879
gg?

CYLINDER X:
CYLINDER Y:

127 255
128 256

383
384

511
512

639
640

767
768

RKk07
RKO7

882

THE ABOVE CYL NUMBERS ARE IN DECIMAL.

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P11
04=JAN=82 12:46

MACY11 30(1046)

884
ggz

04-JAN-82

13:04

2
PAGE 19

SEQ 0018

TEST 17 TEST HEAD SWITCHING TIME

ggg

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

889
890
891
892
893

1. 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. 1.0MS, THE TIME BETWEEN

ggg

THE ABOVE IS REPEATED FOR HEAD SWITCHING BETWEEN 1 TO 2

333

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

89%
ggg

THE START OF THE WRITE COMMAND (FROM SECTOR 25(8), HEAD 0; TO
SECTOR 0, HEAD 1) AND CONTROLLER READY SHOULD BE APPROX 6MS

901
ggg

TEST 20 DRIVE OFF TRACK TEST

904
ggg

THIS TEST CHECKS FOR SERVO OSCILLATIONS DURING SETTLING TIME BEYOND
THE ALLOTED 3MS.

907
908

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

909
910

912
g}z

915
916
g}g

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

911

919
920
921

ggg

HEADS WILL IMMEDIATELY BE WRITTEN.

IF THERE IS OSCILLATION SENSED BY READING THE TRIBITS,
DRIVE OFF TRACK ERROR WILL SET.

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

924
925
926

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

FORMAT .

6.0

ERROR REPORTING

6.1

ERROR INTERPRETATION

929

WHENEVER AN ERROR MESSAGE IS PRINTED OUT,

931

MSG AC00), MSG B(01),

3;2

ERROR.

935
936
937
938
939

EVERY ERROR MESSAGE CONTAINS A PC.
THIS PC INDICATES THE
POSITION IN PROGRAM WHERE THE ERROR CALL IS LOCATED.
THE
ERROR MESSAGE, BECAUSE OF PRACTICAL CONSIDERATIONS IS MADE
SHORT AND MEANINGFUL.
THE USER IS ADVISED TO LOOK UP TH
PC IN THE PROGRAM LISTING, WHERE HE WILL FIND MORE INFORMATION

930

932

ALL REGISTERS

AND OTHER DATA PERTAINING TO THE ERROR ARE ALSO GIVEN.
RKER,

RKBA...ETC, INDICATE THE

CONTENTS OF THE CORRESPONDING REGISTERS AT THE TIME OF

CZR6IFO UNIBUSS RK6 DR PRTZ
CZR6IF.P1I
04=JAN-82 12:46

MACY11 30(1046)

04-JAN-82

13:04

6 2
PAGE 20

SEQ 0019

940

ABOUT THE ERROR.

942
943
944
945
329

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.

941

IN MANY INSTANCES,

gzg

955
956
957
958
959
32?

962
963
964
965

966

97
968
969
g;?
972

A LITTLE DELIBERATION

NCTE

ggg

952
3%2

A SINGLE FAULT WILL

GIVE RISE TO MORE THAN ONE ERROR REPORT.

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.
PC
000014 016530
EXPECT
AQ
B0
&1
81
A2
030144
100000 013704
000001
ACTUAL
140144
100000 101744 000001
RKCS1
RKCS2
RKASOF
RKER
RKDS

040200

0007100

010000

000000

RKDC
000000

THE ABOVE EXAMPLE SHOWS EXPECTED € ACTUAL DATA FOR

g;z

MESSAGE REGISTERS AO, BO, A1 & B1.

975
976
977
978
979
980
981
982
983
984

MESSAGES A2, B2 & B3 WILL BE TYPED OUT ONLY AS REQUIRED IF
THE CYLINDER DIFFERENCE/OFFSET, CYLINDER ADDRESS &
HEAD & SECTOR INFORMATION IS A VARIABLE PARAMETER OF THE
TEST.

987
988
989
gg?

TEST NO.
PC
000003 014330
RKMR2
RKMR3
RKER
000144
100000 000000

822

992
993
994
995

EXAMPLE #2:

NO ATTN IN RKASOF

AFTER UNLOAD COMMAND

RKDS
100101

RKCS1
000206

[ END OF DOCUMENT ]

RKCS2
000104

RKASOF
000000

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

MACY11 30(1046)
%

04-JAN-82 13:04 gAG% 21

SEQ@ 0020

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

MACY11 30(1046)

04=JAN-82

13:04

I 2
PAGE 22

SEQ 0021

NOAWNS
W -

R R R RRR R R

;e*x PGM REV 032 www
«NLIST
CND,MC,MD
LIST
ME
ABS,AMA
.ENABL

;DEFINE SYSMAC MACROS
$SWR=

}67400

.TITLE

CZR6IFO UNIBUSS RK6 DR PRT2

$TN=

sDEFINE SWITCHES 15.14.}3.11.10.9,8
sSET FIRST TEST NO.

;*COPYRIGHT (C) 1976,1982
s*DIGITAL EQUIPMENT CORP.
;*MAYNARD, MASS. 01754
*

:*PROGRAM BY GARY PAPAZIAN
‘%

:%THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
s *PACKAGE (MAINDEC-11-DZQAC-C5), JAN, 1981.
*

.SBTTL

OPERATIONAL SWITCH SETTINGS

b
d
b e
—

SBTTL

USE

VO —=NWHrWN

2
%

PR PR
PR
PR
PR

SWITCH

2
O

TR PR

2B 2

BB I

. %

LA B

167400
000001

WN=O VNV

WN 2OV

NOWVNS W0 Vo

R e e RS SReSRRRR222222222288882888828

997
998

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>

SUMMARY OF STARTING LOCATIONS

:®
;e
i
:*
;®
:®
::

200
204
214
220
224
230
240

DEFAULT PARAMETERS
DEFAULT PARAMETERS & BYPASS WRITE TESTS
DEFAULT PARAMETERS & BYPASS TIMING TESTS
INPUT PARAMETERS
INPUT PARAMETERS & BYPASS WRITE TESTS
INPUT PARAMETERS & BYPASS TIMING TESTS
opT11

(sl
NN
Do

61 FO UNIBUSS RK6 DR_PRT2

61F.P11

04-JAN-82 12:46

D ) D d o

823

050
051
052

MACY11 30(1046)

BASIC DEFINITIONS

.SBTTL
001100

D e e

822

04-JAN-82

13:04

PAGE 23

SEQ@ 0022

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER ##% 17100 #w«
STACK= 1100
.EQUIV EMT,ERROR
;sBASIC DEFINITION OF ERROR CALL
.EQUIV 10T,SCOPE
::BASIC DEFINITION OF SCOPE CALL

000011
000012
000015
000200
177776

063
064
822

177772
177570
177570

PIRQ=
DSWR=
DDISP=

1073
1074
1075
1076
}8;;

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

; *GENERAL PURPOSE REGISTER DEF INITIONS
RO=
20
: sGENERAL REGISTER
R1=
21
s sGENERAL REGISTER
R2=
¥4
: ;GENERAL REGISTER
R3=
%3
: sGENERAL REGISTER
Ré4=
L4
; GENERAL REGISTER
R5=
x5
: ;GENERAL REGISTER
R6=
26
: :GENERAL REGISTER
R7=
x7
s sGENERAL REGISTER
SP=
X6
;s STACK POINTER
PC=
x7
; :PROGRAM COUNTER

079
1080
081
082
083
084
085
086
83;

000000
000040
000100
000140
000200
000240
000300
000340

;*PRIORITY LEVEL DEFINITIONS
PRO=
0
:sPRIORITY
PR1=
40
ssPRIORITY
PR2=
100
:sPRIORITY
PR3=
140
:;PRIORITY
PR4=
200
::PRIORITY
PR5=
240
:;PRIORITY
PR6=
300
::PRIORITY
PR7=
340
:sPRIORITY

D e e e

e e

055
056
057
058
059
060
061

177774

D e

e o

062

067
068
069
070

)

1071
1072

s *MISCELLANEOUS DEFINITIONS
HT=
1
:;CODE FOR HORIZONTAL TAB
LF=
12
::CODE FOR LINE FEED
CR=
15
:CODE FOR CARRIAGE RETURN
CRLF=
200
;;CODE_FOR CARRIAGE RETURN-LINE FEED
PS=
177776
: ;PROCESSOR STATUS WORD
.EQUIV PS PSW

STKLMT= 177774

177772
177570
177570

ssSTACK LIMIT REGISTER

: :PROGRAM INTERRUPT REQUEST REGISTER
s sHARDWARE SWITCH REGISTER
: sHARDWARE DISPLAY REGISTER

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

000200
000100
000040
000020

;*"'SWITCH REGISTER'' SWITCH DEFINITIONS
SWwi5=
100000
SWi4=
40000
SW13=
0000
Swi2=
10000
SwWii=
000
SW10=
2000
Sw09=
1000
SWw08=
400
SWo7=
200
swoé=
100
SW05=
40
SWo4=
20

103

000004

Swo2=

—

D ed

b e

D e

089
090
091
092
093
094
095
096
097
098
099
100
101
102

100000
040000
020000
01
0
001000

000010

Swo3=

0
1
2
3
4
5
6
7

Sw01=
SW00=
.EQUIV
.EQUIV

R
e e
R

K 2
PAGE 24

2
1

SWC9,sw9
Sw08,sw8
SwW07,sw7
SwW06, Swé
SW05, sw5
SW04, SWé
SW03,Sw3
sw02, sw2
SWo1,sw1
SwW00, Sw0

000001

. e T S

VIS
S & S BB
B WWW

VRNOWVSWN=OV0
VOB WN=O0V0~N

e T

e R

BIT DEFINITIONS (BITOO0 TO BIT15)
100000

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

BIT02,BIT?
8IT01,B8IT1
81T00,BITO

*'CPU'* TRAP VECTOR ADDRESSES
::TIME OUT AND OTHER ERRORS
:RESERVED AND ILLEGAL INSTRUCTIONS
;s TRACE TRAP

064
000240

TKVEC=
TPVE(C=

=34

60
34

PIRQVEC=240
.SBTTL

: :BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (IOT) =«SCOPE*+

s sPOWER FAIL

:;EMULATOR TRAP (EMT) «+ERROR#+*
::"'TRAP''

TRAP

;:TTY KEYBOARD VECTOR
;3TTY PRINTER VECTOR

: ;PRCGRAM INTERRUPT REQUEST VECTOR

RKO6 CONTROLLER REGISTER DEFINITICN

SEQ 0023

13:04

e
—t

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

.EQUIV
.EQUIV
.EQUIV

.P R

RIS WS W

VIS
W= O VNS WN <OV NO VS WN =0V
~NONWN
gugwwuuNNNNNNNNNNddddddddfldcgogog

000002
000001

UNIBUSS RK6 DR_PRT2
C4-JAN-82 12:46

$BASE=177440

RKCS1=

]'g

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0)

}g}

DRIVE COMMANDS

04=JAN-82 12:46

160

}g}
163

164
165
166
167
168
169
170
17
172
173
174
175
176
};g

000000

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

RKO6 CONTROLLER REGISTER DEFINITION

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

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

;CONTROL AND STATUS REGISTER 1
sWORD COUNT REGISTER
;BUS ADDRESS REGISTER
sDESIRED TRACK SECTOR REGISTER
sCONTROL AND STATUS REGISTER 2
sDRIVE STATUS REGISTER
sERROR REGISTER
SATTENTION SUMMARY AND OFFSET REGISTER
sDESIRED CYLINDER REGISTER
:DATA BUFFER
sMAINTENANCE REGISTER 1
sMAINTENANCE REGISTER 2 (MESSAGE LINE A)
sMAINTENANCE REGISTER 3 (MESSAGE LINE B)
sECC POSITION INFORMATION
sECC PATTERN INFORMATION

183
184
185
186
187
188
189
190
154
192
193
194

000001
000003
000005
000007
000011
000013
000015
000017
000021
000023
000025
000027

SELDRV=
PACK=
CLEAR=
UNLOAD=
SRTSPL=
RECAL=
OFFSET=
SEEK=
RDDATA=
WRDATA=
RDHEAD=
WRHEAD=

1
3
5
7
11
13
15
17
21
23
25
27

sSELECT DRIVE (GET STATUS)
sPACK ACKNOWLEDGE
;DRIVE CLEAR
sUNLOAD
sSTART SPINDLE
sRECAL IBRATE
sOFFSET
: SEEK
sREAD DATA
sWRITE DATA
sREAD HEADER
sWRITE HEADER AND DATA

197
198
199
200
201

000001
000100
000200
00
001000

GO=
1E=
RDY=
BA16=
BA17=

BITO
BIT6
BIT7
BIT8
BITY9

;GO BIT
s INTERRUPT ENABLE
s CONTROLLER READY
;BUS ADDRESS BIT 16
;BUS ADDRESS BIT 17

]'gg

202
203
204
205
206
207

002000
004000
010000
020000
040000
100000

WRTCHK= 31

(pT=
CT0=
CFMT=
DCPAR=
Dl=
CERR=

BIT10
BIT1
8171;
BIT1
BIT14
BITI1S

;WRITE CHECK

sCONTROLLER DRIVE TYPE (0=RKk06,1=RK07)
sCONTROLLER TIMEOUT
;CONTROLLER DRIVE FORMAT (0=22 SECTOR, 1=20 SECTOR)
sSERCON PARITY ERROR DETECTED BY CONTROLLER
;DRIVE INTERRUPT
s CONTROLLER ERROR

SEQ 0024

04-JAN-82

61F.P1

13:04

L 2
PAGE 25

MACY11 30(1046)

lalal
NN

6I1F0 UNIBUSS RK6 DR_PRT2

}%88

0«=JAN-82 12:4

100000

]‘%}(1)

121%
121
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
}ggg

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

]'%g;

1229
1230
1231
1232
1233
1234
1235

000001
000002
000004
000010
000020
000040
000100

1237
1238
1239
1240
1241
1242
1243
}szlso

000400
001000
002000
004000
010000
020000
040000
100000

1236

000200

]'gzg

04=-JAN-B2

BIT15

.SBTTL

CONTROL AND STATUS REGISTER 2 BITS (RK(CS2:10)

DRVMSK= 7
RLS=
BIT3
BAl=
BITé
SCLR=
BITS
IR=
BITé
OR=
BIT7
UFE=
BIT8
MDS=
BITY
PGE =
BIT10
NEM=
BITN
NED=
BIT12
UPE=
BIT13
WCE=
BIT14
DLT=
BIT15

ILF=
SK1=

FMTE=
DTYE=
ECH=
BSE=
HVRC=
COE=
IDAE=
WLE=
DTE=
OPl=
UNS=
DCK=

BITO
BITI
BIT?
BIT3
BIT4
BITS
BITé

sILLEGAL FUNCTION CODE
sSEEK _INCOMPLETE
sNON-EXECUTABLE FUNCTION
sDRIVE DETECTED SERCON PARITY ERROR
;FORMAT ERROR
sDRIVE TYPE ERROR
sECC HARD

BIT8
BITY
BIT10
BITN
BIT12
BIT13
BIT14
BIT15

sHEADER VRC ERROR
:CYLINDER ADDRESS OVERFLOW ERROR
:INVALID DISK ADDRESS ERROR: HEAD/CYL
sWRITE LOCK ERROR
sDRIVE TIMING ERROR
;OPERATION (SEARCH) INCOMPLETE
sDRIVE UNSAFE
sDATA CHECK

.SBTTL

STATUS REGISTER BIT DEFINITION (RKDS:12)

NXF =
DRPAR=

BIT?7

1250
1251
1252
1253
1554
1255

000004
000010
000020
000040
000100
000200

OFST=
ACLO=
DCLO=
DROT=
vv=
DRDY=

BIT2
BIT3
BIT4
BITS
BITé
BIT7

1257
1258

004000
020000

WRL =
PIP=

BIT11
BIT13

100000

SVAL=

1259

;52%

040000

sMASK FOR DRIVE SELECTION CODE
sDESELECT OR RELEASE DRIVE IN BITS 0-2
:BUS ADDRESS INCREMENT INHIBIT
sSUBSYSTEM CLEAR CONTROLLER AND ALL DRIVES
: INPUT READY
;OUTPUT READY
sUNIT FIELD ERROR
sMULTIPLE DRIVE SELECT
:PROGRAMMING ERROR
sNON-EXISTENT MEMORY
sNON-EXISTENT DRIVE
;UNIBUS PARITY ERROR
sWRITE CHECK ERROR
;DATA LATE ERROR

ERROR REGISTER BIT DEFINITION (RKER:14)

8ITO

}52(1)

sCONTROLLER CLEAR

.SBTTL

DRA=

000400

PAGE 26

CCLR=

000001

1256

CONTROL AND STATUS REGISTER 1 BITS (RK(CS1:0)

1248

1249

13:04

DDT=
DSC=

.SBTTL

BIT8

BIT14

BIT15

:BAD SECTOR ERROR

;DRIVE AVAILABLE (CWTROLLER IS SET IF

THIS BIT IS RESET)

sDRIVE OFFSET
AC LOW
:DC LOW
;DRIVE OFF TRACK
sVOLUME VALID
:DRIVE READY

:DRIVE TYPE (0=RK06,1=RK07)
:WRITE LOCK
:POSITIONING IN PROGRESS

:DRIVE STATUS CHANGE
:STATUS VALID

MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22)

SEQ 0025

CZROIF.PI

MACY11 30(1046)

lalal

CZR6IFO UNIBUSS Rké DR PRT?

1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274

1275
}g;;

000017
000020
000040

000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

}%;g

1280
1281
1282
1283
1284
1285
1286
1287
1288
}ggg

000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

;?lg

MSP=
BITé
MIND=
BIT7
MCLk=
3178
MERD=
BITY9
MEwD=
BIT10
PCA=
BIT11
PCD=
BIT1§
ECCWw=_
BIT
WRTGAT= BIT14
RDGATE= BIT15

000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
0000

000040
000100
000200
00040
001000
002000
04
010000
020000

040000

;DRIVE AVAILABLE
;VOLUME VALID
;DRIVE READY
;DRIVE TYPE (0=RK06,1=RK07)
sDRIVE FORMAT
;OFFSET ON
sWRITE LOCK
sSPINDLE ON
sPOSITIONING IN PROGRESS
;DRIVE STATUS CHANGE

sSERVO SIG PRES
sHEADS HOME
;BRUSHES HOME
sDOOR: §INTERLOCKED
s CARTRAGE INTERLOCK
s SPEED"
0K
: FORWARD
sREVERSE
sHEADS LOADING
sRETURN TO ZERO
sHEADS UNLOADING

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

D.IDAE= BITS
D.ACLO= BITé
D.FLT= BII?7
D.ILF= BIT8
D.PAR= BITY
D.SKI= BIT10
D.WLE= BITN
D.SPLS= 8171%
D.DROT= BIT1
D.UNS= BIT14
.SBTTL

sWRITE GATE
+READ GATE

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

D.SSP= BIT4
D.HDHM= BITS
D.BRHM= BIT6
D.DOOR= BIT?
D.CART= BIT8
D.SPOK= BIT9
D.FWD= BIT10
D.REv= BIT1]
D.LOAD= BIT12
D.RTZ= BIT13
D.UNLD= BIT14
.SBTTL

sMESSAGE MASK
sFORCE EVEN PARITY ON SERCON MESSAGE LINES
sDIAGNOSTIC MODE
sMAINTENANCE SECTOR PULSE
sMAINTENANCE INDEX
sMAINTENANCE CLOCK
sMAINTENANCE ENCODED READ DATA
sMAINTENANCE ENCODED WRITE DATA
sPRECOMPENSATICN ADVANCE
sPRECOMPENSATION DELAY
sECC_WORD IS BEING REAP OR WRITTEN

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

D.DRA= BITS
D.vv=_
BIT6
D.DRDY= BIT?7
D.DDT= BIT8
D.FORM= BITY9
D.OFF= BIT10
D.WRL= BIT11
D.SPIN= BIT12
D.PIP= BIT13
D.DSC= BIT14
.SBTTL

!'ggg
1307
1308
1309
1310
131
1312
1313
1314
1315
}g}g

MESMSK= 17
PAT=
BIT4
DMD=
BITS

.SBTTL

‘%sg]?

1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
}3382

sINVALID DISK ADDRESS ERROR:HEAD/CYL
sAC LOW
sDRIVE FAULT
sILLEGAL FUNCTION CODE
;DRIVE DETECTED SERCON PARITY ERROR
sSEEK_INCOMPLETE
sWRITE LOCK ERROR
s SPEED LOSS
:DRIVE OFF TRACK
:R/W UNSAFE

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

SEQ 0026

lalal

N 2
MACY11 30(1046) 04-JAN-82 13:04 PAGE 27
MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22)

CZR6IFO UNIBUSS RK6 DR PRT2
CZROIF.PN
04=JAN-82 12:46

RERRY

000003
040000
000760
007000
100000

AGE

NoOwness

28
01 MESSAGE B (RKMR3:36)

sSECTOR ERROR
sWRITE CURRENT AND NO WRITE GATE
sWRITE GATE AND NO TRANSISTIONS
sHEAD FAULT
sMULTIPLE HEAD SELECT
s INDEX _ERROR
sTRIBIT ERROR
sPLO ERROR

+SEEK_AND NO MOTION
sLIMIT DETECT ON SEEK
s SERVO UNSAFE

040000

000007
077770

AN-8

F DRIVE STATUS BYTE

.SBTTL

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

M.SER=

7
77770

.SBTTL

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

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

sBYTE ID, ALL BYTES
sALIGN SIGN, BYTE 10
;SECTOR COUNT, BYTE 11
sHEAD DECODE, BYTE 11
;PARITY, MESS A/B, ALL BYTES

SEQ 0027

TMTM

g—. —On

ION

nr—
NN

TEEWVW

OoOm

MACY11 3

—

T-

NNNN%NNN -

¢ |0

T DT W PR YR D
R
Y S W
DU S
NN N WN NN NN WNWWNWW
WWWN
W
~N
WR—=OO
WN=O VRNV
W=D
PR
T
Do b T
Dl
B

(alsl

0 UNIBUSS RK6 DR_PRTZ
04=JAN-82 12:46

1344

1345

.SBTTL

1346

1347
1348
1349
}gg(’)
1352
1353
1354

000000
000174
000000
000000

}ggg

000200

888}35

012556

%gg

000220

000137

1359
}332(1)

000240

000240
000137

}332%

1370
1371
1372

000046
000052

000244
000046
8368%3
100000
000244
001000

1375
1376
1378
1379
1380

000024

001000
000024
000200

1382

000044

001000

1384

1399

012546

JMP

PARSRT

sINPUT ALL PARAMETERS & START TESTING

055672

.=240
JMP

0.0DT

:ENTER ODT11

ACT11 HOOKS

HOOKS REQUIRED BY ACT11
$SVPC=,
=46
SENDAD

.SBTTL

.WORD
100000
.=$SVPC
.=1000

:SAVE PC
231)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP
;32)SET LOC.52 TO 100000
22 RESTORE PC

APT PARAMETER BLOCK

AR AR AR

JSX=.
.=24
200

.=b4

RN AR R AR

AN RN R

RAN RN RRRRARRARRRRRRRRRS

..SAVE CURRENT LOCATION
sSET POWER FAIL TO POINT TO START OF PROGRAM
..FOR APT START UP

JPOINT TO APT INDIRECT ADDRESS PNTR.

$APTHDR ::POINT TO APT HEADER BLOCK

001000

.=.8X

;;RESET LOCATION COUNTER

tttt.’tttt.tl'I’Qtttt"."t'*tttfit..i*ttt.tt.t*.ttt*.t".tt'tt.t.

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

000000
001210
000430
001130
001130

}ggg 001012 000042

1396
1397
1398

@#START ;:JUMP TO STARTING ADDRESS OF PROGRAM

000044

1385
;3339
1388
1389
1390
1391
1392
1393

J"Jz’zo

AR
AR AR AR AR IR
RARR AR AR AR RN RRARRARRRRREARRNS
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

1377

1383

::SOFTWARE DISPLAY REGISTER
2 sSOFTWARE SWITCH REGISTER

tfi"tt*fi.t*'t*'tfi*tti"ii'tifi.fi.fiitfittfiti.'..'*'tttt't.tfi'tfi.tfi

}ggz

1381

TRAP CATCHER

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

.SBTTL

1364

SEQ 0028

.=0
"
=
s*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A ''.+2 HALT
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:'LOCATION19‘C0NTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174
000176

1365
1366
1367
‘%332%

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

$SAPTHD:
$HIBTS:
SMBADR:
$TSTM:
SPASTM:
SUNITM:

.WORD
.WORD
.WORD
.WORD
.WORD

0
SMAIL
280.
600.
600.

LLIST

TMMD

.WORD

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

SETEND-SfiAIL/ s sLENGTH MAILBOX=-ETABLE (WORDS)

CZR6IFO UNIBUSS RKé DR_PRT2
CZR6IF .P11
04~-JAN-82 12:46

MACY11 30(1046)

NS W= OO0

SNERRY

TN
I
I
T T T
WWWNONOINNDNNINNINNN
=S G a e
o
=00V NO VNS WN—=OOONONESWN=O
T TN

VRN = OV

Vil BN

04=JAN-82

PARAMETER BLOCK

13:04

D 3
PAGE 30

SEQ 0029

;USE LOOP X TO OMIT SUBCLR
.MACRO

LOOP
SCOP1
Mov

B
JSR

A
PC,SUBCLR

ERROR

SEIRGRER2 §

200

lalal
NN

FO UNIBUSS RK6 DR PRTZ
n
04=JAN-82
1

ENDC
.ENDM

#STACK,SP

sRESTORE STK PTR

;CERR AFTER SCLR

LOOP

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

"MACRO

F.EAB

MoV

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

MoV

#1,E.B1

sMSG_ID FOR EXPECTED MSG B1

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

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

CLR
MoV

CLR

.ENDM

MoV
MoV
F.EAB

;EXPECTED MSG AO

E.BO
;EXPECTED MSG B0
#<D.SPOK!D. CART‘D DOOR!D.BRHM!D.SSP>,E.A1

E.A2

;EXPECTED A1

:EXPECTED MSGA2

THIS HACRO ASSUMES DRIVE MSG AO 80 A1, B1 WILL ALWAYS BE TESTED
SE
A.C.D.E FOR MSG A0, BO,
81 ERROR NUMBERS RESP.
G=T.A 2 TO READ MSG A2 l PUT INFO INTO "CYLDIF®
'USE
H=T.B2 TO READ MSG B2 & PUT INFO INTO °'CYLADD'

1=T.B3

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

: USE

F=<ERROR DESCRIPTION>

"MACRO

CHECK

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

JSR

PC CHKHSG

sCHECK MSGS A0, BO, A1, B1

ERROR
ERROR
ERROR

A
(
D

:MSG AQ ERROR
F
:MSH BO ERROR
:MSG A1 ERROR

.WORD

.ENDM

E RROR
CHECK

G'H!I
E

A-CYL DIFF/OFFSET ERROR #
:B=CYL ADDR ERROR
#

:C=<ERROR DESCRIPTION>

"MACRO

CwWD2

A.B.C.?D,?E

;& MSGS SPECIFIED HERE
:MSG B1 ERROR

lalsl
NN

RGIF
UNIBUSS RK6 DR PRTZ
ROIF.P11
04=~JAN-82 12:4

MACY11 30(1046)

04-JAN-82

APT PARAMETER BLOCK

13:04

E 3
PAGE 31

1456
1457

MOV
JSR

"2, RKHR1(RS)
PC,GSTAT

1459
1460
1461
1462

BEQ
ERROR
TST
BEQ

D
A
CYLADD
3

1458

1463
1464

1465

1466

1467
1468
1469
1470
1471
1472

TST

D:
E:

ERROR

CYLDIF

;SELECT WORD 2

;SEE IF MSG A2=0

:BR IF YES
*MSG A2 NOT CLEARED
ses xr nsc B2=0
:BR
IF YES

*MSG sz NOT CLEARED C

.ENDM

CWD2

.MACRO

DRCLR

MOV
MOV
MOV
JSR

#CCLR,RKCS1(RS)
SUNIT.RKCS2(R5) ;DRIVEA
#CLEAR,HCS
PC,DOCMD
;D0 DRIVE CLEAR CMD & GET CONTR RDY

gga

:C.TSTATN

151

*NO RDY AFTER DRIVE CLEAR CMD

154

;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

1473

ERROR

}2;g

*TEST FOR ATTN

}2;3

ERROR

1478
1479
1480

.ENDM

DRCLR

}zgz

*USE CALIB

1232

"MACRO

CALIB

A,2C

487
488
489
490

MOV
MOV
MOV
JSR

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

493
49%
495
496
497
498

MOV
JSR
BIT
BNE
ERROR
MOV

#1,RKMR1(RS)
PC.GSTAT
#D.RTZ,HMR2
C
244
T10, TEMP2

:RTZ NOT SET DURING RECAL CMD
*SETUP TIMEOUT

ERROR
A
F.EAB
CHECK

*NO ATTN AFTER RECAL CMD

235

499
500
501
502
503

504

2338

ERROR

C:
JFB

JENDC
.ENDM

JSR

cwp2

TO OMIT CHECKING MSGS A0, BO, A1, B1, AZ & B2

124

PC,FATTI

;DO RECAL CMD & GET CONTR RDY

*RDY NOT SET AFTER RECAL CMD
;SELECT WORD 1

SFIND ATTN

DSC
221,275,222,276. <AFTER RECAL CMD>,T.A2,T7.82,7.83

47,50,<AFTER RECAL
C

DRCLR

CALIB

*QUICK START SPINDLE

SEQ 0030

"MACRO

F 3
PAGE 32

QKSRT
JSR

PC,SUBCLR

;CERR AFTER SCLR

MoV
JSR

#SRTSPL ,HCS1
PC,DOCMD

;DO START SPINDLE CMD & GET CONTR RDY

MOV
JSR
ERROR

7100, TEMP2
PC.FATT1
74

;SETUP TIMEOUT
sFIND ATTN
;NO ATTN AFTER ST SPIN CMD.

CLR

UNLD

ERROR

.ENDM

13:04

121

sRDY NOT SET AFTER ST SPIN CMD.

QKSRT

CFMT
! WRHEAD>
=WRHEAD/<
USE WRHDR
<A>,X
TO OMIT CHECKING A0, BO, A1 & B1
.MACRO

=
LENDC
IF

—

)

WRHDR

A,C.K,?D

Mov
JSR

#<A> HCS1
PC,DATCMD

;DO DATA X FOR CMD & GET CONTR RDY

JSR

PC,GSTAT

;GET FRESH STATUS

NB
MOV
JSR

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

BIT

#CERR,HCS1

ERROR
TYPE

201
MSG26

gnnon

ERROR

BEQ

JMP

JJFB

F.EAB
CHECK

.ENDM

WRHDR

Eob

117

$EOP

*NO RDY AFTER WRITE HEADER CMD

:NO RDY AFTER SELDRV CMD

:CERR AFTER WRITE HEADER CMD
*ABORTING BAL OF TESTS

0
277.267.300,270,<AFTER WRITE HEADER CMD>.,0.0.0

SNS

* A=RDHEAD/<CFMT 'RDHEAD>

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

"MACRO

RDHDR

A.C.?D,7E

MOV
MOV

#RHTAB,RO
#<A> HCST

SEQ 0031

VNS WSOV
W= O VN

D e d D e e d D e

]

D d e D D e e D d e o
vivvuviwvuaviaiawx

et et St at

D e e d e

APT PARAMETER BLOCK

D
Y
I

D e e

e e A

D e

04=JAN-82 12:46

04-JAN-82

D e e

e e e

Lo e

e
b
—

P11

MACY11 30(1046)

’

D D e

d D e e

D D D D e e

WWWWWWNWWRIN
NN NN NNNN = = e d b d d

als)
NN
D) o

UNIBUSS RK6 DR_PRT2

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P1N
04=JAN-82 12:46

MACY11 30(1046)

04=JAN-82

APT PARAMETER BLOCK

PC{DATCHD

gé;

gcenn.ucs1

ERROR

174

JMP

$e0P

MOV
MOV
MOV

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

BIT

#DLT,RKCS2(RS)

TYPE

MSG26

;D0 DATA X FOR CMD & GET CONTR RDY

*NO RDY AFTER READ HEADER CMD
;CERR AFTER READ HEADER CMD
:ABORTING BAL OF TESTS

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

D e

) i

v i
oo
00 0o
-O
~

G 3
PAGE 33

JSR

ERROR

13:04

ERROR
TYPE
JMP

CHECK 301,271,302,272,<AFTER READ HEADER CMD>,T.A2,T.82.0

F.EAB

173
MS5G26
$EOP

;:DLT AFTER READ HEADER CMD
*ABORTING BAL OF TESTS

.ENDM

RDHDR

.MACRO

HDCHK3

RDHDR

RDHEAD

) i e

)

2228 SRBIRRREN28TEIR

i
D

E
PC,GSTAT

D o

D e

BEQ
JSR

—=OVBNOWVSWN—=OVN

i e

)

D e

A
AN AN AN Y800
W
Og 32

b e

)

CMP
BEQ

ERROR

.ENDM

RHTAB, TOCYL
A

sCHECK WORD O ONLY, CYL#
:BR IF SAME

sWRONG CYL# 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
:T0 FILL
sHEADER

: TABLE

HDTBL

*QUICK SEEK.

ENTER WITH CYL# IN RKDC

"MACRO

OQKSEEK

MOV

#SEEK,HCS1

SEQ 0032

CZR6IFO UNIBUSS RK6é DR PRT246
CZR6IF.P1
04-JAN-82 12

MACY11 30(1046)

04-JAN-82

APT PARAMETER BLOCK

JSR

ERROR

VIS

PC,DOCMD

;DO SEEK CMD & GET CONTR READY

750000, TEMP1

;SETUP TIMEOUT

131

JSR
ERROR

PC, FATT2
132

BIT

#CERR,HCS1

ERROR

210

BEQ

H 3
PAGE 34

*NO RDY AFTER SEEK CMD

SFIND ATTN
*NO ATTN AFTER SEEK CMD
;CERR AFTER SEEK CMD

.ENDM

QKSEEK

sA=WRDATA/<CFMT
! WRDATA>

sC=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

wvivwniunununiun

.ENDC

VO~

— e

d d e

d e

oMM

NNN NNNNNYN

D e

d e e

d o

d e

b e

D e e

ONONONON

D e

e e e e

b e

2 32 333323 300
RPRREREE
ST EY 1A A

D d e

D d

OFONON

d e e

WN -0V ~

MOV

13:04

WDATA

A,(.D.E,J.K,?F,?G,?H,?I

MoV
JSR

#<A> HCST
PC,DATCMD

;DO DATA X FOR CMD & GET CONTR RDY

JSR

PC,GSTAT

;GET FRESH STATUS

N8B

ERROR

117

:NO RDY AFTER SELDRV CMD

BIT
BEQ

#CERR,HCS1
I

:BR IF NO ERRORS

BIT
BEQ
JSR
BR
8

#BSE ,HER
G
PC.TRUERR
H
J

:SEE IF BAD SECTOR FLAG
*BR IF NO
:ELSE SEE IF SECTOR LISTED IN BSE TABLE
*RETURN HERE IF NO

INC

SECTOR

:RETURN HERE IF YES

BNE

*BR IF NO

gnnon

MOV
JSR

CMP

#<CFMT!SELDRV>,HCS1
PC,DOCMD

SECTOR,#10.

ERROR

JMP
ggg

.ENDC
IF

JMP

*NO RDY AFTER WRITE DATA CMD

D
gCCLR.RxCSl(RS)

*ARE 10 CONSEC. SECTORS BAD
:ABORTING TEST DETECTED 10 BAD SECTORS
*BYPASS TEST
*TRY ANOTHER SECTOR

;RET HERE IF YES

SE@ 0033

CZR6IFO UNIBUSS RK6 DR_PRTZ2
04=JAN=-82 12:46

CZR6IF.PI

LENDC

“G:

ERERS

;CERR WITH WRITE DATA CMD

Iggs

£g3326

;ABORTING BAL OF TESTS

ERROR

:BAD SECTOR NOT LISTED IN TABLE

CHECK

52,23,53.25,<AFTER WRITE DATA CMD>,T.A2,T.82.0

"ENDM

CHECK 22.23 53,25,<AFTER WRITE DATA CMD>,T.A2,T.82,0

F.EAB

WDATA

*A=RDDATA/<CFMT !RDDATA>
*USE RDATA

.MACRO

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

MoV
JSR

#<A> ,HCST
PC.DATCMD

;DO DATA X FOR CMD & GET CONTR RDY

PC,GSTAT

:GET FRESH STATUS

117

.ENDC

#CERR,HCS1

D e

:NO RDY AFTER READ DATA CMD

D i e
e

;NO RDY AFTER SELDRV CMD

Ease.nsa

;SEE IF BAD SECTOR

;DETECTED BSE IN READ BUT NOT IN WRITE CMD.

MSG26

;ABORTING BAL OF TESTS

#DCK . HER

;SEE IF DATA CHECK ERROR

;DATA CHECK ERROR AFTER READ CMD (ECC)

;CERR AFTER READ DATA CMD.

$E0P

D e
e
i

#<CFMT!SELDRV>,HCS1
PC.DOCMD

i e

RDATA

ERROR
B
JSR

d\l\l
NNNNN“NNNN
Na\l\l\l\lfl‘dflfl\l\lfl
33 NN
NN NN N
) == md =3 3 emd b b 2 2
vFS WWNWWNIN
3%
W =O VBN
VNS WN=OOVONO
VS WN=O
~

<A>,X TO OMIT CHECKING AO, BO, A1 & B1

D e

D h e

e e

D e

b d

3333333%3%3332832520000RE

1680

04-JAN-82 13:04 ;AGg 35

MACY11 30(1046)
APT PARAMETER BLOCK

0
34.26.56.30,<AFTER READ DATA (rD>,T.A2,7.82.0
B8

F.EAB

CHECK

§4.26.56.30.<AFTER READ DATA CMD>,T.A2,T7.B2,0

SEQ 0034

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

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

1736
1737
1738
1739
1740
1741
1742

:
*A=WRTCHK/<CFMT 'WRTCHK>
*C=EXPECTED DATA FOR TYPEOUT

*USE WRCHK

<A>,DATAO,X TO OMIT CHECKING A0, BO, A1 & B1

1745
};29

LMACRO

WRCHK

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

MOV
JSR
snnoa

#<A> HCS1
PC,DATCMD
15

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

JSR

PC,GSTAT

;GET FRESH STATUS

NB
MOV
JSR

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

117

:NO RDY AFTER SELDRV CMD

BIT
BEQ
gé;

#CERR,HCS1
F
guce.ucsz

:SEE IF WRITE CHECK ERROR

MOV
MOV
ERROR-

RKDB(RS) ,WD1
C,WD2
16

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

ERROR
F.EAB
CHECK

22
:CERR AFTER WRITE CHECK CMD
0
57.31.60,32,<AFTER WRITE CHECK CMD>,T.A2.T.B2.0

JMP

$e0P

8
F.EAB
CHECK

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

};22

1748
1749
};gg

1752
1753
1754
1755
1756

1757

1758
1759
1760
};g}

.ENDC
.ENDM

J 3
PAGE 36

.ENDC
IF

.ENDC

1763
1764
1765
1768
1769
1770

1771

1779
1780
1781
1782
1783
1784
1785
1786
};gg
1789
1790
1791

ERROR

TYPE

1772

1773
1774
1775
1776
1777
1778

RDATA

F:
F
.ENDC

.ENDM

WRCHK

LMACRO

OFSET ?A

MS$G26

;ABORTING BAL OF TESTS

MOV
MOV
JSR

#A,SESCAPE
#OFFSET ,HCS1
PS.DOCHD

MOV
CLR
MOV

#<D.PIP'D.SPIN'D.OFF'D.VV'!D.DRA>,E.A0
;EXPECTED MSG A0
E.B0
#<D.SPOK'D.CART'D.DOOR'D.BRHM!D.SSP>,E.A1

ERROR

;DO RECAL CMD & GET CONTR RDY

*NO RDY AFTER OFFSET CMD

SEQ 0035

P11

04=JAN-82 12:46

MACY11 30(1046)

.MACRO

EOPGM

W= OV NOWVSWN=O
VNV WN=OVN

OFSET

~NONwn

SCOPE

LT
e

SESCAPE

.ENDM

S WN—=OVO

CLR
MOV
JSR
ERROR

CHECK

$EOP1:
.ENDM

RRRRR00 00 0o 0o Co 000 o Co Oo Oo Co e

#1,E.B1

F.EAB

K 3
PAGE 37

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

75000, TEMP1
PC.FATTZ
34
<D.DSC!D,.OFF>

$SESCAPE
#1,STIMES

CMP
BEQ
CLR

DRIVS,SDEVCT
1$
BSERR

BR
SCOPE

SEOP1+2

JMP
CLR

;SETUP TIMEOUT
;FIND ATTN
¢NO ATTN AFTER OFFSET CMD

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

CLR
MOV
MOV
INC

18:

13:04

MOV

CHECK

D d e e
D d e e
D o e
e
D e e e
d
D e
d D
d e e
D e e
e e
d e
d e e
D d e
D e e
d e e
e
ho
— e

04~JAN-82

APT PARAMETER BLOCK

D ad e

laln
NN

[+ Jo ]
NSNS
335 22
=353 53283332 SEE3
55

UNIBUSS RK6 DR_PRT2

#STACK,SP
$DEVCT

NUDRV
BSERR

s INCR COUNT FOR # DRIVES CHECKED
sARE ALL DRIVES PRESENT TESTED?

:BR_IF YES

sCLEAR BAD SECTOR ERROR FLAG
sELSE TEST NEXT DRIVE PRESENT
:CLEAR BAD SECTOR ERROR FLAG

EOPGM

;A= ERROR #

:8 = ERROR CONDITION

"MACRO

D:
.ENDM

OFFDIR

A,B,7C,?D

RS,RKASOF (RS)

;REFRESH RKASOF

BNE

BIT

#BIT7 ,R2
C

:BR IF NEG OFFSET

g?g

SZ.CYLDIF

sCHECK POS OFFSET

ggROR

égFFSET IN A2 NOT = RKASOF

gg:

gl.CYLDlF

sCHECK NEG OFFSET

ERROR

iOFFSET IN A2 NOT = RKASOF

MOV

OFFDIR

LNLIST

SEQ 0036

04=JAN-82 12:46

MACY11 30(1046)

04-JAN-82

.SBTTL

COMMON TAGS

13:04

L 3
PAGE 38

SEQ 0037

tTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

;*USED IN THE PROGRAM.

001100

001100
001102

000000
000

001104
001106
001110
001112

$CMTAG:

.=1100

$TSTNM:

WORD
.BYTE

0
0

000000
000000
000000
000000

$ICNT:
SLPADR:
SLPERR:
$ERTTL:

.WORD
.WORD
.WORD
.WORD

0
0
0
O

001116
001120
001122
001126
001126
001130
001132

000000
000000
000000
000000
000000
000000
000000

$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

0
0
0
0
0
0
0

001136
001140
001142
001144
001146
001150
001152

000000

177570
177570
177560
177562
177564
177566

.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566

001160
001162
001164
001166

000000
000000
000000
000000

$TMPO:
$TMP1:
$TMP2:
$TMP3:

001204
001205

077
015

001103

001114
001115

001134
001135

001154
001155
001156
001157

001170
001172
001174
001176
001200
001206

000

$ERFLG: .BYTE

000
001

SITEMB: .BYTE
SERMAX: .BYTE

000
000

$SAUTOB: .BYTE
$INTAG: .BYTE

000
002
012
000

000000
000000
000000
000000
177607
000012

SNULL:
SFILLS:
SFILLC:
$TPFLG:

000377

.BYTE
.BYTE
.BYTE
.BYTE

.WORD
.WORD
.WORD
.WORD

$TMP4:
.WORD
$STMPS:
.WORD
STIMES: 8
SESCAPE:
$BELL:
.ASCIZ

SQUES:
SCRLF:
SLF

.ASCII
.ASCII

LASCIZ

:;START OF COMMON TAGS

:
:sCONTAINS THE TEST NUMBER

: :CONTAINS ERROR FLAG
s ;CONTAINS
s ;CONTAINS
s ;CONTAINS
s sCONTAINS

O
1

SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED

:;CONTAINS ITEM CCONTROL BYTE
;s CONTAINS MAX. ERRORS PER TEST

s ;CONTAINS PC OF LAST ERROR INSTRUCTION
s sCONTAINS ADDRESS OF 'GOOD' DATA
:;CONTAINS ADDRESS OF 'BAD' DATA
: :CONTAINS *GOOD* DATA
::CONTAINS °'BAD' DATA
: ;RESERVED==NOT TO BE USED

0
0

ssAUTOMATIC MODE INDICATOR
s INTERRUPT MODE INDICATOR

DSWR
DDISP

s ;ADDRESS OF SWITCH REGISTER
s ;ADDRESS OF DISPLAY REGISTER
..TTY K8D STATUS
sTTY KBD BUFFER
::TTY PRINTER STATUS REG. ADDRESS
;s TTY PRINTER BUFFER REG. ADDRESS

0
2
12
0

s ;CONTAINS NULL CHARACTER FOR FILLS
:;CONTAINS # OF FILLER CHARACTERS REQUIRED
..INSERT FILL CHARS. AFTER A 'LINE FEED'
:"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

O
0
0
0

..USER
s sUSER
s sUSER
s sUSER

<15>

s sQUESTION MARK
: s CARRIAGE RETURN

O
O

DEF INED
DEF INED
DEF INED
DEF INED

s USER DEF INED
..USER DEF INED
NUMBER OF ITERATIONS
ESCAPE ON_ERROR ADDRESS
<207><377)<377> .‘.COOE FOR BELL

<12

ssLINE FEED

JARRAARARAARAAANRAAAREACANARRRAAANRARANRARAAAAAAARARANARNARERERNRS

.SBTTL

APT MAILBOX~ETABLE

CRREARRRARRAAAAARA
AN AR R R RN ARRANRAAARA AN AR
RCRRORRARNRARROTRRSY

‘EVEN

NOAWVSS

I
-

EEERF RS R
- 30N0\hbu~—‘°
R : ERE222RRE

Y
Y L I I L Y

P11

T
VONOWVS
WO YVNOWNM

b4
oo

lals
NN

Y
P
R
P
P
g
—p— — p———— e
W
S
S
e e
D e
D d =D ed
D
D
d
D
d e
—

UNIBUSS RKk6 DR PRT?.

SHAIL
$MSGTY:

.WORD

AMSGTY

:sAPT MAILBOX
::MESSAGE TYPE CODE

CZR6 IFO UNIBUSS RK6 DR_PRT2

CZR6IF .P11
1901
mg
1903
1904

001212
001214
001216
001220

1908
1909
1910

001230
001230
001231

1905
1906
1907

1911
191§
1913
1914

001222
001224
001226

001232
001234
001236

04~JAN-82 12:46
000000
000000
000000
000000

000000
000000
000000

000
000

000000
000000
000000

MACY11 30(1046) 04-JAN-82
APT MAILBOX-ETABLE
SFATAL:
STESTN:
$PASS:
SDEVCT:
SUNIT:
$MSGAD:
$MSGLG:

1915

1917
1918
1919

i
i
‘

1920

1921
1922

001240

001241

000

001242

000000

1928
1929

1930

001244
001245

1931
1932

001246

000
000

001250
001251

000000

001252

000000

001256
001260

000000
000000

001264
001266
001270
001274
001276
001300
001302
001304
001306
001310
001312
001314

1936
1937

1938

1939
1940
1941
mg

1943
1944
1945
1946
1947
1948
1949
1950
1951

195;
195
1954

1955
1956

AENV
AENVM

ASWREG
AUSWR
ACPUOP

$74MS1: .BYTE

SMTYP1: .BYTE
I

AMAMS]

AMTYP1

001254
001255

001262

001272

001314
001316
001320

.WORD

AMADR1

$MAMS2: .BYTE
SMTYP2: .BYTE
SMADR2:

.WORD

AMAMS2
AMTYP2

SMADR3:

.WORD

$SMADRG:
SVECT1:

.WORD
.WORD

177440
000000
000000

$SBASE:
$DEVM:
$CDW1:

000000
000000
000000
000000
000000
000000
000000
000000

$ODW0:
$DDW1:
$DDW2:
$DDW3:
$DDWe:
$ODWS:
$DDW6:
$ODW7:
$ETEND

177440
oooz1o

ABASE=
RKVEC:

000
000

000000
000000

g
172 40

SEQ 0038

;;FATAL ERROR NUMBER
;:TEST NUMBER
::PASS COUNT
;;DEVICE COUNT
;170 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
11/04=01, 11/05-02 11/20=03,11/40=04,11/45=05
BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT

;:HIGH ADDRESS.M.S. BYTE

::MEM. TYPE BLKA1
MEM.TYPE BYTE
==

(MIGH BYTE)

900 NSEC CORE=001
300 nsec BIPOLAR=002

i
$SMADR1:
v

000
000

n3
PAGE 39

11/70=06.PDA=07,0=10

i
i

1925
1926
1927

1934
1935

.WORD
.WORD
.WORD

AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

1923
1924

1933

.WORD
.WORD
.WORD

SETABLE:
SENV:
.BYTE
SENVM: _BYTE
$SWREG:
SUSWR:
$CPUOP:
T
I

1916

.WORD
.WORD
.WORD
.WORD

13:04

AMADR?2

500 NSEC M0S=003
;:HIGH ADDRESS,BLKA1
:
3
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF “‘TYPE'*
ABOVE

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

;;MEM.LAST ADDhcSS.BLKA2

SMAMS3: .BYTE ~ AMAMSS
SMTYP3: .BYTE
AMTYP3

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

SMAMSL: .BYTE
SMTYP4: .BYTE

AMAMSG
AMTYP4

::MIGM »oasss.n S.BYTE
::MEM.TYPE ,BLKA

SVECT2:

AVECT2

$CDW2:

MEXIT

RKPRI:
PKS:

AMADR3

..nen LAST ADDRESS,BLK#3

AMADRG
AVECT1

;:MEM.LAST Aponsss.su.m
;:INTERRUPT VECTORA1.BUS PRIORITYA1

.WORD
.WORD
.WORD

ABASE
ADEVM
ACDW1

::BASE ADDRESS OF EQUIPMENT UNDER TEST
;:DEVICE MAP
::CONTROLLER DESCRIPTION WORDA1

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

ADDWO
ADDW!
ADDW
ADDW
ADDW&
ADDWS
ADD
ADDW

;;DEVICE
;;DEVICE
::DEVICE
::DEVICE
;;DEVICE
;:DEVICE
::DEVICE
::DEVICE

.WORD
.WORD

177440
210
PRS
172540

ACDW2

::INTERRUPT VECTOR#28US PRIORITYA2

;:CONTROLLER DESCRIPTION WORDA?2

DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR

WORD#0
WORDA1
WORDA
WORD#
WORDA%
WORD#S
WORD#
WORD#

:DEFAULT BUSS ADDRESS
omuu coumouen INTERRUPT VECTOR

*PRIORITY
*P=CLOCK STATUS REG

172542
172544
177546

VO NONVESS
NN —=00

172542
1 72 544
1 77 546

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

LCVEC:

1 82
1

sL.=CLOCK INTERRUPT VECTOR
sP=CLOCK INTERRUPT VECTOR.

LKS:

PCVEC:

MEMVEC= 1 14
MEMBAS= 1 72100

sMEMORY PARITY VECTOR
sMEMORY PARITY OPTION CSR _START ADDR

000000
000000

PARAM:
0
FTITLE: 0

;1 FOR 220 START, NO DEFAULT
sFLAG FOR PRINTING OUT 1ST PROGRAM TITLE

000000

DRVPTR: 0

:CONTAINS THE POINTER TO THE DRIVE FLAG

000000
000000

FRCYL:
TOCYL:

CCYL:

PCYL:

*FROM CYLINDER

0
0
0

:T0 CYLINDER
*CURRENT CYL, USED IN N SQUARE TEST
*PREV CYL.,
USED IN N SQUARE TEST

1366

000000

402

000000
000000
000000
000000
000000
000000

0
0
0
0
0
0

222
N

HZ:

*CALC 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
o

000074

:PC FOR MEM CHECK ENABLE TRAP

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

CALDIF: 0
CYLDIF: 0
CYLADD: 0
CALADD: 0

1
10.

;60 FOR 60 CPS
;50 FOR 50 CPS
sLOADED TO 50 OR 60 TO COUNT TO 1 SEC
sOR ANY OTHER NUMBER TO COUNT OFF FRACTIONAL SECOND
sSECOND COUNTER
sFLAG TO INDICATE TIME IS UP
sSECTOR COUNT
sPREVIOUS SECTOR
sEXPECTED SECTOR
sSECTOR COUNT, RIGHT JUSTIFIED FROM RKMR3
s TIMECUT CONSTANTS

50.
500.
100.

5000.
50000.

DO
WWRININ

WN)
-

23838338

63.
}g{.

sCYLINDER NUMBERS USED IN
: CURRENT CROSSOVER TEST FOR RKO06

gSS.
19.

383.

CYL?:

001177

127.

555.
83.
511,
639.

:FOR RKO7

~Nis
s

SEQ 0039

lalal

N 3
PAGE 40

PKSB:
PKRB:

1364

BBBBES

APT MAILBOX-ETABLE

13:04

000114
172100
000000

000000
000000
000000
000000
000000
000000

88383 $8888% 8888888 838888 8 8

22323
b =
b
d
e
e
D e
b
d e
d
b
b d
b
—

04-JAN-82

VIV

33 2588 BR2R SRR AR P EERIR2838

D i
-

b cslh

b acd o

i i D e

000100
000104

MACY11 30(1046)

TM -

IBUSS RKé DR _PRT?2
04=JAN-82 12:46

ooy

lalal
NN

h o

04=JAN-82

MACY11 30(1046)

APT MAILBOX-ETABLE

001377

001452
001454

000000
000000

Wwh1:
wD2:

001456

000000
000000

sACTUAL HEADER/DATA WORD
sEXPECTED DATA WORD

OFFERR:

sSET WHEN WRITE CHECK ERROR ON OFFSET

HEAD:

0
0
0
0
0
0

sHEAD NUMBER
:HEAD # FROM H.B3, RT. JUSTIFIED
:SHIFTED HEAD# FOR FORMATTER ROUTINE

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

DPAT1:

1
7

2O
OO

000000
000000

WORD:
:
HDWD

0
0

000000

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

DPAT2:

Nedaded
oo

Y LY

SEQ 0040

0
0

HDTAB:
RHTAB:
SRTTAB:

.BLKW 66.
.BLKW 66.
.BLKW 66.

BSE20H: .BLKW 256.
BSE22H: .BLKW 25 6.
BSE20S:
256.
BSE22S: «BLKW
ng.
RDTAB:
.BLKW 25
UNLD:

BADHDR: 0
:
HPEND

A RV LV LV LV BV LV

B 4
PAGE

001450

13:04

;FORMAT TYPE
sSHIFTED FORMAT FOR FORMATTER ROUTINE
sWORD COUNT

sHEADER/DATA WORD
;HEADER WORD FROM RKDB
]

s CANNOT READ BSE INFO WHEN SET
LIHIT DETECT ERROR FLAG

;SET TO 1 TO BYPASS CKCERR IN 'GSTAT1'

;WORDS TO BE TESTED

sCALCULATED HEADER WORD TABLE

sFILLED AFTER READ HEADER CMD

:ABOVE RHTAB SORTED STARTING FORM

:SECTOR 0 BY SORT ROUTINE
:20 SECTOR HARDWARE BSE INFO
;22 SECTOR HARDWARE BSE INFO.
:20 SECTOR SOF TWARE BSE INFO.
;22 SECTOR_SOF TWARE BSE INFO.
sFILLED AFTER READ DATA CMD

sSET TO 0 IF
sSET TO 1 IF
:SET TO O IF
sSET TO 1 IF
:SET TO O IF
sSET TO 1 IF

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

;THE ABOVE 3 FLAGS ARE USED
:BY 'STOP' ROUTINE TO BRING
sTHE CPU TO A VALID HALT.

002
020
200

004
040

ATTN:

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

:ATN 0-7 RESP.

CZR6IFO UNIBUSS RK6é DR PRTZ
CZROIF.PN
04-JAN-82 12:46

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P11
04=JAN=-82 12:46

2069

007354
007356
007360
007362

2080
2081

2087
2088

007370
007372
007374
007376
007400
007402
7404
007406
007410

2091
2092
2093
2094
g%

007412
007414
007416
007420
007422

2078 007
2079
007

2085

2090

000000
000000
000000
000000

0
0

00000
000000
00000
000000
00000

TEMP1:
TEMP2:
TEMF3:
TEMPG:
TEMPS:

0
0
0
0
0

000000
000000
000000
000000
000000
000000
000000
000000
000000

HER
HASOF:
HDC
HDB
HMR1:
HMR2:
HMR3:
HPOS:
HPAT:

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

0
0
0
0
0
0
0
0
0

: TEMPORARY STORAGE.

*THE FOLLOWING ARE HOLDING REGISTERS FOR MSGA(0-3) & MSGB(0-3).
007424
007426
0074%0
007432
007434
007436
007440
007442

000000
000000
000000
000000
000000
000000
000000
000000

H.A0:
H.B0:
H.A1:
H.B1:
H.A2:
H.B2:
H.A3:
H.B3:

0
0
0
0
0
0
0
0

:THE FOLLOWING ARE 'EXPECTED' REGISTER FOR THE ABOVE.
007444
007446
007450
007452
007454
007456
007460
007462

000000
000000
000000
000000
0

000000

%}}3

2121
212§
5}5‘

0
O
0
0

HDA
HDS

5}83
2110
2111
2112
2113
2114
2115
2116
gm

’

HCS1:
HCS2:
HWC:
HBA:

000000
000000

%8317;
2099
2100
2101
2102
2103
2104
2105
5}39

C &
PAGE 42

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

2074
2075
2076
2077

2083

13:04

2070
%8;1

207

MACY11 30(1046) 04-JAN-82
APT MAILBOX-ETABLE

E.A0:
E.B0:
E.A1:
E.B1:
E.A2:
E.B2:
E.A3:
E.B3:

0
0
0
0
0
0
0
0

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

00001
000002
000004

T.A2=B1T0
r.a§=sm
T.83=BIT2

:TEST MSG A2 IF SET

SEQ 0041

04-JAN-82 12:46

OV NOWVISWNN=OVY

04-JAN-82

APT MAILBOX-ETABLE

13:04

D 4
PAGE 43

:ALL THE FLAGS BELOW ARE CLEARED INITIALLY BY THE CLRFLG ROUTINE.
007464
007466
007470
007472
007474

000000
000000
000000
000000
000000

NOWVESS

NN
-

P11

MACY11 30(1046)

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
sFLAG = SET WHEN PROGRAM LOADED BY PAPER TAPE
sCONTAINS THE NUMBER OF DRIVES PRESENT

sTHE FLAGS BELOW ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE
:IS PRESENT AND IS TO BE TESTED.
007476
007500
007502
007504
007506
007510
007512
007514

000000
000000
000000
000000
00000
000000
000000
000000

DRIVO:
DRIV1:
DRIV2:
DRIV3:
DRIV4:
DRIVS:
DRIV6:
DRIV7:

0
0
0
0
0©
0
0
0

sFLAG SET TO 1 WHEN DRIVE O PRESENT
sFOR DRIVE 1
;FOR DRIVE 2
:FOR DRIVE 3
sFOR 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

latlal

VOO

—

oo
— e

)

D e

)

d e

[LSLSTS TSN NSNS ST ST NS ST NTSTNTNTNT ST NS STNTS TN

lalal

UNIBUSS RK6 DR _PRT2

RGN 28

R AR AR 2B IS INANANIIZEISSR

oo\ VYNNIV
W
=0V
NN
WA -

v
ol S8R
OEOOO
R

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

E &
PAGE 44

SEQ 0043

ERROR POINTER TABLE

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

'LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

s ;POINTS
:;POINTS
:sPOINTS
::POINTS
007526

TO THE
TO THE
TO THE
TO THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTB:

046405
052041
054124
054726

046624

sERROR 1

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

JERROR 2

;DETECTED MDS

;ERROR 3

;ERROR 4

;ERROR 5

;DETECTED UFE

EM7
DH1
DT1

sDETECTED DRA & NED RESET (WRONG PORT SELECTED?)

;DR NOT PRESENT BUT SPECIFIED BY OPERATOR

sABORT TEST, COULD NOT REFERENCE CONTROLLER REGISTER

TM~

—

nororoNONON OLSUS LSS TN LS DS LN S DN LSRN LN LS TS NN TS TN N NSNS LS DS LN LS OSTNTS OSSN S OSSN USTNT NS OSTNT ST ST NS ST N
D o o e e ) D D o D D
D d D D D e o D d D o d
ooIND = ch e b o o d cd o o e o eh e o cd d o cd e e e e e

[ala]

FO UNIBUSS RK6 DR PRTZ
L1
04=JAN-B2 12:46

SR 9392 $RS%
wviwviwnies

;ERR N

:ERR 12

:ERR 13

055056
047630
052774
054124
055056
047234
053154
054124
055056
051016

;ERR 14

;ERR 15

F
&
PAGE

SEQ 0044

;DRA & NED BCTH SET

DT
DF1

EM12
DH27
DT
DF10

:NO _RDY
sAFTER WRITE DATA CMD

EM21
DH27
DT1
DF10

;CERR SET

EM12
DH26

:NO_RDY
;AFTER READ DATA CMD

EM21
DH26
DT
DF10

;CERR SET

DT1
DF10

:NO RDY

sAFTER WRITE CHECK CMD

;ERR 16

;ERR 17

~N -

2220

sERROR 10
EM11
DH1

OOO?
OCOO00 OO00O0 OO0
vl
v \h\hkfl,\h v

b e

cd o

VNS WN=O

NINININININI
NN NI NI NN
NN

2209

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

;ERR 20

JERR 21

;ERR 22

sWRITE CHECK ERROR SET
sAFTER WRITE CHECK CMD

sWRITE CHECK CMD NOT FUNCTIONING
sWITH INTENTIONAL MISCOMPARE

sREAD DATA NOT COMPARE WITH WRITE DATA
sAFTER READ DATA CMD

;DATA CHECK ERROR

;CERR SET

sAFTER WRITE CHECK CMD

(el

CZR6IFO UNIBUSS RK6 DR_PRTZ2
CZROIF.PN
04=JAN-82 12:46

CZR6IFO UNIBUSS Rk6 DR PRTZ
CIROIF.PI1
OboJAN-82
1

2263
5564
5565
5566
5567
5568
5569
5570
5571
5572
557%

007746
007750
007752
007734

047545
053024
034462
055206

007756
007760
007762
007764

(47630
052644
054124
055056

5578
5576
5577
5578
5579
5580
5581
5582
558%
5584
5585
5586
5587
5588
5589
5590
2291
5502
5505
2294
5595
5506
5507
5508

007770
007772
007776

053024
054462
035206

007776
010000
010002
010004

047545
052774
0354462
0355206

010006
010010
010012
010014

050057
052566
054124
055056

010016
010020
010022
010024

0467607
052774
0354462
0355206

010026
010030
010032
010034

047545
053154
054462
055206

5301
5302
5305
5304

010040
010042
010044

053154
054462
055206

5307
5308
5309

010052
010054

054124
055056

5311
5312
5315
5314

010060
010062
010064

052724
054124
055056

5318

010074

5574 007766 047607

2800 010036 047607

8 nog o

5310 010056 047272

38
010058 045785
5317 010072 054462
055206

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

:ERR 23

EM18
DH27
DT33
DF
21
;ERROR 2¢
EM21
DH31
DT
DF10
:ERR 25

EM20

:ERR 26

DH7
DT13
DF 27
EM18
DH26
DT13
DF 27

:ERROR 27
EM24
DH19
DT1
DF10
-ERR 30
EM20
DH26
D113

:ERR 31

.
:ERR 33

:ERR 36

:ERR 35

G &
PAGE 46

:MSG B0 ERROR
AFTER WRITE DATA CMD

:CERR SET
*AFTER SCLR

:MSG
B1 ERROR

:AFTER READ DATA CMD

:VOL VALID NOT SET
AFTER PACK CMD

:MSG B1 ERROR
JAFTER READ DATA CMD.

DF 27

EM18
DH32
DT1%
DF 27

:MSG BO ERROR
AFTER WRITE CHECK CMD

MSG B1 ERROR

EM13

:NO ATTN

MY
DT13

SR8 SPFSET covwe

DH32
D113
DF
21

DT
DF10

DH2%
DT
DF10

DF 27

SEQ 0045

UNIBUSS RK6 DR _PRT2

P11

04=JAN-82 12:46

010076
010100
010102
010104

04756
05373
054462
055206

010106
010110
010112
010114

047566
052724
054462
055206

MACY11 30(1046)

04=-JAN-82

ERROR POINTER TABLE

;ERR 36

;ERR 37

:ERR 40

13:04

PAGE 47

EM19
DH53
DT13
DF21

:MSG A1 ERROR

EM19
DH24
pDT13
DF21

:MSG A1 ERROR
JAFTER OFFSET CMD

SEQ 0046

—

W
OO
PIRIIIIISISY NN NN NNWN
wwwu
W
—
RNVS
S -,
viviunnaiuown
W
WA
=OVRNOVSWN
OO

WWWWWW

>
NN
NN
NINONNONON

UN IBUSS RK6 DR_PRT?2

P11

04=JAN-82 12:46

MACY11 30(1046)

04-JAN-82

ERROR POINTER TABLE

13:04

I &
PAGE 48

010116
010120
010122
010124

047607
052724
054462
055206

EM20
DH24
DT13
o &1 DF21

:MSG B1 ERROR

0101%6
010130
010132
010134

047314
052232
054164
054742

EM14
DH8
DT3
ERR 42 DF2

JUNEXP MEM PCRITY TRAP
JTEST #, TRAP PC

010136
010140
010142
010144

050532
052724
054542
055242

EM4T
DH24
DT14
DF22

0190146
010150
010152
010154

051321
052672
054124
055056

010156
010160
010162
010164

047352
052041
054124
054772

EM15
DH1
DT1
—— DFé

JWCE AT CYL 411,TRK 2, SEC 21

010166
010170
010172
010174

051321
053650
054124
055056

EM8S
DH51
DT
— DF10

JOFFSET BIT IN RKMR2 CLEARED
JAFTER SEEK TO SELF

010176
010200
010202
01

050112
053024
054124
055056

EM25
DH27
DT1

010206
010210
010212
010214

050425
052542
054542
055242

010216
010220
010222
010224

050474
052542
054542
055242

010226

051463

010236
010240
010242
010244

047524
053024
054462
055206

010230
010232
010234

052751
054416
055162

010246 047566

;ERR 43

sCYL ADDR IN B2 DID NOT REMAIN CLEARED

EM8S
DH22
DT
———— DF10

JERROR 47

EM39
DH17
DT14
DF22

JERROR 50
EM40
DH17
DT14
. DF22

E
;ERR 52

;ERR 53

sDETECTED 10 BAD SECTORS
JAFTER WRITE DATA CMD.

sCYL DIFF/OFFSET IN RKMR2 NOT CLEARED
JAFTER RECAL CMD

;CYL ADDR IN RKMR3 NOT CLEARED
sAFTER RECAL COMD

EM93

JWRONG CYL# IN HEADER WORD (MISPOSITION)

EM17
DH27
DT13
DF21

;MSG A0 ERROR
JAFTER WRITE DATA CMD

EM19

;MSG A1 ERROR

DH2S
DT9
DF20

;AFTER SEEK CMD

SEQ 0047

CZR6IFO UNIBUSS RKé DR PRTZ
CIROIF.PI1
Ob=JAN-82 12:4
2386
5387
5388
5389
5390
5391
5392
5395
5304

010250
010952
010254

053024
054462
055206

010256
010960
010962
010264

047524
052774
034462
055206

539
5397
5398
2399
5400
5401
5402
5405
5404
2405
2406
5407
5408

010370
010372
010574

052543
034124
035056

010276
010300
010302
010306

0467566
052774
034462
055206

010306
010310
010312
010314

047524
053154
034462
035206

5410
5411
5412
5415
5414
54615
5416
54617
5418
2419
5420
5421
5452
5455

010316
010320
010332
010394

047566
053154
034462
055206

010326
010330
010332
010334

0467545
053737
054462
035206

010336
010340
010342
010344

0467607
053737
034462
055206

5456
5437
5458

010350
010352
010354

053024
034124
035056

5431
5632
5435

010360
010362
010364

053765
054124
035056

5436
5437
5438

010370
010372
010376

052041
054124
03476

5440
5441

010376
010400

5395 010266 0467272

2409

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

:ERR 54

:ERR 57

:ERR 60

:ERR 61

:ERR 62

EM17
DH26
D13

:NO ATIN

EM19
DH26
DTi3
DF 27

:MSG A1 ERROR

EM17
DH32
DT13
DF 21

:MSG A0 ERROR
JAFTER WRITE CHECK CMD

EM19
DH32
DT1S
DF 27

:MSG A1 ERROR

EM18
DH53
DT13
DF 21

:MSG BO ERROR
“DURING OFFSET CMD

EM20
DHS3
D113
DF 27

:MSG B1 ZRROR

DH17
DT1
DF10

ERR 63 e

2450 010356 051422

JERR 64 s

2438 010366

2439

000000
000000

DH2?
DT
DF10

:ERR 66

:MSG AO ERROR
AFTER READ DATA CMD

Sa%s 010346 050164

050243

SEQ 0048

DH27
DT13
DF
2

:ERROR 55

:ERR 56

&
PAGE 49

DH54
DT1
DF10

DHI
DT1
DF1
0
0

AFTER RECAL CMD

BSE ERROR IN WRITE CMD NOT
N

AFTER WRITE DATA CMD

ON BSE

TABLE

DID NOT FIND SECTOR O FROM INDEX

AFTER FORMAT CHANGE AND READY REC'D

DETECTED BSE IN READ BUT NOT IN
N

)

WRIT

N WRITE

CMD.

&N
nNOON

;ERR 73

v R RRRR R R 2
8 & NIS& R R o
o

055056

s s 2328 &R

O0O

047652
052041
054124
054726

;ERR 75

EM13
g¥}0

;ERR 100

:NO ATTN
;AT END OF HEAD LOADING

DF10

EM22
DH1
DT1
DF1

sNO DRIVS IN SDEVM

EM23

sNO DRIVS ON BUSS

DH1
pT1
DF1

O00O0
O000
OO0

;ERROR 7

OOO0OONOOO0O

:ERR 71

OO0OO0O0

b
odabdadad
edobadad

O00O0

;ERR 67

;ERROR 7

odadabdad

O000

wbledabded

O00O0

edodeded

O000

wbdadleded

OO0O00

K &
PAGE 50

JERR 74

cdodaded

O00O0

wdedaded

OO0O0O0

ebledebad

O000

cdebeded

OO000

OO0

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

OO0O0O0O0O0OO0O

000000

RRRR RRRR RKRRR B
zEe2 22 R
S8 FRER NS> =nol R

000000
000000

010402

O0O0O0

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

0
0
0
0
0

0
0
0
sERROR 1 01
EM94
DH47

sOFFSET NOT CLEARED
JAFTER READ HEADER WITH MOVEMENT

SEQ 0049

CZR6IFO UNIBUSS RK6 DR _PRT2
CZROIF.PIN
04~JAN-82 12:46

2498
2499
2500
2501
2502
%ggz

010534

055242

010536
010540
010542
010544

051600
053024
054124
055056

2505
2506
2507
%ggg

010546
010550
010552
010554

051600
053154
054124
055056

2510
2511
2512
gg}z

010556
010560
010562
010564

050425
054063
054542
055242

2515
2516
2517
gg}g

010566
010570
010572
010574

050474
054063
054542
055242

2520
2321
2522
%ggz

010576
010600
010602
010604

051634
052041
054124
054726

2525
2526
2527
gggg

010606
010610
010612
010614

051665
053024
054124
055116

2530
2531
2532
%ggz

010616
010620
010622
010624

000000
000000
000000
000000

2535
2536
2537
52;8

010626
010630
010632
010634

000000
000000
000000
000000

2540
2561
256§
ggz‘

010636
010640
010642
010644

051752
053024
054170
055032

2545
2546
2547
2223

010646
010650
010652
010654

050362
053024
054170
055032

551

010660

052724

%SSO 010656 051364
255;
2553

010662
010664

05454
05524

MACY11 30(1046) 04=JAN-82 13:04
ERROR POINTER TABLE
DF22
sERROR 102
EM9S

:ERR 103

DH27
DT
DF10

EM9S
DH32
DT1

;ERR 104

;ERR 105

;ERR 106

;ERR 107

L &
PAGE

SE@ 0050

sFORMAT NOT SET

JAFTER WRITE DATA CMD

sAFTER WRITE CHECK CMD

DF10

;OFFSET NOT RESET
sAFTER WRITE CMD WITH OFFSET

;CYL ADDR NOT 0

;CANNOT FIND SECTOR 23(8)

sHEAD SWITCHING TOO LONG
;AFTER WRITE DTA CMD

;ERR 110

;ERR 1N

:ERR 112

;DRIVE OFF TRACK SET

sAFTER WRITE DATA CMD

;CYL ADDR IN RKMR3 INCORRECT

;OFFSET IN A2 NOT = RKASOF
sAFTER OFFSET CMD

P11

04=JAN-82 12:46

MACY11 30(1046)

04-JAN-82

ERROR POINTER TABLE

;ERR 115

010666

051364

010672
010674

054542
055242

010676
010700
010702
010704

047234
052566
054124
055056

DT14
DF22
JERROR 116
EM12
DH19
DT
DF10

010706
010710
010712
010714

047234
052611
054126
055056

EM12
DH20
DT
DF10

010716
010720
010722
010724

047234
052644
054124
055056

010726

047234

010736
010740
010742
010744

052007
053075
054542
055242

010746
010750
010752
010754

051364
053650
054542
055242

010670

010730
010732
010734

052672

052253
054124
055056

8}8;28 8?5%23

010762
010764

054124
055056

8}8;98 829555
010772
010774

054124
055006

010776
011000
011002
011004

050775
051230
054124
055006

011012
011014

054124
055006

011006 046624
011010 0512§0

EMB6

DH2?2

:ERROR 117

13:04

PAGE 52

sAFTER DRIVE CLEAR CMD

;CONT NOT RDY
:AFTER PACK CMD

;CONT NOT RDY
sAFTER SEL DR CMD

;ERROR 120

EM12
DH21
DT
DF10
;ERROR 121
EM12
DH9
DT
DF10
:ERROR 122
EM101
DH30
DT14
DF22

;ERROR 123

EM86
DHS1
DT14
DF22

JAFTER SUBSYS CLEAR

:AFTER START SPINDLE CMD

;DID NOT GO TO CYL 10
sAFTER READ HEADER CMD

;A2 OFFSET NOT = RKASOF
JAFTER SEEK TO SELF

;ERROR 124

:ERR 125

:ERR 126

5315

Eflif

:SL?LEELAITING
FOR OR REC'D
CONTR RD Y. MSG
SG AEBAEB BAD
3
.

EM7
EM84
DT
DFS

JNED SET

DT
DF1

pT1
DFS

s 127EHS
EMB4
pT

;ERROR 1555

AFTER RECALL CMD

MDS SET

SEQ 0051

(alnl
NN

UNIBUSS RK6 DR_PRT2

NN =
WWN

055056
047272

Db
oo~
hedadwd
e
CDadedod
NN
=
bbbl
W
SO

e
b ad

;ERROR 132

:NO ATTIN

;ERROR

:ERROR

£~

—_

sERROR

OOO

o
o

:NO RDY

;ERROR 133

o o
o
o
o e
d e
D
el
o
o
o
e

SEQ 0052 |

sAFTER SEEK CMD

d
d
d
e
o
d
o
e

:ERROR 1%1

000000
000000
000000
000000

N &
PAGE 53

000000
000000
000000
000000

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

e
d

OOO0OO0
—_

OCO0O0

OO000

OO0O00

OO000

OO00

OO00O0

O00O0

OO0OO0OO0

oOOoOo

S22R RR ga =leleleNelelele]
NNN g K2
&NO§
nNOON SNOON SO gNOO‘ SHrNooo

IBUSS RKé6 LR _PRT?2
04-JAN-82 12:46

;ERROR 137

sCYL DIFF/OFFSET IN RKMR2 NOT CLEARED

:MSG A0 ERROR

sAFTER SEEK TO SELF

OO000
b ed) D
e

O0O00
b amd ) b
e B e ek

OO00O0
o ek e
md e}l e

OO00O0
D e} i h B
P e R ey

OO0OO0O0
— e D b
—_— b b

O00O0
P e
P
e e 3

OO00O0
b eh et b
P
ey

o©Oo O
— d d
pE Yey

053650
054462
055206

OOO0O
— b B D
P
e Yy

000000
000000
000000
200000

O00O0
— D h
kel ek d

000000
000000
000000
000000

OO00O0
b b
2
e
e

000000
000000
000000
000000

—_

;ERROR
—_—

;ERROR
b

:ERROR
s

sERROR
—

;ERROR

sERROR

—

;ERROR

—

DT13
DF21

;ERROR 1

;ERROR

OOVOOOOWMOD
DO
MUNOOOOWNOOOOWNDOOMWN =lelelelllelelelel
Jelelelef Jolelelel Jolelele P o
o
W
VM-I
NN
IT o
v
~
o
P
Y1)
- b ) —2
S
NOwWn
o
o

sERROR

o
o
o
o
=4
o

SN JVVR RRRZ AANE DRRG I DONS SSSe SODY INNR Coow v

wno

OO0
b ey
— s

A A S L LS S LS S LN LY
NNNNNNNNNY
PONY =2 =2 =3 —5 —3 =2 —2 —b
= OV
IS
N

—>

IBUSS RK6 DR _PRT2
04=JAN-82 12:46
MACY11 30(1046) 04=JAN-82 13:04
ERROR POINTER TABLE

B 5
PAGE 54

:NO _RDY
sAFTER CLEAR CMD

sATTN NOT CLEARED

SEQ 0053

N
W

W
oW
OO

WWWW

W
~
o

-3

nNOON

3 b e s

cdedaded
cdededed

— ke

OO0O0O0

)

OO00O0

edededed
b ed

OO0

edededed

—_— b

QOO

;ERROR 1%7
;ERROR 160

sJERROR 1

—2

000000

;ERROR 162

;ERROR 163

0
;ERROR 184

;ERROR 185
0

PAGE 55

SEQ 0054

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

(=l=elale Jolalelele Jolelelal. Jolelele]

g 2
SO

WWW
g

000000
000000
000000

SNNOON

VNN
WWWND

000000
000000
000000
000000

WWULIW

000000
000000
000000
000000

OO00O0

000000
000000
000000
000000

bbb
ed

SN0

- ed

000000
000000

OO0COo

R Y g

cdadadad

OO00O0

— oy

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

CZR6IFO UNIBUSS RK6 DR _PRT2
CIROIF.PI1
O4=JAN-82 12:46
2778
5779
5780
5781
5782
5785
5784
5785
5785
5787
5788
5789

2790
5791
5792
5795
579
5795
5796
5707
5798
5799
5800
5801
5802
5805
5804
5805
5806
5807
5808

011372
011376

000000
000000

011376
011400
011402
011404

000000
000000
000000

011406
011410
011412
011414

000000
000000
000000

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

;ERROR 170

011416
011420
011432
011434

000000
000

011426
011430
011432
011434

047234
053075
054124
035056

011436
011440
011442
011444

000000
000000
000000
000000

011446
011450
011452
011436

050633
053075
054124
035116

011456
011460
011462
011466

047630
053075
034124
035176

011466
011470
011472
011474

050425
052326
034124
035056

5852
5855
585%
5895
5856
5857
5858
5859

011500
011502
011504

052326
034124
055056

011506
011510
011512
011514

000000
000000
000000
000000

DH10
DT1
DF10
:ERROR 177
0
0
0
0

5831
5832
5835

011516
011520
011532

046723
053906
054124

EM12
DH39
DT1

5809

5810
5811
5812
5815
5812
5815
5816
5817
5818
5819

285) 011476 050474

58350

D 5
PAGE 56

0
0
0
0
:ERROR 171
EM12
DH30
DT1
DF10
-ERROR 172
0
0
0
0
-ERROR 173
EM63
DH30
DT1

DF15
-ERROR 174
EM21
DH30
DT1
DF15
:ERROR 175
EM39
DH10
DT1
DF10

el «

:ERROR 200

:NO RDY
AFTER READ HEADER CMD

:DLT SET

:CERR SET

:CYL DIFF NOT CLEARED
AT END OF HEAD LOADING

CYL ADDR NOT CLEARED

:NO RDY
AFTER WRITE HEADER CMD

SEQ 0055

bl
dededed

cdededed

OO0O0O0

NOON

ooooOrO
SNO

ONONOM
N

O NNY

wbladladed

Dededed

OO000

ol
A A R L

odaladed

Dededed

OOO0O0
Y LV IV AV

wladadead

Dededed

OO0O0O0
Y LV LV LV

cdabdadead

cdededed

OCOO0O0
Y LV LV IV

cdadaded

cDdedadad

OO0O0O0
RV [V IV 1V, ]

;ERROR 206

;ERROR 207
EM36
DH25

055032

047630

055056

000000
000000
000000
000000
(=lelelelelelelelel

0
0

;ERROR 204

(=l=lelelele]

N
£

pay

pry

obadadad

b adadad

OO0OO0OO

8 KO8 MNS& RRBE FR3& FRse rR8R

dedaded

Dededed

OO0

000000
00

l=lelele]

SNOON

NN
=

dedaded

cdededed

OO0OO0O0

0000
000000

;ERROR 212

;ERROR 213

OOO0O—=O0000

~NO

o
W

eHdededed

cdededed

OO00O0

? §22 &

dededed

OOO0O0

CZR6IFO UNIBUS S RKé6 DR_PRT2
CZR6IF.P1
04~JAN-82 12:46

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

DF15
;ERROR 201
EM

;ERROR 202
EM65
DH1
D17
DF1

DT4
DF6

;ERROR 210

EM21
DH25
DT1
DF10

;ERROR 211

E
PAGE 57

;CERR SET

DF15
sREAD HEADER ERROR

;ERROR 283

;ERROR 205

;CYL ADDR IN RKMR3 INCORRECT
sAFTER SEEK CMD

;CERR SET

SEQ 0056
TM~

2890

2891
2892
2893
2894
2895
2896
2897
2898
2899

011656
011660
011662
011664

000000
000000
000000
000000

011666
011670
011672
011674

000000
000000
000000
000000

2901
2902
2903
2904

011676
011700
011702
011704

000000
000000
000000
000000

2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924

011706
011710
011712
011714

00000
000000
000000
000000

2900

2905

011716
011720

011722
011724

000000
000000

011726
011730
011732
011734

047524
052542
054462
055206

011736
011740
011742
011744

047566
052542
054462
055206

2926
2927
2928
2929

011746
011750
011752
011754

000000
000000
000000
000000

2931
2932
2933
293,
2935
2936
2937
2938
2939

011756
011760
011762
011764

000000
000000
000000

011766
011770
011772
011774

000000
0000
000000
000

2941
2942
2943
2944
2945

011776
012000
012002
012004

047234
052774
054124
055056

2925

2930

2940

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

F 5
PAGE 58

;ERROR 214

0
0
0
0
;ERROR 215
0
0
0
0

;ERROR 216
0
0
0
0

:ERROR 217

0
0
0
0
:ERROR 220
0
0
0
0
:ERROR 221
EM17
DH17
DT13
DF
21
:ERROR 222
EM19
DH17
DT13
DF21

:MSG AO ERROR

:MSG A1 ERROR

;ERROR 223
0
0
0
0

;ERROR 224

0
0
0
0
:ERROR 225
0
0
0
0

:ERROR 226

EM12
DH26
DT
DF10
;ERROR 227

:NO_RDY
AFTER READ DATA CMD

SEQ 0057

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

012016
0120%0
012022
012024
012026
012030
012032
012034
012036
012040
012042
012044

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

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

;ERROR 232

EM16
DH42
T
DF1 7

s CANNOT READ 25 E 1l NFO
;ON SECT 0,2,4.6.8

;ERROR 234

EM16

DH43

DT1
DF17

;ERROR 235

012066
012070
012072
012074

054124
055056

012076
012100
012102
012104

000000
000000
000000
000000

012106
012110
012112
012114

000000
000000
000000
000000

012136

G 5
PAGE 59
;CERR SET

;ERROR 233

012056
012060
012062
012064

012126
012130
012132
012134

RROR POINTER TABLE

13:04

0
0
0

012046
012050
012052
012054

012116
012120
012122
012124

C4=JAN-82

EM69
DHé44
DT
DF10

;ERROR 236
0
0

OOOOWO

012006
01201g
0]%01
072014

MACY1 38(1046)

sERROR 237

;ERROR 240
o

2946
2947
2948
2949
2950
2951
295
2953
2954
2955
2956
2957
2958
2959
2960
2961
296%
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2996
2995
2996
2997
2998
2999
3000
3001

RK6 DR _PRT2
~JAN-82 12:46

PR Q2GR FRAR

CZROIFO UNIBUSS
CZROIF.P

0
0
0

;ERROR 281
0
0
0

;ERROR 242
0

sALIGN CARTRIDGE USED

sWILL BYPASS FORMAT & ALL R/W TESTS

SEQ 0058

3051
305§
305
3054
3055
3056
3057

DN
Dddd

000000
00000
000000
000000

DN
VIV

000000

sERROR 243

;ERR 245

;ERR 246

o
=1
=4
=1
=4
o

;ERR 247

;ERR 250

—

NN
DN

—3
d 3

VRN
NN

FRS&: Fuod FR8Y RRSa rvos KRS NI RRBF KR38&

NN
Dl
NN
Cdddd

050750
053275
054124
055056

NN
NN

9
34
3050

050362
052751
054350
055032

000000
000000
000000
000000

DN
NN

3042
3043
3044
3045
3046
3047

000000
000000
000000

000000
000000
000000
000000

DN
RN

012140
012142
012144

000000

SBEEEESEEEESESE8S
N

WNWWN N NN NN RO
RO RO R
—~OVBNOAVIB
NN =O VDN o VS W

300§
3003
3004
3005
3006
3007
3008
3009
3010
3011
301%
301
3014
3015
3016
3017
3018
3019
3020
3021
3022

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

256
260
262
012264

000000
000000
000000

012266

000000

000000
000000
000000

;ERR 251

;ERR 252

;ERR 253

;ERR 254

;ERR 255

H 5
PAGE 60

EM36
DH25

;CYL ADDR IN RKMR3 INCORRECT
JAFTER SEEK CMD

EM74
DHé41

sRTZ NOT SET
;DURING RECAL CMD

O O000 OO000 OO0O00 VOO0 OCOO0 OO0OO0O0 OO0O0O OOoCoO g‘

CZR6IFO UNIBUSS RK6 DR _PRT2
CZROIF.P1
04=JAN-82 12:46

SEQ@ 0059

NN
SEASS

OO0OO0O0
b} el e
NN
S

OO0OO0O0
= be D

;ERR 266

047607
053206

;ERR 270

;ERR 267
=N
—
==

EM
DH
=N
=WNO

;MSG BO ERROR
;AFTER DRIVE CLEAR CMD

;MSG B1 ERROR

ND= W=
=WNOY0

NN
W

OOO0O0
e e} D e

OO000

O000

SNOON

OO0

SNOON

NN
WWWWW
NN
=

OOO0O0
B s R Y

—NE&
N

DN
W
—

OOO0O0
—h D

;RS

DN N
NN

OC0o
B

88
VIV

DN
W
N
o
~
N
o

OO0O0O0
3 b i

;ERR 257

g N
CO0OUM
MR
OO0O0O0 O0O
—

NN
WWWWWN
N

O00O0
— e ey

SRR
T

oOoOo

:ERR 256

;MSG BO ERROR
sAFTER WRITE HEADER CMD

WD)
VO

TM—=IZD

DOUUM

;ERR 265

TM—=IIE

NOOND

JERR 264

OOUOUM

OO00
—
b D

Sen Lowae RRRY

OO0O0O0
b md b )

32 &

OO0OO0O0
B
I

;ERR 260

—~SXI2

OOMm

SEY
N
=2 -._n_ng
OO
MO
2R84

N
AR

OO0
— s

GRS 3VIRIRAR28

NN NN NN N AN N NN NN NN

3078

&
w

p—

120
o« x
o

—

o
e

sl
NN
o

n—
o~ N

o
00X

AN=-

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

I 5
PAGE 61

;MSG A0 ERROR

;AFTER OFFSET CMD

:MSG BO ERROR

:MSG B1 ERROR

SEQ 0060

s
b

NN
NV n
Pt
0 o0 S
&N
NN
oo

—ded

n NN
&

cdededed

OO0O0O0

N
~

bbbt

O000

;ERR 271

:ERR 272

:ERR 274

;ERR 275

FROR SHES BROS Suus 3

DN
NN

E M20
D H30
D T13

DF21

EM17
DH2?2
DT13
DF21

:MSG A0 ERROR
sAFTER DRV CLR CMD

EM19
DH22

;MSG A1 ERROR

E M18
D ?};
D

sMSG BO ERROR
JAFTER RECAL CMD

EM20
DH17

;sMSG B1 ERROR

0;13
;ERR 277

)

DH39

RN
NN
RN

JAFTER RD. HDR. CMD.

DF21

g&gaooo«nm\nmmmmmumab&bbbbbbbu

1
EM18
D?3g
D 1
D F1
2

DT13
DF21

;ERR 276

e
e T
e e
R
e
S
e I
e e e
YR

N O O

T
D

e e

N WA A A U U U

J 5
PAGE 62

DT13
DF21

o
N

cdedaded

OO0O0O0

edededod

B
e
e e e

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

I S

K6 DR_PRT?2
JAN-82 12:46

JERR 273

O000

o
e

22
24

e T TP

S S YU AU YR

NS S SN

aruuuWNNNNNNNNNN-l—.
Y
WN=O YV NOWVSWN=OYVRNO\WVIS:

N U NN N NN N NN N NN NN NN N N NN N NN N N N N NN N N N NN NN W W N W W

o
NN
>P

18US

:MSG_AO ERROR

sAFTER WRITE HEADER CMD

:MSG A1 ERROR

DH30

sAFT RD HDR. CMD

SEQ 0061

0 0

oo
T o

lalal
NN

0 UNIBUSS Rk6é DR _PRT2
PN
04~JAN-82 12:46

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

e b B B b e b b e

0000000000
0000 NN NNNNNNNYNO

b o b eo i

7
68

0
1

.SBTTL
012546
012554

012737
0004C2

000001

001336

g4 012556
005037 001336
012562 000005
5
6

012564
012570

012706
012746

012574

012746

012602

004737

012600

000002

PARSRT: MOV
BR

START: CLR

MoV
MoV

012602

MOV

RTI

041222

1$:

SEQ@ 0062

PROGRAM SETUP

PRGSRT: RESET

001100
000000

K 5
PAGE 63

JSR

#1,PARAM
PRGSRT

PARAM

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

PC,STKINT

;SET FLAG FOR 220 START
:START PROGRAM

;CLEAR
FOR 200 START
sCLEAR ALL INT ENABLE & INIT
sSETUP STACK POINTER
;PSW LOADED TO BE
;LSI=11 COMPATABLE

sENABLE ALL INTERRUPTS
sSETUP KB VECTOR ADDR, PRIORITY 4

;& TURN ON KB INTERRUPT

3
4

sx*x CPU PRIORITY LEVEL NOW AT 0 ##«

se%x SERVICED.

sx*x ANY DEVICE WHICH SETS ITS
sx%% INTERRUPT ENABLE BIT WILL

5
6

#ux
##«

khk

sCLOCK INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL 6 (IN 'STS5')
sRK06 CONTROLLER INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL 5 IN °"SETINT')

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

e e

89
90

i e b

95
96
7
8
3199

sKEYBOARD INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL & (SEE ABOVE)

;SYSMAC °'SETUP'
.SBTTL
INITIALIZE THE COMMON TAGS
::CLEAR THE COMMON TAGS (SCMTAG) AREA
MoV
#$CMTAG,R6
s:FIRST LOCATION TO BE CLEARED
CLR
(R6) +
:;CLEAR MEMORY LOCATION
CMP
#SWR,R6 ;;DONE?
BNE
-6
::LOOP BACK IF NO

012606
012612
012614
012620

012706
005026
022706
001374

001100

012706

001100

012626
012634
012642

012737
012737
012737

037256
000340
037536

000020
000022
000030

012656

012737

043452

000034

012672

012737

037012

000024

MOV

012706
012714
012720
012724
012732
012740

013737
005037
005037
112737
012737
012737

031604
001174
001176
000001
012732
012740

031576

MOV
CLR
(LR
MOVB
MOV
MOV

012622

012650
012664

012700

012737

012746

013746

012760

012737

012752

012737

001140

000340
000340

000340

000004

013006

177570

000032

000036

000026
001115
001106
001110

000004

001140

MOV

#STACK , SP

MOV

#SSCOPE ,a#10TVEC ::10T VECTOR FOR SCOPE ROUTINE
#340,@#TOTVEC+2 ;:LEVEL 7
WSERROR,®EMTVEC ::EMT VECTOR FOR ERROR ROUTINE

MOV

WSTRAP@#TRAPVEC ::TRAP VECTOR FOR TRAP CALLS

::xuxrxAhésf A FEW VECTORS
MOV

MOV

::SETUP THE STACK POINTER

#340,#EMTVEC+2 ;:(EVEL 7
#340,@#TRAPVEC+2;
LEVEL 7

#3PWRDN,@#PWRVEC ;:POWER FAILURE VECTOR

#340,3#PURVEC+2 ;:LEVEL 7

SENDCT,SEOPCT ~
STIMES
SESCAPE
#1,SERMAX
4. SLPADR
. SLPERR

::SETUP END-OF-PROGRAM COUNTER
::INITIALIZE NUMBER OF ITERATIONS
::CLEAR THE ESCAPE ON ERROR ADDRESS
::ALLOW ONE_ERROR PER TEST
::INITIALIZE THE LOOP ADDRESS FOR SCOPE
::SETUP THE ERROR LOOP ADDRESS

::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
::EQUAL TO A
MOV

MOV

*~1"", SETUP FOR A SOFTWARE SWITCH REGISTER.
@HERRVEC -(SP)
;SAVE ERROR VECTOR

W64 QERRVEC
#DSWR,SWR

::SET UP ERROR VECTOR

::SETUP FOR A HARDWARE SWICH REGISTER

012737
022777
001012
000403
012716
00000;
012737
012737
012637

005037
132737
001403
012737

64S$:

000176
000174
000004

65%:

001216

001231

001232

001140

012737
012737
012737
012737

000000
000000
013136
000340

000032

012701
005011
012711
012737
012737
000401

172100

WWWWWWW

000006
000006

004737
005037
005037

031724
001220
001222

CMP
BNE
BR
MOV

65%
#658, (SP)

RTI
MOV
MOV
MOV

67%:

MOV

MOV
MOV
MEMPAR: MOV
MoV

MOV
CLR
MoV
MOV
MOV
B8R

CMP

66$

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

::SET UP FOR TRAP RETURN

#SWREG, SWR

;;POINT TO SOFTWARE SWR

(SP)+ ,@#ERRVEC

;;RESTORE ERROR VECTOR

$PASS
#APTSIZE ,SENVM

..TEST USER SIZE UNDER APT

#$SWREG,
SWR

::NO,USE APT SWITCH REGISTER

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

sEMT VECTOR TO PRIORITY 0

#MEMBAS ,R1
(R1)
#1,(R1)

;ADDR OF MEM CSR
sSEE IF CAN REFERENCE
sSET ENABLE BIT IF YES
;LOAD VECTOR IF NO TIMEOUT

#DISPREG,DISPLAY

67%

#PR7 ,ERRVEC+2

#MEMERR,MEMVEC

#PR7 ,MEMVEC
+2

sCLEAR PASS COUNT

s YES ,USE NON-APT SWITCH

:TRAP VECTOR TO PRIORITY 0

;SETUP TIMEOUT VECTOR

(SP)+,(SP)+

;ADJ STACK
:TRY NEXT CSR

#2.R1

Mov

#ERRVEC+2 ,ERRVEC

JSR
CLR
CLR

PC,CLRFLG

CLR

SEQ 0063

sAND A HARDWARE DISPLAY REGISTER
,.TRY TO REFERENCE HARDWARE SWR

ADD
CMP

BNE

000004

L 5
PAGE 64

#DDISP,DISPLAY

#-1,3SWR

CLR
BITB
BEQ

3s:

000001
036714
000340

012737
005037

_n_.;
NN

66$:

000200

000002
172140

cdededaleded

MoV

013014

022626
062701
020127

deded

MACY11 30(1046) 04=-JAN-82 13: 06
INITIALIZE THE COMMON
T

177570
177777

WWW

b od o ad od el
oNwvines

WWWWWW

b NON)
od b =b =
b b b

e leTe)

NSERPDRER

W W NN W
W

wlolecdcdadlcdadaded
cdelcblcdeded

W
N
H
N

WWW
[=1=]
W
o

012766
012774
obdadadadadad

3223
3226

[=leleBieleleleleleielelelelelielelelelelelelele BNelelelelele

CZR6IFO UNIBUSS RK6 DR _PRT2
CZR6IF.P1
04=JAN-82 12:46

R1,AMEMBAS
+40
3s

ERRVEC+2

SDEVCT
SUNIT

; SEE 1F~5RIED ALL

:BR IF

;RESTORE TRAP CATCHER

;CLEAR DDUMP THRU SIZFLG

[=lelelelelelelelelele]

—d

N
~

:FIND OUT IF XXDP, ACT, APT:; CHAIN OR DUMP MODE
005737

000042

004737
123727
1011
5237

(31744
000041
007464

401

044403

137
000137
237

013250

013314
007472

START1:

000013

TST

:BR IF AUTO
:MANUAL, TYPE PROG ID

:13=LOADED BY XXDP

;SET RKO6 DUMP MODE FLAG
:REE#ACE DRO PACK W/SCRATCH & DO<CR>

;SET ACT/APT/PTP DUMP MODE FLAG

CZR6IFO UNIBUSS RK6é DR PRTZ
CZR6IF.PN
04=JAN-82 12:46

MACY11 30(1046)
04=JAN-82 13: 04
INITIALIZE THE COMMON
T

PAGE 65

ST2:

001336
013346

1$:

NN
~
~nN
W

bbedDDDehd

005737

WWWNWWWNWWWNWN

[elelelelelelelelele)

IF _NOT, BEGIN INPUT DIALOGUE
sCHECK IF ALL PARAMETERS DEFAULTED.
THE REPLY TO 'DRIVES TO BE TESTED® SHOULD BE
sWITH OPERATOR.
SEPERATED BY COMMAS £ TERHINATED BY <CR>
sDRIVE NOS.
EX:
DRIVES TO BE TESTED:
1.,2.4<CR>

000427

044661
032212

TST

BR IF 220 START

BNE
JMP
TYPE
JSR
TYPE
JSR

200 START, DEFAULT € SIZE THE BUSS

:DRIVES TO BE TESTE
:GET DR NOS.

:BUSS ADDR

;GET BA

sCONT INT VECTOR
:GET INT VECTOR

TYPE

JSR
BR

*AUTO MODE

123727

b =

eleleleleleleleleleleleleleleleleieleleleielelelelele
-2

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

000013

ST3:

007466
031744
044776

005237

007470
001264
001314

(MPB

BNE
INC
JSR
TYPE

1%:

INC

ST4:

MOV

STS:

N==OO

RRRRRRRRRRRRRY

[

000004

CMP

;SET RKO6 CHAIN MODE FLAG

:DRO NOT TSTD
;SET ACT AUTO FLAG.
sDEFAULT VALUE
sDEFAULT VALUE

SIZFLG

;D0 ''SIZE THE BUSS'' TEST

UNLD

sINITIALIZE FLAGS
;USED IN 'STOP' ROUTINE
sFOR VALID PROGRAM HALTS

;CLEAR RKO7 FLAG

LCVEC,RO

:SETUP
:NO. OF DRVS DONE
s CURRENT DRV UNDER TEST
:SETUP TIMEOUT ERROR VECTOR
:SEE IF L-CLOCK THERE
sPRESENT, SET FLAG.
;VECTOR ADDR

PCLKF

sPRESENT,

(SP)+,(SP)+

sL=CLOCK NOT THERE, CLEAR STACK

PCVEC,RO
3s
1$:

:13=LOADED BY XXDP

#177440,$BASE
#210 ,RKVEC

023 ERRVEC

000004

o
N
o

MSG7

ST4
ACTN

LCLKF

1$
DDPCH
PC,TITLE

lDRlVO DRVPTR
SDEVCT
SUNIT
31S.ERRVEC

S
NN

CLR

001342

o
N
N

D
o

o
e
e
b o
i
d
e
b
o
e
-

013502

41.,m3

PC,SETINT

d e

012737

NOWNS

N NN NN W
WWWWWNW W
N
= beb e b

3321

000041

sSEE IF P-CLOCK THERE
SET FLAG

sVECTOR ADDR

oo~
M
wur FRERLERY WW&WW

oo Co~NO VIS

WN =00

&I Vi

W WWWWWWWWWWWWWWWW
W
W
wW
~
W
N

UNIBUSS RK6 DR_PRT?2

MACY11 30(1046)

04=JAN-82

013504
013512
013516
013522
013526
013532
013536
013542

012737
005777
005237
013700
005237
012720
012710
000407

000004

MOV
TST
INC
MOV
INC
MoV
MOV
BR

013544
013546

022626
000767

013550
013552
013556

022626
005037
104401

P11

04=JAN-82 12:46

013550
165602
007520
001332
007522
036136
000300

INITIALIZE THE COMMON TAGS

3s:

2$:

007522
045337

13:04

48:

CMP

N 5
PAGE 66

#4$ ,ERRVEC
aPKS
PCLKF
PCVEC,RO
DOTIM
#CLOCK, (RO) +
#PR6, (RO)
ST

;SEE _IF P-CLOCK THERE
sPRESENT, SET FLAG
sVECTOR _ADDR
sINDICATES TIMING TESTS CAN BE DONE
sSERVICE ROUTINE FOR CLOCKS
::6G0 TO NEXT TEST

(SP)+,(SP)+

sP=CLOCK NOT THERE, CLEAR STACK

CMP
CLR
TYPE

(SP)+,(SP)+
DOTIM
.MSG13

sNEITHER CLOCK THERE, CLEAR STACK
sTIMING TESTS CANNOT BE DONE.
sHEAD SW. TEST BYPASSED

MM
VONOWVISWN

P11

04~JAN-82 12:46

—-Ov

SRS
SR
W

B 6
PAGE 67
BASIC CONTROLLER TESTS, SIZING & SETUP

MACY11 30(1046)

VIVWVIVIWA

DD
OO
WWWWNWWW
NWNWWNWWWW

lalsl
NN

UNIBUSS RK6 DR_PRTZ2

04=JAN-82

13:04

.SBTTL BASIC CONTROLLER TESTS, SIZING & SETUP
SIRARARRRARAARAAAAAAANARCAARRARAAAAAAAAANAAAAANAAAAAAAAAAAAAA
AR OARS

ATEST 1

REFERENCE ALL CONTROLLER REGISTERS

i
i
i
i
i
LR ]

013562

:;t'tttttttttt'ttttttt'tt'ttttttt.tttttttttt'tt.t't!ttt.'t'tttt"

000004

0313564 012737 000001 001174
013572 012706 001100

TST1:

013576 012746 000000
013602

012746

giiceg ooboc

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'

013610

SCOPE

MOV
MOV

#1,$TIMES
#STACK,SP

::D0 1 ITERATION
:RESTORE STK PTR

MOV

#PRO,=(SP)

;RESET PSW TO PRIORITY 0

MOV

#58,=(SP)

:8 MAKE IT LSI COMPATABLE

SEQ 0066

3372

MACY11 3?%1066)

04=JAN-82

13:04_

PAGE

REFERENCE ALL CONTROLLER REGISTERS

SEC 0067

CZR6IFO UNIBUSS RK6 DR PR;Z
4
CZROIF.PI
04-JAN-82
1

CZR6IFO UNIBUSS RK6 DR PRTZ

CZROIF.P11

3373

013610

04~JAN-82 12:46

012737

013734

MACY11 30(1046)
n

000004

04-JAN-82

13:04_

PAGE

REFERENCE ALL CONTROLLER REGISTERS

Mov

#18 ,ERRVEC

sSETUP TIMOUT ERROR VECTOR

SEQ 0068

376
335
336
3377
3378
3379
3380
3381
3382
3383
3384,
3385
3386
3387
3388
3385

Q13616
013622
013626
013632
013636
013642
0136
013652
013656
013662
013666
013672
013676
013702
013706
013712

013705
005763
005765
005765
005765
005765
005765
005765
005765
005765
005765
005765
005765
005765
005765
005765

001264
000000
000010
000002
000004
6
000012
1
000016
000020
000024
000026
000034
000036
000030
000032

3391
3392
3393

013716
013724
013732

012737
012737
000404

036626
000340

3395
3396
3397

013734
013736
013740

022626
104007
000137

E 6
MACY11 30(1046) 04=JAN-82 13:04 PAGE 70
m
REFERENCE ALL CONTROLLER REGISTERS

MOV
TST
IST
TST
TST
IST
IST
IST
TST
TST
TST
TST
TST
TST
TST
TST
000004
000006
18:

031550

$BASE,RS
RKCS1(R5)
RKCS2(RS)
RKWC(RS)
RKBA(RS)
RKDA(RS)
RKDS(RS)
RKER(RS)
RKASOF (RS)
RKDC(RS)
RKDB(RS)
RKMR1(RS)
RKMR2(RS)
RKMR3(RS)
RKECPS(RS)
RKECPT(R5)

;SETUP INDEX REG.
:REFERENCE ALL THE
:CONTROLLER REGISTERS

;TIMEOUTS IN THIS SECTION
:INDICATE THAT THE CONTROLLER
:REGISTERS CANNOT BE READ.
:TESTING SHOULD NOT PROCEE
:UNTIL THIS IS REMEDIED.

MOV
MOV
BR

WBADTMO,ERRVEC
#PR7,ERRVEC+2
TST2

;SETUP TIMEOUT HANDLER

CMP
ERROR
JNP

(SP)+,(SP)+
7
SEOP

:RESTORE STACK POINTER
:ABORT-COULD NOT REFERENCE CONTROLLER REGISTER

::6G0 TO NEXT TEST

3‘00

:;ttt'tttt.t*.ittttt.'tt'ti'ltl'tttfitittttttl'ttttl'..'.t'.tttt.t

301

ATEST 2

3403
3404
3405
3406
3407
3408
3409
3410
3411

i
i
i
i
i
i
i
i
i

SIZE THE BUSS

. %

312

3‘1‘
34,15
3,16
317

013744
013746
01375¢

000004
012737
012706

000001
001100

315

013760

005237

001516

3421
3,22
323
3424

013764
013772
013774

132737
001002
000137

000200

3426
34,07
34,28
3429

014000
014004
014010
014012

104401
005037
005000
012701

045105
007474

001174

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 DUE TO DTYE, DRIVE WILL BE TESTED AS RKO7

:';i'tt.tt.l*tiQ'lfi.ti.'t"t'ttttfit.....'l.‘ltttt"titttt’tfi..ttt'fi
TST2:
SCoPE
MOV
#1,STIMES
::D0 1 ITERATION
MOV
#STACK,SP
:RESTORE STK PTR

001231

014114

007476

THIS TEST IS 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 IS ADDRESSED.
CONTROLLER ERROR (CERR) IS EXAMINED AND IF NOT SET, THE

148:

INC

BYPCERR

:DO NOT TEST CERR IN 'FRDY"

BITB
BNE
JP

#BIT7,$ENVM
148
128

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

TYPE
CLR
CLR
MOV

,MSG10
DRIVS
RO
#DRIVO,R1

:WILL TEST DRIVES
:# OF DRIVES PRESENT
:DRV ADDR
DRV FLAG

SEQ 0069

CZR6IFO UNIBUSS RK6 DR_PR 12
CZROIF.PN
04=JAN-82 12:46

CZR6IFO UNIBUSS RK6 DR PRTZ"6

CZROIF.P11

04=JAN=82 12

gzg?

014016

013702

001266

gzsg
33
3434
3435
336
3437
3438
3439
3440
222}

014022
014026
014030
014034
014036
014042

032702
001410
005237
005211
104401
010046

000001

014044
014046
014047

104403
001
000

3443
3644
3445
gzzg

014050
014052
014056
014060

005721
005200
022700
001402

3448
gzgg

014062
014064

006002
000756

3451
3452
gzgz

014066
014072
014074

005737
001402
000137

3455
3456
3457
g:gg

014100
014102
014106
014110

104075
000000
000137
000137

013372
014600

3460
361

014114
014122

012765
013737

000040
001406

3463

014136

104120

3462

014130

004737

045105
007474

104415
012706

.
001300

3474

014170

012765

000040

3476

014206

004737

032356

3477

014210

3479

014216

3,78

013737

104120

001406

000010

3480
3481

o142§4
014232

053737
013765

001170
007354

3483

014246

004737

033046

3485

014260

004737

032356

3484

014240
014252

013737
013737

1
0

TST
INC
CMP
BEQ

(R1)+
RO
#8. .RO
17$

;ADV POINTER TO NEXT FLAG
*INC DRIVE #
*ALL 8 TESTED?
:BR IF YES

ROR
BR

R2
158

;ELSE GET NEXT BIT OFF DEVICE MAP
‘8 TRY AGAIN

178:

T1ST
BEQ
JMP

DRIVS
188
VERIFY

;SEE IF MORE DRIVES PRESENT
*BR IF NO
*ELSE EXIT TEST & SETUP FOR RKO7'S

188:

ERROR
HALT
JMP
JMP

75
STS
VERIFY

:NO DRIVES FOUND IN SDEVM
*SETUP CORRECTLY & PRESS 'CONTINUE'
70 TRY AGAIN
:DO NOT SIZE, GO TO NEXT TEST

MOV
MOV

#SCLR,RKCS2(RS) ;SUBSYSTEM CLEAR
710, TEMP1
*SET TIMEOUT

ERROR

120

208:

007476

010065

3482

TYPOS
.BYTE
BYTE

::SAVE RO FOR TYPEOUT
*:TYPE DRIVE #
::G0 _TYPE==OCTAL ASCII
S:TYPE 1 DIGIT(S)
*:SUPPRESS LEADING ZEROS

12$:

JSR

007524

014212

012737

:SEE IF DRV IN DEVICE MAP
*BR IF NO
*ELSE INCR DRIVE COUNT
:8 SET DRIVE PRESENT FLAG

014600

005737
001762
104401
005037
005000
012701

014176

#81TO,R2
168
DRIVS
(R1)
,SCRLF
RO,=(SP)

000010

014136
014142
014144
014150
014154
014156
014162
014162
014164

18:

000010

007412
007354

001420

007412

001406

PC,FRDY

*FIND RDY

TST
BEQ
TYPE
CLR
CLR
MOV

SIZFLG
208
,MSG10
DRIVS
RO
#DRIVO,R1

*SIZE BUS?
:BR IF NO
‘WILL TEST DRIVES
:# OF DRIVES PRESENT
DRV ADDR
DRV FLAG

SCOP1
v

#STACK, SP

;RESTORE STK PTR

MOV

#SCLR,RKCS2(RS) ;SUBSYSTEM CLEAR

JSR

PC,FRDY

MOV

RO,RKCS2(RS)

BIS
MOV

$TMP4 , HCS1
u§s1 RKCS1(RS)

;ADD CDT IF RKO?
:GET STATUS

JSR

PC,DLY

;DO DELAY TO CATCH MDS

JSR

PC,FRDY

:FIND RDY

MOV

ERROR

000001

007354
000000

007412

PAGE 71

BIT
BEQ
INC
INC
TYPE
MOV

168:

032356

SIZE THE BUSS

:APT DEVICE MAP

001205

000010
007412

13:04

$DEVM,R2

15¢:

007474

04=-JAN-82

MOV

007474

364
3465
366
3467
3,68
3469
3470
3471
gz;;

3475

MACYT 3%1046)

MOV

MOV
MOV

*RDY NOT SET BY END OF SCLR

710, TEMP1

*SET TIMEOUT

120

*RDY NOT SET BY END OF SCLR

#SELDRV,HCS1

150000, TEMP1

110, TEMPY

*FIND RDY

:SELECT THE DRIVE ADDR

SEQ 0070

=t pe

% e

P11

%NNN
CoO~NON VIS WN=O VNV
NN =O

seexaraes

IR IIIIIIIIINN
838
NN NN AN U LN U N AN N N NN AN N N NN N
wvivawviwnaw A AV VIV AV IV VAV VAV VAV TV VY
NININD NN
= e b d e cd b
wd =

UNIBUSS RKé DR PRT2

04=JAN=82 12:46

014264
014266
014274
014276

1046117
032737
00105
81 7

014312
014316
014320
014322
014326
014330
014332
014340
014342
014346
014350
014356
014360

020037
001024
005700
001007
005737
001022
123727
001419
005237
005211
053711
104401
010046

014362
014364
014365
014366

104403
001
000
000403

014370
014374

004737
104001

014376
014400
014402
014406
014412
014414
014420
014422
014424
014426
014432
014440
014442
014450

005721
005200
005037
022700
001263
005737
001065
104076
000000
000137
032737
001405
012737
000137

014454
014462
014464
014472
014474
014502
014506
014512

014516
014522
014524

014

737

MACY11 30(1046)
T2

100000

007354

09740

00741

177770

007412

00741

BIC

000013

007474

48:

001170
001205

033064

002000
014162

001170

032737
001015
032737
001015
032737
001015
032737
001424

001000

007356

000400

007356

000001

007366

010000

007356

004737
104002
000724

033064

117
#CERR,HCS1
28
HMR2, TEMP1

:NO RDY AFTER SELECT DRIVE CMD.

RO, TEMP1
3s
RO
X 1
DDPCH
58
41,3
58
DRIVS
(R1)
$TMPS, (R1)
,SCRLF
RO,=(SP)

:S/B SAME

#4C<DRVMSK>
, TEMP1

:SEE IF XXDP CHAIN MODE
;1S DRIVE 0 TO BE TESTED
*BRANCH IF NOT
*INC DRIVE COUNT.
*SET DRIVE PRESENT FLAG
*ADD CDT IF RKO7
..;exg gg :oa TYPEOUT

1
0
5s

3s:

JSR
ERROR

PC.BYP
1

:TYPE BYPASS DR #
*WRITTEN DR # DOES NOT MATCH RKMR2 DR #

58:

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

(R1)+
RO
$TMP4
#8. RO
18
DRIVS
108
76

;SHIFT PTR TO NEXT DR. FLAG
*INC DR #
*CLEAR RKO7 FLAG

STS
#DTYE ,HER
138
#CDT,STMPS
1$

BIT
BNE
BIT
BNE
BIT
BNE
BIT
BEQ

#MDS ,HCS2
6$
#UFE,HCS2
78
#DRA, HDS
8s
#NED ,HCS2
98

JSR
ERROR
BR

PC,BYP
g
s

007474

007370

cmP
BNE
ST
BNE
ST
BNE
(MPB
BEQ
INC
INC
BIS
TYPE
MOV

G 6
PAGE 72

TYPOS
.BYTE
BYTE
BR

001170
000010

013372
000040

13:04

SIZE THE BUSS

ERROR
BIT
BNE
MOV

007466
000041

04=JAN-82

28:

13$:

014514 000730

BR
68:

::GO TYPE==OCTAL ASCII
S:TYPE 1 DIGIT(S)
*:SUPPRESS LEADING ZEROS

:MORE LEFT.
:NO DRIVES FOUND ON BUSS
*SETUP CORRECTLY

*AND PRESS ‘CONTINUE'
;ADD CDT
*TRY AGAIN

:TYPE BYP DR #
*MDS DETECTED

SEQ 0071

CZR6IFO UNIBUSS RK6 DR PRT2
CZR6IF.P1
04-JAN-82 12:46
;54
543
ggzg

0145 g
0145

033064

0145

004737
10400
000720

3546
547

014536
014544

032737
001676

010000

3551
355%
gSS
554
gggg

014554
014559
01455
014560
014562

104403
001
000
104010
000705

3557
3558
3559
ggg?

014564
014570
014572
0145764

004737
104004
000701
000137

3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
gggz

014600

01462%
014622
014624

104415
012706

3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597

014630
014636
014644
014650
014652
014656
014694
014672
014700
014706
014712

012735
013737
004737
104120
010065
01%737
053737
0137gS
013737
004737
013737

3548
ggg

014546
014552

104401
010046

78:

007356

JSR

PC.BYP

B8R

ERROR

8s:

BIT
BEQ
TYPE
MOV

045460

TYPOS

:DRVA
*:SAVE RO FOR TYPEOUT
::TYPE DR#

+:60 TYPE==OCTAL ASCII

*:TYPE 1 DIGIT(S)
+:SUPPRESS LEADING ZEROS

*DRA & NED BOTH SET

033064

98:

JSR
§3R°R

PC.BYP
?s

015172

108:

JMP

NUDRV

AR AR

:UFE DETECTED

#NED ,HCS2
48
MSG15
RO,=(SP)
1
0

ERROR

VERIFY:

A AR AR AN AR AR

:NO DRA & NO NED = OTHER PORT SELECTED

A AR AAAAAAANAARAAAARAAAARAAAARARRS

VERIFY OPERATOR DRIVE SELECTIONS

I
i
i
i
i
i
i
i

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 RK06.
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

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

000004
012737
012706
005000
012701

6
PAGE 73

BYTE
BYTE

;*TEST 3

014600
014602
014610
014614
014616

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

VERIFY IT WAS NOT SPECIFIED.

E:ttt.tttltlttttttttttt'tt'tttt'ttt'tttttttttt.ttfitt'ttttt'ttt'tt

000001
001100

001174

007476

TST3:

ScoPE
MOV

#1,8TIMES

::D0 1 ITERATION

CLR
MOV

RO
#DRIVO,R1

*DRIVE ADDR
*DRIVE FLAG

;RESTORE STK PTR

MOV

SCOP1

#STACK, SP

:RESTORE STK PTR

001100

MOV

»STACK, SP

000040
001406
032356

MOV

#SCLR,RKCS2(RS) ;SUBSYSTEM CLEAR

JSR

PC,FRDY

*FIND RDY

000010
000001
001170
007354
001420
033046
001406

MOV

RO,RKCS2(RS)

:DRV ADDR

BIS

$TMP4 , HCS1
HCS1,RKCST1(RS)

:ADD CDT IF RKO7

PC,DLY

:DO DELAY TO CATCH MDS

MOV

ERROR

MOV

007412
007412

MOV

710, TEMP1

120

#SELDRV,HCS1

150000, TEMP1

110, TEMP1

*SET TIME oUT

*NO RDY AFTER SCLR
:GET STATUS

SEQ 0072

v v\

NESANO
NNON=~
SO =W
il =2
— e N\ = PN N NN
NN

o8
33 g8gssssssasrassy
-Nmmv\u-m-gvuu-t

KRS S
o nNON
S SSSSSS
NS
o rs
v

1 6
MACY11 30(1046) 04=JAN-82 13:04 PAGE 74
T3
VERIFY OPERATOR DRIVE SELECTIONS

032356
100000

JSR

PC,FRDY

007354

g'x‘g

ggm.um

007412
007412

MOV
BIC
CMP
BNE

HMR2, TEMP1
>
, TEMP1
#*C<DRVMSK
RO, TEMP1
:S/B SAME
3s

BEQ
BIS

43
$TMPS, (R1)

INC
CLR
CMP
BNE
BR

RO
$TMP4
#8..R0
18
TST4

JSR
gg?flfl

PC.BYP
}R1)

:TRY BYPASS DRIVE#
sWRITTEN DR# DOES NOT MATCH RKMR2 DR#

8EQ
DEC
CLR
BR

4%
DRIVS
(R1)
43

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

BIT

#DTYE HER

MoV
JMP

#CDT,$TMP4
13

BIT
BNE

#MDS ,HCS2
63
#UFE HCS2
78

ERROR

118:

001170

A H

001170
000010

033064

3s:

007474

12%:

000040

007370

002000
014622

001170

001000

007356

000400

007356

000001

007366

010000

007356

010000

007356

2%:

13s$:

e T R
h b d

TST

BEQ

BIT

8$:
108:

ot il

— d =2

VIV

TST

BIT
BNE

e e

WAIN)
= = —a

T
A A

—

NNNN

888NN
SeoNNIZSSTARIIN

OO0O0O0O0OOO0O0O0OO0OOOOOO
B eR
T I R P I Y R I T SU S S S
VIV 00000
OCOO0OO0O0OO0
— e D D e
(W IV IV IV 1V 1V, ]
O0O0O0
O S R
OO0O0O0O0O0O0O0O0O0O0O00
B
e e e e RS Y Sy
OO0
e

oWV s Sl

sss
NS

SRRRS o
SV&

SEREECEIREERAERR

&
N

YO Y

S RS g

e T )

-0 VRONOWNSWN=O

360

OO0
e e ek

3601

OO0
b ek b

gEELEs 323

598
599

CZR6IFO UNIBUSS RK6 DR _PRT2
CZROIF.PI
04~JAN-82 12:46

033064

6$:

7$:

(R1)

(R1)+

138

;SET CDT _IF RKO7.

sSHIFT PTR TO NEXT DR FLAG

s INC DR#
sCLEAR CDT FOR NEXT DRIVE
sMORE LEFT
;:6G0 TO NEXT TEST

sADD CDT
:TRY AGAIN

#DRA,HDS

8s
#NED ,HCS2
9
108
#NED ,HCS2
11$

BEQ

JSR
ERROR

PC.BYP
6

:TYPE BYPASS DRIVE#

JSR
ERROR

PC.BYP
2

:TYPE BYPASS DRIVE#
sMDS DETECTED

JSR

PC,BYP

TST

033064

:FIND RDY

:NO RDY AFTER SELECT DRIVE CMD.

BNE
BIT
BEQ
BR
BIT
BEQ

033064

117

ERROR
BR

(R1)

128

3
128

sUFE DETECTED

SEQ 0073

UNIBUSS RK6 DR PRTZ
P11
04=JAN-82 12:4
015162
015166

004737
104004

J 6
MACY11 30(1046) 04=JAN-82 13:04 PAGE 75
3
VERIFY OPERATOR DRIVE SELECTIONS

033064

98 :

015170 0v0714

JSR
ERROR

B8R

PC,BYP
&

128

:DRA & NED RESET = OTHER PORT SELECTED

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

S'SUNIT® CONTAINS THE ADDRESS OF THE DRIVE CURRENTLY
*UNDER TEST

015172

005037

001516

015176

005037

001170

NUDRV:

CLR

BYPCERR

;ENTER HERE FROM LAST TEST

CLR

$TMP4

:CLEAR RKO7 FLAG

ALLOU CHECKING CERR IN ‘FRDY'

;; 1 2333323 2233323333333 3333233333333 3333333333333 333333232333222232%1

S*TEST &

FIND NEXT DRIVE TO BE TESTED

i
i
i

000004
012737
012706
012737
012737

015232
015236
015240

005737
001004
104401

007474

015250
015254
015260
015262
015266
015270
015272
015274
015276
015302
015304
015310

013701
005737
001402
005237
005711
001002
005721
000772
005737
001405
005737
001002

001342
001220

48:
:

001222

18:
28:

007466

58:

015314

000762

015312

015316
015322
015324

000137

000001
001100
000004
000004

001174

TST4:

001214
001102

045624

031550

SCOPE
MOV
MoV
MOV
MOV

#1,8TIMES
#STACK,SP
#STN-1,$TESTN
#STN=1,STSTNM

::D0 1 ITERATION
JRESTORE STK PTR

TST
BNE
TYPE

DRIVS
4$
MSG27

;ANY DRIVES PRESENT?
:YES BRANCH
*ALL DRIVES TESTED

MOV
ST
BEQ
INC
ST
BNE
ST
BR
1ST
BEC
ST
BNE

DRVPTR,R1
$DEVCT
2$
SUNIT
(R1)
58
(R1)+
18
DDPCH
3s
SUNIT
3s

:ADDR OF NEXT DRIVE FLAG
:1S FIRST DRIVE BEING CHECKED
:YES, BRANCH
*INCR DRIVE ADDR T0 NEXT DRIVE
*1S DRIVE PRESENT?
:BR IF YES
*ELSE FIND NEXT DRIVE

B8R

BIT
BEQ
MOV

#CDT, (R1)+
33
#CDT,STMPG

JMP

001222

005721

032721
001403
012737

THE DRIVE WHOSE ADDRESS IS IN ‘SUNIT'

:' 1 22 223333333333 3333232333333 3333333333333 3333333332333 232322322822 21

015202
0152064
015212
015216
0152264

015244

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 oaxve TESTED IS

TST(R1)+

002000

3$:

001170

$E0P1

:NO, GO TO END

:DDP CHAIN MODE?
*BR IF NO
:ELSE SEE IF DRV 0
*BR IF NO

*ELSE FIND NEXT DRIVE PRESENT
:SEE IF DRIVE UNDER TEST IS RKO7
:BR IF NO
*ELSE SET RKO7 FLAG

SEQ 0074

CZR6IFO UNIBUSS RK6 DR PRTZ2
04=-JAN-82 12:46

CZR6IF .P11
710
711

015332
015336

010137
104401

MACY11 30(1046) 04-JAN-82 13:04 PAGE 76
T4
FIND NEXT DRIVE TO BE TESTED

001342
045460

6%:

MOV
TYPE

R1,DRVPTR
MSG15

;STORE POINTER TO NEXT DR FLAG
J"DRIVE

3712

015342 013700 001222
015346

010046

MOV
MOV

RO,-(SP)

::gayssflg FOR TYPEOUT

3715
3716
g;};

015350
01535%
01535

104403
001
000

TYPOS
BYTE
BYTE

1
0O

;60 TYPE--OCTAL ASCII
ssTYPE 1 DIGIT(S)
: s SUPPRESS LEADING ZEROS

TYPE

+SCRLF

TST
BNE
MOV
CLR
MOV
MOV

$TMPS
7%
#632,LC
E.DDT
#1000,MC1
#777 ,MASK

;SEE IF RKO7 UNDER TEST
;BR IF YES
JELSE LOAD RKO6 PARAMETERS

TSTS

;2GOTO NEXT TEST

MOV
MOV
MOV
MOV

#14656,LC
#D.DDT,E.DDT
#2000,MC1
#1777 ,MASK

sLOAD RKO7 PARAMETERS

TSTS

;:GOTO NEXT TEST

%;}‘

g;}g

3721
3722
3723
37246
3725
3726

015354
015360
015362
015370
015374
015402

005737
001017
012737
005037
012737
012737

g;%g

015416

000425

3730
3731
3732
3733

015420
015426
015434
015442

012737
012737
012737
012737

%;gg

015456

000405

3727

3734

015410

015450

3737
3738
3739
3740
g;z%

015460
015462
015464
015466
015470

37643

015472

3744

012737

001170
000632
015470
001000
000777

160017

001456
000400
002000
001777

140017

015460
015462
015464

015466

015460
015470
015462
015464

MOV

7%:

015466

000000
000000
000000
000000
000000

MOV
LC:
MC1:
MASK:
MASK1:
E.DDT:

g;zg

0160617.HASK1

#140017,MASK1

0
0
0
0
0

PFSRT:
IR

$UNIT,RO

AR AR

sLAST CYL
sMAJ CYL + 1 SHIFT
JEXPECTED DRIVE TYPE TO E.AO
AR

s*TEST 5

AR AR

AN AR

SJENTER HERE FOR POWER FAIL RESTART

RRR AR RN AR AR ANRARARRARARRARRNR

PRINT DRIVE SERIAL NUMBER

. x

3747

%;23

3750

IN BCD & IS PERFORMED ON THE 1ST PASS ONLY

. %

3751
375¢
g;gz

015472
015474
015502

000004
012737
012706

3755
3756
3757
g;gg

015506
015512
015514
015520

005737
001042
004737
104024

001216

3760
3761
3762
3762

015522
015526
015534
015540

104401
012765
004737
013701

045472
000003
033722
007402

3764
3765

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

015544
015550

012704
010446

000001
001100

001174

034252

042736

TSTS:

000026

SCOPE
MOV
MOV

#1,STIMES
#STACK,SP

2:D0 1 ITERATION
sRESTORE STK PTR

TIST
BNE
JSR
ERROR

$PASS
TSTé
PC,SUBCLR
24

;:G0 TO NEXT IF NOT FIRST PASS
;D0 SUBSYS CLEAR
JCERR AFTER SCLR

TYPE
MOV
JSR
MOV

.MSG16
#3 ,RKMR1(RS)
PC,GSTAT
HMR2 ,R1

sDRIVE SERIAL NO.
sSELECT BYTE 3
sGET STATUS
sGET SERIAL #

MOV
MOV

#$0CTVL R4
R4,-(SPJ

:GET ADDR CHAR BUFF
:STORE ON STACK FOR $SUPRS

SEQ 0075

gree
767

015552
015556

012703
006101

000003

3768
3769
3770
3771
3772
3773

015560
015562
015564
015566
015570
015572

006101
006101
006101
006101
006101
010100

3775
3776
3777
3778
g;gg

015600
015604
015606
015610
015612

052700
110024
005303
001364
105014

000060

3781

015614

004737

043204

37764

3782
g;gz

015574

042700

MOV
ROL

18:

177760

3785

‘

:SETUP CHAR COOUNT
sINITIALIZE BIT POSITIONS

ROL
ROL
ROL
ROL
ROL
MOV

R1
R1
R1
R1
R1
R1,R0

BIS
MOVB
DEC
BNE
CLRB

#60,R0
RO, (R&4)+
R3
18
(R&)

*CONVERT TO ASCII DIGIT
sPUT ASCII DIGIT INTO CHAR BUFF

PC,$SUPRS

:TYPE

BIC

:
:

#3,R3
R

JSR

TYPE
TYPE

#177760.R0

,$CRLF
,SCRLF

:GET NEXT &4 BITS

:GET WORKING COPY

:CLEAR ALL BUT LOW & BITS

:BR IF ALL 3 CHARS NOT DONE
:ELSE INSERT NULL TERMINATOR

;;ttttttttttttttlttttttt'tttttttttttttttttttttttt.t.ttttttttt'tt'

g;gg

J*TEST 6

SET VV WITH PACK COMMAND

g;gg

3790
3791

:';ttttttttttttttttttttttt'tttttt'ttttttttttttttttttttttttt!tttttt
7ST6:
SCOPE

015620

000004

3792

015622

012737

000001

3795
%;89

015634
015640

004737
104024

034252

3798
3533

015642
015650

032737
001021

000100

3801
gggg

015652
015654

104415
012706

3804
3805

015660
015664

004737
104024

034252

3808
gggg

0156.4
015700

004737
104116

032262

3811
3812

015702
015710

032737
001001

000100

g;gz

015630

012706

001100

001174

3815
3816

015712

MOV

#1,S$TIMES

#STACK,SP

JRESTORE STK PTR

JSR
ERROR

PC,SUBCLR
24

;CERR AFTER SCLR

BIT
BNE

#D.VV,HMR2
TST7

::G0 TO NEXT TEST IF vV SET

SCOP1
MOV

#STACK,SP

;RESTORE STK PTR

JSR
ERROR

PC,SUBCLR
24

;CERR AFTER SCLR

JSR
ERROR

PC,DOCMD
116

;DO PACK CMD & GET CONTR RDY
*RDY NOT SET AFTER PACK CMD

MOV

007402

001100

%aog 015666 012737 000003 007354
gg;z

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

007402

mov
BIT
BNE

104027

ERROR

#PACK,HCS1
#D.VV,HMR2
1ST7

::D0 1 ITERATION

::G0 TO NEXT TEST IF VV NOW SET
:PACK DID NOT SET V.v.

3817

:;ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

%}3

::resr 7

3820
3821

e
o

READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL #

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

SEQ 0076

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

lalal

CZR6IFO UNIBUSS RKé6 DR_PR 12
CZR6IF.PN
04=JAN-82 12:46

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P1
04=JAN-82 12:46

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

ALL BAD SECTOR INFO (BSE) WILL BE STORED

SECTORS 0,2,4.6,8 CONTAIN IDENTICAL INFO FOR 22 SECTOR HARDWARE DETECTED BAD SEC

SECTORS 10,12.14,16,18,20 CONTAIN IDENTICAL INFO FOR 22 SECTOR SOF TWARE DETECTED
SECTORS 1,3,5.7,9 CONTAIN IDENTICAL INFO FOR 20 SECTOR HARDWARE DETECTED BAD SEC

SECTORS 11,13,15,17,19,21 CONTAIN IDENTICAL INFO FOR 20 SECTOR SOF TWARE DETECTED
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 WRITING
THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY.

SRR ARARRA AR AR

2% 3

B 550
5 8 6

32
33
34
3835
3836
3837
3838
3839
3840
3841
3842

FACTORY DURING MANF.

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

38§83§8§

32 222225
%2>»

3822
3822

SEQ 0077

000004
012737
012706

3844
3845
3848
3847
3848
3849
3850
3851
3852

015730
015734

004737
104024

034252

015736
015744
015752
015760
015764

012765
013765
012737
004737
104124

100000
001222
000013
032262

3854
3855
3856
3857
3858
3859
3860
3861

015766
015774
016000
016006
016010
016012
016020
01602

012765
004737
032737
001001
104244
013737
004737
104055

3863
3864
3865
3866
3867
3868
3869
3870
3871
3872
3873
3874
3875
3876

016026
016034
016042
016050
016054
016056
016062
016064
016066

012765
013765
012737
004737
104151
004737
000401
104154

016066
016072

004737
10402

015714
015716
015724

000001
001100

001174

17:

000000
000010
007354

#1,STIMES
#STACK,SP

JSR

PC,SUBCLR

MOV
MOV
MOV

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

ERROR

124

JSR

007402
007414

:
648

000005
032262

65%:

034252

AR AR AR

::D0 1 ITERATION
sRESTORE STK PTR

;CERR AFTER SCLR

;DO RECAL CMD & GET CONTR RDY

MOV
JSR
BIT
BNE

#1,RKMR1(RS)
PC,GSTAT
#D.RTZ ,HMR2
648

sSELECT WORD 1

JSR

PC.FATT1

MOV
MOV
MOV
JSR

#CCLR,RKCS1(RS)
SUNIT.RKCS2(R5) :DRIVE#
#CLEAR HCST
PC,DOCMD
;DO DRIVE CLEAR CMD & GET CONTR RDY

éfi“

:§‘751A1~

151

*NO RDY AFTER DRIVE CLEAR CMD

ERROR

154

:ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

JSR

PC,SUBCLR

ERROR
MOV

ERROR

032640

PC,DOCMD

ERROR
000000
000010
007354

AAAAA

MoV
MOV

ERROR

000026

001406

SCOPE

AAN AR

ERROR

sRDY NOT SET AFTER RECAL CMD

244
710, TEMP2

:RTZ NOT SET DURING RECAL CMD
*SETUP TIMEOUT

*NO ATTN AFTER RECAL CMD

SFIND ATTN

STEST FOR ATTN

:CERR AFTER SCLR

3878
3879

016074
016100

005037
005037

007414
007416

TEMP

gww--o
o~
oS ON
OO STRIFSVE
FSIR

ey
e e

N
-

B
e

007422

000006

015460

000020
000002

033722
100000

D= e

007420

032320

#BSE22H,TEMP4
TEMP4 ,RKBA (RS)

1$:

007354

010340

000002
000003

104024

OONSO
O

W
WWWWWW
WWWW

007416

oSO

KRY

OO0O0O0O0O0O0

LC,RKDC (RS)

;LAST CYL

#RDDATA ,HCS1
PC,DATCMD

;DO READ DATA CMD & GET CONTR RDY

PC,GSTAT

;GET FRESH DATA

007450
007452

l<D.S:?K!D.CART!D.DOOR!D.BRHH!D.SSP>.E.A1
sEXPECTED A1
M E
:MSG ID FOR EXPECTED MSG B1

007456
007462

#2,E.B2

*MSG ID FOR EXPECTED MSG B2

PC, CHKMSG

;CHECK MSGS A0, BO, A1, B1

54
26
56
30

:MSG A0
*MSH B0
*MSG A1
*MSG B1

E.BO
E.A2

#3.E.B3

000

PC.,SUBCLR

000005

;EXPECTED MSG BC

;EXPECTED MSG AQ

*EXPECTED MSG A2

*MSG ID FOR EXPECTED MSG B3

:8 MSGS SPECIFIED HERE

ERROR AFTER READ DATA CMD
ERROR
ERROR
ERROR

:CERR AFTER SUBCLR

TEMP?
ggnpz.as

;READ ALL 5 SECTORS?

59»3

000001

2%:

000002

4$:

:CANT READ SECTORS 0.2.4.6.8

Ii"”"‘

ggo
007416

;CERR AFTER READ DATA CMD

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

523

023727
001002
104234
000414

:NO RDY AFTER READ DATA CMD

007444

034252
007414
007414

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

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

ggfkfl.fl(Sl

104030

004737

:1=22 SECTOR SOFTWARE DETECTED TABLE
:2=20 SECTOR HARDWARE DETECTED TABLE
;TRACK 2, SECTOR 0

226

007354

sSECTOR CTR

:0=22 SECTOR HARDWARE DETECTED TABLE

#1000, TEMPS
TEMPS ,RKDA(RS)

227

oonor

OO0O0O0O00

003336
0

033100

OO0OO00

OO0

N ) OO
— 2 b oooonorOONO
i e I e3 o
-l; e
oo

OCO00

OO0O0O0O000

OOO0O0OO0O0O0O0

e I e ) oo
e D 2 b Ob OO
b D b ooconor
— b kb
oOrONONMONONON

OO0OoO

3881

SEQ 0078 ;

;CANT READ SECTORS 10,12...

zgnps.az
gga

:CANT READ SECTORS 1.3.5 ...

NI~

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

lalal

CZR6IFO UNIBUSS RK6 DR PRT2
CZROIF.P1N
04~JAN-82 12:46

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

8 7
MACY11 30(1046) 04=J AN-82 13:04 PAGE 80
7
READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL #

2934
33;2

016352
016354

104231
000412

§?37

016356

013765

007420

000004

3939

016372

013765

007422

000006

938

016364

062737

332? 016400 000655

ooooog

007422

68:

ERROR
BR

5$:

MOV

38:

3944

8s:

943

016406

000550

3945
3946
3947

016414
016416
016620

001404
104235
005237

016410

005737

gg:g 016424 000476

003344
001512

3950
3951
3952

016426
016432
016440

005237
023727
001020

007416
007416

3954
3955
3956
3957
gggg

016445
016456
016462
016470
016476

012737
013765
012737
013765
000137

005336
007420
001012
007422
016134

007420
000004
007422
000006

3960
3961
3962
3963

016502
016510
016512
016516

023727
001020
005037
012737

007416

000002

002336

007420

3966
gggg

016540
016546

013765
000137

007422
016134

000006

3969
3970
3971
3972
3973

016552
016560
016562
016566
016574

023727
oo1o§o
005037
012737
o1srgs

007416

000003

007414
004336
007420

007420
000004

3975
gggg

016610
016616

013765
000137

007422
016134

3078
3979
3980
3081
3935
3983
3984
;332

016622
016626
016630
016636
016640
016644
016650
016656

005737
001040
104401
012746
004737
004737
104401
104401

001216

3087 016660

004737

3953 016442 005037 007414

007414

000001

98:

3964 016526 013765 007420 000004
3965 016532 012737 001001 007422

3974 016602 012737 001013 007422

3988
3989

016664

104024

108:

TEMPS ,RKDA(RS)

INC

BSERR

BSE22H+6

B8R

108

BEQ
ERROR
INC

1ST10

9
235
BSERR

INC
CMP
BNE

TEMP3
TEMP3,
M
118

MOV
MOV
MOV
MOV
JMP

#BSE22S,TEMP4
TEMP4
, RKBA (RS)
#1012, TEMPS
TEMPS
. RKDA (RS)
1$

CMP
BNE
CLR
MOV

TEMP3,
#2
12$
TEMP2
#BSE20H,TEMP4

MOV
JMP

TEMPS
. RKDA(RS)
1$

TEMP?2

TEMP4
, RKBA (RS)
#1001, TEMPS

CMP
BNE
CLR
MOV
MOV

TEMP3,#3
108
rsnrs
#8SE20S,TEMP4
TEMP4
, RKBA (RS)

MOV
JMP

TEMPS
. RKDA(RS)
1$

MOV

000006

;RESTORE TABLE ADDR

B8R

MOV
MOV
128:

TEMP4 ,RKBACRS)

#2,TEMPS

CLR

118:

;CANT READ SECTORS 11,13.15 ...

ADD

MOV

§94 016402 005237 001512

;31
$

#1513, TEMPS

045516
003336
042634
043204
001205
001205

TST
BNE
TYPE
MOV
JSR
JSR
TYPE
TYPE

$PASS
TST10
MSG17
#BSE22H,~(SP)
PC,$DB20
PC.$SUPRS
,SCALF
.SCRLF

134252

JSR

PC,SUBCLR

ERROR

*READ 2 SECTORS FROM LAST

;SET BSE FLAG

::60 TO NEXT TEST

*TEST CARTRIDGE TYPE

*BRANCH IF DATA CARTRIDGE
*ALIGNMENT CARTRIDGE USED
:SET BSE ERROR FLAG

;SECTOR CTR

:STORE 22 SECTOR SOFTWARE BSE ADDR

:TRACK 2, SECTOR 12(8)
:REPEAT

;SECTOR CTR
:STORE 20 SECTOR HARDWARE BSE ADDR.

;TRACK
2, SECTOR 1
:REPEAT

:SECTOR CTR
:STORE 20 SECTOR SOFTWARE BSE ADDR

;TRACK
2, SECTOR 13(8)
;REPEAT
::60 TO NEXT TST IF NOT 1°ST PASS
:CART SERIAL #
;CONVERT DBL BINARY WORD TO OCTAL
*TYPE SERIAL #

:CERR AFTER SCLR
:GO BACK TO CyL O

SEQ 0079

=N~
WWW
=N~V

00g017
032262

007354

=N
WWW
NNN

1420
032766

007412

MOV

JSR
ERROR

PC FATT2
132

SFIND ATTN
*NO ATTN AFTER SEEK CMD

100000

007354

BIT
BEQ
ERROR

#CERR,HCS1
668
210

:CERR AFTER SEEK CMD

pury

—

=8
=1
o R §?D
—=00
KL
N
W

&»H
ON
S
[ ¥-N

NN ~
NN

oo~

[
Sy

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

NEN
—=OW
O=N

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P1
04=JAN-82 12:46

MOV
JSR

ERROR

#SEEK ,HCST
PS DOCMD

131

750000, TEMP1

;DO SEEK CMD & GET CONTR READY

:NO RDY AFTER SEEK CMD
;SETUP TIMEOUT

66%:

.SBTTL WRITE TESTS
ttt'fitttttttttttttttttt'tttttttQtttt'tttttt.t't"'ttt.lt'ttt*tt

SRTEST 10
,t

i
i
i
i
*
. %

00004
737

BASIC WRITE DATA 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.

:.ttttQt'ttttttttttttt't'tttttttittttfitttttttttttttttttttt'ttttt.

000001
001100

737

001512

046054
C. 5546
031476

4026

016752

4028

016762

104401
104
000137

4030
4031

016766
016772

004737
104024

034252

4033

016774

005237

4035
40
4037
4038

017000

001174

TST10:

SCOPE
MOV

#1,8TIMES

;:Du i ITERATION

BSERR

:SEE IF ALIGN CART

TYPE

,MSG40

*BSE OR ALIGN CART USED

MOV

BEQ

TYPE

#STACK,SP

.MSG26

:RESTORE STK PTR

*BR IF NO

:ABORTING BAL OF TESTS

JMP

$E0P

JSR
ERROR

PC,SUBCLR
24

:CERR AFTER SCLR

007340

INC

BADHDR

;USED FOR VALID HALT

012700

001522

MOV

#HDTAB, RO

:MAKE ALL CYL O HEADERS IDENTICAL

017004
017006

5020
C12720

140000

CLR
MOV

(RO)+
#140000, (RO)+

sHEADER WORD 0: CYL 0
:HEADER WORD 1: SECTOR 0

40641

017016

020027

001726

CMP
BNE

Ro,tuotns+132.
1$

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

4044
4045

017024
017032

012765
012765

001522
177676

MOV

#HDTAB,RKBA(RS) ;HEADER TABLE

2828

282

017012
017022

012720
001370

28:

18:

MOV

140000

000004

000002

MOV

#140000.(RO)+

#-66. ,RKWC(RS)

:HEADER WORD 2: XOR OF 1 & 2

:WORD COUNT

SEQ 0080

CZR6IFO UNIBUSS RK6 DR PRTZ
CZROIF.P11
04=JAN-82 12:46
4046
4047

017040

012737

4049

017052

104200

000027

4048 017046 004737 032320
4050

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

004737

4052
4053
4054

017066
017070
017072

001405
104201
104401

4056
4057
4058
4059

017102
017102

017106

104415
012706

001100

4062

017110

004737

034252

4065
4066
4067
2823

017116
017122
017130
017136

005037
013765
012765
012765

001402
001402
001500
177777

4070
4071
4072
4073
4074
4075

017144
017152
017156
017160
017164

012737
004737
104011
004737
032737

000023
032320
033722
100000

007354

4078
4079
4080

017174
017202
017204

032737
001421
004737

000200

00737V

4083

017212

005237

001402

4085

017224

001003

4087
4088
4089

017230
017234
017242

000137
012765
000137

017432
100000
017122

000000

4092

017250

012737

010340

007444

4095

017270

012737

000001

4055

282?
2322

28;9

2335

4084

4086
283?

4093
4094

017076

017114

017172

017210

000137

104024

001465

000455

033722

000 007354

031476

017226

017246

017256
017262

104046

104012

005037
012737

007446
001720

4096 017276 005037 007454

4097
2833

017302
017310

012737
012737

000002
000003

4100

017316

004737

033100

4101 017322 000003

:DO DATA X FOR CMD & GET CONTR RDY

JSR

PC,GSTAT

:GET FRESH STATUS

BEQ
ERROR
TYPE
648
:

(00006
000004
000002

38:

007354

SCOP1
MOV

#STACK, SP

;RESTORE STK PTR

JSR

PC,SUBCLR

CLR
MOV
MOV
MOV

SECTOR
SECTOR,RKDA(RS) ;TRACK/SECTOR #
#DATAT.RKBA(RS) :DATA TO BE ALL 1'S
#-1,RKWC(RS) ~ :WORD COUNT=1

MOV
JSR
ERROR
JSP
BIT

#<WRDATA> ,HCS1
PC,DATCMD
1
PC,GSTAT
#CERR,HCS1

688

:BR IF NO ERRORS

BIT
BEQ
JSR

#8SE ,HER
663
PC, TRUERR

:SEE IF BAD SECTOR FLAG
*BR IF NO
*ELSE SEE IF SECTOR LISTED IN BSE TABLE

INC

SECTOR

:RETURN HERE IF YES

BNE

65$

*BR IF NO

JMP
MOV
JMP

58
*BYPASS TEST
#CCLR,RKCS1(RS) :TRY ANOTHER SECTOR
3$

MOV

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

MOV

JMP

CMP

ERROR

658:

668:

007450
007452

007456
007462

MMm1

*NO RDY AFTER WRITE HEADER CMD
;CERR AFTER WRITE HEADER CMD
*ABORTING BAL OF TESTS

BEQ

000012

200

64$
201
MSG26

ERROR

035736

017216 023727 001402

PC,DATCMD

045546

#<WRHEAD> ,HCS1

JSR

ERROR

017054

4051 017060 032737

MOV

SEQ 0081

ERROR

CLR
MOV

$EOP

67$

SECTOR,#10.

:CERR AFTER SCLR

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

*RETURN HERE IF NO

*ARE 10 CONSEC. SECTORS BAD
*ABORTING rssr DETECTED 10 BAD SECTORS

;CERR WITH WRITE DATA CMD
;EXPECTED MSG AO

E.B0
EXPECTED MSG B0
#<D. SPOK 'D.CART'D. DOOR!D.BRHM!D.SSP> E.A1
E.B1

:MSG ID FOR EXPECTED MSG B1

MOV
MOV

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

*MSG ID FOR EXPECTED MSG B
:MSG ID FOR EXPECTED MSG B

JSR

PC.CHKMSG

CLR

LWORD

E.A2

T.A2'T.B2'0

:EXPECTED Al

*EXPECTED
MSG A2

:CHECK MSGS A0, BO

;& MSGS spécxrxso HERE

CZR6IFO UNIBUSS RK6 DR PRT2
CZROIF.P11
04=JAN-82 12:46
4102
410
4106

017324
°17S§3
017330

1oaos§
10402
104053

E 7
MACY11 30(1046)
04=JAN-82 13:04 PAGE 83
110
BASIC WRITE DATA TEST; 1 WORD
ERROR
ERROR
ERROR

4105 017332 104025
4106 017336 104401 045546
4108
2}98

4107

017344
017346

017340

000137

031476

4111
4112

017346
017354

012737
005037

010340
007446

007444

4114
4115

017366
017374

012737
005037

000001
007454

007452

4113

017360

104063

012737

678:
688 :

001720

007450

000002
000003

007456
007462

sg
g
53

ERROR
TYPE

25
MSG26

ERROR

JMP

MOV
CLR

$E0P

SEQ 0082

;MSG AQ ERROR AFTER WRITE DATA CMD
*MSH BO ERROR
‘MSG A1 ERROR

‘MSG
B1 ERROR
*ABORTING
BAL OF TESTS

;BAD SECTOR NOT LISTED IN TABLE

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

;EXPECTED MSG AO

MOV

l<D.SPOK!D.CART!6.DOOR!D.BRM!D.SSP>.E.A1

JEXPECTED A1

MOV
MOV

# E.B1
E.A2

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

:MSG ID FOR EXPECTED MSG B1
*EXPECTED MSG A2

4119 017414 004737 033100

JSR

PC., CHKMSG

;CHECK MSGS A0, B0, A1, B1

6121

ERROR

:MSG AQ ERROR AFTER WRITE DATA CMD

4116
2}};

017400
017406

012737
012737

4120

017420

000003

4122
6123
4126
4125

017426
017426
017430
017432

104023
104053
104025

4126

017422

.WORD

104052

58:

J*TEST 11
;t

4129
4130
413
4132

M
%
e
¥

figiz

. %

4135
4136
4137
ll:gg

017432
017434

000004
012737

000001

4140

017446

004737

034252

4143
4144

017454
017462

012765
012765

001522
177676

4147
4148
4149
2}§g

017474
017502
017510
017516

013737
012737
012737
004737

4152
4153
4154

017522
017530

4156

017536

2}22

4155

4157

ERROR
ERROR
ERROR

017442
017452

017470

017534

017542

T.A2!T7.B2'0

23
53
25

:MSG ID FOR EXPECTED MSG B2
*MSG 1D FOR EXPECTED MSG B3

:8 MSGS SPECIFIED HERE

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

;;tttttttttttttttttttttttttttttttttttttttttttttttttt't'itttttt'tt

l’:}gg

2}2}

MOV
CLR

012706

001100

001174

BASIC WRITE DATA TEST; FULL SECTOR

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
8Y THE WRT CHK COMMAND.

THE ABOVE IS REPEATED FOR AN ALL ONES PATTERN.

:';tttttttttttt'tttttttttttttttttttttttttttttttttttttttttttttttttt
ScoPE
MOV
#1,$TIMES
;:D0 1 ITERATION
MOV
#STACK,SP
JRESTORE STK PTR

7ST11:

JSR

PC,SUBCLR

000004
000002

MOV
MOV

#HDTAB,RKBA(RS) :RESTORE TO 22 SECTOR
#-66. ,RKWC(RS)
:STANDARD FORMAT

001346
000000
000000
035250

001362
001460
001466

MOV
MOV
MOV
JSR

TOCYL ,CALADD
#0, HEAD
#0.FORMAT

PC.FHDTAB

;SETUP
2T0 FILL
*HEADER
:TABLE

012737
004737

000027
032320

007354

MOV
JSR

#<WRHEAD> ,HCS1
PC ,DATCMD

DO DATA X FOR CMD & GET CONTR RDY

004737

033722

JSR

PC,GSTAT

*GET FRESH STATUS

104024

005037

104200

032737

001346

100000

ERROR

CLR

ERROR

007354

BIT

:CERR AFTER SCLR

TocYL

200

#CERR,HCS

*NO RDY AFTER WRITE HEADER CMD

CZR6IFO UNIBUSS RK6 DR PRTZ 4
CZR6IF.P1
04-JAN-82 12:
4159
4160
4161
4162
4163
4164
4165
4166
6167
4168
4169
4170
4171
4172
4173
4176
4175
4176
4177
4178
4179
4180
4181
4182
4183

017552
017554
017560
017564

MACY11 30(1046)
04=JAN-82 13:04 PAGE 84
TMm
BASIC WRITE DATA TEST; FULL SECTOR

001405
104201
104401

045546

SEQ@ 0083

BEQ
ERROR
TYPE
JMP

48
01
MSG26

$e0P

sCERR _AFTER WRITE HEADER CMD
sABORTING BAL OF TESTS

000137

031476

017564
017570
017572

005037
104415
012706

007340

CLR

BADHDR

sUSED FOR VALID HALT

001100

MOV

#STACK,
SP

sRESTORE STK PTR

017576
017602

004737
104024

034252

JSR
ERROR

PC,SUBCLR

017604
017610
017616
017624
017630
017636

005037
013765
012765
013700
052765
012765

001402
001402
001474
001474
000020
177400

017644
017652
017656
017660
017664
017672

012737
004737

000023
032320

004737
032737
001465

4196
4197

017742
017746

2199

017750

648:

SCOP1

000006
000004

000010
000002

;CERR AFTER SCLR

SECTOR
SECTOR,RKDA(RS)
#DATAO. RKBA (R5)

sSETUP SECTOR
:WRITE ALL 0'S

DATAO, RO
#BA],RKCS2 (RS)

1$:

#-256. ,RKWC (RS)

007354

#<WRDATA> HCS1

033722
100000

007354

PC,GSTAT
#CERR,HCST

68$

:BR IF NO ERRORS

032737
001421
004737
000455

000200

007370

#B8SE ,HER

; SEE IFNSAD SECTOR FLAG
:BR_IF
;ELSE SEE IF SECTOR LISTED IN BSE TABLE
:RETURN HERE IF

005237
023727
001003
104046
000137
012765
000137
104012

001402
001402

012737
005037

010340
(00744

104011

012737
012737
005037
012737
012737

004737
000003
104052
10402
104053
104025
104401

?g.DATCHD

66$

035736

021202
100000
017610

001720
1
007454
00000

PC, TRUERR

678

SECTOR

000012

000000

SECTOR.#10.
65%

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

sRETURN HERE IF YES

SSE10 CONSEC. SECTORS BAD
IF NO
:ABORTING TEST DETECTED 10 BAD SECTORS

46
78
:BYPASS TEST
#CCLR,RKCS1(R5) :TRY ANOTHER SECTOR

65$:

66$:

007444

sCERR WITH WRITE DATA CMD

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

E.BO

XPE CTED MSG B0

EXPECTED MSG AQ

z;nesg?x'ocARr'b DOOR'D.BRHM'D.SSP>,E.A1 :EXPECTED A1

007450
007452
007456
007462

MSG_ID FOR EXPECTED MSG B1
:EXPECTED MSG
A2

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

033100

PC,CHKMSG

; CHECK nscs AO B0,

045546

2
33
25
.MSG26

*MSH BO ERROR
*MSG A1 ERROR
*MSG B1 ERROR
*ABORTING BAL OF TESTS

;.A2'T.82'0

TYPE

A1, B1

6S SPECIFIED MERE

;MSG A0 tnnoa AFTER WRITE DATA CMD

000137

031476

8°§737
037

810340
07446
00172?

007444

00000

007456
007462

020054
0

104063

012737
012737
005037
01%7 7
012737

MOV
CLR

007450
007452

MoV

033100

oo
VW
8 VWA
wvwawn
&N

NN
NEHENNWNN

020146
020154
020162

=ANROW

WwWwn W=

020170

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

EXPE CTED MSG 6 B0

E.B0

EXPECTED MSG A0

#<D.
S;?K'DCART'b DOOR!D.BRHM!D.SSP> ,E.A1 ;EXPECTED A1l
;MSG_ID FOR EXPSCTED ‘MSG 81

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

PC,CHKMSG

;CHECK MSGS A0, B0

3§
25

*MSH B0 ERROR
*MSG A1 ERROR
:MSG B1 ERROR

#STACK,SP

sRESTORE STK PTR

-8 MSGS sPécxrieo HERE

:MSG AQ tnnoaAFTER WRITE DATA CMD

;CERR AFTER SCLR

SECTOR,RKDA(RS) sSETUP SECTOR

000021
032320

000002

#RDTAB,RKBA(RS5)
#-256. ,RKWC(R5)

007354

#<RDDATA> HCS1

033722
100000

007354

000200

007370

045546
031476

020244

100000

007370

?g.DATCHD

PC,GSTAT
#CERR HCST

72%
, HER
#BSE
70$

69%:
708
:

#DCK,HER

sSEE IF DATA CHECK ERROR

718:

020262

73%:

001720
000001
007454

007444
007450
007452

;SEE IF BAD SECTOR

;DETECTED BSE IN READ BUT NOT IN WRITE CMD.

020260

010340
007446

;DO DATA X FOR CMD & GET CONTR RDY
sNO RDY AFTER READ DATA CMD
:GET FRESH STATUS

&5
73s
MSG26

020256

0
020310

$eo0P
718
21
/3%

;ABORTING BAL OF TESTS

;DATA CHECK ERROR AFTER READ CMD (ECC)

sCERR AFTER READ DATA CMD.

#<0!D.SPIN!D. DRDY‘D
gV‘D.DRA> E.A0

PECTED MSG BO

E.B0

;EXPECTED MSG A0

#<D.SP?K'DCART'b DOOR'D BRHM!D.SSP> E.A1_ EXPECTED A1
el

:MSG_ID FOR EXPECTED MSG B1

A
:EXPECTED MSG

SEQ 0084

;BAD SECTOR NOT LISTED IN TABLE

PC,SUBCLR

020234
020240

020262

PAGE 85

T AZ'T B2!0

NHOOOO

[«]e]=]
Py 2
-o§ L—RRRIRR
L Ty

020140
020144

13:04_

6§°P

67%:
68$:

004737

007624

04=JAN-82

BASIC WRITE DATA TEST; FULL SECTOR

lalal

MACYTT 3?1046)

020040
020044
020046

o—

)o
I
I
i
P

NN
W)
=

RPN RORIRY

SOBNCNR

lalisl
NN
pod

UNIBUSS RK6 DR_PRT2
LN
04=JAN-82 12:46

UNIBUSS RK6 DR PRT2
04=JAN=-82 12:46

4270
2 ;1

020314
020322

015757
012737

°°°88§
000

4273

020330

004737

033100

020

104026

4274
4275
4276

427

020334
020

000003
104054

MACY11 30(1046) 04=JAN-82 13:04 PAGE 86
TM
BASIC WRITE DATA TEST; FULL SECTOR
7456
7462

020
020346
020350

104030
000732

4282
4283

020350
020356

015737
005037

010340
007446

007444

4285
286
4287
2533

020370
020376
020402
020410

(12737
005037
012737
012737

1
007454
ooooog
000003

007452

4290

020362

012737

020416

C€04737

4292 020426

10405%

4291

020422

000003

728:

001720

104026
104056
104030

4297
4298

020434
020440

012701
011137

4301
4302

020450
020452

020021
001401

4305

020456

020127

007336

4308
4309
2;}9

020464
020470
020472

020037
001401
000412

001474

4312

020474

012765

001500

2%82

020454

010037

4313
4314
2;}2

020502
020506
020514

013700
013765
000137

JSR

PC, CHKMSG

;CHECK MSGS A0,

ERROR

ERROR
BR

30
698

MOV
CLR

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

MOV
CLR
MOV
MOV

M E.B1
E.A2
ci.s.a
#3.E.B

:MSG ID FOR EXPECTED MSG B1
*EXPECTED MSG A2
:MSG ID FOR EXPECTED MSG B2
:MSG ID FOR EXPECTED MSG B3

PC, CHKMSG

;CHECK MSGS A0,

:MSG A0 ERROR AFTER READ DATA CMD

MOV

007456
007462

JSR

LWORD

006336
001452

28:

001454

104020

2% 020462 001366

:MSG ID FOR EXPECTED MSG
*MSG ID FOR EXPECTED MSG B

ERROR

020426
020430
020432

020444

007450

033100

4293
4294
2532

2533

oi.s.s
#3.E.8

ERROR

4278
4279
zggg

4284

MOV
MOV

LWORD
ERROR

oyy21uwe

001500
001402
017630

000004

4$:

000006

B0,

A1,

-8 MSGS SPECIFIED MERE
:MSG A0 ERROR AFTER READ DATA CMD
:MSH BO ERROR

:MSG
A1 ERROR
*MSG B1 ERROR

;EXPECTED MSG A0

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

T.A2'T.B2'0

;EXPECTED Al

B0, A1, B1

-8 MSGS SPECIFIED MERE

26
56
30

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

MOV
MOV

#RDTAB,R1
(R1) ,WD1

;ACTUAL WORD FOR TYPEOUT

CMP
BEQ

RO, (R1)+
38

;COMPARE READ DATA TABLE AGAINST
STHE 'SHOULD BE' VALUE

CMP

R1,#RDTAB+512.

:SEE IF REACHED END OF TABLE

CMP
BEQ
BR

RO,DATAQ
(3
58

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

MOV
MOV
MOV
JMP

#DATA1,RKBA(RS) ;WRITE ALL 1'S

MOV

BNE

RO,WD2

*EXPECTED DATA FOR TYPEOUT

*READ DATA DID NOT COMPARE WITH WRITE DATA

*BR IF NO & DO NEXT WORD

DATA1,RO
SECTOR,RKDA(RS)
1s

4317
4318

020520
020520

104415

gg 020522 012706 001100

MOV

#STACK, SP

4321

020526

004737

034252

JSR

PC,SUBCLR

4324
4325

020534
020542

052765
012765

000020
001500

BIS
MOV

#BA] ,RKCS2(RS)
:THIS PORTION OF THE TEST CHECKS
#DATAT,RKBA(RS) :OUT THE WRITE CHECK CMD

2§5§

020532

104024

58:

T.A2'T.B2'0
54

ERROR
ERROR
ERROR

ERROR

3s:

SEQ 0085

SCOP1

ERROR
000010
000004

;RESTORE STK PTR
;CERR AFTER SCLR

CZR6IFO

lalal

CZROIF.P11

020550 012765
000002
2%9
020556 013765 001402 000006
4328
177400

032320

033722

100000

007354

W uuuug‘u
NNNN

S8o000

N=NNO =2JWNN

- Poury
P

b O
e
— e

#<WRTCHK> ,HCS1

ERROR

JSR

PC,DATCMD

:DO DATA X FOR CMD & GET CONTR RDY

PC,GSTAT

*GET FRESH STATUS

*NO RDY AFTER WRITE CHECK CMD

BIT

ggénn HCS1

007356

BIT

;2£E+HCS2

sSEE IF WRITE CHECK ERROR

001452
001454

MOV
MOV

;ACTUAL WORD FOR PRINTOUT
EXPECTED WORD FOR TYPEOUT

RKDB(RS) D1
DATA1,WD2
16
75s

ERROR

;CERR AFTER WRITE CHECK CMD

MOV

#<0'D.SPIN'D.DRDY'D.VV'D.DRA>,E.A0 ;EXPECTED MSG AQ

CLR
MoV
MoV

E.A2
OS.E.BZ
#3,E.B3

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

PC,CHKMSG

sCHECK MSGS A0, BO, A1, B1
;& MSGS SPECIFIED WERE
;MSG A0 ERROR AFTER WRITE CHECK CMD

ERROR

007444

VIR
NNONN

822222 § °°8°°

MOV

CLR
MOV
MOV

007450
007452
007456
007462

JSR

.WORD
ERROR
ERROR
ERROR
ERROR

045546
031476

TYPE

:WCE AFTER WRITE CMD

E.B0
EXPECTED MSG B0
#<D.SPOK!D. CART'b DOOR!D.BRHM!D.SSP>,E.A1 ;EXPECTED Al
#1,E.B1
sMSG_ID FOR EXPSCTED MSG B1

T.A2!T.B2!0
57
31
60
32
MSG26

:MSH BO ERROR
:MSG A1 ERROR

:MSG B1 ERROR

*ABORTING BAL OF TESTS

JMP

$E0P

MOV

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

NNONNON
NN
NNNNNNN

010340
007446
001720
00000

N
N
ROINGN

033100

001100

MOV

#STACK,SP

034252

JSR

PC,SUBCLR

00745
000002
000003

N
~N

Oed

cded wded

—

—_

o228
SR RREE gs NNV!NN§N
3= £288

021034

#-256. ,RKWC(RS) ;ALL 1'S WERE PREVIOUSLY WRITTEN
SECTOR,RKDA(RS)

R
o

021026
021030

SEQ@ 0086

75%:

021024

PAGE 87

007354

020742

13:04_

MOV
MoV
JSR

748:

012737
005037

04=JAN-82

BASIC WRITE DATA TEST; FULL SECTOR

007444

007450
007452
007456
007462

CLR
MOV
MOV
CLR

EXPECTED MSG AQ

E.B0
:EXPECTED MSG B0
#<D.SPOK !D.CART!D.DOOR!D.BRHM!D.SSP>,E.A1 :EXPECTED A1
# E.B1
sMSG_ID FOR EXPSCTED ‘MG B1
E.A2

;EXPECTED MSG

MoV

l .E.B2

JSR

PC,CHKMSG

sCHECK MSGS AO B0, Al

ERROR
ERROR
ERROR

31
60

:MSH BO ERROR
*MSG A1 ERROR
*MSG B1 ERROR

sRESTORE STK PTR

MoV

.WORD

ERROR
SCOP1

.E.B3

T.A2'T.B2'0

;MSG ID FOR EXPECTED MSG B2

:MSG ID FOR EXPECTED MSG B3

;6
M spmrieo HERE
:MSG A0 Ennoamsn WRITE CHECK CMD

lalal

MACY11 3?1046)

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

CZROIF.PI

4383 021040

1474
177400
001402

MoV

#DATAO,RKBA( RS) ;SETUP TO CHECK AGAINST WRONG DATA

MOV

MoV
JSR

JSR

007356

007444

SECTOR,RKDA( RS)

#URTCHK HCS1
Pg.DATCMD

PC,GSTAT

ngEHCS2

ERROR

MOV

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

CLR
MOV

E.A2
#2,E.B2

SEXPECTED MSG A2
*MSG ID FOR EXPECTED MSG B2

JSR

PC, CHKMSG

;CHECK MSGS A0, BO, A1, B1

ERROR
ERROR

57
31

*MSH BO ERROR

NISX FEREE &~

R
e o
B
b
)
A

007450
007452
007456
007462

MOV

LWORD

;DO WRITE CHECK CMD. & GET CONTR RDY.
sNO RDY AFTER WRITE CHECK CMD
sGET FRESH STATUS

gfig

CLR
MOV
MOV

033100

;CERR AFTER SCLR

#-256.
. RKWC ( R3)

6$:
021116

SEQ 0087

ERROR

MOV

000031
032320
033722
040000

04=JAN-82 13:04 PAGE 88
BASIC WRITE DATA TEST; FULL SECTOR

ERROR

sEXPECT MISCOMPARE

sWRITE CHECK CMD NOT FUNCTIONING
sWITH INTENTIONAL MISCOMPARE
;EXPECTED MSG A0

E.BO
EXPECTED MSG B0
#<D.SPOK!'D. cAnr'b DOOR'D.BRHM!D.SSP>,E.A1 :EXPECTED Al
# ,E.B1
MSG ID FOR EXPECTED MSG B1
#3.E.B3

0!0'0
60
32

*MSG ID FOR EXPECTED MSG 83

‘8 MSGS SPECIFIED HMERE

:MSG A0 ERROR AFT WRT CHK CMD

*MSG A1 ERROR

:MSG 81 ERROR

tttttttttt't!ttttttt"t'tttt.t'ttttttttlttttt.ttttttttttttttttt

:resr 12

i
TS

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

MSG BO,B1 ARE CHECKED FOR ANY ERROR CONDITION..

CYL O, TRACK 0, & SECTOR 0 IS USED.

:.ttttttttttttttttttttttitttt'fittt.ttttttttt.tltl't.t.'t'ttt.tttt

021202
021204
021212

000004
012737
012706

000001
001100

021216
021222

004737

034252

021224

012765

104024

20 SECTOR FORMAT TEST

001174

007340

021250
021256
021264
021272

001346
000000
000001
035250

SCOPE
MOV

#1,$TIMES

JSR

PC,SUBCLR

MoV

ERROR
000004
000002

021244

TST12:

001362
001460
001466

MoV

#STACK,SP

::D0 1 ITERATION

sRESTORE STK PTR
;CERR AFTER SCLR

#HDTAB,RKBA(R5) ;HEADER WORD TABLE

?Ex

4060£.RKUC(RS)

:WORD COUNT FOR 20 SECTOR FMT

INC

BADHDR

sUSED FOR VALID HALT

MoV

MOV

MOV
JSR

TOCYL ,CALADD

#0, HEAD

#1 ,FORMAT
PC.FHDTAB

s SETUP

:TO FILL
sHEADER
: TABLE

aa |

MACYT 3?{}066)

CZR6IFO UNIBUSS RK6 DR PRT2
CZROIF .P11
04=JAN-B2 12:46

CZR6IFO UNIBUSS RK6 DR PRT2

ciasxr.p11

44%3

04=JAN=82 12:46

20 SECTOR FORMAT TEST

T12

04~JAN-82

13:04

K 7
PAGE 89

MACY11 30(1046)

SEQ 0088

4440
4441

021276
051304

012737
004737

010027
032320

007354

MOV
JSR

#<CFMT 'WRHEAD> ,HCS1
PC . DATCMD
;DO DATA X FOR CMD & GET CONTR RDY

4463
4444

021312
021320

012737
004737

010001
032262

007354

MOV
JSR

#<CFMT
! SELDRV> ,HCS1
PC,DOCMD

021326
021336
021336
021340

032737
001405
104201
104401

100000

007354

BIT
BEQ
ERROR
TYPE

#CERR,HCS1
648
201
MSG26

SCOP1
MOV

#STACK, SP

;RESTORE STK PTR

JSR
ERROR

PC,SUBCLR
24

:CERR AFTER SCLR

CLR
MOV
MOV
BIS
MOV

SECTOR
SECTOR,RKDA(RS)
#DATAT ,RKBA(RS) ;WRITE ALL 1°'S #BAI ,RKCS2(RS)
:BUSS ADDR INCR INHIBIT

MOV
JSR
ERROR

#<CFMT 'WRDATA> ,HCS1
PC.DATCMD
;DO DATA X FOR CMD & GET CONTR RDY
11
*NO RDY AFTER WRITE DATA CMD

4462

4445

444k
4447
4468
4449

4450

021310

021324

021344

104200

104117

000137

031476

021350

4453
22§§

021350
021352

104415
012706

4456
222;

021356
021362

004737
104024

034252

4459
4460
4461
4462

021364
021370
021376
021404

005037
013765
012765
052765

001402
001402
001500
000020

4465
4466
4467
4468

021420
021426
021432

012737
004737
104011

010023
032320

007354

021446

010001
032262

007354

4471

072737
004737

021450
021456

032737
001465

100000

4475

021460

032737

000200

4477

021470

004737

035736

4469
4470
4472
22;2
4476

22;3

021412

02143¢
021442

021466

021474

012765

104117

001421

000455

648:

001100

177400

000006
000004
000010
000002

BIT

#BSE ,HER

:SEE IF BAD SECTOR FLAG

JSR

PC, TRUERR

*ELSE SEE IF SECTOR LISTED IN BSE TABLE

007444

4492

021554

012737

000001

007452

4493

021562

005037

007454

ERROR

BEQ

010340
007446

001720

~:DO FULL SECTOR

007370

012737
005037

012737

#-256. ,RKWC(RS)

;
:BR IF NO ERRORS

021534
021542

021546

$E0P

:CERR AFTER WRITE HEADER CMD
*ABORTING BAL OF TESTS

#CERR,HCS1
688

4489
4490

4491

:NO RDY AFTER SELDRV CMD

BIT
BEQ

001402
001402

104012

117

007354

005237
023727
001003
104046
000137
012765
000137

021532

*NO RDY AFTER WRITE HEADER CMD

#<CFMT
! SELDRV> ,HCS1
PC,DOCMD

021476
021502
021510
021512
021514
021520
021526

022420
100000
021370

&$:

JMP

200

MOV
JSR

4480
481
4482
4483
4484
4485
4486

223;

ERROR

045546

2225

2222

ERROR

000012

000000

658:

668:

007450

117

663

67$

:NO RDY AFTER SELDRV CMD

*BR IF NO

*RETURN HERE IF NO

INC
CMP
BNE
ERROR
JMP
MOV
JMP

SECTOR
SECTOR,#10.
658
46
3s
#CCLR,RKCS1(R5)
48

MOV
CLR

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

MOV

#1,E.B1

ERROR

MOV

CLR

;RETURN HERE If YES
:ARE 10 CONSEC. SECTORS BAD
*BR IF NO
*ABORTING TEST DETECTED 10 BAD SECTORS
*BYPASS TEST
:TRY ANOTHER SECTOR

;CERR WITH WRITE DATA CMD
:EXPECTED MSG AQ

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

E.A2

:MSG ID FOR EXPECTED MSG B1

*EXPECTED
MSG A2

:EXPECTED A1

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P1
04-JAN-82 12:46
449
2232

021566
0215764

012737
012737

000002

4497

021602

004737

4498
4499

021606
021610

450G 021612

4501
4502
4503

021614
021616
021620

4504

000003
10405

MOV

ci.s.e
#3,E.8

:MSG ID FOR EXPECTED MSG B

033100

JSR

PC, CHKMSG

:CHECK MSGS A0, BO,

ERROR

:MSH
B0 ERROR

045546

ERROR
ERROR
TYPE

4505

8%12%3

4507
4508

021632
021640

012737
004737

010001
032262

4510
4511

021646
021654

032737
001001

001000

2;}5

021656

007462

LWORD
ERROR

10402

104053
104025
104401

000137

021644

007456

104063

104117

SEQ 0089

MOV

000003

021626

4509

L 7
MACY11 30(1046) _04=JAN-82 13:04 PAGE 90
T2
20 SECTOR FORMAT TEST

031476

ggg:

JMP

T.A2'T.B2'0
52

53
25
MSG26

$EOP

:MSG ID FOR EXPECTED MSG B
A1, B1

-8 MSGS SPECIFIED HERE
:MSG A0 ERROR AFTER WRITE DATA CMD
:MSG A1 ERROR
:MSG B1 ERROR
*ARORTING BAL OF TESTS

ERROR

007354

MOV
JSR

#<CFMT!SELDRV>
,HCS1
PC,DOCMD

007402

BIT
BNE

#D.FORM, HMR2
1$

MOV
CLR
MOV
MOV
CLR
MOV
MOV

#<0'D.SPIN'D.DRDY'D.VViD.DRA>,E.A0 ;EXPECTED MSG AO
E.B0
:EXPECTED MSG B0
#<D.SPOK'D.CART'D.DOOR!D.BRHM!D.SSP>,E.A1
;EXPECTED A1
#1,E.B1
:MSG ID FOR EXPECTED MSG B1
E.A2
*EXPECTED MSG A2
#2,E.B2
*MSG ID FOR EXPECTED MSG B2
#3.E.B3
:MSG ID FOR EXPECTED MSG B3

104102

ERROR

:BAD SECTOR NOT LISTED IN TABLE

117

:RDY NOT FOUND AFTER SELDRV CMD

102

:FORMAT NOT SET

2;};

021660

4516
4517
4518
4519
4520
4521
2§§§

021660
021666
021672
021700
021706
021712
021720

012737
005037
012737
012737
005037
012737
012737

010340
007446
001720
000001
007454
000002
000003

4524

021726

004737

033100

JSR

PC, CHKMSG

;CHECK MSGS A0, BO, A1, B1

4526
4527
4528
4529
4530
4531
4532

021766

104052
104023
104053
104025
012765
012765
052765

177400
001500
000020

000002
000004
000010

ERROR
ERROR
ERROR
ERROR
MOV
MOV
BIS

52
23
53
25
#-256. ,RKWC (RS)
#DATA1
. RKBA (R5)
#BAI,RKCS2(RS)

:MSG A0
*MSH B0
‘MSG A1
:MSG B1

zgg{

021734
021736
021740
021742
021744
021752
021760

4535
4536
4537
4538
4539

021774
022002
022006
022010
022016

012737
004737
104015
012737
004737

010031
032320

007354

010001
032262

007354

MOV
JSR
ERROR
MOV
JSR

#<CFMT 'WRTCHK> ,HCS1
PC.DATCMD
;DO DATA X FOR CMD & GET CONTR RDY
15
*NO RDY AFTER WRITE CHECK CMD
#<CFMT!SELDRV>
,HCS1
PC,DOCMD

4541
4542
4543
4544
4545

022024
022032
022034
022042
022044

032737
001453
032737
001410
016537

100000

007354

040000

007356

000024

001452

BIT
BEQ
BIT
BEQ
MOV

#CERR,HCS1
708
#CE HCS2
698
RKDB(RS) ,WD1

022060

104016

ERROR

4525

4540

4546

4547
4548

021732

022022

022052

022062

18:

000000

013765

104117

013737
000437

001402

001500

007444
007450
007452

007456
007462

LWORD

000006

001454

MOV

ERROR

MOV
BR

0'0'0

:8 MSGS SPECIFIED HERE

ERROR AFTER WRITE DATA CMD
ERROR
ERROR
ERROR

SECTOR,RKDA(RS)

117

DATA1,WD2
70$

:NO RDY AFTER SELDRV CMD

;SEE IF WRITE CHECK ERROR
;ACTUAL WORD FOR PRINTOUT

-EXPECTED WORD FOR TYPEOUT

:WCE AFTER WRITE CMD

22;9

022064

104022

4552

022066

012737

4553
4554
4555

022076
022100
022106

005037
012737
012737

4556
4557

022114
022120

4560

022134

004737

4563
4564
4565
4566

022144
022146
022150
022152

2333

022126

005037
012737

012737

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

698:
010340

007446
001720
000001
007454
000002

000003

007444

ERROR

MOV

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

CLR
MOV

E.A
cg.s.a

*EXPECTED MSG
A2
“MSG ID FOR EXPECTED MSG B2

CLR
MOV
MOV

007450
007452
007456

007462

SEQ 0090

MOV

;CERR AFTER WRITE CHECK CMD
;EXPECTED MSG AO

E.B0
EXPECTED MSG B0
#<D.SPOK'D. cAar'b DOOR!D.BRHM'D.SSP>,E.A1 :EXPECTED A1
01 e B1
MSG ID FOR EXPECTED MSG B1
&

*MSG ID FOR EXPECTED MSG B3

033160

JSR

PC,CHKMSG

; CHECK nses A0, B0, A1, B1

022156

104031
104060
104032
104401

000137

045546

ERROR
ERROR
ERROR
TYPE

31
60
32
MSG26

*MSH B0 ERROR
*MSG A1 ERROR
*MSG B1 ERROR
*ABORTING BAL OF TESTS

4569
4570
4571

022162
022162
022170

012737
004737

010001
032262

007354

MOV
JSR

#<CFMT!SELDRV>,HCS1
PC,DOCMD

4573
4574

022176
022204

032737
001001

001000

007402

BIT
BNE

#D.FORM,HMR2
2

4561

4562

2225

4572

22;2

022140

000003

022142 104057

022176

022206

104117

WORD

ERROR

031476

JMP

708
:

ERROR

104103

ERROR

T.A2'T.B2'0

$EOP

MSGS SPECIFIED HERE

:MSG AO tnaoa AFTER WRITE CHECK CMD

117

:NO RDY AFTER SELDRV CMD

103

:FORMAT NOT SET

22;;

022210

4579

022210

012737

010340

007444

MOV

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

4581
4582

022222
022230

012737
012737

001720
000001

007450
007452

MOV
MOV

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

4584

022242

000002

007456

MOV

#2,E.B2

JSR

PC, CHKMSG

;CHECK MSGS A0, BO, A1, B1

ERROR
ERROR
ERROR
ERROR
SCOP1

57
31
60
32

:MSG A0
:MSH B0
*MSG A1
*MSG B1

MOV

#STACK, SP

;RESTORE STK PTR

JSR

PC,SUBCLR

4580

4583
2;32

022216

022236

022250

28:

005037

005037
012737

012737

4587

022256

004737

4589
4590
4591
4592
4593

022264
022266
022270
022272
022274

104057
104031
104060
104032
104415

4588

022262

000000

007446

007454

000003

007462

033100

CLR

MOV

LWORD

;EXPECTED MSG A0

E.B0

;EXPECTED MSG B0

E.A2

SEXPECTED MSG A2

#3.E.83

*MSG ID FOR EXPECTED MSG B3

0'0'0

*MSG ID FOR EXPECTED MSG B2

:8 MSGS SPECIFIED HERE

ERROR AFTER WRITE CHECK CMD
ERROR
ERROR
ERROR

2§gg

022276

012706

001100

4596

022302

004737

034252

4599
4600

022310
022316

012765
012765

001522
177676

000004
000002

MOV
MOV

#HDTAB,RKBA(RS) :;RESTORE CYL O TO 22 SECTOR FMT
#-66., RKWC(RS)

4603
4604
4605

022330
022336

013737
012737

001346
000000

001362
001460

MOV
MOV

TOCYL.CALADD
#0,HEAD

223;

2285

022306

022324

104024

005037

001346

ERROR

CLR

:CERR AFTER SCLR

ToCYL

:SETUP
270 FILL

lalal
~N

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

SEQ 0091

0127%7
004737

000000
035250

001466

MOV

#0,FORMAT

000027
032320

007354

MOV

#<WRHEAD> ,HCS1

ERROR

200

*NO RDY AFTER WRITE HEADER CMD

#CERR,HCS1
718
201
MSG26

;CERR AFTER WRITE HEADER CMD
*ABORTING BAL OF TESTS

033722
100000

JSR

JSR
JSR

007354

BIT
BEQ
ERROR
TYPE
718%:

007340

38:

JMP
CLR

PC.FHDTAB

PC,DATCMD
PC,GSTAT

$E0P

BADHDR

:HEADER

*TABLE

;DO DATA X FOR CMD & GET CONTR RDY

*GET FRESH STATUS

;USED FOR VALID HALT

;;ttttt.tttttttttttttttt'tt'.t.tttt.ltt.ttttt't"tt.t'ttttt'ttti.

S*TEST 13

H *

i
i
v
i
i
i
i
TM
022424

000004

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:tttttttttttttQttttttttttt'tt.ttttttttt.tt't'tttItttttttt'ttt'tt

TST13:

SCOPE
MOV

#1,8TIMES

::D0 1 ITERATION

MOV

#1.R2

:MIN POS OFFSET

JSR

PC.SUBCLR

:CERR AFTER SCLR

MOV

R2,RKASOF (RS)

:SET OFFSET

MOV
MOV

#64S$, SESCAPE
#OFFSET ,HCST

ERROR

012737
012706

000001
001100

022440

012702

000001

022444
022450

004737

034252

022452

010265

000016

022456

012737

022544
000015
032262

001176
007354

032140

007444

?EX

g<gbpxpeo.sp1~!o.orrso.vveo.oaA>.e.Ao

007450

MOV

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

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

104024

022520

012737

000001

022526

004737

033100

022536
022540

104036

001174

MOV

18:

007452

ERROR

JSR

MOV

. WORD

#STACK,SP

PC,DOCMD

*RESTORE STK PTR

;DO RECAL CMD & GET CONTR RDY

*NO RDY AFTER OFFSET CMD

;EXPECTED MSG A0

#,E.B1

gsbeo

:8 MSGS SPECIFIED HERE

d
— e

022344

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

LNCND(DMNUfigLNUU
N=
=2 WVNNNO
NN

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

C2Zl
czi

fifi 022542

104062

4664
4665

022544
022550

005037
013737

4667

022562

104034

4670
4671

022564
022572

012737
005037

052340
007446

4673
4674
4675

022604
022612
022616

012737
005037
012737

000001
007454
000002

001176
021416

“g 022556 004737 032766

4223
4672

007412

046) 04=JAN-82 13:04 8PAGg 93

648:

TEST OFFSET & RTC LOGIC

SEQ 0092

ERROR

:MSG B1 ERROR

CLR
MOV

sgscm
15000 rsnp1

;SETUP TIMEOUT

*NO ATTN AFTER OFFSET CMD

JSR

PCFATT

007444

MOV
CLR

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

007452

MOV
CLR
MOV

c1.e.s1
E.A2
#2,E.B

:MSG ID FOR EXPECTED MSG B1
ExPecreo MSG
A2
MSG ID FOR EXPECTED MSG B2

ERROR

022576 012737 001720 007450

MOV

007456

:FIND ATTN

#<D.SPOK'D. cAar-b DOOR!D.BRHM!D.SSP>,E.A1 :EXPECTED A1

g§ 0226264 012737 000003 007462

MOV

4678 022632 004737 033100
4679

022636

000003

JSR

PC, CHKMSG

.mmmuowma1

4681
4682

022642
022644

104261
104037

ERROR
ERROR

261
37

:MSH BO ERROR
*MSG A1 ERROR

4685
4686
4687
4688
4689
223?

022650
022654
022656

005737
001401
104042

001360

022660
022666

042737
010265

001000
000016

4692

022672

032702

000200

4695

022700

020237

001356

4697
2233

022706
022710

104114
000404

4700

022712

020137

4702
4703

022720

104114

2;33

022722

4706

022722

012765

4708
4709

022736
022746

012737
004737

WORD

4680 022640 104260

2232

zggz

4696

4701

4707
4710

022646

022676

022706

022716

022730
022750

4711

022752

4713
2;};

022760
022762

4716

022762

4712

4717

022756

022770

ERROR

104040

001005

001406

001401

001356

17$:

658:

T.A2'T.B2'0

260

104151

004737

000401

CYLADD
17$
42

BIC
MOV

#1000,CYLDIF
R2,RKASOF (RS)

BIT

#BIT7.R2

658

:BR IF NEG OFFSET

CMP

R2,CYLDIF

;CHECK POS OFFSET

ERROR
BR

114
66$

;OFFSET IN A2 NOT = RKASOF
*AFTER OFFSET CMD

(MP

R1,CYLDIF

;CHECK NEG OFFSET

ERROR

114

;OFFSET IN A2 NOT = RKASOF
SAFTER OFFSET CMD

BEQ

66$

004737

:MSG B1 ERROR

:CYL ADDR IM B2 WAS NOT 0
*AFTER OFFSET CMD FROM CYL 0
:GET RID OF HIGH BIT
:REFRESH RKASOF

100000

000000

MOV

#CCLR,RKCS1(RS)

000005
032262

007354

MOV
JSR

#CLEAR,HCS1
PC ,DOCMD

;DO DRIVE CLEAR CMD & GET CONTR RDY

JSR

PC,TSTATN

*TEST FOR ATTN

ERROR

154

001222

000010

MOV

ERROR

032640

104154

012765

S6S SPECIFIED HERE

:MSG AQ éaaonAFTER OFFSET CMD

TST
BEQ
ERROR

668 :

013765

‘MSG ID FOR EXPECTED MSG B3

BEQ

001356

#3.E.B

ERROR

BNE

;EXPECTED MSG A0

678:
100000

033722

000000

MOV

JSR

SUNIT.RKCS2(R5) :DRIVE#
151

678

#CCLR,RKCS1(RS)

PC,GSTAT

*NO RDY AFTER DRIVE CLEAR CMD

:ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

lalal

MACY11 30(1
T13

[
-

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

CZR6IFO UNIBUSS RK6 DR _PRT2
CZR6IF.PI
04=-JAN-82 12:46

04=JAN-82 13:04 gAGg 94

MACY11 3? (1046)
13
TEST OFFSET & RTC LOGIC

4718
4719
2;2?

0% 774
0
2
02

032737
001001
104043

002000

4723
4726
2;22

023014
023020
023026

005037
012737
012737

007446
001720
1

4727
4728

023034
023040

004737
000003

033100

4730
4731
4732
4733
2;%;

023044
023046
023050
023052
02

104265
104274
104266
042737
010265

4736
2;%;

023064
023070

032702
001005

4739
47640
47641
2;2

023072
023076
023100
023102

4746
4745
47646
4747
4748
4749
4750
4751

023104
023110
023112

023114
023122

012737
004737

000017
032262

007354

47564
4755

023130
023136

013737
004737

001420
032766

007412

MoV
JSR
ERROR

4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
4771
4772
4773

023144
023152
023154

032737
001401
104210

100000

007354

BIT

#CERR,HCS1

ERROR

210

007402

47S§ 0%3006 012737 012340 007444 4S:

47%8

2;;

2;29

023042

007450
007452

023142

023176
023202

OFFSET BIT IN RKMR2 CLEARED
FTER DRIVE CLEAR CMD & SELECT DRV CMD

g<g°0FF'DSPlN'D DRDY'D VV!D.DRA>,E.AQ
’

265
274
266
#1000,CYLDIF

:MSH BO ERROR
‘MSG Al ennon
*MSG B1 ERROR
:GET RID OF WIGH BIT

000200

#8IT7.R2
658

:BR IF NEG OFFSET

020237
001406
104115
000404

001356

R2,CYLDIF

sCHECK POS OFFSET

115
698

:AFTER DRIVE CLEAR CMD

020137
001401
104115

001356

R1,CYLDIF

sCHECK NEG OFFSET

104273

001000

000016

001356

32'7.B2!0

R2,RKASOF (RS)

698
68$%:
ERROR

104131

104132

A1, B1

g MS srécxrxeo HERE
:MSG AQ énaonAFTER DRIVE CLEAR CMD

*REFRESH RKASOF

;OFFSET IN A2 NOT
= RKASOF

69§
115

sOFFSET IN A2 NOT
= RKASOF

AFTER DRIVE CLEAR CMD

69%:
MoV
JSR
ERROR

sEXPECTED A0

z<b.SP?K!D.CART!D.DOOR!D.BRHH!D.SSP).E.A1

:CHECK MSGS AO 80,

#SEEK HCST

PC,DOCMD

;DO SEEK CMD & GET CONTR READY
:NO RDY AFTER SEEK CMD

rsoooo TEMP1

sSETUP TIMEOUT
sFIND ATTN
:NO ATTN AFTER SEEK CMD

131

T$2

708

:CERR AFTER SEEK CMD

:
708
032737
001001
104045

002000

007402

BIT

ERROR

023170
023170

#D.0FF ,HMR2
4%

PC CHEMSG

023156
023156
023164
023166

MoV
CLR
Mov
MoV

. WORD

023114

023126

BIT
BNE
ERROR

SEQ 0093

#D.0FF ,HMR2
7%

;OFFSET BIT CLEARED IN RKMR2 AFTER SEEK TO SELF.

7$:
012737

005037
012737

052340

007446
001720

007444

007450

Mov
CLR
MoV

g<goDSC'DLOFF!D.SPINéD.DRDY!D,gX'D.DRA> E.AQ

PECTED MSG

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

;EXPECTED MSG AO

sEXPECTED A1

[

023210
023216
02322
023230

012737
005037
01%7;7
012737

0000g1
007454
00000;

4779
4780
4781

02 33
023242
023244

004737
000003
104140

033100

4783
4786
4785
2;%9

023250
023252
023254
023262

10414§
10414
042737
010265

001000
000016

4788

023266

032702

4791
4792
4793

023274
023300
023302

4796
4797
4798
4799
4800
4801
4802

023306
023312
023314

4782

2;38

2;32

023246

023272

023304

00000

007452
007456
007462

MoV
CLR
MoV
Mov

001356

JSR
. WORD
ERROR
ERROR
ERROR
ERROR
BIC

104141

01 E 81

sMSG_ID FOR EXP CTED MSG B1
EXPECTED MSG A

MSG ID FOR EXPECTED MSG B2
HSG ID FOR EXPECTED MSG B3

PC CHKHSG

'7T.82!0

MoV

R2, RKASOF
RS)

000200

BIT
BNE

#BIT7 ,R2
718

:BR IF NEG OFFSET

020237
001406
104123

001356

CMP
BEQ
ERROR
BR

R2,CYLDIF

;CHECK POS OFFSET

123
728

;OFFSET IN A2 NOT = RKASOF

020137
001401
104123

001356

CMP
BEQ
ERROR

R1,CYLDIF

sCHECK NEG OFFSET

123

;OFFSET IN A2 NOT
= RKASOF

JSR
ERROR

PC,SUBCLR

001005

0C0404

71%:

023316

728

72%:
034252

023324
023332

012737
012765

000012
000012

001346
000020

4810
4811
4812
4813
4814
4815
4816
4817
4818

023340
023344
023352
023356
023
023
023370
023372

012700
012737
004737
104171
032737
001405
104174
104401

001726
000025
032320

007354

#RHTAB,RO
#<RDHEAD> ,HCS1

100000

007354

0C§RR.HCS1

4821

023402

016520

000024

023416
023424
023426
023432

032765
00140
004737
104173

100000

2358

4822
4823
4824
4825
4826
4827
4828
4829

023376

0234
023412

-8 MS spécxrieo HERE
:MSG AQ énnonAFTER SEEK TO SELF
:MSG B1 ERROR
*GET RID OF HIGH BIT
*REFRESH RKASOF

DIF

004737
104024

4805
4806
4807
4808
4809

;CHECK MSGS AO 80,

*MSH B0 ERROR
‘MSG Al tRROR

023316
023322

2382

SEQ 0094

000137

016520
016520

Mov
MoV

#10.,T0CYL

#10. .RKDC (RS)

P’ibAICHD

:AFTER SEEK TO SELF
;CERR AFTER SCLR

sSETUP CYL 10
;DO ACTUAL IMPLIED SEEK TO CYL 10 TO VERIFY
cOFFSET BIT IN RKMR2 CLEARED

;D0 DATA X FOR CMD & GET CONTR RDY
sNO RDY AFTER READ HEADER CMD
sCERR AFTER READ HEADER CMD
sABORTING BAL OF TESTS

045546

031476

74$:

000024
000024

033722

;AFTER SEEK TO SELF

000010

.1;31
WORD FROM SILO TO RHTAB

uono
Ig'no
leT.RKCSZ(RS)

PCGSTAT

175

sDLT AFTER READ HEADER CMD

~iea

|
4776
4775
4776
2;;3

D 8
MACYT1 30Q1 046) 04=JAN-82 13:04 PAGE 95
T13
TEST OFFSET & RTC LOGIC

CZR6IFO UNIBUSS RK6 DR PRTZ
CZROIF.P
04~JAN-82 12:46

1
045546
02%240 000137 031476

TYPE

104401

023530
023536
023540
023542

NINNINNNYNY
WN
—_ed
N

023526

75%:

007444

00000

007456
007462

002000

023554

001360

001346

007402

000012

001356

9%:

108:

023574
023576
023602

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

E.80

EXPECTED MSG B0

MOV
CLR
MOV

01 e 81
E.A
ci.e
B2

:MSG ID FOR Exrscrso MSG B1
*EXPECTED MSG
A
:MSG ID FOR EXPECTED MSG B2

JSR

PC, CHKMSG

;CHECK MSGS A0, BO, A1, B1

ERROR
ERROR
ERROR

271
302
272

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

CMP

RHTAB, TOCYL

;CHECK WORD 0 ONLY, CYL#

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

LWORD
ERROR

73%:

023542
023550
023552

MOV

0337100

001726

$eopP

MOV

007450
007452

034252

16$:

;ABORTING BAL OF TESTS

JMP
CLR

PINININIANNY

22882282

023444

MSG26

SEQ 0095

BEQ
ERROR

:EXPECTED MSG AO

#<D.SPOK'D. cAar'b DOOR!D.BRHM!D,SSP>,E.A1 :EXPECTED A1
¥

T.A2'T.B2'0
301

73s
51

16$
101

:MSG ID FOR EXPECTED MSG B3

-8 MSGS SPECIFIED HERE
:MSG A0 ERROR AFTER READ HEADER CMD

:BR IF SAME
*WRONG CYL# ON HEADER

;OFFSET NOT CLEARED IN RKMR2

JSR

PC,SUBCLR

MOV
JSR

#SEEK,HCS1
PC,DOCMD

;DO SEEK CMD & GET CONTR READY

750000, TEMP1

;SETUP TIMEOUT

ERROR

000017
032262

007354

001420
032766

007412

MOV

JSR
ERROR

PC,FATT2
132

100000

007354

BIT

#CERR,HCS1

ERROR

BEQ
ERROR

131

:CERR AFTER SCLR

*NO RDY AFTER SEEK CMD

SFIND ATTN
“NO ATTN AFTER SEEK CMD

768
210

;CERR AFTER SEEK CMD

#BIT7.R2

;SEE IF DOING NEG OFFSETS

76$:

023646

032702

0002C0

BIT

[V
T

04=JAN-82 13:04 sAGg 96

MACY11 3? (1046)
13
TEST OFFSET & RTC LOGIC

CZR6!F0 UNIBUSS RK6 DR_PRT2
CZRSIF.PN
04=JAN-82 12:46

4886
4887
4888
4889
4890
4891

023652

001014

023654
023656
02
023664

00520
020227

4893
489%

023670
023676

012702
012701

4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
&M
4912
4913
4914
4915
4916
917
4918
4919
4920
4921
4922
4923
4924
4925

023704
023706
023710
023714
023716

005201
00520
020227
001402
000137

023722
023724

000004
012737

4928
4929

023736
023742

004737
104024

034252

4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941

023744
023750
023756
023764
023772

005037
013765
012765
052765
012765

001402
001402
001500
000020
177400

4895

4926

025700

001402
000137

000137

000061

BNE

188

:BR IF YES

INC
CMP

ns
RO 461

:SEE IF JUST DID MAX POS OFFSET

JMP

*ELSE DO NEXT POS OFFSET

BEQ

022444
000201
000101

208:

022444
188:
000261
022444

208

*BR IF YES

MoV

#201,R2

:SETUP NEG OFFSET FOR RKASOF

JMP

:DO NEG OFFSET

R1
R2
R2, 4261
TST14
13

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

MOV

INC
INC
CMP
BEQ
JMP

#101.R1

*SETUP NEG OFFSET OFOR MSG A

ttitlttttt.t.ttttttQt"tt"QQ.'.'.Q...Q'....'..QQt!"'.ttt..ttt

SRTEST 14

TEST READ DATA AT ALL HEAD OFFSET POSITIONS

‘a

i
i
i
3

THIS TEST VERIFIES THAT THE HEAD OFFSET LOGIC IS OPERATIONAL 8Y
WRITING ALL 1°'S PATTERNS ON CYLINDER O, HEAD 0. THEN
PERFORMING READ DATA FROM CENTERLINE AND MOVING OUT + AND - OFFSET
:ggx;iggg gfi;lL A FAILURE OCCURES.
THE FAILING OFFSET POSITIONS

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

i
i

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

i
i

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

023732

012706

:. L2333

000001

001100

001174

TST14:

SCOPE

MOV

#1,$TIMES

JSR

PC,SUBCLR

CLR

SECTOR

MOV
BIS
MOV

#DATAT _RKBA(RS) :WRITE ALL 1'S
#BA] ,RKCS2(RS) :BUS ADDR INCR INWIB
#-256. ,RKWC(RS) :SECTOR O ONLY

MOV

000004
000010
00000

11$:

B. THE COMBINATION OF DISC SURFACE, HEADS, R/W AMP
ARE EXCEPTIONALLY GOOD.

3 3333333133332 233 2333333333388 3 3333333333333 3223322228233

ERROR
000006

A. HEADS DID NOT MOVE AT ALL

i
i

MOV

#sSTACK,SP
24

::D0 1 ITERATION

:RESTORE STK PTR
:CERR AFTER SCLR

SECTOR,RKDA (RS)

:WILL DO IMPLIED SEEK TO CYL 0

*WAS ON CYL 1 FROM LAST TEST
024000
024006
024012

012737
004737
104011

000023
032320

007354

MOV

#<WRDATA> ,HCS1

ERROR

JSR

PC.DATCMD

;DO DATA X FOR CMD & GET CONTR RDY

sNO RDY AFTER WRITE DATA CMD

SEQ 0096

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

lalal ]

CZR6IFO UNIBUSS RKG DR PRT2
CZR6IF.P1N
04~JAN=-82 12:46

4942

4943

024014

004737

001465

032737

033722

234‘45.

026026

100000

007354

4946

024030 032737 000200

007370

4947
4948

024020

024036
024040

oou.g
004737

035736

4951
4952

024046
024052

005237
023727

001402
001402

4954

024062

104069

2.345.3 024044 000455
4953

024060 001003

6
046) TEST
_04=JAN-82
13:04
PAGg 9)
READ DATA AT ALL HEAD OFFSET POSITIONS
JSR

BIT

BEQ

o;énn HCS1

;GET FRESH STATUS

:BR IF NO ERRORS

BIT

#8SE ,HER

:SEE IF w SECTOR FLAG

B8R

668

*RETURN HEREI

BEQ
JSR
INC
CMP

000012

PC,GSTAT

SEQ 0097

658
PC, TRUERR

‘BR
IF
*ELSE see IF secron LISTED IN BSE TABLE

SECTOR
SECTOR,#10.

:RETURN HERE IF YES
ARE 10 CMSEC. SECTORS BAD

ABORTING TEST DETECTED 10 BAD SECTORS

BNE

64$

JMP
MOV
JMP

108
*BYPASS TEST
#CCLR,RKCS1(RS) :TRY ANOTHER SECTOR
118

ERROR

:BR IF

4955 024064 000137 025462
4956 024070 012765
100000
4957 024076 000137 023750

000000

2323

024102

104012

024104

012737

010340

007444

MoV

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

4963

024124

012737 000001

007452

MOV

n e 81

:MSG ID FOR EXPECTED MSG B1

4965 024136 012737 000002 007456
2329 024144 012737 000003 007462

MOV
MOV

%
e sz

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

4968
4969

JSR
.WORD

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

;CHECK HSGS A0, B0, A1, B1
HSGS SPECIFIED HERE

ERROR
ERROR

23
53

HSH B0 ERROR
:HSG A1 ERROR

TYPE

MSG26

4961

4962

4964

024112

005037

007446

007454

024152
024156

004737
000003

033100

4971
4972

024162
024164

104023
104053

4974

0264170

104401

4973

4975

024132

024160

0241

024174

104025

000137
104063

4982

024222 012737 000001

012737

005037
012737

010340

007446
001720

024230
024234

005037
012737

007454
ooooog

4987

024250

004737

033100

4991
4992

024260
024262
024264

10402
104053
104025

4994

024274

2332 0246242 012737 000003

4993

4995

000003
10405%

668:

678:

4983
4984

024254
(024256

ERROR

031476

024202

4988
4989

CLR

045546

4979

024210
024214

MOV

ERROR

024200

024202

ERROR

CLR

104052

4976
23;;

4980
4981

658:

024116 012737 001720 007450
005037

4970

64$:

007444

007450

007452

007456

007462

E.B0

;EXPECTED MSG AQ

E.B0
EXPECTED MSG B0
#<D.SPOK'D. CART'b DOOR'D.BRHM'!D.SSP>,E.A1

CLR
MOV

cz E.B2

sxpecreo MSG
A2
*MSG ID FOR EXPECTED MSG B2

JSR

PC, CHKMSG

;CHECK MSGS A0, B0, A1, B1

ERROR
ERROR
ERROR

MOV

n5.B1

#3.E.B3

s AZ‘T B2'0
Sg

3
25

#DATA1 ,RKBA(RS)

024302

o1§765

177400

MOV

#-256. ,RKWC (RS)

001402 000006

:BAD SECTOR NOT LISTED IN TABLE

CLR
MoV

MOV

4996 024310 013765

;ABORTING BAL OF TESTS

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

001500 000004

000002

;MSG B1 ERROR

MoV

.WORD
ERROR

000010

:MSG A0 ERROR AFTER WRITE DATA CMD

igop

ERROR

;EXPECTED MSG A0

expecreo MSG
A2

JMP

012765

000020

XPECTED MSG BO

#<D.SPOK'D. CART'b DOOR'D.BRHM'D.SSP>,E.A1 :EXPECTED A1

024

052765

;CERR WITH WRITE DATA CMD

BIS

MOV

m; RKCS2 (RS)

SECTOR.RKDA (RS

:MSG ID FOR EXPECTED MSG B1

:EXPECTED A1

*MSG ID FOR EXPECTED MSG B3

:8 MSG
S SPECI IED HERE
:MSG AD ERROR AFTER WRITE DATA CMD
HSH 80 ERROR
HSG A1 ERROR
*MSG B1 ERROR

lalal

MACY11 30(1
T4

CZR6IFO UNIBUSS RK6 DR mz
CZIROIF.P11
04=JAN-82 12:46

MACY11 30(1 046) 04=JAN-82 13:04 PAGE 99
T4
TEST READ DATA AT ALL HEAD OFFSET POSITIONS

4998 024316 omgr ogog 007354

4999
S000
5001

024326
024
024

004737
104015
8?‘ g

5003
5004
5005

024344
026
024354

oou.s;
032737
801419

soog

024

2737

032320
033722

100000

007354

040000

007356

024376

104022

#<WURTCHK> ,HCS1

BIT

#CERR,HCST

JSR
ERROR
JSR

BEQ
BIT
BEQ

5006 024356 016537
000024 001452
5007 024
013737 001500 001454
5008 024372 104016
gggg 024374 000437
23} 12

MoV

POV
MOV
ERROR
BR
688:

;CERR AFTER WRITE CHECK CMD

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

007452

MOV

5018 024432 012737 000002
2353 024440 012737 000003

007456
007462

CLR

5015 024412 012737 001720 007450

;SEE IF WRITE CHECK ERROR

5016 024420 012737 000001

007446

698
#ICE HCS2
68$

ERROR

MOV

005037

:DO DATA X FOR CMD & cer CONTR RDY
*NO RDY AFTER WRITE CHECK CMD
*GET FRESH STATUS

sWCE mta WRITE CMD

007444

024406

rg.mcno
1
PC,GSTAT

RKDB(RS) ,WD1
DATAT,WD2
16
698

5013 024400 012737 010340
5014

SEQ 0098

E.80

:ACTUAL woao FOR PRINTOUT
XPECTED WORD FOR TYPEOUT

XPECTED MSG B0

;EXPECTED MSG A0

MOV

#<D.SPOK'D. cm'b DOOR'D.BRHM!D.SSP>,E.A1 :EXPECTED Al

CLR

E.A2

# E.B1

:MSG ID FOR EXPECTED MSG B1°

MOV
MOV

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

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

033100

JSR

PC, CHKMSG

045546

ERROR
ERROR
ERROR
TYPE

31
60
32
MSG26

012737 010340 007444

MOV

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

012737 001720 007450
012737 000001 007452

MOV
MOV

#<D. SPOK'D.CART!D.DOOR
! D.BRHM!D. SSP>,E.A1 :EXPECTED A1
# ,E.B1
:MSG ID FOR sx:screo MSG 81

5037 024552 012737 ooooo; 007456

MOV

#2,E.B2

5040

024542

024546

000003

JSR

PC, CHKMSG

: CHECK nsss AO 80,

5043
5044
g&g

024552
024554
024556

104031
104060
104032

ERROR
ERROR
ERROR

31
60
32

*MSH B0 ERROR
:MSG A1 ERROR
:MSG B1 ERROR

5047

024560

TYPE

,MSG8

MOV

#1,R0

:INIT orrser COUNTER

MOV

1,=-(SP)

S7SAVE R1 FOR TYPEOUT

5017

024426

005037

007454

5021

024446

004737

5024
5025
5026
5027

0c4456
024460
024462
024464

104031
104060
104032
104401

gggg
5032
5033
03,
5035

024474
024474
024502
024506
024514

5022

5023

024452

000003

024454 104057

LWORD

ERROR

3853 024470 000137 031476

036

024522

gg;g 024534
5041

5042

ggzg

005037

007446

005037

007454

012737 000003
004737

104401

005001

024572

104401

sosi 024576 010146
505

CLR

007462

MOV

033100

LWORD

ERROR

045033

5050 024566 012700 000001
5051

$EOP

; CHECK nsss A0, B0,

A1,

MSGS SPECIFIED MERE

:MSG AQ tanon AFTER WRITE CHECK CMD
*MSH BO ERROR
*MSG A1 ERROR
:MSG B1 ERROR
*ABORTING BAL OF TESTS

698 :

024550 104057

024564

JMP

T.A2'T.B2'0

SEXPECTED MSG A2

045072

CLR

98:

TYPE

;EXPECTED MSG AO

E.B0

EXPECTED MSG B0

E.A2

*EXPECTED MSG

#3.E.B3

*MSG ID FOR EXPECTED MSG B3

T.A2'T.B2'0

57
1

,MSG9

:MSG ID FOR EXPECTED MSG B2
A1, B1

$ SPECIFIED HERE

:MSG A0 tnaoamsa WRITE CHECK CMD
:READ unu OFFSET TEST

TAEAD
#
HEAD

2:TYYPE HEAD #

(alal
NN

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

SEQ 0099

5054 ng
5055
505
024
;828

104403
000
04401

001205

5059

024610

005037

001456

5061
282

024614
024620

004737
104024

034252

5066
5065
5066

024622
024626
024630

010065
000301
010165

5069
5070
5071
gg;g

024636
054644
024652
024656

012737
012737
004737
104033

024724
000015
032262

001176
007354

5074
5075
5076
28;;

024660
024666
024672
024700

012737
005037
012737
012737

032140
007446
001720
000001

007444

g<gbpxpso.spxuso.orrso.vveo.onA>.s.Ao

007450
007452

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

5079
5080
5081
5082
5083
gggg

024706
024712
024714
024716
024720
024722

004737
000000
104035
104061
104036
104062

033100

5086
5087
5088
5089
5090
5091
5092
5093
5094
5095
5096
5097
2833

0247264
024730
024736
024742

005037
013737
004737
104034

001176
001416
032766

024744
024752
024756

012737
005037
012737

052340
007446
001720

5100
5101
5102
5103
5106
5105
5106
5107
5108
5109

025012
025016
025020
025022
025026
025026

gggz

024634

024764
024772
024776
025004

000301

012737
005037
012737
012737

004737
000003
104260
104261
104037
104040

TYPOS

.BYTE
.BYTE

1$:

;:60 TYPE--OCTAL ASCII

TYPE

0
+SCRLF

CLR

OFFERR

JSR
ERROR

PC,SUBCLR

ssTYPE 1 DIGIT(S)

s ;SUPPRESS LEADING ZEROS
sWRITE CHECK ERROR FLAG

;CERR AFTER SCLR

000016

g?.RKASOF(RS)

sOFFSET VALUE

000006

:}.RKDA(RS)

sHEAD NO.

#708,SESCAPE
#OFFSET ,HCST
PC,DOCMD

;DO RECAL CMD & GET CONTR RDY

;CHECK MSGS A0, BO, A1, B1

:MSG A0 ERROR DURING OFFSET CMD

36
62

000001
007454
OOOOOS
00000

708:

S$ESCAPE

75000, TEMP1
PC,FATT2

:8 MSGS SPECIFIED HERE
:MSH BO ERROR

*MSG A1 ERROR
:MSG B1 ERROR

;SETUP TIMEOUT
SFIND ATTN

*NO ATTN AFTER OFFSET CMD

012765
013765

#<D.DSC!D.OFF !D.SPIN!D.DRDY !D.VV!D.DRA> E.AD

007450
007452

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

00745
00746

033100

E.B0

EXPECTED MSG BO

c1 E.B1

:MSG 1D ro:sgxpscrso MSG B1
*EXPECTED

2,E.B2
.E.B3

r AZ'T B2'0

: CHECK nsss A0, B0,

§61

*MSH BOERROR

000000
000010

A1, B1

MSGS spécxrxso HERE

:MSG A0 tnaoa AFTER OFFSET CMD
*MSG A1 ERROR

*MSG B1 ERROR

#CCLR,PKCS1(RS)
SUNIT,RKCS2(R5) ;DRIVE#

;EXPECTED MSG AQ

:EXPECTED A1

*MSG ID FOR EXPECTED MSG B
:MSG ID FOR EXPECTED MSG B

PC.CHKMSG

100000
001222

007444

}

025030
025036

:EXPECTED MSG A0

PC, CHKMSG

0070

007412

sNO RDY AFTER OFFSET CMD

e ‘]

1
MACY11 3? (1 046) 04=JAN-82 13:04 PAGE 100
14
TEST READ DATA AT ALL HEAD OFFSET POSITIONS

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

gnxauss RK6 DR PRT2

MACY11 30(1 046)

5110

025044

012737

007354

s11§

025056

104151

lalal
NN

R6IF

ROIF.P11

04=JAN-82 12:46

000005

§111 025052 004737 032262
511

5060

004737

5114 025064 000401
5115 025066 104154
g;;g 025070

T14

04=JAN-82

MOV

#CLEAR,HCS1

ERROR

151

PC,DOCMD

:DO DRIVE CLEAR CMD & GET CONTR RDY

JSR

PC,TSTATN

STEST FOR ATTN

ERROR

154

B8R

718:

J 8
PAGE 101

TEST READ DATA AT ALL HEAD OFFSET POSIT.iONS

JSR

032640

13:04

71$

5118

025070

012765

001500

000004

MOV

#DATA1,RKBA(RS)

5120

025104

01%765

177400

000002

MOV

#-256. ,RKWC (RS)

5119

025076

052765

000020

§121
s1z§
512
5124
§125
§126
g}gg

025112
025120
0251%6
025132
025134
025140
025146

01 7gs
012737
004737
104015
004737
032737
001421

001402
000031
032320

§129
g%g?

025150
025156

016537
005237

000024
001456

5132
5133
5136
5135
5136
5137
5138
5139
5140
?12}

025162
025166
025170
025174

005737
001411
104401
010046

001456

025176
025200
025201
025202
025206

104403
006
000
104401
104401

5143
g}zg

025212
025216

032700
001023

000200

5146
5147
5148
5149
5150
g}gg

025220
025224
025226
025232
025234
025240

020027
001412
005737
001404
012700
000137

000060

000200
024610

5153
g}gg

025244
025246

005200
000137

024610

5156

025252

005737

001456

5158

025260

104401

045654

g;g;

025264

000763

5163
g}gg

025266
025272
025274

020027
001404
005737

5157 025256 001366

033722
040000

000010

BIS

000006
007354

MOV
MOV
JSR
ERROR
JSR
BIT
BEQ

007356
001452

046012

001205
001205
28:

001456

000260
001456

8s:

38:
48:

;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

#BA] ,RKCS2 (RS)

SECTOR,RKDA
(RS5)
#WRTCHK HCS1
PC,DATCMD
D0 WRITE CHECK CMD. & GET CONTR RDY.
15
*NO RDY AFTER WRITE CHECK CMD

PC,GSTAT
MICE,HCS2
2

*GET FRESH STATUS

MOV
INC

RKDB(RS) ,WD1
OFFERR

;GET MISCOMPARED WORD
sBAD WRITE CHK ERROR=SET ERR FLG.

TST
BEQ
TYPE
MOV

OFFERR
2
,MSG39
RO,=(SP)

TYPOS
.BYTE
BYTE
TYPE
TYPE

6
0
,SCRLF
.SCRLF

BIT
BNE

#BIT7.RO
58

CMP
BEQ
ST
BEQ
MOV
JMP

RO, #60
4
OFFERR
3s
#200,R0
18

INC
JMP

RO
1$

OFFERR

JWRITE CHECK FAILURE AT OFFSET
*:SAVE RO FOR TYPEOUT
:2TYPE OFFSET VALUE
1360 TYPE=-OCTAL ASCII
*:TYPE 6 DIGITS
*:SUPPRESS LEADING ZEROS

;SEE IF OFFSET IS + OR :BR IF - OFFSET

;SETUP FOR NEG OFFSET

BNE

:DO NEG OFFSETS

CMP
BEQ
TST

RO, #260
6$
OFFERR

TYPE

5%:

*NO RDY AFTER DRIVE CLEAR CMD

,MSG37

JNO WRITE CHECK ERROR AT MAX POS OFFSET

SEQ 0100

#1,RKMR1(RS)
PC.GSTAT
#D.RTZ,HMR2
728
244
710, TEMP2
PCFATTI
55

;SELECT WORD 1

MOV
MOV
MOV
JSR

#CCLR,RKCS1(RS)
SUNIT.RKCS2(R5) :DRIVEA
#CLEAR,HCS1
PC,DOCMD
;DO DRIVE CLEAR CMD & GET CONTR RDY

032640

025444
025446

104154

JSR

PC,TSTATN

000401

ERRCR

154

;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

INC
CMP

R1
R1,43

:HEAD CTR
*SEE IF ALL HEADS DONE

JMP
TYPE

98
,MSG12

:ELSE REPEAT ALL FOR NEXT HEAD
*OFFSET FAILURES ARE NOT ERRORS

B8R
73s:

e
-

lalal

S
S
See
She
She
She
She

ERROR

151

73$

:RTZ NOT SET DURING RECAL CMD
*SETUP TIMEOUT
SFIND ATTN
*NO ATTN AFTER RECAL CMD

:NO RDY AFTER DRIVE CLEAR CMD
STEST FOR ATTN

SAE

104151

She

004737

025436

000000
000010
007354

She

100000
001222
000005
032262

She

012765
013765
012737
004737

sns

025406
025414
025422
025430

72%:

She

007414

She

001406
032672

007402

MOV
JSR
BIT
BNE
ERROR
MOV
JSR
ERROR

Sne

000026

She

*RDY NOT SET AFTER RECAL CMD

Sha

000001
033722
020000

025442

124

ERROR

aus

012765
004737
032737
001001
104244
013737
004737
104055

104124

Sne

025346
025356
025360
025366
025370
025372
025400
025404

025434

#CCLR,RKCS1(RS)
SUNIT.RKCS2(RS)
#RECAL ,HCS1
PC,DOCMD
;DO RECAL CMD & GET CONTR RDY

She

000000
000010
007354

Sne

100000
001222
000013
032262

She

012765
013765
012737
004737

SaA

025316
025326
025332
025340

025344

MOV
MOV
MOV
JSR

78:

:NO WRITE CHECK ERROR AT MAX NEG OFFSET
*NOTE! EITHER HEADS DID NOT MOVE
:OR READ/WRITE AMP IS EXECEPTIONALLY GOOD.

ses

025316

OFFERR
78
,MSG38

045732

ST
BNE
TYPE

Sha

68:

::60 TO NEXT TST

ane

001456

IST1S

Sma

005737
001002
104401

BNE

B8R

SEQ 0101

025304
025310
025312

PAGE 102

TEST READ DATA AT ALL HEAD OFFSET POSITIONS

001072

025302 000760

Eh.

025300

13:04

T*TEST 15

WRITE WITH HEADS OFFSET

i
i
e
i
;e

000004
012737

000001

025502

012700

000260

012706

THIS TEST IS PERFORMED FOR MAX POS & NEG OFFSETS ONLY

;;ttQtttttttttttttttttttttitttttttttttttttttttttttttttttttttl'ttt

025466
025470

025476

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.

001100

001174

TST15:

SCOPE
MOV

#1,$TIMES

::D0 1 ITERATION

MoV

#260,R0

sMAX NEG OFFSET

MOV

#sSTACK,SP

*RESTORE STK PTR

SRS

;;t'ttttttttttttttttttttt"tttttttttttttttttttttttttttttttttttttt

*BR IF YES

——

108:

10§

BEQ

———

024566
045172

001402

000137
104401

025456

—

025456
025467

—a

000003

005201
020127

025446
025450

RN 28R I R R RAR 2B IIIF A NN IITEIS

04=JAN=82 12:46

_04=JAN-82

—

RGN S8 E R

MACY11 30(1 046)

oOn

p— p—e

9:C0:0.00:0:00:00000.00000030.0000
3030~~~ NV~ N VO

i i
I I AW
Y wviviviviwviviaiaiviaviia

lalal

%
v

UNIBUSS RK6 DR PRT2

CZR6IFO UNIBUSS RK6 DR PRT2
CZROIF.P11
04=JAN=82 12:46
522
§22
gggz

ozssog
025512

004737
104024

034252

gggg

025514

010065

000016

§228
5229
5230
gggg

025520
025526
025534
025540

012737
012737
004737
104033

025606
000015
032262

§233
5234
§235
gggg

025542
025550
025554
025562

012737
005037
012737
012737

032140
007446
001720
000001

5238

025570

004737

033100

5240
5241
5242
ggzz

025576
025600
025602
025604

104035
104061
104036
104062

5239

025574

000000

5245
5246
5247
ggzg

025606
025612
025620
025624

005037
013737
004737
104034

001176
001416
032766

§250
5251
5252
5253
5254
5255
5256
ggg;

025626
025634
025640
025646
025654
025660
025666

012737
005037
012737
012737
005037
012737
012737

052340
007446
001720
000001
007454
000002
000003

5259
5260
5261
5262
5263
gggg

025674
025700
025702
025704
025706
025710

004737
000003
104260
104261
104037
104040

033100

5266
5267
5268
5269
5270

025712
025720
025726
025734

012765
013765
012737
004737

100000
001222

5272

025742

004737

032640

025750
025752

104154

5271

5273

5274
5275

025740

025746

104151

000401

000005
032262

L 8
MACY11 30(1 046) 04=JAN-82 13:04 PAGE 103
T15
WRITE WITH HEADS OFFSET
18:

SEQ 0102

JSR
ERROR

PC,SUBCLR
24

:CERR AFTER SCLR

MOV

RO,RKASOF (RS)

;SET OFFSET

001176
007354

MOV
MOV
JSR
ERROR

#64S$, SESCAPE
#OFFSET,HCS1
PC,DOCMD
33

;DO RECAL CMD & GET CONTR RDY
*NO RDY AFTER OFFSET CMD

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

JSR

PC, CHKMSG

ERROR
ERROR
ERROR
ERROR

35
61

007450
007452

LWORD

007412

648:

007444

007450
007452
007456
007462
:

000000
000010
007354

;CHECK MSGS A0, BO, A1, B1

*8 MSGS SPECIFIED HERE

36
62

:MSG A0
:MSH B0
*MSG A1
*MSG B1

CLR
MOV
JSR
ERROR

$ESCAPE
75000, TEMP1
PC.FATT?
34

:SETUP TIMEOUT
SFIND ATTN
*NO ATTN AFTER OFFSET CMD

MOV
CLR
MOV
MOV
CLR
MOV
MOV

#<D.DSC'D.OFF!D.SPIN'D.DRDY'D.VV!D.DRA>,E.A0 :;EXPECTED MSG AO
E.BO
:EXPECTED MSG B0
#<D.SPOK'D.CART'D.DOOR!D.BRHM'D.SSP>,E.A1
:EXPECTED Al
#1,E.B1
:MSG ID FOR EXPECTED MSG B1
E.A2
*EXPECTED MSG A2
#2,E.B2
*MSG ID FOR EXPECTED MSG B2
#3.E.B3
:MSG ID FOR EXPECTED MSG B3

JSR
WORD
ERROR
ERROR
ERROR
ERROR

PC,CHKMSG
T.A2'T.B2'0
260
261
37
40

MOV
MOV
MOV
JSR

#CCLR,RKCS1(RS)
SUNIT.RKCS2(RS) ;DRIVEWN
#CLEAR,HCS1
PC,DOCMD
:DO DRIVE CLEAR CMD & GET CONTR RDY

JSR

PC.TSTATN

ERROR

154

ERROR

BR
658
:

0!0f0

151

658

ERROR DURING OFFSET CMD
ERROR
ERROR
ERROR

;CHECK MSGS A0, B0, A1, B1
-8 MSGS SPECIFIED HERE
:MSG A0 ERROR AFTER OFFSET CMD
*MSH BO ERROR
‘MSG A1 ERROR
‘MSG B1 ERROR

*NO RDY AFTER DRIVE CLEAR CMD
*TEST FOR ATTN

;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

lalal

—

CZR6IFO UNIBUSS RK6 DR PRT2
CZROIF.P11
04=JAN=82 12:46
5278

025752

005037

00140

n 8
MACY11 30(1046)
04=JAN-82 13:04 PAGE 104
T15
WRITE WITH HEADS OFFSET

5279

025756

013765

001402

000006

3082

026000

012765

177400

000002

5280
5281

5284
5285

025764
025772

026006

015765
052765

012737

000004
000010

000023

007354

033722
100000

007354

5287
5288
gggg

026014
026020
026022
026026
026034

5291

026036 032737 000200 007370

5292
5293

004737
104011
004737
032737
001465

001474
000020

032320

026044
026046

001421
004737

035736

5296

026054

005237

001402

5299
5300
5301
5302
gggz

026070
026072
026076
026104
026110

104046
000137
012765
000137
104012

027002
100000
025756

5305
5306
5307
5308
5309
5310
§§}5

026112
026120
026124
026132
026140
026144
026152

012737
005037
012737
012737
005037
012737
012737

010340
007446
001720
000001
007454
000002
000003

25315' 026052

000455

&$:

5313 026160

00000

007450

007452
007456
007462

5321

026206

5324
5325

026210
026216

012737
005037

010340
007446

007444

5327
5328
5329
gggg

026230
026236
026242
026250

012737
005037
012737
012737

000001
007454
000002
000003

007452

§332

026256

5320

026202

gggg 026210
5326

5333

026222

026262

000137
104063

012737

004737

000003

031476

688:

693 :

033100

;
|

MOV

#<WRDATA> ,HCS1

007450
007456
007462

SECTOR,RKDA(RS)

]

#-256.,RKWC(RS) :FULL SECTOR

PC,DATCMD
11
PC,GSTAT
#CERR,HCS1
698

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

BIT

#B8SE ,HER

;SEE IF BAD SECTOR FLAG

B8R

688

*RETURN HERE IF NO

678
PC, TRUERR

ERROR
JMP
MOV
JMP
ERROR

46
3s
#CCLR.RKCST(RS)
4
12

*ABORTING TEST DETECTED 10 BAD SECTORS
*BYPASS TEST
:TRY ANOTHER SECTOR

MOV
CLR
MOV
MOV
CLR
MOV
MOV

#<0'D.SPIN'D.DRDY'D.VV'D.DRA>,E.A0 ;EXPECTED MSG AQ
E.B0
:EXPECTED MSG B0
#<D.SPOK'D.CART'!D.DOOR'D.BRHM'D.SSP>,E.A1
:EXPECTED A1
# E.B1
:MSG ID FOR EXPECTED MSG B1
E.A2
*EXPECTED MSG A2
#2,E.B2
:MSG ID FOR EXPECTED MSG B2
#3.E.B3
*MSG ID FOR EXPECTED MSG B3

JSR

PC ., CHKMSG

JMP

ERROR

*ARE 10 CONSEC. SECTORS BAD
*BR IF NO

:CERR WITH WRITE DATA CMD

;CHECK MSGS A0, BO, A1, B1

-8 MSGS SPECIFIED HERE
:MSG AO ERROR AFTER WRITE DATA CMD
*MSH BO ERROR
:MSG A1 ERROR
*MSG B1 ERROR
*ABORTING BAL OF TESTS

:BAD SECTOR NOT LISTED IN TABLE

MOV
CLR

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

MOV
CLR
MOV
MOV

#,E.B
E.A2
cg.t.e
#3.E.B

:MSG ID FOR EXPECTED MSG B1
;EXPECTED MSG A2
:MSG ID FOR EXPECTED MSG B
:MSG ID FOR EXPECTED MSG B

PC,CHKMS

;CHECK MSGS A0, BO,

MOV

JSR

LWORD

T.A2'T.B2'0
52
23
53
25
MSG26

igop

:EXPECTED MSG A0

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

T.A2'T.B2'0

;

*BR IF NO
*ELSE SEE IF SECTCR LISTED IN BSE TABLE

;RETURN HERE IF YES

SECTOR,#10.
66$

;

:BR IF NO ERRORS

SECTOR

_WORD
ERROR
ERROR
ERROR
ERROR
TYPE

045546

001720

#DATAO RKBA(RS) :WRITE ALL 0'S
caa; RKCS2(RS)
:BUS ADDR INCR INW

INC

004737 033100
000003
104052
104023
104053
104025
104401

MOV
BIS

CMP
BNE

007444

026164
026166
026170
026172
026174
026176

BEQ
JSR

678:

5314
5315
5316
5317
5318
5319

SECTOR

JSR
ERROR
JSR
BIT
BEQ

66$:

SEQ 0103

CLR

MOV

5297 026060 023727 001402 000012
5298 02
001003

,
|
|

A1, B1

:EXPECTED A1

:8 MSGS SPECIFIED WERE

|
:

|
|
|
|

:
|
l
|
|

|
;

;
~
|
|

PC,SUBCLR
24

:CERR AFTER SCLR

004737
104024

034252

026342
026350
026356
026

012765
052765
012765
013765

001474
000020
177400
001402

000004
000010
000002
000006

MOV
BIS
MOV
MOV

#DATAQ,RKBA
(RS)
#BA] ,RKCS2 (RS)
#-256. ,RKWC (RS)
SECTOR.RKDA
(R5)

026372
026400
026404
026406
026412
026420
026422
026430
026432

012737
004737
104015
004737
032737
001453
032737
001410
016537

000031
032320

007354

MOV
JSR
ERROR
JSR
BIT
BEQ
BIT
BEQ
MOV

#<WRTCHK> ,HCS1
PC_DATCMD
15
PC,GSTAT
#CERR,HCS1
73$
MICE HCS2
72$
RKDB(RS) ,WD1

026446
026450

104016
000437

ERROR
BR

16
73s

;WCE AFTER WRITE CMD

ERROR

;CERR AFTER WRITE CHECK CMD

012737 010340 007444

MOV

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

012737

MOV

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

026454

005037

026474
026502
026506
026514

012737
005037
012737
012737

026522

004737

026532
026534
026536

104031
104060
104032

026526
026530

000003
104057

72$:
007446

001720
000001
007454
000002
000003
033100

007450
007452

007456
007462

CLR

e
-t
SRA SRA FRL ML FRL
SRl
S
Sms
Sl
SRA SRL
Smd
Sma
S
sma
Sma
SRl S
Smd
SRA S
Smd

:EXPECTED
MSG AQ

:EXPECTED MSG B0

MOV
CLR
MOV
MOV

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

:MSG ID FOR EXPECTED MSG B1
*EXPECTED MSG A2
‘MSG ID FOR EXPECTED MSG B2
*MSG ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

;CHECK MSGS A0, B0, A1,

ERROR
ERROR
ERROR

31
60
32

*MSH BO ERROR
‘MSG A1 ERROR
‘MSG B1 ERROR

T.A2'T.B2'0
57

Mms

:EXPECTED WORD FOR TYPEOQUT

E.B0

.WORD
ERROR

mmd

JACTUAL WORD FOR PRINTOUT

Mme

DATAOQ,WD2

Smd

MOV

Sms

001454

Sma

001452

001474

104022

026462

26466

000024

_
;SEE IF WRITE CHECK ERROR

Sms

026452

013737

007356

;DO DATA X FOR CMD & GET CONTR RDY
JNO RDY AFTER WRITE CHECK CMD
*GET FRESH STATUS

Smd

026440

040000

026334
026340

007354

SRA
amd SR

104415
012706

Sma

026330

033722
100000

lalsl

l
JSR
ERROR

;RESTORE STK PTR

*MSG B2 NOT CLEARED AFTER WRITE CMD WITH OFFSET

026326

001100

#STACK, SP

105

SCOP1
MOV

ERROR

:SEE IF MSG A2=0
‘BR IF YES
*MSG A2 NOT CLEARED AFTER WRITE CMD WITH OFFSET
*SEE IF MSG B2=0
‘BR IF YES

;SELECT WORD 2

#2,RKMR1(RS)
PC,GSTAT
CYLDIF
70$
104
CYLADD
718

:EXPECTED A1

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

Sms

718:

MOV
JSR
ST
BEQ
ERROR
TST
BEQ

Smd

104105

ERROR AFTER WRITE DATA CMD
ERROR
ERROR
ERROR

708:

:MSG AQ
*MSH B0
‘MSG A1
*MSG B1

Smd

001360

S
2
53
25

026326

000026

ERROR
ERROR
ERROR
ERROR

emd

026324

000002
033722
001356

SEQ 07104

SRe s

012765
004737
005737
001401
104104
005737
001401

WRITE WITH HEADS OFFSET

SRA

026274
026302
26306
026312
026314
026316
026322

N 8
PAGE 105

amd

104052
104023
104053
104025

13:04

Sms
S

026264
26266
026270
026272

04=JAN-82

mmd

04=JAN=-82 12:46

MACY11 30(1046)

A Eme

P11

—

RERERRER &w&w&u 20
SISAR S5
000 ~ VSN =00

VBN

\h&\h\h\h\fl\h\.fl\h\h

gEees g 88 W LSRGy EEEER SERENN

WN=O VRNV

WWW
vV

WN=OV NOWVES WOV

lala]
NN

Vi VIV
VT AW ViV
A v WL IVIVIVIV
IV IV IV IV IV IV I

UNIBUSS RK6 DR PRTZ

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

04=JAN-82 13:04 gAGE 106

390
s§g1

026540
026544

5393
5394
5395
5396
5397
5398
5399

026550
026550
026556
026562
026570
026576

012737
005037
012737
012737
005037

010340
007446
001720
001
007454

2285

026610

012737

00000

5403
5404
56405
5606
56407
2283

026616
026622
026624
026626
026630
026632

004737
000003
104057
104031
104060
104032

033100

5410
5411
5412
22}2

026634
026640
026642
026646

020027
001004
012700
000137

000260

RO,#260

000060
025506

#60,R0
18

5415
5416
5417
5418
5419
5420
gzg;

026652
026652
026660
026666
026674
026700

012765
013765
012737
004737
104124

100000
001222
000013
032262

000000
000010
007354

3423
5426
5425
5426
5427
5428
5429
gzg?

026702
026710
026714
026722
026724
026726
026734
026740

012765
004737
032737
001001
104244
013737
004737
104055

000001
033722
020000

000026

001406
032672

007414

5432
5433
5434
5435
5436
5437
5438
5439
5440
5441
5442
5443

026742
026750
026756
026764
026770
026772
026776
027000
027002

012765
013725
012737
004737
104151
004737
000401
104154

100000
001222
000005
032262

000000
000010
007354

5400

026602

027002

104401
000137

9
MACYT1 3? (1 046)
15
WRITE WITH HEADS OFFSET

045546
031476

MSG26

SEQ@ 0105

;ABORTING BAL OF TESTS

TYPE
JMP

$e0P

MOV
CLR

g<360.SPIN!D. DRDY'D VV!D.DRA>,EOAO
EXPECTED MSG

73%:

012737

00000;

007444

007450
007452

MoV

007456
007462

sEXPECTED MSG AO

l(DSP?K'DCART'b DOOR!D.BRHM!D.SSP> E.A1
‘ .

sMSG_ID FOR EXPSCTED MSG B1

:EXPECTED MSG
A

:MSG ID FOR EXPECTED MSG B2

PC,CHKMSG

: CHECK nscs A0, 80, A1,

31
60
32

*MSH B0 ERROR

S.AZ'T.B2!0

sEXPECTED A1

:MSG ID FOR EXPECTED MSG B3

MSGS SPECIFIED MERE

:MSG A Eaaon AFTER WRITE CHECK CMD
*MSG A1 ERROR
*MSG B1 ERROR

:BR _IF JUST DID POS OFFSET
sELSE SETUP FOR POS OFFSET

2$:
#CCLR,RKCS1(RS)
SUNIT,RKCS2(R5)
#RECAL ,HCS1
PC,DOC

007402

124

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

#1,RKMR1 (R5)
PC,GSTAT

sSELECT WORD 1

244

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

#D.RTZ ,HMR2
748

74$%:

T10,TEMP2
PCFATT1
55
#CCLR,RKCS1

SUNIT RKCS%
#CLEAR,HCS
PC,DOCMD
PC,TSTATN

;D0 DRIVE CLEAR CMD & GET CONTR RDY
sNO RDY AFTER DRIVE CLEAR CMD
sTEST FOR ATTN

154

sATTN NOT CLEARED AFTER DRIVE CLEAR CMD

032640

75$

75%:

3s:

;DRIVE#

MACY11 30(1046)
Tle

04=JAN-82 13:04
AGE 107
TEST CURRENT CROSS-OVER CYLINDERS

JRAARARA AR AR A AR AR AR

ttEST 16

PRTR

PRTR PR PR TR

R T

2222222002020
2

PRPR

2
%

PRTR TR
LRTR

2 %
NS

000001
001100

027016

001170

001174

L
AL

027002
027004
027012

716

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
66

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

RKk0?7
RKO7

ALL ABOVE CYLINDERS IN DECIMAL
AR

A AN AR

SCOPE

MoV
MOV

TST
BEQ
MOV

001436

A NI R AAAAAARAAAAAAAAAAAARAAAAAAR
IR RRAOR AN

TEST CURRENT CROSS=OVER CYLINDERS

SRR

AR AARAAARAARAARAAA

#1,STIMES
#STACK,SP

58
#CYL7.RO
1$

001422

5%:

MOV

#CYL.RO

027036
027042

034252

1$:

JSR

PC,SUBCLR

027044
027050
027056
027064

000020
001502
000020
076000

027072

000023
032320

027122
0

027140
027144
027146
027154

o
(%)

0271

33 38388 SEeee
=

027032

0271?3
027120

SEQ@ 0106

2:D0 1 ITERATION
;SEE IF RKO7
:BR_IF NO
;ELSE LOAD UP RKO7 TABLE

;RK06 CYL ADDR TABLE

sCERR AFTER SCLR

(RO),RKDC (RS)

sCYL #

000004
000010
000002

#DPAT1,RKBA(RS) :DATA PATTERN
#B8A1 RKC52 (RS) :BUSS ADDR INCREMENT INHIBIT
.#256. ,RKWC(RS) ;WORD COUNT TO SPIRAL & FILL 2 CYLINDERS

007354

p<unoA7A>.ucs1
TCMD

033722
100000

007354

ccéna HCS1

000200

007370

678

:BR IF NO ERRORS

#8SE ,HER

;SEE _IF BAD SECTOR FLAG
:BR_IF NO
;ELSE SEE IF SECTOR LISTED IN BSE TABLE
:RETURN HERE IF
RET HERE IF ES
:CERR WITH WRITE DATA CMD

658

035736

PC, TRUERR

027620
010340
007446

PC,GSTAT

;D0 DATA X FOR CMD & GET CONTR RDY
:NO RDY AFTER WRITE DATA CMD
sGET FRESH STATUS

65%:

007444

0(060.SPIN!D.DRDY!D.VV!D.DRA> ,E.A0

;EXPECTED MSG B0

EXPECTED MSG A0

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

—

wviviubn

007450
007452

004737
000003
10405
104602
10405
046025
04

027356
027364

. WORD

*EXPECTED MSG A
:MSG ID FOR EXPECTED MSG B

PC, CHKMSG

:CHECK MSGS A0, B0,

*MSH B0 ERROR

#3.E.8B

T.A2'1.82'0
3

2RRRER

wn MWWNW% NNNNN

:MSG ID FOR EXPECTED MSG B

A1,

-8 MSGS SPECIFIED MERE
:MSG A0 ERROR AFTER WRITE DATA CMD
:MSG A1 ERROR
*MSG B1 ERROR
*ABORTING BAL OF TESTS
;BAD SECTOR NOT LISTED IN TABLE

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

007450
007452

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

007456
007462

;EXPECTED MSG AQ

E.BO

;EXPECTED MSG B0

#,E.B1

sMSG_ID FOR EXPECTED MSG B1

#2,E.B2

“MSG ID FOR EXPECTED MSG B2

PC, CHKMSG

:CHECK MSGS A0, BO, A1, B1

:MSG A0 ERROR AFTER WRITE DATA CMD

E.A2

#3.E.B3

T.A2'T.B2'0

23
53
25

000031
032320

:MSG ID FOR Expscrso MSG

E.A
og.s.a

007444

033100

*EXPECTED MSG A2

*MSG ID FOR EXPECTED MSG B3

-8 MSGS SPECIFIED HERE

*MSH BO ERROR
:MSG A1 ERROR
:MSG B1 ERROR

(RO) ,RKDC (RS)

000004
000010
000002

#DPAT1,RKBA
(RS)

007354

#<WRTCHK> ,HCS1
PC,DATCMD

:DO DATA X FOR CMD & GET CONTR RDY

PC,GSTAT

*GET FRESH STATUS

#BAI ,RKCS2 (RS)

#-6222.+256.
,RKWC (RS)
15

*NO RDY AFTER WRITE CHECK CMD

033722
100000

007354

040000

007356

zgge.ucsz

;SEE IF WRITE CHECK ERROR

000024
001502

001452
001454

RKDB(RS) ,WD1

;ACTUAL WORD FOR PRINTOUT

;WCE AFTER WRITE CMD

:CERR AFTER WRITE CHECK CMD

zggna.ucs1

DPAT1,WD2
698

68$:
010340
007446
001720
000001

;EXPECTED Al

-EXPECTED WORD FOR TYPEOUT

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

;EXPECTED MSG AQ

E.B0

;:EXPECTED MSG BO

#1,E.B1

sMSG ID FOR EXPECTED MSG B1

;EXPECTED A1

lalal

SEQ@ 0107

z;D.SS?K!D.CART!D.DOOR!D.BRHH!D.SSP>.E.A1B1:EXPECTED a1

3
25
in(s”gze

= l=i=l=
~

027330
02;334
027342
027350

0D 9
PAGE 108

66$:
67%:

027326

13:04

TEST CURRENT CROSS-OVER CYLINDERS

MOV
Mov

033100

027244

04=JAN-82

MOV
MOV
CLR

D anh

027214

009426
012737
007453
012737 000003
00000
00746

=SN=N §\|~ NN
=
og RN

i iaianaaiviiaug

IS
wvawnwaunanaiwv
NN NN NN NN
gNNNNNN PON) b =
O\AbdeODNOW&uNdOOngMruN-ASS

Vi vt ViV
b d b e e e b b

m\nm\nm\nvc\nm\nmmmmmm§\nmmmmmm\nmmmmm\huuummummmmmummmmumm

027174
0%7200
027206

00172?

2282282
NN
PN

5501
550
550
5504
5505
55

MACY1 3? (1046)

[

CZR6IFO UNIBUSS RK6 DR _PRT2
CZREIF.PN
04=JAN-82 12:46

$557
§558
ggzg

027466
027472
027500

005037
015737
012737

0074564
ooooog
000003

§561

027506

004737

033100

5564
5565
5566

027516
027520
027522

104031
104060
104032

gggg

027530

000137

sseg 02751 ooooo;
5563 027514 10405

007456
007462

CLR
MOV
MOV

E.A2
cg.e.ag
E.B

;EXPECTED MSG A2
:MSG ID FOR EXPECTED #.6 B
:MSG ID FOR EXPECTED MSG B

JSR

PC.,CHKMSG

: CHECK nsss A0,

ERROR
ERROR
ERROR

31
go
32

JMP

$e0P

LWORD
ERROR

5567 027524 104401 045546

TYPE

031476

gg;? 027534

SEQ 0108

T.A2'T.B2'0
57

MSGS spécxrieo HERE
:MSG A tnnonAFTER WRITE CHECK CMD

MSG26

*ABORTING
BAL OF TESTS

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

698 :

557%

027534

012737

010340

007444

MOV

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

5575

027554

012737

000001

007450
007452

MOV

01 £.81

;EXPECTED A1
:MSG ID FOR EXPECTED MSG B1°

000002
000003

007456
007462

MOV
MOV

cz.e.az
#3.E.B3

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

JSR

PC.,CHKMSG

: CHECK nsss A0, B0, A1, B1

:MSG AQ ERROR AFTER WRITE CHECK CMD

msmemm

5573
5574

5576

5577
gg;g

027542
027546

027562

027566
027574

005037
012737

005037

012737
012737

007446
001720

007454

CLR
MOV

CLR

004737

5582

104057

ERROR

5584 027614 104060

ERROR

CMP

(RO)+,#383.

027606

5583

027612

027610

5585

027616

5587
gggs

027624
027626

5586

027620

000003

033100

5580 027602
5581

LWORD

104031

104032

022027

001402
000137

ERROR

000577

38:

027036

gggg

027632

5592

027632

012765

594
5595

027646
027654

012737
004737

5598
5599
5600
5601
5602
5603
5606
gggg

027662
027670
027674
027702
027704
027706
027714
027720

012765
004737
032737
001001
104244
013737
004737
104055

000001
033722
020000

000026

001406
032672

007414

5607
5608

5610

027722
027730
027736
027744

012765
o137gs
012737
004737

100000
001222
000005
032262

000000
000010
007354

5612

027752

004737

032640

5593

gggg

5611

027640

027660

027750

ERROR

;EXPECTED MSG AO

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

T.A2'T.B2'0

BEQ
JMP

4
18

*EXPECTED MSG A2

& MSGS spscxrxeo HERE

*MSH BO ERROR
:MSG B1 ERROR

*ALL CYLINDERS DONE?
*BR IF YES
*ELSE REPEAT

48:

013765

104124

104151

100000

000000

MOV

#CCLR,RKCS1(RS)

000013
032262

007354

MOV
JSR

#RECAL ,HCS1
PC . DOCMD

MoV
JSR
BIT
BNE
ERROR
MOV
JSR
ERROR

#1,RKMR1(RS)
PC.GSTAT
#D.RTZ,HMR2
70$
244
710, TEMP2
PC,FATTI
55

MOV
MOV
MOV
JSR

#CCLR,RKCS1(RS)
SUNIT.RKCS2(R5) ;DRIVEH
#CLEAR HCST
PC,DOCMD
:DO DRIVE CLEAR CMD & GET CONTR RDY

JSR

PC.TSTATN

001222

000010

MOV

ERROR

007402

708:

ERROR

SUNIT.RKCS2(R5)

124

151

;DO RECAL CMD & GET CONTR RDY

*RDY NOT SET AFTER RECAL CMD
;SELECT WORD 1

;RTZ NOT SET DURING RECAL CMD
*SETUP TIMEOUT
*FIND ATTN
*NO ATTN Arren RECAL CMD

*NO RDY AFTER DRIVE CLEAR CMD
*TEST FOR ATTN

~N~

E 9
MACY11 30(1 046) _04=JAN-82 13:04 PAGE 109
T16
TEST CURRENT CROSS=OVER CYLINDERS

lalal

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

027756
027760
027762

000401
106154

718

BR
ERROR

718
154

JATTN NOT CLEARED AFTER DRIVE CLEAR CMp

2$:

027762

.."'."...'.'...'""'.".'..'.'.'.......'.'......'.""'.""

'TEST 17

TEST HEAD SWITCHING TIME

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

o
H
H

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

H
H
A
i

A FULL REVOLUTION BEFORE FINDING SECTOR 25(8).
3. SINCE EACH SECTOR TAKES APPROX. 1.2MS, THE TIME BETWEEN

THE START OF THE WRITE COMMAND (FROH SECTOR 25(8). HEAD 0; TO
SECTOR O, HEAD 1) AND CONTROLLER READY SHOULD BE APPROX 6MS

THE ABOVE IS REPEATED FOR HEAD SWITCHING BETWEEN 1 TO 2

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

. %

:2CARRRAAARAARAAAARAAAAARRAAAARA AN AARAAAAAAAAAAAAAAA AR AR RS

027762
027764
027772

000004
012737
012706

000001
001100

027776

005737

007522

001174

TST

SCOPE

MOV
MOV

#1,STIMES
#STACK,SP

::D0 1

ITERATION

TST

DOTIM

;BYPASS THIS TEST IF

SEQ 0109

lalsl

F 9
MACY11 30(1046) 04-JAN-82 13:04 PAGE 110
T16
TEST CURRENT CROSS=OVER CYLINDERS

CZRSIFO UNIBUSS RK6 DR PR;Z
4
CZR6IF.P11
04-JAN-82
1

030002

-JAN-82 1

(©01001

2224 030004 OOOggb

TEST HEAD SWITCH
l NG TIME

BNE

TST20

sNEITHER L OR P CLOCK PRESENT

::6G0 TO NEXT TEST

SE@ 0110

CZR6IF.PIN

MACY11 30(1046) 04=JAN-82 13:04 SAGE m

lalal

CZR6IFO gmaus&nxe DR PRTZ

5645

ogggos

012737

gg:g

030020

104024

5650

030022

004737

ggg

030030

000514

5654

030032

012765

001476

000004

MOV

#DATAO1 axaA(a<>

5659

030070

053737

001170

007354

BIS

$TMP4 HCST

5662

030104

007412

5647 030014 004737 %%2

5651

5655
5656
5657
5658

ggg?

5663

030026

030040
030046
030054
030062

030076

104106

052765
012765
013765
012737

013765

012737

007422

18:

28:

035036

000020
177000
007422
000023

007354

004000

JSR

MOV

#25,TEMPS

;HEAD 0, SECTOR 21 TO BE PUT IN RKDA

ERROR

:CERR AFTER SCLR

JSR

PC,FSEC23

TST20

ERROR

000010
000002
000006
007354

BIS
MOV
MOV
MOV

000000

MOV

§§25 030112 004737 033046

106

;FIND SECTOR 23

*CANNOT FIND SECTOR 23
..GO TO NEXT TEST
:DATA 0101

#BAI RKCS2(RS) :BUSS ADDR INCREMENT INWIBIT
a-s1g RKWC (RS) :WORDCOUNT
TEMPS .RKDA(RS) :HEAD & SECTOR
#MRDATA HCST

HCS1,RKCS1(RS)

;DO WRITE DATA CMD

MOV

#4000, TEMP1

;2000 IS IN VER 30,

JSR

PC.DLY

;DO DELAY

BIT
BNE
JSR
ERROR
JSR

#RDY ,RKCST1(RS)
8s
PC,FRDY
1"
PC,GSTAT

107

;HEAD SWITCHING LONGER THAN DELAY

BIT
BEQ
ERROR

#CERR,HCS1
3s
12

JCERR AFTER WRITE DATA

:CHANGE TO 4000 7-DEC-77

030116
030124
030126
030132
030134

032765
001006
004737
104011
004737

000200

5674
5675
gg;g

03014z
030150
030152

032737
001444
104012

100000

5678

030154

012737

010340

007444

MOV

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

5680
5681
5682

030166
030174
030202

012737
012737
005037

001720
000001
007454

007450
007452

MoV
MOV
CLR

#<D.SPOK'D. CART'D DOOR'!D.BRHM'D.SSP> ,E.A1
:EXPECTED A1
l1.E.81
JMSG ID FOR EXPECTED MSG B1
A2
*EXPECTED MSG
A2

gggg

030214

012737

000003

007462

MOV

#3.E.B3

5679

030140

030162

104107

005037

7%:

PC,SUBCLR

5667
5668
5669
5670
5671

gg;g

000000

SEQ 0111

032356
033722

007446

ERROR

007354

8$:

CLR

;LOOK FOR CONTROLLER READY
JFIND RDY AND GET FRESH STATUS
2NO RDY AFTER SEL DRV CMD

;EXPECTED MSG AQ

E.B0

:EXPECTED MSG B0

oz E. az

*MSG ID FOR EXPECTED MSG B2

5683 030206 012737 000002 007456

MOV

5686 030222 004737 033100

JSR

PC, CHKMSG

:CHECK MSGS A0, BO, A1, B1

5688
5689
5690
ggg}

ERROR
ERROR
ERROR
ERROR

52
23
53
25

HSG A0 ERROR AFTER WRITE DATA CMD
*MSH BO ERROR
HSG A1 ERROR
*MSG B1 ERROR

TEMPS , #425
157%0
#425, TEMPS
2

;HEAD 1,SECTOR 21 DONE?
2:G0 TO NEXT TEST

5687

030226

000000

5693
5694
5695
5696
gggg

030240
030246
030250
030256
030262

023727
001405
012737
000137

5699

5700

030230
030232
0302
030236

LWORD

104052
104023
104053
104025

007422

000425

000425
030014

007422
3s:

CMP
BEQ
MOV
JMP

0'0'0

*MSG ID FOR EXPECTED MSG B3

8 MSGS SPECIFIED HERE

;ELSE REPEAT FOR HEAD 1, SECTOR 21

tttttttttQtttttttttttttittttttttttttttt'ttttt'ttttttttt'itfitttt

'TEST 20

DRIVE OFF TRACK TEST

H 9
MACY11 30(1046) 04=JAN-82 13:04 PAGE 112
T17
TEST HEAD SWITCHING TIME

lalal 1

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

CZR6IFO UNIBUSS RKé DR PRT246
CZR6IF.P11
04-JAN-82 12

MACY11 3956046)

5701
570

o
ot

2;8‘

i
:t

5705
706
5707
5708

Hd
i
H
M

5710
g;};

]
%

5709

04~JAN-82 13:04 PAGE 113
DRIVE OFF TRACK TEST

SEQ 0112

THIS TEST CHECKS FOR SERVO OSCILLATIONS DURING SETTLING TIME BEYOND

THE ALLOTED 3MmS.

1.
2.
3.

INITIALLY, EVERY CYLINDER IS FORMATTED WITH IDENTICAL HEADERS
(UNJQUE TO EACH CYLINDER)
A FULL SECTOR WRITE COMMAND IS ISSUED BY A SINGLE CYL SEEK FROM 0 TO 1.
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.

5713
5714

Hh
H

g;}g

5717
5718
5719

i
. %

030262

030264

000004

012737

000001

5720
5721
5722
g;gz

030272
030276
030302
030306

012706
005237
005037
012737

5725
g;%?

030314
030320

004737
104024

034252

g;%g

030322

012700

001522

5730

030326

013720

001346

5732
g;gz

030336
030342

012710
053720

5731

030332

012720

001100
007340
001346
100000

001174

BEFORE DOING THE NEXT CYLINDER

:-:tttttttttttttttttttttttt'tttttfitttttttttfitttttttttttttttttttttt
SCOFE

TST20:

007422
18:

2$:

140000

IN THIS MANNER OSCILLATING SEEKS ARE PERFORMED BETWEEN ALL MAJOR CYLINDERS.
100 OSCILLATIONS ARE PERFORMED AT EACH MAJOR CYLINDER

MOV

MOV
INC
CLR
MOV

#,STIMES

#STACK,SP
BADHDR
TOCYL
#8IT15,TEMPS

2:D0 1

JSR
ERROR

PC,SUBCLR
24

sCERR AFTER SCLR

MOV

#HDTAB,RO

;FORMAT HEADERS ON ALL MAJOR CYL.

TOCYL, (RO)+

sHEADER WORD 0: CYL #

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

sHEADER WORD 2: XOR OF 0 & 1
sADD CYL # TO WORD 2

MOV

140000
001346

MOV

MOV
BIS

l140060.(R0)*

CMP
BNE

RO,#HDTAB+132.
2%

ITERATION

sRESTORE STK PTR
JUSED FOR VALID HALT

sHEADER WORD 1: ALL SECTOR 0

5735
ggg

030346
030352

020027
001365

001726

5738
5739
2;2?

030354
030362
030370

012765
012765
013765

001522
177676
001346

000004
000002
000020

MOV
MOV
MOV

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

5742
5743

030376
030404

012737
004737

000027
032320

007354

MOV
JSR

#<WRHEAD> ,H(CS1
PC,DATCMD

5745
5746
5747
5748
5749

030412
030416
030424
030426
0304

004737
032737
001405
104201
104401

033722
100000

JSR
BIT
BEQ
ERROR
TYPE

PC,GSTAT
#CERR,HCST
648
201
MSG26

;CERR AFTER WRITE HEADER CMD
sABORTING BAL OF TESTS

5751

030440

5754
5755
5756

030440
030444
030450

ROL
ROL
CMP

TEMPS
TOCYL
TOCYL .MC1

sSET CARRY ONLY ONCE
JSELECT NEXT MAJOR CYL
sALL MAJOR CYL FORMATTED?

5744

030410

104200

ERROR

007354

045546

5750 030434 000137 031476

373

006137
006137
023737

007422
001346
001346

64$:

015462

JMP

206

$E0P

‘

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

;DO DATA X FOR CMD & GET CONTR RDY

sNO RDY AFTER WRITE HEADER CMD
sGET FRESH STATUS

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P1
04~JAN-82 12:46

J 9
MACY11 30(1046)
04=-JAN-82 13:04 PAGE 114
120
DRIVE OFF TRACK TEST

030456
030460

001216
005065

030464
030472
030476

012737
004737
104131

007354

007412

MoV

030512

013737
004737
1064132

JSR
ERROR

PC,FATT2
132

030514
030522
030524

032737
001401
104210

007354

BIT
BEQ
ERROR

#CERR,HCS1

000020

SEQ@ 0113

BNE
CLR

1$
RKDC (RS)

Mov

#SEEK ,HCS1
PC,DOCMD

;DO SEEK CMD & GET CONTR READY

750000, TEMP1

;SETUP TIMEOUT

JSR
ERROR

13§

:BR IF NO

*SETUP TO RETURN TO CYL 0

*NO RDY AFTER SEEK CMD

sFIND ATTN
*NO ATTN AFTER SEEK CMD

65$
210

;CERR AFTER SEEK CMD

65%:

030526
030526
030530
536

005000
012737
005037

030542
030544

012706

001100

030550

013737

001346

104415

000001
001344

030556
030562

034252

030564
030572
030600
030606
030614

031220

001346

001354
3s:

001176

CLR
MoV
CLR

#1,T0CYL
FRCYL

;ITERATION COUNTER

SCOP1
Mov

#STACK, SP

;RESTORE STK PTR

MOV

TOCYL,CALDIF

;SETUP FUR ERROR PRINTOUT

PC.SUBCLR

#FORM, SESCAPE

SSETUP TO CYL #

:CERR AFTER SCLR

TOCYL .RKDC(RS)

:GO TO CYL #

#WRDATA HCS1
PC.DATCMD
n

;D0 WRITE DATA CMD & GET CONTR RDY
sNO RDY AFTER WRITE DATA CMD.

PC,GSTAT

sGET FRESH STATUS

112

sDRIVE OFF TRACK AFTER WRITE DATA CMD

#DATAT ,RKBA(RS) :ALL 1'S
#BAI,RKCS2 (RS)
#-256. ,RKWC(RS) ; SECTOR TO BE ALL 1'S
000023
032320

033722
020000

100000

007354

007404

007354

gg.DROT ,HMR3

58:

;SEE IF DRIVE OFF TRACK

ZEERR.HCS1

;CERR SET AFTER WRITE DATA CMD

6$:
010340

000002

007444

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

007450
007452

007456

EXPECTED MSG A0

E.B
EXPECTED MSG B0
#<D.SPOK'D. CART'b DOOR!D.BRHM!D.SSP>,E.A1
.B1

02.5.82

sMSG_ID FOR EXPSCTED MSG B1
sEXPECTED MSG
:MSG ID FOR EXPECTED MSG B2

;EXPECTED Al

CZR6IFO UNIBUSS RKé6 DR _PRT2
CZROIF.PN
04=JAN-82 12:46

030726

012737

000003

K 9
MACY11 30(1046)
04-JAN-82 13:04 PAGE 115
120
DRIVE OFF TRACK TEST
007462

033100

MOV

#3,E.B3

sMSG ID FOR EXPECTED MSG B3

JSR

PC,CHKMSG

; CHECK nscs A0, B0,

.WORD
ERROR
ERROR
ERROR
ERROR
CMP
BEQ
ERROR

T.A2!T7.B2!0
52
23
53
25
CYLADD, TOCYL
78
113

001100

MoV

#STACK,SP

030772
030776

034252

JSR

PC,SUBCLR

031000
031006
031014

001500
000020
177400

000004
000010
000002

MOV

#DATA1 ,RKBA (RS)

031022

000023
032320

007354

Mov
JSR

#WRDATA HCS1
qs.DATCHD

007404

BIT

001360

001346

SEQ 0114

A1, B1

& MSGS SPECIFIED HERE
:MSG A0 ERROR AFTER WRITE DATA CMD

:MSH BO ERROR
*MSG A1 ERROR

:MSG B1 ERROR

;CYL ADDR IN RKMR3 NOT
= RKDC

7$:

033722
020000

BlS
MoV

JSR

- ERRCR
100000

007354

8$:

sRESTORE STK PTR

;CERR AFTER SCLR

sRETURN TO CYL O

#BAI,RKCS2 (RS)
#-256. ,RKWC (RS)
: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

gg.DROT.HHR3

BIT

zngR.HCS1

ERROR

007444

MOV

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

007450
007452

MoV
MOV

007456
007462

#<D.SE?K'DCART'D DOOR!D.BRHM!D.SSP>,E.A1_;EXPECTED A1
#1,E
MSG ID FOR EXPECTED MSG B1
E. A
:EXPECTED MSG
A2

:CERR AFTER WRITE DATA CMD

W
W

)

b O =
b

019340
007446

— e

RESRREE

R I3RS

OSSN
OO ONSNO

md b ok ed ) D it ek b

—

o
b
ol d

o
WW

9%:

033100

001360

;EXPECTED MSG AQ

E.B

;EXPECTED MSG BO

MOV
MoV

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

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

JSR

PC,CHKMSG

ERROR
ERROR
ERROR
ERROR

52
23
53
25

s CHECK HSGS A0, B0, A1, B1
& MSGS SPECIFIED HERE

BEQ

108
¥4

.WORD

TST

T.A2!T.B2'0

CYLADD

:MSG AQ fRROR AFTER WRITE DATA (CMD

:MSH BO ERROR

:MSG A1 ERROR
:MSG B1 ERROR

sNOT BACK TO CvL 0

CZ
CZl

OO0O0O
WWWWW

108:

000144

001346
001346

001176
001346
100000

004737

034252

104024

RO
RO,4#100.

015462

007422
12%:

JMP

CLR

sRESET ITERATION CTR

CMP
BEQ

TOCYL,MC1
FORM

sALL MAJOR CYL DONE?

CLR

$ESCAPE

MoV

081715 TEMPS

ASL

CLR

JSR

TOCYL

PC,SUBCLR

001362
001460
001466

MoV

MoV
MOV

#0,HEAD
#0,FORMAT

007354

MOV
JSR

#<WRHEAD> ,HCS1
PC.DATCMD

JSR
BIT

PC,GSTAT
#CERR,HCS1

033722
100000

JSR

007354

045546
031476

031356
031362
031366
031374

007422
001346
001346

031376
031402

000020
001176

031406
031414
031420

000017
032262

007354

031422
031430
031434

001420
032766

007412

PC,.FHDTAB

200

648
201

JMP

$EOP

ROL

015462

TOCYL,CALADD

ERROR
TYPE

:
648

sRESTORE TO ORIG 22 SECTOR FORMAT.

#HDTAB,RKBA
(RS) JREFORMAT ALL MAJOR CYLINDERS
#-66. ,RKWC (RS5)
TOCYL ,RKDC(RS)

001346

000027
032320

:BR IF YES
sELSE DO NEXT CYL

MoV
MOV
MoV

031314

:ELSE DO AGAIN

ERROR

000004
000002
000020

035250

sALL ITERATIONS DONE?

:BR_IF YES

JMP

FORM:

SEQ 0115

13§

001522
177676
001346

031310

031356

138:

030556

005037
005037
012737

INC
CMP

BEQ

030556

iy abababal

o OO0O0O0
w WWIWNW

abadabad

005200

L 9
MACYT 30(1046)
04=JAN-82 13:04 PAGE 116
120
DRIVE OFF TRACK TEST

ROL

MSG26

sCERR AFTER SCLR

;SETUP
;70 FILL
JHEADER
s TABLE

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

sCERR _AFTER WRITE HEADER CMD
;ABORTING BAL OF TESTS

TEMPS

TOCYL

CMP

TOCYL
. MC1
128

sALL MAJOR CYL REFORMATTED?

CLR

RKDC (R5)

sSETUP TO RETURN TO CYL 0

MOV
JSR

#SEEK,HCS1
PC,DOCMD

MOV
JSR

150000, TEMP1
PC, FATT2

CLR

ERROR
ERROR

$ESCAPE

131

132

IF NO

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

sSETUP TIMEOUT
;FIND ATTN
sNO ATTN AFTER SEEK CMD

lalal
~NN

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

007354

BIT
BEQ
ERROR

#CERR HCS1

65%
210

;CERR AFTER SEEK CMD

65%:

——
.
—
i

JHEADERS NOW 0K

——

BADHDR

CLR

——

48:

007340

+GO BACK & HALT CPU

—

005037

sSEE IF HALT PENDING
:BR_IF NO
sCLEAR FOR FUTURE FORMATTING
:HEADERS NOW OK

—

031472

HPEND

000137

007342
007340
036320

4%
HPEND
BADHDR
STOP

———

031456
031462
031466

TST
BEQ
CLR
CLR
JMP

007342

———

031450
031454

——

031450

(94
cZl
—

100000

031436
031444
031446

SEQ 0116

5925
5926
5927
5928
5929
5930
5931
5932
5933
5934
5935
5936
5937
5938
5939
5940

n9
MACY11 30(1046)
04-JAN-82 13:04_ PAGE 117
120
DRIVE OFF TRACK TEST

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

N 9
PAGE 118

MACY11 30(1046)
04-JAN-82 13:04
END OF PASS ROUTINE
.SBTTL
SRR

SEQ 0117 |

END OF PASS ROUTINE

AAAARAAAAA AR AAAAT AT

RN AAAAAAARARAAAAAAAAAAAAAAAA
AR
ANRR RS

CZR6IFO UNIBUSS RK6 DR PRT?
CZR6IF.P
C4-JAN-82 12:46

:«1F THERE ISN'T JUMP TO STAPT

'INCREHENT THE PASS NUMBER (SPASS)

;*TYPE "END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER)
;*IF THERES A HONITOR GO TO IT

SCOPE
CLR
CLR
INC

BIC

DEC
.WORD
BGT
MOV
$SENDCT: .WORD
$EOPCT
SEOPCT:

TYPE

MOV

TYPDS
TYPE

031672

031712

122737
7

005237

SENDMG

$PASS, = (SP)

377
042412
051501

000
042116
020123

000001

001230

001216

000002

001102

*:BRANCH IF NO MONITOR

NOP

+:GET MONITOR ADDRESS
*:CLEAR THE WORLD
::60 TO MONITOR

2 2SAVE ROOM

*:FOR

NOP

JMP
.WORD
.BYTE

$DOAGN

PC, (RO)

SRTNAD:
$ENULL:

::G0 TYPE-=DECIMAL ASCII WITH SIGN
::TYPE A NULL CHARACTER

RESET
SENDAD: JSR

$DOAGN:

::TYPE "END PASS #'

*:SAVE SPASS FOR TYPEOUT

,SENULL

an.2 RO

NOP

::YES
;:RESTORE COUNTER

J:ACTN

a(PC)+
srm

: ;RETURN

::NULL CHARACTER STRING

SENDMG: .ASCIZ <1$><i2>/e~o PASS” #/

031670

000137
031672
377
015
050040
000043

$GET42: MOV

BEQ

000240
40

1
$DOAGN
(PC)+,8(PC)+

sAgDrUAITING LOOP FOR THE APT MODE
#APTENV,SENV
CMP8

1$:

BNE
CMP

2%
$PASS ,#2

INC

STSTNM

BLO

031652
000042

::2ERO THE TEST NUMBER
+:2ERO THE NUMBER OF ITERATIONS
*:INCREMENT THE PASS NUMBER
::DON'T ALLOW A NEG. NUMBER
2:L00P?

031655
001216

STSTNM
STIMES
$PASS
#100000,8PASS
(PC)+

$EOP1+2

001216

$EOP1:

JMP
CLR

1$:

: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

001220

S$ESCAPE
#1,STIMES
#STACK,SP
$DEVCT
DRIVS,SDEVCT
18
BSERR
NUDRV
BSERR

001174

SCOPE
CLR
MOV
MOV
INC
CMP
BEQ
CLR

780 PeSS DONE ?,AS REQUIRED BY

:NOT

; INCREMENT THE TEST NUMBER

001176

$EOP:

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

5997
5998

031716
031720

000775
000137

013372

MACY11 30(1046) 04-JAN-82 13:04 gAGg 119
1

END OF PASS ROUTINE

2%:

BR
JMP

1$
STS

sWAITING LOOP FOR APT TO DUMP NEXT PROG

sRETURN TO MAIN LOOP

SEQ@ 0118

CZR6IFO UNIBUSS RKé DR PR;Z
CZROIF.P1
04-JAN-82
1

5999
6000
6001

.SBTTL

CLRFLG: MOV

#DDUMP RO

1$:

(R0)+

MOV

CLR

#<17. R
13

:TYPE PROGRAM ID IF FTITLE=0
031744
031750
031752
031756

001340

031762

000042

001340
043542

TITLE:

.SBTTL

032022

FTITLE

INC
FTITLE
YPE
,MSG1
ROGRAM ID
GET VALUE FOR SOF TWARE SUITCH REGISTER

g;SUR

42
648
SENV .M
648
SWR,#SWREG
65%
658

::GET SOFT-SWR SETTINGS

ggg:

Movs

#1,8AUTO0B

:sSET AUTO-MODE INDICATOR

1$:

RTS

001140

000001

TST

BNE

TST
BNE
CMPB
BEQ
CMP
BNE

001230

;sARE WE RUNNING UNDER XXDP/ACT?
..BRANCH IF
YES
ARE WE RUNNING UNDER APT?
::BRANCH IF YES
..SOFTHARE SWITCH REG SELECTED?
sBRANCH IF NO

:ROUTINE TO INPUT DRIVE NOS. TYPED IN & SET

:DRIVS, DRIVO-DP!V7 REGISTERS APPROPRIATELY

~
3o
QEINES
I¥ISNSS
AN
=~N
IRUGS
RER|=8=

89282838288
2\’!\10-!2 LSS ST NT,N )

e =12

032024

2% -A-n-ag

WN=0 00 NOMWVISS W= O

SUBROUTINES

sSUBROUTINE TO CLEAR ALL FLAGS FROM DDUMP THRU DOTIM

600%

geeess gzgeeses §8838%8

04=JAN-82 13:04 gAGE 120

MACY11 30(1046)
SUBROUT INES

GDRVS:

177770
177400
007476
000060

18:

2%:

RDLIN
Mov
MoV
MOovB

(SP)+,RO

MOV

#60,R4

*SET UP COUNT
*GET ASCII CHAR
*MASK
HI BYTE
:DRIVE FLAG ADDR

CMP

R4 ,R2
3s

:WAS TYPED CHAR 0 THRU 7?
*BRANCH IF YES

523)+
000070

177770

:GET STARTING ADDR OF ASCII STRING

#-8. R
(RO)+ ,R2
#177400,R2
#DRIVO,R3

R4 470

4
R1,4-8.

*NO, INCREMENT DR FLAG ADDR

:S/B 0=7 OR TERMINATOR

:DEFAULT ALL DRIVES

SEQ 0119

CZR6IFO UNIBUSS RK6é DR PRTZ
CZROIF.P11
04=~JAN-82 12:4
6055
gggg

032102
032106

005037
000207

6058
6059
6060

o§211o
032112
032116

005213
005237
11200

6062
6063
6064
6065
gggg

032153
032130
032132
032136
032136

022702
001407
005702
001001
000761

000054

6068
2393

032140
032144

104401
000137

046331
012562

6071
6072

032150
032152

005201
001330

6075
6076
6077
6078
6079

032156
032162

005237
000207

6082
6083
6084
6085
6086
6087
6088
6089
6090

032164
032166
032170
032172
0321764
032200
032202
032210

6061

032120

28;2 032154

é&fl%

042702

D 10
MACY11 30€1046)
04-JAN-82 13:04 PAGE 121
GET VALUE FOR SOFTWARE SWITCH REGISTER

007524

007474

100
6101
6102
6103

§108

6108

SIZFLG
PC

:BYPASS TEST 1 (SIZ'NG
:FOUND TERMINATOR, EXIT

38:

INC
INC
MOVB

aR3
DRIVS
(RO)+,R2

;SET UP FLAG FOR THE DRIVE
: INCREMENT TOTAL # DRIVES TO BE TESTED
:GET NEXT ASCII CHAR.

BIC

nmbo R2

*MASK

48:

TYPE
JMP

EMI
PRGSRT

;ONLY 0=7 ALLOWED.
*START ALL OVER

58:

INC
BNE

R1
18

:S/B NO MORE THAN 8 DIFF
:DRIVES TYPED IN.

INC
RTS

SIZFLG
PC

;D0 TEST 1
SEXIT.

000771

B8R
68:

#54,R
5
R2
X
78

SIS IT A COMMA?
*YES, GO TO NEXT WORD.
*NO, IS IT A TERMINATOR?
<IF 'NOT, SOMETHING WRONG.
*FOUND TERMINATOR, EXIT

:1F NORE, HAVE ERROR.
(SIZING)

:
*ROUTINE TO INPUT RKBAS OR DEFAULT.

104412
012600
005700
001403
010037
000207
012737
000207

GBA:

001264
177440

001264

18:

RDOCT
MOV
ST
BEQ
MOV
RTS
MOV
RTS

(SP)+,R0
RO
18
RO, $BASE

PC
#177440,8BASE
PC

:GET LOW ORDER FROM STACK
;:BRANCH IF DEFAULT.
;DEFAULT VALUE

:
sROUTINE 7O 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

2189

6109
6110

CLR
RTS

CMP
BEQ
ST
BNE
BR

6091
%%

6094
6095
6096
6097
6098

78:

177400

007524

SEQ 0120

28:

001314

1$:

RDOCT
MOV
ST
BEQ
MOV
JSR
RTS
MOV
BR

(SP)+ RO
RO
18
RO,RKVEC
PC.SETINT
PC
#210,RKVEC
2s

JGET LOW ORDER FROM STACK
:BRANCH IF DEFAULT

:DEFAULT VALUE

*ROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY

032244
032250

013700
012720

001314
036756

’

SETINT: MOV
MOV

RKVEC ,RO
#INTER,(RO)+

;INTER ADDR TO RKVEC

6111
6112

032254
032260

013710
000207

E 10

MACY11 30(1046)
04-JAN-82 13:04 PAGE 122
GET VALUE FOR SOFTWARE SWITCH REGISTER

001316

MOV
RTS

6115

*THIS ROUTINE CDT IN RKCS1

g}}g

6118

6119
6120
6121
6122
6123
2}5g

*ENTER WITH COMMAND IN HCS1

032262

032270
032276
032
032310
032312
032316

053737

013765
013737
004737
000207
062716
000207

001170

007354
001406
032356

007354

000000
007412

032320

053737

001170

6132
6133
6136
6135

032342
032346
032350
032354

004737
000207
062716
000207

032356

032326
032334

013765
013737

007354
001420

007354

000000
007412

DATCMD: BIS

MOV
MOV
JSR
RTS
ADD
RTS

000002

6138
6139
6140
6141

$TMP4 , HCS1

HCS1,RKCST(RS)
710, TEMPI
PC,FRDY
PC
#2,(SP)
PC

;SET CDT IF RKO7
DO COMMAND

;FIND CONTR READY
JSET HERE IF NOT RDY
*ELSE SKIP OVER ERROR

$TMP4, HCS1

;SET CDT IF RKO7

PC,FRDY
P¢
cz.(sp)
PC

:FIND CONTR RDY

HCS1,RKCST(RS)
150000, TEMP

:DO CMD

*ROUTINE TO FIND CONTROLLER READY (RDY) DURING A DELAY
JENTER WITH A COUNT IN TEMP1
*RETURN IF RDY NOT PRESENT (ERROR CONDITION)
*RETURN +2 IF RDY PRESENT (SKIP OVER ERROR)

ggzg

*STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE
032356
032364
032366
032372
032374
032400
032404
032406
032412
032416
032422

032765 000200
001010
005337 007412
001371
004737 032512
004737 033640
000207
062716 000002
004737 032512
004737 033640
000207

000000

FRDY:

18:

gggg
6158
6159
6160
6161
6162
6163
6164
6165
6166

MOV
MOV
JSR
RTS
ADD
RTS

IF DRIVE UNDER TEST IS AN RKO7.

*8 REQUIRES A LONGER TIMEOUT

6129

6144
6145
6146
6147
6148
6149
6150
6151
6152
6153
2};;

BIS

;PRS TO RKVEC+2

*THIS ROUTINE IS SIMILAR TO THE ABOVE BUT IS USED FOR DATA TRANSFERS

&139

DOCMD:

000002

6126

6130
6131

RKPRI, (RO)
PC

BIT
BNE
DEC
BNE
JSR
JSR
RTS
ADD
JSR
JSR
RTS

#RDY ,RKCS1(RS)
1$
TEMP1
FRDY
PC,HOLD
PC.CKCERR
PC
#2,(SP)
PC. HOLD
PC.CKCERR
PC

:STORE ALL RK611 REGS IN HOLDING REGS.
*CHECK FOR SPECIAL CERR

*NO RDY, EXIT
*SKIP OVER ERROR

;CHECK FOR SPECIAL CERR

*ROUTINE TO FIND CONTROLLER READY AND STORE DRIVE REGS ONLY
032424
032432
032434
032440
032442
032450
032456
032462
032464

032765
001014
005337
001371
016537
016537
004737
000207
062716

000200

000000

FRDY1:

007412
000034
000036
033640

000002

007402
007404

18:

BIT
BNE
DEC
BNE
MOV
MOV
JSR
RTS
ADD

#RDY ,RKCS1(RS)
1$
rsnp1
FRDY1
RKMR2 (RS), HMR
RKMR3 (R5) _HMR
pc CKCERR

oz,(sp>

;CHECK FOR SPECIAL CERR CONDITIONS
*NO RDY, EXIT
:SKIP OVER ERROR

SEQ 0121

lals)

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P11
04=JAN-82 12:46

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P11
04=JAN-82 12:46
6167
6168
6169
6170

032470
oxga6
032504
032510

016537
016537
004737
000207

000034
oogoso
033640

F 10
MACY11 30(1046) 04=JAN-82 13:04 PAGE 123
GET VALUE FOR SOFTWARE SWITCH REGISTER

007402
007404

g};{

6175

032512
032520
032526
032534
032542
032550
032556

016537
016537
016537
016537
016537
016537
016537

000000
000010
000002
000004
ooooog
000012
000014

007354
007356
007360
007362
007364
007366
007370

6184

032572

016537

000020

007374

6185

6186
6187

6188

6189
6190
6191
6192
6193
6194

032564
032

016537

032
032614

016537
016537

032630
032636

016537
000207

032622

016537

000016
000026

000034
000036

000030
000032

MOV
MOV
MOV
MOV
MOV
MOV
MOV

RKCS1(RS) ,HCS1
RKCS2(R5) JHCS2
RKWC (RS) , HWC
RKBA (RS) . HBA
RKDA (R5) MDA
RKDS (R5) _HDS
RKER(RS) HER

MOV

RKDC (RS) , HDC

MOV

007400

MOV

007402
007404

MOV
MOV

007406

MOV

007410

MOV
RTS

RKASOF
(RS) , HASOF
RKMR1
(RS 5 , HMR1

RKMR2
(R5) _HMR?2
RKMR3 (R5) JHMR3

RKECPS
(RS S , HPOS

RKECPT
(RS) . HPAT
PC

:RETURN +2 IF ATTN PRESENT (SKIP OVER ERROR)

032640
032642
032646
032654
032656
032660
032664

010446
013704
136437
001404
012604
062716
000207

6205

032670

000207

001222
007344

007373

000002

6204 032666 012604

TSTATN: mov
MOV
BITB
BEQ
MOV
ADD
RTS

18:

6208

MOV
RTS

R4, =(SP)
:SAV Ré
SUNIT,RG
ATTN(RG) ,HASOF +1
18
JBRANCH IF ATTN NOT PRESENT
(SP)+,R4
*RESTOR Ré
#2,(SP)
*INCR RET ADDR TO JUMP OVER ERROR.
PC

(SP)+.Ré4

;RESTOR R4

ROUTINE TO FIND ATTN WITHIN TIMES GREATER THAN 1 SEC

6209
6210

*ENTER WITH TIME IN SECONDS IN TEMP?
*RETURN IF NO ATTN (ERROR CONDITION)

6211

*RETURN +2 IF ATTN FOUND

gs}g

:STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE

6215

032672

010446

6217

032702

013704

6219
6220
6221
6222

032714
032716
032722
032724

6216

;CHECK FOR SPECIAL CERR CONDITIONS

:
*ROUTINF TO CHECK FOR CORRECT ATTN
*RETURN IF ATTN NOT PRESENT (ERROR CONDITION)

6197
6198
6199
6200
6201
6202
6203

6214

’

HOLD:

007372

g}gg

RKMR2 (RS), HMR
RKMR3 (R5). HMR
PC,CKCERR
PC

*STORE ALL RK611 REGISTERS IN HOLDING REGS

6176
6177
6178
6179
6180
6181
6182

6183

MOV
MOV
JSR
RTS

032674

012737

]

177777

001222

007412

FATT1:

3$:

6218 032706 136465 207344 000017 18:
001014
005337
001371
005337

007412
007414

MOV

R4 ,~(SP)

MOV

Arr~(§4>.axAsoro1(n5) :FIND CORRECT ATTN

MOV

BITB
BNE
DEC
BNE
DEC

#-1 rfnP
SUNIT

28
TEMP1
1$
TEMP2

:SAV R4

SEQ 0122

T
ONOWVESW

0
0 732
03

6 10
MACY11 30(1046) 04-JAN-82 13:04 PAGE 124
GET VALUE FOR SOFTWARE SWITCH REGISTER
BNE
CLR

03872

JSR

38
RKMR1(RS5)
PC,GSTAT

CLR

nxnn1(a5)

MOV
ADD

(SP)+,Ré
02 (SP)

ggg
2s:

03893
000002

JSR

RTS

(sfi)* R4

PC,GSTAT

*ROUTINE TO FIND ATTN WITHIN 1

SEQ@ 0123

sSELECT WORD 0
sGET LATEST STATUS

*RESTOR R&

:GET STATUS AFTER ATTN SEEN

‘RESTOR Ré
*SKIP OVER ERROR
SEC

:ENTER WITH COUNT IN TEMP1
*RETURN IF NO ATTN (ERROR)
*RETURN +2 IF ATTN FOUND
:STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE

OV~

2RER
RIDIRRVVIRRVLL 23
SISFRRUKIET

alal
NN
P

UNIBUSS RK6 DR PRTZ
L1
04~-JAN-82 12:46

001222

007344

FATT2:

000017

28:

007412
000026

033722
000026
033722

MOV

DEC
BNE
CLR

TEMP1
2
RKMR1 (RS)

:SELECT WORD 0

MOV

(SP)+,R4

*RESTOR Ré

PC,GSTAT

RTS
CLR
JSR

PC
RKMR1 (RS)
PC,GSTAT

ADD

xz (SP)

MOV

000002

;SAV Ré

SUNIT,RG
?;TN(R‘).RKASOF*1(RS)

JSR

18:

R4 ,=(SP)

MOV
gfiga

RTS

(SP)+,R4

:FIND CORRECT ATTN

SGET LATEST STATUS.

:RESTOR R4

:SKIP OVER ERROR

*ENTER WiTH A COUNT IN TEMP1
:THE DELAY IS APPROX 17 US/ITERATION + 12 US TO EXIT
:WHEN COUNT IS 0. BASED ON AN 11705
007412

bLY:

007412
18:

TST
BEQ
DEC
BR
RTS

TEMP1
18
TEMP1
DLY
PC

:5.6
1.9
:6.8
:2.5
:3.8

:THIS ROUTINE TYPES BYPASSED DRIVE#.
104401
010046

033076

104403
001
000
000207

045435

BYP:

TYPE
MOV
TYPOS
.BYTE

BYTE

RTS

US
uUs
US
US
US

ENTER WITH DRIVE# IN RO

,MSG14
RO,=(SP)

T SAVE RO FOR TYPEOUT

::60 TYPE==OCTAL ASCII
s:TYPE 1 DIGIT(S)
: ;SUPPRESS LEADING ZEROS

;BYPASS DRIVE
sTYPE DR#

;THIS ROUTINE READS ALL MSG A €& B WORDS & CHECKS THEM AS REQ'D.
017637
062716
004737

001520

CHKMSG: MOV

053737

007444

sSET UNIT #

007444

;ADD DRIVE TYPE

ADD
JSR

@(SP) ,CHKFLG
#?2 ,(SP)
PC.GSTAT1

TEMP1,~(SP)

013737
004737
013737

E.AQ,TEMP1

007412
007444
007412

033212

013737
004737
013737

033220
033226
033232

013737
004737
013737

007412

E.A2,TEMP1

007454

TEMP1 ,E.A2

033240
033246
033252

013737
004737
013737

007412

E.A1,TEMPT

PC,SBPAR

007450

TEMP1,E.A1

PC,SBPAR

E.B0,TEMP1

007446

033272
NN

W
NN

E.B1,TEMP1
PC, SBPAR
TEMP1,E.B1

;GET PARITY FOR MSG B1

E.B2,TEMP1

;GET PARITY FOR MSG B3

007412
001176

001172

(SP) +,TEMP1
SESCAPE ,STMP5

007424

007444

H.A0,E.AQ

033374

001176

#1$,SESCAPE

gu-nw W W

—=

007462

E.B3, TEHP1
PC,SBPAR
TEMP1,E.B3

£3 o8

NNN

007412

;GET PARITY FOR MSG BO

033352
033360
033362
033370
033372

007462
036214
007412

;GET PARITY FOR MSG A2

;GET PARITY FOR MSG B2

—ed

033340
033344

007412

sGET PARITY FOR MSG A1

PC,SBPAR

033320
033326
033332

007456
036214
007412

;GET PARITY FOR MSG AO

OaN=N
N
NN
o

033300
033306
033312

007452

;SAVE TEMP1

PC,SBPAR

TEMP1,E.BO

007412

sPASS MSGS TO BE TESTED
;BUMP RETURN ADDR TO 1ST ERROR
sGET ALL ACTUAL DRIVE & CONTR STATUS

TEMP1,E.B2

007456

(SPS,=(SP)

033374
033402
033404

000002

033410

007426

001000

145536

1%:

2%:
007446

#5W9,asWR

;RESTORE TEMP1

:SAVE ESCAPE

sTEST MSG AO
:BR_IF OK
;ELSE SETUP ESCAPE
:COPY RET ADDR.

:& RETURN TO MAINLINE ERROR
sRET HERE FROM HAINLINE ERROR

208
#2,(SP)

& BR IF_LOOP ON ERROR

H.B0,E.BO

sTEST MSG BO

:BUMP RET ADDR TO NEXT ERROR

SEQ 0124

lalal

H 10
MACY11 30(1046) 04-JAN-82 13:04 PAGE 125
GET VALUE FOR SOFTWARE SWITCH REGISTER

~iea

F
UNIBUSS RK6 DR_PRT2
F PN
04-JAN-82 12: 46

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

001411

033432

110

MACY11 30(1046)
04=JAN-82 13:04 PAGE 126
GET VALUE FOR SOFTWARE SWITCH REGISTER
58

001176

#4$,SESCAPE

(SP§,=(SP)

001000

145500

000002

007430

007450

033470

001176

48:

BIT

#5W9,aSWR

5%:

ADD

#2,(SP)

208

H.A1,E.A1

8s
#7$,$ESCAPE

;BR _IF 0K
sELSE SETUP ESCAPE
:COPY RET ADDR

8 RETURN TO MAINLINE ERROR
sRETURN HERE FROM MAINLINE ERROR

;8 BR IF LOOP ON ERROR

:BUMP RET ADDR TO NEXT ERROR
sTEST MSG A1l

:BR IF 0K

(SPJ,=(SP)

033524
033526

032777
001051
062716

001000

023737
001411
012737
011646
000207

007432

007452

033526

001176

032777
001032
062716

001000

032737
001402
7
0

145442

000002

7%:

BIT

#5W9,aSWR

8$:

ADD

#2,(SP)
H.B1,E.B1
118
#10$, SESCAPE
(SP) .,=(SP)

145404

000002

108:

BIT

118:

ADD

#SW9,aSWR
208
#2,(SP)

001520

128:

8IT

#T.A2,CHKFLG

034642
000002

001520

13%:

BIT

#T7.B2,CHKFLG
148

;TEST MSG B2?
:BR_IF NO

#7.B3,CHKFLG
158

;TEST MSG B3?

PC.RSEC
PC.RHEAD

sPUT INFO IN SECTOR, DO NOT CHECK
:PUT INFO IN HEADA, DO NOT CHECK

000004

001520

001176

525

001172
110
117

13$

PC.RCYLD

PC,RCYLA

14$:

BIT

034752
035010

000207

:BR IF 0K

000001

=S8

033612
033620

;TEST MSG B1

034714
033572
033600
033602
033606

;TEST MSG A2?
:BR IF NO
:PUT_INFO CYLDIF, DO NOT CHECK

sPUT INFO IN CYLADD, DO NOT CHECK

15%:

MOV

STHPS.SESCAPE

sRESTORE ESCAPE

208:

MOV

#STACK,SP

sRESET STACK PTR
sRESTORE ESCAPE

$TMPS, fESCAPE

aSLPERR

THIS ROUTINE CHECKS FOR CERTAIN ERROR CONDITIONS ONLY

001516
100000

007354

1 E.:

IF NED, CTO OR MDS SET MESSAGE A & B ARE INVALID

CKCERR:

TST
BNE
BIT
BNE
RTS

BYPCERR
4%

#CERR,HCS1

:BR IF CERR

SEQ C125

033660
033666

004000

007354

18:

RTS

2%
125

:BR _IF NOT CTO
sCTO ERROR, MSG A € B INVALID

:BR IF NOT NED
sNED ERROR, MSG A & B INVALID

007356

28%:

BIT
BEQ
ERROR

#NED ,HCS2
3s
126

001000

007356

3s$:

BIT
BEQ
ERROR

#MDS ,HCS2
48

RTS

4$:

000207

127

;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

'S RERLLRL222R
S VOOV
WN-0

#CTO,HCST

010000

033716
033720

BIT
BEQ
ERROR

SE@ 0126

013746

v
3

033722

007412

GSTAT:

032262

MOV
MOV

JSR
ERROR
MOV
RTS

007412

033754

MoV

TEMP1,=(SP)

SUNIT.RKCS2(RS)

#SELDRV,HCS1
PC,DOCMD

117

(gp>+.renp1

:SAVE TEMP1

s CURRENT DRIVE #

;DO SELDRV (STATUS) CMD & GET CONTR RDY
sRDY NOT SET BY END OF SELECT DRIVE CMD
sRESTOR TEMP1.

THIS ROUTINE GETS STATUS OF ALL DRIVE REGISTERS

000000
000010
000026

-d

007434

007436

034206

000000
000010
000026

(MSG A0O-A3, B0-83)

TEMP1,=(SP)

;SAVE TEMP1

117

sRDY NOT SET _BY END OF SELECT DRV CMD

PC,HOLD
#CCLR,RKCS1(RS)

sGET ALL CONTR REG
sCLEAR CONTR
SUNIT.RKCS2(R5) : CURRENT DRIVE #
#3,RKMR1 (RS)
SELECT WORD 3
PC.GSTAT2

HMR2,H.A3

HMR3.H.B3

000026

—ded
W

-~
-2 N

GSTAT1 MOV

007440
007442

W
NON

—

007412
032512

cded
NOWN
OO
S

033756

-‘§°°° OO—
2 §°°°
W (=l
W 2§°°° §°
SV

& ALL CONTROLLER REGISTERS.

:STORE MSG A3
:STORE MSG B3

sSELECT WORD 2
HMR2 ,H.A2
HMR3 ,H.B2

sRDY NOT SET BY END OF SELECT DRV CMD

:STORE MSG
A2
:STORE MSG B2

sSELECT WORD 1
sRDY NOT SET BY END OF SELECT DRV CMD

04=JAN-82 13:04 gAGg 127

1
MACY11 30(1046)
GET VALUE FOR SOFTWARE SWITCH REGISTER

ala

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

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

K 10
MACY11 30(1046)
04-JAN-82 13:04 PAGE 128
GET VALUE FOR SOFTWARE SWITCH REGISTER

6447
2223

034126
034134

013737
013737

007402
007404

007430
007432

MOV
MOV

unng.u.A1
HMR3 . H.B1

6450
6451

034142
034150

012765
013765

100000
001222

000000
000010

MOV
MOV

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

6454
22%2

034164
034172

013737
013737

007402
007404

007424
007426

MOV
MOV

HMR2 ,H. A0
HMR3.H.B0

6452
6453

034156
034162

004737
104117

034206

6457
&agg

034200
034204

012637
000207

007412

6460
6461
6462

034206
034214
034222

012737
053737
013765

000001
001170
007354

6465
6466
6467

034242
0346244
034250

000207
062716
000207

6463
6464

Fope:

034230
034236

013737
004737

001406
032626

MOV
RTS
007354
007354
000000

007412

GSTAT2: MOV
BIS
MOV

MOV
JSR
RTS
ADD
RTS

000002

6470
6471
6472
6473

012765
013737
004737

000040
001406
032356

000010
007412

SUBCLR: MOV
MOV
JSR

6480 034274
6481
034302
6482 034306
6483 034312
6484 034320
6485 034322
6486 034326
6487 034330

013765
005065
004737
032737
001401
000207
062716
000207

001222
000026
033722
100000

000010

MOV
CLR
JSR
BIT
BEQ
RTS
ADD
RTS

034272

8489

104120

6502

ERROR

007354

000002

18:

223g

6492
6493
6494
6495
6496
6497
6498
6499
6500

(SP)+,TEMP1
PC
#SELDRV,HCS1
$TMP4 ,HCS1
HCS1,RKCST1(RS)

710, TEMPI
PC FRDY1
02 (SP)

:RDY NOT SET BY END OF SEL DRV CMD
*STORE MSG A0
*STORE MSG B0

;RESTORE TEMP1

:RET CDT IF RKO7
:GET STATUS

;FIND CONTR RDY & STORE DRIVE REGS ONLY
*RET HERE IF NOT RDY
*RET HERE IF OK

*RETURN +2 IF CERR CLEAR
034252
034260
034266

6479

PC,GSTAT2
117

;STORE MSG A1
*STORE MSG B1

:THIS ROUTINE DOES A SUBSYSTEM CLEAR & WAITS FOR CONTROLLER READY
*IF RDY IS NOT RECEIVED BY THE END OF THE TIMEOUT, AN ERROR IS FLAGGED.
:THE ROUTINE THEN GETS CURRENT STATUS & CHECKS FOR CONTROLLER ERROR (CERR)
*RETURN IF CERR SET

gz;g

6476
6477
6478

JSR
ERROR

SEQ 0127

#SCLR,RKCS2(RS) :SUBSYS CLEAR
710, TEMP1
PC,FRDY
:FIND RDY

120

sunxr.nxcsz<as>
RKMR1 (RS)
PC,GSTAT
#CERR,HCS1
1$
PC
#2,(SP)
PC

*RDY NOT SET BY END OF SCLR
*CURRENT DRIVE
#
*SELECT WORD 0
SGET STATUS
:CHECK FOR CONT ERROR

:SKIP OVER ERROR

:READ THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN 'SECTOR'

034332
034340
034346
034352
034360
034364
034370
034374
034400

012765
004737
013737
042737
006237
006237
006237
006237
000207

000003
033722
007404
177017
001402
001402
001402
001402

000026
001402
001402

RDSEC:

MOV
JSR
MOV
BIC
ASR
ASR
ASR
ASR
RTS

#3,RKMR1(RS)
:WORD 3
PC.gsrAr
HMR3, SECTOR
c~c<n SECT>,SECTOR
SECTO
:RIGHT JUSTIFY
secroa
*SECTOR
SECTOR
LINFO
SECTOR
PC

:READ THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN *CYLDIF"

6503
6

000026 RDCYLD: MOV

JSR

001356
001356

001356

MOV
BIC

015464

001356

1$:

#2 ,RKMR1(RS)

PC.GSTAT

SEQ 0128

;WORD 2

HMR2, CYLDIF

MASKT, CYLDIF
CYLDIF

CMP

CYLDIF
CYLDIF
CYLDIF
g;Loxr.nAsx

RTS

CYLDIF

sRIGHT JUSTIFY
:CY%ODIFFIOFFSET

sCHK TO SEE IF RET IN COMPL. FORM
:BR_IF NOT
sCLR IF YES

;QUICK SELECT DRIVE COMMAND TO CBTAIN CYL DIFF
007412

000026
007354
007354
000000
007412
000000

QKCYLD: MOV

1$:

007412

016537
043737
012637
000207

000034
015466
007412

2$:

:SAVE TEMP1
sSELECT WORD 2
sSELECT DRIVE CMD

#2 ,RKMR1(R5)
#SELDRV,HCS1
$TMP4 ,HCS1
HCS1,RKCS1(RS)
T10, TEMPI
#RDY ,RKCS1(RS)
2s

ERROR

117

MOV
BIC

RKMR2
(RS) , CYLDIF
MASKT,CYLDIF
sGET CYL DIFF ONLY (NO SHIFTING)
(SP)+,TEMP1
;RESTORE TEMP1

DEC
BNE

001356
001356

TEMP1,=(SP)

MOV
MOV
BIS
MOV
MOV
BIT
BNE

MOV
RTS

TEMP1
18

sTEST FOR_CONT RDY

:BR IF THERE

:NO RDY AFTER SEL DRV CMD

:READ THE CYL ADDR IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN
012765

000002

000026
001360

001360

RDCYLA: MOV
JSR
MOV

BIC

ASR
ASR
ASR
ASR
RTS

#2 ,RKMR1(RS)

PC.GSTAT

‘CYLADD'

JWORD 2

HMR3, CYLADD

MASK1, CYLADD
CYLADD
CYLADD
CYLADD
CYLADD
PC

JRIGHT JUSTIFY
;CYL ADDR
s INFO

READ THE CYL DIFF/OFFSET IN H.A2, RIGHT JUSTIFY IT & STORE IT IN *CYLDIF"
001356
001356

015464

RCYLD:

MOV
BIC

H.A2,CYLDIF
MASKT,CYLDIF

CMP
BNE

CYLDIF ,MASK
18

ASR
ASR
ASR
ASR

CYLDIF
CYLDIF
CYLDIF
CYLDIF

sCLEAR UNWANTED INFO
sRIGHT JUSTIFY

;CHK TO SEE IF RET IN COMPL. FORM
;BR IF NO

lalal

:
L 10
MACY11 30(1046)
04-JAN-82 13:04 PAGE 129
GET VALUE FOR SOFTWARE SWITCH REGISTER

CZR6IFO UNIBUSS RK6 DR _PRT2
CZROIF.P1
04=JAN-82 12:46

6559

ggg?

034706

034712

005037

000207

n10
MACYT1 30(1046)
04-JAN-82 13:04 PAGE 130
GET VALUE FOR SOFTWARE SWITCH REGISTER

001356

18:

ggg
6564
6565

6566
6567
6568
6569
gg;g

6575
6576
6577
6578
6579
223?

034714
034722

034730
034734
034740
034744
034750

013737
043737

006237
006237
006237
006237
000207

007436
015466

001360
001360
001360
001360

001360
001360

6585
6586
6587
gggg

034752

034760
034766
034772
034776
035002
035006

013737

042737
006237
006237
006237
006237
000207

007442

177017
001402
001402
001402
001402

001402

035010

035016
035026
035030
035034

013737

042737
006237
000337
000207

007442

170777
001462
001462

001462

6600
6601
6602
6603
gggg

ASR
ASR
ASR
ASR
RTS

H.B2,CYLADD
MASKT,CYLADD
CYLADD
CYLADD
CYLADD
CYLADD
PC

:CLEAR UNWANTED INFO
;RIGHT JUSTIFY

RSEC:

MOV

BIC
ASR
ASR
ASR
ASR
RTS

H.B3,SECTOR

#*C<M.SECT>,SECTOR
;CLEAR UNWANTED INFO
SECTOR
;RIGHT JUSTIFY
SECTOR
SECTOR
SECTOR
PC

RHEAD:

MOV

BIC
ASR
SWAB
RTS

H.B3,HEADA

#~C<M.HEAD> ,HEADA
;CLEAR UNWANTED INFO
HEADA
:RIGHT JUSTIFY IT
HEADA
PC

JRETURN IF NOT FOUND

228%

6599

MOV
BIC

*FIND SECTOR 23

6591

6595
6596
ggg;

RCYLA:

*READ THE HEAD ADDR IN H.B3, RIGHT IT & STORE IT IN "HEADA®

6590
6596

;ELSE CLEAR

EREAD THE SECTOR COUNT IN H.B3, RIGHT JUSTIFY IT & STORE IT IN °'SECTOR'

gggg
6584

CYLDI¥

*READ THE CYL ADDR IN H.B2, RIGHT JUSTIFY IT & STORE IT IN °*CYLADD'

gg;%
6574

CLR

RTS

:RETURN +4 IF FOUND

035036

035044
035050
035056

035060

035064
035072
035074
035100
035106

013737

004737
023727
001014

004737

023727
00141
004737
023727
001404

6606
6607
6608

035110
035114
035116

005337
001353
000207

gg};

035124

000207

001416

034332
001402
034332

007412
000023

001402

000023

034332
001402

000023

FSEC23: MOV
18:

75000, TEMP1

JSR
CMP
BNE

PC.RDSEC
SECTOR,#23
2$

JSR

PC.RDSEC

CMP
BEQ
JSR
CMP
BEQ

SECTOR,#23
3s
PC.RDSEC
SECTOR,#23
3s

DEC
BNE
RTS

TEMP1
18
PC

RTS

;SETUP TIMEOUT

*READ SECTOR
*TEST FOR SECTOR 23(8)
*BR IF NOT 23(8)

:BR IF READ SAME TWICE
*ELSE TRY 1 MORE TIME
:BR IF 23(8)

007412

28:

éggo 035120 062716 000004

38:

6613

*ROUTINE TO FIND HEADS HOME IN RKMR2 WORD 1 BEFORE SPECIFIED DELAY

6614

SEQ 0129

ADD

#4, (SP)

:TRY AGAIN

:SKIP OVER ERROR

;ENTER WITH TIME IN SECONDS IN TEMP2

lals

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P11
04=JAN-82 12:46

04-JAN-82

JRETURN

015737

035142

004737

035134

035146

035154
035156
035162
035164
035170
035172
035174
035200

012765

032737

001007
005337
001367
005337
001356
000207
062716
000207

177777

000001

033722

000040

N10
PAGE 131

GET VALUE FOR SOFTWARE SWITCH REGISTER
:RETURN+2

035152

13:04

007412

000026
007402

#=1,TEMP1

18:

JSR

PC.GSTAT

28:

MOV
BIT
BNE
DEC
BNE
DEC
BNE
RTS
ADD
RTS

#1,RKMR1 (RS)

;
|

L 1S

;

uono 1

#D . HDHM , HMR2
2
TEMP1
18
TEMP2
FHDHM
PC
#2,(SP)
PC

:SKIP OVER ERROR

*ROUTINE TO FIND LOAD HEADS IN RKMR2 WORD 1 BEFORE THE TIMEOUT
JRETURN IF NOT FOUND
*RETURN+2 IF FOUND: SKIP OVER ERROR

035202
35210
035216
035222
035230
035232
035236
035240
03524
035246

012737
012765
004737
032737
001004
005337
001367
000207
062716
000207

000372
000001
033722
010000

007412
000026
007402

FLOAD:
18:

007412
000002

2%:

MOV
MOV
JSR
BIT
BNE
DEC
BNE
RTS
ADD
RTS

#250.
, TEMP1
#1,RKMR1(RS)
PC,GSTAT
#D . LOAD ,HMR2
2$
TEMP1
1$
PC
lZ.(SP)

:WORD 1

;SKIP OVER ERROR

“FILL HEADER TABLE WITH 66 WORDS OF

JENTER WITH CYL # IN "CALADD'
ENTER WITH HEAD # IN °'HEAD'

VALID HEADERS

:EN!ER WITH FORMAT IN °‘FORMAT®
035250

035252
035254
035260
035262
035270
035274
035300

010046

FHDTAB: MOV

010146
012700
005001
013737
006337
006337
006337

001460
001464
001464
001464

001464

035314
035322
035326

013737
000337
006337

001466
001470
001470

001470

035332

013720

001362

035344

053710

001470

001522

8%2%?8 882§§; 88}222
035336

010110

6667 035340 053710 001464
035350

004737

035430

R1.=(SP)
lHDTAB RO
R1
HEAD
, HD1
HD1
HD1
HD1

MOV
SWAB
ASL

FORMAT,FMT1
FMT1
FMT1

flgt
1$:

RO, =(SP)

MOV
MOV
CLR
MOV
ASL
ASL
ASL

MOV

33}

SETUP HEAD # FOR WORD 2 OF HEA
HEADER

;SETUP FORMAT FOR WORD 2 OF HEADER
:HEADER WORD 1-CYL ADDR

FMT1, (RO)

BIS

uoi (RO)

JSR

PC,SECFLG

BIS

:SAV RO
*SAV R1
JHEADER WORD TABLE ADDR
*SECTOR COUNTER

CALADD (RO)+

(RO)

IF FOUND = SKIP OVER ERROR

MOV

007414
000002

IF NOT FOUND

FHDHM:

007412

SEQ 0130

*HEADER WORD 2-SECTOR NO

;

~HEAD NO
~FORMAT

04=JAN-82 12:46

~NO N

P11

MACY11 30(1046)

(ale]

3333 g2888 23

(alal

0 UNIBUSS Rk6 DR _PRT?2

CZR6IFO UNIBUSS RK6 DR PRTZ
CZROIF.P1
04-JAN-82
1
6671
667
667
6674
6675
6676
6677
6678

B 1
MACY11 30(1046)
04=JAN-82 13:04 PAGE 132
GET VALUE FOR SOFTWARE SWITCH REGISTER
007412

MoV
MOV
BIC
BIC
BIS
MoV

007414

000026

6681

(RO) , TEMP2
CALADD, TEMP2
(RO)+, TEMP1
TEMP1. TEMP2

TEMP2, (RO)+

;HEADER WORD 3-HEADER CHECK

INC
CMP
BNE

R1
R1.122.

sSECTOR
C
:ALL 22 SECTORS DONE? (66 WORDS)

MOV

(SP)+,R1

sRESTOR R1

MOV
RTS

6685

CALADD TEMP1

(SP)+,RO

:BR IF

:RESTOR RO

:THIS ROUTINE GETS INFORMATION FROM THE BAD SECTOR TABLE FILLED BY A PREVIOUS
sTEST & SETS BITS 14 & 15 APPROPRIATLY.

001466

SECFLG: MOV
TST

BNE

MoV

035450

003346
035530
100000

035454

005346

035474

012702
004737
052710

035530
100000

035510
035514
035520

012702
004737
052710

004346
035530
040000

035524
035526

012602
000207

002346

1$:

;SAVE R2

1%
#BSE22H+8. ,R2

;BR IF 20 SECTOR FORMAT

081715 (RO)

JRETURN HERE IF GOOD SECTOR

FORMAT

PC,FLGTST

sGET HARDWARE DETECTED FLAG

Mov
JSR
BIS

#BSE225+8.,R2

;ELSE RETURN HERE

#81T14, (RO)

sRETURN HERE IF GOOD SECTOR

MOV
RTS

;EP)O.RZ

MoV

#BSE20H+8.
,R2

JSR
BIS

035470
035472

R2,=(SP)

JSR
BIS

PC,FLGTST

#8IT15, (RO)

;GET SOFTWARE DETECTED FLAG

;ELSE RETURN HERE

sGET HARDWARE DETECTED FLAG

sRETURN HERE IF GOOD SECTOR

MOV
JSR
BIS

#BSEZOS*S .R2

#BiT14, (RO)

sRETURN HERE IF GOOD SECTOR

MOV
RTS

;%P)*.RZ

;RESTORE R2

PC,FLGTS

sGET SOFTWARE DETECTED FLAG

sTHIS ROUTINE DOES THE ACTUAL SCANNING OF THE BAD SECTOR TABLES
;ENTER WITH THE ADDRESS OF TABLE (BSE22H, BSE22S, ETC.) IN TEMP1
sRETURN IF NO COMPARE
;RETURN+4 IF COMPARE
035530

010346

035532
035536
035540
035542

021227
00100%
01260
000207

177777

FLGTST: MOV

R3,-(SP)

sSAVE R3

18:

(R2) ,#-1
2%

: SEE IF ALL 1'S
:BR_IF NO

CMP
BNE
MOV
RTS

;gP)*.R3

:RESTORE R3

SEQ 0131

CZR6IFO UNIBUSS RK6 DR PR'Z
CZROIF.P11
04~JAN-82 12:4
6727
6728
6729
g;gg

035544
035550
035552
035556

022237
001403
oezrog
00076

6732
6733
6734

035560
035564
035566

013703
000303
050103

6736
6737
g;gg

035572
035574

001401
000756

6740
6741
6742

035576
035600
035604

012603
062716
(00207

6735

cri

035570

cNn
MACY11 30(1046) 04-JAN-82 13:04 PAGE 133
GET VALUE FOR SOFTWARE SWITCH REGISTER

001362

28:

000002

001460

38:

022203

48:

000004

035606
035610
035612
035616
035624

010046
010146
004737
062737
004737

034332
000001
035714

6754
6755
6756
g;g;

035630
035634
035640
035644

012700
163700
010037
062737

000204
001402
001402
001726

6759
g;g?

035652
035656

062700
012701

001726
002132

6762

035662

012021

2;22

035664

SORT:

035670

020027

001374

002132

6766

035672

012700

001726

6768

035700

020037

001402

6771

035706

6773
6774
6775

035712

6778
6779
6780
6781
6782

035714
035720
035724
035730
035734

035676

035704

001402

1%:

HEAD,R3
R3
R1,R3

;GET HEAD # FROM FHDTAB ROUTINE

BEQ
BR

48
8

MOV
ADD
RTS

(SP)+,R3
#4,(SP)
PC

JADD SECTOR # FROM FHDTAB ROUTINE

(R2)+,R3

*SEE IF SECTOR/HEAD COMPARE

;8 INCR PTR TO NEXT CYL WORD
:BR IF COMPARE
*ELSE TRY NEXT CYL
;RESTORE R3
;INCREMENT RET ADDR

MOV
MOV
JSR
ADD
JSR

RO,=(SP)
R1,=(SP)
PC.RDSEC
#1.SECTOR
PC.MULT6

MOV
SuB
MOV
ADD

#132. R0
SECTOR,RO
RO, SECTOR
#RHTAB,SECTOR

ADD
MOV

#RHTAB, RO
#SRTTAB,R1

;INDEX TO BOT HALF OF RHTAB
*INDEX TO TOP HALF OF SRTTAB

(RO)+,(R1)+

;PUT BOTTOM OF RHTAB TO TOP OF SRTTAB

MOV

CMP

no NRHTAB+132.

MOV

#RHTAB,RO

CMP

RO, SECTOR

012601

MOV

(SP)+,R1

000207

RTS

012021

001374

BNE

28:

MOV

BNE

6772 035710 012600

2599

MOV
SWAB
BIS

;G0 TO NEXT CYL WORD IN TABLE

;WITH AND RE-WRITES THE INFO IN SRTTAB TABLE TO BEGIN WITH SECTOR 0

67648
6749
6750
6751
g;gg

2;93

;SEE IF=CYL # & ADR PTR TO TRK/SECTOR WORD

JTHIS ROUTINE SORTS THE RHTAB TABLE FROM WHATEVER SECTOR IT BEGINS

2;29

6767

(R2)+,CALADD
3s
#2.R2
1$

CMP

6745

6763

CMP
BEQ
ADD
BR

MOV

:SAVE RO
*SAVE R1
:MULT SECTOR BY 6

;RO-SECTOR TO RO = INDEX
;SAVE INDEX

;PUT TOP OF RHTAB TO BOT OF SRTTAB

(RO)+, (R1)+

28’

(SP)+.R0O

|
:RESTOR R1

*RESTOR RO

:
006337
013746
337
062637
000207

001402
001402
001402
001402

*MULT BY 6. ENTER WITH DESIRED # IN "SECTOR'

MULT6:

ASL
MOV
ASL
ADD
RTS

SECTOR
SECTOR,=(SP)
SECTOR
(SP)+,SECTOR
PC

:2 X SECTOR

:4 X SECTOR
:(4 X S)+(2 X S) = 6 X SECTOR

SEQ 0132

DN
MACY11 30(1046)
04-JAN-82 13:04 PAGE 134
GET VALUE FOR SOFTWARE SWITCH REGISTER

SEQ@ 0133

6783
: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

CVLINDER AT CYL 410, TRACK 2.

RETURN IF SECTOR NOT LISTED IN BSE TABLE, ERROR CONDITION.

RETURN+2 IF LISTED, SKIP OVER ERROR
035736

010446

035740
035746

032737
001014

010000

035750
035754
035760

012704
004737
000422

003346
036036

Mov
JSR
BR

035762
035766
035772

012704
004737
000415

005346
036036

MOV
JSR

035774
035776

012604
000207

036000
036004
036010

012704
004737
000406

TRUERR Mov

002346
036036

007354

BIT
BNE

1%:

MOV

28:

MoV

RTS

JSR
BR

R4 ,-{SP)
#CFMT HCST

lBSEZZH*B..R&

:SAVE R4
sCHECK FORMAT

:BR FOR 20 SECTOR FORMAT

PC,TERR1

sSEE IF ON HARDWARE DETECTED TABLE
;RETURN HERE IF YES

085522548..R4

;ELSE RETURN HERE
;8 SEE IF ON SOFTWARE DETECTED TABLE
sRETURN HERE IF YES

(SP)
+ R4

;RESTORE R4
sRETURN WITHOUT JUMPING OVER ERROR

38’

gg.TERR1

JBSEZOH*B..RA

gg. TERR1

;SEE IF ON HARDWARE DETECTED TABLE

sRETURN HERE IF YES

CZR6IFO UNIBUSS RK6 DR PR;Z
CZR6IF.P1
04-JAN-82
1

T
OVONOWVIS
NN

oo~

——

285 SL2Le%
%—n.—a—n—n-n_.-l—h.a

alal

IBUSS RK6 DR_PRT?2
04~JAN-82 12:46
36012
36016
36022
036024

012704
004737
000401
000763

036026

012604

036034

000207

036030

062716

EN
MACY11 30(1046) 04-JAN-82 13:04 PAGE 135
GET VALUE FOR SOFTWARE SWITCH REGISTER

004346
(36036

000002

Mov
JSR
BR
BR
3s:

Mov

ADD
RTS

#BSE205+8.,84
PC,TERR1
33
1$

;ELSE RETURN HERE
;SEE IF ON SOFTWARE DETECTED TABLE
sRETURN HERE IF YES
sRETURN HERE IF NO

(SP)+,R4

;RESTORE Ré

#2,(SP)
PC

:SKIP OVER ERROR ON RETURN

SEQ 0134

F 11
MACY11 30(1046) 04-JAN-82 13:04 PAGE 13 6
GET VALUE FOR SOFTWARE SWITCH REGISTER
:THIS ROUTINE DOES THE ACTUAL COMPARING OF CYLINDER, HEAD & TRACK AGAINST

:THE BSE TABLE FOR THE ABOVE SUBROUTINE.
:RETURN IF FOUND ON TABLE

6827

PETURN*Z IF NOT FOUND
036036

021427

177777

TERR1

CMP

(RG) ,#-1

;SEE IF ALL 1°'S

SEQ 0135

CZR6IFO UNIBUSS RK6 DR PRTZ
CZRSIF.PI
04=JAN-82 12:4

RK6 DR PRTZ

=JAN-82 12:46

MACY11 30(1046) 04=JAN-82 13:04 gAGE 137

T VALUE FOR SOFTWARE SWITCH REGISTER

007374
832427
001405

BEQ

:BR IF YES, nor ON TABLE

BEQ

‘BR IF YES

TERR1

CMP

005724
000770

TST

(R4)+ ,HDC
(R4)+

062716
000207

000002

18:

ADD

#2,(SP)

022437
001401
000761

007364

28:

CMP
BEQ

(R4)+,HDA
3s

3s:

000207

RTS

B8R
RTS

SSEE IF CYL MATCH

*ELSE ADV TO NEXT CYL WORD

‘8 TRY AGAIN.

TERR1
PC

;SEE IF SECTOR & TRACK MATCH
‘BR IF YES

*0R TRY AGAIN

*ROUTINE TO TURN L OR P CLOCK INTERRUPT ON
036076
036102

005037
005737

001372
007520

CLKON:

CLR
ST

TIMUP

PCLKF

SEQ 0136

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

6847
6848
6849
6850
6851
6852
685
6854
6855
6856
6857
6858
6859
6860
6861
6862
6863
6864
6865
6866
6867
6868
6869
6872

036106
036110
036116
036120
036126
036134

001906
012777
000207
012777
012777
000207

H1
MACY11 30(1046) 04-JAN-82 13:04 PAGE 138
GET VALUE FOR SOFTWARE SWITCH REGISTER

000100

143210

177777
000135

143174

143164

18:

BNE
MOV

#100,aLKS

MOV

#-1,3PKSB

RTS

MOV

#135,3PKS

sBRANCH IF P=CLOCK PRESENT
sL=CLOCK, ENABLE INT

;P=CLOCK, ALL 1°S
*ENABLE INT, CT UP, REP INT

:LINE FREQ £ RUN

:KW11=L & KW11-P INTERRUPT HANDLER
036136

036142
036146
036150
036156
036162
036164
036170

005037

005337
001010
013737
005337
001002
005237
000002

001372

tLOCK:

001366
001364
001370

BNE
MOV

001366

001372

CLR
DEC

18:

DEC
BNE
INC
RTI

TIMUP
COUNT

1$
HZ,COUNT
SEC
1s
TIMUP

sSORRY, TIME IS UP

*ROUTINE TO TURN L OR P CLOCK INTERRUPT OFF
036172

005737

007520

036200

005077

1431722

36206
036212

005077
000207

143106

CLKOF:

18:

TST
BNE
CLR

RTS
CLR
RTS

PCLKF
18
aLKS
PC
aPKS

sBRACH IF P=CLOCK PRESENT
sL=CLOCK, CLEAR INTERRUPT
sP=CLOCK, CLEAR INTERRUPT

sTHIS ROUTINE GENERATES PARITY FOR THE EXPECTED MESSAGE
sENTER WITH THE EXPECTED WORD IN TEMP1
: TEMP1 1S ROTATED LEFT 17 TIMES. EACH TIME THE CARRY BIT IS SET,
sR1 IS _INCREMENTED. AT THE END OF 17 ROTATES ( TEMP1 BACK TO ORIG),

sR1 BIT 0 IS EXAMINED.

IF IT IS SET, INDICATING AN ODD # OF 1°S,

; THE PARITY BIT IS NOT SET IN B

:IF IT IS NOT SET, INDICATING AN EVEN # OF 1'S ,THE PARITY BIT IS
;SET IN TEMP1

gBPAR:

036220

0
812700

#17..RO

000021

0
6890
6891
6892
6893
2382

036230
036234
036236
036240
036242

006137
103001
005201
005300
001372

007412

6896
6897

036244
036250

032701
001003

000001

6898
6899
6900
238}

036252
036260
036262
036264

052737
012601
012600
000207

RO, =(SP)
R1.=(SP)

1$:

:BR IF CARRY CLEAR
sCOUNT # OF 1°'S
:SHIFT COUNTER

2$:

100000

007412

#8ITO,R1
3$

3s:

sSAVE RO
sSAVE R1
;SHIFT COUNTER
JCOUNT # OF 1°'S IN TEMP
JCLEAR CARRY

#M.PAR, TEMP1

(SP) +,R1
(SP)+,R0

sBR_IF ODD # IN RO
sSET PARITY BIT
sRESTORE R1
sRESTORE RO

SEQ@ 0137

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

04=JAN-82 13:04 %AGE 139

MACY11 30(1046)

GET VALUE FOR SOFTWARE SWITCH REGISTER

ROUTINE TO ENABLE LOOPING ON INTERMITTANT ERRORS
:WHEN SLPERR SET BY OTHER THAN SCOPE ROUTINE

6904
6905

;

032777

001000

142644

001103

IE: MY LOOP MACRO

§COP1S: BIT
BEQ

TSTB
BEQ
MOV
RTI

001110
036312
036316

011637
000002

001110

18:

mov

#SW9,asWR
18

SERFLG
1$
SLPERR, (SP)

:LOOP ON ERROR?
:BR IF NO
:HAD ERROR?
:BR IF NO
|

(SP) ,SLPERR

;SET LOOP ADDR FOR TIGHT SCOPE LOOP

:THIS ROUTINE IS ENTERED BY TYPING A CONTROL-C.

;IT IS USED TO ALLOW THE OPERATOR TO HLAT THE CPU WHILE INSURING
s THAT HEADS ARE LOADED & FORMATTING IS VALID BEFORE ACTUALLY HALTING

*THE CPU.

STOP:

022626

004737
104024

034252

005737

007336

012737
004737
104121

000011

013737

001414
032672

032262

52:

007354

:CERR AFTER

UNLD

;SEE IF HEADS UNLOADED

ST
BEQ

42
13

égscn

:SEE IF MANUAL OR AUTO MODE
:BR IF MANUAL MODE

:PGM ABORT PENDING

TYPE

,MSG7S

;HALT PENDING

JSR
ERROR

PC,SUBCLR
24

;CERR AFTER SCLR

MOV
JSR

#SRTSPL,HCS1
PC,DOCMD

:DO START SPINDLE CMD & GET CONTR RDY

MOV
JSR
ERROR

7100, TEMP2
PC.FATTI

CLR

UNLD

TST
BEQ
INC

BADHDR
4

MOV

#CCLR,RK CS1(RS)

MoV
JSR

#RECAL ,HCS1
PC.DOCHD

ERROR

007414

007336
007340

38:

007342

032262

PC.,SUBCLR

gzps

046235

034252

JSR

BEQ

046167

104024

(SP)+,(SP)+

ERROR

000042

004737

CMP

000000
000010
007354

MoV

121

HPEND

;RESTORE STACK FROM INTERRUPT

*BR IF NO

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

:SEE IF HEADERS VALID
‘BR IF YES

SUNIT,RKCS2(R5)

;D0 RECAL CMD & GET CONTR RDY

SEQ 0138

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

J 1

MACY11 30(1046)
04-JAN-82 13:04 PAGE 140
GET VALUE FOR SOFTWARE SWITCH REGISTER

2323

036460

104124

6961
6962
6963
6964
6965
6966
6967
gggg

036462
036470
036474
036502
036506
036506
036514
036520

012765
004737
032737
001001
104244
013737
004737
104055

000001
033722
020000

000026

001406
032672

007414

6970
6971
6972
6973

036522
036530
036536
036544

012765
013765
012737
004737

100000
001222
000005
032262

000000
000010
007354

6975

036552

004737

032640

6977
6978

036560
036562

104154

g;g}

036562

00137

031220

6983
6984
6985

036566
036572
036574

005737
001410
104401

000042

6987

036604

005037

697%

6976

§980
6986

gggg

036550
036556

036600

036610

6990 036614
6991
gggg

036620
036622

104151

000401

005037

ERROR

124

;RDY NOT SET AFTER RECAL CMD

MOV
JSR
BIT
BNE
ERROR
MOV
JSR
ERROR

#1,RKMR1(RS)
PC.GSTAT
#D.RTZ,HMR2
648
244
710, TEMP2
PC,FATTI
55

;SELECT WORD 1

MOV
MOV
MOV
JSR

#CCLR,RKCS1(RS)
SUNIT.RKCS2(R5) ;DRIVEA
#CLEAR,HCS1
PC,DOCMD
:DO DRIVE CLEAR CMD & GET CONTR RDY

JSR

PC,TSTATN

ERROR

154

;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

JMP

FORM

;WRITE VALID FORMATS

046272

TST
BEQ
TYPE

42
13
MSG76

:SEE IF MANUAL OR AULTC MODE
*BR IF MANUAL MOD E
*PGM ABORTED

001176

CLR

$ESCAPE

648:

ERROR

BR
658:

48:

031576

000137

031550

104401

046314

000000
000137

007402

CLR

013372

65§

$EOPCT

JMP

5%:

151

TYPE

HALT
JMP

:RTZ NOT SET DURING RECAL CMD
*SETUF 7IMEOUT
SFIND ATTN
*NO ATTN AFTER RECAL CMD

*NO RDY AFTER DRIVE CLEAR CMD
*TEST FOR ATTN

*SET UP EOP TO EXIT TO MONITOR

$EOP1

;ABORT PGM

,MSG77

:CPU HALTED

STS

:START OVER IF CONTINUE PRESSED

699%
6995
gggg

.SBTTL

6998
6999
7000

“THIS ROUTINE IS ENTERED IF THERE IS
:
A.
NON EXISTANT MEMORY (NO SSYN)

7002

7001

700 036626 011500

7005

7006

036630

7007
7008
7009

;8}?

036632
036640
036642
036646

7012
7013
7014

036650
036652
036653

005740
032777
001005
104401
010046
104403
006
000

‘

UNEXPECTED TiMEOUT HANDLER

BOUNDRY ERROR

STACK OVERFLOW

BADTMO: MOV

020000
046475

142300

(SP) ,RO

;SAVE PC WHERE TIMEOUT OCCURRED.

BIT
BNE
TYPE
MOV

-(RO)

#SW13,aSWR
18
EM3
RO,=(SP)

*GET PC BEFORE UPDATE

TYPOS
.BYTE
BYTE

6
0

1360 TYPE=--OCTAL ASCII
*:TYPE 6 DIGIT(S)
::SUPPRESS LEADING 2EROS

1~nxexr ERR_TYPOUT?
*YES, DON'T TYPE
*ABORT TESTS,UNEXP T.0. @ PC=
..scgs gg FOR TYPEOUT

SEQ 0139

CZR6IFO UNIBUSS RK6 DR PRTZ
CZROIF.P1
04=JAN-82 12:46

036654

032777

001000

04=JAN-82

142256

BIT
BEQ

#SW9,aSWR
2$

:LOOP ON ERROR?
*NO, BRANCH

BIT
BEQ

#SW14,aSWR
3s

:THAT GAVE BAD TIMEOUT
:LOOP ON TEST?
*NO BRANCH

UNEXPECTED TIMEOUT HANDLER

1%:

CMP
JMP

1462214
032777
001401
000002

040000

142240

28:

RTI

000000

036706
036710

38:

JMP
.SBTTL

001334

001176
001000

001176

142176

MOV

142132

;UNEXPECTED TIME OUT OCCURRED
:AS INDICATED. YOU CAN LOOP ON
:ERROR, LOOP ON TEST OR INMIBIT
:ERROR TYPEOUT BY SETTING THOSE
:SWITCHES.
(SP)+,(SP)+

*RESTORE STACK

$EOP1

*ABORT TESTS

#1$,$ESCAPE

(SPJ, TRAPPC

:STORE PC

41
SESCAPE
#SW9,aSWR
2s

2s:

MOV

#STACK , SP

.SBTTL

RK06 INTERRUPT HANDLER

INTER:

NOP
NOP
NOP
MOV
ST

(SP) ,RO
-(RO)

:SAVE PC WHERE INT OCCURRED.
*GET PC BEFORE UPDATE.

MOV

RO,=(SP)

"¥¢¥E
RO FOR TYPEOUT

18:

044742

JMP

TYPE

TYPOS
.BYTE
BYTE

006
037010

JYES

ERROR
CLR
BIT
BNE
RTI

001100

*YES, RESTORE STACK
:GO TO STARTING ADDR OF TEST

MEMORY CHECK ENABLE TRAP

MEMERR: MOV

000002
012706
000177

(SP)+,(SP)+
aSLPADR

HALT

CMP

031550

036730

13:04

K 11
PAGE 141

MACY11 30(1046)

HALT
NOP
NOP
RTI

000002
.SBTTL

aSLPERR

,MSG6

6
0

:UNEXP MEM PARITY TRAP
:CHECK IF LOOP ON ERROR
*YES, FORCE STACK AND TRY AGAIN
*ELSE RETURN

;INIT STACK

:LOOP ON ERROR

SINT AT PC=

;G0 TYPE"OCTAL ASCII

::TYPE 6 DIGIT(S)
::SUPPRESS LEADING ZEROS

POWER DOWN AND UP ROUTINES

:POWER DOWN ROUTINE
037012
037020

012737
000000

037024

000024

SPWRDN: :2!7

#SPWRUP ,PWRVEC

;SET UP VECTOR

SEQ 0140

CZR6IFO UNIBUSS RK6 DR_PRTZ2
CZR6IF.PN
04-JAN-8 2 12:46

037022

MACYT 3001046)

04=-JAN-82

13:04

POWER DOWN AND UP ROUTINES

000776

LN
PAGE 142

sHANG UP.

;POWER UP ROUTINE

037024

037076
037076
037012

045132
037072

015472

037076

$PWRUP: CLR
18:

000024
000026
000036

INC

BNE
MOV
Mov
MOV

MoV
TYPE
RESET
JMP

SPURCT
S$PWRCT

18
#$PWRDN
, PWRVEC
#PR7 ,PWRVE(C+2
#PR7
, TRAPVE(C+2

#STACK,SP
.MSG11

;WAIT LOOP FOR TTY
;WAIT FOR THE INCR
:OF WORD
:SET POWER_DOWN VECTOR
sPRIORITY 7
sLOCKOUT ALL INTERRUPTS FOR TRAPS
sINITIALIZE STACK
sREPORT POWER FAIL

PFSRT

sWAIT COUNT FOR TTY

$SPWRCT: 0

*DIVISION UTILITY ROUTINE
*RO-R1-R2-R3=DI1VIDEND

*R4=-R5=DIVISOR
;RO-R1=REMAINDER AFTER DI
;R2=R3=QUOTIENT AFTER DIV
sENTER WITH JSR PC.M.DPID
012746
010446

000040

000002
000002

=
b e
2

000002

b
e
b b e
-—h
b b -t

SBC

037170
037172
037174
037176
037200
037202
037204

000004

#40,=(SP)
R4 ,=(SP)
RS,=(SP)
2(5P)
asP

2(SP)

ADD

asP.R1

BCS

M.DP50

ADC
ADD

CLR
M.DP40: ROL
ROL
ROL
ROL
ST

NNN NNNNNNNNNNNNNYN

N NONININD
= b e b d e e b b ek
[« AV
P WN=O VRNV
WN=O

000002

M.DPID: MOV
MOV
MOV
NEG
NEG

RO
2(SP) RO

-(SP)
R3
R2
R1
)
asP

asP

;ADD =(DIVISOR)
:SET CARRY

ADD
ADC

2(SP) .R1
RO

ADD

B8R

M.DP41: ADD

ADC

ADD
M.DP42: ADC

TST

s IF CARRY THEN OVERFLOW HAS OCCURRED
sTHIS IS A LONGER LASTING CARRY BIT

asP

M.DP41

ADC

sPERFORM INIT SUBT.

sTEST CARRY INDICATOR
sIF _TO CARRY THEN ADD, ELSE SuBT.
sCLEAR UP FOR NEXT TIME

BEQ
CLR

sCOUNTER FOR DIVISION CYCLES
sH1 ORDER
;LO ORDER TO THE STACK
» FORM NEGATIVE
:VERSION OF DIVISOR

4(SP) RO

M.DP42
RS.R1

RO
aSP
R4 RO
asP
asP

sADD +(DIVISOR)
:SET CARRY
:SET_CARRY
s TEST THE UPDATE INDICATOR

SEQ 0141

————————y

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

MACY11 30(1046)

04-JAN-82

13:04

POWER DOWN AND UP ROUTINES

R3
6(SP)
njopao

000006

PAGE 143

;IF O,FORGET IT

:NO CARRY POSSIBLE HERE
sDECREMENT CTR
;BR IF MORE TO DO

M.DP44

R5.R1

RO
R4 .RO

000010
037244

000207

037246
037252
037254

062706
000262
000207

M.DP&44:

#o.sp
PC

000006

M.DP50:

#6,SP
PC

sADJUST STACK BY 4 WORDS

SEQ 0142

.SBTTL
AR

SEQ 0143

SCOPE HANDLER ROUTINE
AR AR A AR AR

RN R A AN

AAR

tTHlS ROUTINE CONTROLS THE LOOPING OF

;*AND LOAD THE TEST NUMBEK(STSTNM)

A RAAA

AR AAARA

SUBTESTS.

IT WILL

INCREMENT

INTO THE DISPLAY REG.(DISPLAY<7:0>)

;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>

s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

s *SW14=1
s*SW11=1
;*SW09=1
;*SW08=1
s*CALL
.
SCOPE
037256
037256
037260
037266

104407
032777
001114

037270

000416

037272

013746

$SCOPE:

040000

141652

18:

:MAMMNSTART OF

$XTSTR: BR
000004
037316
177060
000004

141604

141576

001102

001103
001103

001000

141546

001110

001106

001103
001174

78:
4$:

141514

000001

001102

::1IF RUNNING ON THE ''XOR'* TESTER CHANGE

@NERRVEC,=(SP)

::SAVE THE CONTENTS OF THE ERROR VECTOR

MOV

(SP)+, axeanvec

ar1270

2:THIS INSTRUCTION TO A 'NOP'* (NOP=240)
..ser FOR TIMEOUT

TIME OUT ON XOR?

..Rssrone THE ERROR VECTOR

$SVLAD

MoV

(SP)+ ,3#ERRVEC

..RESTORE THE ERROR VECTOR

CMPB
BEQ

aSWR,STSTNM
S$OVER

..gg }HE EgGHT TEST?

CMPB

SERMAX , SERFLG

..HAX ERRCRS FOR THIS TEST OCCURRED?

CMP

(SP)+,(SP)+

:GO TO THE NEXT TEST

*CLEAR THE STACK AFTER A TIME OUT

TSTB
BEQ

SWR<7:0>

SERFLG
3s

..HAS AN ERROR OCCURRED?
:BR IF NO

BHI
BIT

33
#81T09,aSWR

48
:hCESR.$LPADR

:BR IF NO
..LOOP ON ERROR?
:BR_IF NO
::SET LOOP ADDRESS TO LAST SCOPE

CLRB
CLR

$ERFLG
STIMES

;:ZERO THE ERROR FLAG
;sCLEAR THE NUMBER OF ITERATIONS TO MAKE

BEQ
ggv

1$
#BIT11,3aSWR
1$

::BR IF YES

1$:

BEQ
INC
CMP
BGE
MOV

1$
SICNT
STIMES,SICNT
SOVER
#1,81CNT

INHIBIT ITERATIONS
;s INCREMENT ITERATION COUNT
..CHECK THE NUMBER OF ITERATIONS MADE
::BR _IF MORE ITERATION REQUIRED
s;REINITIALIZE THE ITERATION COUNTER

$SVLAD:

INCB

$TSTNM

001104

001214

;YES IF SW14=1

CODE FOR THE XOR TESTERAWNAN

#5$ aaeanvsc

TST

001104
001174

S$OVER

;s TEST
FOR CHANGE IN SOF T-SWR
..LOOP ON PRESENT TEST?

BIT
BNE

3s:

001216
001104
001174

#BIT14,3SWR

BR
78
:LOOP ON THE PRESENT TEST
6% :;AMANAEND OF CODE FOR THE XOR TESTERAANA#
BIT
#B1T08,asSwR
..LOOP ON SPEC. TEST?
BEQ
2%
:BR IF NO

2%:

001115

;;SCOPE=I0T

MOV

TST

5%:

000400

004000

MOV

000004

037470

CKSWR
BIT
BNE

LOOP ON TEST
INHIBIT ITERATIONS
LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>

MOV

Movae

$PASS

SMXCNT,STIMES

STSTNM, STESTN

s cESCAPE TO THE NEXT TEST

..INHIBIT ITERATIONS?

..IF FIRST PASS OF PROGRAM

::SET NUMBER OF ITERATIONS TO DO
s sCOUNT TEST NUMBERS

;:SET TEST NUMBER IN APT MAILBOX

OTM

N1
PAGE 144

MACY11 30(1046)
04-JAN-82 13:04
SCOPE HANDLER ROUTINE

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P1
064=JAN-B2 12:46

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

037476

011637
011637
005037
2737
3777
3716

00110
00111

B 12
PAGE 145

w
~
N
o

—

SOVER:

::SAVE SCOPE LOOP ADDRESS
..SAVE ERROR _LOOP ADDRESS

#1,SERMA

::ONLY ALLOW ONE(1) ERROR ON NEXT TEST

ssCLEAR THE ESCAPE FROM ERROR ADDRESS

STSTNM, ODISPLAY ..DISPLAY TEST NUMBER
SLPADR, (SP)

SMXCNT: 2000.
.SBTTL ERROR HANDLER ROUTINE
SRR RAAR AR

SEQ G144

(SP) ,SLPADR
(SP) ,SLPERR

SESCAPE

ggee

7204

MACY11 30(1046) 04=JAN-82 13:04
SCOPE HANDLER ROUTINE

..Fugce RSTURN ADDRESS
ES

ssMAX. NUMBER OF ITERATIONS

AR AAARAAARARA TR RAAAAAAANAAANAAAAAAAAAAAAACAAAAARAANS

'THIS 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 szoggbgg B8Y THIS ROUTINE ARE:
HALT
tSH1 5=1
caSW13= 1
INHIBIT ERROR TYPEOUTS
'SU10- 1
BELL ON ERROR
+%SW09= 1
LOOP ON ERROR

'CALL

104407

; sERROR= EMT AND N=ERROR ITEM NUMBER

$ERROR:

7%:

001103

001102
002000

s TEST FOR _CHANGE IN SOFT-SWR

$ERFLG
..SET THE _ERROR FLAG
78
sDON'T LET THE FLAG GO TO ZERO
$STSTNM,aDISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG

1g1710.asun
1$:

$BELL

$ERTTL

(SP),SERRPC

#2,$ERRPC

@SERRPC,SITEMS

020000

#BIT13,3SWR
208

055332
001205

PC,TYPERR

000001

001230

001114
040534

037656

21$:
22?:

141252

001000

001110
001176
7258

037716

001176

20$:

141236

3s:
4$:

+SCRLF

sAPTENV.sENV
$

$ITEMB,21$
SC.SATY4
0
22%

..BELL ON ERROR?

:NO = SKIP
..RING BELL

s COUNT THE NUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION

s:STRIP AND SAVE THE ERROR ITEM CODE
::SKIP TYPEOUT IF SET
s :SKIP TYPEOUTS
::6G0 TO USER ERROR ROUTINE
s sRUNNING IN APT MODE
::NO,SKIP APT ERROR REPORT
:sSET ITEM NUMBER AS ERROR NUMBER
: ;REPORT FATAL ERROR TO APT

: :APT _ERROR LOOP
s sHALT ON ERROR
..SKIP IF CONTINUE

z§1r09.asua

..TEST FOR_CHANGE IN SOFT-SWR
::LOOP ON ERROR SWITCH SET?

$LPERR, (SP)

*:FUDGE RETURN FOR LOOPING

aSWR

§ESCAPE

$ESCAPE, (SP)

T ON _ERROR!

::BR _IF NO

*:CHECK FOR AN ESCAPE ADDRESS
::BR _IF NONE
::FUDGE RETURN ADDRESS FOR ESCAPE

CZR6IFO UNIBUSS RK6 DR PPTZ
CZR6IF .P11
04=JAN-82 12:46
7259

7260

7261
7262
7263
7264
;%22

037722

037730
037732
037734
037734

022737

001001
000000

031636

MACY11 30(1046)
04=JAN-82 13:04
ERROR HANDLER ROUTINE
000042

5%:

CMP

BNE
HALT

6%:

000002

€ 12
PAGE 146

#SENDAD ,an42

RTI
TYPE ROUTINE

.SBTTL

;sACT=11 AUTO-ACCEPT?

2 sBRANCH IF NO
:2YES
::RETURN

7267

;;tt.tfittQttfittttttt'tt'ttt'tttttttttttttttfittttttfittttttttfittttt

7268
7269

s*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.

7270
727
;%;%

-NOTfl
-NOTEZ
tNOTEB

7274

CALL

7275

t1) USING A TRAP INSTRUCTION

7276
7277
7278
7279

7588

-OR
o
%

7282
7283
7284
7285
7286
7287
7288

037736
037742
037744
037746
037750
037752
037756

105737
100002
000000
000430
010046
017600
122737

001157

000002
000001

001230

7290
7291
7292
7293

037766
037774
037776
040002

132737
001405
010037
004737

000100

001231

040006
040524

040010

132737

000040

7289

7295
7297

7298

7299

7300
7301
7302
7303
7305
7307

7
7310
7311
7312
7313
7314

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

037764

040016
040020
040022
040024
040026
040030
040034
040036
040042
040044
040050
040052
040054
040056
0060
040064
0066
040072
040076

001011

000000

001003
112046
001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401
001205
105037
000755
004737
123726
001350

$TYPE:

1$:

001231

618%:

62%:
2%:

000002

60$:
3s:

000011

48:

000200

040266

040150
001156

5$:
6$:

TYPE

+MESADR

J2MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
18

3s
RO,-(SP)
@2(SP) ,RO
#APTENV,SENV

..Is THERE A TERMINAL?
;BR IF YES
..HALT HERE IF NO TERMINAL
sLEAVE
..SAVE RO
:2GET ADDRESS or ASCIZ STRING
..RUNNING IN APT MODE

#APTSPOOL , SENVM
62%
R0.61$
PC,SATY3

..SPOOL MESSAGE
T
2:NO,GO CHECK FOR CONSOLE
::SETUP MESSAGE ADDRESS FOR APT
..SPOOL MESSAGE TO APT

#APTCSUP,SENVM

::APT CONSOLE SUPPRESSED

TYPE
MESADR
TSTB
BPL
HALT

BR
MOV
MOV
CMPB
BNE
BITB
BEQ
MOV
JSR

.WORD

BITB

BNE
MOVB
BNE
TST
MOV
ADD
RTI
CMPB
BEQ
CMPB
BNE
TST
TYPE
$CRLF
CLRB
BR
JSR
CMPB
BNE

62%

60$
(R0)+.-(SP)
(SP)#

(SP)+,RO

n. (SP)

#HT, (SP)
8s
#CRLF, (SP)
5%
(SP)+
$CHARCNT
2%

PC,STYPEC
SFILLC,(SP)+
2%

+NO,GO CHECK FOR APT CONSOLE

JMESSAGE ADDRESS

::YES,SKIP TYPE OUT
::PUSH CHARACTER TO BE TYPED ONTO STACK
22BR IF IT ISN'T THE TERMINATOR
ssIF TERMINATOR POP IT OFF THE STACK
:RESTORE RO
2:ADJUST RETURN PC
2 sRETURN
::BRANCH IF <HT>
:sBRANCH IF NOT <CRLF>
::POP <CR><LF> EQUIV
s:TYPE A CR AND LF

:3CLEAR CHARACTER COUNT
:2GET NEXT CHARACTER

2260 TYPE THIS CHARACTER
221S IT TIME FOR FILLER CHARS.?
s3IF NO GO GET NEXT CHAR.

SEQ 0145

PwlBUSS RK6 DR PRTZ

04=JAN=82 12:4

040100

013746

001154

040104
040110
040112
040116
040122

105366
002770
004737
105337
000770

000001

MACYT 30(1046)

04=JAN-82

ROUT INE

78:

040150
040266

13:04

D 12

PAGE 147

MOV

$NULL ,=(SP)

..GE; ?"gr FILLEzASHARS. NEEDED

DECB
BLT
JSR
DECB
BR

1(SP)
6$
PC,STYPEC
S$CHARCNT
78

..ooes A NULL NEED TO BE TYPED?
:BR IF NO=-GO POP THE NULL OFF OF STACK
“:6G0 TYPE A NULL
::DO NOT COUNT AS A COUNT
::LOOP

SEQ 0146

:HORIZONTAL TAB PROCESSOR
040126

040130
040134

112716

004737
132737

000040

040150
000007

040142
040144
040146
040150
040150
040154
040156

001372
005726
000724

105777
100022
017746

140770

040166
040172
040174
040174

122716
001012

000023

105777

7140744

117716

140740

122716
001366

000021

040162

040200
040202

040206

040212
040216

040220

042716

100375

042716

040220
040222
040222
040226
230
236
040244
040246
040252
040254

105777
100375
116677
122766
001003
105037
000406
122766

040264
040266
040270

105227
000000
000207

040262

8s:

040266

STYPEC:

140764

177600

1018:

1028:
108:

140722

140714
000002

040266

000012

000002

18:

SRR

::REPLACE TAB WITH SPACE

PC $TYPEC
#7.S$CHARCNT
9s
(SP)+
2

:TAB STOP
+:POP SPACE OFF STACK
+3GET NEXT CHARACTER

TSTB
BPL
MOV

@$TKS
108
as$TKB,~(SP)

::CHAR IN KYBD BUFFER?
::BR_IF NOT
*GET CHAR

:MJD001
*MJD001
*MJD001

CMPB
BNE

W#SXOFF,(SP)
102$

::WAS CHAR XOFF
::BR IF NOT

BNE
ST
BR

#177600,(SP)

*:TYPE A SPACE
..BRANCH IF NOT AT

::STRIP EXTRANEOUS BITS

TSTB

@$TKS

::WAIT FOR CHAR

MOVB

a$TKB, (SP)

::GET CHAR

*MJD001

1018

#177600, (SP)
#SXON, (SP)
1018

“:WAS IT XON?
::BR IF NOT

*MJD001
*MJD001

(SP)+

::FIX STACK

TSTB
BPL
MOVB
CMPB
BNE
CLRB
BR
CMPB

@$TPS
108
2(SP).aSTPB
#CR,2(SP)
18
SCHARCNT
$TYPEX
#LF,2(SP)

::WAIT UNTIL PRINTER IS READY

*MJD001
:MJD001

CMPB
BNE

BEQ

$7TYPEX
(PC)+
0
PC

2:STRIP IT

*MJD001

BIC

::LOAD CHAR TO BE TYPED INTO DATA REG.
::18 cuAnAcren A CARRIAGE RETURN?
*BRANCH IF
..YES--CLEAR CHARACTER COUNT
SEXIT
+:1S CHARACTER A LINE FEED?

*:BRANCH IF YES

*:COUNT THE CHARACTER
: :CHARACTER COUNT STORAGE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
AR AR AR

A RAAAN

AN AN ARRAAAAANARAANANAAARAARA
NS

tTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE

:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
::?ifl:ACED WITH SPACES.

*MJD001

*MJD001
*MJD001
*MJD001
*MJD001

INCB
$CHARCNT: .WORD
$TYPEX: RTS
.SBTTL

(SP)

JSR
BITB

BPL

177600

000002
000015

MOVB

BIC

005726

001402

98:

MoV

NUM, - (SP)

:;PUT THE BINARY NUMBER ON THE STACK

:MJD001

:MJD001
:MJD001

CZR6IFO UNIBUSS RK6é DR PQ;Z
CZROIF.PN
04--JAN-82
1

12
MACY11 30(1046)
GE 148
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

046~JAN-82 13:04 EA

NM:N—‘ g

=N &Ul

oorviNowVBwNOWN

88832822822

g23NaNEs

SBBS
WVO\O\OO\OO

D
D
b
D
b
D

NOOOO

—-O000000

::6G0 TO THE ROUTINE

TYPDS

$TYPDS:

..PUSH RO ON STACK

;PUSH R1 ON STACK

;:P'JSH R2 ON STACK
::PUSH R3
020200
000020

000055

sSET BLANK SWITCH AND SIGN

..GE'I’ THE INPUT NUMBER
000001

040506
000040

1%:

2$:

040476

3s:

5%:

000001
000060
000040

177777

78:

#'=,1(5P)
RO
#$DBLK R3

l' LR+

SDTBL(RO).R1

R1,R5
43
R2

3s
R1.R5
R2
5%
(SP)
78
(SP)

68
1(SP) ,=1(R3)

#'0,R2

000010

8s:

purd

HON
o

177777

040506
000002

ON STACK

..PUSH R5 ON_STACK

SEQ 0147

177776

9%:

6
(SP)+
93
=1(SP) ,=2(R3)
(R3)

(SP)+,RS

(SP)+,‘R3
(SP)+.R2
(SP)+.R1
(SP)+.RO
$DBLK

2(SP),4(SP)

000004

(SP)+, (SP)

$DTBL:

;:BR IF INPUT IS POS.

::MAKE THE BINARY NUMSER POS.
ssMAKE THE ASCII NUMBER NEG.
s :ZERO THE CONSTANTS INDEX
s:SETUP THE OUTPUT POINTER
s;SET THE FIRST CHARACTER TO A BLANK
:;CLEAR THE BCD NUMBER
::GET THE CONSTANT
..sgfl? THISEBCD DIGIT

s s INCREASE THE BCD DIGIT BY 1
:sADD BACK THE CONSTANT
ssCHECK _IF BCD DIGIT=0
ssFALL THROUGH IF 0
ssSTILL DOING LEADING 0°'S?
..Bgogf
YES

::BR IF NO
s YES==SET THE SIGN
..HAKE THE BCD DIGIT ASCII

sMAKE IT A SPACE IF NOT ALREADY A DIG IT
::PUT THIS CHARACTER IN THE OUTPUT BUF FER

s :JUST INCREMENTING
:sCHECK THE TABLE INDEX
::G0 DO THE NEXT DIGIT
::60 _TO EXIT
..GET THE LSD
;G0 CHANGE TO
ASCII

..gasTHE LSD THE FIRST NON-ZERO?
IF NO

..YES--SET THE SIGN FOR TYPING
:2SET THE TERMINATOR

;:POP STACK INTO RS

2:POP STACK INTO R3
;sPOP STACK INTO R2
:sPOP STACK INTO R1
::POP STACK INTO RO
;:NOW TYPE THE NUMBER
;:ADJUST THE STACK

;;RETURN TO USER

E%Rg%FO ??IBUSS RK6 DR _PRT?2

04=JAN-82 12:46

76427
;253

040506

000004

7631

040516

112737

76433

040532

7‘30

76432

7634

040526

040536

112737

000403
112737

76435
7636
76437
76438
76439
7640
76441
76442
76443

040542
040542
0405446
040546
040552
060554
040562
040566
040572

010046
010146
105737
001450
122737
001031
132737
001425

76445

062766

76444

040574

76446 04

000001
000001

000001

040762
040760

040762

000001

001230

000100

001231

005737

001210

000002

000004

76447
76448

040612
040614

7450
7451

040622
040624

001376
163700

001224

7454

040636

012737

001226
000004

001210
040672
000004

76449
76452
7453

7455

060620
040630
040632

040644

105720

006200
010037

000413

001224

7456
7457

040646
060656

017637
062766

0000064
000002

7459
76460
76461

040666
040672
0460674

004737
000000

037736

105737

040762

001230

7458

040662

013746

7662

060674

7464
76465

040702
040706

005737
001413

7467
76468
7469

040714
040716
040724

001375
017637
062766

76471
76472
7473
76476
7475
7476

040736
040742
040746
040752
040754
040756

105037
105037
105037
012601
012600
000207

Ter8

060761

000

7463

7466

76470

7477
7479

7480

7481
7482

040700

040710

040732

040760
040762

001416

005737

005237

177776

SATY3:

SATY4:
$ATYC:
Y

001210

040762
040761
040760

18:

3$:

$ATYC

MOVB

PAGE 149

48:
5$:

108:

118:
001212
000004

128:

000

$FFLG:

SLFLG:

SEQ 0148

#1.$MFLG

2323333322222 221

::T0 REPORT FATAL ERROR
::TO TYPE A MESSAGE

MOVB

01 LSFFLG

::TO ONLY REPORT FATAL ERROR

MOV
MOV
TSTB
BEQ
CMPB
BNE
BITB
BEQ

RO, =(SP)
R1,=(SP)
SMFLG
58
WAPTENV,SENV
3s
FAPTSPOOL,SENVM
3s

:;PUSH RO ON STACK
:PUSH R1 ON STACK
..SHOULD TYPE A MESSAGE?
*IF NOT:
BR
..OPERATING UNDER APT?
:IF NOT:
BR
..SHOULD SPOOL MESSAGES?
:IF NOT:
BR

ADD

#2.4(SP)

BNE
MOV

18
RO, SMSGAD

TST

34(SP) RO

+:GET HESSAGE ADDR.

BUMP RETURN ADDR.

$SMSGTYPE

;s SEE_IF "DONE W/ LAST XMISSION?

(RO)+

*:FIND END OF MESSAGE

ASR
MOV

RO
RO, SMSGLGT

::GET MESSAGE LNGTH IN WORDS
::PUT LENGTH IN MAILBOX

B8R

IST8

BNE
SUB

2
$MSGAD, RO

#4.SMSGTYPE

“IF NOT:
WAIT
+:PUT ADDR IN MAILBOX

;:SUB START OF MESSAGE

S:TELL APT TO TAKE MSG.

MOV
ADD

34(SP) 48
#2,4(SP)

::PUT MSG ADDR IN JSR LINKAGE
-BUMP RETURN ADDRESS

JSR
LWORD

PC,STYPE
0

*:CALL TYPE MACRO

TSTB

S$FFLG

::SHOULD REPORT FATAL ERROR?

ST
BEQ

SENV
128

..RUNNING UNDER APT?
:IF NOT:
BR

MOV

SMFLG:

000200
000001

#1 L$FFLG

MOV

000

0460764

F 12

3222323332233 3 2333333333333

MOVB

MOV

28:

001210
000
000002

13:04

.BLKW
&
APT COMMUNICATIONS ROUTINE

SATY1:

040760

000004

04=JAN-82

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

$DBLK:
.SBTTL

017600
001375
010037

MACY11 30(1046)

BEQ

TST

177776,~(SP)

128

$SMSGTYPE

s TELL APT TO TAKE ERROR

CLRB
CLRB
CLRB
MOV
MOV
RTS.

SFFLG
SLFLG
SMFLG
(SP)+,R1
(SP)+.RO
PC

.BYTE

.EVEN

APTSIZE=200
APTENV=001

..rxuxsueo LAST MESSAGE?

118
34 (SP) ,SFATAL
#2,4(SP)

.BYTE

::IF NOT:

$SMSGTYPE

BNE
MOV
ADD

INC

: ;PUSH 199776 ON STACK

0
0

SIF NOT:
WAIT
:-GET ERROR #
:BUMP RETURN ADDR.

::CLEAR FATAL FLAG
::CLEAR LOG FLAG
::CLEAR MESSAGE FLAG
*:POP STACK INTO R1
::POP STACK INTO RO
*RETURN

..nessc FLAG
:L0G FLAG

*:FATAL FLAG

CZR6IFO UNIBUSS RK6 DR PR 12
CZR6IF.PN
04=JAN-82 12:46

7483
7484
;2%2

6 12

MACY11 30(1046)
04-JAN-82 13:04 PAGE 150
APT C OMMUNICATIONS ROUTINE

000100
000040

SEQ 0149

APTSPOOL=100
APTCSUP=040
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE

7‘87

o :".'t.ttttt.‘tttttt'Q""'t'tt'ttQt'ttt.tQQ'Q...Q....'.'QQ'Q'Q.

7489

s*0CTAL (ASCII) NUMBER AND TYPE IT.

7488

s*THIS ROUTINE IS USED TO CHANGE A 16-8I1T RINARY NUMBER TO A 6-DIGIT

Z,zg?

:'filfOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

7492
7493

A
3®

7495

74694

7496
;23;

*
Hd

MOV
TYPOS

NUM,-(SP)

BYTE

7499
7500

2 sNUMBER TO BE TYPED
ssCALL FOR TYPEOUT

2:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

J:M=1 0RO

::1=TYPE LEADING ZEROS
2 :0=SUPPRESS LEADING ZEROS

s *$TYPON=-==-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR STYPOC

7501

s=CALL:

7502

;282

B
;t

MOV

TYPON

NUM,-(SP)

:sNUMBER TO BE TYPED

;:CALL FOR TYPEOUT

7505

;*$TYPOC==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

7507

7506

s*CALL:

;283

7510

040764

017646

000000

7512
7513
7514
7515
7516
7517
7518
7519
7520
7521
7522

040776
041002
041006
041010
041016
041026
041032
041034
041036
041040
041044

112637
062716
000406
112737
112737
112737
010346
010446
010546
113704
005404

041211
000002

7511

7523
7526
7525
7526
7527
7528
7529
7530
7531
7532
7533
534
7535
7536
7537
7538

NUM,~-(SP)

;sNUMBER TO BE TYPED

$TYPOS: MOV

a(SP) ,-(SP)

;:PICKUP THE MODE

MOVB
ADD
BR
STYPOC: MOVB
MOVB
STYPON: MOVB
MOV
MOV
MOV
[ [0)7:]
NEG

(SP)+,S0MODE+1
;;NUMBER OF DIGITS TO TYPE
#2,(SP)
;sADJUST RETURN ADDRESS
$TYPON
:
#,80FILL
;2SET THE ZERO FILL SWITCH
#6,$OMODE +1
2:SET FOR SIX(6) DIGITS
#5,80CNT
22SET THE ITERATION COUNT
R3,-(SP)
s
2SAVE R3
R4 ,-(SP)
2 :SAVE Ré
RS,=(SP)
::SAVE RS
SOMODE +1,R4
2sGET THE NUMBER OF DIGITS TO TYPE
R4

040770

041046
041052
041056
041062
041066
041070
041072
041074
041076
041100
041102
0641106
041106
041112
041114
041120

116637

062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002

000001

041207

000001
000006
000005

041207
041211
041206

041211

000006
041210
041207
000012

2$:

177770

TYPOC

MOVB

1$:

041210

MOV

3s:

ADD
MOVB
MOVB
MOV
CLR
ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
BIC
BNE

1(SP) ,SOFILL

#6.R4
R&,$CMODE
SOFILL.RG
1§(SP).RS
R
RS
33
RS
RS
RS
RS5.R3
R3
SOMODE
7%
#177770,R3
43

s:CALL FOR TYPEOUT

::LOAD ZERO FILL SWITCH

2sSUBTRACT IT FOR MAX. ALLOWED
:3SAVE IT FOR USE
2sGET THE ZERO FILL SWITCH
;:PICKUP THE INPUT NUMBER
:;CLEAR THE OUTPUT WORD
:JROTATE MSB INTO '°C
2:G0 DO MSB
;:FORM THIS DIGIT

J;GET LSB OF THIS DIGIT
J:TYPE THIS DIGIT?
;:BR IF NO

J:GET RID OF JUNK
:2TEST FOR 0

CZR6IFO UNIBUSS RK6 DR PRTZ‘I.6
CZROIF.P11
04=JAN-82 12
7539
7540
75641
7542
7543

041122
041126
041126
041130
041136

005704
001403
005204
055703
052703

7547
7548
7549
7550
7551
7552
7553
7554
7555
7556
7557
7558
7559
7560
7561
;ggg

041154
041156
041160
041162
041164
041166
041170
041172
041200
041202
041204
041205
041206
041207
041210

003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
000
000
000000

7544
7545
7546

041140
041144
041150

110337
104401
105337

H 12
MACYTT 33}1066)
04=JAN-82 13:04 PAGE 151
NARY TO OCTAL (ASCII) AND TYPE

48:

000060
000040

58:

041204
821204
041206

000002

78:

000004

756‘

7565
7566
7567
7568
7569
7570

ST
BEQ
INC
BIS
BIS

MOVB
TYPE
DECB

R4
58
Ré
#'0,R3
#
‘R3

R3,8$
23
SOCNT

BGT
2
BLT
6$
INC
Ré
BR
2s
68:
MOV
(SP)+,RS
MOV
(SP) +.R&
MOV
(SP)+.R3
MOV
2(SP) .4 (SP)
MOV
(SP)+. (SP)
RTI
8s:
.BYTE
0
BYTE
0
$OCNT:
.BYTE
0
$SOFILL: .BYTE
0
SOMCDE: .WORD
0
.SBTTL
TTY INPUT ROUTINE

: :SUPPRESS THIS 0?
*:BR IF YES
*:DON'T SUPPRESS ANYMORE 0'S
*:MAKE THIS DIGIT ASCII
$:MAKE ASCII IF NOT ALREADY

*:SAVE FOR TYPING
*3G0 TYPE THIS DIGIT
+:COUNT BY 1

::BR IF MORE TO DO
*:BR IF DONE
+:INSURE LAST DIGIT ISN'T A BLANK
::G0 DO THE LAST DIGIT
: *RESTORE RS
::RESTORE Ré&
*:RESTORE R3
:3SET THE STACK FCR RETURNING
: ;RETURN
*:STORAGE FOR ASCII DIGIT
*:TERMINATOR FOR TYPE ROUTINE
*:0CTAL DICIT COUNTER
*32ERO FILL SWITCH
“:NUMBER OF DIGITS TO TYPE

32 1 3 3 333322333333 3333332222223 3333333323333 32333322223223232222222%8821

041212
041214
041216
041220

;g;;

"ENABL LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.

000000
000000
000000
000001
041221

041222

O
0
0
1

::NUMBER OF ITEMS IN QUEUE
:*INPUT POINTER
*:0UTPUT POINTER
*:TTY KEYBOARD QUEUE

.EVEN

7573
7574

:*TK INITIALIZE ROUTINE
:#THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE

7577
7578

S=CALL:
i
JSR

;g;g

+«SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOUARD INTERRUPT

;g;g

7581

7582
7583
7584

7585

586
7587
;ggg
7590
7591
7592
7593
7594

041222

041226
041234
041242

041250

041256
041262
041270

005037

041212

012737

000200

012737
013737
012737

005777
012777
000207

041220
041214
041272

137664
000100

041214
041216
000060

000062
137654

RETURN

$TKINT: CLR

PC,STKINT

$TKCNT

::CLEAR COUNT OF ITEMS IN QUEUE

#200,a#TKVEC+2

::'BR'* LEVEL 4

MOV
MOV
MOV

#STKQSRT,STKQIN ::MOVE THE STARTING ADDRESS OF THE
$TKQIN,$TKQOUT
::QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRV @#TKVEC ::INITIALIZE THE KEYBOARD VECTOR

ST
MOV
RTS

asTk8
#100,3$TKS
PC

MOV

::CLEAR DONE FLAG
*SENABLE TTY KEYBOARD INTERRUPT
*: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 QUEUE.
s*IF THE CHARACTER IS A ''CONTROL=C'* (“C) STKINT IS CALLED AND

SEQ 0150

MACY11 30(1046)
04-JAN-82
TTY INPUT ROUTINE

;ggg

041272
041276
061302

117746
042716
021627

7602

041312

000002

041306
041310

001002
005726

7603
7604
7605
7606
7607
7608
7609
7610
7611
7612
;212

041314
041314
041320
061322
041326
041332
041336
041340
041344
061346
041354

021627
001007
104401
004737
005726
000137
021627
001004
022737
001500

7615
7616
7617
7618
7619
7620
7621
7622
7623
7624
7625

041356
041356
041364
0461366
041372
041374
0461376
041402
041404
041410
041412

7627

041420

7626

041416

7628
7629

041424
041430

7631
7632
7633

041436
041444
041446

7630

7634
7635
7636

137650
177600
000021

$TKSRV: MOVB
BIC
cme
BNE
ST

308:

000003
042432
041222

036320
000007

18:

000176

001140

022737
001004
104401
005726
000451
021627
001021
005077
005726
105777

000001

041212

117746

137522

100375

000023

137526

012777
000002
005237

000100

04}452
041456
041460

021627
002405
021627

003002

38:

137534

177600
000021

001366

31$:

041212
000140

328:

::1S 1T A CONTROL (?
CH IF NO
S:TYPE A CONTROL=C (“C)
::INIT THE KEYBOARD
+:CLEAN UP STACK
+:CONTROL C RESTART
::IS IT A CONTROL G?
*:BRANCH IF NO
+:1S SOFT=SWR SELECTED?
2360 TO SWR CHANGE

CMP
BNE
TYPE
TST

BR
CMP
BNE
CLR
ST
TSTB

#1,$TKCNT
3s
,SBELL
(SP)+
58
(SP) ,#23
328
asTKS
(SP)+
a$TKS

::1S THE QUEVE FULL?
*BRANCH IF NO
::RING THE TTY BELL
..CLEAN CHARACTER OFF OF STACK
CEXIT
..xs IT A CONTROL=S?
*BRANCH IF NO
::DISABLE TTY KEYBOARD INTERRUPTS
*:CLEAN CHAR OFF STACK
::WAIT FOR A CHAR

MOVB

@STKB,-(SP)

B8PL

31$

*:LOOP UNTIL ITS THERE

BIC
CMP

#°C177,(SP)
(SP)+,#21

*MAKE IT 7-BIT ASCII
..1s IT A CONTROL-Q?

MOV
RTI
INC

#100,387KS

..REENABLE TTY KEYBOARD INTERRUPTS
*RETURN
::COUNT THIS CHARACTER

:GET THE CHARACTER

CH IF NO

BIC

#40, (SP)

*:MAKE IT UPPER CASE

INC
CMP
BNE
MOV

$TKQIN
:UPDATE THE POINTER
$TKQIN, #$TKQEND ..so OFF THE END?
58
CH IF NO
¥STKQSRT,.$TKQIN :-RESET THE POINTER

005237
023727
001003
012737

041214
041214

041221

041220

041214

7647
7648
7649
7650

*RANOO1

(SP) ,#3
13
,SCNTLC
PC,STKINT
(SP)+
STOP
(SP) ,#7
2
#SWREG, SWR
63

B8GT

041476
041502
041510
041512

7646

: ;RETURN

CMP
BNE
TYPE
JSR
ST
JMP
CMP
BNE
CMP
BEQ

RTI

000175

7640
7641
7642
7643

000002

:RANOO1

+:BRANCH IF NO
+:CLEAN RANDOM XON OFF STACK

::1S IT UPPER CASE?
*BRANCH IF YES
..xs IT A SPECIAL CHAR?

000040

041520

..pxcxuv THE CHARACTER
+:STRIP THE
J
s:1S IT A RANDOH XON?

$TKCNT
(SP) ,#140
4
(SP) .#175

042716

112677

a$TKB,=(SP)
#4177, (SP)
(SP),#$XON

CMP
BLT
CMP

041466

;gzg

SEQ 0151

30$
(SP)+

BNE

137500

7638

041472

28:

001200

042716
022627

041434

7637 041464
7639

112

PAGE 152

;*UPON RETURN EXIT IS MADE TO THE '‘CONTROL=C'' RESTART ADDRESS (STOP)

7597
7598
7599

7600
7601

13:04

177516

48:

58:

MOVB

RTI

(SPJ+,a$TKQIN

*:BRANCH IF YES

..AND PUT IT IN QUEUE

*SRETURN

2ttttttttttttttttttttt't'ttttttt'ltttttttltttttltt!ttttttttttttt

:*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
<«SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH necxsren TRAP
:*CALL WHEN OPERATING IN TTY INTERRUPT MODE.

*RAN0OO1
*RANOO1

:RANOO1

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

7651
7652
7653
7654
7655

7656
7657

7658

;223

041522
041530
041532
041536
041540

041544
041550
041554

022737
001124
105777
100121
117746

042716
021627

001300

000176

MACY11 30(1046) 04=JAN-82
TTY INPUT ROUTINE
001140

137406
137402

177600
000007

$CKSWR: CMP
BNE
TSTB
BPL
MOVB

BIC
CMP
BNE

13:04

#SWREG, SWR
15$
a$TKS
15$
@$TKB,=(SP)

#°C177,(SP)
(SP) 47
28

J 12
PAGE 153
::1S THE SOFT=-SWR SELECTED
SIEXIT IF NOT
::IS A CHAR WAITING?
::1F NOT, EXIT
$IYES

SEQ 0152

SIMAKE IT 7-BIT ASCII
*:1S IT A CONTROL=G?

+:1F NOT, PUT IT IN THE TTY QUEUE

J2AND EXIT

7661

;.'tttttttttttttttttttttttt'tt'tt.ttttfittttttttttttti.t'tttttttttt

7662
7663
7664
7665
7666
7667
7668
7669

041556
041564
041566
041570
041574

123727
001674
005726
004737
005077

**CONTROL IS PASSEC TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
:*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
+*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.
&$:
C(MPB
SAUTOB,#1
::ARE WE RUNNING IN AUTO=-MODE?
BEQ
2s
*:BRANCH IF YES
ST
(SP)+
::CLEAR CONTROL-G OFF STACK
JSR
PC,STKINT
::FLUSH THE TTY INPUT QUEUE
CLR
asTks
+:DISABLE TTY KEYBOARD INTERRUPTS

7672
7673
7676
7675
7676
7677
778
7679
;gg?

041606
041612
041616
061622
041624
041630
041632
041534
041640

104401
104401
013746
104402
104401
005046
005046
105777
100375

042444
042451
000176

7682

041642

041646

042716

117746

137300

177600

BIC

#°C177,(SP)

7685
7686
7687
7688
7689
7690
7691

041652
041656
041660
041664
041670
041676
041700

021627
001015
104401
062706
123727
001003
012777

000003

769
7695
7696
7657
7698

061712
041716
061720
041724

021627
001005
104401
062706

000025

98:

042437
000006

208:

7701
7702
7703
7706
7705

041732
041736
041740
041744

021627
001022
005766
001403

000015

108:

;g;?

;232

;ggg

;933

7706

041600

041706

041730

041746

112737

000137

000737

016677

001134
041222
137344

000001

001135

137304

::SET INTERRUPT MODE INDICATOR

,S$CNTLG
.SMSWR
SWREG, = (SP)
,SMNEW
Z(SP)
-(SP)
a$TKS
78

::ECHO THE CONTROL=G (*G)
+:TYPE CURRENT CONTENTS
+:SAVE SWREG FOR TYPEOUT
+:60 TYPE=-=OCTAL ASCII(ALL DIGITS)
::PROMPT FOR NEW SWR
::CLEAR COUNTER
*:THE NEW SWR
::CHAR THERE?
::IF NOT TRY AGAIN

@$TKB,=-(SP)

::PICK UP CHAR

CMP
BNE
TYPE
ADD
(MPB
BNE
MOV

(SP) . #3
98
,SCNTLC
#6,SP
SINTAG,#1
8s
#100,a8TKS

::1S IT A CONTROL=C?
::BRANCH IF NOT
*:YES, ECHO CONTROL=C (“C)
::CLEAN UP STACK
: :REENABLE TTY KEYBOARD INTERRUPTS?
*:BRANCH IF NO
*:ALLOW TTY KEYBOARD INTERRUPTS

CMP
BNE
TYPE

(SP) ,#25
108
,SCNTLU

MOVB

042432
000006
001135

000001

000100

137236

000004

000002

#1,SINTAG

TYPE
$GTSWR: TYPE
MOV
TYPOC
TYPE
19$:
CLR
CLR
78:
TSTB
BPL

042462

036320

MOVB

137164

8s:

JMP

STOP

SIMAKE IT 7-BIT ASCII

::CONTROL=C RESTART

ADD

#6,SP

::1S IT A CONTROL=U?
*:BRANCH IF NOT
*:YES, ECHO CONTROL-U (*U)
+:IGNORE PREVIOUS INPUT

CMP
BNE
ST
BEQ

(SP) .#15
168
4(SP)
11$

::1S IT A <CR>?
::BRANCH IF NO
“IYES, IS IT THE FIRST CHAR?
$:BRANCH IF YES

MOV

19§

2(SP) ,aswWR

S:LET'S TRY IT AGAIN

:3SAVE NEW SWR

(aTa)

CZR6IFC UNIBUSS RK6 DR _PRT2
CZROIF.P11
04~JAN=-82 12:46

CZR6IFO UNIBUSS RKé DR PRTZ
CZR6IF.P11
04~-JAN-82 12:4
7707
7708

041754
041760

062706
104401

7710
7711
7712
7713
7714
7715
7716
7717
7718
7719
7720
7721
7722
7723
7726
7725
7726
7727

041772
041774
042002
042004
042010
042014
042016
042022
042024
042030
042034
042036
042040
042042
042044
042050
042054
042056

00100;
012777
00000;
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
0568616
000667
104401

7709 041764

7728
7729

042062

123727

000720

0012g

MACY11 30(1046)
04=JAN-82
TTY INPUT ROUTINE

135

000001

000100

137142

040150
000060

11$%:
14$:

000067
000060
000002

000002
177776

17%:

001204

18%:

.DSABL

SEC 0153

ADD
TYPE

#6,SP
SCRLF

;sCLEAR UP STACK
2sECHO <CR> AND <LF>

BNE
MOV
RTI
JSR
CMP
BLT
CMP
BGT
BIC
TST
BEQ
ASL
ASL
ASL
INC
BIS
BR
TYPE

158
#100,387KS

s sBRANCH IF NOT
i RE-ENABLE TTY KBD INTERRUPTS
JRETURN
..ECHO CHAR
;:CHAR
< 0?
..BRANCH IF YES
,.
CHAR > 7?
;BRANCH IF YES
+:STRIP=OFF ASCII
2:1S THIS THE FIRST CHAR
s sBRANCH IF YES
22NO, SHIFT PRESENT
::
CHAR OVER TO MAKE
ROOM FOR NEW ONE.
KEEP COUNT OF CHAR
..SET IN NEW CHAR
22GET THE NEXT ONE
$:TYPE 2<CR><LF>

(MPB

15%:
16$:

K 12
PAGE 154

13:04

LSB

igms.n

;iRE-ENABLE TTY KBD INTERRUPTS?

PC,STYPEC
(SP) ,#60
18%
(SP) ,#67
18%
#60,(SP)+
2(SP)
17%
(SP)
(SP)
(SP)
2(SP)
-Z(SP) (SP)
SOUES

208

AR AR AR AR AR

: :SIMULATE CONTROL=-U

7732

AR AR AN AR AR RN RA RN AR AR AN RN

RAR RN

;;gz

'(r.':ll.f ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
%

7735
7736
7737

]
e
oW

7740

042064

011646

7742
7743
77644
7745
7746

042074
042100
042102
042106
042110

005066
005046
012746
000002

000004

005737

041212

7741

7747

7748
7749
7750
7751

7752

7753

7754

7755

7756

042066

042110

042114
062116
042122
042130

042134

042142

042144

042152

016666

001775
005337
117766
005237

023727
001003

012737
000002

000004

000002

$RDCHR: MOY

042110

041212
177070
041216

64%:

1$:

000004

041216

041221

041220

041216

RDCHR
RETURN HERE

(SP) ,-(SP)

..PUSH DOUN THE PC AND

4(SP)
-(SP)
#648,-(SP)

s:GET
2:PUT
2sPUT
2:POP

MOV

usps 2(SP)

TST

STKCNT

CLR
CLR
MOV
RTI

$:THE
P

BEQ
DEC
MOVB
INC

1$
STKCNT
aSTKOOUT 4(SP)
$TKQOU

BNE

CMP

28-

2sGET A CHARACTER FROM THE QUEUE
s sCHARACTER IS ON THE STACK
s:WITH PARITY BIT STRIPPED OFF

MOV
RTI

READY FOR A CHARACTER
NEW PS ON STACK
NEW PC ON STACK
NEW PC AND PS

;:WAIT ON A CHARACTER
DECREHENT THE COUNTER
GE ONE CHARACTER
::UPDATE THE POINTER

STKOOUT #STKQEND” ..DID IT GO OFF OF THE END?
; sBRANCH IF NO

#STKQSRT, $TKQoUT’ ..RESET THE POINTER
AR AR AN

s sRETURN

AR R AN RN RAN AR R

AR AR

;;;g

*EQIS ROUTINE WILL INPUT A STRING FROM THE TTY

7759
7760
7761

o
o
H

RDLIN
RETURN HERE

RN AR

sINPUT A STRING FROM THE TTY
2 sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
s sTERMINATOR WILL BE A BYTE OF ALL 0°'S

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P11
04=JAN-82 12:46
7763
7764
7765

0621564
062156
042160

010346
005046
012703

7767
7768
7769
7770
7771
7772
7773
7776
7775
7776
7777
7778
7779
7780
7781

062170
062172
042174
042176
042202
042204
062206
062210
042216
062222
042226
042230
062234
042236
042242

101456
104410
112613
122713
001022
005716
001007
112737
104401
012716
005303
020327
103434
111337
104401

7783
7784
7785
7786
7787
7788
7789

042250
042252
042254
042262
042266
042270
042274

005716
001406
112737
104401
005016
122713
001003

7791
7792
7793
779

7766

7782

062166

042246

042276
042302

7797

000746

000712

7801

042340 104401

042326

042334

000134
042406

48:

111337

042406

38:

042406

7805
7806

7809

042370

016666

000004

7813
7814
7815
7816
7817
7818

042376
042404
0462406

042407
042410
042432
042437
042444
042451

001305

012603
011646

012766
000002
000

000
000022
041536
136
043536
15

000015

042410

005015
006525
005015
051412

000
000012
000
051127

STTYIN:
SCNTLC:
S$CNTLU:
S$CNTLG:
S$MSWR:

,S$CNTLU
is
#22,(R3)
3s
(R3)

,SCRLF

STTYIN

;:SET THE RUBCUT KEY
: ;BACKUP BY ONE
1 :STACK EMPTY?
::BR IF YES
S:SETUP TO TYPEOUT THE DELETED CHAR.
::G0 TYPE

+:G0 READ ANOTHER CHAR.
: *RUBOUT KEY SET?
2:BR IF NO
*:TYPE A BACK SLASH

::CLEAR THE RUBOUT KEY
2:1S CHARACTER A CTRL U?
::BR IF NO
s

2:TYPE A CONTROL 'V
::60 START OVER .

*:1S CHARACTER A '**R'“?
*:BRANCH IF NO
::CLEAR THE CHARACTER

SSTYPE
A ''CRTM & "LF"

::TYPE THE INPUT STRING

1360 PICKUP ANOTHER CHACTER

::CLEAR THE BUFFER AND LOOP

TYPE

.98

TYPE

MOVB

$QUES

(R3).9%

CMPB

#15,(R3)+

CLRB
TYPE
ST

=1(R3)
,SLF
(SP)+

MOV

98:

“:BR IF NO
2:1S THIS THE FIRST RUBOUT?
*:BR IF NO
*:TYPE A BACK SLASH

MOV
MOV

000004

::BR IF YES
+:G0 READ ONE CHARACTER FROM THE TTY
*:GET CHARACTER
::1S IT A RUBOUT

::BUFFER FULL?

B8R

BNE

000002

#STTYIN+22,R3

(SP)
78
#'\,9%
.98
(sP)
#25.,(R3)
8s

TYPE
BR
CMPB
BNE
CLRB

SEQ 0154

; :SAVE R3
+:CLEAR THE RUBOUT KEY
*:GET ADDRESS

ST
BEQ
MOVB
TYPE
CLR
CMPB
BNE

L 12
PAGE 155

R3,=(SP)
-($P)
#STTYIN,R3

(SP)+,(R3)
#177.(R3)
58
(SP)
6$
#'\,9%
.98
#-1,(SP)
R3
R3,ASTTYIN
43
(R3),9$
9%

TYPE

001204

122723

CMP

13:04

BLOS
RDCHR
MOVB
CMPB
BNE
TST
BNE
MOVE
TYPE
MOV
DEC
CMP
BLO
MOV8
TYPE

TYPE

104401

177777
001206

7810
7811
7812

8s:

001205

105063
104401
005726

042
042

7%:

000022

042352
042356
042362

7807
7808

042406

000025

042344

042350

68:

5%:

7802

7803

042406

042406
042406

042410

042332

108:

042410

104401

7799
7800

000134

042406
177777

042320

000717

28:

000177

042304
042310
042312

042324

7798

042410

042437

104401

SRDLIN: MOV
CLR
1$:
MOV

042432

104401
000726
122713
001011
105013

7795 042314

7796

022703

MACY11 30(1046)
04-JAN-82
TTY INPUT ROUTINE

MOV
RTI
.BYTE

.BYTE
.BLKB
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

SITYPE A '2°

::ECHO THE CHARACTER
::CHECK FOR RETURN

::L0O0P IF NOT RETURN

(SP)+,R3
(SP) ,~(SP)

:RESTORE R3
::ADJUST THE STACK AND PUT ADDRESS OF THE

4(SP) ,2(SP)

#STTYIN,4(SP)

::CLEAR RETURN (THE 15)
*:TYPE A LINE FEED
*:CLEAN RUBOUT KEY FROM THE STACK

FIRST ASCII CHARACTER ON IT

: ;RETURN
0
::STORAGE FOR ASCII CHAR. TO TYPE
0
*:TERMINATOR
22
::RESERVE 22 BYTES FOR TTY INPUT
/4C/<15><12>
::CONTROL ''C
/~U/<15><12>
::CONTROL 'V’
/%6/<15><12>
::CONTROL 'G'
<15><12>/SWR = /

CZR6IFO UNIBUSS RK6 DR PR;Z
CZROIF.PN
04=JAN-82
1

7819

7820
7821
782
782
7824
7825
7826
7827
7828
7829
7830
7831
7832
7833
7834
7835
7836
7837
7838
7839
7840
7841
7842
7843
7844
7845
7846
7847
7848
7849
7850
7851
7852
7853
7854
7855
7856
7857
7858
7859

7860

7861
7862
7863
7864
7865
7866
7867
7868
7869
7870
7871
7872

7873
7874

042456

042462
042470

036440

020040
020075
0462474

000040
0462516
000

MACYT 30(1046)
04-JAN-82
Y INPUT ROUTINE

020127

SMNEW:
EVEN

.SBTTL
AR

LASCIZ

13:04

mn12
PAGE 156

SEQ@ 0155

NEW =

READ AN OCTAL NUMBER FROM THE TTY
AR AR AR AR AR

AT TR AR AR AR

AR AAAA AR

AAA

AR RIS

;*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
s*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 ‘2" WILL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
;*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.

s*CALL:

H
A
:t

042474
042476
042504
042506
042510
042512
042514
042516
042522
042524
042526
2530
042532
042536
042540
042544
042546
042550
042552
042554
042556
042560
042562

011646
016666
010046
010146
010246
104411
012600
010037
005001
005002
112046
001420
122716
003026
122716
002423
006301
006102
006301
006102
006301
006102
042716

042570
042572
042574
2
042604
2
042610
042612
042614
042616
042620
042622
042624
042630

000756
005726
010166
010237
012602
012601
012600
000002
005726
105010
104401
000000
104401
000730

042566

062601

000004

000002

RDOCT
RETURN HERE

SRDOCT: MOV

MOV

18:

042622
28:
000060

000067

MOV
MOV
MOV

RDLIN
MOV
MoV

CLR
CLR
MOvB
BEQ
CMPB
BGT
CMPB
BLT

ASL
ROL
ASL
ROL
ASL

177770

000012
042632

48:

001204

5%:

RO,=(SP)
R1.-(SP)
R2,=(SP)

(SP)+,R0O
RO,5$
R1
R2

(RO)+,-(SP)
3s
#'0,(SP)
48

#'7,(SP)

48
R1
R2

sa%2

;:*8

$
(SP)
+
R1,12(SP)
R2,$HIOCT
(SP)+,R2
(SP)+,R1
(SP)+,R0

ST
CLRB

(SP)+
(RO)

LWORD

TYPE
BR

:;PICKUP THIS CHARACTER
::IF ZERO GET OUT
s sMAKE SURE THIS CHARACTER
:;IS AN OCTAL DIGIT

TST
Mov
MOV
MOV
MOV
MOV

TYPE

::PUSH RO ON STACK
::PUSH R1 ON STACK
:;PUSH R2 ON STACK
ssREAD AN ASCIZ LINE
:2GET ADDRESS OF 1ST CHARACTER
ssAND SAVE IT
:;CLEAR DATA WORD

BIC

RTI

:;PROVIDE SPACE FOR THE

;- INPUT NUMBER

R2
#%C7,(SP)

ADD

38:

(SP) ,=(SP)

4(SP),2(SP)

s sREAD AN OCTAL NUMBER
::LOW ORDER BITS ARE ON TOP OF THE STAIK
:sHIGH ORDER BITS ARE IN SHIOCT

éSP)#,R1

$QUES
is

s:STRIP THE ASCII JUNK
::ADDPIN THIS DIGIT
3:L0
;3CLEAN TERMINATOR FROM STACK
;sSAVE THE RESULT

;:POP STACK INTO R2
;:POP STACK INTO R1
;;POP STACK INTO RO
2 2RETURN
2 sCLEAN PARTIAL FROM STACK
2:SET A TERMINATOR

J:TYPE UP THRU THE BAD CHAR.
::OO?.O

OICRIO

;s TRY AGAIN

‘

Ilrll

7875
7876
7877
7878
7879

7880
7881
7882
7883
7884
7885
7886
7887
7888
7889
7890
7891
7892
7893
7896
7895
7896
7897
7898
7899
7900
7901
7902
7903
7904
7905
7906
7907
7908
7909
7910
7911
7912
7913
7914
7915
7916
7917
7918
7919
7920
7921
7922
7923
7924
7925
7926

7927
7928
7929
7930

042632

04-JAN-82

13:04

N 12
PAGE 157

READ AN OCTAL NUMBER FROM THE TTY

SEQ 0156

;HIGH ORDER BITS GO HERE
$HIOCT: .WORD
0
.SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE

000000

SRR AR

AR AR AR AR AR AR AR AR AR AR

AR AR AR AR

AR RN

tTHIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN
:*UNSIGNED OCTAL ASCIZ NUMBER.

:'CALL
A

JSR
RETURN

Hd
ow
042634

042636
042642
2646
042652

042656

042660
042662
042664

2666
042670
042672
042674
042676
042700
042704
042706
042710
042712
042714
042716
042720
2722
042724
042726
042730
042734
042736

104413

016601
012705
012704
012703

012100

000002
042753
000014
177770

012101
005002
110245

010002
005304
003007
001405
005205
010566
104414

000753
000016

$DB20:

SAVREG

MOV
MoV
Mov
MOV
MOV
MoV

CLR

1$:

Move
MoV

#PNTR, = (SP)

PC,an$DB20

2(SP) ,R1

#$OCTVL+13. RS

#12. R4

#°C7.R3

(R1)+,R0
(R1)+,R1
R2
R2,=(RS)
RO,R2
Ré

000002

000207

006203
006001
006000
006001
006000
006001
006000
040302
062702

MOV

R5.,2(SP)

2%:
3s:

000060

ASR
ROR

;sPOINTER TO LOW WORD QF BINARY NUMBER
s CALL THE ROUTINE
;s THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK

;s SAVE ALL REGISTERS
:sPICKUP THE POINTER TO LOW WORD
:;POINTER TO DATA TABLE
..gggELEVEN CHARACTERS
: :LOWER WORD
s sHIGH WORD
s s TERMINATOR
s sPUT CHARACTER IN DATA TABLE
::GET THIS DIGIT
..COUNT THIS CHARACTER
sBR IF NOT THE LAST DIGIT
::BR IF IT IS THE LAST DIGIT
..ALL DIGITS DONE-ADJUST POINTER FOR FIRST
ASCIZ CHAR. & PUT IT ON THE STACK
::RESTORE ALL REGISTERS
:;RETURN TO USER
;;POSITION THE MASK FOR THE LAST DIGIT
..POSITION THE BINARY NUMBER FOR
THE NEXT OCTAL DIGIT
i

:sMASK OUT ALL JUNK

:sMAKE THIS CHAR. ASCII

ER
..GO PUT IT IN THE DATA TABLE
$OCTVL: .BLKB
;RESERVE DATA TABLE
.SBTTL
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE
e

AR A AR AR AR AR

AR AR AR AR AR AR R AR AR AR AR AR AR AR AR AR AR

;*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED

;*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE
s*POSITIVE.
s*CALL
#PNTR,=(SP)
MOV
o®
;;POINTER TO LOW WORD OF BINARY NUMBER
JSR
PC,a#$DB2D
;e
RETUR
;®
;:THE FIRST ADDRESS OF ASCIZ
::1S ON THE STACK
042754
042756
042762

104413
016602
012700

000002
043134

$DB2D:

SAVREG

MoV
MOV

2(SP) ,R2

#$SDECVL,RO

::SAVE REGISTERS
::PICKUP THE DATA POINTER

::GET ADDRESS OF "‘SDECVL'' STRING

MACY11 30(1046)

lale]

CZR6IFO UNIBUSS RK6 DR PR;Z
CZROIF.P1
04~JAN-82
1

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

7931
mg
7933
7934
7935
7936

04 ng
046277
042774
042776
04
063010

8 13
MACY11 3001046) 04=JAN-82 13:04 PAGE 1 58
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

010066 000002
015201
01220
0157
oogmz 043052
012704 043064
012705
043066

7937

043014

005003

7961
7942

043026
043026

002402
005203

7938 043016 161401
7939 043020 005602
7940 043022 161502
7943
063030 000772
7944 043032 062401

1$:

28:

MOV
MOV
MOV
MOV
MOV
MOV

RO, 2(SP)
(R2) +,R1
(R2)+.R2
#10.,48
#STNPUR R4
#STNPWR+2,RS

SUB
SBC
SUB

(R4) ,R1
R2
(RS) ,R2

CLR

BLT
INC

3s:

BR
ADD

::CLEAR PARTIAL

3
R3

::BR IF TEN POWER TO LARGE
“ADD 1 TO PARTIAL

28
(R4)+,R1

043034
043036

005502
062402

7949
7950
7951

043046
043050
043052

110320
005327
000000

48:

105020
104414
000207
145000
035632
160400
002765
113200
000230
041100
000017
103240
000001
023420
000000
001750
000000

CLRB
RESREG
RTS
$TNPWR: 145000
35632
160400
2765
113200
230
041100
17
103240
1
23420
0
1750
0

000000
000012
000000
000001
000000
000014

0
12
0
1
0
$DECVL: .BLKB
12.
.SBTTL SINGLE LENGTH BINARY TO

7952

7953
7954
7955
7956
7957
7958
7959
7961
7962
7963
7964
7965
7966
7967
7968
7969
7970
7971
7972
7973
7974
7975
7976

g;g

043054

043056
0463060
043062
043064
043066
043070
043072
043074
043076
043100
043102
063106
043106
043110
043112
043114
043116
043120

043122
043124
043126
043130
043132
043134

001357

000144

::SET UP TO DO 10 CONVERSIONS
+:ADDRESS OF TEN POWER

7945
7946

7947 043040 022525
7948 043042 052703 000060

ADC
ADD

::PUT ADDRESS OF ASCIZ STRING ON STACK
::PICKUP THE BINARY NUMBER

R2
(R4)+,R2

::SUBTRACT TEN POWER

::LOOP
*RESTORE SUBTRACTED VALUE

CMP
BIS

(RS)+. (R5)+
#'0,.RS

::MOVE TO NEXT TEN POWER
*CHANGE PARTIAL TO ASCII

BNE

::BR IF NO

MOVB
DEC
L,WORD

R3,(R0)+
(PC)+
0

(RO)+

144

SISAVE IT
: :DONE?

*:TERMINATOR
::RESTORE REGISTERS
* SRETURN
+31.0E09
::1.0E08

::1.0E07
::1.0E06
::1.0E05
::1.0E04
::1.0€03
::1.0E02

::1.0E01
::1.0E00
:;RESERVE STORAGE FOR ASCIZ STRING

DECIMAL ASCIZ ROUTINE

7979

::t.ttttttttttttttttt'tt'tt'..tt.'ttttitt'ttttfit..t.ttt'tt.t"l't

;gg;

:~tclgfzc~eo DECIMAL ASCIZ NUMBER.

7980
7983
7984
77332

:*THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN
:t

i
i
i

MOV
NUMBER,=(SP)
JSR
PC,a#$$82D
RE TURN

;:PUT BINARY NUMBER ON THE STACK
+3CALL
::ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK

SEQ 0157

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

7989
7990
7991

7992

7993
7994

7995

043150

043156
043162

043166

0463172

043176
043200

016637

01274
004737

062716

012666

000207
000000

002002

8012
8013
8014
8015
8016

8017
gg}g

#5,(SP)

ssONLY ALLOW FIVE CHARACTERS

PC
0,0

s sRETURN

(SP)+ 2(SP)

000000

1$:

.SBTTL

RTS
LWORD

2sSET POINTER
ssCALL DOUBLE LENGTH CONVERT

s:PICKUP POINTER

TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS

Re
I eesy

s*THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE
s*LEADING NUMBERS.
s*CALL
o
MOV
#NUMADR ,~(SP)
ssFIRST ADDRESS OF ASCIZ STRING
H
JSR
PC,a#$SUPRS
043204

043206
043212
043214
043216
043222
043224

043226
063232
043234
043236
043240

043242

010046

016600
105710
001403
122720
001773

000004

010037
104401
000000
012600

043234

005300

$SUPRS: MOV
1$:

000060
2$:

3s:

012616

.SBTTL
PR

;*CALL

8022
8023

8024
%gg

o
P
A

8027
8028
8029
8030

:e
i*
i
i

8031
8032
8033
8034
8035
8036
8037

043244
043244
0463246
043250
043252
043254

010046
010146
010246
005046
016601

8039

043262

005216

8041
8042

043266
043272

016602
100002

0432

100002

005401

MOV
TST8B
BEQ
CMPB
BEQ

SMULT:

000012

000014

DEC

MOV
TYPE
LWORD
MOV

2 :SAVE RO

: :BACKUP BY '1"'

..PICKUP THE POINTER
TERMINATEOR?
+:BR IF YES
..lS THIS AN ASCII 'O ?
sBR IF YES

RO,3$

..SAVE FOR TYPING
;G0 TYPE
..ASCIZ POINTER GOES HERE
2 sRESTORE RO

O
(SP)+,R0

(SP)+,(SP)

ssRESTORE THE STACK

RTS
PC
; sRETURN
INTEGER MULTIPLY ROUTINE

AR AR

MoV

N RN RN RN AN RN RN AR AR

HUI.TIPLICAND -(SP)
PC,a#SMULT
..PRODUCT IS ON THE STACK

STACK
—m——me
TOP
+2

PRODUCT
eececceeLSB'S
MSB'S

MOV
MOV
MOV
CLR
MOV

RO,-(SP)
R1,~(SP)
RZ.-(SP)
-(SP)
12(SP) .R1

;:PUSH RO ON STACK
ssPUSH R1 ON STACK
;sPUSH R2 ON STACK
ssCLEAR THE SIGN KEY
..GET THE MULTIPLICAND

INC

(SP)

..SET THE SIGN KEY

14(SP) ,R2
2%

..GET THE MULTIPLIER
;:BR IF PLUS

NEG

MOV
BPL

RRRNRRRS

MULTIPLER,-(SP)

MOV
JSR
RETURN

BPL
1$:

RO,=(SP)

4(SP) ,RO
(RO)
23
#'0,(RO)+
1$

MOV

000207

8021

8040

s :SAVE BINARY NUMBER

MOV

ADD

SEQ 0158

2(SP) 1%

000002

000005

8020

8038

MOV

0427

8003

8017

$S82D:

ns, -(sP)
PC.NSDBZD

7998
7999
8000
8001
8002

8006
8007
8008
8009
8010

043200

MOV
JSR

7997

8005

C 13

MACY11 30(1046)
04=JAN-82 13:04 PAGE 159
SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

:BR IF PLUS

JMAKE THE MULTIPLICAND POSTIVE

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

8043
8044

043274
043276

005316
005402

8046
8047
8048
8049

043304
043306
043310
043312

005000
103001
060200

8051

043316

005316

8045

043300 012746

8050 043314

043320
043322

001372
022616

8057

043332

005600

8058
8059

043324
043326
043330
3334
043336

2s:
3s:
48:

001

8052
8053
8054
8055
8056

000021

MACY11 30(1046) 04=JAN-82 13:04
INTEGER MULTIPLY ROUTINE

8060 043342 010166 000010
8061
043346 01260
8062 043350 012601
8063 043352 012600

8064
8065

043354

207

.SBTTL

RO
X
R2.RO
RO

..sewp FOR THE MULTIPLY LOOP
::DON'T ADD IF MULTIPLICAND = 0
::POSITION THE PARITIAL PRODUCT AND

(SP)

:iHAS ALL BITS OF THE MULTIPLICAND BEEN DONE?

ROR

BEQ
NEG
NEG

000012

:;UPDATE THE SIGN KEY
..ms THE MULTIPLIER POSTIVE

#17.,-(SP)

CLR
BCC
ADD
ROR

BNE
CMP

5%:

(SP)
R2

MOV

DEC

001403
005400
005401

00572
01

DEC
NEG

3
(SP)+,(SP)

5
RO
R1

SBC

MOV
MOV
MOV
MOV

R1.10(SP)
(SPJ+,R2
(SP)+.R1
(SP)+.R0

TST
MOV

D13
PAGE 160

(SP)+
R0O,12(SP)

SET THE LOOP COUNT

*:THE MULTIPLICAND

:BR IF NO
..snouw PRODUCT ae NEGATIVE?
0 TO EXIT IF
:YES==SO MAKE n )

2:CLEAR SIGN INFO. OFF OF STACK
22PUT THE PRODUCT ON THE STACK (MSB'S)

::LSB'S
::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

RTS
PC
SAVE AND RESTORE RO-RS5 ROUTINES

8067

3 ; 12 3333323232333 333333232322 2223 2323833323333 2333233333 222232332323222222¢%3

gg;;

'UPON RETURN FROH $SAVREG THE STACK WILL LOOK LIKE:

8068
8069
8070

:*SAVE RO-RS
s«CALL:
1T
SAVREG

8073
8074
8075
8076
8077
8078
8079
8080
8081
8082

8083
8084
8085
8086
8087
8088
8089
8090
8091
8092
8093

8095
8096
8097

-rop---me)
‘% $2=ee(+18)
‘% 44===RS
;% +6===R4
‘% 48-==R3
ix410===R2
t%412-==R1
i%414===R0
043356

043356
043360
043362
043364
043366
043370
043372
043376
043402
043406
043412

8098 043414

010046
010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

$SAVREG:

000022
000022
000022
000022

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

; *RESTORE RO-RS
; #CALL:
'RESREG

ins
SREG:

RO,=(SP)
R1,=(SP)
R2.=(SP)
R3,-(SP)
R&,=(SP)
RS,=(SP)
22(SP) ,=(SP)
22(SP).=(SP)
22(SP) .=(SP)
22(SP).=(SP)

::PUSH RO ON STACK
*:PUSH R1 ON STACK
::PUSH ag ON STACK
::PUSH R3 ON STACK
*:PUSH R4 ON STACK
2:PUSH RS ON STACK
::SAVE PS OF MAIN FLOW
::SAVE PC OF MAIN FLOW
::SAVE PS OF CALL
::SAVE PC OF CALL

SEQ 0159

UNIBUSS RK6 DR PRT2

04=JAN=-82 12:46

043414
043420
04 gg
o«g:
0434346
043436
043440
043442
043444
043446
043450

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

04<JAN-82

13:04

E 13

PAGE 161

SAVE AND RESTORE RO-RS ROUTINES

000022
0000 %
00002
000022

.SBTTL

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP) +.RS
(SP) +.Ré
(SP)+.R3
(SP)+.R2
(SP)+.R1
(SP)+.R0

SEQ 0160

::RESTORE PC OF CALL
::RESTORE PS OF CALL
:;RESTORE PC OF MAIN FLOW
::RESTORE PS OF MAIN FLOW
*:POP STACK INTO RS
::POP STACK INTO Ré&
::POP STACK INTO R3
::POP STACK INTO R2
+:POP STACK INTO R1
::POP STACK INTO RO

TRAP DECODER

000000 00 0o 00 00 00 0o 00 09 00 G0 00 09 00 00 00 00 08 00 00 00 00 00 09 0 000000000000 0o 0o 0o 00 09 Go 0o 0o 0o 0O 0O 0O 0o 0O 0O
wviviwnwnawn
e
TS o 2 2 Ll oV I o N o N o O i O RO PO R RO PO T PO
= — = a2
o

MACY11 30(1046)

:;tttttttttttttttttttttt't't'ttttttt.ttttttttttttt'tttttt'ttttt't

e e

:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP'' INSTRUCTION

0463452
043456

010046
016600

043462
043464
043466
043472

111000
006300
016000
000200

043460

005740

$TRAP:

000002

RO,=(SP)
2(SP) RO

::SAVE RO
*:GET TRAP ADDRESS

MOVB
ASL
MOV
RTS

(RO),RO
RO
$TRPAD(RO)
,RO
RO

+:GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
::INDEX TO TABLE
::60 TO ROUTINE

043506

=(R0O)

+:BACKUP BY 2

::THIS IS USE TO HANDLE THE ''GETPRI'* MACRO
043474

011646

043504

000002

043476

016666

000004

000602

$STRAP2: MOV

MOV
RTI

(SP) ,=(SP)

4(SPJ,2(SP)

::MOVE THE PC DOWN

*:MOVE THE PSW DOWN
::RESTORE THE PSW

NSV AP A

MOV
MOV

e§

SR L S SR IS MRS
BRNR IR

—

cd e

s«AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:%GO TO THAT ROUTINE.

TRAP TABLE

.SBTTL

SUWNN—=O0V0 NoOwns

—

d o

b ek

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

:+BY THE ''TRAP'' INSTRUCTION.

ROUT INE

3506

043474

$TRPAD: .WORD

043516
043520

041024
040272

STYPON
STYPDS

3510
3512
3514

037736
041010
040764

$TYPE
$TYPOC
$TYPOS

STRAP2

;;CALL=TYPE
;;CALL=TYPOC
::CALL=TYPOS

::CALL=TYPON
::CALL=TYPDS

TRAP+1(104401)
TRAP+§(10660 )
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)

043522

041612

$GTSWR

;;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

043524
043526
043530
043532
043534
043536

041522
0462064
042154
042474
043356
043414

$CKSWR
$SRDCHR
SRDLIN
$SRDOCT
$SAVREG
SRESREG

;:CALL=CKSWR
::CALL=RDCHR
::CALL=RDLIN
;;CALL=RDOCT
::CALL=SAVREG
::CALL=RESREG

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
7RAP01§(10461§)
TRAP+13(104413)
TRAP+14(104414)

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
T7Y TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
SAVE RO-RS ROUTINE
}
RESTORE RO-RS ROUTINE

CZR6IFO UNIBUSS RK6 DR PR;?
"
CZROIF.P1
04=JAN-82
1

8155
8156

043540

036266

MACY11 30(1046)

TRAP TABL

gk-JAN-BZ

SCoP1$

13:04

F 13
PAGE 162

;s CALL=SCOP1

TRAP+15(104415) INTERNAL LOOP ON ERROR

SEQ 0161

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

MACY11 30(1046)

TRAP TABLE

8157
8158

8160

8161
8162
8163
8164
8165
8166
8167
8168
8169

043542
043550
043556
043564
043567
0435764
043602
043610
043616

005015
051525
020066
052122
015
044466
005015
025052
0445246

047125
020123
051104
062
041412
030106
025011
041440
047117

041111
045522
050040

8172
8173
8176
8175
8176
8177
8178

043640
043646
043654
3662
043670
043676
3704

050040
046501
046125
020105
105
020131
050131

047522
051440
020104
040510
047440
054502
047111

051107
047510
041040
052114
046116
052040
020107

8181

043723

015

03
047412

044124

043774

822060

042510

042040

051132
005015
025052
052501
025040

g};? 82%2%3 8528?% 822?3% 82??%?

13:04

G 13

PAGE 163

SEQ 0162

.SBTTL

SERVICE MESSAGES

MSG1

LASCII

<CR><LF>/UNIBUSS RK6 DR PRT2/

LASCII

LASCII

<CR><LF>/

ASCII

LASCII

<CR><LF>/OTHERWISE, CARTRIDGE FORMATTING AND, OR THE DRIVE/

sxxaet CAUTION wexxx/<CRO<LF>

CR><LF>/THIS PROGRAM SHOULD BE HALTED ONLY BY TYPING CONTROL=C/
<

TYPIN

ONWV=OWVOE

o
&~
N
W
N

220
ON
o

046

042526

purd

o
N
o

&H
o
W
o

044036

;

020131

LASCII

<CR>XLF>/MAY BE LEFT IN AN UNDETERMINED STATE/

052111

LASCII

<CR>XLF>/INITIALLY, DRIVES TO BE TESTED SHOULD HAVE:/<CR><LF>

LASCII

<CR><LF>/A. HEADS MANUALLY LOADED/

«ASCII

<CR><LF>/B. CORRECT PORT SELECTED/

OO0NOO
ONN—=N
W=k OOWNWN-=OWwn
—=ONIWN=
NN NOW
N=ULWIONNOOWOON—

L=
&H

N=O
=S N0
NOWVI
NVIOND

R OO=NNSOHTNS—=
NN =
o

O“MNJ\OONO

[, TH P P
O
P
SNy
o
ONONWNV
S W

-—

—-—

82
8212

b e

e cd

R e gaa“amua“aaua“mm
S88RVRRREN28TRIER
S2ESRIRoRS

04-JAN-82

MACY11 39(1046)
04-JAN-82
SERVICE MESSAGES

064206

051440

046705

041505

044224
044232
044240

051127
047514
051511

052111
045503
041101

020105
045040
042514

822%}; 0423%; 0411?3 020056

’

822%29
6?2 042012 020056
044254 051104 055111 020105

ASCII

13:04

H13
PAGE 164

SEQ 0163

<CR><LF>/C. WRITE LOCK DISABLED/

<CR><LF>/C.

ASCII

<CR><LF>/D.

<CR><LF>/D. DRIVE READY INDICATOR ON/<CR
Y

044262
0644270
042276

042522
047111
88%3%?

042101
044504
020122

020131
040503
047117

005015

0511046

053111

LASCII

<CR><LF>/DRIVES NOT TO BE TESTED MUST HAVE/

015

041012

052117

LASCIZ

<CR><LF>/BOTH PORTS DESELECTED/<CR><LF>

015

052012 020117

LASCII

<CR><LF>/TO TEST DRIVE 0, REMOVE XXDP MEDIA,/

044314
046322
4330
044336
044344

044351

046356
044364
044372
044400

044403

051505
052040
052040
020106
044040
020110
020123
042514
005015

044410
044416
044426
044432
044440

042524
044522
020054
042526
020120

044456
044464
044472

047040
020117
051505
052515
053101

052117
042562
042524
052123
105

047520
042504
052103
060

052122
042523
042105

052123
042526
042522
054040
042515

042040
030040
047515
042130
044504

020122
03
052111

047514
023054
041440

020103
044040
047117

044512
044520
044526
044534
044542
064550

044522
044440
052040
052040
026104
041440

042526
047123
020117
051505
044040
047117

030040
052047
042502
042524
05;111
027124

044570
044576
044

024105
020117
051505

024523
042502
042524

052040
052040
035104

MSG2:

822228 85?5?; 046103 040505

ASCII

<CR><LF>/CLEAR LOC

042282 85?5%? 82;??? 042040

;

ASCII

822223 85;8?g 8g??52 053111 MSG3 :

‘

ASCIZ <CR><LF>
<CR><LF>/DRIVE(S)
TO BE TESTED:
'}
STED: /

822212 8828?2 054524 042520 MSG4
044622 041040 051525 020153
4630 042101
051106 051505
044636
0446446
044652

020123
052117
032064

043111
030440
035060

047040
033467
020040

ASCIZ

<CR><LF>/CLE

40,8
40,8
HIT CONT. ./

<CR><XLF>/IF DRIVE
T TO BE TESTED, HIT CONT. ./<CR><LF>
Vv O ISN'T
N'T

<CR><LF>/TYPE BUS

<CR><LF>/TY

USS ADDRESS

NOT

177440

TMM~

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

8270

044661

052012

050131

8272
8273
8274
8275
8276
8277

044676
044702
044710
044716
06447246
044732

047522
044440
052522
041505
043111
031040

046114
052116
052120
047524
047040
030061

051105
051105
053040
020122
052117
020072

8280
8281
8282

044750
044756
044764

051122
041517
042105

050125
052503
0640440

020124
051122
020124

8285
8286
8287

045
045012
045020

020105
046114
041040

020060
047040
020105

044527
052117
042524

8290
8291
8292
8293
8294
8295

045040
045046
045054
045062
045070
045072

020104
053440
043117
052040
000012
005015

040504
052111
051506
051505

040524
020110
052105
006524

042510

042101

8298
8299

045112
045120

046114
020124

052040
051104

051505
053111

8271 044

015

MACY11 30(1046)
04=JAN-82
SERVICE MESSAGES

020105 04750% 052116

MSGS:

35;3 822%2% 88?8?? 047111 042524 MSG6

LASCIZ

”

3532 822;;2 88%3%? 82??52 053111 MSG7 s
8%89 8228%% °’25?§ 82%6?3 o¢og8g MSG8

8303
8304
8305

045146
045156
045162

042522
020124
051505

052123
047524
020124

051101
052040
006461

8308
8309
8310
8311
8312
8313

045200
045206
045214
045222
045230
045236

040440
047440
020124
051125
2522
2440

047502
043106
040506
051505
047040
051122

042526
042523
046111
040440
052117
051117

8307 043179 005015 052012 042510 MSG12:

gg}g 82?%22

8316 045252

8317
8318
8319
8320
8321
8322
8323
8324

045260
045266
045274
045302
045310
045316
045324
045332

5%% 041012 052125

044440 042116 041571

052101
043117
0405
040505
042440
047522
050440
054524

051117
051440
042503
026104
042514
044512
040525
005015

020123
051125
044054
053040
052103
051503
044514
000

SEQ 0164

<CR><XLF>/TYPE CONTROLLER INTERRUPT VECTOR IF NOT 210:

<CR>XLF>/INTERRUPT OCCURRED AT PC=/

ASCIZ <CR><LF>
<CR><LF>/DRIVE
wI NOT T BE TESTED/
'} 0 WILL

MSG9:

ggg?
822%%3 83%3?2 8?88?5 053517 MSG11
8302 045140 051105 052440 020120

113
PAGE 165

LASC

8507 043105 C'T019 085012 044399 MSGI0:

ASCIZ

13:04

ASCIZ

.ASCIZ
-

.ASCIZ

ASCIZ

.ASCII

.AS

<CR><LF>/READ DATA WITH OFFSET TEST/<CR><LF

<CR><LF>/HEAD NO./

<CROCLF>CLFS/WILL

<CR><LF><LF>/WILL

TEST

DRIVES:/

<CR><LF><LF>/POWER UP RESTART T

0 TEST

1/<CR><LF>

<CR

<CR><LF><LF>/THE ABOVE OFFSET FAILURES ARE NOT ERRORS/

Clz <CR><LF>/BUT INDICATORS OF SURFACE,HEAD, & ELECTRONICS QUALITY/<CR><LF>
.

TM~

'
CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.PN
04=JAN-82 12:46

MACY11 30(1046)
04-JAN-82
SERVICE MESSAGES

8325
8326
8327
8328
8329
8330
8331
8332
8333
8334
8335
8336
8337
8338
8339
8340
8341
8342
8343
8344
8345
8346
8347
8348
8349
8350
8351
8352
8353
8354
8355
8356
8357
8358
8359
8360
8361
8362
8363
8364
8365
8366
8367
8368
8369

045337
045344
045352
045360
045366
045371
045376
045404
045412
045420
045426
045434
045435
045442
045450
045456
045460
045466
045472
045500
045506
045514
045516
045524
045532
045540
065546
145554
045562
045570
045576
045604
045612
045620
045626
045632
045640
045646
045654
045662
045670
045676
045704
045712
045720

015 06701;
020114 051117
041440 047514
020123 051120
047105
124
015 04401%
020104 053523
044103 047111
044526 042515
051505 020124
040520 051523
000
015 041012
051501
044523
042040 044522
000040
005015 042012
042526 000040
005015 051104
020105 042523
046101
047040
000040 .
005015 040503
044522 043504
042523 044522
047040 027117
005015 040412
052122 047111
040502 (40514
020105 043117
051505 051526
020116 044126
042040 044522
005015 000012
005015 040412
042040 044522
020123 042524
042105 005015
005015 047516
044522 042524
042510 045503
051122 051117
020124 040515
047520 044523
042526 047440

020117
050040
045503
051505

8372
8373
8374
8375
8376
8377

045740
045746
045754
045762
045770
045776

044522
042510
051122
020126
042516
042522

042524
045503
051117
040515
040507
047440

041440
042440
040440
020130
044524
043106

8380

046020

020105

044103

041505

MSG13:

040505
052111
020107
052040
054502
042105

13:04

J 13

PAGE 166

SEQ 0165

.ASCII

<CR><LF>/NO L OR P CLOCKS PRESENT/

«ASCIZ

<CR><XLF>/HEAD SWITCHING TIME TEST BYPASSEL/

050131
043516
042526

MSG14:

.ASCIZ

<CR><LF>/BYPASSING DRIVE /

044522

MSG15:

.ASCIZ

<CR><LF><LF>/DRIVE /

053111
044522
027117

MSG16:

.ASCIZ

<CR><LF>/DRIVE SERIAL NO. /

052122
020105
046101
000040
047502
020107
041516
052040
047440
051511
042526

MSG17:

.ASCIZ

<CR><LF>/CARTRIDGE SERIAL NO. /

MSG26:

.ASCIZ

<CR><LF><LF>/ABORTING BALANCE OF TESTS ON THIS DRIVE.<CR><LF><LF>

046114
042526
052123
000012
053440
041440
042440
040440
020130
044524
043106

MSG27:

.ASCIZ

<CR><LF><LF>/ALL DRIVES TESTED/<CR><LF><LF>

MSG37:

.ASCIZ

<CR><LF>/NO WRITE CHECK ERROR AT MAX POSITIVE OFFSET/

gg;? 82§;§g 83%3%? 829%%2 053440 MSG38

ASCIZ

gg;g 8228?3 88%3?5 89??5; 8gg?}% MSG39:

<CR><LF>/NO WRITE CHECK ERROR AT MAX NEGATIVE OFFSET/<(R

.ASCIZ <CR><LF>/WRITE CHECK FAILURE AT OFFSET =/

TMTM

CZR6IFO UNIBUSS RKé DR_PRT2
CZR6IF.P1
04=JAN-82 12:46

CZR6IFO UNIBUSS RK6 DR_PRT2
CZR6IF.PIN
04~JAN-B82 12:46

MACY11 30(1046)
04-JAN-82
SERVICE MESSAGES

8381
8382
8383

046026
046034
046042

020113
051125
047440

506
02?105
043106

046111
052101
042523

386
8387

04
046070
046076
046104
046112
046120
046126
046127
046134
046142
046150
046156

0201046
042522
042101
047524
047506
054503
060
015
046101
047105
052122
020105

047516
042101
051440
020122
047440
020114

020124
041040
041505
047111
020116
030464

047412
3511
020124
044522
051525

020122
046516
040503
043504
042105

046174

051107

046501

040440

gggg 8228?2 88?3%3 829?5% 046125 MSG40
8389
8391
8392
8393
8395
8397

046256

046314

047502

046120

005015

052122

040505

050103

) b
—

020125

ASCII <CR><XLF>/COULD NOT READ BAD SECTOR INFO ON CYL 410/
YL

ASCIZ

<CR><XLF>/0R ALIGNMENT CARTRIDGE USED/<CR><LF>

<CR><LF>/PROGRAM

ABORT PE

AM ABORT

PENDING...PLEASE

WAIT/

MSG75:

.ASCIZ

<CR><LF>/HALT PENDING...PLEASE WAIT/

MSG76:

.ASCIZ

<CR><LF>/PROGRAM ABORTED/

MSG77:

.ASCIZ

<CR><LF>/CPU

.SBTTL

ERROR MESSAGES

EM1:

.ASCIZ

<CR><LF>/ERROR, ONLY 0 THRU 7 ALLOWED, TRY AGAIN/<CR><LF>

EM2:

.ASCIZ

/DRIVE # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2/

HALTED/

67
27
22
n

o
~

WVWNO

N
O 2=

051 22
17

SEQ 0156

042

pard

o
Y]
o

QO =2 —d 3 =

RASR - O NN

—

o
£~

o
&~

= NWN=OWNO

o
~

o
W

R
o~

042412

K 13
PAGE 167

050040

046322 040510 052114 042105

WN=O

AR
S A E T EA A AN
SR
gNNNNNNNNNN—‘-‘-‘-—I—.—A-—.-fl—I-fl

VRNV
WN <OV
VWS WN=O

8409

046202

LASCIZ

gigg 822%2# 0050}; osoggg 047522 MSG74
8401

13:04

62
17
22
01
%2
1
13

NNNNOWVOO
owvnisvionnnn
=ONN=
OOOWWVWNY

<CR><XLF>/ABORT TESTS...UNEXPECTED INTERRUPT AT PC=/

ONWVIWS W=NOOOOW

O0O00O0O0O
SanassasSnunes

«ASCIZ

EMS5:

.ASCIZ

/MDS SET IN RKCS2/

EM6:

.ASCIZ

/UFE SET IN RKCS2/

EM7:

.ASCIZ

/DRA IN RKDS & NED IN RKCS2 RESET; WRONG PORT SELECTED?/

EM8:

.ASCIZ

/DRIVE PRESENT BUT NOT SPECIFIED BY OPERATOR/

EM9:

.ASCIZ

/DRIVE NOT PRESENT BUT SPECIFIED BY OPERATOR/

EM10:

.ASCIZ

/ABORT TESTS...CANNOT REFERENCE CONTROLLER REGISTER/

042524

037504

8470

046755

0824

044522

042526

020131
022526

— -

—-_P=NIN=N)

O==NJOMNIN)
VIO
=N

\N=d

22\

OWO
S
=00

O
N =

052116

[=l=leleleleT)
oogo
VIS
S S
oS

= ONNVOOOOHNONIN
=N
SN
SOV OWNMOWWNIWININ

(=]
W

041040
W
W
&S
SRESRSR
SRRSRSR
wViss

nNOo
N

) —b —d
d wd

VIS WWNOIN) 2 O o
oS ONOMNW N

NNNNNNNN

—

[=]=]
(=]
RRRRRRRR

S8R

041505

047074

EMé:

046746

PAGE 168

<CR><LF>/ABORT TESTS...UNEXPECTED TIME OUT AT PC=/

8468

20
?;

L 13

<ASCIZ

020123

o000 OO0
Suinnessnng

N
Y]

020124

13:04

EM3:

&~
&~
w

041101

MACY11 30(1046)
04-JAN-82
ERROR MESSAGES

OO0

-h

W
o

N
OoWVs
oS rnoWv ~N

005015

046550

0
020124

8446

046472

8437
8438

o
W

CZR6IFO UNIBUSS RKé DR_PRT2
CZROIF.PN
04~JAN-82 12:46

SEQ@ 0167

CZR6IFO UNIBUSS RK6 DR _PRT2
CZROIF.PI
04~JAN-82 12:46
8493
8494
8495
8496
8497
8498
8499
8500
8501
8502
8503
506
8505
506
8507
8508
8509
8510
8511
8512
8513
8514
8515
8516
8517
8518

047156
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

051040
042524
0511064
051040
020046
047111
031123
020110
047503
046114
052117
054504
045522
047516
020116
040513
047125
052103
046505
040520
052040
045522
051040
047111
042524
020124

043505
000122
020101
042113
042516
051040
041040
042523
052116
051105
051040
044440
051503
040440
047111
047523
054105
042105
051117
044522
040522
041504
042113
044504
052040
041527

MACY11 30(1046)
04-JAN-82
ERROR MESSAGES

13:04

M13
PAGE 169

SEQ 0168

051511

047111
020123
020104
041513
052117
000124
047522
047040
040505
020116
000061
052124
051040
000106
042520
046440
020131
054524
000120
023040
020101
040503
040510
020

8525

047452

047524

020122

030462

8527

047461

103

047101

047516

8530
8531
8532
8533
8534
8535
8536
8537
8538
8539
8540
8541
8542
8543
8544
8545
8546
8547
8548

047502
047510
047516
047524
047532
047540
047545
047552
047560
047566
047574
047602
047607
047614
047622
047630
047636
047644
047652

041505
047111
052101
042515
020105
051122
115
042507
051105
042515
020105
051122
115
042507
051105
042503
052105
045522
047516

047526
047506
047511
051523
030101
051117
051505
041040
047522
051523
030501
051117
051505
041040
047522
051122
044440
051503
042040

020122
046522
000116
043501
042440
000
040523
020060
000122
043501
042440
000
040523
0200€1
000122
051440
020116
000061
044522

EM11:

_ASCIZ

/DRA IN RKDS & NED IN RKCS2 BOTH SET/

EM12:

.ASCIZ

/CONTROLLER NOT READY IN RKCS1/
;

EM13:

_ASCIZ

/NO ATTN IN RKASOF/

EM14:

.ASCIZ

EM15:

.ASCII

/RKDC & RKDA INDICATE THAT WCE OCCURRED AT/

LASCIZ

<CR><XLF>/CYL 411,

EM16:

.ASCIZ

/CANNOT READ BAD SECTOR INFORMATION/

EM17:

.ASCIZ

/MESSAGE A0 ERROR/

EM18:

.ASCIZ

/MESSAGE BO ERROR/

EM19:

.ASCIZ

/MESSAGE A1 ERROR/

EM20:

.ASCIZ

/MESSAGE B1 ERROR/

EM21:

_ASCIZ

/CERR SET IN RK(CS1/

EM22:

.ASCII

/NO DRIVES FOUND IN DEVICE MAP (SDEVM)/<CR><LF>

/UNEXPECTED MEMORY PARITY TRAP/

TRACK 2, SECTOR 21/

T
CZR6IFO UNIBUSS RKé6 DR_PRT2
CZR6IF.P1
04~JAN-82 12:46

8549
8550
8551
855%
8553
8554
8555
8556

MACY11 30(1046)
04-JAN-82
ERROR MESSAGES

047660
047666
047674
047702
047710
047716
047721
047726

042526
047125
042040
020105
022050
006451
123
041440

020123
020104
053105
040515
042504
012
052105
051117

8558
8559
8560
8561
8562
8563
8564
8565
566
8567
8568
8569
8570
8571
8572
8573
8574
8575
8576
8577
8578
8579
8580
8581
3582
8583

047742
047750
047756
047757
047764
047772
050000
050006
050010
050016
050024
050032
050040
050046
050054
05005
05
050072
050100
050106
050112
050120
050126
050134
050142
050150

042116
040524
000
116
053111
052517
020116
005015
042523
047503
046124
020104
020123
044524
005015
126
046101
052117
044440
051115
005015
052103
020060
042523
027123
051117

051040
052122

051120
041447
052516
000
046117
042111
051440
020116
000062
042504
042105
040502
052103
027056
044524

053040
047040
052105
045522
042524
030440
020104
051117
041101
043516

8587
8588
8589
8590
8591
8592
8593
8594
8595

050172
050200
050206
050214
050222
050230
050236
050243
050250
050256
050264

2105
041040
052117
042524
041040
041505
044506
1
042524
020105
040505

041040
052125
046040
020104
042101
047524
042514
052105
020104
047111
020104

042523
047040
051511
047111
051440
020122
000
041505
051502
051040
047503

050304
050312
050320
050326
050334
050342

047040
020116
047511
044522
046517
052040

052117
051120
051525
042524
040515
020117

044440
053105
053440
041440
042116
040523

8557

047734

052103

050125
042522

054514

040440

PAGE 170

SEQ 0169

020117
051505
042116
052502

051104
043040
047440
051523

052524
051122
020131

020120
041505
047101

.ASCIZ

/SETUP CORRECTLY AND RESTART/<CR><LF>

.ASCII

/NO DRIVES FOUND ON BUSS/<CR><LF>

.ASCIZ

/SETUP CORRECTLY AND PRESS 'CONTINUE'/<CR><LF>

EM24:

.ASCIZ

/VOL VALID NOT SET IN RKMR2/

EM25:

.ASCIZ

<CR><LF>/DETECTED 10 BAD SECTORS...ABORTING TEST/

051505
005015

EM23:

051505
047117
023505

gggg 8285;; 046312 82;895 052%82
8601
8602
8603
8604

N 13

047506
047111
041511
020120
046526

BSgg 8?8%22 82%g82 825?82 8?%%53 EM26

8599

13:04

ASCIZ /DETECTED BSE BUT NOT LISTED IN BAD SECTO

EM27:

.ASCII

/DETECTED BSE IN READ COMMAND/

ASCIZ

<CR><LF>/BUT

FILE/

<CR><LF>/BUT NNOT IN N PREVIOUS
VIOUS
WWRITE COMMAND TO SAME SECTOR/

CZR6IFO UNIBUSS RK6 DR _PRT2
CZROIF.PIN
04=JAN-82 12:46

8605
860?
8607
8608
8609
8610
8611
8612
8613
8614
8615
8616
8617
8618
8619
8620
8621
8622
8623
86264
8625
8626
8627
8628
8629
8630
8631
8632
8633.
8634
8635

050350
050356
050
050370
050376
050404
050412
050420
0506%5
050432
050440
050646
050454
050462
050470
050474
050502
050510
050516
050524
050532
050540
050546
050554
050562
050570
050576
05
05
050614
050622
050630
050633
05
05
050656

042515
047526
054503
051106
045522
047S1g
042515
04552%
103
043111
043117
044440
051115
020124
042522
054503
051104
045522
047516
040505
054503
051104
031102
047040
046505
046103
000104
052101
052117
051101
020116
043117
1064
052105
045522
042522

8650
8651
8652
8653

050676
050
050712
050720
050726
050727
050734
050742
050750
050756
050764

8656

8659

8637
8638
8639
8640
8641
8642
8643
8644
8645
8646
8647
8648

051440
1
020114
04444
051115
020124
040440
041504
046131
020106
051506
020116
020062
046103
000104
020114
044440
051115
020124
042522
020114
064440
042040
052117
044501
040505

MACY11 30(1046) g:aégN~82
ERROR MES

13:04

B 14
PAGE 171

041505
042101
050113
02006
040523
020123
000
042040
020046
052105
045522
047516
040505

EM36:

.ASCIZ

/CYL ADDR IN RKMR3 NOT SAME AS RKDC/

EM39:

.ASCIZ

/CYL DIFF & OFFSET IN RKMR2 NOT CLEARED/

042101
020116
020063
046103
000104
042101
020116
042111
051040
020116
042522

EM40:

ASCIZ

/CYL ADDR IN RKMR3 NOT CLEARED/

EM41:

.ASCIZ

/CYL ADDR IN B2 DID NOT REMAIN CLEARED/

047040
042514
044440
051501

EM55:

.ASCIZ

/ATTN NOT CLEARED IN RKASOF/

051440
020116
000062
044040
020122
000122
046516
040503
043504
042105

EM63:

.ASCIZ

/DLT SET IN RK(CS2/

EM65:

.ASCIZ

/READ HEADER ERROR/

046101
047105
052122
020105

0471246
041440
042105
045522
000
052114
044440
051503
042101
042504
047522
043511
020124
044522
051525

EM69:

.ASCIZ

/ALIGNMENT CARTRIDGE USED/

103
052105
045522
052122
020124
047111

047524
044440
051503
020132
042523
051040

051440
020116
000061
047516
020124
046513

EM73:

_ASCIZ

/CTO SET IN RK(CS1/

EM74:

.ASCIZ

/RTZ NOT SET IN RKMR2/

051002

052105

044440

020116

051024
051032

044103
051105

041505
047522

020113
020122

050662
050670

040505
051105

gggg 828;;g 031}%% 042?82 051440 EM79

ASCIZ /NED SET IN RK(CS2/

gggg 82}8}2 82??55 8?5??? 8g8?8§ EM80

ASCIZ /WRITE CHECK ERROR SET IN RKCS2/

SEQ 0170

8661
866%
8663
8664
8665
8666
8667
8668
8669
8670
8671
8672
8673
8676
8675
8676
8677
8678
8679
8680
8681
8682

0351040
051046
051054
051055
051062
051070
051076
051106
051112
051120
051121
051126
051134
051142
051150
051156
051164
051172
051173
051200
051206
051214

042523
051040
000
127
041440
041440
042116
043040
047511
000
122
040504
042111
041440
042522
020110
020105
000
106
044103
051105
042523

8685
8686
8687
8688
8689
8690
8691
8692

051236
051244
051252
051260
051266
051274
051302
051310

8695
8696
8697
8698
8701
8702
8703

MACY11 30(1046)
04-JAN-82
ERROR MESSAGES

13:04

C 14
PAGE 172

SEQ@ 0171

0201246
041513

047111
031123

044522
042510
046517
047040
047125
044516

042524
045503
040515
052117
05%103
043516

EMB1:

.ASCIZ

/WRITE CHECK COMMAND NOT FUNCTIONING/

040505
040524

020104
042040

EMB2:

.ASCIZ

/READ DATA DID NOT COMPARE WITH WRITE DATA/

052101
041505
047522
020126

020101
020113
020122
047111

EMB83:

.ASCIZ

/DATA CHECK ERROR SET IN RKER/

040527
020107
047503
042522
051117
1105
051124
054504

052111
047506
052116
042101
040440
041440
051040
051040

047111
020122
020122
020131
052106
047117
040505
041505

051326
051334
051342
051350

020124
051525
044440
051115

052123
040
020116
020062

052101
052111
045522
046103

051372
051400
051406

051040
020119
052117

043505
031101
036440

044440
047040
051040

047040
046517
053440
051127
040504

052117
040520
052111
052111
040524

LE
WWAITING
N
8684 8?1%%8 822?39 825?}? 8g8}5§ EM84 . ASCIZ /WHILE
FOR CON TR R EADY OR AFTER CONTR READY REC'D/
8684

o die b

Mol

g;gg 82%213 822262 835?52 829;?2 EM88
8706 OS14§0 020124 0445 042116
8707
8708
8709

051436
051444
051452

051440
020122
046517

041505
020060
044440

047524
051106
042116

8712
8713
8714
8715
8716

051470
051476
051504
051512
051520

043516
043516
047111
020043
040505

053440
041440
042504
047111
042504

047522
046131
020122
044040
027122

OFF

STATUS BIT

IN RKMR2

e v oz vor
N A2

NOT

CLEARED/

RKASOF

ASCIZ /DID NOT FIND SECTOR 0 FR
N

ADING

FROM INDEX/

WRONG CYLINDER # IN HEADER...MISPOSITION/

TMTM

Cl:bl:OpUNIBUSS RK6 DR_PRT?2
CZROIF.P
04=JAN-82 12:46

051526
051534
051542
051544
051552
051560
051566
051574
051600
051606
051614
051622
051630
051634
051642
051650
051656
051664
051665
051672
051700
051706
051714
051722
051730
051736
051744
051752
051760
051766
051774

027056
051517
000116
043117
044440
040440
020124
042522
047506
041040
052117
044440
051115
040503
043040
042523
031040
000
110
053523
047111
023521
052117
052506
053105
047511
042040
051104
043117
041501
020124

8749
8750
8751
8752
8753
8754
8755
8756
8757
8758
8759
8760
8761
8762

052007
052014
052022
052030
0520

104
052117
047524
047111
030061

EM9S:

.ASCIZ

/FORMAT BIT NOT SET IN RKMR2/

EM96:

.ASCIZ

/CANNOT FIND SECTOR 23(8)/

EM97:

.ASCIZ

/HEAD SWITCHING REQ'D ANOTHER FULL REVOLUTION OF DISK/

EM100:

.ASCIZ

/DRIVE OFF TRACK SET IN RKMR3/

EM101:

.ASCIZ

/DID NOT GO TO CYLINDER 10/

.SBTTL

DATA HEADERS

020124

DH1:

.ASCIZ

/TEST NO.

004461

DH2:

.ASCIZ

/RKMR1

RKMR2

RKMR3

RKER

RKDS

DH3:

.ASCIZ

/RKWC

RKBA

RKDA

RKASOF

RKDC

VIOWVIOWMWVNO
S Wb
b cd ed
N =2
S ONOONNIO
b b =
- b NN =2 NN
NN

PC/

=l=lele]
Vi

-3

04552%
04211
051503
051503
045522
041113
040504
047523
041504
050103

124
047516
000103
045552
045522
045522

SEQ@ 0172

/OFFSET IT IN A2 NOT CLEARED/

00
047040

(\-n§—. 2

052041
052046
052054
052056
052064
052072
052100
052106
052114
052122
052126
052134
052142
052150
052156
052164

046513

8763
8764
8765
8766
8767
8768
8769
8770
8771
8772

052002

D 14
PAGE 173

.ASCIZ

020104

o0
oW

8748

13:04

EM94:

[=lelelelele]
BB
02

8717
8718
8719
8720
8721
8722
8723
8724
8725
8726
8727
8728
8729
8730
8731
8732
8733
8734
8735
8736
8737
8738
8739
8740
8741
8742
8743
8744
8745
8746
8747

MACY11 30(1046)
04-JAN-82
ERROR MESSAGES

CZR6IFO_UNIBUSS RK6 DR
CZROIF.PN
04-JAN-82

RKECPS

RKECPT/

MACY11 30(1046)
04=JAN-82
DATA HEADERS

8773
8774
8775
8776
8777
8778
8779
8780

052172
05%177
052204
052212
052220
0522;6
052232
052240

041505
10%
054503
020117
041440
063111
(42526
027117

052120
047522
020114
054503
046131
000109
052123
052011

000
020115
052040
020114
042040
047040
040522

8783
8784
8785
8786
8787
8788
8789
8790
8791
8792
8793
8794
8795

052260
052266
052274
052302
052310
052316
052324
052326
052334
052342
052350
052355
052362

051440
051440
042514
040515
041505
020131
000105
052101
047440
042101
044504
105
042524

040524
044520
041440
042116
042047
051104

052122
042116
046517
051040
041040
053111

042440
020106
6040
043516
050130
004504

042116
042510
040517
000
041505
040527

8798
8799

052400
052406
052414
052422

047526
026060
030440
026066

051522
030440
026
030440

030440
026062
030440
020070

052444

020060

051123

041501

052456

047117

051440

041505

052472
052500
052506
052514
052522

02
030440
02
051117
054503

030440
026065
030440
031040
020114

026063
030440
020071
02006
030464

DHé:

.ASCIZ

/FROM CYL

DH8:

.ASCIZ

/TEST NO.

3;81 82552? 020}5? 8?%%52 051?8? DH9

8813

052530

051124

8816
8817

052550
055556

042522
047503

040503
046515

020114
047101

8820
8821

055574
052602

040520
046517

045503
040515

041440
042116

8826
8825
8826
8827
8828

052616
0526264
052632
052640
052644

051440
020124
020105
047101
043101

046105
051106
047503
000104
042524

041505
053111
046515

CYL DIFF/

TRAP PC/

.ASCIZ

/AT END OF HEAD LOADING/

DH11:

.ASCIZ

/EXPECTED

DH14:

gg}g 822222 82%%8? 062524 020122 DH19

WAS/

ASCIZ /ON SECTORS 10, 12, 14, 16, 18 OR 20 CYL

.AS

.ASCIZ

041501

12,

14,

16,

F -

DH21:

ASCIZ /AFTER PA
A

CK COMMAND/

ASCIZ /AFTER SELECT DRIVE COMMAND/
.ASCIZ

410 TR

TRACK

/ON SECTORS 11, 13, 15, 17, 19 OR 21 CYL 410 TRACK 2/

ASCIZ /AFTER RECAL COMMAND/

?8? 052106 051105 DH20
020122

TO CYL

SE@ 0173

ASCIZ /AFTER START SPINDLE COMMAND REC'D BY DRIVE/

gg}g 82522% 8£g}5? 062522 020122 DH17

gg%% 8?%2%?

E 14
PAGE 174

DH10:

3;89 825%%% 8291?% 051440 041505 DH13

8808
8809
8810
8811
8812

13:04

/AFTER SUBSYSTEM CLEAR/

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P1
04-JAN-82 12:46

SO
NOOO
&S
ONO

OO0

DH24:

.ASCIZ

/AFTER OFFSET COMMAND/

OO0
Hrown
NO—=

DH25:

.ASCIZ

/AFTER SEEK COMMAND/

NNNO

DH26:

.ASCIZ

/AFTER READ DATA COMMAND/

DH27:

.ASCIZ

/AFTER WRITE DATA COMMAND/

05658‘5)

042520

DH28:

.ASCIZ

EXPECT/

200

—

052524

DH29:

.ASCIZ

ACTUAL/

052106
040505
042101
046517
000
004460

051105
020104
051105
040515

DH30:

.ASCIZ

/AFTER READ HEADER COMMAND/

0301

DH31:

.ASCIZ

/A0

DH32:

.ASCIZ

/AFTER WRITE CHECK COMMAND/

DH39:

.ASCIZ

/AFTER WRITE HEADER COMMAND/

VWSS

DH40:

.ASCIZ

/WORD#

DH41:

.ASCIZ

/DURING RECAL COMMAND/

P
N —
—
o

o
W
o

&»

ry
o ONNINONN
v v
N =NNOOON
v —_ P
ds

NN =N~
Vi=WNWNWNWNn=0O Wy
ONNO=NO—=O
WOV
O NWVINON

OO00O0

/AFTER DRIVE CLEAR COMMAND/

NVNCNONONSS

.ASCIZ

YN8V

HEADER WAS

SHOULD BE/

-0

B3/

TMTM

SEQ@ 0174

OCO0O000
FOARRRER SRR RAR RRAR
O
V=)
OO 3
=00 S

F 14
PAGE 175

DH22:

o
&~
o

R OCO=O—
R OONOS-‘-GO—'&—C
WWN=
= b a2 00000 — e b ] = g23
IR

§g° KRR g RRORRRS

O D=
N=
N=NW
NON = NONN
b e )
ALY b e ALY SN b d SN e b d \J) b ek =k NN
NO-=0OMNO
OHO=H
=000 O0O0O0ON
N =\ =)
=
-k D= O

RRERRIRR
OO0
v
OO0
o

R RRES2 RRERRRR KRRG R &

b
b
— e

WNW

S
%
g

frétvé
Y]

VAV

=di=J

gu(\)—flg

O b = PNAFY = =3
NN
= =NO
N=NOOO
=

2828

NNNNNNNNNNNNY
NNV
SN
=

2
8
o
o

WWW
o

g
W

13:04

[=]=]

MACY11 30(1046)
04=JAN-82
DATA HEADERS

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P11
04=JAN146

N -4

CZR6IFO UNIBUSS RK6 DR_PRT2
CZR6IF.P11
04~JAN-82 12:46
8885
8886
8887
8888
8889
8890
8891
8892
8893

MACY11 30(1046)
04=JAN-82
DATA HEADERS

053316
05%3
053330
053336
053346
053352
053360
05336g
05337
053400
053406
053414
053422
053430
053436
0534446
053452
05
053466

047101
047117
047526
031054
047440
041440
030061
045503
117
052103
026061
020067
020040
030464
041501
047506
023040
051040
051127

000104
051440
051522
032054
0201;2
046131
052040
031040
020116
051117
026063
051117
054503
020060
020113
046522
060440
040505
052111

8910
8911
8912
8913

053502
053510
053516
053523
0535
053536
053544
053552
053560

044527
020105
051523
101
051040
042510
0461440
042116
020110

046114
054502
042105
052106
040505
042101
046517
053440
047515

8915

053573

115

043523

040440
051115
045522
042522
051101
040526

8895
8896
8897
8898
8899
8900
8901
8902
8903
8904

8905

8907
8908

8914

8916

053476

053566
05

042526

042515

023040

052123

052116
041040

041505
030040
033054
020070
032040
040522
000
042523
020123
026065
034440
020114
051124
000062
052101
046114
026504
020105

13:04

G 14
PAGE 176

SEQ 0175

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/

DH51:

.ASCIZ

/AFTER SEEK TO SELF COMMAND/

020123

041040
040520
000
051105
020104
051105
040515
052111
042526
000

044440

8917
8918
8919
8920
8921
8922
8923
8924
8925
8926

05
053614
053622
05
053636
053644
053650
053656
05
053672

020116
020062
051115
050123
020105

044514
043101
042523
020117
041440

045522
020046
020063
020056
047111
000104
042526
045505
042523
046517

8931

053710
053716
053724

047111
047511
044515

042524
040516
041523

052116
020114
046517

34
8935

053744
053752

020107
052105

043117
041440

051506
046517

8939
8940

054
054006

020126
042507

044103
040440

047101
042116

020122
052040
043114
040515

gggg 825;8g 042339 052??? 020110 DH52

89%9 82;%65 o‘ogag 8?5%16 051?8? DH54
38 053772 043040 0511?9 040515

ASCIZ /WITH INTENTIONAL MISCOMPARE/

ASCIZ /AFTER FORMAT CHANGE AND CONTR READY REC'D/

PAGE 177

.ASCIZ

DHS57:

.ASCIZ /AFTER WRITE COHHAND.UITH OFFSET/

.SBTTL

ERROR OUTPUT DATA

DT1:

.EVEN
STESTN,SERRP(
HMR1,HMR2
,HMR3 ,HER ,HDS ,HCS1 ,HCS2

ViVt
==
=&

s
VoS
RO

NN=

fON
&S

NS
O

OO0
Svav
00000
OO0
VAV
9 XV
9
O v I

—_—

H 14

DH56:

001116
007402
007366

007404
007354

007362
007374

007364
007406

001334

054400

13:04

=IO
=

054124

VIOOROO=0ON=WOO o

054120

061440

(=i=l
SRRRA
SRR
NON—
— e b P @825
.o '

054014

MACY11 30(1046)
04=JAN-82
DATA HEADERS

001344

/CYL #

HEADER WORD 0/

HW( ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

DT3:
DT4:

STESTN, TRAPP(
STESTN,SERRPC,FRCYL,TOCYL,CALDIF

2 007404
007366 007354

HMR1 ,HMR2 ,HMR3 ,HER ,HDS ,HCS1,H(CS2

007362
007374

007364
007406

HWC ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

001116

001454

007402
007366

007404
007354

HMR1
,HMR3 ,HMR
,HER ,HDS ,HCS1,HCS2
2

007362
007374

007364
007406

HW( ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

001116

001472

DT6:

DT7:

STESTN,SERRPC,WD2,WD1

S$TESTN,SERRPC
,WDCNT ,HDWD , TEMP1

007404
007354

HMR1
,HMR3 ,HMR
,HER ,HDS ,HCS1,HCS2
2

007362
007374

007364
007406

HW( ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

001116
001354
007402
007366

001346

007404
007354

HMR1
,HMR3 ,HMR
,HER ,HDS ,HCS1,H(CS2
2

007362

007364

HWC ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

DT8:

$TESTN,SERRPC,TOCYL
,FRCYL ,CALDIF

SEQ@ 0176

TMTM

CZR6IFO UNIBUSS RK6é DR PRTZ
CZROIF.PN
04-JAN-82
1 146

gs8ss 88822222 §85888

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P1
04~JAN-82 12:46

MACY11 30(1046)
04=JAN-82
ERROR OUTPUT DATA
007406

001116

001346

007402
007366

007404
007354

HMR1,HMR2
,HMR3 ,HER ,HDS ,HCS1,HCS2

007362
007374

007364
007406

HWC ,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

N = O000

DT9:

DT13:

DT14:

007430

9023

007362
007374

007364
007406

001116

007444

000

054742
054744

000

$TESTN,SERRPC ,E.A0,E.BO,E.A1,E.B1,E.A2,E.B2

HW(C ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

DT15:

$TESTN,SERRPC ,E.AO,E.BO,E.A1,E.B1,E.A2,E.B2,E.B3
H.A0,H.BO,H.A1,H.B1,H.A2,H.B2,H.B3

007404
007354

HMR1,HMR2
,HMR3 ,HER ,HDS ,HCS1,HCS2

007364
007406

HWC ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

.SBTTL

ERROR DATA FORMATS

DF1:

3
.BYTE 2,0
DH2
.BYTE 7,0
DH3
.BYTE
7,0

DF2:

000

054740

$TESTN,SERRPC ,E.A0,E.BO,E.A1,E.B1,H.A0,H.B0,H.AT,H.B1

HMR1 ,HMR2 ,HMR3 ,HER ,HDS ,HCS1,HCS2

007436

007362
007374

S$TESTN,SERRPC,TOCYL
,RHTAB

H.A0,H.B0,H.A1,H.B1,H.A2,H.B2

007354

054726

1 14
PAGE 178

007374

007444
007452

054724

13:04

.BYTE

2,0

SEQ 0177

CZR6IFO UNIBUSS RK6 DR PRTZ
CZROIF.PN
04=JAN-82 12:46
9053
9054
9055
9056
9057
9058
9059
9060
9061
382%

054746
054750
054752
054754
054756
054760
054762
054764
054766
054770

000005
000
052041
002
052355
002
052056
007
052126
007

9064
9065
9066
9067
9068
38?8

054772
054774
054776
055000
055002
055004

000003
002
052056
007
052126
007

9071
9072
9073
9074
9075
9076
9077
9078
9079
383?

055006
055010
055012
055014
055016
055020
055022
055024
055026
055030

000005
000
053573
000
052041
002
052056
007
052126
007

9082
9083
9084
9085
9086
9087
9088
9089
9090
9091
9092
9093
9094
9095
9096
9097
9098
9099
9100
8}8}

055032
055034
055036
055040
055042
055044
055046
055050
055052
055054

000005
000
052041
002
052177
003
052056
007
052126
007

055056
055060
055062
055064
055066
055070
055072
055074

000004
000
052041
002
052056
007
052126
007

9103
9104
9105
9106
9107
9108

055076
055100
055102
055104
055106
055110

000004
002
053241
003
052056
007

MACY11 30(1046)
04=JAN-82
ERROR DATA FORMATS
DF3:

000
000

000
000
000
DF&:

000

000
000

DF5:

000
000
060
000
000

000

7,0
2,0

7,0
7,0

0,0
0,0
2,0
7,0
7,0

DF14:

4
.BYTE
DH40
.BYTE
DH2
.BYTE

000

7,0

4
.BYTE 0,0
DH1
.BYTE 2.0
DH2
.BYTE 7,0
DH3
.BYTE
7,0

000

2,0

DF10:

000

5
.BYTE
DH49
.BYTE
DH1
.BYTE
DH2
.BYTE
DH3
.BYTE

2,0

5
.BYTE 0,0
DH1
.BYTE 2,0
DH6
.BYTE 3,0
DH2
.BYTE
7,0
DH3
.BYTE
7,0

000

3
.BYTE
DH2
.BYTE
DH3
.BYTE

0,0

DF6:

000

5
.BYTE
DH1
.BYTE
DH11
.BYTE
DH2
.BYTE
DH3
.BYTE

2,0
3,0
7,0

13:04

J 14
PAGE 179

SEQ 0178

055112
055114

052126
007

055116
055120
055122
055124
055126
055130

000004
000
052041
002
052056
007

055132
055134
055136
055140
055142
055144
055146
055150
055152
055154
055156
055160
055162
055164
055166
055170
055172
055174
055176

055200
055202
055204
055206
055210
5212
5214
5216
5220
5222
5224
055226
055230
055232

055234
055236
055240
055242
5244
5246
5250
5252
5254
5256

052126
007

000005
000
053444
000
052041
002
052056
007
052126
007
000005
000
052041
002
054037
002
052056

007

052126
007

000007
000
052041
002
053055
000
053127
004
053065
004
052056

007
052126
007
000007
000
052041
oog
05305
000
053127

MACY11 30(1046)

ERROR DATA FORMATS

DH3
.BYTE

000

DF15:

000
000

F17:

000
000

000

DF20:

000
000

000

.BYTE

DF21:

000

000
000

000

000
000

7
.BYTE
DH1
.BYTE
DH28
.BYTE
DH31
.BYTE
DH29
.BYTE
DH2

.BYTE
DH3
.BYTE

000
000

§
.BYTE
DH&4
.BYTE
DH1
.BYTE
DH2
.BYTE
DH3
.BYTE
5
.BYTE
DH1
.BYTE
DH56
.BYTE
DH2
DH3
.BYTE

000
000

4
.BYTE
DH1
.BYTE
DH2
.BYTE

DH3
.BYTE

000
000

04=JAN-82

DF22:

7
.BYTE
DH1
.BYTE
DH28
.BYTE
DH31

13:04

K 14
PAGE 180

SEQ 0179

7,0

0,0
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
0,0

D22 2222222222222 2222222222222 2R R R R R R RRRRRRRR

3
OVRONOWVISWN=O

b
D
e
e
d e
d
b
D
—

b e o e e

VOOV
O OVOOVOOVO

b b b o
N

lalsl

UN IBUSS RKé DR_PRT2
n
04=JAN-82 12:46

CZR6IFO UNIBUSS RK6 DR PRTZ 4
CZR6IF .P1
04-JAN-82 12:
9165
9166
9167
9168
9169
9170
8};}

055260
055262
055264
055266
055270
055272
055274

006
053065
006
052056
007
052126
007

9173
9176
9175
9176
9177
9178
9179
9180
9181
9182
9183
9184
9185
9186
9187

055276
055300
055302
055304
055306
055310
055312
055314
055316
055320
055322
055324
055326
055330

000007
000
052041
002
053055
000
053127
007
053065
007
052056
007
052126
007

000

9206
9207
9208
9209
9210
9211
9212
9213
9214
9215
9216
9217
9218
9219
9220

BYTE
DH29
BYTE
DH2

000
000

DH3
.BYTE

000
000

7
BYTE
DH1
BYTE
DHZ28

DF23:

000
000

BYTE

DH31
.BYTE
DH29
BYTE

000

DH2

000
000

9188
9189
9190
9191
9192

9193
9194
9195
9196
9197
9198
9199
9200
9201
9202
9203
9204
9205

MACY11 30(1046)
04-JAN-82
ERROR DATA FORMATS

EVEN
AR

.BYTE
DH3
.BYTE

13:04

L 14
PAGE 181

SEQ 0180

6,0
6,0

7,0
0,0
2,0
0,0

7,0
7,0

7,0

AN AR AR AR AR AR

R R AR R R AR R RN AR

RN R

RN RRRRRARRRARRRR

.SBTTL
TYPE ERROR ROUTINE
s*ENTRY JSR PC,TYP ERR
*RETURN RTS PC
tTHIS ROUTINE USES THE '‘ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
:*ERROR 1S TO BE REPORTED. IT THEN USES THE 'ERROR TABLE'' (SERRTB)

:';“ER;RzgabfleE WHAT INFORMATION IS TO BE REPORTED CONCERNING
.

055332
055334
055340
055344
055346
055350
055352
055354

055360
055364
055366
055372
055374
055376
055402
055404
055410
055412
055414
055416
055420
055422
055424

104413
113700
042700
005300
0063
006300
006300
062700

012037
001404
104401
104401
000009
012037
001404
104401
104401
000000
012001
001455
005004
012000
012002

001114
177400

007526
055374

TYPERR

SAVREG

MovBe

BIC

18:

001205
055412

AR AR A AR AR AR AR

28:
38

001205

$ITEMB RO

#177400,R0

AR AR

;ENTER ERROR NUMBER

RO
RO
RO
RO
#SERRTB,RO

:FORM ADDRESS OF ERROR ENTRY

BEQ

*BRANCH IF THERE ISN'T ONE

.WORD
MOV
BEQ

0
(RO)+,4$
5%

MOV

TYPE
TYPE

TYPE
.WORD

MOV
BEQ

CLR
MOV

MoV

(RO)+,28

,$CRLF

,SCRLF

0
(RO)+,R1

*FORM INDEX FOR ERROR TABLE

*GET EM POINTER

:TYPE CARRIAGE RETURN LINE FEED
*TYPE ERROR MESSAGE (EM)

*EM POINTER GOES HERE
*GET DH POINTER
:BRANCH IF THERE ISN'T ONE
:TYPE CR-LF

*TYPE DATA HEADER
*DH POINTER GOES HERE

208

*GET DT POINTER
*BRANCH IF THERE ARE NONE

(RO) +,R2

:STORE NUMBER OF DH'S

R4
(RO)+,RO

:CLEAR SIGN EXTENSION

DEC
ASL
ASL
ASL
ADD

TYPE

48:
5%:

AR AR R AR

*SET INDENT SWITCH
*GET DF POINTER

CZR6IFO UNIBUSS RK6 DR PR;Z
"
CZROIF.PIN
04-JAN-82
1
9221
9222

055426
055430

MACY11 30(1046)

04=-JAN-82

TYPE ERROR ROUTINE

BEQ
001205

COM
TYPE

DEC
BEQ

R3
148

i1s

TYPOC

SRRNSRRRRNSFRERR

vy i

it
A A A A
Y

15%:
16%:

000002

9263

9264

055604

055606

21%:
17%:

000207
020040

208:

010000

123356

001103

000024

001100
031476
000

(RO)# R3

2(R0)

COM

TYPE
MOV

,SPACE2
(RO)+,16%

218

#2 RO
14$

BNE

108

:TYPE
A DT?
: YES=BRANCH

: INCREMENT DF POINTER
sSEE IF END OF DF BLOCK

,SCRLF
R4

s INDENT?
sNO-BRANCH
sYES-TYPE SPACES
;LOOP

,SPACE2

ios

BIT
BEQ
CMP
BNE

#SW12,3SWR
258
$ERFLG,#20.
25$

MOV
JMP

:GET NEXT DH POINTER

:TYPE DH

:DH POINTER GOES HERE

RESREG

:NO-BRANCH
sYES-TYPE SPACES

(RO)

ADD
BR

TYPE

sONLY A DH IN THIS REQUEST?
: YES-BRANCH BYPASS INDENT
: INDENT?

158

BNE

TYPE
ST

:NO-BRANCH

158

sTEST IF ANY DATA FOR THIS HEADER
:NO = SKIP DATA PRINT
:PUT FIRST DATA WORD ON STACK
sTYPE IT
:MORE DATA WORDS
sNO-BRANCH
:TYPE SEPARATORS
:LOOP

:MORE DH'S?

$CRLF

WORD

IST8

;BUMP PAST FORMAT WORD

SPACE2

R2
208

TYPE

;GET & STORE NUMBER OF DATA WORDS

(RO)+
R3

DEC
BLE

BNE

032777
001410
023727
001004
012706
000137

SCRL

118:

BEQ

104414

;DH NUM IS 0-BRANCH
sNO INDENT

148
a(R1)+,=(S P)

TSTB
ST

TYPE

055552

17s

BEQ
MOV

14%:

9254

PAGE 182

MOVB

TYPE

055606

M 14

108:

055606

001205

13:04

SSEIIF sBORT DRV AFTER 20 ERRORS

gksg SES IF HAVE 20 ERRORS

#STACK,
SP
$EOP

sELSE RESTORE STACK PTR
:AND GO TO NEXT DRV

RTS
PC
25%:
SPACE2: LASC12/ /
;
0DT=11 == VOO5A

;2 SPACES

; DEC=11-UODPA-A-LA
; COPYRIGHT 1969,1970,1972
: DIGITAL EQUIPMENT CORPORATION
; MAYNARD, MASSACHUSETTS 01754
055612
055672
000000
000001

. ENABL

RO
R1

ABS ,AMA

: REGISTER
NAMING

SEQ 0181

9277
9278
9279
9280
9281
9282
9283
9284

000014

055672
055674
055676
055704
055712
055716

000413
000417
013737
013737
010737
000137

9314
9315
9316
9317
9318
9319

055722
055726
055732
055734
055740
055746

012706
010637
000414
004037
013777
113704

13:04

0 TVEC
0.STM
0.78T

000340
000020
000003
000006

N 14
PAGE 183

SEQ 0182

CONVENTIONS

x5
26
x7
177776

sSTATUS REGISTER

sTRT VECTOR LOCATION

340
20
000003
000006

TRT
RTT
[ LR PR TR TR TR TR T OOO0O % svesenen

9286
9287
9288
9289
9290
9291
9292
9293
9294
9295
9296
9297
9298
9299
9300
9301
9302
9303
9304
9305
9306
9307
9308
9309
9310
9311
gg}%

04=JAN-82

TYPE ERROR ROUTI NE

00000
00000
000004
000005
000006
000007
177776

9285

9320
9321
9322
9323
9324
9325
9326
9327
9328
9329
9330
9331
9332

MACY11 30(1046)

nunwnnunnn

CZR6IFO UNIBUSS RK6 DR PR;Z
4
CZROIF.PN
04~JAN-82
1

sPRIORITY MASK = STATUS REGISTER
;T=BIT MASK = STATUS REGISTER
sTRT INSTRUCTION
sRTT INSTRUCTION

; R5 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).

177562
177560
177566
177564

055752
055754
055756
055760
055764
055766
055770
055776
056002
056010
056016

106004
106004
106004
110437
000127
000403
012737
105037
012737
012737
000447

.RDB
-RCSR
.TDB
.TCSR

BR
BR
.ENTR: MOV
MOV
MOV
JMP

(]

055652
177776

055632
055646

0.STRT: MOV

057256
055670
055654

G.RST:

MOV

177716

177776

000002
057677
000340
057040

056760
000016
000014

;R DATA BUFFER

177566
177564

;T DATA BUFFER
;T C/SR

;R C/SR

INITIALIZE ODT
USE 0.0DT FOR A NORMAL ENTRY
USE 0.0DT+2 TO RESTART ODT - WIPING OUT ALL BREAKPOINTS
USE 0.0DT+4 T O RE-ENTER (I.E. = FAKE A BREAKPOINT)

.0DT:

177776
000016
055650
057050

177562

BR
JSR
MoV
MOovB
RORB
RORB
RORB
MovB

0.RST1: JMP
BR

0.45:

MOV

CLRB

MOV
MOV

C.STRT
0.RST
ST,0.UST

sNORMAL ENTRY
JRESTART
JRE-ENTER
==

PC,0.UPC

JFAKE

#0.URO,SP
SP,0.USP
0.RST1

;SET UP STACK
sFAKE THE SAVED STACK
sCLEAR BREAKPOINT TABLES

0.UIN,a0.ADR1
0.PRI R4
R4
R4
R4
R4,ST
(P£;+
0.

sREMOVE THE BREAKPOINT
JGET ODT PRIORITY
JSHIFT
; INTO
s
POSITION
sSTORE IN STATUS

0.TVEC+2,ST

0.8K1

0,0.SVR

SAVE STATUS

sSET UP LOCAL STATUS
THE PC

sSAVE REGISTERS

#RTI,0.RTIT

sSET TO RTI

11/20 OR /05

#0.8RK,0.TVEC

;PC_TO TRT VECTOR

0.P
sDISALLOW PROCEED
#0.STM,0.TVEC+2 ;STATUS WORD TO TRT VECTOR + 2
0.RALL

SPECIAL NAME HANDLER

:CLEAR BREAKPOINT TABLES

|
04=JAN-82

TYPE ERROR ROUTINE

;

0.RSP:

057731
177770

0.SP1:

057714

B 15
PAGE 184

SEQ 0183

DEPENDS UPON THE EXPLICIT ORDER OF THE TWO TABLES 0.TL AND 0.URO

0.REGT: JSR

055632

13:04

0.5P:

MOV
CMPB
BEQ
CMP
BHI
BIC
MoV
ASL
ADD

INC
BR
Sus
BR

5, o Gsr

ao (n£)+
#0.T

porkoo.LG,R4

0.RS
#i77770,R0
RO.Ré
R4
#0.URO,R4
R2
0.SCAN

#0.TL=7
R4

0.SP1

sSPECIAL NAME, GET ONE MORE CHARACTER

sTABLE START ADDRESS
:1S THIS THE CORRECT CHARACTER?
:JUMP IF YES
:1S THE SEARCH DONE?

:BRANCH IF NOT

:MASK OFF OCTAL

;GENERATE ADDRESS
sSET _FOUND FLAG
;GO FIND NEXT CHARACTER
sCORRECT CONSTANT

MACY11 30(1046)

O00000O0O00000U0O00e

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

_ HANDLER = OPEN INDEXED ON THE PC
MOV
ADD
ASR

BCS
ASL

TST

056364

JMP

aR2,R2

R2
0.ERR
R2
(R2)+
R2 ,R5
0.0P2

s CURRENT ADDRESS IN R2

.c
: COMPUTE

sMOVE ONE BIT TO CARRY
sERROR IF ODD NUMBER
sRESTORE WORD
: AND INCREMENT BY TWO
sUPDATE CAD
;GO FINISH UP

; B HANDLER = SET AND REMOVE BREAKPOINTS

6.8KPT:

056116

TST

BEQ

ASR
BCS
ASL

057740

o
o
o=O
nNON

056146

Yoz
=23 SSUUSS
S SSIR
Nflg\n

056144

000001

057656

057500
000060
000067

055664

MOV
BR
0.RALL: MOV
BR
°.o...| e Nan,

055664

0.RALL
R4
0.ERR
R4
R4,0.ADR1
0.DCD

#0.TRTC,0.ADR1

0.DCD

:1F_NO NUMBER TYPED
REMOVE BREAKPOINT
:CHECK IF 0DD
:JUMP IF 0DD

:RESTORE ONE BIT
:SET A BREAKPOINT
sCLEAR BREAKPOINT

COMMAND DECODER - ODT11

REGISTERS RO-R4 MAY BE USED,
REGISTER RS WILL BE CONSIDERED SAFE

.ERR:

BIS
MOV
JSR
0.DCD:
JSR
0.DCD1: CLR
CLR
0.SCAN: JSR
CMP
BHI
cMP

CLOSE EVERYTHING
2 T0 BE TYPED

: OUTPUT ?

rvpe

CCRY<LF>*

: R4 CONTAINS THE CONVERTED OCTAL

: R2 IS THE NUMBER FOUND FLAG
*GET A CHAR, RETURN IN RO
:COMPARE WITH ASCII

:CHECK LEGALITY IF NON-NUMERIC

:COMPARE WITH ASCII 7

i-lelvlivlile]l.)

056112

MOV

PC,0.TCLS

RS,.R2

OO0 0O00O00Oo0O

0.0RPC: JSR

057624

]
BLO

0.CLGL

ASL
ASL
ASL
ADD

Ré
R4
R4
RO,R4

0.SCAN

BIC

INC

0.CLGL: CLR
0.LGL1: CMPB

BEQ
INC

000014

056256

056262

ERERRRRRLRL
133333333333 1339333994
33339
9993 2 RRRERRRELR
RERSE SEVENRUK
g
LG BRI
BNUR AR
TRUNES 0 ONONVISWN=O

056262

CMP
BHIS
BR

0.LGL2: ASL

JMP

0.LGDR: 0.WRD
0.CRET
0.REGT
0.0
0.0P1
0.0RPC

0.BACK

056310

000030

0.LGL

0.0FST
0.WSCH
0.EFF
0.BKPT
G.PROC
=

c 15
PAGE 185

#177770,R0

R4
PACK THREE BITS IN R4

:R2 HAS NUMERIC FLAG

R1
RO,0.LGCH(RT)

0.LGL2

R1
R1,40.CLGT
0.ERR
0.LGL1T
R1
@0.LGDR(R1’
;
;
:
:
:;
:

;

s CHECK LEGALITY IF NOT OCTAL
CONVERT 0 8CP
; MAKE ROOM

:
__AND TRY AGAIN
:CLEAR INDEX
:D0 THE CODES MATCH?
JUHP IF YES
: SET INDEX FOR NEXT SEARCH
IS THE SEARCH DONE?
O0PS!
RE-LOOP
:MULTIPLY BY TWO
;GO TO PROPER ROUTINE

/
OPEN WORD
CARRIAGE RETURN
CLOSE
$ REGISTER OPS
G
GO TO ADDRESS K
<LF> MODIFY, CLOSE, OPEN NEXT
OPEN RELATED, INDEX = PC

*TM

OPEN PREVIOUS

;
O OFFSET
:
W SEARCH WORD
:
E
SEARCH EFFECTIVE ADDRESS
;
B BREAKPOINTS
;
P
PROCEED
.=0.LGDR
:LGL MUST EQUAL 2X CHLGT ALWAYS

: PROCESS / = OPEN WORD
056312

005702

0.WRD:

TST
BEQ
MOV
0.WRD1: ASR

057414
000001

0.ERR2: BCS
ASL
MOV
JSR

BR
0.WRDA: BIC

R2
0.WRDA
R4 RS
RS
0.ERR
RS
@RS RO
5,0.CADV
0.DCD1
#1,RS

0.WRD1

:GET VALUE IF R2 IS NON-ZERO
:SKIP OTHERWISE
:
PUT VALUE IN CAD
:MOVE ONE BIT TO CARRY
:JUMP IF ODD ADDRESS
:RESTORE THE CARRY BIT
:GET CONTENTS OF WORD
:GO GET AND TYPE OUT @CAD
:GO BACK TO DECODER
:CLEAR CLOSED BIT

;GO BACK TO MAIN-LINE

: PROCESS CARRIAGE RETURN

056354

004737
052705
000702

057624
000001

0.CRET: JSR

BIS
BR

056356
056362

004737
005725

057624

PC,0.TCLS

#1,RS
0.0CD

:CLOSE LOCATION

:CLOSE EVERYTHING
:RETURN TO DECODER

PROCESS <LF>, OPEN NEXT WORD

0.0P1:

JSR

SEQ 0184

TYPE ERROR ROUTINE

177770

057707

13:04

lvleloelelelelel leleleoleleolel ]

04=JAN-82

PC,0.TCLS

(R§)+

:CLOSE PRESENT CELL

*GENERATE NEW ADDRESS

mMmmMmMmmmmmmoIooIoe

103410

MACY11 30(1046)

MmMMmmasafmammmm

CZR6IFO UNIBUSS RK6 DR PRTZ
CZROIF.PI
04~JAN-82 12:46

004537
010509
)
00453
012700
004537
000744

9447
9448
49

057650

13:04

TYPE ERROR ROUTINE

0.0P2:

057414
000057
057556

JSR

D 15
PAGE 186

MOV

1 <CRO<LF>

MOV

»'/.R0

STYPE A /

0.WRD1

;GO PROCESS IT

JSR

0. CRLF

s o con

5,0.FTYP

*NUMBER TO TYPE

: TYPE OUT ADDRESS

: PROCESS “, OPEN PREVIOUS WORD
056414
056416

004737
005745
000762

057624

0.BACK: JSR
ST

BR
:

006205
10373;
000040
057556

PROCESS 0,

0.0FST: ASR
BCS
ASL
MOV

gg%
JSR

DEC
MOV
MOV

057414

057414
056166

JSR

MOV
ASR
BCS

0.0F1:

JSR
JMP

PC,0.TCLS
-(RS)

0.0P2

:GENERATE NEW ADDRESS

:G0 DO THE REST

COMPUTE OFFSET

RS
0.ERR2
s
RO

;GET LOW ORDER BIT
*ERROR IF CLOSED
*RESTORE WORD
:TYPE ONE BLANK

n4
R4 ,RO
R4 ,R2
5,0.CADV

RO
0.0F1

;:DIVIDE BY TWO
:BRANCH IF 0DD

0. rrvp

R2,RO

5.0.CADV
0.0CD1

: SEARCHES - SMSK

HAS THE MASK

: COMPUTE

: AS A SEPARATOR

16 BIT OFFSET
TYPE
A
*SAVE Ré

*NUMBER IN RO - WORD MODE

*NUMBER IN RO - BYTE MODE
*ALL DONE

SMSK+2 HAS THE FWA
$MSK+4 HAS THE LWA

SEQ 0185

04-JAN-82

mMmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmTmmmm

9445
9446

MACY11 30(1046)

CZR6IFO UNIBUSS RK6é DR PRTZ
CZR6IF .P1
04=JAN-82 12:46

VWA
=2
=

R1
0.WDS
Ri

:RZ.RO

: SET 0BUECT

WONN
-

0. D D

le]

NSO

YES

*BRANCH IF EFFECTIVE SEARCH
;EXCLUSIVE OR

S DONE
IN A VERY
:
:
FANCY MANNER HERE
:AND RESULT WITH MASK

0.WDS3:

sSET EFFECTIVE SEARCH

R2,0.MSK+4

osnsxRS

0.EFF1
RO,=(SP)

056544
056546

SEQ 0186

sSET WORD SEARCH
sCHECK FOR OBJECT FOUND
sERROR IF NO OBJECT
;SET ORIGIN
sSET MASK
sAND COMPLEMENT IT
; IS _THE SEARCH ALL DONE?

R2
0.ERR
0.MSK+2,R2

055660
055656

E 15
PAGE 187

:RE-LOOP IF NO MATCH

:REGISTERS R2,R4, AND RS ARE SAFE

057650

:TYPE <CR,LF>

057414
000057
057556

:GET READY TO TYPE
TYPE ADDRESS

sSLASH TO RO
sTYPE IT
sGET CONTENTS

057414

'TYPE CONTENTS

: RESTORE R4
INCREHENT TO NEXT CELL AND
RETURN
; IS (X)=K?
TYPE IF EQUAL

0.WDS4:

0.EFF1:

[
T

13:04

+(X) TO R3

oA T TTITMTmTITmMTTT
T T T TTTm

TYPE ERROR ROUTINE

055662

J(X)+X

T Amm

057677

RO
RO
RO
R2.R0
RO,R4

sMULTIPLY BY TWO
:ADD TWO

o.P
R4

sDISALLOW PROCEED
sCHECK LOW ORDER BIT
;ERROR IF ODD NUMBER
sRESTORE WORD

0.wWDS3

177400

105037
006204
103617
006304

JIS (X)+X+2=K?
;BRANCH IF EQUAL
;WIPE OUT EXTRANEOUS BITS
JEXTEND SIGN

s (X)#X+2
#177400,R0
RO.RO

O
e ven,

9500

04=JAN-82

0.EFF:

056472
056474
056476
056500
056502
056504
056510
056514
056516
056522
056524
056526
05
056532
056534
056536
056540
056542

[elelelele)

9480
9481
9482
9483
9484
9485
9486
9487
9488
9489
9490
9491
9492
9493
96
9495
9496
9497
9498

MACY11 30(1046)

[T )

CZR6IFO UNIBUSS RK6 DR PRT?
CZROIF.P1
04~JAN-82 12:4

0.WDS3

sADD PC
:1S THE RESULT A PROPER REL. BRANCH?

PROCESS G - GO

.90:

CLRB
ASR
BCS

0.ERR2
R4

0.G02:

MOV

0.TRTC,30.ADR1

MOV
MoV
MoV
MOV
Mov

MOV
MOV

055652
055650

MOV
MOV
O.RTIT: RTT

5,0.RSTT

sRESTORE TELETYPE

20.ADRT,0.UIN

T-BIT FLAGS
:
sSAVE INSTRUCTION
sREPLACE WITH TRAP

; CLEAR BOTH

(SP)+,RO
(SP)+,R1
(SP)+,R2
(SP)+,R3

;RESTORE
: RO

THRU

(SP)+,R5
(SP)+,SP

AND STATUS
AND PC

(SP)+,R4

0.UST,=(SP)
0.UPC,=(SP)

: AND SP

*CHANGED TO RTI FOR 11/20 AND /05

PROCESS P - PROCEED
ONLY ALLOWED AFTER A BREAKPOINT

056762

057000

057030

105737

057677

105037

057677

010437
1
10

832737

055666

000020

0.PROC:

TSTB
BEQ
CLRB

0.P
0.ERR1
P

BEQ

0.PR1

MOVB
JSR
MOVB
INCB
BIS

#0.STM,ST
5.0.RSTT
#0.STM,ST
0.7
#0.TBT,0.UST

TST

177776

0.PR1:

177776

0.C1:

055652

sCHECK LEGALITY OF PROCEED
sNOT LEGAL
:CLEAR PROCEED FLAG
;WAS COUNT SPECIFIED?
.~o

0.602

;YES, PUT AWAY COUNT
sFORCE HIGH PRIORITY
sRESTORE TTY
sSET HIGH PRIORITY
;SET T-BIT FLAG
SSET T-BIT

* BREAKPOINT HANDLER
*

013777

105737
100003
113705
000407
113705
000257
106005
106005
106005
106005
110537

055650
055652
057256
057676

0.BRK:

MOV

(SP)+,0.UPC

0.BK1:

JSR

0.0.SVR

MOV
TSTB

(SP)+,0.UST

0.7

055654

0.8BK2:

MOVB

0.000000

7062

057070
057074
057076
057102
057104
057110
057112
057114
057116
057120
057122

012637
012637
004037
105737
001311

AND GIVES CONTROL TO THE COMMAND DECODER

177776

0.BK3:

MOvB

DDV

057040
057044
057050
057054
057060

A TRT BREAKPOINT CAUSES 0.BRK TO BE ENTERED, WHICH SAVES
VARIOUS ODDS AND ENDS, FINDS OUT IF THE BREAKPOINT WAS LEGAL,

055670

055654

176574

055652

.80.ADR1

sPRIORITY IS 7 UPON ENTRY
sSAVE STATUS AND PC
sSAVE VARIOUS REGISTERS
JCHECK FOR T-BIT SET
sJUMP IF SET
;REMOVE BREAKPOINTS
:CHECK IF PRIORITY
;s IS AS SAME AS USER PGM
sPICK UP USER UST IF SO
sAND DON'T COMPUTE THE PRIORITY
JOTHERWISE PICK UP ACTUAL PRIORITY
sCLEAR CARRY
sSHIFT LOW ORDER BITS
INTO
;s
HIGH ORDER
H
POSITION
:
sPUT THE STATUS AWAY WHERE IT BELONGS

OMN
IXIEXIXIIrTITIT

~
~

057740

OO
SN

b e
—

NOND

~
N
&H

(=1

056760

013746
013746
000006

0.
#0.TBT,0.UST

MOV

015682

056750

CLRB
BIC

JSR

sSET UP NEW PC
sSET _HIGH PRIORITY

0.TBIT:

#0.STM,ST

057346

R4,0.UPC

MOVB

SEQ 0187

TP TIFIIFITFIT

MoV

F 15

PAGE 188

055650
000340

°°°°°°°g—'°—'
OO
—
oo
NNNQGVNM
O
N

010437
737
04537
037

TYPE ERRCR ROUTINE

13:04

T et b bt bt e

04-JAN-82 12:46

04=JAN-82

MACY11 30(1046)

EERERRREBPRErT

IBUSS RK6 DR_PRT2

055652

055666

057414

0.83:

056162

MOV
BIC
[21at

G 15
PAGE 189

0.UPC.RS
=(R5)
R5.,0.UPC
RS.g.ADR1
0.8

5.0.SVTT
5.0.CRLF
#0.8D,R4

#0.8D+1,R3

5.0.TYPE
RS.RO
#0.TBT,0.UST

DEC
BGT
MOV
INCB
JSR
MOV
JSR

SEQ 0188

sGET PC, IT POINTS TO THE TRT
s SUBTRALT TWO
;FROM THE USER'S PC

;COMPARE WITH LIST
:JUMP IF FOUND
sSAVE TELETYPE STATUS

sERROR, NOTHING FOUND

;OUTPUT "BE'' FOR BAD ENTRY
sCLEAR OUT ANY POSSIBLE FAKE T-BIT
s AND CONTINUE

:JUMP IF REPEAT
sRESET COUNT TO 1
sALLOW PROCEED
sSAVE TELETYPE STATUS, R4 IS SAFE
;TYPE 'B"’

;GET ADDRESS OF BREAK
s TYPE ADDRESS
;CLEAR CAD
;GO TO DECODER

MOV

JSR

CLR
JMP

: SAVE REGISTERS RO-R6 IN INTERNAL STACK
057256

0.SVR:

057674
055646
055646

MOV

MOV
MOV

057674
057312

(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
sSAVE USER STACK ADDRESS
:SETETO INTERNAL STACK

: SAV

: REGISTERS

2 TMRUs

*PUT SAVED REGISTER ON STACK

SAVE TELETYPE STATUS
057314

177560
177564
177560
177564
057650

057700
057701

0.SVIT: MOVB

MO VB
CLRB
CLRB

JSR

RTS

0.RCSR,0.CSR1
0.TCSR.0.CSR2
0.RCSR
0.TCSR

§.0.CRLF

sSAVE R C/SR
sSAVE T C/SR
;CLEAR ENABLE AND MAINTENANCE
;_BITS IN BOTH C/SR

:TYPE <CR,LF>

: RESTORE TELETYPE STATUS
057650
177564
004000
177560

177560

0.RSTT: JSR
TSTB
BPL

5.0.CRLF
0.TCSR

BIT

#4000,0.RCSR

TSTB

0.RCSR

BEQ

0.RSE{

;<CR,LF> BEFORE RESTORING

;WAIT READY ON PRINTER

sCHECK BUSY FLAG ON READER
s SKIP READY LOOP IF NOT BUSY
sWAIT READY

13:04

TETRTTTETTETETTTETETETETRRR"

N = O —

—OOoOWViN
~
o
NNNNNWVLWW

MOV
TST
MOV
CMP
BEQ
JSR
JSR
MOV
MOV
JSR

TYPE ERROR ROUTINE

0.82:

057252

04=JAN-82

OOMOPPFOORTRTRTERTRTTRTETETTRTRTTETERTTETRTERTTETETERTTETERTETETETRETET

g288 i g

9603

MACY11 30(1046)

055650

9601
960.

=l=l=lelelelelelelelel]

9592
9593
9594
9595
9596
9597
9598
9599

vivyviuivuvaiaiaianz
b

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

100375
113737
113737
000205

057700
057701

‘177560
177564

BPL
O.RSE1: MOVB
MOVB
RTS
:

13:04

H 15
PAGE 190

.~
o CSR1,0. acsn
0.CSR2,0.TCSR
RS

SEQ 0189

:
ON READER
*RESTORE
:
THE STATUS REGISTERS

TYPE OUT CONTENTS OF WORD OR BYTE WITH ONE TRAILING SPACE

: WORD IS IN RO

057414
057416

057422
057426

010246
012704

012746
010002

057737

000060

057430 042702 177770

057434
057436
057440
057442
057444
057446
057452
057454

061602
110244
006200
006200
006200
020427
101365
042700

057462

110044

057460
057464

057470
057474
057476

062600
012703

004537
012602
000205

0.CADV: MOV
MOV

0.SPC:

057732
177776

tfinmaz

: GET

#'0,-(SP)
RO,R2

ADD
MOVB
ASR
ASR
ASR
CMP
BHI
BIC

asP,R2
R2,=(R&4)
RO
RO
RO
a4 co BUF +1
#177776 RO

*CONVERT TO ASCII
:STORE IN BUFFER
“SHIFT THIS MESS
: RIGHT
*
THREE WHOLE PLACES
*DONE?
:
NO
*GET LAST BIT

MOVB

RO,-(R&4)

;AND PUT IT AWAY

5,0.TYPE
(SP)+,R2
RS

:TYPE WHOLE STRING OF CHARACTERS
*RESTORE
R2

BIC

MOV

057542

:SAVE R2
*BUFFER START ADDRESS

MOV
MOV

ADD

057737

R2,=(SP)
#0. aur+6 R4

JSR
MOV
RTS

(SP)+,R0

#0.BUF +6 ,R3

:CONSTANT ASCII 0

: OCTAL CHARACTER

;CONVERT TO ASCII

SLWA

* GENERAL CHARACTER INPUT ROUTINE
* CHARACTER INPUT GOES TO RO
057500
057504
057506
057512

105737
100375
113700
004537

057522
057524
057530
057532
057536
057540

001766
122700
001763
122700
001760
000205

057516

042700

177560

0.GET:

177562
057556

177600

TSTB
8PL
MOVB
JSR

BIC

BEQ
CMPB
BEQ
(MPB
BEQ
RTS

000040
000073

0.RCSR
.~
0.RDB,RO
5.0.FTYP

:WAIT FOR
:
INPUT FROM KEYBOARD
*GET A CHARACTER
*ECHO CHARACTER

0.GET
#40,R0
0.GET
#°;.RO
0.GET
RS

*IGNORE NULLS
*CHECK FOR SPACES
* IGNORE NULL
*CHECK FOR SEHI-COLON
*IGNORE THEM IF FOUND

#177600,R0

:STRIP OFF PARITY FROM CHARACTER

ADDRESS OF LAST BYTE IN as *(R3)>(R4)

057542

020304

0.TYPE: CMP

057546
057550
057554

112400
004537
000772

MOVB
JSR
BR

057544

103426

BLO

057556

R3,R4

:CHECK FOR COMPLETION

(R4)+,RO
5,0.FTYP
0. TYPE

*GET A CHARACTER
:TYPE ONE CHARACTER
*LOOP UNTIL DONE

0.7yYP1

* EXIT WHEN DONE

* TYPE ONLY ONE CHARACTER (CONTAINED IN RO)
057556

105737

177564

0.FTYP: TSTB

0.TCSR

:CHECK STATUS

|
057374
057376
057406
057412

MACY11 30(1048)
C4~JAN-82
TYPE ERROR ROUTINE

O000OO0O0O0000000000000OO0O00O000000000000000000O00000000000OOL0ON

= OV~ S WOV

S S
34

——

0
0
oo

sis
NN

0 UNIBUSS RK6 DR_PRTZ
P11
04=JAN-B2 12:46

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

9708
9709
9710
9711

9712
9713
9714
3;}2

057562
057564

057570
057574

100375
110037
120037
001012

057614
057616
057620
057622

105316
003371
005726
000205

057576
057602
057606
057610

113746
105737
100375
105037

000045
000044
177564

177566

057624
057626
057630
057632
057634
057636
057640
057642
057644

006205
103405
006305
005702
001401
010415
000207
005746
000137

SEQ 0190

.4
R0,0.TDB

:WAIT UNTIL READY
sTYPE ONE CHARACTER

awés ,-(SP)
0.TCSR
0.TYP2
0.7DB

:YES,

RO, a#45
0.TYP1

;1S CHAR TO BE FILLED?
:NO
INIT THE COUNT

;GENERATE NULL FILLER

asP
0.TYP2
(SP)+
RS

:POP STACK

056146

0.TCLS: ASR
BCS
ASL
TST
BEQ
MOV
0.CLS1: RTS
0.TC:
TST
JMP

RS
0.TC
RS
R2
0.CLS1
R4 ,aRS
PC
-(SP)
0.ERR

;GET LOW ORDER BIT
:JUMP IF ALREADY CLOSED
:IF NO NUMBER WAS TYPED THERE IS
:NO CHANGE TO THE OPEN CELL
:STORE WORD

;POP EXTRA CELL FROM STACK
sAND SCREAM BLOODY MURDER

: 0.CRLF = TYPE <CR,LF>
; 0.CRLS = TYPE <CR,LF>*

9733
9734
9735
9736

057650
057654
(57656
057662

012703
000402
012703
012704

g;;g

057672

000205

057666

004537

057705

057706
057704
057542

0.CRLF: MOV
BR
0.CRLS: MOV
0.CRS:
MOV

JSR

#0.CR+1,R3
0.CRS
#0.CR+2,R3
#0.CR,R4

000000
000
000

0.XXX:
0.T:
0.P:

.WORD
.BYTE
BYTE

0
0
0

057700
057701

000
000

0.CSR1:
0.CSR2:

.BYTE
.BYTE

0
0

8;23

057702

042502

0.8D:

9750
9751
g;g%

057704
057705
057706

015
012
052

9754
9755
9756
9757
9758
9759

057707
057710
057711
057712
0577
057714

057
015
044
107
012
137

.EVEN

:LWA <CR,LF>

LUA <CR,LF>*
SFWA
:TYPE SOMETHING

5.0.TYPE

RTS

057674
057676
057677

9747

115

PAGE 191

: UPON ENTERING, R2 HAS NUMERIC FLAG, R4 HAS CONTENTS

9730
g;g}

9740
9741
9742
9743
9744
8;22

MOVB
0.TYP2: TSTB
BPL
CLRB
DECB
BGT
TST
0.TYP1: RTS

13:04

: CLOSE WORD OR BYTE AND EXIT,

3;}3

9737

BPL
MOVB
(MPB
BNE

177566

9717

9720
9721
9722
9723
9724
9725
9726
9727
g;gg

MACY11 30(1046)
04-JAN-82
TYPE ERROR ROUTINE

: TEMPORARY STORAGE
:
T=-BIT FLAG
Pnocseo FLAG = 0 IF PROCEED NOT ALLOWED
= 1 IF PROCEED ALLOWED
*SAVE CELL = R C/SR
:SAVE CELL - T C/SR

.WORD

'BE

0.CR:

.BYTE
BYTE
.BYTE

015
012
'

:
:
s

<CR>
<LF>
*

0.LGCH:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE

.y
015
'S
'G
012
°'_

:
:
P
:
:
:

/
CARRIAGE RETURN

G
<LF>

057730
057731

MOV

€ b b b b b
=NOON

000006

057737

057737
040

057740

000003

0.CLGT

0.TL:

.BYTE

.=0.LGCH’

;D0

‘P

:NOT

:ORDER
:HERE

0.LG

.=0.TL

0.BUF:

"
"EVEN

SEQ@ 0191

"TM
0

BYTE

J 15
PAGE 192

:CHANGE
‘THE

;TABLE LENGTH
1

3
4

§
6

;6 CHAR. BUFFER WITH

:TRAILING BLANK

0.TRTC: TRT

:TRACE TRAP PROTOTYPE

:THE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL
055632

055632
000000

0.URO:

0.USP:
0.UPC:
0.UST:
0.PRI:
0.MSK:

000000

0
0
0
0
0
0
0
0
7
0
0
0

0.0DT=40

;USER RO

USER SP
USER PC

:USER ST
;ODT PRIORITY
JMASK
JLOW LIMIT
JHIGH LIMIT

: BREAK POINT LISTS, ADR1 = ADDRESS OF BREAKPOINT,CT = COUNT,
UIN = CONTENTS

000000

055670

000001

TYPE ERROR ROUTINE

13:04

IVIVIVIVDVIVVDD

057723

=00 b adad
=== =N
nNOO VIOW

057722

04=JAN-82

136
1

o
=4
o

057715
6

MACY11 3((1046)

CZR6IFO UNIBUSS RK6 DR PRTZ
CZROIF.PN
04~JAN-82 12:4

K 15
MACY11 30(1046)
04-JAN-82 13:04 PAGE 194
CROSS REFERENCE TABLE == USER SYMBOLS

ABASE = 177440
ACOW1 = 000000
ACDW2 = 000000
ACLO
000010
ACPUOP
00000
ACT11
007470

BADHDR

007340

d
d
d
d

AMSGLG= 000000
AMSGTY= 000000
AMTYP1= 000000
AMTYP2= 000000
AMTYP3= 000000
AMTYP4= 000000
APASS
= 000000
APRIOR= 000000
APTCSU= 000040

000000

AMSGAD=

—

AMAMS4=

d o

d e

19534

OV~

)

b e

SEQ@ 0192

NO O O OO OO OO OVOVOVOVOVOVOOVOVOO
WWNLINNO OO WWNINIWWWNO
2O HO
VIO —=ONOHN =200 WNCON—=OVO
&~

CZR6IFO UNIBUS S RKé6 DR PRTZ
CZROIF.P1
04-JAN-82 12:4

7242

7288

7442

74834

7440

6218

6244

4033+

164

74824

4431+

4621

5721+

5936+

5939+

6951

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P1
04=JAN-82 12:46

L 15
MACY11 30(1046)
04-JAN-82 13:04 PAGE 195
CROSS REFERENCE TABLE == USER SYMBOLS

BADTMO 036626
BAI
= 000020

3391
};ggfi

70054
gagz

BA16 = 000400
BA17 = 001000
BITO = 000001
BITO0 = 000001
BITO1 = 000002
BITO2 = 000004
BITO3 = 000010
BITO4 = 000020
BITO5 = 000040
BIT06 = 000100
BIT07 = 000200
BITO8 = 000400
BIT09 = 001000
BIT1
=
02
BIT10 = 002000
BIT11 =
000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000

12004
12014
11434
11334
1132
11314
11304
1129
11284
11274
11264
11254
11244
11424
1234
1122¢
11214
11204
}}ggl

BIT15
BIT2
BIT3
BIT4¢
BITS
BIT6
BIT7

= 100000
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200

BIT8 = 000400
BIT9 = 001000
BPTVEC= 000014
BSE
= 000200
BSERR
001512
BSE20H 002336
BSE20S 004336

BSE22H 003336
BSE22S
53
BYP
033064
BYPCER 001516
CALADD 001362
CALDIF 001354
CCLR =1
0
CCYL
coT
CERR

001350
= 002000
= 10000

CFMT = 010000
CHKFLG 001520
CHKMSG 033100

4324

4462

4532

4934

4994

1229

1248

2121

3432

6896

1239
1240
1241
1242

1271
1257
1273
1258

1285
1272
1287
1274

SEQ 0193
5119

5281

5357

5482

5535

5655

1312
1300
1314
1302

1326
1313
1328
1315

7230
1327

7192

1275

1299
1286
1301
1288
1289

1329

7237
1340

6698

6709

1244

1260

1276

1343

5723

5883

6694

6705

1293
1280
1267
1268

1320
1294
1281
1282

1307
1295
1296

1321
1308
1309

1323

3422

4692

4736

1310
1325

1324

62714

1197
1143
1142
1141
1140
1139
1338
1137
1136
1135
1134
1230
1202
1203
1204
1205

7177
7185
2122
1220
1221
1222
1223

11184
11414
11404
1139
11384
11374
Z}ggl

1207
12?1
1213
1214
1215
1198
lggg

1208
1250
1232
1233
1234
1215
;glg

1225
2123
1251
1252
1253

1236

1265
1266
1254
1255

11354
11344
11504
12364
20374
20464
2048»

1200
1201

1218
1219

1237
1238

1256
1270

1269
1284

1283
1298

1297
131

4078
3942+«
3963
3972

4185
3947«
6703
6707

4249
4024
6808
6812

4475
5958+

4946
5960+

5291

5492

6692

6797

3616

3643

3647

3651

3655

5892+

6665

6671

6673

6727

4195

4485

4706

4716

4956

6450

5108
6955

5176
6570

5191

5267

4051
4943
6388
4507

4075
5002
6483
4535

4157
5288

4182
5365

4247
5489

4333
5542

4446
5674

4472
5746

4538

4570

6794

4273
4842
5507

4968

4290

4352
4987
5561

437
5021
5580

4405
5040
5686

4497
5079
5815

5100

4560
5238
62814

20474
20494
3510
20394
19804
19774
1208#
5301
19754
12024
12074
4541
5768
12044
20404
3906
4587
5259

1206

1224

7253

1243

1235

3883
3954
3538
3419+
4147+
5781+
3848
5417

3944
6696
3542
3668+
4434+
8967
3863
5432

3981
6801
3557
6386
4604+
8991
4088
5592

3525
3487
4614
5801
4440
6281+
4100
4657
5313

3626
3600
4758
5846
4443
6364
4119
4678
5332

3707
3894
4815
5902
4466
6367
4207
4727
5384

1259

5607

3709
3999
4878
5926
4469
6371
4226
4779
5403

6426

6434

5526

1303

6442

1316

1330

1322

EKCERR

CyL
CYLADD

68454
2 =3 \NN

SUSERERERE
433

= 000200
= 004000

6972

=00 0000 00 —

036172
036076
036136
031724
001000
001366
000015

OV
O VNINW

CRLF
CT0

SEQ 0194

?33640

CLEAR = 000005

CLKOF
CLKON
CLOCK
CLRFLG
COE
=
COUNT
CR
=

M 15
MACY11 30(1046)
06=JAN-82 13:04 PAGE 196
CROSS REFERENCE TABLE == USER SYMBOLS

001422
001360

CYLDIF

001356

CYL?
DATAO
DATAOT
DATAT

001436
001474
001476
001500

4546

4933

4993

5007

DATCMD

032320

4441

5793

1467
5838

4536
5899

4611

2436

2476

2481

2521

DCK
= 100000
DCLO = 000020
DCPAR = 020000

6129

DDISP = 177570
DDPCH
007466
ODT
= 000400
DDUMP
007464
DF1
054726
DF10
055056
DF14
DF15

055076
055116

DF22
DF23
DF3
DF&
DF5
DFé
DH1

055242
055276
054746
054772
055006
055032
052041

055136
054742
055162
055206

ON SO N

DF17
DF2
DF20
DF21

—IOMMONMDEZ
R R~ ITOMMONDZRMRC—~IOMMOMNDEZRMRC—~ITOMMOMNDERM
NI OMMMOND

CZR6IFO UNIBUSS RK6 DR PR;Z
CZROIF.P1
04-JAN-82
1

04~JAN-82 12:46

04=-JAN-82

13:04

N 15
PAGE 197

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0195

DH10
DH11
DH13
DH14
DH17

052326
052355
052372
052456
052542

87574
247
87944
2952
2957
2366

9055
2817
9057
87974
88064
2371

9075
2822

9084
87904

9096

9115

9126

9134

9145

2396

2591

2917

2922

3138

3143

88154

DH2

052056

g;gg‘

9045

9059

9066

9077

9088

9098

9107

9117

DH20
DH21
DH22
DH24
DH25
DH26
DH27
DH28
DH29
DH3

052611
052644
052672
052724
052751
052774
053024
053055
053065
052126

2566
2270
2346
2306
2376
2225
2215
88544
88564
g{ggl

88234
2571
2556
23N
2616
2230
2220
9147
9151
9047

2326
2621
2250
2265
9162
9166
9061

2711
2331
2646
2255
2275
9177
9181
9068

3098
2341
2867
2280
2361

3103
2531
2872
2291
2381

3128
3073
3008
2391
2386

3133
3078
88414
2401
2426

88324
88374

9079

9090

9100

DH30

0532075

2581

2797

2807

2812

3118

3123

2301
3148

DH19

DH31
DH32
DH39
DH40
DH41
DH42
DH43
DH44
DH47
DH49
DH51
DH52
DH53
DH54
DH56
DH57
DH6
DH8
DH9
DI
=
DISPLA
DISPRE
DLT
=
DLY
DMD
=
DOCMD

052566

053127
053154
053206
053241
053275
053322
053373
053444
053523
053573
053650
053703
(53737
053765
054037
054063
052177
052232
052253
040000
001142
000174
100000
033046
000040
032262

DOTIM
007522
DPAT1
001502
DPAT2
001504
DRA
= 000001
DRDY = 000200

DRIVS
DRIVO

007474
007476

2286

88634
2235
2832
8877#
3013
2967
2972
2977
2496
89154
2356
2245
2316
2431
89454
2511
87744
2336
2576
12064
18734
1352
1225#
3483
12664
3808
5071
6416
21494
20314
20324
12484
12554

21334
2138¢

2561

9149
2240
2837
9105
88824
88864
88934
89004
89084
9073
2586
89284
2321
89374
9136
2516
9086
87794
87824

88194

88284
2696

9164
2260
3108

9179
2296
3113

9160

9175

9128

9138

9153

9168

2942
2501

2947
2526

88454
2541

2546

88494

9109

9119

9130

9140

9155

9170

3158

3163

88584

2406
3153

2411
88724

2506

88674

2666

89234

4751
5919

4871
61184

9124
2651

2656

2661

2416

2421

89334

89494

3223«
3231
4826
3596

3231«

7207«

7229+

5665

62624

6265

3851
51
6941
3339+
5481

3866
5179
6958
3348+
5534

3992
5194
6973
5642
5547

Lhsd
5230

4470
5270

4508
5420

4539
5435

457
5595

4649
5610

4709
5761

3532

3633

3427+
3321

434
3429

3451
3469

3467+«
3582

3499«
6042

3518

3620

3687

5956

6059+

RN
=IOMMMOMNDEZR

MACY11 30(1046)

FRXCmITOTMTMOMNMDZRBr

{:0 UNIBUSS RK6 DR_PRTZ2

CZR6IFO UNIBUSS RK6 DR _PRT2
CZROIF.PN
04=JAN-82 12:46
DRIV1
DRIV
DRIV
DRIV4
DRIVS
DRIV6
DRIVZ?

007500
007502
007504
007506
007510
007512
007514

000040
000010
000007
001342
040000
177570
010000
000040
054124

DT13

054462

DT14
DT15
DT3
DT4
DT6

054542
054632
054164
054170
054236

2342
90284
2337
2542
2241

DT8
DT9
D.ACLO=
D.BRHM=

054350
054416
000100
000100

3009
2377
1308#
1295#
4554
5235
1297#
4554
5235
12834
12964
4554
5235
1280#
4552

054302

D.CART= 000400
D.DDT = 000400
D.DOOR= 000200
D.DRA = 000040

D.DRDY= 000200
D.DROT= 020000
D.DSC = 040000
D.FLT = 000200
D.FORM= 001000
D.FWD = 002000
D.HDFL= 000200
D.HDHM= 000040

SEQ@ 0196

21394
21404
2141m
2145:
214
2144n
21454

DROT
=
DRPAR =
DRVMSK=
DRVPTR
DSC
=
DSWR =
DTE_
=
DTYE
=
T

DT?7

B 16

MACY11 30(1046)
04-JAN-82 13:04 PAGE 198
CROSS REFERENCE TABLE == USER SYMBOLS

12534
12324
12124
19714
12594
10644
12414
12344
2170

2256
2437
2597
2833
2266
2402
g?zz

2843

5233
1282¢
4552
5324
13154
12894
13094
12844
12994
13234
12944

3490
3321+

3603
3692

1872

3222

3523
2176

3624
2182

2261
2472
2602
2838
2276
2407
368§’

2271
2477
2607
2873
2281
2412
3109

3710+

2188

2287
2482
2617
2943
2292
2417
3114

2367

2372

2497

89664
2547
2251

2868
89754

89674

4094
4654
5307
4094
4654
5307
4094
4654
5307
4092
4652

89834

2199

2307
2502
2622
2948
2297
2422
3119

2205

2312
2507
2647
2953
2302
2652
3124

2211

2347
2522
2697
2958
2317
2657
3129

2216

2352
2527
2712
2968
2322
2662
3134

2221

2357
2562
2798
2973
2327
2667
3139

2226

2231

2362
2567
2808
2978
¢332
2918
3144

2397
2572
2813
3014
2382
2923
3149

2236

2246

2427
2577
2818
89594
2387
3074
3154

2432
2592
2823

2392
3079
3159

2512

2517

2552

2557

2582

2587

9017#

4113
4672
5326
4113
4672
5326

4201
4724
5378
4201
4724
5378

4220
4773
5397
4220
4773
5397

4267
4836
5501
4267
4836
5501

4284
4962
5520
4284
4962
5520

4346
4981
5555
4346
4981
5555

4365
5015
5574
4365
5015
5574

4399
5034
5680
4399
5034
5680

449N
5076
5809
449
5076
5809

4518
5094
5854
4518
5094
5854

4113
4672
5326
41
4670

4201
4724
5378
4199
4722

4220
4773
5397
4218
144

4267
4836
5501
4265
4834

4284
4962
5520
4282
4960

4346
4981
5555
4344
4979

4365
5015
5574
4363
5013

4399
034
5680
4397
5032

449N
5076
5809
4489
5074

4518
5094
5854
4516
5092

5092

5251

89914
89994

3900
4581
5253
3900
4581
5253
3731
3900
4581
5253
3898
4579

5251
3898
4579
5376
5797
4670

5305
4092
4670
5395
5842
47N

4510

4573

6621

5324
41
4722
5499

5376
4199
4771
5518

5395
4218
4834
5553

5499
4265
4960
5572

5518
4282
4979
5678

5553
4344
5013
5807

5572
4363
5032
5852

5678
4397
5092

5807
4489
5251

5852
4516
5305

CZR6IFO UNIBUSS kké DR_PRT2
CZROIF.PI
04~JAN-82 12:46
D.IDAE= 000040
D.ILF = 000400
D.LIMD= 020000
D.LOAD= 010000
D.MHD = 000400
D.NMOV= 010000
D.OFF = 002000
D.PAR = 001000
D.PIP = 020000
D.PLO = 004000
D.REV = 004000
D.RTZ = 020000
D.SECT= 000020
D.SKI =
002000
D.SPIN= 010000
D.SPLS= 010000
D.SPOK= 001000
D.SSP = 000020
D.SUNS= 040000
D.TIB = 002000
D.UNLD= 040000
D.UNS = 040000
D.vv = 000100

D.WCUR= 00004
D.WGAT= 000100
D.WLE = 004
D.WRL = 004000
D.XERR= 001
ECCW = 020
ECH
= 0001
EMTVEC= N00030
EM1
04633
EM10
047105

EMI00
EM101
EM11
EM12

051752
052007
047170
047234

EM13
EM14
EM15
EM16
EM17
EM18
EM19
EM2
EM20

047272
047314
047352
047461
047524
047545
047566
046405
047607

13074
13104
13294
13014
13244
13284
12854
13114
12884
13274
13004
1302#
13204
13124
12874
4552
5233
13144
1298%
4554
5235
12934
4554
5235
13304
13264
13034
13164
12814
4489
gggg

€ 16

MACY11 30(1046)
04-JAN-82 13:04 PAGE 199
CROSS REFERENCE TABLE == USER SYMBOLS

6638
4652

4670

4718

4652

5074

5233

3856

5184

3898
4579
5251
3900

4581
5253
3900
4581
5253

4722

4765

5425

5600

6963

4092
4652
5305

411
4670
5324

4199
4722
5376

4094

4113

4201

4654
5307
4094
4654
5307

4672
5326
4113
4672
5326

798
4516
Sggg

3811
4552
5233

3898
4579
5251

3207«

3239«

2540
2580
2209
%%l?

3206
84204
84864
87444
87494
84954
%%5?’

2234

2310
2335
2350
2951
2315
%264
320
2168
2274

2395
85094
85144
5956
38C
2279
2325
84284
2290

13214
13224
13134
12864
13254
12744
12354
11534
6068
2203

SEQ 0197

4724
5378
4201
4724
5378

477N

4855

5074

5092

5233

5251

4218
477
5395

4265
4834
5499

4282
4960
5518

4344
4979
5553

4363
5013
5572

4397
5032
5678

4489
5074
5807

4516
5092
5852

4220

4267

4284

4346

4365

4399

44N

4518

4773
5397
4220
4773
5397

4836
5501
4267
4836
5501

4962
5520
4284
4962
5520

4981
5555
4346
4981
5555

5015
5574
4365
5015
5574

5034
5680
4399
5034
5680

5076
5809
449N
5076
5809

5854
4518
5854

4092
4652
5305

41
4670
5324

4199
4722
5376

4218
477
5395

4265
4834
5499

4282
4960
5518

4344
4979
5553

5013

4397
5032
5678

2305

2560

2565

2570

2575

2590

2615

2695

2796

2831

2470

2620

8506#

2966
2390
2295
2385

2971
2405
2415
2400

85274
2650
2655
2410

2916
3077
2660

3072
3097
2921

3127
3107
3132

3147
3117
3152

3157
3137
3162

85334
85364
8539+

2300

2330

2420

2665

3102

3112

3122

3142

85424

CZR6IFO UNIBUSS RK6 DR_PRT2
CZR6IF.PN
04~JAN-82 12:46
EM21
EM22
EM23
EM24
EM25
EM26
EM27
EM3
EM36
EM39
EM4
EM4O
EM4T
EM5
EMS5
EM6
EM63
EM65
EMS9

047630
047652
047757
050057
050112
050164
050243
046475
050362
050425
046550
050474
050532
046624
050600
046645
050633
050654
050676

2219
2475
2480
2285
2360
2425
2435
7009
2545
2365
84464
2370
2340
2174
2710
2180
2806
2841
2976

EM73
EM74
EM79
EM8
EM80
EM81
EM82
EM83
EM84
EM85
EMB6
EM88
EM9
EM93
EM9%
EM95
EM96
EM97
ERRVEC=

050727
050750
050775
046755
051016
051055
051121
051173
051230
051321
051364
051422
047031
051463
051544
051600
051634
051665
000004

2595
3012
2600
84704
2239
2244
2249
2254
2596
2345
2550
2430
2197
2375
2495
2500
2520
2525
11464

E.AO0

007444

21104

E.A1

007450

E.A2

007454

E.A3
E.BO

007460
007446

EM?7

001400

2186

D 16
MACY11 30(7046)
04=JAN-82 13:04 PAGE 200
CROSS REFERENCE TABLE == USER SYMBOLS
g229
5484
85614
85734
85784
85854
85934
84384
2866
2510
2515
86254
2605
86324
84574
86374
86404
86434

2259

2269

2811

3007
2645

86074
2816

86134

2821

86204

SEQ 0198

2836

2871

2946

85454

84544

84604

86484
86514
86554
86584
86644
86714
86794
2601
2355
2555
87054
84784

87114
87204
2505
87304
87354
3220

2606
86944
2585

86844

87004

87254
3221

3232+«

3241+

3242+

3255«

3256+

3324+

3328+

3335+

3373+

3391+

3898+

4092+

4111x

4199+

4218+

4265+

4282«

4344*

4363%

4397+

4489+

4516%

6285+
21124
4554%
5235+
6286
211644
4556%
3ggg'

6289+
3900*
43581
5253«
6297
3902«
4583%
2399+

6293
4094*
4L654v
5307«
6299
4096%
4674
5503«

6295
4113+
4672%
5326
6344
4115+
4775
5522«

6324
4201+
4724v
5378+
9007
4203+
4838+
5557+

9007
4220
4773%
5377+«
9017
4222+
4964+
5576%

9017
4267+
4B36%
5501*
9028
4269%
4983+
5682+

9028
42B4r
4962+
5520+

4346%
4981+
5555«

4365%
5015+
5574+

4399%
5034+
568G+

4491+
5076%
5809«

4518
5094+
5854

4286*
5017+
5811+

4348+
S036+
5856+

4367+
5096%
6287+

4401%
5255«
6301

4493+
5309+
6303«

4520+
5328
9017

21164
21114
4553%

6288+
3899+
4580+

4093+
4653

4112+
71*

4200+
4723+

4219+
4772+

4266%
4835+

4283+
4961+

4345%
4980+

4364
5014+

4398+
5033+

4490%
5075+

4517+
5093+

¥g92'

4552%
5233+

7168

4579%
5251+

7169

4652+
5305+

7171«

4670%
5324%

7174+

4722+
5376+

4771*
5395+

4B34x
5499+

4960+
5518+

4979+
5553+

5013+
5572«

5032+«
5678+

5074+
5807«

5092+
5852+

FATT2
FHDHM
FHDTAB
FLGTST

032766
35126
035250
035530

FMTE
=
FMT1
FORM
FORMAT
FRCYL
FRDY
FRDY1

00002
001470
031220
001466
001344
032356
032424

FLOAD

FSEC23
FTITLE
GBA
GDRVS

GINT

GNS

5853+
4519+«
5095+
5855+

3724

5500+

*» % %R

015470
032672

5396+

9028
4221%
4774+

SEQ 0199

s Snasnaso v
MONWVMIONO W
NONONOVON O
OO0 SN
N0oo

E.DDT
FATT1

E 16
MACY11 30(1046)
04=JAN-82 13:04 PAGE 201
CROSS REFERENCE TABLE == USER SYMBOLS

6319+

4521+
5329+
9028
4522+
5330+

VIiONn
O
S8
NV

007462

oF
&

E.B3

» »

007456

[rry

E.B2

» »

007452

oo =2 00N = O NN —
OO N=NWV
OO W

E.B1

(Y
LNIV VN VT, NN
NV ¥ N =
NT. XV
WWN = NN =

CZR6IFO UNIBUSS RK6 DR PRTZ
CZR6IF.P11
04-JAN-82
1

035202

6661

6690

5669

6121

035036
001340
32164
032024
032212
AARAAR

6132

61444

6147

6478

8154

GO
= 000001
GSTAT
033722

4828
5745

6620

GSTAT1
033756
GSTAT2 034206
GTSWR = 104406
HASOF
007372
HBA
007362
HCS1
007354

d§§£=§&22§
bor;amw-w

gmgoomvnbba
o

007364

HDA

O\WQ%MU‘MJ\
SO0 S OWN=-2~y

007356

HCS2

3890+

CZROIFO UNIBUSS RK6 DR PRTZ
CZR6IF.PI1
04=JAN-82 12:4

F 16
MACY11 30(1046)
04-JAN-82
13:04 PAGE 202
CROSS REFERENCE TABLE -- USER SYMBOLS

WDB
WDC
WDS
WDTAB
WDWD
WD1
HEAD
HEADA
HER

007376
007374
007366
001522
001510
001464
001460
001462
007370

20834
2082¢
2079#
20420
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

899
8985
5728

6656
4435+
6SBS*
3626

6657%
4605+
6586+
4078

6658+
SB93*
6587+
4185

6659
6655

6660%
6732

6667

4249

4256

HMR1
WMR2

007400
007402

2084#
2085#

6185+
3489

8960
3602

8969
3763

8977
3798

8985
3811

WMR3

007404

20864

5797

5842

6163%

6168+

6187+

HOLD

032512

8963
5933
8963
7361

8972
5935+
8972

8980
6953+
8980

8988

8996

8988

8963

8972

8980

8988

6454r

9007

9020

9031

6455+
644B*
6564
6574

9007
9007
9020
6584

9020
9020
9031
9031

9031
9031

8165
8245

HPAT
007410
HPEND
007342
HPOS
007406
HT
= 000011
HVRC
= 000400
HIC
007360
HZ
001364
H.AQ
007424
H.A1
007430
H.A2
007434
H.A3
007440
H.B0
007426
H.B1
007432
H.B2
74
H.B3
007442

IDAE =
IE_
=
ILF__
=
INTER
I0TVEC=
=
LC
LCLKF
LCVEC
LF
=

LIMERR
LkS
MASK
MASK1
MCLK =
MCT
MDS
=
MEMBAS=
MEMERR

MEMPAR

002
000100
000001
036756
000020
000100
015460
007516
001330
000012

001514
001326
015464
015466
000400
015462
001000
172100
036714

013072

8969

5625
8960
8969
6148

2088#
20564
20874
10564
12374
20764
19824
20994
21014
2103#4
21054
21004
2102#
21044
2106#

12390
11984
12294
6110
11514
12164
3723«
21470
19614
1057#
8220

8297
8371
8555
20384
19594
3726%
3727+
12694
3725+
1219¢
19654
3247
32410

8977

5600
8969

8977
6152

6189+
3318+
6188+
7303
6178+
6859
6324
6344
6439«
6431+
6334
6354
6440%
6432+

7049
3204+

B985

8160+
8977

8985
61764

6447+
6551

8993

6167%
8985

8993
6425

9007
9020

37374

3888

7361
8232
8307
8385

8161
8238

8566

8315
8393
8578

3325
3733«
3734

6848+
3738
3740

6869+
6512
6507

3732«
3528
3244

37384
3629
3253

5756
6401

70354

8186+
8993

9001

9020
9031

90064
8993
5735

9014
9001
5738

9025
9011
5888

9037
9022
6653

9034

4475

4946

5291

5492

6182+«

8960

8993
3856

9001
4510

9011
4573

9022
4718

6506

9034
4765

6621

4855

6638

5184
6963

6432

6440

6448

6455

6494

6541

8960

9004

9014

9025

9037

8996

9004

9014

9025

9037

8996

9004

9014

9025

9037

8167
8250

8171
8258

8181
8263

8190
8270

8197
8279

8205
8284

8210
8289

8215
8295

6542

6552

6565

9011

9022

6431
9001

6439
9011

9011

9022

9034

6447
9022
9034

. 6454
= 9034

9031

3205+

3730+
3326+
3327
7355
8226
8301
8379

8561

9001

SEQ 0200

8325
8399
8598
6557
6533
:
3877

8330
8406

5912

8337
8411

8341
8414

8343
8420

8347
8438

8351
8446

8359
8521

8363
8548

CZR6IFO UNIBUSS RKé6 DR_PRT2
CZROIF.P11
04=JAN-82 12:46
MEMVEC= 000114
MERD = 001000
MESMSK= 000017
MEWD = 002000
MIND = 000200
MSG1
043542
MSG10
045105
MSG11
045132
MSG12
045172
MSG13
045337
MSG14
045435

19668
12704
12644
12714
12684
6018
34206
7082
5206
3349
6271

MSG17
MSG2
MSG26

3080
3272
4027
4974

MSG1S
MSG16

MSG27
MSG3_
MSG37
MSG38
MSG39
MSG
MSG40
MSGS
MSGE
MSG7
MSG74
MSG7S
MSG76
MSG77
MSG8
MSG9

MSP

MULT6

045460
045472

(45516
044403
045546

M.ALGN=
M.DPID
M.DP40
M.DP41
M.DP42
M.DP44
M.DPSO
M.DRV =
M.HEAD=

M.ID

045624
044562
045654
045732
046012
044614
046054
044661
044742
044776
046167
046235
046272
046314
045033
045072

100

035714

040000
037100
037136
037172
037202
037234
037246
000007
007000

= 000003

M.PAR = 100000
M.SECT= 000760
M.SER = 077770

G 16

MACY11 30(1046)
04-JAN-82 13:04 PAGE 203
CROSS REFERENCE TABLE == USER SYMBOLS
3247+

3689
3288
5158
5171
5134
3200
4026
3292
7054
3307
6932
6934
6985
6990
5047
5051

81614
3466
83014
83074
83254
83374
3711
83430
83474
82384
4054
5027
83594
825
83634
83714
83794
82634
8385#
82704
82794
8284H
83994
8406H
84114
8414H
82894
82954

6752

67784

3548
3760

12674

13400
70974
7108#
71
7119
7132
7106
13344
13420

13394

13434
136414
13354

3248+

82974

83414

4106
5319

6898
6495

4253
5567

3635

3638

6397

5132
5229

5148

5156

4358
5749

4449
5905

5165

5169

6575

3534
:
3668#

3546

OFFERR 001456
OFFSET= 000015
OFST = 000004
0PI
= 020000

20184
11894
12504
12420

5059+
4648

5130+
5070

12314

4213
5513

6585

12224
12214
3560

= 000004

4160
5390

7130
71214
71254
71384
7143%

NED
= 010000
NEM
= 004000
NUDRV ~ 015172
NXF

SEQ 020"

5959

4503
83514

4566

4617

4818

4830

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

H 16
MACY11 30(1046)
04=JAN-82 13:04 PAGE 204
CROSS REFERENCE TABLE == USER SYMBOLS

0.ADR1
0.BACK
0.8D
0.BKPT
0.Bk1
0.BK2

9369+
9454n
9600
9417
95774
95854

055664
056410
057702
056116
057050
057104

9318«
9413
9599
93644
9312
9582

057204

9596

0.Bk3
0.BRK
0.BUF

057122
057040
057731

0.83
0.CADV
0.CLGL
0.CLGT=
0.CLST
0.CR
0.CRET
0.CRLF
0.CRLS
0.CRS
0.CSR1
0.CSR2
0.CT
0.C1

057244
057414
056232
000014
057640
057704
056344
057650
057656
057662
057700
057701
055666
057016

0.82

0.DCD
0.DCD1
0.EFF
0.EFF1
0.ENTR
0.ERR

056162
056166
056472
056610
055676
056146

0.ERR1
056502
0.ERR2 056322
0.FTYP 057556
0.GET
057500
0.G0
056654
0.G02
056732
0.LG_ =
006
0.LGCH 057707
0.LGDR 056262
0.LGL =
30
0.LGL1
056234
0.LGL2 056254
0.MSK
055656
0.0DT_
055672
0.0FST 056420
0.0F
56466
0.0P1
056356
0.0P2
056364
0.0RPC 056070
0.P
057677
0.PRI
055654
0.PROC 056762
0.PR1
057004
O.RALL 056136
0.RCSR= 177560

9584
9329
9657

95914
95754
9666

9604
9430
9387
9401
9724
9733
9408
9445
9382
9734
9633«
9634
9562
95654
9370
93834
9416
9493
93094
9356
94854
94278
9381
9335
9410
95434
9339
9398
9405
94194
93984
9399
9486
1360
9414
9473

96134
9447
9389
97664
97264
9735
94374
9502
97354
97364
9649
9650
9605+
9606

9411
9360
93524
9327«
9319
9418
9561
9330
92974

96054

9371+

9541

9542«

9580+

9595

9612

9504

9508

9613

96564

9642

97334

9748#

9671

97764

9470
93974

9474

9736

97504

9598

9637

9744k
97454
9607+

98044

9372
9431
94814
95124

93824
9475

9439

9490

9615

9367

93794

9402

9427

9485

9728

9534
9464
96794

9506
9684

9611
9686

9682
9688

9698

9558
9461
9449
9385
95324
9568
774N
97544
9074
9403
94044
9487
93074
94604
94754
94434
94458
9412
9532+«
9581
95574
95634
9365
9633

SEQ@ 0202

9766
9419

9489
9785

97944

9456
9557
9585

9559«
97954

9608+

97424

93714
9635«

9645

9647

9649

9679

97034

98034

116

CZR6IFO UNIBUSS RK6 DR PRTZ
CZROIF.PI
04~JAN-82 12:4

MACY11 30(1046)
04-JAN-82 13:04 PAGE 205
CROSS REFERENCE TABLE == USER SYMBOLS

0.RDB = 177562
0.REGT 056020
0.RSE1
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.SP1
056050
0.STM = 000340
0.STRT 055722
0.SVR_
057256
0.SVTIT 057314
0.7
057676
0.TBIT 056704

92964
93354
9646
93374
9308
9538
9316
9326«
9346
9338
9654
93434
92864
9307
9317
9597
9539«
95394

9681
9409
96494
9340
93174
9564
9324m
95524
93854
93474
9667
9348
9328
93144
9577
9609
9566+
9579

9352
92994
9298%
9336
9371
92854
9601
9696
97094
9318
9311+
9314
9315+
9309+
9482
94894
95004
9500
9407
9424
94264
9415
9619«
9325

9437
9634
9705+
9339
9542
9310
9672
9707
9710
9541«
9536%
9344
9620+
9540+
94844
9511
9513
95104
946234
94324
9433
94834
9627
93274

0.TBT = 000020
0.7C
057642

0.TCLS 057624
0.TCSR= 177564
0.TDB = 177566
0.TL
057723
0.TRTC 057740
0.TVEC= 000014
0.TYPE 057542
0.TYP1
057622
0.TYP2 057602
0.UIN
055670
0.UPC
055650
0.UR0
055632
0.USP
055646
0.UST
055652
0.WwDS_
056500
0.wWDS2 056516
0.WDS3 056546
0.wWDS4 056604
0.WRD
056312
0.WRDA 056336
0.WRD1
056320
0.WSCH 056476
0.XXX
057674
0.45
055776
PACK
= 000003
PARAM
001336
PARSRT 012546

PCA
PCO
PCLKF
PCVEC
PCYL
PFSRT
PGE
PIP

= 000020
= 004000
= 010000
007520
001332
001352
015472
= 002000
= 020000

92874
9721

11844
19684
1357

12654
12724

12734
21484

19624
19764
37434
12204
12584

9540
97274

96424
9396

9537

9563

96194
96334
9578

97414

9567

9603

9443
9636*
9711«
9347
97814
9328+
96954
97154
9713
9580
9551
97864
9621
9550

9454
9643

97204
9650«

97684

9774

9329+
9699

9737

98054
9575«
97924
9567«

9519

9703

9709

9592

9594«

97934

9576*

9583

9603*

9450
97404
3173+

3285

3330«

3337«

6846

7084

9565

9528

3807
3170+
31704

3331

SEQ@ 0203

3338

6867

97944

CZR6IFO UNIBUSS Rk6 DR PRTZ
CZROIF.P11
04=JAN-B2 12:46
PIRQ = 177772
PIRQVE= 000240

PKRB
PKS

001324
001320

19584
19564

19574
21320
3171
10804
10814
1082#
1083#
10844
10854
10864
10874
1060#
19894
10614
11524
65204
6369
6366
7768
65394
65044
11914
12764
11934
6037
6082
64924
20504
11990
11884
7902
11474
6374 "
20434
11704
11654

RKCS1 = 000000

1163

RKDA

= 000006

RKDB = 000024
RKDC = 000020
RKDS = 000012
RKECPS= 000030
RKECPT= 000032

SEQ 0204

10634
11574

PKSB
001322
PPTP
007472
PRGSRT 012562
PRO
=
PR1
=0
PR2
= 000100
PR3
= 000140
PRG
= 000200
PRS
= 000240
PR
= 000300
PR7
= 000340
PS
= 177776
PSEC
001376
PSW
= 177776
PWRVEC= 000024
QKCYLD 034466
RCYLA
034714
RCYLD
034642
RDCHR = 104410
RDCYLA 034572
RDCYLD 034402
RDDATA= 000021
RDGATE= 100000
RDHEAD= 000025
RDLIN = 104411
RDOCT = 104412
RDSEC
034332
RDTAB
006336
RDY ~ = 000200
RECAL =
000013
RESREG= 104414
RESVEC= 000010
RHEAD
035010
RHTAB
001726
RKASOF= 000016
RKBA = 000004

RKCS2 = 000010

J 16
MACY11 30(1046)
04=JAN-82 13:04 PAGE 206
CROSS REFERENCE TABLE == USER SYMBOLS

4325«
5654+

3329
6850+
3276+
31760
3176

3336

6851+

6871+

6069
3239

3240

3368

3248

3392

7079

7080

3211%

7069+«

7078+

7079+

6599
4297
6146
5178

6602
4305
6158
5419

6750
6526
5594

6957

6584#
4B11
3382
3378

4849
4645+
3884+

6757
4690%
3937«

6759
4734+
3955+

6763
4786+
3964+

3375

3481«

3504v

3848+

1955
3341
3242
1061

3210+
65644
65514
81504
3890
4812
7842
6095
6595
4239
5667
3850
7954

4384r
5738+

5176«
6158

5191%
8176

5482+
6476

5535+
64B0*

11674
4707+

11664
4460%
Hiew
11714
11684
11764
177

4243
B151#
81524

B1S4r

4428+
5788+
5267+
G426r

9254

L461v
5833«

8999
5226*
4044

6183
4067+

6218
4143%

3863«

4088*

4195%

4485+

4706%

3587+
5119«

3591«
5177+

3849
5192«

3B64r
5268+

4175%
5281%

4599+
6179

4933x
5592«
Bh6Ir

5301%
B434r

5417«
B442v

5432«
§450%

5608+
§971x

5655«

5789+

3376
4826

3460
4934+

3474+
499%+

3379
4533x
338
3383
3380
3388
3389

3886«
4932+
43
3888«
4181
6188
6189

3939«
4996+
s
4806+

5593«
8956+

4531
5888+

6766
5064*
3973%

3478+
5109+

3957«
5086
W81
5480+

3966+
5121«
482
5533+

4993+
5607+
§524x

5118+

5660%
§526

5834r

8177

6414r

3975%
5279
Age3
5740«

4066*
5359s
d006
5758+

4172+
5657%
5129
5787+

5280«

6244
4173¢

4239+

4716%

4956+

6130+

6144

4324v
5357«

4462¢
5418+

4532+
5433+
4386+

5358+

S54B1v

5667
6955+

6119«
6970w

6427+

8435+

4238*
6180
5369
5890+

4314v

4327+

5546
5915+

6184

6443r

4312e

5534e
5108+

6451e

K 16
MACY11 30(1046)
04=JAN-82 13:04 PAGE 207
CRO3S REFERENCE TABLE == USER SYMBOLS

CZR6IFO UNIBUSS RKé DR PRTZ
CZROIF.P11
04=JAN-82 12:4
RKER = 000014
RKMR1 = 000026

1169#
11734

3381
3385

RKMR2 = 000034
RKMR3 = 000036
RKPRI
001316
RKVEC
001314
RKWC
= 000002

11744
11754
19554
1954¢
11644
4600v

3386
3387
6111
3312«
3377
1935+

RLS
RSEC

= 000010
034752

12134
6373

65744

SAVREG= 104413
SBPAR
036214
SCLR. = 000040
SCOP1 = 104415

7887
6294
12154
71

7928
6298
3460
3584

SCOP1S
SEC
SECFLG
SECNT
SECTOR

6908#
19364
6669
19884
19914
4459%
§296*
6578«

8155
6860+
66894

11904
1183
3313
21504
12304
67484
9232
11874
2044k
92834
1051#
4022
5350
5986
1355
32664

RTT

= 000006

036266
001370
035430
001374
001402

642B%

92894

SEEK =
SELDRV=
SETINT
SIZFLG
SKI_
=
SORT
SPACE2
SRTSPL=
SRTTAB
ST
=
STACK =

000017
000001
032244
007524
000002
035606
055606
000011
002132
177776
001100

STAPT
START
START1
STKLMT=
STOP
sT2
ST3
sT4
STS
SUBCLR

031672
012556
013200
177774
036320
013250
013314
013
013372
034252

SVAL
SWR

= 100000
001140

10624
5937
3274
3275
3287
329,
3757
4381
5705
12604
1872#
015

6182
3761+

B44hr

B4BIx

6492+

6504r

6521%

6539+

5598«

6185

6224+

6228%

6248+

6252+

6099«
3889«
4995+

6102+
4045+
5120«

6109
4068+
5282+

4144*
5358+

4176%
5483«

4240
S5536x

4326%
5856+

4385+
5739«

4429%
5790+

4463%
5835+

4530+
5889

81534
6302
3474
3801

9198
6306
3587
4059

6310
6476
4165

6314

6318

688K

4232

4318

4378

4453

4593

5349

5778

5826

4065*
4460
5297
8579+

4066
44B0*
5359
659

4083+
4481
6494*
6600

4084
4533
6495+
6603

4171%
4931+
6496*
6751+

4172
4932
6497+
6755

4190%
4951%
6498
6756+

4191
4952
6499%
6757+

4238
4996
6574%
6768

4314
5121
6575+
6778+

4327
5278+
6576%
6779

4386
5279
6577+
6780

3991
3479
6100
3314+

4750
3592
61094
3464

4870
4443

5760
4469

5918
4507

4538

4570

6415

6460

6522

6055«

6075+

9241
6940
6760

9252

9264k

9309
3175

4060
5469
59924
31734

9310%
3202

4138
5640

9323«
3366

9563+
3472

9565%
3580

9591a
3585

4423
6379

3683
4454
7043

3753
4594
7081

3793
4638
9260

3802
4926

3842
5219

69234
32854
33034
8
33
3795
4425
5783

7609

7692

3314
3457
3804
4456
5829

3522
3844
4596
SB8S.

5998
3875
4642
64764

6992
3913
4802
6925

3987
4867
6937

4030
4928

4062
S061

4140
5223

4168
5352

4235
5477

4321
5647

3200
7020

3222«
7039

3224
7163

3230
7177

3237+
7179

6024
7185

6330
7192

6340
7230

6350
7237

6360
749

6908
7253

7007
7612

§436%

6162
6163

3854%

6167
6168

4166
5720

5182«

6186
6187

9537+
3417

4233
5779

5339+

SEQ 0205

6532

4319
5827

5423«

4379
5954

6619+

6636+

6961+

b—

CZR6IFO UNIBUSS RK6 DR_PRT2
CZROIF.P1
04-JAN-82 12:46
SWREG
000176
Sw0
= 000001
Sw00 = 000001
Sw01
= 000002
Sw02 = 000004
sw03 = 000010
Sw0é = 000020
SW05 = 000040
SWwo6 = 000100
Sw07 = 000200
Sw08 = 000400
sw09 = 001000
sw1_
= 000002

13534
11154
11054
11044
11034
1102
11014
11004
10994
10984
10974
10964
11144

SWw13

10924

SWw10
SW11
sSwi2

= 002000
= 004000
= 010000

SW14
SWwi5
sw2

= 040000
= 100000.
= 000004

SWw3
Swé

SW5
sSwé
sSw7
Sw8
Sw9

= 020000

= 000010

= 000020

=
=
=
=
=

000040
000100
000200
000400
001000

TBITVE= 000014
TEMP1
007412

L 16

SEQ 0206

6024

7612

7651

7674

6330

6340

6350

6360

6908

7015

7039

3461+

3475«

4665%

4754*

4B74+

3484+

3489+

3490+

3491

3588+«

3595+«

5922+

6120

6131+

6146+

6305+
6463%

6307
6477+

6309«
6520

6311
6525«

6313«
6528+

6315
6534

6317«
6594

6319
6606*

6321
6618+

6413
6623+

6418+
6635+

6424
6640%

6457
6671+

3878+

3916«

3917

3953«

3962«

3971«

5187+

428+

5603+

6222«

6625+

3950«
3955
3956

3951
3963«
3957

3960
3964
3965«

3969
3972«
3966

3973
3974«

3975

5646

5657

5722«

5730

5733

5740

10954
10944
10934
10914
10904
11134

3230

1112
1111
1110
1109
1108
1107
1106

9256
7007
7020

11124

11114

11104
11054
11084
11074
11064

11484
20914

3604

3995+

007414

20924

3859+

TEMP3
TEMP4
TEMPS

007416
007420
(07422

20934
20944
20954

3879+
3883+
3885+

TERR1
036036
TIMUP
001372
TITLE
031744
TKVEC = 000060
TOCYL
001346

6798
19874
3268
11554
19748

TPVEC =
TRAPPC
TRAPVE=
TRT
=
TRTVEC=
TRUERR
TSTATN
TST1
TST1I0

11564
19664
11544
92884
11494
4080
3868

6672«

5693

5755«
8967

3342
3943

6673

5695«

6675
3919
3884
3886

5723«

3482+

6676

3924
3937
3938«

5754+

6944
3929
3954+
3939

5883+

5087+

6966+

5910+

5246

5662%

5764*

6802
6845+
3306
7584«
4145«

6809
6856
60154
7585+
4147

6813
6R62+

68274

6832

6839

4430*

4434

4601

4604

4805+

4849

7036+
3208+
9781

8966
3209+

3240+«

7080+

4187
4711
33644
3979

4477
5113

4948
5196

5293
5272

5494
5437

67924
5612

61978

6975

5756
8991

5775«
8999

40204

5781

5787

5821

1
‘

1115
1114
1113

TEMP2

000064
001334
000034
000003
000014
035736
032640
013562
016730

MACY11 30(1046)
04-JAN-82 13:04 PAGE 208
CROSS REFERENCE TABLE == USER SYMBOLS

5876x

5877

5882«

5890

3597+«

5892

3602+

5911«

3603+

5912

CZROIFO UNIBUSS RK6 DR PRT2

CZRGIF P11
TST11
18Tie

01743
62120

18T

302

1STS
ST
TYPE

H
*He
e
ST

35
66%
g
13744

~JAN-82 12:46

$800" 492un
166 52i7H
A
%
g«1s:
5652

se%

Q1347
1562

28
756

735
3791

37514

= 104401

288

gzoo

o1ss8

TYPERR

055332

TYPOS = 104403
T.A2 = 000001

= 000002

¥i°3 e 601i64

710

001406

7100

001414

1300

15000

= 040000

14 5
00145
001454

SED = 001900
WRDATA= oooogg

90
5
5171
g9%2
6]
7%
a3
9198

o8¢
4617
52
€9
2
7798
9236

3505
4101

3551
4120

§527
21228
4780°
ssg

4843
5562
4101
4843
5562

4969
5581
4120
4960
5581

1994

3461

3475

19978

6944

19984

4665

S087

%39%‘ oy

19994

WDCNT
W1
W2

3,39
21218
4780

001420

seam

. A e

19008

UNLD
732;
UNCOAD= 00000
UPE
= 030000
VERIFY 853?83
=

928
7239

001419

001416

SEQ 0207

41
44218

450
5158
1

150000

CROSS REFERENCE TABLE == USER SYMBOLS

1.82

MACY1] 30(1066) 0b-JAN-82 13:04 BAGE 209

igg

595

sTIeN

292

3307

4026
4830
530
499
rer
7803
9A3

4027
4974
5313

3715
4208

5054
4227

S137
4274

4988
5816
4208
4988
5816

8983
4298+
4299+

16300
11928 4071

7
7871
99

3426

4054
: 27
&
0%
7697
73
9252

4106

5749
7082
7708
801

4253
513
5953
73
1781
9209

4358
5140
6018
419
s
921

4449
5141

6274
4991
5101

7012
4353

7057
4372

8143
4498

4561

4679

4728

4291
5101

4353
5260

4372
s34

4498
5333

4561
5385

4679
S4o4

4728
5508

5603

6120

6463

6477

3484

3588

3597

3859

5187

5428

5246

659

«8n

S7e4

592

6131

5126

5367

5544

4754

354

421
057
5973
40
7775
9208

5041
6364
4276
5041
6367

3995

3502

&1
50
5905
72
7727
81414

5002
2861
4227
5022
5861

1815
3370 6928 6948+
1184
15338
?452’ 3458 35624
194 335 4391 4543 5004
0264
015#
QIeh

3349

9es
4818
5319
6985
3
7801
941

5260

5314

4337¢
433ge

4545
4Sebr

3006:
5007+

5120e
5370e

5369:
3347e

s3ge
897

8975

4178

4466

4939

5284

5485

5658

5792

5333

5837

5385

5404

754
7
9214

5508

$SERFLG

88110

1115

)

ST
I TSAe

5898

4329

4387

4535

4998

5122

5361

5538

76354

031576
03155g

5742

7618

SN S

SEOPCT
$EOP1

4610

7232

7320+
149
197

7353«

3206

3213

18834
7687
7917’
7790

18854

1887#

3984
9208

5057
9223

SO o
e

NOOO

$333

040506
045756
042634
001274
001276
001
001
001
001
001;1
001312
833134
1%20
801 66
031646
040476
031636
031604
031655
316;5
12
001231
031476

4440

SEQ 0208

781
7419
7990
78874

3693

5955+

5141
9249

7240

7265

7309

7361

7708

4450
5906

4504
5949%

4567
9261

4618

4819

4831

7227«

7265

9258

5956

$DBLK
$0B2D
$DB20
$ODWO0
$ODW1
$DDW
$DDW
$ODW6
$ODWS
$D
$ODW
SDECVL
SDEVCT
SDEVM
$DOAGN
SDTBL
SENDAD
SENDCT
SENDMG
SENULL
SENV
SENVM
$EOP

4153

7822
6086+

> et

$CHARC
0 63
$CKSWR
152
SCMTAG
1100
$CM3 = 000000
$CMé =
SCNTLC 0424
SCNTLG 042444
SCNTLU 04 4;:
$C
0012
SCRLF
001205

4047

74324
74340
28+
1>

Pt e o
ALl ¢ Fpe iy
S
N
=
—\n
SRES
Ty Nnee

Scoul 00157
$CDW2 001272

b d NN NN N D e e d d
—
V¥
O 8

0524
05
1
881
1122
0011

0516

2 13:04 SAGf 210

d e

SATY
SATYS
SAUTOB
$SBASE
$BDADR
$BDDAT

SATY

0542

1
MACY11 30(1046) 04=JAN-8
CROSS REFERENCE TABLE == USER SYMBOLS

b e

SATY(C

1000

SASTAT= meennn |

$SAPTHD

NN =

:46

WRHEAD=

WRL
=
WRTCHK=
WRTGAT=

—

CZR6IFO
IBUSS RK6 DR
CZR6IF.P1
04~JAN-82

7526

SESLAP

001176

SERR

D 1
MACY11 30(1046) 04=JAN-82 13:04 PAGE 211
CROSS REFERENCE TABLE == USER SYMBOLS

001116

2583

SERRPC

v
S

CZR6IFO
UNIBUSS RK6 DR _PRT2
CZROIF.PN
04=JAN-82 12:46

7235«

7236

7265

8959

SEQ 0209

8967

8975

8983

18808 551an ;g?g “Eh7e 4
5069+ 5086+ 522
45+
57
2¢ 8326+ 8336+ 63der €356e 2396+ 4380s @o8)e 7033+ 7038
*

7462
7361

7471%

74794

19084
1396
19014
7631%
18804
18794
18634
18654
SO774
76738

8147

13894
7864+
18564
18704
18608

78754
7196+
7670«
7236+

7197
7689
7244

7199+
7709
7265

7210
7822
9199

SLFLG
SLPADR
SLPERR
SMADR1
SMADR?
SMADRS
SMADRG
SMAIL
SMAMS1
SMAMS?
SMAMSS
SMAMSS
SMBADR
SMFLG
SMNEW
SMSGAD
SMSGLG
SMSGTY
3
TYP1
SATYPZ
SMTYPS
SMTYPL
T
SMXCNT

77os
18574
18584
19264
19304
19334
19364
1390
19204
1928
19314
19344
13904
7432%
7676
19064
19074
19008
76
19214
19208
19324
19354
80324
7200

74TRN
3216%
3217+

7815

7876

7018
6381

7187+
6912

7203«
6915«

7208
7044

7210
7187

7204*

139

1899

3234

6022

7202

7242

7288

7438
78204
7448+
7453+
76k6
78184

7473«

7477H

001206

040761
001106
001110
001242
001246
001252
001256
001210
001240
001244
001250
001254
001002
040760
042462
001224
001226
001210
ga2es]
001241
001245
001251
001255
043244
037534

SNUTST= 000001
.

SOCNT
$GCTVL

041206
042736

8999

9203

SETABL 001230
SETEND 001314
SFATAL 001212
SEFLG
040
SFILLC
001136
$FILLS 00115
$GDADR 0011
$GDDAT 001124
ScET42 031626
SGTSWR 04161
$HD
= 000000
SHiBTS 001000
SHIOCT 0426
SICNT
001104
$INTAG 001135
SITEMS 001114
F

8991

1022

18934

19514
7468+
7434%
7313
7361

7065

2100

1900 5302
819

4450
S17¢

3764

dolow

5447
7546%
7889

7361

7805

7210

9007

881+ 5916%
7305 7356
*

9017

595
733

7255

7451
74S4r

7466

7470%

G006 00

3semr 3565

S620M
75594

56994

1012

7914n

Giger
5622

1g8

AAiZe
5701

3erar 3676

4415

623

3ese 3746

462S

1530

3785# 3787

2905

3307k

3817

3309

IBUSS RK6 DR_PRT2

~JAN-82 12:46

37%28
} 16
121

70 g
701
7 sz
001
wxnnen |J

062154
042474
22

71
3978

7535«

7207#
5365' 5966« 5974
7561»

5987

7361

7727

7798

7815

7873

7876

3204
7260

2
7610

3208
7615

3210
7616

3212
7646

1027
3216
4925
7156
7207

1028
3217
5218
7157
7210

29
3365
5468
7163
17

1030
3416
5639
7175
7218

7157
7202«
365«
468+
7341
7616
7607
775§
752
77 g
764
7339

7158
8959
3416+
5639«
7361
7633«
7668

7179
966
579«
5719+
7565
7747

7639%
7751«
77564
7361

33325 3320 3480
5471 5659 6118
1887#¢ 6322« 6376

3501
6159
6380

3515
6461

3943

40214

4126

7516«

7521

7075«
; 10
9
18914
774

7076
70990
70754
7265
8150

70864
7078

7634
7827’
77564

8151
8152

1§

043356
043150
037256

8082#
7988#
3204

177777
043204
037464
000244
167400

001232
000000
001214
001174

598

815

;1670
226
31674
3781
7172
13664
1007#
3213
4422
7154
;}Z%

7161#
3203
7252
3983
7%010
1371
1022
3214
4637
7155
7204

001146
041212
041222
041221
061214
041216
041220
001144
041272
001160
001162
001164

7584
18824
188
18844

75974

000021

7211

3213
7822

3214

3216

5963

6019

7162

1031
3579
5719
7177
7219

103
368
5946
7178
7220

1033
3752
5964
7181
7221

1034
3792
5979
7182
7230

1888
3841
5985
7183
7237

1889
4021
5987
7190
7249

1890
4137
7153
719
7253

8967
368%*
5953«
7586
7749«

8975
3752+
5964+
7597

983
792
7190+
7627

8991
3841
7197
7655

8
4021*
7200«
7682

9007
4137+
7210

9017
4422«

9728
4637+

7640+
7752

64
7754»

7643+

7565

7587«

7623«

7625

7631

7653

7669«

7679

7691+

3525
65%3

3593

3608

3611

3626

3670

3709

420
7 g

4120
78

§§63
9;0

80054

1008#
84

7194

8153

3237
1035
3684+
3213«
S§18t
34
7581
75814
7?41
7582+
7583«
7582
7332

001172

5994

8154

19114
1034
19024
18884
4925«
18754
S66#
180
S70#
75674
684
75694
}g;?:

88}}98

SEQ 0210

7SS£'

7512«

80984

137

CROSS REFERENCE TABLE == USER SYMBOLS

7164
71
}ggS: 7180
3226' 37

14
031650

tneven |

MACY11 30(1046) 04=JAN-82 13:04 sAGE 212

102
68

979

gSLg
72

4010

354
735

365#
744

3393
37524

4137¢

462

§S790
799

46374

14
812

4900

367
381

4903

3721
824
1#

49254

CZR61FO UNIBUSS RK6 DR PRYZ
CZROIF.P1
04=-JAN-82 12:4

$TNPWR

30?4

$TP8
1 ;
STPFLG
115
$TPS
821153
STRAP
gzs
STRAP2 043474
STRP = 000016
STRPAD
$TSTM
STSTNM

043506
001004
821103

STYPDS
STYPE
STYPEC
STYPEX
S$TYPOC
STYPON
$TYPOS
SUNIT

040272
037736
040150
040270
041010
041024
040764
001222

STTYIN
241
STYPBN= senwax |

SUNITM 001010
SUSWR
001234
SVECT1
001260
SVECT2 0012
$XOFF = 00002
SXON = 0000;1
SXTSTR 037270
$$GET4=

SOFILL 041207
$S4LOCAT= wewwnns |
"
= 055672

SASTA= senenr |J
X
= 001000

;9;$
1

;Sgs

18778
1881#
18764
3
129%
1334
154#
123
13914
19540

7350+
7 ai
7
8118#
8140
814§0
81554
81404

737
72828
731
7354
75154
7514
75104
1905#
5418
6435
13934
1912#
19374
19384
73
7343
71664

8145
7459
7319
7356
814;
75178
143
260
543
6443

7511«
7163
13474
18514
5987
75718
9680
7432
1378#

7515«
7239
13514
1894
5991
78144
9704
7435
1383

7765
8162'

59794

MACY11 30(1046) 04=JAN-82 13:04 PAGE 213
CROSS REFERENCE TABLE == USER SYMBOLS

;685'
766

7361
7361

§3

184

SEQ 0211

5445

5468

5620

S5639%

5644

5652

5694

5699

S719#

31430
156#

81444

BI14SK

B146K

8147

81484

8149

81504

81514

B8152#

;993-

996+

7152

7179

7201

7202

7207

7211

7229

7265

8133
7326
735#

8141
73314

7713

3695+«
5608
6480

3702
6198
6956

3712
6217
6971

3849
6243

3864
6285

4707
6286

5109
6287

5177
6288

5192
6414

5268
6427

13674

1369

1371#

1372¢#

1378

13814

1383#

21
7914%
97854

295
79764

61
BOSBN

4274
92738

4804
9274k

694
9644

70
9648

778

796

7810

78144

8153

8144

3323«
5593
6451

7599

7525

13564

20424

7071
7815
9766

75604

1359%

1366

7127
78228
9774

210
787
97774

20434

044#

;0460

0474

0494

0504

;§01

65
9419

;glb

§17

CALIB
CHECK

14854
lf o

§3§7

217&

S‘g?

GETPRI
GETSWR
HDCHK3S
HDTBL

LOOP

MULT
NEWTST

OFFDIR
OFSET
OWNTAG
POP
PUSH
OKSEEK
QKSRT

2y
5,
14

TE
5445
1825#
17824
13964

i
11
16214

$8%0

4705

5190

5266

5606

$2%

814

% \nvww'gm » ~oa SR
SFRRESUNS2gss
N33I £3

3676

gz&
oo#
4128

4165
3535
46224

4378
37440
4905

4453
74
2074

gzg;

3672

3817

4010

18750 &

wids
onN
WO
—WN

b
—

5677

o
VIS

356
41268
5701
11584
1158#

4833

443

580
5886
6530
1158#
3897
4769
5571
1158#
1158¢
4809
61%8

4
195
115

5817
5900
6926

NGO NN
S NN —

567,

&H goSEREIININ
VIVb3 S &

Sg 1
5315
5386
5497
5565

gog&

SRNITERR

3224
5303
5374
5487
5564

Sggg

VoW-—=

6522
45
4660
4730
4803
kssg

00”\0360’0

439

4499
4562
4659
4729
4798
2876

oAb

‘539

2583
NN O&OS

96
4031
6153

(-]

2
4001
4123

4669
5552
1L
#
15964
16094
14034

5560

e
S - HON
O oo NOOONOg N=2N
=

a
14194

6954

Vs
O —
N

ESCAPE
F.EAB

5082
5198
5299
53N
54
556
5670
5799
5868
6479

115

—
SEcasee

4992

OoWwn=—
Voo

612
422
4294
4382
4487
4550
4650
4720
4793
4872

5 390

3
7

OV
IV
\V_1V
]
VO

»
14544
14674
1L
18064
10524

CRUSS REFERENCE TABLE == MACRO

VIS
S
WWO-

COMMEN
CwD2
DRCLR
ENDCOM
EOPGM
ERROR

MACY11 30(1046) 04=JAN-82 13:04 gAGE

AWV

RK6 DR_PRT2
~JAN-82 12:46

[« YV IV IV IV IV IV IV IV TV IV ¥ W W

CZR6IFO UNIBUSS
CZROIF.P1

6019

5068

7414

7865

7438

8083

4903

CZRGIF

WINS&R“ DR_PRT2

RDATA

17004
15644
”w

CZR6IF.P1

REPORT

SCOPE

SETPRI

~JAN-82 12:46

8‘
1
115
1053+
g;&
5638
1 g'
w115

15
951
76;

13:04

MACY11 30(1046)

04=JAN-82

PAGE 216

ggg

3681

3751

3791

3840

4020

4136

4621

4636

4924

CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0213

5217

5467

SEH;A

81 3?‘

flgg'

3136

8144

8145

8147

8149

8150

8151

8152

8153

8154

8155

SK1P

56512'

;1632!

342

3393

3614

3728

3735

3756

3799

3812

3943

3979

4900

5166

5644

SLASH
SPACE
STARS

1#
11584
#
367
463
7363
8112
¥

1158#

3744

1375
3750

1377
3785

3216
7646

1384
790

445
7661

1847
3817
562%
7

1894
39

620
7756

1897
4019

3354
4019

3363
‘129

34
41

3414
4413

3563
“28

3577
4623

5135

6272

7010

7055

4903

5207

5166

5644

TRMTRP

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS

81334

1158#
368?
490
7430
9188
11588

4923
7487
9197
32184

3207
7564

1
1
"
1

1158#
1158%
1158#
1158
1158#

;‘37

3503

3549

3713

5052

WDATA
WRCHK
WRHDR

16484
17464
153640

4070
4328
4046

a7z
4534
4152

4465
4997
4439

4938
5360
4609

5283
5537
5741

5484

$SESCA
SSNEWT

1%
s“‘lsl

1882

TYPOCT
TYPTXT

SSCMRE
SSCMTM

W
1%

18454
18454

1158%
1158#

63
825

36
7878

571
7917

5943
7979

7149
7997

76764

5897

1158#
}1638,

1883

1884

1885

1886

1887

gzgg

3400

3563

3672

3744

3785

3817

4010

4126

4413

4623

g}”’

8142

8143

8144

8145

8147

8149

8150

8151

8152

8153

8154

8155

$$SKIP

565’2'

;1%2’

3342

3393

3614

3728

3735

3756

3799

3812

3943

3979

4500

.EQUAT
-HEADE

1#
1#

10074
1007

1048
1012

10074
10074
10354
1007#

3167
1023

”
14
14
1007#

.SAPTB
-SAPTH
-SAPTY
-SASTA

1"
1#
1#
la

. 30820
.
.SD1V
.SEOP
.SERRO

14
1#
”
14
#

.SCATC
-SCMTA

14
1#

1362

18954
10074
10074

1373
7428

10074
10074

1345
1845

1007
1007
1007%

10074

7267
8067

5974

ggg}n

KT11
.SETUP
- SWRHI
.SWRLO
-SACT1

721
8020

7915
7876
5941

721

CZR6IFO UNIBUSS RK6é DR Pngz
"
CZR6IF.PN
04-JAN-82
1
-SERRT
.
T

1L
}:

- SRAND
-SRDDE

1L
1L
1#
1*
#
1#
}:

-SRDOC
-SREAD
-SR2AZ
.SSAVE
.$5820
.$SCOP

.SSIZE
.SSUPR
.STRAP
.STYPB
.STYPD
.STYPE
.STYPO
.$40CA

»
1#
*
1#
1#
1#
1%
»

. ABS.

057742

1170

10674

8018

1007#
1007#

7823
7562

1007#
10074

8065
7977

1007#

7147

10074
1007#

7995
8110

MACY11 30(1046) 04-JAN-82 13:04 gAGE 217

CROSS REFERENCE TABLE == MACRO NAMES

10074
10074
1007#

ERRORS DETECTED:

000
0

CZROIF ,CZROIF .LST/SOL/CRF/NL:TOC=SYSMAC.SML,CZR6IF.P11
RUN-TIME: 21 25 2 SECONDS
RUN-TIME RATIO: 124/49=2.5
(86 PAGES)
CORE USED: 43K

SEQ 0214