Digital PDFs

AH-9130F-MC

November 1980

272 pages

Original

174MB

view download

OCR Version

277MB

view download

Document:	CZR6KF0 RK611,RK06,RK07 RK6 FCTNL CTRL NOV 1980 bw
Order Number:	AH-9130F-MC
Revision:	000
Pages:	272
Original Filename:	CZR6KF0__RK611,RK06,RK07__RK6_FCTNL_CTRL__AH-9130F-MC__NOV_1980_gray.pdf

OCR Text

RKO6 RKO7
RK611

RK6

FCTNL

CZR6KFO

CTRL

ammenw GTEMHRD
oRt, weemuss
LSO

FICHE 1 OF 2

RK611

RKO6.RKO7

RK6é

FCTNL CTRL

CZR6KFO

AH-9130F -MC

Ny S ne

COPYRIGH T8

FICHE 2 OF 2 wape 1n usa

76-80

@D;”M@m

]

—

CIR6KFO RK6 FCINL CTRL DIAG
CZR6KF .P1
19-JUN-80 14:04

MACY11 30A(1052)

14:14

73
PAGE 2

~ SEQ 0001

-__|—.—l—l—.—h-.—a—l_.

S OOV
NOWVEWN
2O OO NO VN INWNN

.REM

19-JUN-BO

IDENTIFICATION
PRODUCT CODE:

AC=9128F
-MC

PRODUCT NAME:

CZR6KFO RK6 FCTNL CTRL

DATE:

JUNE 1980

MAINTAINER:

DIAGNOSTIC GROUP

34
35
36
37

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

39
40

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF SOF TWARE
ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILLIATED

COMPANIES.

46
48
49

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:
-

DIGITAL
DEC

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

lalal
~NN

1
O
N—O

REQUIREMENTS
HARDWARE REQUIREMENTS
PRELIMINARY PROGRAMS

VvoOoONOWVMSrWN-SO

OPERATING PROCEDURE

PROGRAM DESCRIPTION

ERROR REPORTING

SUBROUTINES

REVISION HISTORY

ABSTRACT

CONTENTS

SEQ 0002

LOADING PROCEDURE
STARTUP PROCEDURE
CONSOLE SWITCH REGISTER
SOFTWARE SWITCH REGISTERS
CONTROL C (*C) OPERATION
CONTROL S (“S) OPERATION
CONTROL Q (*Q) OPERATION
UNIBUS ADDRESS
EXECUTION TIME

~NN

£
PAGE 3

TMo

14:14

TABLE OF

CIR6KFO Rk6 FCINL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

19-JUN-80

MACY11 30A(1052)

1.0

14:14

PAGE &

SEQ 0003

ABSTRACT

THE RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC (CZR6K)

IS A SERIES

PROGRAM.

THOSE

OF
TESTS
THAT COMPLETES THE TESTING OF AN RK611/RK06-RK07
SUBSYSTEM. THE DISKLESS CONTROLLER DIAGNOSTIC AND THE RKO06-RKO7
DRIVE DIAGNOSTIC ARE PREREQUISITES TO THE RUNNING OF THIS

104

2 =2 2 OO0 O C O

OONOV““U‘N—OOOONO‘WI‘WN—‘OOONOMJ\VCNdoomflgm

19-JUN-B0

THE PURPOSE OF THIS PROGRAM IS TO TEST

AREAS

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

UNTIL

CONTROLLER

OPERATION

MAINTENANCE MODE HAS BEEN TESTED.

DIAGNOSTIC

b o o

THE TESTS PERFORMED ARE MAINLY FUNCTIONALLY ORIENTED BUT
IS USED IN NUMEROUS OCCASSIONS TO ACCOMPLISH
DIAGNOSTIC MODE
THE OBJECTIVES, MAINLY THE FORCING OF ERRORS.
IN THESE CASES,
THE

CONTROLLER

1S PLACED IN DIAGNOSTIC MODE AND OPERATION IS

THE

CONTROLLER

ALLOWED TO COMPLETE THE OPERATION.

CLOCKED PART WAY THROUGH.

DIAGNOSTIC MODE IS THEN

RESET

AND

DEPENDING

W AN VRO NN NI NOMNIMNIN) = b

ON THE OPERATION AND HOW FAR THROUGH IT BEFORE DIAGNOSTIC MODE
IS RESET VARIOUS ERROR CONDITIONS CAN BE MADE TO OCCUR. THIS
ERROR
THESE
DOCUMENT DOES NOT ATTEMPT TO EXPLAIN WHY
CONDITIONS ARE SET BUT THE INDIVIDUAL TEST DESCRIPTIONS
?85%%‘}1"”‘1 ERROR IS BEING FORCED AND THE PROCEDURE USED TO

CAUTION

2.0

REGUIREMENTS

2.1

HARDWARE REQUIREMENTS

—=O

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

LINE CLOCK (KW11-L) (OPTIONAL)

2F 2k 2k 2

il el el

i [P

2k 2 W AN LI

NN W

—————

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
agggsss IN THE DRIVE MAY BE INVALID, OR THE DRIVE MAY NOT BE

VO NO N

F 2l 2F 2

PARITY OPTION (MM11)
RK611 CONTROLLER

150

(OPTIONAL)

AT LEAST 1 AND UP TO 8 RKO6-RKO7 DRIVES
FORMATTED RKO6K ON EACH DRIVE

2.2

PRELIMINARY PROGRAMS

MACY11 30A(1052)

e ]

CZR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CIR6KF .P1Y

14:14

1
PAGE 5

UNIBUS
3.0

OPERATING PROCEDURE

3.1

LOADING PROCEDURE

3.2

(ALL

PARTS)

THE

SHOULD HAVE RUN

THE PROGRAM CAN BE LOADED FROM BINARY TAPE USING THE
LOADER OR FROM XXDP MEDIA SUPPORTED BY XXDP.

ABSOLUTE

IT CAN BE LOADED AND RUN UNDER

(AN

APT

ACT

AND

STARTUP PROCEDURE

i i i e i D

RKO6) DRIVE O IS NOT TESTED.

LOCATION 204(8) IS THE PROGRAM RESTART.

'r-" P

THE
LOCATION 214(8) IS THE PARAMETERIZATION START LOCATION.
VECTOR
ADDRESS,
BUS
THE
IDENTIFY
TO
ASKED
BE
WILL
OPERATOR

ADDRESS, AND BUS PRIORITY.
IF THE PROGRAM WAS LOADED FROM
RKO6,
THE OPERATOR WILL BE ASKED TO MOUNT A WORK CARTRIDGE ON

0000

i i e i D i

DIAGNOSTIC

AND

THE PROGRAM START LOCATION IS 200(8).
THIS START WILL
AUTOMATICALLY SIZE
THE SYSTEM UNLESS RUNNING UNDER APT.
THE
PROGRAM ASSUMES THE STANDARD UNIBUS ADDRESS,
VECTOR ADDRESS,
AND BUS PRIORITY LEVEL (177440, 210, AND & RESPECTIVELY).
IF
STARTED AT 200 AND THE XXDP MEDIA IS RKO6 (PROGRAM LOADED FROM

DRIVE O OR TO PLACE IT OFF-LINE IF IT IS NOT TO BE TESTED.

LOCATION 220(8) IS THE PHASE LOCKED LOOP CLOCK ADJUSTMENT
THE PROGRAM FIRST RUNS THE FIRST THREE TESTS AND THEN
START.
JUMPS TO THE ADJUSTMENT ROUTINE. THE PROGRAM WILL CONTINUE TO
LOOP IN THIS ROUTINE UNTIL THE PROCESSCR IS HALTED.

— D i e
b 2
b

DRIVE

CHAINED BY XXDP.

i D

VOO0 ~O ~O 0o 0o 0o Qo OO
[«
¥ XV

]

197

RKO6-RKO7

SUCCESSFULLY.

D el i D D i D il D i B i

NN NNNNNNNNoOocrOrOrOrOONO OOV
WNIN v

wiro

THE RK611 DISKLESS CONTRCLLER DIAGNOSTIC (ALL PARTS)

—

151

s D

19-JUN-80

ALL DRIVES THAT ARE TO BE TESTED MUST BE ON-LINE, READY, AND
[IF ALL THREE CONDITIONS ARE NOT MET, THAT
WRITE LOCK RESET.
DRIVE

3.3

IS NOT TESTED.

CONSOLE SWITCH REGISTER

THE CONSOLE SWITCH REGISTER IS USED TO PROVIDE PROGRAM CONTROL

AS DESCRIBED BELOW:

SW15 =
SWw14 SW13 =
SW12 SW11 =
SW10 SW09 -

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR REPORT
ABORT PROGRAM ATTER 20 ERRORS
INHIBLIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR

SWO8 - EXECUTE TEST NUMBER SPECIFIED IN Sw<7-0>.

SEQ 0004

lalel

CIR6KFO RK6 FCINL CTRL DIAG
19-JUN-B0 14:04

CZR6KF .P1

MACY11 30A(1052)

N
SIS LSS ST NI ST SIS NN NN NN L
PONINIRI NI NI A b = ad b d od d d b d o
VB WN 2O 0NN
WN—O 0

207
208

227

19-JUN=-80

14:14

3
PAGE 6

SEQ 0005

SW<7-0> = EXECUTE THIS TEST IF SW08 SET.

EXECUTING A SPECIFIC TEST MUST BE
TESTS

REQUIRE

OTHERS

RUN

USED

WITH

FORMAT

CAUTION.

SOME

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
FIRST TIME AFTER

NOTE:

IT HAS BEEN LOADED.

TEST 3 MUST BE RUN BEFORE ANY
TEST

DETERMINES

SUBSEQUENT

TEST.

THIS

WHICH DRIVES ARE ON THE DRIVE BUS FOR

ALL FOLLOWING TESTS.
LIKEWISE, TEST
20 MUST BE
RUN
BEFORE ANY TEST SUBSEQUENT TO IT.
THIS TEST READS THE
BAD SECTOR FILES AND BUILDS TABLES USED BY
THE
FOLLOWING
TESTS.
THESE
TESTS, HAVING BEEN RUN ONCE,
NEED NOT BE RUN AGAIN IF A DIFFERENT TEST IS SELECTED.

3.4

'SOF TWARE' SWITCH REGISTER

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR
(I.E.,
AN
11/04 OR
11/34)
THE
PROGRAM WILL DETERMINE
THAT THE
HARDWARE SWITCH
REGISTER
IS
NOT
PRESENT
AND
WILL
USE
A

"SOFTWARE'

SWITCH

THE SETTINGS OF THE 'SOF TWARE'

SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 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 HIGHER
PRIORITY
PROCESSING AN RKO6 INTERRUPT.
THE 'SOFTWARE' SWITCH
VALUES ARE ENTERED AS AN OCTAL NUMBER
IN RESPONSE
TO THE
PROMPT

FROM THE

SWR = NNNNNN

SWITCH ENTRY ROUTINE:

NEW ='

EACH TIME SWITCH SETTINGS ARE ENTERED,
THE ENTIRE
SWITCH
REGISTER
[IMAGE
MUST BE
ENTERED.
LEADING
ZERQES ARE NOT
REQUIREL.

‘'RUBOUT' AND ‘'CONTROL U' FUNCTIONS MAY BE
CORRECT TYPING ERRORS DURING SWITCH ENTRY.

USED

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE
'SOF TWARE'
SWITCH REGISTER MAY BE USED.
IF THE PROGRAM FINDS ALL 16
SWITCHES IN THE 'UP' POSITION, ALL SWITCH REGISTER
WILL
BE
TO THE
°'SOFIWARE'
REGISTER AND
THE
DESCRIBED ABOVE MUST BE FOLLOWED.

oo rororRorRDNONON
oo VWAL
N
= O VO ~NOWN
S W

252

3.3

REFERENCES
PROCEDURES

CONTROL C (*C) OPERATION

IF “C IS TYPED AT ANY TIME DURING THE

PROGRAM

IS HALTED IMMEDIATELY.

PROGRAM

EXECUTION

IF A MONITOR IS PRESENT

THE

(XXDP

CHAIN, ACT, APT) THL. PROGRAM RETURNS CONTROL TO THE MONITOR.
IF NO MONITOR IS PRESENT, THE CPU IS HALTED. DEPRESSING THE
CONTINUE KEY WILL DO A PROGRAM RESTART.

3.6

CONTROL S (*S) OPERATION

IF *S IS TYPED AT ANY TIME THE PROGRAM WILL GO

INTO

STALL

MACY11 30A(1052)

lals)

CIR6KFO Rk6 FCINL CTRL DIAG
CIR6KF P11
19-JUN-80 14:04

19-JUN-B0

14:14

LOOP UNTIL A CONTROL Q@ (*Q) IS TYPED.

522

265
266
%gz

CONTROL Q@ (*Q) OPERATION

269

IF A *S HAS BEEN

TYPED,
INITIATED 8Y THE *S.

%;?

3;«%

SEQ 0006

3.8

TYPING

THE

“Q

CANCELS

THE

STALL

UNIBUS ADDRESSES

274
275
276

STANDARD UNIBUS ADDRESSES ARE ASSUMED FOR THE KW11=L AND MM11
OPTIONS.
THESE ADDRESSES MAY BE C(HANGED BY CHANGE
THE
APPROPRIATE MEMORY LOCATIONS.
THE
FOLLOWING
TAGS
AND

279

KWll=L

%;g

LOCATIONS HAVE BEEN USED:

280
gg%

\”IBUS ADDRESS
VECTOR ADDRESS

ggz

3.9

585

286
ESZ

TAG

KWLADD
KWLVEC

LOCATION

1710
1712

EXECUTION TIME

THE FIRST PASS OF THE PROGRAM FOR ONE DRIVE

IS APPROXIMATELY

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

%gg

THE EXECUTION TIME FOR MULTIPLE DRIVES IN THE FIRST PASS IS:

gg;

((NUMBER OF DRIVES)

293
294

FOR SUBSEQUENT PASSES THE RUN TIME IS THE PRODUCT OF 2 MINUTES
20 SECONDS TIMES THE NUMBER OF DRIVES PLUS 25 SECONDS FOR EACH

ggz

Sg;

«
:

%82

PROGRAM DESCRIPTION

THE FOLLOWING TEST SEQUENCE IS EXECUTED ASSUMING TWO

gg?
302

+ 20 SEC

DRIVE AFTER THE FIRST,
4.0

299

X 45 SEC)

DRIVES.
.

ALL TESTS UP TO THE MULTI-DRIVE OPERATIONS ARE PERFORMED ONCE.
FIRST PASS = ALL REMAINING DRIVES:

ggg

PERFORMED ONCE ON EACH DRIVE.

D e

N N N N NN N

e
—

WOV
W —=O

309

FIRST PASS = FIRST DRIVE:

305

306

STATUS VALID

OPERATIONS

ARE

ONCE

EACH

SECOND AND ALL SUBSEQUENT PASSES:
THE SAME SEQUENCE OF
TESTING IS REPEATED EXCEPT
ITERATIONS WHICH ARE SPECIFIED FOR EACH TEST.

FOR

TEST

THEN

TESTS

MULTI-DRIVE

OPERATIONS

COMBINATION OF DRIVES.

tttetttttttt bttt bRt

THE

ARE

MULTI-DRIVE
PERFORMED

Rt RRERROCERRARRARARRORRORRRORRARRRRRRORRERRRORONRRNTRE

MACY11 30A(1052)

1
PAGE 7

oTM

CZR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

T T

CZR6KFO RK6 FCTNL CTRL DIAG

CZROKE P11

19-JUN-80 14:04

MACY11

30A(1052)

19-JUN-80

14:14

-9
PAGE 8

\‘

SEQ 0007

«+BASIC INTERFACE AND OPTION TESTS

PRRRRRRARERRRRROCRRORERRGEOERANRRRRRRARQRARRARNARRONRNARROROOENROERROOERTSE

TEST 1

RK611 BASE ADDRESS TEST

CHECK THAT READING THE RKk611 BASE ADDRESS (RKCS1) DOES

NOT CAUSE A NON-EXISTANT MEMORY TRAP.

TEST 2 INTERRUPT VECTOR ADDRESS TEST
(HECK
THAT
THE
{ggsgggPT
VECTOR FOR THE RK611 IS SET TO THE EXPECTED
RARAARRR RN AR E AR R ERRARRANRRRRARARRARRRARRRRRRAARRRRRRRROEROERTS

*+STATUS VALID TESTS
(222

TEST

R RS

ettt

Rttt

dd)

SELECT ALL DRIVES

IF NOT RUNNING IN APT AUTOMATIC ENVIRONMENT, DETERMINE

WHAT
DRIVES
ARE ON-LINE BY SELECTING ALL DRIVES.
IF
NON-EXISTENT DRIVE REPORTED MAKE SURE STATUS VALID
IS
RESET.
IF
DRIVE
PRESENT MAKE SURE NO ERROR EXISTS,

ggég; IS CYCLED UP, AND

STATUS

VALID

SET,

AND

DSC

If RUNNING IN APT AUTOMATIC
ENVIRONMENT,
THE
DRIVES
IDENTIFIED
IN ETABLE
ARE TESTED FOR NO ERROR, DRIVE
CYCLED UP, AND STATUS VALID SET.
IF LOCATION 41 INDICATES THE
XXDP MEDIA
IS ON THE
DRIVE
O WILL ONLY BE TESTED IF THE PARAM START
(214) WAS USED.
IF THE AUTOMATIC START (200) IS USED,

RK0O6,

DRIVE

O IS NOT TESTED.

THE RESTART (204) WILL RETAIN

THE TEST STATUS OF DRIVE 0.

IF THE PARAM START IS USED, THE OPERATOR

PLACE

DRIVE

OFF LINE

MUST

EITHER

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
ON-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 BUT NOT
CYCLED UP OR ARE WRITE LOCKED ARE NOT TESTED.
AT COMPLETION OF THE TEST A MESSAGE WILL

IDENTIFY THE DRIVES TO BE USED IN TESTING.

NOTE:

GIVEN

THIS TEST MUST BE RUN AT LEAST ONCE BEFORE
ANY
OTHER TEST THAT FOLLOWS.
THE DETERMINATION OF WHETHER EACH DRIVE IS AN
RK06 OR RKO7 IS MADE IN THIS TEST, AND

CIR6KFO RK6 FCINL CTRL DIAG
19-JUN-80 14:04
CZR6KF P

MACY11

30A(1052)

19-JUN-80

14:14

PAGE 9

A TABLE
TEST &

RELEASE

SEQ 0008

IS FILLED ACCORDINGLY.

ALL DRIVES

RELEASE ALL DRIVES.
MAKE
STATUS VALID IS RESET.

TEST 5

SURE

ERROR

SETS

AND

NON=STANDARD MESSAGES AND SVAL

PICK ONE OF THE AVAILABLE DRIVES AND
GET
NON-STANDAD
MESSAGES.
MAKE SURE NO ERROR OCCURS AND STATUS VALUD

DOES NOT SET
AND THAT
STATUS VALID TO RESET.

NON-STANDARD

MESSAGES

CAUSE

WRITING CS2 AND STATUS VALID

TEST 6

SELECT AN AVAILABLE DRIVE.

MAKE SURE STATUS VALID
IS
WRITE COMMAND AND STATUS REGISTER 2. MAKE SURE

SET.

STATUS VALID RESETS.

2 e

e Rttt
iRttt RRRtRRtRRRRRRR Rl d)

*«(CONTROLLER ERROR TESTS
AR R AR

R RN RN R

AR RN

A AR

AR AR AR

AR R RR AR RRRRRY
o

TEST 7

DRIVE TYPE ERROR

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

TYPE

ERROR

TEST 10 STATUS VALID AND PARITY ERROR

ISSUE A SELECT TO AN AVAILIABLE DRIVE WITH BAD PARITY.
SURE
SPAR,
CONTROLLER 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 MESSAGES

MAKE

AND

SET.

MAKE

SURE ONLY DRIVE

INTERRUPT AND ATTENTION ARE

CLEAR ATTENTION WITH DRIVE

ALL AVAILIABLE DRIVES.

CLEAR.

TEST N UNIT FIELD ERROR ON RELEASE

REPEAT

FOR

ISSUE A SUBSYSTEM CLEAR.
SELECT AN AVAILABLE DRIVE.
CONTROLLER
IN DIAGNOSTIC MODE.
[ISSUE A RELEASE
TURN OFF
COMMAND. CLOCK THROUGH PHASE ADDRESS 2.
DIAGNOSTIC MODE. MAKE SURE UNIT FIELD ERROR SETS.

PUT

VEST 12 UNIT FIELD ERROR ON SELECT

ISSUE A SUBSYSTEM CLEAR.

SELECT AN

AVAILABLE

DRIVE.

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

MACY11

19-JUN-80

30A(1052)

14:14

PUT

PAGE 10

CONTROLLER

SEQ 0009
DIAGNOSTIC

MODE.

ISSUE A SELECT

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

MODE.
AR

MAKE SURE UNIT FIELD ERROR SETS.

RN RN

E R R E R R R AR NN AR NAN

AR RAAERRARRAAERRORROTOENE

*+ATTENTION HANDLING BY CONTROLLER
AR

E R

TEST 13 DOUBLE

R R R RN RN R RN RN

AN R RN

RRAARER

INTERRUPT

ISSUE A SUBSYSTEM CLEAR.
ISSUE A RECALIBRATE.
MAKE
CHECK THAT SECOND INTERRUPT
SURE STATUS VALID IZ SET.
OCCURS.
AFTER SECOND INTERRUPT CHECK THAT STATUS
VALID
IS RESET,
ISSUE
SELECT AND MAKE SURE STATUS
VALID SETS.
CLEAR DRIVE.
CHECK THAT DRIVE
STATUS
REGISTER)
STATUS
DRIVE
OF
14
(BIT
SETS
CHANGE
TEST

14 SINGLE

INTERRUPT FROM ATTENTION

DO A SEEK TO CYLINDER 0.
WAIT
FOR
INTERRUPT
FROM
DRIVE
ATTENTION.
LOWER PRIORITY AGAIN AND MAKE SURE
ANOTHER INTERRUPT DOES NOT OCCUR.
CLEAR DRIVE.
TEST 15 RESET ATTENTIONS WITH UNIBUS INIT

DO A SEEK TO CYLINDER O ON ALL AVAILIABLE DRIVES.
ISSUE A RESET.
MAKE SURE ALL ATTENTION RESET.
2222222222202
22
R It R I I I IR I I I I I IR R
]

«*+]LLEGAL DISK ADDRESS ERROR TESTS

1 2223222222222
22202t
ittt RiRttRRRRRld)

TEST 16 ILLEGAL DISK ADDRESS

(PART 1)

ISSUE A SEEK TO CYLINDER 0, HEAD 3.

MAKE SURE ILLEGAL

CONTROLLER AND CLEAR DRIVE.

FOR

ADDRESS

ERROR

AND

SEEK

INCOMPLETE

REPEAT

SETS.

HEADS

CLEAR

4-7,

CHECKING THAT BOTH IDAE AND SEEK INCOMPLETE SET FOR
HEAD 7 AND IDAE ALONE SETS FOR HEADS &4, 5, AND 6.
TEST 17 ILLEGAL DISK ADDRESS (PART 2)

ISSUE A SEEK TO CYLINDER

1000,

6%%52AL DISK ADDRESS ERROR SETS.

HEAD

MAKE

SURE

CLEAR CONTROLLER AND

THIS TEST IS BYPASSED BY THE RKO7 CONTROLLER BECAUSE
IT DOES NOT RECOGNIZE ANY ILLEGAL DISK ADDRESS.
3222333222222 2282222323222 02220200200 0200000 RRRRRRRtRRRdRll)

*+WJRITE HEADER TESTS
(3222233232333 2223322232

322232332322 3332002200i20R0RRRRRRRtRRRRl))

CIR6KFO Rk6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11
487
488
489
490
491
492
493
494

MACY11 30A(1052)

19-JUN-80

14:14

1
PAGE 11

SEQ 0010

TEST 20 READ BAD SECTOR INFORMATION

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

CYLINDER 1456 IS USED FOR THE RKO7.

495
496
497

IF AN ERROR OCCURS, READ SECTOR

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 AND STORE THE ENTRIES FOR LATER USE.

REPEAT THIS SERIES OF OPERATIONS FOR FACTORY
DETECTED
BAD SECTORS 24 SECTOR MODE,
SOFTWARE DETECTED BAD
SECTORS 26 SECTOR MODE, AND SOFTWARE DETECTED BAD
SECTORS 24 SECTOR MODE.
IF THE NUMBER OF BAD SECTORS
FOR 24 OR 26 SECTOR MODE EXCEED 20(10)
THE
DRIVE
IS

(W LV TV AN LV RV LW LW LV LV LV LV, ]
POPON) = b
e e e d

N=OOV®NOWNEWN
=

REMOVED FROM TESTING.

523

NOTE:

THIS TEST IS RUN IN THE

FORMAT

IN 26 SECTOR FURMAT

PASS ONLY.

TEST 21

FIRST

(QUICK

VERIFY)

FORMAT CYLINDER 312, TRACK O AND TRACK 1 FOR 26 SECTOR

FORMAT.
VERIFY
FORMAT
AND
THAT
DATA LATE DID NOT
OCCUR WITH WRITE HEADER ON IN READING DATA BUFFER
AFTER READ HEADER.

t.i'l'tt"""""'Q"Q"i"'."lQQttt"ttt'tt"tt'ttl""'t'lt
*+*HEADER RECOGNITION TESTS
AR

R AR RN R R R RN R R R

A RN AR

RARRR AR AR

EERRRRRRTRES

TEST 22 BAD SECTOR ERROR

FORMAT CYLINDER 312, TRACK O, ON SCRATCH PACK TO HAVE
SECTOR O (BIT 15 OR WORD 2 OF HEADER RESET) AND SECTOR
1 (BIT 14 OR WORD 2 OF HEADER RESET) TO BE BAD SECTORS
AND ALL OTHER SECTORS GOOD.

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

WORDS.

MAKE SURE BAD SECTOR ERROR SET.

DATA OF 400 WORDS TO CYLINDER O, TRACK

MAKE SURE NO ERROR SETS.

ISSUE A WRITE

SECTOR

TEST 23 HEADER VRC ERROR

FORMAT CYLINDER 312, TRACK O, ON SCRATCH PACK TO HAVE
16 SECTORS WITH BAD HEADER VRC.
ISSUE A WRITE DATA OF

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

CEES——

MACY11

30A(1052)

19-JUN-80

14:14

Y
PAGE 12

SEQ 0011

HEADER AND MAKE SURE NO ERROR OCCURS.

TEST 24 BAD SECTOR ERROR AND HVRC ERROR
FORMAT CYLINDER 312, TRACK 0 SUCH THAT SECTOR ZERO HAS
BOTH A BAD SECTOR ERROR AND HEADER VRC.
[ISSUE A WRITE

DATA TO CYLINDER O, TRACK 0, SECTOR Q0.
HEADER VRC ERROR SETS.

MAKE SURE ONLY

TEST 25 OPERATION INCOMPLETE

FORMAT CYLINDER 312, TRACK 0 SUCH THAT SECTOR 21
HAS
THE WRONG FORMAT.
ISSUE_A WRITE
DATA OF 400 TO

CYLINER O, TRACK O, SECTOR 21.

MAKE SURE OPI SET.

TEST 26 OP1 WITH HVRC c£RROR

FORMAT CYLINDER 312, TRACK 0 SUCH THAT

HEADER

VRC

ERROR
IS PRESENT AND SECTOR 17 HAS THE WRONG FORMAT.
ISSUE A WRITE DATA OF 400 WORDS TO CYLINDER 312, TRA(CK
0,
SECTOR
17.
THAT BOTH OPERATION INCOMPLETE AND
HEADER VRC SET.

TEST 27 HVRC IGNORE ON NON-ADDRESSED SECTOR

FORMAT CYLINDER 312, TRACK 0 SUCH THAT SECTOR 20 HAS
AN HVRC ERROR.
ISSUE
A WRITE DATA OF 400 WORDS TO
CYLINDER 312, TRACK O, AND SECTOR 21. MAKE SURE HVRC
;
IS NOT SET AT THE END OF THE OPERATION.

1222222322222 2222

2322222222232

«+DATA TRANSFER TESTS

2222222222222 3232233322323

0202

2000020000000 RRRRRRRRRRR

2322322332233

22222220R

)

R RRR00R0R0R 000

TEST 30 WRITE AND READ ONE SECTOR

FORMAT CYLINDER 312,
TRACK

ALL

TRACKS

AND

CYLINDER

2 TO AGREED WITH BAD SECTOR INFORMATION.

A WRITE DATA OF ONE SECTOR ON CYLINDER 312,

35??15&‘

BACK

MAKE

SURE

ONE

TRACK

IT AGREES WITH WHAT

TEST N WRITE DATA WITH BUS ADDRESS INCREMENT

ISSUE A WRITE DATA OF

313,

ISSUE

SECTOR

INHIBIT

CYLINDER

312,

TRACK 2, SECTOR 12 WITH INHIBIT BUS ADDRESS INCREMENT.
2832E2¢TA BACK TO MAKE SURE EVERY WORD IS THE SAME AND
TEST 32 WRITE DATA ADDRESS GREATER THAN 32K

TMTM

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P
19-JUN-80 14:04

MACY11 30A(1052)

19-JUN-B0

14:74

PAGE 13

SEQ 0012

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

MAKE SURE CORRECT DATA IS ON DISK.

NOTE:

THIS TEST IS ONLY EXECUTED IF MORE THAN 32k

MEMORY IS PRESENT.

TEST 33 READ DATA ADDRESS GREATER THAN 32K

ISSUE A READ DATA OF 400 WORDS WITH ADDRESS =

CHECK MEMORY FOR CORRECT TRANSFER.

NOTE:
TEST

177770.

THIS TEST IS ONLY EXECUTED IF MORE THAN 32K

MEMORY IS PRESENT.

34 WRITE DATA ADDRESS GREATER THAN 64K

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

MAKE SURE CORRECT DATA IS ON DISK.

NOTE:

THIS TEST IS ONLY EXECUTED IF MORE THAN 64K

MEMORY IS PRESENT.

TEST 35 READ DATA ADDRESS GREATER THAN 64K

ISSUE A READ DATA OF 400 WORDS WITH ADDRESS =

CHECK MEMORY FOR CORRECT TRANSFER.

NOTE:
TEST

377770.

THIS TEST IS ONLY EXECUTED IF MORE THAN 64K

MEMORY

IS PRESENT.

36 WRITE DATA ADDRESS GREATER THAN 96K

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

MAKE SURE CORRECT DATA IS ON DISK.

NOTE:

THIS TEST IS ONLY EXECUTED IF MORE THAN 96K

MEMORY

IS PRESENT.

TEST 37 READ DATA ADDRESS GREATER THAN 96K

ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = <77770.
CHECK MEMORY FOR CORRECT TRANSFER.

NOTE:

THIS TEST IS ONLY EXECUTED IF MORE THAN 96K

MEMORY

IS PRESENT.

TEST 40 PARTIAL SECTOR WRITE DATA

ISSUE A WRITE DATA OF 103 WORDS TC CYLINDER 312,

géaag%%len
TEST 4

MAKE

HEAD

SURE THE SECTOR WAS ZERO FILLED

PARTIAL SECTOR READ DATA

CZRGKFO RK6 FCINL CTRL DIAG
19-JUN-B0 14:04
CZIR6KF .P1

CIR6KF P11

MACY1T 30A(1052)

19-JUN-80 14:04

655
656
657
658
228

19-JUN-B0

14:14

1
PAGE 14

SEQ 0013

WRITE CYLINDER 312, TRACK 0, SECTOR ZERO WITH A KNOWN
CONFIGURATION. ~ ISSUE A READ DATA OF 103 WORDS TO
CYLINDER 312, TRACK O, SECTOR 0. MAKE SURE ONLY 103
WORDS GET TRANSFERRED TO MEMORY.

gg}

TEST 42 WRITE DATA WITH NON-EXISTENT MEMORY

663

ISSUE A WRITE DATA OF 1

WORD

USING

ggg

MAKE SURE NON-EXISTENT MEMORY SETS.

ggg

TEST 43 READ DATA WITH NON-EXISTENT MEMORY

668

ISSUE A READ DATA OF

g?g

WORD

USING

MAKE SURE NON-EXISTENT MEMORY SETS.

g;;

ADDRESS

776000.

ADDRESS

776000.

TEST 44 UNIBUS PARITY ERROR

673
674
675

INITIALIZE A MEMORY LOCATION WITH BAD PARITY.
ISSUE A
WRITE DATA OF 400 WORDS STARTING AT A LOCATION 112
WORDS BEFORE THE LOCATION WITH BAD PARITY. MAKE SURE

678
679
680

NOTE:

g;g

THAT UNIBUS PARITY ERROR SETS.

683

684

685

686
ggg
689
690

THIS TEST IS ONLY

EXECUTED IF MEMORY PARITY
IT WILL NOT BE EXECUTED

OPTION EXISTS FOR BUFFER.
ON 'ECC' TYPE MEMORY.

2222232222222 2282222222223
¥

00 22

«**MULTIPLE SECTOR OPERATIONS
(2232232222 a2

Rttt iinittildd)

TEST 45 TWO SECTOR WRITE DATA (PART 1)

691
692

ISSUE A WRITE DATA OF
TRACK 0, SECTOR 0.

ggz

TEST 46 TWO SECTOR WRITE DATA (PART 2)

ggz'

697
698
699

;8?

;8%

704
705
;8?
;83
710

R0 dRRRRRRRRRRRd Rl

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

TIME AND MAKE SURE IT IS CORRECT.

ISSUE A WRITE DATA OF 1000 WORDS TO CYLINDER 312,
TRACK 0, SECTOR 23. READ DATA BACK ONE SECTOR AT A
TIME AND MAKE SURE A MID-TRANSFER SEEK DID NOT TAKE

PLACE.

TEST 47 TWO SECTOR WRITE DATA (PART 3)

ISSUE A WRITE DATA OF 401 WORDS TO CYLINDER 312, TRACK
0, SECTOR 10. READ DATA BACK ONE SECTOR AT A TIME AND
CHECK ZERO FILL OF SECOND SECTOR.
TEST 50 MID-TRANSFER SEEK ON WRITE (PART 1)
ISSUE A WRITE DATA OF

1000

WORDS

CYLINDER

312,

(leKFO RK6 FCINL CTRL DlAG

14:14

PAGE 15

SEQ 0014

19-JUN-B0

TRACK
0,
SECTOR
25.
READ DATA BACK ONE SECTOR AT A
TIME AND MAKE SURE A MID-TRANSFER SEEK DID TAKE PLACE.

CYLINDER

312,

TWO SECTOR WRITE DATA (PART 1) MUST BE EXECUTED

BEFORE THIS TEST.

MID-TRANSFER SEEK DOES NOT OCCUR.

NOTE:
TEST

TWO SECTOR WRITE DATA (PART 2) MUST BE EXECUTED
BEFORE THIS TEST.

54 TWO SECTOR READ DATA (PART 3)

ISSUE A READ DATA OF 401 WORDS TO CYLINDER 312,

gé"gggTOF 10.

NOTE:

TRACK

VERIFY THAT ALL 401 WORDS ARE PLACED IN

TWO SECTOR WRITE DATA (PART 3) MUST BE EXECUTED

BEFORE THIS TEST.
55 MID-TRANSFER SEEK ON READ (PART 1)

TEST

ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312, TRACK

SECTOR 25.

VERIFY THAT CORRECT DATA IS READ AND A
(PART

MUST

TEST

MID-TRANSFER SEEK ON WRITE
EXECUTED BEFORE THIS TEST.

MID-TRANSFER SEEK DOES OCCUR.

NOTE:

56 MID-TRANSFER SEEK ON READ (PART 2)

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

MID-TRANSFER SEEK DOES OCCUR.

NOTE:

MID-TRANSFER SEEK ON WRITE
EXECUTED BEFORE THIS TEST.

ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312, TRACK
0,
SECTOR 23.
VERIFY THAT CORRECT DATA IS READ AND A

TEST 53 TWO SECTOR READ DATA (PART 2)

NOTE:

ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312, TRACK

0, SECTOR O, VERIFY THAT CORRECT DATA IS READ.

(PART 1)

—————————

TEST 52 TWO SECTOR READ DATA

WORDS

1000

TRACK
2,
SECTOR
25.
READ DATA BACK ONE SECTOR AT A
TIME AND MAKE SURE A MID-TRANSFER SEEK DID TAKE PLACE.

ISSUE A WRITE DATA OF

(PART 2)

TEST 51 MID-TRANSFER SEEK ON WRITE

(PART

MUST

MACY11 30A(1052)

[ale]
~NN

CIR6KFO RK6 FCTINL CTRL DIAGO
19-JUN-80
CZR6KF .P1
1

l
19-JUN-B0

14:14

PAGE 16

SEQ 0015

o x

30A(1052)

lalal

MACY11

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

SECTOR

25.

ERROR DOES OCCUR.

MAKE

TRACK

SURE CYLINDER ADDRESS OVERFLOW

CYLINDER 1456 1S USED FOR THE RKO7.

AR RN RN RN

RN R R

RN AR

AR RAARRARARORRRCRRR
RS

*+18 BIT DATA TRANSFER TESTS
AR

RN RN RN

R E RN R

TR NN AR AR RAAARARARRRARARNANR
R AR RS

TEST 61

FORMAT

IN 24 SECTOR FORMAT

FORMAT CYLINDER 312, TRACK 0,
AND
TRACK
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.

TEST 62 24 SECTOR FORMAT DATA TRANSFER (PART 1)

ISSUE A WRITE DATA OF 400 WORDS IN 24 SECTOR FORMAT TO
CYLINDER 312, TRACK 0O, SECTOR 0.
READ SECTOR BACK AND

MAKE SURE

IS CORRECT.

TEST 63 24 SECTOR FORMAT DATA TRANSFER (PART 2)

ISSUE A WRITE DATA OF 1000 WORDS IN 24 SECTOR FORMAT
TO CYLINDER 312, (RACK 0, SECTOR 23.
READ SECTOR BACK
AND MAKE
SURE
IT
IS
CORRECT.
MAKE
SURE
THAT

MID-TRANSFER SEEK HAS TAKEN PLACE.

2223222222222 3 22333322222332323222222232222228RR2RR0RRR0R00R0RRd

*«SPECIAL DATA TRANSFER TESTS

(2222222222222
R iR
R
2R
2R
RRRRRRtRRRRRlRRild ]

) ot e o e

OOV®NO
VNS WN=O

o Co Co O Oo Co Oo OO Co O O

809

821
822

TEST 64 MULTI=-SECTOR DATA TRANSFER AND BSE

FORMAT CYLINDER 312, TRACK 0 IN 26 SECTOR 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 CORRECT. READ SECTOR 0
AND MAKE SURE

IT IS CORRECT.

ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312, TRACK
0,
SECTOR 0. MAKE SURE BAD SECTOR ERROR SETS AND THE
PREVIOUS SECTOR IS LOADED CORRECTLY
TEST 65 FORMAT TEST

INTO MEMORY.

D d D D e D D D D D e D D D D d D D D

ISSUE A READ DATA OF 401 WORDS TO CYLINDER 632,

D D d D d D

TEST 60 CYLINDER ADDRESS OVERFLOW (PART 2)

ad D D

CYLINDER 1456 1S USED FOR THE RKO7.

A hohe

ERROR DOES NOT OCCUR.

A A A A A A A A A A A

ISSUE A READ DATA OF 400 WORDS TO CYLINDER 632, TRACK
2, SECTOR 25.
MAKE SURE CYLINDER ADDRESS OVERFLOW

D D D D D e

TEST 57 CYLINDER ADDRESS OVERFLOW (PART 1)

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

1
IN 26 SECTOR
READ SECTORS 0-25

AND MAKE SURE DATA CHECK DOES NOT OCCUR.

A ARttt
ittt ittt
ititiitRldd;

*+*WRITE CHECK TESTS

TEST 66 WRITE=CHECK WITH NO ERROR

WRITE CYLINDER 312, TRACK 0, SECTOR 0 WITH A KNOWN
PATTERN.
DO A WRITE-CHECK OF 400 WORDS.
MAKE SURE NO
ERROR OCCURS.

000020
000040
000100
000200

000400
001000
002000
004000

010000
020000
040000
100C00

MAKE SURE WRITE
CHECK
ERROR
SET
FOR
EACH OF
THE
%gNzéggge}IONS AND THAT THE BUS ADDRESS AND WORD COUNT

TEST 70 WRITE CHECK ERROR (PART 2)

WRITE CYLINDER 312, TRACK 0, SECTOR 0 WITH 17777 IN
ALL WORDS.
WRITE CHECK CYLINDER 312, TRACK 0, SECTOR
0 WITH THE SAME DATA EXCEPT WORD 120 HAS ONE OF
THE
177377
176777
175777
173777

167777
157777
137777
077777

177757
177737
177677
177577

- —

FOLLWOING CONFIGURATIONS:

177776
177775
177773
177767

D
SR

000001
000002
000004
000010

D e

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

— e e

WRITE CYLINDER 312,

(PART 1)

) D i

TEST 67 WRITE CHECK ERROR

e e i D

) il e

R A2l
Rttt
i Rttt RRRdRtRRRRRRRRRddld)

(2222

——

(32

) e el e

SEC 0016

) ) D

PAGE 17

MAKE SURE WRITE
CHECK ERROR
SET
FOR EACH OF
THE
ggNzéggge}IONS AND THAT THE BUS ADDRESS AND WORD COUNT

14:14

19-JUN-B0

TEST N WRITE CHECK OF PARTIAL SECTOR

WRITE CYLINDER 312,

CONFIGURATIONS.

TRACK

ISSUE

SECTOR

WITH

KNOWN

WRITE CHECK COMMAND OF 110

WORDS MAKING SURE THE 111TH WORD
IS DIFFERENT
THAN
2£}A ON DISK.
MAKE SURE WRITE CHECK ERROR DOES NOT

MACY11 30A(1052)

sl
~~

CIR6KFO Rk6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P

B81

880
882

ggz

885
886

R R

TE R R R

e R

R AR R R R AR RN RN RN R AR RN RRANARR ORI

TEST 72 MAXIMUM DATA TRANSFER (PART 1)

222 L)

R RO TORRNSE

IN THE FIRST PASS OF THE PROGRAM, THE HEADERS OF THE
FIRST & CYLINDERS ARE WRITTEN. THIS IS DONE TO INSURE

ggg

THE FORMAT IS CORRECT.

889

ZERO OUT THE FIRST 256 SECTORS OF THE

DISK

WITH

ONE

ggg

NOTE:

READ EACH
CORRECTLY.

902
903
904

ARE PRESENT
PACK.

3}2

929

930

931

ggg

934

THE

WAS

WRITTEN

BAD

SECTORS

FIRST 256 SECTORS ON THE

SEEK

TO CYLINDER 632.

ISSUE A WRITE CHECK OF 200000

NOTE:

THIS TEST IS EXECUTED ONLY IF NO BAD SECTORS
s:E PRESENT IN THE FIRST 256 SECTORS ON THE
K.

CYLINDER 1456 IS USED FOR THE RKO7.

TEST 74 CONTROLLER TIME OuT

SEEK TO CYLINDER 632. ISSUE A RECALIBRATE AND DO NOT
WAIT FOR SECOND INTERRUPT. NOW ISSUE A READ HEADER OF
gg%gubfk 0, TRACK 0. MAKE SURE CONTROLLER TIME OUT

ggg
928

WORDS. MAKE SURE NO ERROR SETS.

915
3}?

922
923
352

SURE

ZERO OUT 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.

912

35?

MAKE

TEST 73 MAXIMUM DATA TRANSFER (PART 2)

907
908
909
910
911

3}8

THIS TEST IS EXECUTED ONLY IF

900
901

882

SECTOR

SECTOR WRITES.
ISSUE A SEEK TO CYLINDER 0, TRACK 0.
ISSUE A WRITE DATA OF MAXIMUM DATA TRANSFER 200000
WORDS TO CYLINDER 0O, TRACK O, SECTOR 0. MAKE SURE
CONTROLLER TIME OUuT IS NOT SET.
CHECK CYLINDER
ADDRESS, DISK ADDRESS, BUS ADDRESS AND WORD COUNT.

890
891
892
893
894

895
ggg

CYLINDER 1456 1S USED FOR THE RKO7.
AR

AR R

AR R R R R R R AR AR AR AR N RN RN

*+ERRORS DURING DATA TRANSFER

RN AR RRCERARRRRROEREY

Y 2222222222222
22233 I
I I I IR IR RN NI R AR
AR R ]

TEST 75 LIMIT DETECT ON DATA TRANSFER

ISSUE A SUBSYSTEM CLEAR.

R R R

*+MAXIMUM DATA TRANSFER AND CONTROLLER TIME OUT
R

‘SEO 0017

2222222222 R 2R

¢
PAGE 18

879

14:14

19-JUN-B0 14:04

19-JUN-BO

CZR6KF P11

MACY11 30A(1052)

CIR6KFO Rk6 FCTNL CTRL DIAG

[ISSUE A RECALIBRATE.

ISSUE

=
PAGE 19

TO CYLINDER 2 WITH BAD PARITY.

ISSUE A DRIVE

ISSUE A WRITE DATA OF 400 WORDS TO CYLINDER 1,
SEEK INCOMPLETE BECAUSE OF OUTER

TRACK O, MEAD 0.

el el

TEST 76 PROGRAMMING ERROR

ISSUE A SUBSYSTEM CLEAR.

ISSUE A

READ

WORDS ON CYLINDER O, TRACK O, SECTOR 0.
ISSUE A WRITE
TO THE
SPARE REGISTER.

400

DURING READ
MAKE
SURE

PROGRAMMING ERROR SETS.

DATA

TEST 77 ECC HARD

ISSUE A SUBSYSTEM CLEAR.
ISSUE A WRITE DATA WORDS
CONSISTING OF 177777 TO CYLINDER O, TRACK 0, SECTOR 0.
NOW WRITE ALL ZEROS TO CYLINDER 0, TRACK 0, SECTOR 0.
DURING
WRITE
ISSUE CONTROLLER CLEAR.
MAKE SURE

PROGRAMMING ERROR IS RESET.
NOW ISSUE A READ DATA TO
g;BbNgEQETO.
TRACK
0,
HEAD O AND AN ECC HARD ERROR
L.
.

TEST 100 DRIVE TIMING ERROR

ISSUE A SUBSYSTEM CLEAR.

SEEK TO CYLINDER 632.

ISSUE

A RECALIBRATE BUT
DO NOT WAIT FOR SECOND INTERRUPT.
PUT CONTROLLER
IN DIAGNOSTIC
MODE.
ISSUE
A READ
HEADER OF CYLINDER 0, TRACK 0.
CLOCK THROUGH SEEK AND

DRIVE
DRIVE

CLEAR MESSAGES.
TURN OFF
DIAGNOSTIC MCDE.
TIMING ERROR SHOULD SET BECAUSE OF NO DATA

TRANSISTIONS ON DATA LINE.

1222333232323 323 2222222232332 233

3233333322020 RRRRRRRRRRRR

)

+*+*ERROR FORCING IN DRIVE

2222322222223 23223223 22322232333322222333322222
RRRRRRRRll)

TEST 101

INITIALIZE CLEARING SACK

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

TEST 102 DRIVE OFF

il ol

CLEAR.

~SEQ 0018

MAKE SURE UNIT FIELD

ERROR

TRACK

ISSUE
ISSUE A RECALIBRATE.
ISSUE A SUBSYSTEM CLEAR.
PUT CONTROLLER IN
OFFSET OF +1200 MICRO-INCHES.
DIAGNOSTIC MODE. ISSUE A WRITE DATA OF 1 WORD TO
CYLINDER O, TRACK O, SECTOR 0. CLOCK THROUGH SEEK AND
DRIVE CLEAR MESSAGES.
TURN OFF DIAGNOSTIC MODE.
TRACK SHOULD SET IN DRIVE. REPEAT FOR ALL
DRIVE OFF
AVAILIABLE DRIVES.

SEEK

14:14

19-JUN-B0

MACY11 30A(1052)

e
e
el

CIR6KFO RK6 FCINL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-B0 14:04
CZR6KF P
991
992

993

994

MACY11

30A(1052)

19-JUN=-B0

14:14

PAGE 20

SEQ 0019

TEST 103 FILE UNSAFE

ISSUE A SUBSYSTEM CLEAR.
ISSUE A RECLAIBRATE.
ISSUE
A READ HEAD OF CYLINDER O, TRACK 0 IN 24 SECTOR
FORMAT. DO A SELECT COMMAND IN 26 SECTOR FORMAT. PUT
ISSUE A WRITE HEADER
CONTROLLER IN DIAGNOSTIC MODE.

TO CYLINDER O, TRACK O, ONE WORD IN 26 SECTOR FORMAT.
CLOCK 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 FOR PREVIOUS TEST EXIT

THIS TEST IS PRESENT TO MAKE

$SWOBTB

ENTRY WHICH RELATES TO ''NEWDRV''.

TABLE

HAVE

THIS IS NECESSARY IF

PNOPRORNOMNIMNONINOININON
s b ed b s
QS =00V~
VSN 2OV
W

b —

D il

D i

D o

D il

D el o

D e

AN ERROR OCCURS IN THE PRECEEDING TEST AND THAT
ERROR
ABORTS
THE
TEST.
IF THIS TEST WERE NOT PRESENT, THE

PROGRAM WOULD SKIP THE NEUDRV" ROUTINE AND GO TO
TEST FOLLOWING "‘NEWDRV''.

THE

IN ADDITION, THE DRIVE IS CLEARED ANU

ARE

THE

HEADS

ALLOWED TO RELOAD.
THIS MUST BE
DONE TO PREVENT
ngxfignggnéNTERRUPTS FROM THE DRIVE BECOMING READY AT
L

1222233232222 2332222222222 2322023222232ttt
RlRlld)

**MULTI-DRIVE OPERATIONS

RT
T T
T T T T
T

TEST 105 RESET ATTENTIONS WITH UNIBUS INIT

DO A RECALIBRATE ON ALL AVAILIABLE
RESET.

DRIVES.

MAKE SURE ALL ATTENTION RESET.

ISSUE

TEST 106 RESET ATTENTIONS WITH SUBSYSTEM CLEAR

DO A RECALIBRATE ON ALL

SUBSYSTEM CLEAR.

AVAILABLE

DRIVES.

MAKE SURE ALL ATTENTIONS RESET.

TEST 107 SVAL AND ATTENTION FROM OTHER DRIVE

DO A RECALIBRATE ON ONE AVAILABLE DRIVE. DO A SELECT
ON ANOTHER AVAILABLF DRIVE. MAKE SURE STATUS VALID IS
SET. WALT FOR SECOND INTERRUPT FROM RECAL IBRATE MAKE
SURE STATUS VALID REMAINS SET AND DRIVE STATUS CHANGE
REMAINS RESET.

REPEAT FOR ALL COMBINATIONS OF TWO AVAILIABLE DRIVES.

NOTE:

THIS TEST WILL ONLY BE DONE

DRIVES ARE AVAILABLE.

LEAST

TwO

CZR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF .P1

MACY11

30A(1052)

19-JUN-B0

14:14

2
PAGE 21

SEQ 0020

TEST 110 OVERLAPPED OPERATIONS

1047
1048
1049

ISSUE A
DO A RECALIBRATE ON BOTH DRIVE A AND DRIVE B.
[IMMEDIATELY ISSUE A
SEEK ON DRIVE A TO CYLINDER 1.
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.
REPEAT FOR ALL COMBINATIONS OF

NOTE:
5.0

TWO DRIVES.

IFf ONLY ONE DRIVE IS AVAILABLE

THE

NOT BE DONE.

TEST

WILL

ERROR REPORTING

A DETAILED DESCRIPTION OF
THE
ERROR FORMATS AND REPORTS
THIS IS ESSENTIALLY THE SAME AS CAN
IS GIVEN HERE.
CONTENTS

?EB{QUND IN THE

LISTING

COMMENTS

UNDER

ERROR

THE

POINTER

ERROR POINTER TABLE:

THIS TABLE CONTAINS THE INFORMATION FOR EACH

ERROR

THAT

(AN

THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER
OCCUR.
FOUND IN LOCATION SITEMB.
THIS NUMBER INDICATES WHICH ITEM IN
THE

YTABLE

IS PERTINENT.

NOTE1: IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
NOTE2: EACH ITEM IN THE TABLE CONTAINS & POINTERS
EXPLAINED AS FOLLOWS:
EM
:;POINTS TO THE ERROR MESSAGE

DH
DT

;:POINTS TO THE DATA HEADER

;:POINTS TO THE DATA

::POINTS TO THE DATA FORMAT
DF
EM IS ALWAYS A MESSAGE BUT DH CAN
DATA.
ASCIZ
ARE
DH
EM AND
BE A 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
IF ANY OF THE POINTERS ARE NOT NEEDED, FOR A
ARE TO BE TYPED.
PARTICULAR FORMAT,
IT
IS REPLACED WITH A ZERO.
THE NORMAL
USAGE OF THE ERROR TABLE IS TO HAVE A TABLt ENTRY FOR EACH
ERROR MESSAGE THAT CAN OCCUR. IN THE INTEREST OF ECONOMICS OF

CORE MEMORY, THIS PROGRAM USES THE ERROR TABLE

DIFFERENT MANNER AS DESCRIBED BELOW.

SIGHTLY

THE ERROR TABLE ENTRIES MAKE UP A SET OF REPORT FORMATS THAT
ARE USED THROUGHOUT THE PROGRAM.
WHEN AN ERROR IS TO BE
REPORTED, THE TABLE ENTRY THAT PROVIDES THE DESIRED FORMAT
IS
CHOSEN FROM THE DEFINED SET. THE TABLE ENTRY CHOSEN IS 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 CHANGED, NOR ARE THE COLUMN LABELS OR POSITIONS.

THE FORMAT THAT EACH TABLE ENTRY PROVIDES IS SHOWN BELOW

WITH

CZR6KFO Rk6 FCTNL CTRL DIAG
19-JUN-B0 14:04
CZR6KF P11

MACY11

30A(1052)

19-JUN-80

14:14

~NONWV
—=O OV
ONOWVS NN = OOV

THE

(MESSAGE)
TST NUM ERR PC

STESTN

SEQ 0021

ENTRY.

ALL DATA FIELDS ARE TYPED IN

DRIVE

SERRPC

DRVNUM

ERROR ITEM 2

(MESSAGE)
(MESSAGE)
TST NUM ERR PC
STESTN
SERRPC_

NO VMWW
OV
NN
NO VB WN~=O VNV
NO VNS WNN 2OV

L
R
— i ——
g
R
— Y
Y
S
I
S— Y
S
Y
S
—J———
NP
S
—

N
NS
S
NU
A
S
A

PAGE 22

ERROR ITEM 1

DRIVE
DRVNUM

RKCST
RKCS2
5,081 _ T.C82
RXBA
RKWC

RKER
T.ER

RKASOF
T.ASOF

RKDCYL
T.DCYL

RKER
T.ER

RKASOF
T.ASF

RKMR1
T.MR1

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

ERRORS

T.BA

RKDS
1.08

RKDA
T.DA

T.WC

ERROR ITEM 3

(MESSAGE)
TST NUM ERR PC

L
A
R
R
Y
A
— O —O— G —

WVIVVAVAIWVIWVVWWWVWVE S
S DB EDDBWHWNURHNWWWWWNWN
N NNNONNINNINON = 0
e ed o b b s i OO O OO

Y
N Y
— — —— )
—— g —— -

6?$ALDEFlNlTl0N

DRIVE

$STESTN
SERRPC_
DRVNUM
RKCST
RKCS2
RKDS
.C81 - T.882 . 1.08
THE

RESULT

A HARDWARE ERROR

EXPECTED, NOT SET WHEN IT

REPORT WILL CONTAIN (1)

IS EXPECTED,

ALL

THAT

ARE

INDICATOR BEING SET WHEN NOT

BOTH.

THE

ERROR

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

gyg%gggaTslN

ITSELF

THE

EXPLAINS THE

CIRCUMSTANCE

FOR

REPORT WILL BE ONE OR MORE OF

THE

REPORT.

THE FOLLOWING

"'THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET IN OPERATION:"'
"'THE ABOVE ARE UNEXPECTED ERRORS SET IN OPERATION:'
"'THE ABOVE ARE ERRORS SET IN OPERATION:"'

PRECEEDING ANY ONE OF THESE LINES WILL BE ONE

LINES

THAT SPECIFY THE EXACT ERROR.
FOLLOWING THE LAST LINE WILL BE
A LINE THAT IDENTIFIES THE OPERATION BEING PERFORMED.

EXAMPLE:
NON=-EXISTANT DRIVE
THE ABOVE ARE ERRORS SET

DRIVE SELECT

IN OPERATION:

(ADDITIONAL LINES OF

INFORMATION)

THIS

AN ERROR SET

IS THE

RESULT OF

IN A SELECY OPERATION.

CIR6KFO RK6 FCTNL CTRL DIAG

CZR6KF .P1
1159

—
-a-a-.-oooog WMEB
SWN—=OV~N

—

D e

LSS LN LN LN LN N LN L L LT L

N L

i
i ol

il i i i
D i aulh D i

b wnd il D i
D
i o o

i i
D D i

D i i
D D i

VOOV OOOVOVOVOEEOOPOOWOOOOE NYNNNNNNN~N~VoOcOTOTON OO
NN
2O OO NO VNS WN 2OV
NO NS WN SO OO NO VNS WN =00V
WN -

D i D i i D D i il D il i el il D il D il aslh D
il il D il B il il D i D D D i il i sl D il i il

1160

19-JUN-80 14:04

MACY11 30A(1052)

19-JUN-80

14:14

PAGE 23

SEQ 0022

EXAMPLE
:

NON=EXISTANT DRIVE

THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET IN OPERATION:

DRIVE SELECT

(ADDITIONAL LINES OF

INFORMATION)

THIS IS THE RESULT OF AN EXPECTED ERROR THAT

1.E.

DID

NOT

OCCUR,

A NON-EXISTANT DRIVE WAS ADDRESSED BUT NED WAS NOT SET.

EXAMPLE:
:
NON=EXISTANT MEMORY
THE ABOVE ARE UNEXPECTED ERRORS SET

IN OPERATION:
UNIBUS PARITY ERROR
THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET IN OPERATION:

WRITE DATA

(ADDITIONAL LINES OF

INFORMATION)

THIS IS AN EXAMPLE
OF
NON-EXISTANT
UNIBUS PARITY ERROR WAS EXPECTED.

ERROR ITEM &
(DESCRIPTION OF ERROR)
ERROR IN OPERATION
(DESCRIPTION OF OPERATION)
TST NUM ERR PC
DRIVE
DRVNUM
STESTN SERRPC_
RKCS1
RKCS2
RKDS
RKER

1,051

RKBA
T.BA

A00
$REG10

T1.05¢

RKWC
T.WA

1.0%

T.ER

MEMORY

BEING

SET

RKASOF

RKDCYL

RKDA

T.ASOF

T.DCYL

WHEN

T.DA

800
AO1
801
A02
802
AO3
BO3
SREG11 SREG12 SREG13 SREG14 SREG15 $SREG16 SREG17

THE ERRORS REPORTED BY THIS FORMAT ARE:

CONTROLLER DETECTED DRIVE BUS ERROR
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
FORMAT ERROR
WRITE LOCK ERROR

ERROR ITEM 5
THIS ENTRY IS THE SAME AS
[ITEM & WITH
THIS MESSAGE IS:
MESSAGE THAT FOLLOWS.

THE

ADDITION

———

19-JUN-80 14:04

19-JUN-B0

14:14

2
PAGE 24

SEQ 0023

"ANY FIELD WITH ALL ONES MUST BE CONSIDERED INVALID"
THIS REPORT WILL BE PRINTED WHEN THE GATHERING OF DATA FOR AOO
THRU BO3 IS NOT ACCOMPLISHED WITHOUT ERROR.

ERROR ITEM 6
(DESCRIPTION OF ERROR)

ERROR IN OPERATION

(DESCRIPTION OF OPERATION)
TST NUM ERR PC
DRIVE

DRVNUM
STESTN SERRPC_
RKCS1
RKCS2
RKDS
7.081
T.C5¢
1.0§
RKBA
T.BA

RKWC
T.WC

RKER
T.ER

RKASOF
T.ASOF

RKDCYL
T.DCYL

RKDA
T.DA

EITHER

LEGAL

THE ERRORS REPORTED BY THIS FORMAT ARE:
DATA CHECK
WRITE CHECK

ECC HARD
DATA LATE

OPERATION INCOMPLETE
HEADER VRC ERROR

BAD SECTOR ERROR

ERROR ITEM 7

(DESCRIPTION OF ERROR)

®OoONONOr
W= OOV
NOWVNSWN=O
W

il
D i
D el
D el el el el el d wld
D
—

YUYWVVi
WAWN

MONLNLNMNLRL
NN
NN NN NN~N

ERROR IN OPERATION

(DESCRIPTION OF OPERATION)
TST NUM ERR PC
DRIVE

DRVNUM
STESTN SERRPC_
RKDS
RKCS2
RKCS1
1.0S
T1.CS¢
T.CS1

RKER
T.ER

RKASOF
T.ASOF

THE ERRORS REPORTED BY THIS FORMAT ARE:
NON-EXISTANT DRIVE
NON-EXISTANT MEMORY

CONTROLLER TIME OUT
UNIT FIELD ERROR
MULTIPLE DRIVE SELECT
PROGRAMMING ERROR

UNIBUS PARITY ERROR
ILLEGAL FUNCTION CODE

DESCRIPTON OF OPERATION CAN BE ANY COMMAND,
ILLEGAL.

ERROR ITEM 10

(DESCRIPTION OF ERROR)

ERROR AT COMPLETION OF OPERATION
(DESCRIPITON OF OPERATION)

lalal

P11

MACY11 30A(1052)

~N~N

FO RK6 FCTNL CTRL DIAG

MACY11

30A(1052)

PAGE 25

DRIVE

S$TESTN ERRPC
DRVNUM
EXPT
IS
SREG10 S$REG1!

6
7
8
9
0

THE ERRORS REPORTED BY THIS FORMAT ARE
SOF TWARE
COMPARING
EXPECTED RESULTS WITH ACTUAL RESULTS.
ERRORS ARE:
WORD COUNT INCORRECT
BUS ADDRESS INCORRECT

DETECTED BY
THE SPECIFIC

CYLINDER ADDRESS INCORRECT

2
3

1287
1288
1289
1290

14:14

TST NUM ERR PC

2
3
;

85
86

19-JUN-80

TRACK ADDRESS INCORRECT
SECTOR ADDRESS INCORRECT

ERROR ITEM 11
(ERROR_INDICATOR OR STATUS BIT)

NOT SET AS A RESULT OF
(ANOTHER ERROR INDICATOR,
TST NUM ERR PC
DRIVE
S$TESTN SERRPC_
DRVNUM

1291

1295

RKCS1

~ RKCS2

RKDS

B8t

5.2

STATUS BIT, OR OPERATION

RKER

RKASOF

RKMR

1AM

ERROR ITEM 12
THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE

1300

"NOT RESET AS A RESULT OF"

1302
1303

ERROR ITEM 13
|
THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS:

1305

“SET AS A RESULT OF"

1307
1308

ERROR ITEM 14
THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS:

b d e = e =2 O
cd e

"RESET AS A RESULT OF"

2
3

ERROR ITEM 15
(HEADER WORD MISCOMPARE) OR (DATA MISCOMPARE)

N PORONIRI N

i
i
e
D
it

4
5

IS:

DRIVE

STESTN SERRPC DRVNUM
GOOD ~~ BAD _ ~ WORD NUM
SREG10 S$REG11
$REG12

—

TST NUM ERR PC

5
6
/

A L AN U L L U W U

N N

il i

e
D
i

N NN NN

1297
1298

ERROR 1TEM 16

ADDITIONAL LINES OF GOOD, BAD, WORD NUM FOR ERROR 15.
6.0

SUBROUTINES
IN THE INTEREST OF CONSERVING MEMORY, IT IS NECESSARY TO MAKE
EXTENSIVE USE OF SUBROUTINES.
HOWEVER, IN THE INTEREST OF

PRESERVING CODE READABILITY, SUBROUTINE NAMING IS

DESCRIPTIVE

SEQ 0024

FO RK6 FCTINL CTRL DIAG
F.PI1
19-JUN-80 14:04

als)

———

WIN NN

N
W
W
WINW

WN=LOOVONOWVSWN~O
VNV WN-=00 o~

NN
8pfi\~hflvflflhfluivfld
Ommu\mmmmmmmbrrb oy b%‘bgv‘w QEGR WWNWWNI
W=00V~

CIR6KFO RK6 FCINL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

136

136
1364

1365
1366
1367
1368
1369
1370
}g;;

1373
1374

MACY11 30A(1052)

19-JUN-B0

14:14

M2
PAGE 26

SEQ 0025

OF
THE FUNCTION PERFORMED.
THE SUBROUTINE FUNCTION !S 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 MILLISECCNDS FOR AN _INTERRUPT
(TWATNN

WHERE

WAIT).

NN VARIES FROM CALL TO CALL AND IS THE TIME TO

THE FOLLOWING IS A DESCRIPTION OF THE SUBROUTINES

NOT

PROVIDED BY SYSMAC:
222328222

LINE CLOCK CALIBRATE
AR R RN RN

R AR AN

ittt atitiiiiiiidiiiiidiiliisdl)

RN NRRRERRRARRRCRARARARENROROROORNES

WAITS FOR A LINE

CLOCK
INTERRUPT
TO
INTERRUPTS TO A MEANINGFUL TIME VALUE.

CALIBRATE

THE
IN ADDITION IT

PRESETS THE TIMCNT IF THERE IS NO LINE CLOCK.
IS USED IN THE LINE CLOCK SIMULATOR.
CALL:

JSR

TIMCNT

PC,CLKCAL

1222222222222
22
R0 0
02 0
R
R dRRRRRRRRRRRdd ]

OPTION PRESENT TEST AND SETUP

iRt

Rttt

RRRRRRd

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

INTERRUPT VECTORS ARE SET UP.

CALL:

PC,OPTTST

JSR

(322222822222

iRttt

LINE CLOCK SIMULATION ROUTINE
R

iRttt

L L L

T R

tRitRRRRdd

T R

)

THIS ROUTINE IS USED TO SIMULATE THE LINE
CLOCK.
TO
DO THIS THE VALUE STORED IN MILCNT IS USED AS THE BASE
AND REPRESENTS THE NUMBER OF
TIMES A DECREMENT AND
BRANCH LOOP CAN BE DONE IN 1 MILLISECOND.
THE TIMCNT
VALUE IS DECREMENTED AND IF
IT REACHED O THE LINE
CLOCK TICK COUNTER IS BUMPED.
THEN THE TIMCNT IS
RESET TO 16 (REPRESENTS 16 MILLISECONDS PER LINE CLOCK
TICK).

1375

THUS THE ROUTINE RETURNS TO THE CALLER AFTER 1
MILLISECOND AND BUMPS THE LINE CLOCK TICK COUNTER FOR
EACH 16 CALLS.

}g;;

CALL:

1376

1379

1380
1381
1382

JSR

PC,MYTIME

RN R RN RNEY
R AR RN AR Rt
t
RN
R
Rt

WAIT FOR INTERRUPT ROUTINE
R AR RN R TR RN R RN RN RO RNOY
R
Rt

MACY11 30A(1052)

19-JUN-B0

14:14

2
PAGE 27

SEQ 0026

THE ROUTINE 1S ENTERED BY ONE OF FOURTEEN TRAP CALLS.
THE CALL SPECIFIES MHOW 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

1383
1384
1385
1386
1387
1388
1389
1390

CALL.

IF INTERRUPT OCCURS THE RETURN IS BUMPED BY

CALL:

TWAT16

NORMALLY AN ERROR CALL WILL BE IN THE LOCATION AFTER
THE CALL TO INTERRUPT WAIT.

THROUGH

TWATBS, AND TWATIM

TWAT159,

TWAT1S,

TWAT2S,

R
T T T T T
T T R R

“L" REGISTER LOADING ROUTINE

2222223322223 3222222322223 022222322222 202

RRRRdddddd)

THE PARAMETERS FOLLOWING THE CALL ARE TRANSFERRED INTO
THE
''L'" REGISTERS L.CST=iL.PCYL.
L.MR1 IS NOT LOADED

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

B WN 2OV NOWVNEWN=O 0

ed b b ed d e
=B b e

R4 ,LRLOAD
JSR
COMMAND
WORD COUNT
BUS ADDRESS
SECTOR ADDRESS
.BYTE
TRACK ADDRESS
.BYTE
CYLINDER ADDRESS

1222322322223 2233322223223 22 2333323232223 3323220 2222300000t RRRdn)

LOAD RK611 FOR OPERATION

2222222222232 3222222222223 8238222222222

200200

RR0RRRRRRRlld)

TRE REGISTER SETUP STORAGE iS TRANSFERRED TO THE RK611
REGISTER.
THIS IS A STRAIGHT TRANSFER WITH NO
THE REGISTER CONTENTS.
CHECKING OR MANIPULATION OF
ti$S}s gET TRANSFERRED LAST AS IT SHOULD BE IF THE GO

PONINI NI N

i e

W O

D e

o o ol R ol ok R ok ol

i e

CALL:

TLOADRK

1332222222222 2233 2222323222233 3232222220000ttt
RRRRtRRRldl)

STORE RK611 REGISTERS

3222322222232 322 22323222

Rttt Rttt Rt illll)

ALL THE Rx611 REGISTERS ARE STORED IN THE TEST TABLE T
WITH THE EXCEPTION OF THE DATA BUFFER WHICH IS NOT
STORED IN THIS ROUTINE.
CALL:
sttt

TYGETRK

tt ettt t ettt Rt R RERRRRERRRRAEGRRRRRORRRRRRRRRAERRRRRRORRRORETY

BIT COUNTER IN A WORD

lalel

CIR6KFO RK6 FCTINL CTRL DIAGOL
CIR6KF .P1
19-JUN-80
1

1450
14651
1652

1453
1454
1455

1456
1457

1458
1459
1460
1461
1462

CALL:
22 s

JSR

1491
1492

1493
1494

R4 ,BITCNT
20

200

RRRdRRRRdddRdd])

AR AR RN

y 4

MAINTENANCE CLOCK ROUTINE

R RN RN RN AR A AN RN AR RRANRAARARCRRRRARORAOIRROATTS

THE PARAMETERS PASSED TO THIS ROUTINE ARE LOCATED
IN
THE
ADDRESS AFTER THE CALL.
THE FIRST BYTE CANTAINS
THE NUMBER OF PHASES ADDRESSES THE CALLING ROUTINE
WANTS THE CONTROLLER CLOCKED THROUGH AND THE SECOND

BYTE CONTAINS THE NUMBER OF CLOCK TRANSITIONS (PARTIAL
PHASES)

TO BE DONE.

CALL:

JSR

.BYTE

R4 ,MCLOCK

;NUMBER OF CLOCK TRANSISTIONS

:NUMBER OF PHASE ADDRESSES

.BYTE

3222222222322 2222222202222
2200 0 Rttt itRlllld)

READ AND SORT HEADERS

3222222222222 2222323222222

222222202222

200

iRttt dlld)

THE HEADERS IN THE CYLINDER AND TRACK SPECIFIED BY THE
FIELDS
IN THE "'L'" REGISTERS ARE READ AND STORED IN
CONTROLLER ERRORS ARE CHECKED IN
ASSCENDING ORDER.
THE READ HEADER OPERATION AND DATA LATE IS CHECKED
AFTER EACH READ OF THE DATA BUFFER.

CALL:

N e

THE NUMBER OF BITS

JSR
TCHKOP

R4 ,RDSTHD
REYURN POINT IF CERR IN READ

ERROR
ERROR

&
13

;:OR 5, 6, 7
RETURN iF DATA LATE IN DB

ERROR

:RETURN IF TO SLOW OR
;IF HDR O NOT FOUND

:UNLOAD

2222222223322 2322322222322
0 020000 R0 RRRRRRRRRRRl)

GET DRIVE STATUS

(3223222222222 2232222322 2223233333223 223222002 2200 RRRRRRRRRRly)

THIS ROUTINE GETS ALL THE DRIVE STATUS AND

PLACES

IN SREGI0 THROUGH SREG17. THESE REGISTORS ARE FIRST
CLEARED TO ALL ONES AND THEN IF ERROR OCCURS WHILE
GETTING STATUS, THE 1'S ARE LEFT IN THE REGISTERS.

1490

ROUTINE.

CALL:

1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489

CALLING

2222222222222 222222 222222200

1463

1464
1465
1466

THE

B
N

THE

STACK

FOUND IN THE WORD ARE PASSED BACK ON THE STACK.

1444

1446

E RN RN RROERRNERRRRNARRARRANRORRANNORNARNRENOOERROEROORTSE

THE WORD WHOSE BITS MUST BE COUNTED IS PLACED

1445

1647
1448
1649

SEQ 0027

dhr s as as d QST ST NN TN TN LSS LG LS ]

RERRARRR

14:14

i S LaS LS TS TN TN TN L L

19-JUN-BO

LSS ST NT N ST NTNTNTNTNTNT S TSN TN L

MACY11 30A(1052)

1439
1440
1441
1442
1443

19-JUN-80 1

3
PAGE 28

Lt Lt L L L

CIR6KFO Rk6 FCTNL CTRL DIAGO‘

CIR6KF P11

JSR

R4 ,GETDRS

ERROR PROCESSING

ERROR RETURN

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-B0 14:04

MACY11 30A(1052)

19-JUN-B0

14:14

}232

PAGE 29

SEQ 0028

NO ERROR PROCESSING

1497

1498

SUBSYSTEM INITIALIZE AND INITIALIZE STATE TEST

}I;g

1501
1502

R R R R

R R R

GOOD RETURN

R R R R R KRR R R AR R AR RRRRRRRIRITIIIL

R R R R R RN R R R RN N R RN R RN

AR RN R RN RN R RO RN RR RO OORS

THE SUBSYSTEM IS INITIALIZED WITH A
SUBSYSTEM CLEAR
COMMAND.
CERR AND DI ARE MONITORED FOR A SHORT PEIROD

}282

OF TIME DURING WHICH THEY SHOULD BOTH RESET.

}ggz

IF THEY DO RESET, READY IS TESTED TO INSURE IF SETS.

i il il i

D S il il i il D s ol il D calh

ol i il il il D s il il D D D il il el il il ol el il il il il il sl

WNAWNA NN NN NINI NI PORONIND) =
b s b b e e e o
VBB
NWNHNW
\fi\h\fl\fi\fl\fi\n\fl\”\”\fi\”\”\fl\fl:2\”\”\fl\fi\fi\fl\fl\”\”\”\fi\”\fiNfl\fl\”\”\fl\”\fl\”\”\”\fl\”\flz;
CNOOI*GO“UMFWflhJ-‘Chocl\d#\fliEU"U-‘CNOOD“OHfil\U"U-‘CNOO"OOHfiJ“U"U-JC)sL’

1507

IF ANY OF

THESE

THREE

CONDITIONS

ARE

NOT

MET

FOLLOWED BY

APPROPRIATE
ERROR
MESSAGE
IS
PREPARED AND REPORTED
WHEN THE ROUTINE RETURN TO THE CALL.
IF
EVERY
THING
{gog?OD. THE RETURN SKIPS OVER THE ERROR CALL AND TEST
THE USUAL CALL TO THIS ROUTINE WILL BE

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

THE

THIS IS DONE
IS
FATAL
TO

TEST.

CALL:

TSSINIT

LA AR ARttt
ii
20 R ]

WORD COUNT AT END OF
AR

R RN

OPcRATION CHECK

RN RN RN AR RN

RAN

THIS ROUTINE COMPARES THE CONTENTS OF THE TEST STORAGE
FOR
THE
WORD
COUNT
AGAINST THE SUPPLIED VALUE.
IF

UNEQUAL, THE ERROR FLAG (WCERR)
ERROR FLAGS (GRP4ER)
CALL:
Rtk kbRRttttRt

BUS

JSR
.WORD

R&, CHKWC

SET

GROUP

;EXPECTED WC VALUE

AR RATERORRRERRARRRRARARRRARRARRARRRRRRANRRARERROERTTY

ADDRESS AT END OF OPERATION CHECK

Rkttt RRERRRERRERRRRRORRARRRRRRRRRANRRARARERROEORRARRRROEOROTRETR

THIS ROUTINE COMPUTES THE EXPECTED BUS ADDRESS AT

END

TRANSFER BY USING THE

THE

INITIAL BUS ADDRESS,

ADDING IN THE INITIAL WORD COUNT, AND SUBTRACTING
ANY
RESIDUAL
WORD
COUNT.
IF
THIS COMPUTED BA DOES NOT

EQUAL THE CONTENTS OF RKBA AN ERROR

SET

IN GROUP & ERROR FIELD

(GRP4ER)

FLAG

(BAERR)

IF BUS ADDRESS INCREMENT INHIBIT WAS SET, THE EXPECTED
BUS ADDRESS IS THE STARTING BUS ADDRESS.
CALL:

JSR

R4, CHKBA

1553

AR RN R

1552

RN N

R RN RN R AR NN RN RN AR R AR

CYLINDER,TRACK,SECTOR TEST AT END OF OPERATION

1554

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

RR RN

RNRRRORORE

R AR RN RN ARNRRARERNRROROORS

1555
1556
1557
1558

}ggg

THIS ROUTINE CHECKS THAT THE CONTENTS OF
THE RKOCYL
AND RKDA ARE CORRECT FOR ANY SIZE DATA TRANSFER AT THE
END OF
THE OPERATION.
THE CONTENTS OF
THE LOAD
REGISTER STORAGE ARE COUNTED ON TO HAVE THE INITIAL
VALUES TO MAKE THE NECESSARY CALCULATION.

1561

ALL THREE VALUES ARE GENERATED AND STORED IN

1563
1564

CHECKED AND IF ONE
OR
MORE
ARE
WRONG,
THE
CORRESPONDING BIT IN THE ERROR FLAGS FIELD (GRP4ER) IS

1562

VALUES

1565

STORAGE

EXPCYL,

EXPTRK,

JSR

R&,CHKCTS

EXPSEC.

EXPECTED

ALL 3 ARE

SET.

1566

}gg;

CALL:

1569

(3222222222222t
I
s
e
s esssssl

1570

OPERATION CHECK ROUTINE

1571

1572
1573
1574

R R R R AR R R R RN R RN R AR AR R AR AR

AR R TR RN

RRRRRRRRNS

1575
1576
1577
1578
1579
1580
1581
1582
1583

THIS IS WHERE ALL HARDWARE ERROR INDICATORS AND SOME
SOFTWARE ERRORS ARE C(HECKED. 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 IS FOUND.
IF AN ERROR IS DETECTED, THE ERROR
TRAP CALL IS MODIFIED BY THIS ROUTINE SUCH THAT THE
ERROR TABLE ITEM WILL BE THE PROPER ITEM FOR THE
FORMAT REQUIRED BY THIS ERROR. THE ERROR TRAP WILL BE

1588
1589

FOR NO EXPECTED ERRORS:
CALL:
TCHKOP

1591
1592

FOR EXPECTED ERRORS:
CALL:
TCHKWE

}ggz

.WORD

1584
-1585
}gg?

1590

1593
1594

MADE EITHER ERROR 4,5,6, 7, OR 10. REFER TO THE ERROR
ITEM TABLE FOR A DESCRIPTION OF THE FORMAT AND WHICH
ERRORS ARE DISPLAYED IN WHAT FORMAT.

.WORD
.WORD

;GROUP 1 EXPECTED ERRORS
"sGROUP 2 EXPECTED ERRORS

sGROUP 3 EXPECTED ERRORS

1597
1598

WHERE EACH BIT IN THE THREE WORDS FOLLOWING THE CALL
REPRESENT A SPECIFIC ERROR. THE BIT ASSIGNMENTS ARE

1601
1602
1603
1604
1605

GROUP 1 ERRORS:
BIT O - CONTROLLER DETECTED DRIVE BUS
PARITY ERROR
BIT 1 - SEEK INCOMPLETE
BIT 2 = NON-EXECUTABLE DRIVE FUNCTION

1599
1600

1606

GIVEN BELOW:

BIT 3 - DRIVE DETECTED DRIVE BUS PARITY ERROR

p—q

SEQ 0029

~N~N

3
PAGE 30

|
RN R

1591

14:14

AURLAIALAUIRIARA
AR AN NN R NN RN N NN N NN NN NNN
NININININI

19-JUN-B0 14:04

19-JUN-BO

TMTM

CZR6KF P11

MACY11 30A(1052)

MNININONLNI NN ~N

CIR 6KFO RK6 FCINL CTRL DIAG

l
1646

1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657

1658

1659
1661
1662

BAD SECTOR CHECK
AR AR

)

O N

AC LOW ERROR

N
B
B
B
IO B
L
B N
B
B
B
B
D
B
LI

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

NO CERR WITH OTHER ERROR SET ERROR
DRIVE UNSAFE ERROR

CERR BUT NO OTHER ERROR SET ERROR

ERRORS:
ECC HARD ERROR
DATA CHECK ERROR

WRITE CHECK ERROR

DATA LATE ERROR
OPERATION INCOMPLETE ERROR
HEADER VRC ERROR

BAD SECTOR ERROR

:
ERRORS
NON-EXISTAND DRIVE ERROR
CONTROLLER TIMEOUT ERROR
UNIT FIELD ERROR

MULTIPLE DRIVE SELECT ERROR

PROGRAMMING ERROR
NON-EXISTANT MEMORY ERROR
UNIBUS PARITY ERROR
ILLEGAL FUNTION ERROR

iRt

R R R R R R RN

ittt

R R R R R AR RN

R0ttt

RN AR RN

THE FIELD WHOSE ADDRESS IS IN THE LOCATION

tRaRRRRldd)

AR RS

AFTER

THE

CALL
IS
CHECKED TO SEE
IF
ANY SECTORS ARE LISTED
THEREIN THAT
HAVE
THE
CYLINDER
AND
TRACK
ADDRESS
SPECIFIED IN L.DCYL AND L.DT.
IF A SECTOR IS FOUND IN
THIS FIELD THAT IS BAD FOR THAT
CYLINDER
AND
TRACK,
THE
SECTOR NUMBER IS PLACED ON THE STACK.
THE TOTAL
NUMBER OF BAD SECTORS IS PLACED ON THE STACK AFTER THE
ENTIRE FIELD IS SEARCHED.
CALL:

JSR

R4 ,BDSRCK

<ADDRESS OF

FIELD

TO BE

SEARCHED>

2223322222223
R RRRRRRRRRRRRRRRRRll)

DATA GENERATION AND COMPARE ROUTINE

tttRbAtet Rt ettt RO R RRTRTRTRTRRRRRNRRRRRRRRRRERRRRRRERRRRRRERRERRRRNEY

CALLS:

JSR

o o

lala)

FORMAT ERROR

DRIVE TYPE ERROR

— e d e d =2 O QD
VIS
- O

e
s

)
)
]

e e
9

)
)

e
e i
e
e
e

) o) el
)

I 222222222

SEQ 0030

ACRIALALIALAIRALALALAINIALAIRIAI
AR N AN NI NI NI N NN N NINI NI AL NI NN NN N NN N NN NN N NN NN NN N NN NN

wro

1644

PAGE 31

[
—— - ]

DODDODEOO@OS

)
et Pt

CD O

Pt Pt Pt et Pt Pt

0D CD CD O CD O

bfldtflUHg:
OV~

ooooo

bl
b
b =

1635

1645

) o) el

oo
o oo

O
(=]
S OWONO
WV WN=O O
[0 ] 0

BPANN-OOVONOWVISW

WIWNWWWNINONONONONON

—
g
e R
i
i
il
D
i e
i
i
d
i
-

ooorOrOFOCOMOCONONONOM oooocorororOrOrOFOFOMONOM o

g ————— —a

1607
1608

1641

€

14:14

) = ()
[~
OV
W —-=O D

19-JUN-80

)

30A(1052)

) o

MACY11

ei
l=]
[=
NO VS NI —-O D

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P

~Nr

—————

R4 ,GENCOM

CONTROL WORD

VR
v il i SR
eI

14:14

1663

1665

1675
1676
1677
1678

1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698

—

i
e
il
i
i
D
il
-

SNNSNNNNNNNYNY ~
— h b
h h e
Oo
WNOWVES W00 [+

1699
1700
1701
1702
1703
1704
1705
1706
1707

SEQ 0031

R4 ,GENCOM
JSR
CONTROL WORD
LENGTH

1664

1666
1667
1668
1669
1670
1671
1672
1673
1674

PAGE 32

R&, GENCOM
JSR
CONTROL WORD

RELOCATION CONSTANT

LENGTH

RETURN:

RTS

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

CONTROL WORD.

THIS IS UNCONDITIONAL.

THE SECOND CALL RETURNS TO THE LOCATION FOLLOWING

THE

MISCOMPARED.

LENGTH IF THE OPERATION REQUIRES DATA COMPARE AND DATA
D:TA
’

IF DATA IS TO BE GENERATED

ONLY

COMPARE ERRORS OCCURRED, THE RETURN IS TO LENGTH

THE THIRD CALL

IDENTICAL

TO THE SECOND.

DEFINITION OF CONTROL WORD:

BIT 15

BIT 13

- DO COMPARE OPERATION OF [BUFF (SOURCE) TO
OBUFF (DESTINATION).
EXPECTED VALUES ARE
IN OBUFF (DESTINATION.
- RESUME COMPARE OPERATION FROM POINT LEFT
BY LAST COMPARE.
- {?ggfg) MEMORY MANAGEMENT
FOR
SOURCE

BIT 12

* {g;gg;)fifflORY MANAGEMENT FOR

BIT 11

- REPEAT FIRST

BIT 10
BIT 9
BIT 8

= CLEAR IBUFF TO PATTERN SELECTED.
= BUILD HEADERS, CONSIDERING BS FILES
- ggé%gRSEADERS. ALL SECTORS INDICATE

BIT 7

- HEADER ~ OPERATION

BIT 14

WORD

THROUGHOUT OBUFF
.

COMPARE OR BUILD).

DESTINATION

SELECTED

SPECIFIED

PATTERN
GOOD

(EITHER

BIT 6 TO 0 - PATTERN SELECT FIELD, OCTAL ENCODED.
O
INDICATES NO DATA GENERATION, 1 IS ALL
ZEROS, AND 7 IS ALL ONES.
OTHER PATTERNS
PROVIDED

ARE

PATTERNS 2-6, 8-16.

;2T{25 PROGRAM LISTING FOR PATO2
EXPLANATION OF CALLS:
THE CALL WITH CONTROL WORD THE ONLY

REFER

THROUGH

PARAMETER
IS
USED FOR BUILDING OR COMPARING HEADERS OR RESUMING
A COMPARE OPERATION.

19-JUN-B0

LSTSTNTNTNTNTNTSTNTSTSTNT
SIS

30A(1052)

MACY11

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-B0 14:04

F.2

DESCRIPTION:

THIS ROUTINE
FOLLOWING:

IS MULTI-PURPOSE

AND

WILL

PERFORM

THE

BUILD HEADERS, EITHER 20 OR 22 SECTORS/TRACK MODE.
THE
ROUTINE WILL BUILD
THE HEADERS AS ALL GOOD
SECTORS (BIT 8)
OR TAKE
THE BAD SECTOR FILES
(HARDWARE OR SOFTWARE)
FOR EITHER FORMAT) INTO
SECTORS
THE
HEADERS WITH
ACCOUNT AND BUILD THE
MARKED BAD IF ANY SECTORS FOR THE CYLINDER - TRACK
ARE LISTED THEREIN (BIT 9).

COMPARE THE CONTENTS OF IBUFF AND OBUFF (BIT

15).

THE CONTENTS OF THE BUFFER MAY BE HEADERS OR DATA.
(BIT
SPECIFIED
A HEADER COMPARE OPERATION MAY BE
7)
WHICH WILL CAUSE THE COMPARE TO BE _LIMITED TO
THE LENGTH
HEADERS.
WORDS OF
74(8) OR 102(8)

DEPENDS ON THE FORMAT BIT THAT WAS LAST SPECIFIED
THE HEADERS MAY BE BUILT BEFORE THE
IN L.CS1.
COMPARE AS PART OF THE OPERATION (BIT 15 AND BIT 8
OR 9). DATA CAN ALSO BE GENERATED BEFORE THE
COMPARE (NON-ZERO BITS 6-0).
C.

IF A COMPARE OPERATION
RESUME COMPARE OPERATION.
ROUTINE RETURNS TO
THE
DETECTS A MISCOMPARE,
THAT THE COMPARE
SUCH
PARAMETERS
CALLER BUT STORES
CALLING GENCCM
BY
DONE
IS
THIS
CAN BE RESUMED.
WITH BIT 14 SET IN THE CONTROL WORD.

MEMORY
USING
COMPARE
OR
GENERATION
DATA
FOR
INVOKED
BE
CAN
MEMORY MANAGEMENT
MANAGEMENT.
IN
BOTH.
FOR
EITHER SOURCE OR DESTINATION BUT NOT
THIS MANNER, DATA GENERATION CAN BE MADE TO PLACE
DATA ANYWHERE IN AVAILABLE MEMORY. LIKEWISE DATA
COMPARE WILL COMPARE THE CONTENTS OF IBUFF TO ANY

oTM

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

SO MM SO AN SR SR IA LG AR MM SALA MAIA SARLMAIAININAS

THE
CALL WITH CONTROL
WORD
AND
LENGTH
AS
PARAMETERS
IS USED FOR DATA GENERATION OR COMPARE
AND FOR IBUFF INIT/_IZATION.

A BAA SO A

SEQ 0032

A4 A0

PAGE 33

SO A

SO SO S LA A

14:14

S G4 S

19-JUN-80

e A A SO Sdn adm el B

MACY11 30A(1052)

AREA OF AVAILABLE MEMORY.

2232222222222 2223322222232
R Rttt ttRtRRtRRldd)

PHASE LOCKED LOOP CLOCK ADJUSTMENT ROUTINE

(2232222822222 22322222 2222333332332 3232222322222

R RRRRRRRRld)

THIS ROUTINE IS ENTERED VIA START LOCATION 220(8).
THE PROGRAM FIRST RUNS TEST 1, 2, AND 3 TO SET UP THE
INTERNAL PROGRAM VARIABLES AND THEN JUMPS TO THE CLOCK

—'dd-‘—‘—‘dddd—‘—‘—‘_‘-‘—‘d-fldd_‘.—‘-‘-‘—‘d—ld‘dfldfld-‘—‘d—. -

NNNNN NNNNNNNNNNNNNNNNNNNNN ~
P oFok
oP
N LN LN LN N N N N N A NI N RO RO R rorororoNY —
VI SN
— o WONO NS WN 2O 0ONI NS W
=0 0

CIR6KFO Rk6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF .P1N

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

};g?

THIS ROUTINE WILL LOOP UNTIL THE PROCESSOR IS HALTED.

1782
};gz

1785
1786
1787
1788
1789
};g?

7.0

REVISION HISTORY

REVFO

1) ADD CODE IN PROGRAM INITTIALIZATION TO
CLEAR DATA BUFFER MEMORY LOCATIONS
2) MODIFY CHAIN MODE LOOP ADDRESS IN SEOP
FOR XXDP+ COMPATIBILITY
3) MODIFY 'OPTTST' ROUTINE TO SUPPORT NEW
PROCESSOR AND MEMORY OPTIONS

oTM

bB+l

AR AN DO AAN AR DA DN DN DO A0 B

1775
1776
1777
};;s

A A A4 S

SEQ 0033

PAGE 34

AM A4 54 A

A e e adh Sk adh A afh RAA AM ndk afh
A A S S A4 A adh A

14:14

19-JUN-B80 14:04

19-JUN-80

CZR6KF P11

MACY11 30A(1052)

CIR6KFO RK6 FCTNL CTRL DIAG

NLIST
167400

000001

007

wee

CND,MD,MC,TOC

LIST

LTITLE

CZR6KFO Rk6 FCINL CTRL DIAG

.ENABL
2?:R=

ABS,AMA
167400

SRy

;*COPYRIGHT (C) 1976,1980
;*DIGITAL EQUIPMENT_CORP.

1800
1801

; *MAYNARD, MASS. 01754

1802
1803
1804
1805

\I‘U‘g SR

PRERRRRRER

.SBTTL

OPERATIONAL SWITCH SETTINGS

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC
; *PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977.

.
M

)
TR

R
TR

10
9

INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS

%
»

.SBTTL

001100

177774
177772
177570
77570

000000
000001
000002
000003
000004
000005
000006
000007

ABORT PROGRAM AFTER 20 ERRORS

LOOP ON TEST IN SWR<7:0>

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER *#+ 1100 #e«

STACK=

.EQUIV

000011
000012
000015
000200
177776

USE

15
14
13

SWITCH

‘%

—.-‘—.-‘—.—‘—.-‘—.d—.—l—.—.—.d—l—l_.—.—A-.—A—l-.-l_‘-‘—l—.—l—l_a-.—l—l-‘-‘—l
Oo 0o Oo Co OO OO00 00 0o 0o 0o 00 0o Co 00 OO O 0o OO OO 0O 00 OO 0o 0o OO OO 0o 0O oo
o
AN POPONINI NI NIRIND) = e e
e
o
d
N=00VONOWVNSWN
=0V NOWVNESWN—-O O
NOWVES
NN = O0V~N

SEQ 0034

——

REV

Ny
PAGE 35

NNy

svx

14:14

TPy

19-JUN-B0

1100

EMT ,ERROR

10T,SCOPE

;sBASIC DEFINITION OF ERROR CALL
;;BASIC DEFINITION OF SCOPE CALL

;*MISCELLANEOUS DEFINITIONS

HT=
LF=

(R=
CRLF=
PS=

1
12

15
200

177776

.EQUIV

PS,PSW

PIRQ=

177772

STKLMT= 177774

DSWR=
DDISP=

177570
177570

;;CODE FOR HORIZONTAL TAB
;;CODE FOR LINE FEED

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

;s STACK LIMIT REGISTER

; ;PROGRAM INTERRUPT REQUEST REGISTER

; sHARDWARE SWITCH REGISTER
: sHARDWARE DISPLAY REGISTER

:'GENERA%OPURPOSE REGISTER DEFINITIONS

R1=
R2=

R3=
R&4=
RS=
R6=
R7=

4!
¥4

X3
)2
15
X6
X7

:;GENERAL REGISTER

:;GENERAL REGISTER
:;GENERAL REGISTER

:sGENERAL
:sGENERAL
: sGENERAL
:sGENERAL
:sGENERAL

1792
1793
1794
1795
1796
1797
1798
179%

MACY11 30A(1052)

—

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-B0 14:04
CZR6KF .P1

1884
1885
1886
}gg;

1889

1890
1891
1892
1893
1894
1895
1896
1897
1898
1899

1900 _
1901
1902
1903

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100

000040
000020
000010
000004

SWO3,Sw3
SW02,Sw2
SWO1,Sw1
SWO00,SwW0

BIT05=
BITO4=
BIT03=
BIT02=

10000
40000
20000
10000
4000
2000
1000
400
200
100

40
20
10
4

LA LA LA LA LA LA LA L

MM AAA

AMA

100
40
20
10
&
2
1
SW09,SW9
SW08,Sw8
SWO7,SwW7
SW06,SW6
SWO05,SW5
SWO04,SwWé

;;PRIORITY LEVEL 7

;*DATA BIT DEFINITIONS (BITOO TO BIT15)

BIT15=
BIT14=
BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BIT08=
BIT07=
BIT06=

0
1
2
3
&
5
6

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

Swoé=
SW05=
Swo4=
swo3=
sw02=
swol=
SWwoo=
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
.EQUIV
EQuIv
EQulv

340

;;PRIORITY
;sPRIORITY
;sPRIORITY
s;PRIORITY
;sPRIORITY
;;PRIORITY
;sPRIORITY

;*''SWITCH REGISTER' SWITCH DEFINITIONS
Sw15=
SWwié=
40000
Swi3=
20000
swi2=
10000
SWil=
4000
SWw10=
2000
SW09=
1000
SW08=
400
sSw07=
200

FR7=

0
40
100
140
200
240
300

100000
040000
020000
010000
004000
002000
001000
000400
000200

;*PRIORITY LEVEL DEFINITIONS

PRO=
PR1=
PR2=
PR3=
PR4=
PR5=
PRé=

000000
000040
000100
000140
000200
000240
000300

000100
000040
000020
000010
000004
000002
000001

; ;PROGRAM COUNTER

PC=

000340

: STACK POINTER

000007

edh

1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883

SEQ 0035

}gzg

SP=

3
PAGE 36

1852
1853
1854
1855
1856
1857
1858

DEFINITIONS

1851

000006

BASIC

14:14

1848

}ggg

19-JUN-80 14:04

19-JUN=-B0

CZR6KF P11

MACY1 3omosg)

CZR6KFO RKk6 FCTNL CTRL DIAG

MMVEC=

250

;*KT11

STATUS REGISTER ADDRESSES

SRO=
SR1=
SR2=
SR3=

177572
177574
177576
172516

}322

1945
1946
1947
1948
1949
1950
1951
}32%

;*KERNEL "'I'' PAGE DESCRIPTOR REGISTERS

172300
172302
172304
172306
172310
172312
172314
172316

}ggg
1956
i957
1958
1959

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=

172300
172302
172304
172306
172310
172312
172314
172316

;*KERNEL ''I'' PAGE ADDRESS REGISTERS
172340
172342
172344
172346

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=

172340
172342
172344
172346

Shdin: SR, Beghi S

SRER.

GRS S

177572
177574
177576
172516

1938
1939
1940
}g:;

}gg?

000250

lalal

|
;*KT11 VECTOR ADDRESS

RESVEC= 10
; ;RESERVED AND ILLEGAL INSTRUCTIONS
TBITVEC=14
33,1 Bit
TRTVEC= 14
: s TRACE TRAP
BPTVEC= 14
; ;BREAKPOINT TRAP (BPT)
10TVEC= 20
;s INPUT/OUTPUT TRAP (IOT) #«SCOFE«+
PWRVEC= 24
; sPOWER FAIL
EMTVEC= 30
;sEMULATOR TRAP (EMT) #+ERROK«*+
TRAPVEC=34
::"'TRAP'' TRAP
TKVEC= 60
;:TTY KEYBOARD VECTOR
TPVEC= 64
;:TTY PRINTER VECTOR
PIRQVEC=240
; ;PROGRAM INTERRUPT REQUEST VECTOR
.SBTTL MEMORY MANAGEMENT DEFINITIONS

i, B

000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240

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

000004

}gg%

}ggg

2
1
BIT09,BITY
BIT08,B1T8
BITO07,B1T17
BIT06,BITE
BITO5,BITS
BITO04,BIT4
BITO3,BIT3
BIT02,BIT2
B8I1T701,BIT1
BIT00,BITO

i i

BITO1=
BITO0=
.EQUIV
.EQUIV
.EQUIV
EQUIV
EQUIV
EQUIV
EQUIvV
EQUIvV
EQuiv
cQulv

000002
000001

SEQ 0036

1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
}gg?

BASIC DEFINITIONS

PAGE 37

1917
1918

MACY11 30A(1052)

K-

1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
}g}z

19-JUN-B0 14:04

14:14

CIR6KFO Rk6 FCINL CTRL DIAG

CIR6KF .P1

19-JUN-B0

1960

19-JUN-B0 14:04

MACY11 30A(1052)

PAGE 38

MEMORY MANAGEMENT DEFINITIONS

1961
1962
}ggz

172352
172354
172356

172350

KIPAR4=
KIPARS=
KIPARG=
KIPAR7=

1965
1966
}ggg

000210
000240
177440

AVECT1= 210
APRIOR= PR5
ABASE= 177440

}ggg

.SBTTL

SEQ 0037

172350
172352
172354
172356
;DEFINE RK611 VECTOR INTERRUPT
;DEFINE RK611 PRIORITY
;DEFINE RK611 BASE BUS ADDRESS

RK611 CONTROLLER REGISTER DEFINITION

197
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982

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

PKCS1= 0
RKWC=
2
RKBA=
&
RKDA=
6
RKCS2= 10
RKDS=
12
PKER=
14
RKASOF= 16
RKDCYL= 20
RKDB=
24
RKMR1= 26
RKMR2= 34

;CONTROL AND STATUS REGISTER 1
;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DESIRED TRACK SECTOR REGISTER
;CONTROL AND STATUS REGISTER 2
;DRIVE STATUS REGISTER
;ERROR REGISTER
;ATTENTION SUMMARY AND OFFSET REGISTER
;DESIRED CYLINDER REGISTER
:DATA BUFFER
;MAINTENANCE REGISTER 1
;MAINTENANCE REGISTER 2

1984
1985
}ggg

000030
000032
000022

RFECPS= 30
R ECPT= 32
RKSPAR= 22

;ECC POSITION INFORMATION
;ECC PATTERN INFORMATION
:SPARE REGISTER

1983

000036

RKMR3=

.SBTTL

DRIVE COMMANDS

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

101
103
105
107
111
113
115
117
121
123
125

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS

000400
001000
002000
004000

G0=
IE=
RDY=

BA16=
BA17=
cpT=
CT0=

BITO
BITé
BIT?

;G0 BIT
; INTERRUPT ENABLE
:CONTROLLER READY

010000

CFMT=

BIT12

;CONTROLLER DRIVE FORMAT (0=26 SECTOR, 1=24 SECTOR)

}ggg

1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000

2001
2002
%882

000101
000103
000105
000107
000111
000113
000115
000117
000121
000123
000125

000127
000131
000300

%882

2007
2008
2009

2010
2011
201
201
2014

2015

009001
000100
000200

WRHEAD= 127
WRTCHK= 131
INTR=
300

BIT8
BIT9
BIT10
BIT11

:MAINTENANCE REGISTER 3

;SELECT DRIVE
;PACK ACKNOWLEDGE
;DRIVE CLEAR
+UNLOAD
;START SPINDLE
;RECAL IBRATE
;OFFSET
s SEEK
;READ DATA
;WRITE DATA
sREAD HEADER

;

]

;WRITE HEADER AND DATA
;WRITE CHECK
:GENERATE INTERRUPT TO CPU

:BUS ADDRESS BIT 16
;BUS ADDRESS BIT 17
;CONTROLLER DRIVE TYPE (0=RK06)
;CONTROLLER TIMED OUT WAITING FOR
:

DRIVE RESPONSE

CZR6KF .P1N

14:14

(alal

CIR6KFO RK6 FCTNL CTRL DIAG

19-J UN-B0

|
2016
2017
2018
%8}8

020000
040000
100000
100000

%8%%
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034

2035
%8%?

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

gggg
2040
2041

000001
000002

2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
gggg

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

2042

000004

%8?;

2059
2060
2061
2062
2063
2064
2065
2066

2067
2068
2069
2070
207

M3
MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 39
CONTROL AND STATUS REGISTER 1 BITS

SPAR=
DI=
CERR=

BITI13
BIT14
BIT15

.SBTTL

CONTROL AND STATUS REGISTER 2 BITS

DRVMSK=
RLS=
BAl=
SCLR=
IR=
OR=
UFE=
MDS=
PGE=
NEM=
NED=
UPE=

7
BIT3
BITé
BITS
BITé
BIT7
BIT8
BITY
BIT10
BITI
BIT12
BIT13

.SBTTL

ERROR REGISTER BIT DEFINITION

ILF=
SKI=

BITO
BIT1

s ILLEGAL FUNCTION CODE
:SEEK INCOMPLETE

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

BIT3
BIT4
BITS
BITé
BIT7
BIT8
BITY
BIT10
BITI
BIT12
BIT13
BIT14
BIT15

;DRIVE DETECTED DRIVE BUS PARITY ERROR
; FORMAT ERROR
;:DRIVE TYPE ERROR
;ECC HARD
:BAD SECTOR ERROR
sHEADER VRC ERRROR
;:CYLINDER ADDRESS OVERFLOW ERROR
: INVALID DISK ADDRESS ERROR
;WRITE LOCK ERROR
;DRIVE TIMING ERROR
;OPERATION (SEARCH) INCOMPLETE
:DRIVE UNSAFE
:DATA CHECK

CCLR=

WCE=
DLT=

NXF =

BIT1S

BIT14
BIT15

BIT?2

;DRIVE BUS PARITY ERROR DETECTED BY CONTROLLER
;DRIVE INTERRUPT
; CONTROLLER ERROR
; CONTROLLER CLEAR

;MASK FOR DRIVE SELECTION CODE
;DESELECT OR RELEASE DRIVE IN BITS 0-2
;BUS ADDRESS INCREMENT INHIBIT
;CLEAR CONTROLLER AND ALL DRIVES
: INPUT READY
;OUTPUT READY
;UNIT FIELD ERROR
;MULTIPLE DRIVE SELECT
:PROGRAMMING ERROR
sNON=-EXISTENT MEMORY
;NON-EXISTENT DRIVE
;UNIBUS PARITY ERROR
;WRITE CHECK ERROR
;DATA LATE ERROR

:NON-EXECUTABLE DRIVE FUNCTION

.SBTTL

STATUS REGISTER BIT DEFINITION

000001

DRA=

BITO

000004
000010
000020
000040
000100
000200

OFST=
BIT?
ACLO=
BIT3
SPDLSS= BIT4
DROT=
BITS
VV=
BITé
DRDY=
BIT?

000400
004000
020000
040000
100000

DDT=
WRL =
PIP=
DSC=
SVAL=

BITS
BIT11
BIT13
BIT14
BIT15

;DRIVE AVAILABLE (CONTROLLER IS SET IF
:
THIS BIT IS RESET)
;DRIVE OFFSET
:AC LOW
:SPEED LOSS
;:DRIVE OFF TRACK
;VOLUME VALID
:DRIVE READY

;DRIVE TYPE (0=RK06)
;WRITE LOCK
;POSITIONING IN PROGRESS
;DRIVE STATUS CHANGE
:STATUS VALID

SEQ 0038

CZR6KFO RK6 FCINL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

1
19-JUN-80 14:04

207
%8;‘

19-JUN-B0

14:14

3
PAGE 40

STATUS REGISTER BIT DEFINITION
.SBTTL

MAINTENANCE REGISTER 1 BIT DEFINITION

%8;2

000017

MESMSK= 17

;MESSAGE MASK

2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
%838

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

PAT=
BIT4
DMD=
BITS
MSP=
BITé
MIND=
BIT?7
MCLk=
BIT8
MERD=
BIT9
FEWD=
BIT10
PCA=
BIT1?
PCD=
BIT12
ECCw=_
BIT13
WRTGAT= BIT14
RDGATE= BIT15

;FORCE EVEN PARITY ON SERCON MESSAGE LINES
;DIAGNOSTIC MODE
;MAINTENANCE SECTOR PULSE
sMAINTENANCE INDEX
sMAINTENANCE CLOCK
;MAINTENANCE ENCODED READ DATA
;MAINTENACNE ENCODED WRITE DATA
;PRECOMPENSATION ADVANCE
;PRECOMPENSATION DELAY
;ECC WORD IS BEING READ OR WRITTEN
;WRITE GATE
;READ GATZ

000040
000100
000200
000400
001000
092000
004000
010000
020000
040000

S.DRA= BITS
S.vv=
BITé
S.DRY= BIT7
S.TYPE= BIT8
S.FORM= BIT9
S.0FF= BIT10
S.WRL= BITN
S.SPIN= BIT12
S.PIP= BIT13
$.DSC= BIT14

;DRIVE AVAILIABLE
: VOLUME VALID
;DRIVE READY
:DRIVE TYPE
;:DRIVE FORMAT
;OFFSET
;WRITE LOCK
;SPINDLE ON
;POSITIONING IN PROGRESS
;DRIVE STATUS CHANGE

%832
2092

2093
2094
2095
2096
2097
2098
2099

2100
g}g%
%}gz

2105
2106
2107
2108
2109
2110
21
2112
2113
g}}g

.SBTTL DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE A

SBTTL
000040
000100
000200
000400
001000
002000
004009
010000
020000
040000

S.I1CYL= BITS
S.ACLO= BITé
S.FLT= BIT7
S.ILF= BIT8
S.PAR= BIT9
S.SkI= BIT10
S.WLE= BITN
S.SPLS= BIT12
$.DROT= BIT13
S.UNS= BIT14

SBTTL

%}}9

DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE B

DEFINITION OF DRIVZ STATUS BYTE 01 MESSAGE A

2118
2119
2120

000020
0000
000100

S.XDOK= BIT4
S.HDHM= BITS
S.BRHM= BIT6

2124
2125
2126
2127

002000
004000
010000
020000

S.FuD= BIT10
S.REv= BITN
S.LOAD= 81!1;
S.RTZ= BIM

2121
2122
2123

000200
000400
001000

;ILLEGAL CYLINDER ADDRESS
;AC LOW
;:DRIVE FAULT
s ILLEGAL FUNCTION
;DRIVE DETECTED SERCON PARITY ERROR
sSEEK_INCOMPLETE
;WRITE LOCK ERROR
; SPEED LOSS
;:DRIVE OFF TRACK
;:DRIVE UNSAFE

$.DOOR= BIT7
S.CART= BIT8
$.5POK= BITY

: TRANSDUCER 0K
;HEADS HOME
;BRUSHES HOME

;DOOR INTERLOCKED
;CARTRAGE INTERLOCK
;SPEED OK
: FORWARD
;REVERSE
;HEADS LOADING
;RETURN TO ZERO

SEQ 0039

(T
]

CIR6KF P11

MACY11 30A(1052)

CIR6KFO RK6 FUTNL CTRL DIAG

19-JUN-80 14:04

MACY11 30AC1052)

19=JUN=-B0

14:14

PAGE 41

DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE A

%}23

040000

S.UNLD= BIT14

sHEADS UNLOADING

2132

000020

S.SECT= BIT4

:SECTOR ERROR

2139
2140
2141

004000
010000
020000

S.PLO= BITN
S.NMOvV= BIT12
S.LIMD= BIT13

;PLO ERROR
:SEEK AND NO MOTION
:LIMIT DETECT ON SEEK

%}ig

2133
2134
2135
2136
2137
2138

S.WCLKk= BITS
S.WGAT= BIT6
S.HDFL= BIT?7
S.MHD= BITS
S.XERR= BIT9
s.DIB= BIT10

040000

:WRITE CLOCK AND NO WRITE GATE
:WRITE GATE AND NO TRANSISTIONS
HEAD FAULT
:MULTIPLE HEAD SELECT
: INDEX ERROR
:DIBIT ERROR

S.BRKE= BIT14
.SBTTL

%}22

: SERVO=-BRAKE

COMMON MASKS

2146
2147
2148
2149
2150
2151
2152
2153
g};g

000007
100000
000003
017760
017760
077770
000760
007000

M.DRv= 7
M.PAR= BITI1S
M.ID=
3
M.CDIF= 17760
M.CADD= 17760
M.SER= 77770
M.SECT= 760
M.HEAD= 7000
.SBTTL TRAP CATCHER

2156
2157

000000

2160
2161
2162
2163

.=0
s*ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN
A "'.+2, 107" SEQUENCE TO CATCH AND PROCESS ILLEGAL
:*TRAPS AND INTERRUPTS THAT MIGHT OCCUR.
:*THE 10T TRAP WHICH IS TAKEN ON THE ILLEGAL TRAP/INT
:*TRAPS TO THE $SCOPE ROUTINE WHICH (IF THE RETURN PC IS
:*LESS THAN 1002) JUMPS TO THE SERROR ROUTINE.
:*THE SERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS:

2165

:*AND RETURN TO THE PROGRAM AT PC=YYYYYY#2

2158
2159

2164

PC=YYYYYY UNEXPECTED TRAP TO XXX

;*NOTE: IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM

2168

%}gg

CAN BE STARTED AT ADDRESS O AS WELL AS ADDRESS 200.

g};%

000000

000002

000000

$40CAT: HALT

2174

000004

001772

.WORD

000174
000000

=174
DISPREG: .WORD

2175

2176
2177

000006

000737

000340

2178

000174
000176

2180
%}g;

000200
000204

000137
888}?{

001772
001762

218%

000214

000137

001752

2179

;DRIVE CODE
:PARITY
:BYTE ID
:CYLINDER DIFFERENCE/OFFSET
;CYLINDER ADDRESS
:DRIVE SERIAL NUMBER
:SECTOR COUNT
sHEAD DECODE

:*WHERE XXX=LOCATION OF ILLEGAL TRAP
YYYYYY=PC AT TIME OF TRAP
e

2166
2167

2171

SEQ 0040

LSBTTL DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE B

000040
000100
000200
000400
001000
002000

%}2%

SWREG:

000000

.SBTTL

.=100
START

s sHALT

;:??78§? TO 177700 & TIME OUT (NOT ON
::VECTOR TO STARTING ADDRESS

.WORD

340

::WITH PRIORITY LEVEL 7

.WORD

0
O

::SOFTWARE DISPLAY REGISTER
::SOFTWARE SWITCH REGISTER

JMP
JHS1‘

@#START ;:;GO TO START OF PROGRAM
RESTRT
:JUMP TO RESTART ROUTINE

JMP

PARM

STARTVTING ADDRES(ES)

:JUMP TO OPERATOR ASSIGNED PARMETERS

CIR6KF . P11

DIAG

P LS L L LV LY LYLSL ST ST STNT NI NI NI SN

CIR6KFO RKk6 FCTINL CTRL

000220

2207

000236

.=220

.SBTTL

SETCLK
JMP
APT PARAMETER BLOCK

&
PAGE 42

SEQ 0041

14:14

(alel
NN

19-JUN-B0
STARTING ADDRES(ES)

;JUMP TO SET CLOCK ROUTINE

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

.WURD
.WORD
.WORD
.WORD
.WORD
.WORD

;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
0
;;ADDRESS OF APT MAILBOX (BITS 0-15)
SMAIL
;sRUN TIM OF LONGEST TEST
20.
;sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
60
;ADDITIONAL RUN TIME (SECS) OFA PASS FOR EACH ADDITIONAL UNIT
480.
SETEND-SMAIL/2 ;;LENGTH MAILBOX~-ETABLE (WORDS)

NT N I N

000000
001276
000024
000074
000740
000031

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

000224

; INTERFACE SPEC.

:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC

3 t"i.."'.""""""""""t"'."Q""""QQ"'."'I'.Q'Q"

000224

000044

000024

; :SAVE _CURRENT LOCATION
;;SET POWER FAIL TO POINT TO START OF PROGRAM
;:FOR APT START UP
.=bb
;;POINT TO APT INDIRECT ADDRESS PNTR.
$APT'{DR ::POINT TO APT HEADER BLOCK
=.8X
;sRESET LOCATION COUNTER
.=24
200

N ST NI N T ST N NI ST NT ST ST ST ST NT NT ST ST NT ST ST ST ST ST ST ST

;:"'tt.t.'t'.t"""""""""""""Q"""Q."CQ"""Q""

000224

POPONININ

0001%7 001742

MACY11 30A(1052)

:;.""l".Q"Q""""'Q"""""""Q"t'.."l""'t".."t"'

b cd cd

i cd ad ad cd ad wd ad h d

oo [(STSTSISTISTNTNISINISTST
NI STNT NN PS8 N

S
83 ROARSBERIREREN2ETEIF SR

CIR6KFO Rk6 FCTINL CTR DlAG
19-JUN-B0 14:04
CZR6KF P11

——

CZR6KFO RK6 FCTINL CTRL DIAG
CZR6KF P11
19-JUN-B0 14:04

MACY11 30A(1052)
19-JUN-B0
COMMON TAGS

14:14

%%83

.SBTTL

2210

AR A

%g}%

:*USED IN THE PROGRAM.

2211

2214

2215

2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242

2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257

2258
2259
2260
2261
2262
2263

PAGE 43

SEQ 0042

COMMON TAGS
R

%
L

A A

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

001100

001100
001102
001103
001104
001106
001110
001112
001114
001115
001116
001120
001122
001124
001126
001130
001132
001134
001135
001136
001140
001142
001144
001146
001150
001152
001154
001155

001156
001157
001160

001100
000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570
177560
177562
177564
177566
000
002

012
000
000000

001162
001164
001166
001170
001172
001174
001176
001200
001202
001204
oo1208

000000
000000
000000
000000
000000
000000
000000
000000

001222

000000

001210
001212
001214
001216
001220

000000

000000
000000
000000
000000
000000

$CMTAG:

.=1100

WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
$NULL:
.BYTE
$FILLS: .BYTE

$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$SLPERR:
$ERTTL:
SITEMB:
SERMAX:
$SERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

$FILLC: .BYTE
$TPFLG: .BYTE
$REGAD: .WORD

O
O
O
O
O
0
O
O
1
0
0
0
O
0
0
O
0
0
O
DSWR
DDISP

O
2

::START OF COMMON TAGS

q
H
a
H
:

O
0
0
0
0
O
O
O
O
O
O

$TMPO:

.WORD

: :USER DEF INED

O
O
0
0
O

::CONTAINS
;:CONTAINS
::CONTAINS
::CONTAINS
::CONTAINS

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

.WORD
.WORD
.WORD
.WORD
.WORD

: ;ADDRESS OF SWITCH REGISTER
: ;ADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS
;:TTY KBD BUFFER
;:TTY PRINTER STATUS REG. ADDRESS
::TTY PRINTER BUFFER REG. ADDRESS
::CONTAINS NULL CHARACTER FOR FILLS
:;CONTAINS # OF FILLER CHARACTERS REQUIRED

::AUTOMATIC MODE INDICATOR
:: INTERRUPT MODE INDICATOR

$SREGO:
$REG1:
$REG2:
$REG3:
$SREG4:
$SREGS:
$REG6:
$SREG7:
$REG10:
$REG11:
$REG12:

2
2
2
2
2
2
2
2
2
2
2
2
?
2
2
2
?
2
2
2
2
2
2
2
2
2
2

::CONTAINS THE TEST NUMBER
; sCUNTAINS ERROR FLAG
;:CONTAINS SUBTEST ITERATION COUNT
: :CONTAINS SCOPE LOOP ADDRESS
::CONTAINS SCOPE RETURN FOR ERRORS
:;CONTAINS TOTAL ERRORS DETECTED
::CONTAINS ITEM CONTROL BYTE
: :CONTAINS MAX. ERRORS PER TEST
::CONTAINS PC OF LAST ERROR INSTRUCTION
: :CONTAINS ADDRESS OF 'GOOD' DATA
::CONTAINS ADDRESS OF 'BAD' DATA
::CONTAINS 'GOOD' DATA
;;CONTAINS 'BAD' DATA
: ;RESERVED==NOT TO BE USED

::INSERT FILL CHARS. AFTER A ''LINE FEED'
::'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
: :CONTAINS THE ADDRESS FROM
::WHICH (SREGD) WAS OBTAINED
: :CONTAINS ((SREGAD)+0)
; ;CONTAINS ((SREGAD)+2)
::CONTAINS ((SREGAD)+4)
: :CONTAINS ((SREGAD)+6)
: :CONTAINS ((SREGAD)+10)
: :CONTAINS ((SREGAD)+12)
:;CONTAINS ((SREGAD)+14)
::CONTAINS ((SREGAD)+16)
; :CONTAINS ((SREGAD)+20)
: :CONTAINS ((SREGAD)+22)
: :CONTAINS ((SREGAD)+24)

$REG13:
$REG14:
$REG1S:
$REG16:
$REG17:

12
0

CIR
CIR

((SREGAD)+26)
((SREGAD)+30)
((SREGAD)+32)
((SREGAD)+34)
((SREGAD)+36)

2
2
2
2
2
2
2
2
.
2
p
?
p
<
:

s sUSER DEFINED
:sUSER DEFINED
s sUSER DEFINED
:sUSER DEF INED
s sUSER DEF INED
s sUSER DEF INED
s sUSER DEF INED
s sUSER DEF INED
s sUSER DEF INED
:sUSER DEF INED
s sUSER DEF INED
s sUSER DEF INED
s sUSER DEF INED
s sUSER DEFINCD
ssUSER DEF INED
:sMAX. NUMBER OF ITERATIONS

<207><377><377>
/7%/
<%
Q12>

%%g?

LSBTTL

APT MAILBOX-ETABLE

2288

2289

2305

001276
001276
001300
001302
001304
001306
001310
001312
001314
001316
001316
001317
001320
001322
001324

000000
000000
000000
000000
000000
000000
000000
000000
000
000
000000
000000
000000

2313
2314
2315
2316

000
000

2317 001330 000000
2318

2319

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

001332

000

s sQUESTION MARK
;s CARRIAGE RETURN
ssLINE FEED
L

AR R

ARl

BITS 15-11=CPU TYPE

AMAMSY
AMTYP1

11/70=06,PDQ=07,0=10
BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT B8=MEMORY MANAGEMENT
;;HIGH ADDRESS,M.S. BYTE
;;MEM. TYPE,BLKM

$MADR1: .WORD

AMADR1

;;HIGH ADDRESS,BLKH1

$MAMS?2: .BYTE

AMAMS?

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

i
o®
o
1
$MAMS1: .BYTE
$MTYP1: .BYTE
o
o
e

11/704=01,11/05=02,11/20=03,11/40=04,11/45=05

001326
001327

;;ESCAPE ON ERROR ADDRESS
;;CODE FOR BELL

.EVEN

SMAIL:
$MSGTY: .WORD
$FATAL: .WORD
$TESTN: .WORD
.WORD
$PASS:
$DEVCT: .WORD
_.WORD
SUNIT:
$MSGAD: .WORD
$MSGLG: .WORD
SETABLE:
$SENV:
.BYTE
$ENVM:
_BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD

2306

2307
2308
2309
2310
2311
2312

== (HIGH BYTE)
MEM.TYPE BYTE
900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003

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

;:HIGH ADDRESS,M.S. BYTE

SEQ 0043

e s i s A A LA A RUARUIASAIAIA AL AIAIAIAIAIALASRI AR AL AR AL AN AL NI AL AR NI PR NN NN NN RO NI NN NN

$SESCAPE:0
$BELL:
.ASCIZ

000377

O
O
O
O
O
O
O
O
O
O
0
O
O
O
O

L.ASCII
LASCII
LASCIZ

2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304

077
015
000012

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
0

$QUES:
$CRLF:
SLF:

2285

001272
001273
001274

000000
177607

$TMP1:
$TMP2:
$TMP3:
$TMP4&:
$TMPS:
$TMP6:
$TMP7:
$TMP10:
$TMP11:
$TMP12:
$TMP13:
$TMP14:
$TMP15:
$TMP16:
$TMP17:
$STIMES:

PAGE 44

2282
2283
2284

001264
001266

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

14:14

2280
2281

001224
001226
001230
001232
0012
001236
001240
001242
001244
001246
001250
001252
001254
001256
001260
001262

19=JUN=-B0

COMMON TAGS

2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279

MACY11 30A(1052)

19-JUN- 0 14:04

"‘TYPE'"

CIR6KFO RK6 FCTNL CTR% DIAG

CZR6KF P P11

———

lalal

ABOVE

PAGE 45

2320
2321

001333
001334

000
000000

SMTYP2: .BYTE
SMADR2: .WORD

AMTYP2
AMADRZ

;;MEM.TYPE,BLKN2
;;MEM.LAST ADDRESS,BLKA?

2323
2324

001337
001340

000
000000

SMTYP3: _BYTE
SMADR3: .WORD

AMTYP3
AMADR3

;;MEM.TYPE,BLKA3
;;MEM.LAST ADDRESS,BLK#3

001346
001350
001352

000210
000000
177440

2322

2325
2326
2327

2328
2329
2330

2331
2332

%%gz

001336

001342
001343
001344

001354
001356
001360

000

000
000
000000

000000
000000

$MAMSS: _BYTE

SMAMS4L: .BYTE
SMTYP4: .BYTE
$MADR4: .WORD

$VECT1: .WORD
$VECT2: .WORD
$BASE:
.WORD
$NEVM:
$CDOW1:

Sggf?gz
+MEX

.WORD
WORD
.

AMAMSS

AMAMS4L
AMTYP4L
AMADRG

AVECT1
AVECT2
ABASE
ADEVM
ACDW1

;:HIGH ADDRESS,M.S.BYTE

;;HIGH ADDRESS,M.S.BYTE
;;MEM.TYPE ,BLK#4
; ;MEM.LAST ADDRESS,BLKW#4

;;INTERRUPT VECTORA1,BUS PRIORITY#1
;;INTERRUPT VECTORN2BUS PRIORITYA2
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
;;DEVICE MAP
!
;;CONTROLLER DESCRIPTION WORD#

14:14

[aTal
NN

MACY11 30A(1052)
19-JUN-B0
APT MAILBOX-ETABLE

s s oBs oBs A8 als als ahs Lhs Lhs ubt als sl adi sl ads &

CZR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

19-JUN-80 14:04

MACY11 30A(1052)

19-JUN-B0

ERROR POINTER TABLE

14:14

PAGE 46

SEQ 0045

%ggz

LSBTTL

2337
2338

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

2340

seNOTE1:

2339

:«LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

%gz;

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

S«NOTE2:

2343
2344
2345
2346

2347
2348
%ggg

ERROR POINTER TABLE

i
v
1
T

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

;:POINTS
::POINTS
::POINTS
::POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FCARMAT

$ERRTB:

001360

2351
2352
2353
2354
2355

§§29
2358

:*
:*
:*
:*
‘«

EM AND DH ARE ASCIZ DATA. EM IS ALWAYS A MESSAGE BUT DH
CAN BE A 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 WORK 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.
L ]

THE NORMAL USAGE OF THE ERROR TABLE IS TO HAVE A 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.

2359
2360
%gg;

:*
:+
:*
:*

2363
2364
2365
2366
2367
2368
2369
%g;g

:« THE ERROR TABLE ENTRIES MAKE UP A SET OF REPORT FORMATS THAT ARE USED
:*+ THROUGHOUT THE PROGRAM. WHEN AN ERROR IS TO BE REPORTED, THE
:* TABLE ENTRY THAT PROVIDES THE DESIRED FORMAT IS CHOSEN FROM
:« THE DEFINED SET. THE TABLE ENTRY CHOSEN IS 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
:* CHANGED, NOR ARE THE COLUMN LABELS OR POSITIONS.

2372

;% THE FORMAT THAT EACH TABLE ENTRY PROVIDES IS SHOWN BELOW WITH

. %

:* THE DEFINITION OF THE ENTRY.

gg;z

2375
2376
2377

gg;g 001360 000000

2380
2381
2382
2383

2384
2385
2386

2387
2388
2389
2390

001362
001364
001366

057146
060520
060612

i
i

:ERROR ITEM 1
(MESSAGE)

$TESTN SERRPC DRVNUM

i
o
I
T

:ERROR [TEM 2
(MESSAGE)
(ME SSAGE)
TST NUM ERR PC
$TESTN SERRPC

EMIN:

TST NUM ERR PC

.WORD
DHOO1
DT001
DFOO1

RKCS?

ALL DATA FIELDS ARE TYPED IN OCTAL.

DRIVE

DRIVE
DRVNUM
RKkDS
RKCS2

RKER

RKASOF

RKDCYL

RKDA

e ale e Bl el sl A0 ale LB A e Bt ahe o800 alhs o8

CIR6KF P11

CIR6KFO Rk6 FCINL CTRL DIAG

l
000000
000000

060526
060616

EM2N:.
DHZN:

DRIVE
DRVNUM
RKCS2
RKkDS

RKCS1

1LS¢

1.5

EM3N:

T.DCYL

T.DA

.WORD

1.0%

RKER

T.ER

RKASOF

T.AST

RKMR1

T.MR1

DT003
DFO03

ERROR ITEMS 4,5,6,87 ARE USED TO REPORT ERRORS 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 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 ITSELF EXPLAINS THE CIRCUMSTANCE FOR THE REPORT.
g#g#gggztgfl THE REPORT WILL BE ONE OR MORE OF THE FOLLOWING

"'THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET IN OPERATION:"
'THE ABOVE ARE UNEXPECTED ERRORS SET IN OPERATION:"'
“'THE ABOVE ARE ERRORS SET IN OPERATION:"'

PRECEEDING ANY ONE OF THESE LINES WILL BE ONE OR MORE LINES THAT
SPECIFY TJE EXACT ERROR. FOLLOWING THE LAST LINE WILL BE A LINE
THAT IDENTIFIES THE OPERATION BEING PERFORMED.

EXAMPLE:
NON-EXISTANT DRIVE
THE ABNVE ARE ERRORS SET IN OPERATION:
DRIVE SELECT
(ADDITIONAL LINES OF INFORMATION)

T E PE TR TR

% B B % N R

TR TR TR T

RN R

RSN

RRRRR RSN RRSRER

DHO02A

057174
060476
060636

5 % B B B

000000

T.ASOF

.WORD
0
LWORD
O
DT002
DF002
:*ERROR ITEM 3
(MESSAGE)
TST NUM ERR PC
$TESTN SERRPC

001400
001402
001404
001406

T.ER

THIS IS THE RESULT OF AN ERROR SET IN A SELECT OPERATION.
EXAMPLE:
NON-EXISTANT DRIVE

THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET
DRIVE SELECT
(ADDITIONAL LINES OF INFORMATION)

~N~N

lalal

001370
001372
001374
001376

RKW(C
T.WC

7.0%

SEQ 0046

adt adtadt
ade o

RKBA
T.BA

T.0%2

PAGE 47

Al alla o 88 all afls 88 ofs ol all als 88 old afs 88 ol ol als 08 als o84 add alla ot ads add alda adt adt alt alt sl

7.051

14:14

—

MACY11 30A(1052)
19-JUN-B0
ERROR POINTER TABLE

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04

CZR6KF .P1

IN OPERATION:

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

I
SEQ 0047

THE

ABOVE ARE UNEXPECTED ERRORS SET

UNIBUS PARITY ERROR

A4 ala aBa ala oA

EXAMPLE:

NON=EXISTANT MEMORY

IN OPERATION:

THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET
WRITE DATA
(ADDITIONAL LINES OF INFORMATION)

IN OPERATION:

Ma _88 afls oBs

_Aa

ERROR)

(DESCRIPTION OF OPERATION)
TST NUM ERR PC
DRIVE

STESTN SERRPC_
DRVNUM
RKCS1
RKCS2
RKDS
1,081 _ T.(5¢
1.0

RKBA
T.BA

A00

_aa

TR
TE
IR

TR TE

(DESCRIPTION OF

ERROR IN OPERATION
R

THIS IS AN EXAMPLE OF NON-EXISTANT MEMORY BEING SET WHEN UNIBUS
PARITY ERROR WAS EXPECTED.

ERROR ITEM &

RKWC
T.WA

800

SREG11

AO1

SREG12

RKER
T.ER

RKASOF
T.ASOF

801
SREG13

AQ2
SREG14

RKDCYL
T.DCYL

BOZ

SREGIS

RKDA
T.DA

AO3

SREG16

I
I
O

EM4N:
DH4N:

THE ERRORS REPORTED BY THIS FORMAT ARE:
CONTROLLER DETECTED DRIVE BUS ERROR
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

FORMAT ERROR
WRITE LOCK ERROR

.WORD
.WORD
DT004
DFO04

0
O

ERROR ITEM 5
THIS ENTRY

IS THE SAME AS ITEM 4 WITH THE ADDITION

OF A MESSAGE THAT FOLLOWS.

THIS MESSAGE IS:

“ANY FIELD WITH ALL ONES MUST BE CONSIDERED INVALID"

000000
000000
060526
060646

TSR

$SREG10

001420
001422

000000
000000

EM5SN:
DHSN:

THIS REPORT WILL BE PRINTED WHEN THE GATHERING OF DATA FOR
AOO THRU BO3 IS NOT ACCOMPLISHED WITHOUT ERROR.

.WORD
.WORD

0
O

&
PAGE 48

[alel
NN

88 alls afa ~ha

R
B

14:14

T I

N )

2447
2448

MACY11 30A(1052)
19-JUN-B0
ERROR POINTER TABLE
A

CIR6KFO Rk6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF PN

80
SREG17

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04
060526
060676

ERROR IN OPERATION

000000
000000
060526
060732

(DESCRI PTION
1
OF

ERROR)

T
(DESCRIPTION
OF
TST NUM ERR PC

OPERATION)
DRIVE

STESTN SERRPC
RKCS1
RKCS2
T.CS1
T.CS2
RKBA
T.BA

RKW(
T.WC

EM6N:
DH6N:

THE

ERRORS REPORTED BY

TR T

R
R

R
E
I

R
R

R
B
B

TR IR IR

R
N
.

B
B

«ne

BN N
.

B
B

6
14
8

001442

001444

001446

000000

060526

RKDCYL
T.DCYL

RKDA
T.PA

THIS FORMAT ARE:

ECC HARD
DATA LATE
OPERATION INCOMPLETE
HEADER VRC ERROR

BAD SECTOR ERROR

.WORD
.WORD
DT006
DFO06

0
O

ERROR)

ERROR IN OPERATION

P
&

RKASOF
T.ASOF

WRITE CHECK

(DESCRIPTION OF

2 001440 000000

DRVNUM
RKDS
RKER
T.DS
T.ER

DATA CHECK

ERROR ITEM 7

SEQ 0048

I
B
L

TETETE

ERROR I TEM
3 6

[

001430
001432
001434
001436

PAGE 49

DT005
DFO05
A

001424
001426

14:14

IR B

2503
2504

MACY11 30A(1052)
19-JUN-B0
ERROR POINTER TABLE

EM7N:
DH7N:

060756

(DESCRIPTION OF OPERATION)
TST NUM ERR PC
DRIVE
DRVNUM
STESTN SERRPC_

RKCS1
T.0.50

RKCS2
T..82

RKDS
1.0%

RKASOF
T.ASOF

THE ERRORS REPORTED BY THIS FORMAT ARE:
NON-EXISTANT DRIVE
NON-EXISTANT MEMORY

CONTROLLER TIME OUT

UNIT FIELD ERROR

MULTIPLE DRIVE SELECT
PROGRAMMING ERROR

UNIBUS PARITY ERROR
ILLEGAL FUNCTION CODE

DESCRIPTON OF OPERATION CAN BE ANY COMMAND, EITHER LEGAL OR ILLEGAL
.WORD
.WORD

DT1007

0
0

DFO07

RKER
T.ER

ERROR ITEM 10

(DESCRIPTION OF ERROR)

CZR6KFO RK6 FCTNL CTRL DIAG
CIR6KF P11
19-JUN-B80 14:04
2559
2560
2561
2562
2563

MACY11 30A(1052)
19-JUN=-B0
ERROR POINTER TABLE
.
.
i
i
.

gggg

14:14

PAGE 30

SEQ 0049

ERROR AT COMPLETION OF OPERATION
{DESCRIPITON OF OPERATION)
TST NUM ERR PC DRIVE
STESTN SERRPC DRVNUM
EXPT
18

SREG!

$REG10

2566

THE ERRORS REPORTED BY THIS FORMAT ARE SOF TWARE DETECTED 8Y

2568

ERRORS ARE;

2567

2569
2570
2571
2572

%232

2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586

001450
001452
001454
001456

2589
2590
2591
%gg%

001460
001462
001464
001466

000000
060007
060576
060776

EMION:

.WORD
DHO10
DT015
DFO10

i*
i

ERROR ITEM 11
(ERROR INDICATOR OR STATUS BIT)

000000
060133
060526
061016

2594
2595
%ggg
2598
2599
2600
2601
2602
2603
2604

001470
001472
001474
001476

2607
2608
2609
gg}?

001500
001502
001504
001506

000000
060162
060526
061016

gggg

2612
2613
2614

WORD COUNT INCORRECT
BUS ADDRESS INCORRECT
CYLINDER ADDRESS INCORRECT
TRACK ADDRESS INCORRECT

it
I
i
i
i*

gggg

000000
060213
060526
061016

COMPARING EXPECTED RESULTS WITH ACTUAL RESULTS.

.
3o
.
it

EMIIN:

THE SPECIFIC

SECTOR ADDRESS INCORRECT
O

NOT SET AS A RESULT OF
(ANOTHER ERROR INDICATOR, STATUS BIT, OR OPERATION
TST NUN ERR PC DRIVE
$STESTN SERRPC DRVNUM
RKCS1
RKCS2
RKDS
RKER
RKASOF
RKMR1

.05

.WORD

DHO11

1..%%

1.8

T.ER

T.ASOF

T.MR1

DT010
DFON
e
T
I

ERROR ITEM 12
THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS:
“NOT RESET AS A RESULT Of"

EM12N:

.WORD
DHO12
pT010
DFO1

.
T
i

ERROR ITEM 13
THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS:
“'SET AS A RESULT OFf"

EMI3N:

.WORD
DHO13
DT010
DFON

i
it
i

ERROR I1TEM 14
THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE 1IS:
“RESET AS A RESULT Of"

]
000000
00
00

MACY11 30A(1052)
19-JUN-80
ERROR POINTER TABLE

EM14N:

WORD
DHO14
DT010
DFO11

000000
057174
060576
061040

&
PAGE 51

»
%

(HEADER WORD MISCOMPARE) OR

SEQ 0050

TST NUM ERR PC

DRIVE

(DATA MISCOMPARE)

STESTN SERRPC
DRVNUM
WORD NUM
BAD
600D
SREG10 SREG11
SREGT2

TRIR
TR

001520
001522
001524
001526

ERROR ITEM 15

061016

14:14

EM15N:

.WORD 0
DHO02A
DT015
DFO15
ERROR ITEM 16

ADDITIONAL LINES OF GOOD, BAD, WORD NUM FOR ERROR 15
0
0
DTO15A
DFO16

000000
000000
060604
061050

.WORD

.WORD
.WORD

]

B
.

.BYTE
.BYTE
.WORD

e s g
s e

.
.
.

000000

.WORD
.WORD
.WORD

[elelelelelelelelelelelelele] oo

.WORD

.WORD
.WORD
.WORD

f: .WORD
:

[=lelelelele] oos

-<
—

(]

] ) ] ] ) ] —] — — ] — — —
Ll o . . .
K .
<

)
)

.WORD
.WORD

MR3:

000000
000000

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

:
:

LSBTTL
.CS1:

S rOISERR

T
e
B

000000
000000
000000
000000

oo
O

8888888888

I e
I )

888888888888888S

;PRESET WITH INTERRUPT ENABLE

.WORD
.WORD
PROGRAM DEF INED VARIABLES

(alal

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-B0 14:04
CZR6KF .P11

MACY11 30A(1052)

19-JUN-B0

14:14

PROGRAM DEF INED VARIABLES
ooOo

CIR6KFO RK6 FCTNL CTRL DIAG
.P11
19-JUN-B0 14:04
CZROKF

PAGE 52

SEQ 0051

000000
000000
000000

RKVEC:
RKPRI:

000000
000000
000024

DRVNUM:
DRVBIT:
ERRCNT:

.WORD
.WORD
.WORD

0
0
*

000024
061200

EQRLMT:
BSF24P:

.WORD
.WORD

“D20
BS24

061054

BSF26P:

.WORD

BS26

(FACTORY)
:
PO{?;E?OTe BAD SECTORS 26 SECTOR MODE

000000

BSS24P:

.WORD

;POINTER TO BAD SECTORS 24 SECT MODE

000000

BSS26P:

.WORD

;POINTER TO BAD SECTORS 26 SECTOR MODE

000000

BS26CT:
BS24CT:
MILCNT:
TIMCNT:

0
0
“D500
“D15

001660
001662

000000

INTSET:

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

;NON-ZERO IF RKO6 INTERRUPT SINCE

001664

000000

OPTFLG:

.WORD

:"PTION FLAGS

DOTST=

BITO

SRTFLG:

000001

.WORD
.WORD

.WORD

MEMSZB= BITI
MEMPYB= BIT2

SRTINS= BIT3

PARPRE= BIT6

BSERPT= BIT7
FPFMT=

333333

0= 200
1 =214

= 204

DRIVE UNDER TEST
:WORD TO STORE BIT TO INDICATE DRIVE UNDER TEST
:ERROR COUNTER TO LIMIT ERROR
:ERRORS REPORTED IN PROGRAM
:DATA COMPARE ERROR LIMIT
:POINTER TO BAD SECTORS 24 SECTOR MODE

; (SOF TWARE)

(SOF TWARE)
;
;COUNT OF BAD SECTORS 26 SECTOR MODE
:COUNT OF BAD SECTORS 24 SECTOR MODE
:COUNT TO APPROXIMATE 1 MILL SEC
:COUNTER FOR MYTIME ROUTINE

;LAST CLEARED

;:DRIVE 0 TO BE TESTED FLAG

;MEMORY SIZE REPORT FLAG
;MEMORY PARITY REPORT FLAG

;START UP INSTRUCTIONS REPORTED FLAG
;PARITY PRESENT FLAG

;BSE HAS BEEN REPORTED

;FIRST PASS FORMAT SWITCH

:CP IS 11/70 FLAG
;DRIVE NUMBERS REPORTED FLAG
;LINE CLOCK PRESENT

000000

DRVDRP: .WORD
MEMPAR: .WORD
CSRPTR: .WORD

0
0
O

;LIST OF DRIVES DROPPED
;WORD OF PARITY FLAGS
:PO;:;E?YYO CSR TO USE FOR SETTING BAD

000000
000000

LCLKTK: .WORD
REFMT:
_WORD

O
O

;LINE CLOCK TICK COUNTER
;REFORMAT SWITCH FOR HALT

888888

BIT8

CP1170= BIT10
DRVRPT= BIT11
LCLKPR= BIT15

100000

;RK VECTOR
;RK PRIORITY
:START FLAG

DESHLD:

000100

SRCHLD:
WRDNUM:
WRDCNT:
KWLADD:
KWLVEC:

THE FOLLOWING & VARIABLES ARE USED TO STORE PARAMETERS FOR

HEADER 08 DATA COMPARE CONTINUATION PROCESS.
.WORD
;DESTINATION HOLD

.WORD
.WORD
.WORD
.WORD
.WORD

0
0
O
1
1

: SOURCE HOLD
;WORD NUMBER IN ERROR HOLD
;WORDS LEFT IN COMPARE HOLD
:KW11=L ADDRESS
;KW1i=L VECTOR

14:14

PROGRAM DEF INED VARIABLES

172100
000114

MEMBAS:
MMVECA:

DTYPE:

TYPTBL:

000000

.SBTTL

.WORD
.WORD

172100
114

PAGE 53

SEQ 0052

:MM11 ADDRESS
:MM11 VECTOR

:DRV TYP

:DRV 0
:DRV 1

0=RK06, 2000=RK07

0=Rk06, 2000=RK07

:DRV 2

:DRV 2
;DRV &

:DRV §
:DRV 6
:DRV7

PROGRAM SETUP

001742
001750

012737
000412

000002

001624

SETCLK: MOV
BR

#2,SRTFLG
START1

;SET START FLAG FOR CLOCK ADJUST

001752
001760

012737
000406

000001

001624

PARM:

MOV
BR

#1,SRTFLG
START1

:SET START FLAG FOR PARMETER START

001762
001770

012737
000402

177777

001624

RESTRT:

MOV

#-1,SRTFLG
START1

:LOAD START FLAG FOR PARMETER START

001772
001776

005037

001624
001100
000340
002016

045146
001676

OO NNNNNNNNN
L
L A
U sl A
N
NNNNNNNNNNYN

—

88
WV WAerO
RO NN

SREIR

002022

CLR
START:
START1: RESET
MOV
MOV
MOV
RTI

1%:

.SBTTL

SRTFLG
#STACK,SP
#PR7,-(SP)
#1%,-(SP)

;CLEAR START FLAG

;RESET THE WHOLE SYSTEM

sINITIALIZE STACK POINTER
:LOAD STACK TO LOCK OUT ALL INTERRUPTS
:LOAD START OF PROGRAM
;LOAD PSW

PC,STKINT
sINITIALIZE KEYBOARD
:CLEAR REFORMAT SWITCH
REFMT
CLR
INITIALI IE THE COMMON TAGS

JSR

;sCLEAR THE COMMON TAGS (SCMTAG) AREA

MOV

CLR
CMP
BNE

#SCMTAG, R6

::FIRST LOCATION TO BE CLEARED

::CLEAR MEMORY LOCATION
(R6) +
#SWR,R6 ; ;DONE?
::LO0P BACK IF NO
.6

1:SETUP THE STACK POINTER
#STACK,SP
MOV
VECTORS
FEW
A
;:INITIALIZE
E ;;10T VECTOR FOR SCOPE ROUTINE
,a# 10TVEC
#$SCOP
MOY
2 ;:LEVEL
#340,9#10TVEC+
MOV
P;EMT VECTOR FOR ERROR ROUTINE
mmvsc
#3ERROR
MOV
7
;:LEVEL
+2
#340,90ENTVEC
MOV
FOR TRAP CALLS
VECTOR
::TRAP
ootaarvts
ogzalr
MOV
7
LEVEL
#340, 90 TRAPVEC+2;
MOV
#3PWRON umvsc : :POVER FAILURE VECTOR
MOV
#340,90PURVEC+2 ;:LEVEL 7
MOV
$ENDCT,SEOPCT ::SETUP END-OF -PROGRAM COUNTER
MOV
SLINITIALIZE NUMBER OF |TERATIONS
$TiNES
CLR
“'CLEAR THE ESCAPE ON ERROR ADDRESS
$ESCAPE
(LR

19-JUN-BO

(lalel ]

MACY11 30A(1052)

[=lelelelelelelel-]

_—
e
e e

bv‘gV‘V‘NNNN
NOOSNNO
oo

2738

7
7
7
7

NNNNNNNNN

7
7
7

TS S

7
7
7

WA
= OO0

2727

888888888 88

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-8 0 14:04
CZR6KF P11

000001
002152
002160

%733

002166

013749

000004

2790

002200

012737

177570

2792
2793

00221&
002222

022777
001012

2795
27Q6
2797
2798
2799
%gg?

002224
002226
002232
002234
002242
002250

000403
012716
000002
012737
012737
012637

2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816

002254
002260
002266
002270
002276

005037
132737
001403
012737
.

001304
000200

001317

001320

001140

002276
002;02
002304
002312
002314

005227
001046
022737
001442
104401

177777

002320
002324

005737
001012

2818
2819
2820
2821
2822
282%
2824
2825
2826

002334
002336
002344
002346
002350
002352
002360
002360

001406
023727
001005
104406
000403
112737

786

2787

789 002172

2791

2794

2817

012737

002206 012737

002326

2827 002420

123727

002420
002426
002430
002434
002442
002444

132737
001061
004737
023727
103007
104401

2835
2836
283
2838

002456
002462
002462
002466

002450

001140

032162

000042

002362
.
000042

001316

000001

001140

000176

0000017

001134

65%:
66%:

032234
032574

000740

000137

051075
000001
031772

032020

012700
012701

070414
002000

MOV

IDSUR SHR

s3SETUP FOR A HARDWARE SWICH REGISTER

#64S,QPERRVEC

000155 DISPLAY
#-=1 BSU
66%

::SET UP ERROR VECTOR

;:AND A HARDWARE DISPLAY REGISTER

:,TRY TO REFERENCE HARDWARE SWR
::BRANCH IF NO TIMEOUT TRAP OCCURRED
:2AND

THE HARDWARE SWR IS NOT = -1

BR
MOV
RTI
MOV
MOV
MOV

65%
#65%, (SP)

:iBRANCH IF NO_TIMEOUT
:3SEV UP FOR TRAP RETURN

CLR
BITB
BEQ
MOV

$PASS
WAPTSIZE,SENVM
67%
#SSWREG, SWR

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

CMPB

SENV. M

::ARE WE RUNNING UNDER APT?

718
#1,8AUTOB

;:SET AUTO-MODE INDICATOR

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

678:
.SBTTL TYPE PROGRAM NAME
;;TYPE THE NAME OF THE PROGRAM IF FIRST PASS
INC
-1
ssFIRST TIME?
BNE
68%
:;BRANCH IF NO
CMP
#SENDAD,a#42
::ACT=112
BEQ
68%
..BRANCH IF YES
TYPE
698
:TYPE ASCIZ STRING
LSBTTL GET VALUE FOR SOF TWARE SUIYCH REGISTER
TST
G2
::ARE WE RUNNING UNDER XXDP/ACT?
BNE
708
:*BRANCH IF YES

7OS
718:

::69%:

001317

..SAVE ERROR VECTOR

CMP
BNE

64%:
001140
001142

FERRVEC , = (SP)

MOV

176716

002234
000176
000174
000004

::ALLOW ONE ERROR PER TEST
..lNlYlALlZE THE LOOP ADDRESS FOR SCOPE
TUP THE ERROR LOOP ADDRESS

MOV

177570 001142
177777

01 ,SERMAX
8LPADI
"SLPERR

::SIZE FOR A HARDUAIE SWITCH REGigTER IF NOT FOUND OR IT IS

000004

000200

012737

MOVB
MOV
MOV

:2EQUAL TO A ''=1'", SETUP FOR & SOFTWARE SWITCH REGISTER.

000417

2828
2829
2830
2831
2832
2833

2834

002226

001115
001106
001110

688:

BEQ
CMP
BNE
GTSWR
BR
MOVB

::BRANCH IF YES
::SOFTWARE SWITCH REG SELECTED?
:;BRANCH IF NO
::GET SOFT=-SWR SETTINGS

BR
LASCIZ

68%
sGET OVER THE ASCIZ
<CRLF>*CZR6KFO RKb FCTNL CTRL DIAG*<CRLF>

BITB
BNE
JSR
(MP
BHIS
TYPE

#BIT7,8ENVM
{1
PC,$SIZE
$LSTBK,#740
2%
,OPROOS :

JMP

$EOP

#1,8EO0PCY

sMAKE SURE MEMORY IS SUFFICIENT
;YES - SKIP
:MESSAGE (NOT ENOUGH MEMORY)
:FORCE END OF PROGRAM

MOV
MOV

#1BUFF RO
#2000, R1

:SET UP TO CLEAR 2000
:WORDS OF BUFFER SPACE

MoV

2%:

708
SWR,#SWREG
71%

:TEST IF DO NOT SIZE
‘YES - SKIP

[alel
NN

SEQ 0053

1127 7
0127
012737

5
PAGE 54

als oAl 2Bl all als o8l als sid alt adt ads sbl als sdt sdb adt sl

005144
002152
002160

gres
784
5735

MACY11 30A(1052)
19-JUN-B0 14:14
INITIALIZE THE COMMON TAGS

o8 als o8a o8a oA als o84 aBs aBf sl

CZR6KF
. P11

DIAG
19-JUN-80 14:04

4 _A8 88 o84 -S4 8f ala 88 ol alS
ala a8

CZROKF 0 RK6 FCTNL CTRL

CIR6KFO RK6 FCTNL CTR 01260‘
CIROKF.P11
19-JUN-80 1

2839
2840
2841
284%
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854

2856
2857
2858
2859
2860
2861
2862
2863
gggg

002472 005020
002474 - 005301
oo%are 001375
002500 122737
002506 001003
002510 104401
002514 000000
002516
002516 013700
002522 012701
002526 013703
002532 005004
002534 005737
002540 100005
002542 882100
002544
104
002546 005301
002550 001374
002552 050003
002554 112737
002562 110437
002566
010337
002572 032737
002600 001005
002602 104401
88%2?2 052737

2569

002614

2868
2869
2870
2871
2872
2873
2874
2875
2876
2877

2881
2882
2883

2855

£ 3
MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 55
GET VALUE FOR SOF TWARE SWITCH REGISTER

308:

000013

000041

051146
998:

032574
000006
032572

032316
228:

001327

23$:

001664

3$:

051676
000010

001664

022737

000001

001624

002624
002630
002634
002636
002642
002644
002650
002652
002660
002062

104401
013746
104402
104401
104412
012637
001407
022737
101361
013737

050766
001352

002704
002706
002712
002714
002720
002722
002730
002732

104402
104401
104412
012637
00161;
022737
101757
04§737

2891
2892

002752
002754

005046
113716

2894

002762

006216

2867

002622

001122

000001
001326
001330
000010

051015
001222
160000

001222

001352

2878 002670 104401 051023
2879 002674 013746 001346
2880 002700 042716 160000

2885
2
2887

5%:

7%:

002760

006216

001222

001000

001222

017777

001346

001347

CLR
DEC
BNE
CMPB
BNE
TYPE
HALT

(RO)+
R1
308
#13,a#41
99%
,0PROO7

;LOOP =
SUNTIL =
: DONE
*LOAD FROM XXDP
‘BRANCH IF NOT

MOV
MOV
MOV
CLR
ST
BPL
ROL
ROL
DEC
BNE
BIS
MOVB
MOVB
MOV
BIT
BNE
TYPE
BIS

$LSTBK,RO
#6,R1
$LSTAD,R3
R4
$KT11
238
RO
R4
R
22%
RO,R3
#1,SMTYP1
R4.SMAMS1
R3.SMADR1
#SRTINS,OPTFLG
248
,OPRO16
#SRTINS,OPTFLG

:GET LAST BANK
;SET SHIFT COUNT
‘GET LAST ADDRESS
‘CLEAR R4 FOR OVERFLOW
:MEM MANAGE PRESENT?
:NO = SKIP
SSHIFT BANK LEFT
:ADD IN CARRY
:DECREMENT COUNT
:LOOP IF NOT ZERO
:SET BANK BITS IN LAST ADDRESS
*FORCE MEMORY TYPE TO 1
:STORE UPPER MEMORY ADDRESS
:STORE LOWER ADDRESS
:TEST IF ALREDY REPORTED
IYES = SKIP
‘TYPE STARTUP INSTRUCTIONS
:SET REPORTED FLAG

CMP

#1,SRTFLG

:CHECK IF PARAMETER START

TYPE
MOV
TYPOC
TYPE
RDOCT
MOV
BEQ
CMP
BHI
MOV

,OPROO1
$BASE, - (SP)

STYPE ''RK611 BUS ADDRESS (
) ='
::SAVE S$BASE FOR TYPEOUT
1160 TYPE--OCTAL ASCIICALL DIGITS)

BNE

TYPE
MOV
BIC

TYPOC
TYPE
RDOCT
MOV

051015

2889 002740 053737 001222 001346
108:
2890 002746 104401 051053
2893

SEQ 0054

15$

,OPR002
(SP)+,$TMPO
7%
#160000,8$TMPO
5%
$TMPO, SBASE

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

BEQ
CMP
BLOS
BIC

(SP)+,$THPO
108
#1000, $THPO
7%
#17777,8VECT1

CLR
MOVB
ASR
ASR

<(SP)
SVECT141,(SP)
(SP)
(SP)

BIS
TYPE

$TMPO,$VECT1
,0PROO4

iNO, START TESTING

:GET VALUE
;CHECK IF <CR>
:CHECK IF IN 1/0 PAGE
:LOAD NEW BUS ADDRESS

:TYPE 'RK611 VECTOR ADDRESS (
:GET SVECT1 FOR TYPOUT
:CLEAR PRIORITY BITS
:GET VALUE

:CHECK IF <CR>
;CHECK IF LEGAL
:CLEAR OLD VECTOR

:LOAD NEW VECTOR ADDRESS
*TYPE 'RK611 PRIORITY ( ) =
:SHIFT S5 BITS RIGHT

) ="'

CIR6KFO RK6 FCTNL CYR%ODIAG
CIR6KF.P11
19-JUN-80
14:04
2895
2896
2897
2898
2899
2900
2901
2902
2903

002764
002766
002770
002772
002774
003000
003002
003006
003010

006216
006216
006216
104402
104401
10441;
012637
001430
ozgrsr

2905
2906
2907

003020
003026
003030

2910
2911
2912
2913
2914
2915
2916
2917
2918

D 5
MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 56
GET VALUE FOR SOF TWARE SWITCH REGISTER

051015
001222

000007

001222

022737
101347
006337

0000064

001222

003044
003050
003054
00306
003070
003074
003100
003106
003112

006337
006337
042737
053737
005037
005037
042737
004737
013700

001222
001222
160000
001222
001304
001666
004000
034522
001346

2920
2921

003122
003126

010037
012710

001620
034442

2923
2924
2925
2926
2927
gggg

003140
003144
003150
003154
003160
003162

013702
005037
012746
012746
000002

001352
001264
000000
003162

2904

003016

103753

292

003132

(SP)+,$TMPO
158
#7,$TMPO

CMP
BHI
ASL

#4,$TMPO
10%
$TMPO

ASL
ASL
BIC
BIS
CLR
CLR
BIC
JSR
MOV

$TMPO
$TMPO
1160000, $VECT1+1 ;CLEAR OLD PRIORITY
STMPO,SVECT1+41
;LOAD RK611 PRIORITY
$PASS
:SET PASS COUNT TO ZERO
DRVDRP
:CLEAR DROPPED DRIVES LIST
#DRVRPT,OPTFLG ;CLEAR DRIVE #'S REPORTED FLAG
PC,OPTTST
JSETUP PARITY CHECK & CLOCK
$VECT1,RO
*STORE VECTOR FOR USE

BLO

001222

2908 003034 006337 001222
2909 003040 006337 001222

2919 003116 042700

ASR
ASR
ASR
TYPOC
TYPE
RDOCT
MOV
BEQ
CMP

ASL
ASL
001347
001347

15%:

001664

160000

BIC

113737 001347 001622

2930

MOV
MOV

MOVB

MOV
CLR
NEWPAS: MOV
MOV
RTI
168:
LSBTTL

(SP)
(SP)
(SP)
,0PRO02

10$

$TMPO
$TMPO

#160000, RO

RO,RKVE(
#INTHLR, (RO)

SVECT\**,RKPR]

$BASE ,R2
$ESCAPE
#PRO,=(SP)
#168.-(SP)

:GET VALUE

SCHECK IF <CR>
:CHECK IF LEGAL

;SHIFT S BITS LEFT

*CLEAR PRIORITY BITS

;SETUP INTERRUPT ADDRESS

;STORE PRIORITY FOR USE
*SET BASE ADDRESS
:CLEAR ESCAPE
;SET PRIORITY

«+BASIC INTERFACE AND OPTION TESTS

2931

:;ttt'ttt'ttt'ttt'i"tt't""'i'lttfitttttttitfi'tt'ttt'tit'tt'tti'

2932

;*TEST 1

gggg

2933
2934

it
it

2937

2938

2939

2940
2941

RK611 BASE ADDRESS TEST

CHECK THAT READING THE RK611 BASE ADDRESS (RKCS1) DOES NOT
CAUSE A NON-EXISTANT MEMORY TRAP. IF A TRAP OCCURS
THE PROGRAM IS HALTED.

;:'tttttt"l'tt""'tt'ii"'t"'tttitttttttti'tttttittt.ti'!ttt't

003162

003164

003172
003176

000004

012737
012706
012701

000100

001100
000004

001262

2942 003202 012146
2943 003204 011146
2944 003206 012701 000004
2945 003212 012721 034434
2946 003216 012711 000340
2947
2948

003222
ooszgo

013702
005037

2950

003240

000240

001352
001662

2949 003232 012762 000000 000000

TST1:

SEQ 0055

SCOPE

MOV

#100,$TIMES

::D0 100 ITERATIONS

MOV
MOV
MOV
MOV

(Ri)*.-(SP)
(R1) ,=(SP)
#4 R
#NEXINT,(R1)+
#PR7, (RD)

:STORE OLD VECTOR CONTENTS
:RESET POINTER
:SET VECTOR TO NEM TEST HANDLER
:SET PRIORITY

MOV
MoV

MOV

MOV
CLR

MOV

NOP

#STACK,SP
#6 .R1

$BASE ,R2
INTSET

;CLEAN OFF STACK
:SET POINTER TO VECTOR

:SET POINTER TO RK611 BASE ADDRESS
"CLEAR INTERRUPT COUNTER

#0,RKCS1(R2) :WRITE CS1 TO SEE IN NEM WILL SET

—

CIR6KFO RK6 FCTINL CTR t DIAG
CZR6KF P11
19-JUN-B0 14:04

2951
2952
2953

003242
003244
003243

000240
000240
005737

2955
2956
2957
2958
2959
ggg?

003254
003262
003264
003270
003274
003276

012737
104001
000137
012701
012611
012641

2954

003252

001406

NOP
NOP
ST

001662
053315

MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 57
RK611 BASE ADDRESS TEST
mn

BEQ

001360

043724
000006

MOV
ERROR
JMP
MOV
MOV
MOV

18:

INTSET
18

FEM1,EMIN
1
CTRHLT
#6,R1
(SP)+, (R1)
(SP)+,=(R1)

;TEST IF COUNTER IS 0
:YES = SKIP ERROR REPORT
‘MESSAGE (NON-EXISTANT MEMORY TRAP ERR)
:60 TO CONTROLLED HALT
:RESTORE VECTOR

2962

;:.'t'.Q.t""t'"""""""'Q"ttt.'..t"""""QQ'Q'Q"""'

2963
2964
2965

JeTEST 2
INTERRUPT VECTOR ADDRESS TEST
i
CHECK THAT THE INTERRUPT VECTOR FOR THE RK611 IS SET TO THE
i
EXPECTED ADDRESS. IF INTERRUPT VECTOR IS IN ERROR,

2968

:.'tit"tt't'.'i""""'""""'t"."."'Q.""Q..Qtt"""""

%ggg

2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992

gggz

2995
2996
2997
2998
2999

388?

3002
3003
3004
3005

003300
003302
003310

000004
012737
012762

003316
003322
003330
003332
003334
003336
003342
003344

005037
012762
000240
000240
000240
005737
001011
105737

003350
003352
003360
003362
003366

001004
012737
104001
000137

000100
005000

001262
000010

001662
000300

000000

THE PROGRAM IS HALTED.

f§12:

SCOPE
MOV
MOV

CLR
MOV
NOP
NOF
NOP
TST
BNE
TSTB

001662

001103
»
053315
043724

001360
28:
38:
.SBTTL
.

BNE
MOV
ERROR
JMP

#100,$TIMES
::D0 100 ITERATIONS
#CLR.RKCS2(R2) ;CLEAR SUBSYSTEM, SPECIFICALLY TO
;CLEAR ANY OLD INTERRUPTS
INTSET
CLEAR INTERRUPT COUNTER
#RDY ' IE,RKCS1(R2)
:WRITE CST TO FORCE INTERRUPT

INTSET
38
SERFLG
2%
FEMT,EMIN
1
CTRHLT

:TEST IF INTERRUPT OCCURRED
YES = SKIP ERROR REPORT
TEST IF ERFLG ALREADY SET. IF SO THE
*INTERRUPT WENT TO THE WRONG VECTOR
:AND MESSAGE HAS BEEN REPORTED.
:THEREFORE = EXIT
:MESSAGE (NO INTERRUPT)
;GO TO CONTROLLED HALT

**STATUS VALID TESTS

.';tttttl'Q"tt'tt""""t'ti""'iit"t't"t'!t't'it"ti't"'tt'

TRTEST 3
]

i
i
P
i
i

i
i
i
te

SELECT ALL DRIVES

IF NOT RUNNING IN APT AUTOMATIC ENVIRONMENT,
DETERMINE WHAT DRIVES ARE ON-LINE BY
SELECTING ALL DRIVES. IF NON-EXISTENT DRIVE REPORTED
MAKE SURE STATUS VALIiD IS RESET.
IF DRIVE
PRESENT MAKE SURE NO ERROR EXISTS, DRIVE

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

IF RUNNING IN APT AUTOMATIC ENVIRONMENT, THE DRIVES
IDENTIFIED IN ETABLE ARE TESTED FOR NO ERROR, DRIVE
CYCLED UP, AND STATUS VALID SET.
IF LOCATION 41

INDICATES THE XXDP MEDIA IS ON

SEQ 0056

|
CIR6KF P11

19-JUN-80 14:04

MACY1 3?%(1052)

3007

3008

19-JUN-B0

14:14

r..3

SELECT ALL DRIVES

PAGE 58

SEQ 0057

THE RKO6,

DRIVE O WILL ONLY BE TESTED IF THE PARAM

1S USED,

DRIVE O IS NOT TESTED. THE RESTART (204)

START (214) WAS USED. IF THE AUTOMATIC START (200)

gg}g

WILL RETAIN THE TEST STATUS OF DRIVE 0.

3012
3013
3014
3015

i
i
i
i

IF THE PARAM START IS USED, THE OPERATOR MUST
EITHER PLACE DRIVE 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

3009

. %

VALID TO DETERMINE THE TEST STATUS OF DRIVE 0.

%8}9

]

3018
3019
3020
3021
3022
;8%2

e
T
i
i
;e
i

ALL DRIVES TO BE TESTED MUST BE ON-LINE, CYCLED UP, AND
WRITE LOCK RESET. ADDRESSES OF DRIVES THAT ARE NONEXISTANT EITHER BECAUSE THE DRIVE DOES NOT EXIST OR IS OFFLINE ARE USED TO VERIFY NON-EXISTANT DRIVE ERROR DETECTION.
DRIVES THAT ARE ON=LINE BUT NOT CYCLED UP OR ARE WRITE
LOCKED ARE NOT TESTED.

3025

AT COMPLETION OF THE TEST A MESSAGE WILL BE GIVEN TO

]

3029

003366
003370
003376
003402

000004
012737
005037
104416

000062
001720

3040
3041

003406
003412

012746
012746

000000
003420

3044
3045
3046
3047
3048
3049
3050

003420
003424
003430
003434
003440
003446
003450

013701
012721
012711
012703
132737
1007
005737

001620
034442
000340
001354
000200

ggz%

3051
3052
3053
3054

3055

3056
3057
3058
3059

003404

003416

003454
003456
003464

003466

003472

003474
003502
003504
003512

3060 003514
3061
3062

ANY OTHER TEST THAT FOLLOWS.

i
it
i*

34
035
2036
3037

gggg

NOTE: THIS TEST MUST BE RUN AT LEAST ONCE BEFORE

3030
3031
3032

3033

IDENTIFY THE DRIVES TO BE USED IN TESTING.

%8%9
3028

003520
003526

001262

1ST13:

104003

000002

001004
032737
001402

001317

001304

004000

001664
508:

000137

004142

123727
001111
022737
001411

000041

000013

000001

001624

052737
042737

000001
000001

005013

104401

051146

001666
001664

92%:

L A

ARl

SCOPE
MOV
#50.,8TIMES
CLR
DTYPE
TSSINIT
ERROR

::D0 50. ITERATIONS
;ASSUME RK06
:CALL SUBSYSTEM CLEAR AND TEST

MOV
MOV

#PRO,-(SP)
#1%,-(SP)

:SET PROCESSOR PRIORITY TO ALLOW
:RK611 INTERRUPTS

MOV
MOV
MOV
MOV
BITB
BNE
TST

:GET VECTOR
RKVEC,R1
#INTHLR, (R1)+ ;LOAD INTERRUPT VECTOR
#PR7,(R1)
;GET ADDRESS OF DEVICE MAP
#SDEVM,R3
#BIT7,8ENVM
:TEST IF SHOULD SIZE
50%
:NO = SKIP DRIVE SIZING.
$PASS
;TEST IF FIRST PASS

JMP

RTI

1%:

THE DETERMINATION OF WHETHER EACH DRIVE IS AN
RKO6 OR AN RKO7 IS MADE IN THIS TEST, AND A
TABLE IS MADE ACCORDINGLY.

BNE
BIT
BEQ

CLR

50%
#DRVRPT,OPTFLG
928

:NO = SKIP TO DRIVE SELECT TEST
:TEST IF DRIVE #'S REPORTED
:NO = GOTO SIZING

(R3)

;:CLEAR DEVICE MAP

(MPB
BNE
CMP
BEQ

aki1,n3
77%
#1,SRTFLG
2%

BIS
BIC

#B110,DRVDRP
#DOTST,OPTFLG

TYPE

,OPR0OO7

;TEST IF RKO6 IS LOAD DEVICE
sNO - SKIP
:WAS START AT PARAM?
sYES = SKIP

:NO TEST OF DRIVE 0

;SET DRIVE O DROPPED
:DR FLAG = NO TEST DRIVE 0

[lalel
~NN

CIR6KFO RK6 FCTNL CTRL DIAG-

MACYTT 3?;(1052)

3063
3064
3065
3066
3067
3068
%8?8

003534
003536
003542
003546
003552
003560
003566

000477
104401
005037
005037
012737
012737
104417

3071
gg;%

003570
003572

104423
104002

3074
3075
3076
3077
3078
3079
ggg?

003574
003576
003604
003606
003614
003616
003624

104420
032737
001431
032737
001014
032737
001406

100000

001540

010000

001550

000040

001554

ggg%

003626

012737

002000

001720

3084
3085
ggg?

003634
003636
003640

104416
104003
000744

3088
3089
3090

003642
003644

104421
104004

3091
3092
3093
3094
3095
3096
3097
3098
3099
g}g?

003646
003652
003660
003666
003670
003674
003676
003704
003706
003714

104401
042737
052737
000422
005737
001010
032737
001322
012737
000716

051146
000001
000001

3102
3103
g}gg

003716
003724
003726

3106
3107
3108
g}?g

051146
001610
001232
000101
003646

2%:
001600
001264

3%:

;

001232

7%
,OPRO06
L.CS2
$TMP4
#SELDRV,L.CST
#48,SESCAPE

;MESSAGE - SWAP PACK ON DRIVE OFF LINE.
;SET TO DRIVE 0
;CLEAR FOR USE AS A SWITCH
;LOAD FOR SELECT
;SET UP ESCAPE IN CASE OF ERR
;LOAD RK & DO SELECT

TWAT16
ERROR

;WAIT 16MS FOR COMPLETION
:NOT DONE ON TIME

TGE TRK
BIT
BEQ
BIT
BNE
BIT
BEQ

#CERR,T.CST
5%
#NED,T.CS2
(3
#DTYE,T.ER
26%

;GET RK REGISTER
;TEST IF CERR
:NO = SKIP
;TEST IF NED
;YES = SKIP
;ELSE SEE IF DRIVE TYPE ERROR
:BR IF NO

Mov

#CDT,DTYPE

;ELSE SETUP FOR RKO7

c6$:

TCHKOP
ERROR

4 ;0R5,6,7

4$:

TYPE
BIC
BIS
BR
TST
BNE
BIT
BNE
MoV
BR

,OPROO7
#DOTST,OPTFLG
#B1T0,DRVDRP
7%
$TMP4
6%
#DRDY,T.DS
3%
#-1,8TMP4
3%

;CHECK THE OPERATION AND REPORT THE ERROR
;AFTER THE ERROR IS REPORTED THE TEST
;1S ABORTED

;TYPE 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 RESET
;YES = SKIP TO CHECK IF IT IS SET AGAIN
;ELSE CHECK READY
;STILL SET = GET STATUS AGAIN
;ELSE SET FLAG TO INDICATE READY WENT LOW
;60 GET STATUS AGAIN

BIT
BEQ
BIS

#DRDY,T.DS
3%
#DOTST,OPTFLG

;TEST IF READY SET AGAIN
:NO - GO GET STATUS AGAIN
;ELSE SET DRV O TEST FLAG.

MoV
CLR
MoV
CLR

#35% ,SESCAPE
RO
.
#1,R1
DTYPE

;SET UP ESCAPE IN CASE OF ERR
;CLEAR FOR DRIVE NUMBER COUNTER
;SET BIT O AS DRIVE SELECTOR
;INIT TO RKO6

BIT
BEQ

#DOTST,OPTFLG
9%

;TEST DRIVE 0?
:NO - SKIP

5%:
001552

177777

001232

032737
001712
052737

000200

001552

6%:

000001

001664

77%:

003734
003742
003744
003750

012737
005000
012701
005037

004042

001264

7%:

3111
;}}%

003754
003762

032737
001440

000001

3114
g}}z

003764
003766

104416
104003

3117
3118

003770
003774

010037
012737

000001
001720
001664

8%:

001600

PAGE 59

;INIT SUBSYS
;NOT SUCCESSFUL
;AND TRY AGAIN

000200

001610
000101

BR
TYPE
CLR
(LR
MOV
MOV
TLOADRK

TSSINIT
ERROR
3
BR
3%

;

001664
001666

19-JUN-B0 14:14
SELECT ALL DRIVES

TSSINIT
ERROR
3

;INITIALZE SUBSYSTEM
;ERROR IF NOT SUCCESSFUL

MOV
MoV

;LOAD DRIVE NUMBER
;LOAD DRIVE SELECT

RO,L.CS2
#SELDRV,L.CS1

SEQ 0058

oTM
~NN

CIR6KFO RK6 FCINL CTRL DIAG
CIR6KF P11
19-JUN-80 14:04

.
19=JUN=-80 14:04

19-JUN-80

14:14

SELECT ALL DRIVES

PAGE 60

gggg

004002

104417

TLOADRK

3121
%}%%

004004
004006

104423
104002

TWAT16
ERROR

3124
3125
3126

004010
004012
004020

004022
004030
004032
004040
004042
004046

104420
032737
001031
032737
001404
032737
001403
050137
000406

TGE TRK
BIT
BNE
BIT
BEQ
BIT
BEQ
BIS
BR

#CERR,T.CS1
108
#DRDY,T.DS
35%
#WRL,T.D5
368
R1,DRVDRP
98

3134
3135
3136
g}gg

004050
004052
004054
004062

050113
006300
013760
006200

BIS
ASL
MOV
ASR

:SET BIT = DRIVE PRESET IN MAP
R1,(R3)
RO
DTYPE,TYPTBL(RO)
:SET TABLF WITH DRIVE TYPE INFO
RO

3139
3140

004064
004066

005200
006301

INC
ASL

RO
R1

:BUMPS TO NEXT DRIVE
:SHIFT DRIVE SELECTOK TO NEXT DRIVE.

3142
3143
g;:g

004074
004076
004102

001022
005037
000730

BNE
CLR
BR

11%
DTYPE
8s

:BR IF YES
:ELSE INIT FOR RKO6 TO TEST NEXT DRV

3146
3147
3148
;}gg

004104
004112
004114
004122

032737
001364
032737
001404

010000

001550

000040

001554

3151

004124

012737

002000

001720

3154
3155
3156
3157
g;gg

004134
004136
004140
004142
004150

104421
104004
000000
032737
001037

3160
3161

004152
004154

005713
001004

3127
3128
3129
3130
3131
3132

3133

3141

g}g%

3162

004050

004070

004132

004156

032701

000714

104401

100000

001540

000200

001552

004000

001552

001666

35%:
368

001720

001722
9%:

©N0400

BIT

001720
10%:

MOV

001664

:WAS CERR DUE TO NED?
:YES = BUMP TO NEXT DRIVE
;ELSE SEE IF QRIVE TYPE ERR
:BR IF NO

;ELSE SET UP FOR RKO7

;AND TRY AGAIN

:ELSE REPORT THE ERRORS

12%:

MOV
MOV
TYPE

#BIT7.R1
#7,R0
,OPR0O09

:SET DRIVE SELECTOR FOR DRIVE 7
“SET DRIVE NUMBER 10 7
;TYPE PREFIX TO DRIVE TEST MESSAGE

BIT

R1, (R3)

15$

:YES = SKIP

DEC

:ELSE DECREMENT DRIVE NUMBER

051227

004166
004172
004176

012701
012700
104401

000200
000007
051312

3169

004202

030113

13%:

3172

0924206

005300

14%:

006201
001373

#CDT,DTYPE

:WAS LAST DRIVE DONE?

;ANY DRIVE AVAILABLE?
‘BR IF NOT ZERO

3165
3166
g}g;

004210
004212

#NED,T.CS2
9%
#DTYE,T.ER
24%

“ELSE TEST IF DRIVE READY
:NO - SKIP
JELSE TEST IF WRITE LOCKED
‘N0 - SKIP
:SET THIS BIT AS DROPPED DRIVE

(R3)
12%
,0PR0O08
CTRHLT

000137

3173
3174

#RIT8,RT

.GET RR REGS*ERROR?
SYES = SKIP

TST
BNE
TYPE
JMP

004162

;};? 004204 001007

;WAIT FOR INTERRUPT
;70 SLOW/NOT COMPLETE ERROR

4 :0RS,6,7
O
#DRVRPT,OPTFLG
168

101$:
11%:

043724

g}gz

TCHKQP
ERROR
.WORD
BIT
BNE

24%:

004000

BIT
BNE
BIT
8EQ

:LOAD RK REGS

BNE

ASR
BNE

R1
13%

;TEST IF SHOULD REPORT
:NO - SKIP

;ELSE REPCRT NO DRIVES AVAILABLE
;GO0 TO CONTROLLED HALT

:TEST IF THIS DRIVE TO BE TESTED
:SHIFT BIT SELECTOR TO NEXT DRIVE DOWN
;1F NOT SHIFTED OUT - LOOP

SEQ 0059

CIR6KF .P1Y

MACY1T 3?;(1052)

[Tl

CIR6KFO RK6 FCINL CTRL DIAG

BB inaiN
ONNVOONO

010037
052737

VW
oNO

052737
000412

005000
012701
012737
012737
012737
030137
001035

222 2220

004224

»~

—

o
i
e
i
D e
i

NN A N N N

o
D o

N N W

WN U

O O <O O O O O O Co 0o Co Co 00 OO 0o 00 0O 0O ~J ~
o
~

NN NN w

3175
3176
3177

004272

104401
004140
104401
000757

004000

0041490

000060

001664

004140

000001
177777
177777
004400
001666

001240
001630
0012¢4

17%:

104003

3198

001610
001626
036134
000101

055437

001400

000400
~N

CLR

BIT

R1,DRVDRP

MOV
MOV
MOV
MOV

TSSINIT

001666
19%:
100000

001552

055520

001400

;TYPE

SOME SPACES

;LOOP

18$

;YES = SKIP TO DRIVE INC.

MOV
MOV

RO,L.CS2
RO, DRVNUM

;HAS DRIVE 0 BEEN DROPPED?

:CLEAR SUBSYSTEM
;ERROR FOR BAD CLEAR

DRIVE SELECT
DRIVE NUMBER
DRV TYPE
FOR DRIVE SELECT

PC.GTYPO
#SELDRV,L.CS1

;SET
;SET
;GET
;SET

2
R1,(R3)
19%

;:LOAD RK REGS
;WAIT FOR INTERRUPT
;ERROR TO SLOW/NOT COMPLETE
:WAS THAT DRIVE AVAILABLE
;YES = SKIP

.WORD
WORD
WORD

0
0
1

BIT

#SVAL,T.DS

ASL

;CLEAR DRIVE NUMBER COUNTER
;SET DRIVE SELECTOR TO DRIVE 0
;SET STMP7 NEGATIVE
:SET DRIVE SELECT BIT NEGATIVE
;SET ESCAPE IN CASE OF ERR

BEQ
MOV
ERROR
INC

JTYPE

" ,R1
#-1,8TMP7
#-1.DRVBIT
#18$,$ESCAPE

ERROR

ERROR
001552

SPACE2

14s

TCHKWE

100000

#BIT4!BITS,1018 ;MAKE IT ASCIZ

ERROR
BIT
BNE

18%:

;PUT DRIVE NUMBER IN TYPE LOCATION

TLOADRK
TWAT16

104422
000000
000000
000001
104004

RO,101$

BIS

JSR

030113
001026

L
L W Ll L A A LN U U A A AN N N AN N w
NN
NN
NN
NN NN NININININOND b b b d b e = b
O OVWNOWVESWN
=2O VD NOWVSWND

MOV

001600

104417
104423
104002

004444

;SET DRIVE #'S REPORTED FLAG
;ELSE GO TO STATUS VALID TEST

8NE

104416

010037
010037
004737
012737

TYPE

16%:

SEQ 0060

#ORVRPT,OPTFLG

TYPE
1018

050763

PAGE 61

BIS

BR
15%:

& ;ORS,6,7

18%
NEMLT ,EM3IN
3
RO
R1

;CHECK THAT ERROR OCCURRED
;NONE OF GROUP 1
;NONE OF GROUP 2
;NED IN GROUP 3
;ERROR IF NO ERROR OR WRONG ERROR

;DID STATUS VALID RESET?
;YES - SKIP

;ELSE MESSAGE (SVAL NOT RESET WITH NED)
;BUMP TO NEXT DRIVE
sSHIFT DRIVE SELECT BIT
sALL DRIVES CHECKED

BIT
BNE
BIT
BNE
BR

#BIT8,R1
218
R1,DRVDRP
18%
17%

ERROR

& ;ORS,6,7

:TEST IF DRIVE HAS BEEN DROPPED
:YES = GET NEXT DRIVE
:ELSE CHECK THIS DRIVE
sCHECK NO ERRORS SET
sREPORT ALL ERRORS

BIT

#SVAL,T.DS

;CHECK SVAL SET

TCHKOP

BNE
MOV
ERROR

20
FEMLB,EMIN
3

JYES = EXIT

:YES = SKIP
:MESSAGE (NO SVAL FROM EXISTANT DR)

a—

lalel

19=JUN=-80
MACY11 30A(1052)
14:14
3
SELECT ALL DRIVES

~NN

CIR6KFO Rk6 FCINL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

19-JUN-80
30A(1052)
14:14
13
SELECT ALL DRIVES

001600

20%:

004446
004454

012737

004456
004460

104423
104002

ERROR

004462
004464

104421
104004

ERROR

& ;0R5,6,7

004466

032737
001005
012737
104003
000734

000100

001552

BIT

#VV,T.DS

055402

001400

032737
001410
012737
012737

040000

001552

056514
056754

001470
061022

004474
004476
004504
004506

104417

104003

000103

MoV

TLOADRK

TWAT16

T(HKOP

BNE
MOV
ERROR
BR
22%:

000720

005737
100315
010137
010037
000710

001630

005037
013737
013701
004737

001264
001240
001626
036150

023727
001002
000137

001624

23%:

001630
001240

BIT

BEQ
MOV
MOV
ERROR
BR
TST

BPL

001626

000002

043614

PAGE 62

#PACK,L.CST

22%

#EMLE EMIN

3
18%

;ELSE SET TO DO PACK ACK
;LOAD RK

;WAIT FOR INTERRUPT

;7O SLOW/NOT COMPLETE ERROR

;CHECK FOR ANY ERRORS
:YES = REPORT & ABORT TEST

:DID VvV SET
sYES = SKIP
;MESSAGE (Vv DID NOT SET/

#0SC,T.DS

;TEST IF DSC RESET
;YES = SKIP

3
18%

;''DSC NOT RESET RESULT OF SUBSYS CLEAR"

DRVBIT

LSST gFIDRVBIT IS NEGATIVE

23%
#EMDSC ,EMI2N
#EMSCLR,DFO11A

18%

MOV
BR

RO,$TMP7
18%

R1,DRVBIT

;STORE DRIVE SELECT BIT

CLR
MOV
MOV
JSR

SESCAPE
$TMP7 ,DRVNUM
DRVNUM ,R1
PC.GTYPI

sREV 006
:LOAD LOWEST # DRIVE PRESENT INTO DRVNUM

CMP
BNE

SRTFLG,#2
25%

MOV

21%:

JMP

ADJCLK

:STORE DRIVE NUMBER TO BE TESTED

;GET DRV TYP

;TEST IF CLOCK ADJUST START

:NO = SKIP

;G0 TO ADJUST CLOCK ROUTINE

25%:

004616

:;'t'..t"'.".i"""""""it'i'ti'ttitiitttitii"tt'tt"lltQ'

RELEASE ALL DRIVES

J*TEST &
i
-.o...

‘e
T

000004

012737
104416

000062

001262

104003

013737
012737

001626
000101

001610
001600

MAKE SURE NO ERROR
SETS AND STATUS VALID IS RESET.

RELEASE ALL DRIVES.

S 2222222312222
0022 R R R R R Rt RRRRRRRRRRRRR ]

’

S T4

SCOPE
MOV

#50. ,$TIMES

ERROR

MoV
MoV

DRVNUM,
L .CS2
#SELDRV,L.CSY

TSSINIT

;.00 50. ITERATIONS
JINITIAL I ZE SUBSYSTEM
sBAD 1 N | T

;SET DR | VE NUMBER
|
S ELECT
:SET DRIVE

SEQ 0061

[V
] )

MACY11

CIZR6KFO RK6 FCTNL CTRL DIAG
19-JUN-B0 14:04
CIR6KF P11

5
PAGE 63

3287
3288
g%gg

004646
004650
004652

104417
104423
104002

TLOADRK
TWAT16
ERROR
2

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

3291
g%g%

004654
004656

104421
104004

TCHKOP
ERROR

:
& ;0R5,6,7

;CHECK FOR ANY ERRORS
;REPORT ANY ERRORS

%%gg

004660

012737

Mov

#RLS,L.CS2

;SET DRIVE RELEASE,STILL SET FOR SELECT

3296
3297
%%gs

004666
004670
004672

104417
104423
104002

3300

004674

104421

3302
3303
3304
3305
%ggg

004700
004706
004710
004716
004720

032737
001404
012737
104003

004720

004737

3301

3308

3309

004676

104004

000010

001610

TLOADRK
TWAT16
ERROR
2
TCHKOP

100000

001552

055577

001400
1%:

036034

s*TEST 5

3312
3313
3314
3315

i
e
:®
:®

ot
o

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

000004
012737
104416
104003
012701
013737
012737
005037
104417
104423
104002
104621

3333
gggg

004776
005004

3336
3337

005006
005014

ggg;

3%%8

004774

005022

;:CHECK FOR ANY ERRORS

;OR 5, 6, OR 7 ;REPORT ALL ERRORS

#SVAL,T.DS
1%
#EMLY EMIN
3

;:DID SVAL RESET?
;YES - SKIP
sMESSAGE (SVAL NOT RESET W/RELEASE)

PC,LDCON

;LOAD RKO6-RKO7 CONSTANTS

NON=STANDARD MESSAGES AND SVAL
4

PICK ONE OF THE AVAILABLE DRIVES AND GET
NON-STANDARD MESSAGES. MAKE SURE NO
ERROR OCCURS AND STATUS VALID DOES NOT SET
AND THAT NON-STANDARD MESSAGES CAUSE STATUS

VALID TO RESET.

E.'"i.'itt"t."""""i"t""'tfi..'t'tt"ttiiti.ii"t"'.t't'i
SCOPE
MoV
#50. ,$TIMES
TSSINIT
ERROR
3
MoV
#,R1
MoV
DRVNUM,L.CS2
MOV
#SELDRV,L.CS1
CLR
L.MR1
TLOADRK
TWAT16
ERROR
2
TCHKOP
ERROR
& ;5,6 OR 7

::00 50. ITERATIONS
;CLEAR SUBSYSTEM
:BAD CLEAR MESSAGE
;PRESET R1 FOR MESSAGE PAIR 1
:LOAD DRV _NUMBER
;LOAD SELECT COMMAND
;LOAD FOR STANDARD STATUS
:LOAD RK
;WAIT FOR INTERRUPT
;7O SLOW/NOT COMPLETE ERROR
;CHECK OPERATION
sREPORT ALL ERRORS

001552

BIT
BNE

#SVAL,T.DS
2%

;TEST STATUS VALID SET
: YES-SKIP

001460
061022

Mov
MoV

#EMSVAL ,LEM1IN
#EMSELD,DFO11A

000062

001262

000001
001626
000101
001616

001610
001600

032737
001007

100000

012737
012737

056354
050160

TST5:

1%:

104004

104011

. :ttI't".ttti'fi"i""'i"'iii't'tt"t'tt'.Qt"i'iii'."'t't"'t

3319
3320
3321
3322
3323
33264
3325
3326
3327
3328
3329
3330

BIT
BEQ
Mov
ERROR

TSTLUP: JSR

gg}?

9
%g}
3318

ERROR

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

gg:g 005024 010137 001616
;342 005030 104417

2%:

ERROR

MoV
R1,L.MR1
TLOADRK

;"'SVAL NOT SET RESULT OF DRIVE SELECT"

;LOAD MESSAGE PAIR SELECT
:LOAD RK

SEQ 0062

MACY11 30A(1052)
19-JUN-80 14:14
T4
RELEASE ALL DRIVES

oTM

CIR6KFO Rk6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

CIR6KFO RK6 FCINL CTRL DIAG

CZR6KF P11

19-JUN-80 14:04

MACYTT 3??(1052)

19-JUN-80

14:14

.3
PAGE 64

NON=STANDARD MESSAGES AND SVAL

SEQ 0063

3343
%gzg

005032
005034

104423
104002

TWAT16
ERROR

:WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

3346
%gz;

005036
005040

104421
104004

TCHKOP
ERROR

&4 ;5,6, OR 7

:CHECK OPERATION
:REPORT ALL ERRORS

3349
%ggg

005042
005050

032737
001407

100000

001552

BIT
BEQ

#SVAL,T.DS
b1

;TEST STATUS VALID RESET
;YES=SKIP

3352
3353

%ggg

005052
005060

005066

012737
012737

056354
056371

001470
061022

MOV
MOV

#EMSVAL ,EMI2N
#EMNZPR,DFO11A

:"'SVAL NOT RESET RESULT OF SEL W' NON=0 PAIR"

3356

005070

022701

000003

CMP

#3,.R1

:WAS PAIR 3 SELECTED?

3360

005102

3357
3358
3359

3361

005074
005076
005100

104012

001402
005201
000727

3%:
4%:

gggg

4%
R1
1%
R R

3365
gggg
3369

BEQ
INC
BR

;*TEST 6

3364

3368

ERROR

o
.
*

005102

000004

R R

sYES=SKIP
:BUMP TO NEXT PAIR
+SKIP TO DO IT.
AR R R AR R R R AR AR

R AR

WRITING CS2 AND STATUS VALID

SELECT AN AVAILABLE DRIVE.

R AR

R RNy

MAKE SURE STATUS

VALID IS SET. WRITE COMMAND AND STATUS REGISTER 2.
MAKE SURE STATUS VALID RESETS.

; ;tttttttttttttttttttt't'ttt'tt'ttttt'ttttttttttttitttt'Qtttttt.!

001262

1ST6:

SCOPE

#50.,8TIMES
MOV
TSSINIT

::D0 50. ITERATIONS
:CLEAR SUBSYSTEM

3370
3371

005104
005112

012737
104416

000062

3374
gg;z

005116
5124

013737
012737

001626
000101

3377
3378

005132
005134

104417
104423

104002

TLOADRK
TWAT16
2
ERROR

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

3381
gggg

005140
005142

104421
104004

TCHKOP
ERROR

& ;5,6, OR 7

:CHFCK OPERATION
:REPORT ALL ERRORS

3384
gggg

005144
005152

032737
001007

100000

001552

BIT
BNE

#SVAL,T.DS
1%

;TEST STATUS VALID SET
;YES-SKIP

3387
3388

005154
005162

012737
012737

056354
050160

001460
061022

MOV
MOV

#EMSVAL ,EM1IN
#EMSELD,DFO11A

3%3}

005172

013762

001626

000010

MOV

DRVNUM,RKCS2(R2)

3395
g;gg

005202
005210

032737
001407

100000

001552

BIT
BEQ

#SVAL,T.DS
2%

3398

005212

012737

056354

001470

MOV

#EMSVAL ,EMI2N

;g;g

gg;g

005114

005136

~§§gg 005170

104003

104011

gggz 005200 104420

001610
001600

ERROR

:BAD INIT ERROR

MOV
MOV

DRVNUM,L.CS2
#SELDRV,L.CS1

:LOAD DRIVE NUMBER
:LOAD DRIVE SELECT

ERROR

1%:

TGE TRK

:"'SVAL NOT SET RESULT OF DRV SELECT"
;WRITE CS2 TO RESET SVAL

:GET RK REGS.

;TEST SVAL RESET
;YES-SKIP

3399
3,00
gtg;

005220
005226
005230

012737
104012

056432

061022
2%:

MoV
ERROR

#EMUCS2,DF011A
12

SEQ 0064

:"'SVAL NOT RESET BY WRITING CS2"

%282

.SBTTL

3‘05
gzgg

: tfitttttt"tttt't'tt"tittt'tttttt"t'tttttt'tttttttttt't"'tti'
J+TEST 7
DRIVE TYPE ERROR
t

3408

%2?8

31.11

]

*«CONTROLLER ERROR TESTS

CREATE A DRIVE TYPE ERROR.

MAKE SURE DRIVE

TYPE ERROR SETS AND STATUS VALID SETS.

::2 2222333232333 233323323223333232333333333333333333233332323232232322234232]

3412
3613
3614
;2}2

005230
005232
005240
005242

000004
012737
104416
104003

3417
3418

005244
005252

013737
012737

3421
3422
%2%2

005266
005270
005272

104417
104423
104002

TLOADRK
TWAT16
ERROR
2

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

3425
3426
3427
3428
3429
3430
3431

005274
005276
005300
005302
005304

104422
000040
000000
000000
104004

TCHKWE
.WORD
WORD
LWORD
ERROR

000040
O
O
&4 ; OR 5,6,7

:CHECK OPERATION WITH EXPECTED ERROR
:DRIVE TYPE ERROR

005306

032737

100000

001552

BIT

#SVAL, T.DS

3434
3435

005316
005324

012737
012737

056354
055050

001460
061022

MOV
MOV

#EMSVAL ,EM1IN
#EMDTPE ,DFO11A

3437

005334

gzg%

3436
3438

S NN
-

FRERR
Eere 333333
858585

ot
2k
S WNN—-O

3439

005260

005314

005332

053737

001007
104011

001262

001626
000101

001610
001600

036130

1ST7:

001600

SCOPE
MOV
#50.,8TIMES
TSSINIT
ERROR
3

::00 50. ITERATIONS
;CLEAR SUBSYSTEM
:BAD INIT ERROR

MOV
MOV

:LOAD DRIVE NUMBER
;LOAD DRIVE SELECT

BIS

BNE

1s:

ERROR

DRVNUM,L.CS2
#SELDRV,L.CS1

HOLDZ2,L.CS1

1
1

:LOAD DRIVE TYPE

:REPORT ANY DIFFERENCES (NO ERRORS,
;ADDITIONAL ERRORS, DIFFERENT ERRORS)
:TEST IF SVAL SET

:YES=-SKIP

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

ttttttttttttt'ttt'tt't"'titQttittt'ttttttttttttttttttt'tttttt'

'tesr 10
.......l.....l'

3258

000062

STATUS VALID AND PARITY ERROR

ISSUE A SELECT TO AN AVAILIABLE DRIVE WITH BAD PARITY.

MAKE SURE SPAR, CONTROLLER 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 MESSAGES
AND MAKE SURE ONLY DRIVE INTERRUPT AND ATTENTION
CLEAR ATTENTION WITH DRIVE CLEAR. REPEAT
ARE SET.
FOR ALL AVAILIABLE DRIVES.

nS5
MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 65
16
WRITING CS2 AND STATUS VALID

(Tl 1

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

CIR6KFO RK6 FCTINL CTR
CZR6KF .P11

19-JN-50

DIAG
14:04

N 5
19-JUN=-B0 14:14 PAGE 66
MACY11 30A(1052)
110
STATUS VALID AND PARITY ERROR
A

000062

001626
000101

000020

001262

t§110:

SCOPE
MOV

#50.,8TIMES

ERROR

MOV
MOV

DRVNUM,L.CS?2
#SELDRV,L.CST

TSSINIT

001610
001600
001616

MOV

ERROR

.WORD
.WORD
ERROR

0
0
4 ; OR 5,6,7

;CHECK OPERATION FOR EXPECTED ERROR
;DRIVE SELECTED DRIVE BUS PARITY ERROR
;CONTROLLER DETECTED DRIVE BUS PARITY ERROR
;REPORT ANY DIFFERENCES

MOV

#B1T8,R0

;ROUTINE TO DETERMINE WHICH BIT

013701
001403
006300
005301
001375

001626

MOV

DRVNUM,R1

ASL
DEC

RO
R1

;SHOULD BE SET IN ASOF TO INDICATE
;ORIVE ATTENTION. RO WILL HAVE THE
sBIT THAT SHOULD BE SET FOR THE DRIVE
; IN USE

BIV
BNE
MOV
MOV
ERROR

RO, T.ASOF
4%
#EMDA ,EM1IN
#EMDPAR,DFO11A
11

MOV
MOV
ERROR

#EMDI ,EM1IN
#EMDPAR,DFO11A
1"

BIT
BNE
MOV
MOV
ERROR

#0SC,T.DS
6%
#EMDSC,EMIIN
#EMDPAR,DFO11A
1"

;TEST DRIVE STATUS CHANGE SET
;YES-SKIP

BIT

#SVAL,T.DS

;TEST STATUS VALID SET

MOV

SEMSVAL ,EMIN

ERROR

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

CLR

L.MR1

;CLEAR PAT [N MR1

2%:

3$:

001540

056474
054765

001460
061022

o
-flCDCDigCD
] s!—‘—. v
—.z ONNON
NN -

= WWOW
=S NNNN

040000

001552

056514
054765

001460
061022

W
N

100000

001552

056354
054765

ONwN b4
o

~N
~
w
~

O -

040000

NN=N

001460
061022

4%:

5%:

6%:

001460
061022

005037

001616

052737

100000

7%:

001600

BIT
BNE

BNE

MOV

104011

104417

BEQ

BNE

056540
054765

g c:c*g
~N

:BAD INIT ERROR

000400

g8 gsss sssss
£ g EFEE BEINE

;:00 50. ITERATIONS
;CLEAR SUBSYSTEM

012700

001556

ALY
VWA
~

RRRdddRRRRddd])

;LOAD RK REGS-SELECT W/EVEN PARITY
;WAIT FOR INTERRUPT
;7O SLOW/NOT COMPLETE ERROR

TCHKWE

iRt

#PAT,L.MR1

DRPARERR!SPARERR

00
000000
104004

;:LOAD DRIVE NUMBER
;LOAD DRIVE SELECT
;LOAD EVEN PARITY BIT

TLOADRK

TWAT16

SEQ 0065

3%
2%

#01,7.CS1
5%

;TEST ATTENTION SET

;YES-SKIP

:''DRV ATT NOT SET RESULT OF DRV PARITY ERR'
;TEST DRIVE INTERRUPT SET
: YES-SKIP

:"DRV INT NOT SET RESULT OF DRV PARITY ERR"

:"'DSC NOT SET RESULT OF DRV PARITY ERR'
;YES-SKIP

#EMDPAR,DFOT1A

#CCLR,L.CS
BIS
TLOADRK

;CLEAR TONTROLLER
,LUAD RK REGS TO DO CLEAR

CIR6KF P11

19-JUN-

:06

MACYN 3??61052)

3;
351§ 005574 104421
3;};

005576

104004

3517
3518
3519

005604
005606
005614

001007
012737
012737

005622

104014

056540
056560

gSZZ 005624 032737 040000 001540 @$:

PAGE 67

ERROR

& ; OR 5,6,7

BNE
MoV
MoV

8%
#EMDA ,EMT4N
#EMCCLR,DFO11A

BIT
001510
061022

14:14

STATUS VALID AND PARITY ERROR

TCHKOP

3516 005600 030037 001556
32%2

19-JUN-80

ERROR

RO, T.ASOF

SEQ 0066

;CHECK NO ERRORS SET

;REPORT ALL ERRORS STILL SET

;TEST ATTENTION STILL SET
; YES-SKIP

;"DRV ATT RESET RESULT OF CONT CLR"

BNE
MoV
MOV

9%
#EMDI EMI4N
#EMCCLR,DFO11A

s YES-SKIP

;"DRV INT RESET RESULT OF CONTROLLER CLR'

Mov

#SELDRV,L.CS1

;LOAD SELECT DRIVE

BIT

#01,7.CS1

;TEST DRIVE INTERRUPT STILL SET

3523
3526
3525

005632
005634
005642

001007
012737
012737

056474
056560

001510
061022

gg%g

005652

012737

000101

001600

3530
3531
ggg%

005660
005662
005664

104417
104423
104002

TLOADRK
TWAT16
ERROR
2

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

3534
3535
3536
3537
3538
3539
3540
3541
3542

005666
005670
005672
005674
005676
005700
005704
005706
005714

104422
000010
000000
000000
104004
030037
001007
012737
012737

TCHKWE
.WORD
.WORD
LWORD
ERROR
BIT
BNE
MoV
Mov

000010
0
0
& ; OR 5,6,7
RO, T.ASOF
10%
#EMDA,EM11N
#EMDPAR,DFO11A

;CHECK THAT ERRORS ARE SET
;DPAR SET (NO SPAR 1, REPORT
;ANY DISCREPENCIES

;"DRV ATT NOT SET RESULT OF DRV PARITY ERR"

3545
3546
3547
3548

005724
005732
005734
005742

BIT
BNE
MoV
MoV

#01,7.CS1
1%
#EMDI EM1IN
#EMDPAR,DFO11A

;TEST DRIVE INTERRUPT STILL SET
;YES~-SKIP

;"'DRV INT NOT SET RESULT OF DRV

3551
3552
3553
3554

005752
005760
005762
005770

BIT
BNE
MoV
MoV

#0SC,T.DS
12%
#EMDSC ,EMTIN
#EMDPAR,DFO11A

;TEST STATUS CHANGE STILL SET
: YES-SKIP

BIT

#SVAL,T.DS

;TEST STATUS VALID STILL SET

ERROR

%g%g

ggzz

005650

005722

gggg 005750

3;22 005776

104014

001460
061022

032737
001007
012737
012737

040000

001540

056474
054765

001460
061022

032737
001007
012737
012737

040000

001552

056514
054765

001460
061022

104011

9%:

001556
056540
054765

104011

ERROR

10$:

ERROR

118:

100000 001552 12%:
;557 006000 032737
001007
3558
3559
3560

§221

006006
006010
006016

006024

012737
012737

104011

056354
054765

001460
061022

gggg 006026 052737 100000 001600 13%:
gggz

006034

104417

ERROR

BNE
MOV
MOV

BIS

TLOADRK

;TEST ATTENTION STILL SET.
: YES=-SKIP

PARITY ERR"

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

138
#EMSVAL ,EM1IN
#EMDPAR,DFO11A

: YES-SKIP

#CCLR,L.CST

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

:CLEAR CONTROLLER

;LOAD RK REGS (DO CLEAR)

lalal

CIR6KFO RK6 FCTNL (Tfitob{zG

MoV
MoV

001600

001616

14%:

TCHKOP

SERBS 3

g 32888 & 2888

CgssesEsmererREy

006142

N=O0VNOW

SRR EEE

3605

001556

104014

032737

104014

056540
05637

001410
061022

040000

001540

056474
056371

001510
061022

005201
022701
001340

000004

005037

001616

012737

000105

& ; OR 5,6,7

BIT
BNE

RO, T.ASOF
FEMDA
, EMGN

BIT

#01,T.CST
16%
#EMDI ,EM14N
1EHNZPR.DF011A

BNE

MoV

001600

15¢

MOV
MOV

MoV
ERROR
16%:

;LOAD STATUS PAIR SELECTION
:LOAD RK REGS
;WAIT FOR INTERRUPT
;7O SLOW/NOT COMPLETE ERROR

ERROR

15%:

;SET COUNTER TO SELECT STATUS PAIR
;LOAD DRIVE SELECT

" ,R1

MoV
TLOADRK

TWAT16
ERROR

066
006072

#SELDRV,L.CST

:Enuzpn.oro11n

L.MR1

;CLEAR MR1

MoV

#CLEAR,L.CST

;LOAD DRIVE CLEAR

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

;:CHECK FOR ANY ERRORS
sREPORT ALL ERRORS

ERROR

4 ; OR 5,6,7

MOV

#20,R1
R1
17%

TCHKOP

DEC

BNE
TGE TRK

BIT

001556

056540
050206

001470
061022

040000

001540

056474
050206

001470
061022

BEQ
MOV

RO, T.ASOF
18%
#EMDA ,EM12N

MOV

:SHDCLR.DFO11A

BIT
BEQ

#D1,7.CS1
19%
#EMDI EMI2N
15HDCLR.07011A

ERROR

18%:

:"DRV INT RESET RESULT OF NON-0O PAIR SELECT"

CLR

104421
104004

104420

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

;:BUMP PAIR SELECT
sALL PAIRS DONE?
:NO-LOOP

ERROR

17%:

sTEST ATTENTION STILL SET
; YES-SKIP

R1
#4,R1
14%

TLOADRK
TWAT16

000020

;REPORT ALL ERRORS SET.

INC
CMP
BNE

104417
104423
104002

012701
005301
001376

;CHECK IF ANY ERRORS SET

MOV
MOV

ERROR

;SET COUNT FOR SHORT WAIT
:;glctgou CONTROLLER TIME TO POLL
-;GET RK REGS

sTEST ATTENTION RESET
;YES=-SKIP

;"'ATTENTION NOT RESET RESULT OF DRV CLEAR
;TEST DRIVE INTERRUPT RESET
: YES-SKIP

;"'DRV INT NOT RESET RESULT OF DRIVE CLR"

SEQ 0067

~ O~

1
000001
000101

C 6
19-JUN-80
14:14 PAGE 68
MACY11 30A(1052)
110
STATUS VALID AND PARITY ERROR

lalal

CIR6KFO RK6 FC TNL CTRL DIAG
19=JUN- 0 14:04
CIR6KF. P11

1
MACY11 30A(1052)
110

D 6
19-JUN-80 14:14 PAGE 69
STATUS VALID AND PARITY ERROR

:'Q!"Qt"t'.""""""""'"""QQ".Q"'.""""'."Q'Q"'t

SeTEST 11
:l

it
e
i
v

it
=4

000004
012737

104416
104002

013737
012737

000062

001626
000101

001262

T$T11:

ISSUE A SUBSYSTEM CLEAR. SELECT AN AVAILABLE
DRIVE. PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE
A RELEASE COMMAND. CLOCK THROUGH PHASE ADDRESS 2.
TURN OFF DIAGNOSTIC MODE. MAKE SURE UNIT FIELD
ERROR SETS.
SCOPE

MOV

#50.,8TIMES

::D0 50.

ERROR

:BAD INIT ERROR

MOV
MOV

DRVNUM,L.CS2
#SELDRV,L.CS1

;SELECT A DRIVE
;DO DRIVE SELECT

TSSINIT

001610
001600

TLOADRK
TWAT16

ERROR

104421
104004

TCHKOP
ERROR

& ; OR 5,6,7

BIS

#RLS,L.CS2

006336

104417

006340

004437
023
002

036316

042762

000040

000010
000040

0016
0016

052737
012737

104417
104423
104002

3
SO
O
WNO WS W nN—=O

sEsEss A3I

UNIT FIELD ERROR ON RELEASE

s;l'tttt.ttt'it't""'t'tt"'t"'tttt"'tt"'t'ttt.ttttttt't"t"

006322
006330

MOV

000026

;LOAD RK
:WAIT FOR INTERRUPT

:T0 SLOW/NOT COMPLETE ERROR
:CHECK FOR ANY ERRORS

:REPORT ALL ERRORS.
:LOAD RELEASE

:SET DIAGNOSTIC MODE
:LOAD RK

R4 ,MCLOCK
D19

:CALL MAINT CLOCK
:NUMBER OF PHASES

BIC

#DMD ,RKMR1(R2)

;CLEAR DIAG MODE

TWUAT16

ERROR

TCHKWE
.MORD
- .MORD
.WORD

ERROR

104004

ITERATIONS

:CLEAR SUBSYSTEM

JSR
.BYTE

.BYTE

104422

104416
104002

#OMD,L .MR1

TLOADRK

104423
104002

006372
006374

SEQ 0068

19%:

006260

3639

lalal

CIR6KFO RK6 FCINL CTRL DIAG
19-JUN-B0 14:04
CZR6KF P11

2
0
0UFERR

& ; OR 5,6,7

Eggggnr ;

:NUMBER OF CLOCK XISTIONS

:WAIT FOR INTERRUPT

:T0 SLOW/NOT COMPLETED
:CHECK OPERATION WITH ERROR

;UNIT FIELD ERROR
;REPORT ANY DISCREPENCIES

:CLEAR SUBSYSTEM TO INSURE UFE RESETS

:;ttttt'tttttttQt"'t"'tti"t'ttt'tttt'!tttttttttttt'ttt'tttt.tt

S#TEST 12
;'

it
i

it
it
e

UNIT FIELD ERROR ON SELECT

ISSUE A SUBSYSTEM CLEAR. SELECT AN AVAILABLE
DRIVE. PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE

A SELECT COMMAND WITH MESSAGE ID = 3 AND DRIVE
SELECTED = 0. CLOCK THROUGH PHASE ADDRESS 6.
TURN OFF DIAGNOSTIC MODE. MAKE SURE UNIT FIELD

——

CZR6KFO RK6 FCTNL CTRL DIAG
19-JUN-B0 14:04
CZR6KF P11

MACYT 3??51052)

2079
3680

i
b

000004
012737

3682
3683

104416
104003

000062

006426
006430
006432

104417
104423
104002

006434
006436

104421
104004

006440
006446

012737
005037

006452

104417

006454
006460
006461

004437
026
002

036316

006462

042762

000040

006470
006472

104423
104002

006474

013737

006502
006504
006506
006510
006512

000000
000000
000004

0016
0001

on
— O~

013737

104422

ERROR SETS.

:.'Q"Q"."'t""""Q'Q'""""'lQ'Q.".'Q'Q""""."C"'."

006412
006420

0 12737

E 6
19-JUN-80 14:14 PAGE 70
UNIT FIELD ERROR ON SELECT

001262

T§112:

SCOPE
MOV

#50.,8TIMES

::D0 S0.

ERROR

‘BAD INIT ERROR

MOV
MOV

DRVNUM,L.CS2
#SELDRV,L.CS1

TSSINIT

001610
001600

TLOADRK

TWAT16

ERROR

TCHKOP

000043
001610

001616

1%:

104004

LSBTTL

17O SLOW/NOT COMPLETE
:CHECK FOR ANY ERROR

& ; OR 5,6,7

MOV
CLR

#DMD'BIT1'BITO,L.MR1
:LOAD DIAG MODE & MSG PAIR 3
L.CS2
:LOAD FOR DRIVE 0

:REPORT ALL ERRORS

:LOAD RK

JSR

R4 ,MCLOCK

:CALL MAINTENANCE CLOCK

BYTE

'PLUS 2 TRANSITIONS

BIC

#DMD,RKMR1(R2)

:CLEAR DIAG MODE

ERROR

*TO SLOW/NOT COMPLETED ERROR

MOV

HOLD3,1$

;EXPECTED ERROR

.BYTE

006504

:WAIT FOR INTERRUPT

ERROR

TWAT16

036132

:LOAD DRIVE NUMBER
;LOAD DRIVE SELECT
:LOAD RK

TLOADRK

000026

ITERATIONS

:CLEAR SUBSYSTEM

TCHKWE

WORD
WORD
-WORD
ERROR

*D22

0
O
urs
: OR 5,6,7

*THROUGH PHASE 6

:WAIT FOR INTERRUPT

:CHECK OPERATION WITH ERROR

SUNIT FIELD ERROR SHOULD SET
;REPORT ANY DISCREPENCIES

+«+ATTENTION HANDLING BY CONTROLLER

;:'tti".'..i't"t"""t"l""it'it"itttt'ti.tttt"'tt""tt!'

;*TEST 13
h

:*
o®
ot
H

i
;e
e
‘%

006514

000004

DOUBLE INTERRUPT

ISSUE A SUBSYSTEM CLEAR. ISSUE A RECALIBRATE.
MAKE SURE STATUS VALID IS SET. CHECK THAT SECOND
INTERRUPT OCCURS. AFTER SECOND INTERRUPT
CHECK THAT STATUS VALID IS RESET. ISSUE SELECT

_AND MAKE SURE STATUS VALID SETS.,

CLEAR DRIVE.

CHECK THAT DRIVE STATUS CHANGE SETS
(BIT 14 OF DRIVE STATUS
REGISTER)

:'lttttt't.'ttt'tt"tt't'ttt'tt'!ttt'.lttttttt'tttit'tttt'tlt'tt'
TST13:

SCOPE

006516
006524
006526

012737

104416

000062

MACY11

001262

104003

006530
006536

001626
000113

001610
001600

006544

104011

100000

001552

056354
050247

001460
061022

006610
006612
006614
006616
006624

104437

000401
000404

012737
104002

104420

032737
001410
012737
012737
104012

055647

001370

100000

001552

056354
056601

001470
061022

ERROR

MOV
Mov

DRVNUM,
L .CS2

;LOAD DRIVE NUMBER
;LOAD RECAL

012737
104011

040000

001552

056514
056601

001460
061022

000101

001600

;LOAD RK

;WAIT FOR 1ST INTERRUPT

BIT

#SVAL,T.DS
1%

INTSET

#EMSVAL ,EM1IN
:%HRCAL.DFO11A

;7O SLOW/NOT COMPLETE
;CLEAR INTERRUPT FLAG
;GET RK REGS
;TEST SVAL SET
; YES-SKIP

;''SVAL NOT SET RESULT OF RECAE''
;ABORT TEST

50%

;WAIT FOR INTERRUPT

1%.

TWAT8S
BR
BR

2%
3%

2%:

MOV

#EM50,EM2N

;ALTER MESSAGE ''NO 2ND INTERRUPT OR IT WAS LATE"

3$:

TGE TRK

#SVAL,T.DS

;GET RK REGS
;TEST SVAC SET NOW
;NO-SKIP

ERROR

BIT
cEQ

MOV
MOV

ERROR
BR

4%:

000423
012737

#RECAL,L.CST

ERROR
CLR

BNE
MOV
MOV
ERROR
BR

000437

032737
001010
012737

SEQ 0070

;:00 50. ITERATLONS
;CLEAR SUBSYSTEM
;BAD INIT ERROR

TGE TRK

000463

6
PAGE 71

#50.,8TIMES
MoV
TSSINIT

TLOADRK
TWAT16

001662

5%:

BIT

BNE
MOV
MoV
ERROR
BR
MOV

:NO INTERRUPT RETURN
; INTERRUPT RETURN

3
NEMSVAL ,EMI2N
:SHZINT,DFO11A

50%
#DSC,T.DS

#EMDSC,EMIIN
{EHZINT,DF011A

50%
#SELDRV,L.CST

;"'SVAL NOT RESET RESULT OF SECOND TEST''
sTEST DSC

: YES-SKIP

SET BY ATTENTION

;''DSC NOT SET RESULT OF SECOND INTERRUPT"
;LOAD DRIVE SELECT
:LOAD RK REGS

106417
104423
104002

TLOADRK
TWAT16
ERROR

;WAIT FOR INTERRUPT

104421

TCHKOP

;CHECK FOR ANY ERRORS

104004

ERROR

4 ; OR 5,6,7

;REPORT ALL ERRORS

BIT

#SVAL,T.DS

;TEST SVAC

032737

104011

100000

001552

056354
050160

001460
061022

BNE

MOV
MOV

ERROR

;7O SLOW/NOT COMPLETE ERROR

0%
#EMSVAL ,EM1IN
:%HSELD.DFO\\A

: YES-SKIP

SET

;"'SVAL NOT SET RESULT OF DRV SEL.

[ala

CIR6KFO RK6 FCINL CTRL DIAG
19-JUN-B0 14:04
CZR6KF P11

19-JUN-80
14:14
30A(1052)
T3
DOUBLE INTERRUPT

MACYTT 30A(1052)

19-JUN-B0 14:14
DOUBLE INTERRUPT

i
i
. ¥

000004
012737

104416
104003

:'"tt'"'""Q"'Q'""'""""'Q.Q"QQ.'.".'i"'i"'t.""t't
000062

001262

TST14:

SCOPE

MOV

#50.,8TIMES

::D0 50.

ERROR

:BAD INIT ERROR

MOV

DRVNUM,L.CS2

:LOAD DRIVE NUMBER

TSSINIT

007006
007010
007012

104417
104423
104002

ERROR

007014

104420

TGETRK

001626
000117

001610
001600

MOV

TLOADRK
TWAT16

007016
007024
007026
007034
007042
007044

032737
001010
012737
012737

007046
007052
007054

012700
005300
001376

000031

007056
007064
007066
007074
007102

022737
001407
012737
012737
104013

000001

001662

056774
056622

001500
061022

007104
007106

104421
104004

040000

001540

056474
056622

001460
061022

BIT
BNE

2%:
38

#SEEK,L.CST

:LOAD RK REGS
‘WAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETED ERROR

:GET RK REGS

#D1,7.CS1
2%

;TEST DI SET
SYES-SKIP

;D1 NOT SET RESULT OF SEEK TO SELF'

508

MOV
DEC
BNE

#25.,R0
RO
38

:LOAD AND DECREMENT A COUNT TO
*7ERO. GIVE CONTROLLER A CHANCE TO
“INTERRUPT AGAIN. ERROR IF IT DOES.

CMP

#1,INTSET

;CHECK ONLY ONE INTERRUPT OCCURRED

MOV

NEMMI EM13N

ERROR

MOV

TCHKOP
ERROR

:®
T

#EMSKSF ,DFO11A

;OR 5,6,7

:*MULTIPLE INTERRUPTS RESULT OF SEEK TO SELF'
:CHECK FOR ANY ERRORS
;REPORT ALL ERRORS

RESET ATTENTIONS WITH UNIBUS INIT

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

MAKE SURE ALL ATTENTION RESET.

AR
— b

SYES=SKIP

506

::t't".tl't.t"""t""'""""l""tt'litttti't'"l't"'i't't

;*TEST 15

104416
104003

*LOAD SEEK DCYL LEFT AT 0.

#EMDI,EMTIN
#EMSKSF ,DFO11A

3EQ

50$:

ITERATIONS

:CLEAR SUBSYSTEM

MOV
MOV

ERROR

000417

000004
012737

WAIT FOR INTERRUPT FROM

DRIVE ATTENTION. LOWER PRIORITY AGAIN AND MAKE
SURE ANOTHER INTERRUPT DOES NOT OCCUR. CLEAR DRIVE.

013737
012737

104011

SINGLE INTERRUPT FROM ATTENTION

DO A SEEK TO CYLINDER 0.

006772
007000

PON)
= -2

'SEQ 0071

::"Q""Q"Q'Q"'""""'Q""'"""""""""""'Q"'Qt'.t

SRTEST 14

NNNN

6
PAGE 72

50%:

006756

8888

CIR6KFO Rk6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

000005

001262

TST15:

SCOPE

MOV
#5.,8TIMES
TSSINIT
3
ERROR

AR RN

;:D0 5. ITERATIONS
;CLEAR SUBSYSTEM

;BAD INIT ERROR

——

co—

——y

CIR6KFO Rk6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

19-JUN-B0

MOV
MCV

013737
012737

007140
007142
007144

104417
104423

104002

ERROR

007146

104420

TGE TRK

007150
007156
007160
007166
007174
007176

032737
001010
012737
012737

007200
007204
007206

005037
000005
004737

001662

007212
007216
007222
007230

005037
004737
022737
001372

001674
035314
000012

007232
00724C

012762
004737

000100
034522

007244
007246

000410

007250

040000 001540
056474
056622

BIT
BNE

MOV
MOV

001460
061022

1%:

045146

001674

5%:

000000

012737
012737

032737
001407
012737
012737
104012

001500
061022

040000

001540

056474
056701

001470
061022

'SEQ 0072

DRVNUM,L.CS2
#SEEK,L.CST

:LOAD DRIVE NUMBEFR
:LOAD SEEK (TO SELF=0)
:LOAD RK REGS
;WAIT FOR INTERRUPT

;TO SLOW/NOT COMPLETE
:GET RK REGS

#1,7.C51
1%

sTEST DI SET
JYES-EXIT

#EMDI ,EM1IN
#EMSKSF ,DFO11A

;"'DI NOT SET RESULT OF SEEK TO SELF
:

CLR
RESET

INTSET

:CLEAR INTERRUPT COUNTER
;D0 UNIBUS RESET

:RESET KEYBOARD INTERRUPT

JSR

PC,$TKINT

CLR
JSR
CMP
BNE

LCLKTK
PC,MYTIME
#10.,LCLKTK
5%

;CLEAR TICK COUNTER
sCALL TIMER
:COUNT 10 TICKS (M'LLISECONDS)?
sNO - LOOP

MOV
JSR

#1E,RKCS1(R2)
PC,OPTTST

:SET IE FOR ANY STRAY INTERRUPTS
;SET UP OPTIONS AGAIN

MOV
MOV

#EMUXIT,EMI3N
#EMRSET,DFO11A

TGE TRK
BIT
BEQ
MOV
MOV

#01,7.C51
50%
#EMDI ,EMI2N
#EMRSET,DFO11A

SSROR

2%:

PAGE 73

50%

TWAT16

056637
056701

ERROR

104423

104013

007320

TLOADRK
TWAT16

000450

000414
104420

007316

001610
001600

14:14

RESET ATTENTIONS WITH UNIBUS INIT

007124
007132

104011

001626
000117

MACY 3??;1052)

ERROR

;3‘

:WAIT 16 MS FOR AN INTERRUPT

;NONE IS EXPECTED SO RETURN SHOULD BE

;HERE=-BR TO CONTINUE

TEST.

;INT OCCURRED ON RESET

:"'UNEXECUTED INTERRUPT RESULT OF RESET"'
:GET RK REGS
;TEST DI RESET
sYES-SKIP

:"'DI NOT RESET RESULT OF RESET''

50%:

.SBTTL

++«]LLEGAL DISK ADDRESS ERROR TESTS

':"t..'."..."""i"'""""t".'t'.'t.'tt'li't't.ttt'tltt'.'

TRTEST 16
;

“

S
k3

ILLEGAL DISK ADDRESS (PART 1)

ISSUE A SEEK TO CYLINDER O, HEAD 3. MAKE SURE

ILLEGAL ADDRESS ERROR AND SEEK INCOMPLETE SETS.

CLEAR CONTROLLER AND CLEAR DRIVE.

REPEAT FOR HEADS 4-7,

CHECKING THAT BOTH IDAE AND SEEK INCOMPLETE SET FOR
HEAD 7 AND IDAE ALONE SETS FOR HEADS &, 5, AND 6.

il
N E 2222222223223 323232222 2222222220 Rttt

CIR6KFO RK6 FCINL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11
000004

000012
000003

MACY11

001262

30A(1052)
116

TST16:

I
6
14:14 PAGE 74
ILLEGAL DISK ADDRESS (PART 1)
19-JUN-80

SCOPE
MOV

MOV

007334
007336
—

000113
001626

007340
007346

(==

TSSINIT

#10.,$TIMES

#3,R1

;:00 10. ITERATIONS
;PRESET FOR SELECTING TRACK 3
;CLEAR SUBSYSTEM

ERROR

MOV

#RECAL,L.CST

MOV

SEQ 0073

DRVNUM
L .(S2

;SET UP TO RECAL
;LOAD DRIVE

007354

1044617

TLOADRK

;:LOAD RK REGS

007356
007360

104423
104002

TWAT16

:WAIT FOR 1ST INTERRUPT

007362

005037

007365
007370

104437

007372

012737

007400
007402

104416
104003

007404

013737
012737

007412
007420

001662

110137

007424
007426
007430

104417
104423
104002

007432
007436
007440
007444

032701
001403
032701
001007

007446

104422

007400

001110
1%:

001626
000117
001607

CLR

INTSET

MOV

#1$,SLPERR

;SET LOCAL LOOP ON ERROR

;CLEAR SUBSYSTEM
;BAD INIT ERROR

TSSINIT

ERROR

R1,L.DT

ERROR

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

BIT
BEQ
BIT
BNE

#B1T0.R1
2%
#BIT1,R1
3%

MOVB

000002
2%:

3%:

104422

002002
000000
000000
104415
000010

4%:

&4 ; OR 5.,6,7

B8R

TCHKWE

éeranssxleaa

INC
CMP
BNE

;TEST IF HEAD ADDRESS HAS BIT 0

:NO - SKIP

;TEST IF HEAD ADDRESS HAS BOTH 0 AND 1
;YES-GO CHECK BOTH IDAE AND SKI SET
;CHECK OPERATION WITH ERROR
;ILLEGAL DISK ADDRESS ERROR

ERROR

0
ERROR
SCOP1

104004

IDAERR

SCOP1

000406

#SEEK,L.CS1

TCHKWE

0
0

104004
104415

DRVNUM,
L .CS2

:LOAD DRIVE NUMBER
;LOAD SEEK
;LOAD TRACK

MOV

000001

;WAIT FOR INTERRUPT

MOV

001610
001600

;CLEAR INTERRUPT FLAG

ERROR

TLOADRK
TWAT16

002000
000000
000000

005201
, 022701
001334

TWATBS

104002

*TO SLOW/NOT COMPLETE ERROR

ERROR

;OR 5.,6,7

R
8. R

;REPORT ALL DISCREPANCIES

;LOCAL LOOP ON ERROR

;CHECK OPERATION WITH ERROR
sILLEGAL DISK ADDRESS ERROR
;SEEK INCOMPLETE
;REPORT ANY DISCREPANCIES
;LOCAL LOOP ON ERROR TO 1%
;ELSE BUMP TO NEXT ILLEGAL TRACK
sALL ILLEGAL TRACKS SELECTED?
;NO-LOOP

CIR6KFO RK6 FCINL CTRL DIAG
CIR6KF P11
19-JUN-80 14:04

MACYT 3??;1052)

3959

J 6
19-JUN=B0
14:14 PAGE 75
ILLEGAL DISK ADDRESS (PART 2)

ggg?

'TESY 17

3962
3963
3964

4
o
i

gggg

3967

3
- %

SEQ 0074

ILLEGAL DISK ADDRESS (PART 2)

e
-

ISSUE A SEEK TO CYLINDER 1000, HEAD 0. MAKE SURE
ILLEGAL DISK ADDRESS ERROR SETS.
CLEAR CONTROLLER AND DRIVE
THIS TEST IS BYPASSED FOR THE RKO7 BECAUSE THE RKkO7

CONTROLLER DOES NOT RECOGNIZE THE ILLEGAL DISK ADDRESS

:.tntt"ttt.t't"t'it't't'tt"t"tttttt"tQt't"tt'tttttttttt.t"

3968
3969
3970
gg;;

007510
007512
007520
007522

000004
012737
104416
104003

3973
gg;g

007524
007532

012737
013737

gg;g

007540

104417

TLOADRK

3978
gggg

007542
007544

104423
104002

TWAT16
ERROR

sWAIT FOR 1ST INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

ggg%

007546

005037

CLR

INTSET

;CLEAR INTERRUPT FLAG

3983
gggg

007552
007554

104437
104002

TWAT8S
ERROR

ggg?

007556

012737

MOV

#1%,SLPERR

3988
gggg

007564
007566

104416
104003

3991
3992
3993
3994
3995

007570
007576
007604
007610

013737
012737
005737
001402

000012

001262

000113
001626

001600
001610

T1ST17:

001662

007564

001110
1%:

001626
000117
001720

001610
001600

3996

3997
3998
3999
4000

007612

000137

007644

SCOPE
MoV
#10.,$TIMES
TSSINIT
ERROR
3

::00 10. ITERATIONS
+CLEAR SUBSYSTEM
:BAD INIT ERROR

MOV
MOV

sLOAD RECALIBRATE
;LOAD DRIVE

#RECAL,L.CST
DRVNUM,L.CS2

;LOAD RK REGS

007616

012737

4006

007624

104417

2888

007630

104002

4010
4011

4012
4013
4014

;SET LOOP TO BYPASS RECAL
sCLEAR SUBSYSTEM

MOV
MOV
TST
BEQ
MOV

DRVNUM, L. CSZ
#SEEK,L.CST
DTYPE
2%
#1777,L.0CYL

;LOAD DRIVE NUMBER
sLOAD SEEK
:SEE IF RKO6
:BR IF YES
:ELSE LOAD RKO7 ILL CYL

BR
JMP

b33
15120

MOV

#<IDAERR'!'SKIERR>,4$

;EXP RKO7 ERR

sRKO7 CONTROLLER
;DOES NOT RECOGNIZE
sILLEGAL DISK ADDRESS

sREV 006 THE ABOVE THREE LINES

4003

4007

JWALIT FOR INTERRUPT

TSSINIT
ERROR
3

288;

007626

007632
007634

007636
007640
007642

104423

104422
002000
000000
000000
104004

001000

001614

2%:

MOV

;

MOV

3%:

TLOADRK

TWAT16

ERROR
4%:

TCHKWE
.WORD

LMWORD
.WORD
ERROR

#1000,L.0CYL

#1DAERR,4$

sLOAD DKO6 ILL CYL

;EXP RKO6 ERR

;LOAD RK REGS

2
IDAERR
O
0
4& ; OR 5,6,7

;WAIT FOR INTERRUPT

;TO SLOW/NOT COMPLETE ERROR
sCHECK OPERATION WITH ERROR
;DISK ADDRESS ERROR

JREPORT ANY DISCREPANCIES

—

CIR6KFO RKk6 FCINL CTRL DIAG

CIR6KF P11

19<JUN-80 14:04

MACYT 3??;1052)

4015

19-JUN=-B0

14:14

PAGE 76

ILLEGAL DISK ADDRESS (PART 2)

28}9

LSBTTL

+«+WRITE HWEADER TESTS

4018

R R

R RN

RN R

R R RN R AR R R R R R R

READ BAD SECTOR INFORMATION

' SEQ 0075

R RN

R R AR RA ROy

2853

s+TEST 20

4021

2852

SECTOR FILE, 26 SECTOR MODE.

28%2

CYLINDER 1456 1S USED FOR THE RK07.

4027
4028
4029
4030

e
e
.
v

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 AND

4022

e
I

. %

28%3

.'l

4033
4034
4035
4036
4037

i
i
i
i
e

4039
4040

it
:*

4038

40‘1

4042

2824

007644

007646

000004

012737

ISSUE A READ DATA OF 400 WORDS TO CYLINDER 632,

TRACK 2 TO GET THE FACTORY DETECTED BAD

STORE THE ENTRIES FOR LATER USE.

REPEAT THIS SERIES OF OPERATIONS FOR FACTORY DETECTED
BAD SECTORS 24 SECTOR MODE, SOF TWARE DETECTED
BAD SECTORS 26 SECTOR MODE, AND SOF TWARE DETECTED BAD
SECTORS 24 SECTOR MODE. IF THE NUMBER OF BAD SECTORS FOR
24 OR 26 SECTOR MODE EXCEED 20(10) THE DRIVE IS REMOVED
FROM TESTING.

.':'Qttt'!".l't"'l0"""""""."""'l".'ti'l..t't.t't'i.t'

000001

001262

1§720:

SCOPE

MOV

4045

;

ERROR

4048

;

MOV

#RECAL,L.CS1

4051

TLOADRK

4054

;

2829
28?3

4052
4053

TSSINIT

#1,8TIMES

MOV

DRVNUM,L.CS2

::D0 1 ITERATION

:CLEAR SUBSYS FROM LAST IDAERR
:BAD INIT ERROR

;D0 RECAL CMD

:LOAD "‘L"* REGS INTO RK REGS

:
;

TWAT16
ERROR

;NO INTR

:822

CLR

INTSET

:CLR INIT FLAG

4057

4059
4060

;
:

4058

;

4061
4062
4063

007654
007660
007662

4066

007676

4064
4065

2825
4069

007664
007670

105037
005000

005005
013703
012737

104416

007700

104003

007702

013737

007722

001640
007676
036120

001110
007724

1%:

TWAT8S

:WAIT FOR 2'N INTR

ERROR

CLRB
CLR
CLR

2%
RO

:CLEAR SECTOR POINTER

MOV
MOV

RS
BSF26P,R3
#13,SLPERR

:CLEAR RS FOR BAD SECTOR COUNTING
:SET POINT IN TO STORE BS 26 SECT FORMAT
:SET ERROR RETURN ADDRESS FOR INTERNAL LOOP

ERROR

:BAD INIT ERROR

MOV

LSTCYL,158

TSSINIT

*NOT THERE

:CLEAR SUBSYSTEM

CIR6KFO RK6 FCTINL CTRL D%:Go‘

CZR6KF . P11
4071

4072

4073
4074
4075
4076

28;;
4079
4080
4081
LOB2
4083

2832

19-JUN-80

007710

007714

007716
007720
007722
007723

007724

007726
007730
007732

007734
007736

007740

004437

000121

001023
062737

4094
4095
4096
283;

4099

4100
4101

007762

007770
007772

010000
010002
010010
010016

010022

010026
010030

022700
001014
062737

007722

*NO=-SKIP
*NEXT SECTOR ADDRESS

055746

001360

BNE
MOV

001630
001630
027716

001354
001666

000002

007722

000001
000002

010060

022700

000002

4111

CMPB

25%:

3%:

010074

122737

000002

000013

4114

010104

012737

055746

001360

4118

010116

062737

000002

007722

4120
4121
6122
2152

010132
010134
010142
010144

001005
012737
104001
000716

6125
4126

010146
010152

105037
000651

010112
010114

4119 010124

104001
000732

122737 000027 007722
055746

001103

(MPB

#22.,2%

:PAST APPLICABLE SECTORS?

CMP

BNE
ADD

6%:

4%
#2,2%

6%
#EMS1,EMIN

;sNO=-SKIP
INEXT SECTOR ADDRESS
*NO-SKIP

1
25%

:"'CANNOT READ BS FILES"

#2.R0

:GETTING A BS FACT SECTOR 24 SECTOR FNRMAT?

5%
#2,2%

#1..,2%

:NO-SKIP
'NEXT SECTOR ADDRESS

:PAST APPLICABLE SECTORS?

INO-SKIP

BNE

MOV

NEMS1,EMIN

1
25%

:"'CANNOT READ BS FILES"

ADD

#2,2%

:NEXT SECTOR (BS SOFT 24 SECT MODE)

BNE
MOV
ERROR
BR

6%
#EMS1,EMIN
1
25%

*NO-SKIP
:
:"'CANNOT READ BS FILES

ERROR
BR

001360

INO-SKIP

:GETTING A BS SOFT SECTOR 26 SECT FORMAT?

CMPB

65%:

:PAST APPLICABLE SECTORS?

#1,R0

ERROR
BR

007722

68
#EMS1,EMIN

:GETTING A BS FACTORY SECTOR 26 SECT FORMAT?

CMP

001360

007722

016..23

:LOOP TO 18 IF SW 9 SET

:"'CANNOT READ BS FILES
:CLEAR DRIVE FROM DRIVE MAP
:SET DRIVE DROPPED
;ABORT TEST PASS.

BNE
MOV

4%:

:CHECK FOR ANY ERRORS
:REPORT ALL ERRORS

1
DRVBIT,SDEVM
DRVBIT,DRVDRP
NEWDRV

007722

001021

4115
2}}9

ERROR
BIC
BIS
JMP

BNE
ADD

010102

:}}g

:LOAD "L"* REGS INTO RK
:WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

3
#2,2%

TST

4108

001014
062737

* CYLINDER ADDRESS 632/1456

BNE
ADD

055746

010064
010066

WORD COUNT
BUFFER ADDRESS
SECTOR ADDRESS
TRACK ADDRESS

:TEST FOR ERROR IN OPERATION
INO-SKIP

001040
012737

4109
4110

0
2

:
:
:
:

REGS WITH

: READ DATA

$ERFLG
7%

010044
010046

104001
000751

:LOAD "L

TSTB
BEQ

001103

4103
4104

010054
010056

SCOP1

4102 010036 122737 000026 007722

4105
2}89

=400
IBUFF
BYTE
BYTE

R4 ,LRLOAD

SEQ 0076

4 ; OR 5,6,7

122737 000012

104001
043737
053737
000137

PAGE 77

TCHKOP
ERROR

005700

001066
012737

TLOADRK
TWAT112
ERROR
2

104415

007752
007754

4092
4093

15:

104421
104004

4089
4090

4091

2%:

14:14

READ BAD SECTOR INFORMATION
RDDATA

104417
1044631
104002

105737
001502

19-JUN-B0

JSR

000000

007742
007746

007750

035674

177400
070414
000
002

4086
4087

4088

MACYTT 3?561052)

cMee

CLRB
BR

#2528

$SERFLG
1%

*PAST APPLICABLE SECTORS?

;sCLEAR ERROR FLAG
‘DO NEXT READ

CIR6KFO RK6 FCTINL CTRL DIAG
19-JUN-80 14:04
CIR6KF P11

6178
179
4180
4181
4182

012701

010200
010204
010206
010210
010212
010214
010220
010222
010230
010232
010240
010246

#EMS2,EMIN
1

b
b
—

;SET TO START OF BAD SECTOR DATA

177777

9%:

CMP
BEQ
MOV
MOV
INC
CMP
BNE
MOV
ERROR
BIC
BIS
JMP

#-1,(R1)
118
(R1)+, (R3)+
(R1)+.(R3)+
RS
#21. RS
98
#EMS3,EMIN
1
DRVBIT,$DEVM
DRVBIT.DRVDRP
NEWDRV

;TEST IF WORD ALL ONES (END OF DATA)
:YES-SKIP
:STORE CYLINDER

INC
CMP
BNE
MOV
MOV

RO
#1,R0
12$
#-1,(R3)+
R3,BSS26P

;BUMP TO NEXT

JMP
CMP

1%
#2,R0

056137

001360

001630
001630
027716

001354
001666

108:

118:

177777

001644
000012
007676
000002
177777
000001
001646

MOVBE

007722
128:

wnN
uuum-g
NW
NNNW-—

177777
001650

010402

012700

061054

177777
001642

000013
007676

14%:

:TO_MANY BAD SECTORS

;CLEAR DRIVE FROM TESTING
;SET DRIVE DROPPED
sABORT PASS

;NOW TESTING BS SOFT 26 SECTOR MODE?

:NO-SKIP
; INSERT END OF FIELD FLAG
;SET POINTER TO BAD SECTOR SOF TWARE FIELD
;SET TO FIRST SECTOR THIS MODE
;GO READ IT,

;NOW TESTING BS FACT 24 SECTOR MODE?

BSF24P,R3
1%

;GO READ

RS.BS26CT
RS

CMP

#3,R0

MOV
MOV

#-1,(R3)+
R3,BSS24P

JMP

14$

;STORE TOTAL BS COUNT 26 SECTOR MODE
;CLEAR COUNTER FOR COUNTING 24 SECT BS
;SET POINTER FOR STORING BS
;NOW TESTING BS SOFT 24 SECTOR MODE

:NO-SKIP
: INSERT END OF FIELD FLAG

#1%,2s
1%

;STORE POINTER TO BSS 24 SECTOR MODE
;GET START OF FIELDS BSS 24 SECT MODE
;GO READ IT

MOV
MOV

#-1,(R3)+
RS,BS24CT

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

MOV

#BS26,R0

#8524+52.
,R3

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

CMP
BEQ

#312,(RO)+
268

;TEST IF ANY SECTORS BAD IN CYL 312
;YES = GET OUT

CMP

RO,R3

;CHECK IF ALL OF BUFFER TESTED

move

007722

TRACK AND SECTOR

;BUMP ERROR COUNTER
;DOES IT TOTAL 20 FOR THIS FORMAT?
;NO-TEST AND MORE NEXT ADDRESS

#1,2%

MOV
CLR

BNE

sNO-SKIP
; INSERT END OF FIELD FLAG
sSET TO FIRST SECTOR THIS MODE

13§
#-1,(R3)+

MOV
JMP

13%:

#12,2%

BNE
MOV

MOVB

007722

001636
007676

ONON=N
= NWNON

=1
W

-—h
&»

822288 8382228838

nNON
OWWVONN=N
=NOWNNON=NW

-0

;"'ALIGNMENT PACK. DRIVE ABORTING'

#1BUFF+10,R1

000001

-000

25%

MOV

010372
010376

010354
010360
010366

MOV
ERROR

;CHECK FOR ALIGNMENT PACK
;NO=-SKIP

8s:

000003

010342
010346
010350

IBUFF +6

SEQ 0077

070424

000025

010252

010254
010260
010262
010266
010272
010300
010304
010310
010312
010316
010324
010330
010332
010336

001360

BEQ
BR

ON
WVISN

4168
4169
4170
“an
4172
6173
174
6175
4176
anry

010174

7%:

070422
056041

4165
4166
4167

005737

prurrd

4164

010154
010160
010162
020170
010172

6127
4128
4129
6130
4131
4132
4133
6134
6135
4136
4137
4138
4139
4140
6141
6142
6143
4146
4145
4146
6147
4148
4149
4150
4151
4152
4153
4154
4155
4156
4157
4158
4159
4160
4161
4162
4163

mné
MACY11 30A(1052)
19=JUN-80 14:14 PAGE 78
120
READ BAD SECTOR INFORMATION

MOV

CIR6KFO RK6 FC TNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

010476
010504
010506

012737
104001
000137

2g288828888888

=3=4
nNO
N=0OO0OW=0OWVN0O
=N =WV

4209
4210
4211
4212

27%:

000312

; 000001
08 001644
; 000002
703 061200

16%:

000003

18%:

17%:

001642
19%:

057020

001360

010002

sNO = LOOP
JEXIT
s COUNT

k3
#-1,(RO)
16%
#312,(R0O)+
27%
26%

R3 .M

‘SEE IF 1 ST HALF OF BS 26 TABLE

MOV

BSS26P,R0

‘MOVE UP THE TABLE

BR
CMP
BNE
MoV
BR
CMP
BNE
MoV
BR
BR

MOV
ERROR
JMP

17¢

27%
R3,#2
18%
#B8S24,R0

27%

R3, #3

19%
BSS24P,R0O
27%
28%

#DRVABT ,EMIN
1
25%

:AT THE END OF TABLE ?

:BRANCH IF SO

:CYL 312 BAD ?
:BRANCH IF NOT TRY AGAIN
sELSE ERROR

*BRANCH IF NOT

*SEE I7 DID 2 ND HALF OF BS26 TABLE
*BRANCH IF NOT
;ELSE MOVE UP 1 ST HALF

“SEE IF DID 1 ST HALF OF BS24 TABLE
:BRANCH IF NOT

*ELSE MOVE UP 2ND HALF OF BS24
;ALL DONE

;"BAD SECTOR IN AREA FOR TEST"

28%:

010512

;'Qfittttfifitfitttt"t"""'i"ti"lttt't"t"t"itttt't"'i""iti

;*TEST 21

4213

i
:t

FORMAT IN 26 SECTOR FORMAT

FORMAT CYLINDER 312, TRACK O AND TRACK 1 FOR 26 SECTOR
FORMAT
.
VERIFY FORMAT AND THAT DATA LATE DID NOT
OCCUR WITH WRITE HEADER OR IN READING DATA
BUFFER AFTER READ HEADER.

2222222322322 2323 2223223223222 2222323322323

010512
010514

TS121:

~~N

035674

9%:

ERROR

JSR
WRHEAD

R4,LRLOAD

;LOAD "'L'" REGS

#10.,8TIMES
#312 ,REFMT
10%
11%

=102

OBUFF

11%:

0462260

02 3220002200200 RRRd)

;:D0 10. ITERATIONS
:SET REFORMAT SWITCH
:CLEAR SECTOR POINTER
:CLEAR TRACK POINTER
sCLEAR SUBSYSTEM
;BAD INIT ERROR

MOV
MOV
CLRB

TSSINIT

SCOPE

CLRB

O WO
—-_-grOW
SONN

33
.fligglh o~
Le

01
010

»s

010544
010550
010552

010522
010530
010534
010540
010542

001262
001676

(=T

4223
4224
4225
4226
4227
4228
4229
4230
4231

26%:

27%
28%

SEQ 0078

CLR
CMP
BEQ
CMP
BNE
BR
INC
CMP

BNE

4214
4215
4216

6217
4218
4219
4220
4221
4222

BNE
BR

H
:

010406
010410
010414
010416
010422
010424
010426
010430
010434
010436
010442
010444
010450
010452
010456
010460
010464
010466
010472
010474

o000

4183
4184
4185
4186
4187
4188
4189
4190
4191
6192
6193
194
4195
6196
4197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208

N 6
19-JUN-80 14:14 PAGE 79
MACY11 30A(1052)
READ BAD SECTOR INFORMATION
120

.BYTE
312

JSR
000600

R4, GENTOM

:WRITE HEADER

sWORD CNT FOR 26 SECTOR MODE
:BUFFER
:SECTOR 0
TRALK O

L 0

:GENERATE DATA
;BUILD HEADERS=-NO BAD SECTORS

19=JUN-

7
PAGE 80

FORMAT IN 26 SECTOR FORMAT

010570
010576
010600
010600
010602
010606
010606

012737
000402

4248

010612

104421

104004

ERROR

2%%;

010616

104415

SCOP1

4253
4254
4255
4256
4257
4258
4259
4260
4261
4262

010620
010626
010630
010634
010640
010644
010646
010650
010652
010653

012737
010203
062703
012701
004437
000125
000000
002000
000
000

4265
4266
4267
4268
4269
4270

010656
010660
010660
010662
010664
010666

000402

104002

ERROR

:TO SLOW/NOT COMPLETE ERROR

4273
L2746

010672
010674

1044621
104004

TCHKOP
ERROR

4: OR 5,0,7

:CHECK FOR ANY ERRORS
:REPORT ALL ERRORS

TGETRK
BIT
BEQ
MOV
MOV
ERROR

#DLT,T.CS2
3s
#EMDLT,EM3
#EMRDB.DFO11A
13

2%28

:ggz

2%;}

010610
010614

010654

010670

001110

14:14

asso
4240
4241
42642
4243
4246
4245

2529

010600

19-JUN-B0

1118:

104416
104003
104417
104431

1$:

104002

010660

001110

000024
070414
035674

108:

000312

1128:

104416
104003
104417
104423

2%:

010704
010706
010714
010716
010724

010732

104420
032737
001410
012737
012737
104013

2%32

010734

4285
4286
4287
4288
4289
4290
4291
4292

010736
010744
010746
010754
010762
010764
010766
010770

032737
001410
012737
012737
104013
104415
005300
001344

4294

011000

000402

4282

4293

010772

5%:

100000

001550

054541
056707

054170
061022

012737

100000

001540

056733
056707

001500
061022

3$:

4$:

011002

001110

:SET LOCAL LOOP ON ERROR
SSKIP INIT
;CLEAR SUBSYSTEM
:BAD INIT ERROR
:LOAD RK REGS
:WAIT FOR INTERRUPT

TCHKOP

;sCHECK FOR ANY ERRORS

4& ; OR 5,6,7

17O SLOW/NOT COMPLETE ERROR
:REPORT ALL ERRORS

;INTERNAL LOOP TO 1118

MOV
MOV
ADD
MoV
JSR
RDHEAD
0
0
BYTE
.BYTE

#1128 ,8LPERR
R2,R3
#RKDB,R3
#1BUFF ,R1
R4 ,LRLOAD

0
0

;SET POINTER TO BUFFER
:LOAD '‘L'' REGS
:READ HEADER
:NO WORDS COUNT
:NO BUFFER
SSECTOR 0
: TRACK 0

;SKIP INIT

312

TSSINIT
ERROR
3
TLOADRK
TWAT16

MOV
MOV

SCOP1

104415

#1118, 8LPERR
1%

TSSINIT
ERROR
3
TLOADRK
TWAT112

ERROR

4275 010676 012700 000003
4276 010702 011321
4277
4278
4279
4280
4281

MOV
R

#% RO
(RY), (R1)+

BIT
BEQ
MOV
MOV
ERROR
SCOP1
DEC
BNE

#CERR,T.CS1
48
FEMCERR,EM13N
#EMRDB,DFO1IA
13

MOV

RO
5%

#1178, 8LPERR

;SET LOCAL LOOP ON ERROR
‘BUILD POINTER TO RKDB

SOoCYL 312

;CLEAR SUBSYSTEM
;BAD INIT ERROR
:LOAD RK REGS
:WAIT FOR INTERRUPT

:SET COUNT
:GET RKDB

‘GET RK REGS
STEST IF DATA LATE
:NO-SKIP

:"'DATA LATE SET RESULT OF DB READ

:LOCAL LOOP TO 112%

:TEST IF CONT ERROR SET
:NO-SKIP

:"'CERR SET RESULT OF READ DB
1LOCAL LOOP TO 1128
:9EC COUNT
1LOOP IF NOT ZERO
:SET LOCAL LOOP 117%
SSKIP INIT

SEQ 0079

~N~N

CIRO6KF.P11

MACYN 3?3{1052)

lalal j

CIR6KFO RK6 FCTNL CTRkob%zGO‘

oo~

0000

OO0
O N~
L=T
oo

333

O000O0O
oo
OONSNO
OO0
oor
oN

105737
001010
112737
© 112737

OO0O0O0O0

b ed el d B
B T

b ed D
—_— b s D

—3 e e b
P

OO0

OO0O0O

040000
000403

OO0

013700
005300
001407
004437

— b
P

100200

042260

001634

12%:

042260

ERROR

& ; OR 5,6,7

ERRLMT,RO

BEQ
JSR

6%
R4 ,GENCOM

SCoP1

000137

s:ROR

001607
000001
000001
010544

6%:

R4 ,GENCOM

MOV
NEC

sCONTROLLER ERROR RETURN

REPORT ALL ERRORS

'3ATA LATE SET RESULT OF DATA BUFFER READ''
'bPERATION TO SLOW'' MESSAGE
;COMPARE IBUF & OBUFF (HEADERS)
:GOOD RETURN=NO MISCOMPARES
:REPORT 1ST MSCOMPARES

;GET ERROR LIMIT
;DECREMENT IT

;RESUME COMPARE
;GOOD RETURN-NO MORE ERRORS

}Q‘

L.DT
8%

MOVB
MOVB

#1,11%
#1,10%

;EXIT IF ZERO

;REPORT NEXT ERROR LINE

;LOOP
;LOCAL ERROR LOOP TO 117%

:WAS TRACK 1 JUST DONE?
sYES-SKIP
:CHANGE PARAM TO LOAD ‘L' WITH
;TRACK 2

:JUMP TO DO ENTIRE TEST ON TRK 1

8%:
.SBTTL

«+HEADER RECOGNITION TESTS

'ttt'Qt*Q't.tt""t""i""'iitit"'til"tl"titt.tl""tt"'t

'TEST 22

BAD SECTOR ERROR

M
*
*

*
*

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

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

TO BE BAD SECTORS

.
*
*
.
.

ISSUE A WRITE DATA OR 400 WORDS TO CYLINDER 312, TRACK 0,

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

—_—

o
~NO~
o

00012
00312

[=d=J
(= 1=

2122323232233 232223323323 2222222223203
0R0RRRRRRRRR)

S T22:

SCOPE

MoV
Mov

#10. ,STIMES
#312,REFNT

;GO READ & SEQUENCE MEADERS

1STB
BNE

JMP

sBAD INIT ERROR

:0OR "HEADER 0 NOT FOUND'' MESSAGE

000770
104415

104016

13
2

100200
L]
ERROR

040000
BR

(==

R4 ,RDSTHD

TCHKOP

JSR

000414
104015

sCLEAR SUBSYSTEM

JSR

ERROR
ERROR

—>
—

7%:

104002

004437

— D
_—
-

036362

TSSINIT

ERROR

SEQ 0080

::00 10. ITERATIONS
;SET REFORMAT SWITCH

|
OO-‘

> *
[=l=l=l=]

P PPy

104003
004437
104421
104004
104013

OO0

g—

[elelelelelel=]

—

117%:

104416

19-JUN-B0 14:14 PAGE 81
FORMAT IN 26 SECTOR FORMAT

TMTM

MACY11 3?5{1052)

CIR6KFO RK6 FCTNL CTR tODlAG
CZR6KF P11
19-JUN-

4351

0111%6

011130

104003

6354
4355
6356
6357
4358
4359
4360

011132
011136
011140
011142
011144
011145
011146

004437
000127
177676
0724614
000
000
000312

035674

6363

011150

004437

042260

6366
4367
4368

011156
011162
011166

012700
042720
042720

4370
2%;;

011174
011200

042720
042710

2%2%

362

2%22

4369

011154

011172

104416

000600

005720

19-JUN-B0 14:14
BAD SECTOR ERROR
TSSINIT

JSR
WRHEAD
=102
OBUFF
BYTE
.BYTE
312

R4 ,LRLOAD

JSR

R4 ,GENCOM

072416
100000
100000

MOV
BIC
BIC

#OBUFF+2,R0
#BIT15,(RO)+
#BIT15,(RO)+

040000
040000

BIC
BIC

#BIT14,(RO)+
#BIT14,(RO)

;

600

TST

104002

ERROR

4377
4378

011212
011214

104421
104004

TCHKOP
ERROR

4380

011224

011216

012737

4381
4382
4383
4384
4385
4386
4387

011226
011230
011234
011236
011240
011242
011243

011244

104003
004437
000123
177400
072414
000
000
000312

6390

011246

104417

2;33
4391
2;3%

011250
011252

104416

011224

001110

4$:

035674

5%:

MoV

TSSINIT

ERROR
JSR
WRDATA
=400
OBUF F
BYTE
.BYTE

312

1$:

104424
104002

;LOAD RK REGS
;WAIT FOR INTERRUPT

;:TO SLOW/NOT COMPLETE ERROR

: OR 5,6,7

#4$,SLPERR
3
R4 ,LRLOAD

;CHECK IF ANY ERRORS
;REPORT ALL ERRORS

:SET LOCAL LOOP ON ERROR
;LOAD "'L'' REGS
;WRITE DATA
;WORD COUNT
:BUS ADDRESS
;SECT 0
:TRACK 0
;CyL 312

0
0

;LOAD RK REGS

CMP
BEQ

#2,5%
6%

;JUST READ SECTOR 2?
:YES = SKIP

011264
011266
011270
011272

104422
000000
000100
000000

TCHKWE
0
100
0

2282

011276

104415

SCOP1

4405
4606

011300
011306

122737
001405

ERROR

011242

;ALSO CORRECT THE VRC

4397
4398
4399
4400

000002

;RESET BIT 15 IN WORD 2 OF
;SECTOR O HEADER AND BIT 14
;IN WORD 2 OF SECTOR 1 HEADER.

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

022737
001415

104004

;WITH NO BS BITS

TWAT32
ERROR

011254
011262

011274

011242

:GENERATE HEADERS

TLOADRK

6394
2;82

2:8}

000002

;LOAD "'L'' REGS
;WRITE HEADER
;WORD COUNT FOR 26 SECTOR MODE
;BUFFER ADDRESS
;SECTOR
; TRACK
s CYLINDER

(RO) +

104417
104431

4379

;BAD INIT ERROR

0
0

011204
011206

011210

TLOADRK
TWAT112

7
PAGE 82
;CLEAR SUBSYSTEM

ERROR

4373
43764

23;2

CMPB
BEQ

;CHECK OPERATION WITH ERROR

;EXPECTED BSE

&4 ; OR 5,6,7

;REPORT ANY DISCREPENCIES

;LOCAL ERROR LOOP TO 4%
§2,5%
7%

;WAS SECTOR SET TO 2
: YES-SKIP

SEQ 0081

lalal

MACYTT 3?551052)

CIR6KFO RK6 FCTNL CTRL 01260‘
CZR6KF P11
19-JUN-80 1

CIR6KFO Rk6 FCINL CTRL DIAG
CZR6KF.P11
19=JUN-80 14:04

4614
4415
4616
4617
4618
4419
4420
42
6422
4423
4424
4425
4626

4627
2253

4430
4431
4632

4633
4634

4435

22%9

011310
011314

105237
000743

011316
011320

104421
104004

3?351052)

011242

6%:

011322

7%:
e

19-JUN-B0
14:14
BAD SECTOR ERROR

PAGE 83

SEQ 0082

INCB
BR

5%
(3

;BUMP TO NEXT SECTOR
. LOOP

TCHKOP
ERROR

&4 ; OR 5,6.,7

;CHECK FOR GOOD OPERATION
;REPORT ALL ERRORS

2222323222323223232323232223222322332332332233333323333323233233232238222
2]

HEADER VRC ERROR

TATEST 23
g

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

A
:

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

3 ®
*

16 SECTORS WITH BAD HEADER VRC.

ISSUE A WRITE DATA

A GOOD HEADER AND MAKE SURE NO ERROR OCCURS.

011322
011324
011332
011340

000004
012737
012737
104416

011344
011350
011352

004437
000127
177676

011342

011354
011356

011357

ST23:

SCOPE
MOV
MOV

#10. ,STIMES
#312 ,REFMT

::00 10. ITERATIONS
;SET REFORMAT SWITCH

ERROR

;BAD INIT ERROR

JSR

R4,LRLOAD

—

4407
4,08
4409
4610
4611
4612
4613

MACY11

000012
000312

001262
001676

TSSINIT

104003

035674

WRHEAD
=102

OBUF F

072414
000

000

BYTE
.BYTE
312

0
0

iRt

RRRRRRRRRRlRd ]

;CLEAR SUBSYSTEM

;LOAD "'L'' REGS
sWRITE HEADER
sWORD COUNT

;BUFF ADD

;SECT
: TRACK
sCYL

011360

000312

4438

011362

004437

042260

JSR
600

R4 ,GENCOM

4441
4442

011370
011374

012700
012703

072420
000001

1%:

MOV
MOV
BIT

#OBUFF
+4 RO
#BITO,R3
R3, (RO)

;:GET ADDRESS OF VRC HDRO
;SET FOR BIT CHANGE SELECT

2%:
3%:

BIS
ADD

R3, (RO)
#6 R0

s1F ZERO SET IT
;BUMP TO NEXT VRC WORD

2228

4443
4664
4445
464
4447
2223
4450

4451
4452
4453
4656
4455
4656

222;

4459
4660
4661
4462

011366

011400
011402
011404
011406
011410
011412

000600

030310
001402
040310
000401
050310
062700

000006

BEQ
BIC
BR

011416

006303

ASL

011422
011426
011426
01146430

104417
104431
104002
104421

TLOADRK
TWAT112

011434
011442
011444

012737
104416
104003

011420

011432

BNE

001367

104004
011442

001110

48:

2%
R3, (RO)
3%

ERROR
TCHKOP
ERROR

MOV

#4%,SLPERR

ERROR

TSSINIT

& ; OR 5,6,7

;BUILD HEADERS NO BSE

sCHECK A VRC BIT

;SKIP IF ZERO
sELSE CLEAR IT
;SKIP

;SHIFT THE SELECT

;1F BIT NOT SHIFTED OUT-LOOP
;LOAD RK REGS
sWAIT FOR INTERRUPT

;TO SLOW/NOT COMPLETE ERROR
;CHECK OPERATION COMPLETE
;REPORT ALL ERRORS

:SET LOCAL LOOP
:CLEAR SUBSYSTEM

:BAD INIT ERROR

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN=-B0 14:04

MACYT 3?5§1052)

4663
4664
4465
4666
(467
4668

2298

011446
011452
011454
011456
011460
011461
011462

004437
000123
177400
C72414
000
000

000312

JSR
WRDATA
=400
OBUFF
BYTE
BYTE
312

471

011464

104417

TLOADRK

46472
22;2

011466
011470

011472
011500

022737
001415

4678

011502

104422

4479
4480
4481

5%:

104424
104002

4475
4476
4477

035674

19-JUN-80 14:14
HEADER VRC ERROR

000020

011460

R&,LRLOAD

0
0

(MP
BEQ

#16.,5%
6%

;WAS THIS WRITE SECTOR 16?
sYES=-SKIP

223%

011512

223?

011514

104415

SCOP1

4486
487
4488
4489
4490
2235

011516
011522
011530
011532
011534
011536

105237
022737
003744
000402
104421

4493

011540

ERROR

104004

sCYL

.
40
0

011460

;LOAD "‘L'' REGS
;WRITE DATA
sWORD COUNT
;BUFFER ADD
sSECT
: TRACK

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

000000
000040
000000

011460
000016

SEQ 0083

;LOAD RK REG

TCHKWE

104004

PAGE 84

TWAT3?2
ERROR

011504
011506
011510

“9‘

INCB
CMP
BLE
BR
TCHKOP

ERROR

JELSE

;CHECK OPERATION WITH ERROR
sHVRC

&4 ; OR 5,6,7

EM EXPECTED

sREPORT ANY DISCREPENCIES

;LOCAL LOOP TO 4%
5%
#16,5%
4%
7%

&4 ; OR 5,6.7

;BUMP SECTOR IN "'L'" REG
;1F SECTOR IS 16 OR LESS
;LOOP
JELSE EXIT
:CHECK LAST OPERATION NO ERRORS
:REPORT ALL ERRORS

7%:

""l"fit't"tttt't""""ttt"'t"t'"Q't'tl'ttttt"tt't"tt""t

2232

J«TEST 24
. *

BAD SECTOR ERROR AND HVRC ERROR

4497
4498
4499

2
B
o*

2502

:';ttt!t'tttt'ttt'ttttt'tt't"'tttttttlt.itt't'tlttttltltttttt'itt

628?

011540

000004

4505

011550

012737

4506

228;

011542

011556

011560

012737
104416

011562

004437

4511

011570

177676

4512
4513
4514

22}2

4517

4518

011566

000127

011572
011574
011575

072414
000
000

011600

004437

011576
011604

000012

000312

104003

4509

4510

ERROR SETS.

4503

4504

FORMAT CYLINDER 312, TRACK 0 SUCH THAT SECTOR ZERO HAS
BOTH A BAD SECTOR ERROR AND HEADER VRC.
ISSUE A WRITE DATA
TO CYLINDER O, TRACK O, SECTOR 0.
MAKE SURE ONLY HEADER VRC

035674

001676

SCOPE
MOV

MOV

#10.,8TIMES

#312 ,REFNMT

TSSINIT
ERROR
3

JSR

WRHEAD

R4 ,LRLOAD

=102

OBUFF
BYTE
BYTE

000312

000600

001262

1S124:

042260

ITERATIONS

:SET REFORMAT SWITCH
sCLEAR SUBSYSTEM

sBAD INIT ERROR

;LOAD "L'' REG
;WRITE HEADER

;WORD CNT FOR 26 SECTOR MODE

312

0
0
.

JSR

R4 ,GENCOM

600

::D0 10.

:BUFF ADD
;SECTOR
: TRACK
sCYLINDER

;BUILD HEADERS=-NO BSE

CIR6KFO Rk6 FCTNL CTRL DIAG

CIRGKF.P11
4519

19=JUN-80 14:04

14:14

042737

BIC

4522

011614

104417

TLOADRK

2252

011620

104002

ERROR

TCHKOP
ERROR

& ; OR 5.6,7

104431

4526
225;

011622
011626

104421
104004

4529
4530
4531

011626
011632
011634

004437
000123
177400

TWAT112

000312

JSR
WRDATA
=400
OBUF F
BYTE
BYTE
312

4537 011644 104417

TLOADRK

4532
4533
4534

2232

011636
011640
011641

011642

035674

072414
000
000

4538

011646

104424

104002

ERROR

45641

011652

104422

TCHKWE

2228

4542
4543
4564
2225

‘5‘9

011650
011654
011656
011660
011662

TWAT32

000000

000040
000000
104004

0
40
0
ERROR

;*TEST 25

4550
4551

T
i

. %

l’:gg%
4555

A
®

011664

000004

011666
011674
011702
011704

012737
012737
104416
104003

000012
000312

4561
4562
4563

011706
011712
011714

004437
000127
177676

035674

4565
4566
222;

011720
011721
011722

000
000
000312

4569

011724

004437

001262
001676

4564 011716 072414

011730

000600

011740

052737

:LOAD RK REGS

"WAIT FOR INTERRUPT

10 SLOW/NOT COMPLETE ERROR

R4 ,LRLOAD

:CHECK FOR ANY ERRORS
-REPORT ALL ERRORS

:LOAD “'L'* REGS
‘WRITE DATA
*WORD COUNT
“BUFF ADD
*SECTOR
" TRACK

0
0

*CYLINDER

;
2

:LOAD RK REGS

“WAIT FOR INTERRUPT

10 SLOW/NOT COMPLETE ERROR
:CHECK OPERATION WITH EXPECTED ERR
:HVRC ERR EXPECTED

& : OR 5.6.7

:REPORT ALL DISCREPENCIES

OPERATION INCOMPLETE

FORMAT CYLINDER 312, TRACK 0 SUCH THAT SECTOR 21 HAS THE
WRONG FORMAT. 1SSUE A WRITE DATA OF 400 TO CYLINER 0,
TRACK 0, SECTOR 21.

17125:

MAKE SURE OPI SET.

SCOPE

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

::D0 10. ITERATIONS
“SET REFORMAT SWITCH
*CLEAR SUBSYSTEM
BAD INIT ERROR

JSR
WRHEAD
-102

R4 ,LRLOAD

:LOAD "'L'* REGS
"WRITE HEADER
“WORD COUNT FOR 26 SECT MODE

BYTE
BYTE
312

0
0

JSR

R4 ,GENCOM

BIS

#B179,0BUFF+200 ;CHANGE FORMAT IN SECTOR 25

0BUF F

042260

600

4572 011732 052737 001000 072614
4573

:CLEAR BIT TO SET BSE,LEAVE VRC BAD.

E:"t'.."'.'."'""'"""""'."""."'.Q".'."'!'""'.l'.

4556
4557
4558
2223

:g;g

#BIT15,0BUFF+2

:""'.'"Q'."""""".'""""""'.'.."'"....""'t."."'

2223

‘OSS‘

PAGE 85

BAD SECTOR ERROR AND HVRC ERROR

011606
011616

072416

19-JUN-B0

23%?

4523

100000

MACYT 3?$£1052)

001000

072616

BIS

“BUFF ADD

“SECTOR
“TRACK
“CYLINDER

:BUILD HEADERS-NO BSE ERRORS

#B1T9.0BUFF+202 :CORRECT THE VRC

SEQ 0084

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-B0 14:04

MACYT 3?5§1052)

H 7
19-JUN-B0 14:14 PAGE 86
OPERATION INCOMPLETE

4575
4576

011746
011750

104417
104431

104002

ERROR

4579
:gg?

011754
011756

104421
104004

TCHKOP
ERROR

& ; OR 5,6,7

4582
4583
4S5B4
4585
4586
4587

011760
011764
011766
011770
011772
011773

004437
000123
177400
072414
025
000

4590
4591

011776
012000

104417
104425

104002

ERROR

4594
4595
4596
4597
4598

012004
012006
012010
012012
012014

104422
000000
000020
000000
104004

TCHKWE
0
20
0
ERROR

22;;

2233

223%

‘599

011752

011774

012002

TLOADRK
TWAT112

035674

JSR
WRDATA
=400
OBUFF
.BYTE
.BYTE

000312

312

TLOADRK
TWAT48

;*TEST 26

4602

'E'

228?

4603
4604
4605

4609

i
8
.

012016

000004

012737
012737
104416
104003

000012
000312

4615
4616
4617

012040
012044
012046

004437
000127
177676

035674

012050
012052
012053

012054

000312

:LOAD RK REGS
:WAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE

:OP1 EXPECTED

& ; OR 5,6,7

:REPORT ANY DISCREPENCIES

OP1 WITH HVRC ERROR

FORMAT CYLINDER 312, TRACK 0 SUCH THAT A HEADER VR(

ERROR 1S PRESENT AND SECTOR 17 HAS THE WRONG FORMAT.
ISSUE A WRITE DATA OF 400 WORDS TO CYLINDER 312,
TRACK 0, SECTOR 17.
THAT BOTH OPERATION INCOMPLETE
AND HEADER VRC SET.

042260

4626

012064

012700

072550

012070
012074
012100
012104

000600
052720
052720
062700
032710

1ST26:

SCOPE

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

;:D0 10. ITERATIONS
:SET REFORMAT SWITCH
;CLEAR SUBSYSTEM
:BAD INIT ERROR

JSR

;LOAD 'L'' REGS
:WRITE HEADER
:WORD COUNT FOR 26 SECT MODE

WRHEAD

R4 ,LRLOAD

OBUFF
BYTE
BYTE

0
O

JSR

R4 ,GENCOM

MOV

#OBUFF+134,RO

312

004437

4627
4628
4629
4630

;CyL 312

:CHECK OPERATION EXPECTED ERROR

-102

072414
000
000

012056

012062

001262
001676
3

4623

22%2

:LOAD ''L'' REGS
;WRITE DATA
:400 WORDS
:BUFF ADD
:SECTOR 25
:TRACK 0

:-;'tt'ttttttQtttttt"tt'tt't't"ttttttttt'tttttttttttttlttttitttt

012020
012026
012034
012036

22%5

:CHECK FOR ANY ERRORS
;REPORT ALL ERRORS

]

4610
4611
4612
22}2

4618
4619
4620

:TO SLOW/NOT COMPLETE

.-.-tttttttttttt"Qtt'tttt"ttt"'tt'itttttt'tltttfitt'tltttt'tttttt

228?

4608

R4 ,LRLOAD

:LOAD RK REGS
;WAIT FOR INTERRUPT

001000
001000
000004
000001

600

BIS
BIS
ADD
BIT

#8119, (RO)+
#B1T9,(RO)+
#,R0
#8110, (RO)

;BUS ADDRESS
:SECTOR
: TRACK

;CYLINDER

:BUILD HEADER- NO BSE ERRORS

;GET ADDRESS 2ND WORD HDR 17(8)
:SET FORMAT 24 SECT PER TRACK
:SET VRC BIT
:BUMP TO HVRC WORD HDR 20(8)
;TEST BIT O

~ SEQ 0085

CZR6KFO RK& FCTNL CTRL DIAG
CIR6KF P11
19-JUN-80 14:04

1 7

4631
4632
4633
4634
4635
4636
4637

012110
012112
012116
012120

001403
042710
000402
052710

0121264
012126

106417
106431

4640

012132

104421

4643
464k
4645
4646
4647
4648

012136
012142
012144
012146
012150
012151

004437
000123
177400
072414
017
000

4651

012154

104417

TLOADRK

2222

012160

104002

ERROR

104422
000000
000060
000000
104004

TCHKWE
0
60
0
ERROR

22;8
222;

2ggg
4652

4655
4656
4657
4658
4659
4660

012130
012134

012152

012156

012162
012164
012166
012170
012172

GRS

MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 87
126
OP] WITH HVRC ERROR

000001
000001

1%:
2%:

104002

BEQ
BIC
BR
BIS
TLOADRK
TWAT112

ERROR

TCHKOP

104004
035674

000312

104425

1%
#8170, (RO)
28
#8170, (RO)

;RESET=SKIP
SCLEAR BIT

:T0 SLOW/NOT COMPLETE ERROR

ERROR

& : OR 5,6,7

JSR
WRDATA
=400
OBUF F
.BYTE
.BYTE

R4 ,LRLOAD

312

TWAT4S

SEQ 0086

17
0

;SET BIT
:FORCE OPI AND HVRC ERROR
:LOAD RK REGS
‘WAIT FOR INTERRUPT
:CHECK FOR ANY ERRORS

:YES-REPORT ALL ERRORS

;LOAD "'L'* REGS
:WRITE DATA
1400 WORDS
:BUFF ADDRESS
SSECT 17
STRACK 0

:CYLINDER 312

:LOAD RK REGS

‘WAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE

;CHECK WITH EXPECTED ERROR
:HVRC ERR & OPI EXPECTED
&

:OR 5,6.7

R AR
ARl

223;

SeTEST 27

HVRC

IGNORE ON NON-ADDRESSED SECTOR

4663

FORMAT CYLINDER 312, TRACK O SUCH THAT SECTOR 20 HAS AN HVRC

4665

AND SECTOR 21. MAKE SURE HVRC IS NOT SET AT iHE

4664

2229

L668

012174
012176

000004
012737

4673

012212

104416

4676
4677
4678

012216
012222
012224

004437
000127
177676

4680
4681

012230
012231

012232

000
000

000312

4684

012234

004437

22;2

END OF THE OPERATION

4669
4670

22;}

ERROR. ISSUE A WRITE DATA OF 400 WORDS TO CYLINDER 312, TRACK O,

012204

012214

012737

:-'-tttt'ttQtttttt"'t't""t"t"'Qt""t.'fi't"'ttttt'!tt'ttttttt
000012

000312

001262

001676

1S127:

SCOPE
MOV

MOV

TSSINIT

104003
035674

JSR
WRHEAD
=102

R4 ,LRLOAD

.BYTE
BYTE

0
O

JSR

R4 ,GENCOM

O0BUF F

2235

312

012240

000600

042260

#312 ,REFMT

ERROR

4679 012226 072414

figgz

#10.,8TIMES

600

::D0 10.

ITERATIONS
SSET REFORMAT SWITCH
:CLEAR SUBSYSTEM

:BAD INIT ERROR

:LOAD "'L'' REGISTERS
‘WRITE HEADER
*WORD COUNT FOR 26 SECTOR MODE

:BUFF ADD
:SECTOR
: TRACK

:CYLINDER

:BUILD HEADERS=NO BSE ERRORS

4687
4688

0122642
012246

012700
012701

4690

0122564

J 7
MACY11 30A(1052)
19-JUN-80 14:14 PAGE 88
127
HVRC IGNORE ON NON-ADDRESSED SECTOR
MOV
MOV

#OBUFF+144
R0
#B8171,R1

:ADDRESS OF HEAD 20 HVRC WORD
:BIT 1 CONSTANT

001402

BEQ

‘RESET=SKIP

012260

000401

050110

1%:

4695
4696
223;

012264
012266
012270

104417
104431
104002

2%:

4699

012272

104421

4689

4691

4692

2232

2;8?

012252

030110

072560
000002

SEQ 0087

BIT

012256 040110
012262

012274

104004

4702 012276 004437 035674
4703
4704
4705
4706
4707
4708
4709
4710
2;}5

012302
012304
012306
012310
012311
012312
012314
012316
012320

000123
177400
072414
021
000
000312
104417
104424
104002

4713

012322

104421

2;}g

012324

RIC

R1, (RO)

BIS

R1, (RO)

4719

:CHECK FOR ANY ERROR

ERROR

& : OR 5.6.7

JSR

R&4,LRLOAD

4722
4723
4724

.
i
i

012326
012330
012336

012344
012346

000004
012737
012737

:CHECK FOR ANY ERROR

:REPORT ALL ERRORS.

WRITE AND READ ONE SECTOR

Rty

FORMAT CYLINDER 312, ALL TRACKS AND CYLINDER 313, TRACK 0
TO AGREED WITH BAD SECTOR INFORMATION.
ISSUE A WRITE DATA
OF ONE SECTOR ON CYLINDER 312, TRACK 0. READ IT BACK T0

MAKE SURE IT AGREES WITH WHAT IS WRITTEN.

104416
104003

;.'ttQ't't"t""'t""Qi""'i'tt"t"'t".'.iitt"tt'tt't't"'t'

000012
000312

012350

012737

000312

4737

012362

004437

035674

4739

012370

177676

4740
47641
4742

‘WRITE DATA
:WORD COUNT
‘BUFF ADD
:SECTOR
*TRACK
:CYLINDER
:LOAD RK REGS
‘WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

4734

4738

:LOAD "'L"' REGISTER

. %

2;52

2;;2

:-REPORT ALL ERRORS

*+DATA TRANSFER TESTS

;*TEST 30

4731
2;;%

&4 ; OR 5,6,7

SET BIT 1

TCHKOP

2;59

4728
4729
4730

‘ELSE CLEAR BIT 1

1SKIP

:LOAD RK REGS
‘WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE

ERROR
LSBTTL

STEST BIT 1 SET

TLOADRK
TWAT112
ERROR
2

TCHKOP

104004

Z;}E

‘727

WRDATA
=400
OBUFF
.BYTE
21
.BYTE
0
312
TLOADRK
TWAT32
ERROR
2

4716

R1, (RO)

012356

012366

012372
012374
012375

105037

000127

072414
000
000

012375

001262
001676

7S730:

012376

SCOPE
MOV
#10.,$TIMES
MOV
#312,REFMT
TSSINIT

ERROR

::D0 10. ITERATIONS
*SET REFORMAT SWITCH
:CLEAR SUBSYSTEM

MOV

#312,7%

:PRESET CYL POINTER

JSR

R4, LRLOAD

:LOAD 'L REG

CLRB

1$:

WRHEAD

=102

2%:

OBUF
BYTE
BYTE

:BAD INIT ERROR

:CLEAR TRACK POINTER
‘WRITE HEADER

*WORD COUNT FOR 26 SECTOR MODE
0
0

:BUFF ADDRESS
*SECTOR
TRACK

TMTM

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4765
4770
4771
6772
4773
477
4775
4776
4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790
4791
4792
4793
479

4795
4796
4797
4798

000312

012400
012404

004437
001200

012406
012410
012412

104417
104431
104002

TWAT112
ERROR
2

012414

012416

104421
104004

ERROR

4 ;.0R 5,6,7

;CHE'K FOR ANY ERRORS
;REPJRT ALL ERRORS

012420
012426
012430
012436
012440
012444

022737
001414
123727
001403
105237
000746

CMP
BEQ
(MPB
BEQ
INCB
BR

#313,7%

;TEST IF DONE 313 Tk 0

012446
012452
012456

005237
000741

012460
012464
012466
012470
01247

01247
012474

JSR
1200

R4 ,GENCOM

TLOADRK

TCHKOP

000313

012376

012375

000002

012375

3%
28,42
8%
2%

R4 ,LRLOAD

{SR

R4 ,GENCOM

012522
012524

104421
104004

012526

004437
000121
177400
070414
012
000
000312

1040

012514

035674

001110

;YES - SKIP

;DID WE JUST FORMAT TRACK 2
;YES=SKIP

:LOAD "L'' REGS
sWRITE DATA

JSR
WRDATA
=400
OBUFF
.BYTE
.BYTE

104417
10447

;TO SLOW/NOT COMPLETE ERROR

;CLEAR TRACK POINTER

3%:

042260

;WAIT FOR INTERRUPT

004437
000123

312

:LOAD RK REGS

;BUMP TO NEXT TRACK
;GO FORMAT NEXT TRACK

CLRB
INC
BR

177400
072414
012
000
000312

;BUILD HDRS=INCLUDE BAD SECTORS

8%:

004437
000001
000400
012737

012544

042260

312

105037

012476
012502
012504
012506
012514
012516
012520

012532
012534
012536
012540
012541
012542

7%:

7%
1%

;BUMP CYL TO 313
;GO FORMAT 313 Tk 0

:ONE SECTOR WORD COUNT
:BUFF ADDRESS
;SECTOR 12

:TRACK 0

sCYLINDER 312

#4%,SLPERR
MOV
TLOADRK

TWAT112
2
ERROR

;BUILD DATA PATTERN 1
;400 WORDS LONG
;SET FOR LOCAL LOOP
:LOAD RK REGS
;WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

TCHKOP

;CHECK FOR ANY ERRORS

400

ERROR

& ; OR 5,6,7

JSR
RDDATA
=400
IBUFF
.BYTE
.BYTE

R4 ,LRLOAD

;LOAD 'L'' REGS

312

;SECTOR 12
:TRACK 0
;CYL 312

TLOADRK

:LOAD RK

012546

012550

106417
104424
104002

TWAT32
ERROR

012552
012554

104421
104004

ERROR

TCHKOP

SEQ 0088

s CYLINDER

012376

4743
4744
4745
4746
4747
4748
4749
4750
4751
4752

K 7
MACY11 30A(1052)
19-JUN-80 14:14 PAGE 89
130
WRITE AND READ ONE SECTOR

2
& ; OR 5,6,7

;REPORT ALL ERRORS

sREAD DATA
;400 WORDS
;BUFF ADD

;WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE

;CHECK FOR ANY ERRORS
;REPORT ALL ERRORS

CIR6KFO RK6 FCINL CTRL DIAG
19-JUN-80 14:04
CZROKF P11

4799
4800
4801
4802
4803

012556
012562
012564
012566

004437
100001
000400
000413

042260

4806

012572

013700

001634

238§

4807
4808
4809
4810
4811
4812
4813
23}2

012570

012576
012600
012602
012606
012610
012612
012614
012616

MACYT 3(‘)%1052)

104015

005300
001406
004437
040000
000402
104016
000770
005037

R
19-JUN-80 14:14 PAGE 90
WRITE AND READ ONE SECTOR
JSR
100001
400
BR

R4, GENCOM

:GO COMPARE DATA TO PATTERN 1
1400 WORDS LONG
:G0OD RETURN=NO DATA ERRORS

MOV

ERRLMT,RO

:GET ERROR LIMIT

£
16
5%

;CONTINUE COMPARE
SEXIT IF NO MORE ERRORS
‘ELSE REPORT MISCOMPARE
:LOOP
:CLEAR REFORMAT SWITCH

ERROR

5%:

042260

001676

SEQ 0089

DEC
BEQ
JSR
040000
BR
ERROR
BR
CLR

*ERROR RETURN

RO
6%
R4 ,GENCOM

:DEC LIMIT
CEXITIF O

REEMT

‘816

.' .'tt.tt.t't'Qltit't"""Q"t"ttt"t't"".t'fiitt'tl"t"ttit"'

23};

S#TEST 31

WRITE DATA WITH BUS ADDRESS INCREMENT INHIBIT

4819
4820
4821

.
v
v

23%%

‘az‘

4825

i
Ed

012622

000004

:ggg

012624

012737

4828

012632

104416

4831

012636

004437

4833
4834
4835
4836

012644
012646
012650
012651

177400
072414
012
001

23%3
4832

23;;

012634

012642

012652

012654
012662
012666

052737
004437
000016

4844
4845

012672
012674

104417
104430

4848

012700

104421

4851

012704

004437

4853
4854

012712
012714

177400
070414

232%

2329

012670

012676

2323 012702
4852

012710

000012

001262

035674

SCOPE

MOV

;CLEAR SUBSYSTEM

JSR

R4 ,LRLOAD

:LOAD ''L'* REGS

12
1

:=400 WORDS
:0BUFF IS BUFF ADDRESS
SSECTOR 12
:TRACK 1

WRDATA

001610

BIS
JSR
16

:BAD INIT ERROR

TLOADRK
TWAT96

ERROR

TCHKOP

104004
035674

#BAI,L.CS2
R4 ,GENCOM

:SET INCREMENT INHIBIT
:BUILD PATTERN
:PATTERN 16
:LOAD RK REGS
‘WAIT FOR INTERRUPT

:T0 SLOW/NOT COMPLETE ERROR

JSR

R4 ,LRLOAD

=400
IBUFF

:CYLINDER 312

1400 WORDS

ERROR

RDDATA

:WRDATA

400

104002

::D0 10. ITERATIONS

312

000020
0462260

#10.,$TIMES

ERROR

=400
OBUFF
.BYTE
BYTE

000400

000121

7ST31:

TSSINIT

000312

4839
4840
4841

EVERY WORD IS THE SAME AND CORRECT.

E;t'tttttt'tt.tQ'tfit'ttt"'t""tt"t'l't"i"'tt'tt't"ttQitt"t

104003
000123

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

CHECK OPERATION FOR ANY ERRORS

;OR S, 6, 7, 10 ;REPORT ALL ERRORS
:LOAD '‘L'' REGS
*RDDATA

1=400 WORDS
S1BUFF IS BUFF ADDRESS

CIR6KFO RK6 FCTNL CTRL DIAG
CIR6KF.P11
19-JUN-B0 14:04

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF .P11
4855
4856
4857
4858
(859
4860
4861
4862
4863
4864
4865
4866
4LB67
4868
4869
4,870
4871

4872
4873
4874
4875
4876
4877
4878
4879
4880
4,881
4882
4883
4884
4885
4886
4887
4,888
4889
4890

MACY1 3?%%1052)

012716
012717
012720

.BYTE
BYTE
312

12
1

;SECTOR 12
: TRACK 1
;CYLINDER 312

012722
012726
012732

MoV
MOV

#377,R0
#OBUFF+2 R1

;SET COUNT TO SET OBUFF TO BE
‘ALL THE FIRST WORD OF PATTERN

ggg

é83).(fl1)0

:MOV THE WORD

BNE

;:LOOP UNTIL ALL WORDS SET

MOV

1%:

012736
012740
012742

012752

012754

012756
012762
012764
012766
012770
012772
012776
013000
013002
013006
013010
013012
013014
013016

004437

100000

042260

001634

004
040000
000402

64%:

4906

4907
4908
4909
4910

TCHKOP
ERROR

JSR

R4 ,GENCOM

;COMPARE THE DATA

BR
ERROR
MoV

2%
15
ERRLMT,RO

104016

000770

65%:

:WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

:GET ERROR LIMIT

:CHECK OPERATION FOR ANY ERRORS
;OR S, 6, 7, 10 ;REPORT ALL ERRORS

DEC
BEQ

RO
65%

sDECREMENT COUNT
:1F ZERO = EXIT

BR
ERROR

65%
16

:NO MORE ERRORS = EXIT
;REPORT NEXT ERROR

28800

042260

;LOAD RK REGS

TWAT3?2
ERROR

100000
400

R4 ,GENCOM

648

:CONTINUE DATA COMPARE

;LOOP

2%:

013016

::".t'fi.i.Q..""""""""""""...."'.'."ii.""'.'Q""

J*TEST 32
-

4893

4900
4901
4902
4903
4904
4905

#OBUFF
RS

TLOADRK

012744
012746
012750

489N
4892
4894
4895
4896
4897
4898
4899

n7
19-JUN=B0 14:14 PAGE 91
WRITE DATA WITH BUS ADDRESS INCREMENT INHIBIT

*
*

WRITE DATA ADDRESS GREATER THAN 32K

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

MAKE SURE CORRECT DATA IS ON DISK.

NOTE:

THIS TEST IS ONLY EXECUTED IF MORE THAN 32K

OF MEMORY IS PRESENT.

SR 2222232222223 232333223 3323223223332 3 3322333322233 R32RRRRRRRRRRdl)

013016
013020
013026
013034

000004

012737

000012
001326

001262
000001

013036

032737
00101

000002

001664

013046
013052
013056

104401
104401

051503
051646
000002

013044

123727
002016

052737

001664

1ST32:
§

SCOPE

MOV
CMPB
BGE

#10. ,STIMES
SMAMST . M
2%

BIT

#MENMSZB,OPTFLG
1%

:YES -SKIP

TYPE

,OPROT

;"'INSUFFICIENT MEMORY DATA TRANSFER WITH

BIS

#MEMSZB,OPTFLG

;SET FLAG

BNE

TYPE

,OPR0O12

;:00 10. ITERATIONS
sTEST IF >32K MEM
:YES-SKIP

;TEST IF REPORT ALREADY MADE

;ADDRESS >32K

SEQ 0090

CIREKFO RK6 FCTNL CTRL DIAG
CIROKF.P11
19-JUN-B0 14:04
4911

013064

104401

051662

012737

013100

4312

013070

000470

4915

013100

104416

4918
4919
4920

013106
013110
013112

004437
000123
177400

23}2
23}9

4921
4922
4923
4924
4925
4926
4927
2353

8}3?5%
013102

013114
013116
013117
013120
013122
013126
013130
013132

MACYN 3(‘)951052)

001118

1%:

g::

TYPE

MOV
TSSINIT

104003

177770
016
000
000312
004437
010010
001777
000400

N 7
19-JUN-B0 14:14 PAGE 92
WRITE DATA ADDRESS GREATER THAN 32K

035674

:BYPASSED"’

#5%,SLPERR

:SET LOCAL LOOP ON ERROR ADDRESS

JSR
WRDATA
=400

R&,LRLOAD

R4, GENCOM

013134
013136

104417
104430

104002

ERROR

4934

013142

104421

TCHKOP
ERROR
SCOP1

4938
4939
232?

013150
013154
013156

004437
002007
001000

042260

4942
4943
4944

013160
013164
013166

004437
000121
177400

035674

4946
4947
4948
4949
4950
4951
4952

013172
013173
013174
013176
013200
013202
013204

016
00
000312
104417
104424
104002
104421

23%%

4935
23;9

4945

013140

013146
013146

013170

4953 013206

TLOADRK
TWAT96

106004
104415

004437
110000
001777
000400
000413
104015
013700
005300

042260

496
964

013533
013242

006437
050000

042260

4966

013246

4965

013244

oo1409

000402

104016

:TO SLOW/NOT COMPLETE ERROR

:CHECK OPERATION FOR ANY ERRORS
;OR S, 6, 7, 10 ;REPORT ALL ERRCRS
:LOCAL LOOP ON ERROR TO 58

JSR
2007

R& ,GENCOM

;CLEAR IBUFF TO 1'S.

JSR
RDDATA
=400

R4, LRLOAD

;LOAD "'L'' REGS
*RDDATA
=400 WORDS

.BYTE
16
BYTE
0
312
TLOADRK
TWAT32
ERROR
2
TCHKOP

013210
013214
013216
01s§$o
013222
81322‘
0132 3
81;2

0132

:BUS ADDRESS IN 32K =10 BY'ES
:SECTOR 16
:TRACK 0
SCYLINDER 312
:GENERATE DATA
‘PATTERN 10, MEM. MANAGEMENT FOR DEST.
*RELOCATION ARGUMENT
1400 WORDS
:LOAD RK REGS
:WAIT FOR INTERRUPT

IBUFF

4954
4955
4956
4957
4958
4959
4960
4961

4962

:LOAD L' REGS
‘WRITE DATA
1400 WORDS

1000

070414

104004

:BAD INIT ERROR

16
0

4930
4931

SEXIT

;CLEAR SUBSYSTEM

ERROR

177770
.BYTE
BYTE
312
JSR
100 0
1777
400

042260

OPRO1S

001634

ERROR

648:

JSR
110000
1777
400
BR
ERROR
MOV
DEC

:IBUFF

IS BUFF ADDRESS
:SECTOR 16
:TRACK 0
SCYLINDER 312
:LOAD RK REGS
:WAIT FOR INTERRUPT
17O SLOW/NOT COMPLETE ERROR
“CHECK OPERATION FOR ANY ERRORS

;OR S, 6, 7, 10 ;REPORT ALL ERRORS

3
15
ERRLMT,RO
RO

; COMPARE
*MEMORY MANAGEMENT FOR DESTINATION
*RELOCATION ARGUMENT
1400 WORDS
*NO ERROR-SKIP
*REPORT FIRST MISCOMPARE
:GET ERROR LIMIT
*DECREMENT COUNT

JSR
50000

R& ,GENCOM

SCONTINUE DATA COMPARE

ERROR

BEQ

B8R

R4, GENCOM

65%

‘1F 2ERD = EXIT

:NO MORE ERRORS = EXIT
:REPORT NEXT ERROR

SEQ 0091

4967
4968
4969
4970
(97
4972

013250
013252

MACY 3?;51052)

000770

4%:

4973

4974
4975
4976
977
4978
4979
4980

4981
4982
4983

)

013270

002001

4986
4987
4988
4989
4990
4991
4992

013272

000462

013274

012737

013302
013302
013304

104416
104003

013306
01;;12
013314
013316
013320
013321
013322
013324
013330
013332

004437
090123
177400
072414
017
00
000312
004437
000011
000400

013334
013336
013340

104417
104430
104002

5011
501§
5013
$014
5015
gg}g

013342
013344
013346
013352
013354
013356
013360
013361
013362

104421
104004
004437
000121
177400
177770
017
000
000312

5018
5019
5020
5021
5022

013364
013366
013370
013372
013374

104417
104424
104002
104421
104004

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

NOTE:

000004
012737
123727

;e
013252
013254
013262

READ DATA ADDRESS GREATER THAN 32K

CHECK MEMORY FOR CORRECT TRANSFER.

233?

4993
4994
4995
4996
4997
4998
4999
5000
5001
5002
5003
5004
5005
5006
5007
5008
5009
5010

;*TEST 33

SEQ 0092

;LOOP

6493

65%:

013252

B 8
19-JUN-80 14:14 PAGE 93
WRITE DATA ADDRESS GREATER THAN 32K

THIS TEST IS ONLY EXECUTED IF MORE THAN 32k

OF MEMORY IS PRESENT.

E :"'.""."'""""""""""'.'.'."...."""'.""'.""'

000012
001326

013302

001262
000001

001110

1S733:

#10.,8TINKES

BGE

;JYES=SKIP

CMPB

JEXIT

2%:

MOV

#3%,$LPERR

sSET LOCAL ERROR LOOF

3
R4 ,LRLOAD

;BAD INIT ERROR
;LOAD "'L'' REGS

17
0

sSECTOR 17
:TRACK 0
:CYLINDER 312
:GENERATE DATA IN OBUFF

TSSINIT

ERROR
JSR

WRDATA
=400

BYTE
.BYTE
312
JSR

1"
400

TLOADRK
TWAT96

ERROR

TCHKOP

035674

::00 10. ITERATIONS

:CHECK IF >32K MEMORY

OBUFF

042260

SMAMST ., #1

1%:

3%:

035674

SCOPE

MOV

ERROR
JSR

RDDATA

=400
177770
.BYTE
.BYTE

312

ERROR

sPATTERN 11
;400 WORDS

;70O SLOW/NOT COMPLETE ERROR
:CHECK OPERATION FOR ANY ERRORS

:OR S, 6, 7, 10 ;REPORT ALL ERRORS

R4 ,LRLOAD

TLOADRK

TWAT3?2
ERROR
TCHKOP

IS BUFF ADDRESS

:LOAD RK REGS
sWAIT FOR INTERRUPT

17
0

sWRDATA
;=400 WORDS

sOBUFF

R4 ,GENCOM

sCLEAR SUBSYSTEM

:LOAD ''L'' REG

sREAD DATA

;400 WORDS
:ACCROSS 32K BOUNDARY
:SECTOR 17
sTRACK 0

;CYL 312

:LOAD RK REGS

sWAIT FOR INTERRUPT
;70 SLOW/NOT COMPLETE ERRO®
:CHECK OPERATION FOR ANY ERRORS

:OR S, 6, 7, 10 ;REPORT ALL ERRORS

(alal
~N~N

CIR6KFO Rk6 FCTNL CTRL D IAG
CZR6KF P11
19-JUN-80 14:04

CIR6KFO Rké FLTNL CTR&ODIAG
CZR6KF PN
19-JUN-

5023
5024
5025
5026
5027
5028
5029
5030
5031
5032
5033
5034
5035
5036
5037
038
5039

013376
013402
013404
013406
013410
01%212
013414
013420
013422
0134246
013430
013432
013434
013436
013440
013440

004437
120009
00177
000400
000413
104015
013700
005300
001406
004437
060000
000402
104016
000770

MACYT 3?2;1052)

042260

001634

648

042260

65%:
5%:

C 8
19-JUN-B0 14:14 PAGE 94
READ DATA ADDRESS GREATER THAN 32K
JSR
120000
1777
400
BR
ERROR
MOV
DEC
BEQ
JSR
60000
BR
ERROR
BR

R4 ,GENCOM

5%
15
ERRLMT,RO
RO
65%
R4 ,GENCOM

; COMPARE DATA
;MEMORY MANAGEMENT WITH SOURCE
RELOCATION ARGUMENT
; COMPARE 400 WORDS
NO MISCOMPARE=-EXIT
:REPORT FIRST MISCOMPARE
;GET ERROR LIMIT
;DECREMENT ,COUNT
;1F ZERO - EXIT
sCONTINUE DATA COMPARE

65%
16
648

:sNO MORE ERRORS = EXIT
sREPORT NEXT ERROR
;LOOP

R
R e L]

gg:?

'YEST 34

WRITE DATA ADDRESS GREATER THAN 64K

5042

2822

5045

2829

5048

013440
013442

5052
5053
gggg

013456 002016
013460 032737
013466 001011

013450

000004
012737

123727

000012

001262

000002

001664

001326

104401
104401
104401
052737
000467

051503
051652
051662
000002

001664

ggg%

013514

012737

013522

001110

5064
5065
5066

013522
013522
013524

104416
104003

5068
5069
28;?

THIS TEST IS ONLY EXECUTED IF MORE THAN 64K

OF MEMORY

IS PRESENT.

SCOPE
MOV

#10. ,STIMES

BGE
BIT
BNE

2%
#MEMSZB,OPTFLG
1%

:YES=SKIP
:TEST IF REPORT FLAG SET
sNO=SKIP

1$:

TYPE
TYPE
TYPE
BIS
BR

,OPRO11
,OPRO13
,OPRO15
#MEMSZB,OPTFLG
5%

;"'INSUFFICIENT MEMORY-DATA XFER WITH
sADDRESS >64K
;BYPASSED"'
;SET FLAG

28%:

MOV

#3% ,SLPERR

;SET LOCAL LOOP ON ERROR

013532
013534
013536

(MPB

6%:

3%:

013526

004437

042260

013540
013544
013546
013550
013552
013553
013554

004437
000523
177400
177770
020
000
000312

035674

010011
003777
000400

TST34:

000002

013470
013474
013500
013504
013512

5072
5073
5074
075
5076
5077
5078

NOTE:

:'ttt"tt'ittt!'tt"tt't"""tt'tQtt'ttt't'ttttt'tt"'t't'ttt't'

5056
5057
5058
5059
ggg?

S067

MAKE SURE CORRECT DATA IS ON DISK.

. %

5049
S050

5051

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

SMAMST ,#2

;:00 10, ITERATIONS

:CHECK IF >64K MEMORY

TSSINIT
ERROR
3

;CLEAR SUBSYSTEM
;BAD INIT ERROR

10011
3777
400

sMEM MANAGEMENT ON DESTINATION
sRELOCATION ARGUMENT
;400 WORDS

JSR

R4 ,GENCOM

JSR
R4 ,LRLOAD
WRDATA'!BA16
=400
177770
.BYTE
.BYTE
312

20
0

:GENERATE DATA, PATTERN 11

sLOAD "L'' REGS
sWRITE DATA AND SET BA16
2400 WORDS
;ACCROSS 64K BOUNDARY
;SECTOR 20
sTRACK 0
:CYLINDER 312

SEQ 0093

———

[ale]
~NN~N

5079
5080
5081

013556
013560

104417
104430

5084

013564

104421

gggg

5085
5086

013562

TLOADRK
TWAT96

104002

5087
gggg

013566
013570

013574
013576

104004
004437

5090
5091
5092
509
5094
5095
5096
5097
5098
g?gg

013600
013604
013606
013610
013612
013613
013614
013616
013620
013622

004437
000121
177400
070414
020
000
000312
104417
104424
104002

5101
5102
§103
5104
5105
5106
5107
g}gg

013624
013626
013630
013634
013636
013640
013642
013644

104621
104004
004437
110000
003777
000400
000413
104015

5110
5111
§112
5113
5114
5115
5116
§117
5118
§119

013646
013652
01365¢
013656
013662
013664
013666
013670
013672
013672

013700
005300
001406
004437
050000
000402
104016
000770

5120

002007
001000

ERROR

TCHKOP

042260

001634

64%:

042260

65%:
5%:

:LOAD RK REGS
‘WAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE ERROR
:CHECK OPERATION FOR ANY ERRORS

ERROR
JSR

& :OR S, 6, 7, 10 ;REPORT ALL ERRORS
R4 ,GENCOM
;CLEAR IBUFF TO 1'S

JSR
RDDATA
=400
IBUFF
.BYTE
.BYTE
312
TLOADRK
TWAT32
ERROR

R4 ,LRLOAD

TCHKOP
ERROR
JSR
110000
3777
400
BR
ERROR

:CHECK OPERATION FOR ANY ERRORS
4
;0R S5, 6, 7, 10 ;REPORT ALL ERRORS
R4 ,GENCOM
;CHECK DATA
:MEMORY MANAGEMENT WITH DESTINATION
:RELOCATION ARGUMENT
1400 WORDS
5%
*NO MISCOMPARES=SKIP
15
sREPORT FIRST ERROR

MOV
DEC
BEQ
JSR
50000
BR
ERROR
BR

ERRLMT,RO
RO
65%
R4 ,GENCOM

:GET ERROR LIMIT
sDECREMENT COUNT
:1F 2ERO = EXIT
;CONTINUE DATA COMPARE

65%
16
648

sNO MORE ERRORS - EXIT
;REPORT NEXT ERROR
:LOOP

2007
1000

035674

SEQ 0094

20
0

;LOAD "'L'* REGS
:RDDATA
:=400 WORDS
;IBUFF IS BUFF ADDRESS
:SECTOR 20
:TRACK 0
:CYLINDER 312
;LOAD RK REGS
;WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

;;Qttttttt"'tt"'t"'tt"t""tt't'tt"..ttt'tfilt"'QfiQtittttttt

READ DATA ADDRESS GREATER THAN 64K

g}%}

;*TEST 35

5123
g}%g

e
3

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

5126
g}%g

i
28

NOTE:

5129

:':tt!!tttttt.tttttttt'tttt"tttt'ttt'lit'ttttt'tfitttfittttttttt'tt

5130

§131
5132
5133
5134

. &

]

013672

013674
013702
013710
013712

000004

012737
123727
002001
000462

000012
001326

001262
000002

]

1S135:

1%:

SCOPE

MOV
CMPB
BGE
BR

THIS TEST IS ONLY EXECUTED IF MORE THAN 64K
OF MEMORY IS PRESENT.

#10.,$TIMES
SMAMS1,#2
28
5%

;200 10. ITERATIONS
SCHECK IF >64K MEMORY
SYES=SKIP
CEXIT

8
MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 95
134
WRITE DATA ADDRESS GREATER THAN 64K

lalal 1

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

CIR6KFO RK6 FCTNL CTRL DIAG

CZR6KF .P11
5135

gg%g

013714

5138
€139
5140

013722
013722
013724

19-JUN-80 14:04
012737

000032

MACY11 30A(1052)

001110

19-JUN-BO- 14:14

E_8

PAGE 96

135

READ DATA ADDRESS GREATER THAN 64K

2%:

MOV

3s:

:SET LOCAL LOOP ON ERROR

013744
013750

104416
104003
004437
000123
177400
072414
021
000
000312
004437
000012

§152
5153
g}gg

013754
013756
013760

104417
104430
104002

TLOADRK
TWAT96
ERROR
2

5156
5157

013762
013764

104421
104004

TCHKOP
:CHECK OPERATION FOR ANY ERRORS
ERROR
& :OR S, 6, 7, 10 ;REPORT ALL ERRORS
JSR
R4 ,LRLOAD
:LOAD ''L'' REGS
RDDATA'BA16
:READ DATA AND SET BA16
=400
;400 WORDS
:ACCROSS 64K BOUNDARY
177770

5141
§142
$143
5144
5145
5146
§147

5148
5149

013726
013732
013734
013736
013740
013741
013742

2}3? 013752

5158
5159
5160
§161
5162
5163
g}gg

5166

$167
g}gg

042260

000400

013766
013772
013774
013776
014000
014001
014002

004437
000521
177400
177770
021
000
000312

0140064

104417

014006
014010

035674

BYTE
.BYTE
312

TWAT32
ERROR

104421

§172
5173
§174
§175
§176
g};;

014016
014022
014024
014026
014030
014032

004437
120000
003777
000400
000413
104015

042260

§179

014034

013700

001634

5180
5181
5182
5183
5184
5185
5186

5187

5188
§189
5190

014040
014042
014044
014050
014052
014054
014056

014060

104004

005300
001406
004437
060000
000402
104016
000770

21
0

R4, GENCOM

TCHKOP

ERROR

JSR
120000
3777
400
BR
ERROR

648

042260

65%:
5%:

MOV

DEC
BEQ
JSR
60000.
BR
ERROR
BR

:CLEAR SUBSYSTEM
:BAD INIT ERROR
:LOAD “'L'* REGS
:WRDATA
;=400 WORDS
:0BUFF IS BUFF ADDRESS
:SECTOR 21
:TRACK 0
;CYLINDER 312
:GENERATE DATA
:PATTERN 12

;

;400 WORDS

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

;FROM SECTOR 21
:TRACK 0
:CYLINDER 312

21
0

TLOADRK

104424
104002

014012

014014

3
R4 ,LRLOAD

400

§170

5171

TSSINIT
ERROR
JSR
WRDATA
-400
OBUFF
BYTE
.BYTE
312
JSR
12

#32,8LPERR

SEQ 0095

:LOAD RK REGS

:WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

:CHECK OPERATION FOR ANY ERRORS

:OR S, 6, 7, 10 ;REPORT ALL ERRORS

R4, GENCOM

5%
15

ERRLMT,RO

; COMPARE DATA
:MEM MANAGEMENT WITH. SOURCE
;RELOCATION ARGUMENT
;400 WORDS
:NO MISCOMPARES=-SKIP
:REPORT FIRST ERROR

:GET ERROR LIMIT

RO
65%
R4, GENCOM

:DECREMENT COUNT
:1F ZERO = EXIT
:CONTINUE DATA COMPARE

65%
16

:NO MORE ERRORS = EXIT
*REPORT NEXT ERROR

64%

:LOOP

:‘-ttttt!t'ttttlt"ttt"t;""'tt"tttlttttlttt'ltt.t'ltttttQtlil'l

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN=-80 14:04
CIR6KF .P11

MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 97
136
WRITE DATA ADDRESS GREATER THAN 96K

g}g;

;*TEST 36

§193

]

g}gg

WRITE DATA ADDRESS GREATER THAN 96K

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

MAKE SURE CORRECT DATA IS ON DISK.

5196

NOTE:

5199

:'.'t"'ttt"'ttt"t""t'"""""'Q"'tt't'tt'tt"""'t"tt't'.

g}g;

5200
§201
§202
5203
5204
2382

014060
014062
014070
014076
014100
014106

000004
012737

§207
5208
5209

014116
014114
014120

104401
104401
104401

5210
gg}%

123727
002016
032737
001011

014124
014132

052737
000463

gg;z

014134

012737

5215
§216

014142
014142

§217
5218

104416
104003

014144
014146

004437

014154
014156
014160
014161
014162
014164

177400
177770
022
000
000312
004437

5219 014152 001123

5220
§221
§222
5223
5224
5225

5226
§227
gggg

014170
014172
014174

010013
005777
000400

000012
001326

001262
000003

000002

001664

051503
051656
051662
000002

001664

014142

001110

757T36:

042260

THIS TEST IS ONLY EXECUTED IF MORE THAN 96K

OF MEMORY IS PRESENT.

SCOPE
MOV
CMPB
BGE
BIT
BNE

#10.,$TIMES
SMAMS1,#3
3
#MEMSZB,OPTFLG
2%

;:D0 10. ITERATIONS
:CHECK IF >96K MEMORY
;YES=SKIP
:TEST IF REPORT FLAG SET
:NO=SKIP

TYPE
TYPE
TYPE

#MEMSZB,OPTFLG
I3

;"'INSUFFICIENT MEMORY=DATA TRANSFET WITH
:ADDRESS >96K BYPASSED''
i

28:

BIS
BR

,OPRO11
"OPRO14
OPRO1S

3$:

MOV

#4%,SLPERR

:SET LOCAL LOOP ON ERROR

18:

035674

TSSINIT
ERROR
3
JSR
R4 ,LRLOAD

;:CLEAR SUBSYSTEM
:BAD INIT ERROR
:LOAD "'L'* REG

=400
177770
.BYTE
.BYTE
312
JSR

1400 WORDS FROM
:ACCROSS 96K BOUNDARY
:T0 SECTOR 22
STRACK 0
;CYL 312
:GENERATE DATA
:PATTERN 13 MEM MAN WITH DEST.
:RELOCATION ARGUMENT
:400 WORDS

WRDATA!BA1?

10013
5777
400

22
0
R4 ,GENCOM

5230
5231
gggg

014176
014200
014202

104417
104430
104002

TLOADRK
TWAT96
2
ERROR

5234
ggss

014204
014206

104421
104004

TCHKOP
ERROR

§237
5238
5239
5240
5241
§242
3522

014210
014214
014216
014220
014222
014223
014224

004437
000121
177400
070414
022
000
000312

JSR
RDDATA

R4 ,LRLOAD

§245

014226

104417

5246

014230

104424

035674

;SET REPORT FLAG

=400
IBUFF
BYTE
.BYTE
312

TLOADRK

TWAT 32

22
0

*WRITE DATA AND BA17

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

:CHECK OPERATION FOR ANY ERRORS
;OR 5, 6, 7, 10 ;REPORT.ALL ERRORS

:LOAD ''L'' REGS
:RDDATA

:=400 WORDS
S1BUFF IS BUFF ADDRESS
SSECTOR 22
STRACK 0
:CYLINDER 312
:LOAD RK REGS

‘WAIT FOR INTERRUPT

SEQ 0096

CIR6KFO RK6 FCTNL CTRL DIAG

CZR6KF P11

19-JUN=-B0 14:04

ggzg

014232

104002

5249

014234

104421

5252

014240

004437

g%g?
5253
5254
5255
5256
g%gg

5259
5260
5261
5262
5263
5264
5265
5266
5267
5268
5269
5270

MACY1 3?gé1052)

014236
014244
014246
014250
014252
014254

014256
014262
014264
014266
014272
014274
014276
014300
014302

TCHKOP

013700
005300
001406
004437
050000
000402
104016
000770

042260

64%:

042260

65%:

014302

8
PAGE 98

;70

ERROR

JSR

R4,GENCOM

110000
5777
400
BR
ERROR

001634

14:14

WRITE DATA ADDRESS GREATER THAN 96K
ERROR

104004
110000
005777
000400
000413
104015

19-JUN-80

MOV
DEC
BEQ
JSR
50000
BR
ERROR
BR

SLOW/NOT

SEQ 0097
COMPLETE

ERROR

:CHECK OPERATION FOR ANY ERRORS

;OR S5, 6, 7, 10 sREPORT ALL ERRORS
- -

;COMPARE DATATM

6%
15

;MEM MANAGEMENT WITH DESTINATION
sRELOCATION ARGUMENT
;400 WORDS
sNO MISCOMPARE S=-BRANCH
sREPORT 1ST ERROR

ERRLMT,RO
RO
65%
R4 ,GENCOM

;GET ERROR LIMIT
sDECREMENT COUNT
sIF ZERO = EXIT
sCONTINUE DATA COMPARE

65%
16
648

:NO MORE ERRORS - EXIT
sREPORT NEXT ERROR
;LOOP

6%:

PR
el

25;3

;«TEST 37

5273

g%;g

READ DATA ADDRESS GREATER THAN 96K

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

CHECK MEMORY FOR CORRECT TRANSFER.

5276
gg;g

HA
ot

NOTE:

5279

:-;-ttt.nt'ttttt'ttttt'tt'.a'att'tatttttattttttttnttttta-ttt'tta't

5280
5281
5282

014302
014304
014312

000004
012737
123727

000012
001326

;ggg

014322

000462

:
014332

5283

014320

002001

g%gg

014324

012737

5288
5289
ggg?

014332
014332
014334

104416
104003

5292

014336

004437

5296
5297
5298

014350
014351
014352

005
000
000312

5293
5294
5¢95

5299
5300
ggg}

THIS TEST IS ONLY EXECUTED IF MORE THAN 96K
OF MEMORY IS PRESENT.

014342
014344
014346

014354
014360
014362

000123
177400
072414

004437
000014
000400

001262
000003

1S737:

2%:
001110

3s%:

4%:

035674

042260

SCOPE
MOV
CMPB

#10.,$TIMES
SMAMST ,#3

MOV

#4% ,SLPERR

BGE

b3 3

::D0 10. ITERATIONS
sCHECK IF >96K MEMORY

sYES=-SKIP

;SET LOCAL LOOP ON ERROR

TSSINIT
ERROR
3

sCLEAR SUBSYSTEM
;BAD INIT ERROR

JSR

R4 ,LRLOAD

;LOAD ‘L' REGS

BYTE
.BYTE
312

5
O

SECTOR S
;TRACK 0
sCYLINDER 312

WRDATA
=400
OBUFF

JSR
14
400

R4 ,GENCOM

;WRDATA
;=400 WORDS
sOBUFF IS BUFF ADDRESS

;GENERATE DATA
sPATTERN 14
;400 WORDS

——

CIR6KFO RK6 FCINL CTRL DIAG
CZR6KF .P1
19-JUN-B0 14:04

30A(1052)

137

8
19-JUN-B0
14:14
PAGE 99
READ DATA ADDRESS GREATER THAN 96K

0 14372

104421

014376
014402
014404
014406
014410
014611
014412

004437
001121
177400
177770
005
000
000312

01464146
014416
014420

104417
104424
104002

ERROR

014422
014424
014426
014432
014434
014436
014440
014442

104621
104004
004437
120000
005777
000400
000413
104015

ERROR
JSR
120000
5777
400
BR
ERROR

&
;OR 5, 6, 7, 10 ;REPORT ALL ERRORS
R4 ,GENCOM
;COMPARE DATA
;MEM MANAGEMENT WITH SOURCE
;RELOCATION ARGUMENT
;400 WORDS
6%
sNO MISCOMPARES=-SKIP
15
;REPORT FIRST ERROR

014444
014450
014452
014454
014460
014462
014464
014466
014470

013700
005300
001406
004437
060000
000402
104016
000770

MOV
DEC
BEQ

ERRLMT,RO
RO
65%

R4 ,GENCOM

;GET ERROR LIMIT
;DECREMENT COUNT
;1F ZERO - EXIT
;CONTINUE DATA COMPARE

65%
16

:NO MORE ERRORS = EXIT
:REPORT NEXT ERROR

~
»

pry

»
w

104417
104430
104002

014364
014366
014370

104004

TLOADRK

TWAT96

ERROR.

TCHKOP

ERROR

035674

JSR

:LOAD RK REGS

:WAIT FOR INTERRUPT

270 SLOW/NOT COMPLETE ERROR

-400
177770

HYIE
.BYTE
312

R4 ,LRLOAD

3
0

TLOADRK

TWAT3?

TCHKOP

042260

001634

64%:

042260

Jgsoo

BR
ERROR

65%:

SIS

:CHECK OPERATION FOR ANY ERRORS

:OR S, 6, 7, 10 ;REPORT ALL ERRORS

RDDATA!'BA1?

:LOAD L'’ REGS

*READ DATA WITH BA17 SET
1400 WORDS
;ACCROSS 96K BOUNDARY

;FROM- SECTOR 5
; TRACK 0
;CyL 312
:LOAD RK REGS

;WAIT FOR INTERRUPT

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

648

:LOOP

6%:

014470

:;tt'tttttt.ttt"ttt""'tt't'tt'ttttt"tttt'it'ttt'ttlt'tt'it't'

J*TEST 40

PARTIAL SECTOR WRITE DATA

]

*
it
H
*

504

00643§

012737

104416
104003

—

014500

000004

014470
014472
<

WN=O
NOWVNESWN
W= OOV

WNOWNS
W —=O OO ~NOW SN0 000N

NN NN NN NN N
VIV
VIV AW

LVl

FERRRERE s

AW WA WA VLA A W WVTA VA AW VLA A VT DAL

Y L

AT A VLA T AT

AW AT

LW W

NO WV

ad i

ok od o d o

A VT AN AT
VTA

POPNIRNI NI NIND

3e<

d ad ot T Y

5303
5304
5305
5306

MACY11

ISSUE A WRITE DATA OF 103 WORDS TO CYLINDER 312,
HEAD O, SECTOR 0. MAKE SURE THE SECTOR WAS
ZERO FILLED CORRECTLY.

:;ttttt't.'.t't'ittt""l"ttttt"t'tt't'!ttttttttt'ttttt'tt.ttit

000012

035674

001262

1ST40:

SCOPE

MOV

#10.,8TIMES

;:D0 10.

ERROR

;BAD INIT ERROR

JSR
WRDATA
=103
OBUF F

R4 ,LRLOAD

;LOAD "'L'' REG
;WRITE DATA
:WORD COUNT PARTIAL SECTOR
;BUFF ADDRESS

TSSINIT

BYTE

ITERATIONS

sCLEAR SUBSYSTEM

:SECTOR 7

SEQ 0098

CIR6KFO RK6 FCTINL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

5359
ggg?

014517
014520

000
000312

5362
5363
gggg

014522
014526
014530

004437
000003
000400

5366

014532

104417

5367
gggg

01453&
014536

30A(1052)
19-JUN-BO
14:14 PAGE 100
140
PARTIAL SECTOR WRITE DATA

042260
.

.BYTE
312

:TRACK 0
SCYLINDER 312

JSR
B
400

R4, GENCOM

:GENERATE DATA
:PATTERN 3
1400 WORDS

TLOADRK

;LOAD RK REGS

104430
104002

TWAT96
ERROR

‘WAIT FOR INTERRUPT
;70 SLOW/NOT COMPLETE ERROR

TCHKOP
ERROR

& : OR 5,6,7

:CHECK FOR ANY ERROR
;REPORT ALL ERROR

JSR

R4 ,LRLOAD

:LOAD "'L'" REGS

§370
gg;;

014540
014542

104421
104004

gg;z

014544

004437

§375

014550

000121

§376
5377
5378
§379
ggg?

MACY11

035674

RDDATA

:READ DATA

177400
070414
007
000
000312

5382
5383
gggg

014562
014566
014570

004437
002007
000400

5386
S387
gggg

014572
014574
014576

104417
104424
104002

TLOADRK
TWAT3?
ERROR
2

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

5390
ggg;

014600
014602

104421
104004

TCHKOP
ERROR

& : OR 5,6,7

;CHECK FOR ANY ERRORS
JREPORT ALL ERRORS

§393

014604

012701

MOV

#OBUFF+206,R1

:CLEAR THE LAST 205 WORDS

38
15

:COMPARE OBUFF & IBUFF.
:ALL 400 WORDS
:NO ERRORS=-EXIT
‘REPORT FIRST COMPARE ERROR

MOV

ERRLMT,RO

sGET ERROR LIMIT

5394
5395
5396
5397
5398
5399
5400
56401
g:gg

5404

5405
5406
5407
5408

014610
014614
014616
014620
014622
014626
014630
014632
014634

014636

014642
014644
014646
014652

5409 014654

5410
22}3

014656
014660

5613

014662

5414

=400
IBUFF
.BYTE
BYTE
312

014552
014554
014556
014557
014560

042260

JSR
2007
400

072622

012700
005021
005300
001375
004437
100000
000400
000413
104015

000275

1%:

0462260

013700

001634

005300
001406
004437
040000

2%:

0462260

000402

104016
000770

MOV
CLR
DEC
BNE
JSR
100000
400
BR
ERROR
DEC
BEQ
JSR
40000
ERROR
BR

3%:

‘ONE FULL SECTOR
*BUFF ADDRESS
:SECTOR 7
:TRACK 0
:CYLINDER 312

7
0
R4, GENCOM

#275,R0
(R1)+
RO
1%
R4, GENCOM

RO
{3
R4 ,GENCOM
16
2%

;CLEAR IBUFF TO ALL ONES

:0F THE OUTPUT BUFFER TO ZERO
;70 VERIFY THE PARTIAL SECTOR
:WRITE O FILLED THE SECTOR

:DECREMENT IT
S1F 2ERO=-EXIT

:CONTINUE COMPARE

*NO MORE ERRORS-EXIT

sREPORT NEXT COMPARE ERROR
:LOOP

LR
R
Y]

CIR6KFO Rk6 FCTINL CTRL DIAG
19-JUN-B0 14:04
CZR6KF .P1

MACY11 30A(1052)
141

seTEST 41

54615
5616
5617
5418

19-JUN-80
14:14
PAGE 101
PARTIAL SECTOR READ DATA

SEQ 0100

PARTIAL SECTOR READ DATA

WRITE CYLINDER 312, TRACK 0, SECTOR ZERO WITH A

‘e

103 WORDS TO CYLINDER 312, TRACK 0, SECTOR 0.

i
b

ISSUE A READ DATA OF

KNOWN CONFIGURATION.

MAKE SURE ONLY 103 WORDS GET TRANSFERRED
TO MEMORY.

]

E.'t"""'.t'Q.Q"""'t"'""""'ttQ.'.Q"'QQ'Q.t.t"""'."'
T§T41:

014662
014664
014672
014674

000004
012737

014676
014702
014704
014706
014710
014711
014712
014714
014720
014722

004437
000123

014724
014726
014730

106417
104430
104002

ERROR

014732
014734

104421
104004

ERROR

014736
014742
014744
014746

004437
000121
177675
070414
017

JSR

R4 ,LRLOAD

104416
104003

000012

001262

#10.,8TIMES

::D0 10.

ERROR

:BAD INIT ERROR

JSR

R4 ,LRLOAD

:LOAD "'L'* REGS

=400
OBUFF
.BYTE
BYTE

17
0

=400 WORDS
:0BUFF IS BUFF ADDRESS
SSECTOR 17
:TRACK 0

JSR

R&,GENCOM

TSSINIT

035674

WRDATA

177400

072414

000004
000400

SCOPE

MOV

312

042260

:PATTERN &

1400 WORDS

TCHKOP

035674

RDDATA

:LOAD RK REGS

:WAIT FOR INTERRUPT
ST0 SLOW/NOT COMPLETE ERROR

:CHECK OPERATION FOR ANY ERRORS

:OR S, 6, 7, 10 ;REPORT ALL ERRORS

-103

1BUFF
BYTE
BYTE
312

JSR

2007

17
0
R& ,GENCOM

400

TLOADRK

TWAT3?2

ERROR
TCHKOP

P Q-GS

SCYLINDER 312
*GENERATE DATA

TLOADRK

042260

O0OOO0O000O0

*WRDATA

400
TWAT96

1%:

ITERATIONS

:CLEAR SUBSYSTEM

:LOAD "'L"' REGS

:RDDATA

:=103 WORDS
S1BUFF IS BUFF ADDRESS
*SECTOR 17
:TRACK 0
SCYLINDER 312

:CLEAR IBUFF
:LOAD Rk REGS

:WAIT FOR INTERRUPT

:T0 SLOW/NOT COMPLETE ERROR
“CHECK OPERATION FOR ANY ERRORS

:OR 5, 6, 7, 10 ;REPORT ALL ERRORS

ERROR

MOV
MOV
MOV
DEC

#OBUFF+206.R0
#275,R1
#-1,(RO)+
R

:AFTER THE LAST 205 WORDS OF
‘THE OUTPUT BUFFER TO ALL ONES.
*THESE SHOULD ALL BE ONES IN
:1BUFF BECAUSE THE PARTIAL

{88000

R4 ,GENCOM

:60 COMPARE IBUFF& OBUFF

BNE

*READ FILLED ONLY 103 WORDS.

CIR6KFO RK6 FCTINL CTRL 0%260‘
CZR6KF P11
19-JUN-80
5471
5472
gz;z

015024
015026
015030

000400
000413
104015

56475
5476
5477
5478
5479
5480
5481
5482
5483
5484
5485

015032
015036
015040
015042
015046
015050
015052
015054
01,056

013700
005300
001406
004437
040000
000402
104016
000770

5486

MACY 3?2%1052)

K 8
19-JUN-80 14:14 PAGE 102
PARTIAL SECTOR READ DATA

400
BR
ERROR
001634

648 :

042260

65%:

015056

MOV
DEC
BEQ
JSR
40000
BR
ERROR
BR
:

SEQ 0101

3%
15

;ALL 400 WORDS
;NO ERRORS=EXIT
;REPORT FIRST COMPARE ERROR

ERRLMT,RO
RO
65%
R4 ,GENCOM

;GET ERROR LIMIT
;DECREMENT COUNT
;1F ZERO = EXIT
;CONTINUE DATA COMPARE

65%
16
648

;NO MORE ERRORS = EXIT
;REPORT NEXT ERROR
;LOOP

»
’

3%:

R et

gzgg

J*TEST 42

WRITE DATA WITH NON=EXISTENT MEMORY

5489
g:g?

:*
:*

5492

;:t't'ttttt""ttttt'tt'tt"ttttit.tttttttt't"'ttfi'ntt"tttt'ttt

5493
5494
5495
g:g?

015056
015060
015066
015070

000004
012737
104416
104003

5498
5499
5500
5501
5502
5503
gggg

015072
015076
015100
015102
015104
015105
015106

004437
001523
177777
176000
013
000
000312

5506
5507
5508
5509
5510
5511
5512
5513

015110
015112
015114
015116
015120
015122
015124
015126

104417
104430
104002
104422
000000
000000
000040
104004

5514

015130

000012

001262

TST42:

035674

012737

054061

001541
177774
000003

001450

5515 015136 012737 050560 061002
5516
5517
5518
5519
5520
5521
5525

015144
015150
015154
015160
015162
015166
0151764

113700
042700
022700
001406
010037
012737
104010

5524
5525

015204
015206

001412
012737

5523

015176

022737

001204
000003

001202

176002

001544

054033

001450

5526 015214 012737 176002 001202

ISSUE A WRITE DATA OF 1 WORD USING ADDRESS 776000.
MAKE SURE NON-EXISTENT MEMORY SETS.
SCOPE
MOV
#10.,$TIMES
TSSINIT
ERROR
3

;:00 10. ITERATIONS
;CLEAR SUBSYSTEM
;BAD INIT ERROR

JSR
R4 ,LRLOAD
BA16!BA17 !WRDATA
-1
176000
MYIE
13
.BYTE
0
312

;LOAD "‘L''_REG
;BA16 & 17 SET WITH WRITE DATA
;WORD COUNT OF 1
;BUFF ADDRESS=10 PAGE BASE
sSECT 13
;TRACK 0
;CYLINDER 312

TLOADRK
TWAT96
ERROR
2
TCHKWE
0
0
NEMERR
ERROR
& ;0RS5,6,7

;LOAD RK REGS
;WAIT FOR INTERRUPT
;70 SLOW/NOT COMPLETE ERROR
sCHECK OPERATION WITH ERROR

MOV

#EM11A ENTON

MOovB
BIC
CMP
BEQ
MOV
MOV
ERROR

T.CS1+1,R0
#177774 ,RO
#3,R0
1%
RO,$REGI
#3,3REG10
10

;GET UPPER (S1
:CLEAR UNUSED BITS
;TEST IF BOTH UPPER BUS BITS SET
;YES = SKIP
;SET UP FOR ERROR REPORT

2%
#EM11 EMION

;YES = SKIP
;SET UP MESSGAE

MOV

18:

sNON-EXISTENT MEMORY ERROR
;REPORT ANY DISCREPENCIES
:SET UP ERROR MESSAGE

CMP

BEQ
MOV

MOV

00PER4é.DF010A ;WITH SUPPORT MESSAGE

#176002,7.8BA

;TEST IF BUSS ADDRESS LOW OKAY

#176002,8REG10

:STORE VALUE FOR REPORT

e
e

E% R6K FOPRK6 FCTNL CTRL DIAG
R6KF
P11
19=JUN-80 14:04

MACYTT 3?251052)

5527
gg%g

015222
015230

013737
104010

001544

5530
5531
5532

015232
015236
015240

005737
001411
012737

001542

054006

001450

5534
gggz

015252
015260

013737
104010

001542

001204

ggg;

015262

§533 015046

005037

001202

001204
2%:

TST
BEQ
MOV

T.WC
3%
#EM10,EMION

CLR

$REG10

sTEST IF WORD COUNT CORRECT
;YES - SKIP
sSET UP MESSAGE

MOV
T.WC,$REG1
ERROR 10

ggzz

ISSUE A READ DATA OF 1 WORD USING ADDRESS 776000.

MAKE SURE NON-EXISTENT MEMORY SETS.

. %

5546
5547
5548
gggg

015262
015264
015272
015274

000004
012737
104416
104003

5551
5552
5553
5554
5555
5556
gggg

015276
015302
015304
015306
015310
015311
015312

004437
001521
177777
176000
013
000
000312

5559
5560
5561
5562
5563
5564
5565

015314
015316
015320
015322
015324
015326
015330

104417
104430
104002
104422
000000
00
000040

015332
015334

104004
012737

;:Q'tQttttt'ttttttt'tt't'tt"t"'ttt'tttttt'tttttttttttt't'tttttt

000012

001262

TST43:

035674

054061

001450

5568 015342 012737 050634 061002
5569
S570
5571
5572
5573
5574
gg;z

015350
015354
015360
015364
015366
015374
015400

113700
042700
022700
001406
012737
010037
104010

001541
177774
000003
000003
001204

001202

5577
5578
§579

015402
015410
015412

022737
001412
012737

176002

001544

054033

001450

015426
015434

013737
104010

001544

001204

5580 015420 012737 176002 001202

5581
5582

T.BA,SREG11
10

ed
R
R
s*TEST 43
READ DATA WITH NON-EXISTENT MEMORY
Hia
)

5542

5566
5567

MOV
ERROR

3%:

5539
222?

5545

L 8
19-JUN-B0 14:14 PAGE 103
WRITE DATA WITH NON=EXISTENT MEMORY

1%:

SCOPE
MOV
#10.,$TIMES
TSSINIT
ERROR
3

::D0 10. ITERATIONS
sCLEAR SUBSYSTEM
sBAD INIT ERROR

JSR
R4 ,LRLOAD
BA16!BA17 'RDDATA
-1
176000
.BYTE
13
.BYTE
O
312

;:LOAD ''L'' REG
:BA16 & 17 WITH READ DATA
sWORD COUNT OF 1
sBUFF ADDRESS=10 PAGE BASE
;SECTOR 13
;TRACK 0
;CYL 312

TLOADRK
TWAT96
ERROR
2
TCHKWE
0
0
NEMERR

;LOAD RK REGS
sWAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR
sCHECK OPERATION WITH ERRORS

MOV

sSET SUPPORT MESSAGE

ERROR
MOV

&; OR 5,6,7
#EM11AENION

MOvB
BIC
CMP
BEQ
MOV
MOV
ERROR

T.CS1+1,R0
#77774,R0
#3.R0
1%
#3,8REG10
RO,$REG11
10

CMP
BEQ
MOV

MOV

MOV
ERROR

00PER43.DF010A

#176002,7.BA
2%
#EM11 _ EMION

sNON=EXISTENT MEMORY ERROR
sREPORT ALL DISCREPANCIES
sSET MESSAGE

:GET UPPER (S1
;CLEAR UNWANTED BITS
;TEST BOTH BUS 16 & 17 SET
sYES - SKIP
;SET VALUES FOR REPORT

sTEST IF BUS ADDRESS CORRECT
sYES = SKIP
sSET MESSAGE

0176062.SREG10 sSET VALUES FOR REPORT
T.BA,SREG11
10

SEQ 0102

CIR6KFO RK6 FCINL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

MACY1 3?2;1052)

5583
5584
5585
5586

015436
015442
015444

005737
001411
012737

001542

054006

001450

5588
gggg

015456
015464

013737
104010

001542

001204

ggg;

015466

5S87

015452

005037

001202

2%:

LI
19-JUN-80 14:14 PAGE 104
READ DATA WITH NON=EXISTENT MEMORY

1ST
BEQ
MOV

T.WC
3
#EM10,EMION

MOV
ERROR

T.WC,$REG11
10

(LR

SEQ 0103

;TEST IF WORD COUNT CORRECT
;YES - SKIP
;SET MESSAGE

$REG10

sSET VALUES

3%:

5593

gggg

JeTEST 44

R R

AR R AR R R

R AR R R R R A RRN RO

UNIBUS PARITY ERROR

5596

5599
ggg?

o
4

5597
5598

A
%

INITIALIZE A MEMORY LOCATION WITH BAD
PARITY. ISSUE A WRITE DATA OF 400 WORDS
STARTING AT A LOCATION 112 WORDS BEFORE

THE LOCATION WITH BAD PARITY.,
MAKE SURE
THAT UNIBUS PARITY ERROR SETS.

5602
5603
5604
5605
5606
5607

M
H
M
i

;:."..."'....."".'."'."'""..'.'.'.'.".'..'..."""""'

5
5610
5611
gg}%

015466
015470
015476
015500

000004
012737
104416
104003

5614
5615
5616
5617
5618
5619
ggg?

015502
015510
015512
015520
015522
015526
015534

5622

015540

000012

001262

032737
001013
032737
001005
104401
052737
000137

000100

001664

000004

001664

051362
000004
016326

001664

015540
015544
015546
015550
015552
015553
015554

004437
000123
177400
072414
010
000
000312

035674

5631
5632
gggz

015556
015564
015566

032737
001002
005077

002000

5635

015572

004437

042260

5636
gggg

THIS TEST IS ONLY EXECUTED IF
MEMORY PARITY OPTION EXISTS FOR
BUFFER. IT WILL NOT BE EXECUTED
ON "ECC' TYPE MEMORY.

sboa

5623
5624
5625
5626
5627
5628
gg%g

NOTE:

015576
015600

000007
000400

T1ST44:

25%:
1%:

001664

164100
3%:

SCOPE
MOV
#10.,8TIMES
TSSINIT
ERROR
3

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

BIT
BNE
BIT
BNE
TYFE
BIS
JMP

#PARPRE ,OPTFLG
1%
#MEMPYB,OPTFLG
25%
,OPRO10
#MEMPYB,OPTFLG
4%

;TEST IF PARITY OPTION PRESENT
;YES=SKIP
;TEST IF PARITY OPTION REPORTED
:YES=SKIP TO EXIT
;PRINT BYPASS MESSAGE
;SET OPTION REPORTED BIT
;SKIP TO EXIT

JSR
WRDATA
=400
OBUFF
BYTE
.BYTE
312

R4 ,LRLOAD

;LOAD "‘L'" REGS
;WRDATA
;=400 WORDS
;OBUFF IS BUFF ADDRESS
;SECTOR 10
:TRACK 0
;CYLINDER 312

BIT
BNE
CLR

#CP1170,0PTFLG
b1
aCSRPTR

;TEST IF 11/70
;YES - SKIP
:CLEAR PARITY IE

JSR

R4 ,GENCOM

:GENERATE DATA

7
400

10
0

;PATTERN 7
;400 WORDS

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN=-80 14:04

5639
5640
5641
322%

015602
015606
015612
015614

01%746
012746
000002

5644

015614

012737

5646
5647

0156
015632

001011
012777

5645

0156%%

032737

5648 015640 012737

MACY1 3?2{1052)

000340
015614

MOV
MOV
RTI

#PR7,=(SP)
#108,-(SP)

072640

MOV

#100200,0BUFF+224 ;SET WORD IN BUFFER

00000&

164032

BNE
MOV

5%
#B1T2,9CSRPTR

164016

MOV

108:
100200

002000

001664

BIT

100200 072640

MOV

gggg

015646

012777

000001

5651
5652
5653
5654
5655
5656
5657
5658
5659
5660

015654
015660
015664
015666
015672
015674
015700
015706
015714
015722

013746
012746
000002
013704
005000
012701
012777
012777
012737
104417

001622
015666

5%:

001672

11%:
:

001662
070400
070410
016302

163712
164002
001264

032737
001434
012737
012777

002000

001664

ggg? 015756 012737

000016
000000
000000

170000

177746
163740
163166

5661
5662
5663
5664
5665

5668

5669
5670
5671
5672
5673
5674

015724
015732
015734
015742

015750

5680
5681
5682
5683

016004
016010
016016
016026
016026

005037
012777
012777
104430
000414

177746
000100
000100

163672
163120

002000

001664

5686
S687
5688

016040
016044
016050

005077
005037
012777

163626
072640
000001

163614

032737
001007

002000

001664

5678
5679

5684
5685

016030
016036

032737
001024

55233 016056 000414

5691
5692

569%
5696

016060
0N
0160
016076

005077
005037

#BITO,8CSRPTR
RKPRI,=(SP)
#11%,-(SP)

MOV

#0,387TKS

MOV
40$%:

43%:

163576
072640

sYES = SKIP
e
:SET WRITE WRONG PARITY BIT

:SET BAD PARITY IN MEMORY

;CLEAR CONTROL BIT, SET IE BIT

#CP1170,0PTFLG
45%
#6,177746
#0,3KWLADD

TEST IF 11/70
JNO - SKIP
:SET TO DISABLE CACHE AND UNIBUS ERROR
sTURN OFF CLOCK INTERRUPTS

1170000.177750

sSET FOR ERROR FORCE

TST8B
BGT
DEC
BMI
NOP
BGT
NOP
CLR

(R1)
433
RO
40%

:TURN OFF KEYBOARD

40%

;LOOP TO WAIT FOR INTERRUPT OR ABORT
sWAIT. THE CODE BETWEEN THE STARS IS SET
:SET UP SO ALL BYTES HAVE PARITY OF 1.
s1F THIS CODE IS CHANGED, REMEMBER ALL
;BYTES MUST HAVE AN EVEN NUMBER OF
;BITS.

(R&)

;CLEAR ERROR FORCE

CLR
MOV
MOV
TWAT96
BR

177746
#B176,3KWLADD
#100,9%7KS

46%

sENABLE CACHE
sTURN ON CLOCK INTERRUPTS
sTURN ON KEYBOARD INTERRUPTS
sWAIT FOR INTERRUPT
270 SLOW/NOT COMPLETE ERROR

CLR
CLR
MOV

sCSRPTR
OBUF F +224
#1,3CSRPTR

JELSE CLEAR CSR
;CLEAR THE BAD PARITY WORD
;SET PARITY DETECT AGAIN

BIT
BNE

BR
46%:

;TEST IF 11/70

;SET OLD PRIORITY
+SET ADDRESS
sRESTORE PRI
CSRPTR,
R4
sSET R4 WITH CSR POINTER
RO
:sSET RO FOR COUNTER
#INTSET,R1
:SET R1 FOR POINTER TO INTERRUPT FLAG
#SPCHLR,3RKVEC
;SET UP INTERRUPT VECTORS FOR
#SPCPAR,3MMVECA ; RK611 AND PARITY ERROR
#2% ,8ESCAPE
sSET UP ESCAPE FOR ERROR
sLOAD RK REGS

IRRRRRRRRRNRRRAREERRRORRNY

45%:

:PUT PRIORITY 7 ON STACK
sPUT ADDRESS ON STACK
;SET PRI
-

0100260.0BUFF022£

IRRRRRARRRRRRRRRR
RS

016000
016002

5677

#CP1170,0PTFLG

MOV
MOV
RTI
MOV
.
CLR
MOV
MOV
MOV
MOV
TLOADRK

BIT
BEQ
MOV
MOV

177750

105711
003005
005300
100774
000240
003372
000240
005014

5675
5676

015764
015766
015770
015772
015774
015776

012777

N 8
19-JUN=-B0 14:14 PAGE 105
UNIBUS PARITY ERROR

BIT
BNE

(LR
(LR

#CP1170,0PTFLG
4«8%

«8$

#CPINT70,0PTFLG
7%
S(SRPIR
OBUFF+224

;TEST IF 11/70
;YES - SKIP

:SKiP

;TEST IF 11/70
JYES - SkiIP

;CLEAR (SR
JCLEAR BAD PARITY WORD

SEQ 0104

001544

072646

072646
001544

001202
001204

016220
016226
01623
016236
016244
016252

012737
023727
103007
012737
013737
104010

054006
001542

001450
177513

177513

001542

001202
001204

01625
016262

023727
101407

001542

177515

012737
013737
104010

177515
001542

001202
001204

005037
012777
004737
012777

001264
034442
034522
000100

016302
016302
016306
016314
016320

016326

148%:

CMP
BLOS
MOV
MOV

ERROR

16%:

#-265,3REG10
T.WC,$REG1
10

CMP
BLOS

ERROR

163304

CLR

MoV

JSR
MOV

162616

;SET MESSAGE

T.WC,#-265
20%

;CHECK IF WORD COUNT WITHIN RANGE
:YES - SKIP

T.WC,#-263

;STILL CHECKING IF WC

SESCAPE
#INTHLR,aRKVEC

;REV 006
;RESET INT. VECTORS FOR RKO6

#100,as7xs

: INSURE KEYBOARD IS ENABLED

$
#-263,$REG10
T.WC,$REGT
10

lala

e deo Jdo Jo

#7.BA,SREG11
10

MOV
MOV

2%:

#OBUFF+232,$REG10 ;SET VALUES
#EM10,EMTON

ERROR

20%:

T.BA,#OBUFF+232 ;CHECK IF BA IN RANGE
16$
‘YES = SKIP

MOV
CMP

BHIS

10
168

~N~

I
023727
101407
012737
012737
104010

ERROR
BR

#OBUFF+226,SREG10 ;SET VALUES FOR REPORT
T.BA,SREG11

e T

MOV
MoV

:CHECK IF BA IN RANGE
*NOT TO LOW = SKIP

001202
001204

:CLEAR ESCAPE
+SET MESSAGES FOR REPORT

072642
001544

BHIS

$ESCAPE
#OPERLG,DFO10A
#EMT1,EMION
T.BA,#OBUFF+226
148

CLR

;REPORT ALL DISCREPANCIES

MOV
MOV
CMP

;UNIBUS PARITY ERROR

9. Y. 9. V-0 9.

061002
001450
072642

4&; OR 5,6,7

sSET VALUES

:YES = SKIP
;SET VALUES

IN RANGE

V. V-

001264
050707
054033
001544

;REPORT TO SLOW ERROR

N, V. Ve Ve YV

UPERR
ERROR

;SET UP PARITY DETECT AGAIN

;CHECK OPERATION WITH ERROR

TCHKWE

0
0

016172
016200
016202
016210
016216

016264
016272
016300

012737
012737
023727
103010
012737
013737
104010
13

#1,3CSRPIR

§720
5721
3728
723
5724
5725
5726
5727
5728
5729
5730
5731
5732
5733
573,
5735
573
5737
5738
5739
5740
5741
§742
5743
5744
5745
5746
5747
5748
5749
5750

104422
000000
000000
000100
104004

ERROR

005037

016126
016134
016142
016150
016152
016160
016166
016170

MoV

47%:
48%:

016122

5705
5706
5707
5708
5709
5710
5711
5712
5713
5714
5715
5716
§717
5718

163564

PC,OPTTST

§704

000001

SEQ 0105

012777
104002

016100
016106
016110
016110
016112
016114
016116
016120

19-JUN-B0 14:14 PAGE 106
UNIBUS PARITY ERROR

5695
5696
5697
5698
5699
5700
5701
3702

MACY11 30A(1052)

4%:
.SBTTL

*+MULTIPLE SECTOR OPERATIONS

';t't'lttttl."'i""""'l"""t't"ttttttit"t"'l"!t'.tti"t

SRTEST 45

TWO SECTOR WRITE DATA (PART 1)

ISSUE A WRITE DATA OF 1000 WORDS TO CYLINDER 312,

TRACK 0, SECTOR 0.
READ DATA BACK ONE SECTOR
AT A TIME AND MAKE SURE IT IS CORRECT.

CZRGKFO RE6 FCINL CTRL DIAG
CIRGKF.P11
19-JUN-80 16:04

000004

L L

L R e

R e

T S

5753
5754
g;gg

016330
0163
016340

012737
104416
104003

000012

MOV
#10.,8TIMES
TSSINIT
ERROR
3

;:00 10. ITERATIONS
sCLEAR SUBSYSTEM
sBAD INIT ERROR

S757
5758
5759
5760
5761
5762
g;gz

016342
016346
016350
016352
016354
016355
016356

004437
000123
177000
072414
000
000
000312

035674

JSR
WRDATA
-1000
OBUFF
.BYTE
BYTE
312

;LOAD ''L'" REGS
;WRDATA
:=1000 WORDS
sOBUFF IS BUFF ADDRESS
JSECTOR 0
;TRACK 0
sCYLINDER 312

5765
5766
g;g;

016360
016364
016366

004437
000015
001000

042260

5769
S770
g;;;

016370
016372
016374

104417
104430
104002

5773
g;;g

016376
016400

106421
104004

S776
S777
g;;g

016402
016406
016410

004437
002007
001000

042260

JSR
2007
1000

R4 ,GENCOM

sCLEAR IBUFF
;70 ALL 1°'S

S780
5781
5782
S783
5784
5785
g;g?

016412
016416
016420
016422
016424
016425
016426

004437
000121
177400
070414
000
000
000312

035674

JSR
RDDATA
=400
IBUFF
.BYTE
BYTE
312

R4 ,LRLOAD

;LOAD ''L'' REGS
sRDDATA
;=400 WORDS
sIBUFF IS BUFF ADDRESS
;SECTOR 0
;TRACK 0
sCYLINDER 312

S788

0146430

104417

= .

WS W

;GENERATE DATA
sPATTERN 15
;1000 WORDS

R4 ,GENCOM

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

;CHECK OPERATION FOR ANY ERRORS
;O0R S5, 6, 7, 10 ;REPORT ALL ERRORS

;LOAD RK REGS

TWAT3?2
ERROR

TCHKOP
ERROR

016436
016440

104421
104004

5795
5796
S797
S798

016442
016446
016450
016452

004437
000121
177400
071414

5800
ggg;

016455
016456

S803
5804
gggg

016460
016462
016464

sCHECK OPERATION FOR ANY ERRORS
;O0R S5, 6, 7, 10 ;REPORT ALL ERRORS

;TRACK 0
sCYLINDER 312

104417
104424
104002

TLOADRK
TWAT3?
ERROR
l

;SECTOR
1

Ve Ve We Ve e

.BYTE
312

JBYTE

N N

000
000312

001

sLOAD "L'" REGS
sRDDATA
;=400 WORDS
: IBUFF+1000 IS BUFF ADDRESS

016454

JSR
R4 ,LRLOAD
RDDATA
=400
IBUFF+1000

;LOAD RK REGS
sWAIT FOR INTERRUPT
;70 SLOW/NOT COMPLETE ERROR

5799

035674

N N

5792
g;gz

sWAIT FOR INTERRUPT
sTO SLOW/NOT COMPLETE ERROR

V. e

TLOADRK

104424
104002

016432
016434

N, V. W

S789
g;g?

0
0

Wa .

TCHKOP
ERROR

;

TLOADRK
TWAT96
ERROR
2

JSR
15
1000

0
O

R4 ,LRLOAD

0C1262

SCOPE

tS145:

016326

§752

SEQ 0106

§751

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-B0 14:04

lalal

——————

. 9
MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 107
145
TWO SECTOR WRITE DATA (PART 1)

5838
5839
5840
5841
5842
5843
5844
5845
5845
5847
5848
5849
5850
5851
5852
5853
5854
5855
5856
5857
5858
5859
5860
5861

MOV
DEC
BEQ
iggoo

ERRLMT,RO
RO
65%
R4 ,GENCOM

:GET ERROR LIMIT
;DECREMENT COUNT
;1F ZERO = EXIT
:CONTINUE DATA COMPARE

042260

BR
ERROR

65%
16

:NO MORE ERRORS = EXIT
;REPORT NEXT ERROR

000770

65%:

;LOOP

648

2%:

016532

:.""Q.'.".'.""'"""""""'..'.".'."."""."'..."""

.:'TEST 46

a*
o

TWO SECTOR WRITE DATA (PART 2)

ISSUE A WRITE DATA OF 1000 WORDS TO CYLINDER 312,

TRACK 0, SECTOR 23.
READ DATA BACK ONE SECTOR
AT A TIME AND MAKE SURE A MID-TRANSFER

SEEK DID NOT TAKE PLACE.

lalel

Y. Y. Y. Y. Y. Y. 7. Y. 9-9-9:-9-7:-5

648

T . T

001634

;1000 WORDS
:NO MISCOMPARES=-EXIT
:REPORT FIRST ERROR

2%
15

Y. Y. ¥ .

1000
BR
ERROR

100000

; COMPARE DATA

R4 ,GENCOM

JSR

016506
016512
016514
016516
016522
016524
016526
016530
016532

100000

042260

;OR S, 6, 7, 10 ;REPORT ALL ERRORS

004437

CHECK OPERATION FOR ANY ERRORS

016472
016476
016300
016502
016504

TCHKOP

ERROR

104421
104004

:‘:."Q"' (2222222222323 22323223323222323332323333233232332220020R00ZR0 0]
016532
016534
016542
016544

000004
012737

016546
016552
016554
016556
016560
016561
016562

004437
000123

016564
016570
016572

004437
000016
001000

016574
016576
016600

104417
104430
104002

ERROR

016602
016604

104421
104004

ERROR

104416
104003

000012

035674

177000

072414
023
000
000312

042260

001262

TST46:

SCOPE

MOV
#10.,8TIMES
TSSINIT
3
ERROR

JSR

R4 ,LRLOAD

.BYTE
.BYTE
312

23
0

JSR
16
1000

R4 ,GENCOM

WRDATA
-1000
OBUFF

TLOADRK
TWAT96

TCHKOP

::D0 10. ITERATIONS
sCLEAR SUBSYSTEM
:BAD INIT ERROR

5825
5826
5827
5828
5829
5830
5831
5832
5833
5834
5835
5835
5837

016466
016470

SEQ 0107

:LOAD "'L'' REGS

sWRDATA
;=1000 WORDS
;0BUFF IS BUFF ADDRESS

:SECTOR 23
:TRACK 0
;CYLINDER 312

:GENERATE DATA
:PATTERN 16
;1000 WORDS
:LOAD RK REGS
:WAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE ERROR
:CHECK OPERATION FOR ANY ERRORS

:OR S, 6, 7, 10 ;REPORT ALL ERRORS

IF THE TRACK ADDRESS AT THE END OF OPERATION IS IN ERROR

THE CONTROLLER DID A MID-TRANSFER SEEK AS THOUGH IT
WERE IN 24(8) SECTORS PER TRACK MODE.

5807
5808
5809
5810
5811
3812
5813
5814
5815
5816
5817
5818
5819
5820
5821
5822
5823
5824

CIR6KFO RKk6 FCTNL CTRL DIAG
19=JUN-80 14:04
CZROKF P11

19-JUN-80 14:14 PAGE 108
MACY11 30A(1052)
145
TWO SECTOR WRITE DATA (PART 1)

.,
0

~SEQ 0108

l
5907
5908
5909
5910
5911
5912
5913
5914
5915
5916
5917
5918

146

19-JUN-80 14:14 PAGE 109
TWO SECTOR WRITE DATA (PART 2)

035674

016624
016630
016632

004437
002007
001000

042260

016634
016636
016640

104417

TLOADRK

104002

ERROR

016642
016644

104421
104004

ERROR

016646
016652
016654
016656
016660
016661
016662

004437
000121
177400
07i414
024
000
000312

JSR

R4 ,LRLOAD

016664
016666
016670

104417
104424
104002

ERROR

016672
016674

104421
104004

ERROR

016676
016702
016704
016706
016710

004437

JSR
100000

R4 ,GENCOM

; COMPARE DATA

BR
ERROR

1%
15

:NO ERRORS-SKIP
;REPORT FIRST ERROR

016712
016716
016720
016722
016726
016730
016732
016734
016736
016736
%s

013700
005300
001406
004437
040000
000402

MOV
DEC

ERRLMT,RO
RO

;GET ERROR LIMIT
;DECREMENT COUNT
;1F ZERO = EXIT
;CONTINUE DATA COMPARE"

L
L

;SECTOR 23

sTRACK 0

JSR

R4 ,GENCOM

;CLEAR [BUFF TO ALL ONES

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

W, T,

23
0

WL T

:CYLINDER 312

042260

1000

001634

648 :

042260

BEQ
JSR

40000

65%:

BR
ERROR
BR

N
W
N
S
N
N
S

:TRACK 0

:CYLINDER 312

:LOAD RK REGS
;WAIT FOR INTERRUPT

;7O SLUM/NOT COMPLETE ERROR

;CHECK OPERATION FOR ANY ERRORS
;O0R S5, 6, 7, 10 ;REPORT ALL ERRORS

65%
R4 ,GENCOM
65%
16
64%

;1000 WORDS

:NO MORE ERRORS = EXIT
;REPORT NEXT ERROR

:LOOP

1%:

eTEST 47

- IBUFF+1000 1S BUFF ADDRESS

:SECTOR 24

TLOADRK

TCHKOP

=400 WORDS

IBUFF+1000
24
.BYTE
0
.BYTE
312

TWAT3?2

;LOAD "'L'* REGS

sRDDATA

RDDATA
=400

TWO SECTOR WRITE DATA (PART 3)

ISSUE A WRITE DATA OF 401 WORDS TO CYLINDER 312,

TRACK 0, SECTOR 10.

035674

;CHECK OPERATION FOR ANY ERRORS

;OR 5, 6, 7, 10 ;REPORT ALL ERRORS

READ DATA BACK ONE SECTOR AT

TCHKOP

TWAT3?

1000

001000
000413
104015

104016
000770

sIBUFF IS BUFF ADDRESS

.BYTE
.BYTE
312

2007

104424

100000

;RDDATA
;=400 WORDS

=400
IBUFF

R4 ,LRLOAD

JSR

RDDATA

004437
000121
177400
070414
023
000
000312

sLOAD "L'" REGS

016606
016612
016614
016616
016620
016621
016622

5863
5864
5865
5866
5867
5868
5869
5870
5871
5872
5873
5874
5875
5876
5877
5878
5879
5880
5881
5882
5883
5884
5885
5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
5901
5902
5903
5904
5905
5906

MACY11 30A(1052)

CIR6KFO RK6 FCTNL CTR t DIAG
19=JUN- 0 14:04
CIR6KF P11

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-B80 14:04
CZR6KF P11

A
19-JUN-B0
14:14
PAGE 110
MACY11 30A(1052)
147
TWO SECTOR WRITE DATA (PART 3)
A TIME AND CHECK ZERO FILL OF

—4-0.

~ SEQ 0109
SECOND SECTOR.

* %

000004
012737

016752
016756
016760
016762
016764
016765
016766

004437
000123
177377
072414

016770
016774
016776

004437
000002
001000

017000
017002
017004

104417
104430
104002

017006
017010

104421
104004

017012
017016

012700
012701
005020
005301
001375
004437
002007
001000

106416

000012

001262

t§r

104003

035674

010
000

0462260

JSR
WRDATA
=401
OBUFF
.BYTE
.BYTE

R4 ,LRLOAD

JSR
2

R4 ,GENCOM

1%:

CLR
DEC
BNE
JSR
2007

el
dh

OO00O0 o000

JSR

OO0

035674

ERROR

h D

;GENERATE DATA
;PATTERN 2

;WAIT FOR

INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

;CHECK OPERATION FOR ANY ERRORS
:OR 5, 6, 7, 10 ;REPORT ALL ERRORS

#OBUFF+1002,R0
#377,R1
.

:GET STARTING ADDRESS TO BE CLEARED
*NUMBER OF WORDS

(RO)+
R
1%
R4 ,GENCOM

:CLEAR WORD
*DEC COUNT
:LOOP UNTIL COUNT ZERO
*CLEAR IBUFF TO ONES

R4 ,LRLOAD

:LOAD ‘'L'* REGS

1000

104421
104004

;TRACK 0
;CYLINDER 312

CLEAR LASI $77 WORDS OF OBUFF FOR EXPECTED ZEROS FROM ZERO FILL

MOV
MOV

ERROR

—

;LOAD "'L'* REGS

;WRDATA
:=401 WORDS

;LOAD RK REGS

ERROR

042260

ITERATIONS

;CLEAR SUBSYSTEM
;BAD INIT ERROR

;1000 WORDS

TCHKOP

073416
000377

::00 10.

;SECTOR 10

TLOADRK

TWAT96
ERROR

R RRRRRRRRRRRRdd)

;0BUFF IS BUFF ADDRESS

1000

104417
104424
104002

071414
on
000

#10.,8TIMES
TSSINIT
ERROR
3

004437
000121
177400
070414
010
000
000312

177400

SCOPE

312

000312

004437
000121

MOV

O0OO0OO0O0O0O0O0O0

016736
016740
016746
016750

RDDATA

=400

IBUFF
.BYTE

BYTE
312
TLOADRK
TWAT32

TCHKOP

035674

JSR

RDDATA

:=400 WORDS

STRACK 0
SCYLINDER 312

:LOAD RK REGS
‘WAIT FOR INTERRUPT

:T0 SLOW/NOT COMPLETE ERROR

:CHECK OPERATION FOR ANY ERRORS

;OR S, 6, 7, 10 ;REPORT ALL ERRORS

R&4,LRLOAD

1BUFF+1000
BYTE

SIBUFF IS BUFF ADDRESS
SSECTOR 10

10
0

=400

BYTE

*RDDATA

:LOAD "'L'* REGS
*RDDATA

1=400 WORDS

- [BUFF+1000 1S BUFF ADDRESS

;SECTOR 11
“TRACK 0

CIR6KF P11

19-JUN-80 14:04

MACY1T 3?2;1052)

19-JUN=-B0

14:14

9
PAGE 111

TWO SECTOR WRITE DATA (PART 3)

SEQ 0110

;g;z

017104

000312

312

:CYLINDER 312

§977
5978

017106
017110

104417
104424

TLOADRK
TWAT32

:LOAD RK REGS
‘WAIT FOR INTERRUPT

5981
5982
5983
5984
gggz

017114
017120
017122
017124
017126

004437
100000
001000
000413
104015

042260

5987
5988
5989
§990
5991
§992
5993
5994

017130
017134
017136
017140
017144
017146
017150
017152

013700
005300
001406
004437
040000
000402
104016
000770

001634

gggg

5995

5996

§997

5998

017112

017154

104002

648

042260

658:

JSR
100000
1000
BR
ERROR

R4 ,GENCOM

:DATA COMPARE

2%
15

;1000 WORDS
*NO ERROR=-SKIP
:REPORT FIRST ERROR

MOV
DEC
BEQ
JSR
40000
BR
ERROR
BR

ERRLMT,RO
RO
65%
R4 ,GENCOM

:GET ERROR LIMIT
:DECREMENT COUNT
:1F ZERO = EXIT
:CONTINUE DATA COMPARE

65%
16
648

:NO MORE ERRORS - EXIT
;REPORT NEXT ERRCR
:LOOP

;*TEST S0

]

.
‘e
o
it

6003
6004

6005

60%

017154

000004

017156
017164
017166

012737 000012
104416
104003 .

6012

017170

004437

6016
6017
gg}g

017202
017203
017204

025
000
000312

ISSUE A WRITE DATA OF 1000 WORDS TO CYLINDER 312,
TRACK 0, SECTOR 25. READ DATA BACK ONE SECTOR
AT A TIME AND MAKE SURE A MID-TRANSFER SEEK
;
DID TAKE PLACE.

017174
017176
017200

000123
177000
072414

001262

1ST50:

035674

SCOPE

#10.,$TIMES
MOV
TSSINIT
3
ERROR

;

042260

R4 ,LRLOAD

.BYTE
BYTE
312

25
0

JSR

R4, GENCOM

:GENERATE DATA

:LOAD RK REGS
*WAIT FOR INTERRUPT
:T0 SLOW/NOT COMPLETE ERROR

017206

004437

6024
6025

017216
017220

104417
104430

104002

ERROR

6028

017224

104421

TCHKOP

017212
017214

017222

000003
001000

6029 017226 104004
6030

3
1000
TLOADRK
TWAT96

;

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

JSR

WRDATA
-1000
OBUF F

6020

gggg

MID-TRANSFER SEEK ON WRITE (PART 1)

::t..ttttttt".tt'"'Qt"""""'ilttttt'ttttt"tttt'tt.tl'ttt't

6008
6009
gg}?

6021
605;

:T0 SLOW/NOT COMPLETE ERROR

;.-t.'t"fitttttt'tt"ttt"t't"tt'ti'tt't"".'ttt'ttl'.'ttQttt't'

6001
6002

6013
6014
6015

28:

017154

2888

6007

ERROR

:LOAD "'L"' REGS

;WRDATA
:=1000 WORDS
:0BUFF IS BUFF ADDRESS

*SECTOR 25
:TRACK 0
SCYLINDER 312

:PATTERN 3
11000 WORDS

:CHECX OPERATION FOR ANY ERRORS

& :OR S, &, 7, 10 ;REPORT ALL ERRORS

A TRACK ERROR PRINTED OUT AT THE END OF THE OPERATION INDICATES A
v

——————————

CIZR6KFO RK6 FCTNL CTRL DIAG

6036
6037
6038
6039
6040
6041
6042
6043
6044
6045
6046
6047
6048
6049
6050
6051
6052
6053
6054
6055
6056
6057
6058
6059
6060
6061
6062
6063
6064
6065
6066
6067
6068
9

6078
6079
6080
6081
6082
6083
6084
6085
6086

30A(1052)
150

19-JUN-80

14:14

9
PAGE 112

MID=-TRANSFER SEEK ON WRITE

(PART 1)

MID=TRANSFER HEAD SWITCH DID NOT OCCUR.

017230
017234
017236

004437
002007
001000

042260

017240
017244
017246
017250
017252
017253
017254

004437
000121
177400
070414
025
000
000312

035674

017256
017260
017262

104417
104425
104002

017264
017266

104421
104004

037270
01727«
017276
017300
017302
017303
017304

004437
000121
177400
C7i414
000
001
000312

017306
017310
017312

104417
104425
104002

ERROR

017314
017316

104421
104004

TCHKOP
ERROR

017320
017324
017326
017330
01 7 332

004437
100000
001000
000413
104015

042260

JSR

R4 ,GENCOM

; COMPARE DATA

BR
ERROR

1%
15

;1000 WORDS
:NO ERRORS-SKIP
;REPORT FIRST ERROR

01 7334
01 7340
01 7342
01 ;366
01
01 7
7
017354

013700
005300
001406

001634

017356
017360

017360

004437

104016
000770

JSR

2007

R& ,GENCOM

1000

JSR

RDDATA

-400
IBUFF

.BYTE
BYTE
312
TLOADRK
TWAT48

ERROR

TCHKOP

035674

Ré,LRLOAD

25
0

R4, LRLOAD

:OR S, 6, 7, 10 :REPORT ALL ERRORS

-400

100000
1000

64%:

042260

65%:

MOV

:SECTOR 0

STRACK 1

*CYLINDER 312
:LOAD RK REGS

‘WAIT FOR INTERRUPT

70 SLOW/NOT COMPLETE ERRCR

:CHECK OPERATION FOR ANY ERRORS
;OR 5, 6, 7, 10 ;REPORT ALL ERRORS

ERRLMT,RO

;GET ERROR LIMIT

DEC
BEQ
iSSOd

RO
65%
R4 ,GENCOM

;DECREMENT COUNT
;1F ZERO = EXIT
;CONTINUE DATA COMPARE

BR
ERROR

65%
16

:NO MORE ERRORS = EXIT
;REPORT NEXT ERROR

1%:
st t

*RDDATA

- 1BUFF+1000 IS BUFF ADDRESS

TLOADRK

TWAT48

:LOAD ''L"* REGS
1=400 WORDS

1BUFF +1000
BYTE

“SECTOR 25
STRACK 0
SCYLINDER 312

:CHECK OPERATION FOR ANY ERRORS

JSR

312

=400 WORDS
:1BUFF IS BUFF ADDRESS

170 SLOW/NOT COMPLETE ERROR

.BYTE

*RDDATA

:LOAD RK REGS
‘WAIT FOR INTERRUPT

ERROR

RDDATA

:LOAD ''L'* REGS

SeTEST 51

bRt R

64%

;LOOP

R R RRERRERRRRRRRRRRRARARRRRARRRRRNRRARRRORRRORRORSIRRORROETYR

MID-TRANSFER SEEK ON WRITE (PART 2)

ISSUE A WRITE DATA OF 1000 UORDS:YO CYLINDER 312,

~ SEQ 0111

~r~

|
6031
6032
6033
gggg

MACY11

[Tl

CIR6KFO RK6 FCTNL CTRL DIAG
CZREKF P11
19-JUN-80 14:04

CZR6KF P
6087
6088

19-JUN-80 14:04

6089
6090
609\

017360

000004

012737
104416
104003

000012

6097

01732&

004437

035674

6099
6100
6101
6102
g}gz

017402
017404
017406
017407
017410

177000
072414
025
002
000312

6098

217362
017370
017372
017400

000123

14:14

-9

PAGE 113

MID=-TRANSFER SEEK ON WRITE (PART 2)

it
1

TRACK 2, SECTOR 25. READ DATA BACK ONE SECTOR
AT A TIME AND MAKE SURE A MID-TRANSFER SEEK
DID TAKE PLACE.

001262
.

19-JUN-B0

51
v
i

6092

6093
6096
gggz

MACY11 30A(1052)

T$151:

SCOPE

A R

MOV
#10.,8TIMES
TSSINIT
ERROR
3

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

JSR

R4 ,LRLOAD

:LOAD ''L'' REGS

25
2

:=1000 WORDS
:0BUFF 1S BUFF ADDRESS
:SECTOR 25
:TRACK 2
:CYLINDER 312

WRDATA

-1000
OBUF F
.BYTE
.BYTE
312
JSR
4
1000

042260

A A e

SEQ 0112

R4 ,GENCOM

i
ARl

;WRDATA

:GENERATE DATA
:PATTERN &
11000 WORDS

6105
6106
g}gg

017412
017416
017420

004437
000004
001000

6109
6110
5111

017422
017424
017426

104417
104430
104002

017430

104421

6117
6118

017434
017440

004437
002007

042260

6121
6122
6123
6124
6125
6126
2}5;

017444
017450
017452
017454
017456
017457
017460

004437
000121
177400
070414
025
002
000312

035674

6129
6130
g}%}

017462
017464
017466

104417
104425
104002

TLOADRK
TWAT48
2
ERROR

:LOAD RK REGS
‘WAIT FOR INTERRUPT
270 SLOW/NOT COMPLETE ERROR

6133

017470

104421

TCHKOP

:CHECK OPERATION FOR ANY ERRORS

6136

017474

004437

6139

017504

071414

6112
6113
6114

g}}g 017432
g};g

017442

:
:

104004

001009

017500
017502

6140 017506
6141
6142

017507
017510

000121
177400

000

000
000313

ERROR

JSR
2007
1000

R4, GENCOM

JSR
RDDATA
=400
IBUFF
.BYTE
.BYTE

R4 ,LRLOAD

312

g};g 017472 104004

6137
6138

;
;

TLOADRK
:LOAD RK REGS
:WAIT FOR INTERRUPT
TWAT96
:TO SLOW/NOT COMPLETE ERROR
2
ERROR
A CYLINDER ERROR REPORTED AT THE END OF THE OPERATION INDICATES A
MID-TRANSFER SEEK DID NOT OCCUR.
:CHECK OPERATION FOR ANY ERRORS
TCHKOP

035674

:OR S, 6, 7, 10 ;REPORT ALL ERRORS

25
2

:OR S, 6, 7, 10 ;REPORT ALL ERRORS

JSR

R4 ,LRLOAD

1BUFF +1000

BYTE

BYTE
313

:LOAD ''L'' REGS
*RDDATA
:=400 WORDS
SIBUFF IS BUFF ADDRESS
*SECTOR 25
:TRACK 2

SCYLINDER 312

ERROR

RDDATA
=400

:CLEAR IBUFF TO ALL ONES

:LOAD "'L'* REGS

*RDDATA
;=400 WORDS

- [BUFF+1000 1S BUFF ADDRESS

:SECTOR 0

:TRACK 0
:CYLINDER 313

(alal

CIR6KFO RK6 FCINL CTRL DIAG

6143
6144

017512

104417

g}:g

017516

104002

6145

017514

TMS

TWAT4LS

ERROR

017520

104621

6151
6152
6153
6154
g}gz

017524
017530
017532
017534
017536

004437
100000
001000
000413
104015

042260

6157
6158
6159

017540
017544
017546

013700
005300
001406

001634

616C
6161
6162
6163
6164
6165
6166

6167

6168

017522

017550
017554
017556
017560
017562
017564

TCHKOP

104004

004437
040000
000402
104016
000770

64%:

042260

017564

6174

6175

R4 ,GENCON

;COMPARE DATA

1%
15

;1000 WORDS
:NO MISCOMPARES=-SKIP
sREPORT 1ST ERROR

MOV
DEC
BEQ

ERRLMT RO
RO
65%

;sGET ERROR LIMIT
sDECREMENT COUNT
;1F ZERO - EXIT

40000
BR
ERROR
BR

65%
16
649

sNO MORE ERRORS = EXIT
JREPORT NEXT ERROR
;LOOP

R4 ,GENCOM

000004
012737
104416
104003

sCONTINUE DATA COMPARE

.
A

TWO SECTOR READ DATA (PART

ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312,

NOTE:

EXECUTED BEFORE THIS TEST.

TWO SECTOR WRITE DATA (PART 1) MUST BE

:.'tttttt'tttttt"t"'"ttttt'tt'ttt'tttttttt"'ttttt!'tt'tt"t't

000012

001262

1S152:

SCOPE
MOV
#10.,8TIMES
TSSINIT
ERROR
3

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

:GENERATE SAME DATA AS USED IN TWO SECTOR WRITE DATA (PART 1)
017600

GENERATE SAME DATA AS USED IN TWO SECTOR WRITE DATA PART 1
JSR
R4 ,GENCOM
;GENERATE DATA
15
;PATTERN 15
1000
;1000 WORDS

017604
017606

004437

000015
001000

042260

6191
6192
g}gz

017610
017614
017616

004437
002007
001000

042260

JSR
2007
1000

R4 ,GENCOM

;CLEAR IBUFF TO ALL ONES

6195

017620

004437

035674

JSR

R4 ,LRLOAD

;LOAD "'L'" REGS

6196
6197
6198

ARl

TRACK O, SECTOR 0, VERIFY THAT CORRECT DATA IS
READ.

g}g‘;
6186
6187
6188
g}gg

JSR
100000
1000
BR
ERROR

i
i

017564
017566
017574
017576

:CHECK OPERATION FOR ANY ERRORS

;OR S, 6, 7, 10;REPORT ALL ERRORS

]

6172
6173

6179
6180
6181
g}g%

;7O SLOW/NOT COMPLETE ERROR

6171

g};g
6178

sWAIT FOR INTERRUPT

'TEST 52
.

SEQ 0113

;LOAD RK REGS

18:

g}?g

017624
017626
017630

000121
177000
070414

RDDATA
-1000
IBUFF

sRDDATA
:=1000 WORDS
IBUFF IS BUFF ADDRESS

)

9
PAGE
1

ERROR

JSR

65%:

MID=-TRANSFER SEEK ON URITE (PART 2)
TLOADRK

104425

6148

g}gg

14:14

19-JUN-B0 14:04

19-JUN-80

(alal

CZR6KF P11

MACY11 30A(1052)

[

CIZR6KFO RK6 FCINL CTRL DIAG

MACY11

K 9
30A(1052)
19-JUN-80
14:14
PAGE 115
152
TWO SECTOR READ DATA (PART 1)

6199
6200
6201

017632
017633
017634

000
000
000312

312

6203
6204
6205

017636
017640
017642

104417
104430
104002

TWAT96
ERROR

6207
6208

017644
017646

104421
104004

6210
6211
6212
6213
6214

017650 004437
017654 100000
017656 .- 001000
017660 * 000413
017662 104015

042260

6216
6217
6218
6219
6220
6221
6222
6223
6224

017664
017670
017672
017674
017700
017702
017704
017706
017710

013700
005300
001406
004437
0460000
000402

001634

6226

017710

6245
6246
6247
6248
6249
6250
6251
6252
6253
6254

TCHKOP

64%:

042260

104016

000770

65%:

;TRACK 0

;CYLINDER 312
;LOAD RK REGS

;WAIT FOR INTERRUPT

;7O SLOW/NOT COMPLETE ERROR

ERROR

JSR
100000
1000
BR
ERROR

R4 ,GENCOM

MOV

DEC

BEQ
JSR
40000
BR
ERROR
BR

; CHECK OPERATION FOR ANY ERRCRS

;ORS, 6, 7, 10 ;REPORT ALL ERRORS

1%
15

; COMPARE DATA
;1000 WORDS
:NO MISCOMPARES=-SKIP

R4 ,GENCOM

;GET ERROR LIMIT
;DECREMENT COUNT
;1F ZERO = EXIT
;CONTINUE DATA COMPARE

65%

;NO MORE ERRORS = EXIT

ERRLMT,RO

65%

16
64%

;REPORT NEXT ERROR

.LOOP

1%:

;.'tt.'it'."'.'."'"""i""Q"i.'tt.tt"'."'I"'ttt.""lt"'

TWO SECTOR READ DATA (PART 2)

017710

017712
017720
017722

000004

012737

104416
104003

000012

001262

1SSUE A READ DATA OF 1000 WORDS TO CYLINDER 312,

TRACK 0, SECTOR 23.
VERIFY THAT CORRECT DATA IS
READ AND A MID-TRANSFER SEEK DOES NOT OCCUR.

TWO SECTOR WRITE DATA (PART 2) MUST BE
EXECUTED BEFORE THIS TEST.

NOTE:

2222222222222 3222223222222
2222202220 RRRRRRRRRRRRR D)
—

LTETE
R FE PR
R
I

;*TEST 53

—-

6238

6239
6240
6241
6242
6243
6244

:SECTOR 0

0
0

TLOADRK

6228
6229
6230
6231
6232
6233
6234
6235
6236
6237

.BYTE
.BYTE

SCOPE

#10.,8TIMES
MOV
TSSINIT

ERROR

::00 10. ITERATIONS
sCLEAR SUBSYSTEM
sBAD INIT ERROR

;GENERATE SAME DATA AS USED IN TWO SECTOR WRITE (PART 2)
017724
017730
017732

004437
000016
001000

042260

017734
017740
017742
017744
017750
017752

004437

042260

004437
000121

035674

177000

JSR

16
1000

JSR

R4 ,GENCOM

;GENERATE DATA

:PATTERN 16

;1000 WORDS

R4 ,GENCOM

;CLEAR IBUFF TO ALL ONES

R4 ,LRLOAD

;LOAD "'L'* REGS
:RDDATA

:=1000 WORDS

SEQ 0114

CIR6KFO Rk6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF .P1

———

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

MACYT 3?2;1052)

Sl
19-JUN=-B0 14:14 PAGE 116
TWO SECTOR READ DATA (PART 2)

6255
6256
6257
gggg

017754
017756
017757
017760

070414
023
000
000312

IBUFF
BYTE
BYTE
312

6260
6261
gggg

017762
017764
017766

104417
104430
104002

TLOADRK
TWAT96
ERROR
2

6264

017770

104421

6267
6268

017774
020000

004437
100000

gggg 017772

6269
6270
gg;}
6273
6274
6275
6276
6277
6278
6279
6280
6281
628
6283
628‘

020002
020004
020006

020010
020014
020016
020020
020024
020026
020030
020032
020034

TCHKOP

104004
042260

001000
000413
104015
013700
005300
001406
004437
040000
000402
104016
000770

648 :

042260

65%:

020034

:LOAD RK REGS
;WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR
:CHECK OPERATION FOR ANY ERRORS

ERROR

JSR
100000

R4 ,GENCOM

: COMPARE DATA

1%
15

;1000 WORDS
:NO MISCOMPARES=-SKIP
;REPORT 1ST ERROR

ERRLMT,RO
RO
65%
R4 ,GENCOM

;GET ERROR LIMIT
;:DECREMENT COUNT
;IF ZERO = EXIT
:CONTINUE DATA COMPAKE

65%
16
648

:NO MORE ERRORS = EXIT
;REPORT NEXT ERROR
;LOOP

1000
BR
ERROR
001634

:IBUFF IS BUFF ADDRESS
:SECTOR 23
:TRACK 0
;CYLINDER 312

2%
O

MOV
DEC
BEQ
JSR
40000
BR
ERROR
BR

;OR S, 6, 7, 10 ;REPORT ALL ERRORS

1$:

;:ttttttttt'ttt'ttt'ttt"ttt"'tttQ'tt'tt!tttttt'ttttt'ittttit'tt

gggg

s*TEST 54

TWO SECTOR READ DATA (PART 3)

6287
6288
2533

i*
T
o

ISSUE A READ DATA OF 401 WORDS TO CYLINDER 312,
TRACK 0, SECTOR 10. VERIFY THAT ALL 401 WORDS
ARE PLACED IN MEMORY.

6291
ggg%

I
i

NOTE:

629‘

E;tttttttt'tttttttttti"ttt't"i!t'tttt.tttt'tt"tttt'ttttttttttt

6295

6296
6297
gggg

. ¥

020034

020036
020044
020046

000004

012737
104416
104003

000012

001262

T1ST54:

;

gggg

TWO SECTOR WRITE DATA (PART 3) MUST BE
EXECUTED BEFORE THIS TEST.

SCOPE

MOV
#10.,8TIMES
TSSINIT
ERROR
3

::D0 10. ITERATIONS
;CLEAR SUBSYSTEM
:BAD INIT ERROR

GENERATE SAME DATA AS USED IN TWO SECTOR WRITE (PART 3)

6302
6303
2;82

020050
020054
020056

004437
000002
000401

042260

JSR
2
401

R4 ,GENCOM

:GENERATE DATA
:PATTERN 2
:401 WORDS

6306
6307
2%83

020060
020064
020066

004437
002007
001000

042260

JSR
2007
1000

R4 ,GENCOM

:CLEAR IBUFF TO ALL ONES

6310

020070

004437

035674

JSR

R4,LRLOAD

;LOAD "'L"" REGS

——

SEQ 0115

CIR6KFO RK6 FCTNL CTRL DIAG
P11
19-JUN-80 14:04
CZR6KF

MACY11 3?2{1052)

000121
177377

M9
19-JUN-80 14:14 PAGE 117
TWO SECTOR READ DATA (PART 3)
RDDATA

IBUFF
BYTE
BYTE

312
106417
104430
104002

TLOADRK
TWAT96

ERROR

TCHKOP

104421
104004

004437

100000

020132

104015

020134
020140

013700
005300
001406
004437
040000
000402
104016
000770

:RDDATA

=401

042260

001634

648:

042260

625:

020160

'-401 WORDS

:1BUFF IS BUFF ADDRESS
SECTO
R 10
TRACK 0

10
0

CVLINDER 312

;LOAD RK REGS
sWAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE ERROR
:CHECK OPERATION FOR ANY ERRORS

ERROR

;OR S5, 6, 7, 10 ;REPORT ALL ERRORS

JSR
100000
401

R& ,GENCOM

ERROR

:COMPARE DATA
;401 WORDS

:PRINT FIRST ERROR

MOV
DEC
BEQ
zgsoo

ERRLMT RO
RO
65%
R4 ,GENCOM

;GET ERROR LIMIT
sDECREMENT COUNT
_
sIF ZERO = EXIT
;CONTINUE DATA COMPARE

BR
ERROR
BR

65%
16
64%

:NO MORE ERRORS = EXIT
;sREPORT NEXT ERROR
;LOOP

SRR AR

'TEST 55

:NO MISCOMPARES-SKIP

R R R RN

MID-TRANSFER SEEK ON READ (PART 1)

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.

o
]

NOTE:

MID-TRANSFER SEEK ON WRITE (PART 1) MUST BE
EXECUTED BEFORE THIS TEST.

:'ttttttttt'tt"tt'ttt"tt'ttttttt'tttttttt'tttttfiltttttttttt't't

33323343

oo
O

020160
020162
020170
020172

000004
012737
1046416
104003

000012

020174
020200
020202

004437
000003
001000

042260

020204
020210
020212

004437
002007
001000

042260

020214

004437

035674

001262

TST55:

SCOPE

MOV

#10.,8TIMES

ERROR

TSSINIT

::00 10. ITERATIONS

sCLEAR SUBSYSTEM
:BAD INIT ERROR

GENERATE SAME DATA AS USED IN MID TRANSFER SEEK ON WRITE (PART 1)
:GENERATE DATA
:PATTERN 3
;1000 WORDS

JSR
3
1000

R4 ,GENCOM

JSR
2007

R4 ,GENCOM

:CLEAR IBUFF TO ALL ONES

JSR

R4 ,LRLOAD

;LOAD "'L'" REGS

1000

SEQ 0116

CIR6KFO RK6 FCTNL CTRL DIAG
CIR6KF.P11
19=JUN-80 14:04
6367

N 9
MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 11 E
1SS
MID-TRANSFER SEEK ON READ (PART 1)

020220

000121

RDDATA

6369
6370
6371
6372

020224
020226
020227
020230

070414
025
000
000312

IBUFF
.BYTE
.BYTE
312

6374
6375
g%;g

020232
020234
020236

104417
104430
104002

TLOADRK
TWAT96
ERROR
2

6378
gg;g

020240
020242

104421
104004

TCHKOP
ERROR

6381
6382
6383
6384
g%gz

020244
020250
020252
020254
020256

004437
100000
001000
000413
104015

062260

6387
6388
6389
6390
6391
6392
6393
6394
6395
6396

020260
020264
020266
020270
020274
020276
020300
020302
020304
020304

013700
005300
001406
004437
040000
000402
104016
000770

001634

6368

6397

020222

177000

;RDDATA

-1000

648:

042260

658:
1$:

SEQ 0117

:=1000 WORDS

s IBUFF IS BUFF ADDRESS
:SECTOR 25
S TRACK 0
:CYLINDER 312

25
0

;LOAD RK REGS
sWAIT FOR INTERRUPT
;7O SLOW/NOT COMPLETE ERROR
sCHECK OPERATION FOR ANY ERRORS
;OR S5, 6, 7, 10 ;REPORT ALL ERRORS

JSR
100000
1000
BR
ERROR

R&,GENCOM

;COMPARE DATA

1%
15

:1000 WORDS
sNO MISCOMPARES=-SKIP
sPRINT FIRST ERROR

MOV
DEC
BEQ
JSR
40000
BR
ERROR
BR

ERRLMT,RO
RO
658
R4 ,GENCOM

;GET ERROR LIMIT
*DECREMENT COUNT
“IF 2ERO = EXIT
sCONTINUE DATA COMPARE

65%
16

sNO MORE ERRORS - EXIT
sREPORT NEXT ERROR

648

:LOOP

3 'tt"..'tifi.t'i'i""tf'.""i"'i.ii'fit".i'llti."'i"'.t'i't

gggg

tYESY 56
M

6400
6401

H
3

6402

MID=-TRANSFER SEEK ON READ

(PART 2)

]

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

READ AND A MID-TRANSFER SEEK DOES OCCUR.

6404

“07
6408
6409
6410
6411

020304
020306
020314
020316

000004
012737
104416
104003

:. 1 2332333332332 32333332323232323233233232323232332333332333323232322332323323323233223323}
T5756:
SCOPE
MOV
#10.,STIMES
;:DO 10. ITERATIONS
TSSINIT
:CLEAR SUBSYSTEM
ERROR
3
:BAD INIT ERROR

6413
6414
6415
6416

020320
020324
020326

004437
000004
001000

042260

6418

020330

004437

042260

6422

020340

004437

035674

6405

66419
8420

NOTE:

]

020334
020336

002007
001000

000012

001262

MID-TRANSFER SEEK ON WRITE

EXECUTED BEFORE THIS TEST.

(PART 2) MUST BE

GENERATE SAME DATA AS USED IN MID TRANSFER SEEK ON WRITE (PART 2)
JSR
R4 ,GENCOM
sGENERATE DATA
4
:PATTERN &
1000
1000 WORDS
JSR

R4 ,GENCOM

;CLEAR IBUFF TO ALL ONES

JSR

R4 ,LRLOAD

;LOAD "'L"" REGS

2007
1000

RDDATA

=1000
IBUFF

BYTE
BYTE
312

TLOADRK
TWAT96

ERROR

020364
020366

TCHKOP

020370

042260

013700
005300
001406
004437
040000
000402

001634

64%:

042260

104016

)
?25:

000770

020430

25
2

;SECTOR 25
s TRACK 2
:CYLINDER 312

;LOAD RK REGS
;WAIT FOR INTERRUPT

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

JSR

R4 ,GENCOM

; COMPARE DATA

1000
BR
ERROR

;1000 WORDS
:NO MISCOMPARES=-SKIP
;REPORT FIRST ERROR

MOV
DEC
BEQ
iggoo

ERRLMT,RO
20
$
R4 ,GENCOM

;GET ERROR LIMIT
;DECREMENT COUNT
:IF ZERO - EXIT
sCONTINUE DATA COMPARE

BR
ERROR
BR

65%
16
648

:NO MORE ERRORS = EXIT
sREPORT NEXT ERROR
;LOOP

;OR 5, 6, 7, 10 ;REPORT ALL ERRORS

;;;.'Q.."tfi..'"""'"""""'."."..'."t"""Qi..'tt"*i"
J*TEST 57
'

o
i
i
* %

020430

:=1000 WORDS
;IBUFF IS BUFF ADDRESS

ERROR

100000

104015

;RDDATA

CYLINDER ADDRESS OVERFLOW (PART 1)

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 IS USED FOR THE RKO7.

:..'.'.".'.'.."""'"""""'.."""i't".""'t*i"'i.'t"'

000004

012737

000012

001262

013737
004437
000121

036 20
0356

020466

104416
104003

1ST57:

MOV

JSR

RDDATA

=400
IBUFF

177400

070414
025
002
000000
104417
104434
104002

SCOPE
MOV
#10.,8TIMES
TSSINIT
3
ERROR

1%:

BYTE
BYTE
0
TLOADRK
TWAT159

ERROR

LSTCYL,1$

R4 ,LRLOAD

;LOAD "'L'" REGS
;400 WORDS
;IBUFF IS BUFF ADDR
;SECTOR 25
:TRK 2
:CYL 63271456

25
2

;:D0 10. ITERATIONS
;CLEAR SUBSYSTEM
;BAD INIT ERROR

:LOAD RK REGS
;WAIT FOR INTERRUPT

;7D SLOW/NOT COMPLETE ERRCR

SEQ 0118

0
0

I
VO ~NOWV

B 10

19=JUN=-80 14:14 PAGE 119
MID-TRANSFER SEEK ON READ (PART 2)

N SN S SN SN SN SN N SN N SN SN SN NN N NSN N NN NN NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN

000121
177000

6423

3 IIIIIIIIININSS
L
£ p&3
FHRUKZSE

MACY11 3?2é1052)

lalel
NN

CIR6KFO RK6 FCTINL CTRi DIAG
19-JUN-80 14:04
CIR6KF P11

i
;¥

e
. %

020540

000004
012737
104416
104003
013737
004437
000121
177377
070414
025
002
000000

020542
020544
020546

104417
104434
104002

020550

104422
001000
000000
000000

020560

ARt

iRi

Rttt dRRiRil

CYLINDER ADDRESS OVERFLOW (PART 2)

)

E:"'.'."""'.'""""."""""".'..""'.'.'.'.""'.""'

000012

001262

036120
035674

020540

TST60:

SCOPE

MOV

#10.,8TIMES

;:D0 10.

ERROR

;BAD INIT ERROR

JSR

R4 ,LRLOAD

TSSINIT

MOV

RDDATA

=401
IBUFF

.BYTE
.BYTE
0

1%:

TLOADRK
TWAT159

ERROR

LSTCYL,1$

25
2

ERROR
.SBTTL

:LOAD "L'' REGS
:401 WORDS
;IBUFF IS BUFF ADDR

;SEC 25
:TRK 2
CYL 63271456

;LOAD RK REGS
sWAIT FOR INTERRUPT

;:TO SLOW/NOT COMPLETE ERROR

TCHKWE
8OERR

104004

ITERATIONS

;CLEAR SUBSYSTEM

;CHECK OPERATION WITH EXPECTED ERROR
sCYLINDER OVERFLOW

4; OR 5,6,7

;REPORT ANY DISCREPANCIES

++18 BIT DATA TRANSFER TESTS

;:.""'"'.'.."'i""""""'*'*..'".i""'t'.'i*i"'*"*'*i.

J*TEST 61
. %

FORMAT IN 24 SECTOR FORMAT

FORMAT CYLINDER 312, TRACK 0, AND TRACK 1 FOR 24 SECTOR

OCCUR WITH WRITE HEADER ON IN READING DATA BUFFER

FORMAT.

VERIFY FORMAT AND THAT DATA LATE DID NOT

AFTER READ HEADER.

. ¥

IO
ONNNO
OWWWO
—SNYNNS
NS
NOSH
WO
=
NWHWO

020562
64

O~
= SOOOO
— b
O
-0

000012
000312
020610

010127

001262
001676
001110

001600

2222222223223 223 3332222232022 2332333232323082230R02R200000000RR00R0)

7ST61:
¥

SCOPE

MOV
MOV

#10.,8TIMES
#312 REFNMT

::D0 10. ITERATIONS
*SET REFORMAT SWITCH

CLR

*CLEAR R1 FGR TRACK COUNTER

MOV

;OR S, 6, 7, 10 ;REPORT ALL ERRORS

ISSUE A READ DATA OF 401 WORDS TO CYLINDER 632,
TRACK 2, SECTOR 25. MAKE SURE CYLINDER ADDRESS
OVERFLOW ERROR DOES OCCUR.
CYLINDER 1456 IS USED FOR THE RKO7.

.
020502

S S S SE SIS SNI SESESE SN SESESNI SISESNI SISNIESNI NI SNISNISNI NN

*TEST 60

S S S

ERROR

S S SN S

:CHECK OPERATION FOR ANY ERRORS

#1%, SLPERR

*SET LOCAL LOOP ON ERROR

TSSINIT
:CLEAR SUBSYSTEM
:BAD INIT ERROR
3
ERROR
MOV
FWRHEAD 'CFMT,L.CS1
:SET UP FOR WRITE HEADER 24(8) SECTOR MODE

TCHKOP

SEQ 0119

104421
104004

¢ 10

19-JUN-80 14:14 PAGE 120
CYLINDER ADDRESS OVERFLOW (PART 1)

—

MACYTT 3?;;1052)

lala
~N~

CIR6KFO RK6 FCINL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

BIS
MOV
MOV
MOVE

DTYPE,L.CS1
DRVNUM, L .CS2
#74,L.4C
R1,L.DT

MOV

#312,L.DCYL

042260

JSR
1200

MOV

#OBUFF ,L.BA

R4, GENCOM

ERROR

020700
020702

104421

104004

ERROR

020704

104415

SCOP1

020706
020710
020712

005701
001002

005001
104416
104003

TCHKOP

020726

010125
001626
001607
000312

020760
020764
020766
020770
020772

004437

036362

020774

104415

104421
104004
104013
104002

004437

101200

2%:

3%:

012737
013737
110137
012737

020746
020752

001110

:TO SLOW/NOT COMPLETE ERROR

,OR S, 6, 7

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

;LOCAL LOOP ON ERROR TO 1%
R1

2%
R1
1%
#3%, SLPERR
R

;R1 POINTING TO TRACK 0

:NO=-SKIP

;BUMP TO TRACK 1.
.LOOP

;SET LOCAL LOOP ON ERROR
;CLEAR TRACK POINTER

MOV

001614

MOV

JSR

R4 ,RDSTHD

ERROR

SCOP1
JSR

R4, GENCOM

BR
ERROR

48
15

MOV
DEC
BEQ
JSR

ERRLMT,RO
R0
65%
Ré ,GENCOM

;GET ERROR LIMIT
;DECREMENT COUNT
;1F ZERO = EXIT
;CONTINUE DATA COMPARE

BR
ERROR
BR

65%
16
64$

:NO MORE ERRORS - EXIT

MOV

MOVB

TCHKOP

042260

101200

104015

64%:

042260

000770

;WAIT FOR INTERRUPT

001600
001610

ERROR

001634

;GENERATE HEADER
; INCLUDE BAD SECTOR BITS

;CLEAR SUBSYSTEM
:BAD INIT ERROR
3
;LOAD READ 24(8) SECTOR FORMAT
#RDHEAD!CFMT,L.CS1
DRVNUM,L.CS2
:LOAD DRIVE NUMBER
R1,L.DT
;LOAD TRACK
#312.L.0CYL
;LOAD CYLINDER

TSSINIT

ERROR

000413

013700

BNE
INC
BR
MOV
CLR

'SET DRIVE NUMBER
SET WORD COUNT
LOAD TRACK ADDRE€€
SET BUS AL ESS
CYLINDER ADDRESS

:LOAD RK REGS

TLOADRK

TWAT159

;SET DRV TYP

40000

65%:

OR 5.,6.7

;GO READ STANDARD HEADER

;RETURN IF CERR W/0 DATA LATE SET
;REPORT ALL OTHER ERRORS
:REPORT DATA LATE

;REPORT ''OPERATION TO SLOW'' OR ""HEADER
:0 NOT FOUND'' MESSAGE

;LOCAL LOOP TO 3$ ON ERROR
:GENERATE & COMPARE HEADERS
; INCLUDING BAD SECTOR LISTS
:NO MISCOMPARES-SKIP
;REPORT FIRST MISCOMPARE

;REPORT NEXT ERROR
:LOOP

[ale]

~N~N

|
001720
001626
000074
001607
072414
000312

SEQ@ 0120

aemte tmremielielietielicaicalelielelcaliclicicaticelielselelealielielelealsisalslealsisadsdsaldsiasisniniad

D 10

19=JUN=-80 14:14 PAGE 121
MACY11 30A(1052)
161
FORMAT IN 24 SECTOR FORMAT

e
A & e A 2

CIR6KFO RK6 FCINL CTRL DIAG
19-JUN-8 0 14 :04
CIR6KF P11

5%
R1

;LOOP

5%:

; "'""Qt'.'Q.'"""""""'Qi't"t"Q"'Q""".."'."'Q"t.'

24 SECTOR FORMAT DATA TRANSFER (PART 1)

ISSUE A WRITE DATA OF 400 WORDS IN 24 SECTOR FORMAT
TO CYLINDER 312, TRACK O, SECTOR 0. READ SECTOR BACK

it
;%

AND MAKE SURE IT IS CORRECT.

. w

021070
021074
021076

004437
000013
00400

104416
104003

—

000004
012737
012737

000012
000312

042260

i AR
i
R
Rt
R0t RRR Rl

SCOPE
MOV
#10.,$TIMES
MOV
#312 ,REFMT
TSSINIT

JSR

R4 ,GENCOM

:GENERATE DATA
:PATTERN 13
:400 WORDS

JSR
2007

R4 ,GENCOM

:CLEAR IBUFF TO ALL ONES

JSR

R4, LRLOAD

;LOAD 'L'' REGS

13
400

S WO
SO

— —b

104421
104004

ERROR

004437
010121
177400
070414
000
000
000312

JSR

R4 ,LRLOAD

WO
O gl‘
NOON

s 2 —b

— — —b

— b b e

(o - IV RV IV LV V.7 2k ab

—d d D D —B

NOOND

P R

NN
= -

—_— s

ERROR

OBUF F

072414
000
000
000312

104002

WRDATA'! CFMT

;WRDATA! CFMT

-400

177400

104417
1046424

:BAD INIT ERROR

400

1046417
104430
104002

035674

::00 10. ITERATIONS
SET REFORMAT SWITCH
:CLEAR SUBSYSTEM

ERROR

004437
010123

—s

162:

004437 042260
002007
000400

001262
001676

021046
021050
021056
021064
021066

BYTE
.BYTE

312

TLOADRK
TWAT96

TCHKOP

035674

0
0

TLOADRK
TWAT32

ERROR

:0BUFF 1S BUFF ADDRESS

0
0

SECTOR 0
:TRACK 0

:CYLINDER 312
:LOAD RK REGS
*WAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE ERROR

RDDATA! CFMT

-400
IBUFF
.BYTE
.BYTE
312

;=400 WORDS

:CHECK OPERATION FOR ANY ERRORS

;OR S5, 6, 7, 10 ;REPORT ALL ERRORS
;LOAD "'L'* REGS

;RDDATA! CFMT

;=400 WORDS
1BUFF 1S BUFF ADDRESS
SECTOR 0
:TRACK 0
"CYLINDER 312
:LOAD RK REGS
‘WAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE ERROR

TEST 62

e e

:LOCAL LOOP TO 3%
sPOINTING TO TRACK 1
sNO=-EXIT
;BUMP TO TRACK 1

SCOP1
TST
BNE
INC

S s S S sl S sd sl sl S sd st sd sd sd sd st S Ssd S sd st SEsISESESNISISISNISISNISNIY

4%:

SEQ 0121

lalal

19-JUN-80 14:14 PAGE 122
FORMAT IN 24 SECTOR FORMAT

104415
005701
001002
005201
000730

E 10

3?2%1052)

MACY1

OO?OO
PNITY5S

—

(e lelel=l=T

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF .P
19-JUN-B0 14:04

CIR6KFO Rk6 FCTNL CTRL DIAG
19~JUN-80 14:04
CZR6KF .P1

6647
6648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658
6659
6660
6661
6662
6663
6664'
6665
6666
6667
6668
6669
6670
6671

021164
021166

104421
104004

021170
021174
021176
021200
021202

004437

021204
021210
021212
021214
021220
021222
0212264
021226
021230

013700
005300
001406
004437
040000
000402

100000

MACY11 30A(1052)
162

042260

000400
000413
104015

001634

64%:

042260

65%:

6686
6687
6688
6689
6690
6691
6692
6693
6694
6695
6696
6697
6698
6699

6700
6701
6702

;CHECK OPERATION FOR ANY ERRORS

:OR S, 6, 7, 10;REPORT ALL ERRORS

JSR

R4 ,GENCOM

BR
ERROR

1%
15

MOV
DEC
BEQ

ERRLMT,RO
RO
65%

R4 ,GENCOM

;GET ERROR LIMIT
;DECREMENT COUNT
;1F ZERO = EXIT
;CONTINUE DATA COMPARE

B8R

65%

;NO MORE ERRORS = EXIT

64%

;LOOP

100000
400

,ERROR

000770

F 10
PAGE 123

ERROR

JSR
40000

104016

14:14

24 SECTOR FORMAT DATA TRANSFER (PART 1)
TCHKOP

; COMPARE DATA

;400 WORDS
:NO MISCOMPARES=SKIP
;REPORT 1ST ERROR

;REPORT NEXT ERROR

1%:

021230

ti'ttt'ittttttttti'i""i"i"ttltt.'titifi"it"tt"it't'iQtttt

tTEST 63
"

6672

6673
6674
6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685

19-JUN-80

i+
i
it

ISSUE A WRITE DATA OF 1000 WORDS IN 24 SECTOR FORMAT
TO CYLINDER 312, TRACK 0, SECTOR 23. READ SECTOR BACK
AND MAKE SURE IT IS CORRECT. MAKE SURE THAT MID-TRANSFER
SEEK HAS TAKEN PLACE.

2222222232222 3233332 3332232332323 22223 3323333233222ttt
)

. ®

021230
021232
021240
021246
021252
021254

000004

021256
021262
021264

004437
000015
001000

042260

021266
021272
021274

004437
002007
001000

042260

021276
021302
021304
021306
021310
021311
021312

004437
010123
177000
072414
023
000
000312

035674

021314
021316

104417
104430

012737
012737
004737
104416

000012
000312
034522

104003

001262
001676

24 SECTOR FORMAT DATA TRANSFER (PART 2)

t§763:

SCOPE

::D0 10. ITERATIONS
;SET REFORMAT SWITCH
:SET UP OPTIONS
;CLEAR SUBSYSTEM

MOV
MOV
JSR

#10. ,8TIMES
#312 ,REFMT
PC,OPTTST

ERROR

{gR

R4 ,GENCOM

:GENERATE DATA

R4 ,GENCOM

;CLEAR IBUFF TO ALL ONES

TSSINIT

1000

JSR
2007

:BAD INIT ERROR
;PATTERN 15
;1000 WORDS

1000

R4 ,LRLOAD
JSR
WRDATA!CFMT
-1000
OBUFF

.BYTE
.BYTE
312

TLOADRK

TWAT96

23
0

;LOAD "'L'" REGS

;WRDATA!CFMT
;=1000 WORDS
;0BUFF

IS BUFF ADDRESS

;SECTOR 23

;TRACK 0

:CYLINDER 312
;LOAD RK REGS

;WAIT FOR INTERRUPT

SEQ@ 0122

CIR6KFO Rk6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

6703

MACY11

30A(1052)

T63

19-JUN-B0

104002

ERROR

104421
104004

ERROR

336
021340

004437

010121
177000
070414
023
000
000312

TCHKOP

035674

PAGE 124

;70 SLOW/NOT COMPLETE ERROR
:CHECK OPERATION FOR ANY ERRORS

:OR S, 6, 7, 10 ;REPORT ALL ERRORS

R4 ,LRLOAD
JSR
RDDATA!CFMT

;LOAD "L'" REGS

.BYTE
.BYTE
312

:SECTOR 23
:TRACK 0
:CYLINDER 312

-1000
IBUFF

:RDDATA!CFMT

;=1000 WORDS
;1BUFF IS BUFF ADDRESS

23
0

TLOADRK

:LOAD RK REGS

021344
021346
021350

1046417
104426
104002

ERROR

021352
021354

104421
104004

TCHKOP
ERROR

021356
021362
021364
021366
021370

004437

021372
021376
021400
021402
021406
021410
021412
021414
021416

013700
005300
001406
004437
040000
000402

100000

6 10

24 SECTOR FORMAT DATA TRANSFER (PART 2)

021320

14:14

TWAT 64

042260

001000
000413
104015

001634

648 :

000770

65%:

021416

:OR S, 6,

:CHECK OPERATION FOR ANY ERRORS
10 ;REPORT ALL ERRORS

R4 ,GENCOM

: COMPARE DATA

ERROR

1%
15

;1000 WORDS
:NO MISCOMPARES=-SKIP
:REPORT FIRST ERROR

MOV
DEC
BEQ

ERRLMT,RO
RO
65%

:GET ERROR LIMIT
:DECREMENT COUNT
*IF ZERO - EXIT

65%

:NO MORE ERRORS = EXIT

64%

:LOOP

ERROR

104016

INTERRUPT

:TO SLOW/NOT COMPLETE ERROR

JSR
100000
1000
BR

23800

042260

:WAIT FOR

R4, GENCOM
16

:CONTINUE DATA COMPARE

:REPORT NEXT ERROR

1%:

.SBTTL

**SPECIAL DATA TRANSFER TESTS

';ttttttt'itttttt't'ti""'i"t'ttt.itti.ttti"ttttitttitt.'ilii'

SHTEST 64

MULT1-SECTOR DATA TRANSFER AND BSE

FORMAT CYLINDER 312, TRACK O IN 26 SECTOR FORMAT WITH

SECTOR 1 MARKED BAD.
ISSUE A WRITE DATA OF 1000 WORDS
TO CYLINDER 312, TRACK O, SECTOR 0.
MAKE SURE BAD SECTOR
SECTOR O AND
READ
ERROR SETS AND RKDA IS CORRECT.

MAKE SURE IT

IS CORRECT.

ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 512. TRACK 0,

6758

000004
012737

000012

001262

2122222232322 2323223322232222 0222223222222
RRtRRR R

021416
021420

—

SECTOR 0. MAKE SURE BAD SECTOR ERROR SETS AND THE
PREVIOUS SECTOR IS LOADED CORRECTLY INTO MEMORY.
Té4:

SCOPE

MOV

#10.,8T1MES

;:D0 10. ITERATIONS

SEQ 0123

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

012737

6759
6760
6761
6762
6763
6764
6765

104416
104003

000312

MACY11
001676

30A(1052)
T64

H 10
19-JUN-80
14:14 PAGE 125
MULTI-SECTOR DATA TRANSFER AND BSE
#312,REFNMT
MoV
TSSINIT
ERROR

JSR
WRHEAD
=102
OBUFF
.BYTE

R4 ,LRLOAD

SEQ 0124

;SET REFORMAT SWITCH
;CLEAR SUBSYSTEM

;BAD INIT ERROR

;LOAD "L'" REGS

004437
000127
177676
072414
000
000
000312

035674

004437
000600

042260

021464
021472

042737
042737

040000
040000

021500
021502
021504

104417

104431
104002

021506
021510

1044621
104004

021512
021516
021520

004437
000016
001000

042260

021522
021526
021530

004437
002007
001000

042260

021532
021536
021540
021542
021544
021545
021546

004437
000123
177000
072414
000
000
000312

035674

021550
021552
021554

104417
104424
104002

TWAT32
ERROR

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

106422

5CHKHE

;CHECK OPERATION WITH-EXPECTED ERR

BSERR
0
ERROR
CLR
JSR
BIT
BEQ

;BAD SECTOR ERROR

312
JSR

600

072424
072426

BIC
BIC

;=102 WORDS
sOBUFF IS BUFF ADDRESS
;SECTOR 0

0
0

:TRACK 0

sCYLINDER 312

R4, GENCOM

ERROR

TCHKOP

BAD

:LOAD RK REGS
;WAIT FOR

INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

ERROR

JSR
16
1000

R4 ,GENCOM

JSR

R4 ,GENCOM

2007

;BUILD HEADERS

#BIT14,0BUFF+10 ;MARK SECTOR 1
#BIT14,0BUFF+12 ;CORRECT HURC

TLOADRK

TWAT112

:WRHEAD

N3 87

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

;GENERATE DATA
;PATTERN 16

;1000 WORDS

;CLEAR IBUFF TO ALL ONES

1000

OBUFF
.BYTE
.BYTE
312

R4 ,LRLOAD

JSR
WRDATA
-1000

050002

054170
047756

001450
001202

MOV
MOV

;=1000 WORDS
;OBUFF IS BUFF ADDRESS
;SECTOR 0

;TRACK 0

;CYLINDER 312

TLOADRK

050002
037642
000020

;LOAD 'L'" REGS

"sWRDATA

4&; OR 5,6,7
GRP4ER

R4, CHKCTS
lgRKERR,GRPQER
1

#EM13 EMION
EXPTRK,$REG10

;REPORT ALL DISCREPANCIES
;:CLEAR GROUP & ERRORS

;CHECK CYL, TRK, SECT CORRECT AFTER ABORTED WRITE
;TRK

IN ERROR?

:NO-SKIP
;"'TRACK ADDRESS INCORRECT"
~;EXPECTED VALUE

D D il sl
- b sl B ol

[=lelelelele

o
[+ ]

BNelelele]

013737
012737

104010

30A(1052)
T64

001204
061002

032737
54

012737
104416
104003

021732
021734
021736
021737
021740

004437
000121

000040

050002

054220
050467
047754
047772

001450
061002
001202
001204

021720

001110

110

19-JUN-80
14:14
PAGE 126
MULTI-SECTOR DATA TRANSFER AND BSE
;REAL VALUE

JEXIT

BIT

#SECERR,GRP4LER

MOV
MOV
MOV
MOV

FEM14 EMION

;SECTOR IN ERROR?
:NO-SKIP

#OPERS7,DFO10A

;''AFTER WRITE DATA ABORTED WITH BSE''

ERROR
BR

1%:

BEQ

ERROR

SCOP1

3%:

MOV

TSSINIT

ERROR
JSR

035674

RDDATA

=400
IBUFF
.BYTE
.BYTE

177400
070414
000
000
000312

EXPSEC,$REG10

REALSEC,SREG11
10
#3% ,SLPERR

R4 ,LRLOAD

TWAT3?2
ERROR

021750
021752

104421
104004

ERROR

021754
021760
021762
021764
021766

004437

JSR
100000
400
BR
ERROR

R4 ,GENCOM

3
15

021770
021774
021776

013700

MOV
DEC

TLOADRK

042260

000400
000413
104015
001634

64%:

042260

000770

65%:

004437
002007
001000

042260

004437
000121
177000

035674

4%:

BEQ
JSR
40000
BR
ERROR
BR

;EXPECTED VALUE
;REAL VALUE

JEXIT
;LOCAL LOOP TO BEGINNING OF TEST
;SET LOCAL LOOP ON ERROR
;CLEAR SUBSYSTEM
;BAD INIT ERROR
;LOAD "'L'" REGS
;RDDATA

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

104424
104002

100000

;''SECTOR ADDRESS INCORRECT''

;IBUFF 1S BUFF ADDRESS
;SECTOR 0
;TRACK 0
:CYLINDER 312

021742
021744
021746

TCHKOP

;''AFTER WRITE DATA TERMINATED WITH BSE"

;=400 WORDS

312

104417

"SEQ 0125

REALTRK,$REG11
:8PER37.DF01OA

MOV
MOV

000527

021704

6842
6843

047770
050467

MACY11

CIR6KFO RK6 FCTINL CTRL DIAG
19-JUN-80 14:04
CZR6KF .P11

;CHECK OPERATION FOR ANY ERRORS

OB 5.8, 7, 10 ;REPORT ALL ERRORS

; COMPARE DATA

;400 WORDS
:NO MISCOMPARES-EXIT
;REPORT FIRST ERROR

R4 ,GENCOM

;GET ERROR LIMIT
;DECREMENT COUNT
;1F ZERO - EXIT
;CONTINUE DATA COMPARE

65%

;NO MORE ERRORS - EXIT

ERRLMT,RO
65%

16
64%

:REPORT NEXT ERROR

:LOOP

JSR

R4 ,GENCOM

;CLEAR IBUFF

JSR

R4 ,LRLOAD

:LOAD "'L"" REGS

2007
1000
RDDATA

-1000

;RDDATA

:=1000 WORDS

1
19-JUN-80 14:14 PAGE 127
MULTI=-SECTOR DATA TRANSFER AND BSE

6871
6872
6873
gg;g

022034
022036
022037
022040

070414
000
000
000312

IBUFF
BYTE
.BYTE
312

6876
6877
gg;g

022042
022044
022046

104417
104424
104002

TLOADRK
TWAT32
ERROR
2

6880
6881
6882
6883
2%%?

022050
0c2052
022054
022056
022060

104422
000000
000100
000000
104004

TCHKWE
0
BSERR
0
ERROR

6886
6887
6888
6889
ggg?

022062
022066
022070
022072
022074

004437
100000
000400
000413
104015

042260

6892
6893
6894
6895
6896
6897
6898
6899
6900
6901
6902
6903

022076
022102
022104
022106
022112
022114
022116
022120
022122

013700
005300
001406
004437
040000
000402
104016
000770

001634

66%:

042260

67%:

022122

SEQ 0126

; IBUFF 18 BUFF ADDRESS
;SECTOR
;TRACK 0
;CYLINDER 312
:LOAD RK REGS
;WAIT FOR INTERRUPT
;7O SLOW/NOT COMPLETE ERROR

* ;CHECK OPERATION WITH EXPECTED ERROR
;BAD SECTOR ERROR
&4; OR 5,6,7

;REPORT ALL DISCREPANCIES

JSR
100000
400
BR
ERROR

R4 ,GENCOM

: COMPARE DATA AGAIN

5%
15

;400 WORDS
:NO MISCOMPARES
;REPORT FIRST ERROR

MoV
DEC
BEQ
JSR
40000
BR
ERROR
BR

ERRLMT,RO
RO
67%
R4 ,GENCOM

;GET ERROR LIMIT
;DECREMENT COUNT
;1F ZERO = EXIT
;CONTINUE DATA COMPARE

67%
16
66%

;NO MORE ERRORS = EXIT
;REPORT NEXT ERROR
.LOOP

5%:
:
.':.'t.fi'tfi"'it"t'*ttt"iI'it""'.iit'ttt.".iiti'ti'i""i'tl'
;*TEST 65
FORMAT TEST

gggg

. *

6906
6907

i
i

6383

:®

6910

6911

6912

6913
gg;g

6916

6917
gg}g

022122

000004

022132
022134

005000
012737

0221264

022142

012737

000001

001262

022142

001110

6920

022146

013737

001626

6922

022162

053737

001720

6923
6926
6925
6926

022170
022174
022202
022210

012737

110037
012737
012737
012737

TST65:

001607
072414
177676
000312

#1,8STIMES

RO
#1% ,SLPERR

::00 1 ITERATION

;CLEAR SUBSYSTEM
:BAD INIT ERROR

001610

MOV

DRVNUM, L .CS2

:LOAD DRIVE NUMBER

001600

BIS

DTYPE,L.CST

:SET DRV TYP

001600

001604
001602
001614

MOV

MovBe
MoV
MOV
MoV

#WRHEAD,L.CS1

RO,L.DT
#OBUFF ,L.BA
#-102,L.WC
#312,L.00YL

)

;CLEAR TRACK COUNTER
;SET LOCAL LOOP

TSSINIT
ERROR
3

000127

SCOPE

MOV

CLR
Mov

1%:

104416
104003

022154

SURE DATA CHECK DOES NOT OCCUR.

::ttttl".ti"'itt'ii"""tt"i'tttittttitttttit'ttit'titt"ttttt

022142
022144

6921

FORMAT CYLINDER 312, TRACKS O AND 1 IN 26 SECTOR FORMAT.
MAKE SURE NO ERRORS SET. READ SECTORS 0-25 AND MAKE

;LOAD WRITE HEADER

;LOAD DESIRED TRACK FROM TRACK COUNTER
:LOAD BUS ADDRESS
:
WORD COUNT
:
CYLINDER

MACY1 3?2{1052)

J 10

~NN

CZR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P
19-JUN-80 14:04

004437
001200

022260

042260

JSR
1200

TWAT112
2
ERROR

104421
104004

ERROR

104415

SCOP1

005700
001002

TST
BNE
INC
BR
CLR
MoV

022260

001110
113%:

104416
104003

3%:

;BUILD HEADER

;WITH BSE FLAGGED

;:LOAD RK REGS

TLOADRK

TCHKOP

;WAIT FOR INTERRUPT

;7O SLOW/NOT COMPLETE ERROR
;O0R S5, 6, 7

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

;LOCAL LOOP TO 18
RO
2%
RO

:RO AT ZERO?
:NO=EXIT
;BUMP COUNTER

ERROR

;BAD INIT ERROR

JSR

R&,LRLOAD

;LOAD "'L'" REGS

TSSINIT

035674

022300

004437
000121
177400
070414
000
000
000312

022302

110037

001606

022306
022310
022312

104417
104424
104002

TWAT32
ERROR

022314
022316

104421
104004

ERROR

022320

104415

SCOP1

022322

000024

022332

022700
001402
005200
000754

022334

005037

001676

RDDATA

1%
RO
#113%,SLPERR

.BYTE
312
MOvB

CMP

BEQ
INC
BR

sRDDATA
/
;=400 WORDS
;IBUFF IS BUFF ADDRESS
:SECTOR 0

:TRACK 0
:CYLINDER 312

RO,L.DS

;LOAD SECTOR COUNTER INTO DESIRED SECTOR

:LOAD RK REGS

TLOADRK

TCHKOP

;LOOP
;CLEAR SECTOR COUNTER
;SET LOCAL LOOP ON ERROR

;CLEAR SUBSYSTEM

=400

IBUFF
.BYTE

;WAIT FOR INTERRUPT

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

;ORS, 6, 7, 10 ;REPORT ALL ERRORS

;LOCAL LOOP TO 3% ON ERROR
#24 ,RO
4%

;LAST SECTOR READ?
sYES-EXIT

;BUMP SECTOR COUNTER
;LOOP

REFMT

;CLEAR REFORMAT SWITCH

4%:

CLR

.SBTTL

*+WRITE CHECK TESTS

B2 1222232323233 2322223233220000 2322220223222 20202

TATEST 66
)

- SEQ 0127

RRRRRRRRRRRRRR)

WRITE-CHECK WITH NO ERROR

WRITE CYLINDER 312, TRACK 0, SECTOR O WITH A KNOWN PATTERN.

~NAN

K 10
PAGE 128

R4 ,GENCOM

104417
104431
104002

012737

14:14

022252

MACY11 30A(1052)
19-JUN-80
=
FORMAT TEST

~o 1

CZR6KFO Rk6 FCTNL CTRL DIAG
19-JUN-80 14:04
CIR6KF P11

CIR6KFO Rk6 FCINL CTRL DIAG
19-JUN-B0 14:04
CZR6KF P11

L 10

MACY11 30A(1052)
19-JUN-80 14:14 PAGE 129
T66
WRITE-CHECK WITH NO ERROR

6983

DO A WRITE-CHECK OF 400 WORDS.

ERROR OCCURS.

*
*

104416
104003

—

000004
012737

000012

004437
000123
177400
072414
000
000
000312

035674

004437
000002
000400

042260

001262

#10.,STIMES

;:00 10.

ERROR

;BAD INIT ERROR

JSR

R4,LRLOAD

.BYTE
.BYTE
312

0
0

JSR

R4 ,GENCOM

WRDATA
=400
OBUFF

2
400

ERROR

022410
022412

104421
104004

ERROR

022414

004437
000131

JSR

R4 ,LRLOAD

=400
OBUF F
.BYTE
.BYTE

0
0

TWAT96

TCHKOP

WRTCHK

TCHKOP

;GENERATE DATA

;PATTERN 2
;400 WORDS

ERROR

+LOAD RK REGS

;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR
;CHECK OPERATION FOR ANY ERRORS

;OR 5, 6, 7, 10 ;REPORT ALL ERRORS

;LOAD "'L'" REGS

s WRTCHK
;=400 WORDS
:0BUFF IS BUFF ADDRESS
,SECTOR 0
;TRACK 0

;CYLINDER 312

:LOAD RK REGS

;WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

: CHECK OPERATION FOR ANY ERRORS

;OR S, 6, 7, 10 ;REPORT ALL ERRORS

';ttttttttt.t"i"itQt'i""t"i"tttt'ti'i'.'t'iittt.t'tttl"'t'

TATEST 67

IR B

104421
104004

TWAT32
ERROR

022440
022442

;LOAD 'L'' REGS

sWRDATA
;=400 WORDS
;OBUFF IS BUFF ADDRESS

TLOADRK

104417
104424
104002

022432
022434
022436

312

022430

ITERATIONS

;CLEAR SUBSYSTEM

;SECTOR 0
s TRACK 0
;CYLINDER 312

TLOADRK

177400

MAKE SURE NO

SCOPE
Mov

TSSINIT

035674

SEQ 0128

i it
ittt iddtiai ittt RRRd])

$T66:

104417
104430
104002

072414
000
000
000312

WRITE CHECK ERROR (PART 1)

WRITE CYLINDER 312, TRACK 0, SECTOR O WITH ALL ZEROES.
WRITE CHECK CYLINDER 312, TRACK 0, SECTOR O WITH SAME
DATA EXCEPT W:RD 110 HAS ONE OF THE FOLLOWING
CONF IGURATIONS:

000001
000002
000004
000010

000020
000040
000100
000200

000400
001000
002000
004000

010000
020000
040000
100000

MAKE SURE WRITE CHECK ERROR SET FOR EACH

lalal

CIR6KFO RK6 FCTNL CTRL DIAG
CIR6KF P11
19-JUN-80 14:04

m10
MACY11 30A(1052)
19-JUN-80 14:14 PAGE 130
T67
WRITE CHECK ERROR (PART 1)

7039

;32?

70‘.2

v
M

OF THE CONFIGURATIONS AND THAT THE BUS ADDRESS

AND WORD COUNT IS CORRECT.

E:t"ttt'tlQ'QQ'Qtt"t"""""ttt'tt"ttt'tttt'!"t.'tt."'t"'

7043
7044

022444
022446

000004
012737

7046
7047
7048
7049
7050

;835

022460
022462
022464
022470

022472

104416
104003
004437
000001

7053
7054
7055
7056
7057
7058

022474
022500
022502
022504
022506
022507

004437
000123
177400
072414
000
000

7061
7062

022512
022514

106417
104430

104002

ERROR

7065

022520

104421

TCHKOP
ERROR

7068

022524

004437

JSR

R4 ,LRLOAD

;LOAD 'L'' REGS

7070
7071
7072
7073
;3;3

022532
022534
022536
022537
022540

177400
072414
000
000
000312

0
0

=400 WORDS
:0BUFF IS BUFF ADDRESS
*SECTOR 0
:TRACK 0
*CYLINDER 312

7045

;823

;822

;829

7069

022454

022510

022516

022522

022530

012700

000012

000001

001262

1§167:

MOV

042260

035674

JSR

R4 ,LRLOAD

=400
OBUFF
BYTE
BYTE

0
0

WRDATA

000312

312

TLOADRK
TWAT96

104004

035674

WRTCHK

=400
OBUFF
JBYTE
BYTE
312

022542

104417

TLOADRK

;8;8

022546

104002

ERROR

022544

104424

7080

022550

104421

7083
7084
7005
7086
7087

022554
022556
022564
022570
022572

104415
012737
010037
104416
104003

7089

022600

000131

;835

7088

7090
7091
7092
7093
7094

022552

022574

022602
022604
022606
022607
022610

TWAT32

TCHKOP

104004

004437
177400
072414
000
000
000312

#8170,R0

::D0 10.

ITERATIONS

*SET LO ORDER BIT IN RO FOR
:CAUSING WRITE CHECK ERROR
:CLEAR SUBSYSTEM
:BAD INIT ERROR
:GENERATE DATA, ALL 0'S

400

7076

7077

#10. ,$TIMES

TSSINIT
ERROR
3
JSR
R4, GENCOM
1

000400

000131

SCOPE
MOV

ERROR
022564
072634

035674

001110

18:

;:LOAD ''L'' REGS
*WRDATA
:=400 WORDS
‘0BUFF IS BUFF ADDRESS
*SECTOR 0
STRACK 0

*CYLINDER 312

;LOAD RK REGS
sWAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE ERROR
:CHECK OPERATION FOR ANY ERRORS
;O0R S, 6, 7, 10 ;REPORT ALL ERRORS
*WRTCHK

;LOAD RK REGS

:WAIT FOR INTERRUPT

;7O SLOW/NOT COMPLETE ERROR
;CHECK OPERATION FOR ANY ERRORS

;OR S5, 6, 7, 10 ;REPORT ALL ERRORS

SCOP1
MOV
#1%,SLPERR
MOV
RO,OBUFF+220
TSSINIT
ERROR
3

:LOCAL LOOP ON WRITE CHECK
*SET LOCAL LOOP
:CAUSE ERROR BIT IN BUFFER
:CLEAR SUBSYSTEM
:BAD INIT ERROR

WRTCHK

:WRTCHK

JSR

=400
OBUFF
BYTE
BYTE
312

R4, LRLOAD

0
0

SLOAD

''L'*

REGS

1=400 WORDS
:0BUFF 1S BUFF ADDRESS
*SECTOR 0
:TRACK 0
*CYLINDER 312

~ SEQ 0129

1044617
104424
104002

TWAT32
ERROR

104422

BCHKHE

;CHECK OPERATION WITH EXPECTED ERROR

gCKERR

;WRITE CHECK ERROR

TLOADRK

S OOVONO
VI WA =

104415

SCoP1

&; OR 5,6,7

;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

;REPORT ALL DISCREPANCIES

;LOCAL LOOP ON ERROR TO 1%

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
CAN BE THREE PAST WHERE THE ERROR WAS AND STILL BE ACCEPTABLE.

022634

023727
001416
101040
012737
012737
013737
012737
104010

023727
001461
101037

001544

072636

054033
072636
001544
050523

001450
001202
001204
061002

001542

17751

054006
050523
177511
001542

001450
061002
001202
001204

- OON 2

B ot

) h

—-O0000

NNNNSN
LN
— N
NNNNWTMN

—

£ess

WPOROR)
— N

023010
023016
0
0
02
02

[elelele
P l]

022746
022754
022756
022744
022772
02
023006

001544

072642

054033
072642
001544
050523

001450
001202
001204
061002

001542

177513

054
05052

001450

17751

001542

001204

CMP
BEQ
BHI
MOV

T.BA,#OBUFF+222
2%
6%
#EM11,EMION

:CHECK BA HALT AT PROPER PLACE
1YES=SKIP
(IF TO HI - SKIP
““'INCORRECT BA"'

ngon

f8P5R41.DF010A

:"WRITE CHECK ABORTED WITH WCE'

MOV
MOV
2%:

022744

)
g

ERROR

d o

N
S
U R
JUUE
TP

b d e cd i
b

Y
T
B

104004

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

PON)

NNNNNNNNNNNY

000000

;LOAD RK REGS

6%:

CMP

T.WC, #-267

;CHECK WORD COUNT AT CORRECT VALUE

:YES=-SKIP
:IF HIGHER SKIP
;"'INCORRECT wC"'
;'WRITE CHECK ABORTED WITH WCE"
:GOOD VALUE
:ERROR VALUE

BEQ
BHI
MoV
MOV
MoV
MOV
ERROR
BR

3%
7%
#EM10,EMION
#OPERL1,DFO10A
#-267,3REG10
T.WC,$REGT
10
3%

CMP
BLOS
MOV

T.BA,#OBUFF+226 ;TEST IF BA AT HI SIDE
7%
:YES - SKIP
#EM11,EMION
: SET MESSAGE

?gxoa

quzna1,or01oa

TTMWRITE CHECK ABORTED WITH WCE'

CMP
BLOS
MOV

T.WC,#-265
3%
FEMID EMON

:TEST IF WORD COUNT AT Wl SIDE
SYES = SKIP
:SET MESSAGE

MO\

#-265,3REGI0

;GOOD VALUE

MOV
MOV
7%:

#OBUFF+222 ,$REG10 ;GOOD VALUE
T.BA,SREG1{
:BAD VALUE

MOV

MO\

JEXIT

#OBUFF +226 ,3REG10 " ; GOOD VALUE
T.BA,SREG11
:ERROR VALUE

ZOPERLY ,DFOT10A
1.9C,$REGT

:'WC ABORTED WITH WCE"
‘ERROR VAL UE

SEQ 0130

~am
a

N 10
19-JUN-80 14:14 PAGE 131
MACY11 30A(1052)
167
WRITE CHECK ERROR (PART 1)

[l 1

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

CIR6KFO RK6 FCT NL CTRL DI AG
19=JUN-80 1 &:04
CZR6KF. P11

B 1N
19-JUN-B0 14:14 PAGE 132
MACY11 30A(1052)
167
WRITE CHECK ERROR (PART 1)

023050

104010

ERROR

023052

104415

SCOP1

032700

BIT

023064

BNE
ASL
BR

001002

006300
000637

023066

;LOCAL LOOP ON ERROR TO 1%

#BIT15,R0
4%
RO
1%

;BIT 15 SET?

sYES=EXIT
;SHIFT ERROR BIT
;LOOP

:‘"t'."'tt't.t""""""""'...""Q'i"t."".""""t"'t

«TEST 70

WRITE CHECK ERROR (PART 2’

IR IR IR

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

177757
177737
177677
177577

177377
176777
175777
173777

167777
157777
137777
077777

177776
177775
177773
177767

SN N N NN SN NN NN NN NN N NN NNNNNNNNNNNNNNY

023054

SEQ 0131

MAKE SURE WRITE CHECK ERROR SET FOR EACH

OF THE CONFIGURATIONS AND THAT THE BUS ADDRESS

LR B

AND WORD COUNT IS CORRECT.

—

177776

001262

SCOPE

MOV

#10.,8TIMES

0177776.R0

004437
000007
000400

TSSINIT
3
ERROR
R4 ,GENCOM
JSR
7
400

004437
000123

WRDATA

072414
000
000
000312

BYTE
.BYTE
312

104416

104003

=400
OBUFF

TLOADRK
TWAT96

R4 ,LRLOAD

0
O

JSR

R4 ,LRLOAD

b —b

ERROR

—

177400

WRTCHK
=400

::D0 10, ITERATIONS

:LOAD RO FOR CAUSING WRITE CHECK ERROR
:CLEAR SUBSYSTEM
;BAD INIT ERROR
:GENERATE DATA
ALL 1'S
;400 WORDS

:LOAD "L'' REGS

sWRDATA

;:LOAD RK REGS
:WAIT FOR INTERRUPT

104421
104004

004437
000131

200000t RRRtddd)

;CYLINDER 312

ERROR

TCHKOP

222220

;=400 WORDS
;OBUFF IS BUFF ADDRESS
sSECTOR 0
:TRACK 0

177400

JSR

104417
104430
104002

000012

TRE 8 S8 KUBSINNE =&V

000904
012737
012700

222222223223 222232 2222222222222 333302322222

:TO SLOW/NOT COMPLETE ERROR

:CHECK OPERATION FOR ANY ERRORS

:0R5.4.7, iO ;REPORT ALL ERRORS
;LOAD "'L'' REGS
sWRTCHK
;=400 WORDS

FlitiRl

7208 053160

MACYT 3?%1052)

000

19-JUN-80
WRITE CHECK ERROR (PART 2)

.BYTE

7207

023156

072414

OBUFF

7209
;%}?

023161
023162

000
000312

.BYTE
312

7212
7213

023164
023166

104417
104424

TLOADRK
TWAT32

7216

023172

104421

7219

023176

023200

104415
012737

023206

7222

023206

010037

072634

7226
7227
7228
7229
7230
7231

023216
023222
023224
023226
023230
023231

004437
000131
177400
072414
000
000

035674

7234
7235

023234
023236

104417
104424

7238
7239
7240
7241
;Szg

023242
023244
023246
023250
023252

000000
000004
000000

0
WCKERR
0

;%22

023254

104415

SCOP1

;g}g

023170

;g}g 023174
;gg?
7223
;ggg

;g§§

;ggg

023212
023214

023232

023240

104002

ERROR

TCHKOP

104004

104416
104003

001110
1%:

104422

104004

:SECTOR 0
;0BUFF

1S BUFF ADDRESS

:TRACK 0
:CYLINDER 312
:LOAD RK REGS
‘WAIT FOR INTERRUPT

110 SLOW/NOT COMPLETE ERROR
:CHECK OPERATION FOR ANY ERRORS

SCOP1
MOV

:LOCAL LOOP TO START OF TEST
#18,$LPERR
:SET LOCAL LOOP

;OR S, 6, 7, 10 ;REPORT ALL ERRORS

MOV

RO,0BUFF+220
TSSINIT
ERROR
3

:PUT WORD IN OBUFF TO CAUSE WCE

JSR

R4 ,LRLOAD

=400
OBUF F
.BYTE
.BYTE

0
0

:LOAD 'L'* REGS
sWRTCHK
.
:=400 WORDS
:0BUFF 1S BUFF ADDRESS
SSECTOR 0
:TRACK 0

312

104002

SEQ 0132

ERROR

WRTCHK

000312

:CLEAR SUBSYSTEM
:BAD INIT ERROR

:CYLINDER 312

TLOADRK
TWAT32
ERROR
2

:LOAD RK REGS
‘WAIT FOR INTERRUPT

TCHKWE

:CHECK OPERATION WITH EXPECTED ERROR

ERROR

:TO SLOW/NOT COMPLETE ERROR

:WRITE CHECK ERROR

4: OR 5.6,7

:REPORT ALL DISCREPANCIES
:LOCAL LOOP TO 1%

7246
7247
7248

;
;
;

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

;ggz

CAN BE THREE PAST WHERE THE ERROR WAS AND STILL BE ACCEPTABLE.

7249
7250
7251
7252

7255

;
;
:
;

7256
7257
7258
7259

023256
023264
023266
023270

023727
001416
101040
012737

001544

072636

054033

001450

7262

023312

012737

050523

061002

7260 023276 012737 072636 001202
7261 023304 013737 001544 001204

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

CMP
BEQ
BHI

T.BA,#OBUFF+222 :CHECK BA HALT AT PROPER PLACE
28
:YES=SKIP
63
:1F TO HI = SKIP

MOV
MOV

#OBUFF+222 ,$REG1D ;GOOD VALUE
T.BA,SREGT{
:BAD VALUE

MOV

#EM11,EMION

*"'INCORRECT BA''

#OPERL1,DFOT10A

:'WRITE CHECK ABORTED WITH WCE'

NNNNNNNNNNNNNY

CIR6KFO RK6 FCTNL CTR%OD%‘A.GO‘
CIR6KF P11
19=JUN=

(n
14:14 PAGE 133

l
001450
061002
001202
001204

023370
023376
023400
023406
023414
023422

023727
101415
012737
012737
013737
012737

001544

(072642

054033
(72642
001544
050523

001450
001202
001204
061002

7283
7284
7285
7286
7287
7288
7289

023432
023440
023442
023450
023456
023464
023472

023727
101415
012737
012737
012737
013737
104010

001542

177513

054006
050523
177513
001542

001450
061002
001202
001204

7291

023474

104415

7293
7294
7295
7296

023476
023502
023504
023506

032700
001002
006300
000637

7298

023510

;%g;

023430

104010

;CHECK WORD COUNT AT CORRECT VALUE
;YES-SKIP
;1F HIGHER = SKIP
:"'INCORRECT wC"'
:

MOV

#-267,8REG10

:GOOD VAL UE

MOV

#OPER4T,DFO10A

MOV

{6uc.£nec11

ERROR

000442

7275
7276
7277
7278
7279
7280

T.WC,#-267
38
7$
#EM10,EMI0N

6%:

CMP
BLOS

T.BA, #OBUFF+226 ;TEST IF BA AT HI SIDE
7%
:YES = SKIP

MOV
MOV
MOV

#EM11,EMT1ON
“SET MESSAGE
#OBUFF +226,3REG10 ; GOOD VALUE
T.BA,SREG11
:ERROR VALUE
ngERGI,DF010A

S"WRITE CHECK ABORTED WITH WCE'

CMP
BLOS

T.WC,#-265
3% .

;TEST IF WORD COUNT AT HI SIDE
;YES = SKIP

#OPER4L1,DFO10A
#-265,8REG10

;''WC ABORTED WITH WCE"
:GO0D VALUE

MOV

#EM10,EMION

MOV

T.WC,$REGT

MOV
MoV

ERROR

scoP1

3%:

#BI1T15,R0

BIT

100000

4%
RO
1%

BNE
ASL
BR

001262

WRITE CHECK OF PARTIAL SECTOR

»
»
»
2
%
»

—

T ETETE
PR TR TR

OO00O0O

000012

—t

004437

023534

;BIT 15 SET? (ALL PATTERNS TESTED)

sYES-EXIT
;SHIFT FOR NEXT TEST
.LOOP

WRITE CYLINDER 312, TRACK O, SECTOR WITH A KNOWN
ISSUE A WRITE CHECK COMMAND OF
CONF IGURATIONS.
110 WORDS MAKING SURE THE 111TH WORD IS
DIFFERENT THAN DATA ON DISK.
MAKE SURE
WRITE CHECK ERROR DOES NOT SET.

NN
- NONO

7318

W
o

NN
AT

023532

W
VAVA

7316

;ERROR VALUE

;;ttt'tlttl.Q""""""'""'t"t"'ifi."i'"'til'."t'tt"'tt'

004437
000007
000400

—

;SET MESSAGE

4%:

000004
012737
104416
104003

JEXIT

J*TEST 7

~
w

*ERROR VALUE

ngoa
7%:

:'WRITE CHECK ABORTED WITH WCE'

RPN

SCOPE
MOV
#10.,8TIMES
TSSINIT

R RN RN

R R R

RN RN RN RN R RN

;:00 10. ITERATIONS
;CLEAR SUBSYSTEM

ERROR

;BAD INIT ERROR

042260

JSR
7
400

Ra ,GENCOM

;GENERATE DATA
JALL 1'S
;400 WORDS

035674

JSR

R4 ,LRLOAD

;LOAD "L'" REGS

lale)

o
o

MO OO0
N NNSNSNNNNN

054006
050523
177511
001542

CMP
BEQ
BHI
MOV

023366

101037
012737
012737
012737
013737
104010

2%:

;g;z

023332
023334
023342
023350
023356
023364

17750

A A

7267
7268
7269
7270
7271
7272

001542

T RRT RO

PR OB O

023727
001461

0233%2
023330

OO0 P

7265
7266

ERROR

. WA P

104010

P38

023320

LU0 o

;%gz

SEQ 0133

~N~

CIR6KFO RK6 FCTNL CTRL DIAG
CIR6KF P11
19-JUN-B0 14:04

[JRN
MACYTT 3?;61052)
19-JUN-80 14:14 PAGE 134
WRITE CHECK ERROR (PART 2)

|
EN

19-JUN-80
14:14 PAGE 135
MACY11 30A(1052)
m
WRITE CHECK OF PARTIAL SECTOR

.BYTE
BYTE
312

O00000O

WRDATA

072414
000
000
000312

000

000123

104417
104430
104002

ERROR

104421
104004

TCHKOP
ERROR

CLR

OBUFF+222

JSR

R4 ,LRLOAD

177400

=400
OBUFF

TLOADRK
TWAT96

023564

005037

072636

023570
023574
023576
023600
023602
023603
023604

004437
000131
177670
072414
000
000
000312

035674

023606
023610
023612

104417
104424
104002

ERROR

023614
023616

104421
104004

ERROR

WRTCHK

=110
OBUFF

.BYTE
.BYTE
312

;WRDATA

;=400 WORDS
;0BUFF IS BUFF ADDRESS

0
0

;SECTOR 0
;TRACK 0
;CYLINDER 312

:LOAD RK REGS
;WAIT FOR INTERRUPT

;7O SLOW/NOT COMPLETE ERROR

;CHECK OPERATION FOR ANY ERRORS
;OR 5, 6, 7, 10 ;REPORT ALL ERRORS

TCHKOP

.SBTTL

;LOAD "‘L'" REGS
s WRTCHK

;=110 WORDS
;OBUFF IS BUFF ADDRESS

0
0

;SECTOR 0
;TRACK 0
;CYLINDER 312

TLOADRK

TWAT32

SEQ 0134

;LOAD RK REGS

;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

;CHECK OPERATION FOR ANY ERRORS

;OR 5, 6, 7, 10 ;REPORT ALL ERRORS

«*«MAXIMUM DATA TRANSFER AND CONTROLLER TIME OUT

:"tt.t."".Qt"""'i"t""t"'l.'..'.'t't.'t..t.""'t'ti'tt'

S*TEST 72
* *

IN THL FIRST PASS OF THE PROGRAM, THE HEADERS OF
THE FIRST & CYLINDERS ARE WRITTEN. THIS IS DONE TO
INSURE THE FORMAT IS CORRECT.

;Q
*

-’

ZERO OUT THE FIRST 256 SECTORS OF THE DISK WITH
ONE SECTOR WRITES.
ISSUE A SEEK TO CYLINDER 0, TRACK 0.

‘X

ISSUE A WRITE DATA OF MAXIMUM DATA TRANSFER 200000 WORDS

* %

TO CYLINDER O, TRACK O, SECTOR 0. MAKE SURE CONTROLLER
TIME OUT IS NOT SET.
CHECK CYLINDER ADDRESS,
DISK ADDRESS, BUS ADDRESS AND WORD COUNT. READ
EACH SECTOR TO MAKE SURE IT WAS WRITTEN CORRECTLY.

3%
b

NOTE:

ML
£

023620
023636

000002
000400

001262
001664

MAXIMUM DATA TRANSFER (PART 1)

THIS TEST IS EXECUTED ONLY IF NO BAD SECTORS ARE PRESENT
IN THE FIRST 256 SECTORS ON THE PACK.

2222222222222 223222 3222222222323 2322233232220

15172:

SCOPE

MOV
BIT
BNE

#2,8TIMES
#FPFMT ,OPTFLG
24$

22020

RRiRRRRRRR)

::00 2 ITERATIONS
;TEST IF FIRST PASS SWITCH SET
;YES = SKIP FORMAT

TMo
NN

CIR6KFO RK6 FCINL CTRL DIAG
19-JUN-8 0 14:04
CZR6KF P11

SEQ 0135

~NN
D .

172

F11
19-JUN-80
14:14
PAGE 136
MAXIMUM DATA TRANSFER (PART 1)

TMTM

MACY11- 30A(1052)

023663

105237
000752

023663

023724
023730
023736
023740
023744

105037
023727
001403
005237
000741

023663
023664

023746

013737
012703

000002

000003

023664

023760 001110 248:
3

000400

104003

004437
000123

(MPB
BEQ
INCB
BR

$ M2
$
%
$

;TEST IF LAST TRA(CK
;YES = SKIP

(LRB
CMP
BEQ
INC
BR

$
$.43
$
%
$

:CLEAR TRACK POINTER
sTEST IF LAST CYLINDER WRITTEN
;YES = SKIP
:ELSE BUMP CYLINDER
;LOOP

MOV
MOV

00,R3

TSSINIT

ERROR

035674

JSR
WRDATA
=400

177400

OBUFF
.BYTE
.BYTE
0

072414
000
000
000000
1046417

;ELSE BUMP TRACK
.LOOP

SLPERR

R4 ,LRLOAD

;SET LOCAL LOOP ON ERROR

sSET COUNT FCR SECTOR CLEARING

:CLEAR SUBSYSTEM
:BAD INIT ERROR
;LOAD """ REGS

;WRDATA

.=400 WORDS
;0BUFF IS BUFF ADDRESS
;SECTOR C

0
0

;TRACK 0

;CYLINDER 0
:LOAD RK REGS

TLOADRK

104434
104002

TWAT159
2
ERROR

;WAIT FOR INTERRUPT

024010
024012

104421
104004

TCHKOP

:CHECK OPERATION FOR ANY ERRORS

024014
024016
024020

005303
012762

ERROR

SCOP1

1046415

072414

000004

2%:

DEC

MOV

;70 SLOW/NOT COMPLETE ERROR

:0RS, 6,7, 10 ;REPORT ALL ERRORS

R3
#OBUFF ,RKBA(R2)

;LOCAL LOOP ON ERROR TO 1%
:DECREMENT COUNT
;SET BA

0D OD O
00 OO
S0 OO0 S
SO
OB OB S
PI0 OB S
P
P
S

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

s, PR S

123727

001403

023706
023714
023716
023722

;:OR 5, 6, 7

PUA PR

TCHKOP

ERROR

;7O SLOW/NOT COMPLETE ERROR

104421
104004

;WAIT FOR INTERRUPT

023702
023704

:LOAD RK REGS

TLOADRK

PN P

TWAT112
ERROR
2

104417
104431
104002

;WITH BAD SECTOR ERRORS

U P

;G0 GENERATE HEADERS

023674
023676
023700

104416

7430

R4 ,GENCOM

S, S, P

JSR
1200

S, S

042260

;OBUFF IS BUFF ADDRESS
:SECTOR 0
sTRACK ADDRESS (VARIABLE)
;CYLINDER 0 (VARIABLE)

. P

2's:
22%:

0
0

. P

OBUF¢

:LOAD 'L'" REGISTERS

JWRITE HEADER
:102 WORDS

004437
001200

R4 ,LRLOAD

. S

177676
072414
000
000
000000

JSR

WRHEAD
=102

OO0O000O0

023664

20%:

;sCLEAR ADDRESS POINTERS

E——

035674

21%
22%

e —

004437
000127

CLRB
CLR

—

023663
023664

105037
005037

CIR6KFO Rk6 FCTNL CTRL DIAG
19-JUN-B0 14:04
CZR6KF P11

001664

000200
052457

001664
001360

76448

024132

000137

024466

7447

7449

76450

024130

024136

104001

7451
7452

024136
024140

104421
104C04

7455

024144

005303

76458
7459
76460
7461
76462
76463

024150
024154
024156
024160
024162
024163

004437
000117
000000
000000
000
000

76466
76467
76468

024166
024170
024172

104417
104423
104002

;222

;229

;222

76469
76470
76471
76472
7473
74764
7475

;2;9

024142

024146

024164

024174
024200
024202
024204
024206
026210
024214

024216

005037
104421
104004
104427
104002
004437
004006

026224

006437

024232
024234
024236
024237

000000
072414
000
000

76483
76484
7485
7486

024230

035674

000123

TCHKOP
ERROR

;CHECK OPERATION FOR ANY ERRORS
:0R S, 6, 7, 10 ;REPORT ALL ERRORS

DEC
BNE

:DECREMENT COUNT

JSR
SEEK
0
0
.BYTE
BYTE

R4 ,LRLOAD

:LOAD "'L'" REGS
:SEEK
:0 WORDS
:0 IS BUFF ADDRESS
:SECTOR 0
*TRACK 0

:LOCAL LOOP TO 18 (RESTART SECTOR CLEAR)

:LOOP IF NOT ZERO

:CYLINDER 0

TLOADRK
TWAT16
ERROR
2

001662

CLR
TCHKOP
ERROR
TWAT80
ERROR
JSR
4006

042260

INTSET

;OR S, 6, 7

2
R4, GENCOM

400

4$:

035674

:"'FIRST 256 SECTOR NOT BSE FREE"

CHECK FOR ANY OTHER ERRORS

000400

104416
104003

ERROR

SCOP1

000000

76481

7482

001324

024220

024220
024222

104415

7478

76479
76480

:LOAD RK REGS
‘WAIT FOR INTERRUPT
:TO "' DW/NOT COMPLETE ERROR

SCLIAR FIRST INTSRRUPT
:CHECK OPERATION FOR ANY ERRORS
:REPORT ALL ERRORS
:WAIT FOR SECOND INTERRUPT
:TO SLOW/NOT COMPLETE ERROR
:GENERATE DATA
:PATTERN 6, 1ST WORD REPEATED

1400 WORDS

TSSINIT
ERROR
3

:CLEAR SUBSYSTEM
:BAD INIT ERROR

WRDATA

;WRDATA

JSR

0
OBUFF
.BYTE
.BYTE

R4 ,LRLOAD

0
0

SLOAD ‘'L'*

~N~N

PR PR S
P

TMTM

|
000200

PUR Sen. PR, Sun FUR SR PR PR PR MR

260 TO EXIT

000014

PUR P, S

14%

000200

e, S, P, S, S, PR S, S

JMP

032762
001415
332737
001007
052737
012737

S, S, P, P

:BAD SECTOR ERROR?
:NO=SKIP
;TEST IF BSE TO MANY HAS BEEN REPORTED
:YES - SKIP
:SET FLAG
:SET MESSAGE

024074
024102
024104
024112
024114
024122

S, U

#BSE ,RKER(R2)
3$
#BSERPT,OPTFLG
5%
#BSERPT,OPTFLG
#OPRO17.EMIN

7641
76442
76443
76444
76445
76446

S, PU

BIT
BEQ
BIT
BNE
BIS
MOV

104425
104002

. P

:WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

024070
024072

—

TWAT4LSB
ERROR

76438
;228

;DO WRITE DATA

000000

—

#WRDATA, HOLD
DTYPE,HOLD
HOLD,RKCST1(R2)

—

MOV
BIS
MOV

000010
036124
036124

:AND WC AGAIN

INTSET
:CLEAR INTERRUPT FLAG
DRVNUM,RKCS2(R2)
:SET DRIVE NUMBER

—

#-400,RKWC(R2)

CLR
MOV

. — —

MOV

S ——

000123
001720
036124

000002

012737
053737
013762

177400

001662
001626

024046
0240564
024062

012762

005037
013762

REGS

:0 WORDS
:0BUFF 1S BUFF ADDRESS
:SECTOR 0
:TRACK 0

e e

7634
76435
;2§9

024036
024040

SEQ 0136

ozao§2

6 11
19-JUN-80 14:14 PAGE 137
MAXIMUM DATA TRANSFER (PART 1)

7431

76432
76433

MACYT 3?;51052)

CIR6KFO Rk6& FCTNL C‘REODIAG
CIR6KF P11
19-JUN=-80
14:04

CZR6KFO RK6 FCTNL CTRL DIAG
024240

000000

024242

052737

024250
024252
024254

104417
104437

104421
104004

024262
024264
024270
024274
024300
024306

012703
005037
005037
013737
042737

104415

104416
104003

004437
000121

H 11
19-JUN-80
14:14
PAGE 138
MAXIMUM DATA TRANSFER (PART 1)

000020

001610

BIS

7%:

TCHKOP

ERROR

SCOP1

000400
024332

024334
024314
000020

TSSINIT

JSR
RDDATA
=400

1046417
104425
104002

024344
024346

104421
104004

ERROR

024350

104415

SCOP1

024352
024356
024360
024362
024364

004437

024366
024372
024374
024376
024402
024404
024406
024410
024412

013700
0

024412

104415

——

024336
024340
024342

N—=O
Ll X

OR 3.8, 7,

#BAL,L.CS2

024334

IBUFF
.BYTE
.BYTE
0

8% ,SLPERR

TCHKOP

042260

001634

64%:

R4 ,LRLOAD

042260

104016

65%:
13%:

;CLEAR SECTOR AND TRACK VALUES

;CLEAR CYL VALUE
;:SET LOCAL LOOP ON ERROR
;CLEAR BAI

;BAD INIT ERROR
;LOAD RK REGS
;READ DATA
;400 WORDS
; INTO IBUFF
;SECTOR (VARIABLE)
;CYL

(VARIABLE)

;LOAD RK REGS

;WAIT FOR INTERRUPT

;7O SLOW/NOT COMPLETE ERROR

;O0R5, 6,7,

;CHECK OPERATION FOR ANY ERRORS

10 ;REPORT ALL ERRORS

;LOCAL LOOP ON ERROR TO 8%
R4 ,GENCOM

MOV

ERRLMT RO
RO

SCoP1

; INTERNAL LOOP ON ERROR TO 4$
;SET COUNTER FOR READ-COMPARE LOOP

:TRACK

JSR
100000
400
BR
ERROR
DEC
BEQ
JSR
42000
8
ERROR
BR

; CHECK OPERATION FOR ANY ERRORS
10 ;REPORT ALL ERRORS

;CLEAR SUBSYSTEM

TLOADRK

TWAT4L8
ERROR

000400
000413
104015

000770

BIC

ERROR

035674

CLR
CLR

MOV

177400

040000
000402

:LOAD RK REGS
;WAIT FOR SECOND INTERRUPT
;ELSE REPORT TO SLOW/NOT COMPLETE ERROR

#400,R3
10%
12%

Mov

070414
000
000
000000

100000

#BAL,L.CS2

TLOADRK

TWATBS
ERROR

SEQ 0137

;CYLINDER 0O

104002

024256
024256
024260

024314
024314
024316
024320
024324
024326

172

)

7487
7488
7489
7490
7649
7492
7493
7494
7495
7496
7497
7498

19-JUN-B0 14:04

30A(1052)

CZR6KF .P1

MACY11

13%
15

65%

R4 ,GENCOM

65%
16

64%

: COMPARE DATA
;400 WORDS

;NO MISCOMPARE-EXIT LOOP
;REPORT FIRST

ERROR

;GET ERROR LIMIT
;DECREMENT COUNT
:1F ZERO - EXIT
;CONTINUE DATA COMPARE

:NO MORE ERRORS - EXIT
;REPORT NEXT ERROR
.LOOP

;LOCAL LOOP TO 8%

OO
o o O
WKW
WWW
W

OO0

000003

O
Pl
S
WW
WW
SN

0052
00071

000026

OO0

024460
024464

NN
o
W
W
oo

OO
OO0
CamaO
==
—_

o oNOoOoOONO
w - NN
=
NN
DWNNOWNN

~N
&
»
w
»

5H
w
~N

7548
7549

024466

INn

19-JUN=-B0
14:14
PAGE 139
MAXIMUM DATA TRANSFER (PART 1)

DEC
BEQ

?3
4

;DEC _READ LOOP COUNT
:1F ZERO-EXIT

INCB
CMPB
BNE
CLRB
INCB
"CMPB
BNE
CLRB
INC
BR

108
.
108,426

;BUMP SECTOR
;FINISHED WITH TRACK?
sNO=LOOP
;CLEAR SECTOR
:BUMP TRACK
:FINISHED WITH CYLINDER?
sNO=-LOOP
:CLEAR TRACK
;BUMP CYL.
;LOOP

108
11%
118,43
11%
12%
9%

14%:
;;'tt.QQtt!'t'lt"""""'t""'t"t..'tttt't't'tt'Q"Q'tt'tttt.

MAXIMUM DATA TRANSFER (PART 2)

;*TEST 73
b

]

i
o
A
i
it
it
.t
e

ZERO OQUT FIRST 256 SECTORS OF THE DISK WITH
200000 WORD WRITE. SEEK TO CYLINDER 632.

;e
o
:®

NOTE :

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.

SEEK TO CYLINDER 632. ISSUE A WRITE CHECK
OF 200000 WORDS. MAKE SURE NO ERROR SETS.

THIS TEST IS EXECUTED ONLY IF NO BAD SECTORS ARE PRESENT
IN THE FIRST 256 SECTORS ON THE PACK.
CYLINDER 1456 1S USED FOR RKO7.

E;tt'ttt'tttttt""t"ttt't't"tt'tttttt':tttl't'ttt'ttttt'lttttt
024466

000004

024470
024476
024500
024502
024506

012737
104416
104003
012700
005037

000002

024512
024516
024520
024522
024524
024525

004437
000123
000000
072414
000
000

035674

024546
024550
024552

005300
001373
104002

000620
072414

000020

02
00
024544 < 000403

001262

T1ST73:

SCOPE

MOV

TSSINIT

ERROR

MOV

CLR-

JSR

2%:

;BAD INIT ERROR

#400.,R0

OBUFF

;sCLEAR SUBSYSTEM

:SET COUNT FOR INTERRUPT WAIT

;LOAD "'L'" REGS

0
O

#BAl,L.CS2

;0 WORDS
;OBUFF IS BUFF ADDRESS
:SECTOR 0
;TRACK 0
sCYLINDER 0
:SET BAI

BR
BR

2%
3%

sWAIT FOR INTERRUPT
sNO INTERRUPT=SKIP
s INTERRUPT=SKIP

DEC
BNE
ERROR

RO
1%
2

;DEC WAIT COUNTER
:NO ZERO-LOOP
;7O SLOW/NOT COMPLETE ERROR

0
OBUFF
.BYTE
BYTE
0
BIS

1%:

;:D0 2 ITERATIONS

R4,LRLOAD

WRDATA

001610

#2,8TIMES

TLOADRK

TWAT159

:WRDATA

:LOAD RK REGS

SEQ 0138

(Tl

172

7543
7544
7545
7546
7547

30A(1052)

~NN

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

MACY11

7603
7604
7605
7606
7607
7608
7609
7610
7611
7612
7613
7614
7615
7616
7617
7618
7619
7620
7621
7622
7623
7624

024554
024562

000200

000014

3%:

024564
024572
024574
024602
024610
024612.

000200
000200
052457

024616
024616
024620
024622
024630

013737

024636
024642
024644
024646
024650
024651
024652

004437
000117
000000
000000
000
000
000000

024654
024656
024660
024662

104417

BIT
BEQ

#BSE ,RKER(R2)
48

001664

BIT

#BSERPT,OPTFLG

001664
001360

BIS
MOV
ERROR
JMP

#BSERPT,OPTFLG
#OPRO17 .EMIN
1
1%

BNE

12%:

025160

A Y

104423
104002

005037

036120
036120

024652
025026

035674

13%:

TCHKOP

128%

ERROR

MOV

LSTCYL,148

JSR
SEEK
0

R4 ,LRLOAD

0
.BYTE
‘BYTE
0

LSTCYL 1Ss

001662

ERROR
CLR

INTSET

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
1046423
104002

ERROR

024726 104421
024730, 104004

ERROR

JSR

R4, LRLOAD

024732
024736

004437
000123

0
0

.BYTE
BYTE
0

:0R S, 6, 7

TCHKN®

035674

WRDATA

;7O SLOW/NOT COMPLETE ERROR
;CLEAR INTERRUPT FLAG

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

;WAIT FOR 2ND INTERRUPT

;OR S, 6, 7

0
0

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS
;LOAD "'L'" REGS
;CLEAR
;0 WORDS
;0 IS BUFF ADDRESS
;SECTOR 0
;TRACK 0

;CYLINDER 0
:LOAD RK REGS
;WAIT FOR INTERRUPT
;70 SLOW/NOT COMPLETE ERROR

TLOADRK

TWAT16

;LOAD "'L'* REGS

;LOAD RK REGS

ERROR

CLEAR

10 ;REPORT ALL ERRORS

;WAIT FOR INTERRUPT

104427
104002

035674

;CHECK OPERATION FOR ANY ERRORS

:CYL 632/1456

024672
024674

TCHKOP

:TRK 0

024670

TWAT80

;F%RST 256 SECTORS NOT BSE FREE''

;SEC 0

0
0

104421
104004

ERROR

:SET MESSAGE

;0 WORDS

024666

TCHKOP

;TEST IF TO MANY BAD SECTORS REPORTED
;YES = SKIP
;SET FLAG

;0 1S BUFF ADDR

TLOADRK

TWAT16

;DID BSE SET

sNO=SKIP

;OR S, 6, 7

;CHECK OPERATION FOR ANY ERRORS
+REPORT ALL ERRORS

;LOAD 'L"* REGS
:WRDATA

oTM 1

7601
7602

'SEQ 0139

~NN

19-JUN-80
30A(1052)
14:14
PAGE 140
173
MAXIMUM DATA TRANSFER (PART 2)

O=0000

7599
7600

J 1N

MACY11

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P

024746

000000
072414
000
000
000000

024750
024756
024762

012737
012700
052737

024770
024772
024774
024776

104417
104434
000401
000403

025000
025002
025004

005300
001373

025006
025006
025010
025012

OBUFF

135143
000621
000020

.BYTE
.BYTE
0

0
0

072414

MOV

#135143,0BUFF

;SET WORD FOR OUTPUT

001610

BIS

#BAL.L.CS2

*SET BUS ADDRESS INC INHIBIT

MOV

€s:

6%:

104002

7%:

104421
104004

004437
000117
000000
000000

035674

104002

025042
025044

104421
104004

025046

104427
104002
104421
104004

025054

001662

DEC
BNE
ERROR
TCHKOP

:WAIT FOR INTERRUPT
:NO INTERRUPT=BRANCH

: INTERRUPT=BRANCH

RO
5%
2

;DEC WAIT COUNT
:LOOP IF NOT ZERO
;TO SLOW/NOT COMPLETE ERROR
;CHECK OPERATION FOR ANY ERRORS

ERROR

JSR

R4 ,LRLOAD

:LOAD 'L'" REGS

0
O

:0 WORDS
;0 IS BUFF ADDR
;SEC O
:TRK 0

0
0
.BYTE
.BYTE

TLOADRK
TWAT16

ERROR
CLR

ERROR

TWAT80

ERROR

TCHKOP

:0R S, 6, 7, 10 ;REPORT ALL ERRORS

sCYL 63271456

2
INTSET

;O0R S, 6, 7

:0R S5, 6, 7

JSR

R4&,LRLOAD

CLEAR

0
0

;LOAD RK REGS
;WAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE ERROR
sCLEAR INTERRUPT FLAG
;CHECK OPERATION FOR ANY ERRORS

;REPORT ALL ERRORS

:WAIT FOR SECOND INIT
;70 SLOW/NOT COMPLETE ERROR

ERROR

0
0
.BYTE
.BYTE
0

025072

:SET COUNT FOR INTERRUPT WAIT
:LOAD RK REGS

TWAT159
BR
6%
BR
7%

TCHKOP

035674

025056

#401.,R0

TLOADRK

SEEK

14%:

005037

;0 WORDS
+OBUFF IS BUFF ADDRESS
:SECTOR 0
:TRACK 0
:CYLINDER 0

:CHECK OPERATION FOR ANY ERRORS

;REPORT ALL ERRORS

:LOAD "L'' REGS

;CLEAR

:0 WORDS
:0 IS BUFF ADDRESS
:SECTOR O
:TRACK 0
:CYLINDER 0

025074
025076
025100

104417
104423
104002

TLOADRK
TWAT16
ERROR
2

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

025102

104421

TCHKOP

;CHECK OPERATION FOR ANY ERRORS

'SEQ 0140

]
024740

K 11
MACY11 30A(1052)
19-JUN-B0
14:14
PAGE 141
173
MAXIMUM DATA TRANSFER (PART 2)

[alal

CIR6KFO RK6 FCTNL CTRL DlAG
P11
19-JUN-80
1 4:04
CZR6KF

;;}%

025104

104004

7713
7714
7715
7716
7717
7718
7719
7720

025106
025112
025114
025116
025120
025121
025122
025124

004437
000131
000000
072414
000
000
000000
052737

7723
7724
7725

025136
025140
025142

025144

104417
104434
00040

000403

7728

025146

005300

;;gg

025152

104002

;;g;

;;39
7729

025132

025150

7732
7733

025154
025154

7736

025160

;;gg

7737

025156

012700

001373

035674

000621

001610

9%:

108:

104427

JSR

R4 ,LRLOAD

.BYTE
.BYTE
0
BIS

0
0

MoV
8$:

ERROR
WRTCHK
0
OBUFF

;
000020

LN
19-JUN-80 14:14 PAGE 142
MAXIMUM DATA TRANSFER (PART 2)

104004

108

DEC

;DEC WAIT COUNT

ERROR

;TO SLOW/NOT COMPLETE ERROR

BNE

TCHKOP

7742
7743

o
0

;;22

]

000004

SEEK TO CYLINDER 632.

ISSUE A RECALIBRATE AND DO NOT

OF CYLINDER O, TRACK 0.
OUT SETS.

MAKE SURE CONTROLLER TIME

WAIT FOR SECOND INTERRUPT. NOW ISSUE A READ HEADER

CYLINDER 1456 IS USED FOR THE RKO7.

:-;nnnunntttnnntnnnnttnnttntnnnnnntnnnnt

TST74:

SCOPE
MOV
#5.,8TIMES
TSSINIT
ERROR
3
MOV
LSTCYL,1$

::D0 5. ITERATIONS
;CLEAR SUBSYSTEM
:BAD INIT ERROR

JSR

R4 ,LRLOAD

;LOAD ''L'' REGS

O
0

:0 WORDS
:0 IS BUFF ADDR
:SEC 0
:TRK 0

000005

001262

036120

025216

025202

004437

035674

7755
7756
7757
7758

025210
025212
025214
025215

000000
000000
000
000

7761
7762

025220
025222

104417
104423

104002

ERROR

7765
7766

025226
025230

104421
104004

TCHKOP
ERROR

;;23
;;22

025206

025216
025224

;:CHECK OPERATION FOR ANY ERRORS

;OR S, 6, 7, 10 ;REPORT ALL ERRORS

CONTROLLER TIME OUT

012737
104416
104003
013737

7754

:NOT ZERO=-LOOP

7753

; :ttttttttttttttt'ttt'tt'tttt'ittttttttt'fifitit't'titttttttttti"t

77461

025162
025170
025172
025174

: INTERRUPT=SKIP

11%:

7740

7748
7749
7750
;;g;

;SET WAIT COUNT

ERROR

025160

#401.,RO

:LOAD 'L'' REGS
:WRTCHK
:0 WORDS
;OBUFF IS BUFF ADDRESS
:SECTOR 0
:TRACK 0
:CYLINDER 0
:SET BAI FLAG
:LOAD RK REGS
;WAIT FOR INTERRUPT
:NO INTERRUPT=-SKIP

;*TEST 74

7747

#BAI,L.CS2

:REPORT ALL ERRORS

TLOADRK
TWAT159
BR
9%

;;gg

7746

;OR S, 6, 7

000117

000000

SEEK

1%:

0
0
.BYTE
.BYTE

TLOADRK
TWAT16

:CYL 63271456

:
:O0R 5, 6, 7

:LOAD RK REGS
;WAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE ERROR
:CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

SEQ 0141

lalel

MACY11 3?9;1052)

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF .P11
19-JUN=-80 14:04

7767
1768

1769
7770
7771
7772

7773
777¢
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
7818
7819
7820
7821
7822

025232

025236
025240
025242
025244

005037
104427

001662

LR
19-JUN-B0 14:14 PAGE 143
CONTROLLER TIME OUT

CLR
TWAT80

ERROR

JSR
SLEAR

R4 ,LRLOAD

TCHKOP

104004

INTSET

;OR 5, 6, 7

025246
025252
02'254
025256
025260
025261
025262

004437
000105
000000
000000

025264
025266
025270

104417
104423
104002

ERROR

025272

025274

104421
104004

ERROR

025276
025302
025304
025306
025310
025311
025312

004437
000113
000000
000000
000
000
000000

JSR

R4 ,LRLOAD

025314
025316
025320

104417
104423
104002

025322
025326

025330
025332
025334
025335
025336

004437
000125
000000
000000
000
000
000000

025340
025342
025344

104417
104436
104002

025346
025350
025352
025354
025356
0%5360
025362
025364
025370
025376

035674

0
MY
6BYTE

000

000
000000

9
0

TCHKOP

035674

8ECAL

.BYTE
6BYTE

;OR 5, 6, 7

0
0

035674

ERROR

JSR
SDHEAD

R4 ,LRLOAD

0
.BYTE
6BYTE

ERROR

001662
000100

000000

;WAIT FOR INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

:LOAD ''L'' REGS

sRDHEAD

;0 WORDS
;0 IS BUFF ADDRESS
;SECTOR 0

sCYLINDER 0

;CHECK OPERATION WITH EXPECTED ERROR

4; OR 5,6,7

ERROR
CLR
MOV

3
INTSET
#1E ,RKCST1(R2)

TWATBS

;CYLINDER 0

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

ERROR

TSSINIT

;LOAD "'L'' REGS
sRECAL
:0 WORDS
:0 IS BUFF ADDRESS
:SECTOR 0
;TRACK 0

;TRACK 0

TCHKWE

0
0
CTOERR

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

0
0

TLOADRK

TWAT2S

;CLEAR
;0 WORDS
;0 IS BUFF ADDRESS
;SECTOR 0
:TRACK 0
;CYLINDER 0

:LOAD RK REGS

TLOADRK

TWAT16

;LOAD """ REGS

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

TLOADRK

TWAT16

;CLEAR INTERRUPT FLAG
;WAIT FOR SECOND INTERRUPT
;7O SLOW/NOT COMPLETE ERROR
;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

;CONTROLLER TIME OUT
;REPORT ANY DISCREPANCIES
;CLEAR SUBSYSTEM
:BAD INIT ERROR
:CLEAR INT FLAG
sSET INT ENABLE
;WAIT FOR SECOND INT

SEQ 0142

MACYTT 3??21052)

(ale]

CIW6KFO RK6 FCINL CTRL DIAG
19-JUN-80 14:04
VLREKF P11

7823
7824
7825
7826
7827

025400

MACY11 30A(1052)
19-JUN-80 14:14 PAGE 144
174
CONTROLLER TIME OUT

104002

ERROR

.SBTTL

7829

- SEQ 0143

++ERRORS DURING DATA TRANSFER

7830

R LR
el

;gg;

'TEST 75

7833
7834

ot
c®

7838

7835
7836
7837

ot
.

7839

025402

000004

7842

025412

104416

7845
7846
7847
7848
7849
7850
;gg;

025416
025422
025424
025426
025430
025431
025432

004437
000113
000000
000000
. 000
000
000000

7853
7854

025434
025436

104417
104423

7857

025442

005037

;g:?

;g:z

;ggz

7858
;gzg

025404

025414

025440

025446
025450

012737

001262

104437
104002

104421
104004

7864
7865
7866
7867
7868
7869
7870
7871
787
787

025456
025462
025464
025466
025470
025471
025472
025474
025502
025504

004437
000117
000000
000000
000
000
000002
012737
104417
104423

7876
7877

025510
025512

10“1g
10400

104002

T1ST75:

ISSUE A SUBSYSTEM CLEAR.
ISSUE A RECALIBRATE.
ISSUE
A SEEK TO CYLINDER 2 WITH BAD PARITY.
[ISSUE A DRIVE
CLEAR.
ISSUE A WRITE DATA OF 400 WORDS TO CYLINDER 1,
TRACK O, HEAD 0.
SEEK INCOMPLETE BECAUSE OF OUTER
LIMIT SHOULD BE THE ONLY ERROR SET.
T

SCOPE

MOV

TSSINIT

035674

JSR

R4 ,LRLOAD

.BYTE
BYTE
0

0
O

035674

000020

001616

CLR

INTSET

TCHKOP
ERROR

::D0 3. ITERATIONS

:LOAD 'L'" REGS
sRECAL
;0 WORDS
:0 IS BUFF ADDRESS
sSECTOR 0
:TRACK 0
:CYLINDER 0

;TO SLOW/NOT COMPLETE ERROR

;O0R S5, 6, 7

sCLEAR INTERRUPT FLAG

sWAIT FOR SECOND INTERRUPT
:CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

JSR
R4 ,LRLOAD
SEEK
0
0
BYTE
O
BYTE
0
2
MOV
#PAT L .MR1
TLOADRK
TWAT16

:LOAD ''L'' REGS
s SEEK
;0 WORDS
:0 IS BUFF ADDRESS
;SECTOR 0
;TRACK 0
sCYLINDER 2
sSET EVEN PARITY BIT
:LOAD RK REGS
sWAIT FOR INTERRUPT

TSSINIT
ERROR
3

;CLEAR SUBSYSTEM
;BAD INIT ERROR

ERROR

;LOAD RK REGS
sWAIT FOR INTERRUPT

;BAD INIT ERROR

ERROR

TWATS8S
ERROR

sCLEAR SUBSYSTEM

TLOADRK
TWAT16

001662

#3.,8TIMES

ERROR
RECAL
0
0

104002

025452
025454

025506

000003

104003

7861
;ggg

;g;g

LIMIT DETECT ON DATA TRANSFER

;70 SLOW/NOT COMPLETE ERROR

1
-S4

CIR6KFO RK6 FCTNL CTRL DlAG
CZR6KF P11
19-JUN=-B0 14:04

lala

035674

O0000

ERROR

035674

025572
025574

012737

000001

025614

032737
001755

025624
025626

104416

025630

01276¢

025622

001616

104002

R4 ,LRLOAD

:LOAD 'L'" REGS

f,L.MRT

ERROR

000000

060314

001372

18:

;OR 5, 6, 7

s SELDRV
;0 WORDS
;0 IS BUFF ADDRESS
;SECTOR 0
;TRACK 0
;CYLINDER 0

;SET TO GET STATUS PAIR 1

;LOAD RK REGS
;WAIT FOR INTERRUPT
;7O SLCw/inCT COMPLETE ERROR

;CHECK OPERATION FOR ANY ERRORS

ERROR

BIT
BEQ

T MR2
#S.HDHM,
3%

;TEST IF HEADS HOME
;NO = GET STATUS AGAIN

ERROR

;CLEAR SUBSYSTEM
;BAD INIT ERROR

MOV

#1E,RKCST1(R2)

;SET It

CLR
TWAT8S

INTSET

TSSINIT

000100

0
0

MoV

TLOADRK
TWAT16

001574

;REPORT ALL DISCREPANCIES

JSR

TCHKOP

000040

;OR 5,6,0R7

0
0
.BYTE
BYTE
0

000401
000404

025656

;CHECK OPERATION WITH ERROR
;SEEK INCOMPLETE

ERROR

SELDRV

001662

012737

;TO SLOW/NOT COMPLETE ERROR

;:CLEAR SUBSYSTEM
;BAD INIT ERROR

TSSINIT

104003

025650

;LOAD RK REGS
;WAIT FOR INTERRUPT

3$:

:SECTOR 0
sTRACK O
sCYLINDER 1

TCHKWE
SKIERR

ERROR

LOAD "L"" REGS

-400
: 0BUF F lS BUFF ADDRESS

TLOADRK

TWAT16

004437
000101
000000
000000
000
000
000000

104421
104004

R4 ,LRLOAD

104416
104003

025610
025612

JSR

WRDATA
=400
OBUFF

.BYTE

104422
000002
000000
000000
104004

104417
106423
104002

BR
BR

1%
2%

MOV

#DHO16,DH2N

ERROR

;REPORT ALL ERRORS

;CLEAR INT FLAG

;WAIT FOR SECOND INTERRUPT

;''SUBSYSTEM CLEAR TO RESET LIMIT ERROR
:ALLOWING HEADS TO RELOAD'"'

SEQ 0144

B 12
MACY11 30A(1052)
19-JUN-80 14:14 PAGE 145
175
LIMIT DETECT ON DATA TRANSFER

(alal
~NN

|
NN
=
ONOVSNO
S

-33N

1044617
104423
104002

004437
000122
177400
072414
000
000
000001

OO0

O00

O0O0O0O0O0O

CIR6KFO RK6 FCTNL CTR DIAG
19-JUN-B0 14:04
CIR6KF .P11

|
SEQ 0145

0D CO D

2%:

025660

A ARl
R
R
R
R
Rl RRRRR
Rl Rl

;®
B
o
:®
:

PROGRAMMING ERROR

00 A0 Ao 0D 0D 0D AN Ao 0D O O 00 O

TATEST 76

ISSUE A SUBSYSTEM CLEAR. ISSUE
A READ DATA OF 400 WORDS ON CYLINDER 0,
TRACK 0, SECTOR O. DURING READ ISSUE A

WRITE TO THE SPARE REGISTER. MAKE SURE
PROGRAMMING ERROR SETS.

::'Q"""'Q""Q"."""""'"".'.QQ.""".Q""""""."'

025710

004437
000121
177400
070414
000
000
000000

025712

104417

025714

012762

025722
025724

104002

025674
025700

025726
025730
025732
025734
025736

000012

001262

SCOPE

MoV

#10.,8$TINMES

ERROR

JSR

R4 ,LRLOAD

TSSINIT

035674

RDDATA

=400
IBUFF

.BYTE
.BYTE
0

;BAD INIT ERROR

0
0

;LOAD RK REGS

#1,RKSPAR(R2)

104423

TWAT16
ERROR

104422
000000
000090
000020

5CHKUE
PGERR

ERROR

;WRITE SPARE REGISTER

;WAIT FOR _INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

;CHECK OPERATION WITH EXPECTED ERROR

104004

;RDDATA

;SECTOR 0
; TRACK 0
;CYLINDER 0

MoV

000022

;LOAD "'L'" REGS
;=400 WORDS
:IBUFF IS BUFF ADDRESS

TLOADRK

000001

;:00 10. ITERATIONS

;CLEAR SUBSYSTEM

O O OB OB OB OA OB OB OB An OB 0N An 00 0D A8

025672

000004
012737
104416
104003

;OR 5.,6,7

:PROG ERROR

. . L. . . . . S, . P BN S, P, P, 2, WA P, (IO MR O

025660

;REPORT ALL DISCREPANCIES

RN
A AT A AN
R RS

J*TEST 77

ECC HARD

ISSUE A SUBSYSTEM CLEAR. ISSUE
A WRITE DATA WORDS CONSISTING OF 177777 TO
CYLINDER O, TRACK O, SECTOR 0. NOW WRITE
ALL ZEROS TO CYLINDER O, TRACK 0, SECTOR 0.
DURING WRITE ISSUE CONTROLLER CLEAR. MAKE
SURE PROGRAMMING ERROR IS RESET. NOW
ISSUE A READ DATA TO CYLINDER 0, TRACK O,

;

HEAD O AND AN ECC HARD ERROR SHOULD SET.

—

042260

001262

SCOPE

MOV
#10.,8TIMES
TSSINIT
3
ERROR

::00 10, ITERATIONS
;CLEAR SUBSYSTEM
;BAD INIT ERROR

{SR

;GENERATE DATA OF ALL ONES

R4 ,GENCOM

— — —

000

104416
104003

000012

VAV

004437
000001
000400

O00O

VIVAWVAY

G
T
T
O T R R RO R R Y

000004
012737

2 o

¢ 12

19-JUN-80 14:14 PAGE 146
LIMIT DETECT ON DATA TRANSFER

lalal

MACYH 3?9§1052)

~NN

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-B0 14:04
CIR6KF .P11

400

PU—

14:14

D 12

PAGE 147

SEQ 0146

|
-

30A(1052)
19-:UN-80
177
ECC HARD

~N~N

MACY11

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-B0 14:04

lalal

————

104002

ERROR

8005

026010
026012

104421
104004

TCHKOP

8007
8008
009

026014
026020
026022

004437
000002
000400

042260

8011

026024

035674

026040

004437
000123
177630
072414
000
000
000000

8019

026042

104417

8021
8022
8023
¢4

026044
026050
026052
026056

005737
001026
005762
001372

001662

8026

026060

052762

100000

8028
8029

026066
026072

004437
000121

035674

026100

000
000
000000

ERROR

%SR

R4 ,GENCOM

;GENERATE DATA OF ZEROS

R4 ,LRLOAD

;LOAD "'L"'' REGS
;WRDATA

0 OID S
P
PI0 S

400

:=150 WORDS

BIS

#CCLR,RKCST1(R2) ;CLEAR CONTROLLER (CROWBAR WRITE)

JSR

R4 ,LRLOAD

RDDATA

=400
IBUFF

BYTE
BYTE
0

0
0

S, S, P

:LOAD 'L'" REGS
sRDDATA
;=400 WORDS

;IBUFF IS BUFF ADDRESS

:SECTOR 0

:TRACK 0

:CYLINDER 0
;LOAD RK REGS

104417
104425
104002

ERROR

104422

BCHKUE

;CHECK OPERATION WITH ERROR

8CKERR!ECHERR

;DATA CHECK AND ECC HARD

TLOADRK

TWAT4LB

. P, S, PU

RKWC(R2)

INTERRUPT HAS OCCURRED

;YES = MUCH TO SOON. REPORT ERROR
;TEST IF NPR'S DONE
:NO - LOOP

BNE

;CHECK IF

. S,

———

000000

INTSET

BNE

TST

000002

P, P, S, S, S, P

;START OPERATION

TLOADRK

TST

:TRACK 0

:CYLINDER 0

1%:

;OBUFF IS BUFF ADDRESS
:SECTOR 0

JSR

WRDATA
=150
OBUFF
.BYTE
.BYTE

;WAIT FOR INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

177400
070414

;OR 5, 6,

;CHECK OPERATION FOR ANY ERRORS

7, 10 ;REPORT ALL ERRORS

EEeee

SERRERESeSS

8032

026036

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

;CYLINDER 0

PR Fen Sn PR S

TLOADRK
TWAT9%

:SECTOR 0

:TRACK 0

PR P

1046417
104430

;OBUFF IS BUFF ADDRESS

0
0

000
000000

:=400 WORDS

Sen. PR

.BYTE
6BYTE

:LOAD "'L'' REGS

;WRDATA

PR P, Sen, S, PUR S

177400
072414
000

R4,LRLOAD

JSR

WRDATA
=400
OBUFF

035674

104004

ERROR

&4 ;OR 5,6,7

;REPORT ALL DISCREPANCIES

000402

;SKIP TO EXIT

004437
000123

7 64
770
772
774
7

026126
026126

gggg

026132
026134

000004
012737

8066

026142

104416

8069
8070
8071
8072
8073
8074
gg;g

026146
026152
026154
026156
026160
026161
026162

004437
000117
000000
000000
000
000
000632

8077
8078
8079
8080
8081
ggg%

026164
026166
026170
026172
026176
026200

104417
104423
104002
005037
104430
104002

8084

026202

004437

8088
8089
ggg?

026214
026215
026216

000
000
000000

:CHECK OPERATION FOR ANY ERRORS

:OR S, 6, 7, 10 ;REPORT ALL ERRORS

026206
026210
026212

000113
000000
000000

104417
104423
104002

8096

026226

004437

8100
8101
8102

026240
026241
026242

000
000
000000

000125
000000
000000

001662

035674

R4 ,LRLOAD

0
0

TLOADRK
TWAT16
ERROR
2
CLR
INTSET
TWAT96
ERROR
2

JSR

R4 ,LRLOAD

.BYTE
.BYTE
0

0
0

l
lalal

oy
—

—

— A

S, S

:BAD INIT ERROR

;LCAD "'L'" REGS
: SEEK
;0 WOR"NS
;0 1S BUFF ADDRESS
;SECTOR 0
;TRACK 0
;CYLINDER 632
;LOAD RK REGS
;WAIT FOR INTERRUPT
;7O SLOW/NOT COMPLETE ERROR
;CLEAR INT FLAG
;WAIT FOR SECOND INTERRUPT
;7O SLOW/NOT COMPLETE ERROR

;LOAD "'L'' REGS

sRECAL
;0 WORDS
;0 IS BUFF ADDRESS

;SECTOR 0
;TRACK 0
;CYLINDER 0

TLOADRK
TWAT16
2
ERROR

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

JSR

R4 ,LRLOAD

;LOAD '‘L"* REGS

.BYTE
BYTE
0

0
0

;SECTOR 0
; TRACK 0
;CYLINDER 0

:RDHEAD
:0 WORDS
;0 IS BUFF ADDRESS

— —
—

;CLEAR SUBSYSTEM

—

JSR
SEEK
0
0
.BYTE
.BYTE
632

;:D0 5. ITERATIONS

—

RDHEAD
0
0

dd)

—

#5.,8TIMES

ERROR

RECAL
0
0

Rttt

—

035674

iR RRRRRRRRR

—

TSSINIT

R AR

—

Mov

—

§T100: SCOPE

. —

001262

104003

026220
026222
026224

026232
026234
026236

000005

TRANSISTIONS ON DATA LINE.

026144

222

———

ISSUE A RECALIBRATE BUT DO NOT WAIT FOR SECOND INTERRUPT.
PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A READ HEADER
OF CYLINDER O, TRACK 0. CLOCK THROUGH SEEK
AND DRIVE CLEAR MESSAGES. TURN OFF DIAGNOSTIC MODE.
DRIVE TIMING ERROR SHOULD SET BECAUSE OF NO DATA

——

TR TRTETETE]

At
o
;®
;e
:*

DRIVE TIMING ERROR

ISSUE A SUBSYSTEM CLEAR. SEEK TO CYLINDER 632.

—

A AR
R
RRRRRtRRdRdddd)

;*TEST 100

il 2

PUR

ERROR

8092
8093
gggg

8097
8098
8099

TCHKOP

“

8085
8086
8087

104004

SEQ 0147

ggg;

852}%3

2%:

104421

ECC HARD

E 12
PAGE 148

8047
8048
8049
8050
8051
8052
8053
8054
8055
8056
8057
8058
8059
8060
8061
8062
8063

177

14:14

19-JUN-B80 14:04

19-JUN-B0

CZR6KF P11

MACY11 30A(1052)

—

CIR6KFO RK6 FCTNL CTRL DIAG

———

|
CZR6KF . P1

19-JUN-B80 14:04

19-JUN=-B0
14:14
30A(1052)
1100
DRIVE TIMING ERROR

001616

MOV
#OMD, L .MR1
TLOADRK

;SET DIAG MODE
;LOAD RK REGS

026244
026252

012737
104417

8106
g}gg

026254
026260

004437
001062

JSR
1062

R& MCLOCK

;CLOCK CONTROLLER THROUGH SEEK
;AND CLEAR TO READ

g}?g

026262

005062

(LR

RKMR1(R2)

;RESET DIAG MODE, LET RD HDRS COMPLETE

8111
8112
8113
8114
8115
8116
g}};

026266
026270
026272
026274
026276
026300
026302

104424
104002
104422
010000
000000
000000
104004

TWAT32
ERROR
TCHKWE
DTERR
0
0
ERROR

8119
8120
8121
8122
g}gz

026304
026304
026306
026310
026316

104416
104003
012762
005037

TSSINIT
ERROR
3
MOV
#1E,RKCST(R2)
CLR
INTSET

;CLEAR SUISYSTEM
;BAD iNIT ERROR
sSET INTERRUPT ENABLE
sCLEAR INT FLAG

8125
g}%?

026322
026324

104437
104002

TWATBS
ERROR

;WAIT FOR INTERRUPT FOR END OF RECAL

8128
8129
8130
8131
8132
8133
g}gg

026326
026332
026334
026336
026340
026341
026342

004437
000105
000000
000000
000
000
000000

JSR
CLEAR
0
0
BYTE
BYTE
0

8136

026344

104417

TLOADRK

8137

8139
g}:?

026346
026350
026352
026354

000040

F 12
PAGE 149

MACY11

104423
104002
104421
104004

TWAT16
ERROR
TCHKOP
ERROR

;WAIT FOR INTERRUPT
;70 SLOW/NOT COMPLETE ERROR
;CHECK OPERATION WITH EXP ERROR
;DRIVE TIMING ERROR

;0OR 5,6,7

R4 ,LRLOAD

0
0

;REPORT ALL DISCREPANCIES

;LOAD "'L'" REGS
; CLEAR
;0 WORDS
;0 IS BUFF ADDRESS
;SECTOR 0
;TRACK 0
sCYLINDER 0
;LOAD RK REGS

;OR 5, 6, 7

;WAIT FOR INTERRUPT
;7O SLOW/NOT COMPLETE ERROR
sCHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

g}:%

.SBTTL

+*+ERROR FORCING IN DRIVE

B144

L
R
R

g}:g

;*TEST

101

INITIALIZE CLEARING SACK

8147
8148
8149
8150
8151
8}2%

3154

8155

8156
8157
8158

:*
:®
:®
:®
..
:®

:-:tt!Ql't'ttttt'tt"t'"!'t"'t"tt".'.'tttt!'.'lltttt'ttt'tl!'-0

026356

026360
026366
026370

000004

012737
104416
104003

ISSUE A SUBSYSTEM CLEAR. SELECT AN AVAILABLE
DRIVE.
ISSUE A SUBSYSTEM CLEAR. PUT CONTROLLER IN
DIAGNOSTIC MODE. ISSUE A SELECT COMMAND WITH
MESSAGE ID = 3 AND DRIVE SELECTED = 0. CLOCK THROUGH
PHASE ADDRESS 6. TURN OFF DIAGNOSTIC MODE. MAKE
SURE UNIT FIELD ERROR DOES NOT SET.

000012

001262

TST101: SCOPE

MOV
#10.,8TIMES
TSSINIT
ERROR
3

;:00 10. ITERATIONS
;CLEAR SUBSYSTEM
;BAD INIT ERROR

SEQ 0148

lalal
~NN

CIR6KFO RK6 FCINL CTRL DIAG

RO6KF P11

DIAG

19-JUN-§0 14:04
004437
000101
000000
000000

MACY11

6 12

19-JUN-B0
30A(1052)
14:14
PAGE 150
o
INITIALIZE CLEARING SACK

035674

JSR
SELDRV
0
0
BYTE
.BYTE
0

000
000
000000

R4 ,LRLOAD

;LOAD "'L'" REGS

sSELDRY

:0 WORDS
:0 IS BUFF ADDRESS
:SECTOR 0
;TRACK 0
:CYLINDER 0

0
0

026410
026412
026414

104417
104423
104002

ERROR

026416
026420

104421
104004

TCHKOP
ERROR

026422
026424

104416
104003

TSSINIT
ERROR
3

;CLEAR SUBSYSTEM
;BAD INIT ERROR

JSR
SELDRYV

:LOAD "'L'' REGS
:SELDRYV

004437
000101
000000
000000
000
000
000000
012737
005037

TLOADRK
TWAT1%

035674

000043
001610

0
0
.BYTE
.BYTE
0

001616

MOV
CLR

104417

026460
026464

004437
001027

036316

026466

042762

000040

026474
026476

104424
104002

ERROR

026500
026502

104421
104004

ERROR

000026

;0 WORDS
;0 IS BUFF ADDRESS
:SECTOR 0
;TRACK 0
:CYLINDER 0

0
0

#3'DMD,L .MR1
L.CS2

:SET DIAG MODE AND MESSAGE PAIR 3
:SELECT DRIVE 0
;LOAD RK REGS

;CLOCK THROUGH PHASE ADDRESS 6

BIC

#DMD ,RKMR1(R2)

;CLEAR MAINTENANCE MODE

TCHKOP

sWAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE

;O0R S, 6, 7

;CHECK OPERATION FOR ANY ERRORS

;REPORT ALL ERRORS

::l"ttttttttlttI""Q"it""ttttlltttttttt"t'fit.tt"tttt"'l!t

DRIVE OFF TRACK

;%
A
ot

ISSUE A SUBSYSTEM CLEAR. ISSUE A RECALIBRATE. [ISSUE
OFFSET OF +1200 MICRO-INCHES. PUT CONTROLLER IN DIAGNOSTIC
MODE. ISSUE A WRITE DATA OF 1 WORD TO CYLINDER O,

i
o

MESSAGES. TURN OFF DIAGNOSTIC MODE. DRIVE OFF TRACK
SHOULD SET IN DRIVE. REPEAT FOR ALL AVAILIABLE DRIVES.

104003

R4 ,LRLOAD

;CHECK OPERATION FOR ANY ERRORS
:REPORT ALL ERRORS

R4 ,MCLOCK

s«TEST 102

104416

;O0R S, 6, 7

{357

TWAT32

000004
012737

:TO SLOW/NOT COMPLETE ERROR

TLOADRK

026456

026504
026506
026514
026516

;LOAD RK REGS
sWAIT FOR INTERRUPT

TRACK 0, SECTOR 0.

CLOCK THROUGH SEEK AND DRIVE CLEAR

E."ttttttitttt't"tt"'t't'ii""tt'it'itt'ttltt'itt'tttt"lt'ttt

000005

001262

TST102: SCOPE

MOV

TSSINIT

ERROR

#5.,8TIMES

;:D0 S. ITERATIONS

;BAD INIT ERROR

sCLEAR SUBSYSTEM

SEQ 0149

[alal
~NN~N

TM ]
NN

R6KFO RK6 FCTNL CTR

004437
000113

035674

JSR

RECAL

0
0
.BYTE
.BYTE
0

0
000000
104417
104423
104002

30A(1052)
19-JUN-80 14:14
1102
DRIVE OFF TRACK

TLOADRK
TWAT1%

ERROR
CLR

R4 ,LRLOAD

0
0

2
INTSET

005037

026550
026552

104437

026554

026570

004437
000105
000000
000000
000
000
000000

026572
026574
026576

104417
104423
104002

ERROR

026600
026602

104421
104004

ERROR

026604
026610
026612
026614

004437
000115
000000
000000
000
000
000000
112737

JSR
OFFSET
0
0

R4 ,LRLOAD

.BYTE
6BYTE

0
0

MOVB

#60,L.ASOF

TWAT8S

104002

035674

JSR
CLEAR
0
0

R4 ,LRLOAD

TCHKOP

035674

000060

001612

0
0

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

;O0R S5, 6, 7

ERROR

104421
104004

ERROR

CLR

INTSET

026642

005037

026646
026650

104424
104002

ERROR

026652
026654

104421
104004

ERROR

001662

TWAT32
TCHKOP

;OR S5, 6, 7

;REPORT ALL ERRORS

sLOAD "'L'' REGS
:OFFSET

:0 WORDS
:0 1S BUFF ADDRESS
;SECTOR 0
:TRACK 0
sCYLINDER 0

:SET OFFSET AT +1200

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS
;CLEAR INT FLAG
;WAIT FOR INT #2

;CHECK OPERATION FOR ANY ERRORS

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

TLOADRK

TCHKOP

;:LOAD 'L'" REGS

;CLEAR

:TRACK 0

104417
104423
104002

TWAT16

;LOAD RK REGS
;WAIT FOR INTERRUPT
;7O SLOW/NOT COMPLETE ERROR
;CLEAR INTERRUPT FLAG

;0 WORDS
:0 IS BUFF ADDRESS
:SECTOR 0

TLOADRK

TWAT16

:LOAD "'L'' REGS

sRECAL

;WAIT FOR INTERRUPT #2

ERROR

.BYTE
.BYTE
0

SEQ 0150

;0 WORDS
0 IS BUFF ADDRESS
:SECTOR 0
:TRACK 0
;CYLINDER 0

026544

001662

H 12
PAGE 151

;OR S, 6, 7

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL

ERRORS

(alal
NN

CIZR6KFO RK6 FCTNL CTRL DIAG
19-JUN-B0 14:04
CZR6KF P11

MACYi1

004437

035674

JSR
CLEAR

0
0
.BYTE
BYIE
0

0
©

026702
026704

104421
104004

ERROR

026706
026712
026714
026716
026720

JSR

R4 ,LRLOAD

026724

004437
000023
177777
072614
000
000
000000
012737

026732

104417

026734
026740

004437
001064

036316

026742
026746
026750
026756
026760
026762

005062
104426
012762
104423
000240
000240

000026

004437

000000
005037

027006
027010
027012

104417
106423
104002

027014

104422
000400
000000
000000
104004

035674

OBUFF

;LOAD "L'" REGS
:CLEAR
;0 WORDS
;0 IS BUFF ADDRESS
;SECTOR 0
;CYLINDER 0

ERROR

TCHKOP

SEQ 0151

: TRACK 0

104417
104423
104002

TLOADRK
TWAT16

PAGE 152

R4 ,LRLOAD

026674
026676
026700

WN NV
UWN =20V
OV

o Co 00 O S0 Co 00 Co Co Co OO Oo OO O 0o

W
W L U U A L W N N
NN
NOPNOPNOPONIRIND
b b
b
e e ed h

0
000000

112

;LOAD RK REGS

;WAIT FOR INTERRUPT

:TO SLOW/NOT COMPLETE ERROR

;O0R 5, 6, 7

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

;LOAD "'L'' REGS

sWRITE DATA W/0 INTERRUPT ENABLE
:=1 WORDS

;OBUFF IS BUFF ADDRESS
;SECTOR 0

.BYTE
6BYTE

0
0

Mov

#DMD,L .MR1

sCYLINDER 0
sSET DIAGNOSTIC MODE

JSR

R4 ,MCLOCK

;CLOCK THROUGH SEEK & DRIVE CLEAR

CLR

RKMR1(R2)

;:CLEAR DIAGNOSTIC MODE

MOV

#CCLR,RKCST1(R2)

035674

JSR

R4 ,LRLOAD

001616

0
0
BYTE
.BYTE
0
(LR

000040

001616

:TRACK 0

TLOADRK

100000

1064

TWAT64

000000

TWAT16
NOP
NOP
SELDRV

ERROR

0
0

:TRACK 0

L.MR1

;CYLINDER 0
sRESET DIAG MODE

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

;CHECK OPERATION WITH ERROR EXPECTED

TCHKWE

;DRIVE OFF TRACK

DROTERR

0
0
ERROR

4; OR 5,6,7

222222223223 3222222

SeTEST 1 03

:LOAD "L'' REGS

sSELDRY

;0 WORDS
:0 IS BUFF ADDRESS
;SECTOR 0

TLOADRK

TWAT16

;WAIT FOR INTERRUPT
sCLEAR CONTROLLER
;STALL FOR 16 MS

322222202

FILE UNSAFE

;REPORT ANY DISCREPANCIES
2R

Rttt

Rttt RRRRR Rl

~An

MACY11 30A(1052)
19-JUN-80
14:14
1102
DRIVE OFF TRACK

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-B0 14:04
CZR6KF PN

14:14

J 12
PAGE 153

ISSUE A SUBSYSTEM CLEAR.

SEQ 0152

ISSUE 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 IN DIAGNOSTIC MODE.
ISSUE A WRITE
HEADER TO CYLINDER O, TRACK O, ONE WORD IN 26 SECTOR
FORMAT,
CLOCK THROUGH SEEK AND DRIVE CLEAR MESSAGES.
SIMULATE INDEX PULSE.
TURN OFF DIAGNOSTIC MODE.
FILE

UNSAFE SHOULD SET BECAUSE OF ATTEMPTING TO WRITE

REPEAT FOR ALL AVAILIABLE DRIVES.

THROUGH SECTOR PULSE.

027026
027030
027036
027044
027046

000004
012737
012737

027050
027054
027056

004437
000113
000000
000000
000
000
000012

104416

000005
177777

104003

035674

2222

i ST103: SCOPE

A ARl
Rttt RRRRRd)

#5.,8TIMES

ERROR

;SET REFORMAT SWITCH
;CLEAR SUBSYSTEM
;BAD INIT ERROR

JSR

R4 ,LRLOAD

;LOAD "'L'" REGS

RECAL

0
0
.BYTE
Y1k
12

TLOADRK
TWAT16

0
©

;LOAD RK REGS
;WAIT FOR INTERRUPT

027072

ERROR

027074
027076

104421
104004

TCHKOP
ERROR

CLR

INTSET

ERROR

027110
027112

104421
104004

027114
027120

004437
000105
000000
000000
000
000
000012

027122
027124

027130
027132

001662

TWATSS

TCHKOP

035674

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

;CLEAR INT FLAG

;WAIT FOR SECOND

INT

;CHECK OPERATION FOR ANY ERRORS

JSR

R4 ,LRLOAD

:LOAD "'L'' REGS

:0 WORDS
:0 IS BUFF ADDRESS
;SECTOR 0
:TRACK 0
;CYLINDER 12

8LEAR

.BYTE

.BYTE
12
TLOADRK
TWAT16

;OR 5, 6, 7

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

ERROR

;REPORT ALL ERRORS
:CLEAR

;LOAD RK REGS
;WAIT FOR INTERRUPT

106417
104423
104002

ERROR

027140
027142

104421
104004

TCHKOP
ERROR

027144

004437

JSR

R4 ,LRLOAD

035674

;RECAL

;0 WORDS
;0 IS BUFF ADDRESS
;SECTOR 0
; TRACK 0
;CYLINDER 12

104417
104423
104002

005037
104437
104002

;:00 5. ITERATIONS

MOV

#-1,REFMT
MOV
TSSINIT

;70 SLOW/NOT COMPLETE ERROR

;OR 5, 6, 7

:CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

;LOAD "'L"" REGS

30A(1052)
19-JUN-80
7103
FILE UNSAFE

lalal

MACY11

CZR6KFO Rk6 FCTNL CTRL DIAG
19-JUN=-80 14:04
CZR6KF P11

CIR6KFO RK6 FCTNL CTRL DIAG
CIRO6KF.P11
19-JUN-80 14:04

8383

8384
8385
8386
8387
g%gg

027150

MACY1 3?%;052)

010125

19=JUN=-80
FILE UNSAFE

000000
000000
000
000
000012

8390

027162

0
0
.BYTE
BYTE
12

104417

TLOADRK

gggg

027166

104002

ERROR

8394
gggg

027170
027172

104421
104004

TCHKOP
ERROR

8397
8398
8399
8400
8401
8402
3282

027174
027200
027202
027204
027206
027207
027210

004437
000101
000000
000000
000
000
000012

8405
8406
g:gg

027212
027214
027216

104417
104423
104002

027164 104424

TWAT3?2

035674

JSR
SELDRV
0
0
.BYTE
BYTE
12

027224
027226
027230
027232
027233

000127
177777
072414
000
000

gz}g

027236

012737

8415

02723%

000012

8418

027244

02724A
027252

004437
001064

036316

gzgg

027254

052762

000200

8424

027262

004437

036316

g:g;

027270

042762

000200

8429
g:;g

027276
027302

004437
001001

g:g%

027304

005062

8434 027310
g:gg

027312

104426

8437

027314

104421

8419
g:gg

104417

000040

ag 027266 001001

104002

8438 027316 104004

JSR

WRHEAD
ot
OBUFF
.BYTE
BYTE

001616

MOV
TLOADRK

SEQ 0153

:RDHEAD ! CFMT

:0 WORDS
0 IS BUFF ADDRESS
*SECTOR 0
:TRACK 0
SCYLINDER 12

0
0

:LOAD RK REGS

‘WAIT FOR INTERRUPT

:T0 SLOW/NOT COMPLETE ERROR

:OR S, 6, 7

R4 ,LRLOAD

0
0

TLOADRK
TWAT16
ERROR
2

8409 027220 004437 035674
8410
8411
8412
8413
8414

K 12
PAGE 154

RDHEAD ! CFMT

027152
027154
027156
027157
027160

8391

14:14

:CHECK OPERATION FOR ANY ERRORS
:REPORT ALL ERRORS

:LOAD ''L'' REGS
:SELDRV
:0 WORDS
10 IS BUFF ADDRESS
*SECTOR 0
:TRACK 0
:CYLINDER 12
:LOAD RK REGS
:WAIT FOR INTERRUPT
:
:TO SLOW/NOT COMPLETE ERROR

R4 ,LRLOAD

:LOAD
''L'* REGS

0
0

*WRHEAD
1=1 WORDS
:0BUFF 1S BUFF ADDRESS
*SECTOR 0
:TRACK 0

#DMD, L .MR1

:SET DIAGNOSTIC=MODE

:CYLINDER 12

:LOAD RK REGS

JSR
1064

R4 ,MCLOCK

BIS

#MIND ,RKMR1(R2) ;SET INDEX

JSR

1001

R4 ,MCLOCK

BIC

#MIND ,RKMR1(R2) ;CLEAR INDEX

036316

JSR
1001

R4 ,MCLOCK

:CLOCK CLEAR

000026

CLR

RKMR1(R2)

:CLEAR DIAGNOSTIC MODE

270 SLOW/NOT COMPLETE ERROR

000026

TWAT64

ERROR

TCHKOP

ERROR

1CLOCK THROUGH SEEK AND DRIVE CLEAR

:CLOCK INDEX

:WAIT FOR INTERRUPT

CHECK OPERATION FOR ANY ERRORS

:OR S, 6, 7, 10 ;REPORT ALL ERRORS

?
|
|

CIR6KFO RK6 FCINL CTRL DIAG
19-JUN-80 14:04
CZR6KF .P11

004437
000101
000000

MACY11

19-JUN-B0
30A(1052)
1103
FILE UNSAFE

035674

JSR

SELDRV

0
0
.BYTE
.BYTE
12

000000
000
000
000012

005037

Y33
28 EEERREE
VO~NO
NS~ W

8452

8462

027342
027344
027346
027350

027360

CLR

001616

104417
104423
104002

TLOADRK
TWAT16

ERROR

104422

040400
000000
000000
104004

104416

027366
027372
027374
027376
027400
027401
027402

004437
000101
000000
000000
000
000
000012

035674

027404

012737

000001

027412
027412
027414
027416

104417
104423
104002

027420
027422

104421
104004

027424
027432

032737
001767

027434
027436

104416
104003

027440
027444
027446

005037
104434
000240

027450
027452

104416
104003

027454

012762

104003

000040

001574

001662

000000

;LOAD "'L'*" REGS
s SELDRY

;0 WORDS
:0 IS BUFF ADDRESS
:SECTOR 0
:TRACK 0
:CYLINDER 12

0
0
L.MR1

;CLEAR DIAG MODE
;LOAD RK REGS
:WAIT FOR INTERRUPT

;TO SLOW/NOT COMPLETE ERROR

4; OR 5,6,7

;REPORT ANY DISCREPANCIES

ERROR

;BAD INIT ERROR

JSR

R4 ,LRLOAD

MOV

;CLEAR SUBSYSTEM

;LOAD "L'" REGS

sSELDRV

:0 WORDS
:0 IS BUFF ADDRESS
:SECTOR 0
:TRACK 0
:CYLINDER 12

0
0
#,L.MR1

TLOADRK

;SET MESSAGE SELECT ONE
:LOAD RK REGS

TWAT16
ERROR

TCHKOP
ERROR

BIT
BEQ

#S.HDHM,
T .MR2
1%

;WAIT FOR INTERRUPT
;TO SLOW/NOT COMPLETE ERROR

;OR 5, 6, 7

;CHECK OPERATION FOR ANY ERRORS

;REPORT ALL ERRORS

;TEST IF HEADS HOME

TSSINIT
3
ERROR

;CLEAR SUBSYSTEM

CLR
INTSET
TWAT159
NOP

;CLEAR INT FLAG
;WAIT FOR APPROX 160 MS
;:DON'T CARE ERROR RETURN

TSSINIT

000100

R4 ,LRLOAD

SEQ 0154

0
ERROR

0
0
.BYTE
.BYTE
12

1%:

PAGE 155

:CHECK OPERATION WITH EXPECTED ERROR
;UNSAFE AND DRIVE OFF TRACK

SELDRV

001616

L 12

TCHKWE
gNSERR!DROTERR

TSSINIT

027362
027364

14:14

:BAD INIT ERROR

;CLEAR SUBSYSTEM

ERROR

:BAD INIT ERROR

MoV

#1E RKCS1(R2)

;SET

INTERRUPT ENABLE

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF .P11

96 027462

027464

104437
104002

027466

005037

027472

006437

MACYT 3 A1 052)
19-JUN-B0
03
FILE UNSAFE
TWAT8S

14:14

M 12

PAGE 156

SEQ 0155

sWAIT FOR SECOND INTERRUPT FROM HDS LOADED

ERROR

001616

(LR

L.MR

;CLEAR MR1

035674

JSR

R4 ,LRLOAD

;LOAD "'L'' REGS

0
.BYTE
.BYTE
12

0
0

:0 IS BUFF ADDRESS
:SECTOR 0
;TRACK 0
:CYLINDER 12

CLEAR
0

00
000012

sCLEAR
:0 WORDS

027510
027512
027514

104417
104423
104002

ERROR

027516
027520

104421
104004

TCHKOP
ERROR

027522
027526

004437
001200

042260

JSR

R4 ,GENCOM

;BUILD HEADERS

027530
027534
027536
027540
027542
027543
027544

004437
000127

035674

JSR

R4 ,LRLOAD

:LOAD "'L'" REGS

027546
027550
027552

104417
104426
104002

ERROR

027554
027556

104421
104004

TCHKOP
ERROR

TLOADRK
TWAT16

1200

WRHEAD

=102
OBUFF

177676

072414
000
000
000012

.BYTE
.BYTE
12
TLOADRK
TWAT64

:LOAD RK REGS
sWAIT FOR INTERRUPT

sTO SLOW/NOT COMPLETE ERROR

;O0R S, 6, 7

:CHECK OPERATION FOR ANY ERRORS

;REPORT ALL ERRORS

sWRHEAD

;=102 WORDS
;OBUFF IS BUFF ADDRESS

0
0

sSECTOR 0
:TRACK 0
:CYLINDER 12

;LOAD RK REGS
;WAIT FOR INTERRUPT

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

;CHECK OPERATION FOR ANY ERRORS

;REPORT ALL ERRORS

3 tt'Qtl'tttt't't"'""'"'"'i'tt'.t..".'fiiili.iit't'lfi'.i't't
TR LR TR LR TR TR T

........l

'TEST 104

027570
027572

000001

001262

IF THIS TEST WERE NOT PRESENT, THE PROGRAM WOULD SKIP THE
"“NEWDRV'' ROUTINE AND GO TO THE TEST FOLLOWING 'NEWDRV''.

IN ADDITION, THE DRIVE IS CLEARED AND THE HEADS ARE ALLOWED
TO RELOAD. THIS MUST BE DONE TO PREVENT UNEXPECTED INTERRUPTS
FROM THE DRIVE COMING READY AT
A LATER TIME.

I
T
eT

027560
027562

DUMMY TEST FOR PREVIOUS TEST EXIT
THIS TEST IS PRESENT TO MAKE $SWOBTB TABLE HAVE AN ENTRY
WHICH RELATES TO "NEWDRV''. THIS IS NECESSARY IF AN ERROR OCCURS
IN THE PRECEEDING TEST AND THAT ERROR ABORTS THE TEST.

7104 SCOPE

MoV

TSSINIT

ERROR

#1,8TIMES

::00 1

ITERATION

;CLEAR SUBSYSTEM

;BAD INIT ERROR

CIR6KFO Rlb FCTNL CTRk DIAG

CZR6KF .PY
8551

19-JUN-80 14:04

8552
8553
8554
8555
8556
8557
8558
8559
8560
ggg}

027574
027602
027606
027614
027622
0276
027636
027640
027644
027646

8563
8564

027650
027650

027652

104416
104003

8567

027654

004437

042260

8570

027662

004437

035674

8574
8575
gg;g

027674
027675
027676

000
000
000000

gggz
gggg
8571
8572
8573

027660
027666
027670
027672

013762
005037
01%7 7
053737
013762
032762
001004
005237
00137
104002

001200
000127
177676
072414

001626
036126
000001
001720
036124
000200

MACY11 30A(1052)

14:14

N 12

PAGE 157

1104

DUMMY TEST FOR PREVIOUS TEST EXIT

18:

Mov
CLR
MoV
BIS
MoV
BIT
BNE
INC
BNE
ERROR

000010
036124
036124
000000
000012

19-JUN-BO

036126

2%:

DRVNUM,RKCS2(R2) ;LOAD DRIVE NUMBER
HOLD1
#1,HOLD
DTYFE,HOLD
HOLD ,RKCS1(R2) ;SELECT THE DRIVE
#ORDY,RKDS(R2) ;TEST IF DRIVE READY
2%
:BR IF YES
HOLD1
;ELSE TRY AGAIN
1%
2
:NO RDY

TSSINIT
ERROR
3

;CLEAR SUBSYSTEM
;BAD INIT ERROR

JSR

R& ,GENCOM

+GENERATE HEADERS FOR CYL 0

JSR

R4 ,LRLOAD

;LOAD "'L'* REGS

BYTE
.BYTE
0

0
0

;SECTOR 0
:TRACK 0
;CYLINDER 0

1200

WRHEAD
=102
OBUFF

;WRHEAD
;=102 WCRDS
;0BUFF IS BUFF ADDRESS

8578
8579

027700
027702

104417
104426

104002

TLOADRK
TWAT64
2
ERROR

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

8582
8583
8584

027706
027710
027712

104421
104004
005037

TCHKOP
ERROR
CLR

& ;OR 5, 6, 7
REFMT

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS
;CLEAR REFORMAT SWITCH

027716

000004

MOV

#1,8TIMES

;DO ONLY ONCE

BNE

: YES-SKIP

ggg?

8585
8586
8587

8588

gggg

027704

027720

012737

027734

001026

027726

032737

001676
000001

000200

001262

027736
027742
027746
027754
027756
027764

005237
006337
033737
001005
032737
001012

001626
001630
001630

001354

000400

001630

8599
8600
8601

027770
027776
030002

115737
013701

000004
001626
036150

8603
gggg

030012
030016

8602

“06

027766

BIT

001630

8591
8592
8593
8594
8595
8596

ggg;

.SBTTL #*MULTI-DRIVE OPERATIONS
NEWDRV: SCOPE

1$:

004737
000137
005037
005037

4720

1630
001626

2%:
38:

:WERE WE TESTING DRIVE 7?

DRVNUM
DRVBIT
DRVBIT,SDEVM
2%
#BIT8,DRVBIT
3%

;BUMP TO NEXT SEQUENTIAL ADDRESS
;BUMP DRIVEBIT TO THAT POSITION
;1S THIS DRIVE TO BE TESTED?

MOV
MOV
JSR

#4,$TSTNK
DRVNUM,R1
PC,GTYPT

;SET TEST NUMBER FOR REPORTS

CLR
(LR

DRVBIT
DRVNUM

BNE
BIT
BNE
BR

000763
001102

INC
ASL
BIT

#BIT7,DRVBIT

JMP

TSTLUP

s YES-EXIT
sALL DRIVES TESTED?
sYES=EXIT
:ELSE CHECK NEXT DRIVE AVAILABLE

;GET DRV TY? FOR NEXT DRV TO TST
;GO TO TEST LOOP TO CHECK THIS DRIVE
;CLEAR DRIVE BI1T
SCLEAR DRIVE NUMBER

".'...".0..'....'.""""O""'."'l....'ll.'.f"'.""!...."'.

SEQ 0156

|
;*TEST 105

8607
8608
8609

28
R ARARAARRN

e
it

VS
W -=O OO ~NO NS

001262

000001
001354

030106
030110
030112

104417
104423
104002

030114
030120
030124
030132

005037
012705
012762
016237
113704

0000

CDCDS: 00 :3()3: EZC)U‘
S8E 888 888 88888

2%:

MOV

$DEVM,R3

128:

ERROR
BIT
BNE
ASL
INC
BIT
BEQ
BR

#BIT8,R1
1$
48

sSHIFT DRIVE SELECT BIT
:BUMP DRIVE POSITION COUNTER
;sALL DRIVE POSITIONS CHECKED
sNO-LOOP
:SKIP TO RESET

MOV
JSR

RO,L.CS2
PC.GTYPO

R1,R3
28
R1
RO

#RECAL,L.CS1

MOV
MOV
MOVB

045146

000031

;

5%:

;LOAC RECALIBRATE

:TO SLOW/NOT COMPLETE ERROR

INTSET

;CLEAR INTERRUPT FLAG

T.ASOF+1,Ré

#177400,R4
R1,R4
10$

:SET COUNT FOR 8 SECONDS

;ADJUST FOR CHECK OF ATTENTION
:CLEAR UNUSED BITS

;CHECK IF ATT SET FRCM DRIVE RECAL'ED
:YES - SKIP

LWAIT FOR 16 MS

;DON'T CARE RETURNS
;TATOL WAIT TIME IS 8 SECONDS
;CHECK ATTENTION EACH 16 MS
:REPORT IF NO ATTENTION IN 8 SEC

RS
12%
2

DEC
BNE
ERROR
10%:

:LOAD DRIVE NUMBER

:RESET INTERRUPT ENABLE
RKASOF (R2), T .ASOF ;GET ATTENTION REGISTER

MOV

TWAT16
NOP
NOP

104421
104004

sTEST IF THIS DRIVE AVAILABLE
sYES=SKIP TO SEEK

;:LOAD RK REGS
;WAIT FOR INTERRUPT

#500. ,RS
#12,RKCS1(R2)

BIC
BIT
BNE

104002

::00 10. ITERATIONS

sCLEAR DRIVE POSITION COUNTER
PRESET BIT FOR POSITION O IN TESTING FOR AVAIL
GET DEVICE MAP
:CLEAR SUBSYSTEM
sBAD INIT ERROR

#1,R1

CLR

000000
001556

AR R0
R
R RRdRRRddRRildddd)

#10.,8TIMES
RO

ERROR
001662
000764
000012
000016
001557
177400

MOV
CLR

TLOADRK
TWAT16

000240
000240
005305
001362

012701
005301
001376

MOV

001600

104423

000727
000005
004737

A R

TSSINIT

1%:

010037
004737
012737

MOV

000443

042704
030104
001006

sEgsssEeass
RESTLIRURTY

000012

t61105: SCOPE

3%:

8627

8651

DO A RECALIBRATE ON ALL AVAILIABLE DRIVES.
ISSUE A RESET. MAKE SURE ALL ATTENTION RESET.

000004
012737
005000
012701
013703
104416
104003
030103

RESET ATTENTIONS WITH UNIBUS INIT

TCHKOP

;OR S, 6, 7

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

ERROR

ggssr

”

;LOOP FOR NERT DRIVE
;UNIBUS RESET
;RESET KEYBOARD INTERRUPT ENABLE

#25. .R1
R
5%

;D0 A SHORT DELAY

PCLSTKINTT

JSR

MOV
DEC
BNE

SEQ 0157

B 13

MACY11 30A(1052)
19-JUN=80 14:14 PAGE 158
1105
RESET ATTENTIONS WITH UNIBUS INIT

o
NN

CIR6KFO RK6 FCTNL CTR DIAG
19-JUN-BC 14 :04
CZR6KF P11

CIR6KFO RK6 FCTINL CTRL DIAG

CZROKF.P11

19-JUN-80 14:04

MACY11 30A(1052)

T105

034522

€13
PAGE 159
RESET ATTENTIONS WITH UNIBUS INIT
19-JUN-80

JSR

14:14

8663

030214

004737

8665

030220

104420

TGETRK

8668

030226

001407

BEQ

YES-SKIP

8670
8671
872

030230
030236
030244

012737
012737
104012

MOV
MOV
ERROR

#EMDA ,EMI2N
WEMUR.DFOT1A
12

:"'DRIVE ATT NOT RESET RESULT OF
:UNIBUS RESET'

8674

030246

8667 030222 105737 001557

“75

056540
056664

TST8

001470
061022

PC,OPTTST

SEQ 0158

T.ASOF#+1

€s:

:SET UP OPTIONS

;GET RK611 REGS

;ALL ATTENTION RESET?

t't"i'.".."""Q"Q"""""."Q.'.Q""i.t'i'.i""'i""'

gg;g

'TEST 106

RESET ATTENTIONS WITH SUBSYSTEM CLEAR

8678
8679

¥
¥

8680
8682

030246
030250
030256
030260
030264
030270
030272
030274
030276
030300
030302
030304
030310
030312

000004
012737
005000
C12701
013703
104416
104003
030103
001006
006301
005200
032701
001771
000443

8698
8699
8700
8701
8702
g;gz

030314
030320
030324
030332
030334
030336

010037
004737
012737
104417
104423
104002

001610
036134
000113

8705

030340

005037

001662

8707
8708
8709
8710

030350
030356
030364
030370

012762
016237
113704
042704

000012
000016
001557
177400

8711

8712
8714
8715
8716

8717
8718

030344

030374

030576

030400
030402
030404

030406
030410

012705

030104

RESET.

000012

001262

000001
001354

000400

000764

T§7106: SCOPE
MOV
CLR
MOV
MOV
TSSINIT
ERROR
. PR TE e
BNE
3%:
ASL
INC
BIT
BEQ
BR

2%:
001600

MOV
JSR
MOV
TLOADRK
TWAT16
ERROR
CLR

000000
001556

12%:

#10.,$TIMES
RO
ALY
$DEVM,R3
3
B
2%
R1
RO
#B1T8,R1
1%
4%

RO,L.CS2
PC.GTYPO
#RECAL,L.CST

INTSET

;CLEAR INT FLAG

BIT

R1,R&

BNE

104423
000240
000240

TWAT16
NOP
NOP

DEC
BNE

;LOAD DRIVE NUMBER

#500. ,RS

MOV
MOV
MOVB
BIC

;:D0 10. ITERATIONS
sCLEAR DRIVE POSITION COUNTER
PRESET TO TEST POSITION O
sCUT DEVICE MAP
:CLEAR SUBSYSTEM
‘BAD INIT ERROR
- 'THIS DRIVE AVAILABLE?
;YES=SKIP TO SEEK
sSHIFT TO NEXT DRIVE POSITION
;DUMP POSITION COUNTER
sALL POSITIONS CHECKED
*NO-LOOP
sYES=SKIP TO CLEAR

sLOAD RECALIBRATE
:LOAD RK REGS
sWAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

MOV

001006

005305
001362

:.QQ"""t".ifi"""'Qi'"""ttl"'i't"t't"."'tt'"".'t"'

8683
8684
8685
8686
8687
8688
8689
8690
8691
8692
8693
8694
8695
ggg?

8706

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

:SET COUNT FOR 8 SECONDS

#12,RKCS1(R2)
:RESET INTERKUPT ENABLE
RKASOF(RZ).T.ASOF JGET ATTENTION REGISTER
T.ASOF+1,R4
ADJUSY FOR CHECK OF ATTENTION
#i77400,R4
“CLEAR UNUSED BITS

108

:CHECK IF ATT SET FROM DRIVE RECAL'ED

‘YES = SKIP

:WAIT FOR 16 MS
“DON'T CARE RETURNS

RS
128

:TATOL WAIT TIME IS 8 SECONDS
SCHECK ATTENTION EACH 16 MS

19-JUN-80 14:04

030412

104002

030414
030414
030416

104421
104004

030420

000727

030436

052762
012701
005301
001376

030440

104420

030442
030446

001407

030450
030456
030464

ERROR
108:

000040
000031

000010

TCHKOP

4$:
5%:

001557

012737
012737

056540
056754

001470
061022
6%:

030466

;OR S, 6, 7

;CHECK OPERATION FOR ANY ERRORS

ERROR

BIS
MOV
DEC
BNE

#SCLR,RKCS2(R2) ;DO SUBSYSTEM CLEAR
#25..R1
;D0 A SHORT DELAY
R1
5%

;REPORT ALL ERRORS

;LOOP FOR NEXT DRIVE

;GET RK611 REGS

1ST8
BEQ

T.ASOF +1
6%

;TEST ALL ATTENTION RESET
sYES=SKIP

MOV
MOV
ERROR

#EMDA ,EMI2N
#EMSCLR,DFO11A
12

:"'DRIVE ATT NOT RESET AS RESULT OF
;SUBSYSTEM CLEAR'"

;«TEST 107
%

SEQ 0159

:REPORT IF NO ATTENTION IN 8 SEC

‘TGETRK

105737

104012

D 13

19-JUN-80 14:14 PAGE 160
RESET ATTENTIONS WITH SUBSYSTEM CLEAR

)
o
o
ot
ot

DO A RECALIBRATE ON ONE AVAILABLE DRIVE. DO A SELECT
ON ANOTHER AVAILABLE DRIVE. MAKE SURE STATUS VALID
IS SET. WAILIT FOR SECOND INTERRUPT FROM RECALIBRATE
MAKE SURE STATUS VALID REMAINS SET AND DRIVE STATUS
CHANGE REMAINS RESET.

REPEAT FOR ALL COMBINATIONS OF TWO AVAILIABLE DRIVES.

ot
ot

NOTE:

. %

: %

. %

SVAL AND ATTENTION FROM OTHER DRIVE

THIS TEST WILL ONLY BE DONE IF AT LEAST
TWO DRIVES ARE AVAILABLE.

;;tt'ttttQtttttt'ttttttt'tt"'ititttltttttttttIttttttt.tttttttttt

000012
001354
036242
000001

001262

T1ST107:

001304

BNE

052574

031772
177777

001354

000001
000001

SCOPE

MOV
MOV
JSR
CMP
BHI
TST

1%:
001224

2%:

TYPE

JMP

MOV

MOV
CLR
CLR
MOV
MOV

#10. ,$TIMES
$SDEVM,-(SP)
R4 ,BITCNT
(SP)+ .M
2%
$PASS

::00 10. ITERATIONS
sPUT DEVICE MAP ON STACK
;sCOUNT NUMBER OF BITS(# OF DRIVES)
;COMPARE T0 1
:SKIP IF MORE THAN 1
:CHECK IF PASS 0

,OPRO18

:"'OVERLAPPED OPERATION BYPASSED''

$EOP

#-1,3THP1

$DEVM,RS
RO
R1
#1,R%
# R4

sNO=-SKIP

:GET OUT,

sSET LOOP CONTROL FLAG

sGET DEVICE MAP
sCLEAR FOR DRIVE #A
:CLEAR FOR DRIVE #B
sSET DRIVE POSITION A
;SET DRIVE POSITION B

~N A~

CZR6KF P11

MACY1 3??6;052)

(alal

CIR6KFO RK6 FCINL CTRL DIAG

030560
030566

012737
000503

030570

3%:

030570
030570
030572
030574

001610
001626
036134
000113

ERROR

;CLEAR SUBSYSTEM
;BAD INIT ERROR

MoV
MoV

RO,L.CS2
RO,DRVNUM

;:LOAD DRIVE A
;LOAD FOR REPORT

Mov

#RECAL,L.CST

;LOAD RECAL

ERROR

;:LOAD RK REGS
;WAIT FOR INTERRUPT
;TL SLOW/NOT COMPLETE ERROR
;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

TSSINIT

TLOADRK
TWAT16

OOV

32 AN52 52b =2 cd
5 e60 6d 60h 60b 00d ch
00 60d
3333333
oo
RONONON

NOWVNS WO

TCHKOP

V0NV
W

21
2

8830

;SET LOCAL LOOP ON ERROR
;GO SET UP POINTERS

JSR

001600

SEQ 0160

#3%,SLPERR
1%

MOV
BR

001110

PC,GTYPO

;OR 5, 6, 7

005037

001662

CLR

INTSET

;CLEAR INT FLAG

010137
010137
004737
012737

001610
001626
036150
000101

MOV
MOV
JSR
Mov

R1,L.CS2
R1,DRVNUM

;LOAD DRIVE B
;:LOAD FOR REPORT

#SELDRV,L.CST

;LOAD DRIVE SELECT

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

030656
030660
030662

104417
104423
104002

030664
030666

104421
104004

030670
030676
030700
030706
030714

032737
001007
012737
012737

030716
030722
030724
030726

005037
104436
000401
000406

001662

030730
030734
030742

010037
012737

001626
060411

030744
030746
030754

104420

104011

104002

001600

TLOADRK

TWAT16

ERROR

TCHKOP

100000

001552

056354
050160

001460
061022
4%:

001372

032737
001007

100000

001552

030756
030764
030772

012737
012737

056354
060434

001 510
061022

030774

104415

104014

PC,GTYPT

44$:

5%:

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

ERROR

SIT
BNE
MoV
MOV
ERROR

#SVAL,T.DS
3
NEMSVAL ,EM1IN
#OPEROO,DFO11A
1

;CHECK IF STATUS VALID SET

CLR
TWAT2S
BR
BR

INTSET

L4%
55%

;:CLEAR INT FLAG
;WAIT FOR SEEK COMPLETE INTERRUPT

MOV
MOV

RO,DRVNUM
#DHO17 ,DH2N

ERROR

55%:

;OR 5, 6, 7

TGETRK

BIT
BNE

#SVAL,T.DS
$

MOV
MOV
ERROR

#EMSVAL ,EMI4N
#DHO18,DFOT1A
14

SCOP1

;VES = SKIP

;''STATUS VALID NOT SET RESULT OF
;DRIVE SELECT"

;NONE RECEIVED - SKIP
; RECEIVED - SKIP
:SET DRIVE FOR REPORT

:"'COMMAND - SELECT AFTER RECAL"
:GET RK REGS

;TEST IF SVAL STILL SET
;YES - SKIP

;'"STATUS VALID RESET RESULT OF
;RECAL COMPLETE ATTENTION AFTER SEL"

:LOCAL LOOP TO 3%

oo |

E 13

19-JUN-80
MACY11 30A(1052)
14:14 PAGE 161
1107
SVAL AND ATTENTION FROM OTHER DRIVE

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF .P1

CIZR6KFO RK6 FCTNL CTRL DIAG
CIR6KF P11
19-JUN-80 14:04

MACY1T 3??6;052)

F13
19-JUN-80 14:14 PAGE 162
SVAL AND ATTENTION FROM OTHER DRIVE

8831
8832
8833

:
3

THE FOLLOWING CODE CAUSES THE TEST TO BE RUN ON EVERY COMBINATION
OF DRIVES AVAILABLE.
THE FIRST PASS OF THE PROGRAM WILL USE THE

8835
8836
8837
8838
3328

:
:
;
:
:

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

8841
ggz%

;
:

THE SECOND HIGHEST NUMBER DRIVE IS THEN USED AS A AND THE
THIRD HIGHEST AS B.
THEY ARE SWAPPED ON THE NEXT PASS.

8844

;

THIS TECHNIQUE 1S CONTINUED UNTIL ALL COMBINATIONS ARE

11%:

INC
BNE

$TMP1
16%

: INCREMENT PASS CONTROL
:SKIP IF NOT ZERO

12%:

BIT

R3,RS

:TEST IF BIT POSITION FOR A AT AVAIL DRIVE

22%:

INC
ASL

RO
R3

:BUMP RO (DRIVE A)
:SHIFT DRIVE SELECT BIT ONE POSITION

BEQ

12%

:BEEN CHECKED; IF NOT CHECK NEXT POSITION

8834

gg:g

8847
8848

030776
031002

005237
001024

8851

031004

030305

8854
8855

031010
031012

005200
006303

8857

031020

001771

gggg

ggg%

8856

gggg

031006

031014
031022

001224

001006

032703

000400

LOWEST NUMBER DRIVE AS A AND THE NEXT HIGHER NUMBER DRIVE AS

CHECKED.

BNE

BIT

000464

13%

#BI1T8,R3

:(IT WILL BE ZERO ON THE 1ST PASS)

;YES=-SKIP

;IF BIT 8 IS SET, ALL DRIVES HAVE

508

MOV
MOV
INC
ASL
BIT
BNE
BIT
BEQ
BR

RO,R1
R3,R4
R1
R4
R4 ,RS
15%
#BIT8,R4
14%
508

:SET DRIVE B TO THE SAME AS A

15%:

JMP

16%:

BIT

#B170,8TMP1

:GO DO THE TEST ON THE DRIVE A & B
;:CONTAINED IN RO & R1
;1S PASS FLAGS 0DD?

8860
8861
8862
8863
8864
8865
8866
8867
gggg

031024
031026
031030
031032
031034
031036
031040
031044
031046

010001
010304
005201
006304
030405
001004
032704
001771
000452

8870
8871
8872

031050

000137

030570

031054

032737

000001

8875

031064

010046

MOV

RO,=(SP)

8878
8879
8880
ggg;

031072
031074
031076
031100

010100
012604
012601
000137

MOV
MOV
MOV
JMP

R1,RO
(SP)+,R4
(SP)+,R1
3

;REPEAT TEST ON THIS COMBO.

gg;z
8876
8877

8883
8884
8885
8886

031062
031066
031070

031104
031112
031114
031116

001410

13%:

;DONE=EXIT

14%:

000400

001224

010346
010403

032737
001410
005200
006303

BEQ
MOV
MOV

030570

000002

001224

17%:
18%:

BIT
BEQ
INC
ASL

17%

R3,-(SP)
R4 ,R3

#BIT1,8TMP1
19%
RO
R3

:BUMP R1 (DRIVE B)
:SHIFT SELECTOR BIT ONE POSITION
;1S THIS DRIVE AVAIL?
:YES=SKIP
:WERE ALL POSITIONS CHECKED?
:NO-LOOP
;DONE-EXIT

:NO=-SKIP

:SWAP RO & R1, R3 & R4
:TO EXCHANGE CRIVE A & B

:TEST IF PASS FLAGS AT HALF MODULE 4?
:NO-SKIP TO BUMP DRIVE B
;BUMP DRIVE A
;SHIFT DRIVE SELECT BIT

SEQ 0161

8887

031120

030305

031124

032703

8888

031122

8890
ggg%

031130
031132

8889

001014

001771
000412

031134
031136
031140

005201
006304
030405

8897
8898
gggg

031144
031150
031152

032704
001771
000404

000400

ggg;

031154

000137

030570

8903
8904

031160
031162

010100
010403

8906
89C7

031170
031174

000137

8905

8908

031164

001004

005037

BIT

R3,RS

;AVAILABLE?

BIT

#B8178,R3

;ALL CHECKED?

INC
ASL
BIT

R1
R4
R4 RS

;BUMP DRIVE B
;SHIFT DRIVE SELECT BIT
;AVAILABLE?

BIT
BEQ
BR

#BIT8,R4
19%
23%

;ALL CHECKED?
;NO-LOOP
;YES=SKIP TO NEXT PASS

BNE

000400

8893
8894
8895

8896 031142

6 13
19-JUN-80 14:14 PAGE 163
MACY11 30A(1 052)
1107
SVAL AND ATTENTION FROM OTHER DRIVE

BEQ
BR
19%:

BNE

001224

18%
21%

208

; YES=SKIP

:NO-SK!IP
;G0 TO NEXT PASS

:YES=SKIP

20%:

JMP

;GO TEST THIS COmMBO

21%:

MoV
MoV

R1,RO
R4 ,R3

;SET DRIVE O TO LOW POSITION THIS PASS
;SET SELECT BITS TO AGREE

JMP

22%

;60 SET UP A R B

238:

031010

208

50%:

CLR

$TMP1

;CLEAR PASS FLAGS

RR
R A R
Ry

gg?g

;*TEST 110

OVERLAPPED OPERATIONS

8911

S
s
:*
ie

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

8917

REPEAT FOR ALL COMBINATIONS OF TWO DRIVES.

NOTE:

8912
8913
8914
gg}g

8919

gg%?

8922
8923
gggg

031174
031176

000004
012737

8926
8927
8928
8929

031204
031212
031216
031220

012737
013705
005000
005001

8930
8931
8932
8933
8934
8935
ggg?

031222
031226
031232
031240
031242
031242
031244

012703
012704
012737
000555

000095

001262

177777
001354

001224

2%:

000001
000001
031242

001110
38:

104416
104003

031246

010037

001626

8941

031262

012737

000113

831252
031256

010037
004737

IF ONLY ONE DRIVE IS AVAILABLE THE

TEST WILL NOT BE DONE.

;.-t'tt!tttttl'tttt't't""tt'tttt'itttttt'tt'ittt'ttt'ttt!'!Qttfit
TST110: SCOPE
=
MOV
#5.,8TIMES
;:00 5. ITERATIONS

8938

8939
8940

DO A RECALIBRATE ON BOTH DRIVE A AND DRIVE B.

001610
036134

001600

MOV
MoV
CLR
CLR

MoV
MOV
MOV
BR

#-1,8THP1
$DEVM,RS
RO
R1

#1,R3
#,R4
#3% SLPERR
1%

;SET LOOP CONTROL FLAG
:GET DEVICE MAP
;CLEAR FOR DRIVE #A
:CLEAR FOR DRIVE #8

;SET DRIVE POSITION A
;SET DRIVE POSITION B
;SET LOCAL LOOP ON ERROR
;GO SET UP POINTERS

TSSINIT
ERROR
3

;CLEAR SUBSYSTEM
;BAD INIT ERROR

MOV

RO,DRVNUM

;STORE DRIVE FOR REPORT

MOV

#RECAL,L.CST

MOV
JSR

RO,L.CS2
PC,GTYPO

;SETUP DRIVE A 10 RECAL

‘SEQ@ 0162

——

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF .P1N
19-JUN-80 14:04

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

005037

031302
031304

104437
104002

031306
031314
031316
031320

012737

03127
031272
031274
031276

031336
031342
031346
031352

001662

TWAT8S
ERROR

000105

001600

104002

104421
104004
032737
001372
010137

010137
004737
012737
104417
104423
04002
05037
104437
104002

012737
104417

A ¥

040000

001626
001610
036150
000113

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS
;TEST IF DI STILL SET
:YES = LOOP
;STORE DRIVE FOR REPORT
;SETUP DRIVE B TO RECAL

JSR

MOV

;0R 5, 6,

#D01,7.CS1
4%
R1,DRVNUM
R1,L.CS2
PC,GTYPT
#RECAL,L.CST

#CLEAR,L.CST
MOV
TLOADRK
TWAT16

5%:

104421

040000

001626
001610
036134
000001
000117

001540

001614
001600

ERROR

BIT
BNE

SOO
Py

(=lelele]

NrSSNIR

TWAT16
ERROR

001626
001610
036150
000100
177400
072414
000123

MOV
MOV

001614
001602
001604
001600

JSR

MOV
MOV
MOV
MoV

;WAIT FOR INTERRUPT

;70 SLOW/NOT COMPLETE ERROR

;WAIT [OR INTERRUPT
;7O SLOW/NOT COMPLETE ERROR

;CLEAR INTERRUPT FLAG

;WAIT FOR SECOND INTERRUPT

;TO SLOW/NOT COMPLETE ERROR
;SET UP DRIVE CLEAR
;LOAD RK REGS
;WAIT FOR INTERRUPT
;7O SLOW/NOT COMPLETE ERROR

;CHECK OPERATION FOR ANY ERRORS
sREPORT ALL ERRORS
sTEST IF DI STILL SET
;YES - LOOP

TCHKOP

ERROR

MoV
MOV
JSR
MOV
Mov

;LOAD RK REGS

ERROR INTSET
CLR
TWATBS
ERROR
2

001600

104002

onN

;7O SLOW/NOT COMPLETE ERROR

RO,DRVNUM

;STORE DRIVE FOR REPORT
;SETUP DRIVE A TO SEEK

#1,L.0CYL
#SEEK,L.CST

;70 CvL 1

RO,L.CS2
PC,GTYPO

;LOAD RK REGS

TLOADRK

\fl:\\fl\fl&fib

OO0

— i i D i i Dl

0O0O0O00O00

;WAIT FOR SECOND INTERRUPT

TLOADRK
TWAT16

000105

;CLEAR INTERRUPT FLAG

TCHKOP

BNE

001662

;7O _SLOW/NOT COMPLETE ERROR

;SET UP TO CLEAR DRIVE

MOV
MOV

001600

;LOAD RK REGS

;WAIT FOR INTERRUPT

#CLEAR,L.CST
MOV
TLOADRK
TWAT1%
ERROR
2

ERROR
BIT

001540

104423

»
W &~

104537
10442%

TLOADRK
TWAT16
ERROR
2
CLR
INTSET

031360
031362
031364
031366
031372
031374
031376
031404
031406
031410
031412
031412
031414
031416
031424

104417
104423
104002

H13
19-JUN-80
14:14
PAGE 164
MACY11 30A(1052)
110
OVERLAPPED OPERATIONS

2
R1,DRVNUM
R1.L.CS2
PC.GTYP

#100,L.0CYL
#-400,L .wC

#OBUFF
,L .BA
#WRDATA,L.CS1

;WAIT FOR INTERRUPT

;7O SLOW/NOT COMPLETE ERROR
;STORE DRIVE FOR REPORT
;SETUP DRIVE B TO WRITE DATA

;AT CYL 100
;400 WORDS

SEQ 0163

113
MACY11 3(T)A(1052)
19-JUN-80 14:14 PAGE 165
110
OVERLAPPED OPERATIONS

3838

031530

104417

TLOADRK

:LOAD RK REGS=DO WRITE

9001
gggg

031532
031534

104427
104002

TWAT80
ERROR

:WAIT FOR INTERRUPT
:TO SLOW/NOT COMPLETE ERROR

9004
3882

031536
031540

104421
104004

TCHKOP
ERROR

9007
9008

031542
031546

010037
130337

MOV
BITB

RO, DRVNUM
R3,T.ASOF+1

9009
9010
9011
gg}g

gg;g

031552
031554

031570

001007
012737
012737
104011

031572

104415

031562

001626
001557

056540

050272

9016
9017
9018

BNE
MOV
MOV
ERROR

001460

061022

:OR S, 6, 7

108
#EMDA,EM1IN

FEMSK.DFOT11A
11

:CHECK OPERATION FOR ANY ERRORS
:REPORT ALL ERRORS
:STORE DRIVE FOR REPORT
“CHECK IF DRIVE ATTENTION IS DRIVE A

SYES=SKIP
“DRIVE ATTENTION NOT SET RESULT OF
:SEEK'

108:

SCOP1

:LOCAL LOOP TO 3$

;
:
:

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

9019
9020
9021
9022
38%2

g
:
:
:
;

9025

:
:

THIRD HIGHEST AS B.

9028

;

THIS TECHNIQUE IS CONTINUED UNTIL ALL COMBINATIONS ARE

118:

INC
BNE

$TMP1
16%

: INCREMENT PASS CONTROL
‘SKIP IF NOT ZERO
SUIT WILL BE ZERO ON THE 1ST PASS)

8859

gg%g

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

DRIVE.

THE SECOND HIGHEST NUMBER DRIVE IS THEN USED AS A AND THE
THEY ARE SWAPPED ON THE NEXT PASS.

CHECKED.

9031
9032
38%2

031574
031600

005237
001024

9035
gggg

031602
031604

030305
001006

128:

BIT
BNE

R3,RS
13§ .

STEST IF BIT POSITION FOR A AT AVAIL DRIVE
SYES-SKIP

9038
9039
9040
9041
gg:g

031606
031610
031612
031616
031620

005200
006303
032703
001771
000464

228:

INC
ASL
BIT
BEQ
.BR

RO
R3
#B1T8,R3
128
508

:BUMP RO (DRIVE A)
*SHIFT DRIVE SELECT BIT ONE POSITION
:1F BIT 8 IS SET, ALL DRIVES MAVE
‘BEEN CHECKED: IF NOT CHECK NEXT POSITION
_:DONE-EXIT

9044
9045
9046
9047
9048

031622
031624
031626
031630
031632

010001
010304
005201
006304
030405

138:

MOV
MOV
INC
ASL
BIT

RO,R1
R3.R4
R
R4
R4 ,RS

:SET DRIVE B TO THE SAME AS A

9050
9051
gggg

031636
031642
031644

032704
001771
000452

000400

BIT
BEQ
BR

#8178, R4
14%
50%

‘WERE ALL POSITIONS CHECKED?
*NO-LOOP
:DONE-EXIT

9054

031646

000137

031242

JMP

9049 031634 001004

001224

000400

148

BNE

158:

SEQ 0164

15¢

:BUMP R1 (DRIVE B)
*SHIFT SELECTOR BIT ONE POSITION
‘1S THIS DRIVE AVAIL?

SYES=SKIP

:GO DO THE TEST ON THE DRIVE A & B

(Tl

CZR6KFO RK6 FCTINL CTRL DIAG
CIRO6KF.P11
19-JUN-B0 14:04

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

MACY1

000001

001224

J 13

19-JUN-80
A(1052)
14:14
PAGE 166
3
110
OVERLAPPED OPERATIONS
16%:

000002

001224

17%:

18‘:

031730

001771
000412

031732
031734
031736
031740
031742
031746
031750

005201
006304
030405
001004
032704
001771
000404

031752

000137

031756
031760
031762
031766
031772

010100
010403
005037
000137

#BITO,$TMPT
17%

MOV

MOV
MOV

RO,=(SP)
R3,=(SP)
R4 ,R3

270 EXCHANGE DRIVE A & B

JMP

;REPEAT TEST ON THIS COMBO.

BIT
BEQ
INC
ASL
BIT
BNE
BIT
BEQ
BR

#BITT,$TMPY
19%
RO
R3
R3,RS
20%
#BIT8,R3
18%
21%

:TEST IF PASS FLAGS AT HALF MODULE 4?
sNO-SKIP TO BUMP DRIVE B
;BUMP DRIVE A
;SHIFT DRIVE SELECT BIT
sAVAILABLE?

INC
ASL

R1
R4

MoV
MoV
MOV

031242

000400

19%:

*SWAP RO & R1, R3 & R4

sYES=SKIP

:ALL CHECKED?

sNO=SKIP

;G0 TO NEXT PASS

;BUMP DRIVE B

sSHIFT DRIVE SELECT BIT

R4 ,RS
20%
#BIT8,R4
19%
23%

208:

JMP

;GO TEST THIS COMBO

21%:

MOV

R1,R0

;SET DRIVE O TO LOW POSITION THIS PASS
;SET SELECT BITS TO AGREE

JMP

22%

23%:

001224
031606

R1,RO
(SP)+,R4
(SF)+,R1

:NO-SKIP

BIT
BNE
BIT
BEQ
BR

000400

031242

;CONTAINED IN RO & R1
;1S PASS FLAGS 00D?

BIT
BeQ

508:

MoV
CLR

R4 ,R3
$TMPI

sAVAILABLE?

;YES=SKIP
:ALL CHECKED?

sNO-LOOP

;YES=SKIP TO NEXT PASS

;CLEAR PASS FLAGS
;G0 SET UP A& B

;ADD WAITING LOOP FOR APT OPERATION ON JAN-9-78 REV 007
.SBTTL
END OF PASS ROUTINE
...'Q.'.t..Q'""""""l"""'tt!ll.'tt"t'.'fi'tttt"i"".'

'lNCREHENT THE PASS NUMBER (SPASS)

;*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT Yvyyy"
J*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS

$EOP:

:
SSSR888

OCOO0O0O00000

:«IF THERES A MONITOR GO T0 IT
;*1F THERE ISN'T JUMP TO TSTAPT

001102

001262
001304

100000

001304

SCOPE
CLR
CLR
INC
BIC
DEC
$EOPCT: .WORD
BGT

$TSTNM
STIMES
$PASS
"o
o 0000 $PASS
(

1
$ DOAGN

;sIERD THE TEST NUMBER
::1ERO THE NUMBER OF [TERATIONS
:: INCREMENT THE PASS NUMBER

::DON'T ALLOW A NEG. NUMBER
;:L00P?
4
¥4

SEQ@ 0165

CIR6KFO Rk6 FCINL CTR

CIR6KF P11

19=JUN- §o

9111
9
9113
9114
9115
9116
9117

032024
0320%6
032030
032032
032036

012737
000001
03202
104401
00040

032056
032056

013746

9120
9121
9122
9123
9124
3152

032062
032064
032070

g;}g

9127
9128
9129
9130
9131
9132
9132
9134
9135
9136
9137
9138
9139
9140
9141
9142
9143
9144
9145
9146
9147
9148
9149
9150
9151
9152
9153
9154
9155
9156
9157
9158
9159
9160
9161
9162
9163
9164

9165
9166

032134

032140
032142
032146
032152
032156
032160
032162
032164
032166
032170
032172
032172
032174
032176
032202
032210
032212
032220
032222

032226
032230

MACY11

DlAG

30A(1052)
19-JUN-B0
END OF PASS ROUTINE

14:14

K13

PAGE 167

SEQ 0166

MoV
.WORD
SEOPCT

(PC)+,a(PC)+

; sRESTORE COUNTER

=
LASCIZ

648
::;GET OVER THE ASCIZ
<12><15>/END PASS #/

,65%

:sTYPE ASCIZ STRING

001304

MOV

$PASS,~(SP)

::SAVE SPASS FOR TYPEOUT

104405
104401
000421

032072

TYPDS
TYPE

,67%
66%

:sTYPE ASCIZ STRING

013746

001112

MOV

$ERTTL ,-(SP)

;s SAVE SERTTL FOR TYPEOUT

TYPDS
TYPE

JSCRLF

::G0 TYPE=-=DECIMAL ASCII WITH SIGN
::TYPE CARRIAGE RETURN, LINE FEED

104405
104401
005037
013700
001405
000005
004710
000240
000240
000240
000137
032202
377
032202
122737
001007
023727
103403
005237

000775
000137

SENDCT:

TYPE

032040

éigss:

'278:

001273
001112
000042

LASCIZ

CLR
$GET4L2: MOV
BEQ

RESET
$ENDAD: JSR
NOP

SERTTL
are2 RO
$DOAGN
PC, (RO)

377

000

000001

001316

001304

000002

NOP

SRTNAD:

JMP
.WORD

TSTAPT:

.EVEN
CMPB

$ENULL:

.BYTE

1%:

003150

2%:
.SBTTL

::GET OVER THE ASCIZ

a(PC)+
TSTAPT

=1,-1,0

#APTENV,SENV

:; TOTAL NUMBER OF ERRORS
:;CLEAR ERROR TOTAL
::GET MONITOR ADDRESS
:;BRANCH IF NO MONITOR
::CLEAR THE WORLD
::6G0 TO MONITOR
s ;SAVE ROOM
;+FOR
;sACTI

;sRETURN

;:NULL CHARACTER STRING
;RUNNING UNDER APT MODE

BNE

:BRANCH IF NOT

BLO
INC

2%
$YSTNH

:BRANCH IF NOT
: INCREMENT TEST NUMBER

CMP

001102

;s TYPE PASS NUMBER
::6G0 TYPE=-=DECIMAL ASCII WITH SIGN

TOTAL ERRORS SINCE LAST REPORT /

NOP

$DOAGN:

$PASS ., #2

BR
1%
NEWPAS
JMP
ROUTINE TO SIZE MEMORY

;TWO PASS DONE ?

:WAITING LOOP FOR APT DUMP THE NEXT PROG
;REPEAT THE SAME TEST IF NOT UNDER APT

::'.'ii..."..""""'."."'.""""'!Qi'..'i""'t"i.".""

s*CALL:

PC,$SIZE

JSR

3
ot

WITH KT11 OPTION
WITHOUT KT11 OPTION

RETURN
o
'SLSYAD WILL CONTAIN:

== LAST VIRTUAL ADDRESS OF THE LAST BANK
== LAST ABSOLUTE ADDRESS OF »'VAILABLE MEMORY

;*SLSTBK WILL CONTAIN THE LAST BANK AS
A SAF

;e$KT11 IS THE MEMORY MANAGEMENT KEY
'81T07 = 0 DON'T USE MEMORY MANAGEMENT
MUST BE SETUP BEFORE THE CALL

'BIT1S = 0 DON'T HAVE MEMORY MANAGEMENT OPTION
032234
032236

010046
010146

DETERMINED BY ROUTINE

$SIZE:

MOV
MOV

RO,=(SP)
R1,-(SP)

————e———

;:SAVE RO ON THE STACK
:sSAVE R1 ON THE STACK

—

CIR6KFO RK6 FCTNL CTRL DIAG

CIR6KF.P11

19-JUN-80 14:04

9167
9168

032240
032242

010246
010346

9170
9171
9172
9173
9174
9175

032250
032254
032262
032270
032274
032300

013746
012737
012737
013746
013746
010600

9177

032302

104400

9180
9181
9182
9183

032314
032316
032320
032322

9169

9176
9178
9179

9184
9185

032244

032304
032310

032330
032334

013746

012637
012701

105727
000200
100062
012737
005737

032342
032344
032350

052737
005046
012702
012703

9190
9191
9192

032362
032364
032370

011622
062716
077307

9194

032376

005042

9196
9197

032406
032414

012737
000401

9199
9200
9201
9202
9203
9204
9205

032420
032424
032432
032436
032442
032446
032450

005237
012737
005737
062712
023712
101371
011202

9186
9187
9188

9189 032354

012762

000116
000116
000002
000004
000006

022626

MOV
MOV
MOV
MOV
MOV
MOV

ar16,=(SP)
16,3014
:: IGNORE PARITY ERRORS WHILE SIZING
#RTL.aM16
SFERRVEC,-(SP)
;:SAVE PRESENT ERROR VECTOR PS & PC
ANERRVEC+2,-(SP)
SP,RO
::SAVE THE STACK POINTER

032460
177572

100000

172340
000010

077406

000004

032316

177740

18:

000200

000020
177572
032450
143776
000040
172356

ST
.WORD
BPL
MOV

MOV
ADD
SOB

(SP), (R2)+
#200, (SP)
R3,1

CLR

-(R2)

MOV

MOV
000004

MOV

172516

28:
000004

3%:

MOV
BR

CMP

INC
MOV
4$:
ST
ADD
CMP
BHI
$KTOUT: MOV

9208
9209
9210
9211

032460
032466
032474
032476

100000
032516

9213
9214
9215
9216

032506
032510
032514
032516

005711
022701
001370
162701

004000

ST
CMP
BNE
$CROUT: SUB

9219
9220
9221
9222

032530
032534
032540
032544

012637
012637
012637
012637

000006
000004
000116
000114

MOV
MOV
MOV
MOV

000421

042737
012737
005002
062701

1:SAVE MEMORY ERROR VECTOR PS & PC

004000

9212 032502 062702 000040

177776

9217 032522 162702 000040
9218 oszsgs 010009

CLR

032316
000004

(PC)+
1:USE MEMORY MANAGEMENT?
200
::SET TO USE MEMORY MANAGEMENT
$CORE
::BR IF NO
#SKTNEX,#ERRVEC :;SET FOR TIMEOUT
FSRO
;:KT11 ARE YOU THERE?

#100000,8KT11
-(SP)
#XIPARO.R2
#°D8,R3

177572

032456

ON THE STACK
ON THE STACK

::PUSH OLD PSW AND PC ON STACK
(SP)+,@#ERRVE(+2
::SAVE THE PSW IN @#ERRVEC+2
#3776 R
;:SETUP ADDRESS

ST
BIS
CLR
MOV
MOV

9206 032452 005037
9207

arf1e,-(sp)

::SAVE R2
::SAVE R3

R2,=(SP)
R3 = (SP)

TRAP
MOV
MOV

$KT11:

032416

000114
000116

L 13
PAGE 168

MOV
MOV

MOV

000006
003776

9195

9198

14:14

::SET THE ERRVEC PS TO THE PRESENT PS

177600

012737

19-JUN-80

ROUTINE TO SIZE MEMORY

000114

9193 032372 012742
032400

MACY11 30A(1052)

S$KTNEX: BIC
SCORE: MOV
CLR
1$:
ADD

ADD

$SIZEX: SUB
MOV

#77406,-40C(R2)

#177600,-(R2)
#28,3#ERRVEC

#20.3#5R3
3$

::YES==SET KT11 KEY
S:INITIALIZE FOR ''PAR'' LOADING
::ADDRESS OF FIRST '‘PAR"
::LOAD EIGHT ‘'PAR.'S'' AND EIGHT ''PDR.'S'

::PDR = 4K, UP, READ/WRITE

1:LOAD '‘PAR"
::UPDATE FOR NEXT '‘PAR"
::LOOP UNTIL ALL EIGHT ARE LOADED

;:SETUP KIPAR? FOR /0

::SETUP KIPARG FOR TESTING

::CATCH TIMEOUT IF NO SR3

:'ENABLE 22 BIT MODE
P:THIS PDP=11 HAS A SR3 REGISTER
(SP)+,(SP)+
S:CLEAN OFF THE STACK--NO SR3
FSRO
*:TURN ON MEMORY MANAGEMENT
#$KTOUT,a#ERRVEC :;SET FOR TIME OUT
aru3T7é
:TRAP ON NON-EX=-MEM
#40, (R2)
PIMAKE A 1K STEP
aFKIPAR?,(R2)
::LAST ONE?
43
::NO==TRY IT
(R2) ,R2
PiGET LAST BANK+1

arsro

$SIZEX

*:TURN OFF MEMORY MANAGEMENT

#100000,8KT11
::KT11 NON-EXISTENT
#$CROUT ,a#ERRVEC :;SET FOR TIMEOUT
R2
::SET UP BANK
#4000, R1
: *INCREMENT BY 1K

#40,R2

121K STEP

#40,R2
RO, SP

: :DROP BACK
S:RESTORE THE STACK

(R1)
1777761
1%
#4000 ,R1

::TRAP ON TIME OUT
:SLAST ONE
: :NO==TRY AGAIN

(SP)+,a#ERRVEC+2 : ;RESTORE ERROR VECTOR
(SP)+.a#ERRVEC
(SP)+.a#116
: :RESTORE MEMORY ERROR VECTOR
(SP)+.a#114

SEQ 0167

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF .P11
19-JUN-80 14:04

MACY11 30A(1052)

19-JUN-80

14:14

ROUTINE TO SIZE MEMORY

032572
032574

M13
PAGE 169

MOV
MoV
MOV
MoV

R1,SLSTAD
R2,SLSTBK
(SP)+,R3
(SP)+,R2

;s LAST ADDRESS
; sLAST BANK
; ;RESTORE R3
: ;RESTORE R2

:?g

éEP)O,RO

; sRESTORE RO

MoV

(SP)+,RT

; ;RESTORE R1

SLSTAD: .WORD
0
$LSTBK: .WORD
0
.SBTTL
SCOPE HANDLER ROUTINE
A

- SEQ 0168

ARl

; sCONTAINS THE LAST ADDRESS
;s CONTAINS THE LAST BANK

R Rttt RddRRtitRtdRddlld])

'THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS.

IT WILL INCREMENT
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

:'SH14 1

LOOP ON TEST

;*SW08=1

LOOP ON TEST IN SWR<7:0>

s*SW11=1
;*SW09=1
s*CALL

ot
032576
032576

104407

032600
032604
032606
032412
032620

021627
101002
000137
032777
001131

032622
032624

$SCOPE:

CKSWR

;TEST

..OTHERHé:E CONTINUE
(SP) , #1002
1%
BHI

001002

033614
040000

146320

FOR CHANGE IN SOFT=-SWR

1%:

JMP

BIT

BNE

$ERROR

#BIT14,aSWR

: sUNEXPECTED TRAP OR INTERRRUPT
::ARE TRAPPED HERE VIA 10T

1360 PROCESS UNEXPECTED TRAP

$OVER

::LOOP ON PRESENT TEST?
PIYES IF SWi14=1

::1F RUNNING ON THE '‘XOR'' TESTER CHANGE

MN#MNSTART OF CODE FOR THE XOR TESTERNANAN

000416

$XTSTR: B8R

013746

MOV
MOV

ANERRVEC,-(SP)
#5$ ,QWERRVEC

S:THIS INSTRUCTION TO A ''NOP'' (NOP=240)
::SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT

MOV

(SP)+,@#ERRVEC

::RESTORE THE ERROR VECTOR

000004

032650

000004

= —b N — —

NOOONN
-(=

ONNLNO SN

288

146252
o~

146242

o4« =

d S

000400

000110
001102

5%:

000004

OSSN

::SCOPE=]0T

SCOPE

;:G0 TO ERROR ROUTINE IF RETURN PC LESS THAN 1002

177060
000004

NNNN
N b b b

INHIBIT ITERATIONS
LOOP ON ERROR

CMP

MOV

BR
6$:; MMNMNEND OF
BIT
BEQ
CLR
MOVB
BEQ

CMP
BLT

MOV
DEC
ASL
ADD
MOV

ar1 #7060

$SVLAD

(SP)+,(SP)+

(SP)+ ,#ERRVEC

::TIME OUT ON XOR?

1360 TO THE NEXT TEST

*:CLEAR THE STACK AFTER A TIME OUT
;;RESTORE THE ERROR VECTOR

;:LOOP ON THE PRESENT TEST
7%
CODE FOR THE XOR TESTERMANNN
..LOOPFON SPEC. TEST?
#B1708,aSWR
28
:BR_IF NO
sCLEAR A TEMP. LOCATION
=(SP)
..PlCKUP THE DESIRED TEST NUMBER
asWR, (SP)
;BRANCH IF BAD TEST NUMBER IN SWR
8s

#110, (SP)
8s

(SP) ,$TSTNM
(SP)
(SP)
(SP)
#$5WO0BTBL,
@(SP)+ ,SLPADR

..CHECK THE NUMBER IN THE SWR
;BRANCH IF TEST NUMBER IS OUT OF RANGE
::UPDATE THE TEST NUMBER
..BACKUP BY ONE
SCALE THE TEST NUMBER AS AN INDEX
::FORM THE ADDRESS OF TEST POINTER
..SET LOOP ADDRESS TO DESIRED TEST

—

CIR6KFO RK6 FCINL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04
9279
9280
9281
928
9283
9284
9285
9286
9287
9288
9289
9290
9291
9292
9293
9294
9295
9296
9297
9298
9299
9300
9301
9302
9303
9304

%7%8
g
032732

&
9307
9308
9309
9310
9311
9312
9313

03307
033104
033112
033116
033120
033122
033122
0331264

9315
9316
9317

033130
033132
033134

03%7
032740
032746
032750
032756
0327
032766
032770
032774
03
033002
033010
033012
033016
033020
033026
033032
033034
033042
033050
033054
033062
03

000466
005726
105737
001421
123737
101C15
032777
001404
013737
000446
105037
005037
000415
032777
001011
005737
001406
005237
023737
002024
012737
013737
105237
113737
011637
011637

9314

9318
9319
9320
9321
9322
9323
93264
9325
9326
9327

9328
9329
9330
9331
9332
9335
9334

033126

033136
033140
033142
033144
033146
03315g
033152
033154
033156
033160

033162
033164
833196
033170
033172
0331764
033176

003164
003302
003370
004620
004726
005104
005232
005336
006262
006400

006516
006760
007112
007322
007512
007646

010514
011112
011324
011542
011666
012020
012176

8s:
2s:

001103

001115

001103

001000

146162

001110

001106

001103
001262
004000

146130

001304

001104
001262

001104

000001
033120
001102
001102
001106
001110

001104
001262

000001
001102
001106

001115
146030

9305 033072 005037 001264
11%737
013777
013716
000002
003720

MACY11 30A(1052)
19-JUN-B0 14:14
SCOPE HANDLER ROUTINE

001302

BR
18T
1ST8

BEQ
(MPB
BHI
BIT
BEQ
7%:
MoV
BR
4$:
CLRB
CLR
BR
38:
BIT
BNE
TST
BEQ
INC
CMP
BGE
1%:
MoV
MoV
$SVLAD: INCB
Move
MoV
Mov

CLR

MovB
SOVER: MOV
MoV
RTI
SMXCNT: 2000.
$SWOBTBL:
LWORD
.WORD

LWORD

.WORD
.WORD
.WORD

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

LWORD
.WORD
LWORD
LWORD
LWORD
LWORD
LWORD

SOVER
(SP)+
$ERFLG

N 13

PAGE 170

33
SERMAX ,SERFLG
3%
#B1T09,aSWR
(3
SLPERR,SLPADR
SOVER
SERFLG
STIMES
1%
#BIT11,3SWR
1%
$PASS
1%
$ICNT
STIMES,SICNT
SOVER
#1,81CNT
SMXCNT,STIMES
STSTNM
STSTNM, STESTN
(SP) ,SLPADR
(SP) ,SLPERR

SESCAPE

SEQ 0169

;G0 LOOP ON THE TEST
;CLEAN THE BAD TEST NUMBER OFF OF THE STACK
..HAS AN ERROR OCCURRED?

:BR IF NO
..HAX ERRORS FOR THIS TEST OCCURRED?
:BR _IF NO
::LOOP ON ERROR?
::BR_IF NO
;:SET LOOP ADDRESS TO LAST SCOPE

;:JERO_THE ERROR FLAG
;sCLEAR THE NUMBER OF ITERATIONS TO MAKE
;sESCAPE TO THE NEXT TEST
;s INHIBIT ITERATIONS?
;:BR IF YES
..IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS

;: INCREMENT ITERATION COUNT ;sCHECK THE NUMBER OF ITERATIONS MADE
::BR IF MORE ITERATION REQUIRED
ssREINITIALIZE THE ITERATION COUNTER
;;SET NUMBER OF ITERATIONS TO DO
: sCOUNT TEST NUMBERS
;;SET TEST NUMBER IN APT MAILBOX
:sSAVE SCOPE LOOP ADDRESS
: sSAVE _ERROR LOOP ADDRESS

;sCLEAR THE ESCAPE FROM ERROR ADDRESS

#1,SERMAX
;sONLY ALLOW ONE(1) ERROR ON NEXT TEST
$TSTNM,aDISPLAY ;:DISPLAY TEST NUMBER
$LPADR, (SP)
: ;FUDGE RETURN ADDRESS
:sFIXES PS
: sMAX. NUMBER OF ITERATIONS

TST1+2
TST2+2
TST3+2
TST4+2
TST5¢2
TSTE+2
TST7+2
TST10+2
TST11+2
TST12¢2

TST13+2
TST14+42
TST15+2
TST16¢2
TST17¢2
TST20¢2
TST21+¢2
TST22¢2
TST23¢2
TST24+¢2
TST25¢2
TST26¢2
TST27¢2

;:STARTING ADDRESS OF
:;STARTING ADDRESS OF
:;STARTING ADDRESS OF
; ;STARTING ADDRESS OF
:;STARTING ADDRESS OF
:;STARTING ADDRESS OF
: :STARTING ADDRESS OF
: ;STARTING ADDRESS OF
:;STARTING ADDRESS OF
:;STARTING ADDRESS OF

;;STARTING ADDRESS OF
::STARTING ADDRESS OF
;;STARTING ADDRESS OF
:;STARTING ADDRESS OF
;s STARTING ADDRESS OF
;;STARTING ADDRESS OF
:;STARTING ADDRESS OF
; ;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;sSTARTING ADDRESS OF
:;STARTING ADDRESS OF
;:STARTING ADDRESS OF
;;STARTING ADDRESS OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

1
2
3
4
5
6
7
10
1
12

TEST 13
TEST 14
TEST 15
TEST 16
TEST 17
TEST 20
TEST 21
TEST 22
TEST 23
TEST %4
TEST 25
TEST 26
TEST 27

’

033304
033306
033310
033312
033314
033316
033320
033322
033324
033326
033330
033332
033334
033336
033340
033342
033344

023622
024470
025162
025404
025662
025742
026134
026360
026506
027030
027562
030024
030250
030470
031176
031774
044172

:;STARTING ADDRESS OF TEST 72
:;STARTING ADDRESS OF TEST 73
:;STARTING ADDRESS OF TEST 74
;s STARTING ADDRESS OF TEST-75
;;STARTING ADDRESS OF TEST 76
:;STARTING ADDRESS OF TEST 77
:;STARTING ADDRESS OF TEST
:;STARTING ADDRESS OF TEST
:;STARTING ADDRESS OF TEST
;;STARTING ADDRESS OF TEST
;;STARTING ADDRESS OF TEST
:;STARTING ADDRESS OF TEST
:;STARTING ADDRESS OF TEST
:;STARTING ADDRESS OF TEST
:;STARTING ADDRESS OF TEST
;ADDRESS OF END OF PASS
;ADDRESS OF ABORT FAILURE HANDLER

TST72+2
TST73+2
TST74+2
TST75+2
TST76¢2
TST77¢2
TST100+2
TST101+2
TST102¢2
TST103+2
TST104+2
TST105+2
TST106+2
TST107+2
TST110¢2
SEOP+2
ABTFAIL+2

ggg;

.SBTTL

9389

':t'.."'t"'t""i"""""'it".'fi't."fit"""'.t'i.'t"""t

9390 033346

112737

000001

033612

$ATY1:

bbbl
bl
A
A
&
&
bl

100
101
102
103
104
105
106
107
110

APT COMMUNICATIONS ROUTINE

MOVB

#1,8FFLG

[alal

bbb

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

TEST 32
TEST 33
TEST 34
TEST 35
TEST 36
TEST 37
TEST 40
TEST 41
TEST 42
TEST 43
TEST 44
TEST 45
TEST 46
TEST 47
TEST 50
TEST 51
TEST 52
TEST 53
TEST 54
TEST 55
TEST 56
TEST 57
TEST 60
TEST 61
TEST 62
TEST A3
TEST 64
TEST 65
TEST 66
TEST 67
TEST 70
TEST 71

;

~ I~

|
9369
9370
9371
9372
9373
9374
9375
9376
9377
9378
9379
9380
9381
9382
9383
9384
g;gg

:;STARTING ADDRESS OF
:;STARTING ADDRESS OF
;;STARTING ADDRESS OF
:;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF
:;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF
:;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF
::STARTING ADDRESS OF
;;STARTING ADDRESS OF
:;STARTING ADDRESS OF
;;STARTING ADDRESS OF
:;STARTING ADDRESS OF
:;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF
:;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF

& .8

TST%%’Z
TST33+2
TST34+?
TST35+2
TST36+2
TST37+2
TST40+2
TST41+2
TST42+2
TST43+2
TST44+2
TST45+2
TST4H+2
TST47+2
TST50+2
TST51+42
TST52¢2
TST53+2
TST54+2
TST55+2
TST56¢2
TST57+2
'TST60+2
TST61+2
TST62¢2
TST63+2
TSTH4+2
TST65¢2
TST66+2
TSTE7+2
TST70+2
TST71¢2

A-.A
A

.WORD
.WORD
LWORD
LWORD
LWORD
LWORD
.WORD
LWORD
.WORD
WGRD
.WORD
.WORD
LWORD
LWORD
.WORD
LWORD
.WORD
.WORD
LWORD
LWORD
.WORD
.WORD
. .WORD
LWORD
.WORD
LWORD
LWORD
LWORD
.WORD
.WORD
.WORD
LWORD

013020
013254
013442
013674
014062
014304
014472
014664
015060
015264
015470
016330
016534
016740
017156
017362
017566
017712
020036
020162
020306
020432
020504
020564
021050
021232
021420
022124
022342
022446
023070
023512

033204
033206
033210
033212
033214
033216
033220
033222
033224
033226
033230
033232
033234
0332
033240
033242
033244
033246
033250
033252
033254
033256
033260
033262
033264
033%96
033270
033272
033274
033276
033300
033302

9337
9338
9339
9340
9341
9342
9343
9344
9345
§346
9347
9348
9349
9350
9351
935¢
9353
9354
9355
9356
9357
9358
9359
9360
9361
936
9363
9364
9365
9366
9367
9368

;;STARTING ADDRESS OF TEST 30

;sSTARTING ADDRESS OF TEST 31

TST30+¢2

WORD TST31+42

&8..A

LWORD

012330

033200

9335

9336 0%3202 012624

SEQ 0170

19-JUN-B0

SCOPE HANDLER ROUTINE

a&_.A

MACY11 30A(1052)

19-JUN-B0 14:04

CIR6KFO RK6 FCTNL CTRL DIAG

CZR6KF P11

B 14
14:14 PAGE 171

;:T0 REPORT FATAL ERROR

CIR6KFO RK6 FCTINL CIRL DIAG
CZR6KF P11
19=JUN=80 14:04
9391
9392
9393
9394
9395
9396
9397
9398
9399
9400
9401
9402
9403
9404

033354
033362
033364
033372
033372
033374
033376
033402
033404
033412
033414
033422
0334624
033430

112737
00040
112737

9406
9407

033442
033444

001375
010037

9410
94611
9412
9413
9414
9415
9416

033452
033454
033460
033462
033466
033474
033476
033504

001376
163700
006200
010037
012737
000413
017637
062766

9418
9419
9420
9421

033516
033522
033524
033524

004737
000000

044202

033530
033532
033536

105737
001416
005737
001413

033612

9426
9427
9428

033544
033546
033554

001375
017637
062766

9430
9431
9432
9433
9434
9435
9436
9437
9438

033566
033572
033576
033602
033604
033606
033610
033611
033612

105037
105037
105037
012601
012600
000207
000
000
000

010046
010146
105737
001450
122737
001031
132737
001425
017600
062766

GO0OO!

033610

000007

033612

105720

9417 033512 013746

9422
9423
9424

000001

001316

000100

001317

000004
000002

000004

001312

001312
001314
000004

001276

000004
000002

033522
000004

177776

9441

9442
9443
9444
9“6

000200

000001

000100
000040

3$:

48:
5%:
108 :

000004
000002

033612
033611
033610

11$:
001300
000004

128:

$SMFLG:
SLFLG:
$FFLG:

€ 14

PAGE 172

MOVB
BR
MOVB

#1,SMFLG
SATYC
#1,$FFLG

::TO TYPE A MESSAGE

MOV
MOV
TSTB
BEQ
C(MPB
BNE
BITB
BEQ
MOV
ADD

RO,=(SP)
R1,=(SP)
SMFLG
58
#APTENV,SENV
3s
WAPTSPOOL,SENVM
3
34 (SP),RO
#2,4(SP)

::PUSH RO ON STACK
::PUSH R1 ON STACK
::SHOULD TYPE A MESSAGE?
::1F NOT: BR
;;OPERATING UNDER APT?
::1F NOT: BR
;;SHOULD SPOOL MESSAGES?
:;1F NOT: BR
::GET MESSAGE ADDR.
::BUMP RETURN ADDR.

BNE
MOV

1%
RO, $MSGAD

::1F NOT:
WAIT
::PUT ADDR IN MAILBOX

1sTB

$SMSGTYPE
(RO)+

::SEE IF DONE W/ LAST XMISSION?
::FIND END OF MESSAGE

28
$MSGAD , RO
RO
RO,$MSGLGT
¥4, SMSGTYPE
58
34 (SP) 48
#2,4(SP)

JSR
.WORD

PC,$TYPE
0

TSTB
BEQ
ST
BEQ

$FFLG
12%
SENV
12%

: :SHOULD REPORT FATAL ERROR?
::1F NOT: BR
1 :RUNNING UNDER APT?
::1F NOT: BR

BNE
MOV
ADD

1%
@4 (SP),SFATAL
#2,4(SP)

Si1F NOT: WAIT
;:GET ERROR #
: :BUMP RETURN ADDR.

INC

CLRB
CLRB
CLRB
MOV
MOV
RTS
.BYTE
.BYTE
.BYTE

.EVEN
APTSIZE=200

177776,-(SP)

$SMSGTYPE

$FFLG
SLFLG
SMFLG
(SP)+,R1
(SP)+.RO
PC
0
0
O

SEQ 0171

::T0 ONLY REPORT FATAL ERROR

BNE
SUB
ASR
MOV
MOV
BR
MOV
ADD

MOV

001316

9429 033562 005237 001276

033614

1%:
2%:

9425 033540 005737 001276

9439
9440

SATY3:
:
S$ATY4:
SATYC:

033610

9405 033436 005737 001276
9408 033450

MACY11 30A(1052)
19-JUN-80 14:14
APT COMMUNICATIONS ROUTINE

::SUB START OF MESSAGE
::GET MESSAGE LNGTH IN WORDS
::PUT LENGTH IN MAILBOX
::TELL APT TO TAKE MSG.
.
::FUT MSG ADDR IN JSR LINKAGE
. -BUMP RETURN ADDRESS

::PUSH 177776 ON STACK
::CALL TYPE MACRO

::FINISHED LAST MESSAGE?

::TELL APT TO TAKE ERROR
::CLEAR FATAL FLAG
::CLEAR LOG FLAG
::CLEAR MESSAGE FLAG
::POP STACK INTO R1
::POP STACK INTO RO
: :RETURN
1 iMESSG. FLAG
110G FLAG
S:FATAL FLAG

APTENV=001

APTSPOOL=100
APTCSUP=040
.SBTTL ERROR HANDLER ROUTINE
".""."t"‘i"t"'Q"""""""Q'l'.'ttQ't't".tt"tlt."l'.t.

—_—————

CZR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

19-JUN-80
30A(1052)
14:14
ERROR HANDLER ROUTINE

D 14
PAGE 173

;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;*AND GO TO TYPERR ON ERROR

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

'SU15 1
'SU13 1
'SU10 1

HALT ON ERROR

;'SUO9=1
;*CALL
ERROR
:®
$SRROR:

001102
002000
001266
001112
001116
000002
145226
020000

016637

162737
104401
013746
104402
104401
162716

145240

001002
000004
000002
033770
001116

033710

001116
001114

FERPPRFRE
PRy
200000

OO0O

FRERR

00O
VAVA
S

@SERRPC,SITEMB

SuB

—_
L X

—

12%:

034136
001273
000001

001316

001114
033364

034056

#2,SERRPC

#BIT13,aSWR
BIT
BNE
20%
(SP),#1002
CMP
12%
BHI
,,PROCESSOUNEXPECTED TRAP OR
4&(SP) ,SERRPC
#2,SERRPC
sus

001273

004
034012

MOVB

TYPE
MoV
TYPOC
TYPE
suB
MOV
MoV
TYPOC
TYPE
CMP

000040
054105
042105
020120

; ;ERROR= EMT AND N=ERROR ITEM NUMBER

TYPE
INC
MOV

BIT
BEQ

033776
000004
001116
001116

036503
0647125
052103
040522
000040

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

::TEST FOR CHANGE IN SOFT=-SWR
;ERFLG
ssSET THE ERROR FLAG
::DON'T LET THE FLAG GO TO ZERO
$TSTNM,aDISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG
#BIT10,aSWR
::BELL ON ERROR?
1%
:sNO = SKIP
;sRING BELL
,$BELL
SERTTL
;s COUNT THE NUMBER OF ERRORS
(SP) ,$ERRPC
::GET ADDRESS OF ERROR INSTRUCTION

CKSWR
INCB
BEQ
MOV

1%:

101046

145310
145300

033706

7%:

001103

—

104407

o0
oo

033614

O0O0O0O000000

9447
9448
9449
9450
9451
9452
9453
9454
9455
9456
9457

MACY11

208:

21%:

BR
LASCIZ
LASCIZ

,108

$ERRPC,~(SP)

118

#4, (SP)
(SP) ,$ERRPC

$ERRPC,~(SP)

+SCRLF

(S:)*,(SP)*

20
<200>'PC= '

;:STRIP AND SAVE THE ERROR ITEM CODE

;sSKIP TYPEOUT IF SET
::SKIP TYPEOUTS

..IF RETURN PC LESS THAN 1002
;ERROR IS ILLEGAL TRAP

INTERRUPT

;sGET PC AT TIME OF FALSE TRAP

;+ADJUST PC

;s TYPE HEADER

:sSAVE SERRPC FOR TYPEOUT
;360 TYPE=--OCTAL ASCIICALL DIGITS)
:sGET FALSE TRAP VECTOR ADDR
;s SAVE SERRPC FOR TYPEOUT
::60 TYPE--OCTAL ASCIICALL DIGITS)

;;POP FALSE TRAP VECTOR PCRADDR

UNEXPECTED TRAP TO °

-EVEN

JSR

PC,TYPERR

::60 TO USER ERROR ROUTINE

CMPB
BNE

gePTENV.‘ENV

JSR

PC,SATYS

: sRUNNING IN APT MODE
:sNO,SKIP APT ERROR REPORT
;2SET ITEM NUMBER AS ERROR NUMBER
: ;REPORT FATAL ERROR TO APT

TYPE

+SCRLF

Move

$ITEMB,21$%

.BYTE

SEQ 0172

. . 1

CZR6KFO RK6 FCTNL CTRL DIAG_
CIROKF.P11
19-JUN-80 14:04
9503
9504
9505
9506
9507
9508
9509
9510

034057
034060
034062
034066
034070
034072
034074
034102

000
000777
005777
100002
000000
104407
032777
001402

9512
9513
gg;g

034110
034114
8%2}53

005737
001402
013716

001264

034122
034130
034132
034134
034134

022737
001001
000000

032162

9511

9516
9517
9518
9519
9520
9521

MACY11 30A(1052)
19-JUN-B0 14:14
ERROR HANDLER ROUTINE
228:
2%:

145052

001000

145036

034104 013716 001110
001264

3$:

48:

i
000042
6%:

000002

PAGE 174

BYTE
BR
ST
BPL
HALT
CKSWR
BIT
BEQ

0
22%
ASWR
33
#B1T09,35WR
43

::APT ERROR LOOP
*“HALT ON ERROR
1iSKIP IF CONTINUE
:iHALT ON ERROR
“'TEST FOR CHANGE IN SOFT-SWR
*:LOOP ON ERROR SWITCH SET?
S:BR IF NO

ST
BEQ
MOV

$ESCAPE
5$
$ESCAPE,(SP)

1:CHECK FOR AN ESCAPE ADDRESS
“:BR IF NONE
::FUDGE RETURN ADDRESS FOR ESCAPE

MOV

CMP
BNE
HALT

SLPERR, (SP)

#SENDAD,3#42
6%

RTI

*'FUDGE RETURN FOR LOOPING

;::ACT=11 AUTO-ACCEPT?
*'BRANCH IF NO
TIYES
: :RETURN

R
el

9522
9523
gg%g

"SBTTL
TYPE ERROR ROUTINE
S«ENTRY JSR PC,TYPERR
*«RETURN RTS P(
."

9526
9527
9528

“«THIS ROUTINE USES THE "'ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
“«ERROR IS TO BE REPORTED. IT THEN USES THE ''ERROR TABLE'' (SERRTB)
*«ENTRY TO DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING

9530

";i"'t'!t..t'"'ii"'"'t""t"t'Itttitiit"'ittit"'.".'ttti'

9529

:«THE ERROR.

9531
9532
9533
9534

034136
034140
034146
034154

104413
113737
062737
113700

9536
9537
9538
9539

034164
034166
034170
034172

005300
006300
006300
006300

9541

034200

012037

9535 034160 042700

001102
177400
001114

034204
034206
034212
034214
034216
034222
034224
034230
034232
034234
034236
034240
034242
034244
034246
034252
034254

001404
104401
104401
000000
012037
001404
104401
104401
000000
012001
001445
005004
012000
012002
104401
112003
105720

TYPERR: SAVREG
MOVB

177400

034214

18$:

001273
034232

2%:
38

001273

48:
5% :

001273

BIC
MOVBE

STSTNM,STESTN
#177400,$TESTN
SITEMB,RO

;GET TEST NUMBER FOR REPORT
:CLEAR UNUSED BITS
*ENTER ERROR NUMBER

DEC
ASL
ASL
ASL

RO
RO
RO
RO

"FORM INDEX FOR ERROR TABLE

BIC
-

9540 034174 062700 001360
9542
9543
9544
9545
9546
9547
9548
9549
9550
9551
9552
9553
9554
9555
9556
9557
9558

001302
001302

108:

ADD

MOV

BEQ
TYPE
TYPE
.WORD
MOV
BEQ
TYPE
TYPE
LWORD
MOV
BEQ
CLR
MOV
MOV
TYPE
MOVB
ISTB

#177400,R0

“CLEAR UNUSED BITS

#SERRTB,RO

:FORM ADDRESS OF ERROR ENTRY

3
,SCRLF

‘BRANCH IF THERE ISN'T ONE
“TYPE CARRIAGE RETURN LINE FEED
*TYPE ERROR MESSAGE (EM)
*EM POINTER GOES MERE
‘GET DH POINTER
‘BRANCH IF THERE ISN'T ONE
‘TYPE CR=LF
*TYPE DATA HEADER
*DH POINTER GOES HERE
“GET DT POINTER
"BRANCH IF THERE ARE NONE
*SET INDENT SWITCH
‘GET DF POINTER
*STORE NUMBER OF DH'S

(RO)+,2%

0
(RO) +,48
5%
. SCRLF

0
(RO) +,R1
208
R4
(RO) +,R0
(RO) +.R2
,S$CRLF
(R()+,R3
(RO)+

‘GET EM POINTER

:GET © STORE NUMBER OF DATA WORDS
"BUMP PAST FORMAT WORD

s
SEQ 0173

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

034256
034260
034262
034264
66

MACY11

005703
001416
005704
001004
013146

TYPE ERROR ROUTINE

11%:

104402

034276

104401

050763

12%:

034304

104401

001273

13%:

14%:

034322

012037

034342

19-JUN-80

30A(1052)

15%:

TST
BEQ
TST
BNE

034344

104401
104401

050763

17%:
18%:

001273

20%:

034354
034360

005237
032777

001632
010000

144552

MOV

034370

022737

000024

001632

034400

104401

034404
034410
034412
034416
034424
034430
034432

005737
001407
012706
012737
000137
000000
000207

R3
13%

BEQ
TYPE
BR

TYPE

BEQ
COM
DEC
BLE
MOV

10%

;IF 0 GET DATA

108

LOSCRLF

ERRCNT

BIT

053227

BEQ
CMP
BHIS
TYPE

#SW12,aSwWR

000042

1ST

MOV
JMP

#1,8E0PCT
$EOP

001100
000001
031772

032020

HALT
RTS

:NO, DO NOT CHANGE INDENT
s CHANGE INDENT
sMORE DH'S?
;NO=-BRANCH

RESREG

:TYPE

14%
R4
R2
20%

.WORD

TYPE

:TYPE IT
:MORE DATA WORDS

:CHECK IF NEXT HEADER AVAILABLE

17%
,SPACE?2

TYPE

:PUT FIRST DATA WORD ON STACK

(RO)

BEQ
TYPE

;TEST IF ANY DATA FOR THIS HEADER
:NO = SKIP DATA PRINT
;CHECK FOR INDENT
:YES, GO INDENT

sNO=BRANCH
:TYPE .SEPARATORS
;LOOP

(RO)+,18%

BEQ

- SEQ 0174

,SPACE?2
11%
LSCRLF

TST

BEQ
MOV

PAGE 175

a(R1)+,=-(SP)

TYPOC
DEC

INC

R3
14%
R&
12%

1ST

034334

14:14

25%
#20. ,ERRCNT
25%
,ABORT

22%
#STACK,SP

:GET WEXT DH POINTER
s INDENT?

:NO, BRANCH
;TYPE INDENT
;TYPE DH

;:DH POINTER GOES HERE

:GET DATA
s INCREMENT THE ERROR COUNT.

:CHECK IF SWITCH 12 SET

:NO, RETURN
:CHECK IF ERROR THRESHOLD EXCEEDED
:NO, RETURN
:TYPE '"'PROGRAM ABORTED BECAUSE

;ERROR THRESHOLD EXCEEDED'
;CHECK IF

CHAIN MODE

:NO, HALT PROCESSOR
JINITIALIZE STACK

FORCE END OF PROGRAM

NON-EXISTANT MEMORY AND INTERRUPT CHECK HANDLER
THIS ROUTINE SETS THE INTERRUPT FLAG AND DOES AN RTI.
THIS

IS THE

INDICATION TO THE ROUTINE CHECKING

NON-EXIXTANT MEMORY THAT AN INTERRUPT DID OCCUR.

034434
034440

(05237
000002

001662

NEXINT:

A?E

.SBTTL

RK611

M
*
.

034442
034444

000240
005237

001662

INTSET

;BUMP THE INTERRUPT COUNTER

INTERRUPT HANDLER

MOST INTEKRUPTS FROM THE RK611 ARE HANDLED BY THIS ROUTINE.
PROCESSING AS A RESULT OF THE INTERRUPT IS LEFT TO THE MAIN
PROGRAM.
THE HANDLER JUST SETS A FLAG TO INDICATE THE
INTERRUPT OCCURRED.

INTHLR: NOP

INC

INTSET

;BUMP THE INTERRUPT FLAG

ACTUAL

CZR6KFO RK6 FCINL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

9615

9616
9617
9618
9619
9620

9621
9622
9623
9624
9625
9626
9627
9628

034450

MACY11

020000

012737

000001
001100
031772

104401
104402

012706
000137

144460

9657
9658
9659
9660
9661
9662
9663
9664
9665
9666
9667
9668
9669
9670

PERHLR:

053456
032020

1%:

034506
034512
034520

005237
062777
000002

001674
000200

145170

LCKHLR:

.SBTTL
;t
:t

VRO
N NN S~

034522
0345264
034530
034534
034542
034550
034554
034562
034566
034570
034572
034576
034600
034602
034610

042737

034662

OPTTST:

000004
000006

BIT

#BIT13,35uWR

;TEST IF INHIBIT REPORT

TYPE
TYPOC
MOV
Mov

JEM3

;TYPE PARITY ERROR MESSAGE
;AND PC VALUE
;FORCE END OF PROGRAM
;CLEAN OFF STACK

BNE

INC

g%g

177750

002000
000100

001714
000001
000001
000002
000002
001670

001716

001672
001664
001664

LCLKTK

#BIT7 ,3KWLADD

; INCREMENT CLOCK TICK COUNTER
;CLEAR MONITOR BIT

22222223 2222222222322 22222222202

RRRRRRRRRRRRRR)

LINE CLOCK ARE ON THE SYSTEM. FLAGS ARE SET IF PRESENT; CLEARED
SAVREG

MOV
MOV

BIS
BIS
BR

6%:

$EOP

OTHERWISE, AND THE APPROPRIATE INTERRUPT VECTORS ARE SET UP.

MOV

3%:

#1,8EOPCT
#STACK,SP

:YES = SKIP

OPTION PRESENT TEST AND SETUP
THIS ROUTINE CHECKS IF THE MEMORY PARITY OPTION AND THE

CLR
BIC
TST
NOP
NOP
TST
NOP
NOP

001664

LINE CLOCK INTERRUPT HANDLER
THE LINE CLOCK INTERRUPT HANDLER WILL INCREMENT THE LCLKTK
(LINE CLOCK TICK COUNTER) EACH TIME AN INTERRUPT OCCURS.

MOV
MOV

177770

034616
034624

034626
034632
034636
034642
034644
034650
034654
034656

000004
000006
034754
000340
001670
000100
170200

;RETURN.

MEMORY PARITY TRAPS WILL BE REPORTED BY THIS ROUTINE. THE REPORT
WILL INCLUDE THE PC AT TIME OF FAILURE AND ABORT THE PROGRAM.

222222222222

- SEQ@ 0175

MEMORY PARITY ERROR TRAP HANDLER

JMP

LSBTTL

SOOOO—'
-l kO

9638
9639
9640
9641
9642
9643
9644
9645
9646
9647
9648
9649
9650
9651
9652
9653
9654
9655
9656

19-JUN-B0
INTERRUPT HANDLER
RTI

032777
001003

<>c"=<38¥35252
VO WwW

9636
9637

RK611

000002

9629
9630

9631
9632
9633
9634
9635

30A(1052)

.SBTTL

034452
034460
034462
034466
034470
034476
034502

G 14
14:14
PAGE 176

MOV
MOV
MOV
TST

BIS

BIT

BNE
BIS

BIT

BNE

MOV

ERRVEC,=(SP)
ERRVEC+2,-(SP)

;STORE OLD NEM CONTENTS

170200

;:DET INTERRUPT FOR NEM
;SET PRIORITY
sCLEAR PARITY WORD FLAGS
sCLEAR PARITY PRESENT FLAG
;TEST IF EITHER 11/70 OR 11/44

177770

;NOW SEE IF IT'S 11/70

#177750,CSRPTR
#CP1170,0PTFLG

;SET POINTER FOR 11/70
;SET 11/70 FLAG
;SET PARITY PRESENT FLAG
;G0 TO VECTOR SETUP

#20% ,ERRVEC
#PR7 ,ERRVEC+2

MEMPAR
#PARPRE ,OPTFLG

#PARPRE ,OPTFLG

35%

MEMBAS,R3
#1,R4
. (R3)

(r%)

#BIT1, (RD)
#8171, (R3)
478

R4 ,MEMPAR
#PARPRE ,OPTFLG

10%
MMVECA RO

;SET UP POINTER TO FIRST PARITY (SR
s INIT MASK
;SET PARITY DETECT IN THAT (SR
;1S THIS ECC MEMORY?
;YES = EXIT

;SET PARITY PRESENT BIT

;WAS PARITY PRESENT SET BEFORE

:YES - SKIP
;SET UP FOR PARITY TRAPS

034736
034740
034744
034746
034750
034752
034754
034756
034764

ST NT.N
NW ~
D)
b ~N
OO o

— e

] D e

OWNOWOW

—
— e PN

034702
034706
034712
034716
034720
034726
034732

[SLNTSIVTNTNT
N
NNSNNSNNSN

034676

H 14

MACY11 30A(1052)
19-JUN-BO 14:14 PAGE 177
OPTION PRESENT TEST AND SETUP

034766
000340
072640

MOV
MOV
MOV

#408%, (RO) +
#PR7
. (RO)
#OBUFF +224 ,R0

000004
177777
000001

MOV

#8172, (R3)

000100
000002
000000

;
;
108:

000434
022626

012737
000720

035040

001672
000100
000000
000000
000001

035020

000000
000100
001670

000004

208:

408 :
001664

001664

N=N
NOOO~NN OOWOOWm

DWW

purp—y 1]
)R

& 28
8B NN
=
SN
OSO

p— g
i
S

L L L A

VAVAVA VAV

VAWV

BIC
MOV

#PARPRE ,OPTFLG
#2,(R3)

BIC
MOV

#7.(R3)
#0.(RO)

MOV

47%:

144546

CZR ERROR ENABLE

;CLEAR BAD PARITY
;REV 006
;REV 006
;REV 005
;BUMP TO NEXT (SR

;CLEAR STACK
;SET NEW NEM TRAP ADURESS
;G0 TO CSR CHECKS

(SP)+,(SP)+

sCLEAR STACK
:SET CSR POINTER FOR CSR TO BE USED

35%

(MP
MOV
BR

CMP

MOV

R3,CSRPTR

BIS
MOV

#PARPRE ,OPTFLG
#0, (R3)

35¢

;SHIFT MASK
IF

ALL DONE

;YES = SKIP

:SET PARITY PRESENT FLAG

:TURN OFF

CSR ERROR ENABLE

#0° (RD)
#1.(R3)

;WRITE GOOD PARITY
:EE}TTO DETECT PARITY ERRORS

MOV

#0, (R3)

;CLEAR CSR

CLR

MEMPAR

;FORGET THEM ALL
JEXIT
;CLEAR STACK
;G0 CHECK NEXT CSR
:SET UP POINTER TO PARITY VECTOR
:TEST IF ANY PARITY PRESENT
:YES - SKIP
;TEST IF 11/70
sNO - SKIP
;SET UP PARITY VECTOR
:SET PRIORITY

BIC

398:

000340
000100

:TRUN OFF

(SP)+,(SP)+
#30$,ERRVEC
3$

000116

38%:

;REV 005

;TEST

37¢:

000004

;READ BAD WORD

ROL

034452
000340

034434

35§

:SET POINTER TO BUFFER WHERE BAD PARITY
1S USED IN THE TESTS
;
;SET TO WRITE WRONG PARITY
;WRITE WORD BAD
:SET TO DETECT PARITY ERROR

BNE

BNE
BIT
BEQ
MOV

001664

#0. (RC)

T0 40%

#2,R3

35¢:

002000

(RO

;

ADD
CLC

BR
CMP
BR
MOV

001716
001670

[P S

#-1,(RO)
#1,(R3)

MOV
MOV

308 :

0351

MOV
MOV

TST

001664

000002

034766
034770
034774
035002
035006
035012
035016

[=lelelelelelelele]

9674
9675

034666
034672

LN U L

9671
9672
9673

[eleleleleloeleBNelole]

CIREKFO RK6 FCINL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

MOV

BR
MOV
CLR
MOV
CLR
MOV
MOV

MOV
MOV

NOP
NOP

#PARPRE ,OPTFLG

35¢
(SP)+,(SP)+
108
MMVECA,RO
37%
#CP1170,0PTFLG
39
#PERHLR, (RO) ¢+
#PR7, (RO)

388
#116, (RO) +
(RO)
#NEXINT,ERRVEC
INTSET
KWLVEC,RO
#LCKHLR, (RO)
+

#PR7, (RO)
#B176,3KWLADD

JEX

sFORGET

THEM ALL

;ELSE RESTORE TRAP CATCHER

;SET UP NEM VECTOR FOR LINE CLOCK TEST
;CLEAR INTERRUPT COUNTER
;SET POINTER TO VECTOR
: INSERT ADDRESS OF INTERRUPT HDLR
; INSERT PRIORITY
;LOAD KW11-L FOR INTERRUPT ENABLE
-

SEQ 0176

VIVTUTTWTWAITITAIWA
NIMNOMNVMNOMPNOININ
b b b e

052737
012701
005037
012637
012637
012746
012746
000002

N-—l—‘—'—'OONfigm
vV
e
o
rOoo
oo OO
o

AWD
b b s

000240
005737
001003

NN NN NN NN

[olelelelelelelelelele Nelel-]

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

MACY11

30A(1052)

000006
001662
000006
000004
000000
035216

NOP

001664

I 14
PAGE 178

1ST
BNE

INTSET
4%

:TEST IN NEM ON KW11=-P REFERENCE
;THIS BRANCH WILL BYPASS SET UP OF

BIS

#LCLKPR,OPTFLG

;SET CLOCK PRESENT FLAG

CLR
MOV

INTSET
(SP)+ ERRVEC+2

MOV
MOV

MOV

12%:

104414

14:14

OPTION PRESENT TEST AND SETUP

001662
100000

19-JUN-80

000207

RTI

RESREG
RTS

#6,R1

(SP)+ ERRVEC

#PRO,~-(SP)

#12%,-(SP)

;CLOCK OPTION

sRESTORE OLD VECTOR

sCLEAR INT FLAG

;RESTORE PRIORITY TO 0

;:."'"'fi".""""'"'""'"""Q.""""'."."."t""'"'

LSBTTL

LOOP ON INTERNAL ERROR

TO BE EXECUTED ON ERROR.

ot
3
035222
035230
035232
035236
035240
035244

032777
00i405
105737
001402
013716
000002

001000

143710

001103

001110

SCOP1$: BIT
BEQ
ggga
5%:
LSBTTL

A
o
oX
H

005037
032737
001004
012737

001674

100000

001€64

000020

001654

001662

001674

005037
000207

001674

THIS ROUTINE IS USED TO PROVIDE TIGHT SCOPE LOOPS. THE CALLER
IS EXPECTED TO SET SLPERR TO THE START OF THE SCOPE LOOP
#SW9,aSWR
5%
gERFLG

MOV
$LPERR, (SP)
RTI
LINE CLOCK CALIBRATE

;CHECK IF LOOP ON ERROR
sNO, CONTINUE
:CHECK IF ERROR OCCURRED
:LOAD ERROR RETURN
:RETURN

WAITS FOR A LINE CLOCK INTERRUPT TO CAL'BRATE THE INTERRUPTS
TO A MEANINGFUL TIME VALUE. IN ADDITION IT PRESETS
THE TIMCNT IF THERE IS NO LINE CLOCK. TIMCNT IS USED IN THE
LINE CLOCK SIMULATOR.

CLKCAL: CLR
BIT
BNE
MOV
BR
1%:
TST
BNE
TST

LCLKTK
#LCLKPR,OPTFLG
1%
#16.,TIMCNT
2%
INTSET

LCLKTK

1%
LCLKTK
PC

;CLEAR TICK COUNTER
;TEST IF CLOCK PRESENT
;sYES = SKIP

sELSE PRESET TIMCNT
JAND EXIT
;TEST IF INTERRUPT HAS OCCURRED
:YES= ABORT CALIBRATICN
JWAIT FOR CLOCK TICK
;sNOT YET - LOOP
sCLEAR TICK COUNT

2%:

BEQ
CLR
RTS

LSBTTL

LINE CLOCK SIMULATION ROUTINE

o
"
ot
20
o

e
B
i

;RETURN

LINE CLOCK TICK COUNTER IS BUMPED. THEN THE TIMCNT
I?CRESE‘ T0 16 (REPRESENTS 16 MILLISECONDS PER LINE CLOCK
T1CK),

SEQ 0177

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN=-80 14:04

J 14
MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 179
LINE CLOCK SIMULATION ROUTINE

9783

g;gg

9786
9787
9788
9789
9790
9791
9792
9793
9794
9795
9796

9797
g;gg

o
b

035314
035316
035322
035326
035330
035332
03533&
035340
035342
035346

035354
035356

010046
013700
005737
001012
005300
001373
005337
001005
005237
012737

012600
000207

001652
001662

001654
001674
000020

9800
9801

9802
9803
9804
9805
9806
9807

9814

035360
035362
035366
035370

104413
012700
000463
104413

035372

012700

9816
9817
9818
9819
9820

035400
035402
035406
035410
035412

104413
012700
000453
104413
012700

9822
9823
9824
9825
9826
9827
9828
9829
9830
9831
9832
9833
9834
9835
9836
9837
9838

035420
035422
035426
035430
035432
035436
035440
035442
035446
035450
035452
035456
035460
035462
035466
035470
035472

9815

9821

035376

035416

000457

000447

104413
012700
000443
104413
012700
000437
104413
012700
000433
104413
012700
000427
104413
012700
000423
104413
012700

000764

007246
000200

000077
000012
000011

000010

000007
000006
000005

THUS THE ROUTINE RETURNS TO THE CALLER AFTER1 MILLISECOND

AND BUMPS THE LINE CLOCK TICK COUNTER FOR EACH 16 CALLS.

MYTIME: MOV
MOV
1%:
TST
BNE
DEC
BNE
DEC
BNE
INC
MOV

RO,=(SP)
MILCNT,RO
INTSET
2%
RO
1%
TIMCNT
2%
LCLKTK
#16.,TIMCNT
(SP)+,R0
PC

:SAVE RO
:SET COUNT
;TEST IF INTERRUPT SET
;YES - SKIP
:DECREMENT COUNT TO ZERO

:DECREMENT TIMCNT
:1F NOT ZERO = EXIT
;ELSE BUMP TICK COUNTER
;RESET TIME COUNT
;RESTORE R\
:RETURN

2%:

MOV
RTS

.SBTTL
it
it
.
T

WAIT FOR INTERRUPT ROUTINE
THE ROUTINE 1S ENTERED BY ONE OF FOURTEEN TRAP CALLS.

BE IN THE LOCATION AFTER THE CALL TO INTERRUPT WAIT.

i
i
i

gggg
9810
9811
9812
9813

001654

]

THE CALL
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

IWAT8S: SAVREG
MOV
BR
IWATIM: SAVREG

MOV
B8R

IWAT2S: SAVREG
MOV
BR
IWAT1S: SAVREG
MOV

IWAT159:
IWAT144:

IWAT128:
IWAT112:

#500.,R0
WATSRT

;ENTRY FOR 8 SECOND WAIT
‘ENTRY FOR 1 MIN WAIT

#3750. ,R0

WATSRT

MOV
BR

:ENTRY FOR 2 SECOND WAIT
#128..R
WATSRT
:ENTRY FOR 1 SECOND WAIT
#63.,R0
WATSRT
SAVREG
:ENTRY FOR 160 MS WAIT
#10..,R0
WATSRT
SAVREG
:ENTRY FOR 144 MS WAIT
#9..R0
WATSRT

MOV
BR

WATSRT

MOV
BR

MOV
BR
IWAT96: SAVREG
MOV
BR
IWAT80: SAVREG
MOV

:ENTRY FOR 128 MS WAIT

SAVREG
#8. R0
SAVREG
#7,R0
WATSRT
#6,R0
WATSRT
#5,R0

:ENTRY FOR 112 MS WAIT
:ENTRY FOR 96 MS WAIT
‘

;ENTRY FOR 80 MS WAIT

SEQ 0178

CIR6KFO RK6 FCINL CTRL DIAG
19-JUN-80 14:04
CIR6KF P11

000417
104413
012700
000413
104413
012700
000407
104413
012700
000403
104413
012700
012746
012746
000002

012737
004737
005737

MACY11

19-JUN-80
14:14
30A(10 52)
WAIT FOR INTERRUPT ROUTINE

000004

000002

#2,R0
WATSRT

MoV

#1,R0

001654

100000

001664

001372
001370

033122
000002

001264
001264

;ENTRY FOR 16 MS WAIT

MOV

#16.,TIMONT

;PRESET TIME COUNTER

1%:

TST

INTSET

;TEST

JSR

3$:

4%:

INTERRUPT OCCURRED

MOV
MOV
ASL
Mov
suB

NEML EM2N
;MESSAGE (NO INTERRUPT OR INTERRUPT LATE)
$TESTN,RO
;GET NUMBER OF PRESENT TEST
RO
;SHIFT FOR INDEX
$SWOBTB(RO) ,$ESCAPE
;LOAD ESCAPE TO ABORT TESTS
:%.‘ESCAPE
:BUT GO TO NEXT SCOPE CALL

BR
ADD
RESREG
RYI

T.CS1,R1
#177741 ,R1

;ELSE CALL SIMULATOR
sTEST

IF ENOUGH TICKS COUNTED

:NO - LOOP
;ELSE GET '611 REGS
;PUT CS1 IN R1= STRIP ALL BUT

;COMMAND CODE;

INDEX INTO TABLE

CMNDLB(R1) ,DH2N :AND SELECT HEADER TO IDENTIFY OPERATION

#2,(SP)

;BUMP RETURN AROUND ERROR
;RESTORE REGS
sRETURN

“L'* REGISTER LOADING ROUTINE
THE PARAMETERS FOLLOWING THE CALL 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.

%
B3

CALL:

JSR
R4 ,LRLOAD
COMMAND
WORD COUNT
BUS ADDRESS
.BYTE
SECTOR ADDRESS
.BYTE
TRACK ADDRESS
CYLINDER ADDRESS

MOV
MoV

RO,=(SP)
R1,-(SP)

LR TR TR

;YES = EXIT
TEST IF KW11-L AVAILABLE
;YES = SKIP

;GO CALIBRATE THE CLOCK

3%
#LCLKPR,OPTFLG
2%
PC,MYTIME
LCLKTK,RO
1%

TR LR LR LR

PC,CLKCAL

BE
BIT
BNE
JSR
CMP
BLO
TGE TRK
MOV
BIC

MOV

010046
010146

;ENTRY FOR 32 MS WAIT

5$%:

.SBTTL

035674
035674
035676

;ENTRY FOR 48 MS WAIT

;LOAD PRIORITY 0 ON STACK
;LOAD ADDRESS

2%:

050120
053526
001302

;ENTRY FOR 64 MS WAIT

#PRO,=-(SP)
#5%,-(SP)

RTI

000020
035246
001662

#3,R0
WATSRT

SEQ 0179

MOV

001540

000002

#4,R0
WATSRT

WATSRT: MOV

035314
001674

035672

MOV
BR

IWAT16: SAVREG

000001
000000
035550

000002

WATSRT

IWAT4LB: SAVREG
MOV
BR
IWAT32: SAVREG
MoV

000003

177761

IWATAG: SAVREG

K 14
PAGE 180

LRLOAD:

: ;PUSH RO ON
;sPUSH R1 ON

STACK

ST ACK

VN
=
NN

~
o

O—-O
ge882ee
~N

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P

L 14
MACY11 30A(1052)
19-JUN-80 14:14 PAGE 181
"L"' REGISTER LOADING ROUTINE

001600
000004

1%:

001626

MoV
MOV
RTS

035732
SBTTL
e TETRE TR

005037
010046

001662

000002

000006

000004
000007

001720
001600

001600

1%:

000002

005737

000207

;GET ADDRESS OF L REGS
;PRESET COUNT

RO
1%
DRVNUM, (R1)+
(R1)+
(R&)+, (R1)
(SP)+.R1
(SP)+.RO

;LOAD DRIVE NUMBER
;BUMP PAST ASOF
:LOAD DCYL
;sPOP STACK INTO R
;.POP STACK INTO RO

(RG)+,(R1)+

R&4

;MOVE FIRST FOUR WORDS INTO 'L'' REGS
:CS1, WC, BA, DA

LOAD RK611 FOfi OPERATION

MOV
MoV
MOV
MOV
ADD
MOV
MOV
MOV
MOV
ADD
"MOV
MOV
ADD
MOV

001602

001102

#L.CST,R1
#4 RO

THE REGISTER SETUP STORAGE IS TRANSFERRED TO THE RK611 REGISTER.
THIS IS A STRAIGHT TRANSFER WITH NO CHECKING OR MANIPULATION
OF THE REGISTER CONTENTS. é §é$s1 IS TRANSFERRED LAST AS IT
*
SHOULD BE IF THE GO BIT
:
OADRK CLR
INTSET
:CLEAR INTERRUPT FLAG.

035734
035740
035742
035744

Mov
MoV
MOV
DEC
BNE
MOV
TST
MoV

CMPB
BEQ
BIS
MoV
MOV
MOV
RTI

RO,=(SP)
R1,=(SP)
#L.WC,RO

*STORE REGISTER

#2 R

;PUT R1 PAST RK(S1

R2,R1

(ROY+, (R1)+

(RO)+. (R1)+
(RO)+, (R1)+
(RO)+, (R1)

#6,R1

(ROY+, (R1)+

(RO)+. (R1)+
#4 R
(ROY, (R1)

#7
STSTNM,
1%

DTYPE,L.CST

L.CS1,(R2)
(SP)+,R1
(SP)+,RO

;GET ADDRESS OF SETUP STORAGE W(C
;GET BASE ADDRESS

;LOAD WORD COUNT
:LOAD BUS ADDRESS
;LOAD DISK ADDRESS
;LOAD (CS2
;:BUMP R1 TO ASOF
:LOAD OFFSET
sLOAD CYLINDER
;BUMP R1 TO MR1
;LOAD MR1
;SEE IF TEST 7
:BR IF YES
;ELSE SET CORRECT DRIVE TYPE
;LOAD (CS1
;RESTORE REGISTER
sRETURN

:THIS ROUTINE LOADS CONSTANTS EITHER FOR THR RKO6 OR THE RKO7
DTYPE
LDCON: TST
:SEE IF RK06

001720
001456

036120
036122

000040

036132

000632
036122
002000
036132

036120

036130

13
#1456,LSTCYL
#1000, TSTCYL
HOLD?2
#DTYE ,HOLD3

:BR IF YES
“ELSE LOAD RKO? CONSTANTS

MOV

#632,LSTCYL

MoV

#CDT,HOLD?

;RKO6 CONSTANTS
sMAY NOT BE NEEDED

RTS

BEQ

MoV
MOV
CLR
MOV
RTS

1%:

CLR

:MAY NOT BE NEEDED

TSTCYL

HOLD%

SEQ 0180

CIR6KFO RK6 FCTNL CTRL DIAG

CIR6KF.P11

19-JUN-80 14:04

9951
9952

036120

9954
9955

036124 000000
036126 000000

9953
9956
9957

036122

036130
036132

MACY11 30A(1052)

000000

HOLD2:
HOLD3:

9967
9968
9969
9970
9971
9972
9973
9974

036150
036152
036160
036162

006301
016137
006201
000207

9978
9979
9980
9981

036164
036166
036170
036172

001722

001720

001722

001720

9975
gg;g

036176
0362
036204

036206
036210
036212

010046
010146
010346
012700

010201
012703
012120

005303
001375
062701

9988 036216 005720
9989
9990

036220
036224

9993
9994
9995
9996

036232
036234¢
036236
036240

036226
036230

012703
012120

000012

‘FOR T173.1056
‘FOR 71058

O
O

‘FOR T7
‘FOR T12

ASR
RTS

RO
TYPTBL
(RO) ,DTYPE
RO
PC

GTYP1:

ASL
MOV
ASR
RTS

R1
TYPTBL(R1) ,DTYPE
R1
PC

.SBTTL
M

STORE RK611 REGISTERS
ALL THE RX611 REGISTERS ARE STORED IN THE TEST TABLE T

WITH THE EXCEPTION OF THE DATA BUFFER WHICH IS NOT STORED IN
THIS ROUTINE.

GETRK:

MOV
MOV
MOV
MOV

RO,-(SP)
R1.=(SP)
R3.=(SP)
#7.CS1,RO

DEC
BNE
ADD

R3
1%
#2,R1

|
000002

000004

2%:

005303
001375
012603
012601
012600
000002

:SBTTL
e

036262

016637
010346
005037
012703
000241

000002

001260
000021

MOV
MOV
MOV

151

e
M

036242
036250
036252
036256

ASL

MOV

.
3

1%:

}838?

10006

CTYPO:

001540

9998
II9

10002
10003
10004
10005

:FOR 120,57,60 MAY NOT BE NEEDED

O
O

:THESE ROUTINES LOAD THE CORRECT DRIVE TYPE INTO DTYPE
006300
016037
006200
000207

9997

PAGE 182

TSTCYL: 0

HOLD:
HOLD1:

000000
000000

036134
036136
036144
036146

9991
9992

M 14

LSTCYL: 0

000000

9962
9963
9964
3322

9985
9986
9987

14:14

LOAD RK611 FOR OPERATION

ggg?

9982
9983
9984

19-JUN-B0

001256

MOV
MOV
DEC
BNE

MOV
MOV
MOV
RTI

R2,R1
#10..,R3
(R1)+,(RO)+

(R6)0

#4,R3
(R1)+,(RO)+
R3
2%
(SP)+,R3
(SP) +.R1
(SP)+.RO

BIT COUNTER IN A WORD

:STORE REGISTERS TO BE USED

;SET POINTER TO TEST TABLE
:SET POINTER TO RK611 BASE
:SET COUNT FOR 1ST 10 REGS
:STORE RKCS1 THROUGH RKSPAR
:BUMP POINTER PAST RKDB

;BUMP POINTER PAST T.RKDB

:SET COUNT FOR LAST S REGS
:STORE RKMR1 THROUTH RKMR3
;RESTORE REGISTERS
;RETURN

THE WORD WHOSE BITS MUST BE COUNTED IS PLACED ON THE STACK
BY THE CALLING ROUTINE. THE NUMBER OF BITS FOUND IN THE WORD
ARE PASSED BACK ON THE STACK.

BITCNT: MOV
MOV
CLR
MOV
CLC

2(SP),$TMP16
R3,=($P)
$STMP17
7. ,R3

:GET WORD WHOSE BITS ARE TO BE COUNTED
*STORE R3
sCLEAR $TMP16 FOR COUNTING
*SET A SHIFT COUNTER
sCLEAR CARRY

SEQ 0181

CIR6KFO RK6 FCTNL CTRL DIAG
CIR6KF P11
19-JUN-80 14:04

006037
103407

001256

1%:

000002

$TMP17,2(5P)

:PUT COUNT OF BITS ON STACK
*KETURN

:BUMP COUNT
:LOOP

Mov
MOV

RO,=(SP)
R1,-(SP)

;sPUSH RO ON STACK
;:PUSH R1 ON STACK

Move

(R&)+,R1

;GET PARTIAL PHASE ADDRESS COUNT

8
8
%
%

:gL
L

036360

$TMP17
28

OF PHASES ADDRESSES THE CALLING ROUTINE WANTS THE CONTROLLER
CLOCKED THROUGH AND THE SECOND BYTE CONTAINS THE NUMBER OF
CLOCK TRANSITIONS(PARTIAL PHASES) TO BE DONE.

MOvB

000400
000400

‘WAS BIT SHIFTED OUT A 1?
iNO = DEC COUNT
1LOOP IF NOT Zewo
:RESTORE R3

THE PARAMETERS PASSED TO THIS ROUTINE ARE LOCATED IN THE
ADDRESS OFTER THE CALL. THE FIRST BYTE CANTAINS THE NUMBER

I YETETRETE

MOV

3$
R3
1%
(SP)+,R3

MAINTENANCE CLOCK ROUTINE

MCLOCK:

010046
010146
112400
112401

SEC

;ROTATE WORD.

INC
BR

.SBTTL

036316

PAGE 182

$TMP16

RTS

3%:

001260

N 14

ROR

BCS
DEC
BNE
MOV

2%:
001260

ADD

BIS
BIC
DEC
BNE
MOV
:g!

000026
000026

000204

(R&4)+,RO

:GET NUMBER OF CONTROLLER PHASE ADDRESSES

;MULTIPLY PHASE ADDRESS

R1,R0

;ADD IN PARTIALS

#MCLK ,RKMRT(R2)
#MCLK ,RKMRT(R2)
RO
1%
(SP)+,R1
ézP)*.RO

COUNT BY 4

;SET CLOCK
;CLEAR MCLK
;DECREMENT COUNT
;LOOP IF NOT ZERO
;;POP STACK INTO R1
::POP STACK INTO RO

READ AND SORT HEADERS

THE HEADERS IN THE CYLINDER AND TRACK SPECIFIED BY

THE FIELDS IN THE "'L'' REGISTERS ARE READ AND STORED IN
ASSCENDING ORDER. CONTROLLER ERRORS ARE CHECKED IN THE
READ HEADER OPERATION AND DATA LATE IS CHECKED AFTER
EACH READ OF THE DATA BUFFER.

O —

sgesess
—

[=1=]

orN

= -t

i
RS 33

CALL:

[«lelelelelelelele]

55335333833 $

§§33$&$¥~'$$ SsEeseeee L 3

WN = OOVENOWVMSWN
OOV
NOWVSWN-O

38888 88822323222323232222323232322223282

10007

MACY11 30A(1052)
19-JUN-B0 14:14
STORE RK611 REGISTERS

100000

001664

143310

000026
010000
000024
070414

001600
1%:

SAVREG

BIT

BEQ
CLR
MOV
BIT
BEQ
MOV
MoV

JSR

R4 ,RDSTHD

ERROR
ERROR
ERROR

&4 ;OR 5, 6, 7
13
P4

TCHKOP

#LCLKPR,OPTFLG

TEST

:RETURN POINT IF CIRR IN READ HDA

_
sRETURN IF DATA LATE IN DB UNLOAD
;RETURN IF TO SLOW OR
1F HDR O NOT FOUND
IF

CLOCK PRESENT

sNO - SKIP
20%
@KWLADD ;RESET INTERRUPT
sPRESET FOR 26 SECTOR FORMAT
#26 ,R0
SCFMT,L.CH
;1S 264 SECTOR MODE SET?
N0 - SKIP
1%
#24 R0
JELSE CHANGE 1O 24 SECTOR MODE
#1BUFF R
;SET POINTER TO INPUT BUFFER

CIR6KFO RK6 FC TNL CTR
CZR6KF .P11

WVINY

W
~ NNNN)
o o000
PORNORNILNIN
S~

8°°
Oed
OOOgOO
cdedod
WO
O

000020

001654

001600

001600
000000

000006

053526
050324

001370
001372

005762

000000

100474

005300
001325

3288
8\1"\'—0\’! oo

036602
036604

2s:

4%:

000010

100000

001664

000100
000037

143064
000002

056276
001372
070414

;SAVE NUMBER OF SECTORS
;SAVE IBUFF ADDRESS
;SET UP POINTER TO RKDB

MOV

#16.,TIMCNT

MOV

;SET TIME COUNTER
;CLEAR INTERRUPT FLAG
;CLEAR TICK COUNTER
;SET DRV TYP

L.CST1,RKCST1(R2 ) ;LOAD COMMAND

ADD
MoV
MoV
Mov

3$:

062766
104420
012737
012737
000466

005762
100443

SRS

000010
000020
000006

0353714
001674

036574
036600

ChEeE £§§§§§§§

000024
001626
001614
001606

5$:

CLR
CLR
BIS

7%:

INTSET
LCLKTK
DTYPE,L.CST

:TEST IF INT CCCURRED

ADD
TGE TRK
MoV
MOV

#6,6(SP)

:SET RETURN FOR TO SLOW
;sGET RK REGS

#OPER24 ,DH2N
10%

TST
BMI

RKCS1(R2)
1%

;TEST FOR CONTROLLER ERROR

MOV
MoV
MOV

(R3),(R4)+
(R3),(R4)+
(R3),(R4)+

;STORE HEADERS

TST
BMI

RKCS2(R2)
8%

;TEST IF DATA LATE
:YES = SKiP

DEC
BNE

sDEC SECTOR COUNT
;IF NOT ZERO - LOOP

BIT
BEQ

#LCLKPR,OPTFLG

;TEST IF CLOCK PRESENT

#EML ,EM2N

MOV

#B1T6,3KWLADD
g%?.Z(R1)

MOV
MOV
MOV

(R1)+,(R4)+
(R1)+,(R4)+
(R1)+,(R&)+

DEC

RS
5%
#EM56 ,EM2N

BIT
BEQ

CLR
BR

68:

DRVNUM,RKCS2 ( (R 2 ) ;LOAD DRIVE NUM
L.DCYL,RKDCYL( R 2) ;LOAD CYLINDER NUM
L.DA,RKDA(R2)
;LOAD TRACK AND SECTOR

INTSET
4s
PC,MYTIME
LCLKTK

TST

BNE
JSR
TST
BEQ

BNE
MoV

001370

B 15
PAGE 184

RO,RS
R1,R4
R2,R3
#RKDB,R3

MoV
MOV
MOV

001662

011324
011324
011324

036662
036666

MACY11 30A(1052)
19-JUN-80 14:14
READ AND SORT HEADERS

010005

036566
036570
036572

oaooo [~lelelelelele]

382238328
WNN—=O
NV

i
D

i
-

—

D el

[el=lol-Tolololelelelolelelelelelolole)
— e
b

dJfldddddfldd‘ddddddddddfldddddddddd

(V.

8882888382882 8888

NNNS

P p———

EERFEREREE 238 SEERRREIRE SR552
g% 35
g
&

19+ JUN~-80

DIAG
14:04

MOV
MOV

DH2N
9%

;sYES = SKIP

JWAIT 1 MS
;HAVE WE WAITED 16 MS?

:NO = LOOP ON WAIT

:LOAD MESSAGE ''TO SLOW/NOT COMPLETE''
:&0?2 COMMAND ''READ HEADER'' FOR REPORT

s EK

:YES - SKIP

:NO - SKIP

sSET INTERRUPT ENABLE

;HEADER AT TOP OF BUFF=HEAD 0?

;YES - SKIP
;ELSE MOV THIS HEADER TG BOTTOM-

:TEST FO INSURE HEAD O IS FOUND

:1F ALL HEADERS NOT CHECKED - LOOP
:ELSE ""HEADER O NOT FOUND'' MESSAGE
;SKIP

;GET TOP OF IBUFF

+MOVE HEADERS SO THEY START AT TOP OF I[BUFF

SEQ 0183

—eeee

E%RbKFO RK6 FCTNL CTRL DIAG

R6KF P11

0165

0160
0161
0162
0163
0164

N
—

OONOVEBWN=SOCRNOVNSWN
2O OB NO VNS WOV~
TN WN-O

10166

10167
10168
10169
10170

19-JUN-80 14:04

MACY11 30A(1052)

READ AND SORT HEADERS

036670
036672
036674
036676

012120
012120
020004
001373

036700
036706

062766
000423

000010

000006

036710
036716
036724
036732
036734

012737
012737
062766
104420
013700

054541
056707
000004

001500
061022
000006

036740
036742
036750
036756
036760

006300
016037
162737

19-JUN-BC

MOV

001302
033122
000002

8S$:
9%:

037006
037010

005301
001374

037016
037022
037026
037034
037040
037046
037052
037054

012701
005037
013762
010162
012762
012703
005303
001376

000000

037002 012720 177777
037012

037056
037

037
037074
037076

012700

(R1)+,(RO)+
RO, R4
7%

ADD
BR

#10,6(SP)
1%

;SET UP FOR GOOD RETURN

MoV
MoV
ADD
TGE TRK
MoV

#EMDLT EM13N
#EMRDB,DFO11A
#4,6(SP)

;"'DATA LATE SET RESULT OF READ DB''

.SBTTL

GET DRIVE STATUS

IN THE REGISTERS.

032762

100000

000000

032762
001004
032762

024000
037400

000000
:
000010

000001

001230

001415

10171
10172

037104
037106

001405
012737

10174

037116

000404

10173 037114

022020

MOV
DEC
BNE

MOV
28:

000000
3$:

MOV
CLR
MOV
MOV
MOV
MOV
DEC
BNE

BIT

BEQ

BIT
BNE
BIT

8$:

THIS ROUTINE GETS ALL THE DRIVE STATUS AND PLACES IT IN SREG10
THESE REGISTORS ARE FIRST CLEARED TO ALL ONES AND
THROUGH SREG17.
THEN IF ERROR OCCURS WHILE GETTING STATUS, THE 1'S ARE LEFT

GETDRS: SAVREG
MOV
MOV
MOV

001296

000010

;ALL HEADERS MOVED?
:NO - LOOP

RESREG
RTS

1$:

000001
001230
001610
000026
000001
000050

(R1)+,(RO)+

MoV
CMP
BNE

i#CALL: JSR
i
&R
BR
i

100000
001202
000010

SEQ 0184

118:

104413
012762
012700
012701

PAGE 185

ASL
MOV
sus

001264
001264

i
;e
i

036762
036764
036772
036776

€15

;SET ERROR RETURN
;GET RK REGS
$TESTN,RO
;GET TEST NUMBER
RO
;SHIFT FOR INDEX
$SWOBTB(RO) ,$ESCAPE
;SET ESCAPE
#2,SESCAPE
;TO NEXT SCOPE CALL

108:

104414
000204

14:14

BEQ
MOV

CMP

R4 ,GETDRS
ERROR PROCESSING

NO ERPOR PROCESSING

ERROR RETURN

GOOD RETURN

#CCLR,RKCST1(R2) :CLEAR ANY OLD ERRORS LAYING AROUND
#SREGT0, RO
‘PRESET ALL STATUS STORAGE TO
#8. R1
:ALL ONES

nM79777,(ROY+
R1
1%

#SREG12,R0

M ,R1
$TMP3
L.CS2,RKCS2(R2)
R1,RKMR1(R2)
#8170,RKCST(R2)
#40. ,R3
R3
{1

:SET POINTER TOREG12 FOR AO1 & BO1
‘PRESET FOR PAIR ONE.
:CLEAR ERROR SWITCH
:LOAD DRIVE #
:LOAD MR1
:DO SELECT
‘WAIT FOR A FEW MICRO RECORDS TO
:BIT SELECT FINISH
_

#CERR,RKCS1(R2) :ANY ERROR SET AS A RESULT OF SELECT?
43

‘NO = SKIP

43
#1,8THP3

‘NO - SKIP
:SET ERROR FLAG

SSKIP

#CTO'SPAR,RKCS1(R2) ;CHECK IF TIMEOUT OR PARITY ERROR
8s
;YES = SKIP
#37400,RKCS2(R2) ; TEST FOR ERRORS:
;"
NED'UPE 'MDS'UFE 'NEM!PGE

(RO)+, (RO +

‘BUMP TO LET THAT PAIR STAY ALL 1'S.

CIR6KFO RK6 FCTNL CTRL DIAG

CZR6KF P11

19-JUN=-80 14:04

037120
037124
N37130
37136
037140
037142
037144
037150
037152
037154
037160
037162
037164
037170
037172
037174

016220
016220
012762
005701
001410
005201
022701
001326
005001
012700
000722
104414
005737
001001
005724
000204

000034
000036
100600

MACY11 30A(1052)

GET DRIVE STATUS
A ¥

0CO000

LSBTTL

SUBSYSTEM INITIALIZE AND INITIALIZE STATE TEST

001202
€s:

IF THEY DO RESET, READY IS TESTED TO INSURE IF SETS.

ot
M
B
M

IF ANY OF THESE THREE CONDITIONS ARE NOT MET AN APPROPRIATE
ERROR MESSAGE IS PREPARED AND REPORTED WHEN THE ROUTINE
RETURN TO THE CALL. IF EVERY THING IS GOOD, THE RETURN
SKIPS OVER THE ERROR CALL AND TEST ABORT.

]

OO000O0 o

RN
b b b d e e
e b
WNONONON POPNOPINININ)

O R RO RO PO [elelelelelelelele]
O O O RO O 10 10 PO PO RO RO
o3
O OV®NO WV
NN =2OO®NO
WV WO

A
L
L

037206

012700

037202

037212
037216
037220
037222
037224
037232

SSINIT:

012701

000007

012720
005020
005301
001375
012762
012737

000100

7%:
000010
001222

140000

001540

037240 016237 000000 001540 18:
037246
037254
037256
037262
037264
037272

032737
001433
005337
001366
032737
001404

037302

000403

037274

037304

037312

001222

100000

001540

012737

053621

001400

012737

053665

001400

104420

THE USUAL CALL TO THIS ROUTINE WILL BE FOLLOWED BY

AN ERROR MESSAGE AND BRANCH TO END OF TEST. THIS
1S DONE BECAUSE FAILURE TO INITIALIZE CORRECTLY IS FATAL TO
THE TEST.

MOV
MOV

RO,=-(SP)
R1,=-(SP)

::PUSH RO ON STACK
::PUSH R1 ON STACK

MOV

#L.CS1,RO

:GET ADDRESS OF 'L'' REGS

MOV

001600

000040
000012

$TMP3
7
(R4)+
R4

;STORE A WORD
;STORE B WORD
:CLEAR ANY OLD ERROR IN CONTROLLER
;IS R1 A O (LAST TRANSFER, PAIR 0)
SYES = SKIP
‘ELSE gunp TO NEXT PAIR
:PAIR
JUST STORED?
‘N0 = SKIP
:ELSE SET TO PAIR 0
*PRESET POINTER FOR PAIR 0
160 GET THEM
‘EXIT HERE
:ANY ERROR IN STATUS GETTING
SYES = SKIP
;ELSE BUMP PART ERROR
:RETURN

THE SUBSYSTEM IS INITIALIZED WITH A SUBSYSTEM CLEAR
COMMAND. CERR AND DI ARE MONITORED FOR A SHORT
PERIOD OF TIME DURING WHICH THEY SHOULD BOTH RESET.

]

010046
010146

RKMR2(R2) ,(RO)+
RKMR3(R2),(RO)+
#CCLR,RKCST1(R2)
R1
6%
R
¥4 ,R1
28
R1
#SREG10,R0
2%

H
H
A
b

037176
037200

D 15
PAGE 186

7%:

6S%:

000004

001230

14:14

MOV
MOV
MOV
TST
BEQ
INC
CMP
BNE
CLR
MOV
BR
RESREG
TST
BNE
TST
RTS

]

037176

19-JUN-B0

MOV
CLR
DEC
BNE
MOV
MOV

MOV

4$:

#100,(RO)+
(RO)+
R1
7%
#SCLR,RKCS2(R2)
#10.,$TMPO

#CERR'DI,T.CS1
2%
$TMPO
1%
#CERR,T.CS1
3$

MOV

TGE TRK

:SET CLEAR COUNT

:PRESET CS1
INTR ENABLE
:CLEAR THE NEXT
:COUNT 0?
:NO - LOOP
:CLEAR SUBSYSTEM
:SET A COUNTER

RKCST(R2),T.CS1 :GET CS1

BIT
BEQ
DEC
BNE
BIT
BEQ

MOV

3$:

#7.R1

#EMS ,EMIN

#EM6 ,EMIN

TEST IF ERROR OR DI SET
:NO = SKIP TO READY TEST
*ELSE DECREMENT COUNTER
*AND LOOP
“TEST = IS IT CERR STILL SET
‘NO - SKIP TO DI MESSAGE

:MESSAGE (SUBSYS CLR NOT RESET ERROR)

:MESSAGE (SUBSYS CLEAR NOT RESET DI)

~ SEQ 0185

———————————————
—

037314

012600
062716
00000¢

E 15

19-JUN-80 14:14 PAGE 187
MACY11 30A(1052)
SUBSYSTEM INITIALIZE AND INITIALIZE STATE TEST

001302

MOV
ASL

$TESTN,RO
RO

:GET PRESENT TEST NUMBER
SSHIFT FOR INDEX

SUB
MOV

#2,$ESCAPE
(SP)+,R1

T TO NEXT SCOPE CALL
..POP STACK INTO R1

MOV

033122
000002

000200

001540

053744

001400

MoV
BR
BIT
BNE
ggv

MOV
MOV
a??

000002

SEQ 0186

$SWOBTBL (RO), SESCAPE :LOAD ESCAPE TO ABORT TEST
(SP)+,RO
6%
#RDY,T.CST
5%
zEH7.EH3N

;;POP STACK INTO RO
;DSKIP TO EXIT
;TEST READY SET
+YES = GOOD EXIT
iMESSAGE (SUBSYS CLR NOT SET READY)

(SP)+,R1
(SP)+,R0
#2,(SP)

;RESTORE REGS
:GOOD RETURN

WORD COUNT AT END OF OPERATION 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)

037402
037410
037412
037420
C37426

023737
001406
052737
013737
000204

047744

001542

000001
001542

050002
047760

037474

047750

001602

001601
177774

CMP

EXPWC, T.WC

* COMPARE

1%
#WCERR,GRP4ER
T.WC,REALWC
R4

‘EQUAL - SKIP
:SET ERROR FLAG
*STORE REAL WORD COUNT
*RETURN.

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

IS SET IN GROUP & ERROR FIELD (GRP4ER)

IF BUS ADDRESS INCREMENT INHIBIT WAS SET, THE EXPECTED BUS

CALL:

001604

:STORE EXPECTED VALUE

AN ERROR FLAG (BAERR)

NW—=O

......’.

037470

001610

(R4)+,EXPWC

;EXPECTED WC VALUE

INITIAL WORD COUNT, AND SUBTRACTING ANY RESIDUAL WORD COUNT.
IF THIS COMPUTED BA DOES NOT EQUAL THE CONTENTS OF RKBA

CHKBA:

000020

MOV
BEQ
BIS
MOV
RTS

.SBTTL

037430

R4, CHKWC

.WORD

ADDRESS IS THE STARTING BUS ADDRESS.

JSR

R4 ,CHKBA

MoV
Mov
MOV

RO,=(SP)
R1,-(SP)
R3,-(SP)

#BAL,L.CS2
48
%iBA.EXPBA

;TEST IF BAI SET
- SKIP
:NO
:STORE EXPECTED BA (SAME AS STARTING BA)

MOV

L.WC,RO

;GET INITIAL WORD COUNT

MOvB
BIC

L.CS141,R3
77774 ,R3

;GET BA16 & BA17
;CLEAR UNWANTED BITS

;TEST IF

BIT
BEQ
MOV

4%:

NEG

INITIAL WORD COUNT 0

047744

JSR

[—

012437

037376

-—h

W P
goooo
nNOOO

o
o

OSOOOOOOOOOO
NN

037374

013700
0

O=O000O0
F ol = T - P

WA — agal

0 RK6 FCINL CTRL DIAG
PN
19-JUN-80 14:04

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

001003
062703
000407

F 15
MACY11 20A(1052)
19-JUN-B0
14:14
PAGE 188
BUS ADDRESS AT END OF OPERATION CHECK

BNE

:NO - SKIP

TST

RO
5%
R3
RO

;TEST IF INITIAL WC BIT 15 SET
iNO = SKIP
:BUMP BA16,17 (32K WORD XFER)
:SHIFT WORD COUNT TO MAKE MEM ADD CNT

;IF _CARRY = ADD INTO BA16,17

agb

000002

6%:
5%:

001604
001542

9%:

8PL

INC

ASL
ADC

ADC

MOV
BEQ
NEG

TST
BPL

DEC

W
~N

w
~

050002
047764

000002
047762

050002

.....l......

w
~

037642
037644
o

BIFRK W
N=OO

uvar
o~
w

8%:

037662

104413

013700
005400
013701
001401
005401

160100

001602

T.WC,RY
1%
R1

R1
7%

SB(C

R1,RO

MOV
MoV

R3,EXPUBA
RO,EXPBA

MOV
MOvB

T.BA,REALBA
T.CS141,R3

CMP
BEQ
BIS

SBTTL

VAV IV W IN N NN W W
NN NN NN

SWWWU‘U‘U‘U‘WU‘V‘V‘U‘
PON) = e o e e e ad o h

WV WN-=O
WN=OOVONO
=O VO~NOWVES

dddflddd-—.dd-‘ddfldddddddddddddfld d D ek d
slelelelelelelelelelelels] eoleoleleleleleleloleleleleleleolelelele]e]

037636
037640

010337
012603
012601
012600
000204

000004
001544
001541
177774
047746

L.BA,RO

ASL

SuB

047746
047750
001544

s%.RS

eDD 2 T0 BA16,17 (65K WORD XFER)

;ADD IN START BUFFER ADD

:GET END OF OPERATION WORD COUNT
:BRANCH IF ZERO

;TEST END OPERATION WC BIT 15 SET
iNO - SKIP

;DEC BA 16,17 (32K WC LEFT)

:SHIFT WC TO MAKE MEM ADD CNT

:SUB FROM COMPUTED BUS ADDRESS

;SUB CARRY FROM BA16,17

;STORE EXPECTED UPPER BA BITS

RO, T.BA
2%
#BAERR,GRP4ER

;EQUAL TO COMPUTED?
;YES = SKIP
;ELSE SET BAERR FLAG

BIC
CMP
BEQ
BIS

#177774 ,R3
R3,EXPUBA
8%
FUBAERR,GRP4ER

;CLEAR UNWANTED BITS
;CHECK IF EQUAL
;YES - SKIP
:ELSE SET UBA ERROR

RTS

MOV
MOV
MOV
MOV

R3,REALUB
(SP)+,R3
(SP)+,R1
(SP)+,RO

;:STORE REAL BUS ADDRESS
;GET REAL UPPER BA

;STORE REAL UPPER BA

CYLINDER,TRACK,SECTOR TEST AT END OF OPERATION
THIS ROUTINE CHECKS THAT THE CONTENTS OF THE RKDCYL AND RKDA
ARE CORRECT FOR ANY SIZE DATA TRANSFER AT THE END OF THE

OPERATION.
THE CONTENTS OF THE LOAD REGISTER STORAGE ARE
COUNTED ON TO HAVE THE INITIAL VALUES TO MAKE THE
NECESSARY CALCULATION.

ALL THREE VALUES ARE GENERATED AND STORED IN EXPECTED VALUES
STORAGE EXPCYL, EXPTRK, EXPSEC. ALL 3 ARE CHECKED AND
IF ONE OR MORE ARE WRONG, THE CORRESPONDING BIT [N THE
ERROR FLAGS FIELD (GRP4ER) IS SET.
CALL:

JSR

CHKCTS: SAVREG

001542
10%:

R4, CHKCTS

MOV

L.WwC,RO

SuB

R1,RO

NEG
MOV
BEQ
NEG

RO
T.WC,R1
10%
R1

;GET SPECIFIED WORD COUNT

;NEGATE IT
;GET END OF OPERATION WORD COUNT
;1F ZERO = SKIP
JNEGATE IT
;COMPUTE ACTUAL WORDS TRANSFERRED

SEQ 0187

CIR6KFO RK6 FCTNL CTRL DIAG
P1
19-JUN-B0 14:04
CZR6.KF
10343

037664

6 15

30A(1052)
19-JUN-80
14:14
PAGE 189
CYLINDER,TRACK,SECTOR TEST AT END OF OPERATION

005001

CLR
TR

037672
037674
037676
037702
037704
037706
037710

000400
000400

2%:

037732
037740
037744
037750
037754
037760
037762
037764
037766
037770
37772
037774

001614
001607

001600

$s:

000024

~
w
~

=
238258 N
w

=1=J

047752

b \N

047756
047754
001560

6%:

BIC
DEC
INC
(MP
BNE
CLR

CLR
INC
DEC
BNE

MOV

MOV
CMP

047752

000010
001547

050002

000020
001546

050002

000040
047760
001542
001544
001560

050002

001547

BiT
BEQ
MOV

INC
(MP
BNE

000003

3
R1

PARTIAL SECTOR WAS TRANSFERRED.
MOy
#26,R3

BIC

5%:

) =

BEQ
INC

MOVE

177400

TST

WCFMT,L.CS1
48
#24,R3

OF SECTORS IN A TRACK FOR THE FORMAT USED
;GET STARTING VALUES FOR CYLINDER
L.DOCYL,EXPCYL
MOV
MOVE
L.DT,Ré
TRACK

047752

177400

DATA HAS BEEN

TRANSFERRED IN THE OPERATION. ONCE IT HAS COMPUTED THAT, THE
END OF OPERATION VALUES FOR THE CYLINDER, TRACK, AND SECTOR
IS CALCULATED.
CMP
#400,R0
T
BG
R1
INC
suB
#400,R0
1%
BR

R3 HAS BEEN SET UP WTH THE NUMBER

001606

O=00000

T
onNONONN

222288
—0—08°NN

FEEE

33 RRRR

222?22;22222
g 28828222552

000026
010000

27 37
0437
4 03
37
37
03
37
00
20
20
20

;CLEAR R1 FOR COUNTING

AT THIS POINT R1 HAS A COUNT OF THE
NUMBER OF FULL SECTOR TRANSFER + 1 IF A

037712
037716
037724
037726

OOOOOOOO&OOOOOOOOO
(v v v v IV TV v
&
© ECERPEEE
00302000
00
NO N
SNy
=

10380

022700
003004
005201
162700
000771
005700
001401
005201

037666

SEQ 0188

THE FOLLOWING CODE DETERMINES HOW MAY SECTORS OF

MACY11

7%:

8%:
9%:

R4
#177400,
L.DS,RS
#177400,R5
R1
RS
RS,R3
6%
RS
R4
#3,R4
6%

R4
EXPCYL
R1
11

R4 ,EXPTRK
RS EXPSEC

T.OCYL,EXPCYL

:SECTOR

:ADJUST COUNT FOR ZERO DETECT
‘BUMP SECTOR COUNT
‘DID THIS MAKE SECTOR COUTN > 1
INO = SKIP
SELSE CLEAR SECTOR COUNT
;BUMP TRACK COUNT
:DID THIS MAKE TRK COUNT > 1

‘NO - SKIP
;ELSE CLEAR TRACK COUNT

:BUMP CYLINDER COUNT

:STORE EXPECTED TRACK

*STORE EXPECTED SECTOR (CYL ALREADY SLOW)
:TEST

CYLINDER OK

IYES = SKIP
:NO = SET ERROR FLAG

BEQ
BIS
(MPB
BEQ
BIS
MOV

13
STRKERR,GRP4ER
RS,T.DA
9%
#SECERR,GRP4ER
#REALWC RO

SYES = SKIP
:NO = SET ERROR FLAG
STEST SECTOR COUNT OK
SYES = SKIP
:USE SET ERROR FLAG

MOV
MOV

T.BA.(RO)+
T.0CYL,(RO)*

:STORE REAL BUS ADDRESS
“STURE REAL CYLINDER ADDRESS

CMPB

MOV

?g¥a

R4,T.DA#Y

1.6C, (RO)+

163?"'('0)
*

CYLINDER?

:DEC COUNT
:1F ZERO = EXIT

7%
#CYLERR,GRP4ER

BEQ
BIS

TRACK?
.

;TEST TRACK 0K

:STORE REAL WORD COUNT
:STORE

REAL

TRACK

ADDRESS

CIR6KFO RK6 FCINL CTRL DIAG
19-JUN-80 14:04
CZR6KF P
113710

1046414

001546

RESREG
RTS

000403

040162
040164

005037

040170

104420

005037

047774
047776
050000
050002
050116
024000

BY THIS ROUTINE SUCH THAT THE ERROR TABLE ITEM WILL
BE THE PROPER ITEM FOR THE FORMAT REQUIRED BY THWIS

OF THE FORMAT AND WHICH ERRORS ARE DISPLAYED IN WHAT

ERROR. THE ERROR TRAP WILL BE MADE EITHMER ERROR 4,5.6,
7, OR 10. REFER TO THE ERROR ITEM TABLE FOR A DESCRIPTION

FORMAT.

MOV
L

(SP),RO

:GET POINTER TO ERROR WORDS

RO, (SP)

:STORE RETURN

(RO)+,$TMP10
(RO)+,$TMP1
(RO)+,$TMP12

#-1,8TMP13
CHKST

CHKOP:

SAVREG

CLR

$TMP13

(HKST:

TGETRK
CLR
CLR
CLR

GRP1ER
GRP2ER
GRP3ER

:STORE EXPECTED ERROR GROUP 1
:STORE EXPECTED ERROK GROUP 2
:STORE EXPECTED ERROR GROUP 3
:SET FLAG - EXPECTED ERROR

:RESET EXPECTED ERROR FLAG

:GET 611 REGS 10 TRAP
:CLEAR ERROR FLAGS

(LR

GRP4ER

001540

BIT

#CST1ERBIT,T.CS1 ;TEST IF ERROR SET IN (S1

177400

001550

BIT

000070

001552

CLR

:YES - SKIP

BIT
BNE

3]
#DSERBIT,T.DS
4%

;YES = SKIP

BIT

#CERR,T.C(ST

TST
BNE

001540

BEQ

BIS

047774

JMP

041022

;CLEAR SUMMARY FLAGS

BNE

100000

GPSUMF

BNE

100000

009137

SAVREG
MOV

MOV

001250

001554

040264
040272

THIS 1S WHERE ALL WARDWARE ERROR INDICATORS AND SOME SOF TWARE
ERRORS ARE CHECKED. THE GENERAL PROCEDURE FLOW IS AS FOLLOWS:
THE ROUTINE IS CALLED WITH A TRAP (TCHMKDF). THE LOCATION
FOLLOWING THE TRAP CALL WILL HWAVE AN ERROR TRAF WM](M
THE ROUTINE WILL BYPASS IF NO ERROR IS FOUND. IF AN
ERROR IS DETECTED, THE ERROR TRAP CALL IS MODIFIED

MOV
MOV
MOV

001250

;STORE REAL SECTOR ADDRESS

..
.
e
e

001242
001244
001246

104413

T.DA, (RD)

OPERATION CHECK ROUTINE

CHKWE:

177777

14:14

.SBTTL

38
B
;e
;e
;e

040130
040132
040134
040140
040144
040150
040152
040160

19-JUN-B0

MOVB

000204

[
gy

RR R R PR PR R R R R R R R RRRRRRRRRR2RRRR
WAV ANAENI PO PN PO NI PRI R NI N b e o cd
eood
& s
wn
wno - OO gzggruw-‘oooNOmbuNdOOONOmbuN—-

10401
10402
10403
10404
10405
10406
10407
10408
10409
0410

040120
040124
040126

W15
PAGE 190
CYLINDER,TRACK,SECTOR TEST AT END OF OPERATION

30A(1052)

10399

10400

MACY11

#CS2ERBIT,T.CS2 ;TEST IF ERROR SET IN (S2

T.ER
48

;TEST IF ERROR SET IN DS
;YES = SKIP
;TEST IF ERROR SET IN ER
;YES - SKIP

:NO - SKIP

#CERNER,GRP1ER
25%

;COMBINED ERROR SET?

;SET ERROR FLAG IN GROUP 1

:SKIP

CODE TO CHECK WORD COUNT, BUFFER ADDRESS, CYLINDER, TRACK,
AND SECTOR AT THE END OF THE OPERATION. THIS IS DONE ONLY
IF CERR NOT SET BY THE OPERATION.
ALL OF

THE ABOVE CONDITIONS ARE CHECKED AND A BIT SET FOR

EACH CHECK THAT FAILS. HOWEVER, ONLY ONE ERROR IS REPORTED.
THE ORDER OF PRIORITY FOR REPORTING THE ERROR IS THE ORDER

SEQ 0189

CZR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

MACY11

30A(1052)
19-JUN=80
14:14
OPERATION CHECK ROUTINE

10455

005737

001250

9%:

061022
001540

62%:

177741

000020

000030

037376

SEQ 0190

050120
050002

1ST
vEQ
JMP

$TMP13
62%
25%

:TEST IF ERROR EXPECTED
sNO = SKIP
;YES = JUMP

BIC
CMP
BLT
CMP
BGT
JSR

3%
g%o,no

:NOT, SKIP ALL CHECKING IN GROUP
:FOUR

MoV

.WORD
JSR
JSR
TST
BEQ

037430
037642
050002
061002

MOV
Mov

1%:

CLR
ASR
BCS
TST

—

016037
016037

050004
047744
047760

001450
001202
001204

012776

000010

000000

104414

000002

060442
040446

104414

062716
000002

2%:

3%:
000002

MOV
MOV
MOV
RESREG
MOV
RTI

RESREG
ADD
RTI

T.CS1,RO
#177741,R0
#20,R0

:GET €S
:CHECK IF OPERATION IS READ DATA,
:WRITE DATA, OR WRITE CHECK. IF

R4, CHKWC
0
R4 ,CHKBA
R4 ,CHKCTS

;sCHECK WORD COUNT
JEXPECTED WORD COUNT
;sCHECK BUS ADDRESSS
;CHECK CYL, TRACK, & SECTOR
GRP4ER
;ANY GROUP & ERRORS?
3%
:NO - SKIP
CMNDLB(RO) ,DFO10A ;LOAD ADDRESS OF COMMAND MESSAGE

GRP4ER,RO
R1

:PUT GROUP & ERROR FLAG IN RO
;CLEAR R1

FOR INDEX COUNTER

RO
;SHIFT FLAGS = FIRST ONE ON RIGHT IS ERROR TO
2%
:BE REPORTED, REST ARE IGNORED
(RO) +
:WHEN AN ERROR BIT IS FOUND,
1%
sGET THE ERROR MESSAGE ASSOCIATED
GRP4MS
(RO) ,EMION ;WITH IT AND SET ERROR TABLE ITEM TO

EXPWC(RO) ,SREG10 ;POINT TO THE MESSAGE. LOAD REG10 & 11
REALWC(RO) ,$REG11

#10,3(SP)

#2,(SP)

;WITH EXPECTED & IS VALUES

;RESTORE REGISTER

;MAKE THE ERROR CALL POINT TO THE
;RIGHT TABLE ENTRY & RETURN.
:BUMP RETURN PAST ERROR

;RETURN

THE FOLLOWING CODE BUILDS THE GROUP 1,2, & 3 ERROR WORDS.

000010

040526

032714

000020

BIC

#ILF'ECH!BSE!HVRC!OPI!DCK,(RO) ; CLEAR ALL THAT DON'T BELONG GRP1

000001
5%:

000100
6%:

#1.DS,R4
#T.ER,RS

;DS
sAND ER

; CORRESPOND TO ERROR BITS IN RKER

VD —

032714
001402
052710

;SET ALL BITS IN GRP1ER THAT

#SPAR, (R1)

:NO - SKIP

#ACLO, (R4)
6$
#ACLOERR, (RO}

;TEST ACLO SET
:;NO - SKIP
;SET ACLO ERROR FLAG

#SPDLSS, (R4)

;TEST SPEED LOSS SET

el
aa

040514
040520
040522

(RS), (RO)

020000

040510

032711
001402
052710

BIS

mooom

042710

:SET UP GENERAL REGISTER AS POINTER
;S
:CS2

Celaa

040476

120701

¥GRP1ER,RO
#1.CS1,R1
#1.CS2,R3

040474

MOV
MOV
MoV
MOV
MOV

4%:

—

047774
001540
001550
001552
001554

040450
040454
040460
040464
060470

b
b b

PAGE 191

LISTED ABOVE.

040276

KR
RRR RRRRRRRRRR
oo
0 0O
WA
— SIBIESEEL

[ 15

#SPARERR,(RO)

;TEST

SPAR SET

;SET SPAR ERROR FLAG

CZR6KFC RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

10511 040532 001402

}83}%

040534

052710

000200

10514

040540 032714

000040

}82}9

040546

10515

040544

001402

052710

000400

10518 040552

032711

100000

}823?

032710

020000

10519

040556

}82%%

040564

012700

047776

10524
10525

040570
040574

032715
001402

000100

052710

000001

10528
10529
}83%?

040602
040606
040610

032715
001402
052710

100000

000002

10532

040614

032713

040009

}825?

10533
10534

10535

040560

040576

040620
040622

001002

001402
052710

100000

BEQ
7%:

8% :

J 15

PAGE 192

BIS

#SPDERR, (RO)

:NO = SKIP

BIT

#DROT, (R&)

:TEST IF DROT SET

BIS

#DROTERR, (RO)

;SET DROT ERROR FLAG

BEQ

:SET SPEED LOSS ERROR FLAG
‘NO = SKIP

BIT

#CERR, (R1)

sTEST CERR ITSELF SET

BIT

#NCERWE , (RO)

*SET NO CERR WITH ERROR FLAG

MOV

#GRP2ER,RO

:SET POINTER TO GROUP 2 ERROR FLAGS

BIT
BEQ

NECH, (KS)
1%

STEST IF ECH SET
INO = SKIP

11%:

BIT
BEQ
BIS

#DCK, (RS)
12%
#DCKERR, (RO)

;TEST DCK SET
;NO - SKIP
;SET DCK ERROR ELAG.

12%:

BIT

#MICE, (RD)

:TEST WRITE CHECK ERKOR

1%:

BNE

BIS

#ECHERR, (RO)

1208
#WUCKERR,

(RO)

SYES = SKIP

:SET ECH FLAG

‘N0 - SKIP
:SET WCE BIT

#DLT, (RD)

BIT
BEQ
BIS

#OP1, (RS)
14%
lOPlERR.(RO)

:TEST OP1 SET
INO - SKIP

BIT
BEQ

#HVRC, (RS)
16%

STEST HVRC SET
INO - SKIP

BIT
BEQ

#BSE, (RS)
17%

;TEST BSE ERROR FLAG
INO - SKIP

MOV

#GRP3ER, RO

;SET POINTER TO GROUP 3 FLAGS

10855 340702 032713 010000

BIT

#NED, (R3)

sTEST NED SET

}8222 040710 052710 000001

BIS

#NEDERR, (RO)

SSET NED FLAG

BIT
BEQ

#CT0, (R1)
19%

:TEST CTO SET
‘N0 = SKIP

BIT
BEQ

SUFE, (R3)
208

:TEST UFE SET
INO - SKIP

0460632
040634

001402
052710

10539
10540
}8;25

040640
040644
040646

032715
001402
052710

020000

10543
10544

040652
040656

032715
001402

000400

052710

000040

10547
10548

040664
040670

032715
001402

000200

052710

000100

}8221

040676

012700

050000

}8322

}8§§3

040660

040572

1208:

BEQ
BIS

108

BIT

10536
}8§§;

040626 032713

000004

MACY11 30A(1052)
19-JUN=80 14:14
OPERATION CHECK ROUTINE

000010
13$:

000020

10554

040706

001402

10557
10558

040714
040720

032711
001402

004000

10561
10562

040726
040732

032713
001402

000400

052710

000004

10565
10566

040740
040744

032713
001402

001000

148:

BIS
16$:

BIS

17$:

BEQ

18$:

}8223 040722 052710 000002
}8;22

040734

BEQ
BIS

BIS

19¢:

208:

138
#DLTERR, (RO)

#HVRCERR,(RO)

#BSERR, (RO)

18$

#CTOERR, (RO)

STEST DATA LATE

‘NO = SKIP
SSET DLT ERROR FLAG

;SET OP1 ERROR FLAG

:SET HVRC FLAG

SSET BSE FLAG

INO = SKIP

SSET CTO FLAG

BIS

#UFERR, (RO)

;SET UFE FLAG

BIT
BEQ

#MDS, (R3)
21%

:TEST MDS SET
IND - SKIP

’
~

SEQ 0191

f
|

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04
}822;

040746

052710

000010

10569
10570
}82;5

040752
040756
040760

032713
001402
052710

002000

10573
10574

040764
040770

032713
001402

004000

052710

000040

10577
10578

040776
041002

032713
001402

020000

052710

000100

10581
10582
}8232

041010
041014
041016

032715
001402
052710

000001

MACY11 30A(1052)
19-JUN-B0 14:14
OPERATION CHECK ROUTINE

K 15
PAGE 193

BIS

#MDSERR, (RO)

:SET MDE FLAG

21%:

BIT
BEQ
BIS

#PGE, (R3)
22%
#PGERR, (RO)

;TEST PGE SET
;sNO = SKIP
;SET PGE FLAG

22%:

BIT
BEQ

#NEM, (R3)
23%

:TEST NEM SET
:NO = SKIP

BIT
BEQ

#UPE, (R3)
24%

;TEST UPE SET
:NO = SKIP

248

BIT
BEQ
BIS

#ILF,(RS)
25%
#ILFERR, (RO)

:TEST ILF SET
;:NO - SKIP
:SET ILT FLAG.

10585
10586
10587
10588

:
:
:
:

THE FOLLOWING CODE IS EXECUTED ONLY IF ERRORS WERE EXPECTED.
THE FLAG IN STMP13 INDICATES IF
AN ERROR WAS EXPECTED AND THE CONTENTS OF TMP10,
TEMP11, & TEMP12 SPECIFY WHICH ERRORS. THESE ARE COMPARED AGAINST

10592
10593
}8;32

;
:
3

£ 12 ARE MODIFIED TO INDICATE EXPECTED ERRORS THAT DID NOT
OCCUR. BOTH CONDITIONS CAN EXIST AT THE SAME TIME AND MUST
BE REPORTED.

}82;2

}8238

040772

041004

000020

BIS
23%:

BIS

000200

10589
10590
10591

:
;
;

10596
10597
10598
}8288

041022
041026
041030
041034

005737
001423
012704
012705

10601

041040

011500

10603
10604
10605
10606

041044
041046
041050
041052

020001
001003
005000
005001

:SET UPE FLAG

THE ERRORS FOUND AND STORED IN GRP1ER, GRP2ER, AND GRP3ER.
THE CONTENTS OF GRP1,2, & 3 ARE MODIFIED TO INDICATE ERRORS THAT
OCCURRED BUT WERE NOT EXPECTED. THE CONTENTS OF $TMP10,11,

MOV

$TMP13
110%
#GRP1ER,R4
#$TMP10,RS

:CHECK IF AN ERROR WAS EXPECTED
:NO - SKIP
:GET ADDRESS OF ERROR
:GET ADDRESS OF EXPECTED ERRORS

MOV

(RS) ,RO

;GET EXPECTED ERROR

CMP
BNE
CLR
CLR

RO,R1
27%
RO
R1

:ARE THEY EQUAL?
sNO = SKIP
:CLEAR EXPECTED ED
JCLEAR OCCURED

28%:

MOV
BIC
BIC
MOV

RO,R3
R1,R0
R3,R1
RO, (RS)+

:STORE
:RESET
;RESET
:STORE

!8g};

THE FOLLOWING CODE:

104819
10620

:
3

A. DETERMINES WHICH FORMAT IS TO BE USED
B. LOADS THE ADDRESSES OF THE ASCIZ TEXT INTO THE SELECTED

1062¢

C. COUNTS THE NUMBER OF ERRORS THAT MUST BE REPORTED

}828;
10609
10610
10611
10612

10613
10614
}82}2

1061

041042

041054

041056
041060
041062
041064

041066
041070
041074

25%:

#UPERR, (RO)

:SET NEM FLAG

BEQ
MOV

10602

001250

#NEMERR, (RO)

047774

001242
26%:

011401

000403

MOV

010003
040100
040301
010025

010124
022705
001361

TST

27%:

001250

MOV
CMP
BNE

(R4) ,R1

28%

R1,(R4)+
#$TMP13,RS
26%

:GET GROUP ERROR FLAGS

EXPECTED
EXPECTED
OCCURRED
EXPECTED

ERRORS
THAT OCCURRED
THAT EXPECTED
THAT DID NOT OCCUR

:STORE OCCURRED THAT WERE NOT EXPECTED
;ALL GROUPS CHECKED.
:NO - LOOP

ERROR TABLE ITEM AND FORMAT FIELD

SEQ 0192

CIR6KFO RK6 FCTINL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

MACY11 30A(1052)
19-JUN-B0 14:14
OPERATION CHECK ROUTINE

L 15
PAGE 194

}82%2

;

D. GETS DRIVE STATUS IF GROUP 1 ERROR.

10625
10626

:
:

THE DECISION OF WHICH ERROR IS TO BE USED
1S BASED ON THE ERROR GROUP (OR GROUPS) THAT HAVE

}82%8

10627
10628

SEQ 0193

:
;

FLAGS SET. IF ANY BIT IS SET IN GROUP 1,2, OR 3, GROUP 1 FORMAT (ERROR 4 OR 5)
WILL BE USED; ANY SET IN GROUP 2 OR 3, GROUP 2 (ERROR 6) WILL BE USED; AND A

10631

;

10635

3
:
:

THE FORMAT TO BE USED IN THE CONTROLLING FACTOR IN HOW THE
ERROR TRAP IS CHANGED IN THE MAIN CALL. IF GROUP 1 FORMAT IS
USED THE ERROR TRAP WILL BE CHANGED TO ERROR & OR S(DEPENDING ON
AVAILABILITY OF DRIVE STATUS),
GROUP 2 FORMAT WILL BE ERROR

OF THE ERROR TRAP WILL BE ALTERED. THE SP WILL BE

10632
10633
10634
10636

}82%;

10639

}822}

10640

10643
10644

041076
041100

005004
005005

10646

041106

012701

10645

041102

1108:

005716
001403

001246
036242

052713

000040

061604

041202

005726

10670
10671

041214
041216

005716
001407

041220
041224

001250

013746
004437

10667

10673

;WHERE ASCIZ ADDRESSES GO

;POINTERS TO GROUP SUMMARY FLAGS
:PRESET FOR GRP3 ERR MESSAGE BUILD

041170
041172

10672

#S$TMP2 ,R1

#GPSUMF ,R3
#DFO07A, (RO)
#DH7N, (R1)
GRP3ER,~(SP)
R4 ,BITCNT
(SP)
29%
(SP) RS

10662
10663

041204
041210

;:CLEAR COUNTERS

MOV
MOV
MOV
MOV
JSR
TST
BEQ
ADD

005726
005737
001412

10668
10669

R4
RS

050116
060762
001442
050000
036242

041150
041152
041156

041200

CLR
CLR

:LOAD POINTERS FOR TEMPORARY STORAGE OF ADDRESS

10657
10658
10659

041174

STATUS, ERROR S IS USED. ERROR 5 INCLUDES A WARNING MESSAGE.
#$TMP1,RO

001226

MOV

}8222 041144 052713 000004

}0665

IF THE STATUS IS READ FROM THE DRIVE WITH NO PROBLEM,
ERROR & IS USED. IF ANY ERROR IS ENCOUNTERED READING

MOV

012703
012710
012711
013746
004437
005716
001403
061605

10664

POINTING TO THE LOCATION THAT CONTAINS THE ERROR CALL TRAP.

001224

041112
041116
041122
041126
041132
041136
041140
041142

041160
041164

6, AND GROUP 3 WILL BE ERROR 7. ONLY THE LOW ORDER BYTE

012700

10647
10648
10649
10650
10651
10652
10653
10654

10660
10661

FLAG SET IN GROUP 3 ONLY, GROUP 3 (ERROR 7) IS USED.

013746
004437

047776
036242

052713

000002

061605

29%:

041232

012711

001432

10677
10678

041236
041240

005726
005737

001250

#GRP3ST, (R3)

TST
TST
BEQ

;CLEAR OFF STACK
;ERROR EXPECTED
;NO = SKIP

ST
BEQ

(SP)+
$TMP13
31%
$TMP12,-(SP)
R4 ,BITCNT
(SP)
30%

ADD

(SP) R4

:ADD COUNT TO TOTAL THESE

BIS
31$:

:SET BIT TO INDICATE GROUP 3 ERROR

:PUT GROUP 3 NOT RECEIVED ERRORS ON STACK
:COUNT NUMBER OF ERRORS.
:WERE THERE ANY
;:NO - SKIP

.SET GROUP 3 NOT RECEIVED ERROR FLAG

(SP)+

:CLEAR OFF STACK

(SP)
32%

;ANY SET?
:NO - SKIP

GRP2ER,=(SP)
R4 ,BITCNT

BIS

#GRP2ST, (R3)

MOV

#0F006A, (RO)

ADD

32%:

#GP3INR, (RY)

MOV
JSR

TST
BEQ

10674 041226 012710 060736

}82;2

BIS

MOV
JSR

308:

;:GET GROUP 3 ERRORS, PUT ON STACK
;GO COUNT NUMBER AT ERRORS
:ANY ERRORS?
:NO - SKIP
;ADD IN ERROR TOTAL

(SP) RS

MOV

#DHEN, (R1)

ST
1ST

(SP)+
$TMP13

:GET GROUP 2 ERRORS FOR COUNTING
;COUNT BITS

:SET FLAG FOR GROUP 2 ERRORS
:ADD INTO TOTAL

:STORE ADDRESS FOR BUILDING REPORT
:CLEAR OFF STACK
:ANY EXPECTED ERRORS

CIR6KFO RK6 FCINL CTRL DIAG
CZROKF.P11
19=JUN-80 14:04

041366
041372
041376
041400
041404
041406
041412
041416
041420
041422
041426
041432

041436

012710
012711
005726
032713
001414
042713
004437
000401
000406
012710
012711
052713

000020

BEQ
BIS

060736
001432

MOV

047774
036242

3%8:

000001
060652
001412
001250

060652
001412
000011

060702
001422
040000

51%:
52%:

SANY SET?

*ADD INTO TOTAL
:STORE ADDRESS FOR BUILDING REPORT

(SP)+

:CLEAR OFF

(SP)

SANY SET?

BEQ
BIS
ADD

35
#GRP1ST,(R3)
(SP) RS

MOV
ST
ST

#DH4N, (R1)
(SP)+
$TMP13

ADD

040000
036762

#OHEN, (R1)

GRP1ER,=(SP)
R4 ,BITCNT

MOV
36%:
60$%:

:NO = SKIP
:SET FLAG FOR GROUP 2 NOT RECEIVED

MOV
JSR

BIS

000010

338
#GP2NR, (R3)

(SP) ,R&
#DFO06A, (RO)

BEQ
MOV
JSR
ST
BEQ

001242
036242

:NO = SKIP
:GET GROUP 2 NOT RECEIVED ERRORS
:COUNT NUMBER OF BITS

ADD
MOV
ST

SEQ 0194

348

MOV
35%:

M5
PAGE 195

$TMP11,-(SP)
R&,BITCNT
(SP)

R R

005726
013746
004437
005716
001407
052713
061605
012710
012711
005726
005737
001416
013746
004437
005716
001407
052713
061604

BEQ
MOV
JSR

10723
10724
10725
10726
10727
10728
10729
10730
10731
10732
10733

041300
041302
041306
041312
041314
041316
041322
041326
041330
041334
041336
041342
041344
041350
041354
041356
041360
041364

001244
036242

10719
10720
10721
10722

001416
013746
004437
005716
001407
052713
061604
012710
012711

10707
10708
10709
10710
10711
10712
10713
10714
10715
10716
10717
10718

041244
041246
041252
041256
041260
041262
041266
041270
041274

I TR TETETETEATE PR P PR

10679
10680
10681
10682
10683
10684
10685
10686
10687
10688
10689
10690
10691
10692
10693
10694
10695
10696
10697
10698
10699
10700
10701
10702
10703
10704
10705
10706

19-JUN-80
MACY11 30A11052)
14:14
OPERATION CHECK ROUTINE

#0F004A, (RO)

608
$TMP10,-(SP)
R4 ,BITCNT
(SP)
368

#GPINR, (R3)
(SP) ,Ré

#DFO04A, (RO)

STACK

:GET GROUP 1 ERROR FLAGS
:COUNT THE NUMBER OF BITS

:NO = SKIP
:SET FLAG FOR GROUP 1 ERRORS SET
SADD INTO TOTAL

:LOAD ADDRESS FOR BUILDING REPORT
:CLEAR OFF STACK
*ANY EXPECTED ERRORS?

:NO = SKIP
:GET GROUP 1 NO RECEIVED ERROR
:COUNT # OF BITS
SANY SET?
:NO = SKIP

:SET FLAG FOR GROUP 1 NOT RECEIVED
SADD INTO TOTAL

:LOAD ADDRESS FOR BUILDING REPORT

MOV
ST

#DH4N, (R1)
(SP)+

BEQ
BIC
JSR
BR
BR
MOV
MOV
BIS

52%
#DRSTER, (R3)

:NO = SKIP

51§
528
#DFOOSA,(RO)
#DHSN, (R1)
#DRSTER, (R3)

:ERKOR RETURN
‘NO ERROR RETURN
:CHANGE TO FORMAT 5 = STORE ADDRESS
:FOR BUILDING REPORT
:SET DRIVE STATUS ERROR

BIT

.CLEAR OFF STACK.

#GRP1ST'GPINR,
(R$) ;ANY GROUP 1 ERROR
R4 ,GETDRS

THE ERRORS ARE COUNTED, FLAGS SET TO INDICATE WHICH ERRORS
ARE TO BE REPORTED, AND THE ERROR FORMAT HAS BEEN SELECTED.
THE FOLLOWING CODE WILL TYPE ALL THE ERRORS, LOAD THE
PROPER HEADER MESSAGE ADDRESS IN THE ERROR ITEM TABLE
A?DTkgAg THE PROPER HEADER MESSAGE ADDRESS IN THE PROPER
v

LE.

AT THIS TIME

RS CONTAINS EITHER THE NUMBER OF ERRORS THAT OCCURRED BUT WERE
NOT EXPECTED OR

THE NUMBER OF ERRORS THE OCCURRED IF NONE WERE EXPECTED
R4 Cg?;lag% 52%U=UHBER OF ERRORS THAT WERE EXPECTED BUT

$TMP10 CONTAINS (R0UP 1 ERRORS THAT WERE EXPECTED BUT DID NOT OCCUR

—

CIR6KFO RK6 FCTINL CTRL DIAGO
19-JUN-80
1
CIR6KF P11
10735
10736
10737
10738
10739
10740
10741
10742
10743
10744
10745
10746
10747
10748
10749
10750
10751
10752
10753
10754
10755
10756
10757
10758

10759

10760
10761
10762
1076
10764
10765
10766
10767
10768
10769
10770
10771
10772
10773
10774
10775

10776
10777
10778
10779
10780
10781
10782
10783
10784
10785
10786
10787
10788

10789
10790

19-JUN-80 14:14
MACY11 30A(1052)
OPERATION CHECK ROUTINE

N 15
PAGE 196

SEQ 0195

$TMP11 CONTAINS GROUP i ERRORS THAT WERE EXPECTED BUT DID NOT OCCUR
$TMP12 CONTAINS GROUP
ERRORS THAT WERE EXPECTED BUT DID NOT OCCUR
GRP1ER CONTAINS GROUP 1 ERRORS THAT OCCURRED OR OCCURRED AND WERE NOT EXPECT
ERRORS THAT OCCURRED OR OCCURRED AND WERE NOT EXPECT
GRP2ER CONTAINS GROUP
ERRORS THAT OCCURRED OR OCCURRED AND WERE NOT EXPECT
GRP3ER CONTAINS GROUP
(R1)=#$TMP2 CONTAINS THE ADDRESS OF THE HEADER MESSAGE ADDRESS IN
0 F THAT MUST BE ALTERED TO IDENTIFY THE OPERATION
(RO)=#STMP1 CONTAINS THE ADDRESS OF THE HEADER MESSAGE ADDRESS IN
THE ERROR ITEM TABLE THAT MUST BE ALTERED TO PROVIDE A

041436

041446
041446

041452
041456

032777

001004

020000

PROPER MESSAGE TO REPORT.
(R3)=#GRSUMF CONTAIN FLAGS TO INDICATE WHICH OF THE GROUP
ERROR FLAG FIELDS HAVE ERROR BITS STORED.
#5W13,3SWR
:1S REPORT INMIBITED?
BIT
sNO - SKIP
37%
BEQ

137474

042034
001250

37%:

JMP
TST
BNE

49%

$TMP13
38%

JELSE EXIT

;WERE ERRORS EXPECTED?
;YES = SKIP

IF NO ERRORS WERE EXPECTED, $TMP10,11, £12 ARE NOT MEANINGFUL

041504
041512
041516

012771
000411
012771
032713
001003
012771
013701
042701

041522

016170

050120

032713
001462

000007

041460
041466
041470
041476

041502

041530
041534

057655

000000

057476
000070

000000

057573
001540

000000

177741

MOV

2820072(R1)

;HEADER = ERROR IN OPERATION

38%:

MOV

#DHO005,a(R1)

;PRESET HDRMSG = EXPECTED NOT SET

39%:

MOV
MOV

BIC

#DH006 ,a(R1)
T.CS1,R1
M777641 01

;SET MESSAGE TO UNEXPECTED ERROR SET
:GET S1
:CLEAR ALL BUT COMMAND

MOV

CMNDLB(R1) ,@(RO) ;MOVE ADDRESS OF COMMAND MESSAGE

BIT
BNE

BIT
BEQ

§8P1NRGPZNR'GPSNsngS)SK?gY NOT RECEIVED ERRORS?

; INTO REPORT

#GRP1ST!GRP2ST!GRP3ST, (R3) ;ANY GPR ERRORS?

4L6%

;NO = SKIP GPR REPORT

PRINT ALL THE ERRORS CONTAINED IN THE GPR1,2,3ER(UNEXPECTED ERRORS)
041536
0415642
041546
041552
041560

041562
041564
041566
041572
041576
041600
041602
041606
041612
041614
041616
041620
041622
041624

013701

050000

MoV

418:

MoV
CLR
MOV
CLC
ROR

000002
001254

141%:

ADD

041614
001273

42%:

000021

001254

:
1408
40$%:

43%:

BCS

DEC
BNE
BR
MOV
TYPE

TYPE

.WORD
DEC
BNE
BR
TSt

GRP3ER,R1
#GRP3MS RO
$TMP14

$N7.,8TAP15

;GET GROUP 3 ERROR FLAGS
;SET POINTER TO GRP3 ERROR MESSAGES
:CLEAR GROUP PRINTING INDICATOR
;PRESET SHIFT COUNT

:CLEAR CARRY

R1
42%
#2,R0
$TMP15

sROTATE ERROR FLAGS
;WAS BIT SHIFTED OUT SET?
:NO - BUMP POINTER
;DEC SHIFT COUNT

(RO) ,43%
+SCRLF

:GET ERROR MESSAGE ADDRESS FROM TABLE
:TYPE CRLF

141%

;MESSAGE ADDRESS GOES HERE
;DECEREMENT TOTAL ERROR COUNT.
:LOOP IF ZERO

(R3)

;TEST GPSUMF FLAG FOR PRINTING ERROR NOT RECEIVED

22:

46%

;LOOP IF SHIFT NOT ZERO

;TYPE ERROR MESSAGE

:ELSE EXIT GPR ERROR PRINT LOOP

CIR6KFO RK6 FCTNL CTR

10829
10830
10831
10832
10833
10834
10835
10836
10837
10838
10839
10840
10841
10842
10843
10844
10845
10846

041626
041630
0616;2
0416

041642
041646
041652
041654
041662
041664
041670
041674
041700

19-JUN=B0 14:14
MACY11 30A(1052)
OPERATION CHECK ROUTINE

001252

~N
N
~

10791
10792
1079
10794
10795
10796
10797
10798
10799
10800
10801
10802
10803
10804
10805
10806
10807
10808
10809
10810
10811
10812
10813
10814
10815
10816
10817
10818
10819
10820
10821
10822
10823
10826
10825
10826
10827
10828

- N O IR

Clkblf P11

DIAG
19-JUN-80 14:06

000002

45%:

047774
050056
001252

041702
041706

478

;YES
= SKI

BNE
MOV

458
GRP2ER,R1

iNO =SKIP

MOV

001252

INC
BR

#GRPIMS, RO

$TMP14
408

#2,8THP14

MOV
MOV

GRP1ER,R1
#GRPTMS
, RO

INC

46%:

$TMP14

CMP

B8R

001250

SEQ 0196

BM]

047776
050040
001252

B 16
PAGE 197

ST
BEQ

468

:PRINTING GROUP 3?
ELSE SET TO GROUP 2, GET GRP2ER

:§ SET POINTER TO GROUP 2 ERROR MESSAGE TABLE
:BUMP TO INDICATE PRINTING GROUP 2

;GO RESTART PRINT LOOP
:PRINTING GROUP 1?
;YES = EXIT GPR ERROR PRINT LOOP.

40$

:ELSE SET TO GROUP 1, GET GROUP 1 ERROR
*SET POINTER TO GROUP 1 ERROR MESSAGE TABLE
;BUMP TO INDICATE PRINTING GROUP 1
:RESTART PRINT LOOP.

$TMP13
49%

;EXPECTING ERRORS?
:NO = SKIP

$TMP14

PRINT ALL ERRORS CONTAINED IN $TMP10, 11 » 12(NOT RECEIVED ERRORS)
041710
041712
041714
041720
041722
041726
041730
041734
041740
041746
041750
041754
041760
041762
041766
041770
041774
042000
042004

005713
100423
032713
001445
032713
001404
104401
104401

052737
010405
013701
012700
000672
005737

BMI

BIT
BEQ
BIT

000070
000007

001273
057573

100000

BEQ

TYPE

050116

1468%:

001246
050020

001252

47%:

001244
050040
001252
000002

042006
042014
042016
042022
042026
042032

000647

042034

032713

042040
2042

001004
104414

48%:

001242
050056
001252

000077

042044
042050

062716
000002

000002

042052
042060
042064

112776

000007
000022

032713
001403

001252

49%:

TYPE
BIS
MOV
MOV
MOV

BR
ST
BNE
MOV
MOV
INC
BR
CMP
BEQ
MOV
MOV
INC
BR

SKiP

:2291ST'GRPZST'GRPSST. (R3)
$

,SCRLF

,DHO06
#REPNR, GPSUMF
R4 ,RS
$TMP12,R1
#GRP3INS,
RO

1408
$TMP14
48%
$TMP11,R1
#GRP2MS
, RO
$TMP14
408
#2,8THP14
49%
$THP10,R1
¥GRF1MS
RO
$TMP1
408

;ANY NCOT RECEIVED ERRORS?
NO - SKIP LABEL FOR UNEXPECTED ERRORS
:TYPE CRLF
TYPE HEADER FOR PREVIOUS ERRORS

;SET PRINTING NOT RECEIVED ERRORS SWITCH

:MOVE TOTAL ERRORS TO RS

;GET GRP3 NOT RECEIVED_ERRORS
;SET POINTER TO GROUP 3 MESSAGES

:GO START PRINT LOOP
:PRINTING GROUP 3?
iNO - SKIP

;ELSE SETUP TO PRINT GROUP 2 - GET ERRORS
:8 SET POINTER TO GROUP 2 MESSAGE TABLE
;BUMP TO INDICATE GROUP 2 PRINTING
;GO START PRINT LOOP
:PRINTING GROUP 1?

;YES = EXIT LOOP

:SET POINTER TO GROUP 1 MESSAGE
:TABLE AND GET GROUP 1 ERRORS.

:BUMP TO INDICATE GROUP 1 PRINTING
;START LOOP AGAIN.

;TEST IF ANY ERRORS TO BE REPORTED

#77.(R3)

BNE

61%

ADD

#2,(SP)

GRP1ST!GRP2ST!GRP3ST
! GP3NR
! GP2NRNR
GPI
;YES - SKIP
;ELSE EXIT
:BUMP FOR GOOD RETURN

MOVB

#7,3(SP)

:PRESET FOR GROUP 3 ERROR RETURN.

BEQ

50%

iNO' - SKIP

RTI

61%:

:NO

49%

BIT

RESREG

000000

;TEST lg ?RINTING NOT RECEIVED ERRORS
- KIP
YES
OGP1NR'GPZNR'GP3NR (R3) ;ANY NOT RECEIVED ERRORS
(R3)

47%

BIT

#GRP2ST!GP2NR, (RY) ;ANY GROUP 2 ERRORS?

2 R6KFO RK6 FCTNL CTRL DIAG

MACY11 30A(1052)

}832;

042066

112776

000006

000000

10849
10850
10851
10852
10853
}8%2?

042074
042100
042102
042110
042114
042116

032713
001411
112776
032713
001403
112776

000011

10856
10857
10858
10859
10860
10861
10862
}8%22

042124
042130
042132
042136
042140
042146
042154
042156

005737
001011
013700
006300
016037
162737
104414
000002

001264

CZR6KF P11

19-JUN-80 14:04

000000

000005

00000C

10867
10868
10869
10870
10871
10872
10873

10874
10875

10876
10877

10883
10884

10885
10886
10887
10888
10889
10890
10891
10892
10893

508:

BIT
BEQ
MovB
BIT
BEQ
MovB

#GRP1ST!GPINR,
(R3) ;ANY GROUP 1 ERRORS?
53%
;N0 = SKIP
#4,3(SP)
;ELSE SET FOR GROUP 1 ERROR RETURN.
#ORSTER, (R3)
sCHECK IF ERROR GETTING DRIVE STATUS
53%
iNO = SKIP
#5,3(SP)
:ELSE CHANGE RETURN FORM GROUP 1

53%:

TST
BNE
MoV
ASL
MoV
sus
RESREG
RTI

SESCAPE
;CHECK IF ESCAPE ALREADY SET
549
;YES = SKIP
$TESTN,RO
;SET UP SESCAPE TO FORCE
RO
:ABORT TO PRESENT TEST AFTER
$SWOBTB(RO) ,$ESCAPE ;ERROR IS REPORTED
#2,SESCAPE
;BUT GO TO NEXT SCOPE STATEMENT

548:

;ELSE SET FOR GROUP 2 ERROR RETURN

;RETURN

.SBTTL

BAD SECTOR CHECK

:®
i

FIELD IS SEARCHED.

:®
;*
it
:*
:®
;¢
:®

THE FIELD WHOSE ADDRESS IS IN THE LOCATION AFTER THE
CALL IS CHECKED TO SEE IF ANY SECTORS ARE LISTED THEREIN
THAT HAVE THE CYLINDER AND TRACK ADDRESS SPECIFIED IN
L.DCYL AND L.DT. IF A SECTOR IS FOUND IN THIS FIELD
THAT IS BAD FOR THAT CYLINDER AND TRACK, THE SECTOR NUMBER
IS PLACED ON THE STACK. THE TOTAL NUMBER OF BAD SECTORS
1S PLACED ON THE STACK AFTER THE ENTIRE
CALL:

232222 s

042160
042164
042170

042172
042176

042200
042202
042206
042210
042212
042216
042220
042222
042224

012637
010437
011404

005037
005714

100417
023724
001012
005204
123714
001005
005046
114416
005237

}%gg 042230 000401

10896
10897

042232
042234

005304
005724

10900
109C1
10902

042240
042244
042250

013746
013746
013704

}8333

#6,3(SP)

;"
»

10578

10879

~ SEQ 0197

: .'"i'"Q.t...""'Q"""""""i'.t""."t'l't'."""Q"""

10866

10880
10881
10882

001264
001264

C 16
PAGE 198

MOove

001302

10“5

14:14

OPERATION CHECK ROUTINE

000004
040000

033122
000002

19=-JUN-B0

042236

001236
001240

001234

BDSRCK: MOV
MoV
MoV

1%:

001614
001607

001234

001234
001236
001240

CLR
TST

BMI
CMP
BNE
INC
CMPB
BNE
CLR
MOove
INC

2%:
3%:

000757

4s:

JSR
R4 ,BDSRCK
<ADDRESS OF FIELD TO BE SEARCHED>

a2t

iRttt

ttRRRRRRRRR

Rt RRld)

(5P)+,$TMP6
R4 ,$TMP7
(R4) R4

;STORE OLD R4 CONTENTS
;GET RETURN ADDRESS
;GET POINTER TO FIELD TO BE CHECKED

4%
L.DCYL,(R&)+
39
R4
L.DT,(R4)
2%
=(SP)
=(R4), (SP)
$TMPS

SYES - EXIT
;1S THIS ENTRY FOR THIS CYLINDER?
:NO - SKIP
;BUMP TO TRACK
'lS ENTRY FOR THIS TRACLK?
:NO - SKIP
:CLEAR STACK LOCATION
;PUT SECTOR NUMBER ON STACK
:BUMP COUNTER

S$TMPS
(R&)

;CLEAR A COUNTER
:TEST IF FIELD HAS NO (OR NO MORE)ENTRIES

:BRANCH

DEC
ST

R4
(R4)+

sTEST NEXT ENTRY

MoV
MOV
MoV

$THPS - (SP)
$THP6,-(SP)
$TMP7,R4

;PUT COUNT ON STACK
;PUT OLD R4 CONTENTS BACK ON STACK
;SET UP RETURN

;DECREMENT POINTER TO WORD ALIGN
;BUMP TO NEXT ENTRY

10903
}8382

042254
042256

MACY11 30A(1052)
19-JUN-BO
BAD SECTOR CMECK

005724
000204

ST
RTS

14:14

D 16

PAGE 199

(RG)+
R4

:BUMP PAST PARAMETER
:RETURN

10906

;;Q'Qt"t't"tt!t't't""""'t"'tt"tQt'tt"tt.tt"ttttt"t"t'

10907
10908
10909
10910
10911
10912
10913

.SBTTL
DATA GENERATION AND COMPARE ROUTINE
;*
CALLS:
JSR
R4 ,GENCOM
e
CONTROL WORD
i
i
JSR
R4 ,GENCOM
e
CONTROL WORD

LENGTH

10915
10916
10917
10918
10919
10920

T
T
i
L
i
:*

JSR
R4 ,GENCOM
CONTROL WORD
RELOCATION CONSTANT
LENGTH

}83%2

10921
10922

10925
10926
10927~

}8353

e
i
. "

.
I
i

RETURN:

RTS
R&4
R4 IS ADJUSTED IN THE CODE FOR THE FOLLOWING RETURNS:
THE FIRST CALL RETURNS TO THE LOCATION FOLLOWING THE

CONTROL WORD. THIS IS UNCONDITIONAL.

THE SECOND CALL RETURNS TO THE LOCATION FOLLOWING THE LENGTH IF
THE OPERATION REQUIRES DATA COMPARE AND {ATA MISCOMPARED.
IF DATA IS TO BE GENERATED ONLY OR NO DATA COMPARE

ERRORS OCCURRED, THE RETURN IS TO LENGTH +4.

}83%?

THE THIRD CALL IS IDENTICAL TO THE SECOND.

10932

10943
10944

.
T

10933
10934
10935
10936
10937
10938
10939
10940
10941
10942

}8322

]

‘w

i
it
i*
o
i*
i
o
.
i
it

}83@3

10951

}8325

10954

}8822

10957
10958

BIT 15 = DO COMPARE OPERATION OF IBUFF (SOURCE) TO OBUFF
(DESTINATION). EXPECTED VALUES ARE IN OBUFF (DESTINATION.
BIT 14 = RESUME COMPARE OPERATION FROM POINT LEFT BY LAST COMPARE.
BIT 13 = INVOKE MEMORY MANAGEMENT FOR SOURCE (IBUFF).
BIT 12 = INVOKE MEMORY MANAGEMENT FOR DESTINATION (OBUFF).
BIT 11 = REPEAT FIRST WORD OF SELECTED PATTERN THROUGHOUT OBUFF.
BIT 10 = CLEAR IBUFF TO PATTERN SELECTED.
BIT 9 = BUILD HEADERS, CONSIDERING BS FILES
BIT 8 - BUILD HEADERS, ALL SECTORS INDICATE GOOD SECTORS.
BIT 7 = HEADER OPERATION SPECIFIED (EITHER COMPARE OR BUILD).

BIT 6 TO 0 - PATTERN SELECT FIELD, OCTAL ENCODED. O INDICATES
NO DATA GENERATION, 1 IS ALL ZEROS, AND 7 IS ALL ONES.

OTHER PATTERNS PROVIDED ARE PATTERNS 2-6, 8-16.

]

10947

10948

DEFINITION OF CONTROL WORD:

o
b

i
N

I
:*

EXPLANATION OF CALLS:

THE CALL WITH CONTROL WORD THE ONLY PARAMETER IS USED FOR

BUILDING OR COMPARING HEADERS OR RESUMING A COMPARE OPERATION.
THE CALL WITH CONTROL WORD AND LENGTH AS PARAMETERS IS USED

FOR DATA GENERATION OR COMPARE AND FOR IBUFF INITALIZATION.

THE CALL WITH CONTROL WORD, RELOCATION CONSTANT, AND LENGTH IS

USED FOR DATA GENERATION OR COMPARE WITH MEMORY MANAGEMENT.
DESCRIPTION:

~ SEQ 0198

SE—

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

CIREKFO RK6 FCTNL CTRL DIAG

CZR6KF P11

19-JUN-80 14:04

MACY11 30A(1052)

19-JUN-B0

14:14

E 16
PAGE 200

DATA GENERATION AND COMPARE ROUTINE

10959

10962

10960
10961

i
.

10963
10964
10965

THIS ROUTINE IS MULTI-PURPOSE AND WILL PERFORM THE FOLLOWING:
A.
BUILD HEADERS, EITHER 20 OR 22 SECTORS/TRACK MODE. THE

ROUTINE WILL BUILD THE MEADERS AS ALL GOOD SECTORS (BIT 8)

e
i
i

}8329

OR TAKE THE BAD SECTOR FILES (HARDWARE OR SOF TWARE) FOR
EITHER FORMAT) INTO ACCOUNT AND BUILD THE HEADERS WITH THE
SECTORS MARKED BAD IF ANY SECTORS FOR THE CYLINDER - TRACK

ARE LISTED THEREIN (BIT 9).

*®

10968

10970
10971

i
;e

HEADER COMPARE OPERATION MAY BE SPECIFIED (BIT 7) WHICH
WILL CAUSE THE COMPARE TO BE LIMITED TO 74(8) OR 102(8)

e
it

OPERATION (BIT 15 AND BIT 8 OR 9). DATA CAN ALSO BE
GENERATED BEFORE THE COMPARE (NON-ZERO BITS 6-0).

10969

10972
10973
10974

i
ot
i

10975
}83;9

i
¥ 3
i
.

10980
10981

}883%

v
i

042262

}}8}?

11012
11013

11014

042260

010046

042264
042266
042270
042272
042300
042304
042306
042314

010346
010546
012400
012737
032700
001005
012737
000137

042320
042320
042322
042326
042330
042334
042340

042344

042350
042352

042354

GENCOM:

010146

SOURCE OR DESTINATION BUT NOT FOR BOTH. IN THIS

010446
032700
001002
000137
113701
013703

012705

006301
005305

001375

PLACE DATA ANYWHERE IN AVAILABLE MEMORY. LIKEWISE
DATA COMPARE WILL COMPARE THE CONTENTS OF IBUFF TO
ANY AREA OF AVAILABLE MEMORY.

MOV

RO,-(SP)

:;PUSH RO ON STACK

MOV
MOV
MOV
MOV
BIT
BNE
MOV
JMP

R3,-(SP)
RS,=(SP)
(R&)+,RO
FEM54 ,EMI5N
#BIT7,RO
18%
#EMSS EMISN
17%

:;PUSH R3 ON STACK
:;PUSH RS ON STACK
:GET PARAMETER WORD
;PRESET FOR HEADER COMPARE ERRCR
:HEADER OPERATION SPECIFIED?
sYES = SKIP
;CHANGE FOR DATA COMPARE ERROR
;ELSE JUMP TO DATA ROUTINE

MOV

056222
000200

001520

056251
043046

001520
188:

001400

(042630
001607
001614

19$:

18:

R1,=-(SP)

:;PUSH R1 ON STACK

MOV
BIT
BNE
JMP
MOVB
MOV

R&,=(SP)
#BITB!BIT9,RO
19¢
1%
L.DT,R1
L.DCYL,R3

:;PUSH R4 ON STACK
;MUST HEADERS BE BUILT?
;YES - SKIP
;ELSE _JUMP TO HEADFR COMPARE
;START HEADER BUILD ROUTINE
;GET TRACK AND CYL

ASL
DEC

R1
RS

;SHIFT TRACK
:DECREMENT TRACK

MOV

000005

DATA GENERATION OR COMPARE USING MEMORY MANAGEMENT.
MEMORY MANAGEMENT CAN BE INVOKED FOR EITHER
MANNER, DATA GENERATION CAN BE MADE TO

it
*
it

10994

11003
11004
11005
11006
11007
11008
11009

042260

RESUME COMPARE OPERATION. IF A COMPARE OPERATION
DETECTS A MISCOMPARE, THE ROUTINE RETURNS TO CALLER

SET IN THE CONTROL WORD.

10992

CONTENTS OF THE BUFFZR MAY BE HEADERS OR DATA. A

BUT STORES PARAMETERS SUCH THAT THE (OMPARE CAN BE
RESUMED. THIS IS DONE BY CALLING GENCOM WITH BIT 14

10986
10987
10988
10989
}838?

10995
10996
10997
10998
10999
11000
11001
11002

10984
10985

COMPARE THE CONTENTS OF IBUFF AND OBUFF (BIT 15). THE

WORDS OF HEADERS. THE LENGTH DEPENDS ON THE FORMAT
BIT THAT WAS LAST SPECIFIED IN L.CS1. THE HEADERS
MAY BE BUILT BEFORE THE COMPARE AS PART OF THE

‘%

10978
10979

10993

BNE

#5,R5
1%

;SET COUNT TO SHIFT TRACK FOR HDR WORD

;LOOP UNTIL COUNT 0

SEQ 0199

19-JUN=-B0 14:04

OCO0O0O0O0O0O00
S bbb\
N

042356

O0OO00C0O
NSO N

KFO Rk6 FCTNL CTRL DIAG

MOV

BIT
BEQ

001600

000024
001000

MOV

BIS

2%:

140000

072414

3$:

001224

032700
001003
005700

BIS

MOV
MOV
MOV
MOV
MOV

BIC
BIC
BIS

#26,R4

#CFMT,L.CST

#24 R4
#B1T9,R1
#BITIS!BITI4,RY
#OBUFF RS
R3,(R5)+
R1,(R5)+
R3,$TMP1
R1,(RS)
R1,$TMP1
R3, (RS)
$TMP1,(RS)+

001000

4%:
10%:

100464

000534

013737
012737
032737
001403
013737

001640

004437
000000
012605
001417

042160

100000

010000

042520
001224
001600

001636

042520

5%:

BEQ
MOV

7%:

072414
072416

100000

001224

040000
001644
010000

001224

042520
001600

MOV
MOV

BIT

8%:
6%:

000002
001224
001224

BIT

BNE
TST
BM]
BR

JSR
.WORD
MOV
BEQ

MOV
ASL
ASL
ADD

ADD
ADD

BIC
BIC
DEC
BNE

9%:

BIT
BEQ

MUV
MOV

BIT

BEQ

;PRESET FOR 26 SECTOR MODE
1S IT 24 SECTOR MODE?

;sNO = SKIP
:CHANGE COUNT FOR 24 SECTOR MODE

:SET 24 SECTOR MODE BIT IN WRD 2 OF HDR
;SET BS BITS TO INDICATE GOOD SECTOR
;SET POINTER TO ADDRESS WHERE HEADERS GO
; INSERT CYLINDER
; INSERT TRACK AND SECTOR
;CALCULATE HVRC WORD

;COMPLETE HVRC WORD INSERTION
;DECREMENT HEADER COUNT

DEC
BEQ
INC
BR

005201
000762

[=lelelelele]
OW
=2 —2OW

¥ REXRSERRER RN

oo
-t ON~N
oo
N

RRERRRRRR
=lelelelelelelelel=]

flddfldflddddddddddd-fl-‘-‘ddfl

042446
042452
042454
042456
042460

F 16
14:14
PAGE 201
19-JUN-80
30A(1052)
DATA GENERATION AND COMPARE ROUTINE

001224

042432
042436
042440
042442
042444

000026
010000

MACY11

;:DONE? - YES, SKIP

;BUMP SECTOR
;LOOP

#B1T9,RO

IS THIS A COMPARE OPERATION?

RO
11%

*YES-GO DO HDR COMPARE
“ELSE GET OUT

50%

BSF26P,6%

#BIT15,8TMP]
#CFMT,L.CST
8$

BSF24P,6%
R4 ,BOSRCK

:vggr ug:?gns BE CORRECTED FOR TABLE ENTRIES?

(SP)+,R5
9%

;PRESET FOR BS FACTORY LIST
;SET BIT TO BE RESET IN BAD HEADER
;1S THIS 26 SECTOR MODE?
;YES = SKIP
;ELSE CHANGE FOR 24 SECTOR MODE

;GO CHECK FOR BAD SECTOR THIS ADDRESS
;POINTER TO FILE TO BE CHECKED GOES HERE
;GET # OF BAD SECTORS THIS PACK ADDRESS
;SKIP IF ZERO

(SP) ,R1

;GET 1ST BAD SECTOR NUMBER

(SP)+,R1
”,R

;ADD 2 FOR 2ND WORD THAT SECTOR

RS
7%

;DECREMENT BAD SECTOR COUNT
;LOOP IF NOT ZERO

#BiT15,8TMPT
108
#BIT14,8TMPI

;WERE WE DOING BS FACTORY LIST?
:NO - GO CHECK IF COMPARE MUST BE DONE
;ELSE SET BIT TO BE RESET IN BAD HDR

#CEMT,L.CST

;TEST IF WE ARE DOING 26 SECTOR MODE
JYES = SKIP TO START (HECK

R1
R1
(SP) ,R1

;MULTIPLY SECTOR NUMBER BY 6 TO
;LOACATE SECTOR TO BE MARKED BAD

$TMP1,0BUFF(R1) ; CLEAR BIT FOR BAD SECTOR IN HDR
$TMP1,0BUFF+2(R1) ; CORRECT THE HVRC BIT

BSS26P,6%
8%

;PRESET POINTER FOR 26 SECTOR MODE

SEQ 0200

CIR6KFO Rk6 FCTNL CTRL DIAG
CIR6KF P11
19-JUN-80 14:04
11071

}}8;%
11074

042620

042626

013737

000732

001642

G 16
MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 202
DATA GENERATION AND COMPARE ROUTINE
042520

MOV

11075

042630

012701

000102

3}8;3

0462644

012701

000074

11080
11081
11082
11083
11084
11085
11086
11087
11088

042650
042654
042660
042662
042666
042670
042674
042700
042704

012704
012705
005003
032700
001412
013705
013704
013703
013701

070414
072414

001700
001702
001704
001706

28%:

11092

042714

032700

030000

138

11076
11077

11089
}}83?
11093
11094

11095

11096
11097

11098
11099
11100

11101
11102

11103

11106

062634
042642

042710
042712
042720
042722

042726

042730
042732

04$7sa
042736
042740

042744
042748
042752

042752

032737
001402

005701
001417
001402
005237

022425

010000

001402
005337

f1s:

12%:

040000

177572

001012
005203

005301
001373
032700

001600

258%:

177572

012604

€0%:

11110
11111
11112
11113
11114
11115
11116
11117
11118
11119

}:}gg
1112;

042756

042762
062766
042772
042776
043002
043004
043006
043012

043013
043022

0430264
043030

11123

043030

11126

04303

010537

010437
014537
014437
010337
005301
005203
010137
010337
032700
001402

005337

012604

;PRESET FOR 102 WORDS OF HEADER

MOV

74,1

:CHANGE TO 74 WORDS OF HEADER

001700

001702
001202
001204
001206

#CFMT,L.CSY
12%

:CHECK IF 26 SECTOR MODE
SYES = SKIP

MOV
MOV
(LR
BIT
BEQ
MOV
MOV
MOV
MOV

#1BUFF R4
#OBUFF .RS
R3
#BIT14,RO
138
DESHLD,RS
SRCHLD R4
WRDNUM,R3
WRDCNT .R1

BIT

#BIT12'BIT13,R0 ;MEM MANAGE REQUIRED?

BEQ
INC

R1
50%

:SET START OF HEADERS TO BE COMPARED
SSET START OF GOOD HEADERS
:CLEAR COUNTER
215 THIS A CONTINUATION OF EARLIER COMPARE
INO = SKIP
:GET VALUES WHERE PREVIOUS CHECK STOPPED
:
DESTINATION AND SOURCE
:
WORD NUMBER IN ERROR
:
WORD COUNT LEFT IN COMPARE

:NO = SKIP
STURN IT ON

BNE
INC

14%
R3

SSKIP IF NOT EQUAL
:BUMP WORD NUMBER IN ERROR

BNE
BIT
BEQ
DEC

508
MSRO

:NO = SKIP
STURN IT OFF

(SP)+,R&

::POP STACK INTO Ré&

CMP

MOV

(RG)+,(RS)+

:COMPARE THE WORDS

R1
:DEC WORD COUNT LEFT IN COMPARE
25%
:LOOP IF NOT ZERO
#BIT12'BIT13,RO -MEM MANAGE IN USE?

16%

;

ERROR REPORT PREP AND PARAMETER STORAGE FOR CONTINUATION

148

MOV

RS,DESHLD

:STORE DESTINATION

DEC

ISRO

STURN 1T OFF

001706
001704
030000

177572
15%:

MoV
MOV
Moy
MOV
DEC
INC
MOV
MOV
BIT
BEQ

MOV

157

;}}sg 043032 005724
16%

:
.

:TEST IF WORD COUNT LEFT = 0
;YES = EXIT

258
afSRO

B8R

:1185

COMPARE

:SKIP TO START CHECK

#102,R1

BIT
BEQ

DEC

030000

:CHANGE POINTER TOR 24 SECTOR MODE

MOV

18T
BEQ

;}}82 062754 000427
11109

START OF

BSS24P,6%

SEQ 0201

R4 ,SRCHLD
-(RS),$REG10
-(R&) ,SREG
R3,$REG12
R1
R3
R1,WRDCNT
R3.WRDNUM
#BIT12'BIT13,R0
15%

(SP)+ R4

(RG)+

2
SOURCE
:LOAD GOOD WORD FOR REPORT
:
BAD WORD
;
WORD NUMBER
*DEC COUNT LEFTFOR CONTINUATION
:BUMP BAD WORD NUMBER
:STORE COUNT LEFT
;
WORD NUM IN ERROR
;MEM MANAGE IS USE?
;NO = SKIP

::POP STACK INTO R&

*ERROR RE TURN

19<JUN-80 14:04

0430

NN NNNNNNNYNO zsogoooommmmummmmwbbbrbbbbbbu

B Al il Al Al Al il Al Al A
i
et

D Al

D Al B el
e
I

B el A Al A
4
e e

D Al
A
A

D i il Al il
R
R

——————
S

D il il il il Dl il il
S
S
—————

D il il il
A

COOOOD

— il ol
A

MACY1Y 30AC1052)

19-JuUN-B0

14:14

W16

PAGE 203

DATA GENERATION AND COMPARE ROUTINE

. $EQ 0202

Oaggiz 81 603

012605

MoV

(SP)+ RS

043042
043044

MOV

(SP)+.R3

::POP STACK INTO RS

12601

MOV

MOV
RTS

(SP)+ R

(SP)+.RO
R

;;POP STACK INTO RI

S:POP STACK INTO RO

012600
000204

e I e e

il ARl A
il A A B ol
e
e
I
e e
NN

DIAG

043046 032700 040000
043052
043054

001402
010446

043060
043064
043070
063074

012705
012703
032700
001412

072414
070414
030000

043076

012437

1723564

043106

001403

DATA PATTERN PROCESSING ROUTINE

17%:

817

#81T14,.R0

:CONTINUE WITH COMPARE?

28%

:G0 CONTINUE COMPARE

043056 000704

043102

S:POP STACK INTO R3

29%:

BEQ
MOV

29%
R4, =(SP)

:NO = SKIP
*STORE RE TURN

MOV
MOV
BIT
BEQ

#OBUFF ,RS
#1BUFF ,R3
#BIT12'BIT13,R0
21%

:GET DESTINATION
;GET SOURCE
;USE MEM MANAGE?
:NO = SKIP

MOV

(RG)+,3CIPARG

;LOAD PAR FOR RELOCATION

032700

010000

817

#B1112,R0

*RELOCATE SOURCZ?

012705

140070

043116

012703

140070

MOV
BR

#140070,RS
218

SSET DESTINATION TQ USE PARG + OFFSET
SSKIP

043122
063124

012401
010446

MOV
MOV

(R&)+,R1
R4 ,=(SP)

:STORE COUNT
:STORE RETURN

0431
043132
043136

005003
032700
001666

CLR
BIT
BEQ

R3
#77 R0
138

“CLEAR R3 FOR WORD NUMBER COUNTER
;ANY DATA PATTERN SPECIFIED?
:NO = GO DO COMPARE

043110
063114

0‘%1 6

BEG

20%:
21%:

010304

MOV
000077
;

043140
043144
043150
043154

010537
010437
010337
010137

001700
001702
001704
001706
;

032700
001402
005237

043176
043200
043202
043204

001403
010446
010504
012605

043206

122700

043216

005301

030000
177572

043172 032700 002000

338%:

000001

32%:

043212 001004
043214 005025

308 :

#140070,R3
RY, R4

:NO = SKIP

:SET SOURCE TO USE PAR6 + OFFSET
:PUT IN

IBUFF POINTER

START OF GENERATION ROUTINE

MOV
MOV
MOV
MOV

;
043160
043164
043166

MOV

208

RS,DESHLD
R4 .SRCHLD
R3 . WRDNUM
R1,WRDCNT

:STORE PARAMETERS FOR COMPARE

CODE TO GENERATE DATA PATTERN IN AREA POINTED TO BY RS.

MEMORY MANAGEMENT WIL. BE TURNED ON BUT RELOCATION

WILL NOT OCCUR UNLESS REQUIRED BY SWITCHES

BIT
BEQ
INC

#BIT12'BIT13,).0 :MEMORY MANAGEMENT REQUIRED?
:NO = SKIP
33g
IR0
:TURN IT ON

BEQ
MOV
MOV
MOV

328
R4 ,=(SP)
RS, R4
(SP)+,RS

:NO = SKIP
‘ELSE SWAP R4 AND RS

CMPB

#1,R0

:PATTERN 1 (ALL ZER0S)?

DEC

:DEC WORD COUNT

BIT

BNE
CLR

#B1110,R0

55§
(RS)+

“GENERATE PATTERN IN IQUFF?

‘NO = SKIP
SCLEAR WORD IN BUFF

———

P11

O RKé FCTNL CTRL

O OM
XX
s
oo
B D b e
b b b e
b bl e

AR NN SO O

e
e Yy

NOMNINNININPONIN AN NINIMNIMNINI NN MNROMNIMNIMNIMNIMNIN

et N g

B A R I

S S RN

it st

oo~

NN
e

116
19-JUN-80
14:14
PAGE 204
30A(1052)
DATA GENERATION AND COMPARE ROUTINE

001375
000550

e B b e e

NN » W=D SEURERARSEEIURRREN 28TEIETR Ww

i i D

MACY11

043256

043260
043264
043266
043272
043274
043300
043302
043306

043310
043314
043316
043322
043324
043330
043332
043336

043340
043344
043346
043352
043354
043360

122700
001005
012725
005301
001374
000540

000007

55%:

177777

318:

122700
001003
012703
000504

000002

122700

000003

001003
012703
000476
122700

001003
012703
000470
122700

001003
012703
000462
122700

001003
012703
000454

047144

000004

000005

000006

122700

000011

043362
043366

001003
012703
000440

043370
043374
043376
043402

122700
001003
012703
000432

000012

122700

000013

122700

59%:

;LOOP UNTIL WORD COUNT ZERO
;EXIT BUILD

CMPB
BNE
MoV
DEC
BNE
BR

#7 R0

sPATTERN 7 (ALL ONES)?
:NO - SKI [

31%
22%

;LOAD WORD IN BUFF
;DEC WORD COUNT
;LOOP UN" 'L WORD COUNT ZERO
SEXIT BUILD

(MPB
BNE
MOV
BR

#2,R0

sPATTERN 2 SET UP

CMPB
BNE
MOV
BR

#3,R0

(MPB
BNE

#4 ,RO

56$

#-1,(R5)+
R

57¢

#PATO02,R3
708

58%

;PATTERN 3 SET P

#PATO3,R3
70%

59%

MOV

#PATO4 ,R3
70%

(MPB
BNE

#5,R0

60%

;PATTERN 4 SET UP

;PATTERN 5 SET UP

#PATOS ,R3
70%

CMPB
BNE

sPATTERN 6 SET UP

#6,R0
61%
#PATO6,R3
70%

61%.

(MPB
BNE
MOV
BR

62 $
#PAT10,R3
70%

#10,R0

sPATTERN 10 SET

62%:

(MPB
BNE

#11,R0

;PATTERN 11

SET uP

;PATTERN 12

SET UP

60%:

MOV

047444

MOV

63%:

047504
64%:

65%:

63%

#PAT11,R3
70%

CMPB
BNE

#12,R0

70%

MOV

047544
000014

30
22%

MOV

047344

047404

BNE
BR

047304

012703
000446

043420

58%:

047244

000010

001003
012703
000424

57%:

047204

122700
001003

043412
043416

56%:

SEQ 0203

64%
#PAT12,R3

(MPB
BNE
MOV

#13,R0

;PATTERN 13 SET

65%
#PAT13,R3
70%

CMPB

#14,R0

;PATTERN 14

SET UP

—

pB
o]
D e il D il Dl il D il D e e

dddddddddd‘“dflfldadd-‘ —

d e

D e

D D

Dl il B il D D el D i D el il D il D il il D il D D D D i D il ) D il D il D i i

FO RK6 FCTNL CTRL DIAG
19-JUN-B0 14:04
P11

(2 R6KFO RK6 FCTNL CTRL DIAG

CZR6KF P11
11239

19-JUN-80 14:04

043424

001003

043432

000416

112640

043426

012703

047604

11243
11244
11245

043434
043440
043442

122700
001003
012703

000015

11248
11249
11250

043450
043454
043456

000016

043462

122700
001003
012703
000402

}}%gz

043464

012703

047704

11255
11256
11257

043470
043474
043476

032700
001020
010446

004000

}}%2;

}}%2?

}}gg;

11258
11259

u%g?

043446

043500
043502

043506

000410

010046
012700

010504

MACY11

30A(1052)

66%:

#16,R0
68%
#PAT16,R3

;PATTERN 16 SET UP

68%:

MOV

#PAT16,R3

;SET UP FOR 16

70%:

BIT
BNE
MOV

#81T11,R0
73%
R4 ,=(SP)

;FIRST WORD REPEAT?
;YES - SKIP
;STORE Ré

MOV

RS.R&

;STORE START OF BUFF

BR
67%:

047704

MOV
MOV

000020

012425
005301

72%:

11272
11273
}}g;g

043530
043532
043534

012600
012604
000403

11276
11277
}}g;g,

043536
043540
043542

011325
005301
001375

11280
11281
11282
11283
11284
11285
11286
11287
11288
11289
11290

043544
043550
043552
043556
043560
043562
043566
043572
043576
043602
043606

032700
001402
005337
005700
100012
013705
013704
013703
013701
000137

11294

001700
001702
001704
001706
042714

043034

RO,=(SP)
#16.,R0

;STORE RO
sPRESET COUNT FOR PATTERN LENGTH

BNE

sMOV WORD TO BUFF
;DEC WORD COUNT
JEXIT IF ZERO
;DEC PAT LENGTH COUNT

MOV
DEC

(R4)+,(RS)+
R1

JsREPEAT PATTERN IN BUFFER
sDEC WORD COUNT

74%:

MOV
MOV
BR

(SP)+,R0
(SP)+,R4
22%

;RESTORE RO
;RESTORE R&4
JEXIT BUILD

73%:

MOV
DEC
BNE

(R3),(RS)+
R1
73%

sMOV THE SAME WORD INTO BUFFER
sDEC WORD COUNT
;LOOP UNTIL ZERO

22%:

BIT
BREQ
DEC
TST
BPL
MOV
MOV
MOV
MOV
JMP

#BIT12!'BIT13,R0O
34%
a#SRO
RO
238
DESHLD ,RS
SRCHLD,R4
WRDONUM,R3
WRDCNT,R1
13%

;MEMORY MANAGEMENT REQUIRED?
;NO - SKIP
sTURN OFF MEM MANAGEMENT
;1S COMPARE REQUIRED?
;NO - SKIP
;RESTORE COMPARE PARAMETERS

MOV
JMP

(SP)+,%¢4
16%

;:POP STACK INTO R4
;G0 TO EXIT

BNE

177572

708

(R3)+,(RS)+
R1
74%
RC
7%

001375

030000

708

MOV
DEC
BEQ
DEC

001373

012604
000137

70%

#PAT14,RY

CMPB
BNE
MOV
BR

047644

043522
043524

043606
043610

;PATTERN 15 SET UP

11268
11269

11291
}}ggg

669

#15,R0
67%
#PAT15,R3

71%:

043526

J 16
PAGE 205

(MPB
BNE
MOV

012325
005301
001405
005300

}}%;?

BNE

MOV

043510
043512
043514
043516

043520

14:14

DATA GENERATION AND COMPARE ROUTINE

11262
11263
11264
11265

}}%gg

19=JUN-B0

348 :-

23%:

72%

;LOOP IF NOT ZERO

;LOOP UNTIL WORD COUNT ZERO

;GO START COMPARE

R L
L R
A Rl

SEQ 0204

C IR6KFO

RK6 FCTNL CTRL DIAG

CZR6KF P11

19-JUN-80 14:04

MACY11 30A(1052)

19-JUN-B0

14:14

K 16

PAGE 206

PHASE LOCK LOOP CLOCK ADJUSTMENT ROUNTINE

11295
11296
11297
11298
11299
11300

LSBTTL
i
it
3e
i
i

}}ggg

]

}}%82

PHASE LOCK LOOP CLOCK ADJUSTMENT ROUNTINE
THIS ROUTINE 1S ENTERED ViA A START AT LOCATION 220(8). THE
PROGRAM FIRST RUNS TEST 1, 2, AND 3 TO 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 DIAGNOSTIC MODE BIT IN MR1. INSTRUCTIONS ON WHERE TO

SCOPE AND WHAT TO ADJUST ARE TYPED ON THE CONSOLE.

THIS ROUTINE WILL LOOP UNTIL THE PROCESSOR IS HALTED.

}}%82

043614

104401

052662

11307

043620

012762

000040

000010

MOV

#SCLR,RKCSZ(R2) ;CLEAR SUBSYSTEM

11309
11310
11311
11312
11313
}}g}g

043634
043642
043650
043652
043660
043662

012762
032762
001774
032737
001402
005077

000001
000200

000000
C00000

MOV
BIT
BEQ
BIT
BEQ
CLR

#1,RKCS1(R2)
#RDY,RKCS1(R2)
5%
#LCLKPR,OPTFLG
1%
aKWLADD

11316
11317
11318
11319
11320
11321
11322
11323

043666
043674
043700
043702
043704
043712
043716
043720

11308 043626

}}ggg

013762

012762
012701
005301
001376
012762
012701
005301
001376

001626

100000

ADJCLK: TYPE

000010

136022
000040
000014

000026

000000
000014

000026
3.

.SBTTL

it
it
it
*
I

043724

012737

11335
}}ggg

043732
0643734

104416
104003

11338 043736

#DMD,RKMR1(R2)
#2..R1
R1
2%
#0,RKMR1(R2)
2. R
R1
3%

;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

CONTROLLED HALT SUBROUTINE

THIS ROUTINE IS ENTERED WHEN A CONTROL C IS TYPED. THE
SUBSYSTEM IS CLEARED, THE DRIVE IS RECALIBRATED, AND, IF
NECESSARY, CERTAIN CYLINDERS ARE REFORMATED. THE REFORMATTING
1S CONTROLLED BY THE LOCATION REFMT WHICH CONTAINS THE ADDRESS
OF THE CYLINDER TO BE REFORMATTED.

CTRHLT: MOV

#STN,STESTN

:SET UP FOR HALT FAIL

113700 001102

MOVB

$TSTNM, RO

:GET CURRENT TEST NUMBER

022700

(MP

#3,R0

:TEST If TEST NUMBER 3

042700

11341
11342
11343
11344
11345
11346
11347

043752
043754
043760
043762
043764
043766
043767

001464
004437
000113
000000
000000
000
000

043772

001302

DRVNUM,RK(CS2(R2)

:CLEAR SUBSYSTEM
;BAD INIT ERROR

043742

043770

000111

;TYPE ADJUSTMENT INSTRUCTIONS

TSSINIT
3
ERROR

11339

043746

MOV
MOV
DEC
BNE
MOV
MOV
DEC
BNE

B8R

043722 000761

}}ggz

11350

1%:

2%:

11327
11328
11329
11330
%}ggg

}};23

S%:

001664

11326

11340

MOV

,0PRO19

000000
104417

177400

000003
035674

BIC

BEQ
JSR
RECAL
0
0
BYTE
BYTE

TLOADRK

#177400,R0

PROGEND
R&,LRLOAD

0
0

:CLEAR UNUSED BITS

;GO TO HALT PROG
:LOAD "'L'* REGS
sRECAL
;0 WORDS
:0 IS BUFF ADDRESS
:SECTOR 0
:TRACK 0

;CYLINDER 0

:LOAD RK REGS

SEQ@ 0205

CZR6KF P11

19-JUN-B0 14:04

MACY11

30A(1052)

19-JUN-B0

CONTROLLED HALT SUBROUTINE

11351

}}gg%

043774
043776

104423
104002

TWAT16
ERROR

11354

044000

104421

TCHKOP
ERROR

11357
11358

044004
044010

005037
104437

11361

044014

104421

11364

044020

104416

11367
11368

044024
044030

005737
001435

001676

104401

053025

11371

044036

004437

035674

11375
11376
}}g;g

044050
044051
044052

000
000
000312

}}ggz

}}ggg

}}gg%
}}ggg

}}g?g
11372
11373
11374

044002

044012

044016
044022

044032

044042
044044
044046

104004
001662

CLR
TWAT8S

104002

ERROR

TCHKOP

104004

ERROR

TSSINIT

104003

000127
177676
072414

14:14

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

INTSET

;OR 5, 6, 7

;CHECK OPERATION FOR ANY ERRORS

;REPORT ALL ERRORS

;CLEAR INTERRUPT FLAG
;WAIT FOR SECOND INTERRUPT

;CHECK OPERATION FOR ANY ERRORS

;REPORT ALL ERRORS
;CLEAR SUBSYSTEM

TST
BEQ

REFMT
PROGEND

;TEST IF REFORMAT REQUIRED
;NO = GO TO HALT

JSR

R4, LRLOAD

;LOAD "'L'* REGS

BYTE
.BYTE
312

0
0

;SECTOR 0
s TRACK 0
;CYLINDER 312

TST
BPL

REFMT
5%
L.DCYL
R4 ,GENCOM

WRHEAD
=102
OBUF F

;BAD INIT ERROR

.0PR0O20

: TYPE MESSAGE

; WRHEAD
;=102 WORDS
;0BUFF IS BUFF ADDRESS

11379
11380
11381
11382
}}ggz

044054
044060
044062
044066
044072

005737
100002
005037
004437
001200

11385

044074

104417

104434
104002

TLOADRK

TWAT159
ERROR
2

:LOAD RK REGS

11389
}}gg?

044102
044104

104421
104004

TCHKOP
ERROR

;CHECK OPERATION FOR ANY ERRORS
;REPORT ALL ERRORS

11392
11393
11394
}}ggz

044106
044114
044116
044122

001403
105237

11397
11398
11399

044124
044130
044134

104401
"12706
105037

053121
001100
001103

005037

032020

11386
}}gg‘

11400
11401
11402

044076
044100

}}282

044140
044144
044150
044152
044156

11406

044162

11403

122737

000761

005037
005737
001404

000137
000000

001614

042260

000002

5%:

001607

CLR

JSR

1200

CMPB

PROGEND :

001264
000042

;OR 5, 6, 7

MoV
CLRB

TYPE
,OPRO21 ;TYPE HALT MESSAGE
#STACK,SP
;CLEAR STACK
SERFLG
;CLEAR ERROR FLAG

CLR

$EOPCT

JMP
108:

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

CLR
TST
BEQ

031772

;TEST IF CYL O
:NO = SKIP
;ELSE LOAD FOR CYL 0
;GENERATE HEADERS

#2,L.07
PROGEND
L.DT
5%

BEQ
INCB

001607

HALT

;WAIT FOR INTERRUPT

ERROR

TYPE

001676

L 16
PAGE 207

;TEST IF TRACK 2 FORMATTED
;YES = SKIP
;ELSE BUMP TRACK
;D0 NEXT TRACK

S$ESCAPE
an42
109

;CLEAR ESCAPE
;TEST IF MONITOR PRESENT
:NO - SKIP

$EOP

;GO TO END OF PASS

;StT _FOR END OF PROGRAM
;HALT PROGRAM

SEQ 0206

BRI

CIR6 KFO RK6 FCTNL CTRL DIAG

053162

TYPE

044124

LSBTTL
R R

}}25%

:*NOTE3:

:GO STOP PROGRAM

;*CALL:
:*1) USING A TRAP INSTRUCTION

11427
11428
11429

;*OR
i*
I

11426

11432
11433
11434
11435

044202
044206
044210
044212

105737
100002
000000
000430

001157

11437
11438
11439
116440
11441
11442
11443
11444
11445
11446
11647
11448
11449
11450
11451
11452
11453
11454
11455
11456
11457
11458
11459
11660
11461

044216
044222
044230
044232
044240
044242
044246
044252
044254
044262
044264
044266
044270
044272
044274
044300
044302
044306
044310
044314
044316
044320
044322
044326
044330

017600
122737
001011
132737
001405
010037
004737
000000
132737
001003
112046
001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401
001273
105037
000755

000002
000001

001316

000100

O0C1317

11436

114662

A A

A Al Al Al

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

11424
11425

143y
143

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
:«THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
:*NOTE1:
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
;*NOTE2:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
:Q

044214

044332

(010046

004737

$TYPE:

1$%:

044252
033354
000040

001317

61%:
62%:

2%:

000002

60$:
3%:

000011

4$:

000200

044460

044414

5%:

TYPE

LMESADR

::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TSTB
BPL

$TPFLG
1%

MOV

RO,=-(SP)

::1S THERE A TERMINAL?
::BR IF YES
::HALT HERE IF NO TERMINAL
s
sLEAVE

TYPE
ME SADR

HALT
BR

MOV
CMPB
BNE
BITB
BEQ
MOV
JSR
LWORD
BITB
BNE
MOVB
BNE
TST
MOV
ADD
RTI
CMPB
BEQ
CMPB
BNE
ST
TYPE
$CRLF
CLRB
3K

JSR

lalal

:TYPE HALT FAIL MESSAGE

PROGEND

TYPE ROUTINE

114617

11418
11419
11420
11421

,OPR0O22

JMP

~N~N

|
}}2}2

104401

a2(SP),RO
#APTENV, SENV
62%
#APTSPOOL ,$SENVM
62%
RO,61%
PC,SATY3
O
#APTCSUP,SENVM
60%
(RO)+,=(SP)
43
(SP)+
(SP)+,R0
#2,(SP)
#HT, (SP)
8%
#CRLF, (SP)
5%
(SP)+

$CHARCNT
2%
PC,STYPEC

: :SAVE RO

;

::GET ADDRESS OF ASCIZ STRING
:sRUNNING IN APT MODE
::NO,GO CHECK FOR APT CONSOLE
;;SPOOL MESSAGE TO APT
::NO,GO CHECK FOR CONSOLE
::SETUP MESSAGE ADDRESS FOR APT
::SPOOL MESSAGE TO APT
; sMESSAGE ADDRESS
;;APT CONSOLE SUPPRESSED
::YES,SKIP TYPE OUT
::PUSH CHARACTER TO BE TYPED ONTO STACK
;:BR IF IT ISN'T THE TERMINATOR
;:1F TERMINATOR POP IT OFF THE STACK
::RESTORE RO
::ADJUST RETURN PC
: :RETURN
;:BRANCH IF <HT>

::BRANCH IF NOT <CRLF>
::POP <CR><LF> EQUIV
::TYPE A CR AND LF

::CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
::G0 TYPE THIS CMARACTER

000137

p—p—_gp_—_gp_—_g—_p PP

044176

11614

— S — — O —— g —————— —

000240

044172

044170

11413

.
THIS ROUTINE 1S ENTERED IF A HARDWARE ERROR IS DETECTED WHEN
T
THE CARTRIDGE 1S BEING REFORMATTED PRIOR TO HALT.
ABTFAIL:
NOP

WO W

11410
11N
11412

HALT FAIL ROUTINE

SO N

LSBTTL

:GO TO RESTART IF CONTINUE

TN O

11409

STARTY

JMP

SEQ 0207

001776

PAGE 208

000137

CONTROLLED HALT SUBROUTINE

044164

14:14

}}29;

19-JUN=-80 14:04

19-JUN-B0

CIR6KFO RK6 FCTNL CTRL DIAG

CIR6KF P11

MACY11 30A(1052)

D
D
D
D
D
D
D
D
D
D
d e

$TYPEC: TSTB
ROL

134522
000002

MoVB
CMPB
BNE
CLRB

044460
000002

18:

B8R

CMPB
BEQ
INCB
$CHARCNT:.WORD
$TYPEX: RTS

asTPS

$TYPEC

::WAIT UNTIL PRINTER IS READY

2(SP),asTPB
#CR,2(SP)
1%
$CHARCNT

::LOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
: :BRANCH IF NO
::YES==CLEAR CHARACTER COUNT

#LF,2(SP)
$TYPEX
(PC)+
0
PC

::1S CHARACTER A LINE FEED?
::BRANCH IF YES
:;COUNT THE CHARACTER
::CHARACTER COUNT STORAGE

$TYPEX

DEXIT

.SBTTL

‘96

;:ttttt.tt'ttttt't'tt"'ttt""i'ttt't.tltttttttti't'tttttt"tt't

502

;*CALL:

e — e

zgg

S«THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
:«SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
S«NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
:«BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
:*REPLACED WITH SPACES.

497
498
499
500
501

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

T
T

MOV
TYPDS

NUM,=(SP)

::PUT THE BINARY NUMBER ON THE STACK
::6G0 TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
RS,=(SP)

::PUSH RO ON STACK
::PUSH R1 ON STACK
;:PUSH R2 ON STACK
::PUSH R3 ON STACK
::PUSH RS ON STACK

MOV
BPL
NEG
MOVB
CLR
MOV

20(SP) ,RS
13
RS
#'-,1(5P)
RO
#$DBLK,R3

;:GET THE INPUT NUMBER
::BR IF INPUT IS POS.
::MAKE THE BINARY NUMBER POS.
::MAKE THE ASCII NUMBER NEG.
::2ERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER

~NN

lalal

—

— Y

— — Y—

—

N— Y — Y — Y ——

503
ggg

000012

::URANCH IF NOT AT
;:TAB STOP
;:POP SPAZE OFF STACK
::GET NEXT CHARACTER

::TYPE A SPACE

122766
001402
105227
000000
000207

000406

#7,$CHARCNT
9s
(SP)+
2%

04L4LLLE
044454
044456
044460
044462

044444

BITB
BNE
TST
BR

YU YU

000002
000015

;:REPLACE TAB WITH SPACE

PC.STYPEC

YU Y

116677
122766
001003
105037

#L(SP)

JSR

044422
044430
044436
044440

100375

MOVB

134530

044416

044460

9% :

D
D

105777

481

000007

8%:

044420

132737
001372
005726
000724

044414

482

000040

YU YU S

044400
044406
044410
044412

112716

004737

::L00P

;

477
478
479
480

044370

476 044374

488
489
490
491
2g§

:HORIZONTAL TAB PROCESSOR

475

4B7

1(5P)
[
PC,STYPEC
$CHARCNT

B8R

2;2

483
484
485
486

DECB
BLT
JSR
DECB

::GET # OF FILLER CHARS. NEEDED
::AND THE NULL CHAR.
::DOES A NULL NEED TO BE TYPED?
::Bk IF NO=-=GO POP THE NULL OFF OF STACK
::G0 TYPE A NULL
::D0 NOT COUNT AS A COUNT

::1F NO GO GET NEXT CHAR.

WU Y

000770

044414
044460

$NULL,=(SP)

044366

78:

MOV

000001

::1S IT TIME FOR FILLER CHARS.?

105366
002770
004737
105337

044350
044354
044356
044362

$FILLC,(SP)+

001154

CMPB

BNE

SEQ 0208

D DB
D
D D

2;;

013746

6$:

14:14

044344

001156

001350

19-JUN-B0

TYPE ROUTINE

465
L66
467
468
469
470

123726

044342

MACY11 30A(1052)

064336

464

19-JUN-80 14:04

3
PAGE 209

506

- ————————

507
SO08
509
510
511

044464

044464
044466
044470
044472
044474

010046
010146
010246
010346
010546

044502
044506
044510
044512
044520
044522

016605
100004
005405
112766
005000
012703

512 044476 012746
513
514
515
516
517
518

$TYPDS:

020200

MOV

000020

000055
044700

000001

1$:

#20200,-(SP)

::SET BLANK SWITCH AND SIGN

~N~N

463

-.-J—.dddddddddfl-‘fl-‘—‘d—l-‘—.d—‘-‘-ld—.d—lda-‘-‘-‘-‘-‘-‘dfl-‘-‘—..‘—“d-‘dd_‘—‘a-‘—‘dd

lalal

6KFD RK6 FCTNL CTRk DIAG

6KF P11

(SP)+,RS
(SP)+.R3
(SP)+,R2
(SP)+.R1

(SP)+.RO
$DBLK

2(SP),4(SP)

000004

(SP)+. (SP)

$DTBL:

$DBLK:

.SBTTL

.BLKW

::POP STACK INTO R1
::POP STACK INTO RO
sNOW TYPE THE NUMBER
::ADJUST THE STACK

;sRETURN TO USER

BINARY T 0O OCTAL (ASCII) AND TYPE

::.ii't't'.."'lt"'t""'""QQ'.."".tit"'tt.tttt'i'ttt""tt

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
;*OCTAL (ASCII) NUMBER AND TYPE IT.

;*$TYPOS==-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*CALL:

NUM,-(SP)

lalal

D ud

D e

::POP STACK INTO RZ2

000004

ssYES==SET THE SIGN FOR TYPING
::SET THe TERMINATOR
::POP ST,..K INTO RS
::POP STACK INTO R3

044700

;:BR IF NO

044700
000002

9%:

(SP)+
98
=1(SP),=2(R3)
(R3)

177777

R5,R2
6%

1
8%:

MOV
BR
TSTB
BPL
MOvB
CLRB
MOV
MOV
MoV
MOV

28
8%

::JUST INCREMENTING
ssCHECK THE TABLE INDEX
;360 DO THE NEXT DIGIT
;260 TO EXIT
;sGET THE LSD
;360 CHANGE TO ASCII
::WAS THE LSD THE FIRST NON-ZERO?

BGT

RO,#10

::PUT THIS CHARACTER IN THE OUTPUT BUFFER

000010

(RO)+

;sMAKE THE BCD DIGIT ASCII

:2MAKE IT A SPACE IF NOT ALREADY A DIGITY

TST
CMP
BLT

" R2
R2,(R3)+

MOovB

#'0,R2

D e

BIS
BIS

7%:

1(SP),=1(R3)-

D e

MOvB

s sMSD?
;:BR IF NO
::YES==SET THE SIGN

-NN
= O

000001
000060
000040

(SP)

::STILL DOING LEADING 0'S?
::BR IF YES

ASLB

::FALL THROUGH IF 0

BCC

::ADD BACK THE CONSTANT
;sCHECK IF BCD DIGIT=0

BMI

(SP)

::BR IF DONE
;s INCREASE THE BCD DIGIT BY 1

TST
BNE

1STB

5%:

b33

R1,RS
R2
5%

ADD

:2FORM THIS BCD DIGIT

D e

INC
BR

R1,RS
4%
R2

B o

BLT

$DTBL (RO) ,R1

‘BBl

suB

::SET THE FIRST CHARACTER TO A BLANK
::CLEAR THE BCD NUMBER
s3GET THE CONSTANT

moy

2 ,(RY)+
R2

3%:

CLR

::NUMBER TO BE TYPED
::CALL FGR TYPEOUT
;sN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
::M=1 0R 0

064670

MOvVB

2%:

000040

SEQ 0209

112723

D 1
19-JUN-80 14:14 PAGE 210
MACY11 30A(1052)
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

K6 FCTNL CTRL DIAG
P11
19-JUN-B0 14:04

::1=TYPE LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

e
e

t«$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
i#CALL:
e
MOV
NUM, = (SP)
: :NUMBER TO BE TYPED

11614
11615
11616
11617
11618
11619

045044
045046
045050
045052
045056
045060

11620 045064
11621

045070

11623
11624

045100
945102

11622 045074
11625
11626
11627

11628

11629
11630

045104
045106
045110
045112

045114
045116

000006
045134
045133
000012

006105

000404
006105
006105
006105
010503
006103
105337
100016
042703

1%:

2%:

38:

045134

177770

001002
005704
001403
005204
052703
052703

000060
000040

104401

045130

48:
5% :

110337 045130
105337 045132

7%:

003347
002402

005204
000744
012605

68:

012604

012603
016666

000002

000004

ROL

3R
ROL
ROL
ROL
MOV
ROL
DECB
BPL
BIC

BNE
TSt
BEG
INC
BIS
BIS

MOVB
TYPE

38
RS
RS
RS
RS,R3
R3
$OMODE

:;LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
::ADJUST RETURN ADDRESS
;:SET THE
S:SET FOR
::SET THE
::SAVE R3
:SSAVE R&
:*SAVE RS
1:GET THE

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO YPE

::SUBTRACT IT FOR MAX. ALLOWED
S:SAVE IT FOR USE
::GET THE ZERO FILL SWITCH
S:PICKUP THE INPUT NUMBER
*:CLEAR THE OUTPUT WORD

1 ROTATE MSB INTO '‘C"
::G0 DO MSB
P:FORM THIS DIGIT

#177770,R3
43
R&
5%

;:GET LSB OF THIS DIGIT
S:TYPE THIS DIGIT?
::BR IF NO
2:GET RID OF JUNK
SSTEST FOR 0
: *SUPPRESS THIS 0?
::BR IF YES

R3,8%

::SAVE FOR TYPING

R
#'0,R3
# R3
13

DECB

$OCNT

INC
BR
MOV
MOV
MOV
MOV

R4
28
(SP)+,RS

BGT
BLT

::PICKUP THE MODE

28
63

(SP)+.R&

(SP)+.R3
2(SP) .4 (SP)

(lalel

WU Y

1(SP).$OFILL
(SP)+,SOMODE+1
#2,(SP)
$TYPON
#1,80FILL
#6,SOMODE
+1
#5.SOCNT
R3,=(SP)
Ré .=(SP)
RS,=(SP)
SOMODE+1.Ré4
R&4
#6,R4
R&4.,$OMODE
SOFILL,R&
12(SP) .RS
R3

YU YU Y

045135

a(SP),=(SP)

045133
045135
045132

MOVB
MOVB
ADD
BR
S$TYPOC: MOVB
MOVB
STYPON: MOVB
MOV
MOV
MOV
MOVEB
NEG
ADD
MOVB
MOVB
MOV
CLR

000001
000006
000005

$TYPOS: MOV

YU S

045133

000001
045135
000002

000000

YN N

045016
045020
045022
045024
045026
045030
045032
045036
065040

116637
112637
062716
000406
112737
112737
112737
010346
010446
010546
113704
0035404
062704
110437
113704
016605
005003

YU Y

045014

017646

S:DON'T SUPPRESS ANYMORE 0°'S
S:MAKE THIS DIGIT ASCII
S MAKE ASCII IF NOT ALREADY
1360 TYPE THIS DIGIT

: COUNT BY 1

WY YU Y

11605
11606
11607
11608
11609
11610
11611
11612
11613

044714
044722
044726
044732
044734
044742
044750
044756
044760
044762
044764
044770
044772
044776
045002
oasoog
045012

:'CALL FOR TYPEOUT

N S

11604

044710

TYPOC

11587
11588
11589
11590
11591
11592
11593
11594
11595
11596
11597
11598
11599
11600
11601
11oo§
11603

}}ggg

11586

: :NUMBER TO BE TYPED
::CALL FOR TYPEOUT

11581
11582
11583

NUM, = (SP)

MOV
TYPON

ieCALL:

~NN

11578
}}2;8

11577

-~y

;#$TYPON====ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
:«$TYPOS OR STYPOC

— — g— ————

11575
11576

— Y— Y—

SEQ 0210

Y— N—— Y —

BINARY TO OCTAL (ASCII) AND TYPE

PAGE 211

14:14

19-JUN-80 14:04

19-JUN-B0

::BR IF MORE TO DO
::BR IF DONE

::INSURE LAST DIGIT ISN'T A BLANK
1260 DO THE LAST DIGIT
:RESTORE RS
S:RESTORE Ré4

::RESTORE R3
“iSET THE STACK FOR RETURNING

CZR6KFO RK6 FCTNL CTRL DIAG

CIR6KF.P11

MACY11 30A(1052)

BYTE
0
BYTE
0
$OCNT:
.BYTE
0
$OFILL: .BYTE
0
SOMODE: .WORD
0
LSBTTL TTY INPUT ROUTINE
LSB

STKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB

045145
045146

$TKQEND=.
.EVEN

O
0
0
1

: :NUMBER OF ITEMS IN QUEUE
:: INPUT POINTER
::OUTPUT POINTER
::TTY KEYBOARD QUEUE

;*TK INITIALIZE ROUTINE

11650

;«THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE

;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

11653
11654

s*CALL:
i
JSR

PC,STKINT

$TKINT: CLR
MOV

$TKCNT
::CLEAR COUNT OF ITEMS IN QUEUE
#S$TKQSRT,STKQIN ;;MOVE THE STARTING ADDRESS OF THE

”2;2
11657
11658

045146
045152

005037
012737

11662

045202

005777

11663
}}ggg

045160
045166
045174
045206
045214

013737
012737
012737
012777
000207

045136
045144

045140
045216
000200

045140
045142
000060
000062

000100

133730

133740

11666

MOV
MOV
MOV

$TKQIN,$TKQOUT ;:QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRV,3#TKVEC ;;INITIALIZE THE KEYBOARD VECTOR
#200,3#TKVEC+2 ;;'BR'' LEVEL &

MOV
RTS

#100,38TKS
PC

TST

as$TkB

::CLEAR DONE FLAG

:ENABLE TTY KEYBOARD INTERRUPT
::RETURN TO CALLER

;*TK SERVICE ROUTINE

11667
11668

:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING

11669

:«IT IN THE QUEUE.

11670

:*1F THE CHARACTER IS A "‘CONTROL=C'' (“C) STKINT IS CALLED AND

}}2;}

11673

045216

117746

11676
11677
11678
11679
11680
11681
11682
11683

045232
045234
045240
045244
045246
045252
045256
045260

001007
104401
004737
005726
000137
021627
001004
022737

11686

045270

;*UPON RETURN EXIT IS MADE TO THE ''CONTROL=-C'' RESTART ADDRESS (CTRHLT)
M

133724

11676 045222 042716 177600
11675 045226 021627 000003

}}ggg

RETURN

045266

001500

$TKSRV: MOVB

as$TKB,-(SP)

::PICKUP THE CHARACTER

BNE
TYPE
JSR
TST
JMP
CMP
BNE
CMP

1
LSCNTLC
PC,STKINT
(SP)+
CTRHLT
(SP) ,#7
2%
#SWREG, SWR

: :BRANCH IF NO
::TYPE A CONTROL=C (*C)
:2INIT THE KEYBOARD
::CLEAN UP STACK
;;CONTROL € RESTART
::1S IT A CONTROL G?
: :BRANCH IF NO
::1S SOFT=-SWR SELECTED?

BIC
CMP

046332
045146
043724
000007

000176

1$:
001140

BEQ

2%:

[ala]

}}22}

11659
11660
11661

il el il

.ENABL

000000
000000.
000000
000001

045136
045140
045142
045144

;:tt'tt'tttttttt't"t"tttt'tt"'t'i'ttt'tttttt't'ttt'ttttt!"'tt

11646
11647
11648
11649

::STORAGE FOR ASCII DIGIT
::TERMINATOR FOR TYPE ROUTINE
::0CTAL DIGIT COUNTER
;:1ERO FILL SWITCH
: :NUMBER OF DIGITS TO TYPE

il il

11642
11643
11644
11645

:sRETURN

116‘.0

11641

(SP)+,(SP)

[
—T—

1
8s:

RTI

[ ]

000002

SEQ 0211

000
000
000
000
000000

BINARY TO OCTAL (ASCII) AND TYPE

045130
045131
045132
045133
045134

PAGE 212

sl s

012616

11633
11634
11635
11636
11637
}}ggg

045124

045126

14:14

11631

1163%

19-JUN-80 14:04

19-JUN-80

CIR6KF P11

MACY11 30A(1052)

| CZR6KFO RK6 FCTNL CTRL DIAG

#4C177, (SP)
(sP), 4%

::STRIP THE JUNK
*:1S IT A CONTROL C?

::G0 TO SWR CHANGE

000175

000040
177530
045140
045140

045145

045144

045140

48:

11717

11718
11719
11720
11721
11722
11723
11724
11725
11726

045434
045442
045444
045450
045452

022737
001124
105777
100121
117746

11729

045466

001300

000176

001140

133474
133470

11727 045456 042716 177600
11728 045462 021627 000007
}};gg

11736
11737
11738
11739
11740

BNE

}};2;

045470
045476
045500
045502
045506

045512

123727
001674
005726
004737
005077

112737

001134

045146
133432

000001

001135

A A

#°C177,(SP)
(sP) ,#7

PIMAKE IT 7-BIT ASCII
2218 IT A CONTROL=G?

*'IF NOT, PUT IT IN THE TTY QUEUE

SLAND EXIT
A

A AR AR

AL AL

ALl

Rl bbby

**CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
“«ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
*«CONTROL-G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.

68:

CMPB
BEQ
ST
JSR
CLR

MOVB

$AUTOB,#1
2%
(SP)+
PC,STKINT
asiks

#1,$INTAG

::ARE WE RUNNING IN AUTO=-MODE?
P:BRANCH IF YES
*:CLEAR CONTROL=-G OFF STACK
“SFLUSH THE TTY INPUT QUEUE
“'DISABLE TTY KEYBOARD INTERRUPTS

*'SET INTERRUPT MODE INDICATOR

b cndh

il i

::1S IT A CONTROL=-Q?
P:BRANCH IF NO
:*REENABLE TTY KEYBOARD INTERRUPTS
: RETURN
$TKCNT
1:COUNT THIS CHARACTER
(SP) ,#140
::1S IT UPPER CASE?
48
S*BRANCH IF YES
(SP),#175
SYIS IT A SPECIAL CHAR?
48
P BRANCH IF YES
#40, (SP)
S:MAKE IT UPPER CASE
(SP)+,aS$TKQIN
::AND PUT IT IN QUEUE
$TKQIN
*'UPDATE THE POINTER
$TKQIN,#STKQEND ::GO OFF THE END?
5%
::BRANCH IF NO
#STKQSRT,$TKQIN ::RESET THE POINTER
* *RETURN

1 *SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
“«ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
‘«SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
:«CALL WHEN OPERATING IN TTY INTERRUPT MODE.
$CKSWR: CMP
#SWREG, SWR
::1S THE SOFT-SWR SELECTED
BNE
158
SSEXIT IF NOT
TSTB
as$TKS
S1IS A CHAR WAITING?
BPL
15%
SLIF NOT, EXIT
MOVB
@$TKB,-(SP)
SIYES

BIC
CMP

11732

11733
11734
11735

P:MAKE IT 7-BIT ASCII

(Tl

1
328:

(SP)+,#21
318
#100,387KS

045136
000140

#°C177, (SP)

il el

133566

CMP
BNE
MOV
RTI
INC
CMP
BLT
CMP
BGT
BIC
MOVB
INC
CMP
BNE
MOV
RTI

000100

BIC

177600

133610

TSTY
TSTB
BPL
MOVB

il el

31$:

133614

000021

133622

022627
001366
012777
000002
005237
021627
002405
021627
003002
042716
112677
005237
023727
001003
012737
000002

38:

::1S THE QUEUE FULL?
:BRANCH IF NO
S'RING THE TTY BELL
*:CLEAN CHARACTER OFF OF STACK
SREXIT
2:IS IT A CONTROL=S?
:*BRANCH IF NO
P:DISABLE TTY KEYBOARD INTERRUPTS
;sCLEAN CHAR OFF STACK
S'WAIT FOR A CHAR
::LOOP UNTIL ITS THERE
::GET THE CHARACTER

045342
045346
045350
045356
045360
045364
045370
045372
045376
045400
045404
045410
045414
245422
045426
045432

000023

#1,8TKCNT
{1
,S$BELL
(sP)+
5%
($P) ,#23
328
s TKS
(SP)+
as$TKS
318
a$TKB,-(SP)

11700
11701
11702
11703
11704
11705
11706
11707
11708
11709
11710
11711
11712
11713
11714
}};}2

11699 045336 042716

001266

cMP
BNE
TYPE
ST
BR
CMP
BNE
CLR

000001

11695
11696
11697
11698

022737
001004
104401
005726
000451
021627
001021
005077
005726
105777
100375
117746

SEQ 0212

045136

045270
o«s§76
045300
045304
045306
045310
045314
045316
045322
045324
045330
045332

14:14

i el el

11687
11688
11689
11690
11691
11692
11693
11694

19-JUN=B0

TTY INPUT ROUTINE

MACY11 30A(1052)

19-JUN-80 14:04

1
PAGE 213

CIR6KFO RK6 FCTNL CTRL DIAG

CIRO6KF.P11

133324

11765
11766
11767

045624
045630

021627
001005

000025

9% :

104401
062706
000737

046337
000006

208:

108:

11772

11773

045644

021627

000015

11775
11776
11777
11778
11779
11780
11781

045652
045656
045660
045666
045672
045676
045704

005766
001403
016677
062706
104401
123727
001003

000004

11783
11784

045714
045716

000002
004737

11774 045650 001022

11782

11785
11786
11787
11788
11789
11790
11791
11792
11793
11794
11795
11796
11797
11798

045706

045722
045726
045730
045734
045736
045742
045746
045750
045752
045754
045756
045762
045766
045770

012777

021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000667
104401

000002
000006
001273
001135

000001

000100

133230

044414
000060

SINTAG,#1
8s
#100,38TKS

**REENABLE TTY KEYBOARD INTERRUPTS?
S:BRANCH IF NC
;sALLOW TTY KEYBOARD INTERRUPTS

133252

8%:

11$:
148$:

15¢:
168:

000067
000060
000002

000002
177776

17%:

001272

188:

JMP

CMP
BNE

TYPE
ADD
BR
CMP

BNE

ST
BEQ
MOV
ADD
TYPE
CMPB
BNE

MOV

RTI
JSR

CMP
BLT
CMP
BGT
BIC
ST
BEQ
ASL
ASL
ASL
INC
BIS
BR
TYPE

#6,5SP

CTRHLT

::CLEAN UP STACK

:sCONTROL=C RESTART

(SP) ,#25
108

;:18 IT A CONTROL=U?
::BRANCH IF NOT

(SP) ,#15

2018 IT A <CR>?

4(SP)
118
2(SP),asuR
#6,SP
,$CRLF
SINTAG, M
158

“'YES, IS IT THE FIRST CHAR?
::BRANCH IF YES
::SAVE NEW SWR
::CLEAR UP STACK
P ECHO <CR> AND <LF>
:sRE-ENABLE TTY KBD INTERRUPTS?
::BRANCH IF NOT

L$CNTLU
#6,SP
19%

16$%

#100,a%7TKS
PC,STYPEC
(SP) ,#60
18%

(SP) ,#67
18%
#60, (SP)+
2(SP)
17%
(SP)
(SP)
(SP)
2(SP)
-2(SP), (SP)
7%
,$QUES

SLYES, ECHO CONTROL=U (*U)
:IGNORE PREVIOUS INPUT
PLLET'S TRY IT AGAIN

::BRANCH IF NO

::RE=-ENABLE TTY KBD INTERRUPTS
: *RETURN
::ECHO CHAR

P:CHAR < 0?
:BRANCH IF YES
SiCHAR > 77
:BRANCH IF YES
L:STRIP=OFF ASCII
2315 THIS THE FIRST CHAR
::BRANCH IF YES
*iNO, SHIFT PRESENT
i3
"CHAR OVER TO MAKE
::
ROOM FOR NEW ONE.
S:KEEP COUNT OF CHAR
2iSET IN NEW CHAR
S:GET THE NEXT ONE
SLTYPE 2<CR><LF>

oTM

000100
043724

045632
045636
045642

CMPB
BNE
MOV

ADD

000001

WS — Y — S — Y — Y — Y— Y— — Y—_———-—" g———

001135

046332

123727
001003
012777

11768
11769
}};;g

::IS IT A CONTROL=C?
1 :BRANCH IF NOT
1:YES, ECHO CONTROL=C (*C)

045602
045610
045612

000137

(SP) ,#3
9%
,S$CNTLC

SIMAKE IT 7-BIT ASCII

11760
11761
11762

045620

CMP
BNE
TYPE

#0177, (SP)

000003

BIC

021627
001015
104401

}};22

::PICK UP CHAR

WU N

045564
045570
045572

177600

11759 045576 062706 000006

a$TKB,=-(5P)

;:1F NOT TRY AGAIN

11756
11757
11758

}};gg 045560 042716

MOVB

133366

BPL

117746

100375

045554

045552

,SMNEW
=(SP)
-(SP)
asTks

:ECHO THE CONTROL=G (*G)
S:TYPE CURRENT CONTENTS
:*SAVE SWREG FOR TYPEOUT
1160 TYPE-=OCTAL ASCIICALL DIGITS)
:PROMPT FOR NEW SWR
*'CLEAR COUNTER
::THE NEW SWR
1 :CHAR THERE?

YU S

11753

}};g}

046362

,$CNTLG
.SMSWR
SWREG,=(SP)

SO S

133372

TYPE
$GTSWR: TYPE
MOV
TYPOC
TYPE
19¢:
CLR
CLR
7%:
TSTB

046344
046351
000176

104401
104401
013746
104402
104401
005046
005046
105777

SEQ 0213

045520
o«ssga
045530
0455346
045536
045542
045544
045546

PAGE 214

11743
11744
11745
117646
11747
11748
11749
11750

14:14

19-JUN-BO

TTY INPUT ROUTINE

MACY11 30A(1052)

19-JUN-80 14:04

CZR6KFO RK6 FCTNL CTRL DIAG

CIROKF.P11

11805

seCALL:

11827

045136
045136
177102
045142

000004

045142

045145

045144

045142

28:

CMP
BNE
MOV
RTI

11828

$TKCNT
::WAIT ON A CHARACTER
1%
$TKCNT
::DECREMENT THE COUNTER
@$TKQOUT,4(SP)
::GET ONE CHARACTER
$TKQOUT
::UPDATE THE POINTER
$TKQOUT,#STKQEND ;;DID IT GO OFF OF THE END?
28
: :BRANCH IF NO
#$TKQSRT,$TKQOUT ;;RESET THE POINTER
: :RETURN
R

A A LA

:*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

11829

s*CALL:

11830
11831

e
it

}}ggg

11834
11835
11836
11837
11838
11839
11840
11841
11842
11843
11844
11845
11846
11847
11848
11849
11850
11851
11852

046066
046070
046072
046076
046102
046104
046106
046110
046114
046116
046120
046122
046130
046134
046140
046142
046146
046150
046154

010346
005046
012703
022703
101456
104410
112613
122713
001022
005716
001007
112737
104401
012716
005303
020327
103434
111337
104401

11854

046162

005716

11853 046160 000746

046322
046332

000177

000134
046320
177777
044322

046320
046320

046320

RDLIN
RETURN HERE

;:INPUT A STRING FROM THE TTY
:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

:TERMINATOR WILL BE A BYTE OF ALL 0'S

$RDLIN: MOV
CLR
1%:
MOV
28:
CMP
BLOS
RDCHR
MOVB
108:
CMPB
BNE
ST
BNE
MOVB
TYPE
MOV
6%:
DEC
CMP
8L0
MOVB
TYPE

R3,=(SP)
-(SP)
#STTYIN,R3
#STTYIN+8.,R3
48

(R3),9%
9%

::SET THE RUBOUT KEY
: :BACKUP BY ONE
1 :STACK EMPTY?
::BR IF YES
S:SETUP TO TYPEOUT THE DELETED CHAR.
1260 TYPE

5%:

(SP)

:*RUBOUT KEY SET?

(SP)+,(R3)
#177,(R3)
5%
(SP)
£
#'\,9%
,9%
#-1,(SP)
R3
R3,#STTYIN
43

::SAVE R3
::CLEAR THE RUBOUT KEY
::GET ADDRESS
;;BUFFER FULL?
::BR IF YES
1260 READ ONE CHARACTER FROM THE TTY
::GET CHARACTER
2:1S IT A RUBOUT
::BR IF NO
:31S THIS THE FIRST RUBOUT?
::BR IF NO
S:TYPE A BACK SLASH

260 READ ANOTHER CHAR.

BBl

il el

::PUSH DOWN THE PC AND
::THE PS
:3GET READY FOR A CHARACTER
::PUT NEW PS ON STACK
::PUT NEW PC ON STACK
::POP NEW PC AND PS

(SP),=(SP)
4(SP),2(SP)
4(SP)
-(SP)
#64S,=(SP)

046022

$RDCHR: MOV
MOV
CLR
CLR
MOV
RTI
648
1%:
ST
BEQ
DEC
MOVB
INC

000002

005737
001775
005337
117766
005237
023727
001003
012737
000002

000004
000004

R Sl

046046
046054
046056
046064

011646
016666
005066
005046
012746
000002

045776
046000
046006
046012
046014
046020
046022
046022
046026
04603C
046036
046042

11823
11824
11825
11826

::GET A CHARACTER FROM THE QUEUE
::CHARACTER IS ON THE STACK
::WITH PARITY BIT STRIPPED OFF

il ol

11811
11812
11813
11814
11815
11816
11817
11818
11819
11820
11821
11822

RDCHR
RETURN HERE

11809
11810

i
i
v

:*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

11806
11807
11808

|
RL
R
AR AR Al

11804

11803

il ol et

::SIMULATE CONTROL=U

il ol

208

il ol

BR
LSB

.DSABL

SEQ 0214

i Sl

000720

PAGE 215

045774

14:14

11799
11800
11801
11802

MACY11 30A(1052)
19-JUN-B0
TTY INPUT ROUTINE

CIR GKFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

046320
046320
000015

3%:

B
~N

006525
005015
051412
000040
042516
000

SMNEW:

.ASCIZ

.EVEN
.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

000

(alal

020127

::CHECK FOR RETURN
::LOOP IF NOT RETURN
::CLEAR RETURN (THE 15)
::TYPE A LINE FEED
::CLEAN RUBOUT KEY FROM THE STACK
: :RESTORE R3
::ADJUST THE STACK AND PUT ADDRESS OF THE
Iy
FIRST ASCII CHARACTER ON IT

000004

S:TYPE A 7'
::CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER

: ;RETURN
0
::STORAGE FOR ASCII CHAR. TO TYPE
0
: s TERMINATOR
8.
::RESERVE 8 BYTES FOR TTY INPUT
/%C/<15><12>
::CONTROL ''¢"
/*U/<15><12>
;s CONTROL ''V"
/*G/<15><12>
; ;CONTROL ''G"'
<15><12>/SWR = /
NEW =/

897

:*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND

899

;*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL

385

:'EQEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.

900
901

;«OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ''?'' WILL BE TYPED
:*FOLLOWED BY A CARRIAGE RETURN=LINE FEED. THE COMPLETE NUMBER MUST
s*CALL:

o
I

D e e
D e e

i
i

904
905

—
—

38?

908
909

910

046374
046376

046404

011646
016666

010046

000004

000002

RDOCT
RETURN HERE

$RDOCT: MOV
MOV

MOV

(SP),=(SP)
4(SP),2(SP)

RO,=-(SP)

::READ AN OCTAL NUMBER
::LOW ORDER BITS ARE ON TOP OF THE STACK

::HIGH ORDER BITS ARE IN SHIOCT
::PROVIDE SPACE FOR THE
: : INPUT NUMBER

; sPUSH RO ON STACK

:*CHANGE IT TO BINARY.

898

::'t't"t".tt."i""'ti""'i""'.'i'il..t'.t"t'iit't'.'fittt'

046370

036440
020040
020075
046374

000012
000
051127

$TTYIN:
$SCNTLC:
SCNTLU:
SCNTLG:
SMSWR:

000002
9s:

005 015

;360 PICKUP ANGTHER CHACTER

. SQUES
is
(R3),9%
,9%
#15,(R3)+
28
=1(R3)
,SLF
(SP)+
(SP)+,R3
(SP) ,=(SP)
4(SP),2(SP)
#STTYIN,4(SP)

177777

046322

::TYPE A "'CRTM & "'LF"
::TYPE THE INPUT STRING

TYPE
BR
MOVB
TYPE
CMPB
BNE
CLRB
TYPE
ST
MOV
MOV
MOV
MOV
RTI
.BYTE
.BYTE
.BLKB
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

001274

000004

: :BRANCH IF NO
::CLEAR THE CHARACTER

W
(V]
~

oo o

133 ®

&~
o

O%OODOO
~
00008 58 &
g\hbvfl\)-‘

D D D i
D D D i
D i el D e Dl i Dl i D i D D il il
D e i i D D
i D il il Dl D i
il

046356

|
4$:

046236 000717

046240
046244
046246
066252
046256
046262
046264
046270
046274
046276
046300
046302
046310
046316
046320
046321
046322
046332

- y_— s

001272

869
870
871
872
873
874
875
876
877
878
879
880
881
aag
883
884
885
886

,$CRLF
$TTYIN

2315 CHARACTER A '"*R'“?

— —" ——" v Gy Q" G’ Wph—" Yp—" " g

104401
000712
111337
104401
122723
001305
105063
104401
005726
012603
011646
016666
012766
000002
000
000
000010
041536
136
043536
015

868

TYPE
TYPE

3$
(R®)

001273
046322

BNE
CLRB

1260 START OVER

104401
104401

001011
105013

#22,(R3)

046226
046232

046222
046224

CMPB

866
867

864
865

8$:

::TYPE A CONTROL ‘U

000022

122713

::BR IF NO

046216

$CNTLU

&8s

;:CLEAR THE RUBOUT KEY
::1S CHARACTER A CTRL U?

863

862 046214 000726

TYPE

BNE

::BR IF NO
::TYPE A BACK 3! ASH

046337

78:

7%
#'\,9%
,9%
(SP)
#25, (R3)

NG G

104401

000025

BEQ
MOVE
TYPE
CLR
(MPB

046210

046320

861

000134
046320

SEQ 0215

WD G

0014
112737
104401
005016
122713

001003

14:14

WS W

046164
046166
046174
046200
046202

860 046206

19-JUN-B0

TTY INPUT ROUTINE

1
PAGE 216

MACY11 30A(1052)

19-JUN-80 14:04

855
856
857
858
859

D D ) e D i il D D il D i il D D D i i D il A il D il il D i e
D D il
D D D D D D D il D Al D D il D D D A D B D e D i

6KFO RK6 FCTNL CTRL DIAG

6KF P11

11911

1191%
11913
11914
11915
11916
11917
11918
11919
11920
11921
11922
11923
11924
11925
11926
11927
11928
11929
11930
11931
11932
11933
11934
11935
11936
11937
11938
11939
11940
11941
11942
11943
11944
11945
11946

}}gzg

046406

046410
046412
046414
046416
046422
0464264
0464%8
64
046432
046436
046440
046444
046446
046450
046452
046454
046456
046460
046462
046466
046470
046472
046474
046500
046504
046506
046510
046512
046514
046516
046520
046522
046526
046530
046532

010146

010246
104411
012600
010037
005001
005002
112046
001420
122716
003026
122716
002423
006301
006102
006301
006102
006301
006102
042716
062601
000756
005726
010166
010237
012602
012601
012600
000002
005726
105010
104401
000000
104401
000730
000000

000060
000067

177770

000012
046532

001272

MOV
1%:
ROLIN
MOV
MOV
CLR
CLR
2%:
MOVB
BEQ
CMPB
BGT
CMPB
BLT
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
Br
3%:
187
MOV
MOV
MOV
MOV
MOV
RTI
L%:
TST
CLRB
TYPE
5%:
MORD
TYPE
AR
$HIOCT: .WORD

.SBTTL

R1,=-(SP)
R2,-(SP)

(SP)+,RO
RO,S$
R1
R2
(RO)+,=(SP)
3$
#'0,(SP)
4%
#'7,(SP)
48
R1
¥
R1
R2
R1
R2
#*C7,(SP)
(SP)+,R1
2%
(SP)+
R1,12(SP)
R2,$HIOCT
(SP)+,R2
(SP)+,R1
(SP)+,R0
(SP)+
(RO)

::PUSH R1 ON STACK

:;PUSH R2 ON STACK
;;READ AN ASCIZ LINE
:sGET ADDRESS OF 1ST CHARACTER
:3AND SAVE IT
;sCLEAR DATA WORD
:sPICKUP THIS CHARACTER
::1F ZERO GET OUT
:sMAKE SURE THIS CHARACTER

::1S AN OCTAL DIGIT
si%2
AL

;.8
::STRIP THE ASCII JUNK
:sADD IN THIS DIGIT
::LOOP
:sCLEAN TERMINATOR FROM STACK
:3SAVE THE RESULT

::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO
: sRETURN

::CLEAN PARTIAL FROM STACK
:3SET A TERMINATOR
::TYPE UP THRU THE BAD CHAR.
0
i
B
,$QUES
2" CR R ULF
1%
::TRY AGAIN
0
::HIGH ORDER BITS GO HERE
SAVE AND RESTORE RO-RS5 ROUTINES

’19‘9

":t'ttttttt.tttQtt't't't'ttt"ttt'ttttt!ttttit.ttt"t!ttttttt"tt

11950

;*SAVE RO=RS

}}ggz

:*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:

11951
11952

11955
11956
11957
11958
11959
11960
11961
11962
11963
11964

11965
11966

s«CALL:
M

SAVREG

;2TOP===(+16)
it 42===(+18)
;% #4===RS
;% +6=-=Ré
;% +8---R3
;*410-==R"
see12===/(1
;e+14=-==R0
046534

046534
046536

010046
010146

$SAVREG:

MOV
MOV

RO,=(SP)
R1,=-(SP)

;:PUSH RO ON STACK
;sPUSH R1 ON STACK

SEQ 0216

[ala)

MACY11 30A(1052) 19=JUN=-B0 14:14 PAGE 217
READ AN OCTAL NUMBER FROM THE TTY
MOV

046522

~NN

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF .PI1T
19-JUN-80 14:04

010246
010346
010446
010546
016646
016646
016646
016646
000002

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

000022
000022
000022
000022

MOV
MOV
MOV
MOV

.SBTTL
R

046630

012737

12002

046654

010446

12003
12004

12005
12006

12007

046636
046644
046646
046650
046652
046656
046660
046664
046670

046676

046700

012737
010046
010146
010246
010346

010546
017746
010637
012737

000000

046770

000340

000024

000026

:;POP
;:POP
;sPOP
:sPOP

RTI
POWER DOWN AND UP ROUTINES

STACK
STACK
STACK
STACK

INTO R3
INTO R2
INTO R1
INTO RO

L R

;sPOWER DOWN ROUTINE

SPWRDN: MOV

#340,3#PWRVE(+2
RO,-(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)

;;PRIO:7
s:PUSH RO ON STACK
::PUSH R1 ON STACK
:sPUSH R2 ON STACK
:sPUSH R3 ON STACK

MOV
MOV

RS,=(SP)
aSWR,-(SP)

:.PUSH RS ON STACK
:sPUSH @SWR ON STACK

MOV
MOV

000024

HALT

000776

#SILLUP,a#PWVEC ;;SET FOR FAST UP

MOV
MOV
MOV
MOV
MOV

MOV

132254
046774
046702

(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0

R4 ,-(SP)

;sPUSH R4 ON STACK

SP,$SAVR6
::SAVE SP
#$PWRUP ,3#PWRVEC ;;SET UP VECTOR

; sHANG UP

046710
046714
046720
046726
046726

12019

0467

12018
12020
12021
12022

046732

046736
046740
046742

013706
005037
005237
001375
012677

012605

012604

012603
012602
012601

046774
046774
046774

132206

L L

ARl

:POWER UP ROUTINE

‘PURUP: MOV
1$:

MOV
CLR
INC
BNE
MOV

MOV

MOV
MOV
MOV

#SILLUP,@#PWRVEC ;;SET FOR FAST DOWN
$SAVRG,SP
$SAVRG
$SAVRE
1%
(SP)+,aSWR

:.GET SP
,*WAIT LOOP FOR THE TTY
JsWAIT FOR THE INC

(SP)+ R4

::POP STACK INTO R4

(SP)+,RS

(SP)+,R3
(SP)+,R2
(SP)+,R1

::0F

WORD

+:POP STACK INTO a@SWR

:;POP STACK INTO RS

:sPOP STACK INTO R3
:sPOP STACK INTO R2
;sPCP STACK INTO R1

046770 000024

12013
12014
12015
12016
12017

012737

12011

12012 046702

P A

12010

}%883

ssRESTORE PC OF CALL
ssRESTORE PS OF CALL
ssRESTORE PC OF MAIN FLOW
;sRESTORE PS OF MAIN FLOW
;:POP STACK INTO RS
:sPOP STACK INTO R4

000002

012603
012602
012601
012600

MOV
MOV
MOV
MOV
MOV
MOV

YR P

046626

046616
046620
046622
046624

SRESREG:

000022
000022
000022
000022

012666
012666
012666
012666
012605
012604

046572
046572
046576
046602
046606
046612
046614

RESREG

YRR Y

11996

11997
11998
11999
12000
12001

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,RS
(SP)+,R4

;s*RESTORE RO=-RS
s*CALL:

11994

11995

ON STACK
ON STACK
ON STACK
ON STACK
OF MAIN FLOW
OF MAIN FLOW
OF CALL
OF CALL

11982
11983
11984
11985
11986
11987
11988
11989
11990
11991
}}33%

R2
R3
R4
RS
PS
PC
PS
PC

11980
11981

;sPUSH
:sPUSH
;sPUSH
+sPUSH
;sSAVE
ssSAVE
:sSAVE
:sSAVE

———— Y P

11979

R2,=(SP)
R3,=(SP)
R& ,=(SP)
RS,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP),=(SP)

11977
11978

SEQ 0217

~NN

SAVE AND RESTORE RO-RS ROUTINES

11976

046540
046542
046544
046546
046550
046554
046560
046564
046570

L1
PAGE 218

11967
11968
11969
11970
11971
11972
11973
11976
11975

19-JUN-80 14:04

14:14

IR YIS T

CZR6KF P11

19-JUN-B0

MACY11 30A(1052)

CIR6KFO RK6 FCTNL CTRL DIAG

NN
NN NN NN

023

046744

01%600

027
028
ogg
0
031
032
033
034
832

046764
046766
046770
046772
046774
046776
0470064

046776
000002
000000
000776
000000
005015
000122

POWER DOWN AND UP ROUTINES

024 046746 012737 046630 000024
025 046754 012737 000340 000026
026 046762 104401

047520

042527

MOV
MOV
TYPE

$PWRMG: .WORD
RTI
$SILLUP: HALT
BR
$SAVR6: 0
SPOWER: .ASCIZ

ni
PAGE 219

SEQ 0218

(SP)+ RO

::POP STACK INTO RO

$POWER

,.POHER FAIL MESSAGE POINTER

::THE POWER UP SEQUENCE WAS STARTED
:: BEFORE THE POWER DOWN WAS COMPLETE
1:PUT THE SP HERE

OSPURDN ilPURVEC :SET UP THE POWER DOWN VECTOR
#340,30PWRVEC+2 ;:PRIO:7
:REPORT THE POWER FAILURE

<15><12>'‘POWER"’

.EVEN
TRAP DECODER

'ttttt.tttt't't'tt'lt'"t'tttttttttttttttttttttlt'tt'tt'tt'tt't

038
039
040

-THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRAP'' INSTRUCTION
'AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
tOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

82;

'60 TO THAT ROUTINE.

047006
047010
047014
047016
047020
047022
047026

010046
016600
005740
111000
006300
016000
000200

$TRAP:

000002

047042

gggg
2054
2055
ggg?

MOV

.SBTTL

037

043
046
045
046
2047
2048
2049

14:14

MOV
MOV
TST
MOVB
ASL
MOV
RTS

RO,=(SP)
2(SP) RO
=(R0O)
(RO) ,RO
RO
$TRPAD(RO) ,RO
RO

::SAVE RO
1:GET TRAP ADDRESS
: :BACKUP BY 2
::GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
;s INDEX TO TABLE
1360 TO ROUTINE

::THIS 1S USE TO HANDLE THE ''GETPRI'' MACRO
047030
047032
047040

011646
016666
000002

000004

000002

$TRAP2: MOV
MOV
RTI

(SP) ,=(SP)
4(SP),2(SP)

;:MOVE THE PC DOWN
:SMOVE THE PSW DOWN
;;RESTORE THE PSW

gggg

.SBTTL

2060
825

:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
'BY THE ''TRAP'' INSTRUCTION.

8{3

065 047042 047030

TRAP TABLE

ROUTINE

$TRPAD: .WORD

047044

044202

28;%

047056

045524

$GTSWR

2074
075

047060
047062
047064
047066
047070

045434
045776
046066
046374
046534

$CKSWR ;;CALL=CKSWR
SRDCHR ;; CALL=RDCHR
SROLIN ;;CALL=RODLIN
SRDOCT ;;CALL=RDOCT
$SAVREG ;;CALL=SAVREG

067
068
069
;?

078

047046
047050
047052
047054

044734
044710
044750
044464

$TYPE

$TRAP2

066

S$TYPOC
$TYPOS
$STYPON
$TYPDS

3 sCALL=TYPE

;;CALL=TYPOC
;;CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPDS

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TRAP+1(104401)

TTY TYPEOUT ROUTINE

;;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

TYPE OCYTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

TRAP+7(104407) TEST FOR CHANGE IN SOF T-SWR
TRAP+10¢104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(¢104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) READ AN OCTAL NUMBER FROM TT1Y
TRAP+13(104413) SAVE RO-RS ROUTINE

(alel

19=JUN=-B0 14:04

19-JUN-B0

~N~N

R6KF .P11

MACY11 30A(1052)

_._._._._._._._.d_...-._.-‘_....-‘-‘-.-‘_.-.-.-.—.—l—D-‘_‘-0-0-.-‘-._.—l-‘—.—l—l-‘—.-‘—.-‘-‘d—l-fl_‘—b-‘—.d—._’

R6K FO RK6 FCTNL CTRL DIAG

MIN

(alal

s D
D D
D e
D
D i D
D D

N
N
N
N
N
N
N
N
N
N
N
N
N
N

et
el
e

PR P O W
0 o T ol ok o ok P o
NN NN NONINININININ)
= =3 —b —3
N = O NS LN = OO

D D
D D

WAIT :
WAIT

D el

1
1
F
F

WAIT
WAIT
WAIT
WAIT

D i

::CALL=TWATINM

RESTORE RO=-R5 ROUTINE
INTERNAL LOOP ON ERROR
INITIALIZE SUBSYSTEM
LOAD RK611 FOR OPERATION
GET RKS11 REGISTERS
CHECK OPREATION FOR ANY ERRORS
CHECK OPERATION FOR EXPECTED ERRORS
WAIT 16 MS
WAIT 32 MS
WAIT 48 MS
WAIT 64 MS
WAIT 80 MS
WAIT 96 MS
WAIT 112 MS
WAIT 128 MS

D D D el

IWATIM
$TERM=,-$TRPAD

s s CALL=TCHKWE
::CALL*THAIlg
:sCALL=TWATS
::CALL=TWATALS
s CALL=TWATES
::CALL=TWATSO
::CALL=TWAT96
1"AT112 ::CALL=TWAT112
1waT128 ;sCALL=TWAT128
IWAT144 :sCALL=TWATI144
IWAT159 ::CALL=TWAT159
IWAT1S
;:CALL=TWATIS
IWAT2S ::CALL=TWATZ2S
IWATBS :sCALL=TWATSS

IWAT1
IWAT3
[WAT4LB
[WAT64
IWAT80
1WAT96

s s CALL=TCHKOP

LOADRK
GE TRK
CHKOP
CHKWE

:;CALL=5COP1
s sCALL=TSSINIT
;s CALL=TLOADRK
E
TRK
:sCALL=TG

SCOP1$
SSINIT

SRESREG : s CALL=RESREG

SEQ 0219

PAGE 220

e el

000102

N = O NO VISR — ONOWN

046572
035222
037176
035734
036164
040162
040130
035530
035520
035510
035500
035470
035460
035450
035440
035430
035420
035410
035400
035360
035370

14:14

—

12100

047072
047074
047076
047100
047102
047104
047106
047110
047112
047114
047116
047120
047122
047124
047126
047130
047132
047134
047136
047140
047142

TRAP TABLE

19-JUN-B0

12079
12080
12081
12082
12083
12084
12085
12086
12087
12088
12089
12090
12091
12092
12093
12094
12095
12096
12097
12098
12099

MACY11 30A(1052)

O NO VIS

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF .P11

19-JUN-80
MACY11 30A(1052)
DATA PATTERNS

w e—

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZROKF P11

14:14

ow
>

PAGE 221

SEQ 0220

o = Q.

s i o oag ok ol i o mcd Seb o owi _omi _madmai deSl oms. o o t oSk b e snbio e s i oaf opdn one el ol D s i i mbiocfRe T il

SEQ 0221
PAGE 222

14:14
19-JUN-80
MACY11 30A(1052)
DATA PATTERNS

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

047504
0475064
047906
047510
047512
047514
047516
047520
047522
047524
047526
047530
047532

047534
047536
047540
047542

177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777

167777
157777
137777
077777

PAT12:

177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777

167777
157777
137777
077777

;DATA PATTERN 13

il anl

il el

;DATA PATTERN 12
:
SHIFTED O IN A FIELD OF ONES

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

IN A FIELD OF ZEROS

i Gl

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

SHIFTED 1

lalal

)
EER N $7A A

A S

VIVAWVAVAWVVAVAWA
A

N=0O0~N

& BB NN

047444

:
PAT11:

SEQ 0222

D el

045513
122645
151322
064551
132264
055132
026455
113226
045513
122645
151322
064551
132264
055132
;DATA PATTERN 11

047444
047446
047450
047452
047454
047456
047460
047462
047464
047466
047470
047472
047474
047476
047500
047502

2
PAGE 223

s Sl

045513
122645
151322
064551
132264
055132
026455
113226
045513
122645
151322
064551
132264
055132

i Ll

047410
Q7412
047414
047416
047420
047422
047424
047426
047430
047432
047434
047436
047440
047442

DATA PATTERNS

14:14

19-JUN-B0 14:04

19-JUN-B0

P11

MACY11 30A(1052)

FO RK6 FCTNL CTRL DIAG

14:74

19-JUN-80
MACY11 30A(1052)
DATA PATTERNS

PAGE 224

5—-wOo

—<
-2
a

<< = o o = w wv

SEQ 0223

CZR6KFO RK6 FCTNL CTRL DIAG
19-JUN-B0 14:04
CZR6KF P11

38
39
40
41
42
43
L4
45

L6
o7

047704
047704
047706
047710
047712
047714
047716

072307
135143
156461
167230
073514
035646

047722
047724
047726
047730
047732
047734
047736
047740
047742

107351
143564
061672
030735
114356
046167
123073
151453
164616

047720

016723

;DATA PATTERN 16
:
COMPOSITE ROTATING
PAT16:
072307
135143
156 461
167
8;;

?89

143

061
030
114
046
123
151
164

(alal

077777
177777

SEQ 0224

077777
177777

PAGE 225

28
29
30
31
32
33
34
S
36

047700
047702

25
%9

19-JUN-80 14:04

14:14

KF.P11

MACY11 3DA(1052)
19-JUN-B0
DATA PATTERNS

T
D
e
e

KF 0 RK6 FCTNL CTRL DIAG

O WSS
WNN =0

p——

o
e
e Pt Pt

e
e L

—

:DATA CHECK ERROR

;WRITE CHECK ERROR
;DATA LATE ERROR
;OPERATION INCOMPLETE ERROR
;HEADER VRC ERROR
:BAD SECTOR ERROR

;GROUP 3 ERROR FIELD
sNON-EXISTANT DRIVE ERROR

;CONTROLLER TIME OUT ERROR
;UNIT FIELD ERROR
;MULTIPLE DRIVE SELECT ERROR
:PROGRAMMING ERROR

sNON-EXISTANT MEMORY ERROR

Sy WPPEE DM

Gy G

AWy (GRS N

gy Wp— g_—_—"

(alel

;ECC HARD ERROR

Sy G

OO0O0O0O0O
OCOO0O0O0O0
DDDDDODDODDODODIIDODDDO

DODDDDDODDO

WSS
AN - O

MDSERR=
PGERR=
NEMERR=

CTOERR=
UFERR=

. WORD

NEDERR=

et >t Pt Pt

GRP3ER:

—

0000000
N NNNNNNNNY
WN 2OV
NOWVNS W =00~

NN NN

8RIRERES2

000000
000001
000002
000004
000010
000020
000040

OPIERR=
HVRCERR
BSERR=

;GROUP 2 ERROR FIELD

DDDDODEO

2I
3333 wwwuuuwuuwuuuug & 333

D i il

N NN NN W
VATV S
(=]

il D il
D

N NN

D i
i
il D i i e
D i
D i i i
D i i i il i
D il
D i i i i
i

NN NN WA

DLTERR=

000010
000020
000040
000100

050000

.WORD
ECHERR=
DCKERR=
WCKERR=

GRP2ER:

CERNER=

100000

;GROUP 1 ERROR FIELDS
;CONTROLLER DETECTED DRIVE BUS PARITY ERR
;SEEK INCOMPLETE
:NON-EXECUTABLE DRIVE FUNCTION
;DRIVE DETECTED DRIVE BUS PARITY ERROR
;FORMAT ERROR
;DRIVE TYPE ERROR
:AC LOW ERROR
;SPEED LOSS ERROR
;:DRIVE OFF TRACK ERROR
;CYLINDER OVER FLOW ERROR
;ILLEGAL DISK ADDRESS ERROR
;WRITE LOCK ERROR
;:DRIVE TIMING ERROR
:NO CERR WITH ERROR SET ERROR
;:DRIVE UNSAFE ERROR
;CERR BUT NO ERROR SET ERROR

000000
000001
000002
000004

.WORD

;SECTOR

GRP1ER:

: TRACK

PRREES

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

:BUS ADDRESS
: CYLINDER

047774

;WORD COUNT AT END OF OPERATION
;REAL UPPER BA

REALWC: .WORD
REALUB: .WORD
REALBA: .WORD
REALCY: .WORD
REALTRK: .WORD
REALSEC: .WORD

000000
000000
000000
000000
000000
000000

.WORD
.WORD
.WCRD
.WORD

;EXPECTED WORD COUNT (GIVEN)
;EXPECTED UPPER BA (COMPUTED)
;EXPECTED BUS ADDRESS (COMPUTED)
;EXPECTED CYLINDER (COMPUTED)
;EXPECTED SECTOR (COMPUTED)
JEXPECTED TRACK (COMPUTED)

047760
047762
047764
047766
047770
047772

EXPTRK:

.WORD

Gy
R
S

EXPW(:
EXPUBA:
EXPBA:
EXPCYL:
EXPSEC:

047752
047754
047756

000000
000000
000000
000000
000000
000000

047744
047746
047750

IO,

DSERBIT= 70

000070

,NEM
,NEDCE
,W
,UPE
;DLT
; PGE ,MOS,UFE
;DS ERROR BITS
:SPDLSS,DROT,ACLO

SEQ 0225

177400

024000

047776

D
e
o
d lh el
et D i

FIE LDS AND VARIABLES FOR OPERATION CHECKING
.SBTTL
CS1ERBIT =24000
;CS1 ERROR BITS SPAR & (TO
CS2ERBIT =177400
;CS2 ERROR BITS

2348

oo
NN

19-JUN-80
14:14
PAGE 226
MACY11 30A(1052)
FIELDS AND VARIABLES FOR OPERATION CHECKING

CIR6KFO RKk6 FCT..L CTRL DIAG
19-JUN-80 14:04
CIR6KF P11

|
.WORD
.WORD
.WORD
.WORD

EM23
EM24
EM25
EM26

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

EM30
EM31
EM32
EM33
EM34
EM35
EM36
EM37
EM38
EM39
EM4O
EM41
EM&42
EM43
EM44

054252
054275
054320
054341
054366
054410
054434

GRP3MS:

12431
12432
12433
12434

050040
050042
050044
050046

054501
054512
054525
054541

GRP2MS:

12439
12440
12441
12442
12443
12444
12445
12446
12447
12448
12449
12450
12451
12452
12453

050056
050060
050062
050064
050066
050070
050072
050074
050076
050100
050102
050104
050106
050110
050112

054634
054707
054727
054765
055033
055050
055071
055100
055123
055143
055165
055217
055240
055263
055325

GRPIMS:

12456
12457

050116

000000
000001

GPSUMF: .WORD
0
GRP1ST= BITO

}%2%8

12435
12436
}%2;;

}g:gé

12458
12459

050036

050050
050052
050054

050114

054135
054170
054220

.WORD
.WORD
.WORD

054460

.WORD

054553
054600
054613

055342

000002
000004

.WORD
.WORD
.WORD

.WORD

;SECTOR ADDRESS ERROR FLAG

EM12
EM13
EM14

EM22

EM27
EM28
EM29

EM45

GRP2ST= BIT
GRP3ST= BIT2

(alal

e
i

050020
050022
050024
050026
050030
050032
050034

050012
050014
050016

EM15
EM16
EM17
EM18
EM19
EM20
EM21

12422
12423
12424
12425
12426
12427
12428

126418
126419
}%2%?

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

C]P4MS:

SECERR= BITS

SRl

EM10
EM11A
EM11

054006
054061
054033

000040

.WORD
.WORD
.WORD

050004
050006
050010

}%2}2

;GROUP & ERROR FIELD
;WORD COUNT ERROR FLAG
;UPPER BA ERROR
;BUS ADDRESS ERROR FLAG
;CYL ADDRESS ERRO" FLAG
: TRACK ADDRESS ERROR FLAG

GRP4ER:

0
BITO
BIT1
BIT?
BIT3
BIT4

000000
000001
000002
000004
000010
000020

;ILLEGAL FUNCTION ERROR.

.WORD
WCERR=
UBAERR=
BAERR=
CYLERR=
TRKERR=

ILFERR= BIT7

;UNIBUS PARITY ERROR

126415
12416
126417

BIT6

050002

UPERR=

SEQ 0226

000200

12407
12408
12409
12410
241
12412

PAGE 227

FIELDS AND VARIABLES FOR OPERATION CHECKING

000100

}%282

12404

14:14

19-JUN-B0 14:0«

19-JUN-BO

CZR6KF P11

MACY11 30A(1052)

——r

CIZR6KFO RK6 FCTNL CTRL DIAG

:GROUP ERROR SUMMARY FLAGS
:GROUP 1 ERROR SET

:GRCUP 2 ERROR SET
:GROUP 3 ERROR SET

120

041501
051104
046103
067125
000

SSINAR
~NOoO
W
VIS W) = O

—

D e

e el

D e

123

051440
062514
122
041111
000
117
000124
042523
122
040504
127
042040
042522
040505
000
127
044040
051522

OPEROO
OPERO2
OPERO4
OPERO6
OPER10
OPER12
OPER14
OPER16
OPER20
OPER22
OPER24
OPER26
OPER30
OPER3?2
OPER34
OPER36

.SBTTL OPERATION MESSAGES
/DRIVE SELECT/
OPEROO: .ASCIZ

020113

OPERO2:

.ASCIZ

/PACK ACK/

020105
000122
042101

OPERO4:

.ASCIZ

/DRIVE CLEAR/

OPERO6:

.ASCIZ

/UNLOAD/

052122
042116

OPER10:

.ASCIZ

/START SPINDLE/

046101
042524

OPER12:

.ASCIZ

/RECALIBRATE/

042523

OPER14:

.ASCIZ

/OFFSET/

045505
040505
040524
044522
052101
042101
042504

CPER16:
OPER20:

.ASCIZ
.ASCIZ

/SEEK/
/READ DATA/

OPER22:

.ASCIZ

/WRITE DATA/

OPER24:

.ASCIZ

/READ HEADERS/

044522

OPER26:

.ASCIZ

/WRITE HEADERS/

043106

040505
000

;ADDRFSS OF SELECT MESSAGE
:
PACK ACK
DRIVE CLEAR
:
:
UNLOAD
:
START SPINDLE
:
RECALIBRATE
OFFSET
:
:
SEEK
READ DATA
:
WRITE DATA
:
READ HEADER

WRITE HEADER

WRITE CHECK

;ILLEGAL OPERATION 33
:
35
37
:

lalal

B i anl el sl

il nd

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORC
.WORD

il i

CMNDLB:

B il il il el el ol i

THIS TABLE CONTAINS THE ADDRESS OF ASCIZ FIELDS THAT ARE
USED IN REPORTING TO IDENTIFY THE OPERATION BEING PERFORMED.

s Bl il il il il

TABLE OF OPERATION MESSAGE ADDRESS

041501

044520
000
041505
040522

;REPORTING NOT RECEIVED SWITCH

e
ot

020105
052103

040524

;GROUP 1 ERROR NOT RECEIVED
;GROUP 2 ERROR NOT RECEIVED
;GROUP 3 ERROR NOT RECEIVED
;ERROR IN GETTING DRIVE STATUS FLAG

BIT15

05311
042514

000113
053111
040505
047514

SEQ 0227

1
030174
050175
050202
050206

050160
050175
050206
050222
050231
050247
050263
050272
050277
050311
050324
050341
050357
050373
050417
050443

051104
042523
000

PAGE 228

il il o

REPNR=

.SBTTL

050160
050166

GPINR= BIT3
GP2NR= BIT4
GP3NR= BITS
DRSTER= BIT14

100000

050140
050142
050144
050146
050150
050152
050154
050156

14:14

FIELDS AND VARIABLES FOR OPERATION CHECKING

000010
000020
000040
040000

050120
050122
050124

19-JUN-80

il il ot

30A(1052)

——

19-JUN-80 14:04

MACY11

|
042524
045503

OPER30:

.ASCIZ

/WRITE CHECK/

043505
047125
020116

OPER32:

.ASCIZ

/ILLEGAL FUNCTION 33/

050417
050424
050432

111
046101
052103
032463
111
046101
052103
033463
127
042040
041101
020104
041040

066114
043040
047511
000

046114
043040
047511

043505
047125
020116

OPER34: .ASCIZ

/ILLEGAL FUNCTION 35/

066114

043505

COER36: .ASCIZ

/ILLEGAL FUNCTION 37/

042524
020101
042524
0441264
000

OPER37:

.ASCIZ

/WRITE DATA ABORTED WiTH BSE/

OPER4OQ:
OPERG1:

.ASCIZ

/WP'TE CHECK ABORTED WITH WCE/

OPER42:

.ASCIZ

/WRITE DATA ABORTED WITH NON-EXISTANT MEMCRY/

59
60
61
62
63
64
65

il andD il cnl

il el

044522
042510

042524
045503

050560

051127

052111

020105

050574
050602
050610
050616
050624
050632
050634
050642
050650
050656
050664
050672
050700
050706
050707
050714
050722
050730
050736
050744
050752
050760

047502
053440
047516
051511
046440
000131
042522
052101
051117
044527
047117
052123
042515
000
127
042040
041101
020104
052440
020123
054524
051117

052122
052111
026516
040524
046505

042105
020110
054105
052116
051117

042101
020101
042524
044124
042455
047101
047515

042040
041101
020104
047040
044530
020124
054522

OPER&43: .ASCIZ

/READ DATA ABORTED WITH NON-EXISTANT MEMORY/

044522

042524

OPER44: ASCIZ

/WRITE DATA ABORTED WITH UNIBUS PARITY ERROR/

052101
051117
044527
044516
040520
042440
000

020101
042524
044124
052502
044522
051122

127
041440

047125
020116

043040
047511
000
044522
052101
051117
044527
042523

il il

0
51
52
53
54
55
56
57

050450
050456
050464
050467
050474
050502
050510
050516
050523
050523
050530
050536

000

VIVAWVAVAIWVAWVAVAI
W AWAVIVIWA WA A VT AT ATTA

T T AT TR

TRV

28
29
30
31
32
33
34
35
36
37

050443

050440

23
24
25

111
046101
052103
031463

050373
050400
050406
050414

WAV

19
20
21
22

044522
042510

SEQ 0228

127
041440
000

OPERATION MESSAGES

PAGE 229

050357
050364
050372

16
17
18

PN
ek
e e

i i

D D i i e o

D i i

e e

D e

D D e

D i i

D D i i

D e

D i

ANV
NN OO

— e

MACY11 30A(1052)

19-JUN-B0 14:04

14:14

RK6 FCTNL CTRL DIAG

KF.P11

19-JUN-B0

K FO

ASCII MESSAGES

SPACE2:
OPROO1:

.ASCIZ
.ASCIZ

/ /
<15><12>/Rk611 BUS ADDRESS ( /

OPR002:

.ASCIZ

/) =/

050763
050766
050774
051002
051010
051015
051022
051023
051030
051036
051044
051052
051053
051060
051066
051074

040
005015
020061
042101
020123
040
000
122
053040
020122
051505
000
122
050040
052111
000

000040
045522
052502
051104
020050
020051

030466
020123
051505
000
020075

033113
041505
042101
020123

030461
047524
051104
020050

OPROO3:

.ASCIZ

/Rk611 VECTOR ADDRESS ( /

033113
044522
020131

030461
051717
020050

OPROO&4:

.ASCIZ

/RK611 PRIORITY ( /

586
S87
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
2604

051102
051110
051116
051124
051132
051140
051146

044506
020124
054522
043517
041101
043516

051516

044503
042515
020056
040522
051117
006456

043125

OPROOS: .ASCIZ

2605

2606
2607
2608

005015
042507
020120

044103
054040
040520

047101
042130
045503

051204
051212
051220
051226

030064
040524
047522
00

051054
052122
051107

051505
050040
046501

051170
051176

051227

005015
020122

015

046103
047514

047012

020117

043517
041101
000104

040522
051117

051104
040440
041101
051117
044524

053111
040526
042514
osgo«o
043516

2616

051312

005015

044126

020105

020107

051104

2617

12618

2619
2620
2621
2622

051320

051326

051334
051342
051350
051356

051120
020115
042524

047506

047111

053111
046111
052040
006504

046114

051505
020114
051505
000012

051505
046111
043040
051505
020056

053517
053440
042502
042524

B cndD

D il

;

051234
051242
051250
051256
051264

051272
051300
051

OPROO7:

040505
020103

2609
2510
2611
2612

2613
2614
2615

OPRC06:

s
4

051146
051146
051154
051162

/INSUFFICIENT MEMORY. PROGRAM ABORTING./<15><12>

JASCII
JASCIZ

<195><12>/7T0 BYPASS TESTING DRIVE O, PLACE IT OFF-LINE/
<15><12>/70 TEST DRIVE O, REPLACE PROGRAM PACK WITH SCRATCH PACK/

JASCII

<CR><LF>/CHANGE XXDP PACK/

LASCIZ

<CR><LF>/CLEAR LOC 40,RESTART PROGRAM/

LASCII

<15><12>/DRIVE 0 WILL NOT BE TESTED. TO TEST DRIVE 0,/<15><12>

3
LASCIZ
OPROOB: .ASCIZ

OPRO09: .ASCIZ

/RESTART AT 214 AND MOUNT SCRATCH PACK AS DIRECTED./
<15><12>/NO DRIVES AVAILABLE FOR TESTING. PROGRAM ABORTED/

<15><12>/THE FOLLOWING DRIVES WILL BE TESTED/<15><12>

il ol

047105
047515
051120
020115
044524
000012

111

s il

051075

s il

585

569
570
571
572
573
574
575
576
577
578
S79
580
581
582
583
S84

[ala]

1
LSBTTL

SEQ 0229

~a NG

2
PAGE 230

D anl

Al
ol

ggg

14:14

D el

MACY11 30A(1052)
19-JUN-B0
ASCI] MESSAGES

i
L
i
il

RgKFO RK6 FCTNL CTRL DIAG
R6KF P11
19-JUN-80 14:04

|
047516

050040

OPRO10: .ASCII

051435
051442
051450
051456

052440
020123
054524
051117

044516
040520
042440
052040

LASCIZ

046412

046505

OPRO11: .ASCII

020114
054040
042524
044527
042104

040504
042506
052123
044124
020122

.ASCIZ

020040
040503
020116
005012

12667
12
12
12670
12671
12672
12673

12674

12675
12676
12677
12678

051732

051740
0517
051754
051795
0517
051776
052004

052007

052014
052022
0520
052036

044126

047522
051440
020104
046101
054502
047111
006456

111

052114
044523
042510
020124

JASCII

/THIS PROGRAM SHOULD BE HALTED BY TYPING “C./<15><12>

020196

040510

JASCII

/1F HALTED USING THE HALT KEY, THE STATE OF THE DRIVE/<15><12>

065105
043516
044040
042513

052440
052040
046101
026131

— Y— Y — Y— Y —

Y—

Y — Y

050040

046501
046125
044040
020104
050131
041536

Y— S —

YU Y

see CAUTION ##+/<155<12><12>

051511

051107
047510
042502
0425264
052040
020107
012

<15><12><12>/

WU Y

OPRO16: .ASCII

/32k/
/64K/
/96K/
/ BYPASSED/<15><12>

OPRO12: .ASCIZ
OPRO13: .ASC1Z
OPRO14: .ASCIZ
OPRO1S: .ASCIZ

YU Y

S— S

/ALL DATA XFER TESTS WITH ADDR >/

020012

051501
000012
020040
025052
052125
025052

<15><12>/MEMORY SIZE NOT LARGE ENOUGH FOR BUS ADDRESS BITS 16 & 17 TESTS

020040
020052
047511
006452

005015

044523
052117
042507
043525
020122
042101
020123
030440
033461
051524

AU N

0517064
051712
051720
051726

051676

000113
000113
000113
050131
006504

054502
042105

12662
12663
12664
12665

12661

020131
047040
051101
047516
047506
020123
051505
051524
020046
051505

/= UNIBUS PARITY ERROR TEST BYPASSED/<15><12>

051510
051516
051524
051532
051540
051546
051554
051562
051570
051576
051604
051606
051614
051622
051630
051636
051644
051646
051652
051656
051662
051670

051503

<15><12>/NO PARITY OPTION FOR MEMORY AREA IN USE/<15><12>

12639
12640
12641
12642
12643
12644
12645
12646
12647
12648
12649
12650
12651
12652
12653
12654
12655
12656
12657
12658
12659
12

020124
051523
000

020131
047117
046440
020131
044440
006505

SEQ 0230

051464
051472
051500

055
052502
044522
051122
051505
040520
005015
015
051117
042532
046040
042440
020110
052502
051104
044502
020066
052040
005015
046101
040524
020122
020123
040440
000076
031063
032066
033071
041040
042523

052111
044524
051117
051117
040505
051525

2
PAGE 231

12635
12636
12637

051101
050117
043040
046505
051101
020116
012

—

005015

051370
051376
051404
051412
051420
051426
051434

12638

ASCI1 MESSAGES

051362

12624
12625
12626
12627
12628
12623
126

12631
12632
12633
12634

19=JUN-80 14:04

14:14

~NN

12623

CZR6KF P11

19-JUN-B0

MACY11 30A(1052)

———_— Y

CIR6KFO Rk6 FCTNL CTRL DIAG

CIR6KFO RK6 FCTINL CTR
19=JUNCIR6KF .P11

DIAG
14:04

MACY11 30A ( }?Sg%
ASC

19-JUN-80

SSAGES

14:14

2
PAGE 232

SEQ 0231

/ALL DRIVES TO BE TESTED MUST BE ON-LINE,/<15><12>

/READY, AND WRITE LOCK RESET./<15><12>

/ANY DRIVE NOT TO BE TESTED MUST BE OFF=LINE./<15><12><12>

2 NO w

RA N ANMN ANANA NAlNDl AAlNAlNAlAa AlNal NbRaiAalRaiaNlal
OO OOVO O O N AN ARNARNl
0A

/OR CARTRIDGE CANNOT BE PREDICTED./<15><12><12>

/NOTE: 2ND AND SUBSEQUENT PASS RUN TIME [S/<15><12>

4 o| ~
o [-%[-

APPROX 2 MIN 30 SEC FOR EACH DRIVE./<15><12>

<15><12>/FIRST 256 SECTORS NOT BSE

ERROR FREE./

ga3ONA4N"1McaOv'l2aL0OcON3Avga“0A~NOt2ROvTAa—0‘(3<~L“T=ngO3FM)bNV‘0“OGnON35—0g3=OaOw)gND0N5m6=OOOg003o71VwOTO(Tl~><0N=&Mga)OO“9o0O1IeSWN0o0VO3.O1gAIlIsNNN2TGC~.Ae~ONO3NlIrOo0e‘N4Oa6roq35eVe‘AlOoIr6rNwqZGv0N7lSNurTSOTNs'4O(wLTorO[=4E-.mz2oS“rO3lr4s4NOSOs4Ir£o5.gNVv5MA‘)O8oIW£‘3ToSo3NLqr6A“O5“UlNo1I<3ao08b‘[TON“O03MrmT~6IO3o0‘8Nu125CNOWOI3(O5M=N‘VSo0}OMIQO4ION63TS-T0oN‘O4BWO[32‘1”V~OoM“M‘416NSOM8[o<22ND«N0ooJ0‘3OIOo26“4O3MT1oO~‘“5eI8=Or!MSM25c3OTNlo5“N“q0I5IolSM”Iq76OA3olNIoN“7‘5SWTN2NTw3OIoVo0<5<A“NTo6DT3ooM5OOYOTWINoY2ONTMT3oWoIV)“QeNT~OI.I6OM=T“L8NonAWV‘MNE(n<6TWNB=5O)NYI3o~W“~NN~“om2&uNP“w4M
o(w[4~P]=)]J[[-+ A -w.>=~ vw=<~-A

—~w

[ ] > <

—

2aNS—ONOVNloaNORI1lJoaoO2I-lOaTloN8NNMSOOoe4o—TIo([(oovNV=<T—-x2Q-eNYVla=&¥&O.~~1))lSS02NaAENWOWOlNrSSOOa2NNWelV—OrVMOIeTI8 2WDaONrGNl-OSoNS—o ~oo vwN4Ao —AvN—-=n.9[~a-32laSOIOAo—NNlNCU8OR2IaTONI3IsNGONTAoTS2NeNOOrn8ON—CN=NNoO3NNOT2VIrWIgSOMNNONTM Tr8MON2Nm0OyNN3J~TOIWIrT(O4oa9ovOo=oo o-2-— —Se. vADNV-[N.~3eLS+ONRNONIMNO2NNWOrNeN3IEOOGN2NNr~OC—NIeO~ONNEO~2OrANNWIWDIN-oe— w—<~"AA AOeRNv~NTO2NNNFIWOOVrOSNMO2N0MMWIVONTSTTMVON2ON0WIMNNIONVNOMYr0N2VI[ONN0N"N8EOOe~2NN30Ar][OY o- Owvv o~ T8o—— .— o—IQ4vv RAvv MNNaIN([¥[v.¢0+-]OsN2IZONT~V=NI—FI0NO2NFNONMSNMZCIN2NoNIO—.RIFNOlOTN2IzONM~oROSOOFNz~<a—g woo ~~E2-o\vA4—- .T].~OV4v[—F+lONvs2§NONMz0IO3O3NONNTT==02NO3ON3ON0TI=MO8A2—N3e~W0wos~W=—<—L43=-NFO0pv[—=7V2M8OP--T~<¢(a3=S -§-<20wN3w(waoo—— -o [N ->V —= n=~E5[n}nv—NL«-O4
oitttwso—woL[~a-vAA4~—Ntit((<b[wv x4~- 4—vA- vAa-©-o &9L¥T[[)Y4E]-+titrtiwww~([oo[w4-=—a=[L\vA''Nvl~_]+44ititit.o-— ow' o(2w2 >-==o 4-av< v~x A[ [=—-ititittL‘..ob4L]w4 NN aw- —<oo~o[ d-=~i.a[&~.0l¢-tbttbt=([@w| w[-w-o.<>eQ Q4=x a4—v( A-o—=1~N—.[—Y-t oVow- (wwe w--a>-[8vaN AAvo —]o%)~v~—V)d+«“iw]oR(v)=ttLMt.~a
CIR6KFO RK6 FCTNL CTRL DIAG
~N
N

=
]=

Lal

-o—

MACY11 SOA(}? 52)
ASCI1

19-JUN-B0

MESSAGES

14:14

PAGE 234

SEQ 0233

<15><12>/PROGRAM ABORTING BECAUSE ERROR THRESHOLD EXCEEDED/<15><12>

LASCIZ

w wv wv < (& w wv

/FATAL=-NON EXISTANT MEMORY AT RK611 BASE ADDRESS/

/FATAL-WRITE READY AND IE DID NOT CAUSE

INTERRUPT/

/FATAL-PARITY ERROR TRAP. PC AT ERROR = /

/EXPECTED INTERRUPT DID NOT OCCUR OR WAS LATE. COMMAND WAS:/

LASCIZ

/SUBSYSTEM CLEAR DID NOT RESET ERROR/

O P STR I RReL PR TRS

CIR6KFO Rk6 FCINL CTRL DIAG
19-JUN-80 14:04
CIR6KF P11

0641125
046505
051101
047040
051505
053105
047111
050125
051502
020115
020122
047516
0¢N1264
000131
042122
052116
051117
000
051525
042522
041516
052103

054523
041440
04%040
052117
052105
041511
042524
000124
051531

EM6:

LASCIZ

/SUBSYSTEM CLEAR DID NOT RESET DEVICE INTERRUPT/

EM7:

.ASCIZ

/SUBSYSTEM CLEAR DID NOT SET READY/

041440
044440
042522

EM10:

.ASCIZ

/WORD COUNT INCORRECT/

040440
051523
051117
000

EMIT:

.ASCIZ

/BUS ADDRESS INCORRECT/

12870
12871
12872
12873
12874
12875
12876
12877
12878
12879
12
12881
12882
12883
12884
12885
12886
12887
12888
12889
12890
12891
12892
12893
12894
12895
128
12897
12898
12899
12900
12901
12902

054066
054074
054102
054110
054116
054124
054132
054135
054142
054150
054156
054164
054170
054176
054204
054212
054220
054226
054234
054242
054250
054252
054260
054266
054274
054275
054302
054310
054316
054320
054326
054334
054341

051525
042522
052111
047503
020124
026066
000
046131
020122
051505
047503
000124
041501
0511064
047111
041505
052103
042104
044440
042522

051105

040440
051523
020123
051122
041050
030440

EM11A:

_ASCIZ

/UPPER BUS ADDRESS BITS INCORRECT (BA16, 17)/

047111
042101
020123
051122

EMI2:

.ASCIZ

/CYLINDER ADDRESS INCORRECT/

020113
051505
047503
000124
051117
042522
041516
052103

EM13:

.ASCIZ

/TRACK ADDRESS INCORRECT/

EM14:

.ASCIZ

/SECTOR ADDRESS INCORRECT./

026516
040524
044522

054105
052116
042526

EM15:

.ASCIZ

/NCN-EXISTANT DR'VE/

047117
042514
042515

051124
020122
052517

EM16:

.ASCIZ

/CONTROLLER TIMEOUT/

052111
042114
051117
046125

043040
042440
000
050111

EM17:

.ASCIZ

/UNIT FIELD ERROR/

EM18:

.ASCIZ

/MULIPLE DRIVE SELECY/

12869

053752
053760
053766
053774
054002
054006
054014
054022
0540

054033
054040
054046
054054

054061

lgg
0521
042514
042111
051040
042040
020105
0511%§
0525

042524
040505
020104
042523
042101
047527
052517
041516

052103

102
042104
044440
042522

125

041040
042104
041040
047111
041505
030501
024467
103
042504
051104
047111
041505
051124
042101
020123
051122
042523
040440
051523
051117
000056
047516
051511
042040
000
103
046117
0665%6
000124
047125
042511
051122
115

050120

046103
044504
020124
(042522

PAGE 235

SEQ 0234

oYolalalalalnlals)

053665
053672
05%700
053706
053714
0537%2
053730
053736
053744

ERROR MESSAGES

~lvlvlvlvlelelelolelw] [~ X1l 11l

12847
12848
12849
12850
12851
1235%
12853
12854
12855
12856
12857
12858
12859
12860
12861
1286§
12863
12864
12865
12866
12867
12868

19-JUN-80 14:04

14:14

(el

MACY11 30A(1052)

CIR6KF P11

19-JUN-B0

CIR6KFO RK6 FCTNL CYRt DIAG

=21
OO
-

B \ A =B AN

S i

R RRE R8R

53878

NOWVS

RIRGR w RER

b VAN =2 N

NNOO OO =NVONOO —=—=MNN)
NS VVONNO S =N =S NNNO &~

= VN =

VWA

—-O—=
NOVS

—

OO—=
WV

F
~o
~ WO

ooo

ON=N—— ~N
NSO
—SN &

EM21:
LASCIZ
/UNIBUS PARITY ERROR/

EM22:
LASCIZ
/ILLEGAL FUNCTION/

EM23:
LASCIZ
/ECC HARD/

041440
000
0462524
045503

EM24:
LASCIZ
/DATA CHECK/

EM25:
LASCIZ
/WRITE

020101
000
040522
044440
046120
EM26:
LASCIZ
/DATA LATE/

EM27:
LASCIZ

/OFERATION INCOMPLETE/

051105
0

EM28:
LASCIZ
/HEADER VRC/

EM29:
LASCIZ
/BAD SECTOR ERROR/

EM30:
LASCIZ
/CONTROLLER DETECTED DRIVE BUS PARITY ERROR/

EM31:
LASCIZ
/SEEK

EM32:
LASCIZ
/NON-EXECUTABLE DRIVE

EM33:
LASCIZ
/DRIVE DETECTED DRIVE BUS PARITY ERROR/

N NSO
==t

NN—=ON
NN
NS
W

B\ N

=500

wvwaeiv

053111

OO0

19-JUN-80
MACY11 30A(1052)
ERROR MESSAGES

00
044040

14:14

0
PAGE 236

FUNCTION/

leleleolelelelel Bel

Nt WA

Nt et

VAWVASS
S

/NON=EXISTANT MEMORY/

OO0

LASCIZ

Svvalbess

EM20:

OO0

/PROGRAMMING ERROR/

OO0

0462040
051440
vivawvwha p~ w ry

NO
=
OO
Oh =t =2 O = b
NOOONON — e BN ANV =
) =B Y W
O WV
AN =t N = O S =2 N\ b
\ ) b e b d
OON
= = PNINS NN = 2O —-NON =
O=0000N
=20 =N—==00 M=
SO

FRORARROR SRERR
R
W=~
O

NO WS WN =200V

LASCIZ

=OONWVO—=—=
NORSIVOWVW

NOOO—-=NOOC
SWVIVIWWNES
LWV

AN d

EM19:

OOON
NS VOD

OOON
VIS WVIND

— e e A

NOWVESWNOOV

o
OC OO
ooog
o
Vi
&~
SO
RORARRRR
SRIGR
=SB N = aNINNN
OO
SFOONNNN N

-8 O

22§--ou-—a~§

wWrhonN
-l NN
- AN =B CON = b\ = \ ) b b

RSRR RR

VOOV OOV OOV OOV OOV OOV OOVOOOOOOO

NN
NN
NN

054346

SRR

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

3
SEQ 0235

CHECK/

INCOMPLETE/

q
044522
051122
040515
047522

EM34:

.ASCIZ

/FORMAT ERROR/

051104
054524
051122
101
000127
050123
020105
020104
000
104
047440
040522
103
2504
051105
000
111
046101
020113
040440
051523
127
046040
051105
051104
044526
042440
000
116
051122
020110
047440
042440
051440
1
052440
000105
042503
052105
047040
042510
047522
000124

053111
042520
051117
020103

020105
042440
000
047514

EM3S:

.ASCIZ

/DRIVE TYPE ERROR/

EM36:

LASCIZ

/AC LOW/

047111
050123
047514

046104
042505
051523

EM37:

.ASCIZ

/SPINDLE SPEED LOSS/

044522
043106
045503
046131
020122
046106

042526
052040
000
047111
053117
053517

EM38:

.ASCIZ

/DRIVE OFF TRACK/

EM39:

LASCIZ

/CYLINDER OVERFLOW/

046114
042040
040520
042104
000

043505
051511
045503
042522

EM4O:

.ASCIZ

/ILLEGAL DISK PACK ADDRESS/

EM4T:

LASCIZ

/WRITE LOCK ERROR/

047522
053111
044515
051122

042524
020113
000122
020105
043516
051117

EM42:

LASCIZ

/DRIVE TIMING ERROR/

053126
047040
052105
020110
040440

13014

055402
055410
055416
0555%6
055432

055437

123

044522
041517

020117
053440
047523
044124
051122
052105
044522
051516

042503
052111
042515
051105
051117
000
0462526
043101

EM43:

_ASCIZ

/NO CERR WITH SOME OTHER ERROR SET/

EM44:

.ASCIZ

/DRIVE UNSAFE/

051122
041040
020117
020122
020122

051440
052125
052117
051105
042523

EM4S:

.ASCIZ

/CERR SEY BUT NO OTHER ERROR SET/

MMmm

13009
13010
13011
13012
13013

055050
055056
055064
055071
5076
U55100
055106
055114
055122
055123
055130
055136
055143
055150
055156
055164
055165
055172
055200
055206
055214
055217
055224
055232
055240
055246
055254
055262
055263
055270
055276
055304
055312
055320
055325
055332
055340
055342
055350
055356
055364
055372
055400

042040
05%117
053440
040520
045503

042111
051440
052111
045503
000

EMLG:

JASCIZ

/VV DID NOT SET WITH PACK ACK/

EMLT:

JASCIZ

/STATUS VALID SET ON SELECT TO NON-EXISTANT DRIVE/

mmMmMmMmMmMmMmMMmMmMMmMMm

12965
12966
12967
12968
12969
12970
12971
12972
12973
12974
12975
12976
12977
12978
12979
12980
12981
12982
12983
12984
12985
2986
12987
12988
12989
12990
12991
12992
12993
12994
12995
12996
12997
12998
12999
13000
13001
13002
13003
13004
13005
13006
}3007

020123
054524
051117
106
020124
000122

SEQ 0236

040520
042440
000
051117
051105

055014
0550%2
055030
055033
055040
055046

ERROR MESSAGES

mmmmmmmmmmmmmmmmmmmmmmmmmm MMMMOOOODODO0DO0O0O0DO00

12959
12960
12961
12962
12963
12964

19=-JUN=-80 14:04

14:14

3
PAGE 237

MACY11 30A(1052)

CZR6KF P11

19-JUN-B0

CIR6KFO Rk6 FCINL CTRL DIAG

060524

052524

MACY11 30A(1052)

ERROR MESSAGES

13015
13016
13017
13018
13019
13020
13021
13022

055444
055452
055460
055466
055474
055502
055510
055516

020123
020104
047117
041505
047040
044530
020124
000105

040526
042523
051440
020124
047117
052123
051104

044514
02012«
046105
047524
042455
047101
053111

13030

055572

052123
053040
051040
047440
042514
020117
040524
044522

052101
046101
051505
020116
052103
054105
052116

123
020123
020104
042522
047117
042526
040505
105
042524
020104
051122
044504
020124
020122
051501
027105
040515
051501

042526

051525
042111
052105
042523
052040
051511
042040

0405¢4
040526
047516
042523
042040
051040
042523
050130
020104
047111
050125
020104
041517
051117
046040
041440
042116
000072

13023
13024
13025
13026
13027
13028
13029

13031
13032
13033
13034
13035
13036
13037
13038
13039
13040
13041
1304§
13043
13044
13045
13046
13047
13048

13049

13050

055520
osssgz
0555
055542
055550
055556
055564
055577
055604
055612
055620
055626
055634
055642
055647
055654
055662
055670
055676
055704
055712
055720
055726
055734
055742

055746
055754

13051
13052
13053
13054
13055
13056
13057
13058
13059

055762
055770
055776
056003
056010
056016
056024
056032
056040

13061
1306%
1306
13064
13065
13066
13067
13068
13069
13070

056046
056054
56062
056070
056076
056100
056106
056114
0561§2
056130

13060

056041

040503

051040

040502
052103
046111
124
043516
052122
020116
042040
000

101

042515
041501
052040
051104
005015
042524
020107
0425264
052040
051104

000
052524
044514
020124
020124
044522
046105
000
041505
047062
042524
020124
047516
052503
053440
052101
046517
053440

047116

052117

020104
051117
006505
051505
040440
042105
044124
044522

042523
043040
012
044524
047502
047440
051511
042526

040505

020104

044514

047107

052123

047111

052116
020113
044510
053111
041101
020104
044510
053111

19-JUN-B0

050040
047117
020123
027105
051117
047117
020123
027105

14:14

3
PAGE 238

SEQ 0237

EM4B:

LASCIZ

/STATUS VALID RESET ON SELECT TO EXISTANT DRIVE/

EM49:

_ASCIZ

/STATUS VALID NOT RESET ON DRIVE RELEASE/

EMSO:

.ASCIZ

/EXPECTED 2ND INTERRUPT DID NOT OCCUR OR WAS LATE. COMMAND WAS:/

EMS1:

.ASCII

/CANNOT READ BAD SECTOR FILE/<15><12>

LASCIZ

/TESTING ABORTED ON THIS DRIVE/

JASCII

/ALIGNMENT PACY ON THIS DRIVE./<15><12>

LASCIZ

/TESTING ABORTED ON THIS LRIVE./

EMS2:

MMMMMMMMMMMMMMMMMMMMMMMMMMMM
MMM M m

2 R6KFO RK6 FCTNL CTRL DIAG
19-JUN-B0 14:04
€2 R6KF P11

CIZR6KFO RK6 FCINL CTRL DIAG

MACY11 30A(1052)

13071
13072
13073

040515
042101

EMS3:

LASCIZ

/70 MANY BAD SECTORS.

051105
020104
046517
000
020101
046440
050115

EMS&:

.ASCIZ

/HEADER WORD MISCOMPARE/

EMSS:

LASCI!Z

/DATA WORD MISCOMPARE/

052117
020104

EMS6:

LASCIZ

/CANNOT FIND HMEADER O IN READ AND SORT HEADERS/

051525

EMSVAL:

.ASCIZ

/STATUS VALID/

046105
044527
047117
020117
051525
000122

041505
044124
055055
052123
050040

EMNZPR:

.ASCIZ

/SELECT WITH NON-ZERO STATUS PAIR/

0521

047503
020104
051525
051511
000062

047111

046515
052123
051040
042524

EMWCS2:

.ASCIZ

/WRITING COMMAND STATUS REGISTER 2/

053111
042524
000124

020105
051122

053111
052101
040510

020105
051525
043516

053111
042524

052116
051105

CZR6KF P11

13074
13075
13076
13077
13078
13079
13080
13081
13082
13083
13084
13085
13086
13087
}gggg

13090
13091

13092
13093
13094
13095
13096
13097
13098

13099

056136
056137
056144

056152
056160
056166
056174
056202
056210
056216
056222
056230
056236
056244
056251
056256
056264
056272

000
126
054516
051440
05152%
052123
041101
02010&
044510
053111
042510
053440
044515
040520
1064
047527
051511
051101

056276
056304

040503
043040

056312
056320
056326
056334
056342
056350
056354

056362

13100
13101
13102
13103
13104
13105
13106

056370
05637
056376
056404
056412
056420
056426

13108
13109
13110
13111
13112
13113
13114
13115
13116

056440
056446
056454
056462
056470

13107

13117
13118

13119
13120
13121
13122
13123
13124
13125
13126

19=-JUN=-B80 14:04

056432

056474
056502
056510

056514
056522
0565
056536
056540
056546
056554

056560
056566

042510
030040
042522
042116
020124
051105
85;123

053040
000
123
020124
047040
051105
052101
044501
051127
020107
047101
052101
043505
020122
055050
0511064
047111
050125

054765
051104

052123
041440
000105
051104
05;101
047511
047503
046114

020117
041040

041505
020056
047111
051117
047117
020123
000105
042101
051117
041523
042522
052101
042122
047503
000105

047116
047111
042101
044440
042101
051440
042510
000123
052101

046101

000116

19-JUN-B0

ERROR MESSAGES

14:14

PAGE 239

—
SEQ 0238

TESTING ABORTED ON THIS DRIVE/

047524
042524
020107
042524
052040
051104

051105
020116
040440
051117
042101

042111

EMDTPE= EM3S
EMDI:
.ASCIZ

:DRIVE TYPE ERROR
/DRIVE INTERRUPT/

EMDPAR= EM33
EMDSC:
.ASCIZ

:DRIVE DETECTED DRIVE BUS PARITY ERROR
/DRIVE STATUS CHANGE/

020105
052116

EMDA:

.ASCIZ

/DRIVE ATTENTION/

047522
041440

EMCCLR:

.ASCIZ

/CONTROLLER CLEAR/

T ITITTITIIITITIOOOOOOOOOCOOOOOOSD

—

. 3

1
13127
13128
13129

13130
13131
13132
13133
13134
13135
13136
13137
13138
13139
13140
13141
13142
13143

13144
13145
13146
13147
13148
13149

13150
13151
13152
13153
13156
13155
13156
13157
13158
13159
13160
13161
13162
13163
13164
13165
13166
13167
13168
13169
13170
13171
13172
13173
13174
13175
13176

13177

13178

13179
13180
13181
13182

056574

056601
056606
056614
056622
056630
056636
056637
056644
056652
056660
056664
056672

056700
056701
056706

056707
056714
056722
056730
056733
056740
056746
056754
056762
056770
056774
057002
057010
057016
057020
057026
057034
057042
057050
057056

042514
050160
050206

050247
123
020104
051122
042523
020117
000
050272
125
041505
047111
050125
047125
051040

000
122
000
054541
122
043516

057
057072
057100
05N
057110
057116
057124
057132
057140

020101
051105
103
046117
051105
052523
042526
040505
052515
042514
051105
000123
040502
052103
047117
020113
042522
042523
052040
041450
031061
005015
042524
020107
042524
052040
051104

057146
057154
057162
057170

051526
020115
041520
053111

051101

MACY11 30A(1052)

ERROR MESSAGES

000

051505

044504
052101
043106

3
PAGE 240

.ASCIZ

/SECOND INTERRUPT/

EMSKSF:

.ASCIZ

/SEEK TO SELF/

: SEEK
/UNEXPECTED INTERRUPT/

EMUR:

LASCIZ

/UNIBUS RESET/

EMRSET:

.ASCIZ

/RESET/

EMDLT=
EMRDB:

EM26
.ASCIZ

;DATA LATE
/READING DATA BUFFER/

EMCERR:

.ASCIZ

/CONTROLLER ERROR/

EMSCLR:

.ASCIZ

/SUBSYSTEM CLEAR/

EMM] :

LASCIZ

/MULTIPLE INTERRUPTS/

020104
051117
050040
047111
051501
020104

DRVABT: .ASCIl

052123
041101
020104
044510
053111

LASCIZ

/BAD SECTORS ON PACK IN AREAS USED BY TEST (CYL 312(8))/<15><12>

051505
046131
034050

020124
051105
020040
000105

.SBTTL
DHOO1:

SEQ 0239

;DRIVE SELECT
;DRIVE CLEAR
;RECALIBRATE

EM2INT:

EMSK=_
OPER1%S
EMUXIT: _ASCIZ

042516
042524
042524
000124
041111
051505

14:14

EMSELD= OPERQO
EMDCLR= OPERO4

EMRCAL= OPER12

041505
047111
050125
045505
042523

040505
042040
052502
000
047117
042514
047522
051502
020115
000122
052114
044440
052522

19-JUN-B0

/TESTING ABORTED ON THIS DRIVE/

DATA HEADERS FOR ERROR REPORTS
LASCIZ /TST NUM ERR PC DRIVE/

e rrr R
RERERR®R

C IR6KFO RK6 FCTNL CTRL DIAG
19-JUN-B0 14:04
C IR6KF P11

057174
057202
057210
057216
0572%%
0572
057236
057244
057252
057260
057266
057274
057302
057307
057314
057322

051524
020115
041520
053111
045522
020040
020062
051504
045522
020040
043117
041504
045522
122
020040
000103

0%0124
051105
020040
000105
051503
045522
020040
020040
051105
045522
020040
046131
040504
041113
051040

052516
020122
051104

DHOO2A:

020061
051503
045522
020040
020040
051501
045522
020040
000
020101
053513

3200

057332

030101

020040

020060
030102

020040

020040
020063
030102
051503
86552
20040
020040
051105
045522
020040
000061

020040
020040
000063
020061
051503
045522
020040
020040
051501
045522

920105
054105
042105
051117
052101
047040
052105
050117
047511

051101
042520
042440
020123
042040
052117
044440
051105
035116

3199

057324

3206
3207
3208
3209
3%10
3211
3212
3213
3214
3215
3216

057376
057404
057412
057420
057426
0574
057442
057450
057456
057464
057472

030101
020040
045522
05004
02006
051504
045522
020040
043117
051115

3218
3219
3220
3221
3222
322%
3224
3225
3226
3227

057504
057512
057520
057526
057534
057542
057550
057556
057564
057572

053117
020105
052103
051122
0441246
042111
051440
020116
052101
000

3217

3228

3229
X230
3231
323§
3233
32%
3235
32%
3237
3238

057476

057573

057600
057606
857616
§7622
0576
057636
057644
057652
05765
057662

044124

126

047502
062552
050130
020104
051522
044440
051105
035116
126
047502

PAGE 241

DATA HEADERS FOR ERROR REPORTS

8%8?8?

.ASCIZ

SEQ 0240

/TST NUM ERR PC

DRIVE/

DHO02B: .ASCIZ

/RKCS1

RKCS2

RKDS

RKER

RKASOF

RKDCYL

RKDA/

DHOG2C:

.ASCIZ

/RKBA

RKWC/

DHO02D: .ASCIZ

/A00

80O

AO1

801

A02

B02

A03

DHOO036: .ASCIZ

/RKCS1

RKCS2

RKDS

RKER

RKASOF

RKMR1/

19-JUN-80 14:04

14:14

803/

020105

041101

DHOOS:

.ASCIZ

/THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET IN OPERATION:/

042510

040440

DHO06:

.ASCIZ

/THE ABOVE ARE UNEXPECTED FRRORS SET IN OPERATION:/

042526
052440
041505
051105
051440
020116
052101
000
042510
042526

040440
042516
042524
047522
052105
050117
047511

040440
040440

DHOO7:

.ASCIZ

/THE ABOVE ARE ERRORS SET IN OPERATION:/

rrrrr

3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198

R6KF P11

19-JUN-80

PP P PP P Z R EEEEEIEEEEIEIEZEEEEEEEEEEEEER

MACY11 30A(1052)

[4,

Ré KFO RK6 FCTNL CTRL DIAG

13282
13283
13284
13285
13286
13287
13288
13289

13290

13291
1329§
132935
13294

057670
057676
0577
057712
057720
057726
057732
057740
057746
057754
057762
057770
057776
060004
060007
060014
060022
060030
060036
060044
060050
060056
060063
060070
060076
060104
060112
0601%0
060126
060133
060140
060146
060154
060162
060170
060176
060204
060212
060213
060220
060226
060234
060236

060264
060252
060260
060263
060270
828;52

042522
051117
020156
06;5 0
047117
047101
046105
044126
047440
052515
020105
042111
044440
042111
105
040440
050115
047117
050117
047511
054105
020040
122
040504
052111
041522
046131
020182
046106
116
052105
020101
052114
047516
042523
040440
046125
000
123
020123
052523
000106
042522

060312

051501
051505
043117
107
020040
0;0060
051117
000115

0603;8
0603
060336
060344

042524
0460505
051040
051440

060314

0555%3

042440
020123
047111
040522
000072
020131
020104
040440
042516
052123
047503
051105
053116
000
051122
020124
042514
047440
051105
000116
052120
051511
040505
040524
020110
042105
047111
053117
053517
052117
040440
042522
047440
020124
020126
051040
020124

051122
042523
047440
044524
044506
044527
046114
020123
041040
051516
042105
046101

DHOOSA:

.ASCIZ

/ANY FIELD WITH ALL ONES MUST BE CONSIDERED INVALID/

051117
047503
044524
020106
052101

DHO10:

.ASCIZ

/ERROR AT COMPLETION OF OPERATION/

020104
000
020104
053440
047506
041440
042504
051105
000
051440
020123
052523
000106
042522
051501
051505
043117

DHO10A:

.ASCIZ

/EXPTD

DHO10B:

.ASCIZ

/READ DATA WITH FORCED CYLINDER OVERFLOW/

DHO11:

,ASCIZ

/NOT SET AS A RESULT OF/

DHO12:

LASCIZ

/NOT RESET AS A RESULT OF/

052105
020101
052114

040440
042522
047440

DHO13:

.ASCIZ

/SET AS A RESULT OF/

042523
040440
046125
000
047517
041040
020040
020104

020124
051040
020124

DHO14:

,ASCIZ

/RESET AS A RESULT OF/

020104
04§101
053440
052516

DHO15:

.ASCIZ

/GOOD

051502

051531

DHO16:

.ASCIZ

/SUBSYSTEM CLEAR TO RESET SEEK LIMIT ALLOWING HEADS TO RELOAD/

020115
020122
051505
042505

069103
047524
052105
020113

SEQ 0241

OFEZTZEZ

13239
13240
132641
13242
13243
13244
13245
13266
13247
13248
13249
13250
13251
13252
13253
13254
13255
13256
13257
13258
13259
13260
13261
13262
13263
13264
13265
1%%69
13267
13268
13269
13270
13271
13272
13273
132764
13275
13276
13277
13278
13279
13280
13281

J 3
MACY11 30A(1052)
19-JUN-80 14:14 PAGE 242
DATA HEADERS FOR ERROR REPORTS

felelelalsleleleleoleoleleleolslewlele]l=lelel=l=lcleallec]lelelclaleaalec]lelelaleolele]leleoleoleolele]

CZR6KFO RK6 FCTNL CTRk DIAG
CZR6KF P11
19-JUN-80 14:04

IS/

BAD

WORD NUM/

—e—— ——

= NN
—

LASCIZ

/SELECT AFTER RECAL/

DHO18:

LASCIZ

/RECAL COMPLETE ATTN AFTER SELECT/

.SBTTL

DATA TABLES FOR ERROR REPORTS
.EVEN

DT001:
DT002:
DT004:

001626
001552

DT00S5:
DT006:
D1007:
DT010:

DFO02:

NOW

000

co0

$STESTN,SERRPC,DRVNUM

.WORD

STESTN,SERRPC.DRVNUM

.WORD
.WORD

T.DCYL,T.DA
T.BA,T.WC

.WORD

ER,
T ASOF
71.CS1,7.CS2,T.DS,T.

SREG10,SREG11,$REG12,3REG13,$REG14,SREGTS,SREG16,3REGT7

.WORD
.BYTE
.WORD
.BYTE
.WORD

&
0,0
DHOO2A
3,0
DHO0Z2B

.WORD
.BYTE
.WORD
.BYTE

.0
DHOO3B
6,0

BYTE
.WORD
BYTE

000

.WORD

DT01S5:
.WORD
STESTN,SERRPC,DRVNUM
DTO15A: .WORD
SREG10,SREG11,SREG12
.SBTTL DATA FORMATS FOR ERROR REPORTS
1
.WORD
DFO01:
3,0
.BYTE

000

003
057420
006

STESTN,SERRPC,DRVNUM,T,.CS1,7.CS2,T.DS,T.ER,T.ASOF,T.MR1

.MWORD

001206
001214
001626
001206

.WORD

DFO03:

7.0
DHOO2C
2,0

DDVIVVYY

=N
==
BB

DHO17:

DT003:

000

SEQ 0242

O—OMNN
SANNNS
OO
NS

OSSN
NOO SO

O000O
OO0

B8
ON—-

VIVI=S W=

040503
050115

SNV
OO

046105
0463101
042522

K 3
MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 243
DATA HEADERS FOR ERROR REPORTS

OCO0O0O0O0

NSO rs

044515
047514
0464040
052040
047514

WS WSS

2522?
oo

NOON NN

DIAG
14:04

VA BN =

060352
060360

[=1=]

ONOWVSUWN=2O
OV NO WS WN-=O 3282 1 SR28322
SSNNNNNWNNJ—O-I-O-‘-..‘-._;_.

NN
AN

OOV

1
1
1
1
1
1
1
1
1
1
1
1
1
i
1
1
1
1
1
1
1
1
1
1
]
1
1
1
1
1
1

FEFERERERE auau
uuuuuuiuuuvcuu
w=oBE
I

1
1
1
1
1
1
1
1

A N N U O N
N NN NN

L L U L o Ul N U L U A U U A U U U U U U A U
U U U Lo L U U U
N
N

1
1
1
1
1

[V
W

1
1
1
1
1
1
1
1

296

PRORRR

1 295

CIR6KFO Rk6 FCINL CTR
19=JUN(2 R6KF P11

060646
060650
060652
060654
060656
060660
060662
060664
060666
060670
060672

000006
000
000000
000
057174
003
057222
007
057307
002
057324
010

000

365
366
367

060676
060700
060702

000007
000
000000

000

369
370
371
372
373
374
375
376

060706
060710
060712
060714
060716
060720
060722
060724

057174
003
057222
007
057307
002
057324
010

g;g

060730

000

380
381
382
383
384
385

060732
060734
060736
060740
060742
060744

000005
000
000000
000
057174
003

322

D
D il i
i

D i i

D D

U L Ll U L U U U U U A U A

D i
D

386
387
388
333

il e
D i
i
e
e
il e
il
i

000

377 060726 057724

L A L Ll N U L

Dl
il
e
it i e

060674

368 060704

U U

D il i

N NN N N

D il

) i

A N A N NN NN NN

351
3s§
353
354
355
356
357
358
359
360
361
362

060746
060750
060752
060754

057222
007
057307
002

391
sog
393

060756
060760
060762

000004
000
000000

395
399
397
ggg

060766
060770
060772
060774

057174
003
057420
006

00
01
og
03
04
05
06

060776
061000
061002
061004
061
06101
061012

000004
000
000000
000
057174
003
060050

396 060764

FREFERE

19=-JUN=-80 14:04

000

000
000

DFO04:

DF04A:

00r
000
000

000

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

DFOOS:

.WORD
.BYTE
DFOOSA: .WORD

BYTE

000

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

000

BYTE

000
000
000

000
000

.WORD
DFO06:
DFO06A:

000

000
000
000

000

DFOO7:

DFOO7A:

000
000

000
000
000

.WORD
BYTE
.WORD
BYTE
"WORD
BYTE

10,0

7
0,0
0

0.0

DHOO2A
3,0
DHO028B
7,0
DHO002C
2.0
DH002D
10,0

DHOOSA
0,0

.WORD
BYTE
"WORD
BYTE
.WORD
BYTE
.WORD

&
0,0
0

"WORD
BYTE
.WORD
BYTE

DHOO2A
3,0
DHOO3B
6.0

.WORD
BYTE
DFO10A: .WORD
‘BYTE
.WORD
‘BYTE
.WORD

DFO10:

6
0,0
0
0,0
DHOO2A
3,0
DHO00ZB
7,0
DH002C
2.0
DH002D

0.0
0
0.0
DHOO02A
3,0
DHO0028B
7,0
DH002C
2.0

BYTE

SEQ 0243

0.0

&
0.0
O
0.0
DHOO2A
3,0
DHO10A

WLLVLYOYVWN

KF.P1N

L 3
MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 244
DATA FORMATS FOR ERROR REPORTS

VUVLUVLILVLWVIVILILUVLILKILY

Do
oo

KF OPRK6 FCINL CTRL DIAG

CIR6KFO RK6 FCTINL CTRL 01260‘
CZR6KF P11
19-JUN-80 1
}%28;

061014

002

000

13409
13410

061016
061020

000004
000

000

061022
061024
061026
061030
061032
061034

000000
000
057174
003
057420
000006

13418
13419
13420

061040
061042
061044

000002
003
060263

13423

061050

000001

13426
13427
13428
13429
13430

061054
061200

000052
000052
070376
000240
005014

13255
}gzgg

13431
13432
13433
13434
13435
13436
13437

061046
061052

070376
070400
070402
070406
070410
070412
070414
072414

003
003

005237
000240
000002
000240
001000
001000
000001

000

DF011:

DFO11A:

000

000000
000

£€015:

000
000

.BYTE

2,0

.WORD
.BYTE

&
0,0

.WORD
.BYTE
.WORD

2
3,0
DHO15

.WORD
.BYTE
.WORD
.BYTE
.WORD
.MWORD

.BYTE
DF016:

.WORD

.BYTE

SEQ 0244

0
0,0
DHOO02A
3,0
DHOO3B
6,0

3,0
1

3,0

BS26:
BS24:

001662

.BLKW
52
.BLKW
52
.=70376
NOP
SPCHLR: CLR
(R&)

INC

NOP
SPCPAR: RTI
NOP
1BUFF:
.BLkW
OBUFF:
.BLKW
.END

INTSET

:CLEAR MEM MAINT REG

:COUNT THE INTERRUPT
:RETURN

1000
1000

[P X7 XV X7 XV XV RV AV AV XV NV AV NV )

13411
136412
136413
13414
13415
}fi}g

LI
MACY11 30A(1052)
19-JUN-80 14:14 PAGE 245
DATA FORMATS FOR ERROR REPORTS

|
19674

ACLOER= 000100
ACPUOP= 000000

AMANS3= 000000

AMANSS= 000000

AMSGAD=
AMSGLG=
AMSGTY=
AMNTYP1=
AMTYP2=

000000
000000
000000
000000
000000

APASS =
APRIOR=
APTCSU=
APTENV=
APTS1Z=
APTSPO=
ASWREG=
ATESTN=

000000
000240
000040
000001
000200
000100
000000
000000

ANTYP3= 000000
AMTYP4= 000000

19664

a2l -1}

2O W -\
=
YN
=
OO NWOMN =W NWVINIO =N

000000
000000
000000
000000
000000
000000
000000
000000

COONMNIN
= O OONIN = =N

AENVM =
AFATAL=
AMADR1=
AMADR?2=
AMADR3=
AMADR4=
AMANS1=
AMANS2=

LSLSLSTNTNTNT
NI STSTSTNTNLNSTNLNTNTNT ST NT NPy N1 N1
PO
LN N U W D D N U N NN U AN NN N NN N NN

= OOOO
WO

ADDWO = 000000
ADDW1 = 000000
ADDW10= 000000
ADDW11= 000000
ADDW12= 000000
ADDW13= 000000
ADDW14= 000000
ADDW15= 000000
ADDW2 = 000000
ADDW3 = 000000
ADDW4 = 000000
ADDW5 = 000000
ADDW6 = 000000
ADDW?7 = 000000
ADDW8 = 000000

ADEVM = 000000
ADJCLK 043614
AENV = 000000

[
Tl

9398'

94414

36420

11440

2289

2328

AUNIT = 000000

AUSWR = 000000
AVECT1= 000210

- VLUV
OVOWOE
o
e
R
B
5
B
E
e
E
2
. Ll
R
a
°
ES =
3
S
S
K2 el
-

2330

ABASE = 177440
ABORT
053227
ABTFAL
044170
ACDW1 = 000000
ACCW2 = 000000
ACLO = 000010

SEQ 0245

N 3
MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 247
CROSS REFERENCE TABLE == USER SYMBOLS

CIR6KFO RK6 FC TNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

9498

11438

BIT2
BIT3
BIT4
BITS

= 000004
= 000010
= 000020
= 000040

BITS

000100

BI1T7

= 000200

BIT8

= 000400

BIT9

= 001000

BPTVEC= 000014
BSE
= 000200
BSERPT= 000200
BSERR = 000100
636
BSF 24P
640
BSF26P
8

BS24CT

12408

4630

4632

4634

9067

9665

12372

12390

12399

2012
2013

2031
2032

2124
21

2708
2139

9463
2709

1173
9292

12381
11255

2015

2033

2126

11092

11100

11118

11142

2113

2141

9470

9621

11092

2114

2142

4370

63N

6774

2147

4367

4368

4520

7155

2061
2043
2044
2045

12391
12401

12410
12460
12393

12459

2027

11142

9253

11022

11044

2017

2018
2042
2024
2025
2026

2035

2019

12463

3179

12402
12376

12412
12394

12461
12403

2106

2134

2705

5680

9724

2028
9634
2029
8624

2107

2135

2706

2828

3048

2108
8897

9050

2136

2707
9073

9081

11005

20
11020

2030
11037

2123

4572

4573

4627

4628

7441
7443

7600
7445

12462

2008

12377

2009
8588
2010
8595

3179
2119

12395

T e R B

11118

2034

11280

2016

11170

12458

2702

2041

e B

9267
9285

e R

el )

oy
12457

-t
o =

3936

2040

8872

81715 = 100000

10651

3141

—————————— g — Y

BIT14 = 040000

7720

3219

B8IT13 = 020000

7663

BIT12 = 010000

5499
5499

5159
5310

6882

4162
4064
4168+
4153«
4198
4173

10549

11047
11043
4202
4194
134274

10500
76
123954

81710 = 002000
BIT11 = 004000

7045
1915
1914
1913
1912
1911
1910
1909
1908
1907
1906

7504

7489

—

81700 = 000001
BIT01 = 000002
B1T02 = 000004
81703 = 000010
81704 = 000020
BIT05 = 000040
81706 = 000100
81707 = 00020C
BITO8 = 000400
81709 = 001000
BIT1
= 000002

5073
5219
11049
10002#
2007

BOSRCK 042160
BITCNT 036242
BITO = 000001

SEQ 0246

2329

1246104
4839

AVECT2= 000000
BAERR = 000004

B &
MACY11 30A(1052)
19-JUN=-80 14:14 PAGE 248
CROSS REFERENCE TABLE == USER SYMBOLS

—

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

——

BS26
BS26CT
CCLR =
(T
=
CERNER=
CERR =
CFMT
=

061054
001646
100000
002000
100000
100000
010000

2685
26914
20194
20120
10445
2018
(015K

4176
4160+
3509
3082
123864
3075
£53C

CHKBA
CHKCTS
CHKOP
CHKST
CHKWC
CHKWE
CKSWR =

037430
037642
040162
040170
037376
040130
104407

102744
6810
104264
10426
10255¢
104174
9247

10468
103364
12084
104290
10466
12085
9459

CLKCAL 035246
CNDLE 050120
COE
= 001000
COERR = 001000
CP1170= 002000
(R
= 000015
CRLF
= 000200
CSRPTR 001672
CS1ERB= 024000
CS2ERB= 177400
(10
= 004000

97614
9867
20690
6509
27084
18304
18314
27140
10435
10437
20130

9856
10472

CTRHLT
CYLERR=
DCK
=
DCKERR=
DDISP =
DT
=
DESHLD
DFOOT
DFO02
DFOO3
DFO04
DFO04A
DFOOS
DFOOSA
DFO06
DFOOA
DFO07

2957
10386
2055#
8042
18374
20674
27214
2383
2398
2409
2690
10696
2506
10716
2529
10676
2555

DFOO7A
DFO10
DFO10A
DFO11

060762
060776
061002
061016

DFO1IA 061022
DFO1S
DFO16
DHOO1

061040
061050
057146

10648
2578
(S51se

592

$330e

3548¢
38300
2630
2638
2381

B
e R

8302

10150

10177

3125
6563

4285
6621

10165
6636

10221
669

10225
6709

10443
8383

10518
10059

10360

11017

11045

9508
7639

12074H
7699

7775

8129

8233

8272

8368

8502

8951

8971

10764

12470#

5645
1149
11455
5647+

5661
12596
11494
5649

5684
12599

5691

9656

9712

5654

5686+

5688+

5693+

5695+

9655+

9696+

113334

11680

11763

11161«

11285

7269+

7280+

7286

3519s

3525+

3542e

T
T

11069

8026
9948

11085
13334H
13337
133474
133524
10707
133654
133674
133804
10686
133914

10528
123904
2791

11109«

13354¥

133824

133934
134004
3568k

5705+

6816+

6823+

TM2ee

7131+

712e

7148

7262+

2601

2610

2618

13409#

3554e
a7s
134184
134230
131794

3560+
3ag6e

3582+
4281+

3588¢
4288+

3u3se

3umes

3e91e

3497+

3503+

§3970

e
e

3163

2986
124114
10500
10530
2236

10557
12399

10359

123504
10167

e b

123804
5631
11484
2827
5633«
123490

10469

e b

043724
000010
100000
000002
177570
000400
001700
060612
060616
060636
060646
060652
060676
060702
060732
060736
060756

7816

3597

3563
3151

C OERR=

19920

134264

$33%.

3338«

3300+

361ae
Beri+

3620%
738+

3750+
3810+

3765«
8827+

3772+
9010+

3789+
10128+

3818+
131l

3830e
—
—4 —

CLEAR = 000105

SEQ 0247

C &
MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 249
CROSS REFERENCE TABLE =- USER SYMBOLS

CIR6KFO RK6 FCTNL CTRL DIAG
CZIROKF.P11
19=JUN-80 14:04

PRVRPT= 004000

rSC

= 040000

DSERBI= 000070
DSWR = 177570
= 010000
DTE
DTERR = 010000
DTYE = 000040
DTYERR= 000040
DTYPE
001720

~ oo OV‘NNN;‘ONM—‘O

5
2
26
5 90
2599

2 o9
7 57
2 Lon
7 60

1964
1 99

NN N O NN NN N NN
S NONOD NN NN NO

407
1874

N NN O O WO W

DHOO2A 057174
DHO02B 057222
DHO02C 057307
DHO02D 057324
DHOO
057420
DHOOS
057476
DHOOSA 057724
DHOO6
057573
DHOO7
057655
060007
DHO10
DHO10A 060050
DHO108 060063
DHO
060133
DHO12
060162
DHO13
060213
DHO14
060236
DHO15
0263
060314
DHO16
060411
DHO17
060434
DHO18
DH2N
001372
DH4N
001412
DHSN
001422
" DHON
001432
DH?N
001442
= 040000
DI
DISPLA 001142
DISPRE 100174
OLT
= 100000
DLTERR= 000010
oMD
= 000040
= 000001
DRA
DRDY = 000200
DROT = 000C40
DROTER= 000400
DRPAR = 000010
DRPARE= 000010
DRSTER= 040000
DRVABT 057020
DRVBIT 001630
DRVDRP 001666
DRVMSK= 000007
DRVNUM 001626

D 4
MACY11 30A(1052)
19-JUN-80 14:14 PAGE 250
CROSS REFERENCE TABLE == USER SYMBOLS

O C OO VINNNIANWNNW.
WROSSNOMNOMNONL

CIR6KFO RK6 FC TNL CTRL DIAG
19-JUN-B0 14:04
CZR6KF P11

131834
13358
13360
13375

13384

13395

13404

13413

3617

3815

3856

3883

8958

8978

8103

8185

8193

8293

8416

11316

4095
3131«

4096
3190

4145
3221

4146
4096+

L1460

8588

8592+

8593

8603+

3263
3911
8796+

3284
3928
8818«

3324
3974
8938+

3274
3991
8960+

339
6536
8981+

3417
6564
8991+

3461
6920

3477

9007+

7433
9900

3687
8591+«

3157
3551

3175
3769

3143+«

3151«

3993

6535

6922

7435

13356
13386
13388

13369

9867+

10086+

10114+

3545
9307+

3585
9462+

3658

3697

3706

3102

3127

8557

10516

123794

10852

124634

3254
3061«

3250+
3093«

3262+
3847
8783«

13397

SEQ 0248

13339
13371
13373
13415

13228+

8819+«

10708

10687

3522
2.9+

10221

10535

13323

3052
3494

1330

11308

2790

3148

9943

3082«

3109+«

9968+«

10074

3136

8555

9929

o
o
C o

D Gl bl BB i 2SR e B® wFh ad® & & &

8670

8737

9010

131224

3587

3817

3858

3885

131144

3503
N

3548

3554

3560

13117»

3502

3559

3749

3764

3788

8809

8826

4130+
12415
5706+

4143
128614
5720+

4206+

7446+

7606+

6813+

6822+

7121+

12617

128654

3490+
9010+

3502+

3541+

3547+

3553

3559+

3619

3885+

8670+

B737+

s ol kDD el G

—a
2
-

VIWWWNWIWIW

3581

13148#

13128#
13134n

3398

=»

-—

~NO~
—

'ODJ:

Vi
&~

~O 0o obg-aowow

—_

WWNI NNV
S
SO —-=NIWN—=O
WVMWONONWWO
PO
NNOOW
WY

2
.

1&]

7285+
7259

3104

i Sl ki i il fil

3092

s, L, B, B, B, Bl Bl i, Bl Bl Bl B

e
e
D

—

7139+

P
Yo
=
-

X
£
%
2
L

054135
001470
054170
001500
054220
001510
054252
001520
054275
054320

2617

13101#

EM12
EMI2N
Em3
EMI3N
EM14
EMI4N
EM5
EMISN
EM16
Em?

5525
5514
25894
3771«
12418
25984
4280+
26074
682;
26154
12622
26274
12423
12424

2609

133314

054033
054061
001460

WWIINI
N NN NN NN N

EM1
EMITA
EMIIN

N AN NN OO N SN NN W N W W O WWWNWWNIWWIWN
O O

2382
2397
2408
2489
2503
2528
25564
25N
2577
2637
27014
20864
20464
8042
3519
4287
3485
3614
3490
4280
3486
3249
3435
3829
3353
3750
4281
3879
3250
3337
9011
3818
3336
19254
8671
3878
3399
2955
23804
5532
25754

SEQ 0249

LN N NN

DT001
060520
D100
060526
D100
060476
DT004
060526
DTO05
060526
DT006
060526
DT007
060526
DTO10
060526
DT015
060576
DTO15A 060604
DOTST = 000001
ECCw = 020000
ECH
= 000100
ECHERR= 000001
EMCCLR 056560
EMCERR 056733
EMDA
056540
EMDCLR= 050206
EMDI
056474
EMDLT = 054541
EMDPAR= 054765
EMDSC
056514
EMDTPE= 055050
EMM]
056774
EMNZPR 056371
EMRCAL= 050247
EMRDB
056707
EMRSET 56701
EMSCLR 056754
EMSELD= 050160
EMSK = 050272
EMSKSF 056622
EMSVAL 056354
EMTVEC= 000030
EMUR
056664
EMUXIT 056637
EMUCS2 056432
EM
053315
EMIN
001360
EM10
054006
001450
EMION

E &
MACY11 30A(1052)
19-JUN=-B0
14:14 PAGE 251
CROSS REFERENCE TABLE == USER SYMBOLS

NN O NINNINON
WM
VN WA NN

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

001634

3243«

3304+

6121

130494

4879

4960

10113+

Al dh adh Al adh adh Al A A A A0 A A AdD A A A A A Al & A o o

10085+

13147

3229+«

10227+

10229+

10240+

5029

5110

5179

13117

13113

6114

AR sk

D 8dh adh adh Adh adh sl

128304

SR SR SR

130384
4104
130604
130724
130814
130854
130904
128474

1313
9868+«

3772
3758+
129094
129134
12917#
129204
129224
12924n
12927¢
12929
129334
129354
12823#
3215+
129384
129464
129494
129554
129624
129654
129684
129704
12974
129774
10085
3581+
125814
129864
129894
129934
129994
130024
13009#
130144
13023#
130314
128404

12902+
129064

12855#
9585+

25828

4310

6892

7532

5904

SEQ 0250

oTM o

CROSS REFERENCE TABLE == USER SYMBOLS

4093
4130
6143
10998
11001
10113
10229
25264
10240
25524
26804

PAGE 252

5987

TMS

ERRLMT

055746
056041
056137
056222
056251
056276
053665
001430
053744
001440
001632

12425
12426
128140
3765
23954
12627
126428
12429
126431
12432
12433
126434
12435
12436
12437
9623
26064
12439
126440
12641
12442
126443
126464
12445
12646
12647
126448
9868
24878
126449
126450
12451
12452
12453
12454
3243
3215
3229
3304
10227
2501
3758

EMS1
EM52
EMS3
EM54
EM5S
EM56
EM6
EMON
EM7
EM7N
ERRCNT

054341
054366
053375
056601
001370
054410
054434
054460
054501
054512
054525
054541
054553
054600
054613
053456
001400
054634
054707
054727
054765
055033
055050
055071
055100
055123
055143
053526
1410
055165
055217
055240
055263
055325
055342
055402
055437
055520
055577
053621
001420
055647

14:14

Em18
EM19
EM2
EM2INT
EM2N
EM20
Em21
EM22
EM23
EM24
EM25
EM26
EM27
EM28
EM29
EM3
EM3N
EM30
EM31
EM32
EM33
EM34
EM3S5
EM36
EM37
EM38
EM39
EMG
EMLN
EM4O
EM41
EML2
ERG3
EMLL
EMLS
EMLE
EML7
EM4B
EMLY
EMS
EMSN
EM50

19-JUN-80 14:04

19-JUN-B0

CZR6KF P

MACY11 30A(1052)

9588

4806

6072

6157

6216

6273

6331

6387

5259

6443

5330

6581

5604

6656

5475

6729

5816

6854

CIR6KFO RK6 FCTNL CTRL DIAG

CIR6KFO RK6 FCINL CTRL DIAG
CZR6KF P11
19-JUN-B0 14:04

MACY11 30A(1052)
19-JUN=-BO 14:14 PAGE 253
CROSS REFERENCE TABLE == USER SYMBOLS

ERRVEC= 000004

2788
9259«

11382

4623

4684

4745

4774

4800

4809

6210
6390
6689
7049

6219
6414
6723
7185

6245
6418
6732
7314

6249
6437
6771
7387

6267
6446
6784
7474

6276
6542
6788
7526

6302
6576
6848
7535

6306
6584
6857
7988

6325
6612
6864
8007

6334
6616
6886
8516

6358
6650
6895
8567

= 000001
GO
GPSUMF 050116
GPINR = 000010
GP2NR = 000020
GP3NR = 000040
GRP1ER 047774
GRPIMS 050056

12077
12090
2007#
106434+
10705
10684
10664
10430+«
10801

12078
12091

12079
12092

12080
12093

10647
10710
10758
10758
10445+
10832

10818+
10758
10812
10812
10492
12439#

124564
10812
10845
124624
10598

GRP2MS 050040
GRP2ST= 000002
GRP3ER 050000
GRP3MS 050020
GRP3ST=

10795
10672
10432«
10772
10655

10826
10766
10551
10821
10766

12431#
10814
10650
124224
10814

050004
104406
036134
036150
036124
036126
036130
036132

10479
2821
3198
3264
7434
8553«
3419
3T

124154
12072#
8629
8601
7435«
B559+
9942«
9943«

070414

2837

1
GRP1ST=
GRP2ER 047776

GRP4LER

GRP4LMS
GTSWR =
GTYPO
GTYP1
HOLD
HOLD1
HOLD2
HOLDS

050002

HT
= 000011
HVRC = 000400
HVRCER= 000040

IBUFF

2176

10694
10431+

6809+

18284
20487
10545

5798
6425

11080

2826

10710
10522

10766
10668

9123

12066

12067

10849
124614

124604

10690

10800

10814
10794

10849
12388#

12457#

10845
10771

124584
12397«

124594

12081
12094

12082
12095

12068
12083
12096

10315+«

10386+

8699
8797
7436
99554
9948+
9949+

8784
8962
8554+

8940
8993
8555+

8983
99674
B556

99624

4074

4128

6134

4256

4788

4854

11141

13435#

5867
647

5032
5333
5819
6105

5067
5362
5849
6117

5086
5382
5872
6151

5103
5398
5898
6160

6820

11494
10543

5886
6499

12069

12070

12072

12074

12075

12076

10389+

10392+

10433+

10470

10473

12407#

12084
12097

12085
12098

12086
12099

12087

12088

12089

12370«

10309+

11453
10500
123944

5025
5323
5810
6075

9116

10259+

6811

5000
5299
5776
6066

10713
12083

4963
5262
5765
6032

andl

4569

4954
5252
5635
6020

4517

4938
5225
5478
5990

4438

4925
5182
5469
5981

4363

"313

4882
5172
5454
5951

12356«

101494
99784

= weeeer |

9220+

12359#

036762
036164

GNS

9219«
9735+

10992#

9209+
9734+

99544

99564
99574

5958
6638

GETDRS
GETRK

9200+
9719«

andl

6191
6381
6685
7000

4874
5148
5436
5935

9195«
9692+«

6187
6362
6659
6928

4840
5113
5407
5907

7373

9183+
9646

4305

9178+
9645+

4237

9174
9644

042260

2044N
123754
27074

12358#
10384
123604
123614
12357#
10480

9173
9643

GENCOM

FMTE
= 000020
FMTERR= 000020
FPFMT = 000400

10306+
10379+«
10383+
10382+
10313
10257

2800+
9264+

047750
047752
047754
047756
047746
047744

2789«
9261+

EXPBA
EXPCYL
EXPSEC
EXPTRK
EXPUBA
EXPWC

1918¢
9258
10279+
10365+
6824
6814
10305+
10255+«

SEQ@ 0251

5972
6711

6039
6836

6054
6871

4945

6124
6954

5093

6139
7512

5240

6198
7953

5377

6255
8031

5450

6313
10062

5783

6369
10117

IDAE
=
IDAERR=
{3
=
ILF
=
ILFERR=
INTHLR

002000
002000
000100
000001
000200
034442

2050#
3942
20084
2040#
10583
2921

3950
2974
10500
12405#
3045

4011
3872
10581

12381#
7821

5735

96134

INTSET

001662

26974

294Bc

2953

2973+«

'NTR

= 000300

2003#
7627«

8636

10TVEC=
IR
=
IWATIN
IWAT1S
IWAT11

IWAT12
IWAT14
IWAT1S
IWAT16
IWAT2S
IWAT32
IWAT4B8
IWAT64
IWATBS
IWATB0
IWAT96
KIPARO=
KIPAR1=

KIPAR2=
KIPAR3=
KIPARGL=
KIPARS=
KIPARG=
KIPAR7=
KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=

000020
000100
035370
035410
035450

035440
035430
035420
035530
035400
035520
035510
035500
035360
035470
035460
172340
172342
172344
172346
172350
172352
172354
172356
172300
172302
172304
172306
172310
172312

KIPDRE= 172314
KIPDR7= 172316
KWLADD 001710
KWLVEC

001712

LCKHLR 034506
LCLKPR= 100000
LCLKTK 001674
LDCON
036034
LF
= 000012
LOADRK 035734
LRLOAD 035674

9857
192340
2027#
98134
98194
98314
9828#
98254
9822#
98494
98164

98464
98434
98404
98104
98374
98344
19564
1957#
1958#
1959«
19604

19614
19624

19638
1945#
19464
19470
1948#
19494
1950#
1951»
1952#
27254
27264

7688+«

8705+«

9912+«
2772+«

8793«

10072+«
2773+

7820+

8813«

8122

2978

3745«

7857+«

8946+

7926+«

8968+«

8494

3827

3863«

8021

B0B0+*

9604+r

9614+

3918+

3981+«

8123+«

8227+«

9720+

9728

5656

B263+

9733«

10077

11357«

13431+«

5680+

9634+

9724+«

10057+

10104+

11314

9762
3869

9859
9633«

10055
9761+

10102
9768

11312
G770

9795«

9862

10073«

10080

11494

12596

12599

4257
4737
5;18
5795
6195

4354
4766
5237
5841
6252

4382
4785
5292
5864
6310

4430
13}
5309
5883
6366

4463
4851
5354
5927
6422

4509
4918
5373
5955
6468

4529
4942
5429
5969
6496

4561
4993
S447
6012
6620

4582
5010
5498
6036
6635

76432«

7469+

B360+

B84BT+

4615
5072
5551
6051
6693

4643
5090
5623
6097
6708

9766

9789

12099
12096
12092
12093
12094
12095
12086
12097

12087
12088
12089
12098
12090
12091
9155

9187

11145+
5203

5664+

9721

96334
27108
27164
3308
18294
9912#
“ N

9722
9791
3867+
99384
11488
12082
6;29

5141
5757
6121

5158
5780
6136

4676

7768+«

7924

SEQ 0252

4702

MACY11 30A(1052)
19-JUN-B0
14:14
PAGE 254
CROSS REFERENCE TABLE == USER SYMBOLS

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF PN
19-JUN-80 14:04

CIR6KFO RK6 FCINL CTRL DIAG

CZR6KF P11

LSTCYL

19-JUN-80 14:04

036120

MACY11 30A(1052)

679%

733
7753
8084
8382
6467
8%546539+

6951

6992

6924+

B8996+

10279

10294

3117+«
3805+

3196+
3847+

7720«

3284+
3911«

8186+

B62B+

6540+«

6566+

6926+«

4321
3340+

6538+
3463+

6565+
3507+

001600

2660
3563«
6534+
1?823'

3067+
3569+«
6535+
1?8;2'

L.CS2

001610

26660
3698«

3065+
3739«

001606

26634

10069

001606

26648

6959+

10368

B314v
6537«

BL16+
6925«

L.DA

L.DCYL

001614

L.DT
L.MR1

001607
001616

L.DS

L.wC

MCLK

001602

= 000400

MCLOCK 036316
MDS
= 001000
MDSERR= 000010
MEMBAS 001714
MEMPAR 001670
MEMPYB= 000004
MEMSZB= 000002
MERD = 001000
MESMSK= 000017
MEWD = 002000
MILCNT 001652
RIND = 000200
MMVEC = 000250
MMVECA 001716
MSP
= 000100
MYTIME 035314
M.CADD= 017760
N.CDIF= 017760
M.DRV = 000007
M.HEAD= 007000
M.ID = 000003
M.PAR = 100000
M.SECT= 000760
M.SER = 077770
NCERWE= 020000

NED
= 010000
NEDERR= 000001
= 004000
NEM
NEMERR= 000040
NEWDRV 027716
NEWPAS 003150

26684

26654
26694
8293+
26614

2081#

3654
20304
10567
27278
27130
27034
27024
20824
20754
20834
26934
20804
19340

27288
20794
3868
2150#
21494
21464
21534
21484
21470
21524
2151
‘05%0

2033#
10555
50330
51
4097
29254

&
PAGE 255

6868

7379
7774
8096
8397
6495

001612
001604

7504+

6833

L.ASOF
L.BA

L.CST

14:14

CROSS REFERENCE TABLE == USER SYMBOLS

6763

7318
73
8069
8367
4069
26674
26628

19-JUN-80

7590«

4003+

3930+
3326+

10033

3702
10565
12401#
9660
9647+
5616
4905

3118+
3597+
6563+
9895
7663+

7413
7789
8128
8409
7613

3199«
3640+
6921«
9929+

[{'}}

7698
8028
8345

3285«
3740+
8630«
10059

3325+
3776+
8700+
10074+

3375«
3806+
8785+
10075

3418e
3848+
8798«
10213

3419«
3910+
8941+
10283

3462+
3929+
8951+«
10360

3509«
3973«
B963e
11017

3528+
3992¢
B8971¢
11045

3294+
3928¢

3324+
3974«

8698+

3374+
3991«

B7B2+

3417+
4B39r

3461+
6536%

3639+
6564+

3649+«
6920+

3687«
7489+

B9B4r

B994+

10068

10365

10886

11009

11381+

6923+
3571«

10366
3595+«

10889
3650+

11008
3697+

11392
7871«

11394+
7910«

8103+

8429

100244

8424

9667+
5619
4910

9705+«

9710

5053

5059

5204

5210

861

10079

3146

10553

10575
85864

12403«

7226

7678
8011
830
113N

8419

97874

7204

7653
7992
8286
11342

8297

9709

7189

7638
7950
8271
9892¢

8190

9670

7088

7616
7902
8247
8570
99524

8106

5658+

7068

7583
7879
8232
8519
9946+

BLG9e
10281

10034

7053

7509
7864
8216
8501
9940+

BL71+
9915

8427

077
1 39%‘
1057
5565
G147
9148

3232«
3688+
6922«
9930

7481
7845
8178
8463
7751

BL4Br
8995+

9788
B422

123840

7458
7801
8160
8440
7614

SEQ 0253

8795+

10337

8939+

8961+

8982+«

8992

8185

MM~

- NNNOWNES
ONNNOOON NS~
O —=NN—-=NOO
- ON N = NON WO

W=~
O NOO

O NNV
S

6
11023

7056
7260
7661+
11061+

5709
6774+
7140
7416

8522

13128

13130

13137
12510#

7142

7148

7269

10539

RY
Ta L NN
]

12531

125740

3091

125954

5207

126384

5209

12659

2899

12729#

RS
—

316
316
5618
4908
4909
5057
5208
4911
;863
L6
876
1130

5464
5946

4573+
4996

13129

051;27
051312
05136§
05150
051646
051652
51652
05166
5167
5245
052574
052662

44641
4687

— et

OPROOS
OPROO9
OPRO10
OPRO11
0’!01;
OPRO1S
OPRO14
OPRO1S
0’!01’
OPRO1
OPRO18
OPRO19

2844

12488#

—_

g
g8
0’!00? 051146

SEQ 0254

9719

NNWL NT NI NIV I STNISIVI NI NI NI NSNS
oocoooo

OFFSET= 000115
OFST = 000004
OPEROO 050160
OPERO2 050175
OPERO4 050206
OPEROS6 050222
OPER10 050231
OPER12 050247
OPER14 050263
OPER16 050272
OPER20 050277
OPER22 050311
OPER24 050324
OPER26 050341
OPER30 050357
OPER32 050373
50417
OPER
OPER
0443
OPER3? 050467
OPERGLD 050523
OPERGT 050523
(050560
OPER42
OPER4LS
05
OPERLL 050707
oPl
= 02
20
OPIERR=
OPROO1 050766
051015
OPRO02
OPROOS
051023
OPROO& 051053

2945
206%0
123734
42%2
4585
5144
5714
6775+
7192
7430
8573
19964
2061#
8810
12471
12472
12473
12474
12475
12476
12477
12478
12479
10086
12481
12482
12483
12484
12485
6816
125364
7124
5515
5568
5705
2053#
10541
2868
28N
2878
2890

034434
000004
000004
072414

—

NEXINT
NXF
=
NXFERR=
OBUFF

J &
MACY11 30A(1052)
19-JUN=-B0 14:14 PAGE 256
CROSS REFERENCE TABLE == USER SYMBOLS

CIR6KFO Rk6 FCINL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

= 000340

= 177776

PSW
= 177776
PWRVEC= 000024
RDCHR = 104410

(23

= 000300

RDDATA= 000121

RDSTHD 036362
RDY
=
;oo
REALBA 047764

—

RDGATE= 100000

RDMEAD= 000125
RDLIN = 1044
RDOCT = 104412

- Q0 ~N
LS RV]

3092+

3052
5614

9648+

3062+
5616
9656+

8663

96424

9679

9697

9704

5619+

4910+
7373
9762

5448
6253
8029

5552
6311

9657+

4905
5691
9731«

123304

> ]

Vi~

~NO,
-0~

W= O NN =00 S NOON =W
WOOOOOO ~ ~ ~
34
L
X
2
2
X J = Tz L

NNMb:N WO —

— ok

WO NN
0O SO
NNN
~NwnwsSsSOh oo
o
s
W

—

=2 ACNINININNNININININIWWWVINW.
NNWNINNNONIN
= b b b S PN OONNY

SEQ 0255

124024

11393

3040

11397»
9736

11414

2946

3046

5639

9646

9672

9715

9723

2779+

11996+

11997+

12006+

12012+

12024+

12025+

4786

4852

4943
5956

501
5970

5091
6037
6834

5159
6052
6869

5238
6122
6952

9851

S64
ol
By

PR?7

PR6

000040
000100
000140
000200
000240

VWD

=
=
=
=
=

PR1
PR2
PR3
PR¢
PRS

83 28 N3
Co
O~ 0
mug e

PIRQVE= 000240
PROGEN 044124
PRO
= 000000

PP
———

= 020000
= 177772

PIP
PIRQ

[

PERHLR 034452
PGE
= 002000
PGERR = 000020

—

i
il
i
il
il

PATI0
047404
PATI1
047444
PAT12
047504
PAT13
047544
PAT14
047604
PAT1S
047644
PAT16
047704
PCA
= 004000
PCD
= 010000

s il

047204
047244
047304
047344

PATO3
PATOL
PATOS
PATO6

MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 257
CROSS REFERENCE TABLE == USER SYMBOLS

(=J=1"-]

PARPRE= 000100
PAT
= 000020
PAT02
047144

Oflowugtalfl-o

034522
000200
000103
001752

SN-amamo-oo

OPTTSY
OR
=
PACK
=
PARM

053025
053121
053162
001664

OPRO20
OPRO21
OPRO22
OPTFLG

PN b e
i
i i
e NI NI =2 PON O
NN =
s
2O N=-=OO OV
H OO0 SN
o NN
= 2000
(=3
oo VIS B WUWNN
&~ OoOVIOWVIOWVO
VN
WO WVWOwWwm
=
B
1
=1

CIR6KFO RK6 FC TNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

10310¢

5865
6469

5884
6497

6563

7802

900
100544

12077#

10238

11310

6636

6709

8097

8383

5310
6137
7510

5375
6196
7951

123664

REALTR
REALUB
REALWC

047770
047762
047760

6815
103160
10260+

001676

7178
6680«

RECAL = 000113

REFMT

6825

123684

;gzgc

11;2g

1%3670
123644
1g393

106481

123634

3973

7790

7846

8085

8217

8346

8630

8700

8785

8941

2763
6759+

4223+
6975«

4350
B341e

4426+
B8SB4e

4505+
11367

4557+
11379

4611%

4671

4730%

4Bl4e

6528+

6608¢

9740

9875

10136

10186

10400

10482

10486

10840

10862

120794

8639
7430+

8708

3872«
10150«
7433«

7436+
10161+
8552«

7821+
10165
8727+

7924+
10167
10067+

B026+
10177+
10096

8122+
10220
10159«

8302+
11309«
10169

B849%+
11310
10218«

B556+

8638«

11307+

11308+

8109+

8193«

8300+

8422+

8427+

8432+

10033+

10034+

10160+

11316+

5657+

5735e

REPNR = 100000

10818

124640

RESTRT
RESVEC=
RKASOF=
RKBA =

2181
19194
1978¢
19738

27520

RESREG= 104414

001762
000010
000016
000004

RKCS1 = 000000

RKCS2 = 000010

RKDA =
RKDB =
RKDCYL=
RKDS =

000006
000024
000020
000012

RKECPS= 000030
RKECPT= 000032
RKER = 000014

9584

19718
8707+
19754

1974#
19808
1979¢
19764

19844
19854
19778

2949+
10075+
2971+

10069+
4255
10068+
8557
7461

2974s
10089
3391«
10066

7600

RKMR1 = 000026

1};3;0

RKMR2 =
RKMRS =
RKPRI
RKSPAR=
RKVEC
RKWC =
RLS
=

000034
000036
001622
000022
001620
000002
000010

19820
19834
26730
19864
26728
19728
20240

10175
10176
2922+
7960+
2920
7431«
3294

= 000040

9843
20264

9846
8727

9849
10218

10056
11307

8830

9014

120804

SAVREG= 104413
SCLR

SCOP1 = 104415

SCOP1S 035222
SECERR= 000040

SEEK = 000117
SELDRV= 000101

SETCLK 001742
= 000002
5°1
SK1ERR= 00000
SPACE2 05076
SPAR = 020000
SPARER= 000001
SPCHLR 070400

SPCPAR 070410
SPDERR= 000200
SPDLSS= 000020
SRCHLD 001702

9531

3946
8828
75¢2

3658+

3910

9642

3954
6938

3706+

5651

3044
8023
3649

9810

40B&
6968

97494
6820

12080
10392

124134

3776

7903

B161

7892
9567
10167
1350&
134304
134334
12378#
10510
11086

123724
9579
10502
123710

1997#
1990#

2185
go«1o
950
3182
50160
470
5657
5658
1051§'
ggo
220

3806
3067

27460

3848
3118

11110+

oTM

D —4 — = —f = — —4 —d ()

047766

047772

o oo

REALCY

REALSE

SEQ 0256

L &
MACY11 30A(1052) 19-JUN-B0 14:14 PAGE 258
CROSS REFERENCE TABLE == USER SYMBOLS

CIR6KFO RK6 FCINL CTRL DIAG
CZR6KF P11
19=JUN-B0 14:04

9813

10149

10336

10417

10426

120784

9828

9831

9834

9837

9840

4251
7083

4283
7106

4290
7153

4319
7219

4403
724k

44B4
7291

4936
7428

6552
7453

6575
7499

6591
7524

3929
3199

3992
3285

7459
3325

7617
3375

7679
3418

7754
3462

7865
3528

8070
3569

8985
3640

3688

8179

9816

8308

125694

11162+

11286

9819

8398

9822

8441

9825

Bubs

B798

2749+«
2864

2752+

2755+«

2866

3266

384
394

9184

9199+«

9206+

11094+

11102+

11172«

11282+

2770
27554
2753

2940

9594

9626

27564

11407

3227
8823
2790+
9509
2819

3302

3333

3349

3395

363

2792
9586
11683

2798+«
9621
11722

2805+
9749
11745

9253

9267

N—=SNO
VOOV
OON-—-O

NINONONIO

<~ WVINGN
—-=
W o OO
O w ONW

e
e
=
PNONININI N =4 = -2
e i
it = OO OD
N
&~

880#
9749
3

20#

)

924

o
O
o
=

SWREG
000176
= 000001
sw0
Sw00 = 000001
sw01
= 000002
sw02 = 000004
Sw03 = 000010
Sw04é = 000020
Sw0S
= 000040
swdé = 000100
Sw0? = 000200
SWw08 = 000400
Sw09 = 001000
sW1
= 000002
SW10 = 002000
SW11
= 004000
sWw12 = 010000
SW13 = 020000
SWi& = 040000
SW1S = 100000
SW2
= 000004
sW3
= 000010
swé
= 000020
SWS
= 000040
Swé
= 000100
sW?
= 000200
Sw8
= 000400
w9
= 001000
S.ACLO= 000100
S.BRHA= 000100
S.BRkE= 040000
S.CART= 000400
S.p18 = 002000
S.DOOR= 000200
S.DRA =
0
S.DROT= 020000
S.DRY = 000200
S.DSC = 040000
S.FLT = 000200
S.FORM= 001000
S.FWD = 002000

oo
oo oo
oe
~N WSO

001140

noroOnNONNN

SWR

861"

7044
9944

PIONVCON

= 177574
SR1
SR2
= 177576
SRY
= 172516
SSINIT 037176
STACK = 001100
START
001772
STARTY1 001776
STKLMAT= 177774
SVAL = 100000

6740

SRTFLG 001624
SRTINS= 000010

SEQ 0257

11683

11722

3500
9270

11777+

3557

3747

3762

9285

9292
12017+

9463

12004

oTM

MACY11 30A(1052)
19-JUN=B0 14:14 PAGE 259
CROSS REFERENCE TABLE == USER SYMBOLS

CIR6KFO RK6 FCINL CTRL DI AG
CZR6KF P11
19-JUN-80 1 4:04

CIR6KFO RK6 FCTNL CYR%OD{QG
CZR6KF P11
19=JUN04
S.HDFL= 000200
S.HDHM= 000040
S.1CYL= 000040
S.ILF = 000400
S.LIMD= 020000
$.LOAD= 010000
S.MHD = 000400
S.NMOv= 010000
S.OFF = 002000
S.PAR = 001000
S.PIP = 020000
S.PLO = 004000
S.REV = 004000
S.RTZ = 020000
S.SECT= 000020
$.Sk1 = 002000
S.SPIN= 010000
$.SPLS= 010000
$.SPOK= 001000
S.TYPE= 000400
S.UNLD= 040000
S.UNS = 040000
s.vw = 000100
S.WCLK= 000040
S.WGAT= 000100
S.WLE = 004000
S.WRL = 004000
S.XPOK= 000020
S.XERR= 001000
TBITVE= 000014
TCHKOP= 104421

21354
119%
2105#
2108#
2141
21264
21364
21404
20974
2109#
2100#
21394
21254
21274
2132#
2110#
2099#
2112#
2123#
2095#
21284
21140
20934
21334
2134n
2111»#
2098#
2118#
21374

7918

8481

1920#
3088

3154

3224

4640

4699

4713

3694

5101
5807
6264
6935

3782

5156
5857
6322
6965

3238

3291

3300

3833

4082

4248

4273

5170
5880
6378
7008

5234
5895
6434
7023

5943
6480

5249

7065

5307
5967
6549
7080

3?63

4752

4782

4797

5390

4456
4952

5444

4490
5008

5461

4526
5021

5773

3646

4579
5084

5792

6207
6845

373

3941

3949

4010

4397

4478

4541

4594

3761
12083#

3813

3854

3882

4277

8665

8732

8822

3327

3342

3377

3421

3465

3510

3530

3074
9864
26948
19274
3069

3124
10084
9764+
11660+
3119

3393
10130
9793«
11661+
3201

3610
10230
9796+

3746
10429

9855+

10071+

3233

3287

3296

3652
4269
4748
5230
5803
6203
6800

4934

3603

6148
6781

TGETRK= 104420

3642
4244
4709
5166
5788
6144
6777

5370

4410

3576

6133
6720

g534

3599
4079
4695
5152
5769
6129
6716

4871

3513

6114
6705

3469

3572
4006
4651
5097
5660
6109
6701

5321

4377

3381

6063
6647

3425

3565
3976
4636
5080
555¢
6059
6643

4299

4848

3346

6048
6632

3207

3330

SEQ 0258

6028
6569

TCHKWE= 104422

TIMCNT
001654
TKVEC = 000060
TLOADR= 104417

MACY11 30A(1052)
19-JUN=-B0 14:14 PAGE 260
CROSS REFERENCE TABLE == USER SYMBOLS

3690
4373
4778
5245
5853
6260
6841

7201

3700
4390
4793
5303
5876
6318
6876

7216

3742
4453
4844
5317
5891
6374
6931

7330

3778
447
4867
5366
5939
6430
6961

7347

3808
4522
4930
5386
5963
6476
7004

7394

3850
4537
4949
5440
5977
6504
7019

7425

3913
4575
5004
5458
6024
6545
7061

7451

3932
4590
5018
5506
6044
6628
7076

CIR6KFO RK6 FCTINL CTRL DIAG

CIR6KF P11

19-JUN-80 14:04

7096

TPVEL =
TRAPVE=
TRKERR=
TRTVEC=

000064
000034
000020
000014

TSSINI= 104416

7646
7958
8279
8632

TSTAPT

1S126
1S127
TST3
TST30
TST31
IST3
TST3
TST34
TST35
1S7136
TST37

032202

036122
004720
003162
005334
026132
026356
026504
027026
027560
030022
030246
030466
006260
031174
006376
006514
006756
007110
007320
007510
003300
007644
010512
011110
011322
011540
011664

012016
012174
003366
012326
012622
013016
013252
013440
013672
014060
014302

1 9-JUN-80

7197

7234

7212

7343

7390
7782
8104
8405
8965

7797
8136
8418
8972

7809
8168
8450
8987

7853
8188
8474
8999

7872
8224
8509
11350

7887
8240
8527
11385

7911
8256
8578
12082#

3114
3907
4506
5426

3193
3925
4558
5495

3281
3970
4612
5548

3321
3988
4673
5611

3371
4066

3414
4226

3458
(262

3636
4267

3669
4296

3684
4351

3736
4380

7086

7183

7223

5838
6609

5924
6682

6009
6760

6094
6831

6181
6917

6240
6948

3037
3802
6427
5289

3084
3844
4460
5351

6989

7047

6354

9139
9941+

91424
9947+«

29384
34564
80634
81554
82114
83394
85464
86134
86834
87574
36344
89234
36820
3734
38004
38420
39034
39688
29694
3998
62214
43488
424m
45034
45550
46094
46698
30344
47284
48254

9312
9319
9375
9376
9377
9378
9379
9380
9381
9382
9320
9383
9321
9322
9323
9324
9325
9326
9313
0420
9328
9329
9330
9331
9332
9333
9334
9314
9335
9336
9337
9338
9339
9340
9341
9342

8602

6410

6464

7326

SEG 0259

7761
8092
8390
8952

2777+
124124

9814
50494
51304
52004
52804

PAGE 261

7723
8077
8375
8943

2776
10389

33084

7706
8036
8353
8800

7685
8019
8316
8787

19284
19264
6811
1921#

14:14

CROSS REFERENCE TABLE == USER SYMBOLS

7665
8000
8295
8701

6297

TSTCYL
TSTLUP
SN
TST10
TST100
TST101
TST102
TST103
TST104
TST105
TST106
1ST107
TST11
TST110
TST12
TST13
IST4
IST15
TST16
1ST17
1S12
TST20
1ST21
1s122
TST23
TST26
TST25

MACY11 30A(1052)

6493

6532

4731

7421

4828

11335

99534

9327

7466

4915

5
11364

7491

4991

120814

7517

5065

(434

5139

7624

5216

CIR6KFO RK6 FCTNL CTRL DIAG

CZR6KF P11
1S14

TST40
1ST4
TST42

TST43
TST4LG
TST4LS

1ST46

TST47
TSTS
TST750
TSTS1
TST152

157153

TST54
TSTSS
T1S156
TSTS?
TST6

TST60
TSTH1
TST62

TST63

TST64
TST6S
1ST66
1ST67

19-JUN-B0 14:04

004616
014470
014662
015056
015262
015466
016326
016532
016736
004724
017154
017360
017564
017710
020034
020160
020304
020430
005102
020502
020562
021046
021230
021416
022122
022340
022444
005230
023066
023510
023620
024466
025160
025402
025
025740

1817
1ST70
ST
18172
1ST73
1S174
1S17S
1S176
18177
TWATIN= 104440
TWAT1S= 104435
TWAT11= 104431
TWAT12= 104432
TWAT14= 104433

TWAT15= 104434
TWAT16= 104423

TWAT2S= 104436
TWAT32= 104424

TWATL8= 104425

TWATb4L=

TWAT8S=

MACY11 30A(1052)
19=JUN=B0 14:14 PAGE 262
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0260

3279#
53490
54240
54934
55464
56094
57524
58364
59224
3319#
60074
60924
61794
62384
62954
63524
64084
64620
33694
64914
65264
66064
66784
67574
69114
69874
7043#
36120
71794
73094
73714
75764
77474
78394
79450
79834

120994
120964
4080
120924
120934
120944
6477
30N

3600
4007
7912

8376
8966
7810
4391
5459
7077
4591

4779

12095#

6778

6932

73N

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04
TWATBO= 104427

TWAT96= 104430
TYPDS = 104405

1YPE

= 104401

TYPERR

034136

TYPOC = 104402

0 5
MACY11 30A(1052) 19-JUN-B0 14:14 PAGE 263
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0261

11358
7472

12098«
7632

7693

7769

9001

12090#

5854

5940

6025

6110

6319

6375

6431

6629

6702

5682

5770

9127

12070#

12091#

6261

5560

8081

6204

12026
95314

2844
3180
9114
9567
11397
11798

120664

2863
3182
9121
9569
11413
11846

2868
4908
9128
9579
11458
11852

2871
4909
9465
9580
11552
11857

2878
6911
9477
9582
11621
11861

2882
5056
9480
9590
11677
11866

2890
5057
9485
9623
11689
11867

2899
5058
9496
10783
11743
11869

3060
5207
9543
10784
11744
11872

3064
5208
9544
10816
11747
11876

3091
5209
9548
10817
11758
11942

9484

9564

9624

11746

120674

3579

3611

8639+

8640

8667

8708«

8709

8734

9008

5714

5717

7118

7123

7137

7141

3617
10225

3815
10238

3856
10311

3883
10435

4285
10443

5516
10460

3247
3769

3302
3786

3333
8807

3349
8823

3384
10439

4,845

7198

9120

4931

7327

5005

8001

5081

2813
3162
5618
9549
11305
11768

2833
3167
8766
9556
11369
11779

2870

2881

2898

9479

11944
9495

TYPON = 104404
TYPOS = 104403
TYPTBL 001722

T.ASOF

001556

120694
120684
2731

1%%?20

1%;32

3136+

9963

9968

T.BA

001544

2644

5523

5527

5577

.CS1

001540

26428
5569

3075
8958

1.2
T.DA

001550
001546~

26464
26454

5581

5707

5710

5367

3488
9865

10395

13327

3077
10387

3146
10390

4278
10397

10437
10299

10494
13326

13314

13324

26504

10384

10396

13326

13314

13324

3127
3500

3129
3551

3213
3557

3227
3747

3241
3762

3079
13314
7918

3148

10441

10496

13314

13324

8481

26434

5530

5534

5584

UBAERR= 000002
= 000400
UFE
UFERR = 000004
UNLOAD= 200107
= (40000
UNS
UNSERR= 040000
= 020000
UPE
UPERR = 000100
= 000100
w

10315
2029#
3666
19934
2054#
8455
034#
701
20654

12409#
10561
3716

10563

124004

9815

9818

9821

WwCE
= 040000
WCERR = 000001
WCKERR= 000004
= 004000
WwLE

035#
10259
7102
2051#

10532
124084
7240

10534

123914

—

3125
8978

10310

1.08

001552

26524

26478
3395

T.ECPS
T.ECPT

001570
001572

10495
26544
26554

T.MR3

001576

26574

T.ER
T.MR1
T.MR2

T.SPAR

T.wC

WATSRT

001554
001566
001574
001562

001542

035536

26488
26534
26564
26514

7265

33}%;

3097
3631

72N

12385#
10577
10579
3241

7275

5304

10307

001564
001560

7261

3539

5231

7279

T
T.0CYL

7256

3516

5153

3102
3494

7283

7288

3522
9981

5588

3545
10220+

5721

3585
10221

5724

5727

5441

5730

5507

7005

7062

10257

10260

10296

10339

10394

13327

7127

7133

7145

7150

9824

9827

9830

9833

9836

9839

9842

9845

9848

12404

-~
VO
o
arNOW
S 00N

3
5

4919

4738

6534

6764

6921

7380

4994

7654

7880

6013

6098

5073
6621

5142
6694

7993

8012

—-mw?

—_—

3
0

S e

NN
=
N

SEQ 0262

7069

SNV

=
WRL
WRTCHK=
WRTGAT=

1
1

——

WRDCNT
001706
WRDNUM
001704
WRHEAD= 000127

VONVW

123824
1999

O—-=nINNOO

WLERR = 004000
WRDATA= 000123

19-JUN-80
14:14
PAGE 264
CROSS REFERENCE TABLE == USER SYMBOLS

MACY11 30A(1052)

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-80 14:04
CZR6KF P11

$SAPTHD
SASTAT=
SATYC
SATY]

11736

$CM3
$CM&

= 000020

W
&
&

9465

2947

9521

11689

11886

11477

11486+

11491

2766
2249
22624
22494
22624

2774

2780
22514

2781
22524

2782

22534

22540

22554

22564

22570

2258k

22594

2251

22524

22534

2254n

22554

22564

22578

22584

2259

22674

22684

22694

22704

227\#

22724

22734

2274m

22754

9496
11886

9543

9548

9556

9569

9582

10783

10816

11459

L1450

8617

8687

8759

8770

8927

9289+

931

9460+

9521

9751

11399«

22654
22784

118864

11887#

9485
11866
==l
L od
oS
882583
RORIRS
B R — —
-t
) b e

$SCROUT
$0BLK
SDEVCT
SOEVM
$DOAGN
SDTBL
S$ENDAD
SENDCY

e
3

SCNTLC
SCNTLG
SCNTLY
$CORE
$CPUOP
SCRLF

$CM2

324

—

2877+

O = = = NONNINONINININ = NN
NNONONNNONONONIN
N S WD
SNNOSOOSOAS-SNOO

SATYS
$AUTOB
$BASE
$BDADR
$BODAT
$BELL
$Cow1
SCHARC
$CKSWR
SCMTAG
=
M

P
P
p—y

SATY3

115604

4095+
91374

9516

9306+

9237
9311

9281

CIR6KFO RK6 FCTNL CTRL DIAG

MACY11 30A(1052)

SERROR

CZR6KF P11

19-JUN-80 14:04

14:14

PAGE 265

001116

1%%;?0

2774

9252

94584

9468+

9469

9475+

SERRTB
SERTTL

001360
001112

23494
22228

9540
9125

9129+

9466+

9521

SETABL
SETEND
SFATAL
$FFLG
SFILLC
$FILLS
$GDADR
$GDDAT
$GET4L2
SGTSWR

001316
001360
001300
033612
001156
001155
001120
001124
032152
045526

9521
22994
2207
22928
9390+
22434
22420
22264
22284
9130#
117460

9871«

9872«

10133+

10134+

9L
11494

9430«

9438#

SHIOCT
SICNT
SILLUP
S$INTAG
SITEMB
SKTNEX
$KTOUT
$KT11
SLF
SLFLG

046532
001104
046770
001135
001114
032460
032450
032316
001274
03361

11935«
22194
11996
22338
22238
9183
9200
2851
2284#
9431«

119464
9296+
12012
11741+«
9469+
92084
92054
91814
95;1
94378

9297
12029#
11760
9500

9299+

9310

11780
9521

11893
9534

9185+«
11494

9208+
11876

11886

11947

SLPERR

001110

22214
5062+

2784+

9287+

9303+«

9308

9310

8775+
2849
2831

2785+
S5136%

9278+

8932+
9223+
2847

9287
92304
9224+

9304

9310

9511

9753

9234

2203
23114

2207
2859+

22904
4902

2802
4983

9397
11891»
9407«
9412¢
9405
11889
2858+

9432«

9436#

001264

$HD
= 000000
SHIBTS 000224

SLPADR

SLSTAD
SLSTBK

001106

032572
032574

22804

1808
2202#

22204

SMADR1
iflhblg
SMADRS
SMADRG

001330
001334
001340
001344

23174
232#
23240
23274

SMANS2
SMAMSS
SMANSL
SMBADR
SMFLG
SMNEW
SMSGAD
SMSGLG
SMSGTY
SMSWR
SATYPY
SATYP2
SATYPS
SMTYPL
SMXCNT

001332
001336
001342
000226
033610
06636%
00131
001314

23194
23224
23254
2%03‘
9391«
11747
22978
22988
2;910
11744
3120
3200
323#
3264
9300

SMAIL
SMANST1

001276
001326

001;76
046351
0013;7
001333
001337
001343
033120

CROSS REFERENCE TABLE == USER SYMBOLS

SERRPC

SESCAP

033614

19-JUN-B0

9467«

2782+

2333
9427+
9393+
11463
1.49¢

2924+

3068+

3106+

9476+

3189«

10233+«

94T.

3261+

9482+

5704+

9521

5734+«

13314

13517

13323

10856

10860+

10861+

11400+

9305+

9512

9514

4253+«
6B29+

4293+
6914+

4379+
6945+

4459+
7084+

4777+«
7220+

4913«
7408+

4988t
7503

9498
5202

11438
5282

10234+

5659+

9483

SEQ 0263

12072

2860+

9310#

3923«
5213«

3986+
5286+

4065t
6529+

4239+
6558+

2817
5051

9302
5132

9410

9413+

9425

9429+

65
PAGE 266
CROSS REFERENCE TABLE == USER SYMBOLS

CIR6KFO RK6 FCTNL CTRL DIAG

MACY11 30A(1052)

$NULL

11465

CIR6KF P11

19-JUN-B0 14:04

001154

SNWTST= 000001

22610

2931

3407
3893

78304
8327

SPASTM
SPOWER
SPURDN
SPURMG
SPWRUP

000232
046776
046630
046764
046702

2205#
12027
2778
120274
12006

SRDODEC= weeeee |
SROLIN 046066
SRDOCT 046374
$RDSZ = 000010
SREGAD 001160
001162
SREGO
001164
$REG

SREG10

001202

SREG11
SREG12
SREG1S
SREG14
SREG1S
SREG16
SREG17
$IEG§
SREG
SREG4
SREGS
SRE
SREG
SRESRE
SRTNAD
SR2A

SSAVRE

$SAVRG
$SCOPE

22944

2282#
11811¢

12078
118344
119084
11827%
224L5#
224L7H
224B#

116354
11597
9288

120324
119964

12024

2802+

12012#

9521
12075

4601
51204
554

L6008
5122
5593

6168¢
6484
7025#¢

7739
83254

11622+«
11592«
9279

2994

6085
64828
6981

77378
8202

60834
6455
69794

59920

626
4018¢

7561
g%?gl

6000
64538
6905

14:14

624N
961

45994
5041
55394

11593+«
11588+
9254

001272
045776

934

440
9594

4549
S039#4
S54B8

045132
045134
033104

SQUES
SRDCHR

9624

G547
4973
S4B64

SOCNT
SOMODE
SOVER

001304

%11
895

11494

4496
L9718
5416

5998#
6399
69034

$PASS

933

19-JUN=B0

7832
8534¢

327%0

SEQ 0264
3274

3723
43324

37920
4334

3794
La1al

6170
6517¢
7027

62278
6519
71618

6229
6598#
7163

6284n
6600
72994

6286
66698
7301

63414
6671
73524

79374
8536

4662
51904
5595

7939
86064

W719%
5192
57440

79728
B608

116374

8763

9106«

9107«

9118

11494

11798

11869

11886

11944

11947

5521+«

5526+

5533«

5573«

SS5B0¢

5587+

5709«

001204

2256@

5520+

5527+«

5534+

5574+

5581+

5588+«

5710«

001206
001210
001212
001214
001216
001220
001166
001170
001172
001174
001176
001200
046572
032174

22584
22594
22604
22614
22624
22490
22504
22514
2252#
2255
22540
119804
9135

046534

119644

= weeeer |

046774
03257

$SETUP= 00013

7123«
2257#

12080

7132«

7133«
10156
13328
13328
13328
13328
13328

7140+«

7149+«

7260+«

7141+
11113«

7150«
13328

7261+
133%2

7974
86754

9140

48164
5272
5827¢

8053#
B677

9144

38354
4416

4818
53414
5829

48904
5343
59144

8055
B7420

Bl144n
B744

9294

6343
67430
7354

34054

3837/
4494
4892
S4144
5916
6397#
6745
75594
8146
8908#

9311

7270+«

7271+

7278+
7279+

7287+«
7288+«

5716+

1015

5717«

10481+«

5723«

10186

5724+

11112«

5729+«

10480+

5730+

13328

6814+

6824+

11111«

13328

6815+«

6825+

13332

12079
IZOYg

129050
2772

1201
92464

12014+

12015«

12031#

9247

9459

2772

9508

2774

2776

2746

4721
52704
5746

3363

12076
12077

22554

1;;%%-

33614

37214
46214

11611«
9307#

3050

3311

367
L2128

11600+«
9298

2914+

3309

36714
4020

27N

9516

11681

2778

11686

2780

11687

2781

11717

2782

11893

2784

2811

2814

9104

H S
MACY11 30A(1052)
19=JUN=B0
14:14
PAGE 267
CROSS REFERENCE TABLE == USER SYMBOLS

CIR6KFO RK6 FCTNL CTRL DIAG
CZROKF P11
19-JUN=-80 14:04
$SIZE
$SIZEX
$STUP =
$SVLAD
$SWR
=

032234
032522
177777
033050
167400

2830
9207
2744n
9262
1797¢

91654
9217#

4670

4729

4B26

4901

4982

7984
9138
9283

B064
9140
9290

B8156
9238
9291

8212
9239
9292

2781
3683

5610
6527

001320
000000
033122
000102
001302
001262

2782
3735

5753
6607

7946
9132
9282

$SWREG
$SWRMK=
$SWOBT
STERM =
STESTN
STIMES

93014
1808

9463

9470

1812

2784
3801

SB37
6679

1813

2785
3843

5923
6758

1814

1815

1816

SEQ 0265

‘
1817

1818

1819

2279

¢939
3904

970
3969

3033
4043

3080
4222

330
4349

30
4425

31
4504

6008
6912

6093
6988

6180
704k

6239
7180

6296
7310
B6B&
9248
9450

6353
7372

8758
9265
9451

5050

B340
9240
9304

5131

8547
9241
9307

5201

B614
9242
9310

5281

5350

2280

s,
4556

3638
4610

6409
7577

6463
7748

6492
7840

13331
3735e

5425

8924
9267
9452

5494

9099
9268
9453

2302¢
1819
9277
121004
2293#
2279%

2805
1820
93114

9505

9509

9521

12028

9242
9871

9243
10133

9271
10233

10860

9302«
2781«

9532«
2939«

9533+«
2970«

9869
3035+

10131
3280+

10231
3320«

10858
3370%

11333«
3413+

13314
3457«

13317
3635+

13323
3683«

4B26*

4901«

4982+«

6008+
6912«
8212+

5050

6093+
6988+
8340+

S131e

6180«
7044+
@547+

5201«

6239+
7180*
BSB7+

5281«

6296*
7310
B6T4r

5350«

5425+

S4%4s

5547+

5610%

11661
11657+
3865
11712
11658+«
11659+
11658
'Se6Se

11662
11687
B6SB
11823
11659
11821
11714
56T

11673
11704s
116574

11698
11818
11678

11726
11820¢
11739

11753

117100
11822«
11825
5737+

11711«
11823

11712
11825+

11714+

11641

11663+

11660
22638

116734
2873«

2875

11028«

11030

2877
10219+
8872

2884+
10223+
B8B83

10599
10680
10660
10427+«
10792
10779+
10007+
10012

10701
10825
10820
10457
10796+

10831

1917;3093
10893«

10187
3099
10900

3237
; 3

3262
9394

3801«

5837+
6679+
80s

3843«

5923+
6758+
8156w

3904*

3969+

4043e

4222+

4349+

4425%

4504+

4556%

2281

4610%

4670+

5547

9105
9281
9454

4729

5753«

6353«
7372«
B6B4r

6409+
7577+
8758+

6463+
{7748«
8924+

6492+
7840«
9105+

6527+
7946+
9290+

6607+
7984+
9297

1169+

1169

11702+

1172

11740+

11750

11762s

2886

2889

2901+

2903

2905

2907+

2908+

2909+

11061

8905t
11065

8926+
11067+

9031+

9056

9067

9089+

10645

11026+

10596
10798

10614
10802+«

10658
10823

10678
10827+

10699
10829

10750
10833+

10805

10881+
960

10902
2970r

2992

03w

P72

3309

30e

361

*®

$TKB
$TKCNT
STKINT
S$TKQEN=
$TKQIN
$TKQOU
$TKASR
$TKS

001146
045136
045146
045145
045140
045142
045144
001144

22380
1igigr
2762
116468
116634
11646k
116450
(22374
W

$TKSRV
$STMPO

045216
001222

STMP1

001224

$STHP10
STHP11
$STAP12

001242
001244
001246

$THP1S
$THP14
$TAP1S
$STHP16
$TAP17
$TApZ
$THP
$THPL
$THPS

STHP?
$IN

501250
001252
001254
001256
001260
001226
0015
001232
001234

ooasso

001240
= 000111

29100
22640
22714
22720
22738
22748
22750
22768
22778
szrao
650
664
6re

2911«
B769«

10419«
10420+
10621+

684

10423+
10773«
10774+
10002«
10004+
10646
10158
30
10883«

Or
17984

3187¢
1808

Y} 1gaao-

33704

3405

2913
8847+«

11044+

10901

3413¢

11060

10014+

3438

34574

3624

36354

3671

3683

3721

3735k

3792

3801a

T ——

3893

i
il
il

——

il
il
i

9521

9532

93164
93294
93424
93554
93684
9381#

9321#
9334n

93224
93354
93484
93614
93740

93234
93364
93494
93624

N
9310
11947

285
560

2
—_—

11885#

SRR

=2 O NN PO NI N NI NI NN NI N 0D 00

120784
120914

9462

9274+

11784

o6#

03#

2912+

914
11886

91414
11893+

93734

11885#

21848

93474
93604

wil -

SOF ILL
$4LOCAT

LSASTA=

0774
090#

0464464
044202
044414
044462
044734

120764
12085#

teeeee

4414

3969#

$TYPOC
STYPON
$TYPOS
SUNIT
SUNITH
SUSWR
SVECTI
: SVECT2
SXTSTR
$SGET4=
$$5W08=

046322

O =2 N

STTYIN
$TYPBN=
$TYPDS
STYPE
STYPEC
STYPEX

s s s

$TRPAD
S$TSTM
STSTNM

3959

$TRP

S4n

$TRAP2

PONINININ

001152
001157

3904#

SEQ 0266

56254
5998
64094
6903
5774

O O~ W

[P TV LN NIV IV IV Y O o meOONgOOOOONNNNN-‘uNwO
33
L4

45040
324

$1PB
S$TPFLG
$TPS
$TRAP

19-JUN-80
14:14 PAGE 268
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-B0 14:04
CZR6KF P11

4268

26954

11641
134278

9375#

2769

116454
134284

5496
ST
5858
6010
6149
6323
6481
6633
6802

ESCAPE

GETPRI

GE TSWR

5508
5718
5878
6026
6155
6329
6494
6645
6808

936

6949

8977
1w

8989
19308

1w
1

INITSS

27408
$75¢

LoDLS

8484
272e
S1
6366

7749

7789

8178

8570

19308
19304

4241
S838
760
7818
8491
4831
saec
22
189

7801

82ie

1152

985
39
54
3498
3601
3737
3852
4008
4249
4381

4545
4714
4878
503
5217
5368
5513
5725
5881
6029
616
6337

6506
6648
6817
963

038
ah
72
3505
3604
3744
3860
4014
4268
4392

4559
4732
4885
5066
5232
53N
5522
5731
5893
6046
6182
6355

6512
6654
6826

966

3072
3251
3379
3514
3615
3751
3880
4067
4271
4401

4577

3085
3282
3382
3520
3621
3759
3887
4081
4274
&N

4750
4916
5082
5235
5388
5528
5755
5896
6049
6205
6376

4580
4753
4932
5085
5247
53N
5535
5771
5902
6061
6208
6379

7006

6533
6662
6832

6547
6683
6843

3089
3289
3389
35%6
3637
3766
3908
4083
4282
4428

4592
4780
495°
5099
5250
5402
5549
5774
5910
6064
6214
6385

6550
6703
6846
7009

§11S
292
3400
3532
3644
3773
3916
4094
4289
4455

«598
4783
4951
5102
5257
5410
5561
5790
5925
6070
6222
6393

6562
6706
6852
7021

312
329
341
353
364
378
392
410
429
445
461

479
495
510
526
542
556
579
594
6078
6241
6411

6570
6718
6860

9005

9012

11386

11352

11355

1135

4266
5924
6830
7842
B549
4BST
sa3
460
7204

4295
6009
g916
187
BS63
492
se7
ge3s
2%

4828
6094
g7
897
8618
¢
soss
693
7318

4914
6181
g9
7921
B688
5090
doed
eron
7335

4990
6240
a7
941
B778
S141
eolz
76l
7413

5064
6297
r086
7985
893
5237
603
ere2
7458

513
635
118
806
113
529
603
683
748

gan

8307

83,5

837

838

9177

2814n

7845

11371

7864

7879

7901

7950

7992

801

WAV IV IV IV IV W
S O o W
AP TP e T v v e
N W
O NS N 0000 HWN—-=000
o = OO OWVO—=VNOWNONWVMIWNO
oo 2000 SPNONINNIN
= NN O WO NOW

4246
4378
4539
7N
4872
5028
5185
5352

236
3347
3492
3589
377
3845
3989

ONWOVO ST NO
O

4243
4375
4527
4700
4869
5022
5177
5336

3230
3344
3487
3583
3709
3834
3984

G000 ~NONON N =00
O W
WOWVRO
S W=
SN
OO ONION =N — —
NOOWNOD
N0 S OWOwW

19304
1930#
956

OTM N S~ 00

*
1w
18244

= PO

COMMEN
ENDCOM
ERROR

J 5
MACY11 30A(1052)
19-JUN=B0 14:14& PAGE 270
CROSS REFERENCE TABLE == MACRO NAMES

N — = L

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-B0 14:04

CIR6KFO RK6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04
MSG

MACY11 30A(1052) 19-JUN-B0 14:14 PAGE 271
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0268

2931

933

9624

964

9914

994

§;7§l

;;76

33094

3311

33614

3363

34054

3407

34384

4018¢
4662

4020
L7198

42120
472

4214
48164

43320
4818

4334
48904

G140
4892

4416
W9710

LL94N
4973

4496
50394

L5470
5041

4549
5120#

4599%
5122

4601
5190

46604
5192

353?.

?gggz

8608

86754

8677

87420

B744

8908¢

8910

3440

52704
5829
63970
5
78294

6240

5272
5914¢
6399
6979%
7832

626

53410
5916
64538
6981
79374

6714

5343
5998+
6455
70%50
7939

673

56160
6000
64828
7027
79718

NEWTST

19304

2931

2962

2992

OPCHK

276440

4B4LB

4871

4934

4952

5416
60834
6484
71614
7974
3272

8053

gggg

5486#
6085
651748
7163
8052¢

924

5488
6168¢
6519
7299
8055

3794

55394
6170
65984
7301
B144n

835#

5541
62270
6600
73520
B146

3837

55934
6229
66698
7354
82004

3893»

5595
62844
6671
75598
8202

3895

57640
6286
67434
7561
83254

39594

5746
63414
6745
77370
8327

3961

58274
634
69034
7739
85344

3309

3361

3405

3438

3624

3671

3721

3792

3835

5021

5084

5101

5156

5170

5234

5249

5307

5321

7786

8394

7861

7915

8004

8437

8478

8513

8531
1"

8582
19308

8652
9433

8721
9434

8790
9903

8804
10037

8955
10235

8975
11103

9004
11122

11354
11126

11361
11290

11389
11547

11936

11985

12017

19304

9394

9396

9417

9892

10024

10209

10992

11003

11506

11910

11965

11998

12004

RESDC

27610

4LB79

4960

5029

5110

5179

5259

5330

5475

5904

5987

6072

6157

6216

RKLOAD

27434

4B44

4867

4930

4949

5004

5018

5080

5097

5.66

5230

5245

5303

5317

gggg

‘gggg

‘?ggg

8473

8509

8527

8578

8632

8701

8800

8943

8952

8965

8972

18254
3968
5200
6352
7747

2938
4042
5280

2969
4221
5349
6462
7945

3034
4348
5624
6491
7983

3279
4624
5493
6526
8063

3319
4503
5546
6606
8155

3369
4555
5609
6678
8211

3412
4609
5752
6757
8339

3456
4669
5836
6911
8546

5922
6987

8586

3682
4825
6007
7043
8613

3734
4900
6092
7179
8683

3800
4981
6179
7309
8757

3842
5049
6238
7371
8923

3903
5130
6295
7576
9103

SETTRA

12058#
}gggg

12067
}%838

12068
12085

12069
12086

12070
12087

12072
12088

12074
12089

12075
12090

12076
12091

12077
12092

12078
12093

12079
12094

12080
12095

12081
12096

12082
12097

SETUP
SKIP
SLASH
SPACE

12
12
14
1930#

19308
19304
19304

2764

3278

19304

3309

;188

150

197

§210

%285

2288

2931

2937

3799

3835

841

893

3902

3959

3967

4018

4041

%962
633
4212

2968
3671
4220

2992
3681
4332

3033
3721
4347

3272
6414

5827

5835

5914

5921

5998

6006

6083

6091

PUSH

REPORT

SCOPE

SETPRI

STARS

12018

379

4462
97N

5492

19304

7839

19304

4694
4980

5539

11814

318

4502
5039

5545

361

6547
5048

5593

368

4554
5120

5608

405

4599
5129

5744

4608
5190

5751

3438

4660
5199

3455

4668
5270

3624

4719
5279

4727
5341

4816
5348

4824
5614

4890
5423

3733

4899
5486

CIR6KFO Rk6 FCTNL CTRL DIAG
CZR6KF P11
19-JUN-80 14:04

6525
7299
8062
8908

SWRSU

TRMTRP

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

114617
1#

12058#

1w
1
1
1w
1
1*
1%

6598
308
8144
8922

11496
19304

12100

1930#
19304
1797#
1930
1930#
1930
19304

$SCMRE

%%ggl

gsz;

SSCMTH

%%9;0

%ggg

$SESCA

1930#

6605
7352
8154
9095

L 5
MACY11 30A(1052)
19-JUN=-B0 14:14 PAGE 272
CROSS REFERENCE TABLE == MACRO NAMES

669
37
8200
9151

11563
2786#

11640

9118
19304

9125
2807

2869
9114

6677
7559
8210
9234

6743
7575
8325
9389

11717

11732

9478
9121

9483

11745

2249

2250

2264

2265

2248

756
737
8338
9446

6903
7746
8534
9521

6910
7830
8545
9530

SEQ 0269

6979
7838
8606
9637

6986
7937
8612
9743

7025
7944
8675
10865

7042
7972
8682
10878

7161
7982
8742
10906

8756
11294

12010

12037

7178
8053

11803

11827

11896

11949

11994

2251

2252

2253%

2254

2255

2256

2257

2258

2259

2260

2266

2267

2268

2269

2270

227

2272

2273

2274

2275

2276

SSNEWT

1#
3893
5120
284

19304
3959
5190
6341

2931
4018
5270
6397

2962
4212
5341
6453

2992
4332
5414
6482

3272
YAIA
5486
6517

3309
4494
5539
6598

3361
4547
5593
6669

3405
4599
5744
6743

3438
4660
5827
6903

3624
4719
5914
6979

3671
4816
5998
7025

3721
4890
6083
7161

3792
4971
6168
7299

3835
5039
6227
7352

$SSET

12058#
12083

12067
12084

12068
12085

12069
12086

12070
12087

12072
12088

12074
12089

12075
12090

12076
12091

12077
12092

12078
12093

12079
12094

12080
12095

12081
12096

12082
12097

1
1%
1
1
1%
1#
17974
1w
1#
1%
1
1

1930#
1797%
1797%
1797#
17978
1797#
18204
1797
2286#
17978
179748

SCMTA
$082D
.$0820

1%
1"
14

1797¢

2208

.SEOP
.SERRO
.SERRT

18
12
1"

1797#
17978
1797#

9093
9444

.SRAND
. SRDDE
.SRDOC

1
14
14

1797#

11992

1797#
1797#

11894
11638

$SSETM
$$SKIP

LEQUAT
.HEADE
KT11

SETUP
SWRHI
.SWRLO
SACTY
SAPTB
SAPTH
SAPTY

SASTA
SCATC

LSMULTY
. SPOVE

.SREAD

7559

12098
2802#

14
1w

7737

12099

7830

1820
1799
1930

2744
1808

2186
9387

7937

7972

8053

8144

8200

8325

8534

8606

8675

8742

8908

CIR6KFO RK6 FCTNL CTRL DIAG
19-JUN-B0 14:04
CIR6KF P11

.$SAVE
.$5820
.$5820
.$sCoP

1L
AL
AL
AL

.SSUPR
STRAP
.$7YPB
.$TYPD
STYPE
.STYPO
.$40CA
1170

1L
WL
AL
\LJ
»
\LJ
1L
»

. ABS.

0744°¢

.SSI1ZE

\LJ

ERRORS DETECTED:

1797#

11947

17974
1797#

9232
9149

LI
MACY11 30A(1052)
19-JUN-B0 14:14 PAGE 273
CROSS REFERENCE TABLE == MACRO NAMES

1797#
1797#
17974
1797#
1767#

000
0

DSKZ:CZROKF
.BIN,DSKZ: CZROKF .LST/CRF /SOL/NL : TOC=DSKM: CZROKF . SML ,

RUN-TIME: 88 133 11 SECONDS

RUN-TIME RATIO: 454/233=1.9
(69 PAGES)
CORE USED:
35«

CZR6KF P11

SEQ 0270