Digital PDFs

AH-9130G-MC

March 1982

276 pages

Original

15MB

view download

OCR Version

13MB

view download

Document:	CZR6KG0 RK611,RK06,RK07 RK6 FCTNL CTRL MAR 1982 bw
Order Number:	AH-9130G-MC
Revision:	000
Pages:	276
Original Filename:	CZR6KG0__RK611,RK06,RK07__RK6_FCTNL_CTRL__AH-9130G-MC__MAR_1982_bw.pdf

OCR Text

A PO

RK6

CZR6KGO

FCTNL CTRL

e e

(TRL DIAG

2B=AUG=-81

15:16

YACYTT

30(1046)

15:17

PAGE

SEQ 0001

.REM

28-AUG-81

PRODUCT

CODE:

AC=9128G-MC

PRODUCT

NAME
:

CZROKGO Rk6T1

FCINL

(TRL

[

(DENTIFICATION

DATE:

AUGUST

10 1981

MAINTAINER:

DIAGNOSTIC

AUTHOR:

BRIAN LEBLANC

GROUP

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO (AANGE
WITHOUT
NOTICE
AND
SHOULD
NOT
BE
CONSTRUED
AS
A COMMITMENT BY DIGITAL EQUIPMENT
CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY

FOR

ANY

ERRORS

THAT

NO RESPONSIBILITY
?gmggg{?gENT THAT

THE

MAY

APPEAR

THIS

DOCUMENT.

IS ASSUMED FOR THE USE OR RELIABILITY OF SOF TWARE
]S NOT SUPPLIED BY DIGITAL OR ITS AFFILLIATED

(C)

1976,1981

FOLLOWING

ARE

TRADEMARKS

DiGITAL
DEC

PDP
DECUS

BY DIGITAL
OF

DIGITAL

UNIBUS
DECTAPE

EQUIPMENT

CORPORATION

EQUIPMENT

CORPORATION:

MASSBUS

TM~ P

R 6 FOINL

WMACY11

30(7046)

28-AUG-81

15:17

PAGE 3

SEQ 0002

NN AN
.
. L) - L]
.
. L] .
.
OWWNIONWVISHIWN—LO

OPERATING PROCEDURE
LOADING PROCEDURE
STARTUP PROCEDURE
CONSOLE SWITCH REGISTER
SOFTWARE SWITCH REGISTERS
CONTRCL € (*C) OPERATION
CONTROL S (*S) OPERATION
CONTROL Q@ (*Q) OPERATION
UNIBUS ADDRESS
EXECUTION TIM

B
.
O

PROGRAM DESCRIPTION

W
L]
O

ERROR REPORTING

o
.
O

REQUIREMENTS
HARDWARE REQUIREMENTS
PRELIMINARY PROGRAMS

SUBROUT INES

CONTENTS

ABSTRACT

REVISION HISTORY

N—O

TAKLE

£2

TIROKG0 RK6 FCINL (TRL DIAG
TIRGX G, P
28-AuG~81 15:16

MACY1T

30(7046)

1
PAGE ¢4

15:'7

28-AUG=-81

SEQ 0003

1.0

ABSTRA(CT

THE RK611

FUNCTIUNAL

PROGRAM.

THE

CONTROLLER DIAGNOSTIC

(CZR6K)

IS A SERIES

OF
TESTS
THAT
(COMPLETES
THE
TESTING OF
AN Rk611/RK06-RK07
SUBSYSTEM.,
THE DISKLESS CONTROLLER DIAGNOSTIC
AND
THE
RKO6-RKkO7
DRIVE
DIAGNOSTIC
ARE
PREREQUISITES
TO
THE RUNNING OF THIS
PURPOSE

THIS PROGRAM

whwm—-oomNOmbwm—-oomwg

TESTED
UNTIL
(CONTROLLER
OPERATION
MAINTENANCE MODE HAS BEEN TESTED.
THE

MODE

ARE

IS USED

( OCKED PART WAY THROUGH.
THE

MAINLY

CONTROLLER

ALLOWED

TEST

THOSE

AREAS

DJAGNOSTIC

ORIENTED

BUT

TESTED IN A DISKLESS
THAT
(OULD
NOT
BE

FUNCTIONALLY

IN NUMEROUS OCCASSIONS TO ACCOMPLISH
FORCING OF ERRORS.
IN DIAGNOSTIC MODE

DIAGNOSTIC MODE

TO COMPLETE

THE

IN THESE CASES,
AND OPERATION IS

IS THEN

OPERATION.

RESET

AND

DEPENDING

ON THE OPERATION AND HOW FAR THROUGH IT BEFORE DIAGNOSTIC MODE
IS
RESET VARIOUS ERROR CONDITIONS CAN BE MADE TO OCCUR.
THIS
DOCUMENT
DOES
NOT
ATTEMPT
TO
EXPLAIN
WHY
THESE
ERROR
CONDITIONS
ARE
SET
BUT
THE
INDIVIDUAL
TEST
DESCRIPTIONS

e s b

Dl
h )

?PEC%F?TUHAT
ORC
.

ERROR

BEING FORCED

AND

THE

PROCEDURE

USED

CAJTION
THIS PROGRAM SHOULD BE HALTED ONLY BY TYPING
A
*C.
IF
THE
PROGRAM
IS
HALTED
USING THE HALT KEY THE POSSIBILITY EXISTS
THAT THE CARTRIDGE FORMAT
WILL
BE
INCORRECT,
THE
CYLINDER
ADDgESS
IN
THE DRIVE MAY BE INVALID, OR THE DRIVE MAY NOT Bt

~NO

p =Bl
ol ad
—d
-

PERFORMED

THE OBJECTIVES, MAINLY THE
THE
CONTROLLER
IS PLACED

NN POPNUPORNININD
=3 2

—t consl

TESTS

DIAGNOSTIC

2 QOO

A -d

IN
THE
CONTROLLER
THAT
(COULD
NOT
BE
ENVIRONMENT AND THOSE AREAS OF THE DRIVE

128

READY.

2.0

REQUIREMENTS

2.1

HARDWARE

REQUIREMENTS

PDP-11 SYSTEM (16K MEMORY)
CONSOLE TERMINAL
DECTAPE, PAPERTAPE, OR DISK

LINE CLOCK (KW11-L)

PARITY OPTION (MM11)
RK611 CONTROLLER

AT LEAST 1

(OPTIONAL)

(OPT]ONAL)

AND UP TO 8 RKQ6-RK0O7 DRIVES

FORMATTED RKO6K ON EACH DRIVE

2.2

PREL IMINARY

PROGRAMS

[
ST

“IROKGO RKG FCYNL (TRL DIAG
“IRGKG.PY?
2B8-AuG=81 15:16

TIREXGD Rxe FCTNL (TRL DIAG
TIRGKG, P
28=AUG=-81 15:16

MACY11 30(1046)

;4;

28-AUG-81

15:17

PAGE S

SE€% 0004

THE RK611 DiSKLESS CONTROLLER DIAGNOSTIC (ALL PARTS)

i
161

UNIBUS

;g%

RK06-Rk07

SUCCESSFULLY.

:gg

3.0

OPERATING PRCCEDURE

3.1

LOADING PROCEDURE

DRIVE

DJIAGNOSTIC

(ALL

PARTS)

AND

THE

SHOULD HAVE RUN

]

;gg
158

THE

PROGRAM (AN BE

LOADED FROM BINARY

TAPE USING

}28

LOADER OR FROM XxXDP MEDIA SUPPORTED BY XXDP.

167
;g%

IT CAN BFE LOADED AND RUN UNDER
CHAINED BY XxXDP.

12%

3.2

166

170
;;}

APT

ACT

THE

ABRSOLUTE

AND

(AN

THIS

START

STARTUP PROCEDURE

THE

167
168
169

PROGRAM

START

LOCATION

200(8).

WILL

A JTOMATICALLY
SIZE
THE SYSTEM UNLESS RUNNING UNDER APT.
THE
PROGRAM ASSUMES THE STANDARD UNIBUS ADDRESS,
VECTOR
ADDRESS,
AND
BUS PRIORITY LEVEL (177440, 210, AND &4 RESPECTIVELY).
IFf

STARTED AT 200 AND THE XXDP MEDIA IS RK0O6
RKO6) DRIVE O IS NOT TESTED.

_:;z

LOCATION 204(8)

175

LOCATION 214(8)

177

ADDRESS,

};g

DRIVE O OR TC PLACE

176

OPERATOR

178

RKO6,

WILL

IS THE PARAMETERIZATION START

ASKED

AND BUS PRIORITY.

THE

(PROGRAM LOADED FROM

IS THE PROGRAM RESTART.
BE

OPERATOR WILL

LOCATION.

THE

TO IDENTIFY THE BUS ADDRESS, VECTIOR
IF

THE

ASKED

IT OFF=-LINE IF

PROGRAM

WwAS

TO MOUNT A WORK

LOADED

FROM

CARTRIDGE

IT IS NOT TO BE TESTED.

181
182
183

LOCATION 220(8) IS THE
PHASE
LOCKED
LOOP
C(CLOCK
ADJUSTMENT
START,
THE PROGRAM FIRST RUNS THE FIRST THREE TESTS AND THEN
JUMPS TO THE ADJUSTMENT ROUTINE.
THE PROGRAM WILL CONTINUE TO

18¢€

ALL DRIVES THAT ARE TO BE TESTED MUST BE ON-LINE,

;gg

LOOP IN THIS ROUTINE UNTIL

187
;gg

;39
192

;gz

WRITE
DRIVE
3.3

LOCK
RESET.
IS NOT TESTED.

CONSOLE

IF ALL

THE PROCESSOR IS HALTED.
THREE

THE CONSOLE

SWITCH REGISTER

IS USED TO PROVIDE

195
196

SW15 - HALT ON ERROR
SW14 - LOOP ON TEST

198
199

SW12 - ABORT PROGRAM AFTER 20 EPRORS
SW11 < INHIBIT ITERATIONS

197

200
201
202

READY,

CONDITIONS ARE NOT MET,

AND

THAT

SWITCH REGISTER

AS DESCRIBED BELOW:

”

PROGRAM (ONTROL

SW13 - INHIBIT ERROR REPORT

SW10 - BELL ON ERROR
SW09 - LOOP ON ERROR
SW08 - EXECUTE TEST NUMBER SPECIFIED IN Sw<7-0>.

IROKGC RKG FCTNL (CTRL DIAG

TIR6KG, P1”

20=-AUG=81 15:16

MACY11 30(1046)

28-AUG-87

583

FAGE 6

SEQ 0005

SW<7=0> = EXECUTE THIS TEST [F

SW08 SET.

207
208
209
210
211

EXECUTING A SPECIFIC TEST MUST BE
USED WITH CAUTION.
SOME
TESTS
REQUIRE
OTHERS
TO BE
RUN
TO FORMAT
THE PACK IN A
SPECIFIC MANNER OR WRITE SPECIFIC DATA.
TESTS
THAT
REQUIRE
OTHERS TO BE RUN INDICATE THIS IN THE TEST DESCRIPTION.
IT IS
SUGGESTED THAT THE PROGRAM BE RUN IN THE DEFAULT SEQUENCE
THE

NOTE:

5:5

FIRST TIME AFTER

"¢

TEST 3 MUST BE RUN BEFORE ANY
TEST

DETERMINES

SUBSEQUENT

2.4

224
225
226
227
228
22
230
23
232

LIKEWISE, TEST

"SOF TWARE®

RUN

SWITCH REGISTFR

SWR = NNNNNN

Nfw ='

237 -

FACH TIME SWITCH

SETTINGS

52?

CORRECT TYPING ERRORS DURING SWITCH ENTRY.

238
239

242
263
264
245
529

ARE

ENTERED,

IMAGE
MUST
BE
ENTERED.
'RUBOUT® AND 'CONTROL U'

THE

FENTIRE

SWITCH

LEADING
ZEROES
ARE NOT
FUNCTIONS MAY BE
USED
TO

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS,
THE
'SOFTWARE'
SWITCH REGISTER MAY
BE
USED.
IF THE PROGRAM FINDS ALL 16
SWITCHES IN THE 'UP® POSITION, ALL SWITCH REGISTER
REFLRENCES
WILL
BE
TO
THE
‘'SOFTWARE'
REGISTER
AND
THF
PROCEDURES
DESCRIBED ABQOVE MUST BE FOLLOWED.

3.5

250
231

CONTROL C

(*C) OPFRATION

IF “C 1S TYPED AT ANY TIME DURING THE
PROGRAM EXECUTION
THE
PROGRAM
IS HALTED IMMEDIATELY.
IF A MONITOR IS PRESENT (XXDP
CHAIN, ACT, APT) THE PROGRAM RETURNS CONTROL TO
THE
MONITOR.

252

253
ggg

258

MUST

PROMPT FROM THE SWITCH ENTRY ROUTINE:

LT
g%g
*

IF THE PROGRAM [S BEING RUN ON A SWITCHLESS
PROCESSOR
(I.E.,
AN
11706
OR
11/34)
THE
PROGRAM WILL
DETERMINE
THAT THE
HARDWARE SWITCH
REGISTER
IS
NOT
PRESENT
AND
WILL
USE
A
"SOFTWARE®
SWITCH REGISTER.
THE SETTINGS OF THE 'SOF TWARE'
SWITCHES ARE CONTROLLED THROUGH A KEYBOAFD
ROUTINE
WHICH
IS
CALLED
BY TYPING 'CONTROL G'.
THE PROGRAM WILL RECOGNIZE THE
"CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM IS AT A HIGHFR
PRIORITY PROCESSING AN RK06 INTERRUPT.
THE 'SOFTWARE' SWIT(H
VALUES ARE ENTERED AS AN OCTAL
NUMBER
IN RESPONSE
T0
THE

233

?‘g

THIS

FOLLOWING
TESTS.
THESE
TESTS, HAVING BE=N RUN ONCE,
NEED NOT BE RUN AGAIN IF A DIFFERENT TEST [S SELECTED.

Szg

TEST.

WHICH DRIVES ARE ON THE DRIVE BUS FOR

BEFORE
ANY TEST SUBSEQUENT TO IT.
THIS TEST READS THE
BAD
SECTOR
FILES
AND
BUILDS
TABLES
USED
BY
THE

2’9
559

gs%

1T HAS BEEN LOADED.

ALL FOLLOWING TESTS.

L7
2 7

15:17

IF
NO MONITOR IS PRESENT, THE CPU IS HALTED.
CONTINUE KEY WILL DO A PROGRAM RESTART.

3.6

CONTRCL S
IF

DEPRESSING THE

(*S) OPERATION

IS TYPED AT ANY

TIME

THE PROGRAM WILL GO

INTO

STALL

IRGKRGD RKE FCINL (TRL DIAG
TIR6
G, P
K
28-AuG-81 15:16

MACY11

30(1046)

1
PAGE 7

15:17

28-AUG-81

SEQ 0006

LOOP UNTIL A CONTROL Q@ (*Q)

3.7

CONTROL Q
IF

(*Q)

OPERATION

A *S HAS BEEN

TYPED,

TYPING

INITIATED BY THE *S.

3.8

IS TYPED.

THE

“Q

C(ANCELS

THE

UNIBUS ADDRESSES

STANDARD UNIBUS ADDRESSES ARE ASSUMED FOR THE KWl1=L AND

OPTIONS.

APPROPRIATE

THESE

ADDRESSES

MEMORY

MAY

LOCATIONS.

THE

LOCATIONS HAVE BEEN USED:
KWll=L

TAG

UNIBUS ADDRESS
VECTOR ADDRESS

3.9

STALL

(HANGED

C(HANGE

FOLLOWING

TAGS

MM11

THE

AND

Tio
LOCATION
! 710
] 712

KWLADD
KWLVEC

EXECUTION TIME
THE

FIRST PASS OF

THE

EXECUTION

THE

PROGRAM FOR ONE DRIVE

APPROXIMATELY

65 SECONDS AND EACH SUBSEQUENT PASS IS APPROXIMATELY 2 MINUTES
20 SECONDS.

((NUMBER OF

TIME

FOR MULTIPLE

DRIVES)

X 45 SEC)

FOR SUBSEQUENT

PASSES

THE

DRIVE AFTER THE

FIRST,.

DRIVES

THE

FIRST PASS

[S:

+ 20 SEC

RUN TIME

THE

PRODUCT OF

2 MINUTES

20 SECONDS TIMES THE NUMBER OF DRIVES PLUS 25 SECONDS FOR EACH
4.0

PROGRAM DESCRIPTION

Bg? EgLLOUING TEST SEQUENCE
VES.

IS EXECUTED ASSUMING TWO

FIRST PASS - FIRST DRIVE:
ALL TESTS UP TO THE MULTI-DRIVE
FIRST PASS = ALL

STATUS VALID

PERFORMED ONCE

ON EACH DRIVE.

THEN
MULTI-DRIVE
OPERATIONS
COMBINATION OF DRIVES.

THE

ARE

SECOND AND ALL SUBSEQUENT PASSES:
THE

SAME

SEQUENCE

ITERATIONS WHICH ARE

| 328232222082

TESTING

MULTI-DRIVE
PERFORMED

REPEATED

SPECIFIED FOR EACH TEST,

22320828d2

OPERATIONS ARE PERFORMED ONCE.

REMAINING DRIVES:

TESTS

OPERATIONS
ONCE

EXCEPT

ARE

EA(H

FOR

TEST

228002 ARRRRRRRARRERllRtlRRR
Rl l 2]

(TR

28=-AyG-

DIAG

3 15:1

MACY11

30(1046)

28-AUG-81

*+«BASIC
ARN AR

TEST

15:17

INTERFACE

AR AN AN

RK611

PAGE 8

SEQ 0007

AND OPTION TESTS
AR

BASE

AR RN RANRNNR RN RN AR

ADDRESS

AN AN RPN NANARNCEARNRENARRRS

TEST

(HECK THAT READING THE RK611 BASE ADDRESS
NOT CAUSE A NON-EXISTANT MEMORY TRAP,
TEST 2

INTERRUPT VECTOR ADDRESS

Iggg?ggPT

A
AR R AR

RN AN

**STATUS

VALID

R RN AN AR

AN WAL U N UN N U SN N U N AN AN AN AN N N N A LA
AN LN NNINAN
VUAVINNANWNVANAS
SN
NP WA NN A WN N N AN
0O N
NS WM =2 OO0 OV BNl = O Vel
75 SV 7 2RV ']
W

AR NN AN

TR RN

TEST

IS SET

R A REAN RN

(HECK

DOES

THAT

THE

TO THE EXPECTED

RN NN ARRNNRR RN N

TESTS

ARANAA RN A A AR AN R

TEST

VECTOR FOR THE RK611

(RK(CS1)

A AR AN AR RN AR R AN AR AR R AN RAREN R AR NN

P ANNNA

SELECT ALL DRIVES

IF NOT RUNNING IN APT AUTOMATI( EN\IRONMENT,

DETERMINE

WHAT
DRIVES
ARE ON-LINE BY SELECTING ALL DRIVES.
NON-EXISTENT DRIVE REPORTED MAKE SURE STATUS VALID

RESET.

ggégf IS

DRIVE

PRESENT MAKE SURE NO ERROR EXISTS,

CYCLED UP,

AND

STATUS

IF RUNNING IN APT AUTOMATIC
IDENTIFIED
IN
ETABLE
ARE
CYCLED UP, AND STATUS VALID

VALID

SET,

AND

DSC

ENVIRONMENT,
THE
DRIVES
TESTED FOR NO ERROR, DRIVE
SET.

IF LOCATION 41 INDICATES THE
XXDP
MEDIA
IS
ON
THE
RKO6,
DRIVE
0 WILL ONLY BE TESTED IF THE PARAM START
(2145 WAS USED.
IF THE AUTOMATIC START (200) IS USED,
DRIVE
O IS NOT TESTED.
THZ RESTART (204) WILL RETAIN
THE

TEST

STATUS OF

THE PARAM START

DRIVE

IS USED,

THE OPERATOR

MUST

EITHER

PLACE
DORIVE
O
OFF LINE IF IT IS NOT TO BE TESTED OR
UNLOADED AND A SCRATCH MEDIA MOUNTED IF IT
IS
TO
BE
TESTED.
THE PROGRAM WILL MONITOR OFF LINE AND VOLUME
VALID TO DETERMINE THE TEST STATUS OF DRIVE 0.
\

ALL DRIVES TO BE TESTED MUST BE
CN-LINE,
CYCLED
uP,
AND WRITE LOCK RESET. ADDRESSES
OF
DRIVES
THAT
ARE
NON-EXISTANT EITHER BECAUSE THE DRIVE DOES
NOT
EXIST
OR IS OFF-LINE ARE USED TO VERIFY
NON-EXISTANT
DRIVE

ERROR DETECTION.
DRIVES
THAT
ARE
ON-LINE
CYCLED UP OR ARE WRITE LOCKED ARE NOT TESTED.

BUT

GiVEN

COMPLETION OF

IDENTIFY

NOTE:

THE

THE DRIVES

TEST

A MESSAGE

TO BE USED

WILL

IN TESTING.

THIS TEST MUST BE RUN AT LEAST ONCE BEFORE
OTHER TEST THAT FOLLOWS.
THE

DETERMINATION OF

RKO6 OR RKQ7

IS MADE

WHETHER EACH DRIVE

IN THIS TEST,

AND

NOT

ANY
AN

(gl anl

O Rke FOINL

TIRGKGD RKG FCTNL (TRL DIAG
“IRéXG,P1®
28=AyG=81 15:16

MACY11

30(1046)

28-AUG~ 81

371

172

373

A
TEST

15:17

PAGE 9
TABLE

SEQ 0008

RELEASE

ALL DRIVES

RELEASE

ALL

FILLED ACCORDINGLY.

DRIVES.

STATUS VALID IS RESET.

TEST

MAKE

SURE

ERROR

SETS

AND

NON= TANDARD MESSAGES AND SVAL
PICK ONE OF THE AVAILABLE DRIVES AND
GET
NCN-STANDAD
MESSAGES.
MAKE SURE NO ERROR OCCURS AND STATUS VALUD
DOES NOT SET
AND
THAT
NON-STANDARD
MESSAGES
CAUSE
STATUS VALID TO RESET.

WRITING CS2 AND STATUS VALID

TEST 6

SELECT AN AVAILABLE DRIVE.
MAKE SURE STATUS VALID
IS
SET.
WRITE COMMAND AND STATUS REGISTER 2.
MAKE SURE
STATUS VALID RESETS.
\ A2

2222220020

ssdil

**(ONTROL_ER ERROR
LA 882220

TEST

TYPE

323X

Rl iR
RRRYRR R R R R

ERROR

CREATE A DRIVE TYPE ERORR MAKE
SETS AND STATUS VALID SETS.
TEST

228222

TESTS

SRRt

CRIVE

SURE DRIVE

TYPE

ERROR

10 STATUS VALID AND PARITY ERROR

ISSUE A SELECT TO AN AVAILIABLE DRIVE WITH BAD PARITY.
MAKE
SURE
SPAR,
(ONTROLLER
ERROR, ATTENTION, DRIVE
STATUS CHANGES, DRPAR,
DRIVE
INTERRUPT,
AND
STATUS
VALID
SET, ISSUE A CONTROLLER CLEAR.
MAKE SURE DRIVE
INTERRUPT AND ATTENTION ARE STILL SET.
SELECT
DRIVE
AGAIN
WITH
GOOD
PARITY.
MAKE SURE ATTENTION, DRIVE
STATUS
CHANGE,
DRPAR,
CONTROLLLER
ERROR,
DRIVE
INTERRUPT, AND STATUS VALID ARE SET AND SPAR IS RESET.
ISSUE A CONTROLLER CLEAR.
GET
NON=-STANDARD
MELSSAGES
AND
MAKE
SURE ONLY DRIVE INTERRUPT AND ATTENTION ARE
SET.
CLEAR ATTENTION WITH DPRIVE
CLEAR.
REPEAT
FOR

ALL

TEST

AVAILIABLE

DRIVES.

UNIT FIELD ERROR ON RELEASE
ISSUE

PUT

A SUBSYSTEM CLEAR.

CONTROLLER

SELECT AN

DIAGNOSTIC MODE.

AVAILABLE
ISSUE

DRIVE.

A RELEASE

(OMMAND.
(CLOCK THROUGH PHASE
ADDRESS
2.
TURN
DIAGNOSTIC MODE.
MAKE SURE UNIT FIELD ERROR SETS.

TFST

OFF

12 UNIT HIELD ERROR ON SELE(CT
ISSUE

A SUBSYSTEM C_EAR.

SELECT AN

AVAILABLE

DRIVE.

TIR6XGO Rxs FITNL CTRL DIAG
LS-AUG-81 15:16

TIREKG. B

MACY11

30(1046)

28-AUG- 81
PUT

&2?
428
429
430

1
J
PAGE

15:17

CONTROLLER

SEQ €009

DIJACGNOSTIC

MODE.

iSSUE

A SELECT

(OMMAND WITH MESSAGE ID = 3 AND DRIVE
SELECTED
= 0.
CLOCK
THROUGH
PHASE
ADDRESS 6.
TURN OFF DIAGNOSTIC

A S

632
633
634

635
436
637

4«38
439

440

MODE.

MaKE

SURE

UNIT

FIELD ERROR

SETS.

| 2322222233228 2322202202R222222202022222ARRRRRlRRstRsRRRln
]

«*ATTENTION HANDLING BY

CONTROLLER

| Z2Z232232802222222022R8
ARl
RARRRARRRRRRARRn R

TEST

INTERRUPT

13 DOUBLE

644

ISSUE A SUBSYSTEM (LEAR.
ISSUE A
RECALIBRATE.
MAKE
SURE STATUS VALID IS SET.
(CHECK THAT SECOND INTERRUPT
OCCURS.
AFTER
SECOND
INTERRUPT
(HECK
THAT
STATUS
VALID
IS
RESET.
ISSUE
SELECT AND MAKE SURE STATUS

446

CHANGE

TAA]

66?2

6463
L65

647

44B
449

451
45¢
453

454
LS55
456
457
458

459

4L€0
461
462

463
464

465

VALID

TEST

SETS.

SETS

14 SINGLE

CLEAR

DRIVE.

INTERRUPT

ANOTHER
TEST

15 RESET

INTERRUPT DOES NOT OCCUR.

ATTENTIONS WITH UNIBUS

476

477
478
479
L8O

481

48,

(LEAR DRIVE.

INIT

DO A SEEK TO CYLINDER
O
ON
ALL
AVAILIABLE
ISSUE A RESET.
MAKE SUkt ALL ATTENTION RESET.

DRIVES.

(32222220208888R20000RRRRRRRRRRRRRdtsRRtRRRRisltRillRRnRlsllA

s«]{ LEGAL DISK ADDRESS ERROR

TESTS

(2823224228220 0RRRRRRRARRRaRtRiRRl
Rl
Rl n ]

TEST 16 ILLEGAL DISK ADDRESS

(PART 1)

ISSUE A SEEK TO CYLINDER 0, HEAD 3.

CHECKING
THAT
B8O0TH
HEAD 7 AND IDAE ALONE

474
475

STATUS

DO A SEEK TO CYLINDER
0.
WAIT
FOR
INTERRUPT
FROM
DRIVE
ATTENTION.
LOWER PRIORITY AGAIN AND MAKE SURE

468
469

470

DRIVE

FROM ATTENTION

ADDRESS

471
472
473

THAT

(BIT 14 OF DRIVE STATUS REGISTER)

466

467

CHECK

ERROR

AND

SEEK

CONTROLLER AND CLEAR DRIVE.

TEST 17 ILLEGAL DISK ADDRESS

MAKE SURE

INCOMPLETE

REPEAT

FOR

SETS.

ILLEGAL

HEADS

CLEAR

IDAE AND SEEK INCUMPLETE SET
SETS FOR HEADS 4, 5, AND 6

4-7,

FOR

(PART 2)

ISSUE A SEEK TO CYLINDER

1000,

ékfisgAL DISk ADDRESS ERROR SETS.

HEADL

MAKE

SURE

CLEAR CONTROLLER AND

THIS TEST IS BYPASSED BY THE RKO7 (ONTROLLER BECAUSE
IT DOES NGT RECOGNIZE ANY ILLEGAL DISK ADDRESS.
| 2232022242222 RRARRRRRRRRRRRRRaRRRRRRRRRRRRRRARRRRRRRRRERD

«*WRITE HEADER

TESTS

IR2R2222222R22R2ARRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRARRRRRRRRR
A

483
ATA
485
486

30(1046)

28-AUG-81

1
K
PAGE

15:17

ISSUE A READ DATA OF 400 WORDS TO CYLINDER 632,
TRA(K
2
T0 GET
THE
FACTORY DETECTED BAD SECTOR FILE, 26
SECTOR MODE.

CYLINDER 1456 IS USED FOR THE RKO7.

490
49"
92
493
494
495
496

IF AN ERROR OCCURS, READ SECTOR
2,
4,
6,
OR
10(8)
UNTIL
A
SUCCESSFUL
READ
IS
DONE.
IF
NONE
READ
SUCCESSFULLY REMOVE THIS DRIVE FROM TEST.
WHEN A READ
IS
SUCCESSFUL, TEST THAT THE PACK IS NOT AN ALIGNMENT
PADK

497

498
499

AND

REPEAT

STORE

THIS

THE

SERIES OF

—

TEST 21

LATER USE.

EXCEED 20(10)

THIS TEST

IS RUN IN THE

FORMAT

IN 26 SECTOR FORMAT

FORMAT CYLINDER 312,
~ VERIFY

FIRST

OCCUR WITH WRITE HEADER

VERIFY)

FOR 26 SECTOR

DATA LATE

READING

DATA

DID NOT

BUFFER

= OV00 NN

THAT

DRIVE

L EASR222R20RC00R0dds
000002222
2230222 X}

AFTER READ HEADER.

AND

THE

(QUICK

TRACK O AND TRACK

FORMAT

DETECTED

MODE,
SOFTWARE DETECTED BAD
AND
SOFTWARE
DETECTED BAD
IF THE NUMBER OF BAD SECTORS

NOTE:

FORMAT.

FOR

OPERATIONS FOR FACTORY

FOR 24 OR 26 SECTOR MODE
REMOVED FROM TESTING.

PASS ONLY.

ENTRIES

BAD
SECTORS
24
SECTOR
SECTORS 26 SECTOR
MODE,
SECTORS
24 SECTOR MODE.

500
501

N LA LA AV
NY VAL

SEQ 0010

TEST 20 READ BAD SECTOR INFORMATION

487
4«88
489

ny PON, ~—b ed b ed —=d b

Yan]

MACYTT1

SECTOR O (BIT 15 OR WORD 2 OF HEADER RESET) AND SECTOR

*xHEADER RECOGNITION TESTS
(2840222222002
222 0222222022222 0222

TEST 22 BAD SECTOR ERROR
FORMAT CYLINDER 312,

TRACK O,

ON SCRATCH PACK TO

1 (BIT 14 OR WORD 2 OF HEADER RESET)
AND ALL OTHER SECTORS GOOD.

HAVE

TO BE BAD SECTORS

s JRNTe NV, P MUV SN o)

WALV
L AN AN AN AN AN
LN AN

ISSUE A WRITE DATA OR 400 WCRDS TO CYLINDER 312, TRAC(K
0,
SECTOR 0.
MAKE SURE BAD SECTOR ERROR SETS.
ISSUE
A WRITE DATA TO CYLINDER 0, TRACK O, SECTOR 1
OF
400
WORDS.

MAKE

SURE BAD SECTOR ERROR SET.

DATA OF 400 WORDS TO CYLINDER O,

MAKE

SURE

NO ERROR SETS.

TRACK

ISSUE

A WRITE

SECTOR

TEST 23 HEADER VRC ERROR
FORMAT CYLINDER 312, TRACK 0, ON SCRATCH PACK TO
HAVE
16 SECTORS WITH BAD HEADER VR(C.
ISSUE A WRITE DATA Of
EACH OF THE SECTORS WITH A BAD HEADER VR(C.
MAKE
SURE
HEADER

VRC

ERROR

SETS.

ISSUE

A WRITE

DATA TO A GOOD

[

"IR6KGO RKG FCTNL CTRL DIAG
TIR6KG.P1Y
28-AuG-81 15:16

539
540
541
562
563
564

MACY11

30(1046)

28-AUG- 81

1
L
PAGE

15:17

HEADER AND MAKE

SEQ 001

SURE NO ERROR OCCURS.

TEST 24 BAD SECTOR ERROR AND HVRC ERROR
FORMAT

CYLINDER 312,

DATA TO CYLINDER 0,

NO QD NON Y BN WNR)
—

SUCH

BOTH A BAD SECTOR ERROR AND HEADER

HEADER VRC
[P LV, IV IV TV, TV LV, LV LV
V3V, RV TW, TV TV, TN RN RV,

TRACK O

TEST 25 OPERATION

ERROR

TRACK 0,

SETS.

THAT

'RC.

SECTOR 0.

SECTOR ZERO HAS

ISSUE A WRITE

MAKE

SURE

ONLY

INCOMPLETE

FORMAT CYLINDER 312, TRACK 0 SUCH THAT SECTOR
21
HAS
THE
WRONG
FORMAT.
ISSUE__
A
WRITE
DATA
OF 400 TO
CYLINER O, TRACK 0, SECTOR 21.
MAKE SURE OPI SET.
TEST 26 OPI

WITH HVRC ERROR

FORMAT CYLINDER 312, TRACK 0 SUCH THAT
A
HEADER
VRC
ERROR
1S
PRESENT AND SECTOR 17 HAS THE WRONG FORMAT.
ISSUE A WRITE_DATA OF 400 WORDS TO CYLINDER 312, TRA(K

SECTOR

17.

HEADER VRC

TEST 27 HVRC

THAT

SET.

IGNORE

BOTH

ON NON~ADDRESSED

OPERATION INCOMPLETE AND

SECTOR

FORMAT CYLINDER 312, TRACK 0 SUCH THAT SECTOR
20
HAS
AN
HVRC
_ERROR.
ISSUE
A WRITE DATA OF 400 WORDS TO

CYLINDER 312,
IS NOT

AR ARN

SET AT

AR AR AN RN

+**DATA TRANSFER
AR AR

A AR AR

TRACK O, AND SECTOR 21.

THE END OF

AR AR AR AR

THE

A R A NN AR AR

OPERATION.

AR RN A AN

MAKE SURE

AR R

HVRC

AR AR AR AR NS

TESTS

RN R R AN R RN RN A AR AR AR AR AR AN

TEST 30 WRITE AND READ ONE

R AN AN

A RN RN AN

SECTOR

FORMAT CYLINDER 312,
ALL
TRACKS
AND
CYLINDER
313,
TRACK
2 TO AGREED WITH BAD SECTOR INFORMATION.
[SSUE
A WRITE DATA OF ONE SECTOR CN CYLINDER 312,
TRACK
0.
RE??TELT
W

TEST 31

WRITE

BACK

MAKE

SURE

AGREES WITH WHAT

DATA WITH BUS ADDRESS

INCREMENT

INHIBIT

ISSUE A WRITE DATA OF
ONE
SECTOR
TO
CYLINDER
312,
TRACK 2, SECTOR 12 WITH INHIBIT BUS ADDRESS INCREMENT.

?533E%?TA BACK

TEST

32 WRITE

TO MAKE

DATA ADDRESS

SURE

GREATER

EVERY

WORD

THAN 32K

THE

SAME

AND

TIROKGO Rk FCTNL CTRL DIAG
TIR6KG.PYT
2B=-AUG-81 15:16

JIROKGO RKG FCTINL CTRL DIAG
CIR6K
G, P
2B-AUG-81 15:16

MACY11 30(1046)

28-AUG-81

15:17

PAGE 13

SEQ 0012

ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 177770.

MAKE

SURE

NOTE:
TEST

CORRECT DATA

IS ON DISK.

THIS TEST IS ONLY EXECLTED IF MORE THAN 32K

MEMORY

IS PRESENT.

33 READ DATA ADDRESS GREATER THAN 32K

ISSUE A READ DATA OF 400 WORDS WITH ADDRESS =

CHECK MEMORY FOR CORRECT TRANSFER.

NOTE:
TEST
OO0 0 O ONOOOOOCOOCOCOC
OO >roooc0rCrOONONONO
e
N
T
Y'Y
& BB NNWWWNWIN
NN W WNINU NN NI N RO N rON ) B I
ols I V1o SR LYV, V]
WNL 2O N000 NN
AN 2O 000 OV
B (NN L
D00 NN

THIS TEST IS ONLY EXECUTED IF MORE

MEMORY

IS PRESENT.

177770.

THAN 32K

34 WRITE DATA ADDRESS GREATER THAN 64K

611

650

ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 377770.

MAKE SURE

NOTE:
TEST

CORRECT DATA IS ON DISK.

THIS TEST IS ONLY EXECUTED
MEMORY IS PRESENT.

IF MORE

THAN 64K

35 READ DATA ADDRESS GREATER THAN 64K

ISSUE A READ DATA OF 400 WORDS WITH ADDRESS =

CHEFK MEMORY FOR CORRECT
NOTE:
TEST

THIS TEST

MEMORY

TPANSFEFR.

IS ONLY EXECUTED

IS PRESENT.

IF MORE

377770.

THAN 64K

36 WRITE DATA ADDRESS GREATER THAN 96K

ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 577770.

MAKE

SURE

NOTE:
TEST

CORRECT

DATA

IS ON DISK.

THIS TEST IS ONLY EXECUTED

MEMORY

IS PRESENT.

IF MORE

THAN 96K

37 READ DATA ADDRESS GREATER THAN 96K

ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = 577770.
CHECK MEMORY FOR CORRECT

NOTE:
TEST 40 PARTIAL

THIS TEST

MEMORY

IS ONLY EXECUTED

S PRESENT.

SECTOR WRITE

ISSUE A WRITE DATA OF

géRRgggleR
TEST

PARTIAL

TRANSFER.

MAKE

IF MORE

THAN 96K

DATA

103 WORDS TO CYLINDER 312,
SURE

SECTOR READ DATA

THE

HEAD

SECTOR WAS ZERO FILLED

MACY11

30(1046)

c8-AUG-81

¢51

€52
653
6564

WRITE

SEQ 0013

CYLINDER 312,

TRACK 0,

SECTORK ZERO WITH A

WORDS GET

TRANSFERRED

TO MEMORY.

TEST 42 WRITE

662
663

TEST 43 READ DATA WITH NON-EXISTENT MEMORY

664

666

672
673
674
675

NOTE:

676
677
678

. 691

692
693
694
695
696
697
698

WORD

USING

USING
SETS.

ADDRESS

776000.

ADDRESS

776000.

ERROR

INITIALIZE A MEMORY LOCATION WITH BAD PARITY.
[SSUE A
WRITE
DATA
OF
400
WORDS STARTING AT A _OCATION 112
WORDS BEFORE THE LOCATION WITH BAD PARITY.
MAKE
SURE
THAT UNIBUS PARITY ERROR SETS.

671

680
681
682
683
684
685
686
587
638
689
690

NON-EXISTENT MEMORY SETS.

TEST 44 UNIBUS PARITY

670

679

SURE

ISSUE A READ DATA OF
1
WORD
MAKE SURE NON-EXISTENT MEMORY

665

667
568
669

DATA WITH NON~EXISTENT MEMORY

ISSUE A WRITE DATA OF

MAKE

KNOWN

DATA 0OF 103 WORDS TO
MAKE SURE
ONLY
103

657
658
659
660
661

PAGE 14

CONF IGURATION,
ISSUE
A READ
CYLINDER 312, TRACK 0, SECTOR 0.

655

£56

15:17

THIS TEST IS ONLY
EXECUTED
IF
MEMORY
OPTIOM EXISTS FOR BUFFER. IT WILL NOT BE

AR AR AR AR A AR AR

«*MULTIPLE

'ECC'

TYPE MEMORY.

AN AR AN RN AR

AN N

PARITY
EXECUTED

NN R AN AR N ANNTAN RN A AR AR

RN AR

SECTOR OPERATIONS

LA AR

SR RS RR ARttt

dlii

TEST 45

TWO SECTOR WRITE

DATA

ISSUE A WRITE DATA OF
TRACK
0,
SECTOR
0.
TIME AND MAKE

SURE

TEST 46 TWO SECTOR WRITE

DATA

ISSUE A WRITE DATA OF

(PART

1000
WORDS
TO
CYLINDER
312,
READ DATA BACK ONE SECTOR AT A

IS CORRECT.

(PART 2)

1000

WORDS

(PART

CYLINDEr

312,

TO CYLINDER 312,

TRA(K

TRACK
0,
SECTOR
23.
READ DATA BACK ONE SECTCR AT A
TIME AND MAKE SURE A MID-TRANSFER SEEK
DID
NOT
TAKE
PLACE.
TEST 47 TWO SECTOR WRITE

DATA

ISSUE A WRITE DATA OF

SECTOR 10.

401

WORDS

READ DATA BACK ONE SECTOR AT A TIME AND

CHECK ZERO FILL OF

SECOND SECTOR.

TEST 50 MID-TRANSFER SEEK ON WRITE

ISSUE A WRITE DATA OF

1000

(PART

WORDS

(Y_INDER

312,

[T en)

J2RO6KGT RKo FCTINL (TRL DIAG
TIR6KG. P
2B8-AuG~81 15:16

707
708
709

710

2B-AUG-81

TRA(K
TIME

TEST

TIME
TEST

TEST

SURE

SEQ 0014
25.

PEAD DATA BACK ONE

A MID-TRANSFER

SECTOR

AND MAKE

SURE

25.

1000

WORDS

TAKE

PLACE.

CYLINDER

READ DATA BACK ONE

(PART

SECTOR AT A

(PART 2)

A MID-TRANSFER

52 TWO SECTOR READ DATA

SEEK DID

SEEF

DID

312,

SECTOR AT A
TAKE

PLACE.

TWO SECTOR WRITE DATA
BEFORE THIS TEST.

(PART

TRA(K

MUST BE EXECUTED

53 TWO SECTOR READ DATA (PART 2)
ISSUE A READ _DATA OF 1000 WORDS TO CYLINDER 312, TRA(K
0,
SECTOR 23.
VERIFY THAT CORRECT DATA IS READ AND A

MID-TRANSFER

NOTE:
TEST

SEEK DOES NOT OCCUR.

TWO SECTOR WRITE LATA
BEFORE THIS TEST.

(PART 2) MUST BE EXECUTED

56 TWO SECTOR READ DATA (PART 3)

ISSUE A READ DATA OF 401 WORDS TO CYLINDER 312,
TRA(K
gémgsCTOR 10.
VERIFY THAT ALL 401 WORDS ARE PLACED IN
Y.

NOTE:

739

740
741
742

745
746
7647

SECTOR

AND MAKE

NOTE:

736
737
738

743
744

ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 212,
0, SECTOR O, VERIFY THAT (ORRECT DATA [S READ.

730

3
73¢
733
734
735

PAGE

51 MID~TRANSFER SEEK ON WRITE
TRACK

717
718
719

720
721
722
723
724
725
726
727
728
729

ISSUE A WRITE DATA OF

712
713

714
715
716

15:17

TWO SECTOR WRITE DATA

BEFORE
TEST

(PART 3) MuUST BE EXECUTED

THIS TEST.

55 MID-TRANSFER SEEK ON READ

(PART

ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312, TRACK
0.,
SECTOR 25.
VERIFY THAT CORRECT DATA [S READ AND A

MID~TRANSFER

NOTE:

SEEK DOES OCCUR.

MID-TRANSFER SEEK ON WRITE
EXECUTED BEFORE THIS TEST.

56 MID-TRANSFER SEEK ON READ

(PART

MuST

(PART 2)

ISSUE A READ DATA OF 1000 WORDS "0 CYLINDER 312, TRACK
2,
SECTOR 25.
VERIFY THAT CORRECT DATA IS READ AND A

MID-TRANSFER

NOTE:

SEEK DOES OCCUR.

MID-TRANSFER SEEK ON WRITE
EXECUTED BEFORE THIS TEST.

(PART

MUST

[]

30(1046)

~Nea

C2R6KGO RKG FCINL CTRL DIAG
(2R6KG.P11
28-AuG-81 15:16

MACY11

763
764
765

MACY1T

30(1046)

28-AUG =81

ISSUE

767

779
780

781
782
783

78¢
735

786

787

788
789
790
791
792

793
794

795
796
797

A READ DATA OF

SECTOR

25.

400 WORDS

MAKE

TO CYLINDER 632,

TRA(K

SURE CYLINDER ADDRESS OVERFLOW

ERROR DOES NOT OCCUR.
CYLINDER 1456 IS USED FOR THE RKO7.
TEST 60 CYLINDER ADDRESS OVERFLOW

ISSUE A READ DATA OF 401

77%

774
775
776
777
778

SEQ 0015

TEST 57 CYLiINDER ADDRESS OVERFLOW (PART 1)

766

768
769
770
771
772

C
2
PAGE 16

15:17

SECTOR

2S5.

ERROR DOES OCCUR.

MAKE

(PART 2)

WORDS

TO CYLINDER 632,

TRACK

SLRE CYLINDER ADDRESS OVERFLOW

CYLINDER 1456 1S USED FOR THE RKO7.
SR A2 AARRRAA
A2

RN RN RN RAAARR AR AR AR RARANNNE A AR

*+18 BI T

DATA

TRANSFER

TR
NN

TEST 61

R R R

FORMAT

TESTS

R R RN AR

[N 24

AARA RN

NN N

SECTOR

RN R

RO IR RN RPN ANV RN RO RS

FORMAT

FORMAT CYLINDER 312, TRACK
0O,
AND
TRA(CK
1
FOR
24
SECTOR
FORMAT,
VERIFY FORMAT AND THAT DATA LATE DID
NOT OCCUR WITH WRITE HEADER ON IN READING DATA
BUFFER
AFTER READ HEADER.

24 SECTOR FORMAT DATA TRANSFER

(FART 1)

ISSUE A WRITE DATA OF

IN 24

CYLINDER 312,

MAKE

TEST 63 24

SURE

TRACK 0O,

400 WORDS

SECTOR Q.

CORRECT.

SECTOR FORMAT DATA TRANSFER

SECTOR FORMAT

READ SECTOR BA(CK AND

(PART 2)

ISSUE A WRITE DATA OF 1000 WORDS IN 24
SECTOR
FORMAT
TO CYLINDER 312, TRA(K O, SECTOR 23.
READ SECTOR BA(K
AND
MAKE
SURE
IT
IS
C(ORRECT.
MAKE
SURE
THAT

MID-TRANSFER SEEK HAS
AR ARRY AA AR RN

**SPEC] AL

DATA

TAKEN Pl ACE.

RR AR AR RARANRRARNNN NN ANAN AR AR AR AT AN TR

TRANSFER

TESTS

AR LARAARRRARRARRR
AR RS R R
SRlRRZ2RR RRR)

TEST 64 MULTI-SECTOR DATA

FORMAT

TRANSFER AND BSE

CYLINDER 312,

[OruiruiruirGuirguirpuir
iy

0 0o Co 0o 0o 0o 00 0o

OO0 NN
WD) —

SECTOR 1 MARKED BAD.

TRACK O

IN 26

SECTOR FORMAT

ISSUE A WRITE DATA OF

WITH

1000 WORDS

TO CYLINDER 312, TRACK O, SECTOR
0.
MAKE
SURE
BAD
SECTOR
ERROR SETS AND RKDA IS CORRECT.
READ SECTOR 0
AND MAKE SURE IT IS CORRECT.

JSSUE A READ DATA OF 1000 WORDS TO CYLINDER 312, TRA(K
0,
SECTOR 0.
MAKE SURE BAD SECTOR ERROR SETS AND THE

PREVIOUS SECTOR

TEST 65 FORMAT

TEST

LOADED

CORRECTLY

INTQO MEMORY.

(ZR6XGD RKG FCTNL CTRL DIAG
C(ZROKG.P1T
28-AUG-81 15:16

(ZR6KGD RKE FCINL CTRL DIAG
CIR6KG. P
28~AUG~81 15:16

MACY11

30(1046)

28-4uG- 81

b
2
PAGE 17

15:17

SEQ CO016

FORMAT CYLINDER 312, TRACKS
O
AND
FORMAT.
MAKE
SURE NO ERRORS SET.

AND MAKE

1
N
26
SECTOR
READ SECTORS 0-25
SURE DATA (HECK DOES NOT OCCUR.

(X2232223232222022222
2020222222 RRRRRRRRRRRiiRRRRRRRRRRRl il Al

**WRITE

CHECK TESTS

| 23S X222 RSRARR2RRRARRRRRRRRRRRRRlRRRRRRRlR
Rl A

TEST 66 WRITE-CHECK WITH NO ERROR

WRITE CYLINDER 312,

TRACK J, SECTOR

PATTERN.
DO A WRITE-CHECK OF
ERROR GCCURS.

TEST 67 WRITE

CHECK ERROR

400 WORDS.

WITH

MAKE

KNOWN

SURE NO

(PART 1)

WRITE CYLINDER 312, TRACK O, SECTOR O WITH ALL ZEROES.
WRITE (CHECK CYLINDER 312, TRACK 0, SECTCR O WITH SAME.
DATA
EXCEPT
WORD
110
HAS
ONE
OF
THE
FOLLOWING
CONF JGURATIONS:

000001
000002
000004
000010

000020
000040
060100
0C0200

000400
001000
002000
004000

010000
020000
040000
100000

MAKE SURE WRITE
(HECK
ERROR
SET
FOR
EACH
OF
THE
ggNEégg?é}IONS AND THAT THE BUS ADDRESS AND WORD COUNT

TEST 70 WRITE

CHECK ERROR

(PART 2)

WRITE CYLINDER 312, TRACK O, SECTOR Q0 WITH
17777
IN
ALL
WORDS.
WRITE CHECK CYLINDER 312, TRACK 0, SECTOR
0 WITH THE SAME DATA EXCEPT WORD 120 HAS ONE
OF
THE
FCLLWOING CONFIGURATIONS:

177776
177775
177773
177767

177757
177737
177677
177577

177377
1726777
175777
173777

167777
157777
137777
077777

MAKE SURE WRITE
CHECK
ERROR
SET
FOR
EACH
OF
THE
%gNEéSg?é;lONS AND THAT THE BUS ADDRESS AND WORD COUNT

TEST

WRITE

CHECK OF

PARTIAL

SECTOR

WRITE CYLINDER 312,

CONF IGURATIONS.

TRACK
ISSUE A

0,
SECTOR WITH A KNOWN
WRITE CHECK COMMAND OF 110

g?;A

MAKE

WRITE

WORDS MAKING SURE
ON

DISK.

THE

111TH
SURE

WORD

(HECK

DIFFERENT
ERROR

DOES

THAN
NOT

876
. 87
878

VACY11

30(1046)

28-AUG-81
| EER2A222

E
2
PAGE 18

15:17

SEQ 0017

AR RAR2RRRRRRRR
ARl NRlRRRRR Rl ll ]

~*MAXIMUM DATA TRANSFER AND

CONTROLLER

TIME

ouT

(22X X222 2022222220222
23223 220002202
iR iRl
Al

TEST 72 MAXIMUM DATA TRANSFER

IN THE FiRST PASS OF

(PART

THE PROGRAM,

FIRST & CYLINDERS ARE WRITTEN.
THE FORMAT [S CORRECT.

THE HEADERS

THIS

.S DONE

THE

[NSURE

ZERO QUT THE FIRST 256 SECTORS OF THE
DISK WITH ONE
SECTOR WRITES.
ISSUE A SEEK TO CYLINDER 0, TRACK 0.
ISSUE A WRITE DATA OF
MAXIMUM
DATA
TRANSFER
200000

WORDS
TO
CYLINDER
0,
TRACK O, SECTOR 0.
MAKE SURE
CONTROLLER
TIME
OUT
IS
NOT
SET.
CHECK
CYLINDER
ADDRESS,
DISK
ADDRESS,
BUS
READ
EACH
SECTOR
TO
MAKE
CORRECTLY.
NOTE:

THIS

TEST

é:%

PRESENT

ADDRESS AND WORD COUNT.
SURE
IT
WAS
WRITTEN

IS EXECUTED ONLY

THE

FIRST

BAD

SECTORS

256 SECTORS ON

THE

TEST

73 MAXIMUM DATA

TRANSFER

(PART 2)

ZERO OUT FIRST 256 SECTORS OF
THE
DISK
WITH 200000
WORD
WRITE.
SEEK TO CYLINDER 632.
ISSUE A WRITE OF
MAXIMUM DATA TRANS
200000 WORD
WRITE.
MAKE
SURE
CONTROLLER
TIME
ADDRESS DISK ADDRESS,

CHECK
CYLINDER
AND
WORD
COUNT,

SEEK

NOTE:

THIS TEST IS EXECUTED ONLY IF
NO
BAD
SECTORS
Qi%
PRESENT
IN
THE
FIRST 256 SECTORS ON THE

WORDS.

CYLINDER 632.

IS
NOT
SET.
BUS
ADDRESS

MAKE

SURE

ISSUE A WRITE CHECK OF

NO ERROR SETS.

200000

CYLINDER 1456 1S USED FOR THE RKkO7.
TEST

CONTROLLER TIME oOuT

SEEK TO CYLINDER 632.

WAIT

FOR SECOND

gg%rwsn 0.

[ISSUE A RECALIBRATE AND DO

INTERRUPT.

TRACK 0.

MAKE

NOW ISSUE

SURE

NOT

A REAL HEADER OF

CONTRO.LER

TIME

CuUT

CYLINDER 1456 IS USED FOR THE RK07.
S22 S282022RRRRARARRRARRRRRRRRARRRRSRRRSlRARRARRRRRRRRA

««FRRORS DURING DATA TRANSFER
(2222220222023

02800220R2

20002l Rttt
Rll Rl

TEST 75 LIMIT

DETECT ON DATA TRANSFER

ISSUE A SUBSYSTEM (.EAR.

[SSUE

A RECALIBRATE.

[SSUE

[YA

CZR6KGD Rk6 FCTNL CTRL DJAG
CIR6KG. P11
28-AUG-81 15:16

CZR6KGO RKG FCINL CTRL DIAG
CIR6KG.PT
28-AUG-81 15:16

MACY11

30(1046)

28-AUG-81

931

932
933
934
935
936
937
938
939

940
941
942
943
944
945
946
947
948

949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
670
971
972

PAGE 19

SEQ 0018

A
SEEK
TO CYLINDER 2 Ww]TH BAD PARITY.
[SSUE A DRIVE
CLEAR.
ISSUE A WRITE DATA OF 400 WORDS TO (YLINDER 1,
TRACK O, HEAD O.
SEEK INCOMPLETE BECAUSE OF OUTER

TEST 76 PROGRAMMING ERROR
ISSUE A SUBSYSTEM CLEAR.

WORDS
ISSUE

ISSUE

CYLINDER 0, TRACK 0,
WRITE
TO
THE
SPARE

PROGRAMMING ERROR

READ

SECTOP 0.
REGISTER.

DATA

400

DURING READ
MAKE
SURE

SETS.

TEST 77 ECC HARD

ISSUE A SUBSYSTEM CLEAR.
ISSUE
A
WRITE
DATA
WORDS
CONSISTING OF 177777 TO CYLINDER 0, TRACK 0, SECTOR 0.

NOW WRITE ALL ZEROS TO CYLINDER O,
DURING
WRITE
ISSUE
CONTROLLER
PROGRAMMING ERROR

CYLINDER
0,
SHOULD SET.

TEST

100 DRIVE

RESET.

TRACK

0O,

HEAD

NOW

TRACK 0,
C(LEAR.

ISSUE

SECTOR
0.
MAKE
SURE

A READ

DATA

O AND AN E(CC HARD ERROR

TIMING ERROR

ISSUE A SUBSYSTEM CLEAR.
SEEK TC CYLINDER 632.
ISSUE
A
RECALIBRATE
BUT
DO NOT WAIT FOR SECCOND INTERRUPT.
PUT CONTROLLER
IN
DIAGNOSTIC
MODE.
ISSUE
A
READ
HEADER OF CYLINDER 0O, TRACK 0.
(LOCK THROUGH SEEK AND

DRIVE
DRIVE

CLEAR
MESSAGES.
TURN
OFF
DJAGNOSTIC
MODE.
TIMING
ERROR
SHOULD
SET
BECAUSE
OF NO DATA

TRANSISTIONS ON DATA LINE.

ARARARARRRAA AN

««fRROR

TEST

101

AN RN AN RARNRN RN A AR RARNNNR

FORCING

AT ARRARARRRARAN

RANANRARN A A AR

INITIALIZE

MODE.

DRIVE

RAANNNNAN

IR E RSN

SELECTED

DOES NOT

AR ARNRA AT AARARRA AN

SELECT

SELECT AN
AVAILABLE
DRIVE.
PUT (ONTROLLER IN DIAGNOSTI(

COMMAND WITH MESSAGE

CLOCK

DIAGNOSTIC MODE.

SET.

102 DRIVE OFF

CLEARING SACK

ISSUE

TURN OFF

TEST

RN RNAI RN R

IN DRIVE

ISSUE A SUBSYSTEM (LEAR.
ISSUE A SUBSYSTEM CLEAR.

973

974
975
976
977
978
979
980
981
982
983
984
985
986

15:17

THROUGH PHASE

MAKE

SURE

UNIT

AND

ADDRESS 6.

FIELD

ERROR

TRACK

ISSUE A SUBSYSTEM (LEAR.
ISSUE A RECALIBRATE.
[SSut
OFFSET
OF
+1200
MICRO-INCHES.
PUT
(ONTROLLER
IN
DIAGNOSTIC MODE.
ISSUE A WRITE
DATA
OF
1
WORD
T0
CYLINDER O, TRACK 0, SECTOR 0.
(LOCK THROUGH SEEK AND
DRIVE
DRIVE

CLEAR_
MESSAGES.
TURN
OFF
DIAGNOSTIC
MODE.
OFF
TRACK SHOULD SET IN DRIVE.
REPEAT FOR ALl

AVAILIABLE

DRIVES.

¢
PAGE 20

15:'7

SEQ €019

TEST 103 FILE UNSAFE
ISSUE A SUBSYSTEM (LEAR.
[SSUE A RECLAIBRATE,
ISSUE
A
READ
HEAD
OF
CYLINDER
O,
TRACK
O IN 24 SECTOR
FORMAT.
DO A SELECT COMMAND IN 26 SECTOR FORMAT.
PUT
CONTROLLER
[N
DIAGNOSTIC MODE.
ISSUE A WRITE HEADER

TO CYLINLER O, TRACK O, ONE WORD IN 26 SECTOR
FORMAT,
C.OCK THROUGH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE
INDEX PULSE.
TURN OFF DIAGNOSTIC MODE.
FILE
UNSAFE
SHOULD
SET
BECAUSE
OF
ATTEMPTING
TO WRITE THROUGH
SECTOR PULSE.
REPEAT FOR ALL AVAILIABLE DRIVES.
TEST

104

DUMMY

TEST

THIS TEST

FOR PREVIOUS

IS PRESENT

TEST

TO MAKE

EXIT

$SWOBTB

ENTRY WHICH RELATES TO 'NEWDRV''.

TABLE

HAVE

THIS IS NECESSARY If

AN ERROR OCCURS IN THE
ABORTS
THE
TEST.
IF
PROGRAM WOULD SKIP THE

PRECEEDINC TEST AND THAT
ERROR
THIS TEST WERE NCT PRESENT, THE
'NEWDRV'' ROUTINE AND GO TO
THE

IN ADDITION,

IS CLEARED AND

THE DRIVE

THE

HEADS

ARE

lelelolalelololololele OO0 olelalelolelolalalelelalallole]
W NN AONONONY PORURONINON)
2 3
b md b o =D b b
BN NN NN N N
000NN (L F NP L, VY w2V ls ENTe SV, F NVLSE ] o)
OOV NO NS WO

TEST FOLLOWING ‘NEWDRV''.

THIS
MUST
BE
DONE O PREVENT
FROM THE DRIVE BECC*TMiNG READY AT

*«MULTI-DRIVE
(338223222328

OPERATIONS
02800Ra0

RSttt

tRel Attt

Rlls

TEST

105 RESET ATTENTIONS WITH UNIBUS

INIT

DO A RECALIBRATE ONM ALL AVAILIABLE
TEST

D ek
D oD
D
b
D ed

DC A RECALIBRATE ON ALL
AVAILABLE
DRIVES.
ISSUE
SUBSYSTEM CLEAR.
MAKE SURE ALL ATTENTIONS RESETM.

TEST

MAKE

SURE ALL

DRIVES.

ATTENTION RESET.

106 RESET ATTENTIONS WITH SUBSYSTEM CLEAR

107 SVAL

AND ATTENTION FRCM OTHER DRIVE

DO A RECAL IBRATE ON ONE AVAILABLt DRIVE.
DO A
SE.ECT
ON ANOTHER AVAILABLE DRIVE.
MAKE SURE STATUS VALID IS
SET.
WAIT FOR SECOND INTERRUPT FROM RECAL IBRATE
MAKE
SURE
STATUS VALID REMAINS SET AND DRIVE STATUS CHANGE

REMAINS RESET.

REPEAT

FOR ALL

COMBINATIONS OF

NOTE:

THIS TEST WILL ONLY BE
DRIVES ARE AVAILABLE.

TwO AVAILIABLE

DRIVES.

&~
~o

—

D ed

[SSUE

RESET.

D ad od

)

(2222222228323 2200002RRRiRRRARRARlRRRRlttRRRRRlRlRRRlRRllRRl
R

D e

) cd

ALLOWED
TO
RELOAD.
UNEXPECTED INTERRUPTS
A LATER TIME.

DONE

(EAST

P~~~

28-AuG-81

[0 Fali )

TIR6KGO RK6 FCTNL CTRL DIAG
TIR6KG.P1T
28-AUG-81 15:16

MACY11 30(1046)

30(1046)

NP VNLSNWNND
— O
OO
~n D

SEQ C020

DO A RECALIBRATE ON BOTH DRIVE A AND DRIVE B.
ISSUE A
SEEK
ON
DRIVE
A TO CYLINDER 1.
IMMEDIATELY ISSUE A
WRITE DATA TO CYLINDER 100, TRACK 0, HEAD O
ON
DRIVE
B.
AT
THE END OF THE DATA TRANSFER NO ERRORS SHOULD
BE SET AND DRIVE A HAS ATTENTION SET.

o [0 Y0 Qa2 1V LV, RV (W IV, VU, 1V, 1V, |

)

d e

ed md

)

D mmd

B =D

1044

[olelolelololeololeolololalole]

H
2
PAGE 21

15:17

TEST 10 OVERLAPPED OPERATIONS

1043

—

28-AUG-81

REPEAT

NOTE:

5.C

FOR ALL

NOT

COMBINATIONS OF

ONLY ONE
BE

DONE.

DRIVE

TWO DRIVES.

IS AVAILABLE

THE

TEST

WILL

ERROR REPORTING
A DETAILED

DESCRIPTION

CONTENTS
IS
GIVEN HERE.
?EBFgUND IN THE
LISTING
ABLE.

THE

ERROR

FORMATS

AND

REPORTS

THIS IS ESSENTIALLY THE SAME AS CAN
COMMENTS
UNDER
THE
ERROR
POINTER

ERROR POINTER TABLE:

THIS

TABLE

OCCuR.
FOUND
THE

THE

INFORMATION FOR EACH

NOTE1:
NOTE2:

ERROR

INFORMATION IS OBTAINED BY LSING THE

IN LOCATION $ITEMB.

TABLE

EM
DH
CT
DF
EM AND
BE
A

(ONTAINS

THE

PERTINENT,

THIS NUMBER

THAT

(AN

INDEX NUMBER

INDICATES WHICH

ITEM

IF SITEMB IS O THE ONLY PERTINENT DATA IS (S$ERRPC).
EACH ITEM IN THE TABLE CONTAINS &4 POINTERS
EXPLAINED AS FOLLOWS:
2 JPOINTS TO THE ERROR MESSAGE
;;POINTS TO THE DATA HEADER
;sPOINTS TO THE DATA
;cPOINTS TO THE DATA FORMAT
DH ARE ASCIZ DATA,
EM IS ALWAYS A MESSAGE BUT
DH
(AN
MESSAGE
OR
A
SET OF COLUMN LABELS SPACED ACCROSS THE

PAGE, DT IS A STRING OF WORDS THAT POINT TO
THE
DATA
TO
BE
TYPED,
AND DF IS A STRING OF WORDS THAT TELL HOW THE DT WORDS
ARE TO BE TYPED.
IF ANY OF THE POINTERS ARE NOT NEEDED, FOR A
PARTICULAR
FORMAT,
IT
IS
REPLACED WITH A ZERO.
THE NORMAL

USAGE OF THE ERROR TABLE IS TO HAVE A
TABLE
ENTRY
FOR
EA(H
ERROR MESSAGE THAT CAN OCCUR.
IN THE INTEREST OF ECONOMICS Of
CORE MEMORY, THIS PROGRAM USES THE ERROR TABLE
IN
A
SIGHTLY
DIFFERENT MANNER AS DESCRIBED BELOW.
1089

THE

ERROR

TABLE

ENTRIES MAKE

UP A SET OF

REPORT

FORMATS

THAT

MACY11

~~a

(IR6KGO RK6 FCTNL CTRL DIAG
CIR6KG. P
2B-AUG-81 15:16

1090
1091
1092

1093
1094

ARE
USED
REPORTED,

CHOSEN

)

bbbbhbwwwwwwwwuwmmmmmmmmwmdaaaddafldaooooooooog
NO N
W
—=OLC O NAWNMES WA =C Y70 NV
NN SO0
NN NS WA —
VB W= OV

)
D

b and
cend

d =
d

D o

D
D

cnd
D od =

D
d ed

)

D e

d cd

D
D
)

d
D
D
b
b

)
D
D
D e
d

b e
D

el e
D
)

D =D

)

d
D

h =

D cmd aed cmd
b e
) e

i
] wd
D ed
) md
D
D

D ad
)

e
e

e e

D e

mdh
b e

SEQ 0021

THROUGHOUT
THE
PROGRAM,
WHEN
AN ERROR IS TO BE
THF TABLE ENTRY THAT PROVIDES THE DESIRED FORMAT
|S

FROM

THE DEFINED SET.

THE

TABLE ENTRY CHOSEN ]S

THEN

ALTERED BY CHANGING THE FIRST (AND POSSIBLY THE
SECOND)
WORD
TO
CONTAIN
THE ADDRESS OF THE ASCIZ STRING THAT MAKES UP THE
MESSAGE PORTION OF THE REPORT.
THE DATA FIELDS FOR THAT ENTRY
ARE NEVER CHANGEL, NOR ARE THE COLUMN LABELS OR POSITIONS.
THE

v —d o

I
2
PAGE 22

15:17

)

28-AUG-81

FORMAT

THAT

EACH

6?$A DEFINITION

TABLE

ENTRY

PROVIDES

ENTRY.

ALL

SHOWN BELOW

WI'H

DATA FIELDS ARE

TYPED

RKER
T.LR

RKASOF
T.ASOF

RKDCYL
T.DCYL

RkDA
T.DA

RKER
T.ER

RKASOF
T.ASF

RKMR1
T.MR1

ERROR ITEMS 4,5,6, AND 7 ARE USED TO REPORT

ERRORS

THE

ERROR ITEM 1

(ME SSAGE)
TST NUM ERR P(C

$TESTN

SERRPC

DRIVE

DRVNUM

ERROR ITEM 2

(MESSAGE)
(MESSAGE)
TST NUM ERR PC

$TESTN
RKCS1
T.CS1

RKBA
T.BA

DRIVE

SERRPC
DRVNUM
RKCS2
RKDS
T.CS2
T1.DS

RKWC
T.wC

ERROR ITEM 3

(MESSAGE)
TST NUM ERR PC

$STESTN
RKCS1
T.CS1
THE

RESULT

DRIVE

SERRPC
DRVNUM
RKCS2
RKDS
T.CS2
T.DS
OF

A HARDWARE

ERROR

INDICATOR BEING

SET

THAT

ARE

WHEN NCT

EXPECTED, NOT SET WHEN IT IS EXPECTED,
OR
BOTH.
THE
ERROR
REPORT WILL CONTAIN (1) ALL THE ERRORS THAT WERE DETECTED, (2)
ALL THE EXPECTED ERRORS THAT DID NOT OCCUR,
OR
(3)
ALL
THE
EXPEDTED BUT NOT SET ERRORS AND THE UNEXPECTED BUT SET ERRORS.
THE MESSAGE

é?g%ggggrslN
"'THE
"'THE
"'THE

ITSELF

ABOVE ARE
ABOVE ARE
ABOVE ARE

THE

EXPLAINS

THE

CIRCUMSTANCE

REPORT WILL BE

ONE

OR MORE

FOR

THE

REPORT,

FOLLOWING

EXPECTED ERRORS THAT DID NOT SET IN OPERATION:''
UNEXPECTED ERRORS SET IN OPERATION:'‘
ERRORS SET IN OPERATION:''

PRECEEDING ANY ONE OF THESE LINES WILL BE ONE
OR
MORE
LINES
THAT SPECIFY THE EXACT ERROR.
FOLLOWING THE LAST [ INE WiLL BE
A LINE THAT IDENTIFIES TAE OPERATICN BEING PERFORMED,

30(1046)

[ FanY

MACY11

[

CIR6KGO RKG FCTINL CTRL DIAG
CIR6KG. P11
2B-AUG-81 15:16

) —

OO0 VOV VOV OOV OO0
NN NN NNNNNVYOOO OO[o Yo Yo X0 Yo JU, IV IV IV IV IV IV IV IV, [V, P o0o0 3} &~
S OOVDNOENEBNWN = OOV
NYONH NN 2O 0N
NS W= OV
NN
W
2O 0
NN
WN—-O 00D~ o

D
D
D

R
e
e B
R
I g

d e
D
b
d

15:17

2
PAGE 23

EXAMPLE:
NON-EXISTANT DRIVE
THE ABOVE ARE
DRIVE SELECT

ERRORS

SET

SEQ 0022

IN OPERATION:

(ADDITIONAL LINES OF

INFORMATION)

THIS

AN ERROR

THE

RESULT

EXAMPLE:
NON-EXISTANT DR]IVE
THE ABOVE ARE EXPECTED ERRORS
DRIVE SELECT
(ADDITIONAL

LINES OF

THIS

I.E.

A NON-EXISTANT

RESULT

SET

IN A

SELEC

THAT DID NOT

SET

OPERATION.

IN OPERATION:

INFORMATION)

D
d o e
D
D

o SN
e

e
s
D
D

DID

NOT

OCCUR,

ARE

EXPECTED

ERRORS

THAT

LINES OF

IS AN EXAMPLE

IN OPERATION:
DID NOT

SET

[N OPERATION:

INFORMATION)
OF

NON-EXISTANT

(DESCRIPTION OF OPERATION)
TST NUM ERR PC
DRIVE
$TESTN
SERRPC_
DRVNUM
RKCS1
RKCS2
RKDS
RKER
T.CS1
T.CS2
T1.DS
T.ER
RKBA
RKW(

D oD

THAT

MEMORY

BEING

SET

RKASOF
T.ASOF

RKDCYL
T.DCYL

RKDA
T.DA

B0Z2

A03

BO3

WHEN

ERROR ITEM 4
(DESCRIPTION OF ERROR)
ERROR IN OPERATION

T T S

) cd

DATA

D ed

THIS

T.BA

d
)

ABOVE

SET

D ced ed d

e
e R

i e

THF

WRITE

) e

NON-EXISTANT MEMORY
THE ABOVE ARE UNEXPECTED ERRORS
UNIBUS PARITY ERROR

T.WA

AQO

GV
il wed

ERROR

:
EXAMPLE

$REG10

D
)

S
I

ad
d e

AN EXPECTED

DRIVE WAS ADDRESSED BUT NED WAS NOT SET.

UNIBUS PARITY ERROR WAS EXPECTED.

ST QR

el e
el

(ADDITIONAL

~N | N6 YO Y

— e

THE

ERRORS

800

SREG11

AQ1

801

ACC

$REG12 $SREG13 SREG14 $REG!S $REGT6 SREGT?

REPORTED BY

THIS

FORMAT

ARE:

CONTROLLER DETECTED DRIVE BUS ERROR
DRIVE DETECTED DRIVE BUS ERROR
SEEK INCOMPLETE

NON-EXECUTABLE

DRIVE

DRIVE TIMING ERROR
DRIVE UNSAFE

LOW

SPINDLE SPEED LOSS
DRIVE OFF TRA(K

FUNCTION

« Yy

28-AUG-81

~Ney

MACY11 30(1046)

D i o

D =D —

CZR6KGO Rk6 FCINL CTRL DIAG
CZR6KG.P11
28-AUG-81 15:16

MACY11

30(1046)

2B8-AUG-81

15:17

PAGE 24

SEQ €023

ILLEGAL DRIVE ADDRESS ERROR
CYLINDER OVERFLOW
DRIVE TYPE ERROR

NS NN

AS
ITEM
&
WITH
THIS MESSAGE 1IS:

NOAWNS WA =SO00 N

THIS ENTRY IS THE SAME
MESSAGE THAT FOLLOWS.

ERROR

WN SOV

2O 000

ERROR ITEM S

"ANY FIELD WITH ALL ONES MUST BE

THE

THIS

THE

REPORT

THRU BO3

WILL

PRINTED

WHEN

ADDITION

FOR

AQO

INVALID'

GATHERING OF

IS NOT ACCOMPLISHED WITHOUT ERROR.

DATA

ITEM 6

(DESCRIPTION OF ERROR)
ERROR IN OPERATION
(DESCRIPTION OF
TST NUM ERR PC

$TESTN
RKCS1
T.CS1
RKBA
T.BA

OPERATION)
DRIVE

SERRPC
DRVNUM
RKCS2
RKDS
T.CS2
T.DS
RKW(

RKER
T.LR

RKASOF
T.ASOF

T.wC

THIS FORMAT ARE:

WNI 2OV

ERRORS REPORTED BY
DATA CHECK
WRITE CHECK

BAD SECTOR ERROR

200NN

THE

CONSIDERED

ECC HARD
DATA LATE
OPERATION INCOMPLETE

NOWVIS W

D
d
d
b =D
D =D
d
D
d
D
D
D
D
b
b
e
D e
d
b
d
e h ed
b
b
b =
D e
b e
d e
D
b
d
D
D
h
b —d
b ad
b ad
b
b eed

NORNLNLALALFLNLRIPLNLNLNURL
AL N NLNVNL AL NVNLNL NI NLNININL AL NV PL AL AL AL LNV NV NN NI NI AL N NN NN NI NN
VAWV
SNBSS SNBSS WWWIWIIWWWN W WWNIN W N NN NN NN
= b
a2
= 0 0 OO

1207

FORMAT ERROR
WRITE LOCK ERROR

HEADER VRC

ERROR

ERROR ITEM 7

(DESCRIPTION OF

ERROR)

TST NUM ERR PC

DRIVE

ERROR IN OPERATION
(DESCRIPTION OF OPERATION)
$TESTN
RKCST
T.CS1

SERRPC
DRVNUM
RKCS2
RKDS
T.CS2
T.DS

THE ERRORS REPORTED BY
NON-EXISTANT DRIVE
NON-EXISTANT MEMORY

CONTROLLER TIME OuT
UNIT FIELD ERROR
MULTIPLE DRIVE SELEC]
PROGRAMMING ERROR

UNIBUS PARITY ERROR

RKER
T.ER
THIS

RKASOF
T.ASOF
FORMAT

ARE:

RKDCYL
T.DCYL

KRKDA
T.DA

Podns

CIR6KGO RK6 FCTNL CTRL DIAG
(ZR6KG.P1
28-AUG=-81 15:16

1258
1259
1260
126°
1262
1263
1264
1265
1266
1267
1268

28-AUG-81

DESCRIPTON OF

ILLEGAL.

\‘m

00 00 00N NNN ~N N ~N
NN
N — O Voo~ [V, W)
—

D
D
d
)
D
d
D
d oD e
b
et

NONLNONLPLN
NV PO NN

SEQ 0024

OFERATION CAN BE

ERROR ITEM 10

(DESCRIPTION OF

ERROR)

(DESCRIPITON OF
TST NUM ERR PC

OPERATION)
DRIVE

ANY

(OMMAND,

EITHER

THE

ERRORS

REPORTED BY

THIS

FORMAT

ARF

SOFTWARE

COMPARING
EXPECTED RESULTS WITH ACTUAL RESULTS.
FAruR> ARE:
WORD COUNT INCORRECT
BUS ADDRESS INCORRECT
CYLINDER ADDRESS INCORRE(T
TRACK ADDRESS

SECTOR ADDRESS

DETECTED

ERROR

SPECIFIC

INCORRECT

ITEM 11

(ERROR INDICATOR OR STATUS BIT)
NOT SET AS A RESULT OF
(ANOTHER ERROR INDICATOR, STATUS BIT,
TST NUM ERR PC
DRIVE

$TESTN
RKCS1

SERRPC
DRVNUM
RKCS2
RKDS

T.CS1

T.CS2

ERROR ITEM 12
THIS

THE

INCORREC(T

ERROR

T1.D¢

IDENTICAL

OR OPERATION

RKER

RKASOF

RKMR1

T.ER

T.ASOF

T.MR1

ITEM

EXCEPT

THE

SECOND LINE

IS:

ITEM 11

EXCEPT

THE

SECOND LINE

IS:

ITEM

EXCEPT

THE

SECOND

IS:

"NOT RESET AS A RESULT OF''

ERROR ITEM 13
THIS

ERROR

IDENTICAL

"'SET AS A RESULT OF"
ERROR

ITEM 14

ERROR

IDENTICAL

"RESET AS A RESULT OfF"*
——d
2 OO

$TESTN
ERRPC
DRVNUM
EXPT
IS
$REG
$REG10

THIS

W
=2 OO

LEGAL

ERROR AT COMPLETION OF OPERATION

d
D
b
D
d
b
D
=
ok - — e
) d
b
)
b
—

WWWNIRORL
PR N NN
AL NUNINO N
OOOVVOOVW el NO O O O 00 0o 00 00 Co Co
N = OV
~YON N &~ WN)
= OO 00 NN

L
2
PAGE 25

ILLEGAL FUNCTION CODE

1269
1270

1303

15:17

ERROR ITEM 15

(HEADER WORD MISCOMPARE)
TST NUM ERR PC
DRIVE

$TESTN

GOOoD

$REG10

SERRPC

BAD

SREG11

DRVNUM

WORD NUM
SREG1?

(DATA MISCOMPARE)

LINE

MACY11 30(1046)

[alal

(ZR6KGO RK6 FCTNL CTRL DIAG
CZRO6KG.P11T
28-AUG-81 15:16

28-AUG-81

15:17

PAGE 26

SEQ 0025

6.0

IN THE INTEREST GF
EXTENSIVE
USE
OF

WORD NUM FOR ERROR

15.

PRESERVING CODE

CONSERVING MEMORY, IT IS NECESSARY TO
MAKE
SUBROUTINES.
HOWEVER, IM THE INTEREST OF

READABILITY,

SUBROUTINE NAMING

DESCRIPTIVE

OF
THE
FUNCTION
PERFORMED.
THE SUBROUTINE FUNCTION IS KEPT
SMALL AND IN GENERAL A SUBROUTINE ONLY PERFORMS ONE
FUNCTION,

1.E., LOAD THE RK611 REGISTER AND START AN OPERATION (TLOADRK)

OR WAIT A SPECIFIED NUMBER OF MILLISECONDS
(TWATNN

WHERE

NN VARIES

WAIT).
THE FOLLOWING
PROVIDED BY SYSMAC:
AR

FROM CALL

RAA RN R

FOR

CALL

IS A DESCRIPTION OF

A AN R AR AN AT RN RN R AR

LINE

AND

THE

AR AR R RN

INTERRUPT

THE

TIME

SUBROUTINES

T0O

NOT

RN AN AR A AR R AR RN RN

CLOCK CALIBRATE
AR

A AN TR AR AR AR

AR AR

A RARR A NN RN A RAS RN RN AR AR

)

rd eed

WAITS FOR A LINE
CLOCK
INTERRUPT
TO
C(ALIBRATE
THE
INTERRUPTS TO A MEANINGFUL TIME VALUE.
IN ADDITION [T
PRESETS THE TIMCNT IF THERE IS NO LINE CLOCK.
TIMCNT
IS USED IN THE LINE CLOCK SIMULATOR.

D e
) e e

BAD,

CALL:
AAARRR AR

JSR

PC,CLKCAL

AR AN RN RN RARRANNRN

OPTION PRESENT

TEST AND SETUP

LA RS S

ARRARE

AR A

AR ARNRNANN NP AR

R ARk

D e

GOOD,

SUBROUTINES

D eh

)

D e

) oD

D e

ERROR ITEM 16

ADDITIONAL LINES OF

) ek end

THIS ROUTINE CHECKS IF THE MEMORU
PARITY
OPTION
AND
THE
LINE
CLOCK
ARE ON THE SYSTEM.
FLAGS ARE SET I[Ff
PRESENT;
CLEARED
OTHERWISE,
AND
THE
APPROPRIATE

D e

INTERRUPT VECTORS ARE SET UP.

CALL:

d
)

e sttt
RSRS R 2T

AR AR AR RN AR

LINE
AR AR

JSR
AN

PC,OPTTST

RN R AR

RN R AR A RN AR AR ANN RN

R A RN RN

AR R

AR NN

CLOCK SIMULATION ROUTINE
AR A AR AN R

AR AR A AN RN AR AR

RN RN RN

RRN

NANRANRNRE P

d el

bbb e

SRRt

THIS ROUTINE

IS USED TO SIMULATE

THE LINE

DO THIS THE VALUE STORED IN MILCNT

CLOCK.

IS USED AS THE BASE

AND REPRESENTS THE NUMBER OF
TIMES
A
DECREMENT
AND
BRANCH
LOOP CAN BE DONE IN 1 MILLISECOND.
THE TIM(CNT
VALUE IS DECREMENTED AND IF
IT
REACHED
O
THE
LINE
CLOCK
TICK
COUNTER
IS
BUMPED.
THEN THE TIMCNT ]S

?EEEI TO 16 (REPRESENTS 16 MILLISECONDS PER LINE
THUS

THE

ROUTINE

RETURNS

THE

CALLER

(LOCK

AFTER

30(1046)

MACY11

AN LN L UN U AN N N N N U N U N UV UN U N U N N N N N N N U AN N N U NN N N N WA N AN N N N N N NN N NN N NN N N NN
QOO OO NNANWNWVNWNNNWE IS B IS BN IS BN S BN DS IUNWNIWIN N NN N NN
RO RO RO RO RO AD PO ROND) = = 2
s
NN
NBINWN =2 OO0 NN
NN <2 OV 00 NN BN (AN = OO 00 NNV S AN = O 0 00 NN N IS NN = OO0 00 O U s

CZR6KGO RK6 FCTNL CTRL DIAG
CZREKG.P11
28-AUG-81 15:16

MACY11

30(1046)

28-AUG-81

1370
1371

N 2
PAGE 27

15:17

MILLISECOND

SEQ 0026

AND BUMPS

THE

EACH 16 CALLS.
CALL:

JSR

(2323220200200

WAIT

FOR

AR AR

dli

LINE

CLOCK

TICK

COUNTER

FOR

PC,MYTIME
st

ss iR

RARSRER SRR X

INTERRUFT ROUTINE

AN AR AR

THE
THE
ARE

A AN RN RARARNNANARNRRANRARAA
AN AR AR AR AR AAR

ROUTINE IS ENTERED BY ONE OF FOURTEEN TRAP
CALLS.
CALL
SPECIFIES
HOW MANY TICKS OF THE LINE CLOCK
TO
ELAPSE
WHILE
WAITING
FOR
INTERRUPT,
IF

INTERRUPT
DOES
NOT
OCCUR IN THAT PERIOD OF TIME, AN
ERROR MESSAGE IS PREPARED
(BUT
NOT
PRINTED
IN
THE

ROUTINE)AND

THEN RETURNS

THE

INTERRUPT WAIT.

THE

LOCATION FOLLOWING

THE

CALL.
IF INTERRUPT OCCURS THE RETURN IS BUMPED BY
2.
NORMALLY
AN
ERROR CALL WILL BE IN THE LOCATION AFTER
CALL

CALL:
TWAT8S,
AR AA AN

TWAT16
THROUGH
AND TWATIM

ARNANA NI

PR N E R

RN RN

TWAT159,

TWAT1S,

R AN R AN NN RN AT R R AN T AR

TWAT?ZS,

AAANENN NN

NNN RS

"L'" REGISTER LOADING ROUTINE
A

ASAAAA

THE

222 2222222222222
2222322222

PARAMETERS

THE

"L'"

FOLLOWING

THE

CALL

ARE

REGISTERS L.CS1-L.DCYL.

TRANSFERRED

L.MR1

INTO

IS NOT LOADED

IN THIS MANNER SINCE IT IS NOT COMMONLY LOADED FOR
OPERATION.
L.CS2 IS LOADED FROM DRVNUM,

CALL:

JSR
R¢,
RI MAD
{ OMMAND
WORD COUN"

BUS ADDRE.
.BYTE
SECTOUR ADDRESS
—O
O VIS W

LA A

RAR A

LOAD RK611
(A2 A

TRACK ADDRESS

EEEERE

SETUP STORAGE S TRANSFERRED TO
THIS
IS
A
STRAJGHT
TRANSFER

CHECKING OR MANIPULATION
OF
THE
REGISTER
éi$S}s gét TRANSFERRED
LAST AS [T SHOULD BE
LALL:

TLOADRK

(AR A2202222222

22022222

STORE RK61'
\ A

FOR OPERATION

THE REGISTER
REGISTER.

N=0O YV

P
W
W
W
g
e
e

[ORAERE RE 2¥ 2 2R LW S L S
o
PONUND b b 2 2 =) e b ed = el

)

.BYTE

CYLINDER ADDRESS

A E R

RN R

R R R

R R E

RN R

THE RKE1Y
wilH
NO

(ONTENTS,
!F THE GO

R R R

REGISTERS

AR A Rl
R R
R RN R Z R R R R R R R R R R X R R
EE N R R R R
R A R R

CZR6KGO Rk FCTINL CTRL DIAG
CIR6KG.PT
28-AUG=-81 15:16

VMACY11

30(1046)

'
28-AUG-81

'5:'7

B
3
PAGE 28

SEQ 0027

ALL THE RK611 REGISTERS ARE STORED IN THE TEST TABLE T
WITH
TrkE
EXCEPTION
OF
THE DATA BUFFER WHICH IS NOT
STORED IN THIS ROUTINE.
TGETRK

CALL:

ARARARANREARRARRIRPANARNRARNRANRARARAROANARNACTARr
AR ROANCRARNOQAOTOINOSE

RIT

COUNTER

IN A WORD

AEARNRNRANRAAAARAEANCAAARARRARAARANAAAANRAAIANRAANAAANRRACARNOAORNAO
TR

THE

WORD WHOSE BITS MUST BE

STACK

THE

FOUND

IN THE

CALL:

JSR

CALLING

WORD ARE

COUNTED

ROUTINE.

PLACEDL

THE

THE NUMBER OF BITS

PASSED BACK ON THE

STACK.

R4 ,BITCNT

(2222233232222 2322223222232222R2222R2208
22202 22RRRRRRRRRRRRRRRR

MAINTENANCE

CLOCK ROUTINE

(2322222208222
2SR RRRRRRRRRRRRiRlRRRRRRRRdlA)

THE PARAMETERS PASSED TO THIS ROUTINE ARE
LOCATED
IN
THE
ADDRESS
AFTER THE CALL.
THE FIRST BYTE CANTAINS
THE NUMBER OF PHASES
ADLRESSES
THE
CALLING
ROUTINE
WANTS
THE
CONTROLLER
CLOCKED THROUGH AND THE SECONL
BYTE CONTAINS THE NUMBER Of CLOCKk TRANSITIONS (PARTIAL
PHASES)

TO BE

DONE.

CALL:

JSR
.BYTE

R4 ,MCLOCK
;JNUMBER OF

.BYTE

sNUMBER OF

CLOCK

TRANSISTIONS

PHASE ADDRESSES

(22222283282 220208AARREERRRRRRRRARRSRRRRRRRRRRRRRRRRRRERARRERS]

READ

AND

SCRT

HEADERS

(22222388NE2R22022RSdRRRRRRRRRRRRRRRRSRRRRRRRRRRRARRRRRRD)

THE

HEADERS

FIELDS

IN THE

THE

ASSCENDING ORDER.

THE
READ
HEADER
AFTER EACH READ OF

CALL:

2222222

RSN

GET

DRIVE

STATUS

JSR

TCHKOP

CYLINDER AND

''L'"

TRACK

(CONTROLLER ERRORS

;Rg;URN POINT

4
13

ERROR

ARE

OPERATION
AND DATA LATE
THE DATA BUFFER.

R4 ,RDSTHD

ERROR
ERROR

SPECIFIED BY

THE

REGISTERS ARE READ AND STORED IN

(HECKED

IS CHECKED

(ERR

IN READ

JOR S, 6, 7
JRETURN IF DATA LATE IN DB
;UNLOAD
JRETURN [F T0 SLOW OR
;IF HDR O NOT FOUND

RS ARERRRRRRSRARRRRSRRRRRRRRRRRRRRRRRERANS]

~ o~

CIR6KGO RK6 FCINL CTRL DIAG
CZREKG.P11
28-AUG-81 15:16

CIR6KGD RkG FCINL CTRL DIAG
CZR6KG.PT
28=AUG=81 15:16
1482
1483

VACYTT

30(1046)

c
3
PAGF 29

15:17

28-AUG-81

SEq 0078

PARREAARANNANARRNNRRNARE
RN R R EARRAIR AR AR EARANANARNRANRARA RO
IROERR

THIS ROLTINE

SREGI0

GETS

ALL

THE

DRIVE

THROUGH SREG17.

STATUS AND

CLEARED TO ALL ONES AND THEN
IF
GETTING STATUS, THE 1°'S ARE LEFT
CALL:

JSR
BR
BR

NARAANEARARAATAN NP A IR

SUBSYSTEM

AN ARNEN AR

AND

ERROR
OCCURS
WHILE
IN THE REGISTERS.

R4, GETDRS
ERROR PROCESSING
NO ERROR PROCESSING

INITIALIZE

PLACES

THESE REGISTORS ARE FIRST

ERROR RETURN
GOOD RETURN

AN ARANAANNANNARIRANRNAN
T NNNORRANRTAONOERRY

INITIALIZE

STATE

TEST

EARARARAANAAR TR RANANNRANRRRAROANANRAARANIRROANAAARANNNORCORRNORS

THE

SUBSYSTEM

INITIALIZED WITH

SUBSYSTEM

(LEAR

) o
b
d
D
D
)
e
) o
D e
e
e
e
D) ol e
b
D
d
)
D
b
d ed
D
]
) —d
e
e

(S VLV RV TV TV RV VL T R0 AV TV U TV LV IV VL TV RV AV RV, LWL LV, AV RV TV TV TV, RV IV IV IV 1V, ]V |
WWWWWWWIWNINODNINONONONOINONININ)
— D = L D S a0
s OO olelele)
NOWVB AWM 2OV
NN NS W
2O VOO NN
WA
OO0 ~NoOrwnes

COMMAND.
(ERR AND DI ARE MONITORED FOR A SHORT PEIROD
OF TIME DURING WHICH THEY SHOULD BOTH RESET.

THEY DO RESET, READY

ANY OF

CONDITIONS

APPROPRIATE

WHEN THE
Agog?OD,

THESE

ERROR

THREE

TESTED TO INSURE

MESSAGE

ARE

SETS.
MET

AND REPORTED

ROUTINE RETURN 10 THE CALL.
If
EVERY
THING
THE RETURN SKIPS OVER THE ERROR CALL AND TEST

THE

USUAL

THE

TEST.

CALL

THIS ROUTINE

WILL BE

FOLLOWED BY

THIS IS DONE
IS
FATAL
10

TSSINIT

CALL:

AARARARRARNAATAN AR ANRARRAARANARNAN

COUNT

NOT

PREPARED

ERROR MESSAGE AND BRANCH TO END OF TEST.
BECAUSE FAILURE TO INITIALIZE CORRECTLY

WORD

IFf

END OF

AR AERARANRAANANR SN RERRIROAN

OPERATION (HEC(K

FRAAREARAARRAN LT AR LA AR AR NANRNNNARERANRARAAAAN
N AN
ANARARANRARSEY

THIS
FOR

ROUTINE COMPARES
THE
WORD
COUNT

THE CONTENTS
AGAINST THE

UNEQUAL, THE ERROR FLAG
ERROR FLAGS (GRP4ER)
CALL:

JSR
.WORD

R4, CHKW(

(WCERR)

OF THE TEST STORAGE
SUPPLIED VALUE.
If

JEXPECTED Ww(

SET

GROUP

VALUE

L228228022
R X
R R R R RN R R R S R S X
R XX R KE

BUS

ADDRESS AT END OF

ERAANNRANARN AN G AN

THIS ROUTINE

END

ADDING

OPERATION CHECK

N AN N ANARA A

COMPUTES

AR AN RRAP R AR

THE

INITIAL

RANNNNEAORRNRORSY

EXPECTED BUS ADDRESS

TRANSFER BY USING

THE

WORD COUNT,

THE

SUBTRACTING

ANY

INITIAL BUS ADDRESS,

AND

28-AUG-81

1539

IF BUS ADDRESS INCREMENT

542
I

BUS ADDRESS
CALL:

THE

JSR

INHIBIT WAS SET,

THE EXPECTED

STARTING BUS ADDRESS.

R4, CHKBA

AR RARRRRRRRRRRRRRARRRRtls
RSl RRRRRRR R RN

I B ASRAS

CYLINDER,TRACK,SECTOR

e e R

SEQ 0029

RESIDUAL
WORD
(COUNT.
IF
THIS COMPUTED BA DOES NOT
EQUAL THE (ONTENTS OF RKBA AN ERROR
FLAG
(BAERR)
IS
SET IN GROUP & ERROR FIELD (GRP4ER)

1538

VATV
YA TV ATV
NN VTV (L RVRV,| VAV IV IV TV TV IV TV, 1V, IV IV, 1V, YV, 1V [V, 1V TV TV [V IV IV.IV 1V |
[o.3e
Yo X oMo No SVIV IV IV IV, IV TV IV, IV, IV Vo o2 o &~
O OO D0000000000C0
N 000000 N NN NNNNNNNO
2OV
NNV
WL
OO0~ ok
WR) 2OV
NN WO 000NN
NS WO 0o ~NON VIS W

D
3
PAGE 30

15:17

I ARZRASA20CRRRRRARdlsRARRRERRRRARRRRRRRRRiRRRRlRlRRRRRlRRRN

THIS ROUTINE
AND RKDA ARE

END OF

S
g8 JR A S

ALL

OPERATION.

I
i G

AND

| 22X

JSR

CONTENTS

GENERATED AND

EXPCYL,

gg?RESPONDING BIT

CALL:

THE

ARE
(COUNTED ON TO HAVE
NECESSARY CALCULATION.

VALUES ARE

STORAGE

(HECKED

I
SN W
RN
i B
gy e
e s
e
SN QU S
N
ST S

THREE

ONE
IN

THE

STORED

EXPTRK,

EXPSEC.

ERROR

ARE

FLAGS

FIELD

THE

LOAD

INITIAL

EXPECTED

ALL

WRONG,

3 ARE

(GRP4ER)

THE

R4, (HK(CTS

2222222222222

RdSR 2Rl
lRRRRXRRRRRRR RN A

OPERATION (HECK ROUTINE
Z 22222

82222 AR

THIS

2222

IS WHERE

SOF TWARE

ALL

ERRORS

AN N

HARDWARE

ARE

ERROR

EE R

AR RN

INDICATORS

(HECKED.

EERENENER]

AND

SOME

THE GENERAL PROCEDURE

FLOW IS AS FOLLOWS:
THE ROUTINE IS CALLED WITH A TRAP
(TCHKOP) .
THE
LOCATION FOLLOWING THE TRAP CALL WILL
HAVE AN ERROR TRAP WHICH THE ROUTINE WILL BYPASS IF NO

ERROR

TABLE

TRAP CALL

FORMAT

FOUND.

IF AN ERROR IS DETECTED,

IS MODIFIED BY

ITEM

REQUIRED BY

WILL

THIS ROUTINE

THIS ERROR.

THE

SUCH

THE ERROR

THAT

THE

TRAP WILL

PROPER ITEM FOR THE
ERROUR

MADE EITHER ERROR 4,5,6, 7, OR 10.
REFER TO THE ERROR
ITEM TABLE FOR A DESCRIPT;ON OF THE FORMAT
AND
WHICH
ERRORS ARE DISPLAYED IN WHAT FORMAT,
FOR NO EXPECTED ERRORS:

CALL:
FOR

TCHKOP

EXPECTED

CALL:

Y QS S

THE

VALUES

OPERATICN

CHECKS THAT THE- CONTENTS
OF
THE
RKDCVYL
CORRECT FOR ANY SIZE DATA TRANSFER AT THE

N
[

TEST AT END OF

ERRORS:

TCHKWE

.WORD
.WORD

:GROUP 1 EXPECTED ERRORS
;GROUP 2 EXPECTED ERRORS

.WORD
WHERE

EACH BIT

;GROUP 3 EXPECTED ERRCRS
IN THE

THREE WORDS FOLLOWING

THE

“A_

(20 Yan)

MACY11 30(1046)

Pod P

CIR6KGO RK6 FCINL CTRL DIAG
TIR6KG.P11T
28-AuG-81 15:16

—a

—_ 2000 VOIS
W
AN
— O

-0
C
O

— 20

Ve wnN

B
I
I
I

EPROR,

THE BIT ASSIGNMENTS ARE

:
ERRORS
CONTROLLER DETECTED DRIVE BUS

PARITY ERROR

SEEK INCOMPLETE
NON-EXECUTABLE DRIVE tUNCTION
DRIVE DETECTED DRIVE BUS PARITY ERROR
FORMAT

DRIVE

ERROR

TYPE ERROR

LOW ERROR

SPEED LOSS ERROR
DRIVE OFF TRACK ERROR
CYLINDER OVERFLOW ERROR
ILLEGAL DISK ADDRESS ERROR
WRITE

DRIVE

LOCK ERROR

TIMING ERROR

NO CERR WITH OTHER ERROR SET ERRCR
DRIVE UNSAFE ERROR
CERR BUT NO OTHER ERROR SET ERROR

ERRORS:
ECC HARD ERROR
DATA CHECK ERROR
WRITE CHECK ERROF
DATA LATE ERROR
OPERATION INCOMPLETE
HEADER

VR(

ERROR

4~ ——

g Bt Bt
Bt

—
=

g Pt $t Dol Bt B

OCODODODDODODDODOODDODA

P.e)

DDDDOVOO

ad ard =D
—h o
Sk

NONEW A¥]
SE NN

2OV

norurRORNORY
=

ek e

B arh e

1611

Sy Ponnt Pt Pt

1610

BAD SECTGR ERROR

ERRORS:
NON=-EXISTAND DRIVE

ERROR

I
B
R
D
Y
B
I
I

@ DD DOD
DD
St g et Bt D Bt st B X

A= ——D
C
NOWVNMSWN—=O
T

1625
ERROR

CONTROLLER TIMEOUT ERROR
UNIT FIELD ERROR

MULTIPLE DRIVE SELECT ERROR
PROGRAMMING ERROR
NON-EXISTANT MEMORY ERROR

UNIBUS PARITY ERROR
ILLEGAL FUNTION ERROR

(8222232320080l
RSlRitAlilRlE
iRl
R RRRRERRERR R RN

BAD SECTOR (HECK
LA 0SS SRERSRRRRARRRRRSRReRElRRlRR
Rl
RRRRRRRRRRRRERN R

THE

CALL

FIELD WHOSE ADDRESS

THEREIN

CHECKED

THAT

SPECIFIED

HAVE

THE

SEE

THE

CYLINDER

IN L.DCYL AND L.DT.

LOCATION

AFTER

ANY SECTORS ARE

AND

TRACK

A SECTOR

THE

LISTED

ADDRESS

IS FOUND

THIS FIELD THAT IS BAD FOR THAT
(CYLINDER
AND
TRACK,
THE
SECTOR
NUMBER IS PLACED ON THE STACK,
THE TOTA,
NUMBER OF BAD SE({TORS IS PLACLD ON THE STA(CK AFIER THE

ENTIRE *1ELD

IS SEARCHED.

[
T

SES 0030

SPECIFIC

=D
c
PO

1608
1609

—

GIVEN BELOW:

)

REPRESENT

1598
1599
1600
1601
1602
1603
1604
1605
1606
1607

ooooooorOrOrOrOONONONO

E
3
PAGE 31

15:17

) V]

28-AuUG-81

Pt P

1594
1595
1596
1567

28=AuG-81 15:16

30(71046)

A=~

({IR6KG. P

MACYTT

ot bt Pt P

(ZR6KGO RK6 FCINL CTRL DIAG

CZRO6KGO RKE FCINL CTRL DIAG
TIR6KG.P1Y
28=-AUG-81 15:16
1650
1651
1652
1653

1654

1655
1656

1657
1658
1659
1660

MACYTT

30(1046)

28-AUG-81

CALL:
LAAAR

15:17

AR AR R

PAGE 32

JSR

R& ,BDSR(K

<ADDRESS OF
R

SEQ3 0031

FIELD

RAAARAN

RN TRV R RANNIANNNRNNANARC

CALLS:

JSR
CONTROL

1665

JSR
R4, GENCOM
CONTROL wORD

1664

1666
1667

1688
1689
1690
1691

1692
1693
1694
1695

1696
1697
1698

1705

I N RN

AANNOEOR

AR RN AP S

R4, GENCOM
WORD

LENGTH

1686
1687

JCR
R& ,GENCOM
CONTROL WORD

1662
1663

1681
1682
1683
1684
1685

SEAR(CHED>

DATA GENERATION AND COMPARE ROUTINE

1661

1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680

TO BE

RELOCATION

(ONSTANT

LENGTH
RETURN:

RTS

R4 IS ADJUSTED IN THE (ODE FOR THE FOLLOWING
RETURNS:
THE
FIRST
CALL RETURNS TO THE LOCATION FOLLOWING THE

(ONTROL
THE

WORD.

THIS

SECOND CALL

LENGTH IF
’

RETURNS

THE

LCCATION FOLLOWING

THE

GENERATED

(SOURCE)

THE OPERATION REQUIRES DATA (QOMPARE AND DATA

MISCOMPARED.

DQTA

IS UNCONDITIONAL.

COMPARE

DATA

TO BE

ERRORS OCCURRED,

ONLY

THE

RETURN IS

THE

SECOND.

TO LENGTH

THE

THIRD

CALL

DEFINITION OF

BIT 15
BIT

BIT

iDENTICAL

CONTROL WORD:

- DO COMPARE OPERATION OF

IBUFF

OBUFF (DESTINATION).
EXPECTED VALUES ARF
IN OBUFF (DESTINATION.
~ RESUME COMPARE OPERATION FROM POINT
LEFT
BY LAST COMPARE.

- {?go§g) MEMORY
U

MANAGEMENT

FOR

- {3;8??,”5”°R' MANAGEMENT FOR

SOURCE

DESTINAT]ON

BIT 11

- REPEAT FIRST

BIT 10
BIT 9
BIT 8

- CLEAR IBUFF TO PATTERN SELECTED.
- BUILD HEADERS, CONSIDERING BS FILES
- 2gé%gR?EADERS, ALL SECTORS INDICATE

BIT 7

- HEADER ~ OPERATION

BI"

WORD

THROUGHOUT OBUFF
.

SELECTED

SPECIFIED

PATTERN
GOOD

(E1THER

COMPARE OR BUILD).
0 0 - PATTERis SELECT FIELD, OCTAL
ENCODED.
©
INDICATES
NO
DATA
GENERATION, 1 IS ALL

30(1046)

(28-A.G-8"

'5:'7

PAGE

SEQ 0032
JEROS, AND 7 IS ALL ONES.

PROVIDED

ARE

OTHER PATTERNS

PATTERNS 2-6,

8-16.

O N I~ ho = O

EXPLANATION OF
THE

PARAMETER

2 O OO0

[BUFF

INITALIZATION.

MULTI-PURPGSE

AND

WILL

PERFORM

~HE

BUILD HEADERS, EITHER 20 OR 22 SECTORS/TRA(K MODE.
THE
ROUTINE
WwILL
BUILD
THE HEADERS AS ALL GOOD

SECTORS

(BIT 8)

COMPARE

THE

TAKE

THE

BAD

SECTOR

FILES

CONTENTS

CONTENTS Of
OF

THE

IBUFF

AND OBUFF

BUFFER MAY BE

(BT

15).

DATA.

HEADERS

A HEADER COMPARE OPERATION MAY BE
SPECIFIED
(BIT
7)
WHICH
WILL CAUSE THE COMPARE TO BE LIMITED TO
74(8) OR 102(8)
WORDS
OF
HEADERS.
THE
LENGTH
DEPENDS
ON THE FORMAT BIT THAT WAS LAST SPECIFIED

IN L.CST.
THE HEADERS MAY
BE
BUILT
(OMPARE AS PART OF THE OPERATION (BIT

OR 9).

(OMPARE

ed
) e
e
e
ed
D md

ONLY

(HARDWARE
OR
SOFTWARE)
FOR
EITHER FORMAT) INTO
ACCOUNT AND BUILD THE
HEADERS
WITH
THE
SECTORS
MARKED BAD IF ANY SECTORS FOR THE CYLINDER - TRA(CK
ARE LISTED THEREIN (BIT 9),

2 E3 000 ~JONA X NN

OO 00 NN R

b e
=D
D o oD o
e
) e
d
D
D d e et
D
b
D e
- —
—

THIS ROUTINE
FOLLOWING:

1747
1748

mad el

OPERATION.

THE

DESCRIPTION:

1746

(COMPARE

WORD

THE CALL WITH CONTROL WORD,
RELOCATION
CONSTANT,
AND
LENGTH IS USED FOR DATA GENERATION OR (OMPARE
WITH MEMORY MANAGEMENT.

1743

WITH CONTROL

AND FOR

1764
1745

-t

(ALLS:

(ALL

THE
CALL
WITH
CONTROL
WORD
AND
LENGTH
AS
PARAMETERS
IS USED FOR DATA GENERATJON CR (OMPARE

1741
1742

NN NNNNNNNNNNNY
[0 Yo XV IV IV 1V IV AW TV IV IV, 1V ] &»
SOV
NO N WL O O

REFER

THROUGM

USED FOR BUILDING OR (OMPARING HEADERS OR RESUMING

wd ~D

~N N NNNNNNNNNNNNNNNN SNNNN
NN N NN NNNNY
&N AN NN NN N NN
PO RO N PO NO N PIROND)
2 cs e et D
ep
b

;27{25 PROGRAM LISTING FOR PAT02

RESUME

DATA CAN

ALSO

(NON-ZERO BITS 6-0).

(OMPARE

OPERATION.

BEFORE
THE
15 AND BIT 8

GENERATED

BEFORE

A COMPARE

THE

OQPERATION

OETECTS
A
MISCOMPARE,
THE
ROUTINE
RETURNS
T0
CALLER BUT STORES PARAMETERS SUCH THAT THE COMPARE
(AN
BE
RESUMED.
THIS IS DONE BY CALLING GENCOM
WITH BIT 14 SET IN THE CONTROL WORD.
DATA ~ GENERATION

(OMPARE

USING

MANAGEMENT.

MEMORY MANAGEMENT

THIS

DATA GENERATION (AN BE

(AN BE

MEMORY

INVOKED

EITHER SOURCE OR DESTINATION BUT NOT FOR BOTH.
MANNER,

DATA ANYWHERE
(OMPARE

WILL

IN AVAILABLE MEMORY.

(OMPARE

THE

CONTENTS

MADE

TO PLACE

LIKEWISE

OF " [BUFF
-

FOR

DATA

ANY

[ER Kl }

MACYTT

CIROKGO RK6 FUTNL C(TRL DIAG
{IR6KG. P
28-AuG=81 15:16

28-AUG=B1

H
3
PAGE 34

15:1,

30(1046)

SEQ (033

1762
1763
1764
1765

AREA OF
LA AR AR A

PHASE
LAAA R

AR A

AVAILABLE MEMORY.

LAl

LOCKED LUOP CLOCK ADJUSTMENT ROUTINE

THIS
THE

ROUTINE IS ENTERED
PROGRAM FIRST RUNS

VIA
TEST

START
LOCATION
220(8).
1, 2, AND 3 T0 SET UP THE

INTERNAL PROGRAM VARIABLES AND THEN JUMPS TO THE (CLOCK

ADJUST
ROUTINE.
THE
ROUTINE
SELECTS
THE
FIRST
AVAILABLE DRIVE AND SETS
AND
RESETS
THE
DIAGNOSTIC
MODE BIT IN RKMR1.
INSTRJUCTIONS ON WHERE TO SCOPE AND
WHAT TO ADJUST ARE TYPED ON THE CONSOLE.
THIS ROUTINE

7.0

WILL

LOOP UNTIL

THE

PROCESSOR

IS HALTED.

REVISION HISTORY
REVFO

ADD CODE

MODIFY THAIN MODE LOOP ADDRESS

MODIFY

IN PROGRAM INITTIALIZATION TO

CLEAR DATA BUFFER MEMORY LOCATIONS

FOR

XXDP+

COMPATIBILITY

'OPTTS:' ROUTINE

PROCESSOR

AND MEMORY

IN $EOP

TO SUPPORT NEW

OPTIONS

Y SO

MACY1Y

[

(2R6KGO Rxe FCTNL (TRL DIAG
28=-AUG=81 15:16
(ZR6¥.G.P11

CZROKGO Rk6 FCYNL CTRL DIAG
(2R6KG.PIT
28-AuG-81 15:16

MACYTT

30(1044)

28-AuG-81

15:17

1788

rex

1790
17%1

NLIST
LLIST

(ND,MD ,M(C,T0C
ME
ABS,AMA
167400
1

1789

1792
1793

1794
1795

167400

000001

1796

1797

.ENABL

$SWR=
$TN=

REY

007

PAGE

SEQ 0034

nxe

LTITLE
CZR6KGO RK6 FCINL CTRL DIAG
;*COPYRIGHT ((C) 1976,1981
;*DIGITAL EQUIPMENT CORP.
:*MAYNARD,

MASS.

01754

. %
s

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMA(C
;*PACKAGE

(MAINDEC-11-DZQAC-(3),

JAN

19,

1977,

. %

OPERATIONAL

SWITCH SETTINGS

e
ed
i
)

«SBTTL

STACK=
LEGUIV
LEQUIV

000011
000012
000015
000200

HT-

177774
177772
177570
177570

000000
000001
000002
000003
000004
000005
000006
000007

—

HALT ON ERROR
LOOP ON TEST

INHIBIT ERROR

INHIBIT JTERATIONS
BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST

BASIC DEFINITIONS

1100
EMT,ERROR
I0T,SCOPE

TYPEOUTS

ABORT PROGRAM AFIER 20 ERRORS

;*INITIAL ADDRESS OF

0607100

177776

(o XA Y CIVIP
RV, |

I
T

N
T

N
DI

N
LY

B
K
IR

e
e g
Y
Qs Rl QR S
R
VIS S
e
i
R
T
e R
S
G
W
S
N
QO
e SN IR
TW
P

00 00 0o 0o 00 00 00 00 0o 00 00 Co OO 00 00 00 VO00 00 0o 00 0o 00 Co 0o 0o 0o 0o 0o 0o 0o 0o
£ N AN N AN NN NN LAINO N rnorOrRON ~nNo NN
0 =
b
e
O
OO
NN
NN = OO 00 NOMA
S W N 2OV NO N WO

IR I

.SBTTL

IN SWR<7:0>

THE STACK POINTER #*+ 1100 =«
::BASIC DEFINITION OF
::BASIC DEFINITION OF

ERROR CALL
SCOPE CALL

; *MISCELLANEOUS DEF INITIONS

LF=
CR=
CRLF=

PS=
LEQUIV

12
15
200

177776
PS,PSW

::CODE FOR HORIZONTAL TAB

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

S PROCESSOR STATUS WORD

STKLMT= 177774

;;STACK LIMIT REGISTER

DSWR=
DDISP=

: *HARDWARE SWITCH REGISTER
: *HARDWARE DISPLAY REGISTER

PIRQ=

177772

177570
177570

: *GENERAL

RO=

PURPOSE

::PROGRAM

INTERRUPT

;. GENERAL REGISTER

R1=
R2R3=
R&=

11
%2
3
1%

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

R7=

::GENERAL REGISTER

RS=
R6-

%5
X6

:;GENERAL
;. GENERAL

REQUEST

1844

}gég

00000¢

30(1046)
28-AUG-81
BASIC DEFINITIONS
SP=

000007

PC=

1847
1848
1849

000000
000040

;*PRIORITY LEVEL
PRO=
0
PR1=
40

1851
1852
1853
1854

000140
000200
006240
000300

PR3PR4=
PRS=
PR6=

1850

;ggg
1857

1858

000100

000340
100000

1859
1860
1861
1862

040000
020000
010000
004000

18¢1866

000400
000200

000020

1863
1864

1867
868

1870

€71

127
1873
1874
1875
1876
1877
1878

PR7=

400
200

Swh4-

000010

Swo3=

000002
000001

Swo1Sw00=

Sw09,sw9
SW08,Sw8
SWO7,Sw7
SW06,SW6
SW05,SWS
SW04,Swé
SW03,Sw3

EQUIV
EQulv

BIT15=
BIT14=

1889

010000C

BIT12=

1890
1891
1892
1893
1894
1895
1896
1897
1898

1899

004000
002000
001000
000400
000200
000100
000040
000020

000010

000004

2
1

SW0Z2,Sw?

SWO1,Sw1
SWO00,Sw0

. *DATA BIT DEFINITIUNS

100900
040000

020000

;;PRIORITY LEVEL

fQulv
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV

1886
1887

1888

LEVEL 3
LEVEL 4
LEVEL 5
LEVEL €

100
40

EQUIV

1882
;ggz

;.PRIORITY
;.PRIORITY
;;PRIORITY
;;PRIORITY

2000
1000

Sw02=

BIT13=

10000
40000

20000

10000

BIT11=
BIT10=
BIT09BIT08=
B.107=
BIT06=
BI705=
BITO4=

4000
2000
1000
400
200
100
40
20

BIT02=

8I1703=

0
1

;PRIORITY LEVEL 2

100000

SW08Swh7=

Swo6=
SW05=

1880

DEFINITIONS
;;PRIORITY LEVEL
;.PRIORITY LEVEL

340

40000
20000
10000
4000

000100
000040

1831

SEQ (035

: ;PROGRAM (COUNTER

140
200
240
300

SWlé=
Swi13=
Swi2=
Swil=

swi0=
Sw09=

0092004

PAGE 36

;s STACK POINTER

100

:*''SWITCH REGISTER'' SWITCH DEFINITIONS

Sw15=

002000
001000

1879

1885

PR?=

15:17

(BITOO TO BIT15)

VMACY1T

~N~y

CZR6KGO RKO FCTINL CTRL DIAG
TIREKG. P
28-AUG-81 15:16

b —2 b w3 — =D -2

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
0006064
000240

VS W= OV

[

BITO1,
BIT00,BITO

TRAP

;;BREAKPOINT TRAP (BPT)
o INPUT/0UTPUT TRAP (IOT)
;;POWER FAIL

e
e
e
e I
R

»«SCOPE=»

:;EMULATOR TRAP (EMT) =«ERRQORwv
::;"'TRAP'’ TRAP

TPVE(=
64
PIRQVEC= 240

.SBTTL

;:TTY KEYBOARD VLCTOR
;;TTY PRINTER VECTOR
:;PROGRAM [NTERRUPT REQUEST

MEMORY MANAGEMENT DEF INITIONS

VECTOR ADDRESS

MMVEC=

250

;*KT11

STATUS REGISTER ADDRESSES

177572
177574
177576
172516

;*KERNEL "'I"' PAGE DESCRIPTOR REGISTERS

SEQ 0036

KIPDRU=
KIPDPR1=
KIPDR2=
KIPDR3=
KIPDR4=
K!PDRS=
KIPDR6=
KIPDR7=

172300
172302

172304
172306
172310
172312
172314
172316
1

KIPARQ=
KIPAR1=
KIPAR2=
KIPAR3=

172340
172342
172344
17234¢

VECTOR

P~~~

OO O

PAGE

-3 PNIN S~ NN

e e
et

S
Y
ey
g

e D

O U0 O O O O D

J0 U0

OOOOOOOO
NN S NON OO O

—¢

Dot P

= —

;: TRACE

SRO=
SR1=
SR2=
SR3=

= O 000 NN DN SN ~No

VIVNNWNWNES
NN SN
S
WNINWNINNNNWN N

b —D
b ek
D
b —d
D ed
e
b
d
h
md
b e
d
b
b
o
b e
b
d

OO O OO O OO VOOV OOV OO O0VOVO0OVOO0O00

15:17

;*BASIC ''CPU'" TRAP VECTOR ADDRESSES
;:TIME QUT AND OTHER ERRORS
::RE§ESY$D AND ILLEGAL INSTRUCTIONS

;*KT11

000250

(@]

NO NS WNI—=O O

b b

OOV

S Sy

NelololielNolVoRiaR
o Lol o KoLl )

[
QNS
G
S QU S

LEQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

1908

1921

BITO1=
BIT00=

— et

000002
000001

28-AUG-81
BASIC DEF NITIONS

30(1046)

St Bt Bt Pt G

1900
1901
1902
1903
1904

MACY1T1

DODDODODDDM -

CZR6KGO RKG FCTINL CTRL DIAG
CZR6KG. P
28-AUG=-B81 15:16

1956
1957
1958
;828

172350
172352
172354
172356

KIPAR4=
KIPARS=
KIPAR6=
KIPAR?=

1961
1962
}ggz

000210
000240
177440

AVECT1= 210
APRIOR= PR5
ABASE=
177440

}ggg

172350
172352
172354
172356

.SBTTL

RKA11
0
2

1967
1968

000000
000002

RKCS1=
RKWI=

1975

000020

RKDC L= 20

1969
1970
1971
1972
1973
1974

000004
000006
000010
000012
000014
000016

1976
1977

000024
000026

1978
1979
1980
1981
}gg%

2007

2008
2009
2010
2011

RKBA=
&
RKDA=
€
RKCS2=
10
RKDS=
12
RKER=
14
RKASOF= 16

;BUS ADDRESS REGISTER
;DESIRED TRACK SECTOR REGISTER
;CONTROL AND STATUS REGISTER 2
;DRIVE STATUS REGISTER
;ERROR REGISTER
JATTENTION SUMMARY AND OFFSET REGISTER

;DESIRED CYLINDER REGISTER

DRIVE

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

101
103
105
107
111
113
115
117
121
123
125
127
131

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS

000001
000100
000200
000400

60=
IE=
RDY=
BA16=

BITO
BITé
BIT7
BIT8

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

002000
004000

(DT=
(T0=

BIT10
BITN

s CONTROLLER DRIVE TYPE (0=RKk06)
;CONTROLLER TIMED OUT WAITING FOR
;
DRIVE RESPONSE
;CONTROLLER DRIVE FORMAT (0=26 SECTOR,

000101
000103
000105
000107
000111
000113
000115
000117
000121
000123
000125
000127
000131

000300

;CONTROL AND STATUS REGISTER 1
JWORD (OUNT REGISTER

.SBTTL

588}
2003
2004
2005
2006

CONTROLLER REGISTER DEFINITION

24
26

}ggg

}888

;DEFINE RK611 VECTOR INTERRUPT
;DEFINE RK611 PRIORITY
;DEFINE RK611 BASE BU: ADDRESS

RKDB=
RYMRT1=

000034
000036
000030
000032
000022

1986
1987
1988
1989
1990
1091
192
193
1994
1995
1996
1997
1998

SEG 0037

001000

010000

RKMR¢RKMR3=
RKECPS=
RKECPT=
RKSPAR=

INTR=

BA17=

(FMT=

;DATA BUFFER
sMAINTENANCE REGISTER

1
JMAINTENANCE REGISTER 2
SMAINTENANCE REGISTER 3
JECC POSITION INFORMATION
JECC PATTERN INFCRMATION
. SPARE REGISTER

34
36
30
32
22

300

BIT9

BITY?

COMMANDS
JSELECT DRIVE
;PACK ACKNOWLEDGE
;DRIVE CLEAR
sUNLOAD
s START SPINDLE
JRECALIBRATE
;OFFSET
; SEEK
JREAD DATA
JWRITE DATA
;READ HEADER
sWRITE HEADER AND DATA
;WRITE CHECK

;GENERATE

INTERRUPT TO (CPU

;BUS ADDRESS BIT 17

1=24 SECTOR;

~NN

L
3
VMACY11 30(1046)
28-AUG-81
15:17 PAGE 38
MEMORY MANAGEMENT DEF INITIONS

[ Xa)

CIR6KGO RK6 FCTNL CTRL DIAG
CIR6KG.PT
28-AUG=-81 15:16

DODODODODDODODODDDOD~N

NN
— e b bk =3 OO0 NONWN
VNS WO

—{

e 1
N
e

=t —

e
g
e
e S

¢ =

e
e
e
e

PGE
=
NEM=
NED=
UPE=
WCE=
DLT=

;DRIVE

¢MASK

:DATA LATE ERROR

:DRIVE DETECTED DRIVE BUS PARITY ERRNR
;FORMAT ERROR

BITO

VV=

DRDY=
DDT=

WAL=
P1P=

DS(=
SVAL=

e B
o
B
B
B
B
B

et b
g By
ot B
Dmg By B
B

e e B

WIS ~no

SPDLSS=
DROT=

—
s
OO
N8 y—

OFST=

DRA=

(eefeifochoctoofocdeedvolookooRo)

— —d b b b = OO0 NON LN
VSN
— O

JILLEGAL FUNCTION CODE
JSEEK INCOMPLETE
JNON-EXECUTABLE DRIVE FUNCTION

STATUS REGISTER BIT DEFINITION

ACLO=

CODE

sNON-EXISTENT DRIVE
;UNIBUS PARITY ERROR
sWRITE CHECK ERROR

.SBTTL

WLE=
DTE=

ION

JNON-EXISTENT MEMORY

OP]=
UNS=
DCK=

COE=
IDAE=

SELEC

s INPUT READY
;OUTPUT READY
JUNIT FIELD ERROR
JMULTIPLE DRIVE SELECT
; PROGRAMMING ERROR

BITO
BIT®
BIT?
BIT3
BIT4

HVR(C=

DRIVE

;DESELECT OR RELEASE DRIVE IN BITS 0-2

ILF=
SKI=
=
NXF
DRPAR=

DTYE=
ECH=
BSE=

FOR

:BUS ADDRESS INCREMENT INHIBIT
sCLEAR CONTROLLER AND ALL DRIVES

ERROR REGISTER BIT DEFINITION

FMTE
=

INTERRUPT

;CONTROLLER ERROR
;CONTROLLER CLEAR

.SBTTL

=~
— —

100000

UFE=
MDS=

By By g

000004
000010
000020
000040
000100
000200
000400
004000
02€000
040000

=
DRVMSK
RLS=
BAl=
SCLR=
IR=
OR=

000001

(ONTROL AND STATUS REGISTER 2 BITS

g B

100000

.SBTTL

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

;DRIVE BUS PARITY ERROR DETECTED BY CONTROLLER

BIT15
B 115

BIT14

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

BIT13

SEQ 0038

SPAR=
Dl=
CERR=
CCLR=

Sy b

100000
100000

30(1046)
28-AUG-81
15:17 PAGE 39
CONTROL AND STATUS REGISTER 1 BITS

020000
040000

MACY11

DOODODDDODO@® oo}

CIR6KGO RK6 FCTINL CTRL DIAG
CIRO6KG.PT
28-AUG-81 15:16

;DRIVE TYPE ERROR
JECC HARD
;BAD SECTOR ERROR
JHEADER

VR(C

ERRROR

sCYLINDER ADDRESS OVERFLOW ERROR
JINVALID DISK ADDRESS ERROR

;WRITE

LOCK ERROR

;DRIVE TIMING ERROR
JOPERATION (SEARCH) INCOMPLETE
;DRIVE UNSAFE

.DATA (CHECK

sDRIVE AVAILABLE

;

THIS BIT

(C ??TROLLER IS SET

IS RESE

;DRIVE OFFSET
JAC LOW
;SPEED LOSS
sDRIVE OFF TRACK
;VOLUME VALID
;DRIVE READY
;DRIVE TYPE (0=RKO06)

JWRITE LOCK
;POSITIONING

IN PROGRESS

sDRIVE STATUS (HANGE
s STATUS VALID

30(1046)
28-AUG-81
15:17 PAGE 40
STATUS REGISTER BIT DEFINITION

SEQ 0039
-

MAINTENANCE REGISTER

BIT DEFINITION

000617

ME SMCF = 17

G00020
000040
000100
000200
000400

PAT=
DMD=
MSP=
MIND=
MCLK=
MERD=
MEWD=
PCA=
PCD=
ECCW=
WRTGAT=
RDGATE=

o WM
Do @D

LSBTTL

.SBTTL

DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE A

000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

)

—¢

—

—t—

N
N

4~
—

N SN
Tl

—_— OO
O N
NN
— O

100000

ol T

020000
040000

JMESSAGE MASK

— et

004000
010000

[

001600
002000

wvrunuminnmnuwmmnonuwmwm

2068
2069
2070

MACY11

;FORCE EVEN PARITY ON SERCON MESSAGE LINES
;DIAGNOSTIC MODE

JMAINTENANCE SECTOR PULSE
JMAINTENANCE INDEX
JMAINTENANCE CLOCK
JMAINTENANCE ENCODED READ DATA
JMAINTENACNE ENCODED WRITE DATA
;PRECOMPENSATION ADVANCE
JPRECOMPENSATION DELAY

JECC WORD IS BEING READ OR WRITTEN
JWRITE GATE

JREAD GATE

;DRIVE AVAILIABLE
;VOLUME VALID
;DRIVE READY
;DRIVE T'WPE
;DRIVE FORMAT

.DRA=
.VV=
.DRY=
.TYPE=
.FORM=
.OFF=
.WRL=
.SPIN=
.P1°=

;OFFSET
JWRITE

LOCK

;SPINDLE ON
JPOSITIONING IN PROGRESS
:DRIVE STATUS CHANGE

.DSC-

.PAR=
.SKI=
CWLE=
.SPLS=
.DROTf=
.UNS=

;WRITE

LOCK ERROR

=
S. XDOK
S. HDHMS.
S.
S. CARTS.
S.
S.
S.
S.

1 NITION OF

—y—

g
g Pacg By By
g

e =

5
6

9
1
1
1
1

DRIVE STATUS BYTE 01

MESSAGE

s TRANSDUCER 0K
JHEADS HOME

WO
—= O

.SBTTL

oo to@ma
o

;SPEED LOSS
;DRIVE OFF TRACK
sDRIVE UNSAFE

000020
000040
000100
000200
000400
001000
002000
004000
010000
020000

;ILLEGAL CYLINDER ADDRESS
;AC LOW
;DRIVE FAULT
sILLEGAL FUNCTION
;DRIVE DETECTED SERCON PARITY ERROR
;SEEK INCOMPLETE

LICYL=
LACLOFLT=

000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

wmuwmnunmunnunonumm

NN =2 OO0 NN [V,]
NN
W= OV

D el wad
b

d OO OOC
2

D cd el el
)
)
e wd

3 3 el 2 2 3

e
d
el
e el
vl

SNV

POMNLUPVUND Bt

ST, N N1 1, N1, N 1,01, 81,8 [ ,V1, N1,V 1,V1,61,81,8 1,V )

.SBTTL

;BRUSHES HOME
sDOOR INTERLOCKED
; CARTRAGE INTERLOCK
s SPEED OK

s FORWARD

sREVERSE

JHEADS LOADING
;RETURN TO ZERO

[ Xan]
~NN

CZR6KGO RK6 FCTNL CTRL DIAG
28-AUG-81 15:16
C(IR6KG. P

g}gé

040000

S.UNLD= BITi4

%}%9
2128
2129
2130
213
2132
2133
2134
2135
2136
2137

000020
000040
000100
000200
000400
003000
002000
004000
010000
020000

S}gg

040000

000007
100000
000003
017760
017760
077770
000760
007000

2152
2153

000000

2154

SEQ 0040

JHEADS UNLOADING

.SBTTL

DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE B

S.SECT=
S.WCLK=
S.WGAT=
S.HDFL=
S.MHD=
S.XERR=
S.DIB=
S.PLO=
S.NMOvS.LIMD=

BIT4
BITS
BIT6
BIT7
RIT8
BIT9
BITI10
BITII
BJT12
BJT13

.SBTTL

COMMON MASKS

M.DRV
M.PARM.ID=
M.CDIF=
M.CADD=
M.SER=
M.SECTM.HEAD=
.SBTTL

7
BITS
3

;SECTOR ERROR
JWRITE CLOCK AND NO WRITE GATE
JWRITE GATE AND NO TRANSISTJONS
JHEAD FAULT
JMULTIPLE HEAD SELECT
; INDEX ERROR
;DIBIT ERROR
;PLO ERROR
;SEEK AND NO MOTION
JLIMIT DETECT ON SEEK

S.BRKE- BIT14

5%4?

2142
21643
2144
2145
2146
2147
2148
2149
512?

YMACY11 30(1046) 28-AUG-81
15:17 PAGE 41
DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE A

; SERVO-BRAKE

;DRIVE CODE
;PARITY
JBYTE ID
JCYLINDER DIFFERENCE/OFFSET
sCYLINDER ADDRESS
sDRIVE SERIAL NUMBER
;SECTOR COUNT
JHEAD DECODE

17760
17760
7777C
760
7000
TRAP (ATCHER

.-0
J*ALL UNUSED LOCATIONS OF THE VECTOR AREA (ONTAIN
J*A "' 42, JOT'" SEQUENCE TO CATCH AND PROCESS ILLEGAL

2155

;*TRAPS AND

INTERRUPTS

THAT MIGHT OCCUR.

2156

J*THE

2158

;*LESS THAN 1002) JUMPS TO THE SERROR ROUTINE.

2157

JOT TRAP WHICH IS TAKEN ON THE

J*TRAPS TO THE $SCOPE ROUTINE

2159
2160

:«THE
i

2161
2162
2163
2164
S}gg

WHICH

ILLEGAL

(IF

TRAP/INT

THE RETURN PC

$ERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS:
PC=YYYYYY UNEXPECTED TRAP TO XXX

:«AND RETURN TO THE PROGRAM AT PC=YYYYYY+2
'UHERE XXX LOCATION OF ILLEGAL TRAP
YYYYYY-P(C AT TIME OF TRAP
.'NOTE IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM
ot
CAN BE STARTED AT ADDRESS 0 AS WELL AS ADDRESS 200.

2167

000000

$40CAT:

2170
2171
2172
2173
2174
2175
2176
2177
2178

000004
000006

001772
000340
000174
000000
0C0000

.WORD
START
;;VECTOR TO STARTING ADDRESS
.WORD
340
;:WITH PRIORITY LEVEL 7
174
DISPREG:.WORD
0
;s SOFTWARE DISPLAY REGISTER
SWREG:
.WORD
O
;. SOFTWARE SWIT(H REGISTER
.SBTTL
STARTING ADDRES(ES)
JMP
#START ;:G0 TO START OF PROGRAM
JMP
RESTRT
sJUMP TO RESTART ROUTINE
. 214

g;gg

2179

000002

000174
000176

000200
000294
000214

000737

000137
000137
000214

000137

001772
001762
001752

HALT

JMP

.=100

PARM

JJHALT

;;??98%? TO 177700 & TIME OUT

(NOT ON

JJUMP TO OPERATOR ASSIGNED PARMETERS

Pd P

(ZR6KGO RK6 FCTNL CTRL DIAG
TIR6KG.P1T
28-AUG-81 15:16

CIREKGO R FOINL (TRL
DING
IROKG, F11
28-AuUG-81 15:16

d®~N

oog N
O C 0NNO O=2CO O~
e 0o 0o Qo ONS

000220

000137

001742

MACY1Y

30(1046)

28-AUG-81

STARTING ADDRES(ES)

15:17

.~220

LSBITL

PAGF

JMP
SETCLX
APT PARAMETER BLO(K

SEQ 0061

JJUMP TO SET (LOcx ROUTINE

'-'-'.Qt"'.t.ltt..tt't'Q'Q'tt'QttitQQ"QQQQ'Q.."QQQQQ..QQ.'Q.

QQQ'

JSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

000224

-'-Qttt.ttttt...l.tltt't'lt"tttilttt.tt..."..ttttt..'.'.tt".

.tl

X,
. 26
200
. 46
$APTHDR

000024
000044

00022¢

.. SAVE CURRENT LOCAT]ION
.SET POWER FAIL TO POINT TO START OF
JJFOR APT START yP
;o.POINT TO APT INDIRECT ADDRESS PNITR.
;:POINT TO APT HEADER BLOIK
coRESET

FROGRAM'

LOCAT]ON COUNTER

'-'-QQt!!Q.tt.t't..t'.Qtitt"tt.t.l..t"fit'ttttt.t'.'Qtt!'n"t't.t.

JSETUP APT

PARAMETER BLOCK

JINTERFACE SPEC.

000224
000224
000226
060230

000232
000234
000236

000000

001276
000024
000074
000740
000031

SAPTHD:
$HIBTS:
$MBADR:
$ISTM:
$PASTM:

SUNITM:

AS DEFINED

THE

APT-PDP11

DIAGNOSTIC

.wWwORD
.WORD
.WORD

O
SMAIL
20.

_WORD
.WORD

480.
;.ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL
SETEND-SMAIL/2 ;;LENGTY NAILROX~ETABLE (WORDS)

. WORD

60.

;.TWO HIGH BITS OF 18 BIT MAILROX ADDR.
. ADDRESS OF APT MA]LROX (BITS 0-1%)
JsRUN TIM OF LONGEST TEST
ssRUN

TIME

IN SECS.

1ST PASS ON 1

UNIT

(QUICK

VERIFY)

UNIT

S22

15:17

PAGE 43

30(1046)
28-AUG-81
COMMON TAGS

SBTTL

(OMMON TAGS

A AR

RN AR

AN R

1eTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

001222

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

BYTE
.WORD
SWR:
.WORD
DISF_AY: . WORD
177560
$TKS:
177562
$7KR:
177564
$IPS:
177566
$TFR:
:
$NULL
BYTE
$FILLS: .BYTE
$FILLC:
$TPFLG: .BYTE
$REGAD: . WORD

$REGO:
$REG]:
$REGZ:

$REG3:
$REGS:

$REGS:

NE X

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

J;CONTAINS THE TEST NUMBER
;s CONTAINS ERROR FLAG
;o CONTAINS SUBTEST ITERATION COUNT
;CONTAINS SCOPE LOOP ADDRESS
;;CONTAINS SCOPE RETURN FOR ERRORS
;. CONTAINS TOTAL ERRORS DETECTED
;o CONTAINS ITEM CONTROL BYTE
;sCONTAINS MAX. ERRORS PER TEST
;;CONTAINS PC OF LAST ERROR INSTRUCTION
:sCONTAINS ADDRESS OF 'GOOD*' DATA
;;CONTAINS ADDRESS OfF 'BAD' DATA
;. CONTAINS 'GOOD' DATA
;. CONTAINS °BAD' DATA
. sRESERVED~-=NOT TO BE USEP
;;AUTOMATIC MODE
2 INTERRUPT MODE
w2
b’

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

$AUTOR:
$INTAG:

000
000000

;sSTART OF (COMMON TAG:

oOwv

.WORD
BYTE

—

$TSTNM:
$LRFLG:
$ICNT:
$LPADR:
$L PERR:
$ERTTL:
$ITEMB:
$ERMAX:
$ERRPC(:
$GDADR:
$BDADR:
$GDDAT:
$8DDAT:

.=1100
o0 lelelelololelelalelds P
leloleololelele]le]

$(MTAG:

INDICATOR
INDICATOR

;.ADDRESS OF SWITCH REGISTER
;cADDRESS OF DISPLAY REGI-TER

;:TTy KBD STATUS

;.TTY KBD BUFFER
2;TTY PRINTER STATUS REG.

—

000000
000
000
000000
000000
000000
000000

PONY

= el et

——

2 Oo
&»

001103

001100

OO—=OD

001100

IN THE PROGRAM,

OQOOOOOTUDOOOOOOOOOOO

eUSED

(=]
(=]

—

&S Ny — o
O\
00

oo
NUPRONY nJ
AUPIPONO
NNV POND V]

2204
2205
2206
2207
2208
2209

VACYTT

;:TTY

PRINTER BUFFER

REG.

ADDRESS
ADDRESS

. ({ONTAINS NULL CHARACTER FOR FILLS
;. CONTAINS # OF FILLER CHARACTERS REQUIRED
.. INSERT FILL CHARS. AFTER A ""LINE FEED'’
;o 'TERMINAL

AVAILABLE'' FLAG

;s CONTAINS THE ADDRESS FROM

JsWHICH

(SREGO)

;. CONTAINS
::;CONTAINS
;s CONTAINS
;. CONTAINS
;. CONTAINS
;s CONTAINS
s CONTAINS
;. CONTAINS
;CONTAINS
;- CONTAINS
;- CONTAINS

(BIT<07>=0=YES)

WAS OBTAINED

((SREGAD)+()
((SREGAD)+2)
((SREGAD)+4)
((SREGAD)+6)
((SREGAD)+10)
((SREGAD)+12)
((SREGAD) +14)
((SREGAD)+16)
((SREGAD)+20)
((SREGAD)+22)
((SREGAD) +24)

;- CONTAINS ((SREGAD) +26)
;o CONTAINS ((SREGAD)+30)
;o CONTAINS ((SREGAD)+32)
2. CONTAINS ((SREGAD)+34)
;. (ONTAINS ((SREGAD)+36)
;. USER DEF INED

[LYY
Y

(IR6KGO RKG FCTINL (TRL DIAG
(IR6KG.PN
28-AUG=81 15:16

2260
2261

2262

2263
2266
2265
2266
2267
2268
2269
2270
227

2272
2273
2274
2275
2276
2277

2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290

0012264
001226
001230
001232
001234
001236
001240
001242
001244
007246
001250
001252
007254
001256
001260
001262

000000
000000
000G00
000000
000000
000000
000000
000000

$TMP1:
$*TMP2:

_.WORD
.WORD

'$TMP4:
$TMPS:
$TMP6:
$TMP7:
$TMP1(0:
$TTMTMP17:
$TMP12:

. WORD
_WORD

$TMP3:

0C: 177

001272
001273
001274

_WORD

.WORD
_WORD

$TMP13:

,WORD
.WORD
.WORD
,WORD

$TMP15:

_WORD

.WORD

$TMP16: .WORD
$TMP17: .WORD
$TIMES: (
SESCAPE:0

$BELL:
$QUES:
$CRLF:
$LF:
M

.ASCIZ
.AS(II
LASCII
LASCIZ

001276

000000
000000
000000

000000

000000
000000
000000
000000

000
000
000000
000000
000000

2301

;sUSER DEFINEF
JJUSER DEFINED
:sUSER DEFINED
;JcUSER DEFINED
JsUSER DEFINED
:;USER DEFINED
;sUSER DEFINED
:sUSER DEFINED
J:USER DEFINED
;JUSER DEFINED
;;USER DEFINED
;;USER DEFINED
;;USER DEFINED
;JUSER DEFINED
::USER DEFINED
JJMAX. NUMBER OF ITERATIONS
:;ESCAPE ON ERROR ADDRESS

<207><377><377> ::(ODE FOR BELL

;s QUESTION MARK
::CARRIAGE RETURN

/7/
<15>
<12>

JLINE

FEED

APT MAILBOX-ETABLE

.EVEN
:
$MA]L
$MSGTY: .WORD
$rATAL: ,WORD
$TESIN: .WORD
$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
_WORD
$MSGAD: .WORD
$MSGLG: .WORD
$CTABLE:
$ENV:
.BYTE
$ENVM:
_BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT

AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

- %

:;APT

00132¢
001327

000
000

§MAMS1:
SMTYP':

.BYTE
.BYTE

AMAMS1
AMTYP1

MAILBOX

:;MESSAGE TYPE (ODE
;;FATAL

ERROR

:: TEST NUMKER
;. PASS

NUMBER

COUNT

:.DEVICE COUNT
;170 UNIT NUMBER
; ;MESSAGE ADDRESS
s :MESSAGE LENGTH
:;APT ENVIRONMENT

TABLE

; sENVIRONMENT BYTE
; ;ENVIRONMENT MODE BITS
:;APT

SWITCH REGISTER

JUSER SWITCHES

..CPU TYPE ,OPT]ONS
BITS 15-11=CPU TYPE
BIT T

VS
NP = OO

SEQ 0043

;;ttt"it‘tt'l'llt‘fi"fi't""titt.'ittt".'ttt*"'tt".tl't'fi"'t

2293
2294
2295
2296
2297
2298
2299
2300

U AN AN LN LN AN NN
— ol el vl - —lo

11/064=01,11/05=02,11/20=03,11/40=04,11/45-05
11/70=06,PDQ=07,Q=10
1 10=REAL TIME CLOCK
9=FLOATING POINT PROCESSOR
8=MEMORY MANAGEMENT

B T
B T
;HIGH ADDRESS.M.S.

,MEM TYPE, BLK#1
M EM.TYPE BYTE
-=

BYTE

(HIGH BYTE)

900 NSEC CORE=001

001330

000000

001332

000

300 NSEC BIPOLAR=00?2
500 NSEC M0S=003

.WORD

AMADR1

J:H]GH ADDRESS.BLK#1

SHAMS?: BYTE

AMAMS
2

;sHIGH ADDRESS,M.S. BYTE

$MADR1:

MEM.LAST ADDR.-3 BYTES,THIS WORD AND (Ow OF

"'T+PE"’ ABQOVE

X g

PAGE

Qt'i"ttt't"fitttfi"t"t"'!tt.*"!'.ttfl'.tttttt'ifit't!Qttttt!

CSBTYTL

2291
2292

rohurLNOND NN

COMMON TAGS

$TMP14:

001264
001266

2B-AyuG-8!

'5:17

[

30('046)

v11

OOQOOOOOCOODODOODOOOCO

CTIREKGO RKE FOTNL (TRL DIAC
CIROKG.P1Y
2B=AUG=81 15:¢

TIR6KG0 RKE FUTNL (TRL DI;G
TIR6KG . P1Y
28=AUG=81 15:1¢

2316
2317
2318
2319
2320

2%21
2322
2323
2324
2325
2326
2327
2328
g;gg

MACY'T

30(1046)
28-AUG=81
APT MAILROX~-ETARLE

15:'7

PAGE 45

001333
00133
001336
00133%7
001340

00¢
(000000
000
000
000000

SMTYP2:
$MADR?2:
$MAMS3:
sMTYP3:
$MADR3:

.BYTE
.WORD
_BYTE
.BYTE
.WORD

AMTYP?
AMADR?
AMAMS3
AMTYP3
AMADRY

001344
001346
001350
001352
001354
001356
00" 360

000000
000210
000000
177440
000000
(00000

$MADRG:
SVECTT1:
SVECT2:
$3ASE:
$DEVM:
$CDW1:
S;EE??:

.WORD
.WORD
.WORD
.WORD
_WORD
.WwORD

AMADRSG ;;MEM_ LAST ADDRESS,BLK#4
AVECTY
;;INTERRUPT VECTOR#1,BUS PRIORiTY#]
AVECT2
;:INTERRUPT VECTORN2BUS PRIORITYAN?
ABASE
;;BASE ADDRESS OF ctQUIPMENT UNDER TEST
ADEVM
::DEVICE MAP
A(DWI]
;s CONTROLLER DESCRIPTION WORD#1

0013472
001343

000
000

$MAMSL:
SMTYPL:

.MEX

.BYTE
.BYTE

AMAMSSG
AMTYP4

::MEM.TYPE BLKA?
;;MEM,LAST ADDRESS,BLK#?
.HIGH ADDRESS,M.S.BYTE
;:MEM.TYPE ,BLK#3
. .MEM,LAST ADDRESS,BLKk#3
::HIGH ADDRESS.M.S.BRYTE
;:MEM.TYPE ,BLK#G

SE2 (046

ERROR POINTER TABLE

G &
PAGE 4¢

15:17

SES (045

ERROR POINTER TABLE

s*THIS TABLE CONTAINS THE INFORMATION FOR EA(CH ERROR THAT (AN OCCUR.
;*THE

INFORMATION

IS OBTAINED BY USING

THE

INDEX NUMBER FOUND

;*LOCATION SITEMB, THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;*NOTE:

IF SITEMB IS O THE ONLY PERTINENT DATA S (S$ERRPC).

B
»
»

;.POINTS
;;POINTS
;.;POINTS
:sPOINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTB:

B
B
N

PR
I
e
I

B
»
v

2
x
¥

B,
B,
8,

%
%

v,
n.
S

367
308

2O
NS WA

O00 N

001360

EM AND DH ARE ASCIZ DATA.
EM [S ALWAYS A MESSAGE BUT DH
CAN BE A MESSAGE OR A SET OF COLUMN LABELS SPACED ACCROSS
THE

000000
057236
060610
060702

PAGE,

IS A STRING OF

NORMAL USAGE

IS REPLACED WITH A ZERO.

THE

ERROR

TABLE

TO HAVE

TABLE

ENTRY

FOR

EACH ERROR MESSAGE THAT CAN OCCUR.
IN THE INTEREST OF ECONOMICS
OF CORE MEMORY, THIS PROGRAM USES THE ERROR TABLE IN A
SIGHTLY DIFFERENT MANNERS AS DESCRIBED BELOW.
T4E ERROR TABLE ENTRIES MAKE UP A SET OF REPORT FORMATS THAT ARE
THROUGHOUT THE PROGRAM,
WHEN AN ERROR [S TO BE REPORTED, THE
TABLE ENTRY
THE DEFINED

B8Y

THAT
SET.

CHANGING THE

THE ADDRESS OF
PORTION OF THE

(HANGED,
THE
THE

PROVIDES THE DESIRED FORMAT IS CHOSEN FROM
THE TABLE ENTRY (HOSEN IS THEN ALTERED

FIRST

(AND POSSIBLY

THE

SECOND) WORD TO CONTAIN

THE ASCIZ STRING THAT MAKES UP THE MESSAGE
REPORT.
THE DATA FIELDS FOR THAT ENTRY ARE

NOR ARE

THE

TOLUMN LABELS OR POSITIONS.

NEVER

FORMAT THAT EACH TABLE ENTRY PROVIDES [S SHOWN BELOwW WITH
DEFINITION OF THE ENTRY.,
ALL DATA FIELDS ARE TYPED iN OCTAL.

STESTN

SERRP(C

EMIN:

.WORD
DHO01
D001
DFO01

;
;

DATA

FORMAT,

* %

TO THE

THE

PARTICULAR

SERROR ITEM 1
(ME SSAGE)

*
it

THAT POINT

IS A STRING OF WORK THAT TELL HOW THE DT WORDS
IF ANY OF THE POINTERS ARE NOT NEEDED, FOR A

WORDS

BE TYPED, AND DF
ARE TO BE TYPED.

001360
001362
001364
001366

EACH JTEN IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:
EM
DH
DT
DF

®se8su,n,

;*NOTE2:

TST

NUM ERR

DRIVE

DRVNUM

JERROR ITEM 2
(ME SSAGE)

(ME SSAGE)
TST NUM ERR P(

DRIVE

$TESTN S$ERRPC DRVNUM
RK(CS1
RK(SZ2
RKDS

R¥ER

RKASOF

RKDCYL

RkDA

(SED

[0 Fah

2B~AUG=81

30(1046)
.SBTTL

[0 Yo, Xo S22 AV, IV LW, AV LV, U RV, RV, I o)

PORLNLNLALNURLALNLNLNLRLNL
NV N NI NNV NV ANV NN NN RN AL AL PINL NI PPV AL AV PONY POPONONIRUNLNUNINI POV
WWNWNNWNN
NN NN N NN AN NN

B8 O BNBN BNNNBN B- OO0
B NN NSNNN NNPNN flg

D
D
O

J RK6 FCINL (TRL DIAG
P11
2B=AUG=81 15:1¢

MACYTY

T.CS1

000000
000000
060616
060706

RKBA

RKW(

EM2N:
DHZN:

.WORD
LWORD
DT502
DF00?

O
O

(MESSAGE)

TST NUM ERR PC

$TESTN

T.CS1

T.ER

T.ASCF

RKER

RKASOF

T.DCY.

T.DA

EM3N:

DRIVE

DRVNUM

S$SERRP{

RK(S1

RK(S¢

RKDS

T.(S2

.WORD

CHO02A

T.DS

T.ER

R.MR1

T.AST

T _MR!

DT003
DFOO3

ERROR

ITEMS 4,5,6,87 ARE USED

TO REPORT FRRORS

THAT ARE

THE RESULT

OF A HARDWARE ERROR INDICATOR BEING SET WHEN NOT EXPECTED,
NOT SET WHEN IT IS EXPECTED, OR BOTH. THE ERROR REPORT wWILL
CONTAIN (1) ALL THE ERRORS THAT WERE DETECTED, (2) ALL THE EXPECTED
ERRORS THAT DID NOT OCCUR,
AND THE UNEXPECTED BUT SET
THE

MESSAGE

ITSELF

é?g%gaEDréN

THE

OR (3) ALL
ERRORS.

EXPLAINS

REPORT WwiLL

THE

EXPEDTED BUT

CIRCUMSTANCE

ONE

JOR MORE

FOR

THE

NOT

SET

ERRORS

REPORT.

FOLLOWING

NTS:

X
B

B3
B

ANY

TJE

ONE

ABOVE

ARE

SELECT

THE

FRRORS

LINES

THIS

RESULT

THE

SET

IN OPERATION:"'

THESE

OF
OF

SET

IN OPERATION:*'

IN OPERATJION:''

LINES

FOLLOWING

WILL

THE

ONE

LAST

LINE

OPERATION SEING PERFORMED.

DRIVE

(ADDITIONAL
IS

EXACT ERROR.

:
EXAMPLE

NON-EXISTANT

THAT DID NOT

UNEXPECTED ERRORS

IDENTIFIES

“.w.
.,

THAT

EXPECTED ERRORS

ARE

ABOVE ARE ERRORS SET

"'THE

DRIVE

ARE

ABOVE

THE

"'THE

SPECIFY

2433

"'THE ABOVE

PRECEEDING

2425
242¢

400,

TSNS

T.DS

SEQ 046

:*ERROR JTEM 3§

000000
057264
060566
060726

PAGE 47

T.w(

T.BA

001400
001402
001404
001406

1.(S2

o
001370
001372
001374
001376

30(1046)
28-AUG=-81
15:17
ERROR POINTER TABLE

LINES

WILL BE

IN OPERATION:

INFORMATION)
AN ERROR

SET

!N A

SELECT

OPERATION,

THAT

A I INE

MACY11

"~~~

(IR6KGO RK6 FLINL CTRL DIAG
(IR6KG.P1T
2B=AUG-81 15:1¢

ABQVE

ARE

SELECT

(ADDITIONAL

EXPECTED ERRORS

LINES OF

THAT

ABOVE

ARE

UNEXPECTED ERRORS

JNIBUS PARITY ERROR
THE ABOVE ARE EXPECTED ERRORS
WRITE DATA
(ADDITIONAL

THIS

LINES

IS AN EXAMPLE

PARITY

ERROR

WAS

NON-EXISTANT

EXPECTED.

ITEM &

ERROR

[N OPERATICN

B
B
S

(DFSCRIPTION OF
TST NUM ERR PC

OPERATION)
DRIVE

SERRFC

RK{SZ2
T.CS2
RKWC
T.WA

¥
¥
¥
B
¥
B
2
B
%
»

0,08,

000009
000000
060616
060736

0,0,
Sss.0,

001410
001412
001414
00146

2478

2479

2477

2475
2476

FMeN:

DhaN:

THE

DRVNUM

800
SREG1T1

ERRORS

SET

[N QOPERATION:

MEMORY BF ING

RKDS
T1.DS

RKER
T.ER

RKASOF
T.ASOF

AQ1
SREG12

801
$SREGI3

AQ?
SREGI4

REPORTED BY

THIS

(ONTROLLER DETECTED DRIVE

SET

WHEN UNIBUS

RKDCYL
T.DCVL

BO2
SREGIS

FORMAT

BUS ERROR

ARE:

DRIVE DETECTED DRIVE BUS ERROR
SEEK INCOMPLETE

NON-EXECUTABLE DRIVE FUNCTION
DRIVE TIMING ERROR
DRIVE UNSAFE
AC LOW
SPINDLE SPEED LOSS
DRIVE OFF TRACK
ILLEGAL DRIVE ADDRESS ERROR
CYLINDER OVERFLOW

DRIVE

TYPE ERROR

WRITE

LOCK ERROR

FORMAT

.WORD

. WORD

DTO04
DFC04

ERROR

ERROR ITEM 5
THIS

ENTRY

I.E.

IN OPERATION:

ERROR)

AQO
$REG10

SET

THAT DID NOT

(DESCRIPTION OF

RK(S1
T.CS1
RKBA
T.BA

IN OPERATION:

iNFORMATION)

ERROR

$STESTN

SET

[NFORMATION)

:
EXAMPLE
NON-EX]ISTANT mEMORY
THE

DID NOT

THE

SAME

[TEM 4

Ww]TH

THE

ADDITION

RKDA
T.DA

AQ3
SREG'6

BO3
SREG1/

r~ry

PR YO
YOO
TP

RSN

NP PR
TR
YT

PSRN

IR TR
SO

NN
C

IR JPY

SR
RN
RN

THIS IS THE RESULT OF AN EXPECTED ERROR THAT DID NOT OCCUR,
A NON-EXISTANT DRIVE WAS ADDRESSED BUT NED WAS NOT SET,

THE

LRSI TR

SE3 C0&?7

DRIVE

2474

2489

PAGE 48

:
EXAMPLE
NON-EXISTANT DR]VE

2463
2464
2465
2466
2467
2468
2469
2470
26N
2672
24772

15:17

ERROR POINTER TABLE

2460

2480
2481
2482
2483
2484
2485
2486
2487
2488

28-AUG=81

[

30(1046)

2434
2635
2636

MACY1T

TIREKGD RKG FCTINL CTRL DIAG
TIROKG.PT1
28=-AuG=-81 15:16

THAT FOLLOWS.

THIS MESSAGE

IS:

"ANY FIELD WITH ALL ONES MUST BE

CONSIDERED

THIS REPORT

THE

INVALID"

A MESSAGE

SEC €048

AOO THRU 803

.WORD

WILL

PRINTED

WHEN

GATHERING OF

IS NOT ACCOMPLISHED WwITHOUT ERROR.

.WORD
DT00S

I
JCRE

TP
T

N
B

TR
TP
IPEE
LI

(DESCRIPTION OF

ERROR)

TST

DRIVE

ERROR IN OPERATION
(DESCRIPTION OF OPERATION)
NUM ERR PC

$TESTN
RKCS?
T.CS?

RKBA
T.BA

SERRPC
RK(CSZ2
T1.CS2

DRVNUM
RKDS
RKER
T1.DS
T.ER

RKASOF

T.ASOF

RkDCYL

T.D(vL

RKW(
T.W(

R
¥

v,
«

B
2
B
B
€
%
4

ERROR ITEM 6

THE

ERRORS REPORTED BY

DATA CHECK
WRITE

CHECK

HEADER

VR(C

.WORD
.WORD
DT006
DFO06

0
C

ECC HARD
DATA LATE
OPERATION

THIS

FORMAT

ARE:

INCOMPLETE
ERROR

BAD SECTOR ERROR

ERROR ITEM 7

(DESCRIPTION OF

ERROR)

(DESCRIPTION OF
TST NUM ERR PC

OPERATION)
DRIVE

ERROR IN OPERATICN
$TESTN
RKCST
T.cs1

SERRP(
DRVNUM
RK(S2
RKDS
T.(S2
T1.DS

RKER
T.ER

RK4SOF
T.ASCF

NP
S

TP
TRYOIE

EMON:
DH6N:

000000
000000
060616
061022

001430
00432
001434
001436

&
J
PAGE 49

15:'7

DFO05

200
= O V00NN
WA
OV NN
W
2OV
NN AW
VBN

DHSN:

N NN

NN
AW
R
R
e R Y e,
VA LS

LA A DN UA A

LA LA N

AN N

DA N AN

S8 B 85 8 B NWWWNIANIWNAN
NN NN PON. NONUNONOPNOUNIN)
— — — —

PORLNUNLNININVNU NI RUNLANL NNV ML N NLAL PLRLNLNLNDRAI AL N PLNINL PVRUAL PV

EMSN:

000000
000000
06061¢
060766

2500
2501

001420
001422
001424
001426

28-AUG-81

ERROR POINTER TABLE

2493
2494
24695
2496
2497
2498
2499

30(1046)

2490
24N
24692

VMACY11

CIREKGO RK6 FUTNL C(TRL DIAG
TIR6KG. P
28=AuG=81 15:1¢

THE ERRORS REPORTED BY
NON-EXISTANT DRIVE
NON-EXISTANT MEMORY

CONTROLLER TIME OUT
UNIT FIELD ERROR

MULTIPLE DRIVE SELECT
PROGRAMMING ERROR

UNIBUS PARITY ERROR
ILLEGAL FUNCTION CODE

THIS

FORMAT

ARE:

RKDA
T.DA

DATA

FOR

001440
001442
001444
001446

000000
000000
060616
061046

L TV TV, IV, T

TV RV

[0 3V, IV, IV YV IV, IV, IV, [V ]V, IV ]
OOV NOWNE
NN 2O

DS TN, 01,01, G 1,N N1, 8101,V 1,81,V

30(1046)

ERROR POINTER TABLE

DESCRIPTON OF

EM7N:

.WORD

DH7N:

$TESTN
EXPT

THE

[V IV IV TV

001474

001476

(OMPLETION OF

(DESCRIPITON OF
TST NUM ERR P{

[LLEGAL

$REG10

SERRPC
18

OPERATION

OPERATION)
DRIVE

DRVNUM

SREGM

ERRORS

REPORTED BY

THIS

FORMAT

ARE

SCFTWARE

SECTOR ADDRESS INCORRE(CT

EMION:

.WORD
DHO10
DT015
DF010

A
J*

ERROR ITEM 11
(ERROR INDICATOR OR STATUS BIT)

TRACK

ADDRESS

i
J®

TST NUN ERR PC
$TESTN S$ERRPC

(ANOTHER ERROR

RK(CS1

INDICATOR,

RK(CS2

T.CS1

T.CS2

DRIVE
DRVNUM

RKDS

STATUS BIT,

RKER

1.DS

LWORD
DHO11
DT010
DFO11

ERROR ITEM 12

"NOT RESET AS A RESULT OfF'’

EMI2N:

LWORD
DHO1?2
DT010
DFO11

OR OPERATION

RKASOF

T.ER

EMIIN:

T.ASOF

RKMR1

T.MR1

ERROR

’

IDENTICAL

ITEM

EXCEPT

THE

SECOND

LINE

ITEM

EXCEPT

THE

SECOND

(INE

IS:

ERROR |TEM 3
THIS

THE SPECIFIC

NOT SET AS A RESULT OF

THIS

DETECTED BY

INCORRECT

000000
060252
060616
061106

EITHER { EGAL

COMPARING EXPECTED RESULTS WITH ACTUAL RESULTS.
ERRORS ARE;
WORD COUNT INCORRECT
BiJS ADDRESS INCORRECT
CYLINDER ADDRESS INCORRECT

001470
001472

ANY (OMMAND,

A
A
M
S
o

2590

SEG (045

OPERATION (AN BF

ERROR ITEM 10
(DESCRIPTION GF ERROR)

I
3

588

PAGE 50

ERROR AT

000000
060223
060616
061106

.WORD
DT007

001460
001462
001464
001466

DFOQ7

o
o

000000
060077
060666
061066

15:17

.
ot

001450
001452
001454
007456

28-AUG-81

ERROR

IDENTICAL

"'SET AS A RESULT OF"

[n 2

VMACY11

CZR6KGO RKE FCINL CTRL DIAG
CIR6KG. P
2B=-AUG-81 15:16

001500
001502
001504
001506

000000
060303
060616
061106

WACY11

EM13N:

LWORD
DHO13
DTO10
DFO11

THIS ERROR

2
»
»
*

$REG10

EMISN:

SREG11

ADDITIONAL

000000
000000
060674
061140

THE

SECOND LINE

(DATA M]ISCOMPARE)

$REG12

LINES OF

GOOD .

BAD, WORD NUM FOR ERROR 15

LSBTTL
L.CST:
L.WC:

:
:

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

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

: _WORD
.WORD
.WORD

STORAGE

FOR

.WORD
.WORD

TE ST

OOOOOOOOOOOOOOOOOO

L]
-

L]
.
.
.
L]
L]

000100
000000

e
—
4 — — — — —

001600
001602

000000
00C000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

EXCFPT

0
0
DTO15A
DFO16
REGISTER

001540
001542
001544
001546
001550
001552
001554
001556
001560
001562
001564
001566
001570
001572
001574
001576

ITEM 11

.WORD 0
DHO02A
DTO15
DFO15
ERROR ITEM 16

001530
001532
001534
001536

(HEADER WORD MISCOMPARE) OR
TST NUM ERR PC
DRIVE
$TESTN
$ERRPC
DRVNUM
GOOD
BAD
WORD NUM

057264
060666
061130

IDENTICAL

ERROR ITEM 15

000000

"RESET AS A RESULT OF‘’
.WORD
0
DHO14
DT010
DFOM

000000
060326
060616
061106

SEQ 0050

ERROR ITEM 14

001520
001522
001524
001526

4
L
PAGE 51

30(1046)
28-AUG-81
15:17
ERROR POINTER TABLE

100
0

JPRESET WITH INTERRUPT ENABLE

IS:

~N~

CZROKGO RK6 FCINL CTRL DIAG
TZRE6KG.P
28-AuG=-81 15:16

2658

001604

00000C

2660
2661
2662
2663
2664
2665
%ggg

001606
001607
001610
001612
001614
00161¢

000
000
000000
000000
000000
000000

2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
sggg

001620
001622
001624

L.BA:
.WORD
L.DA:
L.DS:
BYTE
L.DT:
.BYTE
L.CS2:
.WORD
L.ASOF: .WORD
L.DCYL: .WORD
L.MR1:
_WORD
.SBTTL
PROGRAM

000000
000000
000000

RKVEC:
RKPR]I:
SRT5LG:

.WORD
.WORD
.WORD

0
0
0

001626
001630
001632

0u0000
000000
000024

DRVNUM:
DRVBIT:
ERRCNT:

_WORD
.WORD
.WORD

0
0
D20

001634
001636

000024
061270

ERRLMT:
BSF24P:

.WORD
.WORD

D20
BS24

Sgg}

001640

061144

BSF26P:

.WORD

BS26

2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2594
Sggg

001642

000000

B8SS24P:

.WORD

001644

000000

BSS26P:

.WORD

001646
001650
001652
001654

BS26(T:
B524CT:
MILCNT:
TIMCNT:
INTSET:

.WORD
.WORD
.WORD
.WORD
.=1660
.WORD
.WORD

0
0
“D500
“p15

001660
001662

000000
000000
000764
000017
001660
000000
000000

001664

000000

OPTFLG:

.WORD

2659

001606

PAGE 52

SEQ 0051

0
0
0
0
0
O
DEFINED VARIABLES

0
0

JRK VECTOR
;RK PRIORITY
JSTART FLAG
;
0 =200
;1 = 214
;=1 = 204
:DRIVE UNDER TEST
;WORD TC STORE BIT TO INDICATE DRIVE UNDER TEST
JERROR COUNTER TO LIMIT ERROR
;ERRORS REPORTED IN PROGRAM
;DATA COMPARE ERROR LIMIT
:PO{?;Efiogo)BAD SECTORS 24 SECTOR MODE
M

:PO{?;E?OAO)BAD SECTORS 26 SE(CTOR MODE
Y
C
:
JPOINTER TO BAD SECTORS 24 SECT MODE
: (SOFTWARE)
JPOINTER TO BAD SECTORS 26 SECTOR MODE
;
(SOFTWARE)
:COUNT OF BAD SECTORS 26 SECTOR MODE
;COUNT OF BAD SECTORS 24 SECTOR MODE
;COUNT TO APPROXIMATE 1 MILL SEC
;COUNTER FOR MYTIME ROUTINE
JNON=-ZERO IF RKO6 INTERRUPT SINCF
sLAST [LEARED
;OPTION FLAGS

2697
2698
2699

000001
000002
000004

DOTST= BITO
MEMSZB= BIT1
MEMPYB= BIT?

;DRIVE O TO BE TESTED FLAG
JMEMORY SIZE REPORT FLAG
;MEMORY PARITY REPORT FLAG

2701
2702
2703
2704
2705

000109
000200
00040C
002000
004000

PARPRE=
BSERPT=
FPFMT=
(P1170=
DRVRPT=

BIT6
BIT7
BIT8
BIT10
B]IT1

JPARITY PRESENT FLAG
;BSE HAS BEEN REPORTED
sFIRST PASS FORMAT SWITCH
:CP IS 11/70 FLAG
;DRIVE NUMBERS REPORTED FLAG

2700

0003010

5589

SRTINS= BIT3

100000

LCLKPR= BIT15

2708

001666

(00000

000000
000000

DRVDRP:
MEMPAR:
C(SRPTR:

.WORD

2712
2713

001674
001676

000000
000000

LCLKTK:
REFMT-

.WORD
_WORD

0
0

2709
%;1?

001670
001672

.WORD
.WORD

0
0

JSTART UP INSTRUCTIONS REPORTED FLAG

JLINE

CLOCK PRESENT

JLIST OF DRIVES DROPPED

;WORD OF PAPRPITY FLAGS
;POég;?? TO CSR TO USE FOR SETTING BAD
M

JLINE CLOCK TICK COUNTER
JREFCRMAT SWIT(H FOR HALT

28-AUG-81
15:17
MACY11 30¢( 10646)
REGISTER SETUP STORAGE

CIR6KGO RKS FCINL (Thy DIAG
CIR6KG.P11
28-AUG=-81 '5:16

MACYTT

30.%0s%)

2714

2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734

001700
001702
001704
001706
001710
001712
001714
001716
0017290
001722
001724
001726
001730
001732
001734
001736
001740

000000
000000
000000
000G00

DESHLN:
:
SRCHLD

WRDNUM:
WRDCNT:
:
KWLADD
KWLVEC:
:
MEMBAS
MMVECA:

177546

000100
172100

000114

000000
000000
000000
000000
000000
000000
000000
000000
000000

15:17

PROLRAM DEF INED VARIABLES

2715

2716
2717
2718
2719
2720

28-AUG-81

PAGE 53

SEQ 0052

THE FOLLOWING & VARIABLES ARE USED TO STORE PARAMETERS FOR
HEADER OR DATA (OMPARE CONTINUATION PROCESS.

.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

DTYPE:

0
0
0
0
0
0
0
0
0

.SBTTL

PROGRAM

TYFTBL:

0
O
0
0
177546
100
172100
114

;DESTINATION HOLD
;SOURCE HOLD
;WORD NUMBER IN ERROR HOLD
;WORDS LEFT IN COMPARE HOLD
;KW11=L ADDRESS
JKW11=L VECTOR
;MM11 ADDRESS
:MM11 VECTOR
:DRV YP
JDRV 0
:DRV 1
:DRV 2
:DRV 3
DRV 4
;DRV 5
:DRV 6
:DRV?

(0=RK06, 2000=RK07
0=Rk06, 2090=Rk07

SETUP

001742
001750

012737
000412

000002

001 624

SETC.K: MOV
BR

#2,SRTFLG

;SET

START FLAG FOR (CLOCK ADJUST

001752
001760

012737
000406

000007

001 624

PARM:

#1,SRTFLG

;SET

START

001762
001770

012737

177777

001 624

RESTRT: MOV
BR

#=1,SRTFLG

;LOAD

001772
001776
002000
002004
002010
002014

005037
000005
012706
012746
012746
000302

001624

START:

SRTFLG

sCLEAR START FLAG

002016
002022

004737
005037

045220
001676

002026
002032
002034
002040
002042

012706

001100

002046
002054

000402

START1:

001100
000340
002016

(LR

RESET
MoV

MOV
MoV
RTI
1%:

.SBTTL

START?

START1

#STACK,SP

#PR7 ,=(SP}
#1%,-(SP,

START

FLAG

FOR PARMETER

FLAG

START

FOR PARMETER

JRESET THE WHOLE SYSTEM
JINITIALIZE STACK POINTER

;LOAD STACK TO LOCK OUT ALL
sLOAD START OF PROGRAM
sLOAD PSW

START

INTERRUPTS

JSR
PC,STKINT
JINITIALIZE KEYBOARD
CLR
REFMT
. CLEAR REFORMAT SWITCH
INITIALIZE THE COMMON TAGS

;. CLEAR THE COMMON TAGS ($CMTAG) AREA
MOV
CLR
(Mp
BNE

001140

001100

032576
000340

MOV

START1

MOV

000 020
0CO 022

#$CMTAG,R6
(R6) +
#SWR,R6 ; ;DONE?
)
#STACK,SP

soINITIALIZE A FEW VECTORS
MOV
MOV

;.FIRST LOCATION TO BE CLEARED
;s CLEAR MEMORY LOCATION

;.LOOP BACK
s:SETUP

THE

STACK POINTER

#$S(CPE,d#IOTVEC ;;]0T VECTOR FOR SCOPE
#3640,a#]10TVEC+2 ;;LEVEL 7

ROUTINE

~N~N

CZROKGO RKé FCTNL CTRL DIAG
CIR6KG. P11
28-AUG-81 15:16

28-AUG-81 15:14

15:17

INITIALIZE THE COMMON TAGS

28-AUG-81

PAGE 54

SEQ (0053

2770
2771
2772
2773
27764

002062
002070
002076
002106
002112

012737
012737
012737
012737
012737

033614
000340
047076
000340
046720

000030
000032
000034
000036
000024

MOV
MOV
MOV
MOY
MOV

#SERROR,B#EMTVEC ;.EMT VECTOR FOR ERROR ROUTINE
#340,a0EMTVEC+2 ;-LEVEL 7
#STRAP
,a# TRAPVE(C ;;TRAP VE(CTOR FOR TRAP CALLS
#340, 3 TRAPVEC+2;
LEVEL 7
#SPWRDN ,3#PWRVEC ::POWER FAILURE VECTOR

2776
2777
2778

002126
002134
02140

013737
005037
005037

032026
001262
001264

032020

MOV
CLR
CLR

$ENDCT,SEOPCT
$TIMES
$ESCAPE

;:SETUP END-OF-PROGRAM "OUNTER
“:INITIALIZE NUMBER OF ITERATIONS
S CLEAR THE ESCAPE ON ERROR ADDRESS

2780

002152

012737

#.. SLPADR

CUINITIALIZE THE LOOP ADDRESS FOR SCOPE

2775

2779

2781

2782

2783
2784
2785
2786
2787
2788
2789
2790
2791
2792

002120

002144

002160

012737

112737

012737

002166
002172
00220C
002206
002214
002222

013746
012737
012737
012737
022777
001012

2793
2794
2795
S;gg

002224
002226
002232
002234
002242
002250

000403
012716
000002
012737
012737
(012637

2798
2799
2800
2801
2802

002254
002260
002266
002270
002276

005037
132737
001403
012737

002276
002302

005227
007046

002312

001442

2803
2804
2805
2806

2807
7808

2809

2810
2811

2812
2813
2B14
2815
2816
2817

2818

002304
002314

002320
002324

(002326
002334
002336
002344
002346

002350

2819
2820
2821
2822

002352
002360
002360

2824
2825

002420
002426

2823

002420

000340

000026

000001

001115

002160

007110

002152

000004
002226
177570
177570
177777

001104

000004
0011490
001142
176716

002234
000176
000174
000004

001140
001142

001304
000200

001317

001320

001140

177777

022737

032162

104401

002362

005737
001012

000042

000001

001140

000176

112737

0C0001

001134

000417

132737
001061

00°317

MOV

#.. $LPERR

:;ALLOW ONE ERROR PER

TEST

;:SETUP THE ERROR LOOP ADDRESS

IF NOT FOUND OR IT IS
;:EQUAL TO A ''=1"', SETUP fOR A SOFTWARE SWITCH REGISTER.
MOV
a#ERRVEC ,-(SP)
;,SAVE ERROR VECTOR
MOV
#64S A#ERRVEC
:-SET UP ERROR VECTOR
MOV
#DSWR,SWR
J:SETUP FOR A HARDWARE SWICH REGISTER
MOV
#DDISP,DISPLAY
;;AND A HARDWARE DISPLAY REGISTER
CMP
#-1,3SWR
S:TRY TO REFERENCE HARDWARE SWR
BNE
66%
;;BRANCH IF NO TIMEOQUT TRAP OCCURRED
:;AND
THE HARDWARE SWR IS NOT
-1
BR
65%
;JBRANCH IF NO TIMEOQUY
649 :
MCV
#65%, (SP)
J:SET UP FOR TRAP RETURN
65%:
66%:

67%:
.SBTTL
;3TYPE

RTI
MOV
MOV
MOv

#SWREG, SWR
J;POINT TO SOFTWARE SWR
#DISPREG,DISPLAY
(SP)+ ,a#ERRVEC
;.;RESTORE ERROR VECTOR

CLR
BITB
BEQ
MOV

$PASS
WAPTSIZE.SENVM
67%
#$SWREG, SWR

70$:
7'%:

688:

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

TYPE PROGRAM NAME
THE NAME OF THE PROGRAM IF FIRST PASS
INC
#=1
J3FIRST TIME?
BNE
68%
*:BRANCH IF NO

C(MP

#SENDAD , an4?

JsACT=112

TYPE

,69%

STYPE ASCIZ STRING

BEQ

::69%:

000200

#1,8ERMAX

;:LEVEL

::;SIZE FOR A HARDWARE SWITCH REGISTER.

LSBTTL

001316

#3640, a#PWRVEC+2

MOVR

MOV

000042

123727
001406
023727
001005
104406

000403

MOV

68$

GET VALUE FOR SOF TWARE
G2

: :BRANCH IF

YES

SUITCH REGISTER
; ;ARE WE RUNNING UNDER KXDP/ACT?

e~s
(MPB
8EQ
CMP
BNE
6T SWR

708
SENV,#1
708
SWR,#SWREG
718

MOVB

#1,$SAJTOB

BR
LASCIZ

68$
:GET OVER THE ASCiZ
<LRLF>'(ZR6KGO RK& FCTNL CTRL DIAGA<CRLF>

BITR
BNE

#BI17,$ENVM
3$

B8R

718

*BRANCH IF YES
S ARE WE RUNNING UNDER APT?
;;BRANCH [F YES
;:SOF TWARE SWITCH REG SELECTED?
*BRANCH [F NO
S3GET SOFT-SWR SETTINGS

::SET AUTO-MODE INDICATOR

;TEST IF DO NOT SIZE
JYES = SKIP

([alal

TIR6KG.P1Y

MACY11 30(1046)

[ Y]

CIR6KGD RK6 FCTNL CTRL DIAG

2881

103007
104401

012737
00037
012700
012701
005020
005301
001375

002706
002712
002714
002720

00
03

104407
000000

051236

013700
012701
013703

032574

005737

032316

005004

c
S
15:17
PAGE 55
28-auG-81
GET VALJE FOR SOFTWARE SWITCH REGISTER

30(1046)

JSR

CMP
BHIS

000740
032020
2%:

07
00

000013

30%:
000041

99%:

000006
032572

001327

23%:

7000010

0016¢4

3%:

052737

051766
000C10

001664

022737

000001

001624

013746

05105¢
001352

26%:
5%:

MOV
MOV

#]BUFF RO
#2000 ,R1

TYPE
HALT

,OPROO7

JMP

(LR
DEC
BNE
(MPB
BNE

001222

§)

160000

001222

001352

YV IE Y

051113

001346
160000

;

051105

001222

7%:

(RO)+
R1
30%
813,441
998

$LSTBK,RO
#6,R1

BPL

23$

$LSTAD,R3

R4
$KT11

RO!
ROL

RO
R&

BNE
BIS

22%
RO,R3

sMAKE

SEQ 0054
SURE MEMORY

SUFFICIENT

JYES - SKIP
JMESSAGE (NOT ENOUGH MEMORY)
;FGRCE

END OF

PROGRAM

JSET UP TO CLEAR 2000

sWORDS OF BUFFER SPACE
JLOOP JUNTIL ;DONE
;LOAD FROM XXDP
JBRANCH [F NOT

;GET LAST BANK
JSET SHIFT COUNT
;GET LAST ADDRESS
;CLEAR R4 FOR OVERFLOW
JMEM MANAGE

PRESENT?

JNO - SKIP
JSHIFT BANK LEFT
;ADD IN CARRY
sDECREMENT COUNT
;LOOP IF NOT ZERO
;SET BANK BITS IN LAST ADDRESS

;FORCE MEMORY TYPE TO 1

MOVB
MOVB

#1,8MTYP1
R4, SMAMS

TYPE
BIS

,OPR016
#SRTINS,OPTFLG

;TYPE

#1,SRTFLG

:CHECK IF PARAMETER START
JNO, START TESTING

MoV
BIT
BNE

(MP

BNE

TYPE

K3, SMADR1
#SRTINS,OPTFLG
248

15%

,OPR001

MOv

$BASE ,-(SP)

TYPE

,0°PR00?2

v
BEQ
(MP
BH]
MOV

(SP)+,$TMPO
7%
#160000,$TMPO
5%
$TMP(Q
, $BASE

MOV
BIC

$VECT1,-(SP)
#160000, (SP)

TYPE
RDOCT

,OPR00O2

BEQ

10%

RDOCT

012637

$EOP

MoV
MOV
MOV
CIR

TYPOC

051105

$LSTBK,#740
2%

,OPRO0S
#1,8E0P(CT

DEC

737
000001
37001326
7
001330

PC,$SI12E

TYPE
MOV

TST

22%:

002566
002572

002600
002602
002606
002614
002614
002622
002624
002630
002634
002636
002642
002644
002650
002652
002660
002662
002670
002674
002700
002704

03
03

122737

001003

Lk ak 21 aVIVER

2875
2876
2877

002466
002472
002474
002476
002500
002506
002510
002514
002516
002516
002522
002526
002532
002534
002540
002542
002544
002546
002550
002552
002554
002562

004737
023727

EelA

2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874

002430
002434
002642
002664
002450
002456
002462
002462

OO =200 =200
O=—OOON—=O—=0OMN

2826

2827
2828
2829
2830
2831
2832
2833
2834
2835
2836

VMACY1T

TYPE

TYPOC

MOV

,OPR003

(SPY+,$TMPO

;STORE UPPER MEMORY ADDRESS

;STORE LOWER ADDRESS
sTEST IF ALREDY REPORTED
;YES - SKIP
STARTUP

INSTRUCTIONS

JSET REPORTED FLAG

;TYPE *'RK611

BUS ADDRESS

(

)

-''

. sSAVE $BASE FOR TYPEQUT
;60 TYPE--QCTAL ASCIIC(ALL DIGITS)

;GET VALUE

;CHECK JF <(CR>
JCHECK IF IN 1/0 PAGE
;LOAD NEW BUS ADDRESS

;TYPE "RK611 VECTOR ADDRESS (
JGET SVECTY FOR TYPQUT
;CLEAR PRIORITY BITS
;GET VALUE
;CHECK IF <(R>

) ='

TIREKGO RK6 FCINL CTRL DIAG
“IR6KG. P11
2B8-AuG-81 15:16

288,

883
2884
2885

2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915

002722
092730
002732
002740
002746
002752
002754
002760
002762
002764
002766
002770
002772
002774

0030C0
003002
003006
003010
003016
003020
003026
003030
003034
003040
003044
003050
003054
003062
003070
003074
003100
003106
003112
003116
003122
003126
003132
003140
003144
003150

022737

001000

001222

062737
053737
104401

017777
001222
051143

001346
001346

113716

001347

101757

005046
006216
006216
006216
006216
006216
104402
104401
104412

012637
001430
022737
103753
022737
101347

006337
006337
006337
006337
006337
042737
053737
005037

001222

000004

001222

160000

003154

003160
003162

-(SP)
SVECT1e1,(SP)

001347
001347

(SP)+,8TMPQ

NEWPAS:
16%:

.SBTTL

JSHIFT

5 BITS RIGHT

VALUE

JCHECK IF

<CR>

#7,8TMPQ

JCHECK

$TMPO
$TMPQ
$TMPO
$TMP(
$TMPO

JSHIFT

5 BITS LFFTY

$PASS

JSET

LEGAL

BLO
(MP
BH]

108
#6,8TMPO
10%

Bi(
BTS

#160000,8VECT1+1 ;CLEAR OLD PRICRITY
$TMPO,SVECT1+1
;LOAD RK611 PRIORITY

(LR
BIC
JSR
MOV

DRVDRP
#DRVRPT ,OPTFLG
PC,OPTIST
$VECT1,RO

:CLEAR
;CLEAR
;SETUP
;STORE

MOV
MOv
MOVB
MOV
(LR
MOV
MOV
R7!

RO,RKVE(
#INTHLR, (RO)
$VECT1+1,RKPR]
$BASE ,R2
$ESCAPE
#PRO, - (SP)
#16%,-(SP)

JSETUP INTERRUPT ADDRESS
:;STORt PRIORITY FOR USE
;SET BASE ADDRESS
;CLEAR ESCAPE
:SET PRIORITY

«+BAS]C

INTERFACE

BIC

001622

;LOAD NEW VECTOR ADDRESS
JTYPE "RK611 PRIORITY (
)

JGET

15%

(LR

001664

JCHECK 1F LEGAL
JCLEAR OLD VECTOR

(SP)

MOV

ASL
ASL
AS!
ASL
AS.

15%:

SES (055

(SP)

,OPROO2

(MP

)

(SP)
(SP)
(SP)

TYPE

BEQ

160000

001620
034442
001347
001352
001264
000000
003162

(LR
MOVR

$TMPQ,SVE(CTT
,O0PROO4

RDOCT

001222

001222
001304
001666
094000
034522
001346

#1000,8TMPO
78
817777 ,8VECT

BIS
TYPE

10¢:

051105

001222
001222
001222
001222
001222

(mp
BLOS
BIC

ASR
ASR
ASR
ASR
ASR
TYPOC

000007

15:17
30(1046)
PAGE 56
28-AUG-81
GET VALUE FOR SOFTWARE SWITCH REGISTER

#160000,R0

PASS

COUNT

TO ZERO

DROPPED DRIVES LIST
DRIVE #'S REPORTED FLAG
PARITY (CHECK & CLOCK
VECTOR FOR USE

JCLEAR PRIORITY BITS

AND OPTION TESTS

,'".ttfi.fittttttttlttiti"'t't'tfittttttt'tfit’ttl".ttttttit'!t'fi"t

JeTEST

M
.

RK617

BASE

ADDRESS

TEST

CHECK THAT READING THE RK611 BASE ADDRESS (RK{S1) DOES NOT
CAUSE A NON-EXISTANT MEMORY TRAP. IF A TRAP QOCCURS
THE

PROGRAM

HALTED.

.'"1'tt'tttti.ttltttttttt'!'tttttttt!Qt.tttt'ttttl"'t'tttttt.'ttt

003162
003164
003172
003176

000004

012737
012706
012701

000100
001100
000004

001262

T1ST1:

SCOPE

MOV
MOV
MOV

#100,8TIMES
#STACK,SP
#4 ,R1

2:D0 100 ITERAT]IONS
;CLEAN OFF STACK
:SET

POINTER

T0O

VECTOR

~ae
.

VACYT1

JRERGD RKG FCUTNC (TRL DIAG
5. P11
IRex
28-AuUG-81 15:16

2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948

2973

2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2962
2993

39:1046)

001352

2
0

000000

001662

005737

(01662

012737

053405

137

28-AUG~81

Rk611

MOV
MOV
MOV
MOV
MOV
MOV
(LR

1000004
1
034434
1
000340

000000

Mgg

NOP
NOP
TST

8EQ
?SXOR

201360

043724

000006

1¢:

BASE

S
E
PAGE 57

15:17

ADDRESS

JMP

MOV

(R1+,=(SP)
(R1),-(SP)
#6 ,R1
ANEXINT,(R1)«
#PR7,(R1)
$BASE ,R?
INTSET

JSTORE OLD VECTOR CONTENTS

INTSE”

JTEST

CTRHLT

;GO TO CONTROLLED HALT

1%
:EM1.EM1N

JRESET POINTER
JSET VECTOR TO NEM TEST HANDLER
JSET PRIORITY
:SET POINTER TO RK611 BASE ADDRESS
JCLEAR INTERRUPT (COUNTEPR

JWRITE (S1

TO SEE

_OUNTER

IN HEM WILL

SET

IS 0

JYES = SKIP ERROR REPORT
;MESSAGEF (NON=-EX]STANT MEMORY TRAP ERR,

#6,R1

MOV
MOV

SES (056

TEST

#0,RKCST(R2)

003276

(SP)+,(R1)
(SP)+,=-(R1)

JRESTORE

VECTOR

"'-ttttfittttttttttttttttt'titttfitt*tt.tttlttttttttt.tttttttttt"tt

INTERRUPT VECTOR ADDRESS TEST
J«TEST 2
M
CHECK THAT THE INTERRUPT VECTOR FOR THE RK611 IS SET TQ THE
o
EXPECTED ADDRESS. IF INTERRUPT VECTOR IS IN ERROR,
THE PROGRAM IS HALTED.
.
‘-:tttttttttttittt'ttttt'Q!ttttttttttttttttttttt'ttittttt!t.t'tttQ

003300
003302
003310

000004
012737
012762

003316
003322
03330
03332
003334
003336
003342
003344

005037
012762
000240
000240
000240
005737
001011

002350
003352
003360
003362
003366

O=O0O
OO -0
QP
—
—=O~O
WOWO
SN

2949
2950
2951
2952
2953
2954
2655
2956
2957
2558
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972

MA(CY14

105737

00010C
005000

001262
000010

001662
000300

000C%D

TST2:

SCOPE

MOV
MOV
(LR

Mgg

#100,8$TIMES
;D0 100 ITERATIONS
#CLR,RK(S2(R2) ;CLEAR SUBSYSTEM, SPECIFICALLY TO
;CLEAR ANY OLD INTERRUPTS
INTSET

:CLEAR

INTSET

JTEST

INTERRUPT QOCCURRED

JTEST

ERFLG ALREADY

001662

NOP
NOP
ST

001702

TSTR

$ERFLG

BNE
?QXOR

2%
qEM1,EM1N

%%:

JMP

CTRHLT

LSBTTL

«xSTATUS VALID TESTS

053405
043724

BNE

001360

. %

)

[

SET.

NOT

RUNNING

THE

JINTERRUPT WENT TO THE WRONG VECTOR
JAND MESSAGE HAS BEEN REPORTED.

JTHEREFORE - EXIT
IMESSAGE (NO INTERRUPT)
;60

TO CONTROLLED HALTY

PR ANRARNARAN RN ARARR A AR OENOIRNRNARENSTRRYY

SELECT ALL DRIVES

J«TEST 3
.

SWRITE CS1 TO FORCE INTERRUPT

:YES = SKIP ERROR REPORT

'-' PREARARANANRANENARANANAAR RN RN

[

INTERRUPT COUNTER

#RDY ' IE.,RKCST1(RZ)

IN APT

AUTOMATIC

DETERMINE WHAT DRIVES ARE

SELECTING ALL DRIVES.

ENVIRONMENT,

ON-LINE BY

IF NON-EXISTENT DRIVE REPORTED

[ Nale]

JIREXGY RKS FOTN. CTRL DIAG
IR6XG.P1
2B~AUG=81 15:16

TIREXGD RKG FOTINL (TRL DIAG
“IR6KG.PYY
28=-AuG=-81 15:16

VALY

39%1066)

PAGE 58

SELECT ALL DRIVES

SEQ CO057

IS CYCLED UP,. AND STATUS VALID SET, AND DSC RESET.

2996
2967
2998

15:17

MAKE SURE STATUS VALID IS RESET.
[IF DRIVE
PRESENT MAKE SURE NO ERROR EX]STS, DRIVE

]

2994
299¢

28-AuG-81

BE BN N

IF _RUNNING IN APT AUTOMATIC ENVIRONMENT, THE DRIVES
IDENTIFIED IN ETABLE ARt TESTED FOR NO ERROR, DRIVE

CYCLED UP,

IF LOCATION 41

IS N

THE

Y
S

NN BN JEE I
BN
Y
IR TN

001620
034442
00G340
001354
000206

003424
003430
003434
003440
003446
003450

003454
003456
003464

004000

THE

DRIVE 0.

THE PARAM

STATUS OF

IS USED,

THE OPFRATOR MUST

IT IS NOT TO BE

TESTED

I
I
I
N
S
B

COMPLETION Qf

IDENTIFY

THE

THE DRIVES

TEST

A MESSAGE

TO BE LSED

WILL

IN TESTING.

GIVEN

2
P

NOTE:

THIS

TEST MUST BE RUN AT LEAST ONCE BEFORE

ANY OTHER

THE

TEST

THAT

DETERMINATION

FOLLOWS.

WHETHER

L 2N B

RKO6 OR AN RKO7 IS MADE
TABLE

—t

SCOPE
MOV

MADE

#50. ,8TIMES
DTYPE

ERROR

MOV

#PRO, = (SP)

RT]

1%:

#18%,-(SP)

MOv
MOV

RKVEC ,R1
#INTHLR,(R1)+

BITB
BNE

#BI1T7,$ENM
508

MOV
MOv
TST

BNE

BIT

BEQ

#PR7,(R1)
#SDEVM R3

EACH DRIVE

IN THIS

ACCORDINGLY.

RERARRRARRRES

CLR

MOV

001664

TEST

PARAM START

TSSINIT

001304

EXISTANT EITHER BECAUSE THE DRIVE DOES NOT EXIST OR IS OFFLINE ARE USED TO VERIFY NON-EXISTANT DRIVE ERROR DETECTION.
DRIVES THAY ARE ON-LINE BUT NOT CYCLED UP OR ARE WRITE
LOCKED ARE NOT TESTED.

001262

001317

TESTED

AL DRIVES TO BE TESTED MUST BE ON-LINE, CYCLED UP, AND
WRITE LOCK RESET. ADDRESSES OF DRIVES THAT ARE NON-

003420

O WILL ONLY BE

OR UNLOADED AND A SCRATCH MEDIA MOUNTED I[F IT IS TO
BE TESTED. THE PROGRAM WILL MONITOR OFF LINE AND VOLUME
VALID TC DETERMINE THE TEST STATUS OF DRIVE 0.

L R U IS PO I T

000000
003420

INDICATES THE XXDP MEDIA IS ON

EITHER PLACE DRIVE O OFF LINE

104003

003406
003412
003416

DRIVE

WILL RETAIN THE

1044616

000062
00172C

RKO6,

START (214) WAS USED. IF THE AUTOMATI(C START (200)
IS USED, DRIVE O IS NOT TESTED. THE RESTART (204)

ASASASAA

000004
012737
005037

E
LI I TN
TN TR TP SO I

003366
003370
003376
003402
003404

AND STATUS VALID SET.

TEST,

AND A

RRRRRRRRR2RN

:.D0 50. ITERATIONS
;ASSUME RK06
sCALL

SUBSYSTEM CLEAR AND

;SET PROCESSOR PRIOQRITY

JRK611

INTERRUPTS

.GET VECTOR
;LOAD INTERRUPT

;GET

TEST

TO ALLOW

VECTOR

ADDRESS OF

DEVICE MAP

JTEST IF SHOULD SIZE
sNO - SKIP DRIVE SIZING.

$PASS

JTEST

FIRST

#DRVRPT,OPTFLG

;TEST

DRIVE #'S REPORTED

508

92%

PASS

¢NO = SKIP TO DRIVE
;NC - GOTO SIZING

SELECT TESY

3050
3C5Y
305¢
3053
3056
3055
3056
3057

3058
30,9
3060
3061
3062
3063
306¢
gggg

003466
003472
003474
003502
003504
003512
003514
002520
0063526
003534
003536
003542
003546
003552
203560
003566

000137
(005013
123727
001111
022737
001411
104401
052737
042737
000477
104401
005037
005037
012737
012737
104417

004142

000041

000013

000001

001624

051236
000001
000001

001666
001666

051236
001610
001232
000101
003646

2B8-AuG-81
15:17
SELECT ALL DRIVES

508 :
92%:

JMP
CLR
(MPB
BNE
(MP
BEQ
TYPE
BIS

2%:

001600
007264

3067
%828

003570
003572

104423
104002

3070
3071
3072
3073
3074
3075
%8;9

003574
003576
003604
003606
003614
003616
003624

104420
032737
001431
032737
001014
(032737
(01406

100000

001540

010000

001550

000040

9201554

gggg

003626

012737

02000

001720

3080

003634

003636
003640

104476

104003
000744

3084
3085
2086
3087
3088
3089
3090
3091
3092
3093
3094
2095
%889

003642
003644

104421
104004

003046
003652
003660
003666
003670
003674
003676
003704
003706
00371¢

106401
042737
052737
000422
005737
001910
032737
001322
(12737
000716

051236
000001
0000017

3098
3099
;;8?

003716
003724
003726

3162
3103
3°C4
210

003734
003742
003744
003750

3081
ggg%

30¢1046)
13

5$:

RIC
BR
TYPE
(LR
(LR
mMov
MOV
TLOADRK

001232

#1,SRTFLG
23
,0PROO7
#8i70,DRVDRP
#DOTST,OPTFLG
7%
.OPRQ06
L.CS?
$TMPL
#SELDRV,L.CST
#.$,SESCAPE

SEQ CO058

;(LEAR DEVICE “AP
JTEST IF RKO6 IS LOAD DEVICE
;NO - SK]IP
cWAS START AT PARAM?
;YES = SKIP
JNO TEST OF DRIVE 0
;SET DRIVE O DROPPED
;DR FLAG - NO TEST DRIVE 0

sMESSAGE - SWAP PACK ON DRIVE OFF
;SET TO DRIVE O
;CLEAR FOR USE AS A SWITCH
;LOAD FOR SELECT
sSET UP ESCAPE IN CASE OF ERR
;LOAD RK & DO SELECT

swAIT 16MS FOR COMPLETICN
sNGT DONE ON TIME

TGETRK
BIT
BEC
BIT
BNE
BIT
BEG

#(ERR,T.(S1
5%
ANED,T.(S?
4%
ADTYE,T.ER
26$%

;GET RK REGISTER
JTEST IF CERR
:NO = SKIP
JTEST IF NED
JYES - SKIP
JELSE SEE IF DRIVE
;BR IF NO

MOV

#(DT,DTYPE

JELSE

SETUP FOR RKO7

JINIT SUBSYS

3
3%

26%:

T (HKQP
ERROR

4%:

TYPE
BIC
8IS
BR
TST
BNE
BIT
BNE
MOV
BR

.OPR007
#DOTST,OPTFLG
#317C,DRVDRP
7%
$TMP4
6%
#DRDY,T.DS
3%
4-1,8TMP4
3s

BI1
BEQ
BIS

A#DRDY,T.D5
3%
#DOTST,OPTFLG

sTEST IF READY SET AGAIN
sNO - GO GET STATUS AGAIN

MOV
(LR
MOV
(LR

#358 ,$ESLAPE
RO
#1 K1
DTYPE

sSET JUP ESCAPE IN CASE OF ERR
;CLEAR FOR DRIVE NUMBER COUNTER
sSET BIT O AS DRIVE SELECTOR
JINIT TO RKO6

5%:

000200
177777

001232

032737
003712
052737

006200

001552

¢¢%:

000007

001664

77%:

012737
005000
072701
005037

0064042

001264

7%:

LINE.

TYPE ERROR

ERROR
BR

_
001552

000001
001720

77%

PAGE

TWAT16
ERROR

TSSINIT

001664
001666

118
(R3)
arel

sNOT SUCCESSFUL
JAND TRY AGAIN
;0RS.,6.,7

sCHECK THE OPERATION AND REPORT THE ERROR
JAFTER THE ERROR IS RFPORTED THE TEST
;1S ABORTED
sTYPE NO TEST OF DRIVE 0
;DR FLAG - NO TEST OF DRIVE 0
:SET DRV 0 AS DROPPED
;SKIP OVER WAIT FOR PACK MOUNT
;TEST FLAG DRIVE READY HAS RESE”
;YES = SKIP TO CHECK IF IT IS SET AGAIN
JELSE CHECK READY
sSTILL SET -~ GET STATUS AGAIN
;ELSE SET FLAG TO INDICATE READY WENT [Ow
;GO GET STATUS AGAIN

;ELSE

SET DRV O TEST FLAG.

[ KoY

VMACY1T1

~an
.

JIR6KGO RS FUTNL CTRL DIAG
TIR6KG.P1T
<8-AuG=81 15:1¢

TIR6KGD RKe FCTNL (TRL DIAG
CIROKG. P
28=AuG=81 *S:16

3106

3107
;'1!88

00375«
003762

032737
001440

3110

003764

104416

3113
3°164
%;12

00%770
0C3774
004002

010037
012737
104477

3117

004004

1044723

3120
3121
3122
323
31264
3125
3126
3127
3128
3129
3130
3131
3122
%;;E

004010
004012
004020
004022
004030
004032
004040
004042
004046
004050
004050
004052
904054
004062

104420
032737
001031
03737
001404
032737
001403
050137
000406
050113
006300
C€13760
006200

3135

004064

005200

3138
3139
;}2?

004074
004076
004102

001022
005037
000730

3142
3143

004104
004112

032737
001364

%}22

004122

001404

%}1;

;;38

2136
3737

3144

003766

004006

004066
004070

004714

(0000'

001610
000101

001600

104002

006301
032701

00000

001540

000200

001552

004000

001552

001666

35%:
36$:

001720

001722
98 :

000400
001720
010000

001550

032737

000040

001554

002000

001720

012737
000714

3150
3151
3152
3153

004134
004136
004140
004142

106427
104004
000000
032737

3156
3157
3158
%;28

004152
004154
004176
004162

C05713
001004
104401
000137

(051317
043724

3161

004166

012701

000200

001037

108%:

2014664

TSSINIT

ERROR

10°%:
1°%:

'2%:

H
5
PAGE 60

#DOTS” ,OPTF.G
9%
3

,TEST DRIVE 0?
:NO - SKIP
JINITIALZE SUBSYSTEM
JERROR

NOT

SJUCCESSFUL

MOV
RO,L.CS2
MOV
#SELDRV,L.CST
TLOADRK

sLOAD DRIVE NUMBER
;LOAD DRIVE SELECT
;LOAD RK REGS

TWAT16

;WAIT

FOR

INTERRJPT

ERROR

TGE TRK
BIT
BNE
BIT
BEQ
BIT
BFQ
BIS
BR

#CERR,T.CS?
108
#DRDY,T.DS
358
#WRL,T.DS
36%
R1,DRVDRP
9%

BIS
ASL
MOv
ASR

R1,(R3)
;S5ET BIT - DRIVE PRESET [N MAP
RO
DTYPE,TYPTBL (RO)
JSET TABLE WITH DRIVE TYPE
RO

INC

BNE
(LR
BR

11%
DTYPE
8$

ASL
BIT

;70 SLOW/NOT COMPLETE ERROR
;GET RK REGS
;ERROR?
JYES - SKIP
JELSE TEST IF DRIVE REACY
;NO - SKIP
JELSE TEST IF WRITE LOCKED
;NO - SKIP
;SET IHIS BIT AS DROPPED DRIVE

[NFO

;BUMPS TG NEXT DRIVE

R1
#8]78 ,R1

JSHIFT DRIVE SELECTOR TO NEXT DRIVE.
;WAS LAST DRIVE DONE?

BIT
BNE

ANED,T.(S2
9%

;WAS CERR DUE TO NED?
JYES - BUMP TO NEXT DRIVE

BEQ

24%

;BR IF NO

BIT

26$:
004000

2B-AUG=8"
15:17
SELECT ALL DRIVES

8l7
BEQ
8s:

004124
004132

004150

30('046)
T3

0C1664

104003

3147
ggzg

g;gg

MACYTY

#DTYE,T.ER

;BR [F YES
SELSE INIT FOR RKO6 TO TEST NEXT DRy

JELSE

SEE

DRIVE

TYPE

ERR

MOV
BR

#(DT,DTYPE
8%

TCHKOP
ERROR
.WORD
BIT

& ;0R5,6,7
0
#DRVRPT ,OPTFLG
16%

;NO - SKIP

TST
BNE
TYPE
JMP

(R3)
128
.0PROO8
CTRH_T

<ANY DRIVE AVAILABLE?
sBR IF NOT ZERO
;ELSE REPORT NO DRIVES AVAILABLE
;GO TO CONTROLLED HALTY

MOV

#8117 ,R1

JSEYT DRIVE SELECTOR FOR DRIVE

BNE

JELSE SET UP FOR RKO?7
JAND TRY AGAIN

JELSE REPORT THE ERRORS
;TEST

SHOULD REPORT

J59

TIREKGD RKE FUTNL

28=-AuUG=-81

15:16

004172
0046176

012700

000007
051402

004202
004204

030113
001007

004206
004210
004212
004214
004222

005306
006291
001373
052737
000412

004224

010037
052737

6K
G P11

3162

N NO OO OV OVV00ooOC00OD0000
N NN~ N ~
NOWNEB W
2000 NN WA —O V00 NONN
WA

LN LA N U O AN U

NN U

N O

N A

o D

N AN U AN N

N AN AN

oD
d b

W AN N

5163

C(TRL DIAG

004230
004236
004240
006242
004246

004250
004252
004256
004264
004272
004300
004304

10440°

104401

004140
104401

000757
005000

MACVYTT

13¢:

0016¢46

00« 346
004350
004352
004354
004356

004360
004 366
004370
004376
004400
004402
004404
004410
004472

BNE

004140
000060

0046140

000001
127777
177777
0uvé400
001666

16%:

001240
001630
00126«

036134
000101

JTEST

DRIVE

15§

THIS

JYES - SKIP

TO BE

TESTED

;PUT DRIVE NUMBER IN TYPE LOCATION

8IS

CLR

MOV
MOV
MOV

138

#B1T4 .BITS5,101$ JMAKE IT ASCIZ
JTYPE

LSPA(CE?
iss

;TYPE SOME SPACES
;LOOP

;CLEAR DRIVE NUMBER COUNTER

#1.R1
8=-1,$TMP?
#-1.DRVBIT

sSET

DRIVE

SELECTOR

TO DRIVE

;HAS DRIVE O BEEN DROPPEDN?
;YES = SKIP TO DRIVE INC.

ERROR

;ERROR FOR BAD (LEAR

MOV
MOV
JSR
MOV

RO,L.CS2
RO.DRVNUM
PC.GTYPO
#SELDRV,L.CST

JSET DRIVE SELECT
sSET DRIVE NUMBER

TSSINIT

JSET STMP7 NEGATIVE
sSET DRIVE SELECT BIT NEGATIVE
sSET ESCAPE IN CASE OF ERR

#18%,$ESCAPE
R1,DRVDRP
18%

TCHKWE

005200
006301
032701
001063
030137

R7,(R3)

TEST MESSAGE

RO,101$

104422

104003

TO DRIVE

MOV

001026

032737
001404
012737

PREFIX

16$

ERROR
BIT
BNE

104004

;TYPE

#DRVRPT ,0PTFLG

TLOADRK
TWAT16

000v00
000000
000001

;SET DRIVE NUMBER 10 7

,0PR(09

8IS

MOV
BIT
BNE

001600

SEQ C060

JELSE DECREMENT DRIVE NUMBER
JSHIFT BIT SELFCTOR TO NEXT DRIVE DOWN
sI1F NOT SHIFTED OUT - LOOP
sSET DRIVE #'S REPORTED FLAG
JELSE GO TO STATUS VALID TEST

TYPE
1018
TYPE
BR

051053

#7 R0

B8R
15%:

PAG

ASR

BNE

011610
001626

004316
004322
004326

BIT
DE"

004000

15:17

SELECT ALL DRIVES

TYPE

175:

006312

28-AUG=81

MOV

004306
004310

004334
004336
004340
004342
004344

30(1046)
13

sCLEAR SUBSYSTEM

:GET DRV TYPE
sSET FOR DRIVE

SELECT

sLOAD RK REGS
2
R1,(R3)
19§

.WORD
"WORD
"WORD
ERROR

0
O
1
4 :0RS.6.7

JWAIT

FOR

INTERRUPT

sERROR TO SLOW/NCT COMPLETE

;WAS

THAT DRIVE

JYES - SKIP

AVAILABRLE

sCHECK THAT ERROR OCCURRED
;NONE OF GROUP 1
sNONE OF GRCUP ¢
;NED IN GROUP 3
;ERROR IF

NO ERROR OR WRONG ERROR

100000

201552

BIT

#SVAL,T.DS

055527

001400

MOV

HEM4LT7 ,EMIN

;DID STATUS VALID RESET?
JYES - SKIP
;ELSE MESSAGE (SVAL NOT RESET WiTH NFD)

ASL

JBUMP TO NEYXT DRIVE
JSHIFT DRIVE SELECT BIT

BEO

18¢:
000400
001666

ERROR
INC

BIT
BNE
81T

18%

3
RO

#B]T8.R1
218
R1,DRVDRP

JALL DRIVES
JYES = EXIT

CHECKED

JTEST IF DRIVE HAS BEEN DROPPED

3218
3219
3220
%ggé

006416
004420
006422
004424

001370
000732
104421
106006

3223
3204
3205
gggg

006426
006434
006436
0C44d4

032737
(001004
012737
104003

3228
gggg

004446
004454

012737
104417

3231
3335

006456
004460

333,
gggg
3237
3238
3239
3240

VACYN

3%1046)

28-AUG-81
15:17
SELECT ALL DRIVES

19¢
100000

001552

055610

001400

000103

001607

18%
178

& :0RS.6.7

BIT
BNE
MOV
ERROR

#SVAL,T.DS
208
SEMGR,EMIN
3

SES 0061

:YES = GET NEXT DRIVF
YELSE CHECK THIS DRIVE
*CHECK NO ERRORS SET
*REPORT ALL ERRORS
;CHECK SVAL SET
TYES - SKIP
*MESSAGE (NO SVAL FROM EXISTANT DR)

MOV
#PACK,L.CST
TL OADRK

SELSE SET
*LOAD RK

104423
104002

TWAT16
ERROR

:WAIT FOR INTERRUFT
1TO SLOW/NOT COMPLETE ERROR

006462
006464

104421
106006

TCHKOP
ERROR

& ;ORS,6,7

:CHECK FOR ANY ERRCRS
*YES - REPORT & ABORT TEST

004466
004474
004476
0064504

032737
001005
012737
104003

000100

001552

055472

001400

BIT
BNE
MOV
ERROR

#VV,T.DS
228
#EMLG ,EMIN
3

;DID VV SET
*YES = SKIP
*MESSAGE (VV DID NOT SET/

3243
3204
3245
3346
3247

004510
004516
004520
004526
004534

032737
001410
012737
012737
104003

040000

901552

056604
057044

001470
061112

BIT
BEQ
0V
MOV
ERROR

#DSC,T.DS
238
#EMDSC ,EMI2N
#EMSCLR,DFO11A
3

sTEST IF DSC RESET
SYES - SKIP

3250

004540

005737

001630

DRVB] T

;TEST IF DRVBIT IS NEGATIVE

gsag

004506

20%:

BNE
8R
TCHKOP
ERROR

J
5
PAGE 62

000734

B8R

TO DO PACK ACK

188

“

;gzg
3251
3252
3253

gfsg
fp]

004536

004544
004546
094552

004556

22%:

000720

100315
010337
010037

000710

23%:

001630
001240

3256
3257
3258
3259
2529

004560
004560
(004564
004572
004576

005037
013737
013701
004737

001264
001240
001626
036150

3262
3263
%522

004602
004610
004612

023727
001002
000137

001626

3266
3067

004616

001626

000002

0.3¢%4

188
R1,DRVBIT
RO.$TMP7

*NO - SK]P
*STOKE DRIVE SELECT BIT
*STORE DRIVE NUMBER TO BE

CLR
MOV
MOV
JSR

$ESCAPE
$TMP7 ,DRUNUM
DRVNUM,R1
PC.GTYPI

:REV 006
-LOAD LOWEST # DRIVE PRESENT

CMP
BNE
JMP

SRTFLG, #2
25
ADJCLK

STEST IF CLOCK ADJUST START
‘NO - SKIP
260 TO ADJUST CLOCK ROUTINE

AR A AR E NP RN E R AR AN R I AN NN NG AT R NN ORI CEERRRNRRNOTOPATSESE

18%

TESTED

INTO DRVNUM

<GET DRV TYP

2°%:

3268

gg;g

Se1EST

3271

3272
3273

SUBSYS CLEAR'

8PL
MOV
MOV

B8R
21%:

188

:"DSC NOT RESET RESULT OF

e
.

NN N

RELEASE

ALL

RELEASE ALL DRIVES.

DRIVES

MAKE SURE NO ERROR

SETS AND STATUS VALID iS RESET.

“IR6KGO RKG FOTNL (TRL DIAG
"IREKG.P11
28<AUG-81 15:16

TIREKG. P
3274

28-AuUG~-81

15:16

30(1046)

28-AUG=81

RELEASE

AR RRAR AR

K
S
PAGE 63

15:17

ALL

DRIVES

ARl

MACY11

SES 0062
X

SRR

RE RN,

3275
3276
3277
%S;g

004616
004620
Q04626
004630

000004
012737
104416
104003

3280
%Sg%

004632
004640

013737
012737

3283
3284
3285
3286
3287
gsgg

004646
004650
004652

104417
104423
104002

ERROR

G0u654
004656

10442°
104004

ERROR

3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302

004660

012737

MOV

#RLS,L.CS2

;SET DRIVE RELEASE,STILL SET FOR SELECT

004666
004670
004672

104417
104423
104002

;LOAD RK REGS
;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

004674
004676
004700
004706
004710
004716
004720

104421
104006
032737
001404
012737
104003

004720

004737

3304

000062

001626
000101

001262

TST4:

001610
001600

001610

3329

::D0 50,

MOV
MOV

#SELDRV,L.CSY

DRVNUM, L .(CS?2

sSET DRIVE NUMBER

;LOAD RK REGS
JWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

sSET DRIVE

TWAT16
ERROR

TCHKOP

001552

055667

001400

ERROR
BIT
BEQ

036034

TSTLUP:

JREPORT ANY ERRORS

gEM49.EM3N

JSR

PC.LDCON

AR AN R AR R AN AR A AR

N AN AR AR

:CHECK FOR ANY ERRORS
7

;REPOR:

:DID

ALL

SVAL

ONE

THE

ERRORS

RESET?

JYES - SKIP

JMESSAGE

(SVAL NOT RESET W/RE_EASE)

;LOAD

RKO6~RKO7 CONSTANTS

AN A AR

RN ARANNANARRANRIANRRAE
NS

NON-STANDARD MESSAGES AND
PICK

AVAILABLE

DRIVES

SVAL
AND

GET

NON-STANDARD MESSAGES.
MAKE SURE NO
ERROR OCCURS AND STATUS VALID DOES NOT

AND THAT NON-STANDARD MESSAGES
VALID TO RESET.

w0,

CAUSE

SET

STATUS

Sa%s8aN,

MOv

TATEST

0R 5,

#SVAL,T.DS

ERROR

1%:

SELECT

;CHECK FOR ANY ERRORS

:0RS5,6,7

TLOADRK

100000

ITERATIONS

ERROR

T(HKOP

000010

#50.,8TIMES

JINITIALIZE SUBSYSTEM
JBAD INIT

TLOADRK
TWAT16

004776

032737

000062
000001
001626
000101
001616

001262

1STS:

SRRl

1%:

SCOPE

MOV
MOV
MOV
(LR
TLOADRK
TWAT16

001552

;.D0 50. ITERATIONS
sCLEAR SUBSYSTEM
sBAD CLEAR MESSAGE

DRVNUM,L.CS?

:LOAD DRV NUMBER

#1,R1

#SELDRV,L.CST

L.MR1

JPRESET R1

ERROR

BIT

#SVAL,T.DS

;5,6 OR 7

FOR MESSAGE

sLOAD SELECT

PAIR

COMMAND

sLOAD FOR STANDARD STATLS

:LOAD RK
JWAIT

ERROR

TCHKOP

100000

R Rt
2R R R AR R R YRR R X R XY

MOV
#50. ,$TIMES
TSSINIT

ERROR

-—

000004
012737
104416
104003
012701
013737
012737
005037
104417
104423
104002
104421
104004

(o3 *,)

004724
004726
004734
004736
004740
004744
004752
004760
004764
004766
004770
004772
004774

OO
OO

3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3302
3323
3324
3325
3326
3327

SCOPE
MOV
TSSINIT

FOR

INTERRUPT

;TO SLOW/NOT COMPLETE ERROR
s CHECK OPERATION
sREPORT ALL

ERRORS

;TEST STATUS VALID SET

[ Y

TIR6KGD RKG FOINL (TRL D;AG

SEQ 0063

JYES-SKIP

MOV
MOV

ERROR

#EMSVAL ,EMTIN
#EMSELD ,DFO11A
n

;"'SVAL

MOV

R1,L.MR1

;LOAD MESSAGE PAIR SELENT

010137

005030
005032
005034

104417
104423
104002

TWAT16
ERROR

005036
005040

104621
104004

ERROR

005042
005050

032737
001407

100000

001552

BIT

#SVAL,T.DS

005052
005060
005066

012737
012737

056444
056461

MOV
MOV

#EMSVAL ,EMI2N
#EMNZPR,DFO11A

J''SVAL NOT RESET RESULT OF

005070
005074
005076
005100
005102

02270%
001402
005201
000727

000003

CMP
BEQ
INC
BR

#3,R1

JWAS PAJR 3 SELECTED?

—

005024

—

012737
012737

005006
005014
005022

OO
(o Y]

BNE

001007

104011

104012

2%:

:LOAD RK

TLOADRK

ERROR

3%:

;WAIT

FOR

SET RESULT OF

DRIVE

SELECT''

INTERRUPT

;TO SLOW/NOT COMPLETE ERROR
;5,6, OR 7

BEQ

=~
no

——d
—

—

TCHKOP

NOT

4%
R1
1%

;CHECK OPERATION

JREPORT ALL ERRORS
JTEST

STATUS

JYES=-SKIP

VALID RESET

SEL W/ NON-O PAIR''

JYES=-SKIF
;BUMP TO NEXT PAI]R
JSKIP TO DO IT.

':t't'tt*t*tttfitt!ttttitii*"ttittttt.fit.ttti't"t'ttttttt'i"tti

SATEST 6

WRITING £S2 AND STATUS VALID

SELECT AN AVAILABLE DRIVE.
MAKE S_RE STATUS
VALID IS SET.
WRITE COMMAND AND STATUS REGISTER 2.

e &

. %

MAKE

* %

SURE

STATUS

VALID RESETS.

. %

MRS

000004
012737

001262

104416
104003

013737
012737

15716:

SCOPE
#50.,8TIMES
MOV
TSSINIT
MOV
MOV

#SELDRV,L.CS1

DRVNUM, L .(S2

;LOAD DRIVE NUMBER

ERROR

005144
005152

032737
001007

001552

BIT
BNE

#SVAL,T.DS

005154
005162
00,170

1273
1273

MOV
MOV

KEMSVAL ,EM1IN
#EMSELD,DFO11A

0401

— O
O

—

0250

—

TCHKOP

~ NN

104421
104004

—OO0O

005140
005142

ERROR

DRIVE

SELECT

;LOAD RK
;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR
;5,6,

OR 7

sLOAD

ITERATIONS

TLOADRK
TWAT16
ERROR
2

6444

;.D0 50.

2222203220022

ERROR

104417
104423
104002

10006<

22002222

;CLEAR SUBSYSTEM
;BAD INIT ERROR

001610
001600

SRR

s CHECK OPERATION

JREPORT ALL ERRORS
JTEST

STATUS VALID

JYES-SKIP

SET

;"'SYAL NOT SET RESULT OF

DRV SELECT''

[VY
)

30(1046)
15:17 PAGE 64
28-AUG-81
TS
NON-STANDARD MESSAGES AND SVAL

005004
NN NN N NN NN NN

NN NN N (NN NN NN

MACY11

£ B NNNNIN NN
= ONO00 O N BN

CIR6KGD RK6 FCTNL CTRL DIAG
TIR6KG P
28-AUG-81 15:16

3386

MOV

005172

013762

%ggg

005200

104420

33917
%%gg

005202
005210

032737
001407

100000

001552

BIT
BEG

#SVAL,T.DS
2$

STEST SVAL RESET
SYES=SKIP

3394
3395
3396

005212
005220
005226

012737
012737
104012

056444
056522

001470
061112

MOV
MOV
ERROR

#EMSVAL ,EM12N
#EMWCS2.DFOT1A
12

:"'SYAL NOT RESET BY WRITING (S2'

005230

18:

DRVNUM,RKCS2(R2)

000010

SEQ 0064

TGE TRK

28:

;WRITE €S2 TO RESET SVAL
:GET RK REGS.

gzgg

.SBTTL

**CONTROLLER ERROR TESTS

3[.01

.'"tttl'tt!tttt*!ttfittt*tt*ttt*ttttttttttttttt*ttt*itttttttttt

gzgg

S«TEST 7

DRIVE

[2 % 3 1

TYPE ERROR

- %

3404

CREATE A DRIVE TYPE ERROR.

MAKE SURE DRIVE

%282

3407

:'.'tttttttttttttttt*ttttttttttitttt*tttt*t*tttttittttttttttttttttt

34,08
34,09
3,°0
22}5

005230
005232
005240
005242

000004
012737
104416
104003

000062
-

001262

3413
3,14
%212

005244
005252
005260

013737
G12737
"053737

001626
000101
036130

001610
001600
001600

3417
3,18
%2}8

005266
005270
005272

104417
104423
104002

TLOADRK
TWAT16
ERROR
2

:LOAD RK
“WAIT FOR INTERRUPT
*TO SLOW/NOT COMPLETE ERROR

34,21
34,22
3423
3424

005274
005276
005300
005302

T CHKWE
.WORD
"WORD
"WORD

:CHECK OPERATION WITH EXPECTED ERROR
*DRIVE TYPE ERROR

005304

104422
000040
00CN00
000000
104004

3427
gzgg

005306
005314

032737
001007

100000

3430
3431
3432
3433

005316
005324
005332
005334

012737
012737
104011

056444
055140

34,25

34,06

3634

1$T7:

TYPE ERROR SETS AND STATUS VALID SETS.

SCOPE
MOV
#50.,STIMES
TSSINIT
ERROR
3

::D0 S0. ITERATIONS
:CLEAR SUBSYSTEM
:BAD INIT ERROR

MOV
MGV
BIS

;LOAD DRIVE NUMBER
;LOAD DRIVE SELECT
:LOAD DRIVE TYPE

ERROR

000040
0
0
&4 : OR 5.6,7

001552

BIT
BNE

#SVAL,
1%

001460
061112

MOV
MOV
ERROR

#EMSVAL ,EM1IN
#EMDTPE .DFO11A
11

1%:

A AR A

%2’%2

JxTEST 10

3437

3438
5439
2440
344

DRVNUM,L.CS2
#SELDRV,L.CS1
HOLD2,L.CST

.
*
.
»

:REPORT ANY DIFFERENCES

T.DS

AR RN

(NO ERRORS,

*ADDITIONAL ERRORS, DIFFERENT ERRORS)
STEST IF SVAL SET
SYES=SKIP

:"'SVAL NOT SET RESULT OF DRV TYPE ERR'*

A R RN I AR AN RN R AR AN P R AR R AR

R AR R

R AN A%

STATUS VALID AND PARITY ERROR

ISSUE A SELECT TO AN AVAILIABLE DRIVE WITH BAD PARITY.

MAKE SURE SPAR, CONTROLLER ERROR, ATTENTION,
DRIVE STATUS (HANGES, DRPAR, DRIVE INTERRUPT,
AND STATUS VALID SET. ISSUE A CONTROLLER
CLEAR.
MAKE SURE DRIVE INTERRUPT AND ATTENTION

lalal

28-AUG-81
15:17 PAGE 65
WRITING €S2 AND STATUS VALID

%ggg

gggg

001626

VACY11 3?é1046)

(IR6KGO RK6 FCINL CTRL DIAG
CIR6KG.P11
28-AUG-81 15:16

3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470

5
PAGE 66

15:17

STATUS VALID AND PARITY ERROR
ARE

STILL

PARITY.,

CHANGE,

AND

SET.

MAKE

DRPAR,

SELECT

SURE

DRIVE AGAIN WITH GOOD

ATTENTION,

DRIVE

CONTROLLLER ERROR,

STATUS VALID ARE

SET AND

ISSUE A CONTROLLER CLEAR.

SEQ 0065

SPAR

STATUS

DRIVE

INTERRUPT,

IS RESET.

GET NON=-STANDARD MESSAGES

AND MAKE SURE ONLY DRIVE INTERRUPT AND ATTENTION
ARE SET.
CLEAR ATTENTION WITH DRIVE CLEAR. REPEAT
FOR ALL AVAILIABLE DRIVES.

005334
005336
005344
005346

000004
012737
104416
104003

001626
000101
000020

005350
005356
005364
005372
005374
005376
005400
005402
005404
005406
005410

000062

104002

104422
000011
000000
€00000
104004

001262

001610
001600
001616

AASE RS2SR

T ST10:

SCOPE
MOV

#50. ,$TIMES

ERROR

TSSINIT

MOV
MOV
MOV

TLOADRK
TWAT16

ERROR

TCHKWE

DRVNUM,L.CS2

#SELDRV,L.CS1
#PAT,L.MR1

DRPARERR ! SPARERR
.WORD
0
.WORD
0
ERROR
& ; OR 5,6,7

dRRRRRRRSARRSRRRSRRiRRRRRRRRRRR

;.D0 50.

ITERATIONS

sCLEAR SUBSYSTEM

JBAD INIT ERROR

sLOAD DRIVE NUMBER

sLOAD DRIVE SELECT
;LOAD EVEN PARITY BIT
;LOAD RK REGS~SELECT W/EVEN PARITY
JWAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE ERROR

;CHECK OFERATION FOR EXPECTED ERROR

;DRIVE SELECTED DRIVE BUS PARITY ERROR
JCONTROLLER DETECTED DRIVE BUS PARITY ERROR
JREPORT ANY DIFFERENCES

28-AUG-81

3442
3443
3644
3445
3446
3447
3448
3449
3450
2451
3452
3453
3454
3455

3? (1046)
8

(IR6XGO RK6 FCTINL CTRL DIAG
2B~-AUG-81 15:16

CIR6KG.P1Y

MACY1

(ZR6KGO RK6 FCINL CTRL DIAG
CIR6KG.P11
28-AUG-81 15:16

012700

000400

005416
005422
005424
005426
005430

013701
3

001626

= NWO
W
NW
=~ NNNN
= NN

040000

001540

056564
055055

007460
061112

040000

001552

056604
055055

001460
061112

100000

001552

056444
055055

001460
061112

005532
005540
005542
005550

=S NNNN

0014¢€C
061172

ONNONONN

056630
055055

005504
005512
005514
005522
005530

110

3%:

001556

005446
005454
005456
005464
005466
005474
005502

3 (1046)

2%:

L NWOW

005432
005436
005440

O ONNON

3482
3483
3484
3485
3486
34,87
34,88
3489
3490
3491
3492
3493
3494
3495
3496
3497

005412

3471
3472
3473
3474
3475
3476
3,77
34,78
3479
3480
3481

MACY11

WL 2OV

YO NB WO

NINOPNORLPONUN)
= 2 s 3 a2

AN LN AN U A WAL NN AN NN AN N N AN N N
(VA LW R R
NV LV AW [V LV R LV W, LV, SV, RV LV, 1V, |

005037

001616

005564
005572

052737

100000

005574
005576

106421

104417

MOV

DRVNUM,R1

sSHOULD BE ScT IN ASOF

ASL

RO
R1

:?éTuggAT SHOULD BE SET FOR THE DRIVE

BEQ
DEC
BNE

RO, T.ASOF
3
#EMDA EM1IN
:EMDPAR,DFO11A

BNE

ERROR
BIT
BNE

#D]1,T.CST

MOV
MOV

#EMDI EM1IN

BIT

’ #DSC,T.DS
6%
#EMDSC ,EMTIN
qEMDPAR,DF011A

BNE

6%:

001600

1§MDPAR,DFO11A

056630
056650

51
0 01510
11
61112
06

005624
005632
005634
005642
005650

040000

001540

056564
050650

001519
061112

005652

000101

001600

JTEST ATTENTION SET
JYES=SKIP

;"DRV ATT NOT SET RESULT OF DRV PARITY ERR"
JTEST DRIVE INTERRUPT SET
JYES=-SKIP
;'DRV INT NOT SET RESULT OF DRV PARITY ERR'’
;TEST DRIVE

JYES=-SKIP

STATUS

(HANGE

SET

;''DSC NOT SET RESULT OF DRV PARITY ERR"

MOV
MoV

HEMSVAL ,EM1IN
#EMDPAR,DFO11A

sTEST STATUS VALID
JYES-SKIP

ERROR

;"'SVAL NOT SET RESULT OF DRV PAR ERR"

CLR

L.MR1

;CLEAR PAT IN MR1

BIS

#CCLR,L.CST

s CLEAR CONTRGLLER
;LOAD RK REGS TO DO CLEAR

ERRCR

4 ;

BIT

RO, T.ASOF

MOV
MOV

H#EMDA ,EM14N

BIT
BNE

DI, T.CST

BNE

ERROR

OR 5.,6,7

qEMCCLR,DFO11A

MOV
MOV

#EMD] ,EM14N
:EMCCLR,DFO11A

MoV

ASELDRV,L.CST

ERROR

THE

#SVAL,T.DS

TLOADRK

8%:

TO INDICATE

RO WILL HAVE

BIT
BNE

TCHKQOP

001556

;DRIVE ATTENTION.

BRIT

ERROR

104004

104417

JROUTINE TO DETERMINE WHi(H BIT

MOV
MOV

7%:

005600
005604
005606
005614
005622

005660

#8178,R0

ERROR

5%:

SEQ (066

MOV

MoV
MOV

005556
005560

B
6
15:17
PAGE 67
STATUS VALID AND PARITY ERROR

28-AUG- 81

TLOADRK

SET

sCHECK NO ERRORS SET
JREPORT
JTEST

ALL

ERRORS

STILL

ATTENTION STILL

JYES-SKIP

StT

;"DRV ATT RESET RESULT OF
;TEST

DRIVE

JYES=SKIP

INTERRUPT

SET

CONT (LR

STILL

SE-

;"'DRV INT RESET RESULT OF CONTROLLER rLR'’
;LOAD SELECT DRIVE

;LOAD RK REGS

MACY11

30(1046)
10
'

C
6
28-AuG-81
15:17
PAGE 68
STATUS VALID AND PAR]ITY ERROR

SEQ C067

3527
gggg

005662
005664

104423
104002

TWATM 6
ERROR

3530
3531
353>
3533
353,
3535
353¢
3537
3538
ggzg

005666
005670
005672
005674
005676
005700
005706
005706
005714
003722

104422
000010
000000
000000
104004
030037
001007
012737
012737
104071

T CHKWE
.WORD
"WORD
WORD
ERROR
BIT
BNE
MOV
MOV
ERROR

000010
0
0
& ; OR 5.6.7
RO, T.ASOF
10§
#EMDA EM11N
#EMDPAR ,DF011A
11

3541
3542
3543
3544
%222

005724
005732
005734
005742
005750

BIT
BNE
MOV
MOV
ERROR

#D1,T.CS1
118
#EMDI EM1IN
#EMDPAR,DFO114
11

;TEST DRIVE
LYES-SKIP

3547
3548
3549
3550
§§§1

BIT
BNE
MOV
MOV
ERROR

#DSC,T.DS
128
#EMDSC ,EM11N
#EMDPAR.DFO11A
11

;TEST STATUS CHANGE STILL
SYES=SKIP

BIT
BNE
MOV
MOV
ERROR

#S.AL,T.DS
13
REMSVAL ,EM1IN
#EMDPAR DF011A
11

;''SVAL NOT SET RESULT OF DRV PARITY ERR"

BIS

#CCLR,L.CS1

;CLEAR CONTROLLER

001556
056630
055055

0014€C
0611°2

032737
001007
012737
012737
104071

040000

00154G

056564
055055

001460
061112

005752
005760
005762
005770
005776

032737
001007
012737
012737
104071

040000

001552

056604
055055

001460
061112

3553
3554
3555
3556
%ggg

006000
006006
006010
006016
006026

032737
001007
012737
012737
104071

100000

001552

056444
055055

001460
061112

gggg

006026

052737

100000

001¢0)

ggg}

006034

104417

12%:

13%$:

0ADRK

;CHECK THAT ERRORS ARE SET
‘DPAR SET (NO SPAR 1, REPORT
*ANY DISCREPENCIES
JTEST ATTENTION STILL
SYES=SK]P

SET.

;"'DRV ATT NOT SET RESULT OF
INTERRUPT STILL

.
DRV PARITY ERR''
SET

:“DRV INT NOT SET RESULT OF DRV

;*'DSC NOT

SET RESULT OF

PARTY ERR''

SET

DRV PARITY ERR'

;TEST STATUS VALID STILL SET
SYES-SK]P

:LOAD RK REGS

(DO CLEAR)

.
004036
006042

012701
012737

000007
00001

3567
3568
3569
gg;g

006050
006054
006056
006060

010137
104417
104423
104002

001616

35720

006062

104421

3575

006066

030037

001556

3577
3578
gggg

006074
006102
006110

012737
012737
1040746

056630
056467

001410
061112

3581
3582

006112
(006120

032737
001007

040000

001540

3576

1'$:

3563
3504
gggg

gg;z

1C$:

:WAIT FOR INTERRUPT
21O SLOW/NOT COMPLETE ERROR

00606¢

006072

MOV
MOV

001600
148:

001007

MOV
R1,L.MR1
TLOADRK
TWAT16
ERROR
2
TCHKOP

104004

ERROR

&4 :

BIT

RO, T.ASOF

MOV
MOV
ERROR

#EMDA
, EM4N
#EMNZPR ,DFO11A
14

BIT
BNE

#D],T.CS1
16$

BNE

15%:

#1,R1
#SELDRV,L.CS1

OR 5.6.7

15$

;SET COUNTER TO SELECT STATUS PAIR
:LOAD DRIVE SELECT
:LOAD STATUS PAIR SELECTION
*L0AD RK REGS
*WAIT FOR INTERRUPT
270 SLOW/NOT COMPLETE ERROR
:CHECK

ANY ERRORS SET

-REPORT ALL ERRORS SET.
STEST ATTENTION STILL

TYES=SKIP

SET

;"'ATTENTION RESET RESULT OF NON-0 PAIR SEL''

[ Xan

CZR6KGD RK6 FCTINL CTRL DIAG
TIREK P11
28=-AUG~81 15:1¢6

CZR6KG0 RK6 FOTNL

(TRL DIAG

TIR€6KG.PYY

28-AUG-B81

15:16

3583
3584
%ggg

006122
006130
006136

012737
012737
104014

056564
056461

3587
3588
gggg

00614<0
006142
006146

005201
022701
001340

(C00C04

g%g;

006150

005037

001616

%ggz

006154

012737

(000105

3595
3596
gggg

006162
006164
006166

104417
10443
104002

7599

006170

104421

3602
3603
gggg

006174
006200
006202

012701
005301
001376

3606
3607
3608
3609
3610
gg%;

006204
006206
006212
006216
006222
006230

104420
030037

2613

006232

032737

%289

36164
3615
3616
gg%g

3519

360

006172

006240
006242
006250
006256

VACY!?

39;6046)

16%:

00160C

104012

001407
012737
012737
104012

000020

17%:

001556
056630
05027¢

001470
061112

040000

001540

056564
050276

00147)
061112

;"DRV INT RESET RESULT OF NON=0O PAIR SELECT'S

INC
CMP
BNE

R1
#4 R
149

JBUMP PAIR SELECT
JALL PAIRS DONE?
.NO-LOCP

(LR

L.MR1

;CLEAR MR1

MOV

#CLEAR,L.CST

;LOAD DRIve CLEAR

3623

2629

3624
3625
3626
3627
3628

ot
ot
M
o
o

3€31
3632
%2;2

006262
006270
006272

012737
1044176
104002

000062

(01262

3635
3636
3637
3638

006276
006302

013737
012737

001626
000101

001610
001600

006310

104417

OR 5,6,7

JCHECK FOR ANY FRRORS

4 ;

MOV
DF(
BNE

#20,R1
R1
17%

JSET COUNT FOR SHORT wA]lT
;70O ALLOW CONTROLLER TIME
;JDRIVES

TGFTRK
BIT

RO, T.ASOF

;GET RK REGS
JTEST ATTENTION RESET
JYES-SK]P

ERROR

18%
#EMDA EMI2N
#EMDCLR,DFO11A
12

BIT

#D1,1.C(N

JeTEST

;DO DRIVE CLEAR
;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

ERRCR

BEQ
MOV
MOV
ERROR

19%:

000004

#EMD] ,EMI4N
REMNZPR,DFO11A
14

BEQ
MOV
MOV

18%:

SEQ 0068

MOV
Mov
ERROR

TCHKOP

006260

D 6
PAGE 69

TLOADRK
TWAT1€
ERROR
2

104004

001407
(012737
012737

15:17

STATUS VALID AND PARITY ERROR

(01510
061112

2253

3630

28-AUG~81

19¢
NEMD] ,EMI2N
#EMDCLR,DFO11A
12
R

<REPORT ALL ERRORS

TO POLL

J'ATTENTION NOT RESET RESULT OF DRV (LEAR

JTEST DRIVE
JYES-SKIP
;"'DRV

INTERRUPT RESET

INT NOT RESET RESULT OF
R

R IR

DRIVE
IR S

UNIT FIELD ERROR ON RELEASE

ISSUE A SUBSYSTEM (LEAR. SELECT AN AVAILABLE

DRIVE.
PUT CONTROLLER IN DIAGNOSTIC MODE. [SSut
A RELEASE COMMAND.
(LOCK THROUGH PHASE ADDRESS 2.
TURN OFF DIAGNOSTIC MODE.
MAKE SURE UNIT FIELD
ERROR SETS.
AR

TST11:

SCOPE

MOV
#50.,8TIMES
TSSINIT
ERROR
2

;:D0 50. ITERATIONS
sCLEAR SUBSYSTEM
;BAD INIT ERROR

MOV
MOV

JSELECT A DRIVE
;D0 DRIVE SELECT

TLOADRK

DRVNUM, L .(S2
#SELDRV,L.(S?

:LOAD RK

R R R

R R

CLR'

MACY1T 30(1046)
TMm

06312
0063 A

106423
104002

ERROR

006316
GCL22)

104421

TCHKOP

006322
00€¢330

052737
012737

06336

106417

3650
2651
3652

006340
006344
006345

004437
023
002

036%16

3654
3655
3656
2657
3658
7659
3660
3661
266
366
3664
3665
3666
3667
3668
2669
3670
3671
3672
2673
3674
3675
3676
3677
3678
3679
2680
3681
3682

006346

062762

000040

006354
006356

104423
104002

ERROR

006360
006362
006364
006366
006370

000000
000000
000004

104422

T HKWE

104004

.WORD
ERROR

104416

TSSINIT

2683
3684
3685

2686

3687
3688
3689
3690
2691
3692
3693
3694

000010
000040

000026

JREPORT ALL

;LOAD RELEASE
;SET DIAGNOSTIr MODE

#DMD
L MR’

s LOAD RK
JNUMBER OF

BIC

#DMD ,RKMR1(R2)

;CLEAR DIAG MODE

;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETED

001626
000101

001610
001600

PHASES

sNUMBER OF

(CLOCK

XISTIONS

;CHECK OPERATION WITH ERROR

0
0

JUNIT FICLD ERROR

UFERR
& : OR 5,6,7

JREPORT

ANY

DISCREPENCIES

;CLEAR SUBSYSTEM TO INSURE UFE RESETS

B ASAEEARARAASRARERRARRRRRARRRRRRSR
ARl
Rl Rl Al

.Tl

001262

JCALL MAINT (CLOCK

R4 MCLOCK

“D1%
2

ERROR

000062

ERRORS.

BYTE
LRYTE

.WORD
.WORD

006412
006420

ARLS,L.(S2

TWAT16

1064002

000004

BIS

;CHECK FOR ANY ERRORS

TLOADRK

006376
006400
00c406
006410

ERRCR

JSR

SEQ (069

JWAIT FOR INTERRUPT
sTO SLOW/NOT (OMPLETE ERROR

4 ;: OR 5,¢,7

MCv

006372
006374

104004

LI
T

3653

TWAT16

lll.tt!n"

3639
2640
3641
3642
3643
3644
3645
3646
3647
2548
3649

15:17
PAGE 70
28-AyG=-81
UNIT FIELD ERROR ON RELEASE

TEST

UNJT

FIELD ERROR ON SELECT

ISSUE A SUBSYSTEM CLEAR.
SELECT AN AVAILABLE
PUT CONTROLLER IN DIAGNOSTIC MODE.
DRIVE.
ISSUE
A SELECT COMMAND WITH MESSAGE ID = 3 AND DRIVE
SELECTED = 0.
(LOCK THROUGH PHASE ADDRESS 6.
TURN OFF

DIAGNOSTIC

ERROR SETS.

MODE.

MAKE

SURE

UNIT

FIELD

A0S 222222220RRRR2RRRRRRRRRRRARRRRRRRRRRRRRRRERRRRRRl
]

ST*2:

SCOPE
Mov

#50. ,$TIMES

ERROR

TSSINIT

MOV

;:D0 50.

ITERATIONS

JCLEAR SURSYSTEM

;BAD INIT ERROR

DRVNUM,L.(S?

#SELDRV,L

(S1

:LOAD DRIVE NUMBERK
;LOAD DRIVE

SELECT

006426
006430
006432

ERROR

006434
006436

ERROR

MOV
(LR

#DMD 'BIT1.BIT0,L.MRY
:LCAD DIAG MODE & MSG PAIR 3
L.CS2
;JLOAD FOR DRIVE §

006440
006446

TLOADRK
TWAT16

TCHKOP

000043
001610

001616

:LOAD RK
JWAIT FOR

INTERRUPT

;TO SLOW/NOT COMPLETE

2
;

OR 5.6.7

;CHECK FOR ANY ERROR

JREPORT ALL

ERRORS

[ ala)

CIR6KGO RKE FLTNL (TRL D]AG
TIR6KG. P11
28=AUG=81 15:16

036316

006462

042762

000040

006470
006472

104002

006474

013737

006502
006504
006506
006510
006512

106422

000026

104423

03¢132

006504

#DMD ,RKMR" (R2)

;CLEAR DIAG MODE

TWAT16
ERROR

:WAIT FOR INTERRUPT
:TC SLOW/NOT COMPLETED ERROR

MOV

HOLD3.,"$

JEXPECTED ERROR

0
0
UFERR
& : OR 5.6.7

;CHECK

OPERATION WITH ERROR

SUNIT FIELD ERROR SHOULL SET
:REPORT ANY DISCREPENCIES

«+«ATTENTION HANDLING BY CONTROLLER
13

DOUBLE

INTERRUPT

1046417
106423

3745
3746
3747
3748

00€544
006546
006550
006552
006556
006560
006566
006570
006576
006604
006606

3750

006610

104437

001626
000113

001262

N
3
®

013737
012737

000062

006530
00c536

2749

BIC

:PLUS 2 TRANSITIONS

AT RARAANAAANAARARANAANRANAN RN RANARARAARNRAAARNARANRAANNARNTNAYNRARNNRRACAANATOEANN

113:

SCOPE
MOV

#50.,8TIMES

)
;.D0 50.

ERROR

;BAD INIT ERROR

MOV
MOV

DRVNUM,L .(CS2
#RE(CAL,L.CST

TSSINIT

TL OADRK

TWAT16

001662
001552

056444
050337

001460
061112

A RECALIPRATE.
CHECK THAT SECOND

001610
001600

106000

ISSUE
SET.

INTERRUPT OCCURS.
AFTER SECOND INTERRUPT
CHECK THAT STATUS VALID IS RESET.
ISSUE SELECT
AND MAKE SURE STATUS VALID SETS.
C(LEAR DRIVE.
CHECK THAT DRIVE STATUS (HANGE SETS
(BIT 14 OF DRIVE STATUS

LI
TR

NCE524

000004
012737

006526

3744

ISSUE A SUBSYSTEM CLEAR.
MAKE SURE STATUS VALID IS

0. N, 8,

036514
006516

104476
104003

3741
3742
3743

LBYTE

S*TEST

2725

3740

;CALL MAINTENANCE CLOCK

*THROUGH PHASE 6

;;tttttttttttttitttt."t't‘!tttttt!tfiltitit!tQttiti't"'ttttt't.t

3724

3730
3731
3732
3733
3734
3735
3736
3727
3738
3739

AD22

WORD
.WORD
.WORD
ERROR

LSBTTL

3723

3726
3727
3728
3729

R4 ,MCLUCK

TCHKWE

1$:

000000
000000
000004
* 04004

SES 0070

:LOAD

JSR

BYTE

3712
3713
©O§7146”
3715
3716
3717
3718
37°9
3720
3721
3722

004437
026
002

371

006454
006460
006461

TLOADRK

®s

3710

104617

3709

006452

3?( 1 046)
15:17 PAGE 71
28-AuG=-81
12
UNIT FIELD ERROR ON SELECT

~—q% e

2695
3696
3697
3658
3699
370C
3701
3702
3703
2704
3705
3706
3707
3708

MACYT]

2
INTSET

BIT
8NE

#SVAL,T.DS
1%

MOV
MOV

ERROR

BR
1%:

TWATRS

#EMSVAL ,EMY'N
#EMRCAL .DFO11A

509

JTERATI]IONS

SUBSYSTEM

;LOAD DRIVE NUMBER
;LOAD RECAL
;L0AD

ERROR
(LR

TGETRK

;CLEAR

:WAIT FOR 1ST

INTERRUPT

;7O SLOW/NOT COMPLETE
:CLEAR INTERRUPT FLAG
:GET RK REGS

JTEST SVAL SET
JYES=SKIP

:"'SVAL NOT SET RESULT OF RECAL"

:ABORT TEST
JWAIT

FOR

INTERRUPT

“IREXGD RKG FOINC (TRL DIAG
CIR6KG,. P11
2B=-AuG=-81 15:16

MACYTT

"Rk GO RKG FOTNL CTRL DIAG
TIR6KG. P11
28-AuG=81 15:16

006616
006624

0°27%7
104002

006626
006630

001370

100000

001552
001470

056671

06611z

040000

001552

056604
056671

001460
061112

000101

001600

2%:

(1 5

(v}

~no — ANN

MOV
ERROR

#EMS0,EMON
2

JALTER MESSAGE "NO 2ND INTERRUPT OR 1T WAS LATE®

8l7
REQ
MOV
MOV

#SVAL ,T.DS
(3
REMSVAL ,EMI2N
REM2INT,DFO11A

JTEST SvA(C
JNO=SK]IP

12
S0s

JU'SVAL NOT RESET RESULT OF SECZOND TEST
’

BIT
BNE

#DSC,T1.DS
5¢

JTEST DSC SET BY ATTENTION
JYES=SK]P

:INTERRUPT RETURN

11
508

2'DSC NOT SET RESULT OF SECOND INTERRUPT''

MOV

#SELDRV,L.CST

:LOAD DRIVE SELECT

104417
104423
104002

ERROR

006724

104421

T{HKOP

006726

104004

TLOADRK
TWAT16

JLOAD RK REGS
JWAIT FOR INTERRUPT

27O SLOW/NOT COMFLETE ERROR
JCHECK

ERROR

;

OR 5,6,7

001552

BIT

#SVAL,T.DS

056444

001460
061112

MOV
MOV

NEMSVAL ,EM1IN
#EMSELD ,DFO11A

BNE

ERROR

FOR

ANY

JREPORT ALL

100000

508

SET NOW

#EMDSC,EMTIN
#EM2INT ,DFO11A

006716
006720
006722

050250

;GET RK REGS

MOV
MOV

012737

006730
006736
006740
006746
006754
006756

SEa 0071

:NO INTERRUPT RETURN

006710

’

ERROR
BR
5%:

PAGE

B8R

ERROR
BR
A ¥

15:17

DOUBLE INTERRUPT

TGETRK

—

-—_ N NN

AN NN

055737

(56444

o
o Q=
[
&~

006660
006666
006670
006676
006704
006706

006€46
006654
006656

28-AUG-81

NN NN

006636
006640

;TEST

SVA(C

ERRORS

SET

50%

s YES=SK]IP

;''SVAL NOT SET RESULT OF

DRV SEL.

001610
001600

DO A SEEK TO CYLINDER 0.
WAIT FOR INTERRUPT FROM
DRIVE ATTENIION.
LOWER PRIORITY AGAIN AND MAKE
SURE ANOTHER INTERRUPT DOES NOT OCCUR.
(LEAR DRIVE.

T
PE TR

001262

O WO
NN
O~

NOWSN

O
NN
OoOHLs

0016
0001

BB NO

007006
007010
00702

000062

— - OO

006772
007000

WORNS

006770

006756
006760
006766

NOW

:;t;ttQ'ttttt'tt'ttt'.'."t"tttt."'t't't."ttt'.tt'.'.tt."ttt.
J*TEST 74
SINGLE INTERRUPT FROM ATTENTION

3773

00C40°
00040¢

e lele)
S

3762

3768
3769
3770
3771
3772

006612

006614

—~ o —h

3751
375¢
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766

30¢ 10646)

(A2

"14:

SCOPE
MOv
#50. ,8TIMES
TSSINIT
ERRGR
3

MOV

DRVNUM, L ."</¢

#SEEK,L.(ST

TLOADRK

TWAT16

ERROR

S22

;.D0 50. ITERATIONS
;CLEAR SUBSYSTEM
;BAD INIT ERROR

:LOAD DRIVE NUMBER

JLOAD SEEK DCYL LEFT
;LOAD RK

XRRRREARA

JWAIT FOR

AT O,

REGS

INTERRUPT

;TC SLOW/NOT (OMPLETED ERRIR

]

MACYTT

007014

104420

007016
007024
007026
007034
007042
007044

032737
001010
012737

000417

007046
007052
007054

012700
005300
00137¢

000031

007056
007064
007066
007074
007102

022737

000001

001662

012737
012737

057064
056712

001500
061112

007104
007106

1044627
104004

012737
104011

001407

104013

30(1046)
114

28=AuG=81

SINGLE

15:17

INTERRUPT FRCOM ATTENTION

TGE TRK

040000

001540

056564
056712

001460
061112

#D1,T.CST

MOV
MCv

REMD] EMIIN
:gMSkSF.DFO11A

ERROR
BR

Lt §

508

STEST DI SET
JYES=SK]P

:"DI NOT SET RESULT OF SEEK T0 SELF"

MOv
DEC(
BNE

#25. ,R0
RO

b13

s INTERRUPT AGAIN.

P
BEQ

#1,INTSET

;CHECK ONLY ONE INTERRUPT OCCURRED

sLOAD AND DECREMENT A COUNT TO
;ZERO. GIVE (ONTROLLER A (HANCE

50¢%

#EMM] EMI3N
:%MSKSF.DFO11A

MOV
MOV

ERROR

50%.

Sta 0072

;GET RK REGS

8IT

BNE

2%:

PAGE 73

TCHKOP

ERROR

:0R S.6,7

ERROR IF

T DOES.

JYES=SK]P

;"MULTIPLE INTERRUPTS RESULT OF SEEN TO SELF'
sCHECK FOR ANY ERRORS
sREPORT ALL ERRORS

::ttQ'tttttt'tt'ttt.fi"""t’Q!ll..Q'.Q.t.t."tltt't"t'tt"

i".'

JeTECZT 15

RESET

ATTENTIONS WITH UNIBUS

INIT

DO A SEEK TO CYLINDER O ON ALL AVAILIABLE DRIVES.
MAKE SURE ALL ATTENTION RESET.
ISSUE A RESET.
A

AAAAES

TS115:

007110
007112
00?120
007122

0000v4
012737

007124
0C?132

013737
012737

007140
007142
007144

104417

104002

ERROR

007146

104420

TGE TRK

007150
007156
007160
007166
007174
007176

032737
001010
012737
012737

007200
007204
00720¢

005037
000005
004737

104416
104003

000005

001626
000117

001242

001610
001600

ARl

MOv
#5.,87IMES
TSSINI?

001549

056564
05671¢

201460
61112

001662

04522C

#SEEK,L.CST

DRVYNLUM,
.(S2

cLOAD DRIVE NUMBER
sLOAD SEEK (TO SELF-O)

ERROR
BR

;LOAD RK REGS
JWAIT

FOR

INTERRUPT

;TO SLOW/NOT COMPLETE

;GET RK REGS
D1, T.C(ST

3]
#EMD] EMTIN
1%MSKSF,DFO’1A

508

(LR

INTSET

JSR

PCLSTKINT

RESET

;.DO 5. ITERATIONS
;CLEAR SUBSYSTEM

MOV
MOv

;BAD INIT ERROR

BIT
BNE

000450

TWAT16

040000

ERROR

TLOADRK

104423

104011

SCOPE

JTEST DI SET
JYES-EXIT

:'DIl NOT SET RESULT OF SEEK 'O SELF
JCLEAR INTERRUPT (OUNTER
;DO UNIBUS RESET
JRESET KEYBOARD INTERRUPT

€ ¥y

TIREKGL RKE FOTNL CTRL DIAG
TIROKG,. P11
28=AUG=8" 15:16

JROKGE RKG

“IR6KG.PTY

15:1%

007212
007216
007222
007230
012762
004737

007244
007266

000410

030
034

104423

104013

001540

056564
05677

001470
061112

—\N

040000

NIC

Q5677
056771

012737
012737
000414

104420

032737
001407
012737
012737
104012

007320

3907
3908
3909
3910
3911
3912
3913
3914
3915
3916

3917
3918

2$:

:CLEAR TICK COUNTER

PC MYT ME
#10. ,L{LKTK

:NO - LOOP

mov
JSR

#IE RKCST(R2}
PC,OPTTSY

sSET IE FOR ANY STRAY INTERRUFP'S
;SET UP OPTIONS AGAIN

TWAT1¢

;CALL TIMER
sCOUNT 10 TICKS

;WAIT

(MILLISECONDS)?

16 MS FOR AN INTERRUPT

MOV
MOv
ggROR

#EMUXIT,EMI3N
#EMRSET,DFO1°A
;33

TGE TRK
BIT
BEQ

#D],T.CS1
50%

;GET RK REGS
sTEST DI RESET
s YES=SK]IP

;DI NOT RESET RESULT OF RESET"

MOV
Mov

ERROR

sNONE

SEMD] ,EMI2N
#EMRSET ,DFO11A

IS EXPECTED SO RETURN SHOULD BE

JHERE=BR TJ CONTINUE

TEST.

;INT OCCURRED ON RESET

J"'UNEXECUTED

INTERRUPT RESULT OF

509%:

LI
I

CSBTT. ««]

LEGAL

DISK

ADDRESS ERRQOR

TESTS

:'Q'Q'*lt.l'tt"'tttt""'tt'Qtt'.ttfit"'ttttt'!tt""t‘t't'!t..

1€

ILLEGAL DISK ADDRESS

(PART

B
2
¢
%

HEAD

7 AND

ICAE

ALONE

SETS

FOR HEADS 4,

ARl

AND 6.

MASASAE R

ISSUE A SEEK TO CYLINDER O, HEAD 2. MAKE SURE
ILLEGAL ADDRESS ERROR AND SEEK INCOMPLETE SETS.
CLEAR CONTROLLER AND CLEAR DRIVE.
REPEAT FOR HEADS 4-7,
(HECKING THAT BOTH IDAF AND SEEK INCOMPLETE SET FQOR

>
%

.8, 8, 8,

;«TEST

3863

3894
3895
3896
3867
3898
3869
3900
3901
3902
3903
3904
3905
3906

LCLKTK

SEQ CO73

JSR
Mp

8NE

007232
007240

007250
007256
007264
007266
007270
007272
007300
007302
007310
007316

(LR

3871
3872
3873
3874
3875
387¢
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886
3887
38858
3889
3890
3891
3892

2B=AUG=81

I
6
066)
2B=AUG=81
15:17 PAGE 74
:
RESET ATTENTIONS WITH UNIBUS INIT

CTRL DIAG

lo L)

3863
3864
3865
3866
3867
3868
3869
3870

TNL

007320
007322
007330

000004
012737
012701

007334
007336

104416
104003

007340

007346

012737
0°3737

00735¢

104417

TLOADRK

007356
007369

104423
104002

ERROR

007362

005037

(LR

INTSET

007366
007370

104437

104002

000012
000002

001262

Tie:

SCOPE
MOV

MOv

TSSINIT

000113
001626

001600
001610

#3,R1

ERROR

MOV

#RECAL,L.CS)

MOV

TWAT16

00166¢

#10. ,$TIMES

TWATSS

ERROR

DRVNUM,L .(CS2

;:D0

10.

ITERATIONS

JPRESET FOR SELECTING

;CLEAR

SUBSYSTEM

JSET UP

TO RETAL

EEE R

"RA(K

;LOAD DRI]IVE

:LOAD

RK REGS

JWAIT

FOR

1ST

INTERRUPY

.70 SLOW/NOT COMPLETE ERRCR
;L EAR
;WAIT

INTEPRUPT FLAG
FOR

INTERRUPT

RESET'’

“IR6KG) RKG FUTN. (TRL DJAG
TIROKG.PY
28~AuG=-81 15:16

007400
007402

1040C3

007400

30(1046
716

0110

104416

007432
007436
007440
007444
007446
007450
007452
007454
007456
007460
007462

QO
o0

TSSINIT

ERROR

000001

032701
001007

000002
’%:

104422

002000
000000
000000

005201
022701
001334

¢LOAD DRJVE NUMBER
cLOAD SEEK
s LOAD TRAC(CK
;LOAD RK REGS

OR 5,6.,7

& ;

HEAD

A AN R

;REPCRT

JELSE BUMP TO NEXT ILLEGAL TRA(K
JALL ILLEGAL TRACKS SELFCTED?
;NO-LOOP
NANAANNPAARAT RN

TO CYLINDER

M ALASARSAAEARSl
R
RER 2] (AR R

RN AN

RR AR RSRRRRRRRRRRZR
X
Y]

007540

104417

TLOADRK

sLOAD RK REGS

007542

1064623

TWAT16

;WAIT

RANN

HEAD 0. MAKE SURE
CLEAR CONTROLLER _AND DRIVE
RKO7 BECAUSE THE RK07
THE ILLEGAL DISK ADDRESS

012737
013737

000113
001626

(PART 2)

1000,

THIS TEST IS BYPASSED FOR THE
CONTROLLER DOES NOT RECOGNIZE
T17:

AND

SE7T

ANY DISCREPANCIES

007524
007532

104416
104003

BCTH 0

DISCREPANCIES

000004
012737

001262

HAS

;LOCAL LOOP ON ERROR TO 18

ILLEGAL DISK ADDRESS
A SEEK

ALL

007510
007512
007520
007522

000012

ADDRESS

ILLEGAL DISK ADDRESS ERROR SETS.

;0R 5,6.,7

SeTEST 17
A

;TEST

sCHECK OPERATION WITH ERROR
sILLEGAL DISK ADDRESS ERRCR
sSEEK INCOMPLETE

#8. ,R1

BNE

HEAD ADDRESS HAS BI'

;LOCAL LCGOP ON ERROR

INC

(MP

SRR AR RANRNR AN

JREPORT

SCoP1

ISSUE

sTEST

;CHECK OPERATION WITH ERROR
sILLEGAL DISK ADDRESS ERROR

ERROR
4%:

INTERRUPT

:YES-GO CHECK BOTH IDAE AND SK]

TCHKWE

000010

FOR

;NO - SKIP

6DAERR!SKIERR

104415

;WAIT

sTC SLOW/NOT COMPLETE

éDAERR

TCHKWE

007500
007502
037506

;CLEAR SUBSYSTEM
;BAD INIT ERROR

#8170,R1
2%
#B1T1,R1
3%

104422

002002
200c00
000000
104004

BIT
BEQ
BIT
BNE

000406

SES 0074

;SET LOCAL LOOP ON ERROR

SCOPT
BR

007464
007466
007470
007472
007474
07476

(PART 1)

#18,SLPERR

ERROR

0
ERROR

104004
104415

PAGE 75

#SEEK,L .51
R1,L.DTY

TLOADRK
TWAT16

032761

DRVNUM
L .(S2

MO\
MOVB

007426
007426
007430

15:17

ILLEGAL DISK ADDRESS

007404
007612
007420

28-AuUG=81

MOV
1%:

3949
3950
3951
3952
2953
3954

012737

—

2945
3946
3947
3I5.8

007372

3919
3620
192°
162?2
3923
3924
3925
3626
3927
2928
3929
3930
3939
3932
3933
3934
3935
3636
36937
3938
3939
3940
3941
3942
3943
3944

MACY1T

SCOPE
Mov
#10.,8TIMES
TSCINIT

ERROR

MOV

#RECAL ,L.0S°

MOV

DRVNUM,
L . (S?

;.DO 10. ITERATIONS

;CLEAR SUBSYSTEM
;BAD INIT ERROR

;LOAD RECALIBRATE
:LOAD DRIVE

FOR

1ST

INTERRUPT

JIR6KGD RKke FOINL CTRL DIAG

“IREKG. P

28-AUG-B1 15:16

3975

007544

104002

3977
31978

007546

005037

007552
007554

104437
104002

007556

012737

007564
007566

1064416
104003

007570
007576
007604
007610

013737
012737
005737
001402

3976

3979

3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995

MA(Y!Y

3?{;046>

001662

007564

00" 110
1¢:

001610
201600

000137

;70 SLOW/NOT COMPLETE ERROR

CLR

INTSET

:CLEAR
;WAIT

ERROR

MOV

#1$,$LPERR

TSSINIT

4007
4008
4009
4010
4011

6012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022
4023
4024
4025
4026

4027

4028
4029
4030

INTERRUPT
TO BYPASS RE (AL

:CLEAR SUBSYSTEM

MOV
MOV
TST

DRVNUM, L.CS2
#SEEK,L.CST

DTYPE

;LOAD DRIVE NUMBER
:LOAD SFEK
SSEE IF RKO6

MOV

21777, DC

SELSE LOAD RKO7 ILL CYL

JMP

15720

‘BR IF

YES

g;IDAE R!SK IERR> 48

;EXP RKO7 ERR

;RKO7 CONTROLLER

*DOES NOT RECOGNIZE
*ILLEGAL DISK ADDRESS
:REV 006 THE ABOVE

0C7¢16

012737

007624
007626
007630

104417

007632
007634
007636

1046422

007640
007642

104423

001000

001614

28 :

MOV

3¢

TLOADRK

;

1064002

002000
000000
000000

4$:

104004

#1000,L.DCYL

MOV

TWAT16

LSBTTL
WA

THREE

LINES

;LOAD DKO6 ILL CYL

#1DAERR &S

*EXP RK06 ERR

;LOAD RK REGS
SWAIT

FOR

INTERRUPT

ERROR

TCHKWE
.WORD

IDAERR

:CHECK OPERATION WITH ERROR
:DiSK ADDRESS ERROR

;REPORT

L.WORD
.WORD

0
0

ERROR

;TO SLOW/NOT COMPLETE ERROR

;

OR 5.6.7

ANY DISCREPAN{ItS

««WRITE HEADER TESTS

2EAA2E23222222220000A0RR2
R 2SR RARRRRRRARRRRRRRARRRRED R

tTEST
Illll‘l'."l..'

4000
4001
4002
4003
4004
4005
4006

FOR

;SET LOOP

3996

3997
3998
3999

INTERRUPT FLAG

ERROR

ggv

’

007644

SEQ 0075

BEQ

;

ERROR

TWATSS

:
007612

2B8-AUG=81
15:17 PAGE 76
ILLEGAL DISK ADDRESS (PART 2)

READ BAD SECTOR

INFORMATION

ISSUE
A READ DATA OF 400 WORDS TO CYLINDER 63c.
TRACK 2

TO GET

THE

FACTORY DETECTED BAD

SECTOR FILE, 26 SECTOR MODE.

CYLINDER 1456 IS USED FOR THE RKOQ7.

IF AN ERROR OCCURS, READ SECTOR 2, 4, 6, OR 10(8) uNTIL

A SUCCESSFUL READ 1S DONE. IF NONE READ SUCCESSFULLY
REMOVE THIS DRIVE FROM TEST. WHEN A READ IS SUCCESSFUL,
TEST

STORE

THAT

REPEAT

THE

PACK

IS NOT

AN ALIGNMENT

THE ENTRIES FOR LATER USE.
THIS

SERIES OF

OPERATIONS FOR

BAD SECTORS 24 SECTOR MODE,

PADK AND

FACTORY

SOFTWARE DETECTED

DETECTED

000004
012737

000001

001262

4081

4082
4083
4084
4085
4086

2
3
%
%

T20:

SCOPE

MOV

#1,8TIMES

DRVNUM,L.CS 2

TP
YO

#RECAL,L.CS 1

;DO RECAL (MD

:LOAD ''L'*" REGS INTD RK REGS

TLOADRK

TWAT16
ERROR

JNG INTR

CtR

INTSET

;CLR

INIT

FLAG

ITERATION

;CLEAR SUBSYS FROM LAST IDAERR
;BAD INIT ERROR

TSSINIT
3
ERROR
MOV
MOV

;:D0O 1

TWATS8S
ERROR

JWAIT FOR 2°'N INTR
:NOT

THERE

4055

4061
4062
4063
4064
4065
4066
4967
4068
4069
4070
4071
4072
4073
4074
4075
4076
4077
4078
4079
4080

(222222222 RRRASRRRRRRARARRRRRRlRdRsRtltRlldRtt
iRl 2

4054

4057
4058
4059
4060

007654
007660
007662
007664
007670
007676
007700

105037
005000
005005

007702

013737

036120

007710
007714
007716
007720
007722
007723
007724

004437
000121

035674

007726
007730
007732
007734
007736
007740

104417
104431
104002
104421
104004
104415

007742
007746
007750
007752
007754

105737
001502
005700
001023
062737

013703
012737
104416
104003

007722
001640
007676

001110

1%:

007724

RO
RS

ERROR

Mov

LSTCYL,15%

JSR

R&,LRLOAD

MOV
TSSINIT

RDDATA

177400
070414
000
002

2%:

000000

15%:

BSF26P,R3

#1$,SLPERR

=400
IBUFF
.BYTE
BYTE

SCoP1

000002

TSTB

007722

BEQ
TST
BNE
ADD

;CLEAR R5 FOR BAD SECTOR COUNTING
;SET POINT IN TO STORE BS 26 SECT FORMAT
;SET ERROR RETURN ADDRESS FOR INTERNAL LOOP
;CLEAR SUBSYSTEM
;BAD INIT ERROR

LOAD "L"' REGS WITH
READ DATA
WORD COUNT
BUFFER ADDRESS
SECTOR ADDRESS
TRACK ADDRESS

CYLINDER ADDRESS 632/1456

TLOADRK
TWAT112
ERROR
2
TCHKOP
4
ERROR

001103

;CLEAR SECTOR POINTER

CLRB
(LR
CLR
MOV

;LOAD *'L’'" REGS INTO RK

;

5,6,7

JWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR
JCHECK FOR ANY ERRORS
<REPORT ALL

ERRORS

;LOOP TO 18 IF SWw 9 SET

$ERFLG
7$
RO

:LSS; ;gR EPROR IN OPERATION

42,28

JNEXT

;NO-5K

JGETTING A BS FACTORY SECTOR 26 SECT FORMAT®
;NO-SK]P

SECTOR ADDRESS

(eI

SEQ (076

FROM TESTING.

4053

4056

READ BAD

40643

4064
4045
4046
4047
4048
4049
4050
4051
4052

15:17
PAGE 77
SECTOR INFORMAT]ION

BAD SECTORS 26 SECTOR MODE, AND SOF TWARE DETECTED BAD
SECTORS 24 SECTCR MODE. [F THE NUMBER OF BAD SECTORS fOR
24 OR 26 SECTOR MODE EXCEED 20¢10) THE DRIVE IS REMOVED

4041
4042

28-AuG-81

4%
S %, 00000
N,

007644
007646

30(1046)
120

IR
T

4031
4032
4033
4034
4035
4036
4037
4038
4039
4040

MACYTT

(ZR6KGO RKG FCTINL CTRL DIAG
TIRE6KG.P1T
28-AuG=-81 15:16

(ZR6KGO RK6 FCTINL CTRL DIAG
CZROKG L1
28-AUG=-81 15:16

007722

056036

001360

007630
001630
027716

001354
001665

000002

25%:

3%:

000026

00772¢
00772

056036

001360

O SO

000732

007722
007722

056036

0013¢0

105037
000651

001103

6%:

005737
001405
012737

070422

7%:

001005
012737
104001

000002
000027

007722
007722

056036

001360

5%:

000716

104001

— = IS

012701

NNO NN

CMP
BNE
ADD

#1.R0
4%
#2,2%

CMP

BNE
ADD
CMPR
BNE

056131

001360

#22.,2%

6%
H#EMS1,EMIN
1
25%

#2.R0

JPAST

SEQ 0077
APPLICABLE

SECTORS?

;NO=-SKIP

;"'CANNOT READ BS FILES

;CLEAR DRIVE FROM DRIVE MAP
;SET DRIVE DROPPED
sABORT

TEST PASS.

JGETTING A BS SOFT SECTOR 26 SECT FORMAT?

;NO=-SKIP
JNEXT SECTOR ADDRESS
;JPAST APP_ICABLE

SECTORS?

JNO-SKIP

;"'CANNOT READ BS FILES'
JGETTING A BS FACT SECTOR 24 SECTOR FORMAT?

JNO=-SKIP

5%
#2,2%
#11.,2%
6%

INEXT SECTOR ADDRESS
;PAST APPLICABLE SECTORS?
;NO=-SK]P

MOV
ERROR

HEMS5T ,EMIN
1

;"'CANNOT READ BS FILES"

ADD

42,29

MOV
ERROR

H#EMS1 ,EMIN
1

CMPB
BNE
BR

000703

OO =20O000000
NMHOONO
==
WW SN = PO

~n OO

~ NNV

OHLOOOO

QGG
Py

S
NN

——d

el —h ——b

062737

122737

JMP

#EMS51 EMIN
1
DRVBIT,$DEVM
DRVBIT ,DRVDRP
NEWDRV

OO0

104001

000002
000013

#10.,2%
5%

BNE
MOV
ERROR
BR
4%:

000002

CMPB
BNE
MoV
ERROR
BIC
BIS

CMPR

NS WNWN &
SRS NOSON

012737

OO0O

122737
001021

-_—

—

(@] ~NON

(=]
OO
[o]e]

022700
001014
062737

15:17
PAGE 78
30(1046)
28-AUG-81
READ BAD SECTOR INFORMATION
120

000751

—tt
el
b

OO0

—

OO0OO0OOOY

=D
b oD

d od

id ad md

OQOOOOOOOOOO0O0O

B2 DSNN
WA
R — OO0
NS

N N

OO0

panrGitur
s Gheur @iy

—r

OO0

e
e

= o
) ek ey =

gy
o
e

ol oW S

e
B

Fall W

PORD —d D

AT 2T

= OV NN
WA =

pr e Qunr Qe

OO0OO0O0O0

4097

000012

000001

OOOOO0OOO00OO0O0O

4096

007762
007770

OO0OO0O0O0O0O0OO

4087
4088
4089
4090
4091
4092
4093
4094
4095

MACY11

CLRB

B8R

TST

8EQ

25%

423.,2%
6%
25%

:"'CANNOT READ BS FILES

$ERFLG

;CLEAR ERROR FLAG
;DO NEXT READ

IBUFF
+6

sCHECK FOR ALIGNMENT PA(K
;NO-SKIP

MOV
ERROR

H#EMS52 ,EMIN
1

JNEXT SECTOR (BS SOFT 24 SECT MODE)
;PAST APPLICABLE SECTORS?
sNO-SKiP

25%

;"'ALIGNMENT PACK. DRIVE ABORTING''

070424

8%:

MoV

#IBUFF+10,R1

JSET TO START OF BAD SECTOR DATA

177777

9%:

CMP
BEQ

#-1,(R1)
11$%
(R1)+,(R3)+
(R1)+,(R3)+
RS
#21.,RS
9%
#EMS3,EMIN
1
DRVRIT,$DEVM
DRVBIT,DRVDRP

sTEST IF WORD ALL ONES
sYES=SKIP

MOV

000025

056227

001360

001630
001630

001354
001666

10%:

MOV
INC
CMP
BNE
MOV
ERROR
BIC
BIS

sSTORE CYLINDER
:

TRACK AND

(END OF

DATA)

SECTOR

;BUMP ERROR COUNTER

;DOES IT TOTAL 20 FOR THIS FORMAT?
sNO-TEST AND MORE NEXT ADDRESS
;TO MANY BAD

SECTORS

;CLEAR DRIVE FROM TESTING
;SET DRIVE

DROPPED

CIR6KGO RK6 FCTINL CTRL DIAG
(IR6KG.P11
28-AuG-81 15:16

4198

000137

177777

000007
001646

11%:

007722
12%:

007722

&H (=] oy

000003
177777
001642
000013

007676

177777
001650

13%:

007722
14%:

O O
3N

£ B NWNINND AORD
= — =
SO0 OO0 SO
OO

ek ok 2l 2k

D
b mad —D
e
o
d
D md
ad
e
b
h oh
b od

alelaloleleolelelolelglelelo]

127%:

450

452

177777

27%:

000312

000001

16%:

000002

17%:

061270
000003
001642

18%:

SEQ 0078

NEWDRV

;ABQRT PASS

INC
(MP
BNE

RO
41,R0
12%

;BUMP TO NEXT

JNOW TESTING BS SOFT 26 SECTOR MODE?
sNO-SK]P

MOVB

#12.25

JSET TO FIRST SECTOR

JmMpP

#-1,(R3)+
R3,BSS26F

JINSERT END OF FIELD FLAG
JSET POINTER TO BAD SECTOR SOFTWARE FIELD

HIS MODE

;GO READ IT.

RS5,BS26(T
R5

;STORE TOTAL BS COUNT 26 SECTOR MODE
;CLEAR COUNTER FOR COUNTING 24 SECT BS

(mp
BNE
MOV
MOVB

#2 ,R0
13%
#-1,(R3)+
#1,2%

MOV
JMP

BSF24P ,R3
1%

CMP

#3,R0

JNOW TESTING BS SOFT 24 SECTOR MODE

MDYV
MOV
MOVB
JMP

#-1,(R3)+
R3,BSS24P
#13,2%
1%

s INSERT END 0" FIELD FLAG
;STORE POINTER TO BSS 24 SECTOR MODE
sGET START OF FIELDS BSS 24 SECT MODE
;GO READ IT

MoV
MOv

#-1,(R3)+
RS,BS24(T

;INSERT END OF FIELD FLAG
;STORE COUNT BSS 24 SECTOR MODE

MOV
MOV

#BS26,R0
#BS26+52. K3

;GET START OF BAD SECTOR BUFFER
;GET END OF BUFFER

CMP
BEQ

#312,(R0O)+
269%

;TEST IF ANY SECTORS BAD IN (CyL 312
JYES - GET OUT

CMP
BNE
BR
(LR

RO,R3
27%
28%
R3

JCHECK IF ALL OF BUFFER TESTED
JNO - LOOF
JEXIT
s COUNT

16%
#312,(RO) 27%
26%
R3

;BRANCH IF SO
;CYL 312 BAD ?
;BRANCH IF NOT TRY AGAIN
JELSE ERROR
;

17%

JBRANCH [F NOT

BNE

148%

CMP

#-1,(R0O)

(MP

R3.#1

BEQ
{MP
BNE
BR
INC
BNE

001644

JMP

MOv
(LR

061144

005003
022710
001404
022720
001372
000424
005203
020327
001003
013700
000762
020327
001003
012700
000754
020327
001003
013700

15:17
PAGE 79
28-AUG-81
READ BAD SECTOR INFORMATION

MOV
MOV

001636
007676

(¥ Yl S

b
e
D
d
D
ed
b
) e
—_

OOOOOOOOOD
N NN NN NN
WWWWN
= =
O
ONNO SOV O S

OOOOOOOOOOOOO

=D
e —d

177777
001644
000012
007676
000002

cd wmd —d

o OO0
W W WW

OO0

30(1046
120

027716
000001

b md

4160
4161
4162
4163
4164
4165
4166
4167
4168
4169
4170
4171
4172
4173
4174
4175
4176
4177
4178
4179
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194
4195
4196
4197

010246

OOOOOOOOOOOOOOOOOO

4143
4144
6145
4146
4147
4148
4149
4150
4151
4152
4153
4154
4155
4156
4157
4158
4159

MACY11

JNOW TESTING BS FACT 24 SECTOR MODE?
;sNO~SKIP
JINSERT END OF FIELD FLAG
JSET TO FIRST SECTOR THIS MODE
;SET POINTER FOR STORING BS
;GO READ

sNO-SKIP

;AT THE END OF TABLE ?

JSEE

ST HALF

BS 26 TABLE

ggv

g;g?éP,RO

CMP
BNE
ggv

R3 42
18%
ggg?Q.RO

JSEE IF DID 2 ND HALF OF BSZ26 TABLE
JBRANCH !F NOT
JELSE MOVE UP 1 ST HALF

(MP

R3,43

JSEE

MOV

BSS24P RO

JELSE MOVE UP 2ND HALF OF RSZ24

BNE

19¢%

;MOVE UP THE

IF DID 1

TABLE

;BRANCH [F NOT

ST HALF

OF BS24 TABLE

4199
4200
4201
6202
4203

4204
4205
4206
4207

010472
010476

00074¢
00040¢

010476
010504

012737

057110

000137

010602

010506

104001

MACY11

19%:

001360

4222
4223
4226
4225
4226
4227
4228
4229
4230
4231
4232
4233
4234
4235
4236
4237
4238
4239
4240
4241
4242
4243
4244
4245
4246
6247
4248
4249
4250
4251
4252
4253
6254

READ BAD

SECTOR

INFGRMATION

27%
28%

;ALL DONE

gggOR

:DRVABT.EH1N

;*BAD SECTOR IN AREA FOR TEST'

JMP

25$

26%:

?
8
PAGE 80

15:17

",'Q'ttttifittfi*ti'tfitQt"t"'fii't.'t.'fiQQQ.tt"tt.'tt't.'.i'fi'i"'

SeTEST

FORMAT

IN 26 SECTOR FORMAT

4212
6213
6214

4217
4218
4219
6220
6221

28-AUG-81

2R%:

010512

4208
6209
6210
6211

4215
4216

3?56046)

FORMAT CYLINDER 312,

o*
e

OCCUR WITH WRITE HEADER OR IN READING DATA
BUFFER AFTER READ HEADER.

FORMAT.

. %

VERIFY

TRACK O AND

FORMAT

AND

THAT

TRACK 1

DATA LATE

FOR 26 SECTOR
DID NOT

:'.'tttttlrtfiitfifiififitii'"'i'ttitlt.Qttitttt*t"tti.tttittti"'."t
010512
010514
010522
010530
010534

001262
001676

T5T27:

MOV
CLRB
CLRB

9% :

010544
010550
010552
010554
010556
010557
010560

010606
010610

#10..8$TIMES

“SET REFORMAT SWITCH
SCLEAR SECTOR POINTER
*CLEAR TRACK POINTER

ERROR

*BAD INIT ERROR

JSR

R4 ,LRLOAD

WRHEAD

=102

ORUFF
118

004437
000600
012737
000402

-0

010600

001110

BYTE
BYTE

312

1$:

104421

104004

ERROR

(10616

104415

SCOP1

010620
010626
010630
010634
010640
010644

012737
010203
062703
012701
004437
000125

TCHKOP

010660
000024
070414
035674

001110

#1118, $LPERR

MOV
MOV
ADD
MOV

JSR

RDHEAD

SSECTOR 0

:GENERATE DATA
*BUILD HEADERS-NO BAD SECTORS
SSET LOCAL

TSKIP INIT

LOOP ON ERROR

:CLEAR SUBSYSTEM

*BAD INIT ERROR
*LOAD

“TWAT112
ERROR
2

010612
070614

‘BUFFER

:CvL 0

TLOADRK

HEADER

*WORD CNT FOR 26 SECTOR MODE
*TRACK 0

- ERROR

SUBSYSTEM

;LOAD ''L'' REGS

R4, GENCOM

MOV

*CLEAR

*WRITE

JSR
000600

. TSSINIT

104416
104003
104477
104431
104002

::D0 10. ITERATIONS

#312.REFMT
10%
11%

TSSINIT

010540
010542

010562
010566
010570
010576
010600
010600
010602
010604

SCOPE

MOV

RK REGS

“WAIT FOR INTERRUPT
“TO SLOW/NOT COMPLETE
:

OR 5.6.7

:CHECK

FOR ANY

-REPORT ALL

ERROR

ERRORS

;INTERNAL LOOP TO 111%
#1128, $LPERR
R2,R3
#RKDB ,R3
#IBUF} ,RT

R4 ,LRLOAD

;SET LOCAL LOOP ON ERROR
;BUILD POINTER TO RKDB
;SET POINTER

TO BUFFER

;LOAD "'L*' REGS
;READ HEADER

SEQ 0079

(IR6KGO RK6 FCINL CTRL DIAG
CIR6KG.P1T
28-AUG-81 15:16

CIR4KG0 RKG FOTINL CTRL DIAG
C2R6KG. P11
28-AUG=-81 15:16
4255
4256
4257
4258

4528
&

4261

4262
4263
4264

4265

4266
asfig

426

4269
4270

4271
4272

4273
42764
4275

010646
010650
010652
010653

000000
000000
000
000

010656

000402

010654

010660
010660
010662
010664

010666
010670
010672
010674

010676
010702

000312

104416
104003

104417

012700
011321

000003

427,
4278
asgg

010724
010732
010734

4281

010736

032737

100000

001540

4283
4284
4285
4286
4287
4288
4289
4290
4291
4292
4293
4294

010746
0107564
010762
010764
010766

012737
012737
104013
104415
005300

057023
056777

001500
061112

4282

4295
4296
4297
4298
2%88

4301

4302
4303
‘%82

010716

010744

010770
010772
011000
011002
011002
011004
011006
011012
011014
011016
011020

011022

011026
011030
011032

001410

001344
012737
000402

104416
104003
004437
104421
104004
104013
104002

00644637
100200
000414
104015

4306

011034

013700

4308

011042

001407

4307

4306
4310

011040
011044

005300
006437

001550

054631

054260

056777

0'1002

SSKIP INIT

1SSINIT
ERROR
3

:(LEAR SUBSYSTEM
SBAD INIT ERROR

TWAT16
ERROR

“WAIT FOR INTERRUPT
STO SLOW/NOT COMPLETE

TCHKOP
ERROR

*LGAD RK REGS

OR 5.6.7

#3 RO
(R$), (R1)+

#DLT,T.CS2
{3
:
REMDLT EM13
#EMRDB.DFO11A
13

SSET COUNT
*GET RKDB

‘GET RK REGS
STEST IF DATA LATE
*NO-SK]P

;*'DATA LATE SET RESULT OF
*LOCAL LOOP TO 112%

#CERR,T.CS1

STEST

4%:

MOV
MOV
ERROR
$COP1
DEC

NEMCERR,EM13N
#EMRDB,DFO11A
13
:
RO

:'CERR SET RESULT OF
“LOCAL LOOP TO 1128
*DEC COUNT

BFQ

001110

7%:

BNE
MOV
8R

100200
BR
ERROR

5¢
#1178, 81 PERR
7$

TSSINIT
FRROR
3
JSR
R4 ,RDSTHD
TCHKOP
ERROR
4 : OR 5.6.7
ERROR
13
ERROR
2

JSR

108

R4 ,GENCOM

ERROR

:CHECK FOR ANY ERRORS
"REPORT ALL ERRORS

BI1

0462260

042260

LoovL 312

3$:

001634

TGE TRK
BIT
BFQ
MOV
MOV
ERROR
SCOP1

117%:
036362

0
0

:NO WORDS COUNT
*NO BUFFER
“SECTOR 0
2"
TRACK 0

MOV
MOV

061112

SEQ 0080

0
0
BYTE
RYTE

TLOADRK

100000

2B-AUG-81
15:17
FORMAT IN 26 SELTOR FOPMAT

312

2%:

104423
104002
104421
104004

108

112%:

104420
032737
001410
012737
012737
104013
104415

4276

010704
010706
010714

MACYTT 3%;046)

7
c
PAGE 81

*NO-SKIP

DB READ

CONT ERROR SET

READ DB

‘LOOP IF NOT ZERO
SSET LOCAL LOOP 117%
SSKIP INIT
;CLEAR SUBSYSTEM
*BAD INIT ERROR
*GO READ & SEQUENCE HEADERS
.
*CONTROLLER ERROR RE TURN
-REPORT ALL ERRORS
;"'DATA LATE SET RESULT OF DATA BUFFER READ"
“'OPERATION 1O SLOW'' MESSAGE
“OR “HEADER O NOT FOUND'' MESSAGE

6%
15

:COMPARE IBUF & OBUFF (HEADERS,
©GOOD RETURN-NO M]SCOMPARES
*REPORT 1ST MSCOMPARE
S

MOV

ERRLMT RO

:GET ERROR LIMIT

BEO

CEXIT

DE(

JSR

R4 ,GEN(OM

*DECREMENT
IF

ZERO

4311
4312
4313

011050
011052
011054

4;12

011060

6314
43

011056

MA(Y!]

040000
000403

104016
104415

SCOP1

000770

B8R

011062

011066

001010

1057%7

001607

4320

011070

112737

000001

2%5%

011104

000137

010544

4324

011110

6321

4325

011076

112737

6%:
010557

000001

010651

28-AuG-81
15:17
PAGE 82
FORMAT IN 26 SECTOR FORMAT
040000
BR
ERROR

4317

2%;3

393}046)

SEQ (081

:RESUME ( OMPARE
;GOOD RETURN-NO MOKE FRRORS
REPORT NEXT ERROR LINE

63
16

12%

JLOOP

;LOCAL

TSTR

L.D7

YES-SK]P

MOVR

#1,118

:CHANGE

BNE

MOVR

JMP

;WAS

ERROR LOOP

#1,10%

TRACK

:TRACK 2

PARAM

117%

JUST DONE?
TO LOAD 'L'" WlTH

;JUMP TO DO ENTIRF

TEST ON TRY

8$:

2%53

LSBTTL

*~HEADER RECOGNITION TESTS

L328

".'Qttttlttttt.ttttttttt'tt"'tt..l'Qtttttt.nttttt.t'tttntttt-ttni

2%%8

seTEST 22

BAD SECTOR ERROR

. %

FNORMAT

2%%2

AND ALL OTHER 5ECTORS GOOD.

6332
4333

I
X

6336

4337
4338
4339
4340

i
e
I
i

2%2;

1,343
4364
4345

4346

4347

000004
012737

011126

1064416

011120

012737

000012
000312

011130

4350
4351
4352
4353
6354
4355
4356

011132
011136
011140
011142
011144
011145
011146

004437
000127
177676
072414
000
000
000312

4259

011150

004437 042260

2362

011156

012700 072416

4363
4364
4365
4366

312,

TRACK

(0,

SCRAT(H PA(K

TO HAVE

ISSUE A WRITE DATA OR 400 WORDS TO CYLINDER 312, TRA(K O,

SECTOR 0.
MAKE SURE BAD SECTOR ERROR SETS.
ISSUE A
WRITE DATA TO CYLINDER G, TRACK 0., SECTOR 1 OF 400 WORDS.
MAKE SURE BAD SECTOR ERROR SET.
ISSUE A WRITE DATA
OF 400 WORDS TO CYLINDER O, TRACK O, SECTOR 2.
MAKE

SURE NO ERROR SETS.

:-.-nnttttttt'tttttttt‘ttttttttttQtt'tttttltt.tttttttttt'ttnttttott ‘
011110
011112

2%23

9%2?

CYLINDER

SECTOR 0 (BIT 15 OR WORD 2 OF HEADER RESET) AND SECTOR
(BIT 14 OR WORD 2 OF HEADER RESET) TO BF BAD SECTORS

0711154

011162
011166
011172
011174

104003

035€¢74

000600

042720
042720
005720
042720

100000
100000

040000

001262
001676

TSTe2:

SCOPE
MOV
MOV

#10.,8TIMES
#312 ,REFMT

;:D0 10. ITERATIONS
;SET REFORMAT SWIT(H

ERROR

:BAD INIT ERROR

JSR
WRHEAD
=102
ORUFF
.BYTE
BYTE
312

R4, LRLOAD

;LOAD ''L'* REGS.
;WRITE HEADER
:WORD COUNT FOR 26 SECTOR MODE
:BUFFER ADDRESS
:SECTOR
; TRACK
;CYLINDER

JSR

R4 ,GENCOM

MOV

#OBUFF+2 R0

TSSINIT

600
BIC
BIC
TST
BIC

#BIT15,(RO)+
#B]IT15,(RO)+
(RC) +
#BIT14,(RO)+

;CLEAR

SUBSYSTEM

;GENEkArE HEADERS

;WITH NO BS BITS

JRESET BIT 'S IN WORD 2 Of

;SECTOR O HEADER AND BI!T 14
:IN WORD 2 OF SECTOR 1 HEADER.
JALSO CORRECT THE VR(

"IREKGD kK6 FCTINL (TRL DIAG
LTI
2B-AUG~81 15:1¢

2%2;

011200

0642710

4369

011204

104417

4370
4;;}

011206
011210

0375 011212

104004
012737
104416
104003
004437
000123

4381

011240

072414

4382
4383

011242
011243

0400020

177400

011224

001110

035674

:CHECK IF ANY ERRORS

=400

;LOAD ''L'' REGS
WRITE DATA
;WORD COUNT

ORUF F

4386
4387
aggg

011246
011250
011252

104417
104424
104002

1%:

4390

011254

022737

4393
64394
4395
4396

011264
011266
011270
011272

104422
000000
000100
000000

TCHKWE
0
100
0

2288

011276

104415

SCOP1

4401
4402

011300
011306

122737
001405

4606

011316

104421

4409

011322

2%3;

4403
2282

2285

1,410

011274

011310
011314

011320

007415

011242

000002

011242

6%:

7%
:
S

RE AR

JCYL 312

:JUST READ SECTOR 2?

INCB
BR

104004

JSECT O
;TRACK O

CMP

(MPB
BEQ

011242

:BUS ADDRESS

0
0

;LOAD RX REGS
:WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE

ERROR

TCHKOP

ERROR

ERKROR

JREPORT ALL ERRORS
;SET LOCAL LOOP ON ERROR

TLOADRK
TWAT3?
ERROR
2

BEQ

104004

105237
000743

.BYTE
BYTE

312

0000C2

;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE

TCHKOP

000312

011262

:LOAD RK REGS

ERROR
& , OR 5,6.7
MOV
#eS, 8L PERR
TSSINIT
ERROR
3
JSR
R4 ,LRLOAD
WRDATA

011244

zgg;

SEQ 0082

#RI-14, (RO)

TWAT112
ERROR
2

5¢:

PAGE 83

TLOADRK

000
000

2%22

#2,5%

ERROR

:YES - SKIP

;CHECK OPERATION WITH ERROR
;EXPECTED BSE

&4 ; OR 5.6.7

:REPORT ANY DISCREPENCIES
;LOCAL ERROR LOOP TQ 4$

#2,5%
7%

:WAS SECTOR SET
:YES-SKIP

5%
4%

&4 :

;BUMP TO NEXT SECTOR
.LOOP
;CHECK

OR 5.,6.7

AN R I A AR R AN AR AN AR NN RN R

10 2

FOR GOOD OPERAT]ON

:REPORT ALL ERRORS
A AR AN N

RN RN A CARA RN

P AT AR

22};

JTEST 23

4413

‘e

FORMAT CYLINDER 312, TRACK O, ON SCRATCH PACK TO HAVE

4415
4416

;.
o

OF EACH OF THE SECTORS WITH A BAD HEADER VRC.
MAKE
SURE HEADER VRC ERROR SETS.
ISSUE A WRITE DATA 10

414

22;;

4419
4420

4421

6622

N R

HEADER VR(C ERROR

16 SECTORS WITH BAD HEADER VRC.

ISSUE A WRITE DATA

A GOOD HEADER AND MAKE SURE NO ERROR OCCURS.

:-;tfintnttntttttnttttttt'ntt-ttt.n-tnt-nttttt't-nt-'tnt--.---.'.011322

011324

011332

000004

0127%7

01273/

000012

000312

001262

001676

T1ST23:

SCOPE

MoV

MOV

#1C,,$TIMES

#312 ,REFMT

;:D0 10.

ITERATIONS

:SET REFORMAT SWIT(HW

28-AUG-B81
15:17
BAD SECTOR ERROR

BIC

106421

011216
011216
011224
011226
011230
011234

011236

3?5;046)

104431
104002

4374
6375
4376
4377
4378
4379

4380

MACY

TIR6KGO RKG FCTNL CTRL DIAG
TIR6KG. P11
2B=AUG-81 15:16

(IREKGO RKE FCTNL CTRL DIAG
“IR6KG. P
28-AUG=81 15:1¢4
6623%
4452

011340
011342

1046476
104003

6626

011346

004437

4628
4629
4630

011352
011354
011356

177676
(072414
000

INA

4627

L6317

4225

011350

011357

000127

YACY11

3%;046)

035674

28-AUG~81
15:17
HEADER VRC ERROR

SEQ (083

TSSINIT
ERROR

;CLEAR SUBSYSTEM
;BAD INIT ERRCR

JSR

R4, LRLUAD

:LOAD

:wWORD COUNT
:BUFF ADD
JSECT

WRHEAD
-102
OBUFF
BYTE

000

F
7
PAGE 84

BYTE

312

‘'L'" REGS

;WRITE HEADER

S TRACK

011360

000312

;CYL

011362
011366

0064437
000600

042250

JSR
600

R4, GENCOM

4437

011370

012700

072420

MOV

#OBUFF +4 RO

6639
4660
4641
4662

011400
011402
011606
0116406

030310
001402
040310
000401

BIT
BEQ
BIC
BR

R3, (RO)
2%
R3, (RO)
38

4636
‘2%2

;:BUILD HEADERS NO BSE

46438

011374

012703

000001

BIS*
ADD

R3, (RO)
#6,R0

;1F ZERO SET [T
;BUMP TO NEXT VR(C WORD

R3
18

050310
062700

L4646
44«;

0'1416
011420

006303
001367

ASI
BNE

011622
011426
017426
071430
011432

104417
104431
104002
104421
104004

TLOADRK
TWAT112
ERROR
2
TCHKOP
ERROR
&

011434
017442
011444

012737
104416
104003

011442

6459
4460
4461
4462
4663
4464

011446
017452
011454
011456
011460
011461

004437
000123
177400
072414
000
000

035674

L4667

011464

1064417

TLOADRK

4293

011470

104002

ERROR

CMP

216.,5%

Lb4

4649
4650
46451
4652
9222

VRC HDRO

:SET FOR BIT CHANGE

011410
011412

000006

;GET ADDRESS OF

#RITO,R3

4643
444g
L4464

2%:
3¢

MOV

:CHECK A VRC BI~
:SKIP IF ZERO
;ELSE CLEAR IT
;SKIP

SELE(T

SSHIFT THE SELECT
:IF BIT NOT SHIFTED QUT-LOOP

5.6,7

:LOAD RK REGS
:WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR
:CHECK OFERAT]ON COMPLETE
:REPORT ALL ERRORS

4455
46456
‘22;

001779

6$:

MOV
#4%,%! PERR
TSSINIT
fFRROR
3

:SET LOCAL LOOP
sCLEAR SURSYSTEM
;BAD INIT ERROR

JSR
WRDATA
-400
OBUFF
BYTE
BYTE

;LOAD ''L'' REGS
WRITE DATA
;WORD COUNT
;BUFFER ADD
sSECT
: TRACK

2222
468

011462
011466

5¢:

000312

312

104424

TWAT32

R4, LRLOAD

0
0

;CYL

;LOAD RK REG

;WAIT

FOR

INTERRUPT

;70 SLOW/NOT

COMPLETE

ERROR

4671

44;5

4674
4675
4676
4677

4678

011472

022737

011502
011504
011506
011510

104422
000000
000040
000000

011500

011512

001415

104004

000020

011460

BEQ

TCHKWE

ERROR

THIS WRITE

SECTOR

JEL

;CHECK OPERATION WITH ERROR

0
40
Y

;WAS

;gfggsxxp

HVRC

& ; OR 5,6,7

EM EXPECTED

;REPORT ANY DISCREPENCIES

“4B8
4489

—

s POOoONOO
gwwww—-

—

VIV IV IV TV TV, BNV ]

—

el
ek

) —d
ol

)l
i
il

4486
4487

— ol ool

4485

QOOOOD

L6479
4480
«481
LGB2
4483
LLB4

071540

MACY11

3001046

123

104461¢
105237

022737
003744
000402
104421

104004

28=-AUG=-81

HEADER

VR(C

15:17

ERROR

6 7
PAGE 85

SCoP?

011460
000616

011460
6%:
7$:

INCB
{mp
BLE
BR
T1{HKOP
ERROR

SESG C084

sLOCAL LOOP TC 4%
5%
216,58
43
7%

JBUMP SECTOR IN ‘1" REG
JIF SECTOR IS 16 OR LESS
;L00P
JELSE EXIT

& ;

:REPORT AL.

Ok 5,6,7

JCHECK LAST OPFRATION NC ERRORS
ERRORS

[ XY

JIR6KGO RKG FUTNL (TRL DIAG
"IR6KG P11
28=AyuG=81 15:1¢

TIREKGD RKE FITNG (TRL

“IROKG.PY

DIAG

VMACYTT 30(1046)

<8=AuG=81 15:16

124

La90

aag‘

44695

64663
4694

4696

6497

4500
4501

6502
4282
4

000004

011556
011560

104416
106003

011562
011550

012737
012737

000012
000%12

035674

011562

004637

¢507
4508

011570
011572

177676
072414

6509

6510

Zg};

011566
011574

011575

000127

00Q12¢~
001670

000

ERROR SETS.

TO CYLINDER O,

TST24:

AR NP N R RN RN

SCOPE

;LOAD "1'' REG

BYTE

;SECTOR

BI(

#B1T15,0BUFF+2

042737

100000

64518

017614

104617

4522

011622

104421

4525

011626

004437

4527
4528

01%034
011636

177400
072414

=400
OBUF £

000

BYTE

017624

R4, GEN"CM

011606

2253

;WORD CNT FOR 20 SE(TOR TMOTDE
JBUFF ADD

JSR

4219

011616
011620

;WRITE HEADER

042260

600

: TRA(CK

: CYLINDER
;BUILD HEADERS-NO BSE

TLOADRK

1044317
104002

TCHKOP

;CLEAR BIT TO SET BSE,LEAVE VR( BAD.
;LOAD RK REGS

TWAT11?2
ERROR
2

104004

E OO ROtOry

;(LEAR SUBSYSTEM
;BAD INIT ERROR

BYTE

312

ONLY HEALCER VR{

NGOG

R4 ,LRLOAD

006437

4519
225?

JSR

WRHEAD

0724176

SURE

;.00 10, ITERATIONS
;SET REFOSMAT SWIT(H

071600

MAKE

AN R P TR AN R AN P AR AN AR IR P IR AR

TSSINIT
ERROR
3

SECTOR 0.

#10.,$TIMES
#312 REFMT

4513

000600

"RA(Kk 0,

MoV
MoV

000312

011604

RAERRRRRORLIRERRRAIRNNRRANIRTMRRRORNTOTS

FORMAT CYLINDER 2*2, "~a(K 0 SUCY THAT SECTOR ZERQ MAS
BOTH A BAD SECTCR £Ex’R AND HEADER VR(C.
ISSUE A WRITE DATA

011576

22;?

T RN RN

SEa 0085

BAD SE(TUR ERKTF AND HVR(C ERRCR

=102
OBUFF

000

PAGE 86

.
A

011540

4505

4506

NNRRERR I IR RN RN IR R R

L498

15:17

BAD SECTOR ERROR AND HVR( ERROR

seTEST 24

669¢

4499

28-AuG=81

;WAIT FOR INTERRUPT
;70 SLOW/NOT COMPLETE ERROR

ERROR

&4 ; OR 5,6.,7

JSR

R4, LRLOAC

s CHECK FOR ANY ERRORS

JREPORT ALL ERRORS

4526
4529

6530

zg%g
4533

4534
22%2
4537
4538
4539
45640

2225

011632
011640

011641

000123

035674

WRDATA

000

BYTE

017642

000312

312

011644

104417

TLOADRK

011646
011650
011652
011654
011656
011660

011662

JWRITE

;SECTOR

: TRACK

: CYLINDER
;LOAD RK REGS

TWAT3?2
ERROR

104422
000000
000040

TCHKWE
0
40

104004

ERROR

&« ; OR 5,6.7

e A

000000

45¢

JeTEST 25
;t

[

DATA

:WORD COUNT
;BUFF ADD

1064424
104002

4543

6545

;LOAD "L"" REGS

;WAIT FOR INTERRUPT
;7O SLOW/NOT COMPLETE ERROR

;CHECK OPERATION W]TH EXPECTED ERR

JHVRC ERR EXPECTED

;REPORT ALL DISCREPENTIES
AR

CPEKATION INCOMPETE

I 7
:
MACY11 30(1046) 28-AUG=-81
15:17 PAGE 87
125
OPERATION INCOMPLETE

4546

SEG (08¢

FORMAT CYLINDER 312,

TRACK O SUCH THAT SECTOR 21 HAS THE

TRACK

MAKE

4547

2550

E'-tt‘t'Qt'...'tt.'tt""""tt"‘t'tltt"'tt".t't"."'t'.t"o"

ggzg

4551
6552

0116646
011666

000004
012737

65564

011702

104416

4553
2222

011674
011704

012737

011706

004437

6559

011714

177676

4560

011712

000312

001262

TST25:

001676

000127

SCOPE
MOV

JSR

R4, LRLOAD

JLOAD *L'* REGS

072414

OBUFF

312

000312

4565

011724

004437

042260

4568

011732

052737

001000

4571
6572

011746
011750

104417
104437

64575

011754

104421

6578
4579
458C

011760
011764
011766

004437
000123
177400

6582

011772

025

4583

011773

011774

000312

312

4586
4587

011776
012000

104417
104425

TLQADRK
TWAT48

4590

012004

4592
4593
L4594

072010
012012
012016

2298

011740

052737

001000

;(LEAR SUBSYSTEM

JWRITE HEADER

072670

;BUFF

ADD

BYTE
BYTE

0
0

JSR

R&,GENIOM

BIS

#B1T9,0BUFF+200 ;CHANGE FORMAT

600
072614

ITERATIONS

sSET REFORMAT SWIT(H

;WORD COUNT FOR 26 SECT MCDE

011722

000600

#3712 ,REFMT

=102

011716

011730

SET.

sBAD INIT ERROR

011720
01172

2229

OPI

WRHEAD

000
000

SURE

ERROR

4561
6562

2222

SECTOR 21.

;:D0 10.

TSSINIT

035674

[SSUE A WRITE DATA OF 400 TG CYLINER O,

#10.,$TINES

MOV

104003

4557

4558

000012

WRONG FORMAT,

BIS

;SECTOR
: TRACK

."¥.INDER
;=JILD HEADERS-NO BSE ERRORS
IN SECTOR 25

#BIT9,0BUFF+202 ;CORRECT THE VRC(

22;2
22;9

LS8

2ggg

zggg
4591

4595

011752

01*756

011770

012002

012006

TLOADRK
TWAT112

104002

ERROR

TCHKOP

104004
035674

072414

2TO SLOW/NOT COMPLETE
OR 5,6.,7

104002

4 ;

JSR
WRDATA
=400

R4, LRt OAD

BYTE

104427

sSECTOR

BYTE

;TRACK 0

;LOAD *'L"' REGS
;WRITE DATA
;400 WORDS
ADD

vt 312

;LOAD RK REGS
JWAIT FOR INTERRUPT

;7O SLOW/NOT (OMPLETE

TCHKWE

:(HECK OPERATION EXPECTED ERROR

20
0
ERROR

;0P] EXPECTED

;REPORT ALL ERRORS

;BUFF

ERROR

000000

;CHECK FOR ANY ERRORS

ERROR

OBUF F

000

000020
000000
104004

;LOAD RK REGS
JWAIT FOR INTERRUPT

R R R R

;

R R AR R R

OR 5,6,7

R RN

JREPORT ANY DISCREPENCIES

R R AR R

R R

R R PR RN RN R R RN RN R AR NN

2289

JCTEST 26

4598

FORMAT CYLINDER 312, TRACK 0 SUCH THAT A HEADER VRC

«60(

ISSUE A WRITE DATA OF

4599
ceC’

TR ET R

CP1 WITH HVRC ERROR

ERROR

S PRESENT AND SECTOR 17 HAS

TRACK

SECTOR

17.

THE WRONG_FORMAT.

40D wORDS TO CYLINDER 312,

THAT

BOTH OPERATION

INCOMPLETE

FY ey

(IR6KGO Rk& FCTNL CTRL DIAG
{ZROKG.P1T
28-AuG=-81 15:16

7
J
MACY11 30(1046)
2B8-AUG-81
15:17 PAGE 88
126
OP] WITH HVR(C ERROR

4602

4L606

4605

012016

000004

012036

104416

4606
4607

012020
012026

zggg

012036

4611
G612
4613

012040
012064
012046

004437
000127
177676

4615
466

012052
012053

012054

000
000

000312

4619

012056

004437

042260

(622

012064

012700

4624
4625

012076
072100

052720
062700

L4627

012110

4608

416

22;;

2259
4623

4626

4628

4629

012050

012062

012070

Q12104

012112

012116

012737
012737

600600
052720

032710

001403

012126
(012126
012130

104417
104437
104002

L63¢
22%;

012132
012136

104421
104004

4639

012136

004437

4644
2222

012151
012152

J00
000312

012142
012164
012146
012150

000123
177400
072414
017

SCOPE

A A

AR ARl

JSR
WRHE AD
=102

R4 ,LRLOAD

BYTE
BYTE

0
0

JSR

R& ,GENCOM

072550

MOy

RORUFF+134 R0

:GET ADDRESS 2ND WORD HDR

001000
000004

BIS
ADD

#B1T9. (RO)+
#4 RO

‘SET VRC BIT
;BUMP TO HVR( WORD HDR 20(8)

(35674

OBUFF

372

600

001000

BIlS

000001

BIT

BEQ

1%:
28

035674

“CYLINDER

#BIT9, (RO)+

#BI1T0, (RO)
1%

BIS

#BIT0, (RO)

TLOADRK
TWAT112
ERROR
2
4

JSR

R4 ,LRLOAD

.BYTE
312

TL OADRK
TWAT4S

ERROR

4651
4652
4653
4656
4655

012162
012164
012166
012170
012172

104422
000000
000060
000000
304004

TCHKWE
0
60
0
ERROR

;:BUILD HEADER- NO BSE ERRORS
17(8)

:SET FORMAT 24 SECT PER TRAC(K

;TEST BIT O

JRESET=-SKIP

:CLEAR BIT
;SET BIT
;FORCE

OF]

AND HVR(C

ERROR

*LOAD RK REGS
:WAIT FOR INTERRUPT
;7O SLOW/NOT COMPLETE ERROR

TCHKOP
ERROR
WRDATA
=400
0BUFF
BYTE

;LOAD ''L'* REGS
‘WRITE HEADER
;WORD COUNT FOR 26 SECT MODE
*SECTOR
“TRACK

#8110, (RO)

*CLEAR SUBSYSTEM

;BUS ADDRESS

BIC

104002

4657

*BAD INIT ERROR

104417
104425

‘656

TSSINIT

012154
012156

012160

ERROR

4647
LH648

22?8

;:D0 10. ITERATIONS
:SET REFORMAT SWIT(CH

000001

4632
L4633
22%2

L A R

#10.,8TIMES
#312 REFMT

000001

052710

. [0}Y
MOov

042710
000402

AND HEADER VR(C SET.

¥5126:

(72414

012120

L6400
L4641
L4642
L6463

001262
001676

104003

4630
4631

000012
000312

SEQ €087

5,6,7

17
0

;CHEC(K FOR ANY ERRORS
;YES=-REPORT ALL ERRORS

:LOAD "‘L°'* REGS

:WRITE DATA
;400 WORDS
;BUFF ADDRESS
SSECT 17
JTRALK O

SCYLINDER 312

:LOAD RK REGS
:WAJT FOR INTERRUPT

STO SLOW/NOT COMPLETE
JCHECK WITH EXPECTED ERROR

;HVRC ERR & OP]
4

EXPECTED

:0R 5.6.7

-'-ttttttttttttt.tt!tttt"tt!t.tt.ttt't'tttttttttttt.'"t.tttt"tt

SeTEST 27

HVRC IGNORE ON NON-ADDRESSED SECTOR

TIREKGD RKG FUTNL (TRL DIAG
“IREKG. P
28=AUG=8" 15:16

28
%
8
2
%

EXEZ2
~

O NN
-

NN
NN —

001262
001676

XSRS

SCOPE
MOV
MOV

;.D0 10. ITERATIONS
;SET REFORMAT SWIT(CH

ERROR

;CLEAR SUBSYSTEM
JBAD INIT ERROR

JSR

R4 ,LRLOAD

TSSINIT

035¢74

WRHEAD

0
000312

BYTE
312

012700
012701
030110
001402
040110

072560
000002

MOV
MOv

#ORUFF +144 ,R0
#BIT1,R1
R1, (RO)

ro
N

000401
050110

1¢:

104417

2%:

NN
&N

8EQ
BIC
BR
BIS

1%
R1,(RD)
2%
R1, (RO)

TLOADRK

104002

TWAT112
ERROR
2

104421
104004

ERROR

&4 ; OR 5.6.,7

JSR

R4 ,LRLOAD

BYTE
BYTE
312

21
0

TCHKOP

035674

WRDATA
=400
OBUFF

177400

OOV

OO0NSNO

NN
NN NN N W
Nb
O QOON

ST,NT,S1,S1,81,8
1,1, ST U1, VR

BIT

TLOADRK

TWAT3?

ERROR
104421
104004

TCHKOP

ERROR
LSBTTL

:LOAD "'L'' REGISTERS
HEADER

;WRITE

;BUFF

004437
000123

THE

:WORD COUNT FOR 26 SECTOR MODE

=102
OBUFF

104431

IS NOT SET AT

#10.,8TIMES
#312 REFMT

R4 ,GENCOM

266

SECTOR 20 HAS AN HVR(

RARRARl
A

JSR
600

254
256

ST
ST

et
—

Q0onr?
0GlT3%¢

AND SECTOR 21. MAKE SURE HVRC
END OF THE OPERATION

=
—

NONUND

argay

OO0
(@ le]

—d
cd ek wnd
D =D

POPROMNLRNDNVMNOND .

leleolalolelole]

7
7

TRACK O SUCH THAT

ERROR. ISSUE A WRITE DATA OF 400 WORDS TO CYLINDER 312, TRA(CK C,

042260

—

— ad d ) b el e
S L S R U1,
ST oS B A S 1 S S LN 1A NS N

OOOOO0OO0OO

OO0

—

OO0

—d
el el —

4686
4687
4688
4689

)

4684
4685

004437
000600

4680
4681
4682
4683

) - od

4678
4679

004437

4670
4671
4672
4673
4674
4675
4676
4677

—

4669

OO0OOOOOOOOD

4667
4668

—

4665

4L666

OO0

6664

roro
oo
SN

L66°
4H62
2663

FORMAT CYLINDER 312,

A TEYETEAIET

6630

SEQ (088

L6538
(659

28-AuG=81 15:16

15:17
PAGE 89
30(1046)
28-AUG-81
HVR( JGNORE ON NON=-ADDRESSED SECTOR
127

CIR6KGO RK6 FCTNL (TRL DIAG

TIREKG. P11

MACY11

&4 ; OR 5,6,7

««DATA TRANSFER TESTS

ADD

JSECTOR
; TRACK

;CYLINDER

;BUILD HLADERS-NO BSE ERRORS

;ADDRESS OF HEAD 20 HVRC WORD
JBIT 1 CONSTANT

JTEST BIT 1 SET
JRESET-SK]P

JELSE CLEAR BIT
JSKIP

JSET BIT 1

;LOAD RK REGS

JWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE

;CHECK FOR ANY ERROR
JREPORT ALL

ERRORS

:LOAD *'L'' REGISTER
;WRITE DATA
;WORD COUNT

JBUFF ADD
;SECTOR
;TRACK

;CYLINDER
:LOAD RK REGS
JWAIT FOR INTERRUPT
;70 SLOW/NOT

COMPLETE

sCHECK FOR ANY ERROR
sREPORT ALL ERRORS.

ERROR

(IR6KGO RK6 FCTNL C(TRL DIAG

CIR6KG.P11T

28-AUG-81 15:16

MACY11 30(1046)

L4714

J*TEST 30

2;}9

4720
4;5;

o
i

4719

012326

000004

T5T30:

SCOPE

001262
001676

4730

012350

012737

000312

012376

4733
4734
4735
4736
4737

012362
012366
012370
012372
012374

006437
000127
177676
072414
€00

035674

2;28

012376

000312

4741

012400

004437

4744

012406

104417

TLOADRK

2;29

012412

104002

ERROR

4748

012614

104421

4751

012420

022737

000313

012376

4753

012430

123727

012375

000002

z;gg

012444

2;28
4752

4754
4755

012356

012375

012404

012410

012416
0126426

012436
012440

4758

012446

2;2?

01245¢

4759

105037

001200

001414

001403
105237

000746

105037

012460

006437

4764

012466

177400

4766
4767
(768

4769

012470

012472
012473
012474

1%:

2%:

7%:

042260

R RN AR

000741

000123
072414

012
000
000312

;.D0 10. ITERATIONS
;SET REFORMAT SWIT(H
;CLEAR SUBSYSTEM
;BAD INIT ERROR

MOV

#312,7%

;PRESET CYL POINTER

JSR

R4 ,LRLOAD

;LOAD "'L'" REG
;WRITE HEADER
sWORD COUNT FOR 26 SECTOR MODE
sBUFF ADDRESS
;SECTOR

WRHEAD
=102
OBUFF
BYTE
BYTE
312
JSR

1200
TWAT112
T(HKOP

104004

4762

4765

RN AR AR R AR

MOV
#10. ,$TIMES
MOV
#312 ,REFMT
TSSINIT
ERROR
3

CLRB

104431

005237

012464

012375

000

012452

4763

P T ANN RN AP R

000012
000312

47645

:-;Qttntttttttttttttnttttttttttwttttttttqnqtnwtttttt«ttqtnaatttttt

012737
012737
104416
104003

2;2%

SEQ 0089

TO AGREED WITH BAD SECTOR INFORMATION.
[ISSUE A WRITE DATA
OF ONE SECTOR ON CYLINDER 312, TRACK 0.
READ IT BA(CK TO
MAKE SURE iT AGREES WITH WHAT 1S WRITTEN.

012330
012336
012344
012346

4738

PAGE 90

FORMAT CYLINDER 312, ALL TRACKS AND CYLINDER 313, TRACK 0

4725
4726
64727
2;58

2;%;

WRITE AND READ ONE SECTOR

R AR AR R RS AR

4718

4724

15:17

«*DATA TRANSFER TESTS

4718

2723

28-AUG-81

012375

012376
035674

3%:

R4, GENCOM

:CLEAR TRACK POINTER

; TRACK

; CYLINDER
;BUILD HDRS-INCLUDE BAD SECTORS
;LOAD RK REGS

4 ; OR 5,6,7

CMP

#313,7%

(MPB

28,42

B8R

;WAIT FOR INTERRUPT

;TO SLOW/NOT COMPLETE ERROR
;CHECK FOR ANY ERRORS

JREPORT ALL ERRORS

;TEST IF DONE 313 Tk 0

JYES = SKIP

8$
2%

;YES=SKIP
;BUMP TO NEXT TRACK

CLRB

;CLEAR TRACK POINTER

;GO FORMAT 313 1K 0

BEQ
INCB

8%:

0
0

ERROR
BEQ

012375

INC

JSR

WRDATA

’$

R4 ,LRLOAD

=400

OBUFF

BYTE
BYTE
312

;DID WE JUST FORMAT TRA(K 2
;GO FORMAT NEXT TRACK
;BUMP CYL TO 313
;LOAD "'L"' REGS
;WRITE DATA

JONE

12
0

SECTOR WORD COUNT

;BUFF ADDRESS

;SECTOR 12
: TRACK 0
;CYLINDER 312

(ZR6KGO RK6 FCTINL CTRL DIAG
CZROKG.P11
28-AUG-81 15:16
4770
4771
4772
4773
4774
4775
4776
4777
4778
4779

4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790
4791
4792

012476
012502
012504
012506
012514
012516
012520

004437
000001
000400
012737
104417
104431
104002

012522

104421

012524

104004

012514

48:

)
035674

104417
104424
104002

4793

012552

104421

004437
100001
000400
000413
104015

042260

4800

012556
012562
012564
012566
012570
012572
012576
012500
012602
012606
012610
012612
012614
012616

013700
005300
001406
004437
040000
000402
104016
000770
005037

001634

4812
4813
4814
4815
4816
4817
4818
4819
4820
4821

AND READ ONE

¥SR

R4, GENCOM

400

MOV

TLOADRK

TWAT112

;BUILD DATA PATTERN 1

2400 WORDS LONG

JSET FOR LOCAL LOOP
;LOAD RK REGS

#4$,SLFERR

JWAIT FOR

JSR

R4 ,LRLOAD

BYTE
BYTE
312

ERROR

TCHKOP

104004

042260

:TRACK 0

;eyL 312

;LOAD RK

6$:

001676

JWAIT

ERROR
BR

(LR

FOR

INTERRUPT

;TO SLOW/NOT COMPLETF

R4 ,GENCOM

040000

DATA

:SECTOR 12

12
0

JSR
100001
400

DEC
BEQ

ERRORS

;400 WORDS
;BUFF ADD

4 ; OR 5,6,7

MOV

;REPORT ALL

JREAD

ERROR

BR
ERROR

;JCHECK FOR ANY ERRORS

JLOAD *'L'* REGS

TLOADRK

TWAT3?

INTERRUPT

;7O SLOW/NOT COMPLETE ERROR

&4 ; OR 5,6,7

400
1BUFF

SEQ 0090

SECTOR

ERROR

RDDATA

PAGE 91

15:17

WRITE

TCHKOP

012544
012546
012550

4802
4803
4804
4805
4806
4837
4808
4809
4810
4811

001110

28-AUG-81

ERROR

004437
000121
177400
070414
012
000
000312

012554

30(1046)
130

042260

012526
012532
01253%
012536
012540
012541
012542

4794
4795
4796
4797
4798
4799

MACY11

sCHECK FUGR ANY ERRORS
JREPORT ALL

ERRORS

;GO COMPARE DATA TO PATTERN 1
;400 WORDS LONG
.GOOD RETURN-NO DATA ERRORS
;ERROR RETURN

6%
15

;GET ERROR LIMIT
JDEC LIMIT
JEXIT IF O

ERRLMT,

RO
6$

R4 ,GENCOM

;CONTINUE COMPARE
JEXIT IF NO MORE ERRORS
;JELSE REPORT M]SCOMPARE
;LOOP
;CLEAR REFORMAT SWIT(CH

6$
36
5$

REFMT

:;ttttttt*tttttttttttttti'tfitttittttttt*tttt'ttiIfititttttttti'ttt

;*TEST 31
t

t
t

WRITE

DATA WITH BUS ADDRESS

000004

<822

012624

012737

4824
4825

012632
012634

104416
104003

000012

001262

T5131:

INHIBIT

ISSUE A WRITE DATA OF ONE SECTOR TO CYLINDER 312,
TRACK 2, SECTOR 12 WITH INHIBIT BUS

ADDRESS

INCREMENT.

EVERY WORD IS THE

A0SR

012622

INCREMENT

SCOPE

MOV

TSSINIT

ERROR

READ DATA BA(CK

SURE

RRRRRRRRRSR22RR00RRRR2RRRRRRRRRRRRE

#10.,$TIMES
3

TO MAKE

SAME AND CORRECT.

; ;D0 10. ITERATIONS
;CLEAR SUBSYSTEM

;BAD INIT ERROR

Y]]

CZREKGD RKG FCTNL CTRL DIAG
(IR6KG. P11
28-AUG-81 75:16
OOOOOOO
OO0
OO0

104417
104430
104002

ERROR

104421
104004

ERROR

004437
000121

Ré4 ,LRLOAD

070414

JSR
RDDATA
=400

b
—
b
JE

b e mod —d o

000

010
012

JSR
WRDATA
=400
OBUFF

R4 ,LRLOAD

BYTE
312

BIS
JSR

#BAL,L.CS2
R4 ,GENCOM

16
400

PAGE 92

TWAT96
TCHKOP

035674

012
001

000312

000377
072416
072414
1%:

JSET

004437
100000

042260

000400
000413
104015

013700
005300
001406
004437
040000
000402
104016

001634

042260

:
648

JPATTERN 16

2TO

;0R 5, 6,

(R3),(R1)+
RO
1%

ERROR

; CHECK OPERATION FOR ANY ERRORS

10 ;REPORT ALL ERRORS

;LOAD ''L'* REGS
JRDDATA

;TRACK

;SET COUNT TO SET OBUFF

sALL

TO BE

THE FIRST WORD OF PATTERN

;MOV THE WORD

;LOOP UNTIL ALL WORDS SET
sLOAD RK REGS
;WAIT

JSR
100000
400

R4 ,GENCOM

MOV

ERRLMT,RO

BR
ERROR

2%
15

DEC

FOR

INTERRUPT

:TO SLOW/NOT COMPLETE ERROR

BR
ERROR

COMPLETE

;CYLINDER 312

ERROR

40000

SLOW/NOT

;=400 WORDS
JIBUFF IS BUFF ADDRESS
:SECTOR 12

MOV
DEC
BNE

JSR

INHIBIT

¢LOAD RK REGS
;WAIT FOR INTERRUPT

#377 ,R0
HOBUFF
+2 ,R1
#OBUFF ,R3

BEQ

INCREMENT

;BUILD PATTERN

;400 WORDS

MOV
MOV
Mov

TCHKOP

:CYLINDER 312

TLOADRK

104421
104004

SEQ 0091

sLOAD “‘L'" REGS

s TRACK

12
1

ERROR

INHIBIT

;=400 WORDS
sOBUFF IS BUFF ADDRESS
;JSECTOR 1¢

IBUFF
BYTE
BYTE
312

TWAT3?

INCREMENT

cWRDATA

TLOADRK

[o N« NV. IRV IV IRV I O

WIANWIWNWNNGNONONOMNORNDIY

~
~no

el b
—
—

001610

177400

N SV RN TV] U1, ST

—

— e —d

OO0

—

] b

OO0
OO0
OO
OTVOO0T

000020
042260

DATA WITH BUS ADDRESS

OO0

WRITE

15:17

OOOOOOD

035674

28-AUG-81

052737
004437
000016
000400

——

4880
4881

131

177400

Sy
Gy Ghurur P Purghur

4866

4867
4,868
4869
4870
4871
4,872
4,873
4874
4875
4876
4877
4878
4879

004437
000123

30(1046)

072414
012
001
000312

QOO0

4826

4827
4828
4829
4830
4831
4832
4,833
(834
4835
4836
4837
4838
4839
4840
4841
4842
4843
4844
4845
4846
4847
4848
4849
4850
4851
4852
4853
4854
4855
4856
4857
4E38
4859
4860
4861
4862
4863
4864
4865

MACY11

;O0R 5, 6,

;CHECK OPERATION FCR ANY ERRORS

10 ;REPORT ALL ERRORS

; COMPARE THE DATA

65%

R4, GENCOM

;GET ERROR LIMIT
sDECREMENT COUNT
;1F ZERO - EXIT
s CONTINUE DATA (OMPARE

65%
16

;NO MORE ERRORS - EX]T
JREPORT NEXT ERROR

Sa 22282222222222200022
RRRRRRiRRRRRD ]

SURE

b —
D

d
d
d
ad

"77770.

=
=D
d
=D
d
=
d
md
d
b
—d
—h o
—
ek
D
—_—

b
h

104417
104430
1064002
104421
104004
104415

:QEMSZB,OPTFLG

TYPE
TYPE

.OPRO11

BNE

004437
002007
001000

, #1
SMAMST
2s

,OPR0O1?

BIS

#MEMSZB,OPTFLG

TYPE

MoV
TSSINIT

ERROR

035674

,gPRO]S

ITERATIONS

JTEST

>32K MEM

JTEST

REPORT

;YES-SKIP

THAN 32K

ALREADY MADE

JYES -SKIP

SV INSUFFICIENT MEMORY DATA TRANSFER WITH

;ADDRESS >32K
:SET FLAG

;BYPASSED"’

#5%,$LPERR

sCLEAR SUBSYSTEM
;BAD INIT ERROR
;LOAD *L*' REGS
;WRITE DATA

;400 WORDS
:BUS ADDRESS IN 32k -10 BYTES
;SECTOR 16

;TRACK 0

0
042260

;:D0 _10.

IF MORE

JEXIT
JSET LOCAL LOOP ON ERROR ADDRESS

R4, LRLOAD

177400
177770
016
000

000312
006437
010010
001777
000400

#10. STIMES

BIT

(MPB
BGE

IS ON DISK.

IS ONLY EXECUTED
IS PRESENT.

001664

001110

104416
104003

NN
D
e
D
NNOONNONONENO
R

O
o

D
et

C20470
12737

THIS TEST
OF MEMORY

DATA

MOV

001664

104401

004437
000123

SCOPE

CORKECT

001262
000001

N
—
L X X
]

OOOO
OO
OVOODOOOO0

Dk —b
b
d
—

b ek

QOOOOCOOCOOOT

000012
001326

052737

S NN
DOONES

4936
4937

002016

—

4935

123727

[
TV
LU T
S - &
s
O
ONEN

4925
4926
4927
4928
4929
4930
4931
4932
4933
4934

104401
104401

b eh

4923
4924

032737
001011

OO0

4919
4920
4921
4922

000004
012737

4918

2$:

:
NOTE

—

4916

4917

SEQ 009?

INHIBIT

.LOOP

648

INCREMENT

ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS -

OO0

4906
4907
(908
4909
4910
4911
4912
L9173
4914
4915

65%:

WRITE DATA WITH BUS ADDRESS

MAKE

wac

4904
4905

00077¢C

B
8
PAGE 93

15:17

28-AUG-81

WRITE DATA ADDRESS GREATER THAN 32K

4903

15:16

C13016

—

4,886
4887
4888
4889
4890
4891
4892
4893
4894
489>
4896
4897
4898
4899
4900
4901
490?2

013014

013016

OOV

4882

4883
4884
4885

28-AUG-81

30(1046)
31

R4, GENCOM

:CYLINDER 312
;GENERATE DATA
;PATTERN

10,

MEM.

MANAGEMENT

JRELOCATION ARGUMENT
;&00 WORDS
;LOAD RK REGS

TLOADRK
TWAT96

JWAIT FOR INTERRUPT
;70 SLOW/NOT COMPLETE

ERROR

TCHKOP
ERROR

JSR

R4 ,GENCOM

SCOP1

042260

2007
1000

FOR DEST.

O0R 5, 6,7,

ERROR

;CHECK OPERATION FOR ANY ERRORS
10 ;REPORT

ALL

ERRORS

;LOCAL LOOP ON ERROR TO 5%

;CLEAR JBUFF

TO 1°'S.

CIR6KGO RK6 FCINL CTRL DIAG

(ZR6KG P11

VACY11

4938
4939
4940
4941
4942
4943
64944
64945
4946
6947
4948
4949
4950
6951
4952
4953
64954
4955
4956
4957
4958
4959
4960
4961
4962
4963
4964
4965
4966
4967

013160
013164
013166
013170
013172
013173
013174
012176
013200
013202
013204
013206
013210
013214
013216
013220
013222
013224
013226
013232
01323¢
013236
013242
013244
013246
013250
013252

004437

0001 21
1774 00
0704 14
0 16
0 00
0003 12
1044 17
1044 24
1040 02
1044 21
1040 04

0044 37
1100 00
{0017 77
0004 00
0004 13
1040 15
0137 00
0053 00
0014 06
0044 37
0500 00
0004 02

035674

JSR

RDDATA
=400

IBUFF
LBYTE

BYTE
312

T(HKOP

ERROR
JSR
110000
17277
400"

042269

001634

€4%:

;RDDATA

;=400 WORDS

;IBUFF 1S BUFF ADDRESS
;SECTOR 16

16
0

042260

;TRACK 0

;CYLINDER 312
;LOAD RK REGS

0007 70

65%:

013252

WAIT
.

&
;0R S5, 6,
R4 ,GENCOM

:TO

FOR

INTERRUPT

SLOW/NOT

COMPLETE

ERROR

:CHECK OPERATION FOR ANY ERRORS

10 :REPORT ALL ERRORS
: COMPARE
:MEMORY MANAGEMENT FOR DESTINATION

;RELOCATION ARGUMENT

4
15

DEC
BFQ

RO
65%

B8R
£t RROR
B8R

659%
16
648

JSR
50000

1040 16

B8R
ERROR
MOV

SEQ 0093

THAN 32K

;LOAD 'L'* REGS

R4 ,LRLOAD

TLOADRK

TWAT3?
ERROR

;400 WORDS
;:NO ERROR-SKIP
JREPORT FIRST MIS(OMPARE

:GET ERROR LIMIT
:DECREMENT COUNT
:IF ZERO - EXIT
:CONTINUE DATA (OMPARE

ERRLMT RO

R4 ,GENCOM

;NO MORE ERRORS = EXIT
JREPORT NEXT ERROR

:LOOP

L%
'."Qfiifi.t."tfi.fifit'flt.""!'"Qfi'tt".ttt"tfiiltfitlti'tltiitttt"

LYTEST 33

4968
4969
4970
4971
4972
4973

4974
4975
4976
4977
4978
4979
4980
4981
4982
4583
4984
4985
4986
4987
4988
4989
4990
4991
4992
4993

15:17
PAGE 94
30(1046)
28-AuG-81
132
WRITE DATA ADDRESS GREATER

i
T
%

e
‘e

READ DATA ADDRESS GREATER THAN 32K

ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = 177770.

CHECK MEMORY FOR CORRECT TRANSFER.
NOTE:

THIS TEST
OF MEMORY

IS ONLY EXECUTED
IS PRESENT.

IF MORE

THAN 32K

:'.'..'i..fi...i't.i't‘.i.i."."...'ti.l..."Q.Q.Q.'...'.Qi.'.l't.‘.
013252
013254
013262

013270

0000 04
0127 37
1237 27
0020 01

013272

0004 62

013274

0127 37

013302
013307
013304
013306
013312
013314
013316
013320

000012
001326

013302

001262
000001

001110

1ST33:

SCOPE
MOV

#10.,$TIMES

$MAMST,
41
28

TCHECK IF >32K MEMORY
TYES-SKIP

1$:

B8R

5¢

CEXIT

2s:

MOV

#3%, 8L PERR

;SET LOCAL ERROR LOOP

(MPB
BGE

3¢

035674

TSSINIT

ERROR
JSR

WRDATA

2
R4 ,LRLOAD

-400

OBUF F

BYTE

::D0 10.

;CLEAR

ITERATIONS

SUBSYSTEM

‘BAD INIT ERROR
*LOAD 'L’ REGS
"WRDATA

1<400 WORDS

*OBUFF IS BUFF ADDRESS
‘SECTOR 17

[ Yan

t JREKGO RK6 FOCINL CTRL DIAG
TIR6KG. P
28-AUG-81 15:16

MACY11

28-AUG=-81

(7R6KG.P1T

15:1¢

MACYT

S?;;Okb)

OOO0oOOo

OO0

106002

FRROR

OO0CCOOOOOO

104421
104004

004437
000121

038674

RDDATA

- =400
177770

177400
177770

017
000
000312

) -

—

——d

1064417
104424
104002
104421
104004

004437

d
d —d
d wd el
b
D
e
id e
ad

TCHKOP

tE RROR
JSR

404
406
410

120000

BYTE
BYTE
312

TWAT3?

104015

;LOAD

042260

Py
&
:0R S5, 6,
R4 ,LRLOAD

64%:

042260

000770

65%:
5%:

;(HECK OPERATION FOR ANY ERRORS

10 :REPORT ALL ERRORS
JLOAD ''L'* REG

JSECTOR 17
JTRACK 0
;CyL 312

17
0

;LOAD

;WAIT FOR

4
:0R S, 6,
R4 ,GEN(COM

REGS

INTERRUPT

;7O SLOW/NOT COMPLETE ERROR
7,

JCHECK OFERATION FOR ANY ERRORS

10 ;REPORT ALL ERRORS
; COMPARE DATA

:MEMORY MANAGEMENT WITH SOURC(E
JRELOCATIUN ARGUMENT

400
BR

MOV
DEC

ERRLMT RO
RO

; COMPARE 400 WORDS
NO MISCOMPARE-EXIT
JREPORT

FIRST MISCOMPARE

JGET ERROR LIMIT
;DECREMENT COUNT

BEQ

65%

60000
BR
ERROR

R4 ,GEN(OM

;CONTINUE

65%

;NO MORE ERRORS = EXIT

649

;LO0P

JSR

104016

INTERRUPT

;400 WORDS
;ACCROSS 32K BOUNDARY

ERROR
JSR

ERROR

REGS

JREAD DATA

1777

001634

JN OBUFF

;70 SLOW/NOT COMPLETE ERROR

120000

JWAIT FOR

ERROR

T(HKOP

001777
000400
000413

013700
005300
001406
004437
060000
000402

;GENERATE DATA
;PATTERN 11
;400 WORDS

T1 OADRK

—d

TWAT96

104430

stu 0096

:TRACK O
JCYLINDER 312

R4 ,GENCCM

JSR
1
400

0422¢0

D
8
PAGE 95

15:17

READ DATA ADDRESS GREATER THAN 32k

.BYTE
312

000

000312
006437
000011
000400

28-AUG=-81

TL JADRK

5024
5025

DIAG

104417

OO0V OOOOOOOOODOOOO

4994
4995
4996
4997
4998
4999

CTRL

B8R

;IF

ZERO - EXIT

DATA COMPARE

JREPORT NEXT ERROR

:‘.ttlttlt..'t'ti.tt'.i"'"'il'*Q.'Q.."fi.Qt'!i"'!'.."!.l‘i'.l

%
»

CORRECT DATA

S ON DISK.

SURE

NOTE :

THIS TEST

MEMORY

IS ONLY EXECUTED IF MORE
[S PRESENT.

THAN 64K

5040
5041

WRITE DATA ADDRESS GREATER THAN 64K

ISSUE A WRITE DATA OF 400 WORDS wiTH ADDRESS = 377770.

MAKE

TE TR

JeTEST 34

5049

[

N NN

5045

5046

OO0
WOMN—O
POV WNIO
NONNO
W= POWO

L AR A28 RRRRARRRRRARRRRRRRRRRRRRdRRRRRRRRRRRRARRRARRR2
Q]

000012
00132¢

001262
000002

000002

001664

ST34:

S(OPE

MOv

#10,,8TIMES

2.D0O 10,

BGE
BIT

2%
#MEMSZB,OPTFLG

JYES=SK]P
,TEST [F REPORT FLAG SET

(MPB

6$:

$MAMS |, #2

sCHECK JF

ITERATIONS

>64K MEMORY

(JROKGO RK6 FUINL

013470
013474

10646401
1064401
104401

013500
013504
013512

052737
000467

5058
5059

013514

012737

5061

013522

5098
5099
5100
5101
5102
5103
5104
5105

013522

001110

042260

013540
013544
013546
013550
013552
013553
(13554

006437
000523

035674

013556
013560
013562

1046417
104430
104002

013564
013566
013570
013574
013576

104421
104004

LOPRO11

JU'INSUSFICIENT MEMORY-DATA XFER WITH

LOPR0O13
,OPR0O1S

BIS

3%:

004437
010011
003777
000400

TYPE

TYPE
TYPE

2%:

JADDRESS

#MEMSZB,0PTFLG

>64K

JBYPASSED"'
JSET

FLAG

B8R

>3 ]

MOV

#3%,8LPERR

JSET LOCAL LOOP ON ERROR

3
R4 ,GENCOM

;BAD

TSSINIT

ERROR
JSR
100

;CLEAR SUSBSYSTEM

;MEM MANAGEMENT ON DESTINATION
JRELOCATION ARGUMENT
;400 WORDS

;LOAD “'L'* REGS

R4, LRLOAD

JSR

INIT ERROR

;GENERATE DATA, PATTERN 1°

3777
400

177400
177770

THAN 64K

JNO=-SK]P

WRDATA!BA16

;WRITE DATA AND SET BAl6
;600 WORDS

JACCROSS 64K BOUNDARY
:SECTOR 20
JTRACK 0

:CYLINDER 312

;LOAD RK REGS
;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

TLOADRK

TWAT96

ERROR

TCHKOP

ERROR

004477
002007
001000

062260

013600
013604
013606
013610
013612
013613
013614
013616
013620
013622

004437
000121

035674

104002

ERROR

013624
013626
013630
01363%¢
013636
013640
013642
013644

104421
104004

ERROR

177400
070414

2
&

0R 5, 6,

JSR

R& ,GENCOM

JSR
RDDATA

R4 ,LRLOAD

BYTE

2007
*000

=400
1BUFF

BYTE
312

004437
110000

003777
000400
000413
104015

T(HKOP

046226(

JSR
110000

3777

400
B8R
ERROR

.REPORT

ALL

ERRORS

;CLEAR [BUFF T0 1°'S

:LOAD ''L'' REGS

;=400 WORDS
JIBUFF IS BUFF ADDRESS
;SECTOR 20

;TRACK ©

;CYLINDER 312
;LOAD RK REGS

TLOADRK

TWAT3?2

;CHECK OPERATION FOR ANY ERRORS

JRDDATA

013524
013526
0135%2
013534
013536

1046416
104003

001664

DATA ADDRCcSS GREATER

5062
5063
5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5084
5085
5986
5087
5088
5089
5090
5091
5092
5093
5094
5095
5096
5097

013522

E
8
PAGE 96

BNE

oY)

5060

0
0
0

WRITE

15:17

00101"

28-AUG-81

-—

013466

30(1046)
T34

5050
5051
5052
5053
5054
5055
5056
5057

MATYTT

JWAIT FOR INTERRUPT
;70 SLOW/NOT COMPLETE

.0R S5, 6,

R4, GENCOM

ERROR

:CHECK OPERATION FOR ANY ERRORS
10 ;REPORT ALL

ERRORS

;CHECK DATA
:MEMORY MANAGEMENT WwITH DESTINATION
JRELOCATION ARGUMENT

;400 WORDS

:NO MISCOMPARES=-SK]P
JREPORT FIRST ERROR

SEQ 0095

"IR6KG0O RKE FCUINL CTRL DJAG
"IR6KG
. P11
28-ALG=81 15:16

[ea
£H
o

—

013700
005300

001634

004437
050000

042260

5107
5108
€109
5110
SIN
5112
5113
5114
S115
5116
5117
5118
5119
5120
5121
§122
5123
§124
5125
5126
§127
5128
§129
2130

013672
013674
013702
073710
013712

000004
012737
123727
002001
000462

3132

013714

012737

5134
5135

013722
013722

104416

5136
5137
5138
5139
5140

5141
5142
5143
5144
5145
5146
5147
5148

013652
13656

001406

136646
}3666

000402
104016

13656
13662

1
1

2670

€4S

28-AuG-81

WRITE

SES 0096

MOV
DEC

ERRLMT RO
RO

JGET ERROR LIMIT
JDECREMENT COUNT

éggoo

RS ,GEN(COM

JCONTINUE DATA (OMPARE

B8R

65%

;NO MORE ERRORS = EXIT

B8R

648

.LOOP

BEQ

ASEEEREE

TEST

THAN 64K

659%

ARl

JIF 2ERO - EXIT

JREPORT NEXT ERROR

READ

DATA ADDRFSS

GREATER

N E R R

A RN AR EERENRREER

K ;

THAN 64K

013724
013726
013732
013734
013736

104003
004437
000123
177400
(072414

021
000
000312
004437
000012
000400

5149
3150

013756
013756
013760

104417
104430
10400¢

5152
5153
5154
5155

013762
013764
013766
013772

104421
104004
004437
000521

013774
013776
014000
014001
014002

177400
177770
021
000
000312

000012
001326

000032

001262
000002

001110

NOTE:
w

RARAE AR

*$135:

AR RSl

SrOPE

IS ONLY EXECUTED
S PRESENT.

;D0 10.

1%:

BGF
B8R

2%
5%

JYES=SKIF
JEXIT

2s:

MOv

#32,8LPERR

TSSINIT

ERROR

$MAMS 1,42

R4 ,LRLOAD

BYIE
.BYTE
312

21
0

TCHKOP

035674

ERROR
JSR

THAN 64K

ITERATIONS

;SET LOCAL LOOP ON ERROR
;CLEAR

SUBSYSTEM

;BAD INIT ERROR
;LOAD "L'* REGS

;WRDATA
;=400 WORDS
JOBUFF IS BUFF

JSECTOR 21
;TRACK O
;CYLINDER 312

R4 ,GENCOM

ADDRESS

:GENERATE DATA
;PATTERN 12
;400 WORDS

TLOADRK

TWAT96
ERROR

JCHECK IF >64K MEMORY

JSR

JSR
12
400

= 377770.

ARl RS2
RS XS R
R
RN
E
NN

#10.,8TIMES

(MPBR

WRDATA
=400
DRUF f

042260

THIS TEST
OF MEMORY

MOV

3%:
035674

ISSUE A READ DATA OF 400 WORDS WITH ADDRESS
CHECK MEMORY FOR CORRECT TRANSFER.

»
2

)

®°

: B

PAGE 97

DATA ADDRESS GREATER

ERROR

65%:
5%:

15:17

;LOAD RK REGS

JWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE

2
&
;0R S5, 6,
R4 ,LRL OAD

ERROR

;CHECK OPERATION FOR ANY

10 ;REPORT ALL ERRORS
;LOAD "'L'" REGS

RDDATA'BA16

;READ DATA AND SET BAlS

1727770

JACCROSS 64r. BOUNDARY

=400

.BYTE

BYTE

312

;400 WORDS

JFROM SECTOR 21

JTRACK O

;CYLINDER 312

ERROK

’

(2 Fie

3?;1046)
A

000770

013740
013741
013742
013744
013750
013752

5156
5157
5158
5159
3160

MACY11

OO
o

"IREKGD RKG FCTNL (TRL DIAG
TZR6K G P
28-AUG-81 15:16

TIROKG0 RKE FCINL CTRL DIAG
TIR6KG. P11
28-AUG=-81 15:16
5162

014004

VMACYTT 3?;;0‘6)

106417

TL OADRK

§163
21gg

014006
014010

1046424
104002

TWAT3?
ERROR

§166

016012

104421

TCHKOP

5167
5168
5169
5770
5171
§272
g};z

014014
014016
014022
016024
014026
014030
014032

106004
004437
120000
003777
000400
000413
104015

§175
5176
§177
5178
5179
5180

0140346
014040
0164042
016044
014050
014052

013700
005300
0014606
006437
060000
000402

5182
5183
5184
5185

014056
014060

000770

5181

)"86

014054

28-AUG-81
15:17 PAGE 98
READ DATA ADDRESS GREATER THAN 64K

042260

001634

648 :

042260

104016

014060

:LOAD RK RQFGS

SWAIT FOR INTERRUP'
STO SLOW/NOT (OMPLETE ERROR

2
7,

:CHECK OPERATION FOR ANY ERRORS

ERROR
JSR
120000
3777
400
BR
ERROR

&
:0OR S5, 6,
R&,GENCON

5¢
15

10 ;REPORT ALL ERRORS
: COMPARE DATA
*MEM MANAGEMENT WITH ‘OURCE
:RELOCATION ARGUMENT
1400 WORDS
*NO MISCOMPARES=SKIP
*REPORT FIRST ERROR

MOV
DEC
8EQ
JSR
60000
BR

ERRLMT RO
RO
65%
R4, GENCOM

:GET ERRGCR LIMIT
*DECREMENT COUNT
S1F ZERO - EXIT
“CONTINUE DATA CCMPARE

65%

:NO MORE ERRORS - EXIT

648

1LOOP

ERROR

65%:

SEG C097

*REPORT NEXT ERROR

5¢:

:.'Qtttl'tttttt'ttttttiitttitt’tttttttt.tttttttttttt'ttt'tt‘Qttttt'

g}gg

SATEST

§189

MAKE SURE CORRECT DATA IS ON DISK.

5192

NOTE:

5194
5195

te
:.'ttttt*tttttttt*itttt"'tti'tt'tt'IQ""Q.'!!ttitittttttitt'ttttt

g;g?
5193

5196
§197
5198
5199
5200
ggg;

014060
014062
014070
(14076
014100
014106

000004
012737
123727
002016
032737
001011

5203
5204
5205
5206
ggg;

01411C
014114
014120
014124
014132

104401
104401
104401
052737
000463

051573
051746
051752
000002

001664

sgqg

014134

012737

014142

201110

5211
§212
5213
5214

014142
014142
014'44
016146

10441€
104003
004437

5216

014154

177400

5215

5217

014152

01415¢

001123
177770

000012
001326

001262
(00003

000002

001664

7$7T36:

WRITE

DATA ADDRESS

GREATER

THAN S6K

ISSUE A WRITE DATA OF 4CO WORDS WITH ADDRESS = 577770.
THIS TEST IS ONLY EXECUTED IF MORE

OF MEMORY

IS PRESENT.

THAN 96K

SCOPE
MOV
CMPB
BGE
BIT
BNE

#10.,$TIMES
$MAMS 1, #3
3$
AMEMSZB,OPTFLG
2%

::D0 10. ITERATIONS
SCHECK IF >96K MEMORY
SYES-SKIP
-TEST IF REPORT FLAG SET
‘NO-SKIP

LOPRO11
“OPRO14
"OPRO15
#MEMS2B,OPTFLG
6%

S'INSUFFICIENT MEMORY-DATA TRANSFET W!TMH
*ADDRESS >96K BYPASSED''

2%:

TYPE
TYPE
TYPE
BIS
8R

3%:

MOV

#48 ., SLPERR

;SET LOCAL LOOP ON ERROR

1%:

4$:
035674

:SET REPORT FLAG

TSSINIT
ERROR
3
JSR
R4 ,LRLOAD

;CLEAR SUBSYSTEM
:BAD INIT EPROR
SLOAD ‘L' REG

-400

2400 WORDS FROM

WRDATA BA17
177770

‘WRITE DATA AND BA17
SACTROSS

96K BOJNDARY

(IR6KGC RKE FUTNL

014160

014161

BYTE
042260

R4 ,GENCOM

;GENERATE DATA

;70 SECTOR 22

o000

104421

T(HKQOP
ERROR

004437

JSR

R4, LRLOAD

TWAT96

104004

035674

RDDATA
=400

177400

070414
022
000
000312

IBUFF

.BYTE

AYTE
312

:LOAD RK REGS

001634

66%:

042260

104016

65%:

;LOAD

ERRORS

L' REGS

;RDDATA

[S BUFF

ADDRESS

FOR

INTERRUPT

2TO SLOW/NOT COMFLETE ERROR
;0R 5,

B8R

6%
15

ERRLMT RO

;CHECK OPERATION FOR ANY ERRORS

10 ;REPORT ALL

ERRORS

; COMPARE DATA
JMEM MANAGEMENT WITH DESTINATION

JRELOCATION ARGUMENT
;600 WORDS

;NO M]ISCOMPARE S-BRANCH
JREPORT
JGET

1ST ERROR

ERROR LIMIT

DEC
BEQ

RO
65%

sDECREMENT COUNT
JIF ZERO -~ EXIT

B8R

65%

:NO MORE ERRORS - EX]7

ERROR
BR

R4, GENCOM

16
64%

. CONTINUE

DATA

(OMPARE

JREPORT NEXT ERROR
;LOOP

6%:
.'."..Q"Q"."'.""""""."...'.".'..‘""'l'.fl.‘.""‘.‘..'

JwTEST 37
8

000770

; CHECK OPERATION FOR ANY ERRORS

10 ;REPORT ALL

JWAIT

R4 ,GENCOM

égSOO

ERROR

:LOAD RK REGS

JSR
110000

MOV

COMPLETE

READ DATA ADDRESS GREATER THAN 96k

ISSUE A READ DATA OF 400 WORDS WITH ADDRESS =
CHECK MEMORY FOR CORRECT TRANSFER.

577770.

014302

013700
005300
001406
004437
050000
000402

014256
014262
014264
014260
014272
014274
014276
01430C
014302

INTERRUPT

:SECTOR 22
;TRACK 0
JCYLINDER 312

ERKOR

FOR

SLOW/NOT

;IBUFF

ERROR

5777
400

—

T(HKOP

104015

;0R S5, 6,

104421
104004

005777
000400
000413

;TO

TLOADRK
TWAT3?
ERROR
2

0422¢0

;WAIT

;=400 WORDS

104417
104424
104002

014254

JPATTERN 13 MEM MAN wITH DEST.

TLOADRK

CGOO

JEOF S SP O QP

OO0OO0O0OO0OO0OO0

ERROR

110000

;evL 312

JRELOCATION ARGUMENT
;600 WORDS

1064002

004437

SEQ (098

;TRACK 0

104417
104430

000121

22
0

022
000
000312
004437
010013
005777
000400

30(1046)
28-AUG=-81
15:17
PAGE 99
136
WRITE DATA ADDRESS GREATER THAN 96K

}

014162
014164

2B8=AUG=81 15:1¢

VACYTY

IV AV TV I

[ TV

VL I

ASLSLNTLSTLNL
NN,V ST, G, V1,V L ST ST N1, V1, S1,81,¥]~
AN N A N RN N WNPO PO PO N PO RO RO N NI R — -—
NOWNWA
2O O
NP NS WA
OO oo

YV TV TV TV T TV TV TV TV 1Y ) N

P
6K
TIR.

(TRL DIAG

NOTE:

THIS TEST
OF MEMGRY

IS ONLY EXECUTED
S PRESENT,

THAN 96k

TIREXGT RKE FUTNL (TRL DIAG
“IR6KG.P1T2B=AUG=81 15:16

MACYT? 3?;;066)
ie

5274

S27s

5076

:."QQ"Q."Q‘.QQ'Q'Q'"'Q."'QQ".."'."""..'QQ".."..'Q.'.'.

014302

000004

5277
5¢78
5279
3080

014304
014312
014320
014322

012737
123727
002001
000462

000012
007326

3082

014324

012737

014332

5084
5085

014232
014332

104476

5088
5289
5290
5091
5292
5293
5294
5295
5296
3297

014336
014342
014344
014346
014350
014351
014352
014354
014360
074362

004437
000123
177400
072414
005
000
000312
004437
000014
000400

5299
5300
3301

014364
014366
014370

104417
104430
104002

§303

014372

104421

286

5304
5305
5306

5307
5308
5309
5370

3311
5313

5314
3315

I 8
28-AuG-81
15:17 PAGE 100
READ DATA ADDRESS GREATER THAN 96K

014334

014374
014376
014402

014404
014406
014410
014411

001110

t8§737:

104004
004437
001121

28:

#70.,$TIMES
SMAMS?,#3
3%
63

;DO 10, ITERATIONS
SCHECK [F >96K MEMORY
SYES=SKIP

38:

MOV

443,SLPERR

;SET LOCAL LOOP ON ERROR

4$:

035674

014414

104417

TSSINIT
ERROR
3

:CLEAR SUSSYSTEM

JSR _

:LOAD "L** REGS
:WRDATA
:=400 WORDS
:0BUFF IS BUFF ADDRESS
:SECTOR §
:TRACK 0
:CYLINDER 312
:GENERATE DATA
:PATTERN 14
:400 WORLS

WRDATA
=400
0BUFF
BYTE
BYTE

312

042260

JSR
14
400

:BAD INIT ERROR

R&,LRLOAD

5
0
R&,GENCOM

TLOADRK
TWAT96
ERROR
2
TCHKOP

ERROR
4
:OR S, 6,
JSR__
R4, [RLOAD
RDDATA.BA17

035674

177400
177770
005
000

000312

sCOPE

MOV~
(MPB
BGE
BR

104003

01412

014416
014420

001262
000003

=400
77770
BYTE
BYTE

312

:LOAD RK REGS
‘WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

TWAT 32
ERROR

5317014422
5318 014424
531 014426
§320
014432
§321
014436
$222
014436

104421
104004
004437
120000
005777
000400

TCHKOP
ERROR
JSR
120000
5777
400

5326

014442

104015

5326
5327
$328
5329

014444
014450
Q14452
014454

013700
005300
001406
004437

0462260

5323 014440 000413

5
0

SOYL 312

001634
0462260

64$:

:LOAD RK REGS

‘WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

4
;OR 5. 6,
R4, GENCOM

B8R

MOV
DEC
BEQ
JSR

. ERRLMT,RO
RO
658
R&,GENCOM

ERROR

10 ;REPORT ALL ERRORS
:LOAD 'L"* REGS
:READ DATA WITH BA17 SET

:400 WORDS
:ACCROSS 96K BOUNDARY
:FROM SECTOR 5
: TRACK 0

TLOADRK

104424
104002

;CHECK_OFERATION FOR ANY ERRORS

:CHECK_OPERATION FOR ANY ERRORS
10 ;REPORT ALL ERRORS
: COMPARE DATA
:MEM MANAGEMENT WITH SOURCE
:RELOCATION ARGUMENT
:400 WORDS

ENO_MISCOMPARE S=SK1P
:REPORT FIRST ERROR

:GET ERROR LIMIT
:DECREMENT COUNT
S1F ZERO - EXIT
:CONTINUE DATA (OMPARE

SEa 0099

(IR6KGO RKE FCTNL CTRL DIAG
(IR6KG.P1Y
28-AUG=-81 15:16

3?;;046)

28-AUG-81

104016

000770

65%:

15:17

J
8
PAGE 101

READ DATA ADDRESS GREATER

60000
B8R

060000
000402

ERROR
BR

65%

SEQ 0100

THAN 96K

;NO MORE ERRORS - £Xx]T

16
64%

;REPORT NEXT ERROR
;LOOP

6%:

014470

::t'ttttl't"ttttttttttt't'titflt'ttttttttti'ttttt'tttvt'ttt'tlttt

J*TEST 40

PARTIAL

SECTOR WRITE DATA

o
it

ISSUE A WRITE DATA OF 103 WORDS TO CYLINDER 312,
HEAD 0, SECTOR 0. MAKE SURE THE SECTOR WAS
ZERO FILLED CORRECTLY.

;:'ttttttttttttkttttt'it'ttttttt!tttttttt'tttttttttttttttQtttt"'
000004
012737

004437
000123

OB
O

004437

[0 RV, LV, LV, [V, RV, ]

000121

3SEY Y2
PO o

DNOVSOLO

S F R ¥ LW L P o
2

SCOPE

MOV

#10.,8TIMES

;:DO

ERROR

:BAD INIT ERROR

JSR

R4 ,LRLOAD

TSSINIT

WRDATA
-103

042260

7
0

JSR
3

R4 ,GENCOM

TLOADRK

035¢74

:WRITE DATA
:WORD COUNT PARTIAL

SECTOR

:GENERATE DATA
:PATTERN 3
;400 WORDS
:LOAD

RK REGS

;WAIT FOR

ERROR

&4 ;

JSR

R4 ,LRLOAD

INTERRUPT

:TO SLOW/NOT COMPLETE ERROR
OR 5.6.7

070414
007
000
000312

.BYTE
BYTE
312

7
0

JSR

R4 ,GENCOM

=400
IBUFF

;LOAD ''L'' REG

JSECTOR 7
:TRACK 0
;CYLINDER 312

400

TCHKOP

ITERATICONS

:BUFF ADDRESS

.BYTE
BYTE
312

TWAT96

10.

;CLEAR SUBSYSTEM

:(HECK FOR ANY ERROR

:REPORT ALL ERROR

;LOAD “‘L"" REGS
:READ

DATA

;ONE FULL SECTOR
;BUFF ADDRESS

:SECTOR 7
:TRACK 0O
:CYLINDER 312

[o N

3N ) ¥

~NONON

LAV

IV
NN

R
23X

OOO0OO0O0O0O

TST40:

RDDATA

104417
106424
104002

OO0

001262

OBLUIFF

177400

004437
002007
000400

oW LI

OO0

—

QOO

104421
104004

OO0

104417
104430
104002

2 —a

035674

072414

004437
000003
000400

—

000012

177675

ONONESNVO

104416
104003

OO0

5365

014460
014462
014464
014466
014470

F ¥

AN NN NN NN S SN IS 8N IS B B IS S B NN W WNIN VNN
WN 22OV
N NS WA 2O 000 NN
Wiy
£~ WN)
= OOV

o OO

AT A N

AN N LA LN N N N O A WA A A U

NN NN NN

AN N N NIVHA NN

N AN NN NN AN NN AN N NN NN N NN AN

5330
5331

VMACY11

042260

2007

400

TLOADRK

TWAT3?
ERROR

:CLEAR IBUFF
:LOAD RK

REGS

T0 ALL ONES

;WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE

5386
g%gg

014600
014602

10642°
104006

5389
5390
5391
5392
5393
5394
€395
5396
5397
g%gg

0146046
014610
014614
014616
014620
014622
014626
014630
014632
014634

012701
012700
005021
005300
001375
004437
100000
000400
000413
104015

5600

014636

013700

56401
5402
5403
56404
5405
5406
g:g;
5409

5610

014642
014644
014646
014652
014654
014656
014660

005300
001406
004437
040000
000402
104016
000770

MACY1T

30(1046)
140

K
8
15:17
PAGE 102
28~AUG-81
PARTIAL SECTOR WRITE DATA

T(HKOP
ERROR
072622
000275

1$:

042260

00°63%4

2%:

014667

3%:
AN

22};

MOV
MOV
(LR
DEC
BNE
JSR
100000
400
8R
ERROR

#0BUFF+206,R1
#275,R0
(R1)+
RO
18
R& ,GENCOM

. COMPARE OBUFF & ]BUFF.
JALL 400 WORDS
sNO ERRORS-EXIT
;REPORT FIRST COMPARE ERROR

MoV

ERRLMT RO

JGET ERROR LIMIT

3%
16

;CONTINUE COMPARE
sNO MORE ERRORS-EXIT
JREPORT NEXT COMPARE ERROR
;LOOP

DEC
BEQ
JSR
40000
BR
ERROR
BR

042260

;CHECK FOR ANY ERRORS
JREPORT ALL ERRORS

4 ; COR 5,6.7

;(CLEAR THE LAST 205 WORDS
;,OF THE QUTPUT BUFFER TO ZERO
;70 VERIFY THE PARTIAL SECTCR
JWRITE O FILLED THE SECTOR

3¢

RO
3$
R4 ,GENCOM

;DECREMENT IT
;IF ZERO-EXIT

RN RN R AR

AR AR A RN IR

*TE T 43

PARTIAL

AT RS AR AN AR R R RN RN R RN R RN R AR RN R AR A AR RN R AR E WS

SECTOR READ DATA

*wN

5413
5414
5415
5416

M
.t
i
o

5419

:-. A NN R R AR

221;

5420
5421
5422
2252

014662
014664
0146672
014674

000004
012737
104416
1046003

56425
5626
5427
5428
54629
5630
5431
5432
5633
gzgg

014676
014702
014704
014706
0147710
014711
014712
014714
014720
014722

004437
000123
177400
072414
017
000
000312
004437
000004
000400

5636
5637
gz%g

014726
014726
014730

104417
104430
104002

5440

014732

104421

5441

014734

104004

000012

035674

042260

001262

TST41:

WRITE CYLINDER 312, TRACK 0, SECTOR ZERO WITH A
KNOWN CONFIGURATION.
ISSUE A READ DATA OF
103 WORDS TO CYLINDER 312, TRACK 0, SECTOR 0.
MAKE SURE ONLY 103 WORDS GET TRANSFERRED

TO MEMORY.

R A AR AN N AR

AR TN RN R AN R AN AN R AN A NN AR RN RN R RN AR RN R RO N ®

SCOPE
MOV
#10. ,$TIMES
TSSINIT
ERROR
3

::D0 10. ITERATIONS
sCLEAR SUBSYSTEM
;sBAD INIT ERROR

JSR
WRDATA
=400
OBUFF
BYTE
BYTE
312
JSR
4
400

lOAD "L'* REGS
WRDATA
'-400 WORDS
;sOBUFF IS BUFF ADDRESS
:SECTOR 17
;TRACK 0
sCYLINDER 312
;GENERATE DATA
JPATTERN 4
;4600 WORDS

R4 ,LRLOAD

17
0
R& ,GENCOM

TLOADRK
TWAT96
ERROR
2
TCHKOP

ERROR

sLOAD RK REGS
sWAIT FOR INTERRUPT
;7O SLOW/NOT COMPLETE ERROR
;O0R 5,

;CHECK OPERATION FOR ANY ERRORS
10 .REPORT ALL ERRORS

SEQ 0101

[
Y]

CZR6KGO RK6 FCTNL CTRL DIAG
CZREKG.PIN
28-AUG-81 15:1¢

(IR6KGO RK6 FCTNL CTRL DIAG
CIR6KG.P11
2B=AUG-81 15:16

VMACY11 392}046)

5447
5443
5446
5445
5646
5647
56448
5449
5450
5451
3432

016736
014762
014744
016746
014750
014751
014752
014756
014760
014762

004437
000121
177675
070414
017
000
000312
004437
002007
000400

5454

014764

104417

TLOADRK

5456
5457

014770
014772

104002
104421

ERROR
TCHKOP

ERROR

MOV

#OBUFF +206,R0

5455

3458

5460

5461
5462
5463
5464

014766
014774

014776

015002
015006
015012
015014

5465
5466
5467
5468
gzgg

015016
015022
015024
015026
015030

5471
5472
5473

015032
015036
015040

5474
5475
5476
5477
5478
5479
5480
5481
5482

015042
015046
015050
015052
015054
015056

£35674

JSR

RDDATA
IBUFF

.BYTE
BYTE
372
1SR
2007
400

042260

TWAT3?2

104004

012701
012720
005301
001374

072622

000275
177777

004437
100000
00040,
000413
104015

042260

013700
005300
001406

001634

004437
040000
000402
104016
000770

R4 ,LRLOAD

MOV
MOV
DEC
BNE

JSR
100000
400
BR
ERROR

648:

042260

658

015056

MOV
DEC
BEQ

JSR
40000
BR
ERROR
BR

SEQ 0102

;LOAD ''L"* REGS
*RDDATA
<103 WORDS
*IBUFF 1S BUFF ADDRESS
“SECTOR 17
“TRACK 0
*CYLINDER 312

-103

104424

012700

28-AUG-81
15:17 PAGE 103
PARTIAL SECTOR READ DATA

17
0
R4, GENCOM

:CLEAR IBUFF
;LOAD RK REGS

JWAIT FOR INTERRUPTY
;OR S, 6,

TO SLOW/NOT COMPLETE ERROR
“CHECK OPERATION FOR ANY ERRORS
10 ;REPORT ALL ERRORS

:AFTER THE LAST 205 WORDS OF

#275.R1
#=1,(R0)+
R1
18

*THE OUTPUT BUFFER TO ALL ONES.
*THESE SHOULD ALL BE ONES IN
*IBUFF BECAUSE THE PARTIAL
*READ FILLED ONLY 103 WORDS.

38
15

;ALL 400 WORDS
*NO ERRORS=-EXIT
;REPORT FIRST COMPARE ERROR

ERRLMT , RO
RO
658

:GET ERROR LIMIT
*DECREMENT COUNT
IF ZERO - EXIT

65%
16
648

:NO MORE ERRORS - EXIT
JREPORT NEXT ERROR
*LOOP

R4, GENCOM

R&, GENCOM

GO COMPARE

IBUFF & OBUFF

*CONTINUE DATA COMPARE

38:

“"ttt**tttl’it*ttit*ttt"tt".t'tttttttltl’ltttttttt'ttitttfittttttt

5483

TATEST

WRITE

DATA WITH NON-EXISTENT MEMORY

- %

5485

5488
5489
5490
5491
5492

015056
015060
015066
015070

000004
012737
104416
104003

:'"t*tttt*tttttl’ttttttt'ttittttfiIi‘*'i"t.ltiti't'ttttt'ttttttt'tt
§T42:
SCOPE
MOV
#10.,STIMES
::D0 10. ITERATIONS
TSSINIT
*CLEAR SUBSYSTEM
ERROR
3
BAD INIT ERROR

5494

015072

004437

5497

015102

176000

2486

5495
5496

P
L

015076
015100

001523
177777

000012

035674

001262

ISSUE A WRITE DATA OF

1 WORD USING ADDRESS 776000.

MAKE SURE NON~EXISTENT MEMORY SETS.

JSR

R4, LRLOAD

BA16!'BA17 ' WRDATA
-1
176000

;LOAD ''L'’ REG

;BA16 & 17 SET WITH WRITE DATA
*WORD COUNT OF 1
“BUFF ADDRESS=10 PAGE BASE

—

Naun

O00
O
e

OO0
b
b
D
D
D
D
d
D ed el
d
D cad
ed
d cd
b

13
0

ERROR

TCHKWE

0
0

NEMERR

001450

061072

001204
000003

001202

176002

001544

054123

001450
001202
001204

001544

001542
054076
001202
001542

4 ;0RS.,6,7
#EM1TA_EMION
#OPER4G?,DF010A

BIC

,R0O
#177774

C(MP

000003

176002

ERROR
MOV
MOV
MOVB

BEQ
MOV
MOV
ERROR
(MP
BEQ
MOV
MOV
MOV
ERROR

2%:

TST
BEQ
MOV

001450

T.CS1+1,R0

#3,R0

1%
RO,$REG11
#3,8REG10
10

;SECT 13

;TRACK 0

;CYLINDER 312
;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE

JNON=-EXISTENT MEMCRY ERROR
JREPORT ANY DISCREPENCIES

;SET UP ERROR MESSAGE
;WITH SUPPORT MESSAGE
;GET UPPER (S1
;CLEAR UNUSED BITS
JTEST IF BOTH UPFPER BUS BITS StT
;YES

- SKIP

;SET UP FOR ERROR REPORT
;TEST

BUSS ADDRESS

T.WC
3%
#EM10,EMION

;TEST

WORD

T.BA,$REG11
10

ERROR

;CHECK OPERATION WITH ERROR

#176002.7.BA
2%
#EM11,EMION
#176002,8REG'0

CLR
$REG10
MOV
T.WC,$REG1T
ERROR 10

001204

SEQ 0103

;LOAD RK REGS

TLOADRK

TWAT96

177774

LOW OKAY

JYES - SKIP
;SET UP MESSGAE
;STORE VALUE FOR REPORT

JYES - SKIP

COUNT

CORRECT

;SET UP MESSAGE

3%:

015262

':***tfi*tttkt*ttttl’*t*'fitttti*t*tt**Q**tfi'ttfiifittt*tttttttttttttt

J*TEST 43

READ DATA WITH NON-EXISTENT MEMORY

ISSUE A READ DATA OF 1 WORD USING ADDRESS 776000.
MAKE SURE NON-EXISTENT MEMORY SETS.

Pe
e

004437
001521

—

wd md

OOO0OO

000004
012737

QOOOOOOD

W2 O VOO NO NS WA

VN NN

m
8
15:17 PAGE 104
30(1046)
28-AUG- 81
142
WRITE DATA WITH NON=-EXISTENT MEMORY

.BYTE
BYTE
312

054151
050650
001541

T
PUONINONIND

d aed aed md
—
T
S

OOOOCOO0O

LATAIALY
oo
VoP SUNW

T
A I
A
TN
D = b md d ced —d e ed D b b oD e

AIIAWE
d —d D

104417
104430
104002
104422
000000
000000

MACY11

2OV

NOWVME W

2000 NPV

WOV

—=OO0

S BN SN DNWWWWWWWWWWRIND
NN MNMNMNNONN D =S
D 00 aaaa0

WA
VWAL AT LAV
A AN LA LA VAT TN L T VTN LA
N NN A T WA N VLN WL
[V TV IV TV TV IV, LV, IV AV TW TV TV SV RO TV SV RV YW VL IV L
RV, RV, SV TV, JW W RV LU U, R TV TV W LV RV [V, LU W, RV, AV, LV [V, (W, IV, | (%

013
000
000312

OOOOOOOOOOOOOOOOOOOOOOO

5498

WL OONNOOO
NS WWNIINNIN D =2
oSO
OV OO SO SOOI OONESNVO

CZR6KGO RK6 FCINL CTRL DIAG
TIREKG P11
28-AUG-81 15:16

104416
104003

177777
176000

013
000
000312

000012

035674

001262

ASALEEE

TST43:

LRSS0

RRRRRRRRRRdRRERRtRRRRRRRR

SCOPE
MOV

#10.,8TIMES

ERROR

;CLEAR SUBSYSTEM
;BAD INIT ERROR

JSR

R4 ,LRLOAD

;LOAD ''L'’' REG

176000
.BYTE
BYTE
312

13
0

TSSINIT

B?T6.BA17.RDDATA

;.DO 10. ITERATIONS

:BA16 & 17 WITH READ DATA
;WORD COUNT OF 1

;BUFF ADDRESS=10 PAGE BASE

;SECTOR 13

:TRACK 0

JCyl 312

]

30(1046)
T43

000000
000000
000040

012737
012737
113700

042700
022700
001406
012737
010027
104010

022737

001412
012737
012737
013737
104010

012737
005937
013737
104010

15:17

0014
0610

000003
001204

001202

176002

001544

JWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR
JCHECK OPERATION WITH ERRORS

054123

001450
001202
00120«

176002
001544

05407¢
001202
011542

4, OR 5,6,7

MoV

#OPER4S,DFO10A

MOVB

sSET MESSAGE

:SET SUPPORT MESSAGE

;GET UPPER (S1
;CLEAR UNWANTED BITS
STEST BOTH BUS 16 & 17 SET
JYES - SKIP
sSET VALUES FOR REPORT

CMP

#176002,T.8BA

;sTEST IF BUS ADDRESS CORKECT

MOV
MoV

#176002,9REGTIC
T.BA,$REG11

;SET VALUES FOR REPORT

ERROR
TST

1%
#3,%REG10
?8.$REG11

2%
#EM11,EMION

JYES = SKIP
sSET MESSAGE

T.WC

JTEST

$REG10

sSET MESSAGE
;SET VALUES

BEQ
Mov

3$
#EM10,EM10N

MOV
ERROR

T.WC,$REG11T
10

CLR

001204

T.CS1+1.RO

JREPORT ALL DISCREPANCIES

#177774
,R0O
#3,R0

BFQ
MOV

001450

HEM11A EMION

NON-EXISTENT MEMORY ELRROR

BIC
(MP

BEQ
MOV
Mov
ERROR

2%:

001542

ERROR

MoV

1%:

SEQ 0104

;LOAD RK REGS

NEMERR

054151
050724
001541
177774
000003

PAGE 105

READ DATA WITH NON-EXISTENT MEMORY

TWAT96
ERROR
6CHKUE

104002
104422

104004

28-AUG-81

TLOADRK

104417

104430

005737
001411

015464

MACY11

~N\Wn
"o

INW (N NN N N NN
N N N NN NN
=2 —2
~NOor o NN S INWWWNINONOND
~Hon H OO
NNOOSNOON

GurPurfuee
par Qs GunrGuurGner G

GaurSus Guur

GGG

e]oleleleleBoleleololelolelelalelalololalelels]

WORD

JYES = SKIP

COUNT

CORRECT

3%:

015466

':*tttti**tt*fittt*tttttttttittttitt*'iitfi'tttttttttitttttttt'tttt

*TEST

UNIBUS

PARITY

ERROR

INITIALIZE A MEMORY LOCATION WITH BAD
PARITY. ISSUE A WRITE DATA OF 400 WORDS

STARTING AT A LOCATION 112 WORDS BEFORE
MAKE

SURE

THE LOCATION WITH BAD PARITY.
THAT UNIBUS PARITY ERROR SETS.

“s w8,

NOTE:

THIS TEST IS ONLY EXECUTED IF
MEMORY PARITY OPTION EXISTS FOR

BUFFER. IT WILL NOT BE EXECUTED
ON 'ECC' TYPE MEMORY.

‘%

[

TP
Yo
cCoO=0O
SO
oS
S=S
NON N

(0,70 N o Yo SW TV ]V, IV LV, | (Vo
WrR =2 OOV00 O &»

(VL IV, IV, LV, TV, TV, IV, IV, [V, | (%,
VIV AV IV IV TV TV IV, TV, (9,

CZR6KGO RK6 FCTNL CTRL DIAG
CZREKG P11
28-AUG=-81 15:16

000012

001262

ARASE RS SRRRARRRRRRR2RRRRRRRRRRRRRRRRRRRRRRRRRRRRRER
2]

15744

SCOPE
MOV
#10. ,$TIMES
TSSINIT

ERROR

;:D0 10. ITERATIONS
;CLEAR SUBSYSTEM

;BAD

INIT ERROR

(ZR6KGD RK6 FCTNL CTRL DIAG
TIR6KG.P1Y
28-AUG-81 15:16

28-AUG-81
15:17 PAGE 106
UNIBUS PARITY ERROR
BIT
BNE
BIT
BNE

#PARPRE ,OPTFLG
19
#MEMPYB,OPTFLG
25$

,TEST IF PARITY OPTION PRESENT
;YES=SKIP
,TEST IF PARITY OPTION REPORTED
JYES-SKIP TO EX]T

BIS
JMP

#MEMPYB ,OPTFLG
43

;SET OPTION REPORTED BIT
JSKIP TO EXIT

JSR
WRDATA
=400
OBUF F

R4 ,LRLOAD

BYTE
312

BIT
ENE
(LR

#CP1170,0PTFLG
3%
aCSRPTR

TEST IF 11/70
;YES - SKIP
;CLEAR PARITY IE

JSR
7
400

R4 ,GENCOM

;GENERATE DATA
JPATTERN 7
;400 WORLS

MoV

#PR7 ,=(SP)

;PUT PRIORITY 7 CN STA(CK

MOV
BIT
BNE
MOV
MOV
MOV

#100200,0BUFF+224 ;SET WORD N BUFFER
#CP1170,0PTFLG
TEST IF 11/70
5%
JYES - SKIP
#BIT2 ,@CSRPTR
.SET WRITE WRONG PARITY BIT
#100200,0BUFF+224
;SET BAD PARITY IN MEMORY
#BIT0,aCSRPTR
;CLEAR CONTROL BIT, SET IE BIT

MOV
MOV
RTI
MoV
CLR
MOV
MOV
MOV
MoV
TLOADRK
BIT
BEQ
MOV

RKPRI ,=(SP)
#11%,-(SP)

MOV

#170000,177750

015502
015510
015512
015520

032737
001013
032737
001005

000100

001664

000004

001664

5615
2219

015526
015534

052737
000137

000004
016326

015522

5618
S619
5620
5621
5622
5623
5624
2252

015540
015540
015544
015546
015550

104401

0576452 ¢

035674

015552
015553
015554

004437
000123
177400
072414
010
000
000312

5627
5628
22%8

015556
015564
015566

032737
001002
005077

002000

2631
5632
52%2

015572
015576
015600

004437
000007
000400

042260

015602

012746

000340

5635

5636
5637
gggg

015606
015612
015614

012746
000002

001664

TYPE

25%:
1%:

001664

164100
3$:

015614
'

108:

015614
015622
015630
015632
015640
015646

012737
032:37
001011
012777
012737
012777

100200
002000

072640
001664

000004
100200
000001

164032
072640
164016

5647
5648
5649
5650
5651
5652
5653
5654
5655
5656
5657
5658
5€59

015654
015660
015664
015666
015672
015674
015700
015706
015714
015722
015724
015732
015734

013746
012746
000002
013704
005000
012701
012777
012777
012737
104417
(032737
001434
012737

001622
01566¢

5%:

001672

11%:

"5662

015756

012737

170000

5664

5665

015742
015750

015764

012777
012777

105711

.OPRO10

.BYTE

5640
5641
5642
5643
5644
2222

5660
5661

MACYT] 3921046)

5610
5611
5612
5613

56164

001662
070400
070410
016302

163712
164002
001264

002000

001664

000016
000000
000000

177746
163740
163166

MOv
RT]

MOV
MOV

177750

CRAARARAA AR

40$:

TST8

#10%,-(SP)

JPRINT BYPASS MESSAGE

;LOAD ''L'" REGS
;WRDATA
;=400 WORDS
;OBUFF IS BUFF ADDRESS
;SECTOR 10
;TRACK 0
;CYLINDER 312

;PUT ADDRESS ON STA(K
JSET PRI

;SET OLD PRIORITY
. SET ADDRESS
JRESTORE PRI
CSRPTR,R4
JSET R4 WITH CSR POINTER
RO
;SET RO FOR COUNTER
#INTSET,R1
;SET R1 FOR POINTER TO INTERRUPTM FLAG
#SPCHLR ,dRKVEC
;SET UP INTERRUPT VECTORS FOR
#SPCPAR,aMMVECA ; RK611 AND PARITY ERROR
#2%,$ESCAPE
;SET UP ESCAPE FOR ERROR
;LOAD RK REGS
#CP1170,0PTFLG
TEST IF 11/70
45%
;NO - SKJP
#16,177746
JSET TO DISABLE CACHE AND UNIBUS ERROR

#0,aKWLADD
#0,3$TKS

RN AN R NS

(R1)

;TURN OFF CLOCK INTERRUPTS
:TURN OFF KEYBOARD

:SET FOR ERROR FORCE

;LOOP TO WAIT FOR INTERRUPT OR ABORi

SEQ 0105

TZR6KGO RK6 FCINL CTRL DIAG
"IR6KG.F11
28-AUG=-81 15:16

5666
5667
5668
5669
5670
5671
5672

015766
015770
015772
(015774
015776
016000
016002

003005
005300
100774
000240
003372
000240
005014

5674
675
5676
5677
5678
5679

016004
016010
016016
0160246
016026

005037
012777
012777
104430
000414

5673

5680
5681
5682
5683
5684

gggg

5687
5688
5689
5690
5681
5692
5693
5694
5695
5696

016030
016036
016040
016044
016050

016056

032737
001024
005077
005037
012777

000414

016060
016066
(16070
016074
016100
016106
016110
016110
075112
016114

032737
001007
005077
005037
012777
104002

016120

104004

MACY11

16367¢
16310

002000

001664

163626
072640
000001

163614

002000

001664

163576
072640
000001

163564

104422
000000
000000

5697

016116

5700
5701
5702
5703
5704

016122
016126
016134
016142
016150

005037
012737
012737
023727
103010

001264
050777
054123
001544

061072
001450
(072642

5706
5707
2;88

016160
016166
016170

012737

013737
104010
000413

072642
001544

001202

57°0
5711
5712
5713

016172
016200
076202
016210

023727
101407
012737
012737

001544

(072646

072646
001544

001202
001204

5716
5717
5718
5719
5720
5721

016220
016226
016234
016236
016244
016252

012737
023727
103007
012737
013737
104010

054076
001542

001450
177513

177513
001542

001202
001204

gggg

5705

g;}g

016152

016216

107

JWAIT, THE (CODE BETWEEN THE STARS IS SET
JSET UP SO ALL BYTES HAVE PARITY OF 1,
JIF THIS CODE [S CHANGED, REMEMBER ALL
JBYTES MUST HAVE AN EVEN NUMBER OF
JBITS.

43%:

BGT
DE(
BM]
NOP
BGT
NOP
(LR

45%:

(LR
MOV
MOV
TWAT96
BR

46%:

L7%:
488

(RG)
e

177746
#B]1T6,9KWLADD
#100,28TKS

.CLEAR ERROR FORCE

4698

JENABLE CACHE
;TURN ON CLOCK INTERRUPTS
;TURN ON KEYBOARD INTERRUPTS
;WAIT FOR INTERRUPT
;70 SLOW/NOT COMPLETE ERKOR

4«8$

JSKIP

#CP1170,0PTFLG
47%
aCSRPTR
OBUFF +224
#1,aCSRPTR
2

TCHKWE
0
0
OR 5.,6.7

,TEST IF 11/70
JYES - SKIP
JELSE CLEAR (SR
;CLEAR THE BAD PARITY WQRD
JSET PARITY DETECT AGAIN

TEST IF 11/70
JYES - SKIP
;CLEAR (SR
;CLEAR BAD PATITY WORD
JSET UP PAR]
v DETECT AGAIN
JREPORT T0 SLOW ERROR
.
JCHECK OPERATI N WITH ERROR

;UNIBUS PARITY ERROR

ERROR

(LR
MOV
MOV
CMP
BHIS

$ESCAPE
JCLEAR ESCAPE
#OPER&GL ,DFOT0A
;SET MESSAGES FOR REPORT
#EM11,EMION
T.BA,#OBUFF+226 ;CHECK IF BA [N RANGE
14%
:NOT T0 LOW - SKIP

JREPORT ALL DISCREFANCIES

MOV

#OBUFF*226.SRE616 ;SET VALUES FOR REPORT

(MpP
BLOS
MOV
MOV

T.BA,#0BUFF+232 ;(HECK [F BA IN RANGE
16%
;YES - SKIP
#OBUFF+232 ,8REG10 ;SET VALUES
#T.BA,$REGT

MOV
(MP
BHIS
MOV
MOV
ERROR

#EM10,EMION
T.WC, #-265
20%
#-265,8REG10
T.W(,$REGT
10

ERROR

16%:

BIT
BNE
CLR
(LR
MOV
ERROR

MOV
ERTM LR
BR
14%:

408

#(P1170,0PTFLG
48%
a(SRPTR
OBUFF +224
#1,a(SRPTR

UPERR

001204

43%
RO
409

BIT
BNE
CLR
CLR
MOov

000100

104010

28-AUG-81
15:17
PAGE
UNIBUS PARITY ERROR

177746
000100
000100

30(1046)
T44

T.BA,$REG11
10
16%

;SET MESSAGE
JCHECK IF WORD COUNT WITHIN RANGE
JYES - SK]P
JSET VALUES

SEQ 0106

(ZR6KGO RKG FCINL CTRL DIAG
JIR6KG. P
28=-AULG=-81 15:16
5722

5723

5726
5725
5726
5727
5728
5729
5730

016254

016262
016264
016272
016300
016302
016302

023727

101407
012737
013737
104010
005037

MACY11

3921046)

001542

177515

20%:

177515
007542

001202
001204

001264

2%:

9
D
28-AUG-81
15:17 PAGE 108
UNIBUS PARITY ERROR
(MP

BLOS
MOV
MOV
ERROR
(LR

T.WC,#-263

2%
#-263,3REGT0
T.WC,$REGT
- 10
$ESCAFE

;STILL

SEQ 0107
CHECKING

JYES - SKIP
JSET VALUES

Ww(

IN RANGE

.
;REV 006

)

"IR6KGD RKG FUTNL CTRL DIAG
TIR6KG.PTT
2B=-AUG=-81 15:16

5731
5732

016306
016314

2;%2

01632G

5735
5736
5737
2;%%

016326

012777
004737

012777

034442
(034522

000100

MACYT

3?(1046)
28-AUG=B1
15:17 PAGE
44
UNIBUS PARITY ERROR

163304

MOV
JSR

162616

RINTHLR,aRKVEC
PC,OPT7ST

MOV

109

SEG 0108

RESET INT. VECTORS FOR RK06

#100,a87TkS

s INSURE KEYBOARD ]S ENABLED

A ¥

LSBTTL

§740

2;2;

J*TEST 45

5743

§747
5748
5749
5750
2;2;

016326
016330
016336
016340

000004
012737
104416
104003

:"-tttttttttttttttttttt't'tttn!tttttttttttttttttvlt'natfitttttntttt
TST4S5:
SCOPE
MOV
#10.,8TIMES
;.D0 10. ITERATIONS
TSSINITY
;(LEAR SUBSYSTEM
ERROR
3
;BAD INIT ERROR

5753
5754
5755
5756
5757
5758
2;28

016342
016346
016350
016352
016354
016355
010356

006437
000123
177000
072414
000
000
000312

035674

5761
5762
g;gz

016360
016364
016366

004437
000015
001000

042260

5765
5766
2;2;

016370
016372
016374

104417
104430
104002

TLOADRK
TWAT96
ERROR
2

5769
g;;?

016376
016400

104421
104004

TCHKOP
ERROR

5772

010402

004437

042260

JSR

R4, GENCOM

JCLEAR

5776

016412

004437

035674

JSR

R4 ,LRLOAD

;LOAD "'L"* REGS

5778
5779
5780
5781
g;g%

016420
016422
016424
016425
016426

177400
070614
000
000
000312

5784
5785
5786

016430
016432
0106434

104417
104424
104002

5744
2;22

5773
g;;g
5777

o
o

«*MULTIPLE SECTOR OPERATIONS
A

TWO SECTOR WRITE DATA

(PART

]

[SSUE A WRITE DATA Of 1000 WORDS TO CYLINDER 312,

TRACK O, SECTOR 0.
READ DATA BACK ONE
AT A TIME AND MAKE SURE IT IS CORRECT.

SECTOR

. %

016406
016410
0641¢

002007
001000
000121

000012

001262

JSR
WRDATA
-1000
ORUFF
.BYTE
BYTE
312

R4 ,LRLOAD

JSR
15
1000

R4 ,GENCOM

2007
1000
RDDATA

=400
IBUFF
.BYTE
BYTE
312

;LOAD "'L'" REGS
;WRDATA
;=1000 WORDS
;OBUFF IS BUFF A[DRESS
;SECTOR O
JTRACK 0
;CYLINDER 312

0
0

0
(

TLOADRK
TWAT3?
ERROR
2

;GENERATE DATA
JPATTERN 15
;1000 WORDS
;LOAD RK REGS
JWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

;0R S, 6,

.CHECK OPERATION FOR ANY ERRORS
10 ;REPORT ALL ERRORS
]BUFF

;TO ALL 1°'S

;RDDATA

;=400 WORDS
:IBUFF IS BUFF ADDRESS
JSECTOR 0
;TRACK 0
sCYLINDER 312

;LOAD RK REGS
JWAIT FOR INTERRUPT
;TC SLOW/NCT COMPLETE ERROR

28-AuG-81

15:17

104421

016442
016446
016450
01€452
016454
016455
016456

004437
000121

016460
016462
076464

1046417
104424
104002

ERROR

016466
016470

10442
104004

ERROR

016472
01647¢€
016500
016502
076504

004437

JSR
100000
1000
BR
ERROR

R4, GENCOM

016506
016512
016514
010516
016522
016524
016526
016530
016532

013700
005300
001406
004437
040000
000402

TCHKOP

1040C4

035674

PAGE

;OR S, €, 7,

JSR

R4 ,LRLOAD

BYTE

001000
000413
104015

001634

A ¥

042260

MOV

104016

:TRACK

000770

65%:

016532

JWAIT

;TO SLOW/NOT COMPLETE ERROR
;OR S, 6,

:CHECK OPERATION FOR

10 ;REPORT ALL ERRORS

:GET

R4 ,GENCOM

;CONTINUE

ERROR LIMIT
DATA

(COMPARE

:NO MORE ERRORS - EX]T

16
648

:REPORT NEXT ERROR
;LOOP

.
AR R A A ARN

RN R

TWO

AT TR NN ANRANRE

SECTOR WRITE

R RN R P ANRANNANRCANN R AN

DATA

(PART

»
%
%

AN N

T O RSN

1000 WORDS TO CYLINDER 312,

TRACK 0, SECTOR 23,
READ DATA BACK ONE
AT A TIME AND MAKE SURE A MID-TRANSFER
SEEK DID NOT TAKE PLACE.

SECTOR

»®

ANY ERRORS

;DECREMENT COUNT
;IF ZERO - EXIT

ISSUE A WRITE DATA OF

INTERRUPT

ERRLMT ,RC

65%

TRTEST 46
»

FOR

2%
15

2%:
SRR

BUFF ADDRESS

; COMPARE DATA
;
;1000 WORDS
:NO MISCOMPARES-EX]T
JREPORT fIRST ERROR

RO
65%

ERROR
BR

ERRORS

:LOAD RK REGS

DEC
BEQ

28800

10 :REPORT ALL ERRORS

JCYLINDER 312

TCHKOP

:CHECK OPERATION FOR ANY

;=400 WORDS
;IBUFF+1000 1:
;SECTOR 1

TLOADRK

TWAT3?

SEQ C109

:RDDATA

312

042260

110

JLOAD *'L*'' REGS

=470
IBUFF+1000
.RYTE
1

071414
oo
00Q
000312

100000

ERROR

RDDATA

177400

TWO SECTOR WRITE DATA (PART 1)

016436
016440

[

016532
(06534
016542
016544

000004
012737

016546
016552
016554
016556
016560
016561

004437
000123

104416
104003

177000

072414
023
000

RN RANI AN

000012

035674

001262

—q

5792
5793
5794
5795
5796
5797
5798
5799
5800
5801
5802
5803
5804
5805
5806
5807
5808
5809
5810
5871
5812
5813
5814
5815
5816
5817
5818
5819
5820
5821
5822
5823
5824
5825
582¢
5827
5828
5829
5830
5831
5832
5833
5834
5835
5836
5837
5838
5839
5840
5841
584¢

30(1046)
745

5787
5788
5789
5790
5791

MACY1T

ANANR PN RN R AR

S{OPE
#10.,8TIMES
MOV
TSSINIT

ERROR

JSR
wRDATA
=1000
OBUFF
BYTE
BYTE

R« ,LRLOAD

R AR

AR RN RNNAANARNARANRARTCARAAN
ORI

:.D0O 10.

ITERATIONS

sCLEAR SUBSYSTEM

;BAD INIT ERROR

JLOAD '‘L"" REGS

;WRDATA

;=1000 WORDS

23
0

JOBUFF

IS BUFF ADDRESS

JSECTOR 23

JTRACK O

[
Y o

TIR6KGO RK6 FCINL CTRL D]AG
TIREKG.PY
28=AuG=81 15:14

CIREKGD RKE FUTNL (TRL DIAG
CIR6KG.P11
28-AUG=81 15:16
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854
5855

5856
5857
5858
5859
5860
5861
5862

5863
5864

0165€2

000312

016564
016570
016572

004437
00016
001000

016574
016576
016600

104417
1044630

016602
016604

MACY11

30(1046)
T46

28-AUG-81

TwO SECTOR WRITE

062260

016620

16
1000

ERROR

TCHKOP

104004

035674

023
000
000312
042260

;LOAD RK REGS

JWAIT FOR INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

TRACK ADDRESS AT THE END OF OPERATION IS IN ERROR

THE

;0R S5, 6,

IN 24(8)

JSR

RDDATA

R4 ,LRLOAD

JSR

R4 ,GENCOM

TCHKOP

177400

:LOAD L'’ REGS

;RDDATA

JCYLINDER 312
:CLEAR

106417

104424

[RUFF

TO ALL ONES

:LOAD RK REGS

;WAIT FOR INTERRUPT
;7O SLOW/NOT COMPLETE

2
&

:OR S5, 6,

JSR

R4 ,LRLOAD

;CHECK OPERATION FOR ANY ERRORS

10 ;REPORT ALL ERRORS
;RDDATA

;=400 WORDS

1BUFF+1000
24
.BYTE
BYTE
O
312

;IBUFF+1000 IS BUFF
;SECTOR 24
;TRACK 0
;CYLINDER 312

TLOADRK
TWAT3?

:LOAD
;WAIT

ERROR

104421
104004

ERROR

JOSR

R4, GENCOM

; COMPARE DATA

1000
B8R

;1000 WORDS
;NO ERRORS=-SK]P

100000

001000

000413
104015

TCHKOP

042265

100000

ERROR

ADDRESS

RK REGS
FOR INTERRUPT

104002

004437

ERROR

;LOAD *'L'' REGS

=400

071414
024
000
000312

:SECTOR 23
:TRACK 0

FRROR

RDDATA

THOUGH

;=400 WORDS
JIBUFF IS BUFF ADDRESS

23
0

2007
1000

SECTORS PER TRACK MODE.

BYTE
BYTE

TWAT3?
ERROR

035674

10 ;REPORT ALL ERRORS

CONTROLLER DID A MID~TRANSFER SEEK

TLOADRK

104421
104004

; CHECK OPERATION FOR ANY ERRORS

31?7

1046417
104424
104002

004437
000121

(PATTERN 16
;1000 WORDS

ERROR

=400
IRUFF

177400

070414

004437
0020607
001000

;GENERATE DATA

R&,GENCCM

JSR

TWAT96

104421

SEQ 0110

(PART 2)

;CYLINDER 312

WERE

016621
5865
5866
016622
5867
016624
5868
5869
016630
5870
016632
5871
016634
5872
5873
016636
5874
016640
5875
5876
016642
016644
5877
5878
5879
016646
5880
076¢52
016654
5881
5882
016656
5883
016660
016661
5884
5885
016662
5886
016664
5887
5888
016666
5889 076670
5890
5891
016672
016674
5892
5893
5894
016676
5895
016702
5896 016704
5897
016706
5898 016710

DATA

TLJADRK

104002

004437
000121

6 9
PAGE 111

312

THE

016606
016612
Q16614
016616

15:17

;70 SLOW/NOT COMPLETE ERROR

:0R 5, 6,

;CHECK OPERATION FOR ANY

10 ;REPORT ALL ERRORS

JREPCORT

FIRST

ERROR

ERRORS

5899
5900
5907
5902
5903
5904
5905
5906
5907
5908
5909

5910

016712
016716
016720
016722
01672¢
016730
01€732
016734
016736
016736

Q13700
005300
001406
004437
040000
000402
104016
000770

MATY11

(01634

30("0460
T646
.

€48:

062260

65%:
13%:
MR

28-AUG=81
15:17
PAGE 112
TWO SECTOR WRITE DATA (PART ?2)

MOV
DEC
BEQ
JSR
40000
BR
ERROR
BR

ERRLMTM RO
RO
65%
R4, GENCCM

;GET ERROR LIM]T
;DECREMENT (OUNT
J1F ZERO = EXIT
;CONTINUE DATA (OMPARE

65%
16
648

:NO MORE ERRORS = EX]T
;REPORT NEXT ERROR
.LOOP

N P AR AR AR AN AR P PR R PR AN

5917
5918
5919
5920
ggg;

016736
016740
016746
016750

000004
012737
104416
104003

:-.-tn.tttttttttttttttttt'tt'tt'ttkttt'tltttt'.ltt'tttttttttttt'tit
TST47:
SCOPE
Mny
#10. ,8$TIMES
::D0 10. ITERATIONS
TSSINIT
;CLEAR SUBSYSTEM
ERROR
3
;BAD INIT ERROR

5923
5924
5925
9926
5927
5928

016752
016756
016760
016762
010764
016765

004437
000123
177377
072414
010
000

035674

5931
5932
gggz

016770
016774
016776

004437
000002
001000

042260

5935

017000

104417

gg%g

017004

104002

ERROR

TCHKOP
ERROR

gg%g

5936

016766

017002

000312

017006
017010

104421
104004

5942
5943
5944
5945
5946
5947
5948
gggg

017012
017016
017022
017024
017026
017030
017034
017036

012700
01270°
005020
005301
001375
004437
002007
001000

5951
5952

017040
017044

004437
000121

5954

017050

070474

5941

5953

017046

177400

JSR
WRDATA
=4J1
OBUF F
BYTE
BYTE

R4 ,LRLOAD

JSR
2
*000

R4, GENCOM

04260

(35674

:
$:

TO CYLINDER 312,

;LOAD "1°" REGS
:WRDATA
;=601 WORDS
:0BUFF IS BUFF ADDRESS
;SECTOR 10
: TRACK 0

10
0

TLOADRK

TWAT96

073416
000377

WORDS

TRACK O, SECTOR 10.
READ DATA BACK ONE SECTOR AT
A TIME AND (HECK ZERD FILL OF SECOND SECTOR.

312

104430

5939
5940

ISSUE A WRITE DATA OF 401

(PART

RO C OO TS

001262

DATA

NNAARRIN I AN

5913

0000i2

SECTOR WRITE

J*TEST

i
it

TWO

R A NN A AN RO R R

gg};

5914
gg%g

Sea C111

:CYLINDER 312

;GENERATE DATA
JPATTERN 2
;1000 WORDS

;LOAD RK REGS

;WAIT

FOR

INTERRUPT

;70 SLOW/NOT COMPLETE ERROR
0R 5, 6,

: CHECK OPERATION FOR ANY ERRORS
10 ;REPORT ALL ERRORS

CLEAR LAST 377 WORDS OF OBUFF FOR EXPECTED ZEROS FROM ZERD FILL

MOV
MOV
CLR
DEC
BNE
JSR
2007
1000

#OBUFF+1002,R0
#377 ,R1
(RO) +
R1
19
R4, GENCOM

GET STARTING ADDRESS TO BE
:NUMBER OF WORDS
; CLEAR WORD
:DEC _COUNT
;LOOP UNTIL COUNT ZERO
;CLEAR [BUFF TO ONES

JSR
RDDATA
=400
IBUFF

R4,LRLOAD

;LOAD """ REGS
;RDDATA

;=400 WORDS
:IBJFF

IS BLFF

ADDRESS

CLEARED

[ 20¥ie)

"IROV GO RKG FOTNL (TRL D]AG
TIR6KG. P
2B=-AUG=81 15:16

CZR6KGO RK6 FCTINL CTRL DIAG
TIR6KG,. P
28-AUG-81 15:16

9
1
28~-AUG-81
15:17 PAGE 113
TwO SECTOR WRITE DATA (PART 3)

MACY11 3D ;“#6)
t “

5955
5956
gggg

017052
017053
017054

010
000
000312

BYTE
S3¥'E
32

5959

017056

104417

~_JOADRK

ggg;

017062

104002

ERROR

5963
5964

017064
017066

104421
1040064

TCHKOP
ERROR

5966

5967
5968
5969
5970
gg;;

017074&

017076
017100
017102
017103
017104

000121

5973

017106

104417

596C

5965

5674
28;2

017060

017070

017110
017112

104424

004437

TWAT3?2

035674

JSR

RDDATA

177400
071414
oM
000
000312

JSECTOR 10
;TRACK O
;CYLINDER 312
;LOAD RK REGS

;WAIT FOR INTERRUPT

;TO SLOW/NOT COMPLETE ERROR
;0R S, 6,

R4 ,LRLOAD

TWAT3?
ERROR

017114
017120
017122
017124
017126

004437
100000
001000
000413
104015

(042260

5983
5984
5685
5986
5987
5988
5989
5990
5691
5992
5993

017130
017134
017136
017140
017144
017146
017150
017152
01715«

013700
005300
001406
006437
040000
00N432
104076
200770

001634

66%:

042260

65%:

0°7°

2%:
BRI

gggg

;LOAD RK REGS

JWAIT FOR INTERRUPT
;70 SLOW/NOT COMPLETE ERRCR

JSR
100000
1000
B8R
ERROR

R4 ,GENCOM

;DATA COMPARE

MOV
DEC
BEQ
JSR
40000
BR
ERROR
B8R

ERRLMT RO
RO
65%
R4 ,GENCOM

;GET ERROR LIMIT
;DECREMENT CCUNT
J1F ZERO - EXIT
;CONTINUE DATA (OMPARE

65%
16
64%

:NO MORE ERRORS = EXIT
JREPORT NEXT ERROR
;LOOP

'TEST

;LOAD ''L'' REGS

;=600 WORDS
;IBUFF+1000 IS BUFF ADDRESS
JSECTOR 11
;TRACK 0
;CYLINDER 312

TLOADRK

104424
104002

;CHECK OPERATION FOR ANY ERRORS
10 ;REPORT ALL ERRORS
:RDDATA

-400
IBUFF+1000
BYTE
1
BYTE
0
312

5977
5978
5979
5980
ggg;

5994

10
0

SEQ Q112

222

;1000 WORDS

2%
15

JNO ERROR-SKIP
JREPORT FIRST ERROR

R RS2 222222 R RS2 22222

MID~TRANSFER

SRR 22 2

SEEK ON WRITE

R R R R

R RN RN R AP AR AR R TR O R C RN

(PART

5997

6002

5998
5999
6000
6001

‘e
I
oY
ot

6003
6004
6005
2889

017154
017156
017164
017166

000004
012737
104416
104003

)
00001¢

6008
6009

017170
017174

004437
000123

035674

6010

017176

177000

001262

ISSUE A WRITE DATA 0F 1000 WORDS TO CYLINDER 312,

TRACK 0, SECTOR 25.
READ DATA BACK GNF SECTOR
AT A TIME AND MAKE SURE A M]ID-TRANSFER SEEK
DID TAKE PLACE.
A

TSTSC:

A R

R A RN R RN

T RN

AR N R AR AN RN

SCOPE
MOV
#10.,8TIMES
TSSINIT
ERROR
3

;:D0 10. ITERATIONS
;CLEAR SUBSYSTEM
JBAD INIT EPROR

JSR
WRDATA

;LOAD ‘L' REGS
JWRDATA

=-1000

R4,LRLOAD

;=1000 WORDS

6063

6064
6065
6066

NNNN
O NNN
ONNN

R4, GENCOM

COOo

177400

JSR

R.DATA
=400

IBUFF
.BY'E
BYTE

312

o
o

ITMNN
W

SLOW/NOT

COMPLETE

;LOAD "'L'" REGS

R4 ,LRLOAD

JRDDATA

;=600 WORDS

;SECTOR 25

25
0

;TRACK 0

;CYLINDER 312

; CHECK OPERATION FOR ANY ERRORS
10 ;REPORT ALL ERRORS

JSR
RDDATA
=409

R4, LRLOAD

.BYTE
312

TCHKOP

035674

177400

0714614
000
001
000312

IS BUFF ADDRESS

;IBUFF

TLOADRK

104425

;LOAD L' REGS
;RDDATA

;=400 WORDS
;IBUFF+1000 IS BUFF ADDRESS
JSECTOR O

IBUFF+1000
.BYTE
0

:TRACK

:CYLINDER 312

ERROR

104421
104004

ERROR

004437

JSR
100000
1000
B8R
ERROR

R4 ,GENCOM

; COMPARE DATA

1$
15

;NO ERRORS-SKIP

1046417
104425
104002

100000

001000
000413
104015

FRROR

OO0

=B
d
e

;TO

ERROR

1044621
104004

104002

;LOAD RK REGS
;WAIT FOR INTERRUPT

;LOAD RK REGS
;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

TWAT4S8
ERROR

DOOOOCO

;GENERATE DATA

JPATTERN 3
21000 WORDS

2007

104417

—) o

;CYLINDER 312

1000

070414
025
000
000312

004437
000121

;TRACK 0

;CHECK OPERATION FOR ANY ERRORS
:0R 5, 6, 7 10 ;REPORT ALL ERRORS
A TRACK ERROR PRINTED OU T AT THE END OF THE OPERATION INDICATES A
MID-TRANSFER HEAD SWIiTCH DID NOT OCCUR.
R&, GENCOM
JSR
TCHKOP

ERROR

17256

JSR

;OBUFF

TLOADRK

035674

17246

25
0

SEQ 0113

IS BUFF ADDRESS
;SECTOR 25

£
OBUF
.BYTE
.BYTE
312

TWAT96
ERROR

OOO0OO0O0O0O0

—

—a

ergrganre

OO0

OO0
— el

OO0O
— b
B

104421
104004

1000

004437
000121

OO0

6054
6055
6056
6057
6058
6059
6060
6061
6062

104417
104430
104002

042¢¢€0

042260

6053

004437
000003
0010C0

004437
002007
001000

—

6015
6016
6017
6018
6019
€020
6021
6022
6023
6024
6025
6026
6027
6028
6029
6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
€041
6042
6043
6044
6045
6046
6347
6048
6049
6050
6051
6052

15:17
30(1046)
PAGE 114
28-AuG-81
750
MID-TRANSFER SEEK ON WRITE (PART

OO0

6014

072414
025
000
000312

MACY11

OO0

6011
6012
6013

CZRO6KGO RK6 FCTNL CTRL DIAG
TIR6KG.P1Y
28-AUG=81 15:16

TLOADRK
TWAT4LE

TCHKOP

042260

;LOAD RK REGS
JWAIT

FOR

INTERRUPT

;TO SLOW/NOT

;OR S, 6,

COMPLETE

ERROR

; CHECK OPERATION FOR ANY ERRORS
10

;REPORT ALL

ERRORS

;1000 WORDS
JREPORT

FIRST

ERROR

6067

6068
6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079

01733&
017340
017342
017344
017350
017352
017356
017356
017360

013700
005300
001406
004437
040000
000402
104016
000770

MACY11T 3?§8046)

001634

MOV
DEC
BEQ
JSR
40000
BR
ERROR
RR

€48

042260

65%:

017360

1%:

28-AUG-81
15:17 PAGE 115
MID-TRANSFER SEEK ON WRITE (PART 1)

SEG C114

ERRLMT RO
RO
65%
R4 ,GENCOM

JGET ERROR LIMIT
JDECREMENT (OUNT
JIF ZERO -~ EXIT
sCONTINUE DATA (OMPARE

65%
16
649

;NO MORE ERRORS - EXIT
JREPORT NEXT ERROR
;LOOP

AR R AN AR R AT RN

P AN AR

A AR AN AR

RN AR CANIRRTRS

J*TEST 51

6082
6083

o
I

6087

""ttttlttt*tttttfittttttttttfitttttt'ttttttttttttttt'itttt'ttt'tt't

6084
6085
6086

6088
6089
5090
283;

017360
017362
07370
017372

000004
012737
104416
104003

6093
6094
6095

017374
017400
017402

004437
000123
177000

€097

017406

025

6096

017404

000012

6101

017612

(004437

2182

017420

001000

6105
6106
6107
6108
6109

0176422
0174246
017426

104417
106430
104002

6110

g;}}

017430

0176432

104421

6113
6114

017434
012440

004437
002007

042260

6117

017444

004437

035674

2}}2

6118
6119
6120
6721
6122

017442

017450
017452
017454
017456
017457

TSTS1:

SCOPE
MOV
#10.,8TIMES
TSSINIT
ERROR
3

;:D0 10. ITERATIONS
JCLEAR SUBSYSTEM
JBAD INIT ERROR

JSR
WRDATA
-1000

R4 ,LRLOAD

JLOAD ‘'L'* REGS
JWRDATA
;=1000 WORDS

.BYTE

JSR

R4, GENCOM

OBUFF

002
005312

017416

000004

.BYTE
312

0462260

SURE A M]D-TRANSFER SEEK

;OBUFF

:
:

001000

IS 3UFF ADDRESS

;SECTOR 25

s TRACK 2
sCYLINDER 312

;GENERATE DATA
JPATTERN 4

1000

104004

000121
177400
070414
025
002

ISSUE A WRITE DATA OF 1000 WORDS TO CYLINDER 3172,
TRACK 2, SECTOR 25.
READ DATA BA(CK ONE SECTOR

AT A TIME AND MAKE
DID TAKE PLACE.

072414

017407
017410

(PART 2)

Ix
i
i

035674

6098
g?gg
6102

001262

MID-TRANSFER SEEK ON WRTTE

AN RN

683?

;1000 WORDS

TLOADRK
;LOAD RK REGS
TWAT96
JWAIT FOR INTERRUPTY
ERROR
2
;7O SLOW/NOT COMPLETE ERROR
A CYLINDER ERROR REPORTED AT THE END OF THE OPERATION INDICATES A
MID-TRANSFER SEEK DID NOT OCCUR.
TCHKOP

:0R S5,

sCHECK OPERATION FOR ANY ERRORS

ERROR

10 ;REPORT ALL ERRORS

JSR
2007

R4, GENCOM

;(LEAR [BUFF

JSR

R« ,LRLOAD

JLOAD ''L'" REGS

T0O ALL ONES

1000

RDDATA
=400
IBUFF
.BYTE
.BYTE

25
2

sRDDATA
;=400 WORDS
JIBUFF ]S BUFF ADDRESS
JSECTOR 25
;TRACK 2

TMy

CIR6KGS RKG FCTNL CTRL DIAG
TIR6KG. P11
28-AUG-81 15:16

CIR6KGO RK6 FCTINL CTRL DIAG
CZREKG.PI
28-AUG-81 15:16
6123
6124
6125
6126
6127
6128
6129
6130
6" 31
6132
6133
6134
6135
6136
6137
6138
6139
6140
6141
6142
6143
6144
6145
5146

6147
6148
6149
6150
6151
6152
6153
6154
6155
6156
6157
6158
6159
6160
6161
6162
6163
6164

WACY11

SEQ 0115

000312

3i2

;CYLINDER 312

017462
017464
017466

104417
104425
10¢002

TLOADRK
TWAT48
ERROR
2

;LOAD RK REGS
WAIT FOR INTERRUPT
:T0 SLOW/NOT COMPLETE ERROR

017470
017472

104421

017474
017500

017502
017504
017506
017507
017510

004437
000121
177400
071414
060
009
000313

017512
017514
017516

TCHKOP

104004

035674

ERROR

JSR

R4,LRLOAD

;OR 5, 6,

;CHECK OPERATION FOR ANY ERRORS

10 ;REPORT ALL ERRORS

;LOAD "'L'* REGS

RDDATA
-400
1BUFF +1000
BYTE
0
.BYTE
0
313

:RDDATA
;=400 WORDS
;IBUFF+1000 IS BUFF ADDRESS
;SECTOR 0
TRACK 0
CYLINDER 313

104417
104425
104002

TL OADRK
TWAT48
ERROR
2

:LOAD RK REGS
:WAIT FOR INTERRUPT
70 SLOW/NOT COMPLETE ERROR

017520
017522

104421
104004

TCHKOP
ERROR

017524
017530
017532
017534
017536

004437

JSR

R&4,GENCOM

; COMPARE DATA

;1000 WORDS
NO_MISCOMPARES=SK1P

MOV
DEC
BEQ
JSR
40000
BR

ERRLMT,RO
R0
658
R&,GENCOM

:GET ERROR LIMIT
:DECREMENT COUNT
:1F ZERO - EXIT
:CONTINUE DATA COMPARE

65%

:NO MORE ERRORS = EXIT

648

:LOOP

017540
017544
017546
017550
017554
017556
017560
017562
017564

100000
001000
000413
104015

013700
005300
001406
004437
040000
000402

042260

100000
1000
BR
ERROR

001634

648:

042260

104016

000770

:
658

017564

;OR S,

ERROR

;CHECK_OPERATION FOR ANY ERRORS
10 ;REPORT ALL ERRORS

*REPORT

1ST ERROR

:REPORT NEXT ERROR

1$:
"""tt!’ttttt'ttfiittl’tttttittttttit**iflt‘tfi*ttttit.tt*itt'fittt\'i.*t

6165

6178

7TS1

9
L
28-AUG-81
15:17 PAGE 116
MID-TRANSFER SEEK ON WRITE (PART 2)

017460

TWO SECTOR READ DATA (PART 1)

SRTEST 52

6166
6167
6168
6169
6170
6171
6172

6173
6174
6175
6176
6177

30(1046)

e
ot

ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312,

TRACK
READ.

SECTOR

VERIFY

THAT

CORRECT

DATA

. %

v
v

NOTE:

. %

017564
017566
017574
017576

TWO SECTOR WRITE DATA (PART 1) MUST BE
EXECUTED BEFORE THIS TEST.

:':tt'*'*t.tfiit‘ltl’l’ti"."ttitttt'tt*i‘titii’il‘i'ttfititt.i‘t'itttt
000004
012737
104416

104003

000012

001262

7§752:

SCOPE
MOV ~

#10.,$TIMES

;DO 10.

ERROR

sBAD INIT ERROR

TSSINIT

:CLEAR

ITERATIONS

SUBSYSTEM

CIR6KGO RK6 FCINL CTRL DIAG
TIR6KG. P11
28-AUG=-81 15:16
6179
6180
6181
6182
6183
6184
6185
6186
6187
6188
6189
6190
6191
6192
6193
6194
6195
6194

MACY11

30(1046)
T52

28-AUG-81

15:17

PAGE 117

TWO SECTOR READ DATA

SEQ 0116

(PART 1)

;GENERATE SAME DATA AS USED IN TWO SECTOR WRITE DATA (PART 1)
004437
000015
001000

042260

004437
002007
001000

042260

004437
000121

035674

;

GENERATE SAME DATA AS USED IN TWO SECTOR WRITE DATA PART 1
R4, GENCOM

:GENERATE DATA
*PATTERN 15
1000 WORDS

ISR

R4, GENCOM

SCLEAR IBUFF

JSR

R4, LRLOAD

:LOAD "L** REGS

IBUFF
BYTE
‘BYTE
312

0
0

“IBUFF IS BUFF ADDRESS
*SECTOR 0
*TRACK 0
“CYLINDER 312

2007

RDDATA
-1000

000
000312
104417
104430
104002

ERROR

104421
104004

ERROR

JSR
100000

R4, GENCOM

004437
100000

TWAT96

TCHKOP

042260

001634

64$:

042260

104016

000770

*RDDATA
1=1000 WORDS

T1 OADRK

001000
000413
104015

013700
005300
001406
0046437
040000
000402

TO ALL ONES

1000

177000
070414
000

017710

JSR
15
1000

65%:

:LOAD RK REGS

‘WAIT

FOR

INTERRUPT

70 SLOW/NOT COMPLETE ERROR
:OR 5, 6.

:CHECK OPERATION FOR ANY ERRORS

10 :REPORT ALL ERRORS
; COMPARE DATA

1000
BR
ERROR

18
15

MOV
DEC

ERRLMT RO
RO

;GET ERROR LIMIT
*DECKREMENT COUNT

iggoo

R& , GENCOM

"CONTINUE

BEQ

BR
ERROR
BR

65$

65
16
648

;1000 WORDS
*NO MISCOMPARES~-SKIP

“IF ZERO - EXIT

DATA COMPARE

:NO MORE ERRORS - EXIT
"REPORT NEXT ERROR
LOOP

1%:

017710

::'tt'*****tittt*t**lti't"*tfitt***tt*fltitttti""Qt‘t'ttittt'.ti

TRTEST 53
X

e
P
P

ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312,
TRACK 0, SECTOR 23.
VERIFY THAT CORRECT DATA 15

READ AND A MID-TRANSFER SEEK DOES NOT OCCUR.

NOTE:

P
-

000004

—q*
e

017710

TWO SECTOR READ DATA (PART 2)

TWO SECTOR WRITE DATA (PART 2) MUST BE

EXECUTED BEFORE THIS TEST.

A 2EE222000228222d0RRRiRRRARRSRRRRRRRRRRRRRSRRRSRERRRRRRA
NN

T53:

SCOPE

6235
6236
6237
6238
6239
6240
6241
6242
6243

6290

(01262

28-AUG-81

15:17

9
PAGE 118

TWO SECTOR READ DATA

MOV

#10. ,$TIMES

ERROR

TSSINIT

SEQ 0117

(PART 2)

;.00 10.

ITERATIONS

;CLEAR SUBSYSTEM

;BAD INIT ERROR

;GENERATE SAME DATA AS USED IN TWO SECTOR WRITE (PART 2)
004437
000016

042260

004437
002007

042260

JSR

035674

JgR

R4, GENCOM

;GENERATE DATA
JPATTERN 16

1000

001000

:1000 WORDS
R4, GENCOM

;CLEAR

JSR

R4 ,LRLOAD

JLOAD ''L'" REGS

000
000312

BYTE
BYTE
312

23
0

;SECTOR 23
sTRACK 0
;CYLINDER 312

104417

TLOADRK

104002

ERROR

017770
017772

104421
104004

TCHKOP

017774
020000
020002
020004
020006

004437

020010
020014
020016
022020
020024
020026
020030
020032
020034

013700
005300
001406
004437
040000
000402

001000
004437
000121
177000
070414

2007
1000

RDDATA
=1000
IBUFF

023

104430

042260

001000
000413
104015

001634

A4S

042260

104016

65%:

TO ALL ONES

;RDDATA
;=1000 WORDS
;IBUFF IS BUFF

ADDRESS

;LOAD RK REGS

;WAIT FOR

INTERRUPT

;TO SLOW,NOT COMPLETE ERROR

JSR
100000
1000
BR

R4,GENCOM

. COMPARE DATA

21000 WORDS
;NO M]ISCOMPARES-SKIP

MOV
DEC

ERRLMT RO
RO

;GET ERROR LIMIT
sDECREMENT COUNT

28800

R4, GENCOM

s CONTINUE DATA (OMPARE

BEQ

BR
ERROR
BR

;OR 5, 6,

65%
65%
16
64%

:CHECK OPERATION FOR ANY

10 ;REPORT ALL ERRORS

ERRORS

;REPORT 1ST ERROR

;IF ZERO - EXIT

;NO MORE ERRORS - EXIT
JREPORT NEXT ERROR
.LOOP

1%:
. MAAEELSAREASSS

8
X

0,
8,

2
¢+

0,8,

RSt RERsRlRaRRSRlR

TWO SECTOR READ DATA (PART 3)

ISSUE A READ DATA OF 401 WORDS TO CYLINDER 312,

TRACK O, SECTOR 10.
VERIFY
ARE PLACED IN MEMORY.

THAT ALL 401

WORDS

B
*

SXTEST 54

000770

IBUFF

FRROR

ERROR

020034

100000

TWAT96

6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289

000012

6264
6265

104416
104003

3? (1

6244
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263

012737

MACY11

NOTE:

TWO SECTOR WRITE DATA (PART 3) MUST BE
EXECJTED BEFORE THIS TESTM.

";tlQt"tt"tt'ltt""'.'ii'.'it'tfi‘t'.i"ttt"'tt.l".'t'.'!".t

[an T

CZR6KGO RK6 FCTNL CTRL DIAG
CZR6KG PN
28-AUG-81 15:16

6291
6292
6293
6294
6295
6296
6297
6298
6299
6300
6301
6302
6303
6304
6305

020034
220036
020044
020046

000004
012737
104416

000012

MACY1T

00726P

30(1046)
754
TSTS4:

004437
000002
000401

062260

020060
020064
020066

004437
002007

062260

020070
020074
020076
020100°
020102

0044637
000121

035674

026103

020104

PAGE

119

SEQ 0118

(RART 3)

SCOPE
MOV

#10.,87IMES

;:D0 10.

ERROR

;BAD INIT ERROR

;(LEAR

ITERATIONS

SUBSYSTEM

GENERATE SAME DATA AS USED IN TWO SECTOR WRITE (PART %

;
020050
0¢005¢4
020056

TWO SECTOR READ DATA

TSSINIT

104003

15:17

28-AUG-81

JSR

:GENERATE DATA

R4 ,GENCOM

;FATTERN 2

JSR

2007

;401

WORDS

R& ,GENCOM

;CLEAR

IRUFF

TO ALL ONES

R4 ,LRLOAD

;LOAD "L'' REGS

1000

001000

JSR

RDDATA
-4

177377

070414
010
000
000312

IBUFF

.BYTE
RYTE
312

10
0

:RDDATA
;=401 WORDS

JIBUFF

1S BUFF

;SECTOR 10
:TRACK 0
;CYLINDER 312

ADDRESS

020106
020110
020112

104477

TLOADRK

104002

ERROR

020114
020116

1044621
104004

ERROR

020120
020124
020126
020130
020132

004437

JSR
100000
401

R&,GENCOM

BR
ERROR

1%
15

:NO MISCOMPARES-SKIP
;PRINT FIRST ERROR

020134
020140
020142
020144
020150
020152
020154
020156
020160
020160

013700
005300

001634

004437
040000
000402

042260

MOV
DEC
8EQ
JSR

ERRLMT ,RO
RO
65%
R4 ,GENCOM

JGET ERROR LIMIT
;DECREMENT COUNT
;IF ZERO - EXIT
:CONTINUE DATA COMPARE

B8R

65%

1044730

100000

TWAT96

TCHKOP

042260

000401
000413
104015

001406

64%:

40000

104016

000770

?25:

ERROR
BR
\

:LOAD RK REGS

JWAIT FOR

16
64%

INTERRUPT

;7O SLOW/NOT COMFLETE ERROR
;0R S5, 6,

:CHECK OPERATION FOR ANY ERRORS

10 ;REPORT ALL ERRORS

: COMPARE
;401

DATA

WORDS

:NO MORE ERRORS - EXIT

:REPORT NEXT ERROR
. LOOP

;:;tttttttttttttttttttt'tttitttttttttttttttttfitttttttttttttttttfin
MID-TRANSFER SEEK ON READ (PART 1)
;*TEST 55
. %

o
.
M

ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312,
TRACK O, SECTOR 25.
VERIFY THAT CORRECT DATA IS
READ AND A MID-TRANSFER SEEK DOES OCCUR.

M
o

NOTE:

- %

MID-TRANSFER SEEK ON WRITE (PART 1) MUST BRE
EXECUTED BEFORE THIS TEST.

[aa Fan]

(ZR6KGO RK6 FCINL CTRL DIAG
28-AUG-81 15:16
TIR6KG. P

(ZR6KGO RK6 FCTNL CTRL DIAG

(IR6KG P

28-AUG=81

18§155:

SCOPE

020174
020200
020202

004437
000003

042260

020204

004437
002007

042060

020214
020220
020222
020224
020226
020227
020230

0044637
000121

035674

020232
02023
020236

104417
106430
104002

ERROR

020240
020242

104421
104004

ERROR

020244
020250
0202572
020254
020256

004437

020260
020264
020266

013700
005300
001406
004437
040000
000402

ERROR

;BAD INIT ERROR

JSR

2007

ITERATIONS

sCLEAR SUBSYSTEM

JPATTERN 3

;1000 WORDS
R4, GENCOM

JCLEAR

IBUFF

TQ ALL ONES

R4 ,LRLOAD

;LOAD "'L'" REGS

1000

061000

JSR

RDDATA

-1000
IBUFF

177000

070414
025
000
000312

BYTE
BYTE
312

TLOADRK
TWAT96

TCHKOP

042260

001000
000413
104015

001634

€69

042260

;RDDATA

;=1000 WORDS
. IBUFF IS BUFF

25
0

;SECTOR 25
;TRACK 0
;CYLINDER 312

ADDRESS

;LOAD RK REGS
;WAIT FOR INTERRUPT

;TO SLOW/NOT COMFLETE ERROR

;0R 5, 6,

. CHECK OPERATION FOR ANY ERRORS

10 ;REPORT ALL ERRORS
; COMPARE DATA

JSR
~ 100000
1000
BR
ERROR

R4, GENCOM

MOV
DEC

ERRLMT RO
RO

JGET ERROR LIMIT
;DECREMENT COUNT

JSSOO

R4, GENCOM

;CONTINUE

BEQ
A

104016

1%
15

65%

;1000 WORDS
:NO M]ISCOMPARES-SKIP
JPRINT

;IF

FIRST ERROR

ZERO - EXIT

DATA (OMPARE

65%

;NO MORE ERRORS = EXIT

64%

.LOOP

ERROR

;REPORT

ERROR

5
::;ttttttttttlfittt*'tifittt'iitttlttfi‘tltittttttititt".ttfitt't‘t'
&
»
¢+
%

;*TEST 56

000770

:.D0 10,

1000

020274
020276
020300
020302
020304
020304

SEQ 0119

#10.,8TIMES

001000

100000

(PART

GENERATE SAME DA"A AS USED [N MID TRANSFER SEEK ON WRITE
;GENERATE DATA
R4,GENCOM
JSR

020270

104003

022212

120

Mov

TSSINIT

n20210

10644616

001262

PAGE

;

23 E222222222222220
R
2R R Rt
RRdRRE]

000004
012737

000012

15:17

MID-TRANSFER SEEK ON READ

020160
020162
020170
020172

6360
6361
6362
6363
6364
6365
6366
6367
6368
6369
6370
6371
6372
6373
6374
6375
6376
6377
6378
6379
6380
6381
6382
6383
63384
6385
6386
6387
6388
6389
6390
6391
6392
6393
6394
6395
6396
6397
6398
6399
6400
6401
640¢

3?§;046)

6357
6358
6359

VALY 1Y

6355
6356

15:16

6347
6348
6349
6350
6351
6352
6353
6354

28-AUG=-B1

c 10

MID-TRANSFER SEEK ON READ (PART 2)

ISSUE A READ DATA OF
TRACK 2,

SECTOR 25.

1000 WORDS TO CYLINDER 312,

VERIFY

THAT

CORRECT DATA IS

READ AND A MID-TRANSFER SEEK DOES OCCUR.

NOTE:

MID-TRANSFER SEEK ON WRITE
EXECUTED BEFORE THIS TEST.

(PART 2) MUST BE

(PART

"IR6KGO RK6 FCTINL CTRL DIAG
ZIR6KG.P11
28-AUG=-81 13:16

6403
6404
6405
6406
6407
6408
6409
64610
6411
6412
64613
6414
64615
6416
6417
6418
6419
6420
6421
64l

6423
6424
6425
6426
6427
6428
6429
6430
6431
6432

6633
6434
6435
6436
6437
6438
6439
6440
6441
6442
6443

6444

64645

6446

6447
6448
6449
6650
6451
6452
6453

6454
6455
6456
6457
6458

MACY1

30;;046)

D 10

28-AUG-81
15:17
PAGE 121
MID-TRANSFER SEEK ON READ (PART

SEQ 0120

CCRRRRARNRANRANRNRANAN
RN OR
NN RARLANR AN ENIARNRARACTRANRNRNN IR
RGO P QR

000004
012737
104416
104003

000012

001262

157156:

SCOPE

MOV

#10.,8TIMES

2:D0 10.

ERROR

JBAD INIT ERROR

TSSINIT

sCLEAR

ITERATIONS

SUBSYSTEM

GENERATE SAME DAA AS USED IN MID TRANSFER SEEK ON WRITE

020320
020324
020326

004437
000004
001000

042260

020330
020334
02033¢

004437

002007
001000

042260

020340
020344
020346
020350
020352
020353
020354

004437
000121
177000
070414
025
002
000312

020356
020360
020362

104417
104430
104002

ERROR

020364
020366

1044621
104004

ERROR

020370
020374
020376
020400
020402

004437

JSR
100000
1000

R4 ,GENCOM

;COMPARE DATA

FRROR

:NO MISCOMPARES-SK]P

020404
029410
020412
020414
020420
020422
020424
020426
020430
020430

013700
005300
001406
004437
040000
000402

MOV
DEC

ERRLMT RO
RO

;GET ERRCR LIM]T
;DECREMENT COUNT

R4 ,GENCOM

;CONTINUE

100000

R4 ,GENCOM

:GENERATE DATA
JPATTERN

1000

JSR

2007

;100 WORDS

R4 ,GENCOM

;CLEAR IBUFF

TO ALL ONES

R4 ,LRLOAD

;LOAD *'L'" REGS

1000

035674

JSR

RDDATA

=1000
IBUFF

.BYTE
RYTE
312

JRDDATA

;=1000 WORDS
;IBUFF IS BUFF

25
?

;SECTOR 25
:TRACK 2
;CYLINDER 312

TLQADRK

TWAT96

T(HKOP

042260

001000
000413

104015

001634

64%:

0642260

65%:

;LOAD RK

JWAIT

2
;0R S5,

REGS

INTERRUPT

JCHECK

OPERATION FOR

10 ;REPORT ALL

ERRORS

ANY

ERRORS

21000 WORDS

JREPORT FIRST ERROR

65%

B8R

65%

ERROR
BR

FOR

ADDRESS

;TO SLOW/NOT COMFLETE ERROR

BEQ

28800

1064916

000770

JSR

JIF

ZERO - EXIT
DATA

(COMPARE

;NO MORE ERRORS = EXIT

16
648

JREPORT NEXT ERROR
.LOOP

1%:

;:‘.‘t"*.‘.'fifi*"'Q'.""'..t‘"Qfi'....'fi."'."..".""""".

;«TEST 57

CYLINDER ADDRESS OVERFLOW (PART 1)

. %

.
i
M
.
X

020430

066004

T ST57:

ISSUE A READ DATA OF 400 WORDS TO CYLINDER 632,
TRACK 2, SECTOR 25.
MAKE SURE CYLINDER ADDRESS
OVERFLOW ERROR DOES NOT OCCUR.
CYLINDER 1456 1S USED FOR THE RK07.
AR

Al A

SCOPE

(PART 2)

6459
6460
6461
6462
6463

020432

020440
020442

012737
106417¢
104003

6465
6466
6467
6468
6469
6470

020444
020452
020456
020460
020462
020464
020465
020466

013737
004437
000121

6472
6473
6474

020470
020472
020474

104417
106436

6476
6477

020476
020500

104421

64664

6471

6475

6478

000012

036120
035674

070414
025
002
000000

6493
6494
6495
6496

6497
6498
6499
6500
6501
6502
6503
6504
6505
6506
6507
6508
6509
6510
6511
6512
6513
€514

ERROR

JBAD INIT ERROR

LSTCYL,1S

R4,{ RLOAD

JLOAD ''L"" REGS
;400

IBUFF

;IBUFF

ERRCR

TCHKOP

ERROR

ITERAT]IONS

JCLEAR SURSYSTEM

-400

TLOADRK
TWATi59

*04004

SEQ 0121

;:D0 10.

.BYTE
BYTE
0

104002

122

#10.,8TIMES

JSR

'$:

PAGE

MOV

MGV

177400

E 10

15:17

CYLINDER ADDRESS OVERFLOW (PART 1)

RDDATA

25
2

WORDS

IS BUFF

:SECTOR 25
:TRK 2
JCYL 63271456

ADDR

;LOAD Rk REGS
JWAIT FOR INTERRUPT

;70 SLOW/NOT (OMPLETE ERROR

:0R

S5,

;CHECK

OPERATION FOR

;REPORT ALL

ERRORS

ANY

ERRORS

;;Qt'"t.'.'."Q'Qtl‘"""t"‘..""*'*'*."fi'fi'Q.ii'tQ."t'.'Q'

J*TEST 60
- %

CYLINDER ADDRESS OVERFLOW (PART 2)

ISSUE A READ DATA OF 401 WORDS Y0 CYLINDER 632.

OVERFLOW ERROR DOES OCCUR.

6433

6490
6491
6492

28-AUG=81

TSSINIT

020466

6480
6481
5482

6489

00°262

6479

6484
6485
6486
6487
6488

SQ (1066)

TRACK 2,

SECTOR 25.

MAKE SURE

CLINDER ADDRESS

CYLINDER 1456 [S USED FOR THE RK(7.

E:'Q."""'Qfi'.fi'Qt.""""'.l"..'.'.fit.itfifiQ.fi'i"'tt".'t"'
020502
022504
020512
020514
020516
020524
020530
020532
020534
020536
02053”
020540

000004
0127%7
104416
104003
013737
004437
000121
177377
070414
025
002
000000

020542
020544
020546

104417
106434
104002

ERROR

020550
020552
020554
020556
020569

104422

TCHKWE

000012

001262

036120
035674

020242

T3T¢D:

SCOPE

MOV
#10.,8TIMES
TSSINIT

;:D0 10. ITERATIONS
;CLEAR SUBSYSTEM

JSR

;LOAD ''L** REGS

ERROR
MOV

RDDATA

=401
IBUFF

BYTE

1%:

3
LSTCYL,T1%

R4 ,LRLOAD

;401 WORDS
JIBUFF 1S BUFF

JSEC 25

001000
000000
000000

JCYL 63271456
;LOAD RK

JWAIT FOR

0
ERROR

LSBTTL
SE

REGS

INTERRUPT

;70 SLOW/NOT COMPLETE ERROR
;CHECK

60ERR

104004

ADDR

:TRK 2

TLOADRK

TWAT159

;BAD INIT ERROR

OPERATION WITH EXPECTED

JCYLINDER OVERFLOW
4:

OR 5,6,7

ERROR

JREPORT ANY DISCREPANCIES

«+18 BjT DATA TRANSFER TESTS

42282240820 RR2RRARRdRRRRdRRRRARRRRERRARRRRRRRRRRRRlRR
AR ]

TeTEST 61

FORMAT IN 24 SECTOR FORMAT

[T]

TIR6KSD RK6 FCINL C(TRL DIAG
“IR6KG. P11
28-AUG~-81 15:16

MACYN

%
5
»
»
*

OWWWWO
—= NN

SCOPE

MOV
MOV
MOV

(LR

#10.,8TIMES
#312 REFMT
#1%,SLPERR
R1

104617
104434
104002

TLOADRK
TWAT159
ERROR
2

020700
020702

104427
104004

TCHKOP

ERROR

020704

104415

ScorP?

023706
020710
020712
020714
020716
020724
02¢726
020726
020730
020732
020740
02074¢
020752

005701
001002

TS7

001600
001600
001610
001602

001110

2%:

OO0
OO
=
— - O
OO~
OMNOMN
NONWN

001600
001619

000312

201614

AND

THAT

TRACK

DATA LATE

FQOR 24 SECTOR

DID NOT

;.D0 10. ITERATIOANS
;SET REFORMAT SWIT(H
;SET LOCAL LOOP ON ERROR
;CLEAR R1 FOR TRACK COUNTER

;CLEAR SUBSYSTEM

;BAD

MOV

#WRHEAD
! CFMT,L.CS1

MOV
MOV
MOvB
MOV
MOV

DRVNUM, L .CS?

JSR
1200

3%:

03636«

TSSINIT

BIS

001604
001614

TRA(CK O,

FORMAT

2222302222222 2RRRERARARRARRRRASRRRRERRARRRRRRRlRRlNRRE
A

ERROR

042260

020726

DTYPE,L.CS®

JSET DRV TYP

#74,L.WC
R1,L.DT

;SET WORD COUNT
;LOAD TRACK ADDRESS

#312,L.DCYL

;

#0BUFF L .BA

R4 ,GENTOM

MOVB
MOV

JSR
TCHKOP
ERROR
ERROR
ERROR

;

SET

BUS

ADDRESS

CYLINDER ADDRESS

;GENERATE

HEADER

s INCLUDE BAD SECTOR BITS
;WAIT

FOR

INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

;O0R 5, 6, 7

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

;R1

POINTING

TRACK

‘%

#3%,$LPERR

JSET LOCAL LOOP ON ERROR

MGV
MOV

;SET DRIVE NUMBER

;NO-SK]P

(LR
TSSINIT

SECTOR MODE

;LOAD RK REGS

R1
1%

ERROR

HEADER 24(8)

;LOCAL LOOP ON ERROR TO 1%

BNE
INC
B8R

Mov

INIT ERROR

;SET UP FOR WRITE

:BUMP TO TRACK
;LOOP
;CLEAR

TRACK

POINTER

;CLEAR SUBSYSTEM
.BAD INIT ERRCR

DRVNUM, L .rS?2

;LOAD DRIVE NUMBER

#312,L.DCYL

sLOAD CYLINDER

#RDHEAD
. CFMT,L.CST
R1,L.DT

R4 ,RDSTHD

OR 5.6.7

;LOAD READ 24(8)

sLOAD

SECTOR FORMAT

TRA(K

:GO READ STANDARD HEADER
"RETURN IF CERR Ww/0 DATA LATE

*REPORT ALL OTHER ERRORS

SREPORT DATA LATE

*REPORT "‘OPERATION

SEIT

TO S.OW'* OR ‘*“EADER

20 NOT FOUND'' MESSAGE

[ Yo

SEQ 0122

AFTER READ HEADER.

020¢72
020674
020676

001200

010127
001720
001626
000074
001607
072474
000312

OCCUR WITH WRITE HEADER ON [N READING DATA BUFFER

WWWWWWNWWNO
=
ONNNNNNNWoO

QOOOO

Ot mdmd O

NN
O
ONNNO

1%:

VERIFY

020664
020670

020760
020764
020766
020770
020772
€570

001262
001676
00111¢

$T61:

FORMAT CYLINDER 312,

FORMAT,

W
N

6535
6536
6537
6538
6539
6540
6541
6542
6543
65644
£545
6546
6547
6548
6549
6550

020644
020650
020656

PNOOMNIWWNE
S
NN NNNNOS

€533
6534

£
&

6532

020562
020564
020572
020600
020606
020610
020610
020612
020614
020622
020630
020636

.'r

15:'7
PAGE 123
28-AuG- 81
FORMAT IN 24 SECTOR FORMAT

—d D md B R \ N =2 OO

6528
6529
6530
6531

T61

OO 420000

6526
6527

30(1046)

QO
o

6515
651¢
6517
6518
6519
6520
6521
6522
6523
6524
6525

MACY11

C(IROKGO RK& FCTNL CTRL DIAG
TIRG6KG.PYT
28=-AuG~81 15:1¢

CIREKGO RKG FUTNL CTRL DIAG
“IR6KG.P1Y
28-AUG=81 15:16

6571
6572

6573
6574
6575
6576

020774
020776
021002

6578

6579

001634

[N 24

SCOP1
JSR

R&,GENCOM

0462260

REQ

65%

4%:

104415

005701
001002
005201
000730

042260

PRORURUR)
— — —

004437
010123

035674

104417
104430
104002

e
e

.
T

S WO O

004437
002007
000400

021100
021104
021106

000012
000312

04260

D e

DATA

(OMPARE

6468

;LOOP

B8R

004437
000013
000400

;CONTINUE

;IF ZERO = EXIT

BNE
INC

027070
021074
021076

el ol

R4 ,GENCCM

JREPORT

;LOCAL

NEXT ERROR

LOOP

;POINTING

TO 5%

TRACK

JNO=EX]T
:BUMP T0O TRA(CK 1

5%
R?

;LOOP

5¢:

021046
021050
027056
021064
021066

JDECREMENT (COUNT

:NO MORE ERRORS - EXI”

TST

2222223320022 RNl
Rl R S

1774600

072414
000
000
000312

001,42
OO 6 76

24 SECTOR FORMAT DATA TRANSFER

(PART

ISSUE A WRITE DATA OF 400 WORDS IN 24 SECTOR FORMAT

—

;GET ERROR LIM]IT

65%

SCOP1

021132

JINCLUDING BAD SECTOR LISTS
:NO M]ISCOMPARES=-SK]P
JREPORT FIRST MISCOMPARE

ERROR

¢5%:

:LOCAL LOOP TO 3% ON ERROR
:GENERATE & COMPARE HEADERS

3]
15
ERRLMT ,RU

28800

SEQ (123

SECTOR FORMAT-

MOV

DEC

646%:

G 10
PAGE 124

15:17

FORMAT

TRTEST 62

—d

6622
6623
6624
6625
6626

000413
013700
005300
001406
004437
040000
000402
104016
000770

28-AUG=87

101200
BR
ERROR

—

668
6619
6620
6621

101200

062260

021046

OQOOOOO00O
n RO RO RO RO FOND

6617

021034
021036
021040
021042
021044

—

6612
6613
6614
6615
€616

021032
021034

[»]e}
[aS 1AV ]

6610
6611

004437

30('C46)

104015

6577

6580
6581
6582
6583
6584
6585
6586
6587
6588
6589
6530
6591
6592
6593
6594
6595
6556
6597
6598
6599
6600
6601
6602
6603
6604
6605
6606
6507
66U8
6609

106461°

MACYTY

TO CYLINDER 312,

AND MAKE

ST62:

SURE

TRACK G,
IS

SECTOR 0.

CORRECT.

READ SECTOR BAC(K

SCOPE
MOV
#10.,8TIMES
MOV
#312,REFMT
TSSINIT

ERROR

::D0 10. ITERATIONS
:SET REFORMAT SWITCH
;CLEAR SUBSYSTEM

JSR
13
400

R4 ,GENCOM

:GENERATE DATA
JPATTERN 13
;400 WORDS

JSR

R4, GENCOM

JCLEAR [BUFF

R4 ,LRLOAD

;LOAD “°L*" REGS

2007

:BAD INIT ERROR

TO ALL ONE>

400

JSR

WRDATA!(FMT

=400

OBUFF

.BYTE
BYTE
312

0
0

TLOADRK

TWAT96

ERROR

:WRDATA
! CFMT

;=400 WORDS
JOBUFF

IS BUFF

:SECTOR O
:TRACK 0
JCYLINDER 372
;LOAD RK

:WAIT FOR

ADDRESS

REGS

INTERRUPTY

;70 SLOW/NOT COMPLETE ERROR

6638
6639
6640
6641
6642

6643

6544

6645

6546

6647
6648
6649
5650
6651
6652
6653
6654
6655
6656
6657
6658
6659
6660

6661
6662
6563
6604

006437
010°21

106427
104004

AOPORNONINY

6627
6628
6629
6630
6631
632
6633
6634
6635
6636
6637

OCOOO0O00O

CIREN G0 Rke FUTMN. (TR DIAG
CIREx
5. P
2B=A =8 1 %8:1¢

AL V1Y

TCHKOP

035674

177400

JSR

R4, LRLOAD

BYTE
BYTE

312

104417

SE3 0124

TLOADRK
TWAT3?

:TRACK 0

;LOAD RK REGS
;WAIT FOR INTERRUPT

021170
021174
021176
021200
021202

004437

JSR
100000
400

R4, GENCOM

ERROR

104015

001634

€4$:

062260

104016

65%:

021230

;7O SLOW/NOT COMPLETE ERROR
;OR S5, 6,

;CHECK OPERATION FOR ANY ERRORS

10 ;REPORT ALL ERKORS
; COMPARE DATA
;6400 WORDS

B8R

MOV

ERRLMT ,RC

:GET ERROR LIM]T

iggoo

R4, GENCOM

:CONTINUE

DEC
BEQ

:NO MISCOMPARES-SK]P
:REPORT ST ERROR

RO
&5$

:DECREMENT COUNT
;1F 2ERQO = EXIT
DATA

COMPARF

65%

:NO MORE ERRORS - EX]|T

B8R

64$

:LOOP

ERROR

000770

ADDRES:

;CYLINDER 312

000400
000413

;RDDATA CFMT

ERROR

042260

10 ;REPORT ALL ERRORS

“SECTOR 0

104421
104004

TCHKOP

:CHECK OPERATION FGR ANY ERRORS

:LOAD '1'' REGS

021164
021166

013760
€05300
001406
004437
040000
000402

125

;=400 WORDS
;IBUFF IS BUFF

ERROR

021204
021210
021212
021214
021220
021222
021224
021226
021230

PAGE

;OR S, 6, 7,

1044c4
104002

:REPORT NEXT

ERROR

1%:

::ttt't'tttttlt'!lt'tt't'tt"'ttt'tt'tt'tt'ltttt'tttttt'ttt'ttt't

cxTEST 63
X}

i
i

]

000004
012737
012737
004737

6680
€681
6682

021254

104416
104003

021256
021262

004437
000015

24 SECTOR FORMAT DATA TRANSFER (PART 2)

ISSUE A WRITE DATA OF 1000 WORDS IN 24 SECTOR FURMAT
TO CYLINDER 312, TRACK 0, SECTOR 23.
READ SECTOR BACK

AND MAKE

SURE

CORRECT.

SEEK HAS TAKEN PLACE.

MAKE

SLPF

THAT

MID-TRANSFER

;:'titttt.tttttt.tt""tt"til't'fit'tttt!!tttt.'!"ttn'tt'tttt"'
OO0
WO O
HOO
VWO
N)
~d —a
[AS1AN1,8)

6677
6678

021230
021232
021240
021246
021252

6679

ERROR

=430
1BUFF

0704714
000
o0C
000372

100000

H 10

15:17

RDDATA CFM*

666€
6667
6668
6669
6670

6676

28=AuG-81

24 SECTOR FORMAT DATA TRANSFER (PART 1)

6665

6671
6672
6673
6674
6675

SQéEOLG)

0462260

001262
001676

7S763:

SCOPE
MOV

MOV

#10.,8TIMES

#3712 REFMT

::D0 10.

ITERATIONS

:SET REFORMAT SWIT(H

JSR
PC,OPTIST
TSSINIT

ERROR

:SET UP OPTIONS
;CLEAR SUBSYSTEM

JSR
15

R4, GENCOM

:GENERATE DATA
SPATTERN 15

;BAD INIT ERROR

3?é;046)

I 10

2B8-AUG-81
15:17
PAGE 126
26 SECTOR FORMAT DATA TRANSFER

(PART 2)

6683

021264

001000

6685
6686
6687

027266
021272
021274

004437
002007
001000

042260

JSR_
2007
1000

6689
6690
6691
6692
6693
6694
6695

021276
021302
021304
021306
021310
Cg13i1
321812

004437
010123
177000
072414
023
000
000312

035674

JSK _
R&,LRLOAL
WRDATA! CFM®
-1000
OBUFF
BYTE
23
BYTE
0
312

;LOAD "'L"* REGS
;WRDATA'! CFMT
:=1000 WORDS
0BUFF IS BUFF ADDRESS
SECTOR 23
TRACK 0
:CYLINDER 312

6697
6698
6699

021314
(21316
(21320

104417
104430
104002

TLOADRK
TWATG6
ERROR
2

:LOAD RK REGS
JWAIT FOR INTERRUPT
:T0 SLOW/NOT COMPLETE ERROR

6701
6702

021322
021324

104421
10400¢

TCHKOP
ERROR

6704
6705
6706
6707
6708
6709
6710

021326
021332
021334
021336
021340
021341
021342

004437
010121
177060
070414
023
000
000312

6712
6713
6714

021344
021346
021350

104417
106426
104002

ERROR

6716
6717

021352
021354

04421
106004

TCHKOP
FRROR

6719
6720
6721
6722
6723

021356
021362
021364
021366
021370

004437
100000
007000
000413
104015

042260

6725
6726
6727
€728
6729
6730
6731
6732
6733

021372
021376
021400
021402
021406
021410
021412
021414
021416

013700
005300
007406
004437
040000
000402
104016
000779

001634

6735

(2147%¢

000

6734

6736
€737

035674

64$:

042260

65%:

;1000 WORDS
R&,GENCCM

;OR S, 6,

:CLEAR IBUFF

10 ALL ONES

. CHECK OPERATION FOR ANY ERRORS
10 ;REPORT ALL ERRORS

JSR
R&,LRLOAD
RDDATA!(CFMT
-1000
1BUFF
BYIE
23
BYTE
0
312

:LOAD "'L"* REGS
JRDDATA . CFMT
:=1000 WORDS
:IBUFF 1S BUFF ADDRESS
SECTOR 23
TRACK 0
:CYLINDER 312

TLOADRK
TWAT64

:LOAD RK REGS
WAIT FOR INTERRUPT
:T0 SLOW/NOT COMPLETE ERROR
:OR S, 6,

;CHECK_OPERATION FOR ANY ERRORS
10 ;REPORT ALL ERRORS

JSR
100000
1000
BR
ERROR

R&,GENCOM

: COMPARE DATA

13
15

;1000 WORDS
NO_MISCOMPARES=SKIP
:REPORT FIRST ERROR

MOV
DEC
BEQ
JSR
40000
BR
ERROR
BR

ERRLMT,RO
RO
658
Rk,GENCOM

;GET ERROR LIMIT
*DECREMENT COUNT
SIF 2ERO - EXIT
CONTINUE DATA COMPARE

65$
16
648

:NO MORE ERRORS = EXIT
:REPORT NEXT ERROR
:LOOP

1%:

.SBTTL

SEQ G125

«eSPECIAL CATA TRANSFER TESTS

VMACY

CIREKGO RKO FCINL CTRL DIAG
CIR6KG. P
2B-AUG-81 15:1¢

6739
6740
6741
6742
6743

6757
6758
6759
6760
6761
5762

6763

6764

6765
6766
6767
6768
6769
6770
6771
6772
6773
6774
6775
677¢
6777
6778
6779
6780
6781
6782
6783
6784
6785
6786
6787
6788
6789
6790
6791
6792
6793
6794

MULTI=-SECTOR DATA

2282RNl
Rl AR RRRS R

000004

012737
012737
104416

000012
000312

001262
001676

104003

035674

MULTI-SECTORP DATA

FORMAT CYLINDEK 312, TRACK O IN 26 SECTGR FORMAT WITH
SECTOR 1 MARKED BAD.
ISSUE A WRITE DATA OF 1000 WORDS
TO CYLINDER 312, TRACK 0, SECTOR 0.
MAKE SURE BAD SECTOR
ERROR SETS AND RKDA IS C(ORRECT.
READ SECTOR O AND
SURE

%
5
%

T64:

SECTOR

IS LOADED

ERROR

:BAD INIT ERROR

JSR

R4,LRLCAD

004437
000600

042260

021464
021472

042737
042737

040000
040000

021500
021502
021504

104417
1046431
104002

ERROR

104421
104004

TCHKOP
ERROR

ORLIFF

;LOAD "L’' REGS
:WRHEAD

042260

004437
002007
001000

042260

004437
0n0123

035674

;=102 WORDS

;OBUFF ][5 BUFF ADDRESS

0
0

JSR

R4, GENCOM

BI(
BIC

#R!T14,0BUFF+10 ;MARK SECTOR 1 BAD
#31T14 ,0BUFF+1¢ ;CORRECT HURC

TLOADRK
TWAT11?

004437
000916
001000

ITERATIONS

JSET REFORMAT SWiT(H
;CLEAR SUBSYSTEM

.BYTE
.BYTE
312

600
<

INTO MEMORY.

;:D0 10.

-102

072424
0724 Z 6

CORRECTLY

#10.,8TIMES

MOV
#312,REFMT
TSSINIT

027456
021462

021546

CORRECT.

SCOPE
MoV

WRHEAD

072414
000
000
000312

ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312, TRACK 0,
SECTOR 0.
MAKE SURE BAD SECTOR ERROR SETS AND THE

0044637
000127

1/7000

MAKE

021440
021444
021446
021450
021452
021453
021454

177676

TRANSFER AND BSE

4%e S o W, %, 0y Ve WLV, N, N, G

021416
021420
021426
021434
021436

SEQ (126

TRANSFER AND BSE

2333232322282 22222222022800232282
022 dfR22RR2i0RdlRRRlRRARRR ]

6747

J 10
PAGE 127

15:17

28-AuG-81

“TEST 66

6745
6746

6756

764
A

6744

€748
6749
6750
6751
6752
6753
6754
6755

30(1046)

;SECTOR O
;TRACK 0
;CYLINDER 312

;BUILD HEADERS

;LOAD RK REGS
JWAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE ERROR
:0R S,

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

JSR
16

R4 ,GENCOM

:GENERATE DATA
:PATTERN 16
;1000 WORDS

JSR

R4 ,GENCOM

;CLEAR

R4 ,LRLOAD

;LOAD "'L*" REGS

1000

2007

[BUFF

TO ALL ONES

1000

JSR

WRDATA

-1000
OBUFF

BYTE

JWRDATA

;=1000 WORDS

;OBUFF

|S BUFF

JSECTOR O

;TRACK O

;CY_INDER 312

ADDRESS

Teb)

MACY1T

[

CIREKGO RK6 FCINL CTRL DIAG
TZR6KG,. P
28-AuUG-81 15:16

CIR6KGD RKE FCTINL CTRL DJAG
CIR6KG.PT 1
28-AUG=-81 15:16
6795
6796
6797

6798
6799
6800
6801
6802

6803
€804
6805
6806
6807
6808
6809
€80
681
6812

6813
6814
6815
6816
6817
6818
6819
6820
6821
6822
6823
6824
6825

6826
6827
6828
6829
6830
6831

6832
6833
6834
6835
6836
6837
6838
6839
6840
6841
6842
6843
6844
6845
6846
6847
6848
6849
6850

021550
021552
021554

106417
104424
104002

021556
021560
021562
021564
021566
021570
021574

106422

021600
021606
021619
021616
021624
021632
021670
021642

30(1046)
T64

104004

013737
013737
012737

054260
050046
050060
050557

001450
001202
001204
061072

000040

050072

;LOAD RK REGS

+WAIT EO0R INTERRUPT
2TO SLOW/NOT (OMPLETE

054310
050557
050044
050062

001450
061072
201202
001204

021720

035674

001110

gSERR

;BAD SECTOR ERROR

ERROR

BIT

#TRKERR,GRP4ER

5,6,7

MOV
ERROR
BR

#0PER37,DFO10A
10
5%

BIT
BEQ

BR
SCOP1
MOV

TSSINIT

ERROR

JSR
RDDATA
=400
IBUFF

000312
106417
104424

TWAT32

#SECERR,GRP4ER
3%

#EM14 EMION
#OPER37,DFO010A
EXPSEC,$REG10
REALSEC,$REG1?
10

#3%,SLPERR

0
0

VALUE

;''AFTER WRITE

DATA TERMINATED WITH BSE'’

JEXIT

;SECTOR IN ERROR?
;NO-SK]P
;''SECTOR ADDRESS INCORRECT''
J'AFTER WRITE

DATA ABJRTED WJITH BSE''

JEXPECTED VALUE

JREAL

VALUE

JEXIT

TEST

:CYLINDER 312

104421
104004

ERROR

021754
021760
021762
021764
021766

004437

JSR
100000
400

R4 ,GENCOM

021770

013700

001634

JREAL

JTRACK 0

021750
021752

104015

INCORRECT''

JEXPECTED VALUE

;=400 WORDS
;IBUFF IS BUFF ADDRESS
2SECTOR O

ERROR

000400
000413

IN ERROR?

;NO-SK]P

JCLEAR SUBSYSTEM
;BAD INIT ERROR
JLOAD *'L'" REGS
JRDDATA

R4 ,LRLOAD

104002

042260

:TRK

;LOCAL LGOP TO BEGINNING OF
JSET LOCAL LOOP ON ERROR

sLOAD RK REGS

TLOADRK

TCHKOP

DISCREPANCIES

:CLEAR GROUP & ERRORS
JCHECK CYL, TRK, SECT CORRECT AFTER ABORTED WRITE
;"'TRACK ADDRESS

REALTRK ,$REG11

021742
021744
021746

100000

;REPORT ALL

1%
#EM13 EMION
EXPTRK,$REG10

.BYTE
BYTE
312

GRP4ER
R4, CHK(CTS

BEQ
MOV
MOV

MOV
MOV
MOV
MOV
ERROR

3%:

ERROR

JCHECK OPERATION WITH EXPECTEC ERR

MOV

1%:

SEa C127

TRANSFER AND BSE

TCHKWE

(LR
JSR

000527

021720
021722
021724
021730
021732

K 10
PAGE 128

050072

021712
021720

MULTI=-SECTOR DATA

ERROR

050072
037642
000020

104010

15:17

TLOADRK

005037
004437
032737

001416
012737

28-AyG-81

TWAT3?

000000
000100
000000

021644
021652
021654
021662
021670
021676
021704
021706
021710

021734
021736
021737
021740

MACY11

;WAIT

FOR

INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

;0R 5, 6,

BR
ERROR

L%
15

MOV

ERRLMT ,RC

;CHECK OPERATION FOR ANY ERROKS
10

;REPORT ALL

ERRORS

: COMPARE DATA

;400 WORDS
JNO MISCOMPARES-EXIT
JREPORT

FIRST

ERROR

sGET ERROR LIMIT

CZR6KGO RKe FOTNL (TRL DIAG
(ZR6KG P11
28-AUG-81 15:1¢6
6851
6852
6853
6854
6855
6856
6857
6858
6859
€860
6861

6889
6890

021774
021776
022000
022004
022006
022010
022012
022014

005300

001406
004437
040C00
000402

64%:

DEC
BEQ

062260

022024
022030
022032
022034
022036
022037
022040

004437

035674

022042
022044
022046

104417
104424
104002

022050
022052
022054
022056
022060

104422
000000
000100
000000
104004

022062
022066
022070
022072
022074

004437
100000

104016
000770

65%
16
649

;NO MORE ERRORS = tXIT
JREPORT NEXT ERROR
;LOOP

JSR

R4 ,GENCOM

;CLEAR

R4 ,LRLOAD

;LOAD 'L’ REGS

2007
JSR

RDDATA

-1000
1BUFF
.BYTE

BYTE
312

IBUFF

042260

001634

66%:

042260

67%:

JRDDATA

;=1000 WORDS

; IBUFF IS BUFF ADDRESS

0
0

JSECTOR O
;TRACK O
;CYLINDER 312

TLOADRK

TWAT3?
ERROR

000400
000413
104015

013700
005300
001406
004437
040000
000402

BR .
ERROR
BR

1000

001000

000121
177000
070414
000
000
000312

R4 ,GENCCM

;DECREMENT (COUNT
JIF ZERO - EXIT
;CONTINUE DATA (OMPARE

JSR

4%:

SEQ C128

65%

40000

65%:

004437
002007

022122

28~AUG=81
15:17
PAGE 129
MULTI-SECTOR DATA TRANSFER AND BSE

104016

000770

L 10

3?é2046)

062260

022014
022020
022022

022076
022102
022104
022106
022112
022114
022116
022120
022122

VACY11

;LOAD RK REGS
JWAIT FOR INTERRUPT

;TO SLOW.NOT COMPLETE ERROR

6CHKUE

;CHECK OPERATION WITH EXPECTED ERROR

8SERR

;BAD SECTOR ERROR

OR 5,6.,7

ERROR

JSR
100000
400

R4 ,GENCOM

;REPORT ALL

DISCREPANCIES

;COMPARE DATA AGAIN
;400 WORDS
;NO MISCOMPARES

BR
ERROR

5%
15

JREPORT FIRST ERROR

MOV
DEC

ERRLMT RO
RQ

JGET ERROR LIMIT
;DECREMENT COUNT

JSR
40000
BR
ERROR

R4 ,GENCOM

J1F ZERO - EXIT
;CONTINUE DATA COMPARE

67%
16

:NO MORE ERRORS - EXIT
JREPORT NEXT ERROR

BEQ

B8R

67%

66%

. LOOP

5%:
;;'t't'fitfi**t**tt'tt"i""Q*i‘ti"i'*ttti*tt'tttt‘tt'th.t'!t.t‘.

JxTEST 65

FORMAT

TEST

o
M
M

6906

FORMAT CYLINDER 312, TRACKS O AND 1 IN 2 6 S ECTOR FORMAT,
MAKF SURE NO ERRORS SET.
READ SECTORS 0 2 5 AND MAKE
SURE DATA (HE(K DOES NOT OCCUR.

;:tnttttttttttttttttttttt'ttttttfitattttttttt-t-nttttt'nta-.w'tttt

(IR6KGO RK6 FCTNL CTRL DIAG

(ZR6KG.P11T

28-AUG-81 15:16

FORMAT TEST

022122
022124
022132
022134

6912
6913
2g]g

022142
022142
022144

104416
104003

6916
6917
6918
6919
6920
6921
ggs%

022146
022154
022162
022170
022174
0222062
022210

013737
012737
053737
110037
012737
012737
012737

001626
000127
001720
001607
072414
177676
000312

6924

022216

004437

042260

6927
6928
gg%g

022224
022226
022230

104417
104431
104002

Tt OADRK
TWAT112
ERROR
2

6931
gg%%

022232
022234

104421
104004

T CHKOP
ERROR

23%@

022236

104415

SCOP1

6936
6937

022240
022242

005700
001002

2352

6938
6939
6940
232;

6943
6944
6945
6946

6947
6948
6949
6950

6951
6952
gggz

022222

(022244
022246
022250
022252

0227260
022260
022262
022264

001200

005200
000735
005000
012737

004437
000121
177400

022276
022277
022300

000
000
000312

001262
001110

1%:

001610
00160G
001600
001604
001602
001614

SCOPE
MOV
CLR
MOV

022260

2%:
113%:

035674

070414

;.D0 1 ITERATION
;CLEAR TRACK COUNTER
;SET LOCAL LOOP

DRVNUM,L.(S2
AWRHEAD,L.CST
DTYPE,L.CS1
RO,L.DT
#OBUFF ,L.BA
#-102,L.WC
#312,L.DCYL

;LOAD DRIVE NUMBER
;LOAD WRITE HEADEPR
;SET DRV TYP
;LOAD DESIRED TRACK FROM TRACK COUNTER
;LOAD BUS ADDRESS
:
WORD COUNT
:
CYLINDER

JSR

R&4 ,GENCOM

JBUILD HEADER

BNE
INC
BR
CLR
MOV

;WITH BSE FLAGGED
;LOAD RK REGS
JWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

;OR 5, 6, 7

;CHECK OPERATION FOR ANY ERRORS
REPORT ALL ERRORS

;LOCAL LOOP TO 1%
RO
2%

RO
1$
RO
#113%,SLPERR

;RO AT ZEROQ”
JNO=EXIT

;BUMP COUNTER
;LOOP
;CLEAR SECTOR COUNTER
;SET LOCAL LOOP ON ERROR

TSSINIT
ERROR
3

;CLEAR SUBSYSTEM
;BAD INIT ERROR

JSR

;LOAD L' REGS
sRDDATA
;=400 WORDS

RDDATA
=400
IBUFF
BYTE
BYTE
312
MOVB

R4, LRLOAD

‘

0
O

IS BUFF ADDRESS
;SECTOR O
JTRACK 0
:CYLINDER 312

RO,L.DS

;LOAD SECTOR COUNTER INTO DESIRED SECTOR

110037

6957
6958
gggg

022306
022310
022312

104417
104424
104002

TLOADRK
TWAT 32
ERROR
2

6961

022314

1044627

TCHKOP
ERROR

104004

SEQ 0129

MOV
MOV
BIS
MOVAB
MOV
MOV
MOV

022302

022316

PAGE 130

#1,8TIMES
RO
#'$,SLFERR

2322

6962

001606

3%:

M 10

;CLEAR SUBSYSTEM
JBAD INIT ERROR

1200

001110

15:17

TSSINIT
ERROR
3

TST

104416
104003

022264
022270
022272
022274

000001
|
022142

TST65:

28-AUG-81

6907
6908
6909
gg}?

000004
012737
005000
012737

VACYT 3?é;046)

;IBUFF

;LOAD RK REGS
sWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR
;CHECK OPERATION FOR ANY ERRORS
;OR 5, 6, 7, 10 ;REPORT ALL ERRORS

CZROKGO RKG FCTNL (TRL DIAG
CZROKG.P1T
28~AUG-B1 15:16

6963
6964
6965

022320

0e23¢d
0 22330
022332

001402
005200
000754

022334

005037

7000
7001

7002

7003
7004
7005
7006
7007
7008
7009
7010
7011
7012
7013
7014
7015
7016

7017

7018

28-AUG-81

FORMAT

TEST

N 10

15:17

PAGE 131

SCopP?
000024

001676

#24 ,R0

sLAST SECTOR READ?

4%
RO

JYES=EXIT
;BUMP SECTOR COUNTER

REFMT

;CLEAR REFORMAT SWIT(H

;LOOP

68:

{LR

LSBTTL

««WRITE (HECK TESTS

J*TEST 66
b

’

* %

SEQ 0130

sLOCAL LOOP TC 3% ON ERROR

(MP

1EQ
iNC

6973

6974
6975
6976
6977
6978
6979
6980
6981
6982
6983
6984
6985
6986
6987
6988
6989
6990
6991
6992
€993
6994
6995
6996
6997
6998
6999

30(1046)
T65

104475

%&9223? '» 0227C0
6968
6969
6970
6971
6972

MACY1T

N Iy

WRITE~CHECK WITH NO ERROR

WRITE CYLINDER 312, TRACK O, SECTOR O WITH A KNOWN PATTERN.
DO A WRITE-CHECK OF 400 WORDS.
MAKE SURE NO
ERROR OCCURS.

° %

':ttttt'ttt"t‘ttttlt (I AAAS 2222222222222

022340
022342
022350
022352

000004

012737
104416

000012

104003

001262

T5766:

S OPE
MOV

#10.,8TIMES

ERROR

JSR

R4 ,LRLOAD

TSSINIT

022354
022360
022362
022364
022366
022367
022370

004437
000123

022372
022376
022400

004437
000002
000400

022402
022404
022406

104417
104430
104002

ERROR

022410
022412

104421
104004

ERROR

022414
022420
022422
022424
022426
022427
022430

004437
000131

JSR

R4 ,LRLOAD

022432
022434
022436

104417
104424

035674

177400

=400
OBUFF

072414
000
000
000312

177400

072414
000
000
000312

104002

WRDATA

042260

0
0

JSR

R4, GENCOM

TCHKOP

035674

WRTCHK

BYTE
BYTE

312

:WRDATA

:SECTOR @
:TRACK 0
:CYLINDER 312
:GENERATE

:PATTERN 2
;400 WORDS
:WAIT

ADDRESS

DATA

FOR

0
0

;:TO SLOW/NOT COMPLETE ERROR
;0R S,

:CHECK OPERATION FOR ANY

10 ;REPORT ALL

ERRORS

:LOAD ‘L'’ REGS
SWRTCHK

;OBUFF

IS BUFF

:SECTOR 0
;TRACK 0

ADDRESS

:CYLINDER 312
:LOAD RK REGS

’

INTERRUPT

;=400 WORDS

TLOADRK

TWAT3?
ERROR

ERROR

:LOAD RK REGS

=400

OBUFF

:BAD INI:

:LOAD L'’ REGS

TLOADRK
TWAT96

ITERATIONS

SUBSYSTEM

;=400 WORDS
;OBUFF IS BUFF

KBYTE
BYTE
312

2
400

;:D0 10.

;CLEAR

:WAIT FOR INTERRUPTY
;70 SLOW/NOI COMPLETE ERROR

022440
0224472

8 11

SEQ 0131

;CHECK OPERATION FOR ANY ERRORS

;OR 5, 6, 7, 10 ;REPORT ALL ERRORS

WRITE (HECK ERROR (PART 1)

S
BN
BN
BT

IR Y

CONF IGURATIONS:

000001
000002
000004
000010

EE A

000020
000040
000100
000200

000400
001030
002000
004000

010000
020000
040000
100000

7033

TR RN

LIS

WRITE CYLINDER 312, TRACK O, SECTOR O WITH ALL ZEROES.
WRITE CHECK CYLINDER 312, TRACK O, SECTOR O WITH SAME
DATA EXCEPT WORD 110 HAS ONE OF THE FOI LOWING

SRR

YT )

«TEST 67

IR IR

MAKE SURE WRITE CHECK ERROR SET FOR EACH
OF THE CONFIGURATIONS AND THAT,THE BUS ADDRESS
AND WORD COUNT IS CORRECT.

‘:tttttt*t*tkt*ttt**t'tttttttfiQ*t*tfitttttfitt*tt*t*ttttfittttt'tt't

022444
022446
022454

022460
022462
022464
022470
022472
022474
022500
022502
022504
022506

000012
000001

001262

T67:

STOPE
MOV

MoV

#10. ,$TIMES

TSSINIT

042260

#SR

035674

177400
072414
000
000
000312

JSR »

WRDATA

-400
OBUF F

.BYTE
BYTE
312

sSECTOR 0
:TRACK 0
:CYLINDER 312

JSR
WRT(CHK

R4 ,LRLOAD

BYTE
BYTE
312

0
O

104417
104424
104002

T(HKOP

035674

=400
OBUFF

;TO SLOW/NOT COMPLETE ERROR

O0R 5, 6,

;CHECK

OPERATION FOR ANY

10 ;REPORT ALL ERRORS

;=400 WORDS
;OBUFF IS BUFF

ERRORS

JLOAD "'L'" REGS
s WRTCHK
;SECTOR O
:TRACK 0
.
;CYLINDER 372
;LOAD RK REGS

ADDKESS

;LOAD RK REGS
JWAIT FOR INTERRUPT

TLOADRK

TWAT3?
ERROR

;WRDATA

0
0

TLOADRK
TWAT96

;LOAD 'U"" REGS
;=400 WORDS
;OBUFF IS BUFF

ERROR

022542
022544
02546

;GENERATE DATA, ALL 0'S

R4, LRLOAD

104421
104004

177400
072414
000
000
000312

sBAD INIT ERROR

R4 ,GENCOM

ERROR

004437
000131

ITERATIONS

JCLEAR SUBSYSTEM

104417
104430
104002

022524
022530
022532
022534
022536
022537
022540

10.

;SET LO ORDER BIT IN RO FOR
sCAUSING WRITE CHECK ERROR

400

000400

004437
000123

ERROR

;.D0

#81T70,R0

ADDRESS

;WAIT FOR INTERRUPT
;TC SLOW/NOT COMPLETE ERROR

-y

PAGE 132

S 2232232232222
RRRRRS022R
R
AR RRRRRRRARE R

7028
7029
7030
7031
7032

7074

15:17

WRITE=-CHECK WITH NO ERROR

T(HKOP

7026

7073

28-AUG~-81

ERROR

104004

7027

7047

166

104421

7025

7034
7035
7036
7037
7038
7039
7040
7041
7042
7043
7044
7045
7046

30(1046)

7019
7020
7021
7022
7023
7024

MACY11

[

(ZR6KGO RK6 FCTINL CTRL DIAG
CIR6KG. P11
28-AUG=-81 15:16

7075

7076

7077

022550

022552

WACY11

30(1046)
28-AUG-81
15:17
167
WRITE CHECK ERROR

10442°

TCHKOP

104004

ERROR

PAGE 133
(PART 1).

SE2 0132

:CHECK

OPERATION FGR ANY

;LOCAL

LOOP ON WRITE

RO,0BUFF+220

:CAUSE

ERROR BIT

:BAD INIT ERROR

;OR S, 6, 7, 10 ;REPORT ALL ERRORS

ERRORS

‘

{

7079

022554

7081

022564

7080
7082

022570

7083

022572

7085

022600

7084

7086

7087

022556

104415

012737

010037

104416

104003

022574

004437

022602

177400

022604

000131

022564

072634

001110

SCOP1

MOV
MOV

TSSINIT

ERROR

035674

JSR

WRTCHK

072414

OBUFF

TLOADRK
TWAT32

022606
022607

022610

000
000
000312

7092
7098
7094

022612
022614
022616

104417
104424
104002

ERROR

7096
7097
7098
7099

022620
022622
022624
022626

104422
000000
000004
000000

T CHKWE
0
WCKERR
0

7102

022632

104415

SCOP1

7100

022630

BYTE
BYTE
312

104004

ERROR

7104
7105
7106
7107
7108
7109
7110

;
;
:
:
:
:
:

7113

7114

7115
7116
7117
7118
7119
7120

71g

7123
7124
7125
7126
7127
7128
7129
7130

022634

022642
02644
022646
022654
022662
022670

022676

022700
022706
022710
022712
022720
022726
022734
022742

023727 001544 " ¥be36

001416
101040
012737
012737
013737
012737

104010

023727
001461
101037
012737
012737
012737
013737
104010

R4,LRLOAD

-400

7088
7089

7090

#18,$LPERR

054123
072636
001544
050613

001450
001202
001204
061072

001542

177511

054076
050613
177511
001542

001450
061072
001202
001204

2%:

:CLEAR SUBSYSTFM

IN BUFFER

:LOAD "'L"* REGS

SWRTCHK

=400 WGRDS
0BUFF

0
0

IS BUFF

SECTOR 0
:TRACK 0
SCYLINDER 312

ADDRESS

;LOAD RK REGS
:WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE

CHECK

ERROR

;CHECK OPERATION WITH EXPECTED ERROR
;WRITE

OR 5,6,7

CHECK

ERROR

;REPORT ALL DISCREPANCIES

;LOCAL LOOP ON ERROR T0 1%

NOTE:
THE WORD COUNT AND BUS ADDRESS CAN BE EITHER OF THREE
VALUES AND BE CORRECT. THE DIFFERENCE IS CAUSED BY WHEN THE
WCE OCCURRED, IF IT OCCURRED ON THE FIRST WORD OF A DOUBLE
NPR CYCLE, WC AND BA WILL BE TWO PAST WHERE THE ERROR ACTUALLY
OCCURRED. "IF WCE OCCURRED ON A SINGLE NPR CYCLE OR THE LAST
NPR CYCLE OF A DOUBLE CYCLE, WC AND BA CONTENTS ARE ONE PAST
THE ACTUAL WORD WHERE THE ERROR WAS. IN SOME CASES, WC AND BA

(AN BE THREE PAST WHERE THE ERROR wAS AND STILL BE ACCEPTABLE.

CMP

:SET LOCAL LOOP

T.BA,#0BUFF+222 ;CHECK BA HALT AT PROPER PLACE

BEQ
BHI
MOV
MOV
MOV
MOV

28
YES=SKIP
6$
SIF 10 HI - SKIP
#EM11,EMION
:'INCORRECT BA'TM*
HOBUF
+222 ,SREG10
F
;GOOD VALUE
T.BA,$REGT1
:BAD VALUE
#OPER4L1,DFO10A
:*WRITE CHECK ABORTED WITH WCE'

FRROR

cMP
BEQ
BHI
MoV

T.WC,4-267
38
s
#EM10,EMTON

MOV

#OPERLT,DFO10A

MOV
MOV
ERROR

#-267,$REGI0
T. Wi, $REGT
10

;CHECK WORD COUNT AT CORRECT VA_UE
YES-SKIP
:IF HIGHER SKIP
;"'INCORRECT wW('*
:'MRITE CHECK ABORTED WITH WCE'!
:GOOD VALUE
ERROR VALUE

lalal

(ZR6KGO Rk6 FCTNL CTRL DIAG
CZR6KG.P11
2B-AUG-B1 15:16

;‘133

022744

000442

7133

022746

023727

7136
7135

7136

022754
022756

022764

7137
7138

022772
022000

7141

023010

;;28
7142
7143
7144

7145

023006

023016
023020
023026

023034

101415
012737

012737
013737
012737

104010

023727

101415
012737
012737

012737

7146
;ng

023042
02305C

;%28

023052

104415

7151
7152
7153

023054
023060
023062

032700
001002
006300

7156

023066

;;gé

7157

023064

013737
104010

VACY11 30(1046)
28-AUG=81
15:17 PAGE 134
67
WRITE (CHECK ERROR (PART 1)

BR
001544

072642

054123
001544
050613

072642

(MP

SEXIT S

T.BA,#0BUFF+226 ;TEST IF BA AT H] SIDE

001450

BLOS
MOV

7%
#EM11,EMION

JYES - SK]P
:SET MESSAGE

001204
061072

MOV
MOV

T.BA,$REGT]
#0PER4GT,DFOT10A

JERROR VALUE
;'WRITE CHECK ABORTED WiTH W(E''

T.WC,#=-265

JTEST IF WORD COQUNT AT HWI SIDE

001202

071542

177512

0564076
050613

001450
061072

001542

007204

177513

6%:

SEQ C133

MOV

lOBUFF*226,$REG1b .G00D VALUE

ERROR

7%:

001202

(MP

BLOS
MOV
MOV

3
#EM10 ,EMION
#OPERG1,DFO10A

MOV
ERROR

T.WC,$REGT1T
10

MOV

3%:
1000CC

#-265,8%REG10

SCOP1
#BIT15,R0
4%
RO

IR RN

;GO0D VALUE

JERROR VALUE

;LGCAL LOOP ON ERROR TO 1%

BIT
BNE
ASL

000637

JYES - SKIP
;SET MESSAGE
;'WC ABORTED WITH W(CE''

;BIT 15 SET?
JYES=EXIT
JSHIFT ERROR BIT

AR RN

AR R

;LOOP

N RN AR AR

R R RN RN RARN

AN RN AR N R AN RN

;}gg

J«TEST 70

7160

WRITE CYLINDER 312, TRACK 0, SECTOR C WITH 17777

;}gz

ONE OF THE FOLLWOING CONFIGURATJONS:

7165
7166
7167

I
I
o

1727776
177775
V27773

7170

MAKE SURE WRITE CHECK ERROR SET FOR EACH

7174

:-'-tttttttttttttt'ttttttt'tt!tttttttttttin'ttktttttttt'tnt'-ttnttt

7161
7162

.t
o

. %

;}gg

7171
;};g

A
o

7175
7176

023066
023070

000004
012737

7179
7180
7181
7182

023102
023104
023106
023112

104416
104003
004437
000007

785

023116

004437

;;;g

;%gz

7186

023076

023114

023122

012700

000012

177776

042260

000400
000123

001262

1S770:

WRITE CHECK ERRCR (PART 2)

IN ALL WORDS.
SECTOR 0 WITH

177767

WRITE CHECK CYLINDER 312, TRA(K O,
THE SAME DATA EXCEPT WORD 120 HAS

177757
177737
177677
177577

177377
176777
175777
173777

Q77777

OF THE C(ONFIGURATIONS AND THAT
AND WORD COUNT IS CORRECT.

SCOPE
MOV

MOV

#10,

,8TIMES

#177776,R0

THE

2:D0 10,

BUS ADDRESS

ITERATIONS

;LOAD RO FOR CAUSING WRITE (HEK ERRCR

TSSINIT
ERROR
3 JSR
Ro ,GENCOM
4

sCLEAR SUBSYSTEM
;JBAD INIT ERROR
;GENERATE DATA
JALL 1°'S

JSR

JLOAD *L'' REGS

400
035674

167777
157777
137777

WRDATA

R4 ,LRLOAD

;400 WORDS
JWRDATA

[Y-

CIR6KGO RK6 FTTNL CTRL DIAG
(IREKG.P1T
28-AuG-81 15:16

0D N

170

E 1N
28-AUG-81
15:17 PAGE 135
WRITE IHECK ERROR (FART 2)
=400
OBUFF

17740C

023134
02%136

7196
7197

104417
104430
104002

ERROR

023142

104421
104004

ERROR

023146
023152
023154

006437
000131

JSR

R4, LRLOAD

7198

7199
7200
7201
7202
7203
72046
7205
7206

023140
023144

072414
000
000
000312

BYTE
BYTE
312

TCHKOP

035674

WRT(HK

=400
OBUFF
BYTE

177400

023156
023160
023161
023162

072414
000
000
000312

7208
7209
7210
72°1

023164
023160
023170

104417

TLOADRK

104002

ERROR

7212

7213
7214

023172

023174

104421

7215

023176

7207

7216

7217
7218
7219
7220
7221
7222

7223

7226
7225
7226
7227

7228

7229

7230
7231
7232
7233
7234
7235
7236
7237
7238
7239

7240
7241

7242

BYTE
312

TWAT 32

104424

TCHKOP

104004

104415

0
0

JSECTOR O
;TRACK 0
;CYLINDER 312

TLOADRK

TWATG6

SEQ 0134

;=400 WORDS
;OBUFF IS BUFF

7187
7188
7189
7190
7191
7192
719%
7194

7'95

023124
023126
(023130
023131
023132

MACY1Y 30(1046)

ADDRESS

;LOAD RK REGS

JWAIT FOR INTERRUPT

;70 SLOW/NOT (OMPLETE ERROR
;0P 5,

;CHECK

OPERATION FOR ANY

10 ;REPORT ALL ERRORS

ERRORS

JLOAD "' REGS
s WRT(CHK

;=400 WORDS
;OBUFF IS BUFF
;SECTOR O

0
0

AUDRESS

s TRACK 0
;CYLINDER 312

;LOAD

;WAIT FOR

REGS

INTERRUPT

;TO SLOW,NOT COMPLETE ERROR
;O0R 5,

;CHECK OPERATION FOR ANY ERRORS

ERROR

,REPORT ALL ERRORS

SCOP1
MOV

;LOCAL
#1% $LPERR

MOV

RO,0BUFF +220

ERROR

;BAD INIT ERROR

JSR

R4 ,LRLOAT

;LOAD "'L"" REGS

LOOP TO START OF TEST
JSET LOCAL LOOP

023200

012737

023206

023206
0232172
023214

010037

072634

023216

023222

004437
000131

023232

072414
000
000
000312

023234
023236
023240

1064417
104424
104002

023242
023244
023246
023250
023252

104422
000000
000004
000000
104004

6CHKWE

;CHECK OPERATION WITH EXPECTED ERROR

3CKERR

JWRITE

023254

104415

scoP?

023224
023226
023230
023231

104416
104003

"77400

035674

001110
1%:

TSSINIT

WRTCHK

-400
OBUFF
BYTE

BYTE
312

ERROR

0
0

NOTE :

TO CAUSE WCE

JWRTCHK

ADDRESS

JTRACK 0
;CYLINDER 312
;LOAD

JWAIT

IN OBUFF

;=400 WORDS
;OBUFF 1S BUFF
;SECTOR 0

TLOADRK

TWAT3?

;PUT WORD

;CLEAR SUBSYSTEM

RK REGS

FOR

INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

5.6.7

CHECK ERROR

sREPORT ALL

DISCREPANCIES

;LOCAL LOOP TO 1%
THE

WORD COUNT AND 8US ADDRESS (AN BE

EITHER OF

THREE

CIR6KGO RKG FCINL CTRL DIAG
cIR6KG.PT
28-AUG-81 15:16

7243
7244
7245

;
:
:
.
;
:
:

7246
7247

7248
;Sgg

7251

7252

023256

023727

001544

(72636

7255

023270

012737

054123

001450

7253
7254

7256
7257

39;8046)

023264
023266

023276
0233C4

001416
101040

012737
013737

(072636
001544

001202
001204

F 1
28-AuG-81
15:17
PAGE 136
WRITE (HECK ERROR (PART 2)
VALUES AND BE CORRECT. THE DIFFERENCE IS CAUSED 8Y WHEN THF
w(E OCCURRED. IF ]T OCCURRED ON THE FIRST WORD OF A DOUBLE
NPR CYCLE, WwC AND BA WiLL BE TWJO PAST WHERE THE ERROR ACTUALLY

OCCURRED.
NPR (CY(CLE

IF
OF

w(E OCCURRED ON A SINGLE NPR (YCLE OR THE LAST
A DOUBLE CYCLE, WC AND BA CONTENTS ARE ONE PAS!Y

THE ACTUAL WORD WHERE THE ERROR WAS. IN SOME CASES, w( AND BA
CAN BE THREE PAST WHERE THE ERROR WAS AND STILL BE ACCEPTAB.E.
(mp

T.BA,#OBUFF+222 ;(HECK BA HALT AT PROPER PLACE

BEQ
BH]

28
1}

MOV
MOV

#OBUFF+222 ,8REG10
;GOOD VALUE
T.BA,$REGI!
:BAD VALUE

MOv

#EM11,EMION

JYES=SK]P
JIF TO Kl -

SK]IP
:"'INCORRECT BA"'

SEQ (135

MACY1?

€Yy

(ZR6XGO RKe FCINL CTRL DIAG
CIR6KG.PIT
28=-AUG=-81 15:14

7258

023312

012737

050613

061072

7261

023322

023727

001542

177511

7265

02%3¢2

012737

054076

177571

;ggg
4

7262
7263
7264

7266

023320
023330
023332
023336

023350

104070

001461
101037
012737

012737

050613

7267
7268
;598

023356
023364
023366

013737
104010
000442

001542

7271

023370

0237c7

001544

7272
7273

023376
023400

#=-267 ,3REGT0

:GO0D VALUE

072642

7279
7280

023432
023440

023727
101415

;Sgg

023472

104010

7281
7282
7283
7284

023442
0236450
023456
023464

012737
104010

012737
012737
012737
(073737

ngg

02%&74

104415

7289

023476

032700

7290
7291

;Sg%
7294

7295

023502
023504

023506

001002
006300

050613

MOV

001204

023422
023430

JCHECK WORD COUNT AT (ORRE(T VALUE

MoV

001544

7276
;g;g

T.W(,2=267

(HMECK ABCRTED WlTH W(E''

Q01202

061072

013737

072642

(mMP

;"WRITE

001450

023414

012737

2%:

JYES=SK]P
;1F HIGHER -~ SKIP
J''INCORRECT w('*

054123

023606

#OPERGT,DF010A

ERROR

33
7%
)
#EM10,EM ON

B}
001450

7275

MOV

St '3

BEQ
BH]
MOV

101415
012737

7274

6 N
30(1046)
2B8-AUG=81
15:17 PAGE 137
170
WRITE (HECK ERROR (PART 2)

MOV
ERROR
8r

6%:

(MP

054076
050613
177513
001542

001450
061072
001202
001204

MOV
ERROR
(MP
BLOS

EMION

JYES = SKIP
:SET MESSAGE

T.BA,SREG1

JERROR VALUE

T.W(, #-265
b3 3

JTEST IF WORD COUNT AT M
JYES - SK]P

;'WRITE CHECK ABORTED WwITH WCE''

#B]1T15,RC

BNE
ASL

(00637

JSET MESGAGE
;'WC ABORTED WITH W(E''
;600D VALUE
JERROR VALUE

JBIT 15 SET?

6%
RO

;LOOP

JeTEST

7298

WRITE

7301
7302
7303

.t
.
X

PIFFERENT THAN DATA ON DJSK.
MAKE
wiTE CHECK ERROR DOES NOT SET.

.t
K

7304

7305
7206

023510
023512

000004
012737

;ggg

023522

104003

7310
7311

023524
023530

7307

7312
7313

(023520

023532

104416

0046437
000007
000400

_
00C01¢

(422¢0

001262

A NN R A AN

(ALL PATTERNS TESTED)

JYES-EXIT
JSHIFT FOR NEXT

;ggg

7299
7300

SIDE

SCOP1
BIT

4%:

JEXIT

#EM10,EMI0N
#OPER&T1,DFO10A
#-265,8REG10
T WC,8REG1

ERROR

100000

023510

sERROR VALUE

#0PER4T,DFO10A
10

MOV
MOV
MOV
MOV

$$:

CHECK ABORTED Ww.TH wW(E''

#OBUFF +226,$REG10 ; GOOD VA, UE

MoV

7%:

;'WRITE

T.BA #0BUFF+226 ;TEST [F BA AT HI SIDE

7%
#EM11

MOV

061072
177513

T.WC,$REGT?
10
3s

BLOS
MOV

001202

001542

#OPERGT ,DFO10A

WRITE
CYLINDER

R PR R A R R AR AN AR

CHECK OF
312,

AR A RN C R AN RN

PARTIAL

TRACK 0,

TEST

AN AN SR

RPN O RO

SECTOR

SECTOR WITH A kKNOWN

(ONF JGURATIONS.
ISSUE A WRITE (CHECK COMMAND OF
110 WORDS MAKING SURE THE 111TH WORD IS

TST71:

S_RF

SCOPE
mMav

#1710, ,87IMES

;.D0 10.

ERROR

;BAD INIT ERROR

JSR
I4

R4 ,GENTOM

TSSINIT

4«00

ITERATIONS

sCLEAR SUBSYSTEM

;GENERATE DATA
JALL 'S
2400 WORDS

)

WACY1T

~ae
.

TIREXGD RO FOTTMNL C(TRL DIAG
TIR6KG.P1T
28-AUG-81 15:16

TIREKGD RKG FONL

TIREKG P11

7314
7315
7316
7317
7318

7819

(TR DIAG1

28-AuG-81

023534
023540
023542
023544

023546

023547

00&‘37
000127
177400
(072414

000312

7322

023552

104417

7324
7325
7326

023556

104002

023554

023560

035674

=400
OBUF F

BYTE
BYTE
312

104421

023562

104004

023564

005037

072636

7337
7332
7333
7334

023570
023574
023576
023600

004437
000131
177670
072414

035674

7335
7336

733¢
7338

7339

7360
7361

7342
7343
7364
7345

023602
023603

000
000

(023606

104417

TLOADRK
TWAT32

ERROR

104427
104004

SBTTL

7369

: CHECK _OPERATION FOR ANY ERRORS
10 ;REPORT ALL ERRORS

;LOAD "L'* REGS

SWRTCHK

=110 WORDS
:0BUFF IS BUFF
*SECTOR 0

0
0

ADDRESS

:TRACK 0

:CYLINDER 312
;LOAD RK REGS
:WAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE ERROR

;OR 5,

«*MAXIMUM DATA

¢,

;CHECK

OFERATION

FOR

10 ;REPORT ALL ERRORS

TRANSFER AND CONTROLLER

TIME

ANY

ERRORS

*TEST

7¢

MAXIMUM >iTA

TRANSFER

(PART

7354

7368

N tl't.ttttttt"tttttt!it"ttttt.fitfiltttt't'tt'tt'.'tttt.t'!t'Q!'

7355
7356
7357
7358

7367

;OR <.

TCHKOP

ERROR

7350
7357
7352
7352

7366

R4,LRLOA.,

BYTE

104424
104002

:TC SLOW/NOT COMPLETE ERROR

JSR

312

ADDRESS

:LOAD RK REGS
.
:WAIT FOR INTERRJPT

OBUFF +._2.

=110
ORUF F
BYTE

7346
7347
7348
7349

7359
7360
7361
7362
7363
7364
7365

:WRDATA

:SECTOR 0
STRACK 0
:CYLINDER 312

(LR

000312

023614
023616

;LOAD *1°* REGS

0
0

WRT CHK

SEa C137

=400 WORDS
:OBUFF IS BUFF

TCHKOP
ERROR

023604

023610
023612

R4 ,LRLOAD

TLOADRK
TWA796
ERROR
2

104430

7327
7328
7329

7330

WRDA" A

000

023550

7323

30(1046)
1§:17
28-AUG-81
PAGE 138
171
WRITE C(HECK OF PARTJAL SECTOR

000

;ggg
¢

VACY11

THE

IN THE

- IRST PASS OF

INSURE

THE FORMAT

ZERO OUT THE FIRST 256 SECTORS OF THE DISK WITH

T0 CYLIN'ER 0,

P
i

FIRST

023622

023630

000004

012737

03273%7

THE PROGRAM,
ARE

WRITTEN.

IS CORRE(T.

THE MEADERS OF
THIS

DONE

ONE SECTOR WRITES.
ISSUE A SEEK TO CYLINDER 0, TRACK O.
ISSUE A WRITE DATA OF MAXIMUM DATA TRANSFER 200000 WORDS

TRACK 0, SECTOR 0.

MAKE SURE CONTROLLER

TIME OUT IS NOT SET.
CHECK CYLINDER ADDRESS,
DISK ADDRESS, BUS ADDRESS AND WORD COUNT.
READ
EACH SEC'OR TO MAKE SURE IT WAS WRITTEN CORRECTLY.

NOTE:

}

CYLINDERS

i
i
i

023620

WIS TEST IS EXECUTED ONLY IF NO BAD SECTORS®ARF PRES:NT

N THE FIRST

256 SECTORS ON THE PACK.

:"'t.'ltl'.'t.'l' tt.,""""Q't."..'t..".ifi't.t'.'t‘t"t.t"."
000002
000400

001262
0016¢4

TST72:

SCOPE

MOV
8IT

82, $TIMES
BFPFMT OPTFLG

::D0 2 ITERATIONS
;TEST IF FIRST PASS SWIT(H SET

CIREXGO RKG FCTNL CTRL DIAG
TIR6KG.P1T
28-AUG=-81 15:76
7370

023636

001042

7372

023640
023644

005037

7371

7373

7374
7375
7376
7377
7378

725
T58¢
71;0

387
7388
389
390
7391
7392
7393

7394
7365
7396
7397
7398
7399
7400
7601

7402
7403
7404
7405

76406
76497
7408
7409
76410
7411

76412
7413

7414

7415
7616
7617
7418
7419
7420

7621

76422
7423
7424
7425

023663
023664

004437
000127

035674

30(1046)
172

2C%:

177676

072414
000
000
000000

7379
"280
7347

738
7323

105037

MACY1Y

2ls:

28~AuUG~81

MAXIMUM DATA

15:17

I 11
PAGE 139

TRANSFER

(PART

SEa (138

BNE

24%

JYES = SKIP FORMAT

CLRB
(LR

218
22%

;CLEAR ADDRESS POINTERS

JSR

R4 ,LRLOAD

JLOAD "L’ REGISTERS

WRHEAD

-102
OBUFF
BYTE
BYTE
0

0
0

JWRITE HEADER

;102 WORDS
;OBUFF 1S BUFF ADDRESS
;SECTOR O
s TRACK ADDRESS (VARIABLE)
JCYLINDER O (VARIABLE)

023666
023672

004437
001200

023674
023676
023700

104417
1044631
104002

ERROR

023702
023704

10464621
104004

ERROR

023706
023714
023716
023722

001403
105237
060752

{MPR
BEQ
INCB
BR

218,42
238
21
20%

JTEST IF LAST TRACK
JYES - SK]P
JELSE BUMP TRACK
;LOOP

023724
023730
023736
023740
023744

023727
001403
005237
000741

CLRB
(MP
BEQ

219
228,43
24%

;CLEAR TRACK POINTER
TEST IF LAST CYLINDER WRITTEN
(YES - SKIP

20%

;LOOP

123727

105037

042260

JSR
1200

R4 ,GENCOM

TL OADRK

TWAT112
TCHKOP

023663

000002

023663

023662
023664

000003

k3 ¥

INC

023664

;LOAD RK REGS

024002
024004
024006

104417
104434
104002

ERROR

024010
024072

104421
104004

ERROR

024014
024076

104415
005303

SCOP?
DEC

046416

035¢74

001110

24%:
1%:

MOV

TSSINIT

ERROR
JSR

WRDATA

=400
OBUFF
.BYTE
BYTE

:O0R 5,

1$,$LPERR

#400,R3

3
R4 ,LRLOAD

TCHKOP

;CHECK

OPERATION FOR

;REPORT ALL ERRORS

0
0

ANY

ERRORS

;ELSE BUMP (CYLINDER
JSET

LOCAL

LOOP ON ERROR

JSET COUNT FOR
;CLEAR

SECTOR

CLEARING

SUBSYSTEM

;BAD INIT ERROR
;LCAD *'L** REGS
;s WRDATA

;=400 WORDS
;OBUFF IS BUFF
:SECTOR 0
;TRACK O

ADDRESS

JCYLINDER O

TLOADRK

TWAT159

INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

2°2%

013737
012703

023760
000400

JWAIT FOR

023746
023754
023760
023760
023762
023764
03770
023772
023774
023776
023777
024000

0
000060

;G0 GENFRATE HEADERS
;WITH BAD SECTOR ERRORS

;LOAD

JWAIT FOR

REGS

INTERRUPT

;TO SLOW/NOT (OMPLETE ERROR
;0R 5, 6.‘7,

sC(HECK

OPERATION FOR

10 :REPORT ALL ERRORS

JLOCAL LOOP ON ERROR
sDECREMENT COUNT

ANY

ERRORS

TO %

7435

7636
7437

7438

7439
7440
74641
7442

76443
74644

7445
7446
76447

7648

7449

7450
7451
7452
7453
7454
7455
7456

7457

7458
76459
7460
7461
7462
7463
7464

024070
024072
024074
024102
024104
024112
024114
024122
024130
024132
0264136
024136
024140
024142

MOv
MOV

CLR

MOV
BIS
MOV

TWATLR

000074

000200

001664

000200
052547

001664
001360

024466

104621

;SET BA
;AND WC AGAIN

INTSET
;CLEAR INTERRUPT FLAG
DRVNUM ,RK(S2 (R2)
;SET DRIVE NUMBER

#WRDATA ,HOLD

DTYPE ,HOLD

HOLD,RKCST1(R2)

;DO WRITE

DATA

;WAIT FOR INTERRUPT

8]7

#RSE ,RKER(R2)
3

;BAD SECTOR ERROR?
;NO=-SKIP

JYES - SKIP

MOV

3¢:

#OBUFF ,RKBA(R?2)
#-400,RKWC(R2)

ERROR
JMP

;TO SLOW/NOT COMPLETE ERROR

#BSERPT ,OPTFLG
#BSERPT ,OPTFLG

#0PRO17 ,EMIN
1
149

;TEST IF BSE
SET

TO MANY HAS BEEN REPORTED

FLAG

sSET MESSAGE
;"'FIRST 256 SECTOR NOT BSE
;GO TO EXIT

CHECK FOR ANY OTHER ERRORS
TCHKOP

:CHECK OPERATION $0R ANY ERRORS

024144
024146

005303
001324

DEC
BNE

;DECREMENT COUNT

024152
024154
024156
024160
2241672
024163
024164

004437
000117
000000
000000

JSR
SEEK

R4 ,LRLOAD

JLOAD "'L*'" REGS
; SEEK

026166

104417
106423
104002

005037
104421
104004
104427
104002

004437
004006
000400
104416
104003

004437
000123
000000
072414
000

035674

0
0

.BYTE
.BYTE
0

TCHKOP

ERROR
TWAT80
ERROR
JSR
4006
400

042260

4%:

035674

:0R S5,

TSSINIT

ERROR
JSR

WRDATA

;REPORT ALL

ERPORS

:LOCAL LOOP TO 18:(RESTART SECTOR (LEAR)

;0 WORDS

;CYLINDER O

;0R 5,

R4, GENCOM

’

;LOAD RK REGS
;WAIT

FOR

INTERRUPT
-

.TO SLOW/NOT COMPLETE ERROR

;CLEAR FIRST
6,

INTERRUPT

s CHECK OPERATION FOR ANY ERRORS
REPORT ALL ERRORS
sWAIT FOR SECOND INTERRUPT

2TO SLOW/NOT COMPLETE ERROR

;GENERATE DATA
JPATTERN 6, 1ST

;400 WORDS

R4,LRLOAD

WORD REPEATED

JCLEAR SUBSYSTEM
;JBAD INIT ERROR

sLOAD "'L"* REGS
JWRDATA

;0 WORDS

;SECTOR O
JTRACK O

;0 IS BUFF ADDRESS
:

0
0

OBUFF
.BYTE

;LOOP IF NOT ZERO
:

TLOADRK
TWAT16
ERROR
2
INTSET
CLR

001¢62

FREE''

JOBUFF 1S BUFF ADDRESS
JSECTOR O

SEQ C139

ERROR
BEQ
BIT
BNE
BIS

5%:

(PART

[VY
Y

MAXIMUM DATA TRANSFER

MOV

0002G0

11
PAGE 140

104415

7481

7473
7674
7475
7476
7477
7478
7479
7480

177400

15:17

024220
024229
024222
024224
024230
024232
024234
024236

7469

7470
7471

2%:

072614

28-AUG=81

ERROR
SCoP1

7472

7466
7467
7468

30(°046)
172

104004

024170
024172
024174
024200
024202
024204
024206
024210
024214
024216

7465

MACY1T

O
O
POV

7634

= ONNONSN
WO WWOW—O
NN NNNVINDG

7633

OOQOO0O0O o
—
— A\
e O
WP n
NNNYNON ~
OCWWKWONWKWOS o
NN
N ~n

7630
7431
7632

— 2
OO
B8

7629

024020
0246026
024034
024040
024046
024054
024062

[ebnelelololale]

7626
7427
7428

QO
WVIOWOW
QNN DN

CIREKCD RKE FCTNL CTRL DIAG
TIR6KG.PT
2B8=-AUG=81 15:14

(ZROKGO RKE FCTNL (TRL DIAG
TIREKG. PN
28-AUG-81 15:16

7510
7511

7512

7513

7514

7515
7516

7517
7518
7519
7520
7521
7522
7523
7524
7525
7526
7527
7528
7529

7530
7531
7532
7533
7534
7535

7536

7537

024314
024314
024316
024320
024324
024326
024330
024332
024333
026334
024336
024340
024342

BIS

#BAI,L.(CS?

TCHKOP

ERROR

SCOP1

000400

024332
0246334
024314
000020

MOV

CLR
(LR

MOV

BIC

8$:

035674

9%:

0
00000

PPN

7509

024262
024264
024270
026274
024300
024306

7%:

7502
7503
7504
7505
7506
7507
7508

104421
104004

104417
104425

TSSINITM

ERROR
JSR

RDDATA

=400
IBUFF
.BYTE
.BYTE

104002

024344

024346

104421
104004

ERROR

024350

104415

ScoP1

024352
024356
024360
024362
024364

004437
100000
000400
000413
104015

042260

024366
024372
024374
024376
024402
024404
024406
024410
024412

013700
005300

001634

004437
040000
000402

042260

001406

TCHKOP

:
649

104016

000770

65%:

SEQ 0140

:TRACK 0

;LOAD RK REGS

JWAIT FOR SECOND

INTERRUPT

JELSE REPORT TO SLOW/MOT COMPLETE ERROR

:CHECK OPERATION FOR ANY ERRORS

;0R S5, 6, 7. 10 ;REPORT ALL ERRORS

JINTERNAL LOOP ON ERROR TO 4%

#400,R3

;SET

COUNTER

FOR READ-COMPARE

108
128
8% ,SLPERR

;CLEAR SECTOR AND TRACK VALUES
sCLEAR (YL VALUE
;SET LOCAL LOOP ON ERROR

;CLEAR SUBSYSTEM
JBAD INIT ERROR

#BAI,L.(S2

R4 ,LRLOAD

:LOAD RK REGS
sREAD DATA

;400 WORDS

;INTO IBUFF

0
0

;SECTOR
;TRACK
sCyL

(VARIABLE)
(VARIABLE)
(VARIABLE)

;LOAD RK REGS

JWAIT

2
&

FOR

INTERRUPT

2TO SLOW/NOT COMPLETE ERROR
;0R 5,

;CHECK OPERATION FOR ANY ERRORS
10 ;REPORT ALL

ERRORS

;LOCAL LOOP ON ERROR TO 8%

JSR
100000
400
BR
ERROR

R4 ,GENCOM

MOV

ERRLMT RO
RO
65%

;GET ERROR LIMIT
;DECREMENT COUNT
;1F ZERO - EXIT

65%

;NO MORE ERRORS = EXIT

DEC

BEQ

JSR
40000
BR
ERROR
BR

LOOP

;CLEAR BAI

TLOADRK

TWAT4S
ERROR

JCYLINDER 0

TLOADRK

- O

7499
7500
7501

024256
024256
024260

BrTE
0

TWATSS
ERROR

7498

104417
104437
104002

001610

7497

024250
024252
024254

000020

749%
7494
7495
7496

052737

——

74692

024242

K1
30(1046)
28-AUG-81
'5:17 PAGE 141
172
MAXIMUM DATA TRANSFER (PART

(L]

7490
7491

000
00000

—

7489

024237

ON ~—»

7484
7485
7486
7487
7488

024240

7482

7483

MACY1T

13%
15

R4, GENCOM

16
648

; COMPARE

DATA

;400 WORDS

:NO MISCOMPARE-EX.T LOOP
JREPORT FIRST ERRCR

;CONTINUE

DATA (OMPARE

JREPORT NEXT ERROR
;LOOP

7546

7547

7548
7549

7550

7551
7552
7553
7554
7555
7556
7557
7558
7559
7560
7561
7502
7563
7564
7565
7566
7567
7568
7569
7570
7571
7572

7573
7574

7575
7576

7577

7578
7579
7580
7581
7582
7583
7584
7585
7586
7587
7588
7589
7590
7591
7562
7593

024412

1046415

MAX]MUM DATA TRANSFER

13s:

SCOPT

024420
024424
024432
024434

024440

024444

024452
024454
024460
024464

000026

SEQ 0141

;LOCAL

LOOP

TO 8%

DEC
BEQ .

R3
149

;DEC READ LOOP COUNT
JIF ZERO=-EXIT

INCB
(MPB
BNE
(LRB

108
108,426
9%
10%

;BUMP SECTOR
JFINISHED WITH TRACK?
;NO-LOOP
;CLEAR SECTOR

INCB
CMPB
BNE
(LRB
INC
BR

0000C?

(PART

118
119,43
9%
11%
12%
9%

:BUMP TRAC(CK
;FINISHED WITH CYLINDER?
;NO-LOOP
;CLEAR TRA(K
:BUMP (CYL.
;LOOP

14%:

024466

ZEZZ222Z2

*TEST

222222222223 X22222232222222202
2222222328222 3R 2RRRX2ZR 3]

MAXIMUM DATA TRANSFER

(PART 2)

- %

;
o

;Y
J®
M
J*

J*
J*
x4

;®
M
M

IFRO QUT FIRST 256 SECTORS OF THE DISK WITH
200000 WORD WRITE.
SEEK TO CYLINDER 632.

ISSUE A WRITE OF MAXIMUM DATA TRANSFER
200000 WORD WRITE.
MAKE SURE CONTROLLER TIME
OUT IS NOT SET.
CHECK CYLINDER ADDRESS
DISK ADDRESS, BUS ADDRESS AND WORD COUNT.
ISSUE A WRITE CHECK
SEEX TO CYLINDER 632.
OF 200000 WORDS.
MAKE SURE NO ERROR SETS.

NOTE:

> %

000004
012737

000002

104003
012700
005037

000620
072414

024512
0¢4516
024520
024522
024524
02455
024526
024530
024536
024540
024542
024544

004437
000123
000000

024546
024550

005300
001373

104416

001262

SCOPE

MOV

TSSINIT

ERROR

035674

#2,8TIMES

MOV
CLR

#400. RO
OBUFF

JSR

R4, LRLOAD

WRDATA

OBUFF

000020

000401
000403

THIS TEST 1S EXECUTED ONLY IF NO BAD SE{TORS ARE PRESENT
IN THE FIRST 256 SECTORS ON THE PACK.
CYLINDER 1456 1S USED FOR RKO7.

:'.'tittttt'fil‘*tttt*tttt'*"i'tt*ttttttttttttttttttttttttttitttt!tt

024466
024470
026476
024500
024502
024506

BYTE
BYTE
0
BIS

001610
1%:

2%:

TLOADRK

;:D0 2 ITERATIONS

;CLEAR SUBSYSTEM

;BAD INIT ERROR
:SET COUNT FOR

;LOAD "L*'" REGS
;WRDATA

:0 WORDS
0
0

#BA],L.CS?

TWAT159
BR
2%

DEC
BNE

RO
1%

INTERRUPT WAT

;OBUFF

[S BUFF

;SECTOR O
;TRACK 0
JCYLINDER O
;SET BAl

ADDRESS

;LOAD RK REGS

JWAIT FOR INTERRUPT
:NO INTERRUPT~SKIP

s INTERRUPT=SK]P

;DEC WAIT COUNTER
;NC ZERO-LOOP

lalal

28-AUG~-81

L N
PAGE 142

172

026414
024416
OO DOt
O
—
QOOONOOONO
O NN = (NN
-2 (NN
NROW
NN OW NN
=2 ANAANPNO
NI NN NN W
W NN
NN NN NN

7538
7539
7540
7561
7542
7543
7544
7545

MACY11

15:17

[ VT =

C(ZR6KGO RKE FUINL CTRL DIAG
CIR6KG.P1Y
28-AuG~81 15:16

30(1046)

7597

7598
7599

7600
7601

7602

7603
7604
7605
7606
7607
7608
7609
7610
7611
7612
7613
7614
7615
7616
7617
7618
7619
7620
7621
7622
7623
7624
7625
7626
7627
7628
7629
7530
7631
7632
7633
7634
7635
7636
7637
7638
7639

7640
7641

7642
7643
7644
7645

7646
7647
7648
7649

024552

104002

024554
024562

032762
001415

000200

000014

024564
024572
024574
024602
024610
024612

032737
001007
052737
012737

000200

001664

000200
052547

001664
001360

000137

025160

024616
024616
024620
024622

104001

1044621
104004

LJRA
30(1046)
28-AUG-81
15:17 PAGE 143
173
MAXIMUM DATA TRANSFER (PART 2)

3s:

sTO SLOW/NOT COMPLETE ERROR

BIT
BEQ

#BSE ,RKER(R2)
4%

;DID BSE SET
;NO-SKIP

BIT

#BSERPT,OPTFLG

BIS

#BSERPT ,OPTFLG

BNE

MOv

12%:

A ¥

ERROR
JMP
TCHKOP

ERROR

12%

#0PRO17 ,EMIN
1
11%

:O0R S5,

LSTEYL, 138

024630

013737
013737

036120
036120

024636
024642
024644
024646
024650
024651
024652

004437
000117
000000
000000
000
000
000000

035674

024654
024656
024660
024662

104417
104423
104002

005037

024666
024670

104421
104004

ERROR

024672
024674

104427
104002

TWATB0
ERROR

024676
024700

104421
104004

ERROR

024702
024706
024710
024712
024714
024715
024716

004437
000105
000000
000000
000
000
000000

JSR

R4 ,LRLOAD

024720
024722
024724

104417
104423
104002

024726

104004

024732

004437

MOV
MOV

JSR
SEEK

0
0
.BYTE
13%:

.BYTE

TLOADRK
TWAT16

001662

ERROR
CLR

TCHKOP

035674

CLEAR

0
0

.BYTE
.BYTE

,SET

FLAG

TO MANY BAD

SECTORS REPORTED

;SET MESSAGE
;"'FIRST 256 SECTORS NOT BSE FREE''
JEXIT

:CHECK QOPERATION FOR ANY ERRORS /7
10 ;REPORT ALL ERRORS

LSTCYL.14$
R4 ,LRLOAD

:LOAD "'L'* REGS

;0 WORDS

*0 IS BUFF ADDR

0
0

;SEC O
:TRK 0O

SCYL 63271456
:LOAD RK REGS
‘WAIT FOR INTERRUPT

2
INTSET
&

CR 5,

:TO SLOW/NOT COMPLETE ERROR
*CLEAR INTERRUPT FLAG
6,

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS
JWAIT FOR 2ND

;O0R S5, 6,

INTERRUPT

s CHECK OPERATION FOR ANY ERRORS
REPORT ALL ERRORS
;LOAD '"'L*'' REGS

;CLEAR
;0 WORDS

:0 IS BUFF ADDRESS
;SECTOR O

JTRACK 0

sCYLINDER O

TLOADRK
TWAT16

:LOAD RK REGS
;WAIT FOR INTERRUPT
2TO SLOW/NOT COMPLETE ERROR

TCHKOP

035674

TEST

JYES = SKIP

ERROR

104421

024730

024652
0250¢6

SEQ 0142

ERROR

7594
7595
7596

MACY11

ERROR

;O0R S, 6, 7

JSR

R4,LRLOAD

:CHECK OPERATION FOR ANY ERRORS

;REPORT ALL ERRORS
;LOAD "' REGS

~N~

CIR6KGO RK6 FCTNL CTRL DIAG
CZROKG P11
28-AUG-81 15:16

7650
7651
7652
7653
7654

7655
7656
7657

7658
7659
7660

7661
7662

7663
7664

7665
7666
7667
7668
7669
7670
7671
7672
7673
7674
7675
7676
7677
7678
7679
7680
7681
7682

7683

7684
7685
7586
7687
7688

7689
7690
7691
7692
7693
7694

7695
7696
7697
7698
7699
7700
7701
7702
7703
7704

7705

024736
024740
024742
024744
024745
024746

000
000
000000

024750
024756
024762

012737
012700
052737

024770
024772
024774
024776

104417
104434

025000
025002
025004
025006
025006
025010

30(1046)
173

28-AUG=-81

MAXIMUM DATA

15:17

N 11
PAGE

TRANSFER

144

(PART 2)

000123

WRDATA

JWRDATA

072414

OBUFF

;OBUFF

000000

135143
000621
000020

005300
001373

MOV

#135143,0BUFF

JSET WORD FOR OQUTPUT

001610

BIS

#BA],L.CS2

;SET BUS ADDRESS

MoV

7%:

000000
000000
000
000
000000
104417
104423
104002
005037

025042
025044

104004

035674

104421

104427

104002
104421
104004

025056
025062
02506¢
025066
025070

025071
025072

006437
000105
000000
000000
000
000
000000

025074
025076
025100

104417
104423
104002

#401.,R0

JSET

DEC
BNE
ERROR

RO
5%
2

TCHKOP

R4 ,LRLOAD

:0R 5,

INHIBIT

s CHECK

OPERATION

FOR

10 ;REPORT ALL ERRORS

ANY

ERRORS

;LOAD ''L'" REGS

;0 WORDS
;0 IS BUFF ADDR
;SEC O
:TRK 0
i
JCYL 63271454

.BYTE
BYTE
0

0
0

ERROR
(LR

2
INTSETY

TCHKOP
ERROR

TWAT80
ERROR

ERROR

JSR
CLEAR

R4 ,LRLOAD

.BYTE
.BYTE
0

0
0

INC

;DEC WAIT COUNT
;LOOP IF NOT ZERO
;TO SLOW/NOT COMPLETE ERROR

JSR
SEFK
0
0

ERROR

INTERRUPT WwAlT

:INTERRUPT=BRANCH

TLOADRK
TWAT16

FOR

;WAIT FOR INTERRUPT
JNO INTERRUPT=-BRANCH

ERROR

0
0

COUNT

;1 OAD RK REGS

TWAT159
BR
6%

TCHKOP

035674

JSECTOR 0
;TRACK 0
JCYLINDER 0

TLOADRK

TLOADRK
TWAT16

001€62

IS BUFF ADDRESS

072414

104002

004437
000117

;0 WORDS

0
0

6%:

104421
104004

SEQ (143

.BYTE
BYTE
0

5%:

000401
000403

025012
025016
025020
025022
025024
025025
025026
025030
025032
025034
025036

025046
025050
025052
025054

VACY"1

:0R

;LOAD RK REGS
JWAIT FOR INTERRUPT

.TO SLOW/NOT CCMPLETE ERROR
JCLEAR INTERRUPT FLAG
S5,

;CHECK OPERATION FOR ANY ERRORS
:REPORT ALL ERRORS
;WAIT FOR SECOND INIT
;7O SLOW/NOT COMPLETE

:0R S5,

ERROR

;CHECK OPERATION FOR ANY

:REPORT ALL ERRORS

ERRORS

JLOAD '"'L'' REGS
;CLEAR
)

;0 WORDS
;0 IS BUFF ADDRESS

;SECTOR 0
JTRACK O
JCYLINDER O

:LOAD RK REGS
JWAIT FOR INTERRUPT

;70 SLOW/NOT

COMPLETE ERROR

~NN

CZR6KGO RK6 FCTNL CTRL DIAG
{IR6KG.P11
2B~AUG-81 15:16

7756
7757
7758
7759

7760-

7761

MACYTT

39;%0#6)

000000
072414
000
000
000000
052737
012700

035674

15:17

B 12
PAGE 145

MAXIMUM DATA TRANSFER

TCHKOP

104004

000131

28-AUG-81

ERROR

JSR

R4, LRLUAD

WRT(HK

(PART 2)

;GR S5, 6, 7

003020
000621

BYTE
.BYTE
0

BIS

00167€

104417
104434

MOV

8¢%:

000401
000403

005300
001373

9% :

104002

10%:

104421
104004

;0 WORDS
;JOBUFF

0
0

[S BUFF

JSECTOR 0
:TRACK 0
;CYLINDER O

#BA],L.(CS?

ADDRESS

JSET BAI FLAG

#401.,R0

JSET WAIT COUNT
:LOAD RK

REGS

JWAIT FOR INTERRUPT

BR
BR

9%
10%

;NO INTERRUPT-SKIP
JINTERRUPT=-SK
P

DEC

;DEC WAIT

BNE
ERROR
TCHKOP

ERROR

025160

;REPORT ALL ERRORS

8%
2

COUNT

;NOT ZERO~LOOP
;7O SLOW/NOT (COMPLETE ERROR

;0R S5, 6,

;CHECK OFERATION

FOR ANY ERRORS

10 ;REPORT ALL ERRORS

1s:
.'""**l’*t.*t****fitt*fi'i""i'i*llt'tfi*"tfifittfit*tifi""'iQ't"t*'t

;*TEST

(ONTROLLER

TIME

oOuUT

- %

e
A
M
M
M
1

SEEF TO CYLINDER 632.
ISSUE A RECALIBRATE AND DO NOT
WAIT FOR SECOND INTERRUPT. NOW ISSUE A READ HEADER
OF CYLINDER C, TRACK 0.
MAKE SURE C(ONTROLLER TIME
OUT SETS.
CYLINDER 1456 15 USED FOR THE RKk(7.

rorurorOrROND

PONDNONORY

OO0OO0C

E:tttfittt*t**t't**fitt*ii'*'t&tttitt*'ttfit'tQtfit'tfiitttit'tttfitt"

001262

036120

025216

TST?4:

0
000000

SCOPE
MOV

TSSINIT

ERROR

035674

104417

025226

000005

#5.,8TIMES

;:D0 5.
JCLEAR

ITERATIONS

SURSYSTEM

MOV

LSTCYL,1%

;BAD INIT ERROR

JSR

R4 ,LRLOAD

;LOAD "'L'' REGS

SEEK

0
0
BYTE
BYTE
0
TLOADRK
TWAT16

104423
104002

ERROR

104421

TCHKOP

0
0

;WRTCHK

TLOADRK

TWAT159

JCHECK OPERATION FOR ANY ERRORS

;LOAD *'L'" REGS

OBJFF

SEQ 01446

OO
O
WO
—» = 2O
NSNS0
DS
W
HSNVOON
NINEs
OO

OO
PO

b
el w—

025154
025154

QOO0 O0O

7754
7755

006437

(W, AV ]

7720

7721
7722
7723
77c4
7725
7726
7727
7728
7729
7730
7731
7732
7733
7734
7735
7736
7737
7738
7739
7740
7741
7742
7743
7744
7745
7746
7747
7748
7749
7750
7751
7752
7753

——d

7717
7718
7719

(W, 1V, ]

7715

7716

TN
AR
b mh
b ah
d
D
s
2

7714

104427

§3CND<>CNDCDCKD
POPORNINOMNINONON)

7706
7707
7708
7709
7710
771
7712
7713

(WL
LV, LW,D LV, ]
— e

(ZR6KGO RK6 FCINL CTRL DIAG
P11
'ZRGKG.
28-AUG-81 15:16

;0 WORDS
;0 1S BJFF ADDR
JSEC 0
JTRK O
CYL 63271456
:LOAD
;WAIT

RK REGS
FOR INTERRUPTY

;70 SLOW/NOT COMPLETE ERROR
;CHECK

OPERATION FOR

ANY

ERRORS

MACYY?

30(1046)
174

c 12

28-AUG-81

15:17
PAGE
CONTROLLER TIME OUuT

7762

025230

104004

7764
7765
7766
7767

025232
025236
025240
025242
025244

005037
104427

025246
025252
025254
025256
025260
025261
025262

004437
000105
000000
000000
000
000
000000

025264
025266
025270

104417
104423
104002

ERROR

025272
025274

104421
104004

ERROR

025276

004437
000113
000000

JSR

R4 ,LRLOAD

7763

7768

7769

7770

7771

7772

7773
7774

7775
7776
7777
7778
7779
7780
7781
7782
7783
7784
7785

7786
7787
7788
7789
7790

7791
7792
7793

7794
7795

7796
7797
7798

7799
7800
7801

7802
7803
7804

7805

7806
7807
7808
7809

7810

7811

7812
7813
7814

7815
7816

7817

001662

104002
104421
104004

CLR
TWAT80
ERROR

INTSET

;CLEAR INTERRUPT FLAG

ERROR

2TO SLOW/NOT COMPLETE ERROR
;CHECK OPERATION FOR ANY ERRORS
JREPCRT ALL ERRORS

JSR
CLEAR

R4 ,LRLOAD

TCHKOP

RECAL

0
0

.BYTE
.BYTE

0
104417
104423
104002

035674

JSR
SDHEAD

.BYTE
.BYTE

104002

104422

;LOAD RK REGS

JWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE

;0R S5, 6,7

;CYLINDER

R4 ,LRLOAD

;TRACK 0

CYLINDER O

;LOAD RK REGS
JWAIT

ERROR
CLR

MOV

FOR

INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

;CHECK OPERATION WITH EXPECTED ERROR

104003

000000

;LOAD ''L'* REGS
:RDHEAD

;0 WORDS
:0 IS BUFF ADDRESS
:SECTOR 0

0
0

000100

;LOAD ''L* REGS
JRECAL
;0 WORDS
;0 1S BUFF ADDRESS
JSECTOR O

;LOAD RK REGS
sWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

ERROR

001662

;CHECK OPERATION FOR ANY ERRORS
JREPORT ALL ERRORS

JTRACK O

TCHKWE

TSSINIT

ERROR

0
0

CTOERR

;LOAD 'L'" REGS
;CLEAR

;CYLINDER O

000000
000000
000002
104004
104416

INTERRUPT

JTRACK O

TLOADRK

TWAT2S
ERROR

FOR SECOND

;0 WORDS
;0 IS BUF® ADDRESS
;SECTOR O

TLOADRK

TWAT16
ERROR

104417
104436

025364 . 005037
025370 012762

6,7

000000

004437
000125
000000
000000
000
000
000000

;0R S5,

BYTE
BYTE

TLOADRK
TWAT16

JREPORT ALL ERRORS
JWAIT

0
0

035674

SEQ 0145

ERROR

TCHKOP

035674

;0RS5,6,7

146

INTSET

5,6,7

#1E ,RK(CS1(R?)

;CONTROLLER TIME OUT

;REPORT ANY DISCREPANCIES

sCLEAR SUBSYSTEM
;BAD INIT ERROR
;CLEAR INT FLAG
;SET INT ENABLE

« VY

CZREKGO Rk6 FCTINL CTRL DIAG
CIR6KG. P
28-AuUG-81 15:16

(ZR6KGD RKG FCINL CTRL DIAG
TIR6KG.P1N
28-AUG=81 15:16
7818
7819
7820
7821

025376
025400

MACY11

106437

SBYTL

7826
7827

»
¢

7830
7831

7832

7833

7845
7846
7847

7848

7849
7850
7851
7852
785%

7858

7859

7863
7864

7871

7872

7873

JWAIT FOR SECOND INT

+**ERRORS DURING DATA

L*TEST 75

7829

7844

SEQ 0146

TRANSFER

2522223238822
dRi
Rl
sttt
Rl d ]

7828

7843

D 12
15:17 PAGE 147
28-AUG-81
CONTROLLER TIME OUT
TWAT8S
ERROR

7822

7842

174

104002

782%
7824
7825

7834
7835
7836
7837
7838
7839
7840
7841

30(1046)

W
o

LIMIT DETECT ON DATA TRANSFER

ISSUE A SUBSYSTEM CLEAR.
ISSUE A RECALIBRATE.
ISSUE
A SEEK TO CYLINDER 2 WITH BAD PARITY.
[SSUE A DRIVE

CLEAR.

ISSUE A WRITE DATA OF 400 WORDS TO CYLINDER 1,

TRACK O, HEAD 0.
SEEK INCOMPLETE BECAUSE OF
LIMIT SHOULD BE THE CNLY ERROR SET.

OUTER

TR RNRRARRRARANANNRARAA
RN A RO RARRARERANRRNAIAANRARCARNARARARERON AN RSN

025402
025404

000004

012737

000003

001262

T §T75:

SCOPE
MOV

025412
025414

104416

025416
025422
025424
025426
025430
025431
025432

004437
000113
000000

025434
025436
025440

106417
104423
104002

025442
025446
025450

005037

025452
025454

104421
104004

025456
025462
025464
025466
025470
025471
025472
025474
025502
025504
025506

004437
000117
000000

104002

ERROR

025510
025512

104416
104003

ERFOR

TSSINIT

104003

035674

104437
1064002

R4 ,LRLJAD

;LOAD '"L*

;0 WORDS
:0 1S BUFF ADDRESS
:SECTOR 0

TLOADRK
TWAT16

;CYLINDER O
:LOAD RK REGS
JWAIT FOR INTERRUPT

INTSET

;70 SLOW/NOT COMPLETE ERROR

JSR

R4 ,LRLOAD

MOV

"L OADRK
TWAT16

TSSIN]T

:0R S, 6,

0
0
#PAT L .MR1

;CLEAR

INTERRUPT FLAG

;CHECK

OPERATION FOR

JWAIT FCR SECOND INTERRUPT

ERROR

0
0
.BYTE
.BYTE
2

REGS

;TRACK O

(LR

SEEK

JRECAL

TWATS8S
ERROR

00166

;BAD INIT ERROR

ERROR

TCHKOP

00002C

SUBSYSTEM

JSR

BYTE

035674

;CLEAR

ITERAT]ONS

0
0
BYTE

001662

::D0 3.

ERROR
RECAL

€00000
000
000
000000

#3.,8TIMES

;REPORT ALL ERRORS

ANY

ERRORS

:LOAD "L'" PEGS
s SEEK

:0 WORDS
:0 IS BUFF ADDRESS
;SECTOR O
:TRACK O
JCYLINDER 2
JSET

EVEN PAR]ITY BT

;LOAD RK REGS
;WAIT FOR IMTERRUPT

;70 SLOW/NOT COMPLETE ERRCOR
;CLEAR SUBSYSTEM

JBAZ INIT ERROR

7888
7889

7890

7891
7892
7893
7894

WNWWW
N

7887

RV, LV,
IV IRV IV, TV, TV TV 1
1V
RV L LV BV IV, TV IV VATV, TV

7885

7886

106417
104423
104002

NS
B B
OO

7884

104422

VIV
SN

7882
7883

AL
ARV, AV RV, [V, LV
VAV RS TV AV TV IV

7879
7880
7881

jelolololoBNoléloBelolelololeole
NONORORON)
OO
RURUAJIPONIPOND

7878

7895

7896
7897
7898

7899
7900

7901
7902
7903
7504
7905
7906
7907
7908
7909
7610
7911

7912
7913
7914

7915
7916

7917
7918
7919
7920
7921

7922

7923
7924
7925

7926

7927
7928
7929

004437
000123

7877

7874
7875
7876

i onuron)
—
ONON RO

025556
025556
025562
025564
025566
025570
025571

025572

MACY11

30(1046)
178

035674

E 12
15:17
28-AUG-81
PAGE 148
LIMIT DETECT ON DATA TRANSFER
JSR

WRDATA

177400
072414

OBUFF
LBYTE

BYTE

TLOADRK
TWAT16

ERROR

s TRACK 0

JCYLINDER 1

:LOAD RK REGS
JWAIT FOR INTERRUPT

;70 SLOW/NOT

TCHKWE

0
0

ERROR

104416

TSSINIT

104003

3%:

035674

000000
000000
000

000
000000

012737

025610
025610

104421
104004

025614
025622

032737
001755

025624
025626

104416

025630

012762

000100

025636
025642
025644
025646

005037

001662

025650

012737

025656

104002

000001

001¢15

0
0

JTRACK O

JCYLINDER O

000000

1%:

;WAIT

#S.HDHM,
T .MR?
38

FOR

INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

BIT

.:OR 5. 6.,

sCHECK OPERATION FOR ANY ERRORS
sREPORT ALL ERRORS
JTEST

sNO = GET

HEADS

HOME

STATUS AGAIN

ERROR

sCLEAR SUBSYSTEM
;BAD INIT ERROR

MOV

#1E.RKCST(R2)

JSET IE

CLR

INTSET

sCLEAR INT FLAG

BR
BR

1$
s

MOV

#DHO
6, DH2N
"

ERROR

TWAT8S

000401
000404

JSET TO GET STATUS PAJR 1
;. 0AD RK REGS

TSSINIT

104003

001372

JLOAD "L*'" REGS

;0 WORDS
;0 IS BUFF ADDRESS
JSECTOR O

ERROR

BEQ

;REPORT ALL DISCREPANCIES

;SELDRYV

MOV
#1,L.MR1
TL OADRK
TWAT16

001574

FRROR

JCLEAR SUBSYSTEM
;8AD INIT ERROR

R4,LRLOAD

TCHKOP

060404

5.6,0R7

JSR
SELDRY

ERROR

000040

:OR

025574
025602
025604
025606

ERROR

0
0
BYTE
BYTE

COMPLETE

s(HECK OPERATION WITH ERRCR
;SEEK INCOMPLETE

SK1ERR

104004

106437

;=400 WORDS
sOBUFF 1S BUFF ADDRESS
:SECTOR 0

000002
000000
000000

104417
106423
104002

;LOAD ''L’'" REGS

JWRDATA

=400

000
000
000001

004437
000101

R4 ,LRLOAD

SEZ C147

;WAIT

FOR SECOND

INTERRUPT

J''SUBSYSTEM (LEAR TO RESET LIMIT ERROR
JALLOWING HEADS TO RELOAD'’

CIR6KGC RKG FOTNL (TRL DIAG
TIREKG P11
2B-AUG-81 15:16

TIR6KGD RKE FLTNL (TRL DIAG
TIRGKG.PIT
28=AuG=81 15:1¢
7930

VACY1]

3?;;0‘6)

28-AuG-81
15:°7
PAGE 149
LIMIT DETECT ON CATA TRANSFER

SEQ 0148

2$:

025660

MAASAL AL

SRTEST 76
;e

PROGRAMMING ERROR

ISSUE A SURSYSTEM CLEAR.

;e
e

NS RN

ISSUE

A SEAD DATA OF 400 WORDS ON CYLINDER O,
TRACK 0, SECTOR O. DURING READ ISSUE A

I
T

WRITE TO THE SPARE REGISTER.
PROGRAMMING ERROR SETS.

MAKE

SURE

".'Q"..'Q'..'.".Q'."‘"'Q"Qt."‘"'Q't'fitt't'ttt"t‘QQ'QQ""'

025660
025662
025670
02567¢

000004
012737

025674
025700
025702
025704
025706
025707
025710

004437
000121
070414
000
000
000000

025712

104417

025714

012762

025722
025724

104423

025726
025730
025732
025734
025736

104416
104003

0002
¢

0012¢2

TST17¢:

035674

SCOPE
MOV
#10. ,$TIMES
TSSINIT
ERROR
3
JSR

RDDATA

127400

=400
1RUFF
BYTE

BYTE
0

R4, RLOAD

002022

MOv

TWAT16

104002

ERROR

1046422

écuxue

000000
000000
¢00020

(
O

PGERR

ERROR

ADDRESS

:TRACK 0
;CYLINDER O
;LOAD RK REGS

#1,RKSPAR(R2)

:WAlT

:WRITE

FOR

SPARE

INTERRUPT

;7O SLOW/NOT COMPLETE ERROR
;CHECK OPERATION WITH EXPECTED ERROR

104004

:LOAD "'L'' REGS

:RDDATA

;=400 WORDS
JIBUFF [S BUFF
JSECTOR O

TLOADRK

000001

;:DC 10. ITERATIONS
:CLEAR SUBSYSTEM
:BAD INIT ERROR

S5,0.,7

;PROG

ERROR

JREPORT

ALL

DISCREPANCIES

"Ql"t"!.t'ttt.tttt"""i"‘fi‘..ii.Q.t""t.i""""t.i'.fi"t

2TEST 77
»
2

CYLINDER O,

7985

025754
025760
[4

000004

012737
106416
104003

004437
000001

00001¢

062260

001262

2
»
»
4
»

%L 8,8, 0,0,

7984

025740
025742
025750
025752

7974
7975
7976
7977
7978
7979
7980
7981
7982
7983

ECC HARD

ISSUE A SUBSYSTEM CLEAR. [SSUE
A WRITE DATA WORDS CONSISTING OF

SECTOR 0.

177777

NOW WRITE

ALL ZEROS TO CYLINDER 0, TRACK 0, SECTOR 0.
DURING WRITE ISSUE CONTRCLLER CLEAR. MAKE
SURE PROGRAMMING FRROR IS RESET. NOW
ISSUE A READ DATA TO CYLINDER 0, TRA(K C,
HEAC O AND AN ECC HARD ERROR SHOULD SET,

ARLL

$T77:

TRACK O,

SRS RS

SCOPE

REERR

ARl

MOV

#10.,8TIMES

::D0 10.

ERROR

*BAD

{sn

R&, JENCOM

TSSINIT

SCLEAR

R E R

ITERATIONS

SUBSYSTEM

INIT ERROR

-GENERATE

DATA OF

ALL

ONES

TIR6KGT RKE FUTMN. T°RL DIAG
TIRGKG P
28=AUG=-81 15:1¢

Zgg;

025762

00C40C

7988

025764

004437

7689

025770

020123

VAIYTT

30066}
*?7?

2B=AuG=81
£ HARD

03567«

JSR

WRDATA

025772
0257764
025776

177400
(072414
000

=400
OBUFF
BYTE

;33%

026000

000000

7996

026002

104417

7997
;ggg

(25777

026004
026006

PAGE

'5)

SEa (149

400

7990
7991
7992

7993

G 12

'5:°7

000

BYTEe

R&,LRLOAD

JLOAD °°L*' REGS

e.n.. <WRDATA
’

;=400 WORDS
JOBUFF IS BUFFf

(O
0

JSECTOR O
JTRACK 0

ADDRESS

JCYLINDER O

TLOADRK

;LOAD RK RcGS

104430
104002

TWAT96
ERROR

TCHKOP
ERROK

JWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

8000
388;

026010
026012

104427
104004

8003
8004
3882

02€014
026020
026022

004437
000002
000400

042260

JSR
2
400

R4, GENCOM

JGENERATE DATA (OF ZEROS

8007
8008
8009
8010
8C11
80'2
gg;z

026024
004437
026030
000123
(26032
177¢30
026034
072414
026036
000
026037 ... 00O
026040
000000

(035674

JSR
WRDATA
=150
OBUFF
.BYTE
BYrg
0

R4 ,LRLOAD

JLOAD "'L"" REGS
:WRDATA
;=150 WORDS
;OBUFF IS BUFF ADDRESS
JSECTOR O
:TRACK 0
JCYLINDER 0

28%2

026042

104417

8017
8018
8019

026044
026050
026052

005737
001026
005762

Rgg?

282%
I'4

8024
8025
8026
8027
8028
8029

026056

(CN1372

;0R S5, 6,

0
0

TLOADRK
(01662

1%:

0006002

026060

052762

100000

026066
026072
026074
02¢07¢
026100
026101

004437
000121
177400
070474
J00
000

035674

)

JSTART OFERAT]ON

TST
BNE
TST

INTSETY
2%
RKW( (R2)

JCHECK ]F INTERRUPT HAS OCCURRED
JYES = MUCH TO SOON. REPORT ERRUR
JTEST IF NPR'S DONE

8IS

#CCLR,RK(ST1(R2)

;CLEAR CONTROLLER

R& ,LRLGAD

;LOAD *'L'' REGS
JRDDATA
;=400 WORDS
JIBUFF [S BUFF ADDRESS
JSECTCR O
;TRACK 0

8NE

($000G0O

.(HE(K OPERATION FOR ANY ERRORS
10 ;REPORT ALL ERRORS

JNO - LOOP

(CROWBAR WRI'E)

3839

026102

00000C

JER
RDDATA
=409
IBUFF
.BYTE
BYTE
0

2032
8033
gg%g

026104
026106
026110

104417
104¢2°
104002

TLOADRK
TWAT4S
ERROR
2

;LOAD RK REGS
JWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

8036
8037
8038
8039
8040
E041

026112
026114
026116
026120
026122

104422
000000
000003
000000
104004

TCHKWE
0
DCKERR.E(HERR
0
ERROR
4 ;R 5,6,7

JCHECK OPERATION WITH ERROR

0
O

JCYLINDER 0

;DATA CHECK AND ECC MARD
JREPORT ALL

DISCREPANCIES

TIREKGD RKE F( "NL CTR& 0 IAG
JIRGKG. P
28=AUG=-81 15:1¢

8064
8065
8006
8067
80¢8
8069
8070
8071

8072
8073
8074
8075
8076
8077
8478
8079
8080
8081
8082
8083
8084
8085
8086
8087
8088
8089
8090
8091
8092
8093
8094
8095
8056

8097

000402
10442°
LoVt

28-AUG=81
ECC ARD

u‘»b‘

)

15:17

H 12

PAGE .51

SEQ 0150

b3 3

TCHKOP

ERROR

JSKIP T0 EX]T
;OR S, 6, 7,

:CHECK OPERATION FOR ANY ERRORS
10 ;REPORT ALL ERRORS

':"'""'t."".t"t"'""'Q.'.t......"""""".r."QQ'Q"'Q

»
»
»

®.
.

S*TEST 100

8046
B(47
8048
8049
8050
8051
8052
8053
8054
8055
8056
8057
8058
B0S9
8060
8061
8062
8063

024126

U26126
02612 6
02613 ¢
02613 2

30(1046)
*7?

8042

80643
80446
B804S

MAIYTY

[

(026132
026134

000004
5127%7

(026142
026144

104416

026146
(026152
(26154
026156
026160
020161
026162

004437
000117
000000

026164
026166
026170
026172
026176
026200

106417
104423

00005

035674

004437
000113
000000
000000
200
000
000000

026220
026222
026224

106423

104002

026226
026232
026234
026236
026240
026241

004437
000125
000000
000000
000
000

AND DRIVE

DRIVE

IN DIAGNOSTIC

TRACK 0.

T57100:

SCOPE
MOV

CLEAR MESSAGES.

035¢74

BAD INIT ERROR

JSR
SEEK

R4 ,LRLJAD

;L0A D L'
; SEEK

.BYTE

(

ERROR

(LR
TWAT96

CLEAR

INTERR_PT.
HEADE®R

MODE.

NO DATA

AR R

RSN

ITERATIONS
SUBSYSTEM

REGS

;0w
;0 IS Burr ADDRESS
:SEZTOR O

;TRACK 0
JCYLINDER 632
:LOAD RK REGS

INTSET

;WAIT

FOR

INTERRUPT

;70 SLOW/NOT COMPLETE ERROR
;CLEAR INT FLAG
JWAIT FOR SECOND

INTERRUPTY

ERROR

;TO SLOW/NOT COMPLETE ERROR

JSR

R4 ,LRLGAD

;LOAD *'L'' REGS

RECAL

TLOADRK
TWAT16

035674

ERROR

A READ

DIAGNOSTI(

::D0 S.

0
0
.BYTE
.BYTE
0

104417

TURN OfF

#5.,87IMES

TWAT16

00" €62

ISSUE

CLOCK THROUGH SEEK

TRANSISTIONS ON DATA | INE.

' AR AA R

MODE.

TIMING ERROR SHOULD SET BECAUSE

TLOADRK

104002

026207
026206
026210
026212
026214
026215
026216

CYLINDER 0O,

BYTE
632

000632

104430

CONTROLLER

0
0

000000
000
000

005037

PUT

TSSINIT

104003

104002

001262

DRIVE TIMING ERROR

ISSUE A SUBSYSTEM CLEAR. SEEK TO (YLINDER 632.
ISSUE A RECALIBRATE BUT DO NOT WAIT FOR SECOND

JRECAL

0
0

ERROR

JSR

Re,LRLOAD

RDHEAD

0
0

BYTE
BYTE

0
Q

;0 WORDS
:0 IS BUFF ADDRESS
:SECTOR 0
;TRACK O
sCYLINDER 0
:LCAD RK REGS
;WAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE ERRDR
JLOAD *'L** REGS

:RDHEAD

;0 WORDS
:0 IS BUFF ADDRESS

:SECTOR O
:TRACK ©

TIROKGY RRE FUTNL (TRL DIAG
TIR6KG.PIT
2B=ALG~81 15:1¢

BO98

B0SY
glg?

026242

0262446
026252

000000

(012737
104417

(00040

MA(CY1T

I 12

30(1046)
28-AuG=81
15:77 PAGE
1100
DRIVE TIMING ERROR

001616

152

SE3 (151

;CYLINDER O

MOV
#DMD, L .MR1
TLOADRK

JSET DIAG MODE
;LOAD RK REGS

8102 026256 004437 036376
g}gz

026260

001062

JSR_

R4,MCLOCK

g]%g

026262

005062

(LR

RKMR1(R?2)

JRESET DIAG MODE, LET RD HDRS COMPLETE

8107
8108
8109
8110
B¥11
8112
g:}z

026266
026270
026272
026274
026276
0263C0
026302

104424
104002
104422
010000
(000000
0300000
104004

JWAIT FOR INTERRUPT
;TO SLOW/NOT (OMPLETE ERROR
cCHECK OPERATION WITH FXP ERROR
;DRIVE TIMING ERROR

8'15
8116
8117
8118
g%;g

026304
026304
026306
026310
026316

104416
104003
012762
005037

8121
g}g%

(026322
026324

104437
104002

B124
8125
8126
8127
8128
8129
g;%?

026326
026332
026334
026336
026340
026341
026342

004437
000105
000000
000000
000
000
000000

8132
8133
8134
8135
g;gg

026344
(026346
026350
026352
026354

104417
104423
104002
104421
104004

1062

000026

TWATR?
ERROR
TCHKWE
DTERR
0
0
ERROR
1%:

000100
001662

000000

035674

:CLOCK CONTROLLER THROUGH SEEK

JAND CLEAR TQO READ

;0R 5,6,7

JREPORT AL

DISCREPANCIFS

TSSINIT
ERROR
3
MmNy
#1E,RKCST(RZ)
CLR
INTSET

JCLEAR SUBSYSTEM
;3AD INIT ERROR
JSET INTERRUPT ENABLE
JCLEAR INT FLAG

TWAT8S
ERROR

JWAIT FOR INTERRUPT FOR END OF RECAL

JSR
CLEAR
0
0
BYTE
.BYTE
0

R4 ,LRLOAD

JLOAD ''L'" REGS
;CLEAR
;0 WORDS
;0 IS BUFF ADDRESS
JSECTOR 0
;TRACK O
JCYLINDER 0O

0
0

TLOADRK
TWAT16
ERROR
2
TCHKOP
ERROR
&

;0R S5, 6,

;LOAD RK REGS
;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR
;CHECK OPERATION FOR ANY ERRORS
:REPORT ALL ERRORS

g:gg

.SBTT.

8140

""tttttttttttttQfilttlQ"tt't'ttt'ttt‘t.'t'tttt!tlt'ttt't'ttt!t'ttt

g;z;

J*TEST 101

8143

g:zg
8150

B144
8145
8146
8147

8151
8152
8153

««ERROR FORCING IN DRIVE

.
M
A
i

026356
026360
026366

000004
(012737
10441¢

INITIALIZE CLEARING SACK

ISSUE A SUBSYSTEM CLEAR.

SELECT AN AVAILABLE

DRIVE.
ISSUE A SUBSYSTEM (LEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
[ISSUE A SELECT COMMAND WITH
MESSAGE ID = 3 AND DRIVE SELECTED = 0.
C(LOCK THROUGH
PHASE ADDRESS é.
TURN OFF DTAGNOSTIC MODE.
MAKE

SURE UNIT FIELD ERROR DOES NOT SET.

:-.-t'tttttttttttt'tt'ttt""tttttt'tttttt'!'ttttttQ't'ttt't't.""

000012

0C1262

TST101:

SCOPE
MOV
#1C,,$TIMES
TSSINIT

2:D0 10. ITERATIONS
JCLEAR SUBSYSTEM

28-4uG=81 15:16

026370

106003

026372
026376
026400
026402

004437
000101

MACY11

3010467

035674

28-AUG-B1

ERROR

JSR

R4 ,LRLOAD

026404
02€405
026406

000000
000000
000
000
000000

0
0
BYTE
BYTE
0

026410
026412
026414

104623
104002

1064477

TLOADRK

TWAT16
ERROR

026416
026420

104421
104004

TCHKOP
ERROK

02€422
026424

104476

026426
026432
026434
026436
026440
026441
026442
026444
026452

004437
000101
000000
000000
000
000
000000
012737
005037

026456

104417

026460
026464

004437
001027

036316

026466

042762

000040

028474
026476
026500
02¢502

TSSINIT

035674

000043
00161¢C

001616

PAGE 153

INITIALIZE CLEARING SA(K

SELDRV

104003

J 12

15:17

JBAD

SEQ (152
INIT ERROR

;LOAD "L'* REGS

s SELDRYV

;0 WORDS
;0 1S BUFF ADDRESS
;SECTOR O
;TRACK 0
JCYLINDER 0

D
O

;LOAD RK RtGS

;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE
;OR 5, 6,

;CHECK OPERATION FOR ANY ERRORS
REPORT ALL ERRORS

sCLEAR

ERROR

JSR
SELDRV
0
0
BYTE
BYIE
0
MOV
CLR

R4 ,LRLOAD

ERROR

;BAD

SUBSYSTEM

INIT ERROR

JLOAD "'t"" REGS
s SELDRYV
;0 WORDS
;0 IS BUFF ADDRESS
JSECTOR O
;TRACK 0
;CYLINDER 0
JSET DIAG MODE AND MESSAGE PAIR 3
;SELECT DRIVE O

0
O

#3.DMD,L.MR1
L.CS2

TLOADRK

;LOAD RK REGS

JSR
1027

R4 ,MCLOCK

;CLOCK THROUGH PHASE ADDRESS 6

BIC

#DMD ,RKMRI(R2)

;CLEAR MAINTENANCE MODE

104424
104002

TWAT 32
ERROR

;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE

104421
104004

T(HKOP
ERROR

000026

;OR

;CHECK OPERATION FOR ANY ERRORS
REPORT ALL ERRORS

".°.*"ti'ittfi"tfitt'ttt'tt"Qlttl'Q"".."ifil"tl'tQ!tt'it'.t"!t

»
2

ISSUE A SUBSYSTEM (LEAR.

000004

012737

1064416

000005

001262

ISSUE A RECALIBRATE.

+1200 MICRO-INCHES.

[SSUE

PUT CONTROLLER IN DIAGNOSTIC

MODE.
ISSUE A WRITE DATA OF 1 WORD TO CYLINDER O,
TRACK O, SECTOR 0.
(LOCK THROUGH SEEK AND DRIVE (. EAR

MESSAGES.

SHOULD SET

TURN OFF

IN DRIVE.

DJAGNOSTIC

REPEAT

MODE.

FOR ALL

DRIVE

OFF

AVAILIABLE

TRACK

DRIVES.

TR TR IO

026504
026506
026574

DRIVE OFF TRACK

QFFSET OF

LIS
TP TP )

S*TEST 102

L LT

ST102:

SCOPE
MOV

TSSINIT

#5.,8TIMES

;.DO 5. ITERATIONS
JCLEAR SUBSYSTEM

[ Nl

- X

<«

(TRL DIAG

T S

PR S
S
Y R
SN
[
QRJET QUG YN

[}

(670

o [eaXa Yo Yo Yo XV, IV, RV, 1V IV, [V, BEEE3
|9,] WP
2OV
NV
e
FAYR

o .o cJo . To .Jo:To To Jo Jo Jo Jo .To TP

—r e

el md

ek —d el

B} ed ol

)

0o 0o 00 Vo 9o 0o oo 0o 0o 0o (o Oo OO 00 Oo

€ f< INL

8210
8211
8212
8213
8214
8215
8216
8217
8218
8219
8220
8221
8222
8223
8224
8225
8226
8227
8228

8265

28~AuG-81

026516

104003

026520
026526
026526
026530
026532
026533
026534

004437
000113
000000
000000
000
000
000000

026536
026540
026542
026544

104417
104423
104002

005037

026550
026552

104002

15:16

035674

K 12

PAGE 154

ERROR

:BAD INIT ERROR

JSR

R4 ,LRLOAD

;LOAD “‘L'' REGS

0
O

;0 WORDS
:0 IS BUFF ADDRESS
;SECTOR O
:TRACK 0O

RECAL

0
0
.BYTE
BYTE
0

JRECAL

:CYLINDER 0

TLOADRK

TWAT16

ERROR

007662

(LR

104437

SEQ €153

TWAT8S

;LCAD RK REGS

:WAIT FOR

INTERRUPT

;70 SLOW/NOT COMPLETE ERROR

INTSET

:CLEAR

INTERRUPT FLAG

;WAIT FOR

INTERRUPT #2

ERROR

JSR

R4,LRLCAD

:LOAD ''L'' REGS

;0 WORDS
;0 IS BUFF ADDRESS
JSECTOR O

026554
026560
026562
026564
026566
026567
026570

004437
000105

000000
000000
000
000
000000

0
0
.BYTE

026572
026574
026576

104417
104423
104002

TLOADRK

ERROR

026600
026602

104421
104004

ERROR

026604
026610
026612
026614
026616
026617
026620
026622

004437
000115

035674

JSR

R4, LRLOAD

;LOAD ''L'" REGS

0
0

000060

0
0
.BYTE
BYTE
0
MOVB

:0 WORDS
:0 IS BUFF ADDRESS
;SECTOR O
:TRACK 0
:CYLINDER 0
:SET OFFSET AT +1200

026630
026632
026634

104417
104423
104002

ERROR

026636
026640

1064621
104004

ERROR

026642

005037

CLR

INTSET

0260646
026650

104424
104002

026652
026654

104427

000000
000000
000
000
000000
112737

104004

035674

CLEAR

BYTE

0
TWAT16

TCHKOP

OFFSET

001612

TLOADRK
TWAT16
T(HKOP

0066¢

TWAT3?

ERROR

T{HKOP

ERROR

;CLEAR

:LOAD

JWAIT FOR

REGS

INTERRUPT

:TO SLOW/NOT COMPLETE ERROR
;0R S5, 6,

-CHECK

OPERATION

FOR ANY

;REPORT ALL ERRORS

ERRORS

:OFFSET

#60,L .ASOF

:LOAD RK REGS
;WAIT FOR INTERRUPTY

;70 SLOW/NOT COMPLETE ERROR

;OR S5, 6,

s CHECK

OPERATION FOR ANY

;CLEAR

INT FLAG

REPORT ALL ERRORS

JWAIT

;TRACK

:CYLINDER 0

0R 5, 6,

FOR

ERROKS

INT #2

;CHECK OPERATION FOR ANY ERRORS

;REPORT ALL ERRORS

¥ atn]

P11
IR6KG.P

15:17
MACYT 3 (1046)
28-AuG=-81
7102
DRIVE OFF TRA(K

[

“ZR6KGO RKE FUTNL CTRL DIAG

CZROKGO RVG FCTNL CTRL DIAG
CIREKG.P11
2B-AUG-81 15:16
8266

WACY11 30(1046)
28-AUG-81
15:17
T102
DRIVE OFF TRACK

8267
8268
8269
8270
8271
8272
8273

026656
025662
076664
026666
(26670
26671
026672

004437
000105
000000
000000
000
000
000000

8275
8276
8277

026674
026676
026700

104417
104423
104002

TLOADRK
TWAT16
ERROR
2

8279
8280

026702
026704

104421
104004

TCHKOP
ERROR

8282
8283
8284

026706
026712
026714

004437
000023
177777

8285
8286
8287
8288
8289

026716
026720
026721
026722
026724

072414
000
000
000000
012737

035674

000060

JSR
CLEAR
0
0
BYTE
.BYTE
j

001610

JSR
23
-1
OBUFF
-BYTE
.BYTE
0
MOV

L 12

PAGE 155
L

R&,LRLOAD

;LOAD "'
REGS
:CLEAR
:0 WORDS
20 IS BUFF ADDRESS
:SECTOR 0
:TRACK 0
:CYLINDER 0

0
0

SEQ 0156

;LOAD RK REGS
:WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

;OR 5, 6,

R&,LRLOAD

;CHECK OPERATION FOR ANY ERRORS
:REPORT ALL ERRORS

;LOAD "' REGS
:WRITE DATA W/0 INTERRUPT ENABLE
:=1 WORDS

#DMD,L.MR'

:0BUFF IS BUFF ADDRESS
SECTOR 0
:TRACK 0
:CYLINDER 0
:SET DIAGNOSTIC MODE

0
0

ggg;

026732

104417

8293
8294

026734
020740

004437
001064

036316

JSR
1064

R4,MCLOCK

;CLOCK THROUGH SEEK & DRIVE

8296
8297
8298
8299
8300
8301

026742
026746
026750
026756
026760
026762

005062
104426
012762
104423
000240
000240

000026

(LR
TWAT64
MOV
TWAT16
NOP
NOP

RKMRT(R2)

;CLEAR DIAGNOSTIC MODE
;WAIT FOR INTERRUPT
:CLEAR CONTROLLER
STALL FOR 16 MS

83u%
830%
8305
8306
8307
8308
8309
8310

026764
026770
026772
026774
026776
026777
027000
027002

004437
000101
000000
000000
000
000
000000
005037

035674

JSR _
SELDRV
0
0
BYTE
BYTE
0
(LR

R&,LRLOAD

8312
8313
8314

027006
027010
027012

104417
104423
104002

TLOADRK
TWAT16
ERROR
2

;LOAD RK REGS
:WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

8316
8317
8318
8319
8320

027014
027016
027020
027022
027024

104422
(000400
000000
000000
104004

TCHKWE
DROTERR
0
0
ERROR
4; OR 5,6,7

;CHECK OPERATION WITH ERRCR EXPECTED
:DRIVE OFF TRACK

8321

TLOADRK

100000

001616

000C?)

#CCLR.RKCS1(R2)

0
0
L.MRI

C(LEAR

;LOAD *1L'" REGS
:SELDRV
:0 WORDS
:0 IS BUFF ADDRESS
ZSECTOR 0
:TRACK 0
:CYLINDER 0
:RESET DIAG MODE

;REPORT ANY DISCREPANCIES

""i*t"'.t!tt'ltttt*t"i"'l'llfitt"tt"t‘fitfi."'fi't".'.‘.t.t"'

CIR6KGO RKG FCTINL CTRL DIAG
CIR6KG.P11
28-AUG=-81 15:16

MACY11

30(1046)
7103
s«TEST

28-AUG-81
15:17
FILE UNSAFE
103

m 12

PAGE

156

SEQ 0155

FILE UNSAFE

> %

ISSUE A SUBSYSTEM (LEAR.

ISSUE A RECLAIBRATE.

ISSUE

X
-

A READ HEAD OF CYLINDER 0O, TRACK 0 IN 24 SECTOR
FORMAT.
DO A SELECT COMMAND IN 26 SECTOR FORMAT.

HEADER TO CYLINDER O, TRACK O, ONE WORD IN 26 SECTOR

o
o

SIMULATE INDEX PULSE.
TURN OFF DIAGNOSTIC MODE.
UNSAFE SHOULD SET BECAUSE OF ATTEMPTING TO WRITE

o
o

PUT

CONTROLLER

FORMAT.

(CLOCK

THROUGH

SECTOR

IN DIAGNOSTIC MODE.

THROUGH SEEK AND

PULSE.

REPEAT

ISSUE

DRIVE

FOR ALL

A WRITE

(LEAR MESSAGES.

AVAILIABLE

FILE

DRIVES.

:-:tQttt*tttttitttttttti'ttttttfitttttttttttttttttttttttwtttttttttt
TST103:

027026
027030

027036
027044
027046

027050
027054
027056
027060
027062
027063
027064

SCOPE
MOV

#5.,8TIMES

::PO 5.

ERROR

:BAD INIT ERROR

JSR

R4 ,LRLOAD

MOV
#-1,REFMT
TSSINIT

RFCAL

0
0
.BYTE
BYTE
12

000012

027072

ERROR

027074
027076

104421
104004

ERROR

027100
027104
027106

005037

CLR

INTSET

ERROR

027110
027112

104421
104004

027114
027120
027122
027124
027126
027127
027130

004437
000105
000000
000000

027132
027134
027136

104617
104423
104002

ERROR

027140
027142

1046421

TCHKOP

000
000
000012

104004

;RECAL

0
0

104417
104423
104002

104437
104002

:LOAD ''L'' REGS
:0 WORDS
:0 IS BUFF ADDRESS
:SECTOR @
:TRACK 0
:CYLINDER 12

027066
027070

TLOADRK

TWAT16
TCHKOP

001662

TWAT8S

TCHKOP

035674

ITERATIONS

:SET REFORMAT SWITCH
:CLEAR SUBSYSTEM

;LOAD

:WAIT

FOR

REGS

INTERRUPT

:TO SLOW/NOT COMPLETE ERROR
:CR S, 6,

;CHECK OPERATION FOR ANY ERRORS

;REPORT ALL ERRORS

:CLEAR INT FLAG

:WAIT FOR SECOND

;CHECK OPERATION FOR ANY ERRORS

JSR

R4, LRLOAD

:LOAD ''L'* REGS

0
0

;0 WORDS
;0 IS BUFF ADDRESS
:SECTOR 0
:TRACK 0

0
0
BYTE
BYTE
12

TLOADRK
TWAT16

ERROR

INT

ERROR
CLEAR

:0R 5, 6,

:CLEAR

:CYLINDER 12

:LOAD RK REGS
;WAIT FOR INTERRUPT

;REFORT ALL ERRORS

;TO SLOW/NOT COMPLETE ERROR

0R S5, 6,

:CHECK OPERATION FOR ANY ERRORS

;REPORT ALL ERRORS

8378

004437

035674

39 ( 1 046)
{ 1 03

28-AuG=-81

FILE

UNSAFE

15:17

027144
027150
027152
027154
027156
027157
027160

010125
000000
000000
000
000
000012

027162
027164
027166

104417
104424
104002

ERROR

027170
027172

104421
104004

ERROR

027174
027200
027202
027204
027206
027207
027210

004437
000101
000000
000000
000
000
000012

JSR
SELDRY
0

R4, LRLOAD

027212
027214
027216

104417
104423
104002

027220
027224

027232
027233
027234
027236

004437
000127
177777
072414
000
000
000012
012737

027244
027246
027252

004437
001064

036316

027254

052762

000200

027262
027266

004437
001001

036316

027270

042762

000200

027276
027302

00443~
0010v1

027304

005062

027310
027312

104426

104002

ERROR

027314

104427

TCHKOP

027226
027230

104417

JSR

N 12
PAGE 157
;LOAD "L'* REGS

R4 ,LRLOAD

RDHEAD
. CFMT

0
0
BYTE
BYTE

sRDHEAD
! CFMT

20 WORDS
;0 IS BUFF ADDRESS
JSECTOR 0

0
O

s TRACK 0

;CYLINDER 12

TLOADRK

TWAT3?

TCHKOP

035674

0
BYTE
LRYTE
12

TLOADRK
TWAT16

035674

000040

001616

;LOAD RK REGS
sWAIT

2
,;0R 5,

0
0

;CHECK OPERATION FOR ANY ERRORS
JREPORT ALL ERRORS

;LOAD *'L'' REGS
;SELDRYV

;0 IS BUFF ADDRESS
;SECTOR O
JTRACK 0
;CYLINDER 12

sLOAD RK REGS

JSR
U?HEAD

R4 ,LRLOAD

MOV

INTERRUPT

;0 WORDS

BYTE
12

FOR

;TO SLOW/NOT COMPLETE ERROR

ERROR

OBUFF
BYTE

SEQ 0156

;WAIT FOR INTERRUP[
;TO SLOW/NOT COMTLETE

JLOAD “'L"* REGS

;WRHEAD

;=1

0
0
#DMD,
L .MR1

ERROR

WORDS

;sOBUFF

IS BUFF ADDRESS

JSECTOR O

JTRACK 0

;CYLINDER 12

JSET DIAGNOSTIC-MODE

TLOADRK
JSR
R4 ,MCLOCK
1064

sLOAD RK REGS
;CLOCK THROUGH SEEK AND DRIVE CLEAR

BIS

#MIND ,RKMR1(R2)

JSET INDEX

JSR
1001

R4 ,MCLOCK

;CLOCK INDEX

BIC

#MIND ,RKMR1(R2)

sCLEAR INDEX

0346316

JSR
1001

R4 ,MCLOCK

;CLOCK CLEAR

000026

CLR

RKMR1(R2)

sCLEAR DIAGNOSTIC MODE

000026

TWAT64

;WAIT FOR

INTERRUPT

:TO SLOW/NOT COMPLETE ERROR
;CHECK OPERATION FOR ANY ERRORS

lalal

VACY!T

[ VT ¥

CZR6XGO RKG6 FCINL CTRL DIAG
{ IR6KG P
28-AUG-81 15:16

8434
8435
8436
8437
8438
8439
8440
, 8441

8442

B443

8444
8445
8446
8447
8448
8449
8450
8451
8452
8453
8454
8455
8456
8457
8458
8459
8460
8461
8462
8463
8464
8465
8466
8467
8468
8469
8470
8471
8472
8473
8474
8475
8476
8477
8478
8479
8480
8481
8482
8483
8484
8485
8486
8487
8488
8489

30¢( 1 046
T3 0 3

28-AyuG-81

FILE UNSAFE

02731¢

104004

027320
027324
027326
027330
027332
027333
027334

004437
000101
000000
000000
000
000
000012

035674

027336

005037

001616

027342
027344
027346

104417
104423
104002

027350
027352
027354
027356

106422
040400
000000
000000

027362
027364

104416
104003

ERROR

027366
027372
027374
027376
027400
027401
027402

000101
000000
000000
000
000

JSR
SELDRV

R% ,LRLOAD

027404

012737

027360

027412
027412
027414
027416

R4, LRLOAD

.BYTE

0
0

:TRACK 0

L.MR1

;CLEAR DIAG MODE

;LOAD "'L*" REGS
:SELDRV
;0 WORDS
:0 IS BUFF ADDRESS
:SECTOR 0

TWAT16
. ERROR

JWAIT

000001

001616

MoV

1%:

104423
104002

JCHECK OPERATION WITH EXPECTED ERROR
;UNSAFE AND DRIVE OFF TRA(CK
A}

4; OR 5,6, 7

JREPORT ANY DISCREPANCIES
;CLEAR SUBSYSTEM
JBAD

000048

027434
02 436

;0 WORDS
;0 IS BUFF ADDRESS
:SECTOR ¢

001574

00166¢

#1,L.MR1

sSET MESSAGE

SELECT ONE

;LOAD RK REGS
;WAIT

FOR

INTERRUPT

:TO SLOW/NOT COMPLETE ERROR

;CHECK OPERATION FOR ANY ERRORS
JREPORT ALL ERRORS

BIT
BEQ

#S . HDHM,T .MR2

;TEST

sCLEAR SUBSYSTEM
;BAD INIT ERROR

ERROR

104003

ERROR

TSSINIT

104416

INIT

;LOAD *'L'' REGS
;SELDRY

TLOADRK
TWAT16
ERROR
2

TCHKOP

027444
027446

INTERRUFT

;TRACK 0
JCYLINDER 12

104417

027440

FOR

;TO SLOW/NOT COMPLETE ERROR

TCHKWE

TSSINIT

;LOAD RK REGS

UNSERR.DROTERR
ERROR

;CYLINDER 12

TLOADRK

027420
02r422

027450
027452

;0R 5,6, 7, 10 ;REPORT ALL ERRORS

000012

027424
027432

SEQ (157

JSR
SELDRV

CLR

035674

158

104004

004437

PAGE

ERROR

0
0

B8 13

15:17

:OR

HEADS HOME

(LR
INTSET
TWAT159
NOP

oo WAIT

TSSINIT
ERROR
3

;CLEAR SUBSYSTEM
;BAD INIT ERROR

;CLEAR INT FLAG
FOR

APPROX

160 MS

;DON'T CARE ERROR RETURN

[Ba
X de)

MACY'1

CZR6KGO RKE FCTNL CTRL DIAG
P11
CIR6KG.P
2B8-AUG~81 15:16

MOV

#1E ,RKCST1(R2)

TWATS8S
ERROR

15:17

SEQ 0158

027454

012762

027462
027464

104002

027466

005037

on161¢

CLR

L.MR1

;CLEAR MR1

027472
027476
027500
027502
027504
027505
027506

004437
000105
000000
000000
000

035674

JSR
(LEAR

R4,LRLOAD

JLOAD ''L'' REGS

000
000012

.BYTE
BYTE
12

0
0

027510
027512
027514

104417
104423
104002

ERROR

027516
027520

104421
104004

ERROR

027522
027526

004437
001200

042260

*JSR
1200

R4, GENCOM

027530
027534
027536
027540
027542
027543
027544

004437
000127

035674

JSR

R4 ,LRLOAD

072414

027546
027550
027552

104417
1064426
104002

TLOADRK
TWAT64
ERROR

027554
027556

104421
104004

ERROR

000100

106437

0
0

TCHKOP

WRHEAD

177676

JSET INTERRUPT ENABLE
JWAIT tOR SECOND

INTERRUPT FROM HDS L OADED

)

;CLEAR

;0 WORDS

TLOADRK
TWAT16

:0 IS BUFF ADDRESS
;SECTOR O
JTRACK 0

OBUFF
.BYTE
.BYTE
12

TCHKOP

JCYLINDER 12
;LOAD RK REGS
;WAIT

FOR

INTERRUPT

2TO SLOW/NOT COMPLETE ERROR
;OR S5,

sCHECK OPERATION FOR ANY ERRORS

REPORT ALL

ERRORS

;BUILD

HEADERS

;LOAD

"L'* REGS

s WRHEAD

=102

;=102 WORDS

0
0

;sOBUFF IS BUFF
JSECTOR G
JTRACK 0

ADDRESS

;LOAD RK REGS
JWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

;CYLINDER 12

;0R

;CHECK OPERATION FOR ANY ERRORS

;REPORT ALL

ERRORS

':"fitttlttttitttttttttt't'tiRttitt'tfittittifi'tttttttttt‘tttt'ltt

*TEST

B
S

TEST

IN ADDITION,
TO RELOAD,

000004
012737

027570

104416

000001

001262

TO MAKE

FROM

THE

THE DRIVE

THIS MUST BE

DRIVE

TEST EXIT

$SWO8TB

TABLE

HAVE

AN ENTRY

TEST FOLLOWING ‘‘NEWDRV'',

T104:

SCOPE
MOV
TSSINIT

IS CLEARED AND
DONE

COMING READY

ceRRNRNARR
AN RRNARRAARN AT

0275€0
027562

FOR PREVIOUS

PRESENT

UL TR YO

"NEWDRV'' ROUTINE AND GO TO THE

DUMMY

TEST

WHICH RELATES TO "'NEWDRV''. THIS IS NECESSARY |F &N ERROR OCCURS
IN THE PRECEEDING TEST AND THAT ERROR ABORTS THE TEST,
IF THIS TEST WERE NOT PRESENT, THE PROGRAM WOULD SKIP THE

104

THIS

O V00 NN
(NN —

(WL RV LU AW RV LV, LV, [V, RV TV ]
|o N P S
R
S Y )

00 0o 0o Co 0o 00 O Lo 00 Oo

8501
8502
8503
8504
8505
8506
8507
8508

600000

110 3

— LRI

849¢
8463
B4 94
8495
8496
8497
8498
8499
8500

28-AUG-81
FILE UNSAFE

8490
8491

13
PAGE 159

®acv11 3001 046)

#1,87IMES

A AR

LATER

RAARRERR RN RN

;.D0

THE

TO PREVENT

HEADS ARE

UNEXPECTED

ALLOWED

INTERRUPTS

TIME,

AR AN

ITERATION

JCLEAR SUBSYSTEM

IR AT AR R RAR NN RS

[ T3

"IR6XGO RKG FCINL CTRL DIAG
TIR6KG. P
28-AUG-81 15:16

8599
8600
8¢01

104003

027574
027602
027606
02764
027622
027630
027636
027640
027644
027646

30(1046)
T104

D 13
PAGE 160
DUMMY TEST FOR PREVIOUS TEST EXIT

28-AuG-81

ERROR

001626
036126
000001
001720
036124
000200

000010

036124
036124
000000
000012

MOV

1%:

036126

2%:

15:17

#1,HOLD

BIT

#DRDY ,RKDS(R2)

MOV

BNE
INC
BNE
ERROR

;SELECT

2%
?2LD1

:BR IF YES
;ELSE TRY AGAIN

027654
027660

004437
001200

042260

JSR
1200

R4 ,GENCOM

027662
027666
027670
027672
027674
027675
027676

004437
000127

035674

JSR
WRHEAD
=102
OBUFF

R4 ,LRLOAD

027700
027702
027704

104417
104426

027706
027710
027712

104421
104004

005037

001€76

027716
027720
027726
027734

000004
012737
032737
001026

000001
000200

027770

027776

030002
030006
030012
030016

TSSINIT
3
ERROR

.BYTE
BYTE
0

TLOADRK
TWAT64

104002

NO~N
Or— W
WO~

027736
027742
027746
027754
027756
027764
027766

177676

072414
000
000
000000

ERROR

0
0

—
—

0O
OO

001626
001630
001630

001354

000400

001630

1%:

DRIVE

READY

:NO RDY

;CLEAR SUBSYSTEM

*:BAD

INIT ERROR

:GENERATE HEADERS FOR (vL 0
;LOAD "L*'' REGS

:WRHEAD
;=102 WORDS

sOBUFF ][5 BUFF ADDRESS
JSECTOR O
:TRACK 0

;CYLINDER 0

JWAIT

FOk

INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

;CHECK OPERATION FOR ANY ERRORS

#1,8TIMES
#B1T7,DRVBIT

BNE

JYES-SKIP

INC

DRVYNUM

;DO ONLY
;WERE WE

ONCE
TESTING DRIVE

;BUMP TO NEXT SEQUENTIAL ADDRESS

DRVBIT
DRVBIT,$DEVM
2%

;BUMP DRIVEBIT TO THAT POSITION
;1S THIS DRIVE TO BE TESTED?
JYES-EXIT

BNE
BR

SYES-EXIT

MOVB
MOV

#4,$TSTNM
PRVNUM,R1
PC,GTYPI
TSTLUP

BNE

BIT

3%:

THE DRIVE

BI1

MOV

BIT

001102

&
;0R S5, 6, 7
REPORT ALL ERRORS
ERROR
REFMT
;CLEAR REFORMAT SWIT(CH
(LR
**MULT]- DRIVE OPERATIONS
SCOPE

ASL

’

;TEST

;LOAD RK REGS

TCHKOP

.SBTTL
NEWDRV:

;LOAD DRIVE NUMBER

DTYPE ,HOLD
HOLD ,RKCST(R2)

1064616

104003

;BAD INIT ERROR

DRVNUM,RK(S2(R2)

HOLD1

CLR
MOV
BIS

SEJ C159

JSR
JMP
CLR
(LR

#B1T8,DRVBIT
1%

DRVRIT

DRVYNUM

JALL

JELSE
JSET

DRIVES

TESTED?

CHECK NEXT

DRIVE

AVAILABLE

TEST NUMBER FOR REPORTS

;GET DRV TYP FOR NEXT DRV
;GO TO TEST LOOP TO (HECK

;CLEAR DRIVE BIT

;CLEAR DRIVE NUMBER
<

1O TST
THIS DRIVE

MACY11

027650
027650
027652

QO=2NNN
WWNWIWNO
W
NINNN=N

8594
595

027572

e elelololnlelelole]
OOOOW—I
N
—
£ =N D NDWNPRI
W
QWO NNNNO
N
O NWOONON NWNNO
LN
N S S ENENVENT.§)

CIR6KGO RK6 FCUTNL CTRL DIAG
TIR6KG.PIY
28-AUG-81 15:16

86i6
8617
86°8
8619
8620
8621
8622
8623
8624
8625
8626
8627
8628
8629
8630
8631

8632
8633
8634
8635
8636
8637
8638

8639
8640
8641
8642
8643
8644
8645
8646
8647
8648
8649
8650

8651
8652
8653
8654
8655
8656
8¢57

E 13

3?(1046)
105
A

28-AuG-81
15:'7
PAGE 1¢1
RESET ATTENTIONS WITH UNIBUS

AL AA LA

PeTEST 105

030022
030024
030032
030034
030040
030044
030046
030050
030052
030054
030056
030060
030064
030066

000004
012737

030070
(30074
030100

010037
004737
012737

030106
030110
03012

104417

005000
012701
013703
1064416
104003

030103
001006
006301
005200
032701
001771
000443

000012

0C1262

8
»

000400

2%:
001600

1°%:

177400

104002

030204
0302'0

012701
005301

10%:

000031

;PRESET BIT FOR POSITION O
JGET DEVICE MAP

ERROR

BIT

BNE
ASL
INC
BIT
BEQ
BR

MOV

JSR
MOV

“%:

5%:

10.

ITERATIONS

;CLEAR DRIVE POSITION COUNTER

.CLEAR

R1,R3

JTEST

THIS DRIVE

2%
R1
RO
#R1T8,R1
1%
48

JYES=SKIP TO SEEK
JSHIFT DRIVE SELECT BIT
;BUMP DRIVE POSITION COUNTER
JALL DRIVE POSITIONS CHECKED
JNO-LOOP
JSKIP TO RESET

RO,L.CS?2

JLOAD DRIVE NUMBER

PC,GTYPO
#RECAL,L.CST

sLOAD RECALIBRATE

(LR

INTSET

;CLEAR

MOV

#12 ,RKCST1(R2)

LRESET INTERRUPT ENABLE

8I(

#177400,R4

BNE

108

TCHKOP

TESTING FOR AVAIL

AVAILABLE

;LOAD RK REGS
<WAIT FOR INTERRUPT
;70 SLOW/NOT COMPLETE

MOV
MOVR

SUBSYSTEM

*BAD INIT ERROR

TLOADRK
TWAT16
ERROR
2

ERRQOR

045220

#1,R1
$DEVM,R3

DEC(
BNE

001362

000727
000005
004737

AR ANIANEENRANANANAANRARRN
NN ROIQRRCRRAOR

#500. ,RS

JSET

ERROR

INTERRUPT FLAG

COUNT

FOR 8 SECONDS

RKASOF
(R2) ,T.ASOF ;GET ATTENTION REGISTER
T.ASOF +1,Ké
JADJUST FOR CHECK OF ATTENTION

;CLEAR UNUSED BITS

R1,R4

JCHECK

JWAIT

FOR

ATT

JYES - SK]P

TWAT16

030174
030176
030200

RESET ATTENTIONS WITH UNIBUS INIT

zgg

104421
104004

MOV
MOV

BIT

030170
030170
030172

;.DO

MOV

030152

030154
030156
03C160
030162
030164
030166

#10. ,$TIMES

(LR

3%:

001557

MOV

TSSINIT

00CH 9
0155 6

DO A RECALIBRATE ON ALL AVAILIABLE DRIVES.
ISSUE A RESET.
MAKE SURE ALL ATTENTION RESET.

§T105: SCOPE

000012
000016

CTRRARARRAARARARN P RARAN AN N

000001
001254

01662
000764

AR Al

SEG 0160

104423
104002

030114
030120
030124
030132
030140
030144
030150

INIT

LI
TE TR TR

8602
8603
8604
8605
8606
8¢07
8608
8609
8610
8611
8612
8613
8614
8615

MACY1T

SET

FROM DRIVE

RECAL'ED

16 MS

;DON'T CARE RETURNS
RS
12%

JTATOL WAIT TIME 'S 8 SECONDS
JCHECK ATTENTION EALH 16 MS

ERRGR

B8R

JREPORT ]F NO ATTENTION N 8 SEC

;0R S5, 6,

RESE?Y
JSR

PC,3TKINT

MOV
DEC

#25. ,R1
R1

JCHECK OPERATION FOR ANY

;REPORT ALL ERRORS

ERRORS

JLO0P FOR NEXT DRIVE

JUN]JBUS RESET
JRESET KEYBOARD

INTERRUPT

;DO A SHORT DELAY

ENAB_E

CIR6KGO RK6 FCINL CTRL DIAG
(IR6KG. P
28~AuG=81 15:16

8658
8659

8660
8661
8662

8663

8664
8665
8666
8667
B668
8669
8670

8671

8672
8673
8674
8675
8676
8677
8678
8679
8680
8681
8682
8683
8684
8685
8686
8687
8688
£689

€30212
030214

00137¢
004737

030220

104420

030222
030226

105737

001557

012737
012737

0 56630
54
5
0567

030230
030236
0302644

001407

104012

VACYTT

F 13
15:17
30(1046)
PAGE 162
28-AUG-81
n 05
RESET ATTENTIONS WITH UNIBUS INIT

BNE
JSR

034522

5%
PC,OFTTMST

;SET UP OPTIONS

TGE TRK

TSTB

001470

061112

030246

;GET RK611 REGS
+1
T,ASQOF

JALL ATTENTION RESET?
;YES=SKIP

#EMDA EM12N

J'DRIVE ATT NOT RESET RES (T OF
JUNIBUS RESET"’

BES

MOV
MOV

:SMUR.DFO1'A

ERROR

SES Q161

6%:
--'tttt.ttt't.'t‘Qt'tt""i"'t't'fiifi"i!fitt".!"'tt'.t.'.'."'.

'TFS'

106

RESET

ATTENTIONS WwITH

SUBSYSTEM (LEAR

DO A RECALIBRATE ON AL. AVAILABLE DRIVES.
MAKE SURE ALL ATTENTIONS
ISSUE A SUBSYSTEM (LEAR.
RESET.

° &

.
;.
- %

SPRNA

030246
030250
030256
030260
030264
030270
030272
030274
030276
030300

3
3
3
3
3

340
3
3
3
3 64

000012

001262

TST106:

“§:

2%
C00400

010037
004737
012737

001600

001662
000764
000012
000016
001557

RN AR

#10.,8TIMES

RO
#1,R1

INC

R1
RO

BEQ
BR

1%
'3 3

MOV

JSR

RO,L.CS2
PC,GTYPO
#RECAL,L.(CST

ERROR

(LR

INTSET
#500. ,RS
#12 ,RKCS1(R2)
RKASOF (R2), T

ASL

MOV
TLOADRK
TWAT16

1% :

R R AN R

MOV
MOV
$DEVM,R3
TSSINIT
ERROR
3
R1,R3
BIT
BNt
2%

BIT

2%:

104417

SCOPE

MOV

(LR

000001
001354

005200
032701
001771
00443

RN RN AAR R

MOV
MOV
MOv
MOVB

R1
#8178

T.ASOF +1,R

AN RANA

NN RANARAAERAIRANARARRAAINOET
RS

;:D0 10. ITERATIONS
sCLEAR DRIVE POSITION COUNTER

JPRESET

TEST

sCUT DEVICE MAP

POSITION O

;CLEAR SUBSYSTEM

JBAD INIT ERROR

;THIS DRIVE AVAILABLE?
JYES=SKIF TO SEEK

JSHIFT

7O NEXT DRIVE POSITION

;DUMP POSITION COUNTER
JALL POSITIONS CHECKED
JNO-LOOP
JYES~SKIP

TO CLEAR

;LOAD DRIVE NUMBER

sLOAD RECALIBRATE
sLOAD RK REGS
JWAIT

FOR

INTERRUPT

2TO SLOW/NOT (OMPLETE ERROR
;CLEAR INT FLAG

JSET COUNT FOR 8 SECONDS

JRESET

INTERRUPT

sADJUST

FOR

ENABLE

JGET ATTENTION REGISTER
(HECK

ATTENTION

£ Ve

TIREKGD Rk FCINL CTRL DIAG
TIRGKG,. P
28-AUG~81 15:16

“IROKGT RKE FTTNL (TRL Clay
“IR6KG. P
28-AUG=81 15:16

030402
030404

(30406

030410
030412

E7¢°

#177400,R6

BI(
BIT
BNE

00100¢
106423

10%

NOP
NOP
DEC

JWAIT FOR

16 MS

JDON'T CARE RETURNS

FRROR

128
4

BNE

104002

SE3 C162

;CLEAR UNUSED BITS
JCHECK IF ATT SET tROM DRIVE RECAL'ED
JYES - SKIP

R1,R4

TWAT16

000240
000240
005305
001362

;TATOL

WAIT

JREPORT

TIME

IS 8 SECONDS

s(HECK ATTENTION EACH 76 MS
NO ATTENTION

030414
030414
030416

104621

104004

TCHKOP
ERROR

030420

000727

3¢

cLOOP FOR NEXT DRIVE

030422
030430
030434
030436

052762
012701
005307
001376

#SCLR,RK(S2(R2)

;DO SUBSYSTEM (LEAR

030440

104420

030442
(30446

105737
001407

030450
030456
030464

012737
012737
104012

000040
000031

60001¢

BIS

;0R S5, 6,

#25. ,R1
R1

MOV

DEC
BNE

001557
—~a
— N
roo

7044

ALL

ERRORS

SHORT DELAY

;GET RK611
+1
T.ASQF

JTEST

ALL

REGS
ATTENTION

RESET

BE®

JYES-SKIP

MOV
MOV

#EMDA ,EMI2N

;"DRIVE ATT NOT RESET AS RESJULT OF

ERROR

030466

SEC

ISTB

—_—

6630

IN 8

JCHECK OPERATION FOR ANY ERRORS

JREPORT

;DG A

TGE TRK

:SMSCLR,DFOT1A

JSUBSYSTEM (LEAR''

0.8,
0%, 8, 0.8,

6%:
AL

SVAL

AR R

)

AND ATTENTIGN FROM OTHER DRIVE

R
BN B
I

N
S.w

NG NN JNE 2NN

AR A

DO A RECALIBRATE

e,
..

107

ON ONE

AVAILABLF DR]VE.
DO A SELECT
MAKE SURE STATUS VALID
WAIT FOR SECOND INTERRUPT FROM RECAL IBRATE
MAKE SURE STATUS VALID REMAINS SET AND DRIVE STATUS
CHANGE REMAINS RESET.
?g éggTHER

AVAILABLE

DRIVE.

REPEAT FOR ALL COMBINATIONS OF TWO AVAILIABLE DRIVES.
:
NOTE

AR AR

)

'VEJT

8741

8742
874%
8744
B74¢€
8745
8747
8748
8749
8750
8751
8752
8753
8754
8755
8756
8757
8758
8759
8760

G 13

30(°046)
'5:17
28=-AuG-81
PAGE 163
RESET ATTENTIONS WITH SUBSYSTEM (LEAR
706

177400

[ele]

8721
8722
8723
8724
8725
8726
8727
8728
8729
8730
8731
8722
8733
B734
8735
8736
8737
8738
8739
8740

030400

0462704
030104

8719
8720

030370
030374
030376

(VL 1V

8706
87067
8708
8709
8710
8711
8712
8713
8714
8715
B716
8717
8718

MACY11

THIS

TEST

TWO DRIVES

WILL

ARE

ONLY BE

DONE

AVAILABLE.

LEAST

030466
(030470
030476
030502
030506
(030512
030514
(030520

* t'tt'!'tti'ttt!i.lt""'Iltt't".tfi...!tt."tttt.‘.t't..t'
tl"i

00G012
001354
03624c
000001

001304

CO1262

1§1107:

SCOPE

MOV
MOv

JSR
(MP
BH]
TST

BNE

;.00 10. ITERAT]ONS
JPUT DEVICE MAP ON STA(CK
JCOUNT NUMBER OF

BITS(# OF

;COMPARE T0 1
JSK]IP IF MORE THAN 1
JCHECK [F PASS O
JNO=-SK]P

DRIVES)

“IREXGD RKE FCTNL (TRL DIAG
TIREKG.P1T
2B=AUG=81 15:16

MACYTY

39#5946)

H13

28-AuG=81
15:17
PAGE 164
SvAL AND ATTENTION FROM QOTHER DRIVE

SEQ C1e3

8762
gzgz

030522
030526

104407
000137

052666
031772

87¢5
8766
8767
8768
8769
8770
8771
g;;%

030532
030540
030544
030546
030550
030554
030560
030566

012737
073705
005000
005001
012703
012704
012737
000503

177777
00?354

8774
8775
g;;g

030570
030570
030572

04416
104003

8778
8779
8780
g;g;

030574
030600
030604
030610

010027
00037
004737
012737

8783
8784
8785
8786
g;gg

030616
030620
030622
0306246
030626

104417
104423
104002
104421
104004

g;gg

030630

005037

001662

CIR

INTSET

8791

030634

010137

001610

MOV

R1.L.CS2

8793
g;gg

030644
030650

004737
012737

036150
000101

JSR
MOv

PC,GTYPI
#SELLCRV,L.CST

8796
8797
g;gg

(30656
030660
030662

104417
104423
104002

TLOADRK
TWAT16
ERROR
¢

8800
ggg;

030664
030666

1044217
104004

TCHKOP
ERROR

8803
8804
8805
8806
gggg

03c670
030676
030700
030706
030714

032737
001007
012737
012737
104011

BIT
BNE
MOV
MOV
ERROR

#SVAL,T.DS
(s
#EMSVAL ,EM1IN
#0PERQO,DFO11A
11

JCHECK JF STATUS VALID SET
JYES - SKIP
;"'STATUS VAL.D NOTM SET RESULT Of
;DRIVE SELECT''

8809
8810
8811
gg;%

030716
030722
030724
030726

005037
104436
000401
000406

001662

(LR
TWATZS
B8R
BR

INTSET
13
55%

;CLEAR INT FLAG
JWAIT FOR SEEK COMPLETE
;NONE RECEIVED - SKIP
. RECEIVED -~ SKIP

8814
88?5
881¢

030730
(03073
(030742

010037
012737
104002

001626
060501

MOv
MOV
[RROR

RO,DRVNUM
#DHO" 7 ,DHON
2

8792

(20640

010137

000001
000001
(30570

18:
Q01224

2%:

001110
38:

001€10
001626
036134
000113

001600

TVYPE
JMP

,0PRO18
$E0P

;"'OVERLAPPED OPERATION BYPASSED"
JGET Our.

MOV
MOv

(LR
(LR
MOV
MOV
MOV
B8R

#-1,8TVP"
$DEVM RS
RO
R1
#1,R2
#1,RS
#38 SLPERR
1%

;SET LOOP CONTROL FLAG
sGET DEVICE MAP
sCLEAR FOR DRIVE #A
;CLEAR FOR DRIVE #B
;SET DRIVE POSTTION A
sSET DRIVE POSITION B
;SET LOCAL LOOP ON ERROR
;GC SET UP POINTERS

TSSINIT
ERROR

sCLEAR SUBSYSTEM
;BAD INIT ERROR

MOV
MOV
JSR
MOV

RO,L.CSZ
RO,DRVNUM
PC,GTYPO
#RECAL ,L.CST

TLOADRK
TWAT16
ERROR
2
TCHKQOP
ERROR
&

001626

MOV

GO1¢79

100000

001552

056444
050250

001450
061112
4%

001372

44s:

;O0R 5,

;LOAD DRJVE A
;LOAD FOR REPORT
;LOAD RECAL

;LOAD RK REGS
:WAIT FOR INTERRUPT
2TO SLOW,NOT COMPLETE ERROR
JCHECK OPERATION FOR ANY ERRORS
REPORT ALL ERROFS
;CLEAR INT FLAG

.LOAD DRIVE 8

R1,DRVNUM

;LOAD FOR REPORT

;LOAD DRIVE SELECT
LOAD RK REGS
;WAIT FOR [NTERRUPT
;TO SLOW/NOT COMPLETE ERROR

;0R 5,

;CHECK OPERATION FOR ANY ERRORS
,REPORT ALL ERRORS

INTERRUTM!

JSET DRIVE FOR REPORT
;"'COMMAND - SELECT AFTER RE(AL"

030756
030764
030772

012737
0127%7

Q30774

104475

104014

00000

056444

060524

001552

30('C46)
1107

55%:

28-AuG~81

SVAL

PAGE 165

TGE TRK
BIT

#SVAL,".DS

;GET RX REGS
JTEST IF SVAL

MOV

SEMSVAL ,EMIGN

PSXOR

S$:

113

15:17

AND ATTENTION FROM OTHER DRIVE

BNE

(%] @]

104420

032737
001007

030744
030746
030754

15:1¢

28=-AuG=-81

—

TIRExG P

MACYTT

-—

"RG0 RKE FUTNL CTRL DIAG

STILL

;YES - SKIP

:2H018.DFO11A

scoPt

SET

;''STATUS VALID RESET RESULT

JRECAL

SEG (164

COMPLETE ATTENTION ASTER SEL'

;LOCAL LOOP TO 3%

THE FOLLOWING CODE CAUSES THE TEST TO BE RUN ON EVERY (OMBINATION
OF DRIVES AVAILABLE.
THE FIRST PASS OF THE PROGRAM WILL USE THE

LOWEST NUMBER DRIVE AS A AND THE NEXT HIGHER NUMBER DRIVE AS
.
THE SECOND PASS SWAPS DRIVE 4 & B,
THE THIRD PASS USES

T46
JWEST NUMBER DRIVE AS B AND THE 3RD HIGHEST NUMBER DR]/E
AS A,
THE FORTH PASS SWAPS A § B AGAIN.
THIS CONTINJES

gz}lt

VE.

THE

ALL DRIVES MAVE BEEN TESTED WITH

SECOND HIGWEST NUMBER DRIVE

THIRD HIGHEST

o
(=]
[

010001
010304
005201
006304
030405
001004
032704
001771
000452

]
i

OOO0OO0

b =D
=}
d
—

OO0

NWNWWWWANW

OQOOODDODOO

OOO0O0O0

PON)
—s ~2
O MMNVD

005200
006303
032703
00177
000464

—

030305
001006

OO0

31004

WWWRNONY
nNOONES

C01C24

005237

NWWANWW

1002

1034
1
1

000137

22%:

000400

8870
8871

8873

THEN USED AS A AND
ON

THE

PASS.

TECHNIQUE

INC
BNE

$TMP1
16%

s INCREMENT PASS (ONTROL
JSKIP IF NOT ZERO

8IT
BNE

R3,R5
138

STEST IF BIT POSITION FOR A AT AVAIL DRIVE
JYES-SKIP

INC

ASL

C(ONTINUED UNTIL

(1T WILL

;BuUMP RO

JSHIFT

ALL

COMBINATIONS ARE

BE ZERO ON THE

1ST PASS)

(DRIVE A)

DRIVE

SELECT BIT ONE

POSITION

;1F BIT 8 IS SET, ALL DRIVES HAVE
JBEEN CHECKED; IF NOT CHECK NEXT POSITION
JDONE-EXiT

MOV
MOV
INC

RO,R1
R3,R4
R1

;SET DRIVE B

;BUMP R1

BNE
BIT
BEG
BR

15%
#8178 ,R4
148
50%

JYES=SKIP
JWERE ALL POSITIONS CHECKED?
;NO-LOOP
'
sDONE-EXIT

¥
AR

JMP

BIT
BE~

#R170,8TMR?
17%

;GO DO THE TEST ON THE CRIVE A R B
;CONTAINED IN RO R R1

MO,

RO,-

MOV

R4 ,R3

000400

00" 224

SWAPPED

#3178 ,R3
12%
508

14%:

00000°

ARE

BIT
BEQ
BR
13%:

03C570

THEY

THIS

CHFCKED.

0776

AS B.

“HF LOWEST NUMBER

ASL
BIT

R4
R& RS

>P)

R3,=(SP)

THE

SAME

(DRIVE B)

JSHIFT SELECTOR BIT ONE
;IS THIS DRIVE AVAIL?

;1S PASS FLAGS 0DD?
sNO=-SK]P
;

JSWAP RO & RY, R3 & R4

;TC EXCHANGE

DRIVE

A € B

AS A
POSITION

8874

031072

012604
012601
000137

030570

8879

031104

032737

8880
8881
8882
8883
8884
8885
8886
gggg

031112
031114
031116
031120
031122
031124
031130
031132

001410
005200
006303
030305
001014
032703
001771
000412

000002

8889
8890
8851
8892

031134
031136
031140
031142

005201
006304
030405
001004

8894
gggg

031150
031152

001771
0006404

032704

000400

gggg

031154

000127

030570

8899
8900
8901
8902
8903

(031160
031162
031164
037170
031174

010100
(10403
005037
0C0137

890{,

J 13

28-AUG=81
15:17
PAGE 166
SVAL AND ATTENTION FROM OTHER DRIVE
MOV

031074
031076
031100

(031144

30(1046)
107

010100

8875
8876
gg;g

88293

MAZYTT!

MOV
MOV
JMP
001224

17%:

'8¢

000450

‘9%

R1,R0

(SP)+ R4
(SP)+,R1
s

JREPEAT TEST ON THIS (OMBO.

BIT

#B1T1,81MPY

19%
RO
R3
R3,RS
2098
#RIT8,R3
18%
2%

;NO=-SKIP TO BUMP DRIVE B
;BUMP DRIVE A
JSHIFT DRIVE SELE(T BI1
;AVAILABLE?
JYES=SKIP
JALL CHECKED?
;NO=SK]IP
;GO TO NEXT PASS

INC
ASL
BIT
BNE

R1
Ré
R4 RS
208

:BUMP DRIVE B
;SHIFT DRIVE SELEFT BIT
AVAILABLE?
JYES-SKIP

19%
23%

:NO-LOOP
YES=SKIP TO NEXT PASS

BES
INC
ASL
BIT
BNE
8IT
BEQ
BR

;TEST

PASS

FLAGS

HALF

BIT

#BI1T8 R4

20%:

JMP

:GO TEST

21%:

MOV
MOV
(LR
MP

R1,RO
R4 ,R3
$TMP1
22%

JSET DRIVE O TO LOW POSITION
;SET SELECT BITS TO AGREE
:CLEAR PASS FLAGS
;GO SET UP A § B

BFQ
BR

001224
031010

SEQ C165

23%:
50%:

MODULE

;ALL CHECKED?

THIS

COMBO
THIS PASS

:.'ttttitt"ttr*tt.fitttt'tttttttttttthitttt'ttttttt'ttfittttfinttntt

gggg

JTEST 10

8907
8908
8909
8610

o
o*
o
o

OVERLAPPED OPERATIONS

DO A RECALIBRATE ON BOTH DRIVE A AND DRIVE B.
ISSUE
A
SEEK ON DRIVE A TO CYLINDER 7.
|IMMEDIATELY ISSUE A WRITE
DATA TO CYLINDER 100, TRACK 0O, HEAD O ON DRIVE H.
AT THE END OF THE DATA TRANSFtR NO ERRORS SHOULD

gg;;

BE SET AND DRIVE A HAS ATTENTION SET.

gggz

REPEAT FOR ALL

8915
8916

I
o

NOTE:

8918

A AAAAAAARAS AR AR

8917

8919
ggsg

031176
031176

000004
012737

8922
8923
8924
8925
8926
8927
8928
8929

031204
031212
037216
031220
031222
031226
(031232
031240

012737
013705
005000
005001
012703
012704
012737
000555

000005

001262

1772777
001354

001224

000001
000001
031242

001110

COMBINATIONS OF

TWO DRIVES.

IF ONLY ONE DRIVE IS AVAILABLE
TEST WILL NOT BE DONE.
SRR

AR AR

R AR

THE
R

TST110:

SCOPE
MOv

#5. ,8TIMES

;:D0 S.

2%:

MOV
MOV
(LR
CLR
MOV
MOV
MOV
BR

#-1,8TMP1
$DEVM,RS
RO
R1
#1,R3
#1,R:
#3%,SLPERR
11¢

:SET LOOP CONTROL FLAG
JGET DEVICE MAP
;CLEAR FOR DRIVE #A
;CLEAR FOR DRIVE #B
SET DRIVE POSITION A
:SET DRIVE POSITION B
:SET LOCAL LOOP ON ERRCR
;GO SET UP POINTERS

ITERATIONS

R R R

[ Yo)

TIR6KGD RKE FUTNL CTRL DIAG
“IR6KG.P11
ZB=-AUG~B81 15:16

010037
010037
004737
012737

8941
8942

031270
031272
031274
031276

104417
104423
104002
(005037

8944
8945

031302
031304

104437
104002

8947
8948
8949
8950
8951

031306
031314
031316
031320
031322

012737
104417
104423
104002

8946

8952
8953
3954
8955
8956

8957
8958
8959

8960
8561

8962
8963
8964
8965
8966
8967
8968
8969
8970
8971
8972
8973
8974
8975
8976
8977
8978
8979
8980
8981
8982
8983
8984
8985

031322
031324
031326
031334
031336

031342
037346
031352

104421
104004
032737
001372
010137

010137
004737
012737

031360
031362
037364
031366
031372
031374
031376
031404
031406
031410
037412
031412
031414
031416
031424

104417
104423
104002
005037
104437
104002
012737
104417
104423
104002

031426
031432
031436
031442
031450

010037
010037
004737
012737
012737

031456
031460
031462

104417
104423
104002

104421
104004
032737
001372

007626
001610
036134
000112

001600

MOV
MCV
JSR
MOV

RO,DRVNUM
RO,L.CS2
PC.GTYPO
ARECAL,L.CST

ERRCR

001662

CLR

TWAT8S

000105

001600

4%:

040000
001626
001610
036150

000113

ERROR

TCHKOP

TLOADRK
TWAT16

001662
000105

040000

001626
001610
036134
00000:
000117

001540

sSET UP TO CLEAR DRIVE
;LOAD RK REGS
FOR

INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

;O0R S, 6, 7

#D1,7.CS1
43
R1,DRVNUM
R1,L.CS2
PC.GTYPY
#RECAL,L.CST

;CHECK OPERATION FOR ANY ERRORS
JREPORT ALL

ERRORS

sTEST IF DI STILL SET
JYES - LOOP

;STORE DRIVE FOR REPORT

;SETUP DRIVE B TO RECAL

;LOAD RK REGS
JWAIT

FOR

INTERRUPT

;WAIT

FOR

SECOND

INTSET

:TO SLOW/NOT COMPLETE ERROR
;CLEAR INTERRUPT FLAG

ERROR

sTO SLOW/NOT COMPLETE ERROR

Mov
#C LEAR,L.CS1
TLOADRK
TWAT16

5%:

ERROR

(LR
TWAT8S

001600

COMPLETE

;CLEAR INTERRUPT FLAG

sWAIT

;TO SLOW/NOT

JWAIT FOR SECOND INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

#CLEAR,L.CST

BIT
BNE
MOV
MOV
JSR
MOv

001600

INTSET

MOV

ERROR

001540

TWAT16

;STORE DRIVE FOR REPORT
;SETUP DRIVE A TO RECAL

sLOAD RK REGS
JWAIT FOR INTERRUPT

ERROR

TLOADRK

SEQ (166

sCLEAR SUBSYSTEM
;BAD INIT ERROR

ERROR

TLOADRK
TWAT6

—

031246
031252
031256
031262

K 13
15:17
PAGE 167
28-AuG~81
OVERLAPPED QOPERATIONS
TSSINIT

—

10441¢
104003

oo~

031242
031242
031244

MACYTT

OO
QO

8930
8931
8932
8933
8934
8935
8936
8537
8938
8939
8940

46)

CIR6KGO RK6 FUTNL (TRL DIAG
TIR6KG.PTT _
2B=AUG-81 "5:'6

ERROR

TCHKOP

sSET UP DRIVE

;LOAD RK REGS
;WAIT FOR

INTERRUPT

CLEAR

INTERRUPT

;TO SLOW/NOT COMPLETE ERROR
;CHECK OPERATION FOR ANY ERRORS

ERROR
BIT
BNE

JTEST IF DI STILL SET
;YES - LOOP

MOV
MOV

R
R

;STORE DRIVE FOR REPORT

MoV
MOV

”
’

70 CvL 1

JSR

TLOADRK
TWAT16

ERROR

sREPORT

ALL

ERRORS

JSETUP DRIVE A TO SEEK

JLOAD RK REGS
;WAIT FOR INTERRUPT
;70 SLOW/NOT (OMPLETE ERROR

8986

L 13

30(1046)
28-AUG-81
15:17
PAGE 168
T110
OVERLAPPED OPERATIONS

8987
8988
8989
8990
8991
8992
gggz

031464
031470
031474
031500
031506
031514
031522

010137
010137
004737
012737
012737
012737
012737

%ggz

031530

104417

TLOADRK

8997
gggg

031532
031534

104427
104002

TWAT80
ERRGR

9000

031536

106421

9003
9004
9005
9006
6007
3883

031542
031546
031552
031554
031562
031570

010037
130337
01007
012737
012737
104011

38;?

031572

104415

388;

031540

001626
001610
036150
000100
177400
072414
000123

wACY11

MOV
MOV
JSR
MOV
MOV
MOV
MOV

001614
001602
001604
001600

TCHKOP

104004
001626
001557
056630
050362

001460
061112

R1,DRVNUM
R1.L.CS2
PCLGTYR
#100,L.0CvL
#-600, L .WC
#OBUF+
, L .BA
#WRDATA.L.CS1

SEQ 0167

:STORE DRIVE FOR REPORT
‘SETUP DRIVE B TO WRITE DATA
;AT CYL 100
1400 WORDS

;LOAD RK REGS-DO WRITE

;WAIT FOR INTERRUPT
1T0 SLOW/NOT COMPLETE ERROR

tRROR

;OR 5., 6.

“Qy
BITB
BNE
MOV
MOV
ERROR

RO, DRVNUM
R3.T.ASOF+1
108
HEMDA EMT1N
HEMSK .DFOTIA
1

;CHECK OPERATION FOR ANY ERRORS

-REPORT ALL ERRORS

;STORE DRIVE FOR REPORT
“CHECK .F DRIVE ATTENTION IS DRIVE A
SYES=SKIP
“"DRIVE ATTENTION NOT SET RESULT OF
-SEEK'

108 :

SCOP1

9012
9013
9014
9015
9016
9017
9018

;
:
:
:
:
:
:

THE FOLLOWING CODE CAUSES THE TEST TO BE RUN ON EVERY COMBINATION
OF DRIVES AVAILABLE.
ThE FIRST PASS OF THE PROGRAM WILL USE THE
LOWEST NUMBER DRIVE AS A AND THE NEXT HIGHER NUMBER DRIVE AS
B.
THE SECOND PASS SWAPS DRIVE A § B.
THE THIRD PASS USES
THE LOWEST NUMBER DRIVE AS B AND THE 3RD HIGHEST NUMBER DRIVE
AS A.
THE FORTH PASS SWAPS A & B AGAIN.
THIS CONTINUES
UNTIL ALL DRIVES HAVE BEEN TESTED WITH THE LOWEST NUMBER

9021

9024

38;8

;

385%

8852

DRIVE.

THE SECOND HIGHEST NUMBER DRIVE IS THEN USED AS A AND THF

THIRD HIGHEST AS B.

THEY ARE SWAPPED ON THE NEXT PASS.

THIS TECHNIQUE IS CONTINUED UNTIL ALL COMBINATIONS ARE

CHECKED.

118:

INC
BNE

$TMP1
16$

; INCREMENT PASS CONTROL
“SKIP IF NOT ZERO
S(IT WILL BE ZERD ON THE

9027
9028
gggg

03i574
031600

005237
001024

9031

031602

030305

12¢:

BIT

R3,RS

STEST

9034
9035
9036
9037
gggg

031606
031610
031612
031616
031620

005200
006303
032703
001771
000464

22%:

INC
ASL
BIT
BEQ
8R

RO
R3
#RIT8,R3
128
50

:BUMP RO (DRIVE A)
*SHIFT DRIVE SELECT BIT ONE POS;TION
“1F BIT 8 IS SET. ALL DRIVES HAVE
‘BEEN CHECKED: IF NOT CHECK NEXT POSITION
*DONE-EXIT

9040
9041

031622
031624

010001
010304

13¢:

MOV
MOV

RO,K1
R3'R4

:SET DRIVE B TO THE

gggg

031604

001224

:LOCAL LOOP TO 3%

001006
000400

BNE

13§

1ST PASS)

IF BIT POSITION FOR A AT AVAIL DRIVE

SYES=-SK[P

SAME AS A

[WY

CZR6KGD RKE FCTNL CTRL DIAG
CIROKG. P11
28-AUG=-81 15:16

CIR6KGO RK6 FCINL CTRL DIAG
C(ZR6KG.P1T
2B8-AUG-81 15:16
9042
9043
9044
9045
9046
9047
5048
9049

00520°
006304
030405
001004
032704
001771
000452

G051

9052
9053
9054
9055
9056
9057
9058
9059
9060
9061
9062
9063
9064
9065
9066
9067
9068
9069
9070
9071
9072
9073
GOT4
9075
9076
9077
9078
9079
9080
9081
9082
9083
9084
9085
9086
9087
9088
9089
9090
9091
9092

9093
9094

6095
9096
9097

mi3

30(1046)
28-AUG=-81
15:17 PAGE
T110
OVERLAPPED OPERATIONS

B8R

158
#B]T8 R4
148
508

15%:

JMP

;GO DO THE TEST ON THE DRIVE A & B

BIT
BEQ

#BITO,$TMP1
17%

sNO=-SKIP

MOV

RO,=(SP)

000400

031652
031660

032737
001410

000001

031662
031664
031666
031670
03167¢
031674
031676

010046
010346
010403
010100
012604
012601

000137

031242

031702
031710
031712
031714
031716
031720
031722
037726
031730

032737
001410
005200
006303
030305
001014
032703
001771
000412

000002

031732
031734
031736
031740
031742
031746
031750

005201
006304
030405
001004
032704
001777
000404

031752

000137

031756
031760
031762
031766
031772

010100
010403
005037
000137

00122¢

MOV
MOV
MOV
MOV
MOV

001224

17%:
18%:

000400

19%:

000400

031242

001224
031606

SES 0168

BNE
BIT
BEQ

INC

ASL

. BIT

031242

169

;BUMP R1 (DRIVE B)
JSHIFT SELECTOR BIT ONE POSITION
;1S THIS DRIVE AVAIL?
JYES=SKIP
JWERE ALL PCSITIONS CHECKED?
;NO-LOOP
sDONE-~EXIT

14%:

000137

9050

MACY11

Ré

R4 RS

R3,-(SP)
R4 ,R3
R1,RO

(SP)+ R4
(SP)+
R

;CONTAINED IN RO £ R1
;1S PASS FLAGS 0DD?

‘SWAP RO & R1, R3 & R

70 EXCHANGE DRIVE A & B

JMP

JREPEAT

TEST

BI7

#BITT,8TMPI

sTEST

PASS FLAGS AT

BEQ
INC
ASL
BIT
BNE
BIT
BEQ
BR

19%
RO
R3
R3,R5
20$
#3178 ,R3
18$
21%

INC

BIT
BNE

R4 ,R5
20%

BEQ
BR

ASL

BIT

THIS

COMSO.

HALF

;NO-SKIP TO BUMP DRIVE B
;BUMP DRiVE A
.SHIFT DRIVE SELECT BIT

MODULE

472

sAVAILABLE?
;YES=SKIP

JALL CHECKED?
;NO~-SKIP
;GO TO NEXT PASS
;BUMP DRIVE B

JSHIFT DRIVE

SELECT BIT

H#BIT8 R4

19%
23%

JAVAILABLE?
JYES-SKIP
JALL CHECKED?
sNO-LOOP
;JYES=SKIP TO NEXT PASS

20%:

JMP

;GO TEST THIS COMBRO

21%:

MoV
MOV
CLR

R1,R0
R4 ,R3
$TMP1

JSET DRIVE O TO LOW POSITION THIS PASS
sSET SELECT BITS TO AGREE

23%:
50%:

JMP

22%

;CLEAR PASS FLAGS

;GO SET UP A & B

;ADD WAITING LOOP FOR APT OPERATION ON JAN-9-78 REV 007
.SBTTL
END OF PASS ROUTINE
""tQttl‘tfittl*ttItfitt.ttt‘ttttt'ttt'!ttt'tt'ttttitt'tl'tt!tttt"tt

s *INCREMENT THE PASS NUMBER ($PASS)

;*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT vyvyy®
J*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
;+IF THERES A MONITOR GO TO IT

s*IF THERE ISN'T JUMP TO TSTAPT

9098
9099
9100

000004
005037
005037
005237

9101

%102

042737
005327
000001
003063
012737
000001
032020

9103
9104

9105
9706

104401

032036

000467

032056
032056

013746

032062
032064
032070

104405
104401
000421

032134
032134

032140
032142
032146
032152

032156
032160

013746
104405
104401

005037
013700
001405
000005
004710
000240
000240
000240

100C00

001304
$EOP(T:

$ENDCT:

032040
::65%:
64%:

032072

;.67%:
$:

001112

001273
001112
000042

:
$ENDAD

$DOAGN:

377

009

122737

000001

001316

TSTAPT:

001304

000002

032230

005237
000775
000137

MoV

.WORD
$EOPCT

BR
LASCIZ
MOV

B8R
.ASCIZ

001102

1%:

003150

2%:
LSBTTL

;. ZERO THE TEST NUMBER
;;ZERO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMBER

§PC)+

:;LOOP?

$DOAGN

%PC)*,Q(PC)*

S YES
:;RESTORE COUNTER

.65%
64%

;;TYPE ASCIZ STRING
::GET OVER THE ASCIZ

<12><15>/END

PASS

,67%
66%
/

TOTAL

;:SAVE $PASS FOR TYPEOUT
:;TYPE

PASS NUMBER

;:TYPE

ASCIZ STRING

;:G0 TYPE--DECIMAL ASCII] WITH SIGN

ERRORS

TYPDS
TYPE

. SCRLF

JMP
.WORD
.BYTE
.EVEN
CMPB
BNE
cmp

;;DON'T ALLOW A NEG. NUMBER

$PASS,=(SP)

$ERTTL,-(SP)

RESET
JSR
NOP
NOP
NOP

::GET OVER THE ASCIZ

SINCE

LAST REPORT

;:SAVE $CRTTL FOR TYPEOUT

;. TOTAL

NUMBER OF

ERRORS

2:G0 TYPE=--DECIMAL ASCII WITH SIGN
;2 TYPE

CARRIAGE

RETURN,

;s CLEAR ERROR TOTAL
JsGET MONITOR ADDRESS
;sBRANCH IF NO MONITOR
;:CLEAR THE WORLD
;;60 TO MONITOR

SERTTL

a#42 ,RO
$DOAGN

PC, (RO)

LINE

FEED

. :SAVE ROOM
;:FOR

JoACTN

2(PC)+

::RETURN

TSTAPT
-1,-1,0

;:NULL CHARACTER STRING

HAPTENV, SENV

2%
$PASS
, #2
2%
$TSTNM

8LO
INC
1%
BR
NEWPAS
JMP
ROUTINE TO SIZE

JRUNNING UNDER APT MODE ?

;BRANCH IF

NOT

JBRANCH

NGT

;TWO PASS DONE

s INCREMENT TEST NUMBER

MEMORY

JWAITING LOOP FOR APT DJUMP THE NEXT PROG
;REPEAT THE SAME TEST IF NOT UNDER AFT

‘"tt‘ttttt*l’ltfifitttt*"ttittt"tttttttfltttttttfitttttt'tttttt'tttt!t

S3CALL:
bR{

JSR
RETURN

PC,$S1ZE

:'SLSTAD WILL CONTAIN:

WwITH KT11 CPTION
WITHOUT KT31 OPTION

=~ LAST VIRTUAL ADDRESS OF THt (AST BANK
== (AST ABSOLUTE ADDRESS OF AVAILABLE MEMORY

[ B

SEG 0169

$TSTNM
S'IMES
$PAS
#100000 $PASS

MoV

CLR

$RTNAD:
$ENULL:

103403

BRGT

$GETA2: MoV
BEQ

032202
377

001007
023727

BIC
DEL
.WORD

TYPDS
TYPE

000137

032202

SCOPE
CLR
CLR
INC

TYPE

001304

PAGE 170

28-AUG-81
15:17
END OF PASS ROUTINE
$EOP:

001102
001262
007304

N 13

30(1046)

[
Y

(204kGD RKE FCTNL CTRL DIAG
(ZREKG.P11T
28~AUG~-81 15:16

MACY'T

B 14
PAGE

171

SEQ 0170

MUST BE

SETUP BEFORE

THE

CALL

O W2 = ANJVIRDAARN
O NN WIND NN = NN NN O OWNNUN
S

746

MOV

R?,-ngs

MOV
MOV
MOV
MOV

R2,=(SP)
R3,-(SP)
a4, -(SP)
ax116,-{SP)

MoV

MOV

—t

—

$SIZE:

MOV

727

200
062

VAl PNIN

032506

DETERMINED BY ROUTINE

$kT11:
032460

177572
100000

172340
010010

077406

000004

TRAP

177740

1%:

000200

032416
000020
177572

032450

143776
000040
172356

000004

172516

000004

177572

100000

032516

004000
000040

032316
000004

2%:
3%:
4%:

#116,a%8114

:; 1GNORE PARITY ERRORS WHILE SIZING

#RT], 34116

AMERRVEC,-(SPH

ON THE

STA(K

::SAVE R2 ON THE STALK
:;SAVE R3 ON THE STACK
::SAVE MEMORY ERROR VECTOR PS § P(
.

;;SAVE PRESENT ERROR VECTOR PS & PC

(SP)+,R#ERRVEC+2’

THE STACK POINTER

:PUSH OLD PSW AND PC

ON STACK

:SAVE THE PSW IN Q#ERRVE(C+2

#3776,R1

_WORD
BPA
MOV

200
SSET TO USE MEMORY MANAGEMENT
$CORE
::BR IF NO
H#SKTNEX ,Q#ERRVEC ..SET FOR TIMEOLT

BIS
CLR
MOV
MOV

#100000,8KT11
-(SP)
#KIPARQO,R2
#°D8,R3

TSTR

MOV

MoV

(PC)+

A#SRO

#77406,-40(R2)

(SP), (R2)+

ADD

#200, (SP)

MOV

#177600,~-(R2)

S08B

177600

;. SAVE

MOV

032316

;:SAVE RO ON THE STA(H

R1,-(SP)

MOV
A#ERRVE(C+2,-(SP)
MOV
SP,RO
:SAVE
THE ERRVEC PS TO THE PRESENT PS

MOV

QNNSONIWNNSNNMNVONSNYINONWNONN

9175

9176
9177
9178
9179
9180
9181
9182
97183
9184
9185
9186
9187
9188
9189
9190
9191
9192
9193
3194
9195
9196
9197
9198
G199

000114
000116
000116
000002
000004
000006

;

;SET

o
~n

Holololololololeleloleololeloleololololaleleo
el lalol i elelololelolololelele)
[ [~ lelele B
b
d o cd et i
el e ardd
D
b
2O
N2
20O NO 2000220
O — S OO—=ONCOOMNO—=

G163
9164
9165
91€6
9167
9168
9169
9170
9171
9172
© 9173
8174

OWWIWNINIWWO
OO O

'BIT15 0 DON'T HAVE MEMORY MANAGEMENT OPTION

9162

9200
9201
9202
9203
2204
9205
9206
9207
9208
9209

28-AUG-81
15:'7
TO SIZE MEMORY

*BITO? = 0 DON'T USE MEMGRY MANAGEMENT

9161

30(1046)
ROUTINE

;*$LSTBK WILL CONTAIN THE LAST BANK AS A SAF
J¢$KT11 IS THE MEMORY MANAGEMENT KEY

9154
9155
9156
9157
9158
9159
9160

MACY11

R3,1%

g.SETUP ADDRESS
:USE

:KT11

MEMORY MANAGEMENT?

ARE

YOU

THERE?

UP,

READ/WRITE

;;vss--ser KT11 KEY
;o INITIALIZE FOR ''PAR'' LOADING
;;ADDRESS OF FIRST ''PAR'’
;:LOAD EIGHT "'PAR.'S'" AND EIGHT 'PDR.’S"
::PDR = 4K,

;. LOAD 'PAR"’

;;UPDATE FOR NEXT ''PAR'’

;;LOOP UNTIL ALL EIGHT ARE LOADED

;:SETUP KIPAR7 FOR 1/0

CLR
MOV
MOV
BR

-(R2)
#2$ ,dFERRVEC
#20,a#SR3
38

MOV
TST
ADD

#SKTOUT ,@#ERRVEC ;;SET FOR TIME OUT
aN143776
;. TRAP ON NCN=-EX-MEM
#40, (R2)
;sMAKE A 1K STEP

CMP
INC

(MP
BHI
$KTOUT: MOV
CLR
BR

$KTNEX: BIC
$CORE:

MOV

1¢:

ADD
ADD
ST

CLR

(SP)+,(SP)+
a#SR0

@4KIPAR7,(R2)
4%
(R2) ,R2
S#SRO
$SIZEX

2;SETUP KIPAR6 FCR TESTING
;;CATCH TIMEOUT IF NO SR3
;cENABLE 22 BIT MODE
;;THIS PDP-11 HAS A SR3 REGISTER

;o CLEAN OFF THE STACK--NO SR3
;s TURN ON MEMORY MANAGEMENT

;s LAST ONE?
JINO--TRY [T
;.GET LAST BANK+1
2 ;TURN OFF MEMORY MANAGEMENT

#10000078KT31

;:KT11 NON-EXISTENT

;:SET UP BANK

#SCROUT ,@¥ERRVEC
#4000 ,R1
#40,R?
(R1)

::SET £0R TIMEOUT

;> INCREMENT BY 1K
LU1K STEP
S TRAP ON TIME ouT

CIRO6KGO RKE FCTNL CTRL DIAG
P11
2B=-AUG=-81 15:16
TIR6KG,

G
G
G
G
s
O
g

no NNOOMNLNININO
o o nN—=OONONON
(=] o
~n VY]

02270°
001370
OOOOOTCOOO

NNNN
NN
TN
AN

NOST OSSOSO
SO

NNNARO
O NN SNNWNNNIN — 2

SO0

9221

9222
9223

jelelololololeolololelololeolelelalele]

9210
9211
9212
9213
9214
9215
9216
9217
9218
9219
9220

LA NN N LN A NN NN N AN N N N AN NN
POPNVNLALALNLALNL
NI NL NNV NN NI NVNIND

TIR6KGO RK6 FCTNL CTRL DIAG
rIR6KG. P
28-AUG~-B1 15:16

MACY11

177776

30(1046)

2B-AUG-81

ROUTINE

TO SIZE MEMORY

(MP

000006
000004
000116
000114
032572
032574

PAGE

172

SEQ 0171

;:LAST ONE

1%
#4000 ,R1
#40,R2
RO,SP

;:NO=-=-TRY AGAIN

::DROP BACK
. sRESTORE THE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

STA(K
(SP)+ ,9#ERRVEC+2 ;:RESTORE ERROR VECTOR
(SP)+ ,3#ERRVEC
(SP)+,a#1"6
;:RESTORE MEMORY ERRQP VECTOR
(SP)+,a#114
R1,8LSTAD
:;LAST ADDRESS
R2,$LSTBK
;s LAST BANK
(SP)+ ,R3
J:RESTORE R3
(SP)+,R?
;JRESTORE RZ2

MOV
RTS

(SP)+,R1

;;RESTORE

(SP)+,R0
PC

. sRESTORE

MoV

$LSTAD:
$LSTBK:
.SBTTL

000000

C 14

#177776 ,R1

BNE
$CROUT: SUB
$SIZEX: SUB
MOV

004000
000040

15:17

.WORD
0
.WORD
O
SCOPE HANDLER ROUTINE

;. CONTAINS THE | AST ADDRESS
;. CONTAINS THE LAST BANK

;:tit*tfifi'fiittttttttttiiittiittttt'ttttittttfltttflttttttt'.tt'tttt

;*THIS

ROUTINE

CONTROLS

THE

LOOPING OF

SUBTESTS.

WILL

INCREMENT

;*AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

s*SWl4=1
*SU11 1
*SU09 1
;'Sk98 1

LOOP ON TEST
INHIBIT ITERATIONS
LOOP ON ERROR
LOOP ON TEST IN SWR<7:)>

trALL

unh

ronry

(el e]

032600
032004
032606
032612
032620

$SCOPE:

1046407

021627

001002

000137
032777
001131

033614

101002

040000

146320

6265

032660
032666
032670

1$:

032650

177060

00000«

000004

BHI
JMP
BIT

BNE

J:TEST

FOR

CHANGE

[N SOFT~-SWR

5% :

146252

1$
$ERROR

;.ARE TRAPPED HERE VIA 0T
;G0 PROCESS UNEXPECTED TRAP

$OVER

;. YES

#BIT14,aSWR
OF

CODE

FOR

THE

;;LOOP ON PRESENT
XOR

MOV
MOV

Q#ERRVEC ,=(SP)
#5$ , A#ERRVE

SW14=1

TEST?

TESIERANZAA

;o
IF RUNNING ON THE

;o THIS
;;SAVE

''XOR'' TESTER [HANGE

INSTRUCTION TO A "NOP'' (NOP=240)
THE CONTENTS OF THE ERROR VECTOR

SISET FOR

TIMEOUT

::RESTORE

THE

an177060

*:TIME OUT ON XOR?

$SVLAD

$:GO TO THE NEXT TEST

MOV

(SP)+ ,d#ERRVEC

,,RESTORE

MOV

000004
000400

;:SCOPE=]OT

CKSWR

;AARRRSTART

$XTSTR:

000004

::GO 10 ERROR ROUTINE IF RETURN PC LESS THAN 1002
;;OTHERWISE CONTINUE
(Mp
(SP) #1002
;s JUNEXPECTED TRAP OR INTERRRUPT

032622

032624
032630
032¢3¢
032642
032646
032650
032652
032656
032660

SCOPE

CMP

(SP)+,a#ERRVEC

(SP)+, (SP)+

BIT
BEQ

#B1TO8,aSwR
28

6. ;48488END OF
(LR

ERROR VECTOR

::CLEAR THE STACK AFTER A TIME
THE

ERROR VECTOR

.LOOP ON THE PRESENT

CODE FOR THE XOR TESTERWAWAN

=(SP)

.,LOOP ON SPEC.
BR IF
N
(L EAR A

TEMP.

TEST

TEST?
LOCATION

0ul

15:17
30(1046)
28-AuG-81
SCOPE HANDLER ROUTINE

001110

00110¢

001103
0012¢2

4%
146130

3%:

001304
001104
001262

O =2 NIWWWNINWN
PN NNNNNN

AN LA U AN N U A N A O AN WU AN U AN N AN N AN N NN AN N NN N NN N
NN NN WNWN
N AN AN WA N AN
AN AN AN N NN AN U NN N LN NN NN NN
L
N
N
R
e TI e N
i
e e
L &> ) OOO OOOOCOCO [>le]
APV
ES 85 B BIUNWWWINNUFONOPON)
—
O~ ~NONO NS WWIWND N —
S oo
SPOSOSTOORENOONESNNOON LSO nooONNY SO0

004000

7%:

003720

007322

BIT
BEQ

MOV
BR

(LRR

('R

BIT
BNF
IST

001104
001104
001262

001272

001115-

$:
$SVLAD:

BEQ
INC
(MP
BGE
MOV
MoV

INCB

MOVB

MOV
Moy

(LR

146030, $OVER:

MOVR
MOV
MCV
RT]

SMXCNT: 2000.
$SWOBIRL:
.WORD
.WORD|
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

#BIT09,dSWR
L%

$LPERR,$LPADR
$OVER
$ERFLG
$TIMES
1%
#BIT11,aSWR
1%

$PASS
1%
$ICNT
$TIMES,$1CNT
$OVER
#1,81CNT

$MXCNT ,$TIMES
$TSTNM

$TSTNM, STESTN
(SP) ,$LPADR
(SP) ,SLPERR

ADDRESS OF

TEST POINTER

;2G0 LOOP ON THE TEST
;;CLEAN THE BAD TEST NUMBER OFF OF

;:HAS

AN ERROR OCCURRED?

JsBR IF NO
::;MAX. FRRORS
c:BR IF NO

FOR

THIS

THE STA(K

TEST OCCURRED?

. sLOOP ON ERROR?

;:BR IF NO
J.SET LOOP ADDRESS

TO LAST

S(OPE

;. ZERO THE ERROR FLAG
;. CLEAR THE NUMBER OF ITERATIONS TO MAXE
s ESCAPE TO THE NEXT TEST
;o INHIBIT [TERATIONS?
;:BR

“ES

..IF FIRST PASS OF PROGRAM
INHIBIT

[TERATIONS

: *INCREMENT [TERATION COUNT
;s CHECK

THE NUMBER OF

ITERATIONS MADF

;:BR IF MORE ITERATION REQUIRED
;cREINITIALIZE THE ITERATION COUNTER
..SET NUMBER OF ITERATIONS TO DO
JCOUNT TEST NUMBERS
;SET TEST NUMBER IN APT MAILBOX’
. SAVE SCOPE LOOP ADDRESS

::SAVE ERROR LOOP ADDRESS
;;CLEAR THE ESCAPE FROM ERROR ADDRESS
#1,SERMAX
J2ONLY ALLOW ONE(1) ERROR ON NEXT TEST
STSTNM,@DISPLAY ::DISPLAY TEST NUMBER
$LPADR, (SP)
;;FUDGE RETURN ADDRESS
;. FIXES PS

$ESCAPE

2JMAX.

TST1+2
TST2+2
TST3+2
TST4+?2
TST5+2
TST6+2
TST7+2
TST10+2
TST11+2
TST12¢2
TST13¢2
TST1442
TSTTM542
TST16+2

NUMBER OF

;. STARTING
;s STARTING
;- STARTING
.. STARTING
;. STARTING
2o STARTING
;:STARTING
s STARTING
s STARTING

;. STARTING
::STARTING
;. STARTING
;s STARTING

ITERAT]ONS

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

ADDRESS
ADDRESS
ADDRESS
ADDRESS

;. STARTING ADDRESS

Of
OF
OF
Of
OF
OF
OF

e el ek d e ek NJON N SNNDD)
—
NN
O

146162

BHI

gERMAx,SERFLG

THE

—

001000

BEQ
CMPB

;:FORM

;:SET LOOP ADDRESS TO DESIRED TEST

0C1103

(SP)+
$ERFLG

RANGE

;;BACKUP BY ONE
;2SCALE THE TEST NUMBER AS AN INDEX

001115

a(SP)+, $LPADR
$OVER

;:BRANCH [F TEST NUMBER IS OuT OF
. sUPDATE THE TEST NUMBER

001103

ADD
MOV
BR
TST
1S18

(SP) ,$TSTNM
(SP)
(SP)
(SP )
#$SWOBTBL,

033122
001106

UVINULIUnNWK w

MOV
DEC
ASL

#1°0, (SF)

JsPICKUP THE DESIRED TEST NUMRER
;JBRANCH IF BAD TEST NUMBER [N SWR
J;CHECK THE NUMBER IN THE SWR

001102

000110

aSwR, (SP)

BEQ
(MP
BLT

VTN

MOVB

SE3 0172

—

146247

D 14
PA GE 173

MALY1T

[aS1e
o)

N2 (e}

[

9270
9271
9272
9273
9274
9275
9276
9277
9278

Y P —

032672
032676

O NNNOOO NN

9266
9267
9268
9269

~N
~

CIRAKGC RK6 FCTNC (TRL DJAG
"IREKG -p“ !
28-AUG-81 15:16

" IR6KG.P1T
9322
9223
G324
9325
Q%26
9227
9328
9329
9330
9331
9332
6333

6334
9335
5336
9337
9338
9339
9340
9341
9342
G343

9344
9345

9346

9347

9348

9349
9350

9351
9352

6353

9354

9355
9356
9357
C358
9359
9360
8361
9362
9363
9364

9365

9366

G367
9368

9369
9270
9371
9372
9373
9374
6375
937¢

9377

033156
033160
033162
033164
033166
033170
033172
Q03%174
033176
033200
033202
(033204

033206
N33210

28-AuG=-81 15:76

033226
033230
(033234

(016534

(033216
(33220
033222

(033224

033232

033236

033240

033242

033244
033246

033250
033252

30(1046)

.
'
.
.

.
.

016330

2B-AuG=81

’

)

.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WOKD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.wORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

016740

.WORD

017156

.WORD

(017362

.WORD

017566
017712

.WORD
.WORD

020036

.WORD
.WORD

033254

020162
020306

033260
033262
033264
(033266
033270
033272
033274
033276
(033300
033302

020504
020564
021050
021232
021420
022124
(022342
022446
023070
023512

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

033306

026470

.WORD

033256

033304

033310

033312

033314
033316
033320
033322
033324
033326
033330
(033332
033334

.WORD

020432

023622

025162
025404

(025662
025742
026134
026360
026506
027030
027562
030024
030250

)

15:17

SCOPE HANDLER ROUTINE

007512
00764¢
010514
(01°112
(011324
011542
(11666
012020
012176
(12330
0126264
013020

(132564
013447
013674
014062
014304
014472
014654
015060
015264
015470

033212
033214

MACY11

TST17¢2
TST20+2
TST21+2
TST22+¢
TST23+2
TST24+2
TST25¢2
1S726+2
TST27+2
TST30+2
TST31+2
TST32+2
TST33+2
TST34+2

174

SE3 0173

;:;STARTING
::STARTING
;STARTING
::;STARTING
::STARTING
;;STARTING
;:STARTING
::STARTING
::STARTING
:2STARTING
::STARTING
::STARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

OfF
OFf
OfF
OF
OF
OF
OF
OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

17
20
21
22
23
24
25
26
27
30
31
32

ADDRESS OF
ADDRESS OF

TEST
TEST

35
36

TST35+2
TST36¢2
TST37+2
TST40+2
TST41+2
TST42+2
TST43+2
TSTL4+2

ADDRESS OF
ADDRESS OF

TEST 43
TEST 44

TST46+2

;sSTARTING ADDRESS OF

TEST 46

;:STARTING ADDRESS OF

TEST

::STARTING ADDRESS OF
:;STARTING ADDRESS OF

TEST 52
TEST 53

;;STARTING ADDRESS OF

TEST 56

TST45+¢2

TST47+¢2

TST50+2

TSTS5142
TST52+2
TST53+2

TSTS54+42
TST55+2

TSTS6+2

TSTS57+2

.WORD

TST72+¢2

ADDRESS OF
ADDRESS OF

ADDRESS OF
ADDRESS OF
ADDRESS OF

ADDRESS OF

TEST 33
TEST 34

TEST 37
TEST 40
TEST 41

TEST &2

::STARTING ADDRESS OF TEST 45

;STARTING ADDRESS OF

:;STARTING ADDRESS OfF

::STARTING ADDRESS OF
::STARTING ADDRESS OF
;:STARTING ADDRESS OF

TEST 54
TEST 55

TEST 57

TST73+2

;;STARTING ADDRESS OF

TEST 73

;:sSTARTING ADDRESS OF

TEST

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

TST76+2
TST?7+2
TST100+2
TST101+2
1ST102+2
TST103+2
TST104+¢
1ST105¢2

TST75+2

TST106+2

OF
OF
OF
OF
OF
OF
OF
OF
OF
OF

TEST 51

:;STARTING
;;STARTING
:;STARTING
::STARTING
;;STARTING
::STARTING
;:STARTING
;;STARTING
::STARTING
:;STARTING

TST74+42

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

TEST 47

TST60+2
TST61+2
TST62+2
TST63+2
TST64+2
TSTE5+2
TST66+2
TST67+2
TST70¢2
TST71+2

.WORD

PAGE

::STARTING
;:STARTING
::STARTING
J:STARTING
;:STARTING
:;STARTING
;;STARTING
;:STARTING
;;STARTING
;2STARTING

.WORD

E 14

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

60
61
62
63
64
65
66
67
70
71

:;STARTING ADDRESS OF TEST 72
;STARTING ADDRESS OF TEST 74

:;STARTING ADDRESS
::STARTING ADDRESS
;sSTARTING
;:STARTING
;sSTARTING
;:STARTING
;;STARTING
;:STARTING

OF TEST
OF TEST
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

76
77
OF
OF
OF
OF
OF
OF

;sSTARTING ADDRESS OF

TFST
TEST
TEST
TEST
TEST
TEST
TEST

109
101
102
103
104
105
106

[ Rt1

TIR6KGO RKE FOUYNL ("RL DiA G

28=AuG=81

9378

033336

938°

033344

03c4a7cC
03117¢
031774
046172

0420

9421
9422
9423
9424
9425

9626
9427
3628
9629

5430
6431

9432
G433

LSRTTL
SRR

033346
033354
033362
(33364
033372
(33372
033374
033376
(033402
033404

033414
(033422
(033424
033430

(33572«
033524
(3353C
(3353¢
M3T5%4
LI7540
33544
(73546
02395¢
033552
033566
033572
033576
033602
033604
033606

033610
033611

033612
033610

iATY1:

000001

0336°2

$SATYSL:
:
$ATY

00131¢

000100

001317

$ATYS:

00C000
105737

001416
005737

001276

000004
000002
177776
044202

0339%c2

000004

033¢12

TST11C+2
S$EQP+2
ABTFAIL+2

TEST 107

;. STARTING ADDRESS OF TEST 110

sADCRESS OF

END OF

;ADCRESS OF

ABORT

PASS

FAILURE HANDLER

MOvB

#1,8FFLG

;.70 ONLY REPORT FATA.

MOV

RO,=(SP)
R1,-(SP)

;;PUSH RO ON STACK
::PUSH R1 ON STACK

TST

BNE
MOV

TSTB

MOv
MOV

3$:

001316

001300
000004

#APTENV, SENV

ERRCR

;:SHOULD TYPE A MESSAGE?
BR
;:1F NOT:
: JOPERATING UNDER APT?
;:1F

NOT:

;;IF NCT:

ggPTSPOOL.SENVM 11 SHOULD SPOOL MESSAGES?
a4 (SP) RO

#2,4(SP)
$MSGTYPE
1%
RO, SMSGAD
(RQO)+

$MSGAD,RO
RO
RO,$MSGLGT

#4 ,SMSGTYPE

5%
ab (SP) ,4%

;sGET MESSAGE ADDR.
::;BUMP RETURN ADDR.
::SEE IF DONE W/ LAST XMISSION?
WAIT
1F NOT:
;o
;:PUT ADDR IN MAILBOX
;;FIND END OF MESSAGE
;:SUB START OF

MESSAGE

JeGET MESSAGE LNGTH [N WORDS
::PUT

LENGTH

IN MAILBOX

;:TELL APT TO TAKE MSG.
;PUT MSG

ADDR

IN JSR

L INKAGE

177776,=(SP)
SC,STYPE

;:PUSH 177776 ON STA(K

TSTB

$EFLG

12%
$FNV
12%
$MSGTYPE

2 ;SHOULD REPORT FATAL ERROR?
BR
;:1F NOT:
J:RUNNING UNDER APT?
BR
1F NOT:
;2
JsFINISHED LAST MESSAGE?

a4 (SP) ,$FATAL

2.GET ERROR #

JSR
.WORD

BEQ
TST

BNE

MoV
ADD

INC
(LRB
CLRB
CLRB

SMFLG:
SLFLG:

SMFLG
5%

ERROR

#2,4(SP)

TST

i1%:

$SATY(

FATAL

;:TC TYPE A MESSAGE

MOV
ADD
MOV

BEQ

001276

;;STARTING ADDRESS OF

TST107+2

;.70 REPORT

BNE
SUB
ASR

000004

SEG (174

”1,8FFLG
#1,8MFLG

MOV
ADD

001312

091314

PAG £ 175

mMovB
MOvVB

BEQ
(MPR
BNE
BITB
BFQ

000004

001312

(OMMUNICATIONS ROUTINE

MOV
TSTB

000001

000004
000002
001276

033436
033442
033444
033450
033452
033454
033460
(033462
033466
0%¥3474
03%476
533504

033577
(33516
033522

000001
000001

033610

(33412

APT

RAA RN ERRRNRARRAAANNRNAN IR PR AR ORRAANNRRRAARRARRANEAANARR
A PARNS RO

5390
9331
5392
9393
9394
9395
9396
9397
9398
G299
9400
9401
9402
9403
9404
9405
9606
9407
G408
9409
9410
9411
9412
9413
9414
9415
9416
9417
94378
94173

.WORD
.WORD

129

9288

9389

.WORD
.WORD

— o

9385
9386
G387

15:16

30(1046)
28-AUG=-81
15:17
SCOPE HANDLER ROUTINE

9382
3783
9384

033340
033342

9276
G380

wa(v1]

MGV
MOV
RTS

.BYTE
BY'E

#2,4(5P)

$MSGTYPE
$FFLG
$SLFLG
SMFLG
R
(SP)+
(SP)+ RO

0
c

; ;:BUMP RETURN ADDRESS

;:CALL

TYPE

;01F NOT:
;;TELL

MACRO

WALT

::BUMP RETURN ADDR.

APT

TAKE

ERROR

;. CLEAR EATAL FLAG
;sCLEAR LOG FLAG
;s CLEAR MESSAGE FLAG
J:POP STATK INTC R1
J:POP STACK

INTO RO

;;RETURN
JiMESSG. FLAG

J:L 06 FLAG

CYrYy

t REFG. PN

DIAG

(TRL

il REKGT Rk FOTNL

“IREKGD RKE FOTN. (TRL DIAG
TIROKG.PMY
c8-AuG=81 15:1¢

9634
9435
9436
9637

033612

9438

VACY1Y

000
033614
000200
003001

$FFLG:

9441
9442
9443
94644
9445
9446
9447
9448
9449
9450

6451
9452
9453
9654
9455
9456
94%7
9458

9459
9460
9461
9462
9463
9464
9465
9466
9467

9468

gzgg

9477
9472

9472
96474
9475
96476

9477
9478
9479
.80

9481
9682
9483
7484
9485
9486
9487
9488
9489

G 14

15:17

.BYTE
EVEN

PAGE

176

SEQ €175

JoFATAL

FLAG

APTSIZE=200
APTENV=001
APTSPOOL=100
APT(CSUP=040
.SBYTL
ERROR HANDLER ROUTINE

000040

9440

28-AuG-81

APT COMMUNICATIONS ROUTINE

000100

9439

30(1046)

.'.".'QQ*'t""'."tt.'t""'."tt't".t.'."t.'t.i""'..Ql

.."'t

;*THIS

;*SAVE

ROUTINE

THE

WILL

ERROR

INCREMENT

THE

ITEM NUMBER AND

ERROR

FLAG

AND

THE ADDRESS OF

THE

ERROR

COUNT,

THE ERROR CALL

;*AND GC TO TYPERR ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
J*SW15=1

HALT ON ERROR

;*SwW13=1
;*SW10=1
;*SW09=1

s+CALL
o

033614

033614
033616
033622
033624
033632
033640
033642
033646
033652
033656
033664

0 033672
03 3700

033702

03370¢

033710
033716

033724
033730
033734

033736
033742
033746
033752

033756

033760
033764
033766
033770
033776
034004
034012
034020

104407
105237
001775
013777
(32777
001402
104401
005237
011637
162737
117737

032777
001055

021627

101046

016637
162737

104401
013746
104402

104401
162716
011637
013746
104402

104401
022626
000422
050200
020040
042520
052040
0475264

$ERROR:
001103
001102

002000

001266
001112
001116
010002
145226

020000

7%:

1645310
1465300

033770
001116

ERROR

(KSWR
INCB
BEQ

$ERFLG
7%

1%:

001716
001174

(SP) , $ERRP(

;.GET

INC

MOy

$ERTTL

12$

Mov
SUB

4 (SP) ,$ERRP(
#2,$ERRP(

Mov

$ERRP(,~(SP)

(SP) , #1002

UNEXPECTED

SUB

TYPE

;s COUNT THE NUMBER 0OF

#2,3ERRP(
d$ERRPC,$ITEMB

BHI

MOV
MOV
TYPOC

10%:
*1%:

;oNO = SKIP

#BI1T13,aSWR
20%

000040
054105
062705
020120

BIT
BNE

lyfigc

036503
047125
052103
040522
000040

;. TEST FOR CHANGE IN SOFT-SWR
;. SET THE ERROR FLAG
;oDON'T LET THE FLAG GO TO ZERO

JsRING BELL

TYPE

001273

|TEM NUMBER

LSBELL

s sPROCESS

033776
000004
001'16
001116

N=ERROR

TYPF

(MP

001116
001116

AND

$TSTNM,QDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG
#81T10,aSwWR
;;BELL ON ERROR?

SUB
MOVR

145040

; ;ERROR=EMT

MOV
BIf
BEQ

001002
000004
000002

INHIBIT ERROR TYPEQUTS

BELL ON ERROR
LOOP ON ERROK

TRAP

#4,(SP)

(SP)
, $ERRP(
$ERRP(,~(SP)

;:SKIP TYPEQUTS
;.IF RETURN PC LESS

ILLEGAL

:;GET PC AT
;ADJUST P(

TIME OF

INTERRUPT

22 TYPE

;.60

TYPE--OCTAL

ERRORS

INSTRUCTION

THAN 1002

TRAP

FALSE

TRAP

TYPEQUT
ASCIIC(ALL

DIGITS)

;;GET FALSE TRAP VECTOR ADDR
;. SAVE

SERRP(

FOR

TYPEQUT

;.60 TYPE-=OCTAL ASCJI(ALL

égg)o,(sp)o

JASCIZ
LASCIZ

<200>°PC=
'
UNEXPECTED TRAP TO °

.EVEN

HEADER

;:SAVE SERRP(C FOR

(mMP

ERROR

;:STRIP AND SAVE THE ERROR ITEM (ODE
;.SKIP TYPEQUT [F SET

:;ERROR

108

SCRLF

ADDRESS OF

DIGI!ITS)

;.POP FALSE TRAP VE(CTOR P(ZADDR

9400

034024

128:

96S*
9692
9463
9494
%95

0340264
034030
034034
(3034
034042

006737
104601

(34136
001273

122737
001007

0000C1

0013%¢

9497

034052

004737

0011'4¢
033364

034056

9496

02044

113737

.
eCs:

034056
034057
034060
034062

000
000
000777
005777

9503
9504

034070
034072

000000
104407

9507
9508
9509
gg}?

034104
034110
034114
8%2}53

C(1371¢
005737
001402
013716

001110
001264

4%:

0012¢4

9512
9513
95°4
9515
9516

034122
034130
034132
(34134
034734

022737
001001
000000

032162

G502

9505
9506

9517

034066

034074
034102

100002

032777
0014C2

2's:
2cs:

001000

2s:

45036

6%:

(00002

AR A

]

SEQ (176

;.60 TO USER ERROR ROUTINE

{MPR
BNE

RAPTENV,SENV
2%

s JRUNNING IN APT MODE
s:NO,SKIP APT ERROR REPORT

JSR

PC,$ATYS

;JREPORT FATAL ERROR

SITEMB,2'$

s.SET ITEM NUMBER AS ERRPOR NUMBER
(O APT

BYTE
BYTE
BR
ST

(0
0
22%
¥SwR

BPL

J.SKIP

BIT
8EQ

#31709,aSwR
43

;.LOOP ON ERROR SWIT(H SET?
;:BR [F NO

(MP
BNF
HALT

#SENDAD ,a#4?
6%

MOv
TST
BEQ
Ny

C00042

177

PC,TYPERR
.SCRLF

HAL T
(KSWR

3$:

PAGE

JSR
TYPE

MOVB

9498
9499
9500
9501

145052

N 14

30(1046)
28-AUG=B1
15:'7
ERROR HANDLER ROUTINE

;APT

ERROR LOOP

;o HALT ON ERROR
IF

CONTINUE

;o HALT ON ERROR.
;s TEST FOR (CHANGE

$LPERR, (SP)
$ESCAPE
5%
$ESCAPE, (SP)

;;FUDGE
;s CHECK
;:BR IF
;.FUDCE

[N SOFT-SWR

RETURN FOR LOOPING
FOR AN ESCAPE ADDRESS
NONE
RETURN ADDRESS FOR ESCAPE

J;ACT=11 AUTO-ACCEPT?
; ;BRANCH IF NO
s YES

RTI]

; sRETURN

9518
9519
2259

.cBTTL
TYPE ERROR ROUTINE
s*ENTRY JSR P(C,TYPERR
;s *RETURN RTS PC

9522
9523

J*THIS ROUTINE USES THE ''ITEM COUNTROL BYTE'" ($ITEMB) “O DETERMINE wH](H
;*ERROR IS TO BE REPORTED. IT THEN USES THE '‘ERROR TABLE'' ($ERRTR)

9524

9525

J*ENTRY

9527
9528
9529
9530
9531
9532
9533
9534
9535
9536
9537
9538
9539
7540
9541
9542

034736
034140
034146
034754
034160
034164
034166
034170
034172
034174
034200
034204
034206
034212
034214
034216

"04413
113737
042737
113700
042700
005300
006300
006300
006300
062700
012037
001404
104401
104401
000000
012037

G544

(034224

104401

9545

(034222

034230

001404
104401

001702
177400
001114
177400

001360
034214

001302
0013%C2

TYPERR:

001277

(034232

001273

G DEFINE

;*THE ERROR.

Q526

9543

2%:
3%:

R A

WHAT

INFORMATION

A N R R AN RN A AN R P T

SAVREG
MOVBR
BIC
MOVB
BIC
DEC
ASL

R RN

TO BE

REPORTED CONCERNING

R RN AR NN AAN R T AN

$TSTNM, STESTN
#177400,8TESTN
$ITEMB,RO
#177400,R0
RO
RO

R AR R AN NRRRANRE N EERS

.
;GET TEST NUMBER FOR REPORT
;CLEAR UNUSED BITS
JENTER ERROR NUMBER
.TLEAR UNUSED BITS
;FORM INDEX FOR ERROR TABLE

ASL
ASL
ADD
MOV
BEQ
TYPE
TYPE
.WORD
MOV

.
RO
#$ERRTB,R0O
(ROY+, 28
3$
LSCRLF
O
(RO)+,4%

.
;FORM ADDRESS OF ERROR ENTRY
;GET EM POINTER
JBRANCH IF THERE ISN'T ONE
;TYPE CARRIAGE RETURN LINE FEED
;TYPE ERROR MESSAGE (EM)
;EM POINTER GOES HERE
:GET DH POINTER

TYPE

JTYPE (R=LF

BEQ

TYPE

BRANCH IF
;TY"E

THERE

DATA HEADER

ISN'T ONE

VAIY'Y

[

TIREKGD RKE F{°N. ("RL DIA%G
TIREKG P!
28=a,G=8" 15:7¢

9546
9547
9548

G549
9550
3551
9552
9553
9554
9555
9556

034232
034234
034236
034240
034242
034244
034246
034252
034254
034256

MALYTT

30(1046)

"YPE

01200°
001445

108:
.

9557

118%:

9561

9562
9563
9564
9565
9566
G567
9568
9569
9570
9571
9572
9573
9574
9575
9576
9577
9578
9579
9580
9581

051053

128:

001273

13¢:

14%:

034342

16%:

001632

9583
9584

9601

(RO)+ ,R3

JGET & STORE NUMBER Of

TST

LS$CRLF

MOVB
TSTR

(RO«

0016%2

BNE
L o)V

a(R1)+,~(SP)

DEC
BEQ

R3
138

.MORE DATA WORDS
;NO-BRANCH

B8R

118

12%

TYPQO(

TYPE

012737
000137
000000

000042

001100
000001
031772

000207

22%:
2°%:
LSBTTL

034436
034440

005237
000002

001662

NEXINT:

. SPACE?2

JTYPE

SEPARATORS

.SCRLF

JTYPE

.LOOP

JCHECK IF NEXT HEADER AVA!LABLE
;NO, DO NOT (HANGE INDENT
. CHANGE INDENT
;MORE DH'S?
< NO-BRAN(CH
cGET NEXT DH POINTER

208

(RO)+,18%
108

JIF O GET DATA
JINDENT?

R4
17%

;NO, BRAN(H

. SPACE?2

JTYPE INDENT

;TYPE

DATA

;DH POINTER GOES HERE

LSCRLF

108

JCET

INC
BIT
BEQ

ERRCNT
#5W12,aSWR

:INCREMENT THE ERRQR COUNT
JCHECK IF SWITCH 12 SET

#20. ,ERRCNT

JCHECK IF ERROR THRESHOLD EXCEEDED
;NO, RETURN

25$%

;NO,

25%

RETURN

LABORT

:TYPE

TST

MOV
MOV

#STACK,SP
#1,SEOP(T

sCHECK IF CHAIN MODE
;NO, HALT PRGCESSOR
JINITIALIZE STACK
;FORCE END OF PROGRAM

BEQ

032020

LTYPE

(RQ?
148

BEG
(om
DEf
BLE
MOV
8EQ

TYPE

¢+ NNY

005737
001407
012706

DATA WORDS

JTEST IF ANY DATA FOR THIS HEADER
JNO = SK]IP DATA PRINT
JCHECK FOR INDENT
JYES, GO INDENT
sPUT FIRST DATA WORD ON STA(K

MP
BHIS

053317

034400

034404
034410
034412
034416
0346424
034430
034432

000024

;BUMP PAST FORMAT WORD

149

RESREG

9599
9660

(RO)+ ,R2

TYPE

144552

SEa €177

JSET INDENT SWIT(CH
:GET DF POINTER
;STORE NUMBER OF DHM'S

TYPE
TYPE
.WORD

010000

178

:DH POINTER GOES HERE
JGET DT POINTER
:BRANCH ]F THERE ARE NONE

(RO)+ R

(ROY+,RO

BEQ

001273

20%

051053

14~

PAGE

RI
“

9582

9592
9593
9594
9595
7596
9597

BEQ
(LR

BEOQ

9558
9559
3560

9585
9586
9587
9588
9589
9590
9591

. WORD

MOV

MOV
MOV

001273

I
15:17

ERROR ROUTINE

6%:
5¢:

00000C

28-AUG-B1

22%

JMP
$EOP
HALT
PC
RTS
NON-EX]STANT MEMORY
THIS

RQUTINE

SETS

"PROGRAM ABORTED BECAUSE

;ERROR THRESHOLD EXCEEDED'’

AND

THE

INTERRUPT

(HE(K HANDLER

FLAG AND

DOES

THIS 1S THE INDICATION TO THE ROUTIME (MHECKING

NON-EXIXTANT MEMORY

INC

RT]

INTSET

AN RT!.

THAT AN INTERRUPT DID OCCuR.

;BUMP THE

INTERRUPY (OUNTER

“IREKRET RKG FUTNC (TRL DIAG
JIREKG P
28-AyuG-81 15:7¢

MACYTT

30(1046)

032777
001G03
104401
104402

012737

012706

000137

020000

144460

INTERRUPT OCCURRED.

032020

9631
9632
9633
9634
9635
9636
9637
G538
9639
9640
9641
9642

9643
9644

9645
9646
9647
9648
9649
9650
9651
2652
9653
9654

9655

9656

9657

MEMORY

PARITY

PERHLR: BIT
BNE

#B1T713,aSwR
1%

LCKHLR:

THE

MAIN

ACTUAL

REPORTED BY

THIS

ROUTINE.

THE

REPORT

JTEST IF INRKIBIT REPORT
JYES - SKIP

LEM3

TYPOC
Mov
MNV

LINE

TRAPS WiLL

THE
THE

INCLUDE THE PC AT TIME OF FAILURE AND ABORT THE PROGRAM.

;TYPE PARITY ERROR MESSAGE
JAND PC VALUE
;FORCE END OF PROGRAM
;CLEAN OFF STAC(K

#1,8E0PCT
#STACK,SP
$EOP

JMP

145170

THIS ROUTINE.

INTERRUPT f_AG

JRETURN.

WILL

001674
c0020C

JBUMP THE

005237
042777
000002

INTSET

MEMQORY PARITY ERROR TRAP HANDLER

LSBTTL

034512
034520

ARE HANDLED BY

.SBTTL

1$:

SEQ 0178

PROCESSING AS A RESULT OF THE INTERRUPT IS LEFT TO
PROGRAM,
THE HANDLER JUST SETS A FLAG TO INDICATE

TYPE

053546

9625
v 26
9627
034506

INTERRUPTS FROM THE RK611

RT]

000001
001100
031772

INTERRLPT HANDLER

034452
034460
034462
034466
034470
034476
034502

RK61'

MOST

INTHLR: NOP
INC

001662

PAGE 179

o
o

000240
005237
000002

15:17

NON=EXISTANT MEMORY AND [NTERRUPT (HECK HANDLER
LSBTTL

034442
0364444
034450

28-AUG-81

CLOCK

LINE

(LINE

INC

g%g

INTERRUPT HANDLER

CLOCK

INTERRUPT

TICK

COUNTER)

LOLKTK

#B1T7,akWLADD

HANDLER WILL

EACH

TIME

INCREMENT

IATERRUPT

s INCREMENT CLOCK

THE

LCLKTK

OCCURS.

TICK COUNTER

;CLEAR MONITOR BIT

:"tt."'.fl'*"'t'titt"it""'tttt'tfltt"ti'!'t'i'i"tQ""'t'.""

.SKTTL

OPTION PRESENT

LINE CLOCK ARE ON THE SYSTEM.

034522
034524
034530
034534
034542
034550
034554
034562
034566
034570
034572
034576
034600
034602
034610
034616
034624

000507

034626
034632

013703
012704

000004
00000¢
034754
000340
001670
000100
170200

OPTTST:

OTHERWISE,

SAVREG
MoV

000004
000006

002000
000100

APPROPRIATE

THE

FLAGS ARE SET IF PRESENT;
INTERRUPT

VECTORS ARE

SET

CLEARED
UP.

;DET INTERRUPT FOR NEM
;SET PRIORITY
JCLEAR PARITY WORD FLAGS
;CLEAR PARITY PRESENT FLAG
JTEST IF EITHER 11/70 QR 1i/46

177770

;NOW SEE

MOV
BIS
BIS

#177750,CSRPTR
#CP1170,0FPTFLG
#PARPRE ,OPTFLG

35%

;SET POINTER FOR 11/70
;SET 11/70 FLAG
;SET PARITY PRESENT FLAG

;GO TO VECTOR SETUP

MOV

MEMBAS ,R3

JSET UP POINTER TO FIRST PARITY (SR

BR
3%:

THE

THE MEMORY PARITY OPTION AND

#20%,ERRVEC
#PR7 ,ERRVEC+2
MEMPAR
#PARPRE ,OPTFLG
170200

NGP
TST
NOP
NOP

177750

AND

;STORE OLD NEM CONTENTS

MoV
MOV
(LR
BIC
TST
NOP

001664

TEST AND SETUP

CHECKS

ERRVEC,=(SP)

MOov

177770

01714
00001

THIS ROUTINE

MOV

ERRVE(+2,=(SP)

#1,R4

;INIT MASK

IT7'S

11/70

(IROKG) RK6 FLTNL CTRL DIAG
TIR6KG. P
28-AuG=81 15:16

CZREKG.P1T

9678
9679
9680
9681
9682
9683
9684
9685
9686
9687
9688
9689
9690
9691
9692
9693
9594
9695
9696
9697
9668
9699
9700
9701
G702
G703
6704
9705
9706
9707
9708
3709
9710

G711
9712

9713

—D
b
D
-—

NN
W
NNNN
OQO—-=rNO

OOOO

OOO0O0O

9674
9675
9676
9677

001716
034766
000340
072640

MOv
MOV
MOV
MOV

000004

MOV

034702
034706
034712
034716
034720
034726
034732

034736
034740
034744
034746
034750
034752

000442
062703
000241
006104
001332
000434

034754
034756
034764

022626
012737

034766
034770
034774

MOv
7ST
BIS

8IT
BNE
BIS
BIV
BNE

001670

_J—JW.‘—J—J—J

3672
9673

034676

6%:

OWNOWOW

9670
9671

K 14

28-AUG-81
15:17 PAGE 180
QOTION PRESENT TEST AND SETULP

30(1046)

000002
000002

PPN
NNNNNNN

9669

034662
034666
034672

15:16

MACY11

000001

OQOOOQOOO
PUEYPIE I X an R QRN g }

9665

9666
9667
9668

9660
9661
9662
9663
9664

28-AUG=-81

034636
034642
034644
034650
034654
034656

9659

(NN AN NN NN NN N N WNNINN

9658

(TRL DIAG

000720

177777

MOV
MOV

000001

000100
000002
000000

TST
BIC
MOV

001664

MOV

81(C

MOV

000002

10%:

ADD

001672
000100
000000
000000
000001
000000
000100
001670

000004

20%:

002000

001664

034452
000340

37%:

000116

29¢:

#4608, (RO)

#PR7, (RO)
#OBUFF+2264
RO
#B1T2, (R3)

JYES = SK]IP
:SET UP FOR PAR]TY

TO 408

;SET POINTER

;

TRAPS

TO BUFFER WHERE

18 USED IN THE TESTS

;SET

;JWRITE WORD BAD
JSET TO DETECT PARITY

#PARPRE ,OPTFLG
#2,(R3)
#0, (RO)
#7,(R3)

;REV 005
;TRUN OFF CZR ERROR ENABLE
;CLEAR BAD PARITY
JREV 006

#2 ,R3

JBUMP TO NEXT

(RO)

#0,(R0O)
35%

JREAD BAD

-'ORD

JREV 006
;REV 005

ERROR

(SR

(SP)+, (SP)+

;CLEAR STACK

#PARPRE ,OPTFLG
#0. (R3)
#0. (RO)

-SET PARITY PRESENT FLAG
STURN OFF (SR ERROR ENABLE
*WRITE GOOD PARITY

35%

JEXIT

#0, (R3)

:CLEAR (SR

MEMPAR

“FORGET

(MP

MOv

R3,(SRPTR

#1.(RY)

BIC

#PARPRE ,OPTFLG

BR
(MP
BR

35%

MCv
TST

BNE
BIT
BEQ
MOV

MOV

(SP)+, (SP)+
108
MMVECA,RO

SAD PARITY

TO WRITE WRONG PARITY

#-1,(RO)
#1,(R3)

JCLEAR STA(K
SSET NEW NEM TRAP ADDRESS

CLR

35¢:

001716
001670

;SET PARITY PRESENT B]T
;WwAS PAR]TY PRESENT SET BEFORE

JYES = EXIT

(SP)+,(SP)+
#308 ,ERRVEC

MOV
MOV
MOV

3CS:

R4 ,MEMPAR
#PARPRE ,GPTFLG

10%
MMVECA,RO

(SK

THIS ECC MEMORY?

(MP

MOV

BIS

(7%

;1S
:

JSHIFT

001664

#BIT1,(R3)
#BIT1,(RY)

473

[N THAT

Ré

MOV

0016€4

JSET PARITY DETE(T

63
35%

40%:

013;Q3)

BNE
BR

ROL

035040

SEQ C179

MASK

sJTEST IF ALL DONE
JYES = SKIP

260 TO CSR CHECKS

SSET CSR POINTER FOR (SR TO BE USED

SSET

TO DETECT PARITY ERRORS

-FORGET

JEXIT

THEM ALL

MEMPAR

SCLEAR STACK
260 CHECK NEXT (SR
“SET UP POINTER TO PARITY VECTOR
STEST IF ANY PARITY PRESENT

#CP1170,0FTFLG
398
#PERHLR,(RO)+

-TEST IF 11/70
‘NO - SKIP
:SET UP PARITY VECTOR

37%

#PR7, (R))
38%

#116,(RO)+

SYES - SKIP

“SET PRIORITY
;ELSE

RESTORE

TRAP (AT(HER

[ Tenl

TIREKGO RKE FCTINL

9714
9715
G716
9717
9718
9719
9720
9721

9722
9723
9724
9725

9726
9727
9728
9729
9730

9731
9732
9733
9734

9735
9736

3;%;

0351064
035106
0351164
035120
035124
035130
035134
035142
035144
035146
035150
035154

005010
012737
005037
013700
012720
012710
012777
000240
(000240
000240
005737
001003

035156
035164
035170

052737
012701
005037

035200
035204
035210
035214

012637
012746
012746
000002

035174

(035216
035216

035220

012637

034434
001662
001712
034506
000340
000100

L 14
MACYTT 30(7046)
¢8-AUG=81
15:17 PAGE 3 181
OPTION PRESENT TEST AND SETUP
000004

38%:

144546

001662

100000
000006
001662
000006
000004
000000
035216

001664

4%:

(LR
MOV
CLR
MOV
MOV
Mov
MOV
NOP

(RO
ANEXINT ,ERRVEC
INTSET
KW, VEC,RO
#LCKHLR, (RO)+
#PR7, (RO)
#8176 ,aKWLADD

NOP
NOP
TST
BNE

INTSET
43

BIS
MoV
(LR

#LCLKPR,OPTFLG
#6,R1
INTSET

MOV
MOV
MOV
RT]

(SP)+,ERRVEC
#PRO,-(SP)
#12%,-(SP)

MOV

12%:

104414

0002067

(SP)+ ,ERRVE(C+?

RESREG

RTS

SEQ 0180

;SET UP NEM VECTOR FOR LINE CLOCK
JCLEAR INTERRUPT COUNTER
sSET POINTER TO VECTOR
JINSERT ADDRESS OF INTERRUPT HDLR
JINSERT PRIORITY
;LOAD KW11=-L FOR INTERRUPT ENABLE

TEST

]
JTEST IN NEM ON KW11=P REFERENCE
;THIS BRANCH WILL BYPASS SET P OF
;CLOCK OPTION
SET CLOCK PRESENT FLAG
JRESTORE OLD VECTOR
;CLEAR INT FLAG

JRESTORE PRIORITY

70 0

9739

N R R AR AR

9740
G741
G742

.SBTTL
Ix
M

LOOP ON INTERNAL ERROR
THIS ROUTINE IS USED TO PROVIDE TIGHT SCOPE LOOPS. THE CALLER
IS EXPECTED TO SET SLPERR TO THE START OF THE SCOPE LOOP

SCOP1$:

BIT

9;23

9745

9746
9747
9748
9749
9750

9751
9752
9753
9754

(i5.2°2

035230
035232
035236
(035240
035244

(032777

001405
105737
001402
013716
000002

001000

143710

001103
001170

5$:
LSBTTL
o *
o
o

8;22

9757
G758
9759
6760
9761

035246
035252
035260
035262
035270

005037
032737
001004
012737
000410

3765
9766

0353064
035306

001772
005037

9762
9763
9764

g;gg
9769

035¢72
035276
035300
035312

(05737
001005
005737
000207

001674
100000

001664

000020

001654

001662

CLKCAL:

001674

BEQ
TSTR
BEQ
MOV
RTI

AR AT N RN N RN

AR A AR TN AR TR

#SW9,aSWR

5%
$ERFLG
5%
$LPERR, (SP)

;CHECK

LOOP ON ERROR

:NO, CONTINUE
JCHECK IF ERROR OCCURRED
;LOAD ERROR RETURN
*RETURN

LINE CLOCK CALIBRATE
WAITS FOR A LINE CLOCK INTERRUPT TO CALIBRATE THE INTERRUPTS
TO A
MEANINGFUL TIME VALUE. IN ADDITION IT PRESETS
THE TIMCNT JF THERE IS NO LINE CLOCK. TIMCNT IS USED IN THE

LINE CLOCK SIMULATOR.

2%:
LSBTITL

LINE

001674

R A AN A R A A R R A AR R A AR N R R

TO BE EXECUTED ON ERROR.

(LR
BIT
BNE
MoV
BR
TST
BNE
"ST
BEQ
(LR
RTS

LCLKTK
#LCLKPR,OPTFLG
1%
#16.,TIMCNT
2%
INTSET
%
LCLKTK
1%
LCLKTK
PC
JRETURN

JCLEAR TICK COUNTER
TEST IF CLOCK PRESENT
JYES - SKIP
JELSE PRESET TIMCNT
JAND EXIT

JTEST IF INTERRUPT HAS CGCCURRED
JYES- ABORT (CALIBRATION
;WAIT FOR CLOCK TICK
JNOT YET - LOOP
JCLEAR TICK COUNT

CLOCK SIMULATION ROUTINE

CIR6KGO RK6 FCINL (TRL DIAG
TIR6KG.P1Y
28-AUG=81 15:16

MACY11

9770
9771

M 14

30(1046)
2B8-AuG~81
15:17 PAGE
LINE CLOCK SIMULATION ROUTINE
X
i

182

SEa 0181

THIS ROSTINE IS USED TO SIMULATE THE LINE CLOCK. TO
DO THIS THE VALUE STORED IN MILCNT IS USED AS THE

9772

BASE AND REPRESENTS THE NUMBER OF

g;;g

i
I

IS RESET TO 16
TICK).

9779

9773
9774
3775
9776

X
it
B

3;39

TIMES A DECREMENT

AND BRANCH LOOF CAN BE DONE IN 1 MILLISECOND. THE
TIMCNT VALUE 1S DECREMENTED AND [F 1T REACHED O THE
LINE CLOCK TICK COUNTER IS BUMPED. THEN THE TIM(NT

THUS

(REPRESENTS

THE ROUTINE

RETURNS

16 MILLISECONDS PER LINE

TO THE

CALLER AFTER

CLOCK

MILLISECOND

AND BUMPS THE LINE CLOCK TICK COUNTER FOR EACH 16 CALLS.

. %

9782
9783
9784
9785
9786
9787
9788
9789

035314
035316
035322
035326
035330
035332
035334

010046
013700
005737
001012
005300
001373
005337

9791
9792
9793
g;gg

035342
035346
035354
035356

005237
012737
012600
000207

6790

035340

001005

1%:

001654
001674
000020

9796
9797
9798
9799
9800
9801
9802
9803

001654

2%:

i*
055360
035362
035366
035370
035372
035376
035400
035402
035406
035410
035412
035416
035420
035422
035426
035430
035432
035436
(035440
035442

104413
012700
000463
104413
012700
000457
104413
012700
000453
104413
012700
000447
104413
012700
000443
104413
012700
000437
104413
012700

000764

007246
000200

000077
)
00001¢
000011
000010

MOV
MOV
TST
BNE
DEC
BNE
DEC

RO,=(SP)
MILCNT,RO
INTSET
2%
RO
1%
TIMCNT

:SAVE RO
:SET COUNT
;TEST IF INTERRUPT SET
JYES - SKIP
;DECREMENT COUNT T0 ZERC

INC
MOV
MOV
RTS

LCLKTK
#16.,TIMCNT
(SP)+,R0
PC

;ELSE BUMP TICK COUNTER
SRESET TIME COUNT
:RESTORE RO
;RETURN

BNE

.SBTTL
i
i
i
i*
I
J*
i

gggg

9806
9807
9808
9809
9810
9811
9812
9813
9814
G815
9816
9817
9818
9819
9820
9821
9822
9823
9824
G825

MYTIME:

001652
001662

JWAT8S:

:DECREMENT TIMCNT
;IF

NOT

ZERO - EXIT

WAIT FOR INTERRUPT ROUTINE
THE ROUTINE IS ENTERED BY ONE OF FOURTEEN TRAP CALLS. THE CAIL
SPECIFIES HOW MANY TICKS OF THE LINE CLOCK ARE TO ELAPSE
WHILE WAITING FOR INTERRUPT. IF INTERRUPT DOES NOT OCCUR
IN THAT PERIOD OF TIME, AN ERROR MESSAGE IS PREPARED
(BUT NOT PRINTED IN THE ROUTINE)AND THEN RETURNS TO THE
LOCATION FOLLOWING THE CALL. IF INTERRUPT OCCURS THE
RETURN 1S BUMPED BY 2. NORMALLY AN ERROR CALL WILL

BE IN THE LOCATION AFTER THE CALL TO INTERRUPT WAIT.

SAVREG
MGV
BR
IWAT1M: SAVREG
MOV
B8R
IWATZ2S: SAVREG
MOV
BR
IWAT1S: SAVREG
MOV
BR
IWAT159:
MOV
BR
IWAT144:
MOV
BR
IWAT128:
MOV

#500. RO
WATSRT

;ENTRY FOR 8 SECOND WAIT

;ENTRY FOR 1 MIN WAIT
#3750. .RO
WATSRT
ENTRY FOR 2 SECOND WAIT
#128. R0
WATSRT
;ENTRY FOR 1 SECOND WAIT
#63. RO
WATSRT
SAVREG
JENTRY FOR 160 MS WAIT
#10. RO
WATSRT
.
SAVREG
;ENTRY FOR 144 MS WA]IT
#9. RO
WATSRT
SAVREG
:ENTRY FOR 128 MS WAIT
#8..R0O

[0 Y]

CIRO6KGO RKG FCTINL CTRL DIAG
TZR6KG. P11
2B8=AUG-81 15:1¢

012700
000407

000003

012700
000403
104413
012700
012746
012746
000002

000002

012737
004737
005737
001036
032737
001002
004737
023700

100000

001664

035314
001674

2%:

000002

MoV

#4 RO
WATSRT

MOV

#3.R0
WATSRT

MOV

#2 R0

MOV
MOV
MOV
RTI

#1,R0
#PRO,~(SP)
#5%,-(SP)

mMev

#16., TIMCNT
PC,CLKCAL
INTSET

JPRESET TIME COUNTER
;GO CALIBRATE THE (CLOCK
;TEST IF INTERRUPT OCCURRED

#LCLKPR,OPTFLG

;TEST

JELSE

CALL

BR
SAVREG

JSR
TST
BNE
BIT
BNE
JSR
cMp
BLO
TGETRK

1%:

MOV

BIC

001264
001264

—

;ENTRY FOR 80 MS wAlT
JENTRY FOR 64 MS WAIT

CENTRY FOR 48 MS WAIT
JENTRY FOR 32 MS WAIT

WATSRTY

PC,MYTIME

:ENTRY FOR 16 MS WAIT
:LOAD PRIORITY O ON STACK
;LOAD ADDRESS

JYES - EXIT

AVAILABLE

SIMULATOR

JTEST

T.(S1.,R1

JELSE GET '611 REGS
JPUT CS1 IN R1- STRIP ALL BUT

IF ENOUGH TICKS COUNTED

JNO - LOOP

;COMMAND CODE;

INDEX

INTQO TABLE

#2,(SP)

;BUT GO TO NEXT SCOPE CALL
;BUMP RETURN AROUND ERROR

;RESTORE
JRETURN

“L'* REGISTER LOADING ROUTINE
THE

KWwl1-L

JYES - SKIP

LCLKTK,RO

zg.SESCAPE

RESREG
RTI
r-

v o}

Vel
S
I
R
I

SENTRY FOR 96 MS WAIT

CMNDLB(R1),DH2N ;AND SELECT HEADER TO IDENTIFY OPERATION
HEMS EM2N
:MESSAGE (NO INTERRUPT OR INTERRUPT LATE)
$TESTN,RO
;GET NUMBER OF PRESENT TEST
RO
JSHIFT FOR INDEX
$SWOBTB(RO) ,$ESCAPE
;LOAD ESCAPE TO ABORT TESTS

BR
ADD

000002

JENTRY FOR 112 MS WAIT

#177741 ,R1

MOV
MOV
Mov
ASL
MOV
SuB

eSev,w,
v, 0,0, 8

035672

104414

#5 R0
WATSRT

BR
SAVREG

WATSRT:

001654

033122
000002

MOV

JWATLS:

IWAT*6:

000020
035246
001662

53
01

MOV

#6,R0
WATSRT

SAVREG

JWAT32: SAVREG

000001
000000
035550

77
50

#7.R0
WATSRT

BR
SAVREG

106413

MOV
B8R

JWAT64:

o X

106413

WATSRT

BR
IWATS80: SAVREG

000004

SEQ (182

IWAT96: SAVREG

(V4 AV,

NN NN (NN N NN N NN

oo (¥,

9864

9881

000413

013701
042701
016137
012737
013700
006300
016037
162737
000402
062716

9865

9873
9874
9875
9876
9877
9878
9879
9880

000005

103764
104420

9863

9866
9867
9868
9869
9870
9871
9872

012700
000417

OQOOO—-O

9849
9850
9851
9852
9853
9854
9855
9856
9857
9858
9859
9860
9861
9862

IV LV LU TV SV RV RV IV T

9845
9846
9847
9848

\va (I

9844

~ S NNWNININ)
2 = =2 O [ole]
o OO ONNIOONMVOON o

9843

000006

104413
012700

IWAT112:

000007

012700
000423
106413

ViV

9840
9841
9842

(NN N NN NN N

9838
9839

106413

(O AV, LV, LV, ]

9837

012700
000427

INWNNIANWN

9835
9836

104413

N 14
30(1046)
28-AUG-81
15:17 PAGE 183
WAIT FOR INTERRUPT ROUTINE

(1)
V)

000433

9826

9827
9828
9829
9830
9831
9832
9833
9834

15:16

—

28-AUG=-81

(ZRO6KG. P

VACY11

PARAMETERS

FOLLOWING

THE

CALL

REGS

ARE

TRANSFERRED

INTO

THE ''L'* REGISTERS L.CS1=L.DCYL. L.MR1 IS NOT
LOADED IN THiS MANNER SINCE IT IS NOT COMMONLY LOADED
FOR AN OPERATION. L.CS2 IS LOADED FROM DRVNUM,
CALL

JSR

COMMAND

R4,LRLOAD

CTRL DIAG

(ZREKGD Rx6 FCINL

9882
9883
9884
9885
9886
9887
9888

o
o

(035674

035674
035676

010046
010146

9892
9893
9894
9895
9896
9897
9898
9899
9900

055704
(35710
035712
035714
035716
035722
035724
035726
035730

(€12700
012421
005300
001375
013721
005721
012411
012601
012600

328;

(35700

035732

012701

LRLOAD:

001600
1%

001626

000204

035734
035740
035742

005037
010046
010146

9912

035750

010201

035744

.SRTTL
iw
I
I
ot
LOADRK:

001662

012700

001602

062701
012021

000002

9913
9914

035752
035756

9916
9917
9918

035762
035764
035766

012021
012011
062701

040006

035776

062701

000004

9915

9919
9920
9921

9922
9923

9924
6925
9926

035760
035772
035774
036002
036004

011011
123727

036012
036014
036022

001403
053737
013712

9928
9929

036030
036032

012600
000002

33;%

’

9934
9935
9936
9937

036034
036040
036042
036050

9927

036026

012601

#4 RO
(RG)+,(R1)+
« RO
* 18
DRYNUM, (R1)+
(R1)+
(R4)+,(RY)
(SP)+,R1
(SP)+,RO

THE

001720
001600

001600

:PRESET COUNT
:MOVE FIRST FOUR WORDS
:CS1, WwC, BA, DA
:LOAD
;:BUMP
* :LOAD
::POP
;:POP

INTO '" ‘' REGS

DRIVE NUMBER
PAST ASOF
DCYL
STACK INTO R1
STACK INTO RO

CONTENTS.

GO BIT

L.CS1

TRANSFERRED LAST AS

IS SET.
;:CLEAR INTERRUPT FLAG.
:STORE REGISTIR

MOV-

#L.WC,RO

;GETM ADDRESS OF

ADDMOV

42 ,R1
(RO)+, (R1)+

;PUT R1 PAST RK(S1
:LOAD WORD COUNT

MOV
MOV
ADD-

(RO)+, (R1)+
(RO)+, (RY)
#6,R1

:LOAD DISK ADDRESS
;LOAD (S2
:BUMP R1 TO ASOF

ADD -

#4 ,R1

;BUMP R1

BEQ
8IS
MO

18
DTYPE,L.CS?
L.CS1,(R2)
(SP) +,R1
{SP)+ RO

MOV .
CMPR

1%:

SHOULD BE IF THE
CLR
INTSET
MOV
RO,-(SP)
MOV
R1,=(SP)

MOy
MOV .

000007

;GET ADDRESS OF L REGS

LOAD RK611 FOR OPERATION
THE REGISTER SETUP STORAGE IS TRANSFERRED TO THE RK611 REGISTER.
THIS IS A STRAIGHT TRANSFER WITH NO CHECKING OR MANIPULATION

MOV

001102

;:PUSH RO ON STACK
::PUSH R ON STACK.

#L.CS1,R1

MOV
MOV
DEC
BNE
MoV
TST
MOV
MOV
MOV

MOV
MOV
RTI

R2,R1

(RO)+, (R1)+

(RO)+,(R1)+
(RO)+, (R19+

(RO), (R1)
$TSTINM, #7

SETUP STORAGE

:GET BASE ADDRESS

001720
001456
001000

LDCON:
036120
036122

TST
BEQ

MoV
MOV

DTYPE
1%
#1456,0STCYL
#1000, 7STCYL

W(C

;. 0OAD BUS ADDRESS

:LOAD OFFSET
:LOAD CYLINDER

TO MR1

;LOAD MR1
:SEE IF TEST 7

:BR IF YES
;ELSE SET CCRRECT DRIVE
:LOAD €S1

TYPE

;RESTORE REGISTER
:RETURN

;THIS ROUTINE LOADS CONSTANTMS EITHER FOR THR RKk06 OR THE RKO7
005737
001414
012737
012737

:SEE IF RKO6
:BR IF YES
:ELSE LOAD RKO7 CONSTANTS
:MAY NOT BE NEEDED

SEQG (183

.
.

WORD COUNT
8US ADDRESS
.BYTE
SECTOR ADDRESS
.BYTE
TRACK ADDRESS
CYLINDER ADDRESS
RO,=(SP)
R1,~(SP)

MOV -

012021

012021
012021

/
/

RTS

9906 :

99G/
9908
9909
9910

R’

000004

9903
9904
9505

9911

B 15
30(1046)
28-AUG~81
15:17 PAGE 18¢
L' REGISTER LOADING ROUTINE
X
i

9889
985C

Q891

MACY11

CZRO6KGO RK6 FCTINL CTRL DIAG
“IR6KG . P11
28-AUG-81 15:16

5950

036072
036100

012737
005037
012737
005037
000207

000632
036122
002000
036132

b
—

9949

036130
000G4v

)

9944
9945
9946
9947
9948

005037
012737
000207

WWNONOMNIFY
NOORSNVO

9943

036056
036062
036070

QOOOO0O
OOO
WWWNWNW
NNW
[o.Xo Yo Yo N0 Yo R0 10 Yo )

9938

9539
9940
9941
9942

—

d e

9951
9952
9953"
9954 .
9955
9956
9957
9G58
9959
9960
9961
9962
9663
Q964
9965
99¢6
>
9967
9968
9969
997(
9971
9972
9973
9974
v36164
9975
036766
9976
036170
9977
036172
9978
036176
9979
03¢200
9980
036204
9981
036206
9982
036210
9983
036212
9984
036216
9985
036220
9986
036224
9987
036226
7988
036230
9989 036232

9990
9991

9962
9993

036234
036236
036240

MACY11

30(1046)

28-AuG=-81
15:17
LOAD RKA11 FOR O/ ZRATION
(LR

036132
036120
036130

000000
000000
000000
000060
000000
000000

ADTYE ,HOLD3

MOV
(LR
MOV

#632,LSTCrL
TSTCYL
#(DT HOLLZ

RTS

CLR

006301

016137
006201
000207

;RK06 CONSTANTS

JMAY NOT BE

NEEDED

HOLD%

LsSTCYL: O

TSTCYL:
HOLD:
HOLDT:
HOLDZ2:

HOLD3:

60 MAY NOT BE NEEDED

O
0

STHESE ROUTINES LOAD
006300
016037
006200
000207

SEQ 0184

HOLD?2

MOV
RTS

1%:

C15
PAGE 185

001722

001720

GTYPO:

GTYP1:

ASL
MOV
ASR

RO
TYPTBL(RO) ,DTYPE
RO

RTS

ASL

ASR

MOv

TYPTBL(R1),DTYPE

RTS

LSBTTL
]

STORE

ALL

THE CORRECT DRIVE TYPE INTO DTYPE

RK611

THE

WITH THE

REGISTERS

RK611

REGISTERS ARE

EXCEPTION OF

THIS ROUTINE.

GETRK:

1%:

MoV
MoV
MOV
MOV
MOV
MOV
MOV

RO,=-(SP)
R1,-(SP)
R3.-(SP)
#T.CST,RO
R2,R1
#10. ,R3

:
%

ADD
TST
MOV
MOV

#2,R1
(RO)+
¥4 R34
(R1)+, (RO)+

MOV
MOV
MOV

(SP)+,R3
(SP)+.RI
(SP)+.RO

001540
000012

000002
000004

375

JSRTTL

DE(
BNE

RT]

BIT

(R1)+, (RO)+
R3
1$

R3
2%

COUNTER

IN A WORD

THE

STORED

THE

TEST

DATA BUFFER WHICH

TABLE

[S NOT

STORED

;STORt REGISTERS 10 BE USED
;SET POINTER TO TEST TABLE
;SET POINTER TO RK611 BASE
sSET COUNT FOR 1ST 10 RtGS
;STORE RK(CS1

THROUGH RKSPAR

;BUMP POINTER PAST RKDB
;BUMP POINTER PAST T,RkDB

;SET COUNT FOR LAST 5 REGS

;STORE

RKMR1

JRESTORE

;RETURN

THROUTH RKMR3

RECISTERS

CIRAKGD RK6 FCTINL CTRL DIAG
TIR6KG P11
28-AUG=81 15:16

CIROKGO RKG FOINL CTRL DIAG
CIR6KG.P11
| 2B=-AUG-B1 15:16
9994
9995

ggg?

9998
9999

036242
036250

016637
010346

03€256
036262
036264

012703
000241
006037

10000

036252

10004

036270

10001
10002
10003

10005
10006
10007
10008
10009
10010

}88};

036272
036274
036276
0363C0
036306
036310

03¢314

005037

103407

005303
001373
012603
013766
000206
005237

000766

000002

001260
000021

MACY11

30(1046)
2B8-AUG-81
15:17
STORE Rx611 REGISTERS

10022
10023

036320
036322

10030

10031
10032

10033
10034
10035
10036

10037

10038
10039

10040
1004

10042
10043
10044
10045
10046

10047
10048

10049

MOV
cLe
ROR

#17,,R3
$TMP16

JSET A SHIFT (OUNTER
:CLEAR CARRY
;ROTATE WORD.

DEC
BNE
MoV
MoV
RTS
INC

R3
18
(SP)+ ,R3
$TMP17,2(SP)
R&
$TMP17

JNO - DEC COUNT
:LOOP IF NOT ZERO
;RESTORF R3
;PUT COUNT OF BITS ON STACK
;RETURN
:BUMF COUNT

’$:
001260

000002

001260

036316

010046

036324

112401

036326

036330
036332
036334

036342

036350
036352

036354
036356
03%¢360

MCLOCK:

010146
112400

042762

005300
001370

012601
012600
000204

B(S

3 3

g 3

000400

000026

1%:

(000026

e
B

.LOOP"

TO BE DONE.

MOVR

(R4)+ R1

:GET PARTIAL PHASE ADDRESS COUNT

BI(

;MULTIPLY PHASE

RO
R1,RO
#MCLK ,RKMRT(R2)

;ADD
;SET

#MCLK,RKMRT(RZ2)

DEC
B8NE

RO
1%

THE FIELDS IN THE
ASSCENDING ORDER.

::PUSH R1 ON STACK
;GET NUMBER COF CONTROLLER PHASE

I
e

e
o
o
o

SHIFTED QUT

::PUSH RO ON STACK

R1,=(SP)
(R4)+ RO

LSBTTL

e
e

;WAS BIT

RO,=-(SP)

MOV
(SP)+ ,R1
MOV
(SP)+ RO
RTS
Ré
READ AND SORT HEADERS

COUNTED

MOV

ASL
, ADD
-~ 8IS

TO BF

:CIEAR $TMP16 FOR COUNTING

(LOCK TRANSITIONS(PART]AL PHASES)

ASL
000400

;GET WORD WHOSE BITS ARE
;STORE R3

MAINTENANCE CLOCK ROUTINE
THE PARAMETERS PASSED TO THIS ROUTINE ARE LOCATED IN THE
ADDRESS OFTER THE CALL. THE FIRST BYTE CANTAINS THE NUMBER
OF PHASES ADDRESSES THE CALLING ROUTINE WANTS THE CONTROLLER
CLOCKED THROUGH AND THE SECOND B:TE CONTAINS THE NUMBER Of

MOV
MOVR

006300

006300
060100
(052762

$TMP17

B8R

;.
036316

10027
10028
10029

2(SP),$1MP16
R3,=(SP)

LOBTTL
e
;e
“n
L

10020

10026

MOV
MOV

1%:

}88;3

}8852

BIT(NT:

ARE PASSED BACK ON THE STA(CK.

(LR

10013
10014
10015
10016
10017

10021

THE WORD WHOSE BITS MUST BE COUNTED IS PLACED ON THE STA(K
BY THE CALLING ROUTINE.
THE NUMBER OF BITS FOUND [N THE WORD

00125¢

SEQ 0185

o
;e

001256

D 15
PAGE 186

THE

HEADERS

THE

JSR
TCHKOP
ERROR

:CLEAR M(LKk

:DECREMENT
:LOOP

IfF

CYLINDER AND

ERROR

ERRO

COUNT

NOT

::POP STACK
::POP STACK

ZERO

INTO R
INTO RO

TRACK

SPECIFIED BY

''L'* REGISTERS ARE READ AND STORED IN
CONTROLLER ERRORS ARE (HECKED [N THE

R4 ,RDSTHD
4

COUNT BY &

IN PARTIALS
CLOCK

READ HEADER OPERATION AND DATA (ATE
EACH READ OF THE DATA BUFFER.

CALL:

ADDRESS

ADDRESSES

:0R

CHECKED AFTER

;RETURN POINT

7
-

;RETURN

CERR

DATA LATE

:RETURN IF 70 S.Ow OR
;IF HDR 0 NOT FOUND

[N READ WDR
IN DB UNLOAD

"IR6KGO Rk FUTN. (TRL DIAG
TIR6KG.PYY
28-AuG=81 15:1¢

10052

10053

10054
10055

10056
10057
10058
10059
10040

10041

10002

10063

036452

10067

036460
036466
036472
036476
036504

001654

053616
050414

001370
001272

036560
036564

005762

000000

036566
036570
036572

011324
011324

N WMWY

012737
012737
000466

RDSTHD:

20%:

2%:

001600
000000
3%

035314
001674

[}V, ]

W
¥, le)

036606
036614
036616
036624
036632
036634
036636
036640

20O
OO

036602
03660¢

100000

001664

00010C
000037

143064

MOV

BIT
BE%

MOV

MOV
MOV
MoV
ADD

000002

5%:

E 15

PAGE

187

SEa (18¢

ALCLKPR,OPTFLG
20%

JTEST IF CLOCK PRESENT

#26,R0

;PRESET FOR 26 SECTOR FORMAT

;NO = SKIP

¥ WLADD ;RESET INTERRUPT

ngMY,L.CS1

#2464 ,R0O

#IBUFF ,R1
RO,RS

R1,Ré4

R2.R3
#RKDB,R3

;1S 24 SECTOR MODE SET?
JNO = SKIP
JELSE CHANGE TO 24 SE(TOR MODE
sSET POINTER 70 INPUT BUFFER
; SAVE NUMBER OF SE(TORS
;SAVE [BUFF ADDRESS
;SET UP POINTER TO RKDR

MOV
MOV

DRVNUM RK(S2(R2) ;LOAD DRIVE NUM
L.DCYL,RKDCYL(RZ) ;LOAD CYLINDER NUM
L.DA,RKDA(R2)
;LOAD TRA(CK AND SECTOR

MOV

#16.,TIMCNT

MOV

L.CS1,RKCST(R2)

TST
BNE
JSR

INTSET
4%

CLR
(LR
B'S

INTSET
LCLKTK
DTYPE,L.CS1

PC,MYTIME

LCLKTK
3s

sSET TIME COUNTER
;CLEAR INTERRUPT ELAS
;CLEAR TICK COUNTER
sSET DRV TYP
:LOAD COMMAND

;TEST IF INT OCCURRED
:YES - SKIP
WAIT 1°MS
HAVE WE WAITED 16 MS?

:NO - LOOP ON WAIT

ADD
TGE TRK
MOV
MOV

#6,6(SP)

REML EMON
#OPERC4 ,DH2N

JGET RK REGS
;LOAD MESSAGE ‘'‘TO SLOW/NOT COMPLETE'’
:%E?g COMMAND '‘READ HEADER'' FOR REPORT

TS7T
BM]

RKCST(R2)

JTEST

MOv
MOv
MOV

(R3),(R&)+
(R3),(R4)+
(R3),(R&)+

;STORE

TST
8MI

RKCS2(R2)

JTEST IF DATA LATE
JYES - SK]P

DEC
BNE

sDEC SECTOR COUNT
sIF NOT ZERO - LOOP

BIT
BEQ

#_ CLKPR,OPTFLG

JTEST IF CLOCK PRESENT
JNO - SK]P
JSET INTERRUPT ENABLE

(%:

000010

(LR

TST
BFQ

11324

036574
036600

SAVREG

87
BEQ

MOV

—

100474

OO
OO

10092
10093
10094
10095

200010 000020
000006

001614
001606

000006

10082

10091

00° 626

0000C6

104420

10081

10090

000024

28-AyuG-81

15:17
READ AND SORT HEADERS

1%:

062766

10078
10079
10080

10088
10089

001¢00

001662

10076
10077

0000c6
010000

005737
001020
004737
005737
001770

10073
10074
10075

10083
10084
10085
10086
10087

1643370

U TUN R W
O
&~

10072

001664

000020
001662
001674
001720
001600

o QOO

100670

10071

30(1046)

- 000024
1070414

SN0

10068
1(069

100000

~ NOON
o (v WNINN
~~~ ~

10065

10066

10064

1064172

03273%7
001402
005077

OOCOOCOOQO
b
A O =D D d
INWWWNIO
OO
NN N NN
—

036362

OQOOQOOO0OCT
— =2 S OQW—OW
AN LN LN R
ST\ VERT AV ]
B RV Ry NV NT L
I
LN 2OV NOW

‘0050
10051

MACYTT

MOV

BIT
BEQ
MOV

MOV
MOV

108

11%

2%
5%

#B1716,3KWLADD
l%?,Z(R1)

JSET RETURN FOR

FOR

TO SLOW

CONTROLLER ERROR

JYES - SKiP

HEADERS

;HEADER AT

TOP OF

BUFF=HEAD 02

JYES - SKIP
JELSE MOV THIS HEADER TQ BOTICM

106

107

036642

005305

109
110
}}5

036646
036654
036660

012737
005037
000421

056366
007372

113

036662

012700

070414

116
117

036672
036674

012120
020004

120

036700

062766

000010

000006

123
126
125

036710
036716
036724

012737
012737
062766

054631
056777
0000064

001500
061112
000006

127

036734

013700

001302

108

16
115

;;g

}g;

126

013¢
10122
10133
10134
10135
10136
10137

036644

036666
036670
036676
036706

036732

036740
036742
036750
036756
036760

001367

012120
012120

104420

006300
016037
162737

SELSE "MEADER O NOT FOUND'* MESSAGE

MOV

#IBUFF RO

:GET

MOV
(MP

(R1)+,(R0O)+
RO,R4

;ALL HEADERS MOVED?

ADD

#10,6(SP)

;SET UP FOR GOOD RETURN

#EMDLT,EM13N
#EMRDB .DFO11A
#4,6(SP)

:''DATA LATE

9%:

MOV
MOV
ADD

108:

MOV

ASL
MOV
SUB

$TESTN,RO

RO
“SKRIFT FOR INDEX
$SWOBTB(RO) ,$ESCAPE
:SE; ESCAPE
#2,$ESCAPE
:TO NEXT SCOPE CALL

SGET

RESREG
RTS

.SBTTL
e
La

GET DRIVE STATUS
sTHIS ROUTINE GETS ALL THE DRIVE STATUS AND PLACES IT IN $REG10
THROUGH $REG17.
THESE REGISTORS ARE FIRST CLEARED TO ALL ONES AND

MOv
MOV

BR
8%:

007126
001264

o
o

10140

TGETRK

036762
036764
03c¢772
036776

10150
10151

037006
037010

005301
001374

10153

037016

012701

037002
037012

037022

104413
012762
012700
012701

012720

100000
001202
000010

177777

012706

001206

005037

(0°23¢

00000°

000000

GETDRS:

1¢:

5¢

(R1)+,(RO)+
(R1)+ (RO

tIF AL. HEADERS NOT CHECKED = LOOP
:SKIP
TOP OF

IBUFF

:MOVE HEADERS SO THEY START AT

SAVREG
MOV
MOV
MOV

SET RESULT CF
-

#SREG12,R0

:SET PQINTER

(LR

$TMP3

SCLEAR ERROR Sw]TCH

#1 R

1'S ARE LfFfT

:CLEAR ANY OLD ERRORS LAYING AROUND
JPRESET ALL STATUS STORAGF TO
SALL ONES

MOV

THE

ERROR RE TURN
GOOD RETURN

#177777.(RO)+
R1
1%

READ DR'’

TEST NUMBER

MOV

DEC
BNE

IBUFF

:SET ERROR RETURN
:GET RK REGS

R4 ,GETDRS
ERROR PROCESSING
NO ERROR PROCESSING
#CCLR,RKCST(R2)
#SREGTIO,RO
#8. R1

TOP Of

INO - LOOP

THEN IF ERROR OCCURS WHILE GETTING STATUS,
IN THE REGISTERS.

;*(ALL: JSR
I
BR
e
BR

10145
10146
10147
‘0148

10°54

REMS6,EMON
DH2N
9%

10141
15142
}8}22

10152

MOV
(LR
BR
6%:

104414
000204

SEQ (187

;TEST FO INSURE HEAD O IS FOUND

BNE

033122
000002

188

001373
000423

F 15
PAGE

DEC

BNE

001370

10°38
16139

10149

30(1046)
15:17
28=-AuG-81
READ AND SORT HEADERS

TOREG12 FOR AQ1

:PRESET FOR PAIR ONE.

& BO!

P WY

REXGD Rx6 FCIN. CTRL DIAG
28-AUG=81 15:1¢

ROKG.P1

MACY1T

TIRER
T RRE FOTNL
=6

CTRL DIAG

28=AUG=81

15:16

001610
000026

0S5
10156

037026
037036

013762
010162

10158
0159
1016C

Q37046
037052
037054

012703
005303
001376

0157

10161

10162
10763
10164

0370640

037056

037064
037066
037074

012762

(032762

000007

000050

MACYTT

30(1046)

G0001C

28:

000900
3s:

001415
032762
Q01004

100000

000000

024000

000000

10165
0166
10767
0168
10169

037076

(32762

037400

0000°'¢

037104
037106
037114

001405
012737
022020

000001

001230
.

1017
0172

037120
037124

016220
016220

000034
000036

10170

10173

10174

10175

10176

10177

10178
0179

037116

037130

012762

037140

001410

037136

037142

037144

037150
037152

10180
10181
10182
10183

037154
037160
037162
037164

}8189

037174

10184
10185

(00404

(37170
037172

005701

005201

100000

022701

000004

012700
000722
104414
005737

001202
(00123C

000204

001326
005001

001001
005724

10188
10189
Yy

10195
10196
10197

}8}33

5%:

£S:

7% :

037176

10208

037202

Q03776
(37200

(010046
010146

(37206

(012700

037212

012701

012720

000007
000100

G 15
PAGE 189

SES (188

L.CS2,RKCS2(R2)
R1,RKMR1(R2)

;LOAD DRIVE #
;LOAD MR1

8.0, ,R3
R3
3s

JWAIT FOR A FEW MICRO RECORDS TO
JBIT SELECT FINISH

#8iT0,RKCST(R2) ;DO SE.ECT

BIT

#(ERR,RKCST(R2)

;ANY ERROR SET AS A RESULT OF

SELECT?

8EQ
RIT
BNF

48
JNO - SKIP
#CTO!SPAR,RK(CST(R2) ;CHECK IF
8%
JYES -~ SK]P

BEQ
MOV
(MP

3 3
#1,8TMP3
(RO)+, (RO)+

;TEST FOR ERRORS:
;.
NED'UPE 'MDS!UFE NEM!PGE
JNO - SKIP
:SET ERROR FLAG
:BUMP TO LET THAT PAIR STAY ALL

MOV
MOV

RKMR2(R2), (RO)+
RKMR3(R2), (RO)+

:STORE A WORD
:STORE B WORD

#37400G,RK(S2(R2)

TIMEQUT OR PARI!ITY ERRCR

:SKIP

MOV

#CCLR,RKCST(R2)

;CLEAR ANY OLD

BFQ

;YES =

;IS RT

A O

SKIP

ERROR

(LAST

IN CONTROLLER

TRANSFER,

PAIR )

:ELSE BUMP TO NEXT PAIR

(MP

44 R

;PAIR

MOV
B8R
RESREG
TST

#$REG10,R0
2%

PRESET POINTER FOR PAIR 0
;G0 GET THEM

$TMP3

JEXIT HERE
;ANY ERROR

RTS

Ré

:RETURN

BNE
IST

1°S.

2%
R1

7%
(R4) +

JUST

STORED?

:NO - SK;P
;ELSE SET TO PAIR O

[N STATUS

JYES - SKIP
:ELSE BUMP PART ERROR

GETTING

SUBSYSTEM INITIALIZE AND INITIALIZE STATE TEST
THE SUBSYSTEM IS INITIALIZED WITH A SUBSYSTEM (CLEAR

(OMMAND.,
PERIOD OF

CERR AND D] ARE MONITORED FOR A SHORT
TIME DURING WHITH THEY SHOULD BOTH RESET.

2
i
]

IF ANY OF THESE THREE CONDITIONS ARE NOT MET AN APPROPRIATE
ERROR MESSAGE 1S PREPARED AND REPORTED WHEN THE ROUTINE
RETURN TO THE CALL. IF EVERY THING IS GOOD, THE RETURN

SSINIT:

001600

'S:17

MmOV

0]
DEC
BNE

BNF
(LR

I
M
o

0205

MOV
MOV

INC

10201
10202
10203

10210

6%:

10200

10209

000000

8%:

}8%32

10206
10207

STATYS

BIT

.SBTTL
J®
o
i

10190
;8;?;

10204

GEY DRIVE

2B=-AuG=-81

THEY DO RESET, READY IS

TESTED TO INSURE

SETS.

SKIPS OVER THE ERROR CALL AND TEST ASBQRT.
THE

USUAL

CALL

TO THIS ROUTINE WILL BE

AN ERROR MESSAGE AND BRANCH T0O END OF
IS DONE BECAUSE FAILURE TO INITIALIZE
THE TEST.
MOV
MOV

RO,~(SP)
R1,=(SP)

;oPUSH RO OM STACK
:;PUSH R1 ON STACK

#_,.(S1,RO

JGET ADDRESS OF

MOV

#7 ,R?

MOV

#4100, (RO) +

MOV

FOLLOWED BY

TEST.
THIS
CORRECTLY IS FATA_

;SET CLEAR COUNT
JPRESET (S1

*''* REGS

INTR ENABLE

T(C

"IROKGS RK6 FU'NL CTRL DIAG

“IR6X G P11

10211
10212
10213
10216
“0215

037216
037220
037222
037224
037232

10217

037246

10216
10218

000010
001222

(032737

140000

001540

037254

001433

037302

100000

001547

012737

053711

001400

053755

001400

000403

10225

037304

012737

10228
10229
10230

037320
037322
037330

006300
016037
162737

10226
10227

10¢31

10232

10233
19234

"0235
10236
10237
10238
10239

102640

;852;

037312
037314

037336

104420
013700

012601

037340

012600

037352
037354
037362

001004
012737
000753

03732
037344

037364
037366
037370

037374

001540

032737
001406

037274

'0224

000000

001222

001366

000414
032737

012601
012600
062716

000uu?2

001302
033122
000002

0002C0

001540

054034

001400
5¢:

000002

£3:
.SBTTL

10253

037402

037410
037412
037420

03742¢

012437

050034

023737

050034

001542

000001
001542

050072
050059

001406
052737
013737

000204

CHKWC:

1¢:
.SRTTL
;.

TEST

#CERR.DI,T.CST

TEST

RKCST(R2),T.CS1

;GET

CS1

ERROR OR DI

:NO = SKIP

$ TMPO

SEQ 0189

TO READY

SET

TtS~

JELSE DECREMENT COUNTER

;AND

MOV

#EMS EM3IN

JMESSAGE

MOV

#EMG ,EM3IN

:MESSAGE (SUBSYS CLEAR NOT RESET DI)

ASL
MOV
SUB

$TESTN,RO

:GET PRESENT

RO
:SHIFT FOR INDEXL
$SWOBTBL (RO),SESCAPE ;LOAD ESCAPE

#CERR,T.CS1
3%

BR
BIT

BNE
MOy
BR

MOV
MOV
ADD

RT]

WORD

LOOP

JTEST = IS IT CERR STILL SET
:NO
= SKIP TO DI MESSAGE

TGE TRK
MOV

MOV
2%:

STATE

BIT

MOV

BIT
8EQ

38:

INITIALIZE

;CLEAR THE NEXT
JCOUNT 02
JNO - _00P
:CLEAR SUBSYSTEM
;SET A COUNTER

BNE

6$:

AND

H 15
PAGE 190

(RO«
R1
7%
#5CLR,RKIS2(R2)
#10.,8TMPQ

BEQ

;e
i
;.
.
;*CALL:
037376

10259
10260
10261

18:

15:17

(LR
DEC
BNE
MOV
MOV

MOV

185%8

;852;

SUBSYSTEM [NITIALIZE

001264
©01264

10244
10245
18249
24
10248

1852;

28-AUG-81

DEC

10243

10254
10255
10256

30(1046)

7%:

005337

037262

037264
037272

10223

000040
000012

016237

10221
10222

15:164

005020
00530°
001375
(012762
012737

037240

10219 037256

102207

28=AUG=B1

MACY1Y

#2,SESCAPE

;JSET

(SUBSYS CLR NOT RESET ERROR)

10 NEXT

TEST NUMBER
TO ABORT

SCOPE

(SP)+ R1

1:POP STACK INTO R1

6$
#RDY,T.CS"

:DSKIP TO EXIT
;TEST READY SET

(SP)+,R0O

SYES - GOOD EXIT
*MESSAGE (SUBSYS CLR NOT

(SP)+,R1
(SP)+,R0O

:RESTORE

#2,(SP)

:GO0OD RETURN

END OF

CALL

;:POP STACK INTO RO

5%
#EM7 EM3N
48

COUNT AT

TEST

SET READY)

REGS

OFERATION CHECK

THIS ROUTINE COMPARES THE CONTENTS OF THE TEST STORAGE FOR
THE WORD COUNT AGAINST THE SUPPLIED VALUE.
IF UNEQUAL, THE
ERROR FLAG (WCERR) IS SET IN GROUP & ERROR FLAGS (GRP4ER)
JSR

R4, CHKW(C

MOV

(R&) + ,EXPW(

JSTCRE EXPECTED VALUE

(MP

ExPWC, T.WC

; COMPARE

.WCRD

BEQ
BIS
MOV

RTS

1%
#W(ERR,GRP4ER
T.WC,REALWC

JEXPECTED Ww( VALUE

;EQUAL - SKIF
¥ :SET ERROR FLAG
;STORE REAL WORD COUNT

:RETURN.

10262
10263
;gggg

.
.
*

BUS
ADDRESS AT END OF OPERATION CHECK
THIS ROUTINE COMPUTES THE EXPECTED BUS ADDRESS AT THE END OF
A TRANSFER BY USING THE INITIAL BUS ADDRESS, ADDING IN THE

10266

[F BuUS ADDRESS

INITIAL WORD COUNT, AND SUBTRACTING ANY RESIDUAL WORD COUNT.
IF THIS COMPUTED BA DOES NOT EQUAL THE CONTENTS OF RKBA
AN ERROR FLAG (BAERR) IS SET IN GROUP & ERROR FIELD (GRP4LER)

INCREMENT

INHIBIT WAS SET,

THE EXPEZTED BUS

19267
10298
10269

10270

10279

;8539

MOV

RO,=(SF)

R3,~(SP)
#BAI,L.(S2
L.BA EXPBA

010346
(032737

000020

001610

MOV
BIT

013737

001604

050040

MOV

037446

10276
10277
10278

(HKBA:

037436
037436

10276

10275

LDDRESS IS "HE STARTING BUS ADDRESS.
JSR
R4, CHKBA

010046

037432

0272
10273

X
;*CALL:

037430

10271

037446

037454
337456
(37460
037464

010746
001404

000441
013700
005400
113703

001602

MOV

BEQ
4%

001607

BR
MOV
NEG

MOVR

TST
BPL

RO
5%

sTEST IF INITIAL
JNO - SKIP

RO
L.BA,RD

;SHIFT WORD COUNT TO MAKE MEM ADL
;ADD IN START BUFFER ADD

005700
100001

t$:

10289
10290

037514
037516

006300
063700

0016C4

5%:

ASL
ADD

013701

001542

9%:

MOV

'0291

10262

10293
10294

037522
037524

037530
037532

10295
10296
10297

037534
037536
037540

10299
10300

037544
037546

10298

10301
10302

10303
10304

10305

103C¢

10307

10308
10309
10310
10311
1312
0313
10314
10315

;gggg

10318

10319
10320

10341
1032¢

037542

037550
037554

005203

005503
001411
005401

005701
100001
005303
160100
005603

{10337
010037

7%:

050036
050040

037560

020037

037566

052737

000004

113703

001541

037564

037574

037602

037606
037612
037616
037620
037626
037632
037634
037636

037640

001406

013737
042703
020337
001405
052737
010337
012603
012601
012600

INC

AD(

BEQ
NEG

TST
BPL

006301

1%:

001544

00154«

1%:
050072

(050054

177774
050036

000002
050052

2%:

050072
8%:

000204

LSBTTL

.
..

JCLEAR (INWANTED BITS

;SKIP

:BUMP BA16,17

Wl BIT 15 SET

(32K WORD XFER)

:GET END OF

1%
R1

:BRANCH IF

OPERATION WORD

ZERO

COUNT

DEC

;TEST END OPERAT]ON w(C BIT 15
:NO - SKIP
:DEC BA "6,17 (32K WC LEFT)

SUB
SB(

R1,RC
R3

:SUB FROM COMPUTED BUS ADDRESS
:SUB CARRY FROM BA16,17

ASL

MOV
MOV

R3,EXPUBA
RO,EXPBA

CMP

RO, T.BA

BIS

#BAERR,GRP4LER

MOVAR

T.CS1+1,R3

BEQ

MOV

BIC
CMP
BEQ
BIS
MOV
MOV
MOV
MOV

C(NT

:IF CARRY = ADD INTO BA16,17

T.WC,R1

R1
7%
R3

RTS

o
.

:TEST IF INITIAL WORD COUNT 0
INO = SK]IP
;ADD 2 TO BA16,17 (65K WORD XFER)

037506
037510
037512

INITIAL WORD (OUNT

RO
6%
#2,R3

10286
10287

10288

JGET

;STORE EXPECTED BA (SAME AS STARTING BA)

ST
BNE
ADD

005700
001003
062703

000002

3
L.WC,RO
RO

8177774 ,R3

037474
037476
037500

000407

‘NO - SKIP

B8IC

0282
10283
10284

037504

177774

:TEST IF BA] SET

;GET BA16 & BA17

0427G3

SE3 G190

R1,=(SP)

L.CS1+1,R3

037470

10285

:SHIFT

TO MAKE

MEM ADD

;STORE

EXPECTED UPPER BA BI”S
:

SET

(N7

;EQUAL TO COMPUTED?

T.BA,REALBA

8177774 ,R3
R3,EXPUBA
8%
#URBAERR,GRP4ER
R3,REALUB
{(SP)+ R}
(SP)+,R1
(SP)+,R0

JYES -

;ELSE

SKIP

SET BAERR FLAG

;STORE REAL BUS ADDRESS

:GET REAL UPPER BA

;CLEAR UNWANTED BITS
;CHECK IF EQUAL
JYES - SKk!IP
;ELSE SET UBA ERRCR
;STORE REAL UPPER BA

CYLINDER,TRACK,SECTOR TEST AT END OF

THIS ROUTINE CHECKS
ARE CORRECT ®(OR ANY

THAT
SIZE

OPERATION

THE CONTENTS OF THE RrDCYL AND RKCA
DATA TRANSFER AT THE END OF THE

OPERATION.
THE (ONTENTS OF THE LOAD REGISTER STORAGE APE
COUNTED ON TO HAVE THE INITIAL VALUES TO MAKE THE

I 15
MACYTT 30(1046)
28-AUG=81
15:17 PAGE 9
BUS ADDRESS AT END OF (QPERATION (HECK

TIR6KGD RKG FUTNL (TRL DIAG
TIR6KG. P11
2B=ALG=8" 15:16

J 15

NECESSARY CALCULATION.

ALL

1064413

013700
005400
013701

001401
005401

%
*

ALL:

CHKCTS:

001¢C2

THREE

JSR

001542

SAVREG

MoV
MoV

108:

005001

162700

STORED

BEQ
NEG
SuB
(LR

L.WC,RO

;GET

SPECIFIED

T.WC,R1

;GET

END OF

JNEGATE

10$
R1
R1,RO
R1

TRANSFERRED

000771
05700
001401
005201

GENERATED AND

IN EXPECTED VALUES

WORD

COUNT

OPERATION WORD

(OUNT

;IF 2ERO - SKIP
sNEGATE IT
;COMPUTE ACTUAL WORDS TRANSFERRED
:CLEAR RT FOR COUNTING

THE FOLLOWING CODE DETERMINES HOW MAY SECTORS OF DATA HAS BEEN

10341
022700
003004
005201

ARE

SEQ C19

R4, CHK(CTS

NEG

160100

VALUES

OPERATION

STORAGE EXPCYL, EXPTRK, EXPSEC.
ALL 3 ARE CHECKED AND
IF ONE OR MORE ARE WRONG, THE CORRESPONDING BIT IN THE
ERROR FLAGS FIELD (GRP4ER) S SET.

B
*

-3

®y

B0
", B
e e,

30(1046)
28-AUG-81
15:17 PAGE 192
CYLINDER, TRACK,SECTOR TEST AT END CF

MACYIT

2O 00 ~JONN
& (V]

N N AN AN NN N NN NN o
NN N NN N NN PO PO RO DO N ~n

NN
NN

NN U U

0~ ANHAN

[ OO

-—d

D ed

D ed il

b oy

olelelsleloleolelplelololsloleolsle] o

b —

CIRGKGD RKE FCINC (TRL DJAG
TIROKG,. P!
28-4yG~81 15:1%

THE

OPERATION.

ONCE

END OF OPERATION VALUES FOR THE
1S CALCULATED.
(MP
#400,R0
BGT
2%
INC
R1
SUB
#400,R0
BR
1%

000420

000400

J00026
010000

001600

BIT
BEQ

000024
001€14
001607

MOV

050042

177400

5%:

000007

05004¢

TRACK,

THAT,

THE

AND SECTOR

SECTOR WAS

#26,R?

TRANSFERRED.

HCFMT,L.CST

4%
424 ,R3

R3 HAS BEEN SET UP WTH THE NUMBER

001606

050042

COMPUTED

BEQ
3$
INC
R1
AT THIS POINT R1 HAS A COUNT CF THE
NUMBER OF FULL SECTOR TRANSFER + 1 IF

PARTIAL
MOV

HAS

CYLINDER,

¢$:

OF SECTORS IN A TRACK FOR THE FORMAT USFD
MOV
L.DCYL EXPCYL
;GET STARTIMNG VALUES FOR CYLINDER
MOVB
; TRACK
L.DT R4
#177400,R4
81C
MOVB
L.DS,RS
JSECTOR
#177400,RS
8IC
R1
DE(
JADJUST COUNT FOR ZERO DETECTY
INC
;BUMP SECTOR COUNTY
(MP
;DID THIS MAKE SECTOR COUTN > 1 TRACK?
BNE
;NO - SK]IP

CLR
INC
(mp
BNE
(LR
INC
DEC
BNE

MOV

JELSE CLEAR SECTOR COUNT
;BUMP TRACK COUNT
;DID THIS MAKE TRK COUNT > 1

JNO -

R4 ,EXPTRK

SKIP

JELSE CLEAR TRACK COUNT
;BUMP (YL INDER COUNT
;JDEC COUNT
J1F ZERD = EX]T
:STORE EXPECTED

TRA(K

(Y! INDER®

10382
10383

0384

10385
10386
10387

10388

10389
10390
10391
10392
10393
10394

10395

10396

10397

10398
10399
10400
10401
10402

040032
040034
040042

040046
040050
040056
040062
040064
040072
040076
040102
040106
040112
040116
040120
040124
040126

050044
001560

10380

10381

040020
040024

NN
O

10379

O=—=0O—=000O0O0O0
0O 2O0O

403

MACY11

000010
007547
000020
001546

050072

000040

050072

7%:

8%:
G%:

001546

RTTL

10415

10416

10417

10418
10419

10420

10421
10422
10423
10424

10425

10426

10627

10428
10429
104630
10431
10432

10433
10434

15:17

RS, EXPSEC
TsDCvL.ExPCYL

BEQ
BIS
(MPB
BEQ
BIS
(MPB
REQ
BIS

#CYLERK, GRP4ER

RS, T.DA+1

¢NO = SET ERROR FLAG
JTEST TRACK 0K

#SECERR,GRP4LER

:YES - SKIP
JUSE SET ERROR FLAG

#REALWC
RO
T.WC, (RO

JTEST

SECTOR

COUNT

;STORE REAL WORD COUNT
;STORE REAL BUS ADDRESS
;STORE REAL CYLINDER ADDRESS

T.BA,(RO)+

T.DCYL,(RO)+
T.DA+1,(RO)
(RO)+
T.DA,(RL

;STORE

REAL

TRACK ADDRESS

;STORE REAL SECTCR ADDRESS

OPERAT.ON (HECK ROUTINE
THIS

JSTORE EXYPECTED SECTOR (CYL ALREADY SLOW)
:TEST 1F CYLINDER 0K
JYES - SKIP
JYES - SKIP
sNO = SET ERROR FLAG

RS, T.DA
9$

MOV
MOV
MOV
MoV
MOVB
TST
MOVB
RESREG
RTS

SEQ 0192

#TRKERR
, GRP4ER

WHERE

ERRORS ARE

ALL

HARDWARE

CHECKED.

ERROR

INDICATORS

THE GENERAL PROCEDURE

AND SOME
SOF TWARE
FLOW IS AS FOLLOWS:

THF ROUTINE IS CALLED WITH A TRAF (T(HKOP). THE LOCATION
FOLLOWING THE TRAP CALL WILL HAVE AN ERROR TRAP WHICH
THE ROUTINE WILL BYPASS IF NO ERROR IS FCUND.
ERROR IS DETECTED, THE ERROR TRAP (CALL IS MODIFIED

10403

1040G4
10405
10406
10407
10408
10409
106410
10411
10472
10613
10414

28-AUG=81

MOv
(MP

050042
050072

050050
001542
001544
001560
001547

K 15
PAGE 193
CYLINDER,TRACK,SECTOR TEST AT END OF OPERATION

30(1046)

BY
BE

THIS ROUTINE SUCH THAT THE ERROR TABLE [TEM WILL
THE FORMAT REQUIRED BY THIS
THE PROPER ITEM FOR

ERROR.

THE ERROR TRAP WILL BE MADE EITHER ERROR 4.,5,6,

10.

REFER

ESR;HE FORMAT
AT.

040130
040132
040134
040140
040144
040150
040152
04C160
040162
040164

040170
040172
040176
040202
040206
040212
040216
040224
040226
040234

:
CHKWE

001242
001244
00124¢
177777

001250
(HKOP:

001250

CHKST:

06
024000

001540

177400

001550

SAVREG
MOV
MOV
MOV
MOV
MoV
MOV

TO THE

AND WHICH

ERROR

ITEM

ERRCRS

TABLE

ARE

FOR A DESCRIPTION

DISPLAYED

IN WHAT

JGET POINTER TO ERROR WORDS

(SP) ,RO
(RQ)+,$TMP1Q
(RQ)+,$TMP1
(RO)+,8TMPT?
RO, (SP)
#-1,8TMP13
CHKST

SAVREG
(LR

$TMP13

JRESET EXPECTED ERROR FLAG

TGE TRK

CLR
CLR
CLR
CLR
CLR
BIT
BNE
BIT
BNE

GRP1ER
GRPZER
GRP3ER
GRP4ER

GPSUMF
#CSTERBIT,T.(ST
31
#(CSCERBIT,T.(S2
4%

JSTORE

EXPECTED ERROR GROUP 1

;STORE EXPECTED ERROR GROUP 2
;STORE EXPECTED ERROR GROUP 3
;STOR E RETURN
JSET FLAG - EXPECTED ERROR

;GET 611 REGS I0 TRAP
JCLEA R ERROR FLAGS

SCL EA R SUMMARY FLAGS
:TE ST IF ERROR SET IN (S1
:YE S = SKIP
;T EST IF ERROR SET [N (S¢
2y E S

= SKIP

CZREKGO RKE FUTINL CTRL DIAG
CIR6KG.PTT
28=-AUG-81 15:16

10435

10436

10437
10438

10439

10440

10441

104642
10443

000070

040236
0460244
0460246
0460252
0460254
040262
040264
040272

MACY11

001552

001554
001540

100000

050064

041022

040276
040302
040304
040310
040314
040320
040324
060326
040332
040334
040340
040342
040346
040352
040356
040360
040366
040372
040374
040376
040400
040402
040404
040412
040420
040426
040430
040436
040440
040440
040442
040446

005737
001402
000137
013700
042700
022700
002445
022700
003042
004437
000000

004437
004437
005737
001430
016037

013700
005001
006200
103402
005720
000774
016037
016037
016037
104414

012776
000002
104414

062716
000002

9%
#CERNER,GRPT1ER
25%

001250

9%:

041022
001540
177741
000020

62%:

000030
037376

050210
050072

1%:

THE

CRDER OF

001450
001202
001204

000010

000000

2%:

000002

OQOOO
OO\
EE RSy
)
(9L 1V,
[ ]
wvaon
OO

040450
040454
040460

TST

THE

ABOVE

;COMBINED ERROR SET?

:NO - SKIP
;SET ERROR FLAG IN GROUP 1
:SKIP

END OF

THE

OPERATION.

CONDITIONS ARE

PRIORITY

$TMP13

IN ER

CYLINDER,

THIS

IS DONE

(HECKED AND A BIT

TRA(K,
ONLY

SET

FOR

HOWEVER, ONLY ONE ERROR IS REPORTED.

FOR REPORTING

THE

ERROR

;TEST

T.(S1,RO

JGET

CST

R4, CHKWC

s CHECK WORD COUNT

GRP4ER

;ANY GROUP &4

THE

ORDER

ERROR EXPECTED

62%
25%

BIC
cMp
BLT
(MP
BGT

#177761 ,R0
#20,R0
3%
#30,R0
38

.WORD
JSR
JSR

0
R4, CHKBA
R&,CHKCTS

BEQ
MOV
MOV
(LR

3%
:NO - SKIP
CMNDLB(RQ) ,DFO10A ;LOAD ADDRESS OF COMMAND MESSAGE
GRP4ER,RO
JPUT GROUP & ERROR FLAG IN RO
R1
;CLEAR R1 FOR INDEX COUNTER

MOV

ASR

BCS

RESREG
MOV
RTI

RESREG

MOV
MOV

MOV

;NO - SKIP
;YES = JUMP

;CHECK IF OPERATION IS READ DATA,
JWRITE DATA, OR WRITE CHECK. IF
JNOT, SKIP ALL CHECKING IN GROUP
;FOUR
JEXPECTED WORD COUNT
s CHECK BUS ADDRESSS
JCHECK CY', TRACK, & SECTOR
ERRORS?

;SHIFT

(RO)*

JWHEN AN ERROR BIT

#10,a(SP)

JRESTORE REGISTER
sMAKE THE ERROR CALL POINT TO
;RIGHT TABLE ENTRY & RETURN.

BR
MoV
MOV
MOV

ADD
RTI

SET

IN DS

BEQ
JMP

TST

050074
050034
050050

ERROR

CERR NOT SET BY THE OPERATION.

TST

061072

TO CHECK WORD COUNT, BUFFER ADDRESS,

SECTOR AT

JSR

037430
037642
050072

JTEST

#(ERR,T.(CS1

ALL

THE
NN N

10488
10489
10490

BEQ
BIS
JMP

LISTED ABOVE.

—d
el —

10487

JYES - SKIP

T.ER

EACH CHECK THAT FAILS.

rorOND

10481

10482
10483
10484
10485
10486

0459

BNE

AND

10446

10460
10461
10462
10463
10464
10465
10466
10467
10468
10469
10470
10471
10472
10473
10474
10475
10476
10477
10478
10479
10480

,TEST IF ERROR SET
JYES - SKIP

CODE

10445

10447
10448
10449
10450
10451
10452
10453
10454
10455
10456
10457
10458

#DSERBIT,T.DS
49

BIT

10444

SEa (193

BIT
BNE
TST

1000C0

L 15
PAGE 194

30(1046)
15:17
28-AUG-81
OPERATION CHECK ROUTINE

FLAGS = FIRST ONE ON RIGHT

;BE REPORTED, REST ARE
IS

IGNORED

IS ERROR

FOUND,

1%
JGET THE ERROR MES>AGE ASSOC IATED
GRP4MS (RO) ,EMION ;WITH IT AND SET ERROR TABLE ITEM TO
EXPWC(RO),$REGT0 :POINT TO“THE MESSAGE. LOAD REGIO & 1
REALWC (RO, SREG11 ;WITH EXPECTED & 1S VALUES

#2,(SP)

;BUMP RETURN PAST
sRETURN

FOLLOWING CODE BUILDS

#GRPTER,RO
AT.(S1 R

#T.CS2.R3

THE

GROUP 1,2,

;SET UP GENERAL
b ]
;S |

;(S 2

THE

ERROR
& 3 ERROR WORDS.

CYM

CZR6KGO RKE FCTINL CTRL DIAG
CZR6KG. P
28-AUG=-81 15:16

#ILFECH.BSE.HVRC.OPI.DCK,(RO)

032711
001402
052710

020000

BI7
REQ
8IS

#SPAR, (R1)
5¢
#SPARERR, (R0)

BIT
BEQ

#ACLO, (R4)
6%

sNO - SKIP

6%:

BIT
BEQ
BIS

#SPDLSS, (R&)
7%
., (R0)
#SPDERR

;TEST SPEED (0SS SET
JNO - SKIP
;SET SPEED LOSS ERROR FLAG

7%:

BIT

BFQ
BIS

., (R&)
#DROT

8$
#DROTERR, (RO)

;NO - SKIP
;SET DROT ERROR FLAG

sTEST

Rs:

BIT
BNE
8IT

#CERR, (R1}
108
, (RO)
#NCERWE

sTEST

CERR

10%:

MOV

#GRP2ER
RO

;SET POINTER TO GROUP 2 ERROR ©LAGS

BIT
BEQ
BIS

#ECH, (RS)
11§
#ECHERR, (RO)

JTEST

;NO - SKIP

11%:

BIT
BEQ
BIS

#DCK, (RS)
128
#DCKERR, (RO}

;TEST DCK SET
.NO - SKIP
JSET DCK ERROR FLAG.

12%:

BIT
BEQ
8IS

#UCE, (R3)
120%
#WCKERR, (RO)

;TEST WRITE CHECK ERROR
JNO - SKIP
;SET WCE BIT

000100

040602

040606
040610

032715
001402
052710

100000

040614
040620
040622
040626
04C632
040634

032713
001402
052710
032713
001402
052710

040000

040640
040644
04064¢

032715
OO

N
NS
=0
O

020000

040652
040656
040660

OO0

NSNS

545

040664
040670
040672

OO0

=N
NE&EN

000007

000002

000004

100000

—_

000200

ECH

#0P1, (RS)
14$
#OPIERR, (RO)

JNO - SKIP
JSET OPI ERROR FLAG

14%:

BIT
BEQ
BIS

#HVRC, (RS)
16$
#HVRCERR, (RD)

sTEST HVRC
;NO - SKIP

BIT
BEQ
BIS

E
, (RS)
#BS
178
#BSERR, (RO)

;TEST BSE

16%:

B O

BIT
BEQ
BIS

13§
#DLTERR, (RO)

TOYAMO

JSET ECH FLAG

13¢%:

BEQ
BIS

SET

;TEST

000040

000100

SET

#DLT (R%)

000020
000400

ITSELF

JYES - SKIP
;JSET NO CERR WITH ERROR FLAG

BIT

120%:

000010

O
—

032715
001402
052710

040570
040574
040576

SET

DATA LATE

:NO - SKIP
;SET DLT ERROR FLAG
JTEST OP]

SET

JSET HVRC FLAG

T AN MIMIAM

050066

040564

DROT

020000

JSET ACLO ERROR FLAG

e T NI
AP T B
WML

000400

SET

000200

#ACLOERR, (RO)

sTEST ACLO

100000

040552
040556
040560

BIS

000100

SET

sNO - SKIP
;SET SPAR ERROR FLAG

000040

5¢:

SPAR

THAT DON'T BELONG GRP1

000020

OO0

000010

CLEAR ALL

000001

JTEST

;

XY OYNMN
DO UD

BIC

120701

JSET ALL BITS IN GRPTER THAT
- CORRESPOND TO ERROR BITS IN RKER

ERROR FLAG

JNO = SKIP
JSET BSE FLAG

040540
040544
040546

(RS), (KO)

O &~

040526
040532
040534

BIS

040514
040520
040522

.DS
JAND ER

= O 00NN
W
=200

mmmmmmmwmmwmmmg
POMNOMNUND
=
e
2l
b

B
LR
i
N
e R

COOCODOOOODCOOO0O0O0O

10508

040502
040506
040510

SEQ 0194

#7.DS
R4

QOMN=

10507

042710

195

WViOW
o=
NS

10505
10506

040476

PAGE

#7T.ER.RS

OO0

10500

10501
10502
10503
10504

051510

MOV

M 15

MOV

VIOW
=N
NN

10499

040474

15:17
30(1046)
28-AUG~-81
OPERATION CHECK ROUTINE

001552
001554

VIOW
=N
NN
—_
—
O

10497
10498

012704
012705

OO0

10495
10496

040464
040470

N
ON

10491
10492
10493
10494

MACY11

EZRbKGO RK& FCTNL CTRL DIAG
IRE6KG.P11T
28-AUG-81 15:16

050070

040702
040706
040710

032713
001402
052710

010000

040714
040720
040722

032711

004000

052710

000002

040726
040732
040734

032713
001402
052710

000400

040740
040744
040746

032713
001402
052710

001000

040752
040756
040760

032713
001402
052710

002000

040764
040770
040772

032713
001402
052710

004009

573
574
575

040776
041002
041004

032713
001402
052710

020000

041010
041014
041016

032715
001402
052710

(W AV, IV LV,

i
R
e
e
e
e
R
R
g

OOOCCOOOOOO0O

)

10563

001402

MACY11

N 15

30(1046)
15:17
28-AUG-81
OPERATION CHECK ROUTINE
17%:

000001

196

SEQG C195

MOV

#GRP3ER,RO

JSET POINTER

BIT
BEQ

#NED, (R?)
18%

JTEST NED SET
JNO - SKIP

BIT

#(T0, (R,

BIS
18$:

PAGE

ANEDERR, (RO)

TC GROUP 3 FLAGS

JSET NED FLAG
JTEST

CTO SET

BEQ
RIS

19%
#CTOERR, (RO)

;NO - SKIP
JSET CTO FLAG

19%:

BIT
BEQ
8IS

#UFE,(R3)
208
#UFERR, (RO)

JTEST UFE SE7
sNO - SK]®
JSET UFE FLAG

20%:

BIT

AMDS, (R3)

JTEST MDS

218:

BIT
BEQ
B1S

#PGE , (R3)
22%
#PGERR, (RO)

JTEST PGE SET
;NO - SKIP
JSET PGE FLAG

22%:

BIT
BEQ
BIS

#NEM, (R3)
23%
#NEMERR, (RO)

JTEST NEM SET
JNO - SK;P
JSET NEM FLAG

23%:

BIT
BEQ

BIS

#UPE , (R3)
24%

#UPERR, (R0O)

JVEST UPE SET
;NO - SKIP

010001

BIT

#ILF, (RS)

JTEST

000200

BIS

#ILFERR, (RO)

;SET

000004

000010

000020

000040

000100

BEQ
BIS

218
#MDSERR, (RO)

BEQ
THE

THE

FLAG

TEMP11,

CODE

IN $TMP13

AN ERROR WAS
THE
THE

ILF

;NO - SKIP
ILF

EXECUTED

INDICATES

EXPECTED AND

TEMP12

THE

SET

FLAG.

ONLY

ERRORS WERE

CONTENTS OF

SPECIFY WHICH ERRORS.

TMP10,

THESE

ARE

EXPECTED.

COMPARED AGAINST

ERRORS FOUND AND STORED IN GRP1ER, GRPZ2ER, AND GRP3ER.
CONTENTS OF GRP1,2, & 3 ARE MODIFIED TO INDICATE ERRORS

OCCURRED BUT WERE

JSET UPE FLAG

25%

FOLLOWING

SET

;NO - SKIP
;SET MDE FLAG

NOT EXPECTED.

THE

CONTENTS OF

$TMP10,11,

& 12 ARE MUDIFIED TO INDICATE EXPECTED ERRORS THAT DID NOT

041040
041042
041044
041046
041050
041052

VSN
SOW—=—=O

041022
04102¢
041030
041034

jelsleleleBolelele]
—_——-a OO

ggfg?fiog?gg CONDITIONS

001250

25%:

050064
001242
26%:

CAN EXIST AT

THE

SAME

TIME AND MUST

TST

$TMP13

MOV
Mov

#GRP1ER ,R4
#$TMP10,RS

;CHECK IF AN ERROR WAS EXPECTED
sNO - SKIP
;GET ADDRESS OF ERROR
;GET ADDRESS OF EXPECTED ERRORS

MOV
MoV

(RS) RO
(R4) ,R1

JGET EXPECTED ERROR
sGET GROUP ERROR fLAGS

sCLEAR OCCURED

BEQ

(MP
BNE
CLR
(LR

1108

RO,R1
27%
RO

JARE THEY EQUAL?
sNO - SKIP
sCLEAR EXPECTED ED

THAT

F2AXCreXAOAMMOAMAMP
B
AC
e T O NMNMNOOAM>
&

012700

00 ~N~N~N
OO0~

B
el
e
b red
ed e
d
— et

0640676

o lelelolelelololalalole]
N \%al¥,] AR
A IV I IV, IV
o oo 9, (O AV LV IV, IV, LV, IV, ]
o —O O OO NOMN
B NN

ed ok

CIR6KGD RK6 F(T
CTRL DIAG
TIR6KG.P1
28=-AUG=-81 15:16

MACY11 30(1046)

CZR6KGC RKG FCINL (TRL DIAG

TIRG.P1T

28-AUG-B1 15:16

;8g82

041054

000403

10605

041056

01003

10606
10607

10608

10609
10610

}821L

Pd)

041060
041062

041064

0461074

,10613"

10614 »

10615

27%:

010025

C1 0124
82 %705

10616

361

001250

28%:

RO.R3
R1.RO
R3,RT

RO, (R5) +

B 16

BNE

;STORE EXPECTED ERRORS
|

#$°MP13 RS

268

;RESET EXPECTED THAT OCCURRED
;RESET OCCURRED THAT EXPECTED

;STORE EXPECTED THAT DID NOT OCCUR

;STORE OCCURRED THAT WERE NOT EXPECTED
JALL GROUPS CHFCKED.

:NO - LOOP

THE FOLLOWING CODE:
A.

DETERMINES WHICH FORMAT

ERROR TABLE ITEM AND FRRMAT FIELD
COUNTS THE NUMBER OF ERRORS THAT MUST BE REPORTED

B. LOADS THE ADDRESSES OF

;
;

IS TO BE USED

JHE ASCIZ TEXT INTQ THE SELECTED

D. GETS DRIVE STATUS IF GROUP 1 ERROR.

10621

;

THE DECISION OF WHICH ERROR IS TO BE USED

;8252

;
;
;

10627

;

10630

10628
10629
10631

10632
}gggz

10640
10641
10642
10643
10644
10645

10646

10647
10648
10649

10650

}8225

THE FORMAT TO BE USED IN THE CONTROLLING FACTOR IN HOW THE

;
;

ERROR TRAP 1S CHANGED IN THE MAIN CALL. IF GROUP 1 FORMAT IS
USED THE ERROR TRAP WILL BE CHANGED TO ERROR 4 OR S(DEPENDING ON

;

6. AND GROUP 3 WILL BE ERROR 7. ONLY THE LOW ORDER BYTE

AVAILABILITY OF DRIVE STATUS), GROUP 2 FORMAT WILL BE ERROR
OF THE ERROR TRAP WILL BE ALTERED. THE SP wILL BE
POINTING TO THE LOCATION THAT CONTAINS THE ERROR CALL

041076

041100
2
041106
041112
041116
041122

041126

041132
041136
041140

041142

041144

041150

10657
10658

041164
041170

041152041156
041160

005004

005005

1108:
001224
001226
05020%
061052
001442

050070

036242

STATUS, ERROR 5 IS USED. ERROR 5 INCLUDES A WARNING MESSAGE.

(LR

CLR
MOV
MOV
MOV
MOV
MOV

MOV

JSR
ST
BEQ

ADD

000004

BIS

001250

ST
BEQ
MOV

001246
036242

TRAP.

1F THE STATUS IS READ FROM THE DRIVE WITH NO PROBLEM,
ERROR & IS USED. IF ANY ERROR IS ENCOUNTERED READING

;

10653

10654
10655
10656

FLAG SET IN GROUP 3 ONLY, GROUP 3 (ERROR 7) 1S USED.

.
;

}82§§

10639

IS BASED ON THE ERROR GROUP (QR GROUPS) THAT HAVE
f AGS SET. IF ANY BIT IS SET IN GROUP 1,2, OR 3, GROUP 1 FORMAT (ERROR & OR S)
WILL BE USED; ANY SET IN GROUP 2 OR 3, GROUP 2 (ERROR 6) WILL BE USED; AND A

:
;

10635
10636

SEL (19¢

;

10622
10623
10624

)

PAGE 197

R1,(R4)+

(MP

;

‘

MOV

;

}8258

28%

MOV

BR
BIC
BIC

;

10617
10618

15:17

OPERATION CHECK ROUTINE

(0100
04030

061066
041070

28-AUG-81

TST

JSR
ST

RS
#$TMP1,RO
#$TMP2 R
#GPSUME ,R3
#DFO07A, (RO)
#DH7N, (R1)

;CLEAR COUNTERS
;LOAD POINTERS FOR TEMPORARY STORAGE OF
;WHERE ASC]Z ADDRESSES GO
;POINTERS TO GROUP SUMMARY FLAGS
;PRESET FOR GRP3 ERR MESSAGE BUILD

GRP3ER, - (SP)

:GET GROUP 3 ERRORS, PUT ON STA(K

(SP) RS

:ADD IN ERROR TOTAL

R4 ,BITCNT
(SP)
29%

#GRPSST, (R3)
(SP)+

$TMP13
31%
$TMP"2,-(SP)
R4 ,BITONT
(SP)

ADDRESS

;GO
COUNT NUMBER AT ERRORS
:ANY ERRORS?
;NO - SKIP

;SET BIT TO INDICATE GRGUP 3 ERSOR
;CLEAR OFF

STACK

;ERROR EXPECTED
;NO - SKIP
;PUT GROUP 3 NOT RECE]VED ERRCRS ON STA(K
:COUNT NUMBER OF ERRORS.
SWERE THERE ANY

MA(Y11

TIREKGO RK6 FCTNL CTRL DIAG

10661
10662
10663

001403
052713
061604
005726
013746
004437

10664
10665
10666
10667
10668
1066%
10670
10671
10672
10673
10674

'0687

001244
036242

10684
10685

10686

10687
10688

10689

10690
10691

10692

10696
10697
10698
10699
10700
10701
10702

000020

041300
041302
041306
041312
041314
041316
041322
041324
041330
041334
041336
041342
041344
041350
041354
0461356

061026

005726
013746
004437
005716
001407
052713
061605
012710
012711
005726
005737
001416

238

050064
036242

001250

35%:

001242
036242

Y =
)
=t s

roronNO

OO0

060742
001412
000011

R4 ,BITCN:
(SP)

34%:
60%:

51¢.

;NO - SKIP

JSET GROUP 3 NOT RECEIVED ERROR FLAG
;ADD COUNT

TO TOTAL

THESE

;CLEAR OFF STACK
JGET GROUP 2 ERRORS FOR COUNTING
;COUNT BITS
JANY

JNO -

SET?

SKIP

(SP) RS

(SP)+

;CLEAR OFF STA(K

34%
$TMP11,~(SP)

;NO - SKIP

#GRP2ST, (R3)

MoV
MOV

#DFO06A, (RO)
#DHON, (P1)
.

SE3 C197

;SET FLAG FOR GROUP 2 ERRORS
;ADD INTO TOTAL

BIS

$TMP13

R4 ,BITCNT
(SP)

33%

JSTORE ADDRESS FOR BUILDING RFPORT

JANY

’

EXPECTED ERRORS

JGET GROUP 2 NOT RECEIVED ERRORS
s COUNT NUMBER OF BITS
JANY

SET?

;NO - SKIP

ADD
MOV
MOV

#GP2NR, (R3)
(SP) ,R4
#DFQ0RA, (RO)
#D0H6, (R1)

>ADD INTO TOTAL
;STORE ADDRESS FOR BUILDING REPORT

TST
MOV

GRP1ER,-(SP)

(SP)+

;CLEAR OFF STA(K

R4 ,BITCNT
(SP)

;COUNT THE NUMBER Of BITS

35%

ADD
MoV
MoV
TST

#GRP1ST, (R3)
(SP) ,RS
#DFO04A, (RO)
#DH4N, (RT)
(SP)+

MOV

$TMP10,~(SP)

vST
BEQ

JSR
TST
BEQ
BIS
ADD

04000C
03676¢
060772
001422
040000

328

BEQ
BIS

000010

10703
10704

TST
REQ

JSR
TST

000001
060742
001412

GRP2ER,-(SP)

BIS

001432

041274

MOV

TST
TST
BEQ
MOV
JSR
TST
BFQ

001250

—t ek 2 O ON— =2

10679
10680
10681
10682

(SP)
¢+

ADD

06106
001432

10675

TST

JSR

000002

10676
10677
10678

muD

#GP3NR, (R3)
(SP) ,R4

253

000040

C 16
PAGE 198

30%

REQ

10660

061172
061174
041200

15:16

[a¥Te

10659

28-AUG=-81

rIR6KG.PIT

30(1046)
28-AUG-81
15:17
OPERATION (HECK ROUTINE

MOV
MOV

TST
BIT
BEQ
8I(
JSR
BR
BR
MOV
MOV

BIS

$TMP13
60%

R4 ,BITCNTY
(SP)

36%

#GPINR, (R3)
(SP) R4
#DFQ04A, (RO)
#DHLN, (R1)
+
(SP)

JSET FLAG FCR GROUP 2 NOT RECEIVED

:GET GROUP 1

ERROR FLAGS

JANY SET?

;NO - SKIP

;SET FLAG FOR GROUP 1
JADD INTO TOTAL

ERRORS

SE”

.LOAD ADDRESS FOR BUILDING REPORT

;CLEAR OFF STACK

;ANY EXPECTED ERRORS?

JNO - SKIP

:GET GROUP 1 NO RECEIVFD ERROR
JCOUNT # OF BITS
JANY SET?

;NO - SKIP
JSET FLAG FOR GROUP 1 NOT RECEIVED
JADD INTO TCTAL
;LOAD ADDRESS FOR BUILDING REPORT
;CLEAR OFF

STA(K,.

gg§P1ST!GP1NR.(R3) ;ANY GROUP 1 ERROR
#DRSTER, (R3)

R4 ,GETDRS

51%
52%
#DFQO5A, (RO)
#DHSN, (R1)
#DRSTER’, (R3)

;NO - SKIP

;ERROR RETUPN
sNO ERROR RETURN

°
;CHANGE TO FORMAT 5 - STORE ACDRESS
;FOR BUILDING REPORT
JSET DRIVE STATUS ERROR

CIREKGD RK6 FCTINL C(TRL DIAG
JIROKG.P1T
28=-AuG=-81 15:16
10715
10716

MACYTT

061436

Ve B NN, NN, S, B,y

10718
10719
10720
10721
10722
1072%

10724
10725

10732
10733
10734
10735

Vs G S B, Sy B e

16736
10737

19738

0739

10755
10756
10757
10758
10759
10760
10761
10762
10763
10764

10765
10766
10767
10768
10769
16770

047436
041444
041446
041452
041456

032777
001402

000137
005737
001004

020000

137474

042034
001250

37%:

057745

000000

05756¢€
000070

000000

057663
001540

000000

041516

012771
000411
012771
032713
001003
012771
013701
042701

041522

016770

05021C

000000

041530
041534

032713
0014¢€2

000007

177741

38%:

140%:
40%:

THE

NUMBER

ERRORS

GROUP
GROUP
GROUP
GROUP
GRP3ER CONTAINS GROUP

ERROR

ITEM

THE

ERRORS

OCCURRED

TABLE

THE

PROPER

THAT OCCURKED BUT WERE

NONE

WERE

EXPECTED

CONTAINS
CONTAINS
(CONTAINS
CONTAINS

2 ERRORS
? ERRORS
ERRORS
2 ERRORS

THAT WERE EXPECTED BUT DID NOT OCCUR
THAT WERE EXPECTED BUT DID NOT OCCUR
THAT OCCURRED OR OCCURRED AND WERE
THAT OCCURRED OR GCCURRED AND WERE

BIT
BEQ
JMP

#5W13,aSWR
37%
498

;1S REPORT INHIBITED?
:NO = SKIP
JELSE EXIT

BNE

388,

JYES = SKIP

$TMP13

NO ERRORS WERE

;WERE

EXPECTED,

gggoo7,a<n1)

ERRORS EXPECTED?

$TMP10,11,

#DHO0S,a(R1)
:PRESET HDRMSG = EXPECTED NOT SET
#GPTNR.GP2NR.GP3NR,
(R3) ;ANY NOT RECEIVED ERRORS?

MOV
MOV

#DHO06,a(R1)
1.CS1,R1

IN OPERATION

398

;YES = SKIP

BIC

#177741,R1

;CLEAR ALL BULT COMMAND

MOV

CMNDLB(R1),3(R0)

BIT

#GRP1ST.GRP2ST.GRP3ST,
(R3)

MOV
MOV
CLR
MOV

ALL

THE

;MOVE

TO UNEXPECTED

ADDRESS OF

: INTO REPORT

£19 ARE NOT MEANINGFUL

;HEADER = ERROR

;SET MESSAGE
:GET (S1

MOV
BR
MOV
BIT

468

ERROR

SET

(OMMAND MESSAGE

;ANY GPR ERRORS?

:NO ~ SKIP GPR REPORT

ERRCRS

GRP3ER,R1
#GRP3MS RO
$TMP14
#17.,8TMP15

NOT EXPE(T
NOT EXPE(T

3 ERRORS THAT OCCURRED OR OCCURRED AND WERE NOT EXPET

(R1)=#$TMP2 (ONTAINS THE ADDRESS OF THE HEADER MESSAGE ADDRESS
DF THAT MUST BE ALTERED TO IDENTIFY THE QOPERATION
(RO)=#$TMP1 CONTAINS THE ADDRESS OF THE HEADER MESSAGE ADDRESS
THE ERROR ITEM TABLE THAT MUST BE ALTERED TO PROVIDE A
PROPER MESSAGE TO REPORT.
(R3)=#GRSUMF CONTAIN FLAGS TO INDICATE WHICH OF THE GROUP
ERRQR FLAG FIELDS HAVE ERROR BITS STORED.

BEQ

001254

THE

TIME

$TMP11
$TMP12
GRP1ER
GRPZ2ER

041536
041542
041546
041552

RS CONTAINS EITHER THE NUMBER OF
NOT EXPECTED OR

BNE
39¢:

ADDRESS

PROFER HEADER MESSAGE ADDRESS

CONTAINS THE NUMBER OF ERRORS THAT WERE EXPECTED BUT
DID NOT OCCUR.
,
$TMP10 CONTAINS GROUP 1
1 ERRORS THAT WERE EXPECTED BUT DID NOT OCCUR

041460
047466
041479
041476
041502
041504
041512

THIS

By B Ve Dy B

10731

10754

S?DTkgAE THE
LE.

16729
10730

10745
10746
10747
10748
10749
10750
10751
10752
10753

PROPER HEADER MESSAGE

Wy NN

10728

10743

SEG (198

THE ERRORS ARE COUNTED, FLAGS SET TO INDICATE WHICH ERRORS
ARE TO BE REPOKTED, AND THE ERROR FORMAT HAS BEEN SELFCTED.
THE FOLLOWING CODE WILL TYPE ALL THE ERRORS, LOAD THE

10726
10727

10744

PAGE 199

52%:

10717

10740
10741
10742

D 16

30(1046)
28-AUG~-81
15:17
OPERATJON (HECK ROUTINE

CONTAINED

THE

GPR1,2,3ER(UNEXPECTED

*GET GROUP 3 ERROR FLAGS
JSET POINTER TO GRP3 ERROR MESSAGES
;CLEAR GROUP PRINTING INDICATOR
JPRESET SHIFT COUNT

ERRORS)

(IR6KGO RKG FUTNL CTRL DIAG
“IR6XG. P
28-AUG=-81 15:16

10779

10780

10781

10782
10783
10784
10785
10786

10787

10788
10789

10790

10791
10792
10793
10794

10795

1076

10797

10798
10769
10800

10801
10802
10803
10804
10805

0461606
0461612
041614
041616
0461620
041622

000411

011037
104401

PrQurGrGuiruirguirguirouirauire

OO NN

N
N ST

OOOOOOOOO
00 0o 00 0o o 0o 00 0o 00

68,

4c%:

104401

000000
005305
001362
0004c7

43%:

061624
041626
041630
041634
041636
041642
041646
041652
041654
041662
041664
041670
041674
041700

005713

44%:

041702
041706

005737

100455

001252

013701

050064
050146
001252

001407

012700

005237
000724
001452

ADD

#2 R0

BNE
BR

(18
448

TYPE

,S$CRLF

B(S

DEC

MOV

.WORD

000002

45%:

6429

032713
001445
032713
001404
1044C1
104401

052737
010405

000007

001273
057663
100000

$TMP15
(RO),43$

;GET ERROR MESSAGE ADD'RESS FROM TABLE

146%:

00125¢

«%:

001244
050130
001252

000002

48%:

PRINTING ERROR NOT RECEIVED

(R3)

JTEST GPSUMF

$TMP14

JPRINTING GROUP 3?
;NO =-SKIP

BM]

478

BNE
MOV

45$
R
GRP2ER

INC
BR
CMP
BEQ

TST
BEQ

#GRP2MS
, RO

$TMP14
40%
#2,$TMP14
46$

GRP1ER,R1
#GRPTMS
, RO

§TMP14
408

$TMP13
49%

FLAG FOR

JYES - SKIP

JELSE SET TO GROUP 2, GET GRPZER
;8 SET POINTER TO GROUP 2 ERROR MESSAGE
:BUMP TO INDICATE PRINTING GROUP 2
JPRINTING GROUP 1?

JYES = EXIT GPR ERROR PRINT LOOP.
JELSE SET TO GROLP 1, GET GROUP 1 ERROR
;JSET POINTER TO GROUP 1 ERRQOR MESSAGE TABLE
;JBUMP TO INDICATE PRINTING GROUP 1
JRESTART PRINT

LOOP.

JEXPECTING ERRORS?
;NO = SKIP

ERRCRS CONTAINED

IN $TMP10,

11,

12(NOT RECEIVED ERRORS)

(R3)
47%

8IT
BEQ

#GRP1;T'GRPZST'GRPSST (R3) ;ANY NOT RECE!IVED ERRORS?
;NO - SKIP [ABEL FOR UNEXPECTED ERRORS
146$

TYPE

.DH006

;TEST IF PRINTING NOT RECEIVED ERRORS
JYES = SKiP
! GP3NR, (R3) ;ANY NCT RECEIVED ERRORS
#GPINR! GP2NR

49%

:NO - Skip

,SCRLF

:TYPE
;TYPE

CRLF
HEADER

:MOVE

TOTAL

BIS
MOV

#REPNR
, GPSUMF
R&4,RS

MOV

#GRP3MS
RO

TST

$TMP14

BNE

INC
BR
CMP
BEQ

TABLE

:GO RESTART PRINT LOOP

157
BM]

MOV
MOV

G{"c52

HERE

1418

MOV

001246
050110

;TYPE CRLF
;TYPE ERROR MESSAGE
;MESSAGE ADDRESS GOES

46$

TYPE

050206

SET?

B8R

BIT
BEQ

000070

JROTATE ERROR FLAGS
;WAS BIT SHIFTED QUT

;NO - BUMP POINTER
JDEC SHIFT COUNT
;LOOP IF SHIFT NOT ZERO

PRINT ALL

005713

SEQ (199

;DECEREMENT TOTAL ERRCR (OUNT.
;LOOP IF ZERO
;ELSE EXIT GPR ERROR PRINT LOOP

INC
BR
46%:

MOV
MOV

011250

DE(

001252

PAGE

TYPE

050066
050130
001252

;CLEAR (ARRY

(LC
ROR

BNE

005737
001007
013701
012700
005237
000737
022737

100423

000002
00254
—

005337
001371

15:17
30(1046)
28-AUG-81
OPERATION (HECK ROUTINE
[

0777

10778

00026"
00600°
103406
062700

~oo~

10773
10774
10775
10776

041560
0641562
041564
047566
0461572
041574
041600
041602

QO
O~

10771

10772
.

MACY11

R
$TMP12
1408

488

$TMP11,R]
#GRP2MS
, RO

$TMP14
40$
#2,$TMP14
49

FOR PREVIOUS ERRORS

:SET PRINTING NOT RECEIgED ERRORS SHITCH
ERRORS

TO
R

JGET GRP3 NOT RECEIVED ERRORS

SSET POINTER TO GROUP 3 MESSAGES

;GO START PRINT LOOP

;PRINTING GROUP 3?

JNO - SKIP
JELSE SETUP TO PRINT GROUP

GET ERRORS

;8 SET PCINTER TO GROUP 2 MESS AGE TABLE
;BUMP TO INDICATE GROUP 2 PRIN TING

2GO START PRINT LOOP

JPRINTING GROUP 1?
JYES - EXIT

LOOP

CZR6XGO RK6 FUINL C(TRL DIAG
CIRE6KG.PTT
2B8-AUG=81 15:16
10827

042016

013707

0C1242

042026

005237

001252

10828

042022

jgg%?

062032

10829

'0832

10833
10834
10835
10826

10837
;83%3

012700

000647

042034

032713

.
042040
042042

001004

042044
042050

104414

062716
000002

000002

112776

000007

10840

042052

10842

042064

001403

112776

000006

10845

042074

032713

000071

10841

;8322

10846
10847
10848
10849

18329

042060

042066
042100
042102
042110
042114

042116

032713

001411
112776
032713
001403

000000

001264

10857
10858
10859
10860

042146
042154
042156

162737
104414
000002

001264
001264

$TMP14

;BUMP TO INDICATE GROUP 1 PRINTING

BIT

#77,(R3)

BNE

61%

ADD
RTI

#2,(SP)

MOVB

#7,9(SP)

sTABLE

AND

GET

GROUP

ERRORS.

:PRESET FOR GROUP 3 ERROR RETURN.

BEQ

508

:NO - SKIP

sSTART LOOP AGAIN.

JTEST IF ANY ERRORS TO BE REPCRTED

;
GRP'ST.GRPZ2ST.GRP3ST
;.
_GPINR.GP2NR'GP3NR
JYES = SKIP
JELSE EXIT

;BUMP FOR GOOD RETURN

#GRP2ST.GP2NR,
(R3) ;ANY GROUP 2 ERRORS?

mMovBe

#6,a(SP)

BIT

#GRP1ST!GPINR,
(R3) ;ANY GROUP 1

’

;ELSE SET FOR GKCUP 2 ERROR RETURN

538
#4,a(SP
#DRSTER, (R3)
53¢

MOVB

ERRORS?

;NO - SKIP
JELSE SET FOR GROUP 1 ERROR RETURN.
;CHECK IF ERROR GETTING DRIVE STATUS
;NO - SKIP

#5,3(SP)

54%:

10861

10862

.SBTTL

BAD

;ELSE CHANGE RETURN FORM GROUP 1

RN R

AN R

CALL

THAT

1S BAD

R AR

R RN R

AN AR A AR AN AR

SECTOR CHECK

A AN

N CR

10865
1086¢

:*
or

THAT HAVE THE CYLINDER AND TRACK ADDRESS SPECIFIED IN
L.DCYL AND L.DT. IF A SECTOR IS FOUND IN THIS FIELD

it
ot
i*
i
b
s

IS PLACED ON THE STACK. THE TOTAL NUMBER OF BAD SECTORS
IS PLACED ON THE STACK AFTER THE ENTIRE
FIELD IS SEARCHED.

10868
10869
10870
10871
10872
10873
10874

10875

10876
10877
10878
10879

042160
042164
042170
042172

012637
010437
011404
005037

10881
10882

042200
042202

100417

10880

042176

005714
023724

001236
001240
001234

001614

CALL:
R

A T N

B8DSR(K: MOV
MOV
MOV
CLR

CHECKED

BM]

(MpP

FOR

SEE

R R AR R T

SECTORS

TO BE

R AR RN A AR AN

ARE

TRACK,

SEARCHED>

AR A N

LISTED

THE

THEREIN

SECTOR* NUMBER

AR R AR T R R PR AN N AR

NN N

(SP)+,$TMP6
Re,$TMP7
(R&4) ,R&
$"MP5

;STORE OLD R4 CONTENTS
;GET RETURN ADDRESS
;GET POINTER TO FIELD TO BE CHECKED
;CLEAF A COUNTER

JYES = EX]T

(R4)

L.DCYL, (R&)»

IN THE LOCATION AFTER THE

ANY

THAT .CYLINDER AND

JSR
R4 ,BDSR(K
<ADDRESS OF FIELD

RON RN

10867

THE FIELD WHOSE ADDRESS IS

AN R

10863
10864

)

TST
$ESCAPE
;CHECK IF ESCAPE ALREADY SET
. BNE
54%
JYES = SKIP
Mov
. $TESTN,RO
JSET UP SESCAPE TO FORCE
ASL
RO
;ABORT TO PRESENT TEST AFTER
MOV
$SWO8TB(RO) ,$ESCAPE ;ERRCR IS REPORTED
SuB
#2,$ESCAPE
JBUT GO TO NEXT SCOPE STATEMENT
RESREG
RTI
;RETURN
'
'
.

001302
033122
000002

;SET POINTER TO GROUP 1 MESSAGE

4<0%

BEQ
MOVB
BIT
BEQ

53%:

$TMP10,R1

BIT

50%:

000005

013700
006300
016037

6'$:

000000

112776

005737
001011

498

SEG 0200

#GRPIMS RO

RESREG

000000

042124
042730

042132
042136
042140

000022

PAGE 201

MOV

INC

000004
040000

10852
10853

10854
10855
10856

MOV

050146

000077

MACY1T 30(1046)
28-AUG-81
15:17
OPERATION (HECK ROUTINE

JTEST IF FIELD HAS NO (OR NO MORE)ENTRIES
:1S THIS ENTRY FOR THIS CYLINDER?

"SBTTL

BUMP TO NEXT ENTRY

MOV
MOV

$TMPS , = (SP)
$TMP6 . - (SP)

TST
RTS

“TEST NEXT ENTRY

(R4)+
R4

:PUT COUNT ON STACK
*PUT OLD R4 CONTENTS BACK ON STACK

$TMP7 R4

“SET UP RETURN
:BUMP PAST
*RETURN

PARAMETER

JSR

R4, GENCOM

JSR__

R&4,GENCOM

AR A
N

CONTROL WORD
LENGTH

JSR
R4, GENCOM
CONTROL WORD
RELOCATION CONSTANT
LENGTH

NS I
I

CONTROL WORD

:
:

GASA GENERATION AND COMPARE ROUTINE

CALLS:

IS NN

RE TURN:
RTS
R4 IS ADJUSTED
THE FIRST CALL

CONTROL WORD.

R4
IN THE CODE FOR THE FOLLOWING RETURNS:
RETURNS TO THE LOCATION FOLLOWING THE

THIS

IS UNCONDITICNAL.

B,
Ve

THE

SECOND

CALL

THE

OPERATION

THE

THIRD

RETURNS

REQUIRES

TO THE

DATA

LOCATION FOLLCWING

(OMPARE

AND

THE

LENGTH

DATA MISCOMPARED.

IF DATA S TO BE GENERATED ONLY OR NO DATA COMPARE
ERRORS OCCURRED, THE RETURN IS TO LENGTH +4.

CALL

IDENTICAL

THE

SECOND.

PO YO

DEFINITION OF

CONTROL WORD:

15 - DO COMPARE OPERATION OF
|

(DESTINATION).

BIT

T
S TP

10925

10927
10928
10929
10930
10931
10932
10933
10934
10935
10936
10937
10938

;

:DECREMENT POINTER TO WORD AL IGN

(R4) +

TeT

10924
10926

."'t‘t"Qt:,‘tl‘tlifii't*"t't'ttfl""til’"t"".Q.tt'ii"t't'ti"t"'

10922

10923

TRACK?

SECTOR NUMBER ON STACK

*BUMP COUNTER
*BRANCH

O =MW

10619

10920
10921

*PUT

[vodoodeodostocookuofos)

10917
10918

THIS

“CLEAR STACK LOCATION

~(R4)
., (SP)

10909
10910
10911
10912
10913
10914
10915
10916

‘NO = SKIP

FOR

10908

$TMPS
3

*1S ENTRY

9967

INC
8R

‘BUMP TO TRAZK

MOV

10905
10906

-(<P)

4$:

10901
10902
10903
10904

001234
007236
001240

013746
013746
013704
005724
000204

042240
042244
042250
042254
042256

0895

CLR

DEC

3%:

*0896
10897
10898
10899
10900

28:

005304
005724
000757

0642232
062234
042236

SEQ 0201

10892
10393
10894

10890
10891

001234

005237
000401

10889

:NO - SK]P

[.DT, (R&)

MOVB

NP N

114416

PAGE 202

CMPB

BNE

001005
005046

001607

DR AR BT B

10886
10887
10888

INC

G 16

15:'7

BNE

123714

~0885

28-AyG-81

BAD SECTOR (HECK

001012
005204

30(1046)

P 2

10883

10884

MACY11

RESUME

COMPARE

IBUFF

(SOURCE)

EXPECTED VALUES ARE

OPERATION FROM POINT

TO OBUFF

IN OBUFF

(DESTINATION.

LEFT BY LAST

INVOKE MEMORY MANAGEMENT FOR SOURCE (IBUFF),

INVOKE MEMORY MANAGEMENT FOR DESTINATION (OBUFF).

(OMPARE.

REPEAT FIRST WORD OF SELECTED P PATTERN THROUGHOUT OBUFfF
.
CLEAR IBUFF TO PATTERN SELg CTED
S Fl LES
= BUILD HEADERS, CONSIDERING
- BUILD HEADERS, AcLL SECTORS INDIC ATE GOOD SECTORS,
= HEADER OPERATICN SPECIFIED (EITH
l
ER COMPARE OR BUILD).
|I I

“IROKGD RKE FUTNL CTRL DIAG
28-AUG=81 15:16
“IR6KG,. P11

TIR6KGO RKE FU'NL CTRL DIAG
TIR6KG. P
28=A,G=81 15:1¢

H 16

WACY11 30(1046)
28-AUG-81
15:17 PAGE 203
DATA GENERATION AND COMPARE ROUTINE

10939

;8325

10940

SEQ 0202

BIT 6 TO O - PATTERN SFLECT FIELD, OCTAL ENCODED.

NO DATA GENERATION,

IS ALL

ZEROS,

O INDICATES

AND 7 IS ALL ONES.

OTHER PATTERNS PROVIDED ARE PATTERNS 2-6, 8-16.

- %

10943

18825

BUILDING OR COMPARING HEADERS OR RESUMING A COMPARE OPERATION.

FOR DATA GENERATION OR COMPARE AND FOR

0944

6
10947

i
M

10950

10953
10954

;e
o

10956
10957

o
A

10960

}8328

1882;

10967
10968
10969
10970
10971

M
I
o
o
o
o
i
S r
M
A
o

10974

10976
10977

A
o

1090

10964

10965

10966

}83;%

THE

o
R
J*
o
o
o
B

10988
10989
10990

042260
042260
042262

0Q10uv46
010146

10992

042266

010546

0422€4

042270
(042272

GEN(CM:

(010346
012400
012737

0201520

IS USED FOR

CALL WITH CONTROL

WORD,

IBUFF

INITALIZATION.

RELOCATION CONSTANT,

AND "ENGTH

ROUTINE WILL BUILD THE HEADERS AS ALL GOGD SECTORS (BIT 8)
OR TAKE THE BAD SECTOR FILES (HARDWARE OR SOFTWARE) FOR
EITHER

FORMAT)

INTO ACCOUNT AND BUILD

SECTORS MARKED BAD
ARE LISTED THEREIN
R,

COMPARE

THE

(ONTENTS OF

THE

IF ANY SECTORS FOR THE
(BIT &),

CONTENTS OF

[BUFF

THE BUFFER MAY BF

AND OBUFF

HEADERS WITH

CYLINDER - TRA(CK

(BIT

15).,

HEADERS OR DATA,

HEADER COMPARE CPERATION MAY BE

SPECIFIED

THE

(BIT 7)

4
-

THE
wWHlI(H

WILL CAUSE THt COMPARE TO BE LIMITED TO 74(8) OR 102(8)
WORDS OF HEADERS. THE LENGTH DEPENDS ON THE FORMATY
BIT THAT WAS LAST SPECIFIED IN L.CS1. THE HEADERS
MAY BE BUILT BEFORE THE C(OMPARE AS PART OF THE
OPERATION (BIT 15 AND BIT 8 OR 9). DATA (AN ALSQO BE

GENERATED BEFORE THE COMPARE

(NON-ZERO BITS 6-0).

RESUME

A COMPARE

DETECTS

COMPARE

OPERATION.

A MISCOMPARE,

THE

ROUTINE

OPERATION

RETURNS

TO CALLER

BUT STORES PARAMETERS SUCH THAT THE COMPARE CAN BE
RESUMED. THIS IS DONE BY CALLING GEN(OM WITH BIT 14

SET IN THE CONTROL WORD.

DATA GENERATION OR (OMPARE USING MEMORY MANAGEMINT,
MEMORY MANAGEMENT (AN BE INVOKED fOR EITHER
SOURCE OR DESTINATION BUT NCT FOR BOTH. IN THIS
MANNER, DATA GENERATION CAN BE MADE TO
PLACE DATA ANYWHERE [N AVAILABLE MEMORY, LIKEWISE
DATA (OMPARE WILL COMPARE THE CONTENTS OF [BuUFF 10
ANY AREA OF AVAILABLE MEMORY.

MOV
MOV

RO,={SP)
R1,=(SP)

;sPUSH RO ON STACK
;:PUSH R1 OM STACK

MOV

RS5,={5P)

:JPUSH RS ON STA(K

MOV
(056312

ONLY PARAMETER

THIS ROUTINE IS MULTI=-PURPOSE AND WILL PERFORM THE FOLLOWING:
BUILD HEADERS, EITHER 20 OR 22 SECTORS/TRACK MODE. THE

10980
10981
10982
10983
10984
10985
}8839

THE

DESCRIPTION:

;88;3

WORD

10675

CALLS:

WITH CONTROL

USED FOR DATA GENERATION OR (OMPARE WITH MEMORY MANAGEMENT.

o
I

10961
1836%

CALL

‘
THE CALL WITH CONTROL WORD AND LENGTH AS PARAMETERS IS USED

10958
10959

10993
10994

THE

10955

10991

EXPLANATION OF

Mov
MOV

R3,=(SP)

(R4)+ RO
#E154 ,EMISN

;JPUSH R3 ON STACK

;GET PARAMETER WORD
;PRESET FOR HEADER (CMPARE ERROR

OO—O

RDINWO

042350
042352
042354

2N
WA

VACY11

I 16
15:17 PAGE 204
28-AUG=81
DATA GENERATION AND COMPARE ROUTINE

30(1046)

000200
256341
063046

001520
18%:

=3
O (N -

[ASIAU RIS o¥)
NN
NN

005304
001402
005201
000762

042446
062452
042454
Owcb56
047460

032700
001003
005700

042462
042470
042476
042504
042506

013737
012737
032737
001403
013737

001640

042514
042520
042522
042524

004437
000000
012605
001417

042160

042526

011601

NN
NI VILWVALD

OOOOOOMNN)

28NN

062436
042440
042442
062444

W= (NN

042402
042406
042412
0426146
042416
042422
042424
042430
042432

04
053725

#3]177,R0

:HEADER CPERATION SPECIFIED?

MOV

NEMSS EN1SN

*(HANGE FOR DATA COMPARE ERROR

MOV

R4, =(SP)

::PUSH R4 ON STACK

JMP

BIT
BNE
IMP

MOVB

000026
010000

000024
001000
2s:

140000

072414

3%:

001224

0032
001224

4%:
10%:

100464

000534
100000

010000

042520
001224
001600

001636

042520

5%:

#3118 B1°9,R0
198
118

:MUST HEADERS BE BUILT?.
‘YES - SKIP
“ELSE JUMP TO HEADER COMPARE

L.DT.RI

“SET COUNT TO SHIFT TPACK FOR HDR WORD

ASL

SSHIFT TRACK

BNE

LCOP UNTIL

“GET TRACK AND CYL

*DECREMENT TRACK

COUNT 0

MOV

#26 R4

;PRESET FOR 26 SECTOR MODE

MOV

#24 R4

*CHANGE

#CFMT,L.CST
2%

YIS IT 24 SECTOR MODE?
‘NO - SKIP
COUNT

FOR 24 SECTOR MODE

BIS

#3179 R1

BIS

#81T15'BIT14,R1 :SET BS BITS TO INDICATE GOOD SECTOR

BIC
BIC
BIS

R1.$TMP
R3.(RS)
$TMP1. (RS) +

:COMPLETE HVRC WORD INSERTION

DEC
BEQ
INC

R4
4$
R1

-DECREMENT HEADER COUNT
‘DONE? - YES, SKIP
*BUMP SECTOR

BIT
BNE

#3179 RO
5%

:MUST HEADERS BE CORRECTED FOR TABLE FNTRIES?
'YES - SKIP

BM]
BR

11¢
508

'YES-GO DO HDR COMPARE
“ELSE GFT oOUT

MOV
MOV
MOV
MOV
MOV

TST

#OBUFF RS
R3.(RS)+
R1.(RS)+
R3.STMP
R1.(RS)

“SET 24 SECTOR MODE BIT IN WRD 2 OF HDR
“SET POINTER TO ADDRESS WHERE HEADERS GO
TINSERT CYLINDER
*INSERT TRACK AND SECTOR
*CALCULATE HVRC WORD

;LOOP

11S

THIS A COMPARE OPERATION?

MOV

BSF26P,6%

:PRESET

BIT
BEQ

#CFMT,L.CST
8$

1S THIS 26 SECTOR MODE?
‘YES - SKIP

MOV
MOV

#BIT15°§TMP1
BSF24P. 68

"START HEADER BUILD ROUTINE

riy RE
RS

“ELSE JUMP TO DATA ROUTINE

MOV

BR
00100C

17¢

"YES - SKIP

L.DCYL.R3

BIT
BEQ

001600

188

MOV

DEC

042356
042362
042370
042372
042376

"9%:

001614
000065

VAN~

OO0

— ad wd O

042630
001607

SEQ (203

BIT
BNE

001400

OOOOOVOO

032700
001005
012737
000137

&N =2 et d d

023

0462300
042304
042306
042314
042320
042320
062322
042326
042330
042334
042340
042344

OCOOODOOD

N =

SOOOOOOOOOOOOO
PNOR) s
od b b oD ek b d a O

O NN
W
2O

10995
10996
10997
10998
10999
*1000
11001

OO0

TIR6KGO RKE FOTNL CTRL DIAG
(IR6KG, P
28=-AUG=81 15:1¢

FOR BS

FACTORY LIST

“SET BIT 710 BE RESET
*ELSE

IN BAD HEADER

CHANGE FOR 24 SECTOR MODE

JSR
LWORD
MOV
BEQ

Ru,BDSRCK
O
(SP) +,RS
9%

;G0 CHECK FOR BAD SECTOR THIS ADDRESS
*POINTER TO FILE TO BE CHECKED GOES HERE
‘GET # OF BAD SECTORS THIS PACK ADDRESS
‘SKIP IF ZERO

MOV

(SPY R

SGET

1ST BAD SECTOR NUMBER

‘.

"IN
GO RKG FCTNC CTRL DIAG
“IREX P
28-AUG=81 15:1¢

OOOOOOOOOOOO
(o Yo ¥ e XV, IV, IV, TV, IV, [V IV
N
OV ~NONWN
N

05¢

17063

73
74

)
g

G
W

I S

A epmdad
= OO

QOOOOOOOVY
VN
WN) 20O 000

PR SIS U
Y

S
R
TM Y

I G

e T

006301
00630C°
061601
062601
062701
043761
0643761
005305
001361

042564
042572
042574
042602
042610
042616
042620
042626

032737
001730
012737
013737
032737

042630
042634
042642
042644

042650
042654
042660
042662
042666
042670
042674
042700
062704
042710
042712

04730
042732
042734
042736
042740
042744
042746
042752
042752
042754

J 16
28-AUG=81
15:17 PAGE 205
DATA GENERATICN AND COMPARE ROUTINE

3001046

ASL

ASL
ADD
ADD

000002
00124
001224

072614
072416

100000

00122¢

040009
001644
010000

001224
042520
001600

001642

042520

000102
010000

9%:

001600

070414
072414
412

12%:

011700
001702
001704
001706

23%:

MOV

BSS26P,6%

;PRESET POINTER FOR 26 SECTOR MODE

012604
000427

50C%:

10%
#B1T14,8$TMP1

DJING BS FACTORY LIST?

;NO = GO CHECK IF COMPARE MUST BE DONE
JELSE SET BIT TO BE RESET IN BAD HDR

#CFMT,L.CST
8%
BSS24P,6%
8%

JTEST IF WE ARE DOING 26 SECTOR MODE
JYES = SKIP TO START (CHECK
;CHANGE POINTER TOR 24 SECTOR MODE
sSKIP TO START (HECK
;PRESET FOR 102 WORDS OF HEADER
JCHECK [F 26 SECTOR MODE
JYES = SKIP

MoV
MOv

#1BUFF R4
#OBUFF ,RS

JSET
;SET

BIT

481714 ,R0O

BEQ

;CHANGE

13%

"0 74 WORDS OF

START
START

OF
OF

;CLEAR COUNTER

sNO - SKIP

DESHLD ,RS
SRCHLD R4
WRDNUM,R3
WRDCNT ,R1
R1

;GET VALUES WHERE PREVIOUS CHECK STOPPED
;
DESTINATION AND SOURCE
WORD NUMBER IN ERROR
;
WORD COUNT LEFT IN COMPARE
JTEST IF WORD COUNT LEFT - 0

BIT

#BIT12.BIT13,R0 ;MEM MANAGE REQUIRED?

508

(R&)+,(R5)+

149

JYES = EXIT

;NO - SKIP
sTURN IT ON
;COMPARE

THE

WORDS

;SKIP IF NOT EQUAL

INC

;BUMP WORD NUMBER IN ERROR

BNE
BIT
BEQ
DEC

25%
#BI1T12.8B1713,R0
50%
d#SRO

;LOOP IF NOT ZERO
;MEM MANAGE IN USE?
iNO - SKIP
sTURN IT OFF

(SP)+ R4

;sPOP STACK

MOV

108

COMPARED

;IS THIS A CONTINUATION Of EARLIER COMPARE

25%
a#SRC

HEADER

HEADERS TO BE
GOOD HEADERS

MOV
MOV
MOV
MOV
TST

DEC

177572

$TMP1,0BUFF+2(R1) ; CORRECT THE HVR(C BI7
R5
sDECREMENT BAD SECTOR COUNT
’$
;LOOP IF NOT ZERO

START OF (OMPARE
MOV
#102,R1
BIT
HCFMT, . .CST
BEQ
12$
MoV
#74 ,R1

CMP

030000

IO BE MARKED BAD

;WERE WE

BNE

001402
005337

SECTOR

#BIT15,8TMP1

8EQ
MOv

BEQ
INC

177572

;LOACATE

BIT

BEQ
030000

JMULTIPLY SECTOR NUMBER BY 6 T0

R1
(SP) ,R1
(SP)
+ K1

#2 ,R1
JADD 2 FOR 2ND WORD THAT SECTOR
$TMP1,0BUFF
(R1) . CLEAR BIT FOR BAD SECTOR IN HDR

CLR

040000

SEG (206

ADD
BIC
Bil
DEC
BNE

BIT
BEQ
MOV
BR

000074

042714
042720
042722
042726

o
e

062530
042532
042534
042536
042540
042544
042552
062560
042562

MACY11

;DEC WORD CCUNT LEFT

[N COMPARE

INTO R4

ERROR REPORT PREP AND PARAMETER STORAGE FOR CONTINUATION

042756
042762

14$:

MOV
MOV

RS ,DESHLD
R4, SRCHLD

;STORE

DESTINATION
SOURCE

.
O
°
X

0 OO
2 2

d
ed
o

SNBSS WWWWWWWWWWNINNDMNIMNDMNDMNDNIIMNIN
S = a2

)

WO~

[eaYey

| ]N
Pl
¢

D
D

b oD

D
ed
D

hed
b

D
b

D ed e d

CTRL DIAG

2B8-AUG-81

0462766
042772
042776
043002
043004
043006
043012
0432016
043022
043024

15:16

30(1046)

28=-AUG=81

15:17

K 16

PAGE 206

SEQ 0205

DATA GENERATION AND COMPARE ROLTINE

001202
00120«
001206

MOV
MOV
MoV

;DEC

R1,WRDCNT

MOV
MOV

R3,WRDNUNM

WORD NUMBER

COUNT LEFTFOR

CONTINUATION

;BUMP BAD WORD NUMBER
JSTORE

COUNT LEFT

WORD NUM IN ERROR

#BIT12.BIT13,R0O :MEM MANAGE
15%
JNO - SKIP

IS USE?

a#SRC

JTURN IT OFF

MOv

{(SP)+ k&

;:POP STACK

INTO R4

MOV
MOV
Mov
MOV

(SP)+ RS

;:POP STACK INTO RS

(SP)+,R1

;POP STACK

8IT

BEG
DEC

177572

;LOAD GOCD WORD FOR REPORT
:
BAD WORD

R3,$REGT?

DEC
INC

00170¢
001704
030000

=(R5) ,$REG10
-(R4) ,$REG1

043030
043030
043032
043034
043034
043036
043040
0430472
043044

15%:

012604

0057¢4

(RG) +

TST

16%:

012605
012603
012601
012600
000204

(SP)+ _,R3
;2P)+,R0

" RTS

JERROR RETURN

::POP STACK INTO R3
:;POP STACK

INTO R1

INTO RO

DATA PATTERN PROCESSING ROUTINE
17%:

BIT

#IT14,R0O

MOv

R4 ,-(SP)

063046
043052
043054

032700
001402
010446
000704

040000

043060
043064

012705
012703
032700

072414
070414
030000

043076
043102
043106
043110
043114
043116

012437
032700
001403
012705
000402
012703

172354
010000

MoV

140070

MoV

043122
043124
043126
043130
043132
043136

012401
010446
010304
005003
032700
001666

043056

043070
043074

001412

BEQ

:NO - SKIP

28$%

;GO CONTINUE COMPARE

MOV
MOV

#0BUFF RS
#IBUFF ,R3

JGET DESTINATION
;GET SOURCE

BEQ

;NO - SKIP

(R4) +,a#KIPAR6

;LOAD PAR FCR RELOCATION

140070

25%:

BIT -

208%:
21%:

000077

NANINN
NNNN

el ol
el

eolelele
—a N &N

043140
063144
043150
043154

00170C
001702
001704
001706

JCONTINUE WITH COMPARE?

29%

;STORE

RETURN

#BI1T12.BIT13,R0 ;USE MEM MANAGE?

BI7
BEQ

#81T12,R0
208

BR
MOV

21$
#140070,R3

s SKIP
sSET SOURCE

(R4)+,R1
R&,=(SP)

#160070,R5

;RELOCATE SOURCE?
;NO - SKIP

JSET DESTINATION TO USE PARG + OFFSET

TO USE PAR6 + OFFSET

Mov
MOv
MOV

R3,R4

sSTORE COUNT
;STORE RETURN
;PUT IN IBUFF POINTER

BIT

#77 R0

JANY DATA PATTERN SPECIFIED?

(LR

BEQ

13$

START OF
ODOO0

N=O VO NOWVE NSOV

T Y

e S

AR NNWVNWNVVNINNWNWNWUIIE S DN

YR NB W~ O VO NPT NS WA= OVONOWNEWND 2OV

e
I Randbea i I
B
R
adt e I

B
d
D
e d
D e

R
ani e B
N
S
S T
R

D eh
b md

D
b
D eded
d =D

Db
D b

e
ek
D

DB od
D

D e
D

d =D
e e

B oD
g
L S
U

b mah —D
it

U
P
ST
QSN S

D oD nd e
B e

s L
N
B

- ed o

b ch

D emd

d ok

D e

A Dd
d DD

6 FUINL

MACY11

R5,DESHLD

MOV
MOV

R3,WRDNUM
R1,WRDCNT

CODE

sNO - GO DO COMPARE

GENERATION ROUTINE

MOV

;CLEAR R3 FOR WORD NUMBER COUNTER

R4 ,SRCHLD

:STORE PARAMETERS FOR (OMPARE

TO GENERATE DATA PATTERN [N AREA POINTED TO Br RS.

’

CIR6KGO Rk6 FCTINL CTRL DIAG

{IR6KG.P1T

28~ALG~-81

15:16

11163

11165

11167

L 16
15:17
PAGE 207
30(1046)
28-AUG-81
DATA GENERATION AND (OMPARE ROUTINE
MEMORY MANAGEMENT WILL

TURNED ON BUT RELOCATION

WILL NOT OCCUR UNLESS REQUIRED BY SWITCHES

11164

11°66

MACYTT

043160
043764

032700

001402

030000

BIT

BEQ

#RIT12.B1713,R0 ;MEMORY MANAGEMENT REQUIRED?

33$

;NO - SKIP

SEG (206

—d

d e

d md =D ed od

d o

d md mmd eh =D od e

rd e

and e

d e

md ek =D med

D e

e o

D e

D e —d

d oD

D d

) =D

D ed

d e

d D D d

)

b DD

a =

b ed

DD D

b 2

NNNNNNNNNNNNNNNNNNN'\)'\)NN'\J—"—‘—‘-‘-—“"—‘—‘—"—‘—'-‘—‘ O
S
S
S
S
s YU S
S S
PNV
= =
BB b e b
OO OO TLOOOOO O 00OV OOV OWO000000B0000000E00 NNNNNNNNNNOO
W
2OV
NN WN
OO co
W= OOV
NN
W20V
NN
W =0V
~NONWD BN —=OVONONE

043166
043172
943176
043200
043202
043204

005237
03700
001403

177572

002000

MACY11

B 1
15:17
PAGE 208
30(1046)
28-AUG-81
DATA GENERATION AND COMPARE ROUTINE
33%:

InG
BIT
BEQ

MOV

01)446
010504
012605

R4 ,-(SP)

sTURN IT ON
;GENERATE PATTERN [N [BUFF?

sNO = SKIP

JELSE SWAP R4 AND RS

MOV

RS ,R4

(MPB
BNE
CLR
DEC
BNE
BR

#1,R0
55¢%
(RS)+
R1
30%
22%

(MPR
BNE

#7 ,R0
56%

;PATTERN 7
sNO - SKIP

MOV

32%:

a#SRO
#BITI1C,RO
32%

SEQ 0207

(SP)+ RS
;PATTERN 1

(ALl

ZEROS.?

043206
043212
043214
043216
043220
043222

122700
001004
005025
005301

000001

043224
043230
043232
043236
043240
043242

122700

001005
012725
005301
001374
000540

000007

55%:

177777

31¢:

043244
043250
043252
043256

001003
012703
000504

000002

56%:

(MPR
BNE
MOV
BR

#2,RO
57%
#PATO02 ,R3
70%

;PATTERN 2 SET WP

043260
043264
043266
043272

001003
012703
000476

57%:

CMPR
BNE
MOV
BR

#3,R0
58%

;PATTERN 3 SET UP

043274
043300
043302
043306

122700
001003
012703
000470

000004

(MPB
BNE

#4 ,R0O
59%

JPATTERN &4

SET

70%

043310
043314
043316
043322

122700

001003
012703
000462

000005

043324
043330
043332
043336

122700
001003
012703
000454

000006

043340
043344
043346
043352

001003
012703
000446

122700

000010

043354
043360
043362
043366

001003
012703
000440

30%:

001375
000550C

122700

047234
000003
047274
58%:

047334

MOV

;LOOP UNTIL WORD COUNT ZERO
JEXIT BUILD
(ALL ONES)?

;LOAD WORD IN BUFF
;DEC WORD COUNT
;LO0P UNTIL WORD COUNT ZERO
JEXIT BUILD

#PAT03,R3
708
UP

#PATO04 ,R3

(MPR
BNE
MOV
BR

#5,R0O
60%
#PATO0S ,R3
70%

;PATTERN 5

SET UP

60%:

(MPB
BNE
MOV

#6,RO
61%
#PAT06,R3

JPATTERN 6

SET UP

6%:

(MPB
BNE
MOV
BR

#10,R0
62%
#PAT10,R3
70%

;PATTERN 10 SET UP

628%:

(MPR
BNE

#11,R0
63%
#PAT"1,R3
70%

JPATTERN

047434

B8R

047474

047534

#=1,(R5)+
R1
31%
22%

:CLEAR WORD IN BUFF
;DEC WORD COUNT

59¢%:

047374

000011

MOV
DEC
BNE
BR

;NO - SKIP

MOV
BR

70%

SET

~N~y

R6KGO RK6 FCTNL CTRL DIAG
ROKG.P11
28-AUG-81 15:16

(ZR6KG.P11
11224

CTRL DIAG

28-AUG-81 15:16

042370

122700

000012

043376

012703

047574

11229
11230
11237
}}S%%

043406
043410
04312
043416

001003
012703

122700

000013

11234

043420

11225

043374

}155;

043402

11226

11235
11236

001003

000432

000424

122700

000014

001003
012703

11239
11240
11241
}}Szg

043434
043440
043442
043446

122700
001003
012703

000015

11244
11245
11246

043450
043454
043456

122700
001003
012703
000402

000016

]]Szg

043432

043462

000416

000410

28-AUG-81

15:17

PAGE 209

DATA GENERATION AND COMPARE ROUTINE
63%:

(MPB

#12,R0

MOV

#PAT12,R3

BNE
MOV

(MPB

;PATTERN 13 SET UP

#13,R0
65%
#PAT13,R3
70%

(MPB

#14 RO

JPATTERN 14 SET UP

70%

BNE

BR
648:

047634

043424
063426

}}g%g

MACY11 30(1046)

65%:

047674

66%:

047734

BNE
Mov

047774

;PATTERN 12 SET UP

70%

66%
#PAT14 ,R3

(MPB
BNE
MOV

#15,R0
67%
H#PAT15,R3
708

JPATTERN 15 SET uP

CMPB
BNE
MOV
BR

#16.R0
68%
#PAT16,R3

JPATTERN 16 SET UP

BR
67%:

64%

SEQ 0208

70%

i%%gg 043464 012703 047774

68%:

MOV

HPAT16,R2

JSET UP FOR 16

11251
11252
11253

043470
043474
043476

032700
501020
010446

004000

70%:

BIT
BNE
MOv

#BIT11,R0
73%
R4,-(SP)

;FIRST WORD REPEAT?
JYES - SKIP
;STORE R4

11255
}}Sg?

043502
043506

072700
010504

000020

MOV
Mov

#16.,R0
R5,R4

JPRESET COUNT FOR PATTERN LENGTMt
;STORE START OF BUFF

11254

043500

010046

11258

043510

012325

}}Sg%

043520

001373

11259
11260
11261

043512
043514
043516

043522

012425

11529

043526

001375

11265

043524

71$%:

005301
001405
005300

11264

MOV

MOV
DEC
BEQ
DEC

BNE

72%:

005301

Mov

RO,=-(SP)

(R3)+,(R5)+

sMOV JORD TO BUFF

;LOOP IF NOT ZERO

R1
74%
RO

;DEC WORD COUNT
SEXIT IF ZERO
;DEC PAT LENGTH COUNT

(R4)+,(RS5)+

JREPEAT PATTERN IN BUFFER

72%

;LOOP UNTIL WORD COUNT ZERO

DEC

BNE

;STORE RO

;DEC WORD COUNT

11268
11269
}}S;?

043530
043532
043534

012600
012604
000403

74%:

MoV
MOV
BR

(SP)+,RO
(SP)+,R4
22%

sRESTORE RO
JRESTORE Ré
JEXIT BUILD

11272
11273

043536
043540

011325
005301

73%:

MOV
DEC

BNE

(R3),(R5)+
R1
73$

;MOV THE SAME WORD
;DEC WORD COUNT

sLOOP UNTIL ZERO

11276
11277
11278
11279

043544
043550
043552
043556

032700
001402
005337
005700

8IT
BEQ
DEC
TST

#BIT12.BIT13,R0
348
4 SRO
RO

;MEMORY MANAGEMENT REQUIRED?
;NO - SKIP
sTURN OFF MEM MANAGEMENT
. IS COMPARE REQUIRED?

}}S;g

043542

001375
030000
177572

22%:
348:

INTO BUFFER

€z R6KGO RK6 FCTNL

CZR6KG.P11

CTRL DIAG

28-AUG-81 15:16

MACY11

30(1046)

28-AUG-81

15:17

PAGE 210

DATA GENERATION AND COMPARE ROUTINE

SEQ 0209

11280
11281

043560
043562

100012
013705

001700

BPL
MOV

23%
DESHLD,RS

:NO - SK]P
:RESTORE COMPARE PARAMETERS

11283
11284
1°285

043572
043576
043602

013703
013701
000137

001704
001706
042714

[0}
MOV
JMP

WRDNUM,R3
WRDCNT ,R1
13$

:GO START (OMPARE

;}ggg

043610

(SP)+,Ré

::POP STACK INTO R4

11282

11286
11287

043566

043606
0432606

013704

012604

000137

001702

MOV

23%:

043034

MOV

JMP

SRCHLD ,R4

16%

;GO TO EXIT

11290

'-"tttttttttttttttttttttttttitttttttttttt*ttttttttttttttttt"tttti

11291
11292

.SBTTL
i

PHASE LOCK LOOP CLOCK ADJUSTMENT ROUNTINE
THIS ROUTINE IS ENTERED VIA A START AT LOCATION 220(8).

11294
11295
11296
}}Sgg

o%
o*
ow
x

PROGRAM VARIABLES AND THEN JUMPS TO THE CLOCK ADJUST ROUTINE.
THE ROUTINE SELECTS THE FIRST AVAILABLE DRIVE AND SETS AND
RESETS DIAGNOSTIC MODE BIT IN MR1. INSTRUCTIONS ON WHERE TO
SCOPE AND WHAT TO ADJUST ARE TYPED ON THE CONSOLE.

11293

11%83

1}%8}

043614

104401

052752

11303

043620

012762

000040

000010

11305
11306
11307
11308
11309
}}g}?

043634
043642
043650
043652
043660
043662

012762
032762
001774
032737
001402
005077

000001
000200

00000
000000

1131¢
11313
11314
11315
11316
11317
11318
11319
}}%SQ

043666
043674
043700
043702
043704
043712
043716
043720
043722

11304

043626

013762

012762
012701
005301
001376
012762
012701
005301
001376
000761

001626

100000

000010

136022
000040
000014

000C26

000000
000014

000026
3s:

.SBTTL
X
i
B
R

012737

11331

043732

104416

11334

043736

11335

1%:
2%:

}}%Sg

}}ggg

S%:

043734

043742

000111

113700

:TYPE ADJUSTMENT INSTRUCTIONS

MOV

#SCLR,RKCS2(R2)

;CLEAR SUBSYSTEM

MOV
BIT
BEQ
BIT
BEQ
(LR

#1,RKCST(R2)
#RDY ,RKCST(RZ2)
5%
#LCLKPR,OPTFLG
1%
aKWLADD

MOV
MOV
DEC
BNE
MOV
MOV
DEC
BNE
BR

#DMD ,RKMR1(R2)
#12. ,R1
R1
2$
#0,RKMR1(R2)
#12.,R1
R1
3$
1%

177400

:SELECT DRIVE

:WAIT FOR READY
;TEST IF CLOCK PRESENT
:NO - SKIP

:CLEAR INTERRUPT ENABLE
;SET DIAG MODE
:SET A COUNT
;DEC COUNT
:LOOP UNTIL ZERO
:CLEAR MR1
:SET COUNT
:DEC COUNT
;LOOP UNTIL ZERO
;RESTART LOOP

OF THE CYLINDER TO BE REFORMATTED.

CTRHLT: MOV
ERROR

001102

DRVNUM,RK(CS2(R2)

CONTROLLED HALT SUBROUTINE
THIS ROUTINE IS ENTERED WHEN A CONTROL C IS TYPED. THE
SUBSYSTEM 1S CLEARED, THE DRIVE IS RECALIBRATED, AND, IF
NECESSARY, CERTAIN CYLINDERS ARE REFORMATED. THE REFORMATTING
IS CONTROLLED BY THE LOCATION REFMT WHICH CONTAINS THE ADDRESS

TSSINIT

104003

042700

001302

THE PROCESSOR IS HALTED.

,OPR0O19

MOV

001664

043724

THIS ROUTINE WILL LOOF UNTIL

ADJCLK: TYPE

11322
11323
11324
11325
11326

}}%%3

THE
PROGRAM FIRST RUNS TEST 1, 2, AND 3 TO SET UP THE INTERNAL

MOVAR
BIC

#S$TN,STESTN
3

$TSTNM, RO

#177400,R0

:SET UP FOR HALT FAIL
:CLEAR SUBSYSTEM

:BAD INIT ERROR

:GET CURRENT TEST NUMBER
:CLEAR UNUSED BITS

[T]

4 R6KGO RK6 FCTN.

CZR6KG.P11
11336

022700

000003

(43754

004437

035674

043764

000000

043752

11339
11340

043760
043762

11342

043766

11341

11343

}1%2?

28-AUG-81 15:16

043746

11337

11338

CTRL DIAG

062767

001464

000113
000000

MACYT1

30(1046)

28-AUG-81

CONTROLLED HALT SUBROUTINE

JTEST IF TEST NUMBER 3

JSR

R4 ,LRLOAD

;LOAD “'L'' REGS

BYTE

000

BYTE

000000

11346
11347

043772
Q43776

104417
104423

TLOADRK
TWAT16

11350

044000

104421

11353
11354

044004
044010

005037
104437

11357

044014

104421

104004

ERROR

71360

0644020

044022

104416

104003

TSSINIT

11363
11364

044024
044030

005737
001435

001676

104401

053115

11367

044036

004437

035674

11369
11370
11371
11372
};g;i

044044
044046
044050
044051
044052

177676
072414
000
000
00C312

1}%2;

;}%gg

}}ggg

}}%g;

}}%gg
11368

043776
044002

044012

044016

044032

044042

104002

ERROR

TCHKOP

104004
001662

104002

000127

001676

11377
11378
}};gg

044062
044066
044C72

005037
004437
001200

001614
042260

11381

044074

104417

11385

044102

104421

11388
11389
11390

044106
044114
044116

122737
0014603
105237
000761

11382
}}%gz

}}%gg

11391

044076
044100

044104

044122

100002

;LOAD RK REGS
;WAIT FOR INTERRUPT

;TO SLOW/NOT COMPLETE ERROR
O0R 5, 6, 7

;OR 5, 6, 7

TST
BEQ

REFMT
PROGEND

JSR

R4, LRLOAD

,OPR020

001607

REPORT ALL ERRORS

;TEST IF REFORMAT REQUIRED
JNO - GO TO HALT

s TYPE MESSAGE

;LOAD "'L'" REGS

;WRHEAD

0
0
REFMT

JTEST

CLR
JSR
1200

L.DCYL
R4 ,GENCOM

;ELSE LOAD FOR CYL O
JGENERATE HEADERS

TCHKOP

001607

;CHECK OPERATION FOR ANY ERRORS

;=102 WORDS
;OBUFF IS BUFF ADDRESS
:SECTOR O
;TRACK 0
;CYLINDER 312

CyL O

JWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

ERROR

CMPB
BEQ
INCB
BR

#2,L.DT7
PROGEND
L.CT
5%

.NO - SKIP

;LOAD RK REGS

TWAT159
ERROR
2

000002

;CLEAR INTERRUPT FLAG
JWAIT FOR SECOND INTERRUPT

;BAD INIT ERROR

TLOADRK

104004

,REPORT ALL ERRORS

TST

BPL

104434
104002

;CHECK OPERATION FOR ANY ERRORS

sCLEAR SUBSYSTEM

ERROR

WRHEAD

5%:

;CYLINDER 0

INTSET

-102
OBUF F
BYIE
BYTE
312

005737

044060

s TRACK 0

CLR
TWAT8S

TYPE

JRECAL
;0 WORDS

;SECTOR 0

;GO TO HALT PROG

;0 IS BUFF ADDRESS

TCHKOP

044054

11376

PROGEND

ERROR

11375

SEQ 0210

#3,R0

RECAL
0

000

1
PAGE 211

CMP

BEQ

043770

}}%28

15:17

0R 5, 6, 7

;CHECK OPERATION FOR ANY ERRORS

REPORT ALL ERRORS

sTEST IF TRACK 2 FORMATTED
JYES = SKIP
JELSE BUMP TRACK
;DO NEXT

TRACK

meo

€z R6KGO RK6 FCTNL

11392

CTRL DIAG

28-AUG~81 15:16

11393
11394
11395
11396
11397
11398
11399
11480

044124
044130
0441346
044140
0441446
044150
044152
0464156

104401
012706
105037
Q05037

053211
001100
001103
007264
000042

005037

032020

11402

044162

000000

11401

11483

11404

11405
11406
11407
11408

11409

11410
}}2};

064164

005737
001404
000137
000137

044170

000240

0644176

000137

044172

104401

MACY11 30(1046)

28-AUG-81

15:17

CONTROLLED HALT SUBROUTINE

PROGEND :

TYPE
,OPR0O21
#STACK,SP
$ERFLG
$ESCAPE

(LR

$EOPCT

oGl
108

JMP
108 :

001776

PAGE 212

MOV
(LRB
(LR

TST
BEG

031772

$EOP

HALT

JMP

START1

SEQ 0211

;TYPE HALT MESSAGE
;CLEAR STACK
;CLEAR ERROR FLAG
JCLEAR ESCAPE
JTEST IF MONITOR PRESENT
JNO - SKIP
JSET FOR END OF PROGRaM
;GO TO END OF PASS
JHALT PROGRAM

;GO TO RESTART

(ONTINUE

LSBTTL
I
B

HALT FAIL ROUTINE
THIS ROJTINE IS ENTERED If A HARDWARE ERROR IS DETECTED WHEN
THE CARTRIDGE IS BEING REFORMATTED PRIOR TO HALT.
ABTFAIL:
NOP

053252

TYPE

044124

.SBT"L

11413

,OPR02?2

JMP
PROGEND
TYPE ROUTINE

:TYPE HALT FAIL MESSAGE
;GO STOP PROGRAM

2222223332232 23 328232222822 2222222222

11414

*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.

}}2}8

;*NOTE3:

11415
11436
11417

;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
;*NOTEl:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER (CHARA(CTER.
;*NOTEZ:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

11420
11421

J*CALL
t1) USING

11422
11423

11424
11425
11426
11427
11428
11429
11430
11431
11432

11433

11434
11435
11436
11437
11638
11439
116440
11441
11442
11443
11444
11445
116446
11447

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

. %

.*OR
I
o
i
044202
044206

105737
100002

044210

000000

044216

017600

044212
044214

044222
044230
044232
044240
044242
044246
044252
044254
(044262
0442646
044266
044270
044272
044276

000430
010046
122737
001011
132737
001405
010037
004737
000000
132737
001003
112046
001005
005726
012600
062716

001157

$TYPE:

TYPE

1%:

000001

001316

000100

001317

044252
033354
000040

001317

61%:
62%:
2%:

000002

60%:
3%:

INSTRUCTION

.MESADR

;sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TSTB
BPL

$TPFLG
1%

;1S THERE A TERMINAL?
;:BR IF YES

BR
MOV

3%
RO,-(SP)

;s LEAVE
2 :SAVE RO

(MPB
BNE
BITB
BEQ
MOV
JSR
.WORD
BITR
BNE
MOVB
BNE
TST
MOV
ADD

#APTENV,SENV
62%
#APTSPOOL ,$ENVM
62%
RO,61%
PC,$ATY3
0
#APT(CSUP,$ENVM
60%
(RO)+,-(SP)
4%
(SP)+
(SP)+,R0
#2,(SP)

TYPE
ME SADR

HALT

000002

TRAP

MOV

al2(SP) R0

JoHALT HERE

NO TERMINAL

;sGET ADDRESS OF ASCIZ STRING

;;RUNNING IN APT MODE
;NO,GO CHECK FOR APT CONSOLE
; .SPOOL MESSAGE TO APT
2:NO,GO CHECK FOR CONSOLE
;;SETUP MESSAGE ADDRESS FOR APT
;:SPOOL MESSAGE TO APT
2 JMESSAGE ADDRESS
;. APT (CONSOLE SUPPRESSED
;. YES,SKIP TYPE OUT
;sPUSH CHARACTER TO BE TYPED ONTQ STACK
J:BR IF IT ISN'T THE TERMINATOR
;o
IF TERMINATOR POP IT OFF THE STACK
;JRESTORE RO
;;ADJUST RETURN P(C

(g
X gn

CIR6 KGO RK6 FCTNL

(ZR6KG.P1

044300
044302
044306
044310
044314
044316
044320
044322
046324
044330
044332
044336
044342
044344

000002

044350
044354
044356
044362
044366

105366
002770
004737
105337
000770

122716

000011

122716

000200

001430
001006
005726

N S o

o] OO OO0

N
A
N

OOOOY
W)= OO

e o

TYPE

105037

044532

123726

064414
001156

000755
004737
001350
013746

28-AUG-81

ROUTINE

4%:

104401

001273

5%:
6%:

001154

RTI
(MPR

8EQ
(MPB
BNE

JSR
(MPB
BNE
MoV

000001

7$:

044414
044532

DECB
BLT
JSR
DECB
BR

112716

004737
132737

001372
005726
000724

105777
100022

017746
042716

000040
044414
000007

$TYPEC:

134520

177600

105777
00 3
17 14
42 4
22 14
001366

134500

—I-—I—l\‘

9%:

134524

000023

(o Y e Yo
QW]

8%:

101%:

001003

105037
000406
122766
001402
105227

JSR
BITR
BNE

134474
177600
000021
102%:
108
:

134456

000002
000015

044532
000012

000002

1%:

PAGE 213

SEQ 0212

; sRETURN

<HT>

JsBRANCH [F

#CRLF, (SP)

;:BRANCH 1F NOT <CRLF>

(SP)+

<CR><LF> EQULV
;:POP
;:TYPE A CR AND LF

SgHARCNT
2
PC,STYPEC
$FILLC,(SP)+
$NULL ,=(SP)

;. CLEAR CHARACTER COUNT
;;GET NEXT CHARACTER
;.60 TYPE THIS CHARACTER
;:1S IT TIME FOR FILLER CHARS.?
2.1F NO GO GET NEXT CHAR.
;.GET # OF FILLER CHARS. NEEDED

1(SP)
6%
PC,STYPEC
$CRARCNT
7%

;.DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF STACK
;.60 TYPE A NULL
;;D0 NOT COUNT AS A COUNT
;.LOOP

;;AND

THE

NULL

CHAR.

TAB PROCESSOR
#' ,(SP)
PC,$TYPEC
#7 ,8$CHARCNT

(SP)+

TSTB
BPL
Mov
BIC
CMPB
BNE

d$TKS

BPL
MOVB
BIC
CMPB
BNE

#HT
, (SP)

TSTR

005726
105777
100375
116677
122766

MOVB

TST

122716
001012
Y

044370
0464374
044400
044406
044410
044412
064414
044414
044420
064422
044426
044432
044436
044440
044440
044444
044446
044452
044456
0464462
044464
0444564
044466
044466
044472
044474
044502
044510
044512
044516
044520
044526
044530

15:17

TST
TYPE
$CRLF
(LRB
B8R

;HORIZONTAL

B Y e T

D e
Db

D et D e
D

D emd

b e
D d =D

) ed md s ed

) e
)

b e ed e
b oD

D md D =D

D e

D
d

d —d

et d

—d

b o

e e

)

o
e

d reed ed e eend md

md o
e

b b

30(1046)

JJREPLACL TAB WITH SPAfF
::TYPE A SPACE
;sBRANCH IF NOT AT
;. TAB STOP
;sPOP SPACE OFF STAC(CK
:;GET NEXT CHARACTER

;;CHAR IN KYBD BUFFER?

10%
a$TKB,=(SP)

;.BR IF NOT
;:GET CHAR

H#S$XOFF
, (SP)

;:WAS CHAR XOFF
;BR IF NOT

#177600, (SP)
102%

d$TKS
101%
a$TKB, (SP)
#177600, (SP)

::STRIP EXTRANEOQUS BITS

::WAIT FOR (HAR

::GET CHAR

;:STRIP IT7

101%

JoWAS 1T XON?
;BR IF NOT

TST

(SP)+

s FIX STACK

TSTB
BPL
MOVB

a$TPS
108

;;WAIT UNTIL PRINTER IS READY

CMPB
BNE
CLRB
BR
(MPB
BEQ
INCB

#SXON, (SP)

2(SP) ,a%TPB

#(CR,2(SP)
18

$CHARCNT
$TYPEX
#LF ,2(5P)
$STYPEX
(PC)+

::LOAD CHAR TO BE TYPED INTO DATA REG.
;1S CHARACTER A CARRIAGE RETURN?
;sBRANCH IF NO
;;gE?;-CLEAR CHARACTER COUNT
s EX

;1S CHARACTER A LINE FEED?

;:BRANCH IF
;s COUNT THE

YES
CHARA(TER

(gn Yen ]

MACY11

d D D D e

D e

D A

) D

S D b

d DD

DD e

N S N O
32l al 3 Y 2l 2l al 2R AP o ¥ o P MW S S S ol o o
S
AL AR 2t 2
A R AR A 2 R 2R o o
0000000000 0000000000 N NN NNN
N BT e Yo Yo No Yo Yo Yo, Yo X0 Yo SV, IV TV, IV IV IV V1V, [V [V, P o o
B
NNV=2OO0VO
NN
WO
VO
NN
WOV
NN
WA
—=OV00
NN
W
—=0O000
~NONWD

R6KGO RK6 FCTNL CTRL DIAG
R6KG.P11
28-AUG-81 15:16

CZR6KG.P11T
11504

}}282

044532

0644534

28-AUG-81

15:16

MACY11 30(1046)

TYPE ROUTINE

000000

$CHARCNT: .WORD

000207

$TYPEX: RTS

}}28;

.SBTTL

11509

11519
11520
11521

044536
044536
044540

010046
010146

11523
11524
11525
11526
11527
11528
11529

044544
044546
044550
044554
044560
044562
044564

010346
010546
012746
016605
100004
005405
112766

11538

11539

11540
11541
11542
11543
11544
11545
11546
11547
11548

11549
11550
11551

044542

044572
044574
044600
044604
044606
044612
0446146
Q44616
044620

044622

044624
044626
044630
(044632
044634
044636
064640
Q44646
044652

11552
11553
11554
11555

0464656
044660
044662
044666
044670
044672
044674

11557
11558
11559

044700
044702
044710

11556

PAGE 214

SEQ 0213

2 s CHARACTER COUNT STORAGE

pPr

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
sy

R I R Y Y

Y R S

X222}

-THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S5-DIGIT
*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DFPENDING ON WHETHER THE
:'NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
J*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
J*REPLACED WITH SPACES.
sw(CALL:
o
MOV
NUM, - (SP)
;cPUT THE BINARY NUMBER ON THE STACK

}}glg

11530
11531
11532
11533
115346
11535
11536
11537

15:17

RII222222222 22222

11510
11511
11512
11513
11514
11515
11516

11522

28-AUG-81

044676

$TYPDS:

010246

005000
012703
112723
005002
016001
160105
002402
005202

020200
000020
000055

900001

044752
000040

)
2%:

044742

3%:

000774

110223
005720
020027
002746
003002
010502
000764

4%:

5%:

000001
000060
000040

177777

6%:
7%:

000010

105726

100003
116663
105013

1¢:

8¢%:
177777

177776

9%:

;.60

THE

ROUTINE

MOV
MoV

RO,-(SP)
R1.,=-(SP)

;sPUSH RO ON STA(K
;:PUSH R1 ON STACK

MOV
MOV
MOV
MOV
BPL
NEG
MOVB

R3,-(SP)
RS,=(SP)
#20200,-(SP)
20(SP) RS
1%
RS
#'-,1(SP)

;JPUSH R3 ON STACK
;JPUSH RS ON STACK
;sSET BLANK SWITCH AND SIGN
;;GET THE INPUT NUMBER
;:BR IF iINPUT ]S POS.
;. MAKE THE BINARY NUMBER POS.
;sMAKE THE ASC!] NUMBER NEG.

MOV

060105

005702
001002
105716
100407
106316
103003
116663
052702
052702

TYPDS

R2,=-(SP)

;;PUSH R2 ON STACK

CLR
MOV
MOVB
(LR
MOV
SUB
BLT
INC
BR
ADD
TST
BNE
TS18
BMI
ASLB
BCC
MOVB
BIS
BIS
MOvVB
TST
CMP
BLT
BGT
MOV
BR

RO
#$DBLK ,R3
#' ,(R3)+
R?
$DTBL (RO) ,R1
R1,R5S
4%
RZ
3%
R1,RS
RZ
5%
(SP)
7%
(SP)
6%
1(SP) ,=1(R3)
#'0,R2
#' ,R2
R2,(R3)+
(RO) +
RO,#10
2%
8%
RS,R2
6%

;;CHECK IF BCD DIGIT=0
;:FALL THROUGH IF 0
;:STILL DOING LEADING 0°'S?
;:BR IF YES
;.MSD?
;:BR IF NO
JoYES~-=-SET THE SIGN
;sMAKE THE BCD DIGIT ASCII
;sMAKE IT A SPACE IF NOT ALREADY A DIGITY
;.PUT THIS (HARA(CTER IN THE OUTPUT BUFFER
;2 JUST INCREMENTING
;sCHECK THE TABLE INDEX
::G0 DO THE NEXT DIGIT
;.60 TO EXIT
;3GET THE LSD
;.60 CHANGE TO ASCII

BPL
MOvB
(LRB

9%
=1(SP),=2(R3)
(R3)

;:BR IF NO
JsYES==SET THE SIGN FOR TYPING
;:SET THE TERMINATOR

TSTR

(SP)+

;sJERO THE CONSTANTS INDEX
;:SETUP THE QUTPUT POINTER
;;SET THE FIRST CHARACTER TO A BLANK
;;CLEAR THE B(D NUMBER
;.GET THE CONSTANT
;.FORM THIS BCD DIGIT
;:BR IF DONE
;. INCREASE THE BCD DIGIT BY 1
;:ADD BACK THE CONSTANT

;oWAS THE LSD THE FIRST NON-ZERO?

CIR6KGO RK6 FCINL CTRL DIAG

(ZRE6KG.P11
11560
11561
11562
11563
11564
11565
11566

11567
11568
11569
11570
11571
11572
11573
}}g;g

28-AUG=-81 15:16

044712
044714
044716
044720
044722
044724
044730

044736
044740
(044742
044744
044746
044750
044752

012605
012603
012602
012601
012600
104401
016666
012616
000002
023420
001750
000144
000012
000004

044752
000002

MACY11

30(1046)

28-AUG-81

15:17

1
[
PAGE 215

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
MOV
MOV
MOV
MOV
MOV
TYPE
MOV

000004
$DTRL:

$DBLK:
.SBTTL

(SP)+ RS
(SP)+,R3
(SP)+,R2
(SP)+ R
(SP)+,R0O
,$DBLK
2(SP),4(5P)

MOV
(SP)+, (SP)
RT]
10000.
1000.
100.
10.
.BLKW
&
BINARY TO OCTAL (ASCII)

SEQ 0214

::POP STACK INTO RS
;:POP STACK INTO R3
;:POP STACK INTO RZ2
:;POP STACK INTO R1
;;POP STACK INTO RO
::NOW TYPE THE NUMBER
:JADJUST THE STA(CK
J;RETURN TO USER

AND TYPE

11576

".'l’t*ttt*tttttti*.fittttt't*'tttttfiit*itt'ttt*t'!!tittttittttitttt

11577
11578
}}ggg

:«THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
:*«0CTAL (ASCII) NUMBER AND TYPE IT.
;*%XYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

;«CALL:

11581
11582
11583
11584
11585

J*
o *
o
o
I*

}}ggg

MOV
TYPOS
.BYTE
.BYTE

NUM, - (SP)

N
M

::0=SUPPRESS LEADING ZEROS

* &

11588
11589
11590

;*$TYPON=--==-ENTER HERE
:*$TYPOS OR $TYPOC
J*CALL:

11591
}}gg%

I¥
I%

;;NUMBER TO BE TYPED
:3CALL FOR TYPEOUT
J:N-1 TO 6 FOR NUMBER OF DIGITS TO TYPE
;:M=1 OR 0
;;1=TYPE LEADING ZEROS

MOV
TYPON

TO TYPE OUT WITH THE SAME PARAMETERS AS "HE LAST

NUM,-(SP)

::NUMBER T0 BE TYPED
;;CALL FOR TYPEOUT

11594
11595
11596
}}ggg

,*$TYPOC~---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
J«CALL:
B
MOV
NUM,-(SP)
::NUMBER TO BE TYPED
o
TYPOC
:;CALL FOR TYPEQUY

11599
044762
11600
044766
11601
044774
11602 ‘045000
11603
045004
11604
045006
11605
045014
11606
045022

017646
116637
112637
062716
000406
112737
112737
112737

11608

010446

11607

045030

11609

045034

11610
11611
11612
11613
11614
11615

045032

045036
045042
045044
045050
045054
045060

010346
010546

113704
005404
062704
110437
113704
016605

000000
000001
045207
000002

000001
000006
000005

045205

045205
045207
045204

$TYPOS:

MOV
MOVB
MOVB
ADD
BR
$TYPOC: MOVB
MOVB
$TYPON: MOVB

MOV
MOV

045207

000006
045206
045205
000012

MOV

MOVB
NEG
ADD
MOVB
MOVB
MOv

a(SP),-(SP)
1(SP) ,$0FILL
(SP)+,$0MODE+1
42, (SP)
$TYPON
#1,80FILL
#6,30MODE +1
#5,80CNT

R3,-(SP)
R4 ,~(SP)

RS,-(SP)

$OMODE +1,R4
R4
#6,R4
R4, $OMODE
$OFILL,RG
12(SP) RS

;:PICKIP THE MODE
;:LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
::ADJUST RETURN ADDRESS

;;SET THE
;:;SET FOR
::SET THE
::SAVE R3
::SAVE R4
;:SAVE RS
;:GET THE

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF

DIGITS TO TYPE

;:SUBTRACT IT FOR MAX. ALLOWED
:;SAVE 17 FOR USE
JGET THE ZERO FILL SWITCH
J:PICKUP THE INPUT NUMBER

{2 R6KGO Rk6 FCTNL CTRL DIAG

005003
006105
000404
006105
006105

045100
045102

010503
006103

D WWWWWWWWWWANI NN NN NN

045064
045066
045070
045072
045074

045076

045164

045170

2
3
4L

045104

5
6
7
8
9
0
1
2
3

065110
045112
045116
045120
045122
065124
045126
045132
065136

100016
042703
001002
005704
001403
005204
052703
052703
110337

5
6

045146
045152

105337
003347

045156
045160

005204
000744

8
9

045142
045154

0 045162

NNOOOOONONO OO N NN NN AVIWNNAWNES S BN

2
&

045166

065176

5
6

045200
045202

045204

0
;

045203
045205

045206

MACY11 30(1046) 28-AUG-81 15:17 PAGE 216
BINARY 70 OCTAL (ASCII) AND TYPE
18:
28:

006105

105337

104401

3$:

045206

177770

4$:

000060

000040
045202

045204

045202

002402

6$:

012604

016666

LR
ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
BI(
BNE
TST
BEQ
INC
BIS
BIS
MOVB

R3
RS
3$
RS
RS

DECB
BGT

$OCNT
2%

INC
BR

R4
2%

TYPE

BLT

012605

012603

MOV

000004

SEQ 0215

; ;CLEAR THE OUTPUT WORD
**ROTATE MSB INTO ''C"*
160 DO MSB
**FORM THIS DIGIT

R5,R3
R3

::GET LSB OF THIS DIG.T

7$
#177770,R3
48
R4
5%
R4
#'0,R3
#' R3
R3,8$

::BR IF NO
$iGET RID OF JUNK
* TEST FOR 0
: SUPPRESS THIS 0?
::BR IF YES
**DON'T SUPPRESS ANYMORE 0'S
IMAKE THIS DIGIT ASCI]
**MAKE ASCII IF NOT ALREADY
*SAVE FOR TYPING

$OMODE

(SP)+,RS

(SP)+.R&

(SP)+.R3

TLTYPE THIS DIGIT?

1160 TYPE

THIS DIGIT

iCOUNT BY 1
;<BR 'F MORE TO DO
;*BR

DONE

S YINSU.AE LAST DIGIT ISN'T A BLANK
1160 DO iHE LAST DIGIT

:*RESTORE RS

: *RESTORE Ré&

: *RESTORE R3

MOV

2(SP) .4 (SP)

8s:

RTI
BYTE

: RETURN
1*STORAGE FOR ASCII DIGIT

000

SOCNT:

.BYTE

**0CTAL DIGIT COUNTER

000000

SOMODE:
.SBTTL

012616

000002

000002
000
000
000

MOV

SOFILL:

BYTE

.BYTE

(SP)+. (SP)

0
0

.WORD
0
TTY INPUT ROUTINE

*:SET THE STACK FOR RETURNING

**TERMINATOR FOR TYPE ROUTINE
P1ZERO FILL

SWITCN

: NUMBER OF DIGITS TO TYPE

":"tttfitttt!'ttttttttii'ttfi'ifitt'ltl’it.t.tttt'ttfit'ttttititttttt'

"ENABL

S
6

045210
045212

000000
000000

$TKCNT:
$TKQIN:

045216

000001

$TKQSRT:

045014

000000

$TKQOUT:

045217

LSB

.WORD
.WORD

.WORD

$ TKQEND=.

045220

.BLKB

0
0

:;NUMBER OF ITEMS IN QUEUE
*VINPUT POINTER

$ITTY KEYBOARD QUEUE

1DUTPUT POINTER

.EVEN

2
3

;*TK INITIALIZE ROUTINE
*«THIS ROUTINE WILL INITIALIZE THE

6
7

#CALL:
P

0
1

TTY KEYBOARD

INPUT QUEUE

*xSFTUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

045220
045224

005037

012737

045210
045216

045212

§TKINT:

JSR

RETURN
CLR

MOV

PC,STKINT

STKINT

::CLEAR COUNT OF

#STKQSRT,$TKQIN : -MOVE

THE

ITEMS IN QUEUE

STARTING ADDRESS OF

THE

[T
an

Jue,le)

6
7
8
9
0

S =

) med e d med D ) ) md b md et e e D md b ok = D D ed emd e D e b D e b b b el D S e vmd S b ) D e e b b e D D
b D
— b e wnd D b rd end med P el e ) ) ——d —d b el =D b ed D ] D cd ek d d ) d b e ek ) D b D b D b ed b d D e D e b d S S ) e
D
(o Yo Ne oo Yo Yo NS Jo oo oYX
o Yo Yo Yo Yo Yo Yo No No Yo Yo No No Yo No Yo o No Yo Yo Yo Yo Yo Yo Yo No Jo Yo Yo Yo Yo Lo lo s ooTonlododonloNo

[ Xan]

pel
o]

GO RK6 FCTINL CTRL DIAG
G.P11
28-AUG-81 15:16

672
673
674
675
676
g;g

28-AUG-81 15:16

0645232
0452640
045246
045254
045260
045266

013737
012737
012737
005777
012777
000207

045212
045270
000200
133666
000100

MACY11 30(1046)

28-AUG-81

045214
000060
000062

MOV
MOV
MOV
TST
MOV
RTS

TTY INPUT ROUTINE

133656

1
K
PAGE 217

$TKQIN,STKQOUT
#S$TKSRV ,@#TKVEC
#200,3#TKVEC+2
93 TKB
#100,38TKS
PC

;;QUEUE INTO THE INPUT & OQUTPUT POINTERS.
;;INITIALIZE THE KEYBOARD VECTOR
;' BR'' LEVEL 4
:;CLEAR DONE FLAG
:;ENABLE TTY KEYBOARD INTERRUPT
::RETURN TO CALLER

679

:*TK SERVICE ROUTINE

2gg

:*UPON RETURN EXIT IS MADE TO THE ''CONTROL=-C'' RESTART ADDRESS (CTRHLT)

680
681
682
683

:«THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:«]T IN THE QUEUE.
:*]F THE CHARACTER IS A '‘CONTROL-C'' (*C) S$TKINT IS CALLED AND

686

045270

688
689
€90
691

045300
045304
045310
045312

117746

133652

$TKSRV: MOVB

042716
021627
001002
005726

177600
000021

BIC
CMP
BNE
TST

687 045274

042716

692
693
694
695
696
697
698
699

0645314
045316
045316
045322
0645324
045330
045334
045336

000002

703

045356

700
701

045342
045346
045350

021627
001007
104401
004737
005726
000137

021627
001004
022737

001500

177600

BIC

30%:

000003
046422
045220
043724

000007

1$:

000176

001140

045210

::1S THE QUEUE FULL?
:;BRANCH IF NO
::RING THE TTY BELL
::CLEAN CHARACTER OFF OF STACK
I EXIT
::1S IT A CONTROL-S?
: :BRANCH IF NO
::DISABLE TTY KEYBOARD INTERRUPTS
::CLEAN CHAR OFF STACK
:;WAIT FOR A CHAR
:;LOOP UNTIL ITS THERE
::GET THE CHARACTER

(SP)+,#21

133520

CMP
BNE
TYPE
TST
BR
CMP
BNE
CLR
TST
TSTB
BPL
MOVB

719

045432

022627

000021

CMP

720
721

722
723
724
725
726
727

045426

045436
045440

045446
045450
045454
045460
045462
045466

042716

001366
012777

000002
005237
021627
002405
021627
003002

133532
133524

31$:

177600

000100
045210
000140
000175

BIC

BNE
MOV

133476
32%:

: ;RETURN

#1,8TKCNT
3$
LSBELL
(SP)+
5%
(SP) ,#23
32%
A$TKS
(SP)+
a$TKS
318
2$TKB,-(SP)

CMP
BNE
CMP
REQ

000001

3%:

::STRIP THE JUNK
::I1S IT A RANDOM XON?
: :BRANCH IF NO
::CLEAN RANDOM XON OFF STACK

SSSTRIP THE JUNK

::1S IT A CONTROL C?
::BRANCH IF NO
::TYPE A CONTROL-C (*C)
;2 INIT THE KEYBOARD
;;CLEAN UP STACK
::CONTROL C RESTART

022737
001004
104401
005726
000451
021627
001021
005077
005726
105777
100375
117746

000023

#4C177,(SP)
(SP) ,#$XON
30%
(SP) +
(SP) , 43
1%
LSCNTLC
PC,STKINT
(SP)+
CTRHLT

045360
045360
045366
045370
045374
045376
045400
045404
045406
045412
045414
045420
045422

001266

::PICKUP THE CHARACTER

CMP
BNF
TYPE
JSR
TST
JMP

705
706
707
708
709
710
711
712
713
714
715
716
717

718

2$:

RT]

9$TKB,=(SP)

#2C177.,(SP)

RTI
INC
CMP
BLT
CMP
BGT

(SP) 47
28
#SWREG, SWR
6$

H*C177,(SP)
318
#100,3%8TKS
$TKCNT
(SP) ,#140
4%
(SP) ,#175
48

:;I1S IT A CONTROL G?
::BRANCH IF NO
::1S SOFT-SWR SELECTED?
::60 TO SWR CHANGE

::MAKE IT 7-BIT ASCII
;1S IT A CONTROL=-Q?

;:BRANCH IF NO
: :REENABLE TTY KEYBOARD INTERRUPTS
;. RETURN
::COUNT THIS CHARACTER
::1S IT UPPER CASE?
:;BRANCH IF YES
::1S IT A SPECIAL CHAR?
: :BRANCH IF YES

SEQ 021¢

CZROKGO RK6 FCTINL CTRL DIAG

CZR6KG.P11

15:17

QU S
S
U

042716
112677
005237
023727
001003
012737
000002

000040
177512
045212
045212

045217

045216

045212

4%:

5%:

BIC
movs
INC
CMP
BNE
MOV
RTI

15:17

PAGE 218

#40, (SP)
(SP)+,3$TKQIN
$TKQIN
$TKQIN,#STKQEND
5%
H#STKQSRT ,$TKQIN

SEQ 0217

;sMAKE 1T UPPER CASE
;;AND PUT IT IN QUEUE
::UPDATE THE POINTER
;;GO OFF THE END?
s ;BRANCH IF NO
;;RESET THE POINTER
. -RETURN

045470
045474
045500
045504
045512
045514
045522

MACY11 30(1046)
28-AUG-81
TTY INPUT ROUTINE

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE IS ENTERED
FROM THE TRAP HANDLER, AND WILL

045524°
045532
045534
045540

022737
001124
105777
100121

000176

045546
045552

042716
021627

177600
000007

045542

045556

117746

001300

133404
133400

d e

b ek

d cad

)

d et e

b e

b aad

d e

D e o

e ed ed e

b oD =

DS W

)

N ISP QU QIR I QST UL W

D ed

WS DU

I QU S

:;tttt*ttt*tt*tttfit*tit'tifitt*tttt*tttt*ttttttttttttttttttttt*ttt

001140

;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
$CKSWR: CMP
#SWREG, SWR
;218 THE SOFT-SWR SELECTED
BNE
15%
JsEXIT IF NOT
TSTB
a$TkKS
;1S A CHAR WAITING?
BPL
15¢%
;o
IF NOT, EXIT
MOVB

a$TKB,=-(SP)

BNE

8IC
CMP

#‘C177 (spP)
(SP), #7

JJYES

;:MAKE 1T 7-BIT ASCII
;21S IT A CONTROL=-G?

J21F NOT, PUT IT IN THE
JsAND EXIT

TTY QUEUE

::tt*it**tttttt*t*t*ttttttttt*tt**tt*ttthttttttttttttttt*tttttttt

:*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE

045560

123727

045566
045570
045572
04557
045602

001674
005726
004737
005077
112737

045610

104401

0456164
065620
045626
04645626
045632
045634
045636
045642

045644

106401
013746

104402
104401
005046
005046
105777
100375

001134

;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
J*CONTROL=-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.

6% :

045220
133342
000001

0466434

Q46441
000176
046452
133302

CMPB

BEQ
TST
JSR
CLR
MOVB

TYPE
$GTSWR: TYPE
MGV
19%:
7%:

TYPOC
TYPE
CLR
CLR
TSTR
BPL

$AUTOB, #1

;;ARE WE RUNNING IN AUTO-MODE?

LOCNTLG

;;ECHO THE CONTROL-G (“G)
;s TYPE CURRENT CONTENTS
;+SAVE SWREG FOR TYPEOUT

2%
(SP) +
PC,$TKINT
a$TKS
#1,8INTAG

., SMSWR
SWREG,=-(SP)

:;BRANCH IF YES
;;CLEAR CONTROL-G OFF STACK
;:FLUSH THE TTY INPUT QUEUE
;:DISABLE TTY KEYBOARD INTERRUPTS
;2SET INTERRUPT MODE INDICATOR

L SMNEW
~(SP)
-(SP)
a8TKS
7%

;.60 TYPE--OCTAL ASCII(ALL DIGITS)
;;PROMPT FOR NEW SWR
;s CLEAR COUNTER
;s THE NEW SWR
2 CHAR THERE?
::IF NOT TRY AGAIN

045650

042716

117746

133276

MOVB

BIC

#‘C177 (SP)

o$TKB,~(SP)

;sPICK UP (CHAR

045654
045660
065662
045666

021627
001015
104401
062706

000003
046422
000006

CMP
BNE
TYPE
ADD

(SP) 43
9%
JSCNTLC
#6,SP

;1S IT A CONTROL-C?
;;BRANCH IF NOT
;cYES, ECHO CONTROL-C
;s CLEAN UP STACK

000100
043724

BNE
roy
JMP

8$
#100,a%TKS
CTRHLT

045672
045700
045702
045710

123727

001003
012777
000137

177600

001135

(MPB

$SINTAG,#1

;:MAKE IT 7-BIT ASCII
(*(O)

;sREENABLE TTY KEYBOARD INTERRUPTS?
;:BRANCH IF NO
JoALLOW TTY KEYBOARD INTERRUPTS
2 CONTROL=-C RESTART

[
Nam

e|
o

NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNSNNNNNSNNNNNY
OO
WY TN U U] SR
W
00000000 NN NNNNNNNNOOrOONOONO [0 Y e Yo SUIU AV IV IV AV IV IV IV V. F 2P 3F 2E 0¥ ¥ o 2 2 ol SR VIV VNIV (VI
WR = OV NO VIS W 2OV NS WN 2OV NS W —=O VNIV
W —=O 00N NS WSOV
OO

s SIS

lalal

A
D
D
DD
B
=D D

0 RK6 FCINL CTRL DIAG
P11
28-AUG-81 15:16

MACY11

#6,SP
19%

000015

108:

(MP
BNE

(SP) ,#15
16%

133162

001273
001135

000001

000100

133140

11%:
14%:

15%:
16%:

00 0o 00 0o 0o 0o 0o 0o 0o 0o 0O Co 0o 0o 00 00 OO00 00 Yo 00 00 00 00 00 00 00 Co 00 00 00 00

WWWWWWWWWWRNINDOPONNNNONININ
D b
Oo
V0O NN
NN 2OV
NN
NN
OV
NS W
=200 oo

000067
000060
000002

046064

(SP)
, 425
10%

ADD
BR

044414
000060

005266
056616
000667
104401
000720

CMP
BNE

20%:

009002
000006

006316

15:17

046427
000006

000104

800

28-AUG-81

INPUT ROUTINE

9%:

000025

791

39(1046)

TYPE

4 (SP)

ADD
TYPE

#6,SP
SCRLF

RTI
JSR

PC,STYPEC

CMPB
ENE
MOV

010002

001272

18%:

177776

.DSABL
A

11%
2(SP) ,aSWR

$INTAG,
15%
#100,2$TKS

CMP
BLT
CMP
BGT
BIC

(SP) ,#60
18$
(SP) 467
18%
#60,(SP)+

BEQ

17$

TST

17%:

LOCNTLU

TST

BEQ
MOV

ASL
ASL
ASL
INC

2(SP)
(SP)
(SP)
(SP)
2(SP)

BIS
BR

=2(SP), (SP)
7$

20%

TYPE

LSB

L
PAGE 219

L SQUES

2443222223222 22232202022222222

SEQ 0218

;:1S IT A CONTROL=-U?
;;BRANCH IF NOT
;:YES, ECHO CONTROL-U (*W)
;:IGNORE PREVIOUS INPUT
:2LET'S TRY IT AGAIN
2018 IT A <CR>?
;;BRANCH IF NO
D:YES, IS IT THE FIRST (HAR?
; ;BRANCH IF YES
;:SAVE NEW SWR
;sCLEAR UP STACK
:;ECHO <CR> AND <LF>
;JRE-ENABLE TTY KBD INTERRUPTS?
:;BRANCH IF NOT
:;RE-ENABLE TTY KBD INTERRUPTS
;cRETURN
:ECHO CHAR
::CHAR < (?

;;BRANCH IF YES~
;:CHAR > 7?
:;BRANCH IF YES
:;STRIP=0FF ASCI!I
::1S THIS THE FIRST (CHAR
:;BRANCH IF YES
;sNO, SHIFT PRESENT
CHAR OVER TO MAKE
..
0

ROOM FOR NEW ONE.

;;KEEP COUNT OF CHAR
::SET IN NEW CHAR
:3GET THE NEXT ONE

;s TYPE

2<CR><XLF>

;:SIMULATE CONTROL=U

2288000002022

2880RRRRRPFERRRRRS
RS

:*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
J%CALL:

RDCHR
RETURN HERE

$RDCHR:

MOV
MOV
CLR
CLR
MOV

4(SP) ,2(SP)
4(SP)
-(SP)
#64%,-(SP)

TST

$TKCNT

;;WAIT ON A CHARACTER

DEC

$TKCNT

;;DECREMENT THE COUNTER

04606¢
046070
046076
046102
046104
046110

046112

046112
046116
046120

000004
00C004

000002

04611¢

005737
001775
005337

045210
045210

;.GET A CHARACTER FROM IHE QUEUL
;. CHARACTER IS ON THE STACK

.
M

64%:
1%:

RT]

BEQ

(SP),=-(SP)

;:WITH PARITY BIT

STRIPPED OFF

::PUSH DOWN THE PC AND
;. THE PS

;:GET READY FOR A CHARAC(TER
::PUT NEW PS ON STACK

;:PUT NEW PC ON STACK
;:POP NEW PC AND PS

~~Ng

dddd—d—l—l—l-—l-—l—)—l—l—l—‘—‘_‘—l-—.—l_.A—I—l—l—l—l—l—l—l—‘—l—l—l—l—l-—l—l—h—l_fl—‘—l—l—l—l.—l—l—.-—l—l—lédda

—l—l—l—l_l—.l—l—l._l—l—-l_._i.a—l—l_l—l-—l-—l—a—J—l—-l—l—l—l—d—l—a.—‘—.l—l—l—-l—h—l—ld—l—J—a—l—l_J—J-J—J-J_J—I_-I—I—J_J_)

C R6KGO RK6 FCTNL CTRL DIAG
28-AUG-81 15:1
C R6KG.P

046124
046132
046136

046144
046146
046154

117766

005237
023727
001003
012737
000002

177064

045214
045214

045216

TTY

INPUT ROUTINE

000004

MOVB
INC

045217
045214

28-AUG-81

CMP
BNE

2$:
R

MOV
RTI

15:17

PAGE 220

SEO 0219

,
4 (SP)
@$TKQOUT
;:GET ONE CHARACTER
UT
$TKQO
2 ;UPDATE THE POINTER
$TKQOUT ,#$TKQEND ;;DID IT GO OFF OF THE END?
J:BRANCH IF NO
2$
#$TKQSRT ,$TKQOUT

2222233322222

220 202N

;sRESET THE POINTER

:;RETURN

20RRd2 220002220ttt
RRRRRRRRdl ]

s*«CALL:
.

* ®

’

RDLIN
RETURN HERE

bR4

’

046156
046160
046162
046166
046172
046174
046176
046200
046204
046206
046210
046212
046220
046224
046230
046232
046236
0466240
046244
046250
046252
046254
046256
046264
046270
046272

046276

046300
046304
046306
046312
046314
046316
046322
046326

046330
0466334
046336
046342
046346
046352
(46354
040360

$RDLIN:

MOV

046412
046422

1%:
2%:

MOV

000177

10%:

000134
046410
177777

046410
6%:

046412

046410
046410
5%:

000134
046410
000025

046410
7%:

8%:

001273
046612
001272
046410
046410
000015

3s:

1272777

MOVB

CMPB
BNE
TST
BNE

MOVB
TYPE
MOV
DEC

CMP
BLO

MOVR
TYPE
BR
1ST
BEQ
MOVB

-(SP)
#STTYIN,R3
H#STTYIN+8
,R3
.

(SP)+,( R3)
#177,(R3)

R3,ASTTYIN
48
(R3),9%
$
2

;:CLEAR THE RUBOUT KEY
;;GET ADDRESS
s sBUFFER FULL?
;:BR IF YES
2,60 READ ONE CHARACTER FROM THE TTY
;sGET CHARACTER
;. 1S 1T A RUBOUT
;:BR IF NO
2. 1S THIS THE FIRST RUBOUT?
;:BR IF NO
A BACK SLASH

;:SET THE RUBOUT KEY
; ;BACKUP BY ONE
;:STACK EMPTY?
;:BR IF YES
;:SETUP TO TYPEQUT THE DELETED CHAR.
;:G0 TYPE
::G0 READ ANOTHER CHAR.
J:BR IF NO
;. TYPE

A BACK

SET?

SLASH

:;CLEAR THE RUBOUT KEY
;1S CHARACTER A (CTRL U?
;:;BR IF NO

;:TYPE A CONTROL 'V

TYPE
B8R
(MPB
BNE
CLRB

::G0 START OVER

;;BRANCH IF ND
.sCLEAR THE CHARA(TER
::TYPE A ''CR' R LF'
;o TYPE

THE

INPUT STRING

;260 PICKUP ANOTHER CHACTER
JJTYPE A

TYPE

;o CLEAR THE BUFFER AND O00FP
;sECHO THE CHARA(TER

BNE

Pa |

;sCHECK FOR RETURN
;.LOOP IF NOT RETURN

TvpPE

JOLF

;oTYPE A LINE FEED

(LRB

::7S CHARACTER A '"“R'7?

MOvVB
TYPE
(MPB

;. SAVE R3

:;RUBOUT KEY

CLR
(MPR
BNE

#15,(R3)»

-1(k3)

BE ON THE STACK

;; TERMINATOR WILL BE A BYTE C¢ ALL 0°'S

;. TYPE

TYPE
TYPE

(%
:

001274

CMP
BLOS
RDCHR

R3,-(SP)

TYPE

046427
000022

CLR

;o INPUT A STRING FROM THE TTY
;;ADDRESS OF FIRST CHARACTER WILL

J2CLEAR RETURN (THE %)

MACY11 30(1046)

S*«THIS ROUTINE WILi INPUT A STRING FROM THE TTY

NNO2OWO=N)
2

NN~ O

SIS IS DS S S0

= OO0~
NN

NN NNVVTNNNE

OO
NN
000000~ N~ ~ NNNNNNOO OO
AN = O 000N NN N(ANN = OV
[o RV P WY N = OO0~ OV

b rad e e

emd amedd d

]

)

b e

D o) ed e e

d et

D e

)

D e

b e

)

C R6KGO Rk6 FCTNL CTRL DIAG
CZREKG P11
28-AUG~81 15:16

11896

046364

046366
046370

012603
011646

11900
11901

046400
046406

012766
000002

11904
11905
11906
11907
11908

046412
046422
046427
046434
066441

000010
041536
136
043536
015

11902
11903

11909
11910
11911

11912
}}g}z

046372

046410
046411

046446
046452
046460

016666

000004

046412

000006

036440
020040
020075

046464

4L(SP),2(SP)

(SP)+,R3
(SP) ,=(SP)

#STTYIN,4(SP)

SEQ 0220

::CLEAN PUBQUT KEY FROM THE STACK

; :RESTORE
R3
::ADJUST THE STACK AND PUT ADDRESS OF

FIRST ASCII CHARACTER ON IT

$TTYIN:
S$CNTLC:
S$CNTLU:
$CNTLG:
$MSWR:

020127

SMNEW:

.ASCIZ

.EVEN
.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

0
0

8.
/*C/<15><12>
/*U/<15><12>
/*6/<15><12>
<15><12>/SWR

: :RETURN

;:STORAGE FOR ASCII CHAR.
:: TERMINATOR
:;RESERVE 8 BYTES FOR TTY
;;CONTROL ''cTM"
;:CONTROL
'
; :CONTROL ''G"

~HE

TYPE

INPUT

NEW =

tt**ttttttttt*tttttt*tttttttttttttt*tttttttttttttttttttittttttt

11916
11917
11918
11919
11920
}%ggg

*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
:*CHANGE IT TO BINARY.
*«THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL
;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER ;S READ A "2 WILL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. 74 COMPLETE NUMBER MUST
:*THEN BE RETYPED. THE INPUT .S TERMINATED BY TYFING A CARRIAGE RETURN.

JwCALL:
*
RPOCT
;*
RETURN HERE
o

11923
11924
}}352
11927
11928
11929
11930
11931
11932
11933

046464
046466
046474
046476
046500
046502
046504

011646
016666
010046
010146
010246
104411
012600

11935
11936
11937
11938
11939
11940
11941
11942
11943
11944
11945
11946
11947
11948
11649
11950

046512
046514
046516
046520
046522
046526
046530
046534
046536
046540
046542
046544
046546
046550
046552
046556

005001
005002
112046
001420
122716
003026
122716
002423
006301
006102
006301
006102
006301
006102
042716
062601

11951

MOV

PAGE 221

000
000012
000
051127

9% :

000040
042516
000

(SP) +

MOV
RTI
.BYTE
.BYTE
.BLKB
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

000
000

005015
006525
005015
051412

15:17

TST

MOV
MOV

000002

11915

11934

30(1046)
28-AUG-81
TTY INPUT ROUTINE

00572¢

11897
11898

11899

MACY11

046506

046560

010037

000756

000004

000CG2
p

$RDOCT:

18:

0646612

000067

177770

(SP) ,=(SP)
4 (SP),2(SP)
RO,-(SP)
R1,-(SP)
R2,-(SP)

CLR
CLR
MOVB
BEQ
CMPB
BGT
CMPB
BLT
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD

R1
R2
(RO)+,~(SP)
3s
#'0,(SP)
4%
#'7,(SP)
48
R1
R2
R1
R2
R1
R2
#5(7.(SP)
(SP)+,R1

MOV

2%:
000060

MOV
MOV
MOV
MOV
MOV
RDLIN
MOV

B8R

(SP)+,RO

RO,S5$%

: :READ AN OCTAL NUMBER
:;LOW ORDER BITS ARE ON TOP OF THE
:HIGH ORDER BITS ARE IN $HIOCT
: :PROVIDE SPACE FOR THE
: 2 INPUT NUMBER
;:PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
:READ AN ASCIZ LINE
::GET ADDRESS OF 1ST CHARACTER

:AND SAVE IT

:;CLEAR DATA WORD

:;PICKUP THIS CHARACTER

::1F 1ERO GET oOuT
: :MAKE SURE THIS CHARACTER
::1S AN OCTAL DIGIT

Y
Jivh

;8
::STRIP THE ASC! JUNK
::ADD IN THIS DIGIT

: ;. 00P

STACK

CZR6KGO RK6 FCTNL CTRL DIAG
CZROKG.P11
28-AUG-81 15:16

OOOOOO?‘OOOOOO OOOOOOOSOOOOO\OOO OO O OO OO&OOO\OOOOO

046562
046564
046570
046574
046576
046600
046602
046604

046606
046610
046612
0646614
046620
046622

005726
010166
010237
012602
012601
012600
000002

000012
046€2°

105010
104401

104401

000730

001272

0000060

C
2
PAGE 222

TST
MOV
MOV
MOV
MOV
MOV
RTI

(SP)+
R1,12(SP)
R2,$HIOCT
(SP)+ ,R2
(sP)+,R1
(SP)+ RO

{LRB

(RO)

1ST

TYPE

5%:

LWORD
TYPE
BR
$HIO(T: .WORD

(SP)+

0
tsoUES
1%

SEQ 0221

TTY

;sCLEAN TERMINATOR FROM STACK
;s SAVE THE RESULT
;sPOP STACK INTO R?
;;POP STACK INTO R1
;sPOP STACK INTO RO

;:RETURN
;. CLEAN PARTIAl FROM :TA(CK
;.SET A TERMIMATOR
;;TYPE UP THRU THE BAD (HAR.

,,---,n "'CR"’ g LE
,,TRY AGAIN

JHIGH ORDER BITS GO HERE

SAVE AND RESTORE RO-RS ROUTINES

i3 2222222220202
ARRRRRRRRRRR
R A

;*CALL:

it
SAVREG
;*UPON RETURN FROM $SAVREG THE

STACK WILL LOOK LIKE:

* R

PeTOP-=~(+16)

Jv #2-==(+18)
;v +4--=RS
;r *6===R4
;% +8---R3
;*+10---R?
;*+12---R1
;*+14-~=R0

—t

15:17

1*SAVE RO-RS

$SAVRECG:

046624
046624
046626
046630
046632
046634

046636
046640

046644
046650

046654
046660

MOV
MOV
MOV

RO,-(SP)
R1,-(SP)
R2,=(SP)

;;PUSH RO ON STA(CK
;.PUSH R1 ON STACK
;;PUSH R2 ON STA(K

MOV
Mov

R&4,-(SP)
RS,-(SP)

;.PUSH R4 ON STA(K
;;PUSH RS ON STACK

MOV
MOV
MOV
MOV
MOV

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,RS

:.RESTORE PC OF CALL
;.RESTORE PS OF CALL
;.RESTORE PC OF MAIN FLOW
;;RESTORE PS OF MAIN FLOW
. POP STACK INTO RS

MOV
MOV

(SP)+ ,R3
(SP)+,R?

:;POF STACK
;;POP STACK

MOV

MOV
MOV
MOV
MOV

000022
000022
000022
000022

RTI

R3,-(SP)

22 (SP) ,=(SP)
22(SP) ,-(SP)
22(SP) ,=(SP)
22 (SP) ,=(SP)

;PUSH R3 ON STACK

;:SAVE
;. SAVE
;. SAVE
;. SAVE

PS
PC
PS
PC

OF MAIN FLOW
OF MAIN FLOW
OF CALL
OF CALL

;*RESTORE RO-RS

'CALL

d b ed =D e ok =B =d b

74
75

28-AUG-81

READ AN OCTAL NUMBER FROM THE

.SBTTL

67
68

83
84

30(1046)

4%:

005726

000000

MACY11

046662
046662
046666
046672
046676
046702
046704
046706
046710

000022
000022
000022
000022

SRESREG

RESREG

MOV

(SP)+.R4

;.POP STACK INTO R4

INTO R3
INTO R?

6¥kG0 RK6 FCINL CTRL DIAG
6xG.P11
28-AUG-81 15:16

NOND o md ed b D e

C
C

046712
046714
046716

012601
012600
000002

046720
046726
046734
046736
046740
046742
046744
046746
046750
046754
046760
046766
046770

737

0637

047060
000349

000024
000026

2232220222022

$PWRDN:

047060
047064
047064
047064

000024

00002«

AAAEEEARE

:POWER

$PWRUP:

000024
600026
$PWRMG:

000122

042527

R4 ,~(SP)

;.PUSH R4 ON STACK

;;PUSH R5 ON STACK
;;PUSH aSWR ON STACK
;s SAVE SP

.=2

; sHANG UP

#$PWRUP ,@#PWRVEC

UP ROUTINE

MOV

#SILLUP ,@#PWRVEC

MOV

1%
(SP)+,aSWR

;OF
WORD
,.POP STACK

INTO aSWR

;2POP STACK

INTO R4

.EVEN
TRAP DECODER

MOV

;:POP STACK INTO R3
;;POP STACK INTO R2

(SP)+,R1
;.POP STACK INTO R1
(SP)+ RO
;:POP STACK INTO RO
#$PWRDN ,d#PWRVEC ;:;SET UP THE POWER DOWN VECTOR
#340,34#PWRVEC+2 ;:PRIOD:7
;REPORT THE POWER FAILURE
$POWER
;;POWER FAIL MESSAGE POINTER

.SBTTL

$TRAP:

TTY

;:POP STACK INTO RS

(SP)+ ,R3
(SP)+ ,R2

;:THE

POWER UP SEQUENCE WAS

;;PUT

THE

<15><12>"'POWER"’

SP HERE

N A AR RN RRRAARRRANA AR AR

WILL PICKUP THE LOWER BYTE OF
INDEX

STARTED

;; BEFORE THE POWER DOWN WAS COMPLETE

THROUGH

:*OF THE DESIRED ROUTINE.
;*GO TO THAT ROUTINE.
000002

DOWN

,,UAIT FOR THE INC

(SP)+ R4

.WORD

FOUR FAST

;:GET SP
;:;WAIT LOOP FOR THE

(SP)+,RS

RTI

USE

;,SET

$SAVR6,SP
$SAVR6

$SAVR6E

INC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TYPE

S*THIS ROUTINE

010046
016600

;.SET UP VECTOR

SRR RAtRdRRRRiRRitRdRRRRRRRRtR2RRRRRRRRR
DR

$SAVR6:
$POWER:

J*AND

;:PUSH R3 ON STA(CK

R5,=(SP)
dSWR,~(SP)
SP,$SAVR6

: AR AARRRAN AR A ARAAAAR AN

047076
047100

2R RRRRRRRRRRRRRARRRE
2]

;cPUSH R2 ON STA(CK

HALT
B8R
0
.ASCIZ

$ILLUP:

047520

RRRR

R2.,=(SP)

R3,-(SP)

(LR

132116

046720
000340

80002t

#$ILLUP,Q#PWRVEC ;,SET FOR FAST UP
#340,a#PWRVEC+2 ;;PRIO:7
RO,=(SP)
;sPUSH RO ON STACK
R1,-(SP)
;.PUSH R1 ON STA(K

MOV

MoV
MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
HALT

012737
013706
005037
005237
001375

;.POP STACK INTO R
;.POP STACK INTO RO

:POWER DOWN ROUTINE

046772
047000
047004
047010
047014
047016
047022
047024
047026
047030
047032
047034
047036
047044
047052
047054
047056
047060
047062
047064
047066
047074

SEQ 0222

POWER DOWN AND UP ROUTINES

132164

047064
046772

(SP)+ ,R1
(SP)+,R0

Mov
Mov
RTI

.SBTTL
A

NOOOOOOMNN
SNV
NN —=SO N
SN
[o Yo Yo o No Yo No 0N

e
S

—_

[p] [p 0 P

D 2
28-AUG-81
15:17 PAGE 223
SAVE AND RESTORE RO-RS ROUTINES

30(1046)

RO,-(SP)

2(SP) RO

THE

TRAP

TABLE

THE

FOR

RTINS

'‘TRAP'' INSTRUCTMION
THE

STARTING

ADDRESS

THEN USING THE ADDRESS OBTAINED IT wiLL
;s SAVE

2:GET

TRAP ADDRESS

[anVan)

VMACY11

]

O D00 NN
L NN —

NN AL NN NN
LN NIND
o ODOOOOOOOO

C(ZRO6KGO RK6 FCTINL CTRL DIAG
CZR6KG.P11
28-AUG-81 15:16

CZRO6KGO RK6 FCTNL CTRL DIAG
CZR6KG.P11
28-AUG-81 15:16
12064
12065
12066
12067
12068
12069
12070
12071
12072
12073

B N
U
A
I S
gy

S md b e ik ed e —d B =2 OOOOO
OO NV
WA = O000 NN N

D
D
) —d
d
D
)
et
D
D
D
ek
e
—d e

NURLALNLNL NNV ALNLNLNLNLNL
AL PV PV NN NN

12074
12075
12075
12077
12078
12079
12080
12081

047104
047106
047110
047112
047116

MACY11

30(1046)

TRAP DECODER

00574C
047132

:;THIS

047120
047122
047130

011646
016666
000002

000004

00000¢

1S USE

TO HANDLE

$TRAP2: MOV

THE

TABLE

CONTAINS

047120
044202
045006
044762
045022
044536

$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS

047146

045614

047150
047152
047154
047156
047160
047162
047164
047166
047170
047172
047174
047176
047200
047202
047204
047206
047210
047212
047214
047216
047220
047222
047224
047226
047230
047232

045524

035222
037176
035734
036164

::INDEX TO TABLE
;G0 TO ROUTINE

;;MOVE

THE

DOWN

THE

PSW

;:MOVE THE PSW DOWN

s sRESTORE

THE

STARTING ADDRESSES

THE

ROUTINES

CALLE"

ROUTINE

047132
047134
047136
047140
047142
047144

046066
046156
046464
046624
046662

: JBACKUP BY 2
J:GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING

TRAP TABLE

;*BY THE ''TRAP'' INSTRUCTION.

SEQ 0223

''GETPRI'' MACRO

4(SP) ,2(5P)

RTI

;*THIS

PAGE 224

(SP) ,~(SP)

MoV

.SBTTL

15:17

-(R0)
(RO),RO
RO
$TRPAD
(RO) ,RO
RO

TST
MovB
ASL
Mov
RTS

111000

006300
016000
000200

28~-AUG-81

$TRAP?

TRAP+1(104401)

s CALL=TYPDS

TRAP+2(104402)
TRAP+3(1(4403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NC LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST (ALL)
TYPE DECIMAL NUMBER (WITH SIGN)

$GTSWR

;s CALL=GTSWR

TRAP+6(104406)

GET SOFT~SWR SETTING

$CKSWR

;:CALL=CKSWR

TRAP+7(104407)
TRAP+10(104410)

TEST FOR CHANGE

$RDCHR
$RDLIN
$RDOCT
$SAVREG
SRESREG

SCOP1$

SSINIT
LOADRK
GETRK
CHKOP
CHKWE

IWAT16
IWAT3?2
IWAT48
IWAT64
IWAT80
IWAT96
IWAT112
IWAT128
IWAT144
IWAT159
IWAT1S

IWATZS
IWAT8S
IWAT1M

$TERM. -$TRPAD

;. LALL=TYPE

s CALL=TYPOC
s CALL=TYPOS

;sCALL=TYPON

;2 CALL=RDCHR
J2CALL=RDLIN
;e CALL=RDOCT

;s CALL=SAVREG

;¢ CALL=RESREG

2 :CALL=SCOP1
;s CALL=TSSINIT
;s CALL=TLOADRK
;s CALL=TGETRK
::CALL=TCHKOP
;s CALL=TCHKWE

J:CALL=TWAT16
;:CALL=TWAT3?
:;CALL=TWATLS
JsCALL=TWAT6S
;:CALL=TWATS80
;:CALL=TWAT96

JsCALL=TWAT112

::CALL=TWAT128
;s CALL=TWAT144
;;CALL=TWAT159
;:CALL=TWAT1S
:iCALL=TWATZ2S
:sCALL=TWATS8S

:;CALL=TWATIM

IN SOF T-SWR

TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY

TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413) SAVE RO-R5 ROUTINE
TRAP+14(104414) RESTORE RO-R5 ROUTINE
TRAP+15(104415) INTERNAL LOOP ON ERROR
TRAP+16(104416) INITIALIZE SUBSYSTEM

TRAP+17(104417) LOAD RK611 FOR OPERATION
TRAP+20(104420) GET RK611 REGISTERS
TRAP+21(104421) CHECK OPREATION FOR ANY ERRORS
TRAP+22(104422)

TRAP+23(104423)
TRAP+24(104424)
TRAP+25(104425)
TRAP+26(104426)
TRAP+27(104427)
TRAP+30(104430)
TRAP+31(104431)
TRAP+32(104432)
TRAP+33(104433)
TRAP+34(104434)
TRAP+35(104435)
TRAP+36(104436)
TRAP+37(104437)
TRAP+40(104440)

CHECK OPERATION FOR EXPECTED ERRORS
WAIT 16 MS

WAIT 32 MS
WAIT 48 MS

WAIT 64 MS
WAIT 80 MS

WAIT
WALT
WAIT
WAIT
WAIT

WAIT
WAIT
WAIT
WAIT

96 MS
112 MS
128 MS
144 MS
160 MS
FOR
FOR
FOR
FOR

1
2
8
1

SECOND
SECONDS
SECONDS

MIN

.SBTTL

PATTERN

;DATA PATTERN 2
177777
177777
177777

PATO?.

HI-LO FREQ.

MIX

(VL

.SY, NV, L VIV, LV B Ve VIV, |

N NNV
SNWIWA NI N WY
(o o SV IV, LY RV, CT, L VEN], ¥}

ViV NN ~Nwan

e e e O
OO
0O0O
NN NNV
NI N
LS

NI
N NN NN NN
NN
WVINIVWANN (Va1|
OOV
NIV
N ~NPON

FREQ.

PHASE

MIX

000000

000000
000000

000000

177777
177777
177777

177777
177777
177777
000000
000000
177777
177777
000000
177777

000000
000000

177777
177777
00C000
177777
000000
177777

000000

177777

000000

000000
177777

177777

W1V, IV, 1V, |

ANALAANINOND
WO

PATO4:

;DATA PATTERN 4
EQ.

AG IV, IV, 1, G 1,V

047334
047334
047336
047340
047342
047344
047346
047350
047352
047354

PAYO3.

SO
2= —uwOO0OO
rovuArorRoOrRO
AN
LS L IV
IV 1,N1,N1,§]
oADMY

047324
047326
047330
047332

002000
000000

2 OO—=
=2 —=OO0O
POV
NN WA WD
VAPONDVAVWVAAPNIRNO
N
PONAARONOND WAL
VLS LIV IV TV, 1,8 1,81, ¥}
PO
AR
POV L

047300
047302
047304
047306
047310
047312
047314
047316
047320
047322

ZEROS

05252"

;DATA PATERN 3
047274
047274
047276

IS ALL

PHASE MIX

PAGE 225

DATA PATTERNS

DATA PATTERN 1

047234
047234
047236
047240
047242
047244
047246
047250
047252
047254
047256
047260
047262
047264
047266
047270
047272

15:17

SEQ 0224

(g Xan ]

MACY11

NN NNNNOOOOOOOOONOVNIWVNUVIVIWVIWVIVIVIWNWE
85 8N IS 8888 BN NN N
N N NN W N NN NN RO O N
VIS W= OVONO NS WN =20V
NNV
WD O V00 NV HWN 20O 000NN
WA 20000 NONWN S wify —

[aYa)

6KGO RK6 FCTNL CTRL DIAG
P11
28-AUG-81 15:16

30(1046)
28-AUG-81
DATA PATTERNS

—

el —md

b b

b —ed

12209

1A 1S 1N 1N 1 N 1N 1N 1, N 1, )
noroNoNorON NS RRIASIASIASIAS
LA 1A S 1,81 V1,8 1, S TAN 1,8 ], V]
norohoNNIN no IAYIASIASIAS
PORNUND = et e ed —d ) vt ed d b
WRUNONINO
NN
QO
~NOW fo W N=OVONOWVNESWN=O

12231
047474
047474
047476

042213

026455

113226
= ANIWNVNON NN SO =N

047434
047434
047436
047440
047442
047444
047446
047450
047452
0474654
047456
047460
0467462
047464
047466
047470
047472

PATO6:

;

;DATA PATTERN 10

;
PAT10:
2NN

=BT

:DATA PA

2PN SO

;DATA PATTERN §

PAT(QS:

O = NH

[N S U
QR QY A S
NN Y o Y o R0 QU QU o
WWWWWNW
NN NN ON NN o
NNNWNWNNAON
O NN [od]
WHWNWHWWWNNNOSON
NN o
WWWWWWWWNWNONON
NN o~
WWWWWWN
N NNONON NN o

wvinaownrownrown

SO
=)
O
nownirnownrorN
RN
WIRND WY
PN
N
oo NFOAN
[AS AV, T WAV, T GV, TN

rovIrowvnInOIIIND S
VRN
WNNOAAN
nowvrowvIrnown .

_HODOAO
PO
ND

—

O —
1 0
cor—

C oy

——

(o
b

30(1046)

047432

MACY'1

0 —¢

047416
047420
047422
047424
0467426
047430

O
=M
P>
2

047374
047374
047376
047400
047402
047404
047406
047410
047412
047414

—_ e
e e D e 2 e OO R
2O N W WIWNWWWAN
NG O NN NN N
WWWWW AWNWNO-ON NN
N
[VNIVNIVNIVN TV
TUNIV TV, T Ne SUNIV, 1V, Te XU
WWNWINWNWWNANN
NN NN NN N
WWWWWWWNWNNOON
W
ONAN

047356
047360
047362
047364
047366
047370
047372

O =OQOO 00000
20—
O
2N O=2NNWONND
NS =N
O =2 NN
SO —
NBO=PHO
NN
WNNI S C =N
-

OO O
O OO OO OO O O 0o 0o 0o 0o 0o 0o 0o 00 0o 0o
=0V NOWNEWN-=OVIONONNEWN
O

6KGO RK6 FITNL
PN
28-A
DATA PATTERNS

28-AUG-81

ROTATING

026455

113226

15:17

CELL
PULSE

G 2
PAGE 226

MAX PRECOMP. PHASE MIX
133333

6
ING BOUNDARY PULSE PRECOMP.

;DATA PATTERN 7

FIELD OF ALL ONES

PRECOMP,

[ Y]

SEQ 0225

047500
047502
047504
047506
047510
047512
047514
047516
047520
047522
047524
047526
047530
047532

15:16

064551

132264

055132
026455

113226

045513
122645
151322

064551

132264

055132

o
i
el
—

NN
DLS IS IAVIAS AN 1 N1, 8], V]
[pS 15N 11,0
oo\
N —=O
0

;

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

PAT11:

SHIFTED 1

12
12
12

177776
177775
177773

177776
177775
177773
177767
177757
177737
177677
177577

SHIFTED O IN A FIELD OF ONES

12
12
12

PAT12:

—

12
12
12
12 274
12 275
12
12277
12278
12279
12280
12

ZEROS

100000

WWANON NINININININININYNY

IN A FIELD OF

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

JDATA PATTERN 12

047574
047574
047576
047600
047602
047604
047606
047610
047612
047614
047616
047620
047622
047624
047626
047630
047632

H 2
PAGE 227

122645
151322

:DATA PATTERN 11
047534
047534
047536
047540
047542
047544
047546
047550
047552
0467554
047556
047560
047562
047564
047566
047570
047572

15:17

045513

o —A—lo
o (W 1 P
&» — NI\
W
W WO W
no
WONNND
8 = N VNWNO NN
& -—
NS 2 PONWNON NN
S —2PON (o]

28-AUG-81

30(1046)
28-AuG-81
DATA PATTERNS

—

MACY11

077777
;DATA PATTERN 13

SEQ 0226

[mle)

6KGO RK6 FCINL CTRL DIAG

6KkGO0 RK6 FCTNL CTRL DIAG
6KG.P11
28-AUG-81 15:16
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
3L
305
327
328
329
330
331
332
333
33,

335
336
337
338
339
30
31
342
343

047634
047634
047636
047640
047642
047644
047646
047650
047652
047654
047656
047660
047662
047664
047666
047670
047672

047674
0476764
047676
047700
047702
047704
047706
067710
067712
047714
047716
047720
047722
047724
047726
047730
047732

047734
047734
047736
047740
047742
047744
047746
047750,
047752
047754
047756
047760
047762
047764
047766

052525
052525
052525
052525
052525
052525
052525
052505
052525
052525
052525
052525
052525
052525
052525
052525

125252
125252
125252
125252
125252
125252
125252
125252
125252
125252
125252
125252
125252
125252
125252
125252

000001
00003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777

MACYT1

30(1046)
28-AUG-81
DATA PATTERNS
;
PAT13:

15:17

PAGE 228

ALTERNATING 0-1
052525
052525
052525
052525
052525
052525
052525
052525
052525
052525
052525
052525
052525
052525
052525
052525

DATA PATTERN 14
.
ALTERNATING 1-0
PAT14:
125252
125252
125252
125252
125052
125252
125252
125052
125252
125252
125252
125252
125252
125252
125252
125252
;DATA PATTERN 15
:
SHIFTING ZEROS AND ONES
PAT1S:
000001
000003
000007
000017
000037

000077
000177
000377
000777
001777
003777
007777
017777
037777

SEQ 0227

{IR6KG. P11
12344

12345

12346
12347
12348
12349

047770

047772

047774

28-AUG-81 15:16
077777
177777

12350
12351
12352
12353

047774
047776
050000
050002

072307
135143
156461
167230

12363

050026

123073

12354
12355
12356
12357
12358
12359
12360
12367
12362
12364

}S%gz

050004
050006
050010
050012
050014
050016
050020
050022
050024
050030

050032

073514
035646
016723
107351
143564
061672
030735
114356
046167
151453

164616

15:17

077777
177777
;DATA PATTERN 16
;
COMPOSITE ROTATING
PAT16:

072307
135143
156461
167230
073514
035646
016723
107351
143564
061672
030735
114356
046167

123073

151453

164616

PAGE 229

VACY11 30(1046)
28-AUG-81
DATA PATTERNS

SEQ 02728

CZR 6KGO Rk6 FCTINL CTRL DIAG

(ZR6KGO RK6 FCTNL CTRL DIAG

CZR6KG. P11

28-AUG-81 15:16

12367

12368

024000

12369

}5%;2

12375
12376

12377
12378
12379
}S%g?

050034
050036

FIELDS AND VARIABLES FOR OPERATION CHECKING

DSERBIT=70

0000CO
000000

EXPWC:
EXPUBA:

12382
12383
12384
12385
12386

050050
050052
050054
050056
050060

000000
000000
000000
000000
000000

12389

050064

000000

123N
12392
12393

.SBTTL

000070

050046

12390

000000

000001

(S2ERBIT=1774L

EXPBA:
EXPCYL:
EXPSEC:
EXPTRK:

.WORD
.WORD

,WORD
.WORD
.WORD
.WORD

:(S2 ERROR BITS

;SPDLSS,DROT,ACLO
0
0

;EXPECTED
JEXPECTED
JEXPECTED
JEXPECTED

REALWC: .WORD
REALUB: .WORD
REALBA: .WORD
REALCY: .WORD
REALTRK:.WORD

0
0
0
0
0

;WORD COUNT AT END OF OPERATION
JREAL UPPER BA
;BUS ADDRESS
sCYLINDER
s TRACK

GRP1ER:

;GROUP 1

REALSEC:.WORD

.WORD

SPARERR=BIT0O

SKIERR= BIT1
NXFERR= BIT?2
DRPARERR=BIT3

12395
12396
12397
12398
12399
12400

000040
000100
000200
000400
001000
002000

DTYERR= BITS
ACLOERR=BIT6
SPDERR= BIT?7
DROTERR=BIT8
COERR= BIT9
IDAERR= BIT10

12402
12403
12404
45282

010000
020000
040000
100000

DTERR=
NCERWE=
UNSERR=
CERNER=

000020

12401

12407

12408
12409
12410
12411
12412
12413

}Sé}g

12416
12417
12418
12419
12420
12421
12422

FMTERR= BIT4

004000

050066

000000

000001
000002
000004
000010
000020
000040

GRP2ER:

000100

050070

000000
000001
000002
000004
000010
000020
000040

JEXPECTED WORD COUNT (GIVEN)
JEXPECTED UPPER BA (COMPUTED)

0
0

000002
000004
000010

12394

PAGE 230

sDLT,WCE,UPE
NED ,NEM
;PGE ,MOS ,UFE
;DS ERROR BITS

000000
000000
000000
000000

050062

15:17

FIELDS AND VARIABLES FOR OPERATION CHECKING
;CS1 ERROR BITS SPAR & (70

050042
050044

}gggg

050040

2B8-AUG-81

(S1ERBIT=2400"

177400

12370
12371
12372

MACY11 30(1046)

GRP3ER:

BUS ADDRESS (COMPUTED)
CYLINDER (COMPUTED)
SECTOR (COMPUTED)
TRACK (COMPUTED)

sSECTOR

ERROR FIELDS

;CONTROLLER DETECTED DRIVE BUS PARITY ERR
sSEEK INCOMPLETE
sNON-EXECUTABLE CRIVE FUNCTION
;DRIVE DETECTED DRIVE BUS PARITY ERROR
;FORMAT ERROR

;DRIVE TYPE ERROR
;AC LOW ERROR
sSPEED LOSS ERROR
;DRIVE OFF TRACK ERROR
sCYLINDER OVER FLOW ERROR
;ILLEGAL DISK ADDRESS ERROR

WLERR=

BIT11

.WORD

;GROUP 2 ERROR FIELD

ESERR=

BIT6

;BAD SECTOR ERROR

.WORD
NEDERR=
CTOERR=
UFERR=
MDSERR=
PGERR=
NEMERR=

0
BITO
BIT1
BIT?2
BJT3
BIT4
BITS

BIT12
BITT3
BIT14
BIT15

ECHERR= BITO
DCKERR= BIT1
WCKERR= BIT?
DLTERR= BIT3
OPIERR= BIT4
4VRCERR=B]TS

JWRITE LOCK ERROR

;DRIVE TIMING ERROR
;NO CERR WITH ERROR SET ERROR
;sDRIVE UNSAFE ERROR
sCERR BUT NO ERROR SET ERROR
;ECC HARD ERROR
:DATA CHECK ERROR
JWRITE CHECK ERROR
;DATA LATE ERROR
;OPERATION INCOMPLETE ERROR
JHEADER VRC ERROR

:GROUP 3 ERROR FIELD
:NON-EXISTANT DRIVE ERROR
;CONTROLLER TIME OUT ERROR
JUNIT FIELD ERROR
JMULTIPLE DRIVE SELECT ERROR
;PROGRAMMING ERROR
;NON-EX]STANT MEMORY ERROR

SEQ 0229

CZR 6KGO RK6 FCTNL CTRL DIAG

C(ZR6KG.P11
12423

28-AUG-81 15:16

MACY11 3001046)

000200

126426
12427
12428
1¢429
12430
12431

050072

12434
12435
12436
126437
12438

GRPLER:

050074
050076
050100
050102
050104

054076
054151
054123
054225
054260

GRP4MS:

12441

050110

054342

GRP3MS:

}Szzg

050126

054550

15228
12442
12443
12444
12445
12446
12447

000040

050106

050112
050114
050116
050120
050122
050124

JUNIBUS PARITY ERROR

.WORD
WCERR=
UBAERR=
BAERR=
CYLERR=
TRKERR=

0
BITO
BIT1
BIT?
BIT3
BIT4

;GROUP 4 ERROR FIELD
;WORD COUNT ERROR FLAG
;UPPER BA ERROR
sBUS ADDRESS ERROR FLAG
sCYL ADDRESS ERROR FLAG
s TRACK ADDRESS ERROR FLAG

.WORD
.WORD
.WORD
.WORD
.4ORD

EM10
EM11A
EM1]
EM12
EM13

.WORD

EM15

.WORD

EM22

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

054571
054602
054615
054631
054643
054670
054703

GRP2MS:

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

EM23
EM24
EM25
EMZ26
EM27
EM28
EM29

12458
12459
12460
12461
126462
12463
12464
126465
126466
12467
12468

050146
050150
050152
050154
050156
050160
050162
050164
050166
(50170
050172

054724
054777
055017
055055
055123
055140
055161
055170
055213
055233
055255

GRPIMS:

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

.WORD

EM30
EM31
EM3?
EM33
EM34
EM35
EM36
EM37
EM38
EM39
EM4O

126471
12472
152;2

050200
050202
050204

055353
055415
055432

.WORD
.WORD
.WORD

EM43
EM44
EM45

12475
12476

12477
12478

050174
050176

050206

.WORD
.WORD

055307
055330

000000
000001

000002
000004

.WORD
.WORD

GPSUMF:

sSECTOR ADDRESS ERROR FLAG

EMI16
EM17
EM18
EM19
EMZ20
EM21

050130
050132
050134
050136
050140
050142
050144

EM4]
EM4?2

.WORD
0
GRP1ST= BITO

GRP2ST= BIT1
GRP3ST= BIT2

SEQ 0230

;ILLEGAL FUNCTION ERROR.

EM14

12450
12451
12452
12453
12454
12455
}Szgg

12469
12470

PAGE 231

BIT6

SECERR= BITS

054310
054365
054410
054431
054456
054500
054524

UPERR=

ILFERR= BIT7

000000
000001
000002
000004
000010
000020

}%2%%

15:17

FIELDS AND VARIABLES FOR OPERAT.ON CHECKING

000100

}%2%?

28-AUG-81

;GROUP ERROR SUMMARY FLAGS
;GROUP 1 ERROR SET

;GROUP 2 ERROR SET
;GROUP 3 ERROR SET

M 2
15:17 PAGE 232
30(1046)
28~AUG -81
FIELDS AND VARIABLES FOR OPERATION CHECKING

GP1INR=
GP2NR=
GP3NR=

000010
000020
000040
040000

12479
12480
12481
12482
12483
12484
12485
12486
12487

DRSTER=

LSBTTL
. %

* %

(U AV LV LU LV RV LV LV, ]

(MNDLB:

051522

DRIVE C!EAR
UNLOAD
START SPINDLSE
RECALIBRAE

OFFSET
SEEK
READ

ILLEGAL OPERATION %3

OPER36

WRITE DATA
READ HEADER
WRITE HEADER
WRITE CHECK

OPER34

OPERATION MESSAGES
.SBTTL
/DRIVE SELECT/
OPERDO: .ASC1Z

020113

OPERO2:

.ASCIZ

/PACK ACK/

020105
000122
042101

OPERO4:

.ASCIZ

/DRIVE

OPERO6:

LASCIZ

/UNLOAD/

052122
042116

OPER10:

.ASC1Z

/START

046101
042524

OPER12:

LASCIZ

/RECALIBRATE/

043106

042523

OPER14:

LASCIZ

/OFFSET/

045505
040505
040524

000
020104
00

OPER16:
OPER20:

.ASCIZ
.ASCIZ

/SEEK/
/READ DATA/

OPER2?2:

.ASCIZ

/WRITE DATA/

044522
040505
000

052103

CLEAR/

SPINDLE/

OPERZS: LASCIZ

/READ HEADERS/

OPER26:

/WRITE

LASCI1Z

DATA

OPER2?2
OPER24
OPERZ26
OPER30
OPER3?2

020105

044522
052101
042101
042504
044040

PACK A(K

— —

050374
050401
050406
050414
050422
050430
050431
050436
050444

;ADDRESS OF SELECT MESSAGE

OPEROOQ
OPERQ2
OPEROQ4
OPERO6
OPER10
OPER12
OPER14
OPER16
OPERZ20

050362
050367

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

—_O =

051104

OPERATION MESSAGE ADDRESS

THIS TABLE CONTAINS THE ADDRESS OF ASCIZ FIELDS THAT ARE
USED IN REPORTING TO IDENTIFY THE OPERATION BEING PERFORMED.

[@],¥1,8]

050250
050256
050264
050265
050272
050276
050304
050312
050320
050321
050326
050334
050337
050344
050352
050353
050360

050507
050533

—
==\ N0
N=O ==
NO
PNO
2NV OWO

LV IV T IV TV L IV W AV IV NV [V LV LV LV LV LV, LW LV RV LU LU AV AV LV LU, AV JV LV LV, LV, 1V, ] W
o
o
S NN = OV
NN WN=OV
NS WN =00V~
[

od e

—d ek nd — D cnd =D

)

b od

b} ik

b ed

d e

MOMNLNLNLALRLALNLNLNLNLNLRNLNLALNLNLPLNLNL
VPV NINL NNV NL N NNV PNV NN

050367

TABLE OF

1 ERROR NOT RECEIV ED
2 ERROR NOT RECEIV ED
3 ERROR NOT RECEIV ED
IN GETTING DRIVE STATUS FLAG.

JREPORTING NOT RECEIVED SWITCH

REPNR=

100000

050246

;GROUP
;GROUP
JGROUP
;ERROR

SEQ 0231

HEADERS/

(g
X an ]

CZR6KGO RK6 FCTINL CTRL DIAG
P11
CZR6KG.
28-AUG-81 15:16

MACY11

30(1046)

28-AUG-81

12535
12536
12537

050447
050454
050462

127
041440
000

044522
042510

042524
045503

OPER30:

.ASCIZ

/WRITE CHECK/

12539
12540
12541
12542
12543

050470
050476
050504
050507
050514

046101
052103
031463
111
046101

046116

043505

OPER32:

.ASCIZ

/ILLEGAL FUNCTION 33/

043505
047125

OUPER34:

.ASCIZ

/ILLEGAL FUNCTION 35/

12545
12546
12547
12548
12549
12550
12551
12552
12553
12554
12555
12556
12557
12558
12559
12560
12561
12562
12563
12564
12565
12566
12567
12568
12569
12570
12571
12572
12573
12574
12575
12576
12577
12578
12579
12580
172581
12582

050530
050533
050540
050546
050554
050557
050564
050572
050600
050606
050613
050613
050620
050626
050634
050642
050650
050656
050664
050672
050700
050706
050714
050722
050724
050732
050740
050746
050754
050762
050770
05G776
050777
051004
051012
051020
051026
051034

032463
111
046101
052103
033463
127
042040
041101
020104
041040

043505
047125
020116

OPER36:

.ASCIZ

/ILLEGAL FUNCTION 37/

042524

OPER37:

.ASCIZ

/WRITE DATA ABORTED WITH BSE/

OPER4O:
OPER4T:

_ASCIZ

/WRITE

020105
040440
042105
020110
054105

OPER42:

.ASCIZ

/WRITE DATA ABORTED WITH NON-EXISTANT MEMORY/

zgggé

051050

12538

12544

1¢583

050463

050522

051042

28-AUG-81 15:16

111

052103

043040
047511
000
046114
043040
047511

000
046114
043040
047511
000
044522
052101
051117
044527
042523

047125
020716

OPERATION MESSAGES

020116

020101
042524
044124
000

127
041440
-040440
042105
020110

044522
042510
047502
053440
041527

042524
045503
052122
052111
000105

051511
046440
000131
042522
052101
051117
044527
047117
052123
042515
000
127
042040
041101
020104
052440
020123
054524

040524
046505

052116
051117

042101
020101
042524
044124
042455
047101
047515

042040
041191
020104
047040
044530
020124
054522

OPER43:

.ASCIZ

/READ DATA ABORTED WITH NON-EXISTANT MEMORY/

044522
052101
051117
044527
044516
040520

042524
020101
042524
044124
052502
044522

OPER44:

.ASCIZ

/WRITE DATA ABORTED WITH UNIBUS PARITY ERROR/

051127
040504
047502
053440
047516

057117

052111
040526
052122
052111
026516

0462440

00C

051120

CHECK ABORTED WITH WCE/

SEQ 0232

[an¥an)

MACY11

CIR6KG.P11T

15:17

N 2
PAGE 233

CZR6 KGO RK6 FCTNL CTRL DIAG

CZRO6KG.P11

28-AUG~81 15:16

MACY11 30(1046)

051053

12590
12591
12592
12593

051064
051072
051100
051105

12589

12594

12595
12596
12597
12598
12599

12600
12601

12602

051156

12604

051165

12607
12608

051206
051214

12603

12605
12606

12609
12610
12611
12612
12613
12614
12615
12616
12617
12618
12619
12620
12621
12922
12623

12624

051164

12637
12638
12639
12640

051416
051424
051432
051440

12635
12636

12641

051402
051410

051446

/) =/

030461
04752¢
051104
020050

OPRO03:

.ASCIZ

/RK611

122

033113

030461

OPRO0&4:

.ASCIZ

/RK611 PRIORITY ( /

052111

020131

020050

111

051516

043125

OPR00S:

.ASCIZ

/INSUFFICIENT MEMORY. PROGRAM ABORTING./<15><12>

054522
043517

020056
040522

051120
020115

LASCIT

<15><12>/T0 BYPASS TESTING DRIVE 0, PLACE IT OFF-LINE/

LASCII

<CR><LF>/CHANGE XXDP PACK/

LASCIZ

<CR><LF>/CLEAR LOC 40,RESTART PROGRAM/

LASCIT

<155<12>/DRIVE O WILL NOT BE TESTED.

OPROGY:

.ASCIZ

<15><12>/THE FOLLOWING DRIVES WILL BE TESTED/<15><12>

000

050040
000

041101
043516

051317
051324
051332
051340
051346
051354
051362
051370
051376

.ASCIZ

033113
041505
042101
020123

051222
051230

12625
12626
12627
12628
12629
12630
12631
12632
12633
12634

OPR002:

.2
053040
020122
051505

044506
020124

051236
051236
051244
051252
051260
057266
051274
051302
051310
051316

020123
051505
000
020075

051172
051200

(051236

.ASCIZ

052502
051104
020050
020051

051150

SPACE2:

SEQ 0233

020061
042101
020123
040

051112

051143

ASCII MESSAGES

PAGE 234

000040

005015

051142

.SBTTL

040

051056

051113
051120
051126
051134

15:17

ASCI] MESSAGES

?gggg
12588

28-AUG-81

045522

044522

044503
042515

051117
006456

030466

051117

047105
047515

04452«
000012

OPROO1:

OPROC6:

005015
042507
020120
005015
020122
030064
040524
047522
000
015
051104
040440
041101
051117

044524
051120
020115
042524
005015
047506
047111
053111
046111
052040
006504

044103
054040
040520
046103
047514
051054
052122
051107

047101
042130
045503
040505
020103
051505
050040
046501

047012
053111
040526
042514
052040
043516
043517
041101
00G104

020117
051505
046111
043040
051505
020056
040522
051117

020107
051505
020114
051505

051104
053440
042502
042524

044124
046114

000012

020105
053517

:
OPRCI7:

:
OPRO08:

,ASCIZ

LASCIZ

.ASCIZ
.ASCIZ

<15><12>/RK611 BUS ADDRESS ( /

VECTOR ADDRESS

( /

<15><12>/T0 TEST DRIVE 0O, REPLACE PROGRAM PACK WITH SCRAT(CH PA(CK/

TO TEST DRIVE 0,/<15><12>

/RESTART AT 214 AND MOUNT SCRATCH PACK AS DIRECTED./
<15><12>/NO DRIVES AVAILABLE FOR TESTING. PROGRAM ABORTED/

aln

CZR 6KGO RK6 FCTNL CTRL DIAG

MACY11 30(1046) 28-AUG-81
ASCI] MESSAGES

12642

051452

12643
12644
12645
12646
12647
12648

051460
051466
051474
051502
051510
051516

12650

051525

12649

12651
12652
12653
12654

12655
12656

12657

12658
12659

12660
12661
12662
12663
12664
12665
12666

12667
12668
12669
12670
12671
12672
12673
12674
12675
12676
12677
12578
12679

12680

12681
12682
12683
12684
12685
12686
12687
12688
12689
12690
12691
12692
12693
12694
12695
12696
12697

051524

051532
051540
051546
051554

051562
051570

051573

005015

020131
047117
046440
020131
044440
006505

OPRO10: .ASCII

055

052440

044516

JASCIZ

/- UNIBUS PARITY ERROR TEST BYPASSED/<i15><12>

040520
005015

051523
000

042105

.ASCI]

<15><12>/MEMORY SIZE NOT LARGE ENOUGH FOR BUS ADDRESS BITS 16 & 17 TESTS

JASCIZ

/ALL DATA XFER TESTS WITH ADDR >/

OPRO12:
OPRO13:
OPRO14:
OPRO1S5:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/32k/
764K/
/96K/
/ BYPASSED/<15><12>

OPRO16:

.ASCII

<15><12><12>/

050040
046501
046125
044040
020104
050131
041536

LASCI]

/THIS PROGRAM SHOULD BE HALTED BY TYPING “(./<15><12>

040510

JASCID

/IF HALTED USING THE HALT KEY,

052502
044522
051122
051505

052022
052030
052036
052044
052052
052060
052066
052074
052077
052104
052112
052120
052126

040520
042440
052040
054502

046412

046505

046040
0426440
020110
052502
051104
044502
020066

051101
047516
047506
020123
051505
051524
020046

042507
043525
020122
042101
020123
030440
033461

052040
005015
046101
040524
020122
020123
040440
000076
031063
032066
033071
041040
042523

052010
052016

020123
054524
051117
020124

015

051666
051674

051752
051760
051766
051774
052002

SEQ 0234

050040

051117
042532

051676
051704
051712
051720
051726
051734
057736
051742
051746

PAGE 235

052111
044524
051117
05117
040505
051525

051600
051606

051614
051622
051630
051636
051644
051652
051660

051101
050117
043040
046505
0511017
020116
012

047516

15:17

005015

020040
020052
047511
006452
044124
047522
051440
020104
046101
054502
047111
006456
111
052114
044523
042510
020124

020131
047040

051505

020114
054040
042524
044527
042104

000113
000113
000113
050131
006504

020012

020040
040503
020116
005012
051511
051107
047510
042502
042524
052040
020107
012
020106
042105
043516
044040
042513

044523
052117

OPRO11:

<15><12>/NO PARITY OPTION FOR MEMORY AREA IN USE/<15><12>

051524

040504
042506
052123
044124
020122

051501
000012
020040
025052
052125

axx CAUTION *+x/<15><12><12>

025052

052440
052040
046101
026131

THE STATE OF

THE DRIVE/<15><12>

[gn Yan)

CZR6KGO RK6 FCTNL CTRL DIAG
CZR6KG.P11
28-AUG=-81 15:16

WWN =2 OO NNV
I N
=ONS
OIS ONOMN S

O=MNNV-2ON—=2 20O
=20 SO NP NN &~

044522

052252

042526

052

052274

044514

04251

6
7

8
9

0
1

0526420

047516

052456

052522

3
&
5
6

052426
052434
052442
052450

052464

2
3

042515

—

006456

»H

054504

042040

052040

052515

026506

044514

042524

020072

041040
006456

020104
052523
042505
051501
020116

044440

005012

047107
051502
052116
020123

053111

043012

041505

2
3

40
22

9
1

/ANY DRIVE NOT TO BE TESTED MUST BE OFF-LINE./<15><12><12>

LASCI]

/NOTE: 2ND AND SUBSEGUENT PASS RUN TIME [S/<15><12>

ASCIZ

.ASCII

<15><12>/FIRST 256 SECTORS NOT BSE ERROR FREE./

006523

051104

.ASCIT

044524

/READY, AND WRITE LOCK RESET./<15><12>

020105

0445
05

JASCI1

051505

020104

020062
030063

041505
042440

/ALL DRIVES TO BE TESTED MUST BE ON-LINE,/<15><12>

020117

020130
020116

22
30

LASCII

‘l(

06
14

4
5

/OR CARTRIDGE CANNOT BE PREDICTED./<15><12><12>

020040

040440

LASCII

020040

500

050120
043040
041501
-000

031040
047040

042523
051117

047522

APPROX 2 MIN 30 SEC FOR EACH DRIVE./<15><12>

7
0
0

OPRO17:

SEQ 0235

Y un ]

PAGE 236

040

15:17

OO0OO
S
1 U1V, |

052473

047062
020104
050505
050040

OOOOOO
R
A, PVNIV,

28-A1G-81

ASCII MESSAGES

05
05

)
d
b
D D e
)
b e
b weed D e e
)
b
d e
d e
b e
)
s
d —d d
D
b b
b )
b
b

MACY11 30(1046)
40
40

SN=O
VNI—=OWVNWN=0=20
= NNNO—=NO
SO 2NN —
O\ NW
NN
=N S NSO

D D

) e

) ek

D ed ey

AV AL

D e

oIV

D e

28-AUG-81 15:16

[

(ZR6KGO Rk6 FCTNL CTRL DIAG

CZR6KG.P11T

12754
12755

052515

052612
052616

042522
040515

052664

052752

12756
12757
12758
12759
12760
12761

052624
052632
052640
052646
052656
052662

12763
12764
12765
12766
12767
12768
12769
12770

052672
052700
052706
052714
052722
052730
052736
052744

12762

12771

12772
12773
12774
12775
12776
12777
12778
12779
12780

12787

12782
12783
12786
12785
12786
12787

12788

12789
12790
12791
12792
12793

12794
12795
12796
12797
12798

052760
052766
052774
053002
053010
053016
0530246
053032
053040

053044

053052
053060
053066
053074
053102
053110

053115

020040

047412
020061
027105
046122
020104
052101
041040
042523

020040

006440

005015

046116
051104
047440
050101
050117
047511
050131
006504

041523

050117

035105
024040
026051
034055
026062
031055
041440
026105
041457

041440
051124
042440
020073
042440
024040
052517
027040
024515

052123
043040
047117

051040
051117
052123

005015

020124
020114
031110

015

052103
000

12805

053252

12809

040524
051516
042524
050131
006504

053202
053210

053211

12806
12807
12808

040504
040522
020122
041040
042523

051107
046101
042116
020055
044522

12799

12800
12801
12802
12803
12804

020115
052040
042506
052123
051501
000012

053122
053130
053136
053144
053152

053160
053166
053174

047506
041040
041440

020131
053111
042520
042520
051105
051516
051501
000012
030510
043511
031465
044103
034464
041501
046120
953062

042101

052512

042514
047117
005015

042526
041440
000

050012

046501
020124
047111
040503
043504

046522
044505
051117
042105

044040
042520
020107
052122
020105

PAGE 237

SEQ 0236

LASC!Z

/MAXIMUM DATA TRANSFER TEST BYPASSED/<15><12>

OPRO18:

.ASCIZ

OPR0O19:

.ASCII

<15><12>Q@SCOPE: CH1

LASCIZ

<15><12>/ADJUST R72 FOR CONSTANT LEVEL ON CH2/<15><12>

OPR020:

.ASCIZ

<15><12>/PROGRAM HALT PENDING - CARTRIDGE FORMAT BEING CORRECTED/<15><12

031067
041440
047101

047522

/<15><12>/0NLY 1 DRIVE. OVERLAPPED OPERATIONS BYPASSED/<15><12>

(TRIG), E53-8;

(HZ2, E49-2 (AC COUPLE,

052101
043516
042522
005015

015

025012

025052

OPR021:

.ASCIZ

<15><12>/++exx

040503

052122

044522

OPR022:

.ASCIZ

/CARTRIDGE FORMAT CORRECTIOM FAILED/<15><12>

020116

040506

053216
053224
053232
053240
053246

025052
043517
040510
020040
006452

053260
053266
053274

043504
046522
051117

053302

027105
044530

15:17

047511

020040
040522
052114
025052
000012
020105
052101
042522

051120
020115
042105
025052
047506
041440
052103

PROGRAM HALTED

w«evwne/<15><12>

.2v/(M)a

[2n
X en )

MACY11 30(1046) 28-AUG-81
ASCI] MESSAGES

- EEEEEEEEEEEEEEEEEE
E E
LD E LD
BB BB
I
BIPPEPPPDPPDPPRPEPR

CZR6KGD RK6 FCTNL CTRL DIAG
CZR6KG.P11T
28-AUG-81 15:16

LA N

837

2850

A LA WA WA

o
N
&~

J\\‘

Lo]

576
604
OO

NN
=N
O

o
~
n

/FATAL=WRiTE

026514

EM3:
LASCIZ
/FATAL =PARITY FRROR

EM4:

LASCIZ
/EXPECTED

EMS:
LASCIZ
/SUBSYSTEM CLEAR DID NOT RESET

.SBTTL
EM1:

D —

PO ~n)

d _p =

o OOOOOO
SHSuvnesroro s
[ASFP N elel 18]

~N SO0 NONO

N NN NN NN NN
o N E NN
=

N
S
. Y

<15><12>/PROGRAM ABORTING BECAUSE ERROR THRESHOLD EXCEEDED/<15><12>

ERROR MESSAGES
/FATAL-NON EXISTANT MEMORY AT RK611 BASE ADDRESS/
LASCIZ

READY AND
IL

TRAP.

DID NOT

P(C

INTERRUPT DID NOT

CAUSE

ERROR

ERROR/

INTERRUPT/

OCCUR OR wAS _ATE.
COMMAND WAS:/

SEQ 0237

mOmmm O

mMmMmMmMmMmommm|mmmm

QONIINIOOMN
NN
NN

LASCIZ

PAGE 238

LASCIZ
m

ABORT:

mTmm

047522
040440
047111
040503
051105
044124
046117
042503
00501°¢

MESSAGES

15:17

050012
0646501

005015

ASCI]

28-AUG-81
F

mMmmmmmmmrrr mimm

b ad

042105

EM2:

(VLI
LV, F o o8

MACY1T

046101
0642524
054504
044440
020104
040503
047111
050125

F AN E 2P NV, VLV, BV LV, [,V LV, 1V, ]
POV
=
ONOO—=NMNNIN S =N N—
B B O/ VIO = NN
NO
b =
b bk
e \N
OSSO OO=RMNVOSHN—2O
O
NWVINOOWO
SN WS NIWOOONMKN
N—=ONS

NOWORO
WNIN N —

A NN

046101
042440
047101
047515
020124
020061
040440
051523

VIR
=

O OOMNINOWVIRNES
S =PSRN
NOMNN
NOVNO = NN
O NO O 2N O OO NIWMNN

SO =N

OOOOOOOO o
VAN SN S
(VYR o n
=N
=N =N o

A N N NTNNA

no
o
(¥ OQO=—=2\N—=
=\ NNNN=
O
SR O
o £ o SRR
OO O = BMANW NN S YN YO W

slelelolelelelelelololelolelelele
e imiiiziclelelelalelels]

—

oo 00 00 0o 00 0o Co 0o 0o 00 0000
00 00
~n) no NIOND = b ccd acd ed o ) =D b —
N ~no = OO0
NONN B (N — o

ANV NN N AL LNV

CZRO6KGO RK6 FCTNL CTRL DIAG
P11
(ZR6KG.P
28-AUG=-81 15:16

30(1046)

041125
046505
051101
047040
057505
053105
047111
050125
051502
020115
020122
047516
020124
000131
042122

0564523
041440
042040
052117
052105
041511
042524
000124
051531
046103
04650¢
0201c4
042522

EM6:

LASCIZ

/SUBSYSTEM CLEAR DID NOT RESET DEVICE INTERRUPT/

EM7:

.ASCIZ

/SUBSYSTEM CLEAR DID NOT SET READY/

061440
044440
042522

EM10:

,ASCIZ

/WORD COUNT

12885
12886
12887
12888
12889
12890
12891
12892
12893
12894

054130
054136
054144
054151
054156
054164
054172
054200
054206
054214

042104
044440
042522
125
047040
0421046
041040
047111
041505
030501

042522
041516
052103
050120
051525
042522
052111
047503
020124
026066

040440

EMI1:

_ASCIZ

/BUS ADDRESS

EMI11A:

_ASCIZ

/UPPER BUS ADDRESS BITS

LASCIZ

/CYLINDER ADDRESS INCORRECT/

.ASCI.

/TRACK ADDRESS INCORRECT/

EM14:

.ASCIZ

/SECTOR ADDRESS INCORRECT./

.ASCIZ

/NON-EXISTANT DRIVE/

.ASCIZ

/CONTPOLLER TIMEOUT/

ASCIZ

/UNIT FIELD ERROR/

EM18:

LASCIZ

/MULIPLE DRIVE SELECT/

DN
—
WWOVNNONSWNIW
OOV
NS
—=OOO

EM17:

=N =2ON—O
PNV

OO0

&£Honan

OCOOO0OOO

A%,]
—O
VAND WA

EMI6:

0471
042
02
WS HNO SN

EM15:

O
—

026516

EM13:

OO0

041501
051104
047111
041505
052103
042104
044440
042522

EM12:

OO0

000
046131
020122
051505
047503
000124

051523
051117
000
051105
040440
051523
020123
051122
041050
030440

051}

~n
&

[
o

&H
£&H

(¥,]

~—d

b —d e}

—~ OO0
N NS W

POND —

054424
054431

052116
051117
000
051525

024467
103
042504
051104
047111

o0 OO 0O o
HO [V, 1V, ] N (%,
~NO —
on —
Vo -\ &SN —
—h N =N
SN ONO
o A NWOWNIW
= &N

"N
NN
H
o

o
OO

052517
041516
052103
102

b eed =2

—

S}
O
o

b
—

[aS1a¥]
OO
4

N
N
G

054222
054225
054232
054240
054246

roRLrLNLNLNDNLNVNLNY
~NO OO OO0V 00O

12895
12896
12897
12898
12899

054104
054112
054120
054123

INCORRECT/

INCORRECT

(BA16,

17)/

(28 Yau

123
052123
042514
042111
051040
042040
020105
051122
052523
042524
040505
020104
042523
042101
047527

~SOOAmMm

053755
053762
053770
053776
054004
054012
054020
0540c
054034
0564042
054050
054056
054064
054072
054076

lvleolviciviciviviv]lvivivivlivivlelviolotnlalalfafalaifafalalnlialala el XKoo Yo NN e

866
867
868
869
870
871
872
873
874
875
876
877
2878
2879
2880

SEQ 0238

30(1046)
2B-AUG-81
ERROR MESSAGES

MACY1]

2881
2882
2883
2884

15:17

6 3
PAGE 239

6KGO RKE FCINL CTRL DIAG
6KG.P1
28-AUG=81 15:16

12922

12923

2B-AUG-81 15:16

054436

054444

042514

042526

042040

051440

12924
12925
12926
12927
12928
12929
12930

054452
054456
054464
054472
054500
054506
054516

041505
051120
046515
051105
047516
051511
046440

000124
043517
047111
047522
026516
040524
046505

12932
12933
12934

054524
054532
054540

047125
050040
020131

054550

046111

12931

12935

12936

12937
12938
12939
12940
12941
12942

12943

12944
12945
12946
12947
12948
12949
12950
12951
12952
12953
12954
12955
12956
12957
12958
12959
12960
12961
12962
12963
12964
12965
12966

12967

12968
12969
12970
12971
12972
12973
12974
12975
12976
12977

054522

054546

054556
056564
054571
054576
054602
054610

054615

000131

000122

020114
044524
105
051101
040506
042510

127

054622
054630
054631
054636
056643
054650
054656
054664
054670
054676
054703
054710
054716
054724
0564732
054740
054746
054754
054762
054770
054776
054777
055004

041440
000
104
040514
117
044524
041516
052105
042510
053040
102
041505
051105
047503
046114
052105
020104
020105
040520
042440
000
123
047117

055017
055024
055032
055040
055046
055054
055055
055062
055070
055076

116
042530
046102
053111
041516
000
104
042040
042524
053111

055012

042514

28-AUG-81

ERROR MESSAGES

15:17

PAGE 240

SEQ 0239

044522

046105

040522
020107
000122
054105
052116
051117

EM19:

,ASCIZ

/PROGRAMMING ERROR/

EM20:

.ASCIZ

.
/NON=EXISTANT MEMORY/

041111
051101
051105

051525
052171
047522

EM21:

.ASCIZ

/UNIBUS PARITY ERRCR/

0462514

040507

EM22:

.ASCIZ

/ILLEGAL FUNCTION/

EM23:

.ASCIZ

/ECC HARD/

EM24:

_ASCIZ

/DATA (CHECK/

042524

EM25:

._ASCIZ

/WRITE CHECK/

052101
0462524
042520
047117
046517
000105
042101
041522
042101
047524
047522
052116
051105
0417505
051104
052502
044522
051122

020101
000
040522
044440
046120

EM26:

.ASCIZ

/DATA LATE/

EM27:

.ASCIZ

/OPERATION INCOMPLETE/

051105
000
051440
020122
000122
047522
042040
042524
053111
020123
054524
051117

EM28:

.ASCIZ

/HEADER VRC/

EM29:

,ASCIZ

/BAD SECTOR ERROR/

EM30:

.ASCIZ

/CONTROLLER DETECTED DRIVE BUS PARITY ERROR/

042505
047503

020113
050115

EM31:

_ASCIZ

/SEEK

047117
052503
020105
020105
044524

042455
040524
051104
052506
047117

EM32:

_ASCIZ

/NON-EXECUTABLE DRIVE

044522
052105
020104
020105

042526
041505
051104
052502

EM33:

_ASCIZ

/DRIVE DETECTED DRIVE BUS PARITY ERROR/

052506
047117
0415063
000104
040524
045503

044522

042510

042524

041516
000
04404C
041440
000
045503

000

(e iaTaivivivlvlolvlelvliolviviolvielvivivlolvivivlelwiviviviojvivivivielelviviviolele
v BN
e

(ZR6KG.P1T

MACY11 30(1046)

INCOMPLETE/
FUNCTION/

e lelelelelelelelw)

CZR6KGO RKE FCTINL CTRL DIAG

044522
051122

12989
12990
12991
12992
12993
12994
12995
12996
12997
12998
12999
13000
13001
13002
13003
13004

055170
055176
055204
055212
055213
055220
055226
055233
055240
055246
055254
055255
055262
055270
055276
055304

13006
13007
13008

055314
055322
055330

046040
051105
051104

13010
13011
13012
13013
13014
13015

(055344
055352
055353
055360
055366
055374

042440
000
116

13017
13018

055410
055415

047440
042440
051440
104

13020
13021
13022
13023
13024
13025

055430
055432
055440
055446
055454
055462

000105
042503
052105
047040
042510
047522

051122
041040
020117
020122
020122

13028
13029
13030
13031
13032
13033

055472
055500
055506
055514
055522
055527

053126
047040
052105
020110
040440
123

042040
052117
053440
040520
045503
040524

12987
12988

13005

13009

13016

13019

}gggg

055161
055166

055307

055336

055402

055422

055470

020123
054524
051117
106
020124
000122
051104
054524
051122

101
000127
050123
020105
020104
000
1064
047440
040522
103
042504
051105
000

111
046101
020113
040440
051523

127

044524

051122

020110

052440

000124

PAGE 241

SEQ 0240

040520
042440
000
051117
051105

040515
047522

EM34:

_ASCIZ

/FORMAT

ERROR/

053111
042520
051117

020105
042440
000

EM35:

.ASCIZ

/DRIVE

TYPE ERROR/

04751«

EM36:

.ASCIZ

/AC

047111
050123
047514

046104
042505
051523

EM37:

_ASCIZ

/SPINDLE

044522
043106
045503
046131
020122
046106

042526
052040
000
047111
053117
053517

EM38:

_ASCIZ

/DRIVE OFF

EM39:

_ASCIZ

/CYLINDER OVERFLOW/

046114
042040
040520
0421046
00
044522
041517
047522
053111
044515

043505
051511
045503
042522

EM4O:

.ASCIZ

/ILLEGAL DISK PACK ADDRESS/

042524

EMG1:

_ASCIZ

/WRITE LOCK ERRCR/

EM42:

_ASCIZ

/DRIVE

EM43:

_ASCIZ

/NO CERR WITH SOME OTHER ERROR SET/

EM44:

_ASCIZ

/DRIVE UNSAFE/

051440
052125
052137
051105
042523

EM4S:

_ASCIZ

/CERR SET BUT NO OTHER ERROR SET/

042111
051440
052111
045503
000
052524

EM46:

ASCIZ

/vVv DID NOT

EM47:

_ASCIZ

/STATUS VALID SET ON SELECT

020703

051122

020113
000122
020105

043516
042503
052111
042515
051105

052105
044522

000
042526

051516

SPEED LOSS/

TRA(CK/

TIMING ERROR/

051117

020117
053440
047523
044126

051122

LOwW/

051117
043101

SET wITH PACK ACK/

TO NON-EXISTANT DRIVE/

055104
055112
055120
055123
055130
055136
055140
055146
055154

15:17

[aalaadasiasinslaslaslaalasiasinalaalaslaslasinalnalnslanlaalaskaualiasiaakasiaalisaiadinnlaslviliviviviviviviviwlieoly )

12978
12979
12980
12981
12982
12983
12984
12985
12986

30(1046)
28-AUG-81
ERROR MESSAGES

memnmm

MACY11

mmMmMhmMmmmmmmminm

CZR6KGO RK6 FCTNL CTRL DIAG
CZR6KG.P1}
28~AUG~-81 15:16

055534
055542
055550
055556
055564
055572
055600
055606
055610
055616
055624
055632
055640
055646

020123
020104
047117
041505
047040
044530
020124
000105
052123
053040
051040
047440
042514
020117

040526
042523
051440
020124
047117
052123
051104

044514
020124
046105
047524
042455
047101
053111
.ASCIZ

/STATLS VALID RESET ON SELECT TO EXISTANT DRIVE/

055662

044522

051525
042111
05210¢
042523
052040
051511
0462040
000
052524
044514
020124
020124
044522
046105
000
041505
047062
042524
020124
047516
052503
053440
052101
046517
053440

EM4L8:

13049

052101
046101
051505
020116
052103
054105
052116
042526
040526
040526
047516
042523
042040
051040
042523
050130
020104
047111
050125
020104
041517
051117
046040
041440
042116
000072
047116
040505
020104
051117
006505
051505
040440

EM49:

_ASCIZ

/STATUS VALID NOT RESET ON DRIVE

EM50:

.ASCIZ

/EXPECTED 2ND

EMS1:

_ASCII

/CANNOT READ BAD SECTOR FILE/<15><12>

LASCIZ

/TESTING ABORTED OM TH!S DRIVE,

044522

052117
020104
042523
043040
012
044524
047502
047440
051511
042526

044514

047107

EMS2:

_ASCII

/ALIGNMENT PACK ON THIS DRIVE./<15><12>

053111

027105

LASCIZ

/TESTING ABORTED ON THIS DRIVE./

13050
13051
13052

13053
13054
13055
13056
13057
13058
13059
13060
13061
13062
13063
13064
13065
13066
13067
13068
13069
13070
13071
13072
13073
13074

055710
055716
055724
055732
055737
055744
055752
055760
055766
055774
056002
056010
056016
056024
056032
056036
056044
056052
056060
056066
056073
056100

123
020123
020104
042522
047117
042526
040505
105
042524
020104
051122
044504
020124
020122
051501
027105
040515
051501
040503
051040
040502
052103
046111
124
043516

13077
13078
13079
13080
13081
13082
13083
13084
13085
13086
13087
13088
13089

056122
056130
056131
056136
056144
056152
056160
056166
056170
056176
056204
056212
056220

042040
000
101
042515
041501
052040
051104
005015
042524
020107
042524
052040
0511046

13075
13076

055667
055674
055702

040524

056106
056114

052122
020116

042105
044124

052116
020113
044510

050040
047117
020123

052123
041101

047111
051117

053111

027105

020104
044510

047117
020123

INTERRUPT

SEQ 0241

RELEASE/

LID NOT OCCUR OR WAS LATE.

COMMAND WAS:/

[ Yen

13034
13035
13036
13037
13038
13039
13040
13041
13042
13043
13044
13045
13046
13047

055654

15:17

MMM MmMMmMMmrrmmmmmMmMmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
MM MM M eny

MACY11

13048

30(1046)
28-AUG-81
ERROR MESSAGES

J
3
PAGE 242

CZR6KGO RK6 FCTNL CTRL DIAG
{ZR6KG.PT
28-AUG-81 15:16

13139

13140
13141
13142
13143
13144
13145

056366

056374
056402
056410
056416
056426
056432
056440
056444
056452
056460
056461
056466
056474
056502
056510
056516
056522
056530
056536
056544
056552
056560

042101
051117
041523
042522
052101
042122
047503
000105

051105
020104
046517
000
020101
046440
050115

EM54:

_ASCIZ

/HEADER WORD MISCOMPARE/

EMS5:

.ASCIZ

/DATA WORD MISCOMPARE/

040503

047116

052117

EMS56:

.ASCIZ

/CANNOT FIND HEADER O IN READ AND SORT HEADERS/

EMSVAL:

.ASCIZ

/STATUS VALID/

056604
056612

056626
056630
056636
056644
056650
056656

000105
051104
052101
047511
047503
046114

056564
056572

056600

041440

047117
020123
000105

047111
042101
044440
042101
051440
042510
000123
052101
046101

TESTING ABORTED ON THIS DRIVE/

052040
051104

020104
051105
020116
040440
051117
942101
.
0515¢5
042111

046105
044527
N47117
020117
051525
000122
052111
047503
020104
051525
051511
000062

041505
044124
055055
052123
050040

EMNZPR:

.ASCIZ

/SELECT WITH NON-ZERC STATUS PAIR/

047111
046515
052123
051040
042524

EMWCS2:

.ASCIZ

/WRITING COMMAND STATUS REGISTER 2/

053111
042524

020105
051122

000124

EMDTPE= EM35
EMDI:
.ASCIZ

/DRIVE

;DRIVE TYPE ERROR
INTERRUPT/

EMDPAR= EM33
EMDSC:
.ASCIZ

;DRIVE DETECTED DRIVE BUS PARITY ERROR
/DRIVE STATUS CHANGE/

053111
052101

020105
051525

053111

020105

EMDA:

.ASCIZ

/DRIVE ATTENTION/

047522
041440

EMrC.R:

_ASCIZ

/CONTROLLER (LEAR/

040510

oMM TmmmmMmmmMmm

053111

043040
042510
030040
042522
042116
020124
051105
052123
053040
000
123
020124
047040
051105
052101
044501
051127
020107
047101
052101
043505
020122
055140
051104
047111
050125
055055
051104
052123

056620

/TO MANY BAD SECTORS.

[2TaTn)

13110
13111
13112
13113
13116
13115
13116
13117
13118
13119
13120
13121
13122
13123
13124
13125
13126
13127
13128
13129
13130
13131
13132
13133
13134
13135
13136
13137
13138

_ASCIZ

e Y A YaYaYalalalalalalalalalalalalinialal

13109

EMS3:

gl o

042510
053440
0644515
040520
104
047527
051511
051101

056306

13100
13101
13102
13103
13104
13105
13106
}%}8;

040515
042101
047524
042524
020107
0425264

020117
041040
041505
020056
047111
051117

056312
056320
056326
056334
056341
056346
056354
056362

13099

13097
13098

124

056272
056300

054516
051440
051522
052123
041101
0201064
044510

SEQ 0242

043516

000

PAGE 243

056226

056227
056234
056242
056250
056256
056264

28-AUG-81

ERROR MESSAGES

042524
000116
052116
051105

052116

13090

13091
13092
13093
13094
13095
13096

MACY11 30(1046)

28-AUG-81 15:16

15:17

CZR6KGO RK6 FCTINL CTRL DIAG

(ZR6KG.P11

66
67
68
69
70
71
72
73
74
75
76
77

056776

000

056754
056762
056770
056771

056777
057004
057012

057020
057023
057030
057036
057044
057052
057060
057064
057072

040502
052103
047117

057132
057140
057146
057154
057162
057170
057176
057200
057206
057214
057222

98
99
00
01

042514

057110
057116
057124

84
85
86
87
88
89
90
91
92
93
94
97

051105
103
046117
051105
052523
042524
040505
052515
051105

057106

054631
122
043516
020101

057100

81
82
83

047125
051040
000
122

057230
057236
057244
057252
057260

000123

020113
042522
042523
052040
041450
031061
005015
042524
020107
042524
052040

051104

051524
020115
041520
053111

041505
047111
050125
045505
042523

047117
042524
000124
052040
043114

042516
042524
042524
000124

050130
020104
051122

041111
051505

EMSELD= OPERQO
EMDCLR= OPERO4
EMRCAL= OPER12

EM2INT:

_ASCIZ

/SECOND INTERRUPT/

EMSKSF:

.ASCIZ

/SEEK TO SELF/

EMSK=_
OPER16
EMUXIT: ,ASCIZ

; SEEK
/UNEXPECTED INTERRUPT/

051525
052105

EMUR:

.ASCIZ

/UNIBUS RESET/

051505

052105

EMRSET:

.ASCIZ

/RESET/

040505
042040
052502

044504
52101
043106

EMDLT=
EMRDB:

EMZ26
.ASCIZ

;DATA LATE
/READING DATA BUFFER/

051124
020122
000122
051531
046103

EMCERR:

.ASCIZ

/CONTROLLER ERROR/

EMSC_R:

.ASCIZ

/SUBSYSTEM CLEAR/

044440

EMMI:

_ASCIZ

/MULTIPLE

052522

050111
052116
052120

020104
051117
050040

042523
020123
041501

DRVABT:

.ASCII

/BAD SECTORS ON PACK IN AREAS USED BY TEST (CYL 312(8))/<15><12>

052123
041101
020104
044510

047111
051117
047117
020123

.ASCIZ

/TESTING ABORTED ON THIS DRIVE/

020124
051105
020040
000105

052516
020122
051104

000
047117
042514
047522
051502
020115
000122
052114

047111
051501
020104
051505
046131
034050

053111

X an
[

;DRIVE SELECT
;DRIVE CLEAR
;RECAL IBRATE

INTERRUPTS/

040440
052440
054502
020124
031440
024451

bt Pt bt St Pt Pt b=t 0=t et

056727
056734
056742
056750

056726

000

TR IR 4t et 4t Seut et bt P

123

020104
051122
042523
020117
000
050362
125
041505
047111
050125

051101

SEQ 0243

ICIXIXINIXICIXIXI

61
62
63
64

05667
056676
056704
056712
056720

0425146
050250
050276
050337

PAGE 244

XXX

51
52
53
56
55
56
57
58
59
60

056664

15:17

000105

.SBTTL

DHOO01:

DATA HEADERS FOR ERROR REPORTS

,ASCIZ

/TST NUM ERR PC

DRIVE/

46
47
48
49

MACY11 30(1046) 28-AUG-81
ERROR MESSAGES

6KGO RK6 FCTNL CTRL DIAG
6KG.P1
28-AUG-81 15:16

T AT O QU

057720
5: 26
7734
7742

057712

7752

051522
044440
051105
035116
124
OOOOOOVO

O == UM

047502

s g

[=lele)

NN~
NN
—OC)

~
W
no

(¥,]

S gy

800
N
OO
i
oSS
OO0O0O0O0OO0O0O
OO0
i

(=] OOOO0OOOOOOO
~ NO LSRN
S NO NN
A OWN=200N—-200—0
N=2O0ON=200 VN0 — OWHMNOSHSNOOoSH0oN)
S22 ONVOONIWNO
W S

QOOO0OOOOOOO o
NSO
SNV v,
N =2 NOWN—=2OOWVW—0O ——
S NN 2O NNO OV v,
SO
=S PNVOONES NI =N — ~n
OMNNILSNONSNVON—OW o~

RKDA/

DHO02C:
.ASCIZ
/RKBA
RKWC/

DHO0Z2D:
.ASCIZ
/AQ00
80O
AO1
BO1
A02
802
AO3

DHO038:
.ASCIZ
/RKCS1
RKCS2
RKDS
RKER
RKASOF
RKMR1/

DHOO5:
.ASCIZ
/THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET

DHO06:
.ASCIZ
/THE ABOVF ARE UNEXPECTED ERRORS SET

DH007:
.ASCIZ
/THt
ABOVE ARE ERRORS SET
IN OPERATION:/

803/

IN OPERATION:/

oYy

SEQ 0244

EEEEEEEENREEEERESNSENSESEENESDJIa

MACY11 30(1046)
28-AUG-81
15:17 PAGE 245
DATA HEADERS FOR ERROR REPORTS

ER R

IN OPERATION:/

RKDCYL

RKASOF

RKER

RKDS

RKCS2

/RK(S1

.ASCI1Z

£ OO0

DHO02B:

[\®)
— et N D O =d SN
=HOSBENSNVOO

DRIVE/

=20

o
N
(=4
o
o

-—

——

o
N
o

wviviuvivhviaivaiuoion

/T37 NUM ERR PC

OWVN—=LO0O0O0OWN—=20

o
n
(=4
o

~
o~

(¥,|

LY S S

.ASCIZ

020061

DHOO2A:

OOO

NI QN QU R SRR

051503

[ )

O
O—-00
= NWVNO =~y

Y= b O b b =D =

YOI
=NO S

& U

OO0

QU W

R6KGO RK6 FCTNL CTRL DIAG
R6KG.P11
28-AUG-81 15:1

N—=OO=HO0OO0ON
N
OO0 OWNVNOORO

VIO — = &S =\ S

(VL SIV IV P AV ¥ I o

020104

¥ o

045522

WO
ororn

(V]

827510

AR aX

057264

057272

(=l=le]

[
1,
N

_AON

NN
[ Y e 3V ]

(9,1,
IV |

[elele)

WAN WA AN LN N LA NN AN N AN A U AN N A U N N AN LA N N N NN AL NN AN N NN N N
ONONONY
AN1AV TN NIRLNLNINLALNL AL NV NN NN NN PV NI AL NNV NN PV NPV AN NI N
QOO0
a2 a0
a2l o
W IANN WINWWWIWWARI NNV
[0 NV, PYWY
=20 VO NOWVS WSO VOO
W
=200 (o]
OO0~y OWVNB W

ST U QU G Y G S

NOVON
O NN
HOND

0
05

NN~

VWA

3202

lolole

WWN AN NN UNINNN W
ASIANT
N1, N1, VT,VLA 1A 1) % 1,N}
(UL
I o 3 N
—=O 0o

C
¢

13258
13259
13260

057760
057766
057774

042522
051117
020124

042440
020123
047111

051122
042523
047440

13263
13264
13265
13266

060014
060022
060030
060036

047101
020131
046105
020104
044124
040440
0476440 042516

044506
044527
046114
020123

13270
13271
13272
13273
132764

060066
060074
060077
060104
060112

044440
042111
105
040440
050115

046101

13299

3300
301
302
305

304
05
06
7
8
9

060274
060302
060303
060310
060316
060324

060326
060334
060342

060350

060353
060360
060366
060374

042523
040440

046125
000
123
020123
052523

020124
051040

020124

DHO10:

.ASCIZ

/ERROR AT COMPLETION OF OPERATION/

020104
000
020104
053440
047506

DHO10A:

.ASCIZ

/EXPTD

DHO10B:

.ASCIZ

/READ DATA WITH FORCED CYLINDER OVERFLOW/

DHO11:

.ASCIZ

/NOT SET AS A RESULT OF/

DHO12:

.ASCIZ

/NOT RESET AS A RESULT OF/

020106
052101

1S/

D41440
042504
051105
000
051440
020123
052
000
042
051
051

043
0404
042522
047440

DHO13:

.ASCIZ

/SET AS A RESULT OF/

0425 2
5
051501
051505
5

042523
060440
046125

020124
051040
020124

DHO14:

.ASCIZ

/RESET AS A RESULT OF/

1 7
0200 0
0700 0
05°*17

047517
041040

020104

DHO1S5:

.ASCIZ

/GOOD

DHO16:

.ASCIZ

/SUBSYSTEM (LEAR TO RESET SEEK LIMIT ALLOWING Hr

000106

0431

00011,
052523
042524

2
3

060426
0604634

051040
051440

060420

053117
053517
052117
040440
042522
047440
020124

051117
047503
044524

041040
051516
042105

052105
020101
052114

060402
060404
060412

042105
047111

/ANY FIELD WITH ALL ONES MUST BE CONSIDERED INVALID/

040505

000

020104

051502

020115

020122

051505
062505

’

BAD

WORD NuM/

NS TO RELCAD/

(alelolclelsinlolo]la]lolo]o]lalolo]lals]o]lo]olo]lalplelelolalololalalololololelalalalolale
o) o)

13294
13295
13296
13297
13298

060260
060266

020122
046106
116
052105
020101
052114
047516

047440
051105
000116
052120
051511
040505
040524
020110

.ASCIZ

NS
-

13292
13293

060210
060216
060223
060230
060236
060244
060252

041522
046131

053116
000
051122
020124
042514

DHOO5A:

OO
—

13285
13286
13287
13288
13289
13290
13291

060174
060202

047117
050117
047511
054105
020040
122
040504
052111

052123
047503
051105

044524

— b \ SV =2\

13283
13284

060120
060126
060134
060140
060146
060153
060160
060166

052515
020105
042111

040522
000072

—- PO
W
W
wWw—=

13275
13276
13277
13278
13279
13280
13281
13282

060044
060052
060060

042520
047117

pleleleleBiNelelo)

13267
13268
13269

060002
060010

LIV
P N AV IRV V. P
OMNONON—
NN

13261
13262

SEQ 0245

o222

MACY11 30(1046) 28-AUG-81
15:17 PAGE 246
DATA HEADERS FOR ERROR REPORTS

CIR6KGO RK6 FCINL CTRL DIAG
(ZR6KG.P11
28-AUG~81 15:16

041505
042524
040503

DHO17:

.ASCIZ

/SELECT AFTER RECAL/

042522
047503
042524
020116
020122
052103

040503
050115
040440
043101
042523
000

020114
042514
052124
042524
042514

DHO18:

(ASCIZ

/RECAL C(OMPLETE ATTN AFTER SELECT/

.SBTTL

DATA TABLES FOR ERROR REPORTS
.EVEN

333
334

335
336
337
338
339
340
341
342

363
344
345

346
347
348
349
350
331
352
353

060524
060532
060540
060546
060554
060562

060566
0605746

(60602
060610
060616
060616
060616
060616
060616
060616

060624
060632
060636

060642

060646

060654
060662
060666
060674

000114

060566

001302
001540
001554
001302

001556
001116

001302

001116

001544

001542

001540
001554
001560

001202

001210
001216
001302
001202

ggg

060702

060704

000001

356
357
358
359
360
361
362
363
264
365
366
367

060706
0607190
060712
060714
060716
060720
060722
060724

000004
000
057264
003
057312
007
057377
002

060726
060730

000002
003

ggg

001116
001550

001204

001212
001220
001116
001204

000
000

001566
001626

001626

001552

DT003:
DT1001:
DT002:
DT004:
DT00S:
DT006:
DT007:
DT01D:

001206
001214

001626
001206

DTO15:
DTO015A:

.WwORD

STESTN,SERRPC,DRVNUM,T.(S1,T.(S2,T.DS,T.ER,T.ASOF
,T.MR1

.WORD

$TESTN,$ERRPC,DRVNUM

.WORD

$TESTN,$ERRPC,DRVNUM

.WORD
.WORD

T.DCYL,T.DA
w(C
T.BA,T.W

.WORD

T.(CS1,T7.CS2,T.DS,T.ER,T.ASOF

WORD

$REG10,$REG11,$REG12,$REG13,$REG14,$REG1S,SREG16,SREGT7

.WORD
.WORD

STESTN,SERRPC,DRVNUM
$REG10,$REG11,$REG12

.SBTTL
DFO01:

DATA FORMATS FOR ERROR REPORTS
.WORD
1

.BYTE

3,0

DF002:

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

4
0,0
DHOQ2A
3,0
DHOOZ2B
7,0
DHQ02C
2,0

DFO03:

.WORD
BYTE

2
3,0

000

000
00C

Mmm
T

003

001550
001556
001546

001626
001552

060732
060734

057510
006

000
000

.WORD
.BYTE

DHO(C3B
6,0

331
332

060522

323

326
325
326
327
328
%%g

b
b
—d
b
Db
b
A
b
b
b =
D iy b
b d
b

00O

046105
043101
042522

s einiineintincincelneincincsineinelncelncinceinrsincsincincincincinsinc
i Jole]

123
020124
020122

000

060501
060506
060514

060500

320
321
322

319

SEQ 0246

e h

316
317
318

O (NN N

b
b
d
h b
D
b
b
d
)
D

DATA HEADERS FOR ERROR REPORTS

020124
044527
040505
020117
042101

NN N O AN N N O N NN WA

e e ed —d
i
b e
et b

PAGE 247

044515
047514
044040
052040
047514

N N N N U N N LA O

b mh od o e
d od
b ed
b

0464514
046101
0463516
051504
042522

AN U U U U LN N N U

15:17

060442
060450
060456
060464
060472

A N AN N NN N N N NN N N NN N N NN

13314
315

28-AUG-81 15:16

28-AUG-81

CZR6KG.P1T

MACYT1 30(1046)

C(ZR6KGO RK6 FCINL CTRL DIAG

061022

000005

D
D
b
) —d
et
b
d
b md —d
d
d
med e

061024
061026
061030
067032
061034
061036
061040
061042
061044

0Cco

000
000000
000
057264
003
057312
007
057377
002

3410
3411
3412
3413
3414
3415
3416
%2};

061046
061050
061052
061054
061056
061060
061062
061064

000004
000
000000
000
057264
003
057510
006

3419
3420
3621
3422
3423
3424
3425

061066
061070
061072
061074
061076
061100
061102

000004
000
000000
000
057264
003
060140

000

000
000

000

DFO05:
DFO05A:

000
000
000
000

000
000

000

DFO06:
DFOO6A:

000
000

000

DFO07:

DFO07A:

000

000
000
000
000

7
0,0
0
0,0
DHO02A
3,0
DH002B
7,0
DHOO02C
2,0
DH002D
10,0
DHOO5A

.BYTE

C00

000

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

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

000

6
0,0
0
0,0
DHO02A

DFO10:

DFO10A:

.WORD

3,0
DH002B
7,0
DHQO02C
2,0
DH0QZ2D
10,0

0,0
5

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

0,0
0
0,0
DH0O2A
3,0
DH002B
7,0
DH002C
2,0

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

4
0,0
0
0,0
DHO02A
3,0
DH0038B
6,0

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

4
0,0
O
0,0
DHQOZA
3,C
DHO10A

DVDVVDVDO

DFOO4A:

.WORD
.BYTE
.WORD
.BYTE
.WORD

DF004:

SEQ 0247

DVDODDODDOVDO

399

061020

000

DATA FORMATS FOR ERROR REPORTS

DDV VDOVDDVDVDD0

000007
000
000000
000
057264
003
057312
007
057377
002
057414
010
(€60014

000

PAGE 248

(Valh o> ol ol o > v i a0}

060766
060770
060772
060774
060776
061000
061002
061004
061006
061010
061012
061014
061016

400
401
3402
13403
13404
13405
13406
13407
1%283

003
057312
co7
057377
002
057414
010

384
385
386
387
388
389
390
391
392
393
394
395
396

%gg

—

060750
060752
060754
060756
060760
060762
060764

000006
000
000000
000
057264

wen

376
377
378
379
380
381
%g%

060736
060740
060742
060744
060746

15:17

NWAD

370

371
372
373
374
375

28-AUG-B1 15:16

28-AUG-81

6XG.P11

MACY11 30(1046)

NINININAININININLNALN
LA

6KGO RK6 FCTNL CTRL DIAG

13453
13454
13455
13456

005237
000240
000002
000240
001000
001000
000001

.WORD
.BYTE
.WORD
BYTE

DFQ16:

.WORD
.BYTE

BS26:

.BLKW
.BLKW
NOP
CLR
INC
NOP

(R4)
INTSET

BS24:

001662

SPCHLR:
SPCPAR:

IBUFC:
OBUFF:
.IND

.=70376

NOP
.BLKW
.BLKW

;sCLEAR MLM MAINT REG
;COUNT THE INTERRUPT

JRETURN

RT]

1000

(g Yan]

(VAN Va NV ANV RV RV NV Ve NV RV NV RV, XY, ]

DFO15:

000
000

OO WO OO0
N

.WORD
.WORD

iy —

b
D

i
i

b
d
D

P
e

070376
070400
070402
070406
070410
070412
070414
072414

000052
000052
070376
000240
005014

000

SEQ (0248

(AIALALAAINIAININIANIAA
WD INN N NN NWNWNIWNWNWNULNWNNWVIUVNITUNWVNWUVLIVINWV DUV WDV N

13452

061144
061270

DFO11A:

.WORD
BYTE
.WORD
BYTE
.WORD

"3450
13451

000001
003

000

DFO11:

13444
13445
13446
13447
13448
13449

060353
003

000

2.0

WO WD

000

.BYTE

00u

WWW
SO

000002
003

&
D
30(1046)
15:17 PAGE 249
28-AUG- 81
DATA FORMATS FOR ERROR REPORTS

]
o

000000

MACY11

(A 1aC

PNONON)
= = 2 2 (=]
SO0 SNO o

000004
000
000080
000
057264
003
057510
000006

——

002

QOO0 olele
[0 Y@ Yo, Yo i oo

961104
2 —

W N —=ON000~N

N N NN U NN NN N
S o oI
~ ekl
ak at aF 2 Pl
F2 S
W
NNWN
W N NN

Y N
SN
U U
S N S
S
g {

C(ZR6KGO RKG FCTINL CTRL DIAG
CZR6KG. P
28-AUG-81 15:16

MACYT11

”

IRIAIAIRIAIAIAIAINININININININIALN
. A

1}
T
LI
L
T
T I
L A
O
I
T A
L
I
TO
T
T
L
L

>
o
A4

2326

AP ATAIAIAIAIANIAIAIAINIT

177440

053317
ABTFA]
044170
ACDW]
000000
ACDW?
000000
ACLO
000010
ACLOER= 000100
ACPUOP= 000000
ADDWO
000000
ADDW1
000000
ADDWI
000000
000000
000000
000000
000000
000000
000000
000000
00000C
000000
000000
000000
000000
000000
000000
000000
043614
000000
000000
000000
000000
000000
000000
000000
000000
AMAMS
2= 000000
AMAMS
3= 000000
= 002000
AMAM>S
AMSGAD= 000000
AMSGLG= 000000
AMSGTY= 000000
AMTYP1= 006000
AMTYP?2= 000000
AMTYP3= 000000
AMTYP4= 000000
APASS = 000000
APRIOR= 000240
APT(CSU= 000040
APTENV= 000001
APTSI1Z= 000200
APTSPO= 000100
ASWREG= 000000
ATESTN= 000000
AUNIT
000000
AUSWR
000000
AVECT?
000210

SEQ 0249

&
E
3001046)
15:17 PAGE 251
28-AUG-81
CROSS REFERENCE TABLE == USER SYMBOLS

—

ABASE
ABORT

—=2PORORNUPLNO
PPV RNV NUPONUNLRNLND VNUNURUWRNRONINVNA NUNLRORLNLNV
AL NPV NNV PN P O NNV
OO —
NOPLNUNLNLNLNUNLNLNLNVNUNUNNONLNL
NNV NNV NVAL AL NV HININUNLNINLILNDRNLNUNVNL NNV N OT VNN D
O~ 0o 0o 00 OO 00 GO 00 OO 00 GO 0o O 0 00 GO GO GO To G O 0O GO Co GO CN G OO 0o GO 0 G 0O O GO 0 CO 00 00 0B O WY AD 0o OO 00 o
Vel p SV LV IV TV L
V. [V TV LV, LV, IV JU LTV LV (VW W TV RV SV I LRV AV LV, LU (VW AV LV LV LV LV LW RV LV (U, LV, TV IV IV IV I oo AV, LV, P Y e ) W
»
»

CZR6KGO RK6 FCTINL C(TRL DIAG
28-AUG-81 15:16
CIR6KG.P11

9395

94374

9433#

11436

2
2285

2324

9494

11434

2325

BIT12 - 010000
BIT1Z = 020000
BIT14 = 040000

18894

9505
3693

3934

46Be

8879

9063

9660

966l

12391

12409

12418

2046
2047

2079
2064

2093
2080

2106
209

2120
2107

2134
2121

2704
2135

9459
2705

11169
9288

12400
112SI

2048

2081

2095

2108

2122

2136

11088

11096

11114

11138

2082

2096

2109

2123

2137

9466

9617

11088

2083
11131
2067

2097
12404
2084

2110
12482
2143

2124

2138

4366

4367

6770

2706

4363

4364

4516

7151

5643
2700
2073
2074

9671
12393
2114
2088

12392
12411
2128
2101

12410
12420
3175
2175

12419
12430
12394
2129

12429
12479
12412
3175

12478
12421
12395

12431
12413

12480
12422

2061

2075

2089

2102

2116

2130

2701

5676

9720

2076

2090

2103

2117

2131

2702

2824

3044

BES2

2077
B2

2091
BBBS

2104
BE93

2118
9036

5046

2132

2703
9065

5077

11001

2092

2105

2119

2133

4568

4569

4623

4624

4630

11276

12402

11096

11114

11138

11166

11276

12403

7289

11018

11040

11061

12405

12483

18884

BIT2
BIT3
BIT4
BITS

= 000004
= 000010
= 000020
= 000040

19094
19084
19074
906y

BIT6

= 0007100

BIT7

000200

BIT8

= 00C400

BIT9

- 001000

BSS26P
BS24
BS24CT

4628

11166

BIT1S = 100000

000014
000200
000200
000100
001636
001640
001642
001644
061270
001650

2029

4626

11162

18874
6771
18864

BPTVEC=
BSE
=
BSERPTBSERR =
BSF24P
BSF26P
BSS24P

2011

4438
12476

2008
2009

3932
12427

19054

2012

2013
9249
2014

2038
2020
2021
2022
2004

2030

2037
11018
2015

2057
2039
2040
2041
2023

2049

2050
11063
2032
2699
2058
2059
2060
2042

10100

12396

12414

12423

3161

8584

9630

10995

19044

1903¢

471

19024

11001

19184
20434
27024
6802
26794
26814
26834
26854
2679
26884

2005

2006
BS91
2007

2024

2025
Be2d
2026

2043

2044
B0

2065

2066
11079
2051

2062

12397

2063

11016

11033

12399

2045

2078

7437
7439
6878
4158
4060
4164
4149+«
419%
4169+

7596
7441
10545
11043
11039
4198
4190
134464

10496
7599
12414

10543
7601

11067
11064

12424

—d

18914
(18908

10698
3693
12417

—h

BIT10 = 002000
BIT11 = 004000

10687
3089
12408

—d

2027
2028

J910r

BIT1

9263
9281

0677
3057
12390

‘

2698

= 000002

1902
2037

10665
2697
10157

10657
2055
9052

10647
2036
8868

99984
2003
7041
1911
1910
1905
1908
1907
1906
1905
1904
1903

10273

19014
19004
18994
1898#
18974
18964
18954
18944
18934
18924

7716

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

7659

=
=
=
=
=
=
=
=
=
=

7586
5548
5548

BITO0
BITO1
BIT02
BI17103
B1T04
BIT0S
BIT06
BIT07
BIT08
BIT09

7500
5495
5495

11045

8756
19714
5645

7485
5155
5306

108764

042160

4835
5069
5215

BDSRCK

BITCNT 036242
BITO = 000001

20214
2006#
20074

124254

10305

= 000020
= 000400
= 001000

SEQ 0250

N r~

CROSS REFERENCE TABLE =-- USER SYMBOLS

BAERR = 000004

BAI
BA16
BA17

PAGE 252

2285

AVECT2= 000000

15:17

28-AUG-81 15:16

28-AUG-81

3137

3215

CZR6KG.P11

VMACY1T 30(1046)

(ZR6KGO RK6 FCINL CTRL DIAG

CZR6KGO Rk FCTINL CTRL DIAG
CZR6KG.P1T
2B-AUG-81 15:16

VMACY11 30(1046)
28-AUG-81
15:17 PAGE 253
CROSS REFERENCE TABLE == USER SYMBOLS

BS26
BS26CT
CCLR
=
(dT
=
CERNER=

4172
4156+
3505
3078
124054

CP1170=
CR
=
CRLF
=
CSRPTR

CSI1ERBCS2ERBCTO
=
CTOERR=
CTRHLT

CYLERR=

DCK
=
DCKERR=
DDISP =
DDT
=
DESHLD
DFO01
DF0Q2
DFO03
DFO04
DFO04A
DFO05
DFOO0S5A
DFO06
DFOO6A
DFO07
DFO07A
DFO10

DFOT0A

001700

060702
060706
060726
060736
060742
060766
060772
061022
061026
061046
061052
061066
061072

27068
18264
1827#
27104

10431
10633
2009#
7812
2953

10382

20514
8038
18334
20634
27174
2379
2394
2405
2486
10692
2500
10712
2525
10670
2551
10644
2574

132;;*

123994
5627
11497
2823
5629+
123684
123694
10163
10555
2982
124304
10496
10526
2232
11081

133534
133564
133664
133714
10703
133844
133864
133994
10682
134104
134124
134194
1%28?;

4
—4

10161
6632

10217
6690

10221
6705

10439
8379

10514
10055

10356

11013

11041

9504
7635

120934
7695

7771

8125

8229

8268

8364

8498

8947

8967

10760

124894

5641
11507
11451
5643+

5657
12615
11507
5645+«

5680
12618

5687

9652

9708

5650

5682«

5684r

5689+

5691+

9651+

9692+

10553
124184
3159

113294

11699

11782

1157«

11281

5701«

6812«

6819«

7120«

7127+«

7138+

7744+

7258+

7265+

7276+

7282+

2606
3349+
3556+
3882%

2614
3384w
3578«
4277+

134284
3395t
3584+
4284+

3L31w
3610+
8667+

BUB2v
3616+
B734+

3487+
3746+
BBO6

3493«
3761«
B8B23+

3499+
3768+
9007+

3515+
3785+
10124

3521e
3Bl4sr
13430#

353Re
3826+

11065

10465

10524
124094
2787
11105+«

133734

134014

DFO11T
DFO11A

061106
061112

DFO1S
DFOT6

061130
061140

DHOO!

057236

2588
3246
35644«
3855+«
2626
2634

2377

2597
3333«
3550+
3875+
134374
1344204

131984

) =~

4281
6617

9455
3593
9852
10468

311
6559

o o

9243
19884
97574
9863
20454
6505

10173

104407
000105
035246
050210
001000
001000
002000
000015
000200
001672
024000
177400
004000
000002
043724
000010
100000
000002
177570
000400

10464
103324
12103
10425#
10462
12104

10146

et el o

CKSWR =
CLEAR =
CLKCAL
CMNDLB
COE
=
COERR =

102704
6806
104224
10420
102514
104134

8298

037430
037642
040162
040170
037376
040130

3071
6530

8022
9944

CHKBA
CHKCTS
CHKOP
CHKST
CHKWC
CHKWE

20144
1?8;}#

3559
3147

o o

= 100000
= 010000

134454

el
it d el ot e —d o

CERR
CFMT

2681
26874
20154
20084
106441

ke
——d —d

061144
001646
100000
002000
100000

SEQ 0251

[gn Xan)

132024
13377

13375
13405
13407

13388

9863~

10082+

10110+

3541
9303+

3581
9458«

3654

3693

3702

3098

3123

8553

10512

*23984

10848

124824

13379
13394
136416

13358
13390
13392

SEQ 0252

13403

13414

13423

13432

3613

3811

3852

3879

8954

8974

8099

8181

8189

8289

8412

11312

8588+

8589

8591

8599

3473

Il VY

13434

o
] ek —d —d

132474

8815«

10704

10683

3518
2795«

ot~
—nd —d —d

mmowogm—nMOb
LR

S
S
S

NWWWO WWNIWNININNND
S PONV0D NP N NN N O
PO NWN=22OWOROONONN

S
b
e
d
b
b
b
b ed

15:17
PAGE 254
28-AUG-81
3 001046)
R
TABLE == USER SYMBOLS
CROSS REFERENCE

10217

3258+«
3843
8779«

3259
3907
B792+

3280
3924
8814+

3320
3970
8934+

3153
3547

3171
3765

9003+

7429
9896

3635
8548

10063

683
8587+

6918

K31

855"

9925

1304

—

3078«

9964+

9939
3105+

10070

oK o

3144

[ ol

2786

3132

3139+

3147+

3989

6531

3048
3490

13350

3457
6916

[ o

13342

3186

[

4092

ol aull ol el audt eull gl ond

4091
3127«

3252«
3089+

£H 0o
s~

3250
3C57«

OONW
O \N
OO
—
NOW

—";)WNO*O—*W

NWMNVOLWONOD—
WWNS
=2 NOO O

VO
O
VN
NO
Do LaUREERN
1,
8)
»
»
L

N —=000MuwWN
£

—

10531

—

004000
040000
000070
177570
010000
010000
000040
000040
001720

[

N—lOL‘mem

d
ed
e
d ard
e
—
b

060326

—

DRVRPTDSC
=
DSERBI=
DSWR
=
DTE
=
DTERR =
DTIYE
=
DTYERR=
DTYPE

060353
060404
060501
060524
001372
001412
001422
001432
001442
040000
001142
000174
100000
000010
000040
000001
000200
000040
000400
000010
000010
042000
057110
001630
001666
00C007
001626

DHO1S
DHO16
DHO17
DHO18
DHZN
DH4N
DH5N
DHON
DH/N
DI
DISPLA
DISPRE
OLT
=
DLTERR=
DMD
=
=
DRA
DRDY
=
DROT
=
DROTER=
DRPAR =
DRPARE=
DRSTeR=
DRVABT
DRVBIT
DRVDRP
DRVMSK=
DRVNUM

DHO14

80#

060223
060252
060303

MACY11

WO OOONWWWWWWWIN
OO NONOWWIWNWNWNEWNNOMNOND
~N ==\
ONONONLO WO OO O
WWNH OO OO
—=N
*» Ry
LR
X X 3

060153

DHON
DHO12
DHO13

—

DHO108

057264

057312
057377
(57414
057510
057566
060014
057663
057745
060077
060140

NONINONLOO
N — ONININOOWN
N NWO 2O
N O NWN N
WNINO S = BWWNON
O WO

DHO02A

DH002B8
DHO02C
DHO02D
DHO03B
DHOOS
DHOOSA
DHO06
DHOO7
DHC10
DHO10A

PN INN O O WO WNININLNN
WNNIND
N NININD NFONONO
N &~
NV
2 200
VION
N
LR
K
B 3

CIREKGO RK6 FCYNL CTRL DIAG
CIR6KG.P1
28-AUG-81 15:16

2605
13350

2613

133424

3088

3100

3107

3537

3577

3609

8666

8733

9006

131414

3543

3583

3615

3813

3854

3881

131334

3499
3767

3538
1%137#4

3544

3550

3556

1313w

=
¥
o

131664
3493
3549

3007
3814
3332
19214
8667
3874
3395
2951
23764
5528
25714

131564
3826
3348
2770+
131614
131574
131264
2980
2951«
5582
5510«

EMIT
EMITA
EMITN

054123
054151
001460

EMI12
EMION
EMI3
EMI3N
EMI4
EMI4N
EMIS
EMISN
EMI6
EM17

054225
001470
054260
001500
054310
001510
054342
001520
054365
054410

5521
5510
25854
3767+
12437
25944
4276«
26034
6818
26114
12441
26234
12442
12443

5575
5563
3332«
3784«
128964
3245+
6809
3825«
12439
3514+
129104
10994+
129144
129184

&
§

131674

3855
3383
2771«

131534
339,

343C

3498

3555

3745

3760

3784

8805

8822

2980+
5716
5521«

4089%
7126
5508+

4100+
7143
5563+«

4110+
7264
5575+

4117+
7281
5582«

4126+
12434
5702«

4139x
128R0#
5716

4202+

7442+

7602s

6809+

6818+

7117+

7126+

5702
12435

7117
128884

7135

7255

12436

12884s

3813«

3854«

2305«

Q006

34B6v

7273
\
3492+

3498«

3537+

3543«

3549+

3555«

3745«

3394%

3609+

3615+«

3760+

3881+«

8666+

8733s

7255«

3383«

3348+

12438
3874+
129054
3520%
10997+

7264+

3430+

s 6l 4

7273«

3481e

129014
4283+

10123+

3583+

8822+

7281

10475+

13117#

PV PPV OV YUY PV

131474

128244

10124
131644
131744
3785

7143«

131204

7135+

3384

3584

3333

3520

| o

10123
3487
3492
131324
131774
3578
137494
4284
3882
B/34

3,86

1276
3,82
3245
3431
3825
3349
3746
4277
3875
3266

A N

131484

3616

3514

3610

10520
12408
131444

A A MR

10496
10522
3501
131714

D MR

20424
8038
3515
4283

ECH
= 000100
ECHERR= 000001
EMCCLR 056650
EMCERR 057023
EMDA
056630
EMDCLR= 050276
EMDI
056564
EMDLT = 054631
EMDPAR= 055055
EMDSC
056604
EMDTPE= 055140
057064
EMMI
EMNZPR 056461
EMRCAL- 050337
EMRDE
056777
EMRSET 056771
EMSCLR 057044
EMSELD= 050250
EMSK = 050362
EMSKSF
056712
EMSVAL 056444
EMTVEC= 000030
056754
EMUR
056727
EMOXIT
EMWCS2 056522
052405
EM]
EMIN
001360
EMI0
054076
EMION
001450

3,81

[gn Xah )

2596
2625
13351
3058

20824

2587
2573
2633
2697

= 020000

060616
060666
060674
000001

ECCW

DTOT0
DTOIS
DTC15A
DOTST =

133364
133374
133334
13333
133394
133404
133414

SEQ 0253

2378
2393
2404
2485
2699
2524
2550

CROSS REFERENCE TABLE -- USER SYMBOLS

060610
060616
060566
060616
060616
060616
060616

PAGE 255

e Al

DTO01
DT002
DTO03
DTO04
DTO0S
DTO06
DT007

28-AUG-81

28-AUG=81 15:16

15:17

[

30(1046)

CZR6KG.P11

MACY11

CZR6KGO RK6 FCTNL CTRL DIAG

5900

6888

RV AR »

9584
4802

10c36+

13136

V)
x

13132

—

[o ]

9934
9964

577
0004
0054
0084

‘Tl

o en

]

130684

Q0 00 ~NONONN = SNV S 8 8N S (NN
N
S22 LB 00NN=N NN
OO & oo

4117

10225+

128494

LR R

WV SS NN
—
ONINOD
— 00N

PP
PV
T
WY
BT
P

574

594

—

)
—b —
b —b —
b —d
D
b —d
b
D
b e
b
d
b e
Db

4110

10223+

10997
10109
10225
25224
10236
25484
26764
26784

3300+«

3225«

PPV

056341
056366
053755
001430
054034
001440
001632
001634

4139

11994

3239«

13166

128744

056312

10109+

9581«
4306

5983

7528

6068

056227

4089
4126

10081x

5400
6652

5471

6725

5812
6850

056036
056131

12470

bbb
e
b e
bbb
)

12471
12472
12473
3239
3211
3225
3300
10223
24974
3754

9864+

EMSS
EMS6
EM6
EM6N
EM7
EM7N
ERRCNT
ERRLMT

055353
055415
055432
055472
055527
055610
055667
053711
001420
055737

055330

131504

EM53

EMS54

12467
9864
24834
12468
12469

9874

£O =20
r r RukXx

EMS1T
EMS52

12466

055233
053616
001410
055255
055307

—

EML3
EM44
EM4S
EM46
EM47
EM48
EM4Y
EMS5
EMSN
EM50

12448
12450
12451
12452
12453
12454
12455
12456
9619
24024
12458
12459
12460
12461
12462
12463
12464
12465

EM4L2

055213

12447

D ed

EM39
EMé
EM4N
EM40
EMé

054550
05457
054602
054615
054631
054643
054670
054703
053546
001400
054724
054777
055017
055055
055123
055140
055161
055170

EM38

0546524

—b

EM22
EM23
EM24
EM25
EM26
EM27
EM28
EM29
EM3
EM3N
EM30
EM31
EM32
EM33
EM34
EM35
EM36
EM37

N
Qo — -t OO 2O
o~ o OOV~ o
o
o hel

Em21

SEQ 0254

21
254

054431
054456
053465
056671
001370
054500

J 4
~
30(1046)
28-AUG-81
15:17 PAGE 256
CROSS REFERENCE TABLE -- USER SYMBOLS

Ll L Al L A A A SA HA A A HA A A A A A A A A A A N ea

12444
12445
128334
3761
23914
12446

Em18
EM19
EM2
EM2INT
EM2N
EM20

NN N NN SN mwuwwwwwuuuwommgmmmmmmmwmmmmmmmmmmmuw
OO OO0V
DNV OOVOOOOOVOVONN
(A6
OO
], 8]
WOOOOOO0O
o

MACY11
ek

CZR6KGO Rk6 FCTNL CTRL DIAG
C(ZR6KG.P11
28-AUG-81 15:16

ERRVEC= 000004

2784

2796%

9170

9174+

GENCOM

042260

4233

4301

4309

4359

4434

6513

4565

5109
5403
5903
6183
6358
6655
6924

5144
5432
5931
6187
6377
6681
6996

5168
5450
5947
6206
6386
6685
7045

5178
5465
5977
6215
6470
6719
7181

5221
5474
5986
6241
6414
6728
7310

5248
5631
6016
6245
6433
6767
7383

5258
5761
6028
6263
6442
6780
7470

HOLD
HOLD1
HOLD2
HOLD3
HT
=
HVRC
=
HVRCER=

IBUFF

036124
036126
036130
036132
000011
000400
000040

070414

12098
12111

12099
12112

10643
10706
10754
10754
10441«
10828
10706
10518
10822
10762
10547
10817
10762
6807
124344
120914
8625
597

10814~
10754
10808
10808
10488
12458#
10762
10664
124504
10810
10646
124414
10810
6816

124754
10808
10841
124814
10594

8695
8793

2833
5794
1?8;2

4070
5863
1??%;

4619

4680

4741

4770

4796

4805

5019

5028

5063

5082

5295
5772
6062
6272
6538
6784
7522

5319
5806
6071
6298
6572
6844
7531

5329
5815
6101
6302
6580
6853
7984

5358
5845
6113
6321
6608
6860
8003

5378
5868
6147
6330
6612
6882
8512

5099

5394
5894
6156
6354
6646
6891
8563

12087

72088
12103

12089
12104

12091
12105

12093
12106

12107

12094

12095
12108

10385+

10388+

10429+

10466

10469

124264

4941
6120
6950

6135
7508

4996

4959

4950

4934

10845
124804

124794

10686

10796

10810
10790

10845
124074

124764

10841
10767

124774
124164

124784
10255+

10305+«

103171«

10382+

8780
8958

8936
8989

8979
99634

99584

8552

99504

4252
5968
6707

4784
6035
6832

4850
6050
6867

12117

12118

adh 6

4D 8

12116

123894

PPN

12114

12113

12102
12115

12086
1210°

12085
12100

9119

9112

oA 4a

12097
12110

7431«
8555+«
9938%
9939%
11449
10496
124134

9216+

9731«

A sa

4921

12096
12109
20034
10630
10701
10680
10660
106426
10797
10690
10427+«
10791
10668
106428+
10768
10651
6805+«
10475
2817
3194
3260

7430
8549+
3415
3707
18244
20444
10541

9215+«

9730«

7432
9951«
9944+
9945«
11507
10539

4124
5882
1%222‘

8550+

8551«

PV PY

050206
000010
000020
000040
050064
050146
000001
050066
050130
000002
050070
050110
000004
050072
050074
104406
036134
036150

9205+«

GPSUMF
GPINR =
GPZ2NR =
GP3NR =
GRP1ER
GRPIMS
GRP1ST=
GRP2ER
CRP2MS
GRP2ST=
GRP3tR
GRP3MS
GRP3ST=
GRP4ER
GRP4MS
GTSWR =
GTYPO
GTYP1

9196+«

= 000001

9715+

99524
99534

9688+

12375#4

10709
12102

2822

9191+«

9642+«

123784

101454
99744

2172

9179«

= wrwrwe |

11378

9641%

GNS

109884

4878

9640

036762
036164

4870

9639

4130
5954
6634

5089

5236

6194
7949

5373

6251
8027

5446

6399
"0058

5779

6365
10113

VPP PV

GETDRS
GETRK

4836

7369

9260

9169

050040
050042
050044
050046
050036
050034

20404
123944
27034

9257+
123774
10380
123794
123804
123764
10476

MR ¢A

2785«

EXPBA
EXPCYL
EXPSEC
EXPTRK
EXPUBA
EXPWC

FMTE
= 000020
FMTERR= 000020
FPFMT = 000400

9255+«
10302+
10375+«
10379«
10378«
10309
10253

19144

9254
10275+«
10361+
6820
6810
10301+
10251+

SEQ 0255

MACY11 30(1046)
28-AUG-81
15:17 PAGE 257
CROSS REFERENCE TABLE == USER SYMBOLS

o® o

CZR6KGO RK6 FCTINL CTRL DIAG
CZRO6KG.PI
28-AUG-81 15:16

KWLADD
KWLVEC
LCKHLR
LCLKPR=

LCLKTK
LDCON
LF
=
LOADRK
LRLOAD

172346
172350
172352
172354
172356
172300
172302
172304
172306
172310
172312
172314
172316

001710
001712
034506
100000

001674
036034
000012
035734
035674

19554
19564
19574
19584
19594
19414
19424
19434
19444
19454
19464
19474
19484

27214
27224
96294
27064

27128
3304
18254
99084
4067
4672

5137
5753
6117

5731

96094

2944+

2949

2969+

7764
8789+
10068+«
2769+

12118
12115
12111
12112
12113
12114
12105
12116
12106
12107
12108
12117
12109
12110
9151

9183

8118

2974

3741+

8490

3823

3859+

7816+
BBO9+
10073

7853«
8942+
11353«

7922+«
B8964r
13450+

8017
9600+«

8076+«
9610+

5676*

9630~

9720+

10053+

10100+

1131C~

9758
3865

9855
9629«

10051
9757«

10098
9764

11308
9766«

11507

12615

12618

4225

4253

4350

4,378

4426

5154
5776
6132

5214
579N
6191

5233
5837
6248

5288
5860
6306

5305
5879
6362

3914~

3977«

5652

8119+
9716+

B223»
9724

8259«
9729+

9791+

9858

10069+

10076

4459

4505

4525

4557

5350
5923
6418

5369
5951
6464

5425
5965
6492

5643
6008
6616

7428+

7465+

8356+
9762

8483«
9785

4578

4611

4639

5494
6032
6631

5547
6047
6685

5619
6C93
6704

NAAAAN

7684
8701+«
9908+
2768+

7920

124004
7817

26934

4007
3868
10577

XX X

KIPAR3=
KIPAR4=
KIPARS=
KIPARG=
KIPAR7=
KIPDRO=
KIPOR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=

000020
000100
035370
035410
035450
035440
035430
035420
035530
035400
035520
035510
035500
035360
035470
035460
172340
172342
172344

7623«
8632+
9853
19194
20234
98094
98154
98274
98244
98214
98184
98454
98124
98424
98394
98364
98064
98334
98304
19524
19534
19544

001662

3946
2970
10496
124244
3041

[ X

I0TVEC=
=
IR
IWATIM
IWAT1S
IWAT11
IWAT12
IWAT14
IWAT15
[WwAT16
IWAT2S
IWAT32
IWAT48
IWAT64
IWAT8S
IWAT80
IWAT96
KIPARQO=
KIPAR1=
KIPAR2=

20464
3938
20044
20364
10579
2917
19994

SEQ 0256

11141+
9199

(. X ]

INTSET

002000
002000
000100
000001
000200
034442
000300

[]

IDAE =
IDAERR=
IE
=
=
ILF
ILFERR=
INTHLR
INTR_ =

MACY11 30(1046)
28-ALG-81
15:17 PAGE 258
CROSS REFERENCE TABLE == USER SYMBOLS

5660+
9717
9718

9727
3863«
99344
11501
12101
4698

4733

4762

4781

4827

4847

4914

4938

4989

5006

5068

5086

A oA ¢A A ¢A R +A A A +A -A N A A A

(ZR6KGO RK6 FCTNL CTRL DIAG
CZR6KG.P11Y
28-AUG-81 15:16

6788
7331

6829
7375

6864
7409

6947
74654

6988
7477

7007
7505

8065
8363
4065

8080
8378
6463

8092
8393
6491

8124
8405
7609

8156
8436
7610

8174
8459
7747

26584
26564
3559«
6530
8981+

6535+«
3063«
3565+«
6531+
8993«

6920+
3114x
3593«
6559«
9891

8992+
3195+
3636%
6917«
9925«

10275
3228+
3684r
6918+
9926

10290
3281«
3736+
3626%
10055

B696+
10070+«

8781«
10071

8794+
10209

B937«
10279

8947«
1035

BIS9e
11013

897+
11041

2662¢
3694

3061+
3735+«

3113«
3801«

3192«
3843x

7716%

3280+
3907«

8182+«

3290+
3924+

B624+x

3320+
3970x

B694x

3370«
3987«

3413«
4835+«

3457+
6532+

3635«
6560%

3645+
6916«

3683«
7485+

001606

26594

10065

001606

26604

6955+

6536+

6562«

6922+

8980«

8990+«

10064

10361

10882

11005

11377+

4317
3336«
B412+
6921«

6534
3459«
B44br
8991«

6561«
3503«
BL67+
9911

6919«
3567«
BL9S«
10277

10362
3591«

10885
3646+

11004
3693«

11388
7867+«

11390«
7906+

8099+

8102

8186

8293

8415

8420

8425

100204

9663+«

9701+

9706

5049

5055

5200

5206

L.CS2

001610

26654

7500%

L.DA

L.DCYL

001614

L.DT
L.MR1

001607
001616

L.DS

L.WC

MCLK

001602

26614
26654
8289+
26574

7586+

3999+

3926+
3322+«
8310+
6533«

20774

10029

MDS
= 001000
MDSERR= 000010
MEMBAS
001714

20264
10563
27234

10561
124204
9656

MEMPYB=
MEMSZB=
MERD
=
ME SMSK=
MEWD
=
MILCNT
MIND
=
MMVEC =
MMVECA
MSP
=
MYTIME
M.CADD=
M.CDIF=
M.DRV =
M.HEAD=
M.ID
=

26994
26984
20784
20714
20794
26894
20764
19304
27244
20754
3864
21464
21454
21424
216494
21440

5612
49u1

MCLOCK

= 000400

26648

8250«

MEMPAR

M.PAR =
M.SECT=
M.SER =
NCERWE=
NED
=
NEDERR=
NEM
=
NEMERR=
NEWDRV
NEWPAS

036316

001670

000004
000002
001000
000017
002000
001652
000200
000250
001716
000100
035314
017760
Q17760
000007
007000
000003

100000
000760
(77770
020000
010000
000001
004000
000040
027716
003150

3650

27094

21434
21484
21474
10516
2029%
10551
20284
5508
4093
29214

3698

9643«

7779

7659+

10364

10030

5615
4906

7785

9784
8418

8423

5654+

9666

9705

97834

9857

10075

3142

10549

10571
85824

124224

124034
3073
124174
10569
5561
4143
9144

7797

7841

8212
8497
9936+

8243
8566
99484

3321+
3772«

3371+
3802«

34T4%
3844+

7860

8778+

7064
7612

7898

8791+

10333

7084
7634

8267
98884

7946

7185
7649
7988
8282
11338

8007

8303
11367

8924

3415+«
3906+

3458+
3925+

3505+
3969+

3524
3988+

8935+

B89S5S7+

7200
7674

8978+

7222
7694

8341

8988+

A AN

001604
001600

7749

7049
7579
7875
8228
8515
9942+«

DA A

036120

001612

L.BA
L.CST

SEQ 0257

o0 NN

LSTCYL

6759
7314

7709

L.ASOF

MACY11 30(1046) 28-AUG-81
15:17 PAGE 259
CROSS REFERENCE TABLE =-- USER SYMBOLS

8181+

A A SR HA HA L A A (A A A A A A A UA A A A

CZR6KGO RK6 FCTINL CTRL DIAG
C(ZR6KG.P1Y
2B-AUG-81 15:16

034434

2941

9600#

9715

OBUFF

072414

4228

4353

4362

4381

4429

4437

4462

4508

4516

5140
5710
6771«

5291
5712
6791

5353
5756
6920

5389
5840
6991

5428
5926
7010

5460
5942
7052

5622
6011
7067

5640+
6096
7081«

5644+
6535
7087

OPERQO
OPERO2
OPERO4

OPERO6
OPER10
OPER12
OPER14
OPER16
OPER20
OPER22
OPER24
OPER26
OPER30
OPER32
OPER34
OPER36

OPER37
OPER4O
OPER41

OPER42
OPER43
OPER44
oPl
=
OFPIERR=
OPR0OJ1
OPR002
OPRO03
OPRO04
OPROOS5
OPRO06
OPRO07?
OPROO8
OPRU09

OPRO10
OPRO11
OPRO1Z
CPRO13
OPRO14
OPRO1S
OPRO16
OPRO17
OPRO18
OPROT9

050250
050265
050276

050312
050321
050337
050353
050362
050367
050401
050414
050431
050447
050463
050507
050533

050557

050613

050650
050724
050777
020000
000020
051056
051105
051113
051143
051165
051236
051236
051317
051402

051452
051573
051736
051742
051746
051752
051766
(052547
(52604
(527%2

4581

7188
7426
8569
19924
20574
8806
12490
126491
12492
12493
126494
12495
12496
12497
12498
10082
12500
12501
12502
12503
12504
6812
125554
7120
5511
5564
5701
20494
10537
2864
2867
2874
2886
2829
3060
2840
3158
3163

5614
4904
4505
5053
5204
4907
2859
7442
8702
13

L4614

7203
7480
8992
B8244

4622

4642

7218«
7577«
9669

7225
7582
11019

12489
125104
12512#
125144
125164
125194
125224
12524
125254
125274
12499
125324
125354
125384
125424
125464
6819

125074

13147

7127

7138

125€14
125694
125774
10496
124124
125894
2878
125954
126004
126044
126114
3056
126264
126354

126424
5052
126754
126764
12677#
5054
12680#
7602
127624
27714

SEQ 0258

CROSS REFERENCE TABLE == USER SYMBOLS

4675

4683

4701

4736

4528

4560

4568

4569

5683+
6619
7114

5690+
6692
7118

5703
6762
7153

5705
6770
7136
7412
8518

4765

| 4830

7329«
8010
134554

7252
7652
11056+

7256
7657«
11057«

7271
7712
11077

7274
7878
11136

7317
7991
11370

7258

7265

7276

7282

125564

4856

7334
8285

4857

7378
8408

4992

13148
13149
13156
125294

125504
7144

10535
2895

125934

3087

126144

5203

126574

5205

126784

127484

— TM

OFFSET= 00C115
= 000004
OFST

20384
123924

PAGE 260

NEXINT

= 000004
NXF
NXFERR= 000004

28-AUG-81 15:16

15:17

MACY11 30(1046)

CZR6KG.P11

28-AUG-81

CZR6KGO RK6 FCTNL CTRL DIAG

—d

PAT16
PCA

SEQ 0259

3107

5206
7601%

5610
9644

3058«
5612
9652 *

6677

8659

96384

9653

9675

9693

9700

11389

3036

113934
9732

11410
9847

2942

3042

5635

9642

9668

9711

2775+

12015«

12016+

12025%

12031«

12043+

4782

4848

4939

5952
6632

5007
5966
6705

5087
6033
6830

5155
6048
6865

8093

8379

2860+
5200

7599
10098

11308

3048

5641
9693

3171«

5680
9708

4901

5687
9727+

4906+
7369

9758

5732

2912«

[@3V, 1V, ]
O ~NW

WO NN

—

b
—h
ad
b
et
—
e
b

15:17
PAGE 261
30(1046)
28-AUG-81
CROSS REFERENCE TABLE == USER SYMBOLS

9644
7867

2894
123494

20814

PCD
PERHLR
PGE
PGERR
PIP
PIRQ
PIRQVE=
PROGEN
PRO

h
~ ~O 00 O 00 00 00 GO 00 Co 0o 0o 00 OO
~
~

RDCHR = 104410
RDDATA= 000121

100000

L8K

b e
b
b ad md
AV =3 =D

000040
000100
00017490
PR4
000200
PRS
000240
PR6
000300
PR7
00G340
PS
177776
PSW
177776
PWRVEC= 000024

)

—

124214

PR1
PR2
PR3

RDGATE=
RDHEAD=
RDLIN
=
RDOCT =
RDSTHD
RDY
REALBA

md —d

)

D =D —d

PAT0?2
PAT03
PATO4
PATOS
PAT06
PAT10
PATI
PAT1?2
PAT13
PAT14
PAT1S

PACK
PARM
PARPRE
PAT

= PNIPONIPLMNONINNOMNIPNONDWNWVNINOWN

OPTTST
OR

MACY11

—

OPTFLG

Qo B EBNWNNIN =2 2O OOV O NDNOON =2 NN
OO OO
o ===
O =220 =N —_ O~ S WO OO W
LR
3
R R 3
r

—

OPRO20
O0PROZ21
OPRO2?2

N = b md b ed e e D b 3 e A POPVIN) =2 PO
O YN
= s
o NONOPLNLNININVNININD = = O N—= VO V00 H OO0
NN

CZR6KGO RK6 FCINL CTRL DIAG
C(ZR6KG.P11
28-AUG-81 15:16

9%u

5861
€465

5880
6493

000125

6559

7798

036362
000200
050054

100504
10234

2896

120964

104411
104412

11306

5371
6192

7947

5644
6249
8025

5548
6307

MACY11 30(1046) 28-AUG-81
15:17 PAGE 262
CROSS REFERENCE TABLE == USER SYMBOLS

REALCY
REALSE
REALTR
REALUB
REALWC

050056
050062
050060
050052
050050

123854
6821
6811
10312«
10256+«

123874
123864
123834
10389

10477

123824

3969

7786

7842

8081

8213

8342

8626

8696

8781

8937

REFMT

001676

27134
6676x

2759+
6755«

4219
6971«

4346+
8337+«

4422+
8580+

L5071
11363

4553%
11375

4607+

4667

4726

4B10+

6524+

6604

9736

9871

10132

10182

10396

10478

10482

10836

10858

120984

8635
7426+

8704

3868+
10146~
7429+«

7632+«
10157+«
8548+

7817+«
10161
8723+«

7920+
10163
10063+

8022+
10173~
10092

8118+«
10216
10155«

8298+
11305+
10165

8490+
11306
10214+

8552+

8634

11303+«

11304+

8705+«

8189+

8296+

B418+

B423+

8428+

10029+«

10030+«

10156+

11312+

5653

5731«

RKCS1 = 000000

RKCS2 = 000010

RKDA
=
RKDB =
RKDCYL=
RKDS
=

000006
000024
000020
000012

RKECPS= 000030
RKECPT= 000032

RKER
RKMR1

= 000014
- 000026

19674
8703«
19714

2945«
10071+«
2967+

19704
19764
19754
19724

10065+
4251
10064+
8553

19734
1}%?2#

7437
3654«

19804
19814

2970x«
10085
3387+
10062

7596
3702«

RKMR2 = 000034
RKMR3 = 000036

RKPRI

19784
19794

10171
10172

19824

7956+

001622

26694

001420

26684

2916+

SAVREG= 104413

9527

9638

RKSPAR= 000022

RKVEC
RKWC
RLS

= 000002
= 000010

SCLR = 000040
SCOP1 = 104415
SCOP1$ 035222
SECERR= 000040
SEEK = 000117

SELDRvV= 000107

SETCLK
=
SkI
SK1ERR=
SPACE2
SPAR =
SPARER=

SPCHLR
SPCPAR
SPDERR=
SPDLSS=
SRCHLD

001742
000002
000002
051053
020000
000001

070400
(070410
000200
000020
001702

19684
20204

2918+

5647
3040

74c7+«
3290

81O
3645

9839
2022¢

9842
8723

9845
10214

10050
11303

6824

6934

97454
6816
19934

12099
10388
3802

3942

7538

19864
3772
2181
20374
3946
3178
20124
3466
5653
5654
10508
20594
27184

3950

8826

3063
7899
27424

7888
9563
10163
10500

134494
134524
123974
10506
11082

A
wmed £
e

27484

2177
19154
19744
19694

001762
000010
000016
000004

RESTRT
RESVEC=
RKASOF=
RKBA
=

12483#4

9580

10814

REPNR = 100000

RESREG= 104414

3906

9806

10145

10332

10413

10422

120974

9824

9827

9830

9833

9836

9010

4247
7079

120994

4279
7102

4286
7149

4315
7215

4399
7240

4480
7287

4932
7424

6548
7449

6571
7495

6587
7520

124324
3844
3114
8157

3925
3195
8175

3988
3281
8304

7455
3321
8394

7613
3371
8437

7675
3414
8460

7750
3458
8794

7861
3524

8066
3565

8981
3636

3684

4080
6964

1?;%3

Yo N

gg?;#

RECAL = 000113

SEQ 0260

CIR6KGO RK6 FCTINL CTRL DIAG
TIR6KG.P11
28-AUG-81 15:16

9809

123914
9575
10498
123904

125884

11106+

11158+«

9812

117282

9815

9818

9821

CZR6KGO RK6 FCTNL CTRL DIAG
CZR6KG.P11
28-AUG-81 15:16
SRTFLG
SRTINS=
SRTSPL=
SRO
=

001624
000010
000113}
177572

26704
27004
19904
19344

SR
=
SR3
=
SSINIT
STACK =
- START
START1
STKLMY=
SVAL
=

177576
172516
037176
001100
001772
001776
177774
100000

SR1

= 177574

19354

SWR

001140

19364
19374
02054
18194
2170
2743
18304
20674
3782
22314

SWREG
=
SW0
Sw00
=
Sw0l
=
Sw02
=
Sw03 =
Sw04
=
SWOS
=
Swo6
=
Sw07 =
SW08
=
Sw09
=
SWw1
=
SW10 =
SW11
=
Swi2
=
=
SWw13
SWi4
=
Sw15
=
Sw2
=
sw3
=
Sw4
=
SW5
=
=
Swé
Sw7
=
Sw8
=
Sw9
=
S.ACLO=
S.BRHM=
S.BRKE=
S.CART=
S.DIB =
S.DOOR=
S.DRA =
S.DROT=
S.DRY =
S.DSC =
S.FLT =
S.FORM=
S.FWD -

000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
000100
000100
040000
000400
002200
000200
000040
020000
000200
040000
000200
001000
002000

2174k
18834
1873#
18724
18714
18704
18694
18684
18674
18664
18654
18644
18824
18634
18624
18614
18604
18594
18584
18814
18804
18794
18784
18774
18764
18754
18744
21024
21164
21384
21184
2134w
21174
2088#
21094
20904
20974
21034
20924
21204

9466

D 5
VACY11 30(1046)
28-AUG-81
15:17 PAGE 263
CROSS REFERENCE TABLE == USER SYMBOLS
2742+
2857
9180
9192
12100
2753
2176
2746
3209
8803
2764
9501

2794
1883
1882
1881
1880
1879
1878
1877
1876
1875
1874

9582
10743

9745

2745+
2860

2748+

2751+

2862

3054

SEQ 0261

3262

CZR6KGO RKE FCTNL CTRL DIAG
CZR6KG.P11
28-AUG-81 15:16
S.HDFL= 000200
S.HDHM= 000040

21314
21154

S.1CyL=
S.ILF =
S.LIMD=
S.LOAD=
S.MHD =
S.NMOv=
S.OFF =
S.PAR =
S.PIP =
S.PLO =
S.REV =
S.RTZ =
S.SECT=
S.Sk1 =
S.SPIN=
S.SPLS=
5.SPOK=

000040
000400
020000
010000
000400
010000
002000
001000
020000
004000
004000
020000
000020
002000
010000
010000
001000

21014
21044
21374
21224
21324
21364
20934
21054
20964
21354
21214
21234
21284
21064
20954
21084
21194

S.UNLD=
S.UNS =
S.vv
=
S.wWCLK=
S.WGAT=
S.WLE =
S.WRL =
S.XDOK=
S.XERR=

040000
040000
000100
000040
000100
004000
004000
000020
001000

21244
21104
20894
21294

S.TYPE= 000400

TBITVE= 000014
TCHKOP= 104421

TGETRK= 104420
TIMCNT
001654
TKVEC = 000060
TLOADR= 104417

MACY11 30(1046) 28-AUG-81
15:17 PAGE 264
CROSS REFERENCE TABLE == USER SYMBOLS
7914

8477

3150

3220

SEQ 0262

20914

21304
21074
20944
21144
21334
19164
3084

3234

3287

3296

3326

3342

3377

3509

3572

3599

3642

3690
4636
5097
5803
6260
6931
7466

3778
4695
5152
5853
6318
6961
7492

3829
4709
5166
5876
6374
7004
7517

4078
4748
5230
5891
6430
7019
7607

4244
4778
5245
5939
6476
7061
7625

4269
4793
5303
5963
6545
7076
7631

4295
4844
5317
6024
6565
7197
7646

4373
4867
5366
6044
6628
7212
7671

4406
4930
5386
6059
6643
7326
7686

4452
4948
5440
6110
6701
7343
7691

4486
5004
5457
6129
6716
7390
7706

4522
5017
5769
6144
6777
7421
7729

4575
5080
<788
6203
6841
74647
7761

8353

8360

8375

8390

8433

8474

8509

8527

8578

8649

8718

8786

8800

3945
7096

4006
7234

4393
7809

4474
7887

4537
7961

4590
8036

866"

8728

8818

3506

3526

7767

TCHKWE= 104422

7782

7857

7911

8000

8044

8952
3203
4651
8109
3070
9860
26904
19234
3065

8972
3421
5505
8316
3120
10080
9760«
11673«
3115

9000
3465
5558
8450
3389
10126
9789+
11674+
3197

11350
3530
5694
121044
3606
10226
9792«

11357
3659
6504
10425
9851+«

121024
10067+

3229

3283

5555
6055
6639

5656
€105
6697

5765
6125
6712

5784
6140
6773

3561
3972
4632
5076

3568
4002
4647
5093

3595
4075
4691
5148

3638
4240
4705
5162

3742

3648
4265
6744
5226

5799
6199
6796

8135

8168

8194

8240

11385
3709
6800

121034
3937
6876

3757

3809

3850

3878

4273

3292

3323

3338

3373

3417

3686
4369
L4774
5241

5849
6256
6837

3696
4386
4789
5299
5872
6314
6872

3738
4449
4840
5313
5887
6370
6927

3774
4467
4863
5362
5935
6426
6957

3804
6518
4926
5382

5959
6472
7000

8256

3461

3846
4533
4945
5436
5973
6500
7015

8264

8279

3909
4571
5000
5654

3928
4586
5014
$502

7057

7072

6020
654

6040
6€ 24

(ZROKGO Rk6 FCINL CTRL DIAG

TIR4KG.PIY

28-AUG=-81

15:16
7092
7642
7954

8275
TPVEC

= 000064

TRAPVE= 000034
TRKERR= 000020
TRTVEC= 000014

TSSINI=

104416

30(1046)

7193
7661
7996

7208
7681
8015

7230
7702
8032

7322
7716
8073

8783

8796

8939

8312

19224
6807
19174

2772«
10385

2773«
124314

3033

3798

3080

3110

1423

3840

4456

70643

19c4H

5285
6293

6985

7872

8487

8697

5347
6350
7893

8545

TSTAPT
TSTCYL
TSTLUP
TST1
TST10
TST100
TST101
TST102
TST103
TST104
TST105
TST106

032202
036122
004720
003162
005334
026132
026356
026504
027026
027560
030022
030246

9135
9937«
33044
2934nx
36524
80594
81514
82074
83354
85424
86094
86794

91384
9943+«
8598
9308
9315
9371
9372
9373
9374
9375
9376
9377

TST11
TST110
TST12

006260
031174
006376

36304
89194
36784

9316
9379
9377

TST107

TST13

TST14

030466

006514

006756

87534

37304

37964

9320
9321
9322
9309
40384
9324
9325
9326
9327
9328
9329
9330
9310
9331
9332
9333
9334

TST3S
TST36
1ST37

013672
014060
014302

51264
51964
2764

9336
9337
9338

013440

50454

3277

3317

4502

6554

4608

4669

7082

7179

7219

5622
6406

7917

8560

99404

9319

38384
38994
39644
29654
3994
W2178
43464
44204
L4994
45514
L6054
46654
30304
47240
48214
48964
49774

TST34

3189

9318

007110
007320
007510
003360
007644
019512
019110
011322
011540
011664
012016
072174
003366
012326
012622
013016
013252

9335

7339
7757
8088

8386

3903

9323

8349

15:17

8371

9378

TST1S
TST16
IST17
1ST2
TST20
TST21
T1S122
TST23
TST24
TST25
1ST26
1ST27
TST3
TST30
TST31
7ST32
TST33

28-AUG-81

CROSS REFERENCE

8291

86728

F
5
PAGE 265
TABLE =-- USER SYMBOLS

MACY1T

3921

5491
6460
7943

8614

3666

5544
6489
7981

8684

2948

SEQ 0243

7386
7778
8100

7617
7793
8132

7462
7805
8164

7487
7849
8184

7513
7868
8220

7587
7883
823¢

7620
7907
8252

8961

8968

8983

8995

11346

11381

i2101#

8401

3367

8414

3410

8446

3454

8470

3632

8505

3665

8523

3680

8574

3732

3984

4062

4222

4238

4263

4292

6347

&37%

5607
6528

5750
6557

5834
6605

5920
6678

6005
6756

6090
6827

6177
6913

6236
€944

8116

8153

8209

8338

8456

8480

7307

8062

8775

4727

7407

8931

4824

76475

11331

69N

7503

8171

11360

4987

7574

121004

5061

7745

5135

7814

5212

7838

CIZR6KGO RK6 FCTNL CTRL DIAG

CIRSKG.PN
TST4

TST40
TSTL1
TST42
TST43
TST4L
TST4S
TST46
1ST47
TST5
TSTS50
TSTS1
TSTS2
TST53
1ST54
TST55
TST56
TST57
1576

TST60
TST61
TST62
TST63
1S164
TST65

1ST66
TST67
1517
TST70
TST71
1S172
TST73
TST74
TST75
TST76
1ST77
TWATIM=
TWATI1S=

MACY11 30(1046)

28-AUG-81 15:16

004616

014470
014662
015056
015262
015466
016326
016532
016736

3275

53,54
56204
56894
55424
56054
57484
58324
5918%#

33154
60034

022340
022444
005230
023066
023510
023620
024466
025160
025402
025660
025740
104440
104435

69834
70394
3,084
71754
73054
73674
75724
77434
78354
79414
79794
121184
121154

TWAT11- 104437

TWAT12= 104432
TWAT14= 106433
TWAT15= 104434

TWAT16= 104423

TWAT2S= 104436

TWAT32= 104424

60884
61754
62344
62914
63484
64044
64584
33654

64874
65224
66024
66744
67534
69074

13???

PAGE 266

9312
9347
9348
9349
9350
9351
9352
9353
9354
9313

9355
9356
9357
9358
9359
9360

9361
9362
9314
9363
9364
9365
9366
93(7
9368
9369
9370

42461

4370

121124
12113#
6473

6501

6542

4003
7908

4266
7958

7806

8810

7073

3067
3596
8372
8662

4387
5455

4450

4519

6572

4633

4692

4745

4775

7418

7588

7662

7720

B4B4

11382

121144

7621
8089
8471
11347

7643
8133
8506
121054

7682
8165
8629

7703
8221
8641

7758
8237
8698

7779
8253
8710

7794
8276
8784

7850
8299
8797

7869
8313
8940

7884
8350
8949

7093

7463
8074
8447
8984
121164
4534
5800
7209

4706
5873

4790
5888

4864
5960

4946
5974

5015
6640

5094
6797

5163
6838

5242
6873

5314
6958

5383
7016

8297

6041

8430

6056

6126

6141

7434

7514

8033

3979

8524

7488

7818

8492

8944

8965

3117
3639

8402
8969

4468
5785

L4648

TWAT8S= 104437

3750

3916

6713

SEQ (264

9311

4587

104426

9339
9340
9341
9342
9343
9344
9345
9346

TWATLB= 104425
TWAT64-

15:17

CROSS REFERENCE TABLE == USER SYMBOLS

004724
017154
017360
017564
017710
020034
020160
020304
020430
005102

020502
020562
021046
021230
021416
022122

28-AUG-81

3198
3656

3231
3687

7231

3284
3704

7340

8575

3293
3739

8107

121084

7854

3324
3775

81N

7923

3329
3805

8261

8121

3374
3847

3418
3871

8387

121064

8225

8357

6774

6928

7387

3462
3911

3527
3929

3569
3974

121074

CIROKGO RKG FCINL CTRL DIAG
ol

(ZROKG.PTY

"WATBO= 104427
TWAT96= 104430
TYPDS = 104405
TYPE
= 1044(1

TYPERR
034136
TYPOC = 1044G2
TYPON =

104404

T.ASOF

001556

T.BA

TYPOS = 104403
TYPTBL
001722

28-AUG=-81

15:1¢
113564

74668
(841
5850

MACY11
121174

7628

4927

5936

3C(1046)

28-AUG-81

7689

5001

6021

7765
5077
6106

12110«

5300
6315

5363
6371

5437
6427

5503
6625

5556
6698

5678

8077

12709«
5227
6257

2859

2864

2867

2874

2878

2880

2895

3056

3060

7194
9116
2809

7323
9123
2829

7997
120894
2840

11301
11787
11963
9491

11365
11798
12045
9527#

11393
11817
120854

11409
11865

114654
11871

11565
11876

11634
11880

11696
11885

11708
11886

2877

2894

9475

9480

9560

9620

11765

120864

3575

3607

8635~

B636
5710

3158
5614
9545

2866

120884

120874
27274

3163
8762
9552

3176
9110
9563

3178
9117
9565

3132«

9959

9964

001544

26404

5519

5523

5573

T.(ST

001540

26384

7.CS2
T.DA
7.DB
T.DCYL

001550
001546
001564
001560

T.ECPS

001570

7252

5565
106489

26424
26414
26484
26464

26434
3391

10491
26504
26514
26444
26494
26524
26534

7257
3071

8954
10757

9861
13343

9977

10216+

10217

10221

106433
10395

10490
13345

13333

13343

3123
3496

3125
3547

3209
3553

3223
3743

"0437

10692

13333

13345

5584
10253

5717
10256

9820

G823

3484

13343

3075
13333
7914

3146
8477

5526
267

5530
7279

5580
7284

10559

12419«

12428«
10557
3712

WCE
= 040000
Ww(ERR - 000001
WwCKERR
000004

20314
10255
7098
20474

10528
124274
7236

- 004000

13346

13333

10311
2025#
3662
19894
20504
8451
20304
5697
20614
3%99,

124044
10573
10575
3237
9811

5706

5052
9476
9586

10391

13345

3098
3490

5703

4907
9473
9578

10306

10392

3093
3427

5577

£905
9461
9576

10303

10380

000002
000400
000004
000107
040000
040000
020000
000100
000100
035536

wLE

3121

8974
13333

4904
9124
9575

7275

6274
10393

UBAERRUFE
UFERR =
UNLOAD=
UNS
=
UNSERR
JPE
=
UPERR =
vV
=
WATSRT

7261

7271

3535

3142
10386

007572
001554
001566
001574
00576

26474
26394

3512

3073
10383

T.ECPT
T.ER
T.MR1
T.MR2
T.MR3
T.SPAR
T.wC

00156¢
001542

SEQ 0265

8997
5749
6200

1%%2%

001552

H
5
PAGE 267

CROSS REFERENCE TABLE == USER SYMBOLS

1%%%%#

T.DS

15:17

3518

3541

3581

3613

5053
9481
9619

7001

5766

7058
3087

5054
9492
10779

5203
9539
10780

5204
9540
10812

5205
9544
10813

8663

8704+

8705

8730

9004

5713

7114

7119

7133

7137

3811

11762
11888

3852

11763
11891

3879

11766
11895

4281

11777
11961

5512

10234

10307

10431

10439

10456

3237
3758

3243
3765

3298
3782

3329
8803

3345
8819

3380
10435

5720
10292

5723
10335

5726
10390

7123
13346

7129

7141

7146

9826

9829

9832

9835

9838

9841

9844

12423«
9814

9817

10530

124104

= 004000
wRL
WRTCHK= 000131

4526
5426
7186

11160~

4576
5495
7315

4640

4699

7410

5756

7430

5620

SEQ C26¢
~NAwn
S~
WO ONn
QNN
O~

(W 1V,
Te

»
»

NS
O

7065

040000
000224
TR

N/=WAY

1997#

8406

4915

6094

5069
6617
7989

5138
6590
8008

6734

6530

6760

6917

7376

4990

7650

7876

6009

11284

11159«

11283

4506

£558

4612

7085

7201

7223

7332

22474

2776

2777
22484

2778
22494

22504

2251#

22524

2253

22544

22554

22474

22484

22454

22504

22514

22524

22534

22548

22554

22624
22754

2263

22644

2265~

22664

22674

22684

22694

22704

22718

9492

11905

9517

11966

9539

9544

9552

9565

9578

10779

10812

11455

4141~

B8589

8613

8683

8755

8766

8923

9395
3044
9380
9109
4121«
9302«

9419
9397

9285+

9307

94560

9517

9747

11295

4427
11368

033372
033346
033354
033364
001134
001352
001122

11912

001126

001266
001356
044532
045524

9461

000040

$CMS

$CM3

000020
000020

SCNTLC
$CNTLG
SCNTLU
$CORc
$CPUOP
$CRLF

046422
046434
046427
032466
001324
001273

$CROUT
$DBLK
SDEVCT
SOEVM
$DOAGN
$DTBL
SENDAD
SENDCT
SENULL
SENV
SENVM
$EOP
$SEOPCT
SERFLG
$ERMAX

032516
044752
001306
001354

2943

11708

11905

11499«

115044

22L64

22594
224N
2259
22614
2274N

119054

119064

9481

11885

914

27N

Ruy

$CM2

2919

2770

001100
000020

$ATY3
$SATYSL
$AUTOB
$BASE
$BDADR
$BDDAT
$BELL
$COW1
$CHAR(
$CKSWR
$CMTAG
=
$(M1

27204
27194

NLNLNLNLNLNDONIN)
=2\ OPNUNY —
MO NN
N —
OO N — NN
= NWOOWN o
B OR=2NOONO ~

WRTGAT=
$APTHD
$ASTAT=
SATY(
$ATY1

8993

5289
6989

O\ —d =

WRDNUM

5215
6789

6379

001706
001704
WRHEAD= 000127

WRDCNT

124014
1995#

—

WLERR = 004000
WRDATA= 000123

15:17
PAGE 268
30(1046)
28-AUG-81
CROSS REFERENCE TABLE =-- USER SYMBOLS

QO &~ —t (W

MACY1T

CIR6KGO RK6 FCTNL (TRL DIAG
{IR6KG.P1T
28-AUG~81 15:16

20n

“11573%
4091«
91334

9512
9138
2824
90984

91054
4082

9279

9592
9591«
9233
9307

A
CZR6KGO RK6 FCTNL CTRL DIAG
(ZREKG.P1T
28-AUG~-81 15:16

J
3
MACY11 30(1046)
28-AUG-81
15:17 PAGE 269
CROSS REFERENCE TABLE ==~ USER SYMBOLS

SEQ 0267

$ERROR
$ERRPC

033614
001116

2770
1%%%8’

9248
9463+

94544
9464

9465

9471+

9472«

9474

9478+

9479

9517

13333

13336

13342

$ERRTB
SERTTL
SESCAP

001360
001112
001264

9125+«
2920+
9868+

9462+«
3064*
10129+«

9517
3102+
10130+

3185+
°0229+«

3257«
10230«

5655+«
10852

5700«
10856+«

5730+
10857+«

9301+
11396+

9510

001316
001360
001300
033612
001156
001155
001120
001124
032152
045614
000000
000224
046622
001104
047060
001135
001114
032460
032450
032316
001274
033611
001106
001110

9536
91
2778+
9867«

9508

$ETABL
SETEND
$FATAL
SFFLG
SFILLC
$FILLS
$GDADR
$GDDAT
$GET42
$GTSWR
$HD
=
SHIBTS
SHIOCT
SICNT
SILLUP
$INTAG
$ITEMB
SKINEX
$KTOUT
k711
SLF
SLFLG
SLPADR
SLPERR

23454
22184
2276
9517
22954
2203
2288%
9386+
22394

9417
11507

9426*

94344

9293
120484

9295«

9306

11779
9496

11799
9517

11912
9530

9181«
11507

9204+
11895

11905

11966

9283+«
3982«
5282+«
9300«

9299«
4061«
6525+
930¢

9304
4235+«
6554+
9507

9306
4249+
6825+
9749

4375«
6941+

4455«
7080+

4773«
7216+

4909+
7404+

4984
7499e

032572
032574
001330
(001334
001340
001344
001276
001326
007332
001336
001342

9274+
3919«
5209+
9283
92264
9220«

4289+
6910%

SLSTAD
SLSTBK
$MADR1
$MADRZ2
$MADR3
$MADR4
SMAIL
$MAMS1
SMAMS?2
$MAMS3
$MAMS4

2780x
2781x
5132«
89,8«
9219«
2843
2856+

2203
2855+

22864
4898

2798
4979

2813
5047

9298
5128

9494
5198

114634
5278

SMFLG
SMNEW

033610
046452

9393
119104
9403+
9408+
9401
11908#
2854+

9428+

94324

$MBADR

$MSGAD
$MSGLG
$MSGTY
SMSWR
sMTYPT
$MTYP2
sMIYP3
SMTYP4
SMXCNT

000226

001312
001314
001276
046441
001327
001333
001337
(001343
033120

2238#
22224
2224LH
91264
117634
1804
21984
11954+
22154

12015

22294
22194
9179
9196
2847
22804
9427+«

22164
21748
5058+«
8771«
2845
2827
23134
23174

23294
9423«
9389
11455
11507

12091
119654
9292+«

12031

11760+«
9465«
92044
92014
9177#
9517
94334

92274

23204

23234
2199

23074
23154
23184

23214
21994

9387«
11766
22934
22944
22874
11763
23084
23164

23194
23224
9296

93064

9406.
9406~

9421

9425+

29884
3622
4014k

295
36674
4016

32
3669
42084

5037
55354

60B1
64784
6977

51164
5537
bi64r
6480
70214

5118
55804

51864
5591
62234
6515
71574

11613«
9294
3046

11624+
93034
8759

116504

910¢x

9103~

9114

11817

11888

11905

11963

11966

5529+

5569+

5576+

5583«

7274~

5530
7146
13347

5570«
7257«
13351

5577%
7267%

12033+

12034«

120504

2768

2770
9512

2772
11700

2774
11705

78264
8323

$OCNT
$OMODE
$OVER
$PASS
SPASTM
$POWER
$PWRDN
$PWRMG
$PWRUP
$QUES
$RDCHR
$RODEC=
$RDL IN
$RDOCT
$RDSZ =
$REGAD

045204
045206

$REG1
$REG10

001164
001202

7828
85304

46564

6166
65134
7023

79334
8532

9307

44104

4658

7935
86024

9136

9140

9290

7283+

5712«
10147

5719«
10180

10476+

5584«
7275+

5706+
7284+

10477+

11108+

5720

5726+
13347

2776
11706

11736

2778

2780

2807

12043
11507

12094

o
v
—

»
»

TP
N

7266«

5705+

5713

5725+

$REG14

$REG15
$REG16
SREG17
$REGZ
$REG3

7256%

A A

$REG1?
$REG!3

7145«

001204

*v*u*u\dxunggf oo~

—an

12095
12096

046156
046464
000010
001160
001162

WWWNWNIWN
=2 -an

$REG11

ARk

2910+

WWNRWWWNO
W

$REGO

033104
001304
000232
047066
046720
047054
046772
001272
046066

116484
11610
9284

4597

45958

33574
3790

2960
36204
3957

11507

11461

22374

SEQ 0268

001154

K
5
30(1046)
28-AUG-81
15:17 PAGE 270
CROSS REFERENCE TABLE == USER SYMBOLS
QOO0 ~NONON AN IS BN NN
N = N NNNO AN D 00N
£ B ANNIAN
= N0 = NN
OCOO
VOO VOO

SNULL

ENWTST= 000001

MACY11

CZR6KGO RK6 FCTNL CTRL DIAG
CZREKG.P11
2B-AUG-81 15:16

$RE G4

SREGS

$REG6

SREG7

$RE SRE
$RTNAD
=
$R2A
$SAVRE
$SAVR6
$SCOPE
$SETUP-

032174
rennnn

046624
047064
032576
000137

9504

2777

11912

2810

9100

CZR6KGO RK6 FCTINL CiRL DIAG
CZR6KG.P11
2B-AUC-81 15:16
$SIZE

032234

$SIZEX 032522
$STUP = 177777
$SVLAD 033050

$SWR

= 167400

$SWREG
$SWRMK=
$SWO8T
STERM =

STESTN
STIMES

001320
000000
033122
000102

001302
001262

MACYT1 30(1046) 28-AUG-81
15:17 PAGE 271
CROSS REFERENCE TABLE == USER SYMBOLS

2826

7942
9128
9278
9459

7980
913&
9279
9466

1804
2778
3731
4725
5749
6603

1808
2780
3797
4822
5833
6675

1809
2781
3839
4897
5919
675

1810
2935
3900
4978
6004
6908

2801
1816
93074

8208
9235
9288
9517

8336
9236
9300
12047

9238
9867

9239
10129

9267
10229

10856

22894
2275#
3797«

9298+
2777+
3839«

9528«
2935+
3900«

9529+
2966+
3965+

5833+
6675«
800«

5919%
6754+
8152+

6004+
6908+
8208«

5046%
6089
6984t
8336+

9865
3031+
4039+

2298%
1815
9273
121154

001146

$TKQEN=
$TKQIN
$TKQOU
$TKQSR
$1KS

045217
045212
045214
045216
007144

STKCNT
STKINT

045210
045220

$TKSRV

045270

$TMP1

001224

$TMP10
STMP11
$TMP12

001242
007244
001246

$TMB0

$TMP13
$TMP14
$TMP1S
$TMP16
$TMP17
$TMP2
STMP3
$TMPL
$TMPS
$TMPG
$TMP7
$IN
=

001222

001250
001252
001254
001256
001260
001226
001230
001232
001234
001236
001240
000111

91614

92974

1793
2777
3679
4666
5606
6523

SEQ 0269

92134

9203
27408
9258

4822+

$TKB

4897+

3060
9136
9286
9501

L97Bx

8152
923¢
9287
9505

5127+
6176
7040%
843+

1811
2966
3965
5046
6089
6984

1812
3031
4039
5127
6176
7040

1813
3276
4218
S197
6235
7176

1814
3316
<345
5.77
622
7306

1815
3366
4421
5346
6369
7368

2275
3409
4500
5421
6405
7573

2276
3453
4552
5490
6459
7744

2277
3631
4606
5543
6488
7836

10127
3276%
4218+

10227
3316%
4345+

10854
3366+
4421%

11329+
3409+
4500%

13333
3453«
4552+

13336
3631«
4606*

13342
3679+
4666%

13350
3731«
4725*

11717

11745

11772

5197«
6235x
7176%
8583+

8543
9237
9303

5277+
6292%
7306
8610+

8610
9238
9306

5346+
6349%
73(>:
BBALs

8680
9244
9446

5421%
6405%
7573%
8754«

8754
9261
9447

5490+
6459+
7744+
8920+

8920
9263
9448

5543+
64BBe
7836+
9101+

9095
9264
9449

S5606%
523+
7942+
9286+

9101
9277
9450

5749+
6603+
7980+
9293

2234#

11480

11487

11507

11654

11675

11686

116594
116564
116574
11658#
2233#

11731
11671+
11672+«
11671
5661%

11842
11672
11840
11733
5677+

11729+
11841+
11844
5733=

11730+
11842

11731
11844+

11733+

11478

11485

11507

11654

11676+

11713«

11715

11721«

11743

2873
10215+
8868
11056
10697
10821
10816

2880+
10219+
8879
11057
10827

2882

2885

2897+

2899

2901

2903+

2904s

2905+

10641

11022+

33164
3788

3257
3974

116554
2758

11759+
11673

22594
2906
22604

11024*
2267#
22684
20694

22704
22714
22724
22734
22744
22614
22624
20634
2064#
22654
20664
1794%
33664

11670«
3861

11769
116864

2869+
2907+
8765+«

11026
10415+«
10416+
10417«

10419+
10769+
10770+
9998+
10000«
10642
10154+
3062«
10879+«
10876+
3183«
180&
3401

11706
8654

11781+

2871
2909
8843+

11040*
10595
10676
10656

10423+
10788
10775+
10003+
10008

10168+
3091
10889+
10897
3253«

2927
34094

11723+
116704

11807+

10453
10792+

11837
11697

11830«
11758

11061

8901+

11063+

8922«

9027«

9052

9063

9085¢

10592
10794

10610
10798+

10654
10819

10674
10823+«

10695
10825

10746
10829+

10801

10877+

10898

2988
331w

30314
3667

3268
36794

32764
3717

10010+
10183
3095«
10896

3258
29354
3434

2958
3453

29664

3305

3731w

CZR6KGO RK6 FCTNL CTRL DIAG
CZRO6KG.P1
28-AUG-81 15:16

3831

$TRAP2

$TRP

001152
001157
001150
047076
047120

= 000041

LSASTA= eeweer
.8X
- 000224

40394

4208

42184

6478
6984#

64884
7021

6513
70404

65234
7157

6594
21764

66034
7295

6665
73064

66754
7348

77440
8321
9308

7826
83364
11329

120774

120864

120874

120884

120894

120904

12091

120924

120944

120954

120964

120974

12119

121054
121184

12093

120844

121044
121174

9297+«

9298

9303

9307

9458

9517

9528

120734

120984
121110

12084

120994
121124

121004
121134

6449
69084

121014
121144

64594
6975

121024
121154

121034
121164

1?%%2*

9100«

9142+«

9233

9270+

11855
12090
115194
9414

11856

11868

11886

11900

119044

12089
11428%

12077

12085

11500
116044
11603
115994
22924

11502
12086
116064
12087

11458

22024
22994

23244
23254
116482
11489
92524
91284
93074

93204
93334
93464
93594
93724
11600+
21674
21524
2780
11659
134544
9387

21874

11465

11472

115054

78364
8530

7933
85434

LO6OH
5186
56064
6223

4410

7733
82084
9268

64054
6899

4656
51274
5589
61764

L3454

75734
8196
89204
11507
11507
11507

6393
67544

L6068
5116
55434
6164

4328

7555
81524
8904
11496+
11428
11496
120624

044534
045006
045022
044762
001310

$OFILL
045205
$40CAT
000000
.
= 074414

4014

73684
8140
87544
22364
22404
22354
2772

STYPEX
$TYPOC
$TYPON
STYPOS
SUNIT

001346
001350
000023
000021
032622
000000
000111

39654

4595
50464
5535
60894

046412
wxexax |
044536
044202

SVECT1
SVECTZ2
$X0FF =
$XON
=
SXTSTR
$$GE T4=
$$SW08=

3955

45520
5035
54904
6079

STTYIN
STYPBN=
$TYPDS
STYPE

000234
001322

39004

4543
4978#
5482
6004#

12067
22004
%%%%#

SUNITM
SUSWR

3889

45008
4967
56214
5994

047132
000230
001102

044416

38394

SEQ 0270

4490
48978
5410
59194

$TRPAD
$TSTM
$TSTNM

STYPEC

L4210
4886
53464
5910

63494
6739

$TPB
$TPFLG
$TPS
$TRAP_

MACY11 30(1046)
28-AUG-81
15:17 PAGE 272
CROSS REFERENCE TABLE == USER SYMBOLS

7942#
8602

121064
121194

11477#

11803

2885+

2888

2908+

2909+«

2914

2918

4715
51974
5740
62354

472540
5266
57494
6280

7968
86104

79804
8671

12107#

121084

4812
52774
5823
62924
8049
86804

121094

48224
5337
58334
6337
80604

8738

121104

12088

2875

2884+

11507
11507

11689

9308
93214
9334w
93474
93604
93734
11604
9244
2168

93094
9322¢
93354
93484
93614
9374k
11614
9468
21724

93104
93234
93364
93494
93624
93754
116494

93114
93244
93374
93504
93634
93764

93124
93254
93384
93514
93644
93774

93134
93264
93394
93524
93654
93784

93144
93274
93404
93534
93664
93794

93154
93284
93414
93544
93674
93804

93164
93294
93424
93554
93684

93174
93304
93434
93564
9369

93184
93314
9344w
93574
93704

9319«
93324
9345H
93584
93714

116604
134554

119044

21784
9136

11905

21804
91374

2187
9306

21884
9307

21904
94354

21924
9517

22104
11507

2281
11573»

26914
11654

2765
116584

2781

9390
2192

91134

119124

11966

12027

12049

12119

133324

134454

134464

134478

(IZR6KGO RK6 FCTINL CTRL DIAG
(ZREKG.P11
2B-AUG-81 15:16
COMMEN
ENDCOM

ERROR

1w
1#

2981
3235
3350
3454
3597
3733
3848
4004

3034
3240
3368
3501
3600
3740
3856
4010

3068
3247
3375
3510
3611
3747
3876
4063

3081
3278
3378
3516
3617
3755
3883
4077

3085
3285
3385
3522
3633
3762
3904
4079

3111
3288
3396
3528
3640
3769
3912
4090

3118
3294
3411
3534
3643
3776
3917
4101

3151
3297
3419
3539
3657
3780
3922
4111

3190
3301
3425
3545
3663
3786
3930
4118

3199
3318
3432
3557
3666
3799
3941
4127

3207
3325
3455
3557
3681
3806
3949
4140

3212
3327
3463
3570
3688
3815
3967
4203

3221
3334
3469
3573
3691
3827
3975
4223

6371
6523
4696
4B6S
5018
5173
5332
5499
5707
585,
6006
6145
6319
6477
6629
6798
6932

4374
4535
4707
4BOB
5024
5181
5348
5504
5714
5874
6022
6151
6325
6490
6641
6804
6945

4377
4541
4710
4874
5031
5213
536,
5509
5721
5877
6025
6159
6333
6502
6644
6813
6959

43BB
4555
4728
4BBT
5062
5228
5367
5518
5727
5889
6042
6178
(351
6508
6650
6822
6962

4397
4573
4746
4912
5078
5231
5384
5524
5751
5892
6045
6201
6372
6529
6658
6828
6986

4407
4576
4749
4928
5081
5243
5387
5531
5767
5898
6057
6204
6375
6543
6679
6839
7002

4424
4588
4776
4931
5095
5246
5398
5545
5770
5906
6060
6210
6381
6546
6699
6842
7005

4451
4594
4779
4947
5098
5253
5406
5557
5786
5921
6066
6218
6389
6558
6702
6848
7017

4453
4609
4791
4949
5104
5261
5423
5562
5789
5937
60764
6237
6407
6566
6714
6856
7020

4457
4634
4794
4955
5112
5286
5438
5571
5801
5940
6091
6258
6428
6567
6717
6874
7044

4469
4637
4800
4962
5136
5301
5441
5578
5804
5961
6107
6261
6431
6568
6723
6880
7059

4478
4649
4BO8
4988
5150
5304
5456
5585
5810
5964
6111
6267
6437
6575
6731
6886
7062

4487
4655
4825
5002
5153
5315
5458
5608
5818
5975
6127
6275
6445
6583
6757
6894
7074

4503
4670
4B42
5005
5164
5318
5465
5692
5835
5981
6130
629
6461
6606
6775
6914
7077

4520
4693
4845
5016
5167
5324
5477
5698
5851
5989
6142
6316
6474
6626
6778
6929
7083

7268
74648

k242

7100

7277
7464

4245

7121

7285
7467

7608
7726
7851
7082
8136
8265

7622
7730
7855
7998
8154
8277

7626
7746
7858
8001
8166
8280

14
1
#

19264
19264
19264

9173
28104

8431
8557
8785
§973

8434
8561
8787
8985

27364
5750
6678

4237
5834
6756

8480

8487

7745

LOADLS

SEQ 0271

2952
3232
2343
3488
3585
3713
3841
3985

7094

INITSS

1820#'
3226
33,0
3,83
3579
3705
3830
3980
4239

ESCAPE
GETPRI
GE TSWR

19264
19264

MACY11 30(1046)
28-AUG-81
15:17 PAGE 274
CROSS REFERENCE TABLE -- MACRO NAMES

7814

4264

7130

7308
7469

4267

7139

7324
7476

4270

7147

7327
7489

8481
8650
8932
11351

4262
5920
6826

42N
6005
6912

(824
6090
6943

4510
6177
6985

4986
6236
7043

6293
7082

6350
7179

6406
7219

8545

8559

8614

8684

8774

8930

11331

11360

7897

6008
6759
7409
7944

6032
6788
74564
7988

6047
6829
7477
8007

6093
68¢4
7579
8024

7872

7893

7917

4847
5879
6616
7200

4938
5923
6631
7222

4989
5951
6689
7314

5086
5905
6704
7331

B17¢4

821¢

8228

8243

8267

8302

E56e

11338

/841

11367

7860

7875

7943

5137

5060
7981

5233

8363

7672
7783
7909
8078
8222
8358

’210

7391
7518

8475
8646
8824
11348

4827
5860
6418
7185
7797

7388
7515

8472
8630
8816
11332

7838

/668
7780
7894
8075
8210
8354

7198

4296

8457
8615
8807
9008

8454
8579
8801
9001

7647
7768
7891
8063
8195
8351

7195

7344
7504

4293

7632
7762
7873
8040
8172
8320

2738
5837
6362
7084
7785

7180

7341
7493

4285

7629
7759
7870
8034
8169
8314

8448
8576
8798
8998

7644
7766
7885
8045
8192
8339

4278

8488
8668
8941
11355

5134

8062

5288

8378

7683
7795
7912
8090
8226
8361

8492
8685
8945
11358

5211

8115

5425

8193

4297

7213

7408
7526

7687
7807
7918
8108
8238
8373

8507
8699
8950
11361

5284

6460
7307

8153

5443

6117
6946
7634
8065

8405

4298

7220

7419
7534

7690
7813
7925
8113
8241
8376

8510
8715
8953
11383

5422

6489
7406
8171

5618

6132
6988
7649
8080

84)>6

430

7232

74622
7575

7692
7815
7944
8117
8254
8388

8525
8719
8963
11386

5491

6527
7474
8209

5753

6191
7007
7694
8092

8459

4313

7238

7435
7594

7704
819
7959
8122
8257
8391

8528
8735
8966

5544

6556
7502
8338

5776

6248
7049
2709
8124

8437

4348

7259

7443
7603

7707
7839
7965
8134
8262
8403

8546
8776
8970

5607

6605
7574

8456

6306
7064
7770
8%

85°5

CZR6KGO RK6 FCTNL CTRL DIAG
TIR6KG.P1T
28~AUG-81 15:16
MSG

MACY1T

B 6
30(1046)
28-AUG-81
15:17 PAGE 275
CROSS REFERENCE TABLE -- MACRO NAMES

29274

2929

29584

2960

29874

2990

3268¢

3270

33054

3307

33574

3359

34014

3403

34340

40144
4658

4016
L7154

4208%
4717

4210
L8124

(3284
4814

4330
(L8864

44104
4888

4412
L9678

L4908
4969

4492
50354

45434
5037

4545
51164

L5954
5118

4597
51864

L5564
5188

6480
71574

65134
7159

6515
72954

65944
7297

6596
73484

66654
7350

6667
75554

67394
7557

6741
77334

68994
7735

3436

52664
5825

3620

3622

19264
3955
5186

2927
4014
5266

2958
4208
5337

2988
4328
5610

3268
4410
5482

OP(CHK

27404

4844

4867

4930

4948

5004

6961

7004

7019

7061

7076

8043
8527

8135
8578

19264

8168
8648

9429

8194
8717

8240
8786

9899

10033

10231

}332;

9390

9392

9413

9888

10020

4B75

4956

7606

POP

zgggRT
RESDC

RKLOAD

SCOPt

SETPRI

;:
2737#

6269
27394

6383
4863

7646

9430

5025

6439
4926

7670

5106

5484
61644

3790

55354
6166

5537
62234

55894
6225

5591
62804

57404
6282

5742
63374

5823#
6339

3434
4656
5823
6899
8530

3620
4715
5910
6975
8602

3667
4812
5994
7021
8671

3717
4886
6079
7157
8738

3788
4967
6164
7295
8904

3831
5035
6223
7348

7197

5876
6476
7212

5891
6545
7326

5939
6628
7343

5963
6643
7390

6024
6701
7421

6044
6716
7446

6059
6777
7466

6110
6841
7491

6129
6931
7517

8256
8800

8264
8951

8279
8971

8375
11357

8390
11385

8474

8509

11118

8360
11350

8433

11099

8353
9000

11560

11955

12004

12036

10205

10988

10999

11519

11929

11984

12017

12023

5671

5812

5900

5983

6068

6153

6212

5162
5935

5226
5959

5241
5973

5313
6040
6712
7322
7868
8371
8968

7686

5175

7691

5255

7706

5326

5097

7728

6577
4945
5765
6199
6927
7513
8073
8505

6652
3000
5784

6725
5014
5799

6850
3076
5849

6888
5093
5872

6957

7000

7015

7057

8088
8523

8132
8574

8164
8628

11122

7767

11286

5230

7782

5245

7857

5303

7911

5317

8000

6500
7092

6624
7193

6639
7208

8220
8697

7528
5148
5887
6472
7072
7757
8236
8783

8252
8796

8275
8939

8312
8948

5299
6020
6697
7230
7849
8349
8961

3408
4605
5748
6753

3452
4665
5832
6907

3630
4724
5918
6983

3678
4821
6003
7039

3730
4896
6088
7175

3796
4977
6175
7305

3838
5045
6234
7367

3899
5126
6291
7572

7462

18214
3964
5196
6348

2934
4038
5276
6404

2965
4217
5345
6458

3030
4344
5620
6487

3275
4420
5489
6522

3315
4499
5542
6602

3365
4551
5605
6674

19264

11833

12088

12089

12091

12093
12108

12109

12094

12095

12096

12097
12112

12113

12098

12099
12114

12115

12100

12101

2206
3401
3898

2281
3407
3955

2284
3434
3963

2927
3651
4014

2933
3620
4037

2958
3629
4208

2964
3667
4216

2988
3677
4328

3029
3717
4343

3268
3729
4410

5740

5747

5823

5831

5910

5917

5994

6002

6079

6087

SETUP
SKIP

W
14
4
19264
14
3274
3788

;S}Q;

4419
4967

5488

7835

12086

}S}?g

7941

12087
12106

7979

12105

8059

12106

19264
19264
19264

2760

19264
3305
3795

2184
3314
3831

2186
3357
3837

2193
3364
3889

5535

5541

5589

5604

4490
4976

4498
5035

4543
5044

4550
5116

8151

12107

4595
5125

7642

7761

5166

85304

7617

7743

7620

5152

8323

3957

3401
4595
5740
6739
8321

5080

83214

3955

3357
4543
5589
6665
8196

5017

8198

3891

3305
4490
5535
6594
8140

8906

81964

38894

8051

89044

8142

3533

80484

8740

81404

38314

7386

120774

STARS

6327
4840

7631

7970
87384

564824
6081

37884

7339

SETTRA

SLASH
SPACE

7625

5412
60794

3719

14
3889
5116

56104
5996
64784
7023
79674
8673

372174

NEWTST

5339
59944
6451
70214
7935
86714

3669

78254
853$’

63934
6901

53374
5912
64498
6977
79334
8604

36674

5268
59104
6395
69754
7828
?ggg:

SEQ 0272

8207

4604
5186

7681

8335

4656
5195

7702

8542

12110

4664
5266

8582

12111

4715
5275

7778

8609

4723
5337

7793

8679

4812
5344

7805

8753

4820
5610

8919

4886
5419

9099
12116

4895
5482

{ZR6KGD RK6 FCTNL CTRL DIAG

CIROKG.P1

28-AUG-81 15:16

6280
6673

6290
6739

6337
6752

6347
€899

6393
6906

6403
6975

6449
6982

6457
7021

€478
7038

6486
7157

6513
7174

8058
8904

8140
8918

8150
9091

8196
9147

8206
9230

8321
9385

8334
9442

8530
9517

8541
9526

8602
9633

8608
9739

8671
10861

8678
10874

8738
10902

8752
11290

11413
1»

7304

11653

19264
17934

9114
19264

9121
2803

19264
19264

2865
9110

19264
19264

TYPOCT
TYPTXT

14
1

$$CMRE

%%%3’

%%gg

$SCMTM

%%9%’

gsgz

$SESCA

SSNEWT

KI11

.SWRHI
.SWRLO
LSACTY
.$APIB
.$APTH
.SAPTY

.SASTA
.$CATC

.SCMTA

.$D82D
.$DB20
.$DIV

.$EOP
.$ERRO
.$ERRT

9474
9117

9479

11764

2245

2246

2260

2261

2262

2244

2958

2988

5116
6280
7555
120774
15}9;

5186
6337
7733
12086
}g}?g

5266
6393
7826
12087
12106

5337
6649
7933
12088
12105

5410
5478
7968
12089
12106

1w
14
14

19264
1793%
17934

1816
1795

1793%

2740

2798«

14
1793#
1w
14
1#
14
14
14
1w
14
14
14
14
1

3955

1793%4

17934
18164
17934
22824
17934
17934

4014

1926
1804

2182
9383

17934

2204

1793#
1793%
17934

9089
9440

17934

12011

14
14

1793#
1793#

11913
11651

. SRAND
.SRDDE

1y
14

.$RPAZ

11751

2927

3889

7571

11736

19264

.$RDOC
.$READ

19264

7555

LSMULT

. SPOWE

7366

11576
2782#4

14
14

1%
14

7348

11509
19264

TYPNUM
TYPOCS

TYPNAM

— 1 _SETUP

SEQ 0273

6233
6665

12119
19264

SESETM

PAGE 276

6223
6601

120774
14

$$SKIP
.EQUAT
.HEADE

15:17

CROSS REFERENCE TABLE == MACRO NAMES

6174
6594

TRMTRP
TYPBIN
TYPDEC

$SSET

28-AUG-81

6164
6521

7295

SWRSU

MACY11 30(1046)

4208

4328

7733

7742

7826

7834

7933

7940

8049

11846

11915

11968

12013

2247

2248

2249

2250

2251

2252

2253

2254

2255

2256

2263

2264

2265

2266

2267

2268

2269

2270

2271

2272

3788

3831

6164
7295
8904
12100
12115

6223
7348

3268

5482
6513
8049
12091
12107

3305

4490

5535
6594
8140
12093
12108

3357

4543

5589
6665
8196
12094
12109

3401

4595

5740
6739
8321
12095
12110

3434

4656

5823
6899
8530
12096
12111

3620

4715

5910
6975
8602
12097
12112

3667

4812

5994
7021
8671
12098
2113

12056

7978

11822

4410

12029

7968

3717

4,886

6079
7157
8738
12099
12114

4967

5035

12101
12116

(ZIR6KGO RK6 FCTINL CTRL DIAG
(ZR6KG.P11
28-AUG-81 15:16
.$SAVE

17934

11966

14
1%

179%4
17934

9228
9145

1793%¢

12054

.$TYPD
.STYPE
.$TYPO
.$40CA
1170

1
1w
14
14
1

1793
1793
17934
17934

11507
11411
11574
2150

. ABS.

(74414

000

.$SB2D
.$SB20

I
X;

.$SUPR

.$SCOP
.$SIZE

.$TRAP

.$TYPB

ERRORS DETECTED:

CZR6KG,CZROKG.LST/SOL/CRF/NL:T0C=CZR6KG.SML,CZRO6KG.P11
CORE USED:

38k

(76 PAGES)

MACY11 30(1046) 28-AUG-81
15:17 PAGE 277
CROSS REFERENCE TABLE =-- MACRO NAMES

RUN-TIME: 35 44 3 SECONDS
RUN-TIME RATIO: 130/82=1.5

SEQ 0274