Digital PDFs

AH-9225D-MC

November 1979

289 pages

Original

13MB

view download

OCR Version

11MB

view download

Document:	CZRJJD0 RP04-5-6 RP04-5-6 FCTNL 2 NOV 1979 bw
Order Number:	AH-9225D-MC
Revision:	000
Pages:	289
Original Filename:	CZRJJD0__RP04-5-6__RP04-5-6_FCTNL_2__AH-9225D-MC__NOV_1979_bw.pdf

OCR Text

RP04/5/6

CZRIIDO

coevaisin 5. SRADIRY
FICHE 1 OF J

MADE

1/SA

RP04/5/6

ei S
EICHEZ QR

USA
DE
- MAIN

CIRJJDO, RPOG/S/6 FCIML CTRLRe

(Iny0.P11

28-MAK=-79 08:5¢

MACYYY

S0AC1052)

29-MAY-79

10:48

PAGE ?

IDENTIFICATION
»

PRODUCT

CODE:

AC-9223D-MC

PRODUCI NAME :

CZRJJDO RPOL/S5/6 FUNCTIONAL CONTROLLER TEST PART []

DATE CREATED:

MAY,

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

PETE BLACKSTONE

1979

THE INFORMATION IN THIS DOCUMENT 1S SUBJECT TO CHANGE

WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A

COMMITTMENT BY DIGITAL EQUIPMENT CORPORATION.
DIGITIAT EPLIPMENT CORPORATION ASSUMES NC
:ESPSNSIBIL]TY FOR ANY ERRORS THAT MAY APPEAR IN THIS
NU Lo

)

THE SOFTWARE DESCRIBED IN THIS DOCUMENT 1S FURNISHED
TO THE PURCHASER UNDER A LICENSE FOR USE ON A SINGLE
COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION OFf
DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN
WRITING BY DIGITAL.

;

DIGITAL EQUIPMENT CORPORATION ASSUMES NO

RESPONSIBILITY FOR THE USE OR RELIABILITY OF I1S
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.

DIGITAL

POP

UNIBUS

MASSBUSS

5S¢0 000!

CIRJJIDO, RPO4L/S/6 FCINL CTRLR2
CIRJJD.PY
28-MAR-79 08:52

MACYT1

30A(1052)

DEC

25-MpY-79
DECUS

ABSTRACT

—

STORAGE

REQUIREMENTS

EQUIPMENT

PRELIM]INARY

W
.

METHOD

&H
.

STARTING PROCEDURE
CONTROL SWITCH SETTINGS

STARTING ADDRESS OR ADDRESSES

£&»H
.

PROGRAM AND/OR OPERATOR ACTION

N
.

OPERATING PROCEDURE

NN
.
.

OPERATIONAL SWITCH SETTINGS

o
L]

ERRORS

O
L]

'FATAL'

~N
.

RESTRICTIONS

O
L]

MISCELLANEOUS

O
.

LOADING PROCEDURE

&»
L]

PROGRAMS

&H
.

NN
.
.

—

CONTENTS

EXECUTION TIME

~No
N

OPERATOR SELECTABLE SCOPE LOOPS

PROGRAH DESCRIPTION

oo
[

HISTORY

PROGRAM REVISION

~0
]

ERRORS

STACK POINTER

O
.
o

SUB-ROUTINE ABSTRACTS

10:48

(N
PAGE ?

DECTAPE

Sea 0007

CIRJJDO, RPO4/5/6 FCTINL CTRLR 2
CIRJJD.PIY
28-MAR-79 08:52
1.0

MACY11

30A(1052)

25-MAY-79

10:48

1
PAGE &

SEQ@ 0003

ABSTRACT

THIS DIAGNOSTIC TESTS THE DCL OF THE RPO4/5/6 DISK SUBSYSTEM
WHEN CONNECTED TO EITHER AN RH11 OR RH70 CONTROLLER.
1T USES THE DISK SURFACE AND THE DRIVE MECHANICS TO PROVE

THE PROPER WORKING OF

THE

SUBSYSTEM.

1T DOES NOT NEED A

FORMATTED DISK PACK.
A DISK PACK WITH NO VITAL INFORMATION
WRITTEN ON 1T IS ESSENTIAL.
AFTER A SUCCESSFUL RUN (WITH
NC ERRORS) OF THIS DIAGNOSTIC 1T CAN BE ASSERTED THAT THE

DCL IN THE RP0O4/5/6 SUBSYSTEM WORKS SUCCESSFULLY WHILE STANDING
ALONE.

SYSTEMS

INTERACTION AND DRIVE TIMING IS LEFT

OTHER DIAGNOSTICS,
(DZRPS AND DZRPT

2.0

REQUIREMENTS

2.1

EQUIPMENT

THIS IS WITH THE ASSUMPTION THAT STATIC 1

)

HAS BEEN RUN SUCCESSFULLY.

PDP-11 COMPUTER WITH CONSOLE TELETYPE, AND A RP04/5/6 DISK
SYSTEM.
THE RP04/5/6 DISK SYSTEM WILL CONSIST OF AN RH11
CONTROLLER, A DISK CONTROL LOGIC (DCL), A DEC 733 DISK
DRIVE, AND ITS APPROPRIATE DISK PACK.
THE DISK PACK NEED
NOT BE FORMATTED.
USED SECTION OF THE DISK SURFACE SHALL

BE GOOD (MOLE FREE).

THE SURFACE FOR THE FOLLOWING SECTORS

MUST BE GOOD, THAT IS, FREE OF ANY HOLES OR SURFACE
IRREGULARITY BEFORE ANY DATA ERROR CAN BE ATTRIBUTED 10
HE

LOGIC.

CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
2.2

00, TRACK
00, TRACK
00, TRACK
01, TRACK
02, TRACK
03, TRACK
04, TRACK
05, TRACK
05, TRACK
06, TRACK
07, TRACK
08, TRACK
09, TRACK
&10,TRACK

00, SECTOR 00
00, SECTOR 01
18, SECTOR 21

00,
00,
00,
00,
00,
07,
00,
00,
00,
18,
18,

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

00
00
00
00
00
04
00
00
00
21
21

STORAGE

THIS PROGRAM REQUIRES 16K WORDS OF MEMORY

2.3

PREL IMINARY PROGRAMS

THIS PROGRAM ASSUME® THAT MAINDEC-11-DZRJG-(LATEST
REV) HAS BEEN RUN W1THOUT ERRORS.

1T ASSUMES THAT MAINDEC-11-DIRJH=(LATES]T

REV) HAS BEEN RUN W]THOUT

ERRORS.

CIRJJIDO, RPOL/S/6 FCINL CTRLRZ
CIRIID.PY
28-MAR-79 08:52
AND

REV)

3.0

MACY11

30A(1052)

25-MAY-79

1
PAGE S

ERRORS.

LOADING PROCEDURE
.ABS TAPES

STARTING PROCEDURE

SWITCH 12 MUST BE SET WHEN THIS
RH70 CONTROLLER.
1T CAN BE SET
SOF TWARE SWITCH REGISTER IF THE
PARAGRAPH 5.1 FOR A DESCRIPTION
OPERATION.
4.1

ASSUMES THAT MAINDEC-11-DZRJI-(LATEST

HAS BEEN RUN WITHOUT

USE STANDARD PROCEDURE FOR LOADING
4.0

10:48

CONTROL

PROGRAM IS TO BE RUN USING AN
AT THE FRONT PANEL, OR IN THE
OPERATOR SO DERSIRES.
SEE
OF

SOFTWARE

SWITCH REGISTER

SWITCH SETTINGS

SEE SECTION 5.1

6.2

STARTING ADDRESS
START AT ADDRESS 200---FOR NORMAL RUN
START AT ADDRESS 210---FOR UNIT SELECTION

200 START
ALL SWITCHES MUST BE DOWN FOR WORST

CASE RUN.

WITH THIS

STARTING ADDRESS ALL THE RP04/5/6S ON THE SYSTEM WiLL BE
TESTED ONE AT A TIME BEFORE ''END PASS'' IS PRINTED OUT.

TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE
THAT 1S POWERED UP (THAT S THE LOWEST UNIT NUMBER RHAS REGISTER
THAT RESPONDS)THEN GO ON TO THE NEXT HIGHER UNIT NUMBER
THAT

1S POWERED UP.

204 RESTART

SAME AS 200 START, WITH THE FOLLOWING EXCEPTIONS:
THE
PROGRAM WILL JNTEARGGATE THE OPERATOR FOR THE NON-DEFAULT
C.S.R. AND VECTOR ADDRESS FOR THE RHXX CONTROLLER.
WHEN THESE QUESTIONS HAVE CORRECTLY BEEN ANSWERED, THE
PROGRAM WILL AUTOMATICALLY RESTART FROM ADDRESS 200.
210 START
ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN.

WITH THIS
STARTING ADDRESS THE CONSOLE TELETYPE WiLL ASK FOR THE UNIT
NUMBER TO BE TESTED.
THEN ONLY THAT UNIT WiLL BE TESTED
FOR EACH PASS OF

6.3

THE PROGRAM,

PROGRAM AND/OR OPERATOR ACTION
1.

LOAD THE PROGRAM [NTO MZMORY.

SET STARTING ADDRESS ON THE SWIT(H REGISTER

PRESS ''LOAD ADDRESS''.

Sea 0004

CIRJIDO, RPOG/S/6 FCINL CTRLR2
CIZRJJD.PIY
28-MAR-79 08:52
&.
5.
6.

MACY11

30A(1052)

25-MAY-79

10:48

Fod

PAGE ¢

SEQ 0005

SET ''OPERATIONAL SWITCH SETTINGS' (SEE SECTION 5.1)

WORST

CASE

ALL

SWITCHES DOWN.

PRESS "'START".
FOR THE FIRST PASS EACH TEST WILL BE EXECUTED ONCE

ON THE DRIVES PRESENT OR DRIVE SELECTED BEFORE ''END
PASS'' 1S PRINTED.

THE FIRST PASS WILL REQUIRE OPERATOR

INTERVENTION 1F THE PROGRAM IS NOT RUN UNDER AN "'ACT-11"

MONITOR.

THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE

EACH TEST FOUR TIMES ON EACH DRIVES PRESENT OR DRIVE

SELECYED BEFORE "'END PASS' IS PRINTED.

THE SECOND

AND SUBSEQUENT PASSED DO NOT NEED ANY OPERATOR

5.0

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS

INTERVENTION.

IF THE PROGRAM 1S BEING RUN ON A SWITCHLESS PROCESSOR (]. E.
AN 11/34) 1T WILL DETERMINE THAT A HARDWARE SWITCH REGISTER

1S NOT PRESENT, AND WILL USE A ''SOF TWARE'' SWITCH REGISTER.

THE SETTINGS OF THE ''SOFTWARE'' SWITCHES ARE CONTROLLED
THROUGH A KEYBOARD ROUTINE WHICH IS CALED BY TYPING A

"CONTROL G'.

THE PROGRAM WiLL RECOGNIZE A 'CONTROL G' AT ANY

TIME EXCEPT WHEN IT 1S AT A HIGHER PRIORITY PROCESSING AN
RP04/5/6 INTERRUPT.
THE ''SOF TWARE'' SWITCH VALUES ARE ENTERED AS
AN OCTAL NUMBER IN RESPONSE TO PROMPTING FROM THE SWITCH
ENTRY ROUTINE:

'SWR = NNNNNN

NEW ='

EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH
LEADING ZFEROS ARE NOT
REGISTER IMAGE MUST BE ENTERED.
REQUIRED.
‘'RUBOUT' AND 'CONTROL U' FUNCTIONS MAY BE USED TO
CORRECT TYPING ERRORS DURING SWITCH ENTRY.

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE #SOF TWARE'
SWITCH REGISTER MAY ALSO BE USED.
IF THE PROGRAM FINDS ALL
16 SWITCHES IN THE "UP' POSITION WHEN IT IS STARTED, ALL

SWITCH REGISTER REFERENCES WILL BE TO THE ''SOF TWARE' REGISTER
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED.

SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 '‘OPERATIONAL
SWITCH SETTINGS'' HOWEVER THE DETAIL DESCRIPTION ARE GIVEN

HERE
.

SWITCH 15 - HALT ON ERROR
WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR
THEN THE APPROPIATE INFORMATION WiLL BE PRINTED OUT

AND THEN THE PROGRAM WILL HALT. AFTER THIS HALT, PRESSING
“'CONTINUE'' WILL CONTINUE WITH THE PROGRAM TIL( THE NEXT
ERROR 1S FOUND WHEN THE SAME THING WILL HAPPEN.
SWITCH 14 = LOOP ON TEST

WHEN THIS SWITCH 1S SET THE PRNGRAM wliLL BEGIN TO LOOP

CIRJJIDO, RPOL/S/6 FCTINL CTRLRZ
CIRJJD.PWY
28-MAR-79 08:52

MACY11

ON THE CURRENT

30A(1052)

25-MAY-79

TEST BEING EXECUTEC.

10:48

1
PAGE 7

FOR EXAMPLE

SWITCH 1S SET WHEN THE PROGRAM IS IN TEST

SEQ 0006

THIS

10 THEN THE

PROGRAM W1lLL KEEP EXECUTING ALL OF TEST 10 REPEATEDLY.
ONE WAY TO BE SURE THAT THE PROGRAM IS IN THE EXPECTED

TEST 1S TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR
DURING A PROGRAM HALT.

SWITCH 13 - INHIBIT ERROR TYPEOUTS

WHEN THIS SWITCH

IS SET

FURTHER ERROR PRINTOUTS WItL

CEASE, HOWEVER OPERATOR INSTRUCTIONS SUCH AS ''STOP DRIVE X'

WiILL CONTINUE.

THE END OF

PASS "'TOTAL NUMBER OF

ON THIS PASS ON DRIVE X'’ WlLL BE TRUE, THAT
PRINTOUTS WERE INHIBITED
IT WlLL SAY S0.

THAT

PASS FOUND &6 ERRORS,

SWITCH 12 - RH70 CONTROLLER SELECT
THIS SWITCH MUST BE

SET

THE

ERRORS

[S, ALTHOUGH

START OF

THE PROGRAM WHEN THE

DISK DRIVES TO TESTED ARE CONNECTED TG AN RH70 CONTROLLER.
JT MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED ARE
CONNECTED TO AN RH11

CONTROLLER.

SWITCH 11 = INHIBIT ITERATIONS
WHEN THIS SWITCH IS SET THE PROGRAM ON SECOND PASS WILL
NOT REPEAT EACH TEST FOUR TIMES BUT WILL DO EACH TEST
ONCE

ONLY.

SWITCH 10 - BELL ON ERROR

WHEN THIS SWITCH IS SET, If THE PROGRAM FINDS AN ERROR
THE "'BELL'® OR "'ALARM'' W]lLL BE SOUNDED.
THIS SWITCH IS USEFUL
WHEN SWITCH 11 1S SET YET INFORMATION 1S NEEDED WHEN ANY ERROR

1S DETECTED. TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH
SWITCH 11 SET TO HELP SCOPING.
THEN IF THIS SWITCH IS
SET AND THE BELL OR ALARM SOUNDS 17 MEANS THAT THE ERROR
IS PRESENT BUT IF THE BELL OR ALARM STOPS 1T MEANS THAT
THE ERROR 1S NOT PRESENT.

SWITCH 9 - LOOP ON ERROR
WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR
THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST

IF ON THE SECOND TIME
EXECUTED ‘'SCOPE’’ STATEMENT.
THROUGH AN ERROR IS FOUND IT WILL AGAIN LOOP BACK TO
THAT ''SCOPE'' STATEMENT.
THKIS LOOPING WILL CONTINUE AS LONG
AS THE ERRCR 1S PRESENT AND THIS SWITCH IS5 SET.
HOWEVER
IF THE ERROR 1S NOT PRESENT AT ANY TIME THEN IT WILL
CONTINUE NORMALLY WITH THE PROGRAM. EACH TIME THE ERROR

1S ENCOUNTERED PRINTOUY WILL TAKE PLACE UNLESS SWITCH 11
1S ALSO SET. DURING BEGUG, USING A SCOPE, 1T IS RECOMMENDED

THAT

NOTE:

SWITCH 11

|S ALSO SET,

SEE SECTION 8.3

CIRJJIDO, RPOL/S/6 FCTINL CTRLR2
CIRIJD.PI
28-MAR-79 08:52

MACY11

30A(1052)

25-MAY=-79

SWITCH 8 - LOOP ON TEST

IN SWR <7:0>

10:48

PAGE 8

SEQ 0007

THIS 1S A SPECIAL SWITCH.
WHEN SET SWITCHES 0 THRU 7
HAVE ONE MEANING AND WHEN RESET SWITCHES O THRU 7 HAVE
ANOTHER MEANING.

THIS MEANS THAT

ANY

SETTING OF

SWITCH

0 THRU 7 MUST BE DONE WITH SWITCH 8 IN THE APPROPIATE

POSITION.
WHEN TH]S SWITCH IS SET THEN SWITCHES O THRU
7 GIVE THE TEST NUMBER TO BE LOOPED ON.
FOR EXAMPLE
WITH SWITCH 8 SET AND SWITCH 3 SET THE PROGRAM WILL LOOP
ON TEST 10.
HOWEVER THIS SETTING MUST BE DONE AT THE

BEGINNING OF

THE PROGRAM THEN ALL THE TESTS FROM 1

WiLL BE EXECUTED AND THEN TEST
AND OVER AGAIN.

WHEN

THIS

SWITCH

0 THRU 7 HAVE THE MEAING 17S NAME
FOR EXAMPLE

SWITCH 7

10 10C

10 wiLL BE REPEATED OVER
IS NOT

SET

INDICATES.

THEN

1S ''STOP FURTHER COMPARES:

SWITCHES

THAT

SWITCH 8 IS NOT SET AND SWITCH 7 IS SET THEN WHEN A

DATA ERROR 1S DETECTED NO FURTHER COMPARES WILL BE DONE.
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL THE WORDS ARE IN
ERROR THEN AFTER SEEING Tne PRINTOUT FOR THE FIRST FEW

WORDS SETTING SWITCH 7 ONLY WILL STOP FURTHER PRINTOUTS
Of THIS ERROR AND GC ON WITH THE TEST RATHER THAN PRINT
ALL THE 256 WORDS
HOWEVER 1F THIS WAS DONE WITH SWIT(H 1°
THEN THE NEXT

ERYOR THAT

THE PROGRAM DETECTS

THIS GROUP OF

DATA ERRORS ARE NOT

SEQUENT TEST WlLL ALSO BE LOST.
EXAMPLE OF

IN A SUB-

BUT WITH SWITCH 7, ONLY
PRINTED OUT.

ANOTHER

SWITCH 8 BEING LOW 1S WITH SWITCH 6, WHICH
1S “'ECC TEST-COMPARE END RESULT ONLY''.
THAT IS IF SWITCH
8 1S NOT SET AND SWITCH 6 IS SET THEN ON ECC TESTS (TEST
120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THE
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY (LOCK,
COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS.

NOTE:

SEE SECTION 8.3

SWITCH 7 - STOP FURTHER COMPARES IF SW08 IS LOW.
1F SWITCH 8 1S SET AND THIS SWITCH IS ALSO SET THEN ThIS
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED
IN THE DESCRIPTION OF SWITCH 8.
IF SWITCH 8 IS NOT SET
AND THIS SWITCH IS SET

THEN THE PROGRAM WitL DO AS THE

NAME INDICATES.
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL
THE WORDS ARE IN ERROR THEN AFTER SEEING THE ERROR PRINTOUTS
FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8
NOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT WILL
NOT STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT
TEST.
1T 1S EXPECTED THAT SWITCH 7 AFTER BEING SET FOR
A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS.

SWITCH 6 - TYPE ALL REGISTERS WITH ERROR IF SWO8 IS LOW
1F SWITCH 8 IS SET AND THIS SWITCH 1S ALSO SET THEN
THIS SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS

INDICATED IN THE DESCRIPTION Of SWITCH 8.

IF SWITC(H 8 IS

CIRJIJDO, RPOL/S/6 FCINL CTRLR2
(7RJJD.PIN
2B-MAR-79 08:52

MACYYY

30A(1052)

25-MAY-79

10:48

1
PAGE 9

NOT SET AND THIS SWITCH IS SET THEN THE PROGRAM WiLL DO
AS THE NAME INDICATES.
THAT IS ON FINDING AN ERROR INSTEAD
OF ONLY GIVING THE ERROR MESSAGE AND RELEVANT REGISTERS
AS WILL BE DONE IF SWITCH 11 IS NOT SET BUT WILL ALSO

GIVE ALL THE REGISTER CONTENTS (EXCEPT 'DATA BUFFER'' RHDB).
5.2

SUB-ROUTINE ABSTRACTS

SEE SECTION 9 ''SUBROUTINES'.
6.0

ERRORS

ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER

PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE.
THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RP04/5/6
REGISTERS OR GOOD/RECEIVED DATA,
IF THE ERROR OCCURRED IN A
SUBROUTINE, THE ADDRESS OF THE SUBROUTINE CALL IS ALSO

GIVEN.

REFER TO THE PROGRAM LISTING AT THE STATED

‘FATAL®'

ERRORS

ADDRESS TO DETERMINE

6.1

THE

CAUSE OF

THE

ERROR.

IN THE EVENT THAT THE DISK DRIVE
ECOMES UNAVAILABLE T0 THE
CONTROLLER, POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS
CANOT BE CLEARED PRIOR TO THE START OF ATEST SEQUENCE - THIS
IN
INFORMATION WILL BE COMMUNICATED TO THE OPERATOR.
ADDITION, THE TTY BELL WILL RING AND THE PROGRAM WILL HALT.
1T IS SUGGESTED THAT If THIS HAPPENS, THE OPERATOR LOAD
ADDRESS 200 (210) AND RESTART THE PROGRAM AS A FIRST ATTEMPT
TO SOLVE THE PROBLEM.
IF THE FILURE CONTINUES TO OCCUR,
THERE ARE TWO OPTIONS FOR THE OPERATOR:

LOOK IN THE TEST LISTING FOR THE 'HALT'
INSTRUCTION AND REPLACE 1T, PLUS THE TWO WORDS
(“'TYPE
,CPHALT'') ABOVE WITH 'NOP'S.
WITH TTY ERROR

PRINTOUTS INHIBITED, A SCOPE LOOP CAN BE
FOR THE TEST IN QUESTION.

INITIATED

GO BACK AND RERUN THE DZRPS DIAGNOSTIC AS IT IS

QUITE POSSIBLE THAT A HARD FAILURE HAS OCCURRED IN
ONE OF THE HARDWARE REGISTERS.

1T 1S ALSO POSSIBLE TO CONTINUE FROM THE 'HALT' POINT, BU!

THIS 1S NOT RECOMMENDED AS ALL FOLLOWING TESTS WILL EXHIBIT
THE SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS.
7.0

RESTRICTIONS

BEFORE STARTING THE PROGRAM THE OPERATOR MUST HAVE THE
DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B BUT
MUST NEVER LEAVE

IN THE PROGRAMMABLE STATE.

SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND
1T MUST NJDT BE SET WHEN RUNNING ON AN RH11 CONTROLLER.
BECAUSE CF THE REQUIREMENT FOR 1T TO BE SET WHEN USING AN
RH70, THE PROGRAM (ANNOT BE RUN IN CHAIN MODE WHEN USING THE

Sea 0008

CIRJJDO, RPOL/S/6 FCTINL CTRLR2
28-MAR-79 08:52

CIRJJD.PIN

MACY1Y

30A(1052)

25-MAY-79

10:48

PAGE 10

SEQ 0009

COF TWARE REGISTER FEATURE WHILE RUNNING ON AN RH70.
THIS IS
3ECAUSE THE ROUTINE WwHICH GETS SOF TWARE SWITCH SETTINGS IS

NOT

OPERABLE

WHEN

IN CHAIN MODE.

MISCELLANEOQUS

EXECUTION TIME

THE FIRST PASS OF THE PROGRAM WIiLL TAKE APPROXIMATELY 20
SECONDS.
SUBSEQUENT PASSES WILL TAKE
60 SECONDS .
8.2

STACK

THE
8.3

POINTER

STACK

INITIALLY

OPERATOR SELECTABLE

HERE

SET

TO 1000

SCOPE LOOPS

1S A DETAILED EXPLAINATION Of

HOW THE LOOP ON ERROR WORKS.

FOR INSTRUCTIONS REGARCING THE USAGE OF THIS TECHNIQUE, HIT *C

ANY TIME WHILE THE PROGRAM IS RUNNING.
ON HITTING AN ERROR
1F THE LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BA(K USUALLY BACK TO THE BEGINNING OF THE TEST.

WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT
THE PROGRAM GOES BACK

TO CAN BE

CHANGED.

THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE:
1.
17 MUST BE WITHIN THE TEST UNDER CONSIDERATION

2.
3.

LOOP ON ERROR SWITCH MUST BE SET
THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERAT]ON

IF THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION

THE PROGRAM W]LL REVERT TO NORMAL OPERATION.
HOWEVER, IF LOOP ON
TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN T
COMES TO THE END OF THE TEST UNDER CONSIDERATION.

AFTER LOOPING FOR SOME TIME
NORMAL OPERATION WiLL

CONTINUE.

THE LOOP SWITCH 1S PUT DOWN THEN

8.4

PROGRAM REVISION HISTORY

9.0

PROGRAM DESCRIPTION

9.1

LOGIC DIVISION IN HARDWARE MODULES

ERROR REGISTER 1 STATUS REGISTERS
MUX FOR REGISTERS GO HANDLING REGISTER
DECODE COMMAND DECODE EXECUTION OF
MECH.

COMMANDS

SYNC. DATA BOARD (SN) - DATA CONTROL PARALLEL 10 SERIAL
SYNC. BYTE DETECT.

SEEK AND SEARCH (SS) =

SEEK LOGIC SEARCH LOGIC HEADER

CIRJIDO, RPOL/S/6 FCINL CTRLR2

28-MAR-79 08:52

30A(1052)

25-MAY-79

10:48

PAGE

11|

SEQ 0010

HANDL ING.

ERROR CORRECTION (EC) - ECC LOGIC ERROR REGISTER 2 & 3
MUX FOR ERROR REG.

2 & 3 LOOK AHEAD

REG. SECTOR COUNTER DATA FORMATION
RING COUNTER.

DUA!

PORT

(DP)

DUAL PORT ARBITRATION ATTENTION LOGIC
SERIAL NO REGISTER MASS BUS REGISTFR
STORAGE

D1SK

SURFACE

USAGE

SYMBOLS USED
C = CYLINDER
T

TRACK

S = SECTOR

W = WRITE
R = READ
TT

TEST

10, SO

(0,

70, 1

NUMBER

1122-W,R, 1123-R, T124-W,R, T125-W,R, T726-W.R, T135-w,R, T137-w, T7150-w, T151-w,R, 1752-W.R, TT55-W,R
1127-W,R, T137-w,R, T140-R, TT4'-W,
R, T142-W,R, T143-w,R

—

10,

O0-w,R, T131-w,R, T753-W,R, T154-W,R

(0, 118, S21
1130-w, T131-W,R

]

. 10, SO
1131-w,R
»

9.2

[gn]

CIRIVJD.PIY

MACYYY

(6, 118, S21
1131-w

(5, 10, SO
1751-w,R

RLR2
(IRJJDO, RPO4L/S/6 FCTINL CTRLR
(IRJJD.PIY
28-MAR-79 08:52

€S,

MACYTT

30A(1052)

25-MAY-79

10:48

1
PAGE

17, S&

T183-w.R, T134-W,R
(5, 118, s

1131-w

6, 10, SO
T131-w,R

(6, 118, s21
1131-w

¢7, 10, sO
1131-w,R

(7, 118, S18
T131-w

(8,

10, sC

T131-w.,R

(8, 118, S21
1131-w
9, 10,
T131-w

(9, 118, S21
T131-w,

(10,

TT32-R

10, SO

T131-w,R

(410, 118, S21
T136-w,R, TT750-W,R
9.3

THE FOLLOWING SECTION DESCRIBES EACH TEST AND SUBROUTINES

IN DETAIL AND CAN BE USED AS AN INDEX TO THE LISTING.

THE LEFT MOST COLUMN S THE LINE NUMBER WITHIN THE LISTING

WHERE
e

THAT

ITEM WiLL BE

FOUND.

SEQ 00N

(IRJJDO, RPOL/S/6 FCINL CTRLR2
CZRJJD.PIN
28-MAR-79 08:52
603
604
605
606
607

608
609
610
611

612
613
614
615

MACY11 30A(1052)

LT1TLE

25-MAY-79

10:48

PAGE 13

SEQ 0012

CZRJJDO, RPOL/S5/6 FCTINL CTRLRZ

;*COPYRIGHT (() 1976,1978

;*DIGITAL EQUIPMENT

CORP.

'HAYNARD MASS. 01754
'PROGRAH BY

PETE BLACKSTONE

'IHIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMA(
:*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977,
"

A AN A AN A AN A ANy A AN A AN AN AN A ANy A ANy A AN A AN A AN A AN A AV A ANV A A A AW
Y A ANy A A A AN A AN A AN A AN
AN AN L ANy A AN A ANV A AV A ARV A ACFA AR AACFA ARFA AW
Y AN AN AN A
ANy ANy ANy AN ANy AN A AN A A A AR A ACVA AV A AN A AN ALY

;DRIVE MUST BE LOCKED ON PORT A OR PORT B
AR TAAN VAN YEAX VAR AR VAN FEAN JARY FEAN FAAN FARS FEAN VAL VAAR FAAR FAAN VAN
AN VAN VAAN VAN VAN VAN VAAN VAN VAAN VARN VAN FAAS VAR VAN VAN VAL VAN VAN
AN YA VAR VAR YA VAR VAR VAN VAAN VAR VAN AN FARL VEARL VAN FAAN VAR FAAY

651
652
653
654

655

656

657

M
A

EXTERNAL SYSMAC.SML PACKAGE WHICH MUST BE MADE AVAILABLE
TO THE SOURCE PROGRAM AT

ASSEMBLY

TIME.

;:ttttt'tt't'tt""t't"'t""t""tttttt'ttt"'ttl'ttttttltttttt
.S BTTL

OPERATIONAL SWITCH SETTINGS

USE

SWITCH

MR
bR

647
648
649
650

©«NOTE: ALL MACRO CALLS BEGINNING WITH ''.$'' ARE SUPPLIED FROM AN

646

645

;:'.t'l"'"'""l""""""""""t'tt't't'"'tt"""tt.'ltt

643

644

:"'t't"'ft"t""""""!'tt'tt"'

* ¥

BaWe

641
642

;*INTERNAL PROGRAM MACROS BEGIN HERE

‘¥

629
630
631
632
633
634
635
636
637
638
639
640

5
4

P4
i

0
9

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS

RH70 CONTROLLER SELECT
INHIBIT

ITERATIONS

BELL ON ERROR
LOOP ON ERROR

CIRJIJIDO, RPOL/5/76 FCINL CTRLR2
CZRJJD.PIY
28-MAR-79 08:52

658
659
66?
66

MACY11

30A(1052)
25-MAY-79
10:48 PAGE 14
OPERATIONAL SWITCH SETTINGS

A
it
ot

8
7
6

LOOP ON TEST IN SWR<7:0>
STOP FURTHER COMPARES IF SW08 IS LOW
TYPE ALL REG. WITH ERROR IF SW8 (OW

SEQ 0013

CIRJJD0, RPOG/S/6 FCTNL CTRLR2
(IRJ50.P1
28-MAR-79 08:52

662
663

664

665

666

667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696

MACY1T

30A(1052)
25-MAY-79
BASIC DEFINITIONS
LSBTTL

STACKk=

000011
000012

HY=.

177776

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

.EQUIV EMT ERROR
.EQulv
107,S5C0PE

12
15
200
177776

.EQUlV

PS,PSW

PIRQ-=

1777172

2
..

SEQ 0014

1000 e

;.BASIC DEFINITION OF ERROR (ALL
;.BASIC DEFINITION OF SCOPE CALL
;;CODE

FOR HORIZIONTAL

TAB

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

STKLMT= 177774

;3STACK LIMIT REGISTER

DSWR=
DDISP=

:;HARDWARE SWITCH REGISTER
::HARDWARE DISPLAY REGISTER

177570
177570

:;PROGRAM INTERRUPT REQUEST REGISTER

;*GENERAL PURPOSE REGISTER DEFINITIONS

RO=
R1=

X0
X1

:;GENERAL REGISTER
; sGENERAL REGISTER

X4
x5
X6

; GENERAL REGISTER
;:GENERAL REGISTER
;;GENERAL REGISTER

R2=
R3=

¥4
1 )

R7:=

1 ¥4

R4=
RS=
R6-

SP=
PC=

X6
%7

; ;GENERAL REGISTER
; ;GENERAL REGISTER

; ;GENERAL REGISTER

:sSTACK POINTER
: :PROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS
0
::PRIORITY
60
::PRIORITY
100
::PRIORITY
140
;:PRIORITY

000000
000040
000100
000140
000200
000240
000300
000340

PRO=
PR1=
PR2=
PR3=

100000

SW15=
Swi4a=
Swi3s
SWi2=
Swil=
Sw10=
Sw09Sw08=
SW07=
SW06=
Sw0S5=

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

THE STACK POINTER eee

;*MISCELLANEOUS DEFINITIONS

Lf=
(R=
(RLF=
PS=

DEFINITIONS

s *INITIAL ADDRESS OF
1000

001000

000015
000200

BASIC

10:48

LEVEL O
LEVEL 1
LEVEL 2
LEVEL 3

PR4 =

200

;:PRIORITY LEVEL &

PR6=

300

;;PRIORITY LEVEL 6

PRS=

PR7-

240

340

::PRIORITY LEVEL S

;:PRIORITY LEVEL 7

;o 'SWITCH REGISTER' SWITCH DEFINITIONS

SW04-=

SW03=

Swie-

100000
40000
20000
10000
4000
2000
1000
400
200
100
&0

20
10

CIRJJIDO, RPOL/S/6 FCTINL CIR
CZRIJD.PYY
28-MAR-79 0
718

719
720

721
722
723
724
725
726
727
728
729
730
73
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750

000002
000001

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

751
752
753
754

755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
124
772

MACY11

30A(1052)
2? -MAY-79
BASIC DEFINITIONS

Swo1=
SWoo.EQUIV
.EQUIV
.EQUIV
.EQUIV
LEQUIV
EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIvV

000020
000024
000030
000034
000060
000064
000240

4
PAGE

SEQ 0015

2
1
SW09,5w9
Sw08,5w8
SWO7,Sw7
SW06,SW6
SWO05,SW5
SWO4,SW4
SW03,SwW3
SW02,Sw?
SW01,swl
Sw00,SWO

;*DATA BIT DEFINITIONS (BITOO TO BIT15)

BIT15=
BIT14=
BI1T13=
BIT12=
BIT11=
B1110=
B1109=
B1108=
BIT07=
BI1106=
B81105=
81104=
B1103=
B1102=
8I1101=
81100=
.EQUlv
Equlv
gaulv
EaQulv
EQulv
EQulv

EQuiv
EQulv
gEaQuiv
EQuiv

000004
000010
000014
000014
000014

10:48

100000
40000
20000
10000
4000
2000
1000
400
200
100
4O
20
10
&

2
1
B1109,B8119
B81108,B118
B81107,8117
BI1106,B1T76
B81105,8115
B81104,B1T4
BI1103,B8113
B1102,B1T12
81101,8171
81100,B1T0

:*BASIC "'CPU'" TRAP VECTOR AADDRESSES

ERRVEC= &
RESVEC= 10
T1B1TVEC=14
TRIVEC= 14
BPTVEC= 14
10TVvEC= 20
PWRVEC= 24
EMTVEC= 30
TRAPVE(C=34
TKVEC= 60
TPVEC= 64
PIRQVE(=240

::TIME OUT AND OTHER ERRORS
;sRESERVED AND JLLEGAL INSTRUCTIONS
20T BIY
s TRACE TRAP
; ;BREAKPOINT TRAP (BPT)
:: INPUT/0UTPUT TRAP (107) «+S(OPEre
; sPOWER FAIL
:EMULATOR TRAP (EMT) w««ERRORer
2 TRAP'' TRAP
;3 11Y KEYBOARD VECTOR
;:T1Y PRINTER VECTOR
::PROGRAM INTERRUPT REQUEST VECTOR

CIRJJIDO, RPO4/5/6 FCINL CTRLRZ
CIRJJD.P
28-MAR-79 08:52
;;2

.SBTTL

775

000000

776

77
778
779
780
;g;

000174
000176

000174
000000
000000

ggl

TRAP CATCHER

ACT11 HOOKS

R
e R ARl

000046

000052

HOOKS REQUIRED BY ACT11
$SVPC=.

000200
000046

.=46

033104
000052
020000
000200

SENDAD
.=52
.WORD
20000
.=$SVPC

;gg

799
800

PAGE 17

; *SEQUENCE TO CATCH [LLEGAL TRAPS AND INTERRUPTS
;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS
=174
DISPREG: .WORD 0
:;SOFTWARE DISPLAY REGISTER
SWREG:
.WORD 0
; ;SOFTWARE SWITCH REGISTER
LSBTTL

786
787

796
797
798

;*ALL UNUSED LOCATIONS FROM & = 776 C(ONTAIN A ''.+2 HAIT"

785

788

10:48

.=0

;gz

789
790
791
;g%

MACYTT 30A(1052)
25-MAY-79
TRAP CATCHER

LSBTTL

000200
000206
000210

000220

000200
000137
000137

000137
000220

000137

004712
035460
004676

004662

;SAVE P(

;s 1)SET LOC.66 TO ADDRESS OF SENDAD IN .$E0OP
)
;:2)SET L0C.52 10 20000
;; RESTORE PC

STARTING ADDRESS

.=200
RA:
JMP
ADDMOD: JMP
JMP
.=220

JMP

S#BEGIN
a#BASECH
S#BEGIN?

;NORMAL START
;GET DEVICE PARAMETERS
;JUMP TO SELECT DRIVE START

a¥BEGINI

;JUMP TO NO OPERATOR TESTS START

803
ggg

;*STARTING ADDRESS 200 FOR NORMAL STARITS
;*THIS WILL TEST ALL RPO4'S ON THE SYSTEM A SINGLE DRIVE AT A TIME

gg?

'START]NG ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE

808

'START!NG ADDRESS 220 WILL JUMP OVER THE TESTS REQUIRING AN OPERATOR

:*AT

THE

DRIVE

Sea 0016

g
R
e
R
I
R
L R AR
R AR MR L
IV IV VIV TV VIRV TV TV OT V1 VT ST NY 51 N1 N}[a W 1 oW I R
VB W —=OOV® NN
WA —~O OO NS (N —= O D00 ~NO NI NP —

Qo 0o 0o o Oo Go 0o Oo 0o 0o Oo 0o 0o OB OB 00 0o OO OO OO OB O OO 0O OB 00 00 OB 0o OO 0o OB 0D OO 00 O

CIRJJDO, RPOL/S/6 FCINL CTRLR2
CZRJJD.P
28-MAR-79 08:52

847

000250

MACY11

30A(1052)

25-MAY-79

MEMORY MANAGEMENT

10:48

2
PAGE

DEFINITIONS

.SBTTL

MEMORY MANAGEMENT DEFINITIONS

;*KT11

VECTOR ADDRESS

MMVEC=

250

s*KT11 STATUS REGISTER ADDRESSES
SRO=

177572

SRZ=

177576

SR1:=

SR3-=

177574

172516

;*KERNEL ''I'" PAGE DESCRIPTOR REGISTERS
KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=

KIPDRS=

172300
172302
172304
172306
172310
172312

K1PDR6= 172314
KIPDR7= 172316

:*KERNEL ''I'" PAGE ADDRESS REGISTERS
KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KI1PAR4=
KIPARS=
K1PARG6=
KIPAR7=

001110

172340
172342
172344
172346
172350
172352
172354
172356
-1110

SEQ 0017

(ZRJJbofi\?POA/Slb FCINL CTRLR2
CIRJJID
28-MAR-79 08:52

MACY1Y

30A(1052)

25-MAY-79

COMMON TAGS

.SBTTL
SR

10:48

2
PAGE 19

Sea 0018

COMMON TAGS
X

XX AZEARANRASANEARARRA
AR
Rl dld)

:+THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

001160

001162
001164
001166
001170
001172
001174
001176
001200
001202
001204

$ICNT:
$LPADR:
$LPERR:
SERTTL:
$SITEMB:
SERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDODAT:
$80DAT:

000000
000000
000000

000
001
000000
000000
000000
000000
000000

000000

177607

077
015

.WORD
.WORD

.WORD
.WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
.WORD
SWR:
DISPLAY: .WORD
177560
$TKS:
177562
$TKB:
177564
$TPS:
177566
$1PB:
$NULL:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$REGAD: .WORD

000000
000
000
000000
177570
177570
177560
177562
177564
177566
000
002
012
000
000000

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

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

000377

$REGO:
.WORD
$REGT:
.WwORD
$REG?:
.WORD
$REGY:
.WORD
$REGS:
.WORD
$REGS:
.WORD
.WORD
$TMPO:
$TMPY:
.WORD
$TMP?:
.WORD
Y:
$TMP
.WORD
$TMPS:
.WORD
$TMPS:
.WORD
$TIMES: 0
$ESCAPE: 0
LASCIZ
$BELL:
LASCLI
$QUES:
LASCI]
$CRLF:

COO0OOOCOOOOOO—~OODOOOOO0O

$PASS:
STSTNM:
$SERFLG:

000000
000
000
000000

.=1100

DSWR

DD1SP

$CMTAG:

OO—-rNO

WNTVUPNOIPNION)
= b b s aa OO

001100

IN THE PROGRAM.

OOOOOCOOOOOOO

. *USED

::START OF
;; CONTAINS
;;CONTAINS
;;CONTAINS
;s CONTAINS
;s CONTAINS

COMMON TAGS
PASS COUNT
THE TEST NUMBER
ERROR FLAG
SUBTEST 1TERATION COUNT
SCOPE LOOP ADDRESS

;s CONTAINS SCOPE RETURN FOR ERRORS

:;CONTAINS TOTAL ERRORS DETECIED
:;CONTAINS 1TEM CONTROL BYTE
:;CONTAINS MAX. ERRORS PER TEST
;;CONTAINS PC OF LAST ERROR INSTRUCTION
;s CONTAINS ADDRESS OF 'GOCD' DATA
;:CONTAINS ADDRESS OfF 'BAD' DATA
;s CONTAINS 'GOOD' DATA
;;CONTAINS 'BAD' DATA
; ;RESERVED-=NOT TO BE USED
:;AUTOMATIC MODE INDICATOR
;; INTERRUPT MODE INDICATOR
SWITCH REGISTER
REGISTER
DISPLAY
OF
ADDRESS
s
;
: ;ADDRESS OF

::11y KBD STATUS
::7TY XKBD BUFFER

::TTY PRINTER STATUS REG. ADDRESS
::TTV PRINTER BUFFER REG. ADDRESS
;CONTAINS NULL CHARACTER FOR FILLS

..CONTAINS # OF FILLER CHARACTERS REQUIRED
lNSERY FILL CHARS. AFTER A ''LINE FEED'

“"TERMINAL AVAJLABLE'® FLAG (B11<07>-0=YES)
::CONTAINS THE ADDRESS FROM
;i WHICH (SREGO) WAS OBTAINED
:;CONTAINS C((SREGAD)+0)

::CONTAINS ((SREGAD)+?2)
;:CONTAINS ((SREGAD)+4)
::CONTAINS ((SREGAD)+6)

;:CONTAINS ((SREGAD)+10)

::CONTAINS ((SREGAD)+12)
;sUSER
:;USER
;sUSER
;;USER
USER
;s USER
;oMAX,

DEFINED
DEFINED
DEFINED
DEFINED
DEFINED
DEFINED

NUMBER OF

ITERAT]IONS

; JESCAPE ON ERROR ADDRESS
<207><377><377> ;.(0DE FOR BELL
;;QUESTICON MARK
/1?7
<15

;;CARRIAGE

RETURN

CIRJIDO, RPOL/S/6 FCINL CTRLR2
(ZRJJD.PIY
28-MAR-79 08:52
904

905

001226

000012

MACYIY

30A(1052)
25-MAY=79
COMMON TAGS
$LF:

ASCIZ

10:48

2
PAGE 20
ssLINE

Sta 0019
FEED

R R
R
R A R A R AN Rl

CIRJIDO, RPOL/S/6 FCTINL CTRLR2
(IRJJD.PN
28-~MAR-79 08:52

MACY11

30A(1052)
295-MAY-79
ERROR POINTER TABLE

10:48

PAGE 2!

gg?

LSBTTL

908
909
910
911

:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
:*THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN
:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH JTEM IN THE TABLE IS PERTINENT.
;*NOTEY:
1F SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP(C).

g}%

914

919

920
921

X
.
o
001226

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

s*NOTE?2:
o

915
916
g}g

ERROR POINTER TABLE

DH
D1
DFf

::POINTS TO THE ERROR MESSAGE

::POINTS TO THE DATA HEADER
::POINTS TO THE DATA
::POINTS TO THE DATA FORMAT

$ERRIB:

922

923
924

925
926
927
928
929
930
931
932

:1TEM

001226

043014

001230

057737

DH1

001232
001234

062210
062530

DN
DF1

001236

043043

001240

057737

DH1

001242

062210

001246

043132

951
952
95%
954

001250

057737

DH1

95¢

001252

062210

DR A!

933
8;?

936
937
938
939
940
941
942
943

944

945

34?
A

948

949
G50

955

957

958

959

960
961

0012446

001254

001256

J1TEM?

062530

[me

DF1

;1TEMS

EM3

DF1

062530

043213

EMI

J1TEMS

EM4

;RPO4 DID NOT INTERRUPT
:WAITED ON BIT DID NOT OCCUR
:PC
:WAT PC
:BIT WAITED
;REG ADDRESS
;REG CONTENTS
;RHCST CONTENTS

(S
AITBT
,WAITRE ,$BDDAT,
;$ERRPC,WAITPC,W
;0,0,0,0,0,0

;INTERRUPT ENABLE BIT DOWN BUT
;WALTED ON BIT DID NOT OCCUR
:PC
sWAT PC
;B11 WAITED
;REG ADDRESS
;REG CONTENTS
;RHCS1 CONTENTS

,$BDDAT,(S!
WAl TRE WAITBT
:SERRPC,WAITP(C,
;0,0,0,0,0,0

sRPO4 DID NOT INTERRUPT WHEN
:WAITED ON BIT DID SET
s PC
JWAT PC
:Bl1 WALTED
;REG ADDRESS
sRHCS1 CONTENTS

:SERRPC,WAITPC,WwAlTBY ,WAITRE ,$BDDAT,(S)
;0,0,0,0,0,0

;WALTED ON BIT DID SET BU!

;TIME IS IN ERROR

SEG 0020

CIRJJDO, RPO4/S/6 FCINL CTRLR2
CZRJJD.PY
28-MAR-79 08:52

060117

PAGE 22

Sea 0021

s (DECIMAL)

DH&

;PC
JWAT

;BIT WAITED
;REG ADDRESS

001262
001264

062230
062537

001266

043324

001270

060260

001272
001274

062252
062546

001276

043376

s 1TEMS

;TIME IN 10 MSEC

D14
DF&

,WAITIM
ITPC
,WAITRE ,$BDDAT
PC,WA
,WAITBT
;SERR

EMS

:RHAS DOES NOT

:0,0,0,0,0,1

CLEAR BY

:gngNG IN ALL ONcS

DHS

;REG. ADDR.
:GO0OD DATA
;RECEIVED DATA

AT
,$BDDAT
;SERRPC ,REGADR,$GDD
:0,0,0,0

s ITEMG

;LOADING RHERT FOR ALL
;UNITS DID NOT SET ANY BITS
; IN RHAS-NO UNITS PRESENT

001300

060377

;PC

001302

062266

:BESRSC.REGADR.SBDDAT

001306

043464

001310

060476

DH7

:PC

001312
001314

062300
062557

D17
DF7

;SERRPC,TEMP

001316

043534

001320

060536

001304

;REG ADDR

;RECEIVED DATA

062553
ITEM7

;1TEMI0

;SPECIFIED REGISTER NONEX]ISTANT
;SO ABORT PROGRAM

Em?

;ADDR. OF
[

EM10

DH10

REG.

;STOPED DRIVE HAS MOL BI1T
;IN RHDST =1

:PC

;TEST NO

;FAILING REG ADDR

001322
001326

062310
062562

001326

043603

001330

060535

JITEMY

-0

il
il
D
il

NO VNS W

—

b
i
el
i
D
i
e
—

[elelalolelolols]

1004

001260

1001
1002
1003

TABLE

10:48

;TIME 1S GIVEN IN 10 MICRO SEC.

—

999
1000

ERROR POINTER

998

30A(1052)

962
963
964
965
966
967
968
969
970
9N
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997

MACY11

25-MAY-79

EmM1
DH10

;CONTENTS OF RHCST
;CONTENTS OF RHCS?
;CONTENTS OF RHDSH
; CONTENTS OF RHER1
;SERRPC,$TSTNM,$BDADR,(S1,(52,DS1,ERY

:WlTH SPINDLE POWERED DOWN

;RHCS2 SHOULD HAVE ONLY
;gNl! NUMBER AND IR HIGH
;PC

CIRJJIDO, RPO&L/5/76 FCTNL CTRLRZ

CIRJID.PYY
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028

1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040

1041
1042
1043
1044
1045
" 1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059

1060

1061
1062
1063
1064
1065
1066

28-MAR-79 08:52

MACYY1

30A(1052)

25-MAY-79

ERROR POINTER TABLE

10:48

2
PAGE 23

SEQ 0022

;TEST NO
;EAILING REG. ADR

001332
001334

062310
062562

001336

043710

001340

;1TEMY?

060536

; CONTENTS
; CONTENTS
; CONTENTS
;CONTENTS

OF
OF
OF
OF

D110
DF10

;SERRPC,$TSTNM, $BDADR,(S1,(S2,DS1,ER]

EM1?2

;AFTER A POWER UP WITH
;NO PACK ACKNOWLEDGE COMMAND

DH10

;0,0,0,0,0,0,0

;ggDS1 SHOULD HAVE MOL-1, vv=0
;TEST NO
;FAILING REGISTER ADDR.

;CONTENTS OF

001342
001344

062310
062562

001346

0464016

D110
DF10

;JTEM1Z

RH(SH
RH(SZ
RHDS!
RHER)

Em3

RHCSI

; CONTENTS OF RH(CSS
:CONTETNS OF RHDS!
;CONTENTS OF RHER1

;SERRPC,$TSTNM, $BDADR,(S1,(S2,DS1 ,ERI

:0,0,0,0,0,0,0

;AFTER A POWER UP W]THOUT
sANY INJT RHCS! SHOULD

;HAVE 60=0, DVA-1, RDY-1

001350

060536

DH10

;16=0, DISREGARD
;ALL OTHER BITS

;PC
;TEST

;FAILING REGISTER ADDR.
:CONTENTS OF RHCS!

001352
001354

001356

062310
062562
044135

;1TEMTG

;CONTENTS OF RH(S?2
;CONTENTS OF RHDS!
;CONTENTS OF RHER!

D110
DF10

;$ERRPC,$TSTNM,$BDADR,CS1,(S2,DS1,ERT
;0,0,0,0,0,0,0

EM14

;AFTER POWER UP RH(C
:PC

T
,$BDDAT
;$ERRPC,REGADR,$GDDA

001360

0602¢0

DHS

001362
001364

062252
062546

D15
DFS

; SHOULD BE O

;REG. ADDR.
;GO0OD DATA
;RECEIVED DATA
;0,0,0.,0

CIRJIDO , RPO&/ 5/6 FCINL CTRLR2
P
Y
CIRJJD.PI
28-MAR-79 08:52
1067
1068
1069
1070
10N
1072
1073
1074
1075

06420/

30A(1052)

25-MAY-79

ERROR POINTER TABLE

;1TEMIS

EM1S

N=OOVONO
N LW
=2OO0®NO N (V]

b
e

=
el
el

i
D
) sl

-l —
)

D e

il ol

il el
il

D
ol

i
sl

i
el

D el
il

) e
—

10:48

2
PAGE 26

SEQ 0023

;PACK ACKNOWLEDGE
;AN ERROR

CAUSED

;GOOD DATA IS BEFORE COMMAND
;RECEIVED DATA IS AFTER COMMAND

001370

060260

;PC

001372
001374

062252
062546

; SERRPC ,REGADR,$GDDAT
,$BDDAT

001376

044350

;REG. ADDR.
;600D DATA
;RECEIVED DATA
;0,0,0,0

1TEMIG

;:GIVING A NO-OP COMMAND CAUSED
;AN ERROR

:GOOD DATA GIVES REGISTER
;CONTENTS BEFORE COMMAND
:RECEIVED DATA GIVES REGISTER
001400

060260

001402
001404

062252
062546

001406

064476

; CONTENTS AFTER COMMAND

;PC

;REG. ADDR.
;G00D DATA
;RECEIVED DATA
,$BDDAT
; SERRPC,REGADR,$GDDAT
;0,0,0,0

S1TEMY7

:DRIVE CLEAR COMMAND
s CAUSED AN ERROR

;600D DATA GIVES WHAT

.BE THERE

SHOULD

;RECEIVED DATA GIVES WHAT WAS
; THERE

AFTER

COMMAND

001410

060260

;PC

001412
001414

062252
062546

DDAT
s SERRPC ,REGADR,$G,$BDDAT

;REG. ADDR.
;GO0OD DATA
;RECEIVED DATA

1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101

001366

MACY11

001416

044633

:0,0,0,0

;1TEM20

EM20

;READ-IN COMMAND GAVE AN ERROR
;:GOOD DATA HAS WHAT SHOULD BE THERE
JRECEIVED DATA HAS WHAT WAS

001420

060260

DHS

001422
001424

062252
062546

D15
OF5S

001426

045002

JITEM

gEm2

:SFYER COMMAND
:PC

;REG. ADDR.
:6GO0D CATA
;RECEIVED DATA
AT
,$BDDAT
;SERRPC ,REGADR,$GDD

:0,0,0,0

;RHCST

CONTENTS DURING

. COMMAND WAS N ERROR

s i
e
h i e e

s o e e
et oD o e

e e e o e
i D e e
e e e i
d wh e ed o

e o e i il i
e o
D e el e

e
e

D
D

D o e
D oD e

NNNNNNNNNOOCOCOCOCOCOCOCORVVUVWVWVNWVWVMWNWNWNE

e s e
D o el

h e
D s

D
D

D e e i
D ) D e

e
e

i oD i
d el e

SNSRI RN I N

WNOO VNS NN —=OO0D~NO wbum—oomwouvbwrv—-oooowombuw—aoomwgwrumfigomNOmr

e B D D D el il s o e
D e A e i e e it D e

i
s

d o
i e ey

[N 1,0 1,91, ST, V7, V][a Y]

CIRJIJDO, RPOL/5/6 FCTINL CTRLR2
(ZRJJD P11
28-MAR-79 08:52
001430
001432
001434

MACY1T

30A(1052)

ERROR POINTER TABLE

045055

001440
001442
001446

060260
062252
062546

001446

045130

001450
001452
00145¢

060260
062252
062546

001456

045277

001460
001462

001464

060260
062252
062546

001466

045442

10:48

2
PAGE 2>

SEQ 0024

DHS
DT
DFS

060260
062252
062546

001436

25-MAY-79

J1TEM 22

EM22

DHS

;RHDS1 CONTENTS DURING
;COMM ANS WAS IN ERROR

D15

DF5S

J1TEM 23

Eme3

DM5
DT5
DFS

;1TEM 24

EM24

;UNLOAD COMMAND GAVE AN ERROR

.GO0D DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT WAS
. THERE

AFTER

COMMAND

;OFFSET COMMAND CAUSED AN ERROR
;GOOD DATA IS WHAT SHOULD BE THERE
;RECEIVED DATA GIVES WHAT WAS THERE
;AFTER

AN OFFSET

COMMAND

DHS
DTS
DFS

;1TEM 25

EM25

;RETURN TO CENTER LINE COMMAND
: CAUSED AN ERROR
;GO0OD DATA GIVES WHAT SHOULD BE
: THERE

;RECEIVED DATA GIVES WHAT WAS
; THERE

001470
001472
001474

060260
062252
062546

001476
001500

045624
066715

001502
001504

062330
062571

001506

045714

AFTER

COMMAND

DHS
D15
DFS

;ITEM 26

EM26
DH26

D126
DF26

J1TEM 27

Eme7

:3?0 OFFSETS CAUSED AN ERROR

;CONT. OF RM(CSI
:CONT. OF RH(CS?
:CONT. OF RHDSI
:CONT, OF RHER1
;CONT, OF RHER?
;CONT, OF RMER3
SERRPC,CS1,(S2,DSY,ERT,ER2,ERY
:0,0,0,0,0,0,0
;WRITE HEADER AND DATA
; CAUSED IMPROPER REGISTER CHANGE

CIRJIJIDO, RPOG/S/6 FCTINL CTRLR2
8:52
ID.PIY
CIRJJ
28-MAR-79

MACY1Y

Y=-7 9
:
PAGE 26
10:48
25-MA
tERROR POINTER TABLE

30A(1052)

00 0o OB
VOOV
DO ~NO OOVOOO
N NN - OV~
8% (o T ] S 0D
(VL P N VT

D i ol o sd el
D sl ol el oo e
) it
sl el
D s il ) D D e el D i il i i
IRV
ot o cnd d s o il il e o

DHS
DTS
DFS

001510
001512
001514

060260
062252
062546

001516

046132

001520

061115

DH30

001522
001526

062352
062601

D130
DF 30

001526

046212

;1TEM 30

J1TEM 31

EM30

EM31

;WAS THERE AFTER COMMAND

;WRITE HEADER AND DATA
;ggANGED WRITE FROM BUFFER

JWORD NO
;GO0OD DATA
;BAD DATA

,$BDDATT
;SERRPC,ERWORD,$GDDA
;0,0,0,0

:READ HEADER AND DATA (CAUSED

; IMPROPER REGISTER CHANGE
;600D DATA HAS WHAT SHOULD
;BE THERE

:RECEIVED DATA GIVES wHAT

il e

[«

(=]

s b b Q0O

WA —~0O0 o -]
NN

ot b b b ad

N WVNE W 2OV

AN PO PO PNOPNORINI RO NI N —
(NN

BN~ OO0V

D o
D
i
D
D i
D
D el
D rid
D
el
il e
e
S e
i
e
e
i e
il e
—

SEQ 0025

;600D DATA GIVES WHAT
; SHOULD BE THERE
;RECEIVED DATA GIVES WHAT

1179
1180
181

roRurRUrU RO RO RN NRUNU RN RN R RNV RV R RU N PO R RO PO Y

001530
001532
001534

060260
062252
062546

001536

046427

001540
001542
001544

061115
062352
062601

001546

046534

DHS
D15
DFS

;1TEM 32

EM32

DH30
0130
DF30

;1TEM 33

EM33

:WAS THERE AFTER COMMAND

;WRITE HEADER AND DATA FOLLOWED
;BY A READ HEADER AND DATA

;CAUSED A READ/WRITE ERROR

;READ DATA CAUSED ]MPROPER REGISTER
; CHANGE

:6G0.D DATA GIVES WHAT SHOULD BE THERE
:RELEIVED DATA GIVES WHAT WAS THERE AFTER
001550
001552
001554

001556
001560
001562
001564
001566

; COMMAND

060260
062252
062546

046736
061115
062352
062601
046762

J1TEM 34

S1TEM 35

EM34
DH30
D130
DF 30

;READ DATA

EM3S

;WRITE DATA COMMAND CAUSED

INCORRECT

; IMPROPER REGISTER CHANGE

IRJJDO, RPO4/S/6 FCTNL CgR%gZ
P11
28-MAR-79
CIRJJD.P

MACY11

30A(1052)

25-MAY-79

ERROR POINTER TABLE

10:48

2
PAGE 27,

SEQ 0026

;600D DATA GIVES WHAT SHOULD BE THERE
;RECEIVED DATA GIVES REGISTER
001570
001572
001574

060260
062252
062546

001576

047200

001600
001602
001604

061115
062352
062601

001606

047255

DH)S
DTS
DF5

:1TEM 36

EM36
DH30
0130
DF30

J1TEM 37

EM37

gmmmmmwwwwwww\l\l
PN
OOV
NOWVEWN—=O

b
i
el T
D el
il ol e
i
el

RPN AR RSN RO AU NI NN

i
i
il

Oo OO
~Oo

— —d

rnone;NN

1288
1289
1290

;WRITE DATA COMMAND CHANGED
;WRITE FROM BUFFER

;SEEX COMMAND CAUSED AN
;ERROR
;GO0OD DATA GIVES WHAT

SHOULD

;WAS

(OMMAND

;BE THERE
RECEIVED DATA GIVES WHAT

57
58

;CONTENTS AFTER WRITE DAYA

001610
001612
001614

060260
062252
062546

001616

047472

001620
001622
001624

060260
062252
062546

001626

047701

DHS
D15
DFS

;1TEM 40

EM4O

DHS
D15
DFS

JITEM

EM4T

THERE

;WRITE

AFTER SEEK

CHECK

CAUSED AN

; IMPROPER REGISTER CHANGE

;600D DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT WAS
: THERE AFTER COMMAND

;LOCKING OUT WRITES BY WRITE
;LOCK BUTTON CAUSED IMPROPER
;REGISTER CHANGE

;600D DATA GIVES WHAT SHOULD
;BE THERE

RECEIVED DATA GIVES WHAT
;WAS THERE AFTER WRITES
;WERE

001630
001632
001634
001636

DHS
D1S
DF5S

060260
062252
062546
050162

J1TEM &2

EM42

LOCKED OUT

;BUTTON

;ATTEMPTING TO WRITE WITH WRITE

:LOCKED OUT CAUSED IMPROPER
“sREGISTER CHANGE
.G00D DATA GIVES WHAT SHOULD
.BE THERE

(IRJJDO, RPO4L/S/6 FCINL CTRLR2
CIRJJD.PN
28-MAR-79 08:52
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300

MACY11

25-MAY-79

30A(1052)

ERROR POINTER TABLE

10:48

PAGE 28

SEQ 0027

;RECEIVED DATA GIVES WHAT WAS
001640
001642
001644

060260
062252
062546

001646

050440

;THERE

J1TEM 43

EML3

[}
.

1301

AFTER ATTEMPT

;WRITING WITH WRITE

LOCKED

;0UT CHANGED DISK DATA
;600D DATA GIVES WHAT WAS
;ON DISK BEFORE WRITE WITH
;WRITE LOCK WAS ATTEMPTED

;RECEIVED DATA GIVES WHAT WAS
;READ BACK AFTER WRITE WITH

1346

001654

001656

DH30
0130
DF30

061115
062352
062601
050776

JITEM 44

EML4

;WRITE LOCK WAS ATTEMPTED

;ENABLING WRITES BY WRITE LOCK
;BUTTON CAUSED AN ERROR
;600D DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT WAS
;THERE

001660
001662
001664

060260
062252
062546

001666

051270

DHS
D15
DFS

J1TEM 45

EMLS

AFTER WRITE

LOCK

;BUTTON ENABLED WRITES
’

; TRANSFERRING ON LAST

BLOCK

:6410, SECTOR 21, TRACK 18
:CAUSED IMPROPER REGISTER

IE.

; CHANGE

;G0O0D DATA GIVES WHAT SHOULD
;BE THERE

;RECEIVED DATA GIVES WHAT WAS

060260
062252
062546

001676

051576

001700
001702
001704

061115
062352
062601

001706

051722

JITEM 46

“—QI

001670
001672
001674

EMLE

DH30
0130
DF30

JITEM &7

AFTER

TRANSFER

(VAR
AV

;THERE

NO NS WA —=OD
OO0V
NOP VR NN =OOVONO VS WN
= OV
W

&H»

A ]f

ddddddd_‘dfldddddd-‘-dddddd—.dfld—‘ddd-fldddd

D e et
e d s et b b (O
\gwuwuuuwuuuumuuuuuwwwwuwuuuwuuuwuwwu
P O N
VTRV IV TV RV I
TV TV ST V] V1, V] Vi) PNIPNININD

001650
001652

EM4?

;DATA READ FROM LAST
;BLOCK 1E. CYLINDER 410
;SECTOR 21, TRACK 18 IS IN
;ERROR

; TRANSFERRING FROM NONEXISTANT

:SECTOR CAUSED IMPROPER

CYLINDER

CIRJJIDO, RPO&L/S5/6 FCTNL CTRLR2
CIRJID.PY
28-MAR-79 08:52

MACY11

30A(1052)

25-MAY-79

ERROR POINTER

TABLE

10:48

3
PAGE 29

SEQ 0028

;REGISTER CHANGE
;GO0D DATA GIVES WHAT SHOULD
.BE THERE
;RECEIVED DATA GIVES WHAT WAS

1347

;THERE AFTER ATTEMPTED
; TRANSFER

060260
062252
062546

; TRANSFERRING FROM NONEXISTANT

052204

001720
J01722
01724

061115
062352
062601

001726

052423

OH30
D130
DF 30

J1TEM S5

EMS1

;SECTOR CAUSED DATA ERROR
;GO0D DATA GIVES WHAT
: SHOULD BE IN BUFFER
;RECEIVED DATA GIVES WHAT WAS,
;IN BUFFER AFTER TRANSFER

;GIVING ILLEGAL FUNCTION CAUSED
; IMPROPER REGISTER CHANGE
:?OEREDAIA GIVES WHAT SHOULD BE
;TH

:RECEIVED DATA GIVES REGISTER

001730

DH51

061227

001732
001734

062366
062606

001736

052670

;g?NTENTS AFTER

;REG. ADDR.
;:GOOD DATA

;RECEIVED DATA
;ILLEGAL FUNCTION

:$ERRPC,REGADR,SGDDAT
,$BDDAT, ILLEGL

;0,0,0,0,0

:WRITE DATA ON NONEX]STANT
;SECTOR CAUSED IMPROPER
;REGISTER CMANGE
;600D DATA GIVES WHAT SHOULD
;BE THERE
sRECEIVED DATA GIVES WHAT
:WAS THERE

001740
001742
001744

060260
062252
062546

001746

053141

001750
001752
001754

061115
062352
062601

ILLEGAL FUNCTION

sWRITE DATA

J1TEM 53

EMS3
DH30
D130
DF 30

AFTER ATTEMPTED

;READ HEADER AND DATA AFTER
;A SEARCH CAUSED AN ERROR

CIRJJIDO, RPO4L/S/6 FCINL CTRLR 2

CZRJJD.P1Y

28-MAR-79 08:52

1403

1604

1405
16406
1407
1408
1409
1610
1411
1412
16413
1414
1415

1616
1417
16418
1419

001756

053227

001760
001762
001764

060260
062252
062546

001766

053474

001770
001772
001774

060260
062252
062546

001776

053762

MACY1Y1

30A(1052)

25-MAY-79

ERROR POINTER TABLE
;1TEM 54

EMS4

DHS
DTS
DFS

:1TEM 55

EMSS

1620

1621
1422
1623
1626
1625
1626
1627

1428

1429
1430
1431
1432

DHS
DTS
DFS
:1TEM 56

EM56

1433

1634
1635

1436
1437
1438
1439

16440

1441
16462
1443
1444

16450
1451

1652

1453

1454
1455
1456
1457
1458

3
PAGE 20

;ATTEMPTED OPERATION WITH
:INVALID ADDRESS CAUSED
: IMPROPER REGJSTER (HANGE
:GO0D DATA GIVES WHAT SHOULD
;BE THERE
sRECEIVED DATA GIVES WHAT WAS
:THERE AFTER OPERATION

:WRITING/READING WITH EXPECTED
:ADDRESS OVERFLOW ERROR CAUSED
:1MPROPER REGISTER CHANGE
:GO0D DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT
:WAS THERE AFTER OPERATION

:DATA READ WITH AN EXPECTED
:ADDRESS OVERFLOW ERROR 1S
;s INCORRECT
:WORD NO 1 TO 260 SHOULD
;BE READ

002000
002002
002004

002006

061115
062352
062601

054172

DH30
DT30
DF 30

:1TEM 57

EMS7?

16445

1446
16647
14648
16449

10:48

:WORD NOS 261 10 266 SHOULD
:NOT CHANGE DUE TO READ

sATTEMPTING DATA COMMAND
;WITH WRONG FORMAT BIT CAUSED
:IMPROPER REGISTER (HANGE
:GOOD DATA GIVES WHAT SHOULD BE
: THERE

002010
002012
002014

060260
062252
062546

002016

054464
N

DHS
D15
DFS
- ]1TEM 60

EM60

sRECEIVED DATA GIVES WHAT WAS
:THERE AFTER ATTEMPTED DATA
: TRANSFER

ATTEMPTING 10 MODIFY REGISTER
;DURING AN OPERATION CAUSED
; IMPROPER REGISTER C(MHANGE
;600D DATA GIVES WHAT SHOULD
;BE THERE

SEQ 0029

CIRJJIDO, RPO4L/S/6 FCINL CTRLR2

CIRJJID.PV
1459
1460
1461
1462

1463

1464
1465
1466

1667
1468

1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479

1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
16491
1492
1493
1694
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505

28-MAR-79 08:52

MACY1T1 30A(1052) 25-MAY-79
ERROR POINTER TABLE

10:48

PAGE ?I

SEQ 0030

;RECEIVED DATA GIVES WHAT WAS

;THERE AFTER OPERATION
;WAS COMPLETE

002020

061366

DH60

002022
002024

062404
062614

D160
DF60

;REG. ADDR.
;GOOD DATA
;RECEIVED DATA
;MODF ING REGISTER
,$BDADR
$GDDAT
,$BDDAT
:SERRPC ,REGADR,
;0,0,0,0,0

002026
002030

055073
061523

EM6

:DEVICE NOT AVAIBLE BEFOR (OMMAND WAS TO BE GIVEN

002032
002034

062422
062622

002036
002040

055073
061615

002042
002044

062434
062626

002046

055157

002050
002052
002054

060260
062252
062546

002056

055232

;1TEM 61

DH61

D161
DF61
s1TEM 62

JITEM 63

EM6T

:PC

;PC OF
s RHDS1

JSR

;SERRPC,PCJSR,$BDADR
:0,0,0

:DEVICE NO! AVAIBLE BEFOR COMMAND WwAS TO BE GIVEN

DH62

:PC

D162
DF62

:SERRPC,PCJSR,$BDADR
;0,0,0

EM63

:RHDS1 CONTENTS DURING
; COMMAND WAS IN ERROR

DHS
D15
DFS
J1TEM 64

;PC

EM64

;PC OF JSR
;RHCST

WAS

;RECALIBRATE COMMAND (AUSED
; IMPROPER REGISTER CMANGE.,

:?OggEDAIA GIVES WHAT SHOULD BE
:TH

:RECEIVED DATA GIVES WHAT WAS THERE
;AFTER

002060
002062
002064

COMMAND

DHS
D15
DFS

060260
062252
062546

J1TEMGS
002066
002070

055651
061670

EM6S
DH65S

:INTERRUPT FAILING
;PC
;VEST NO

:CONTENTS OF RH(S!
;CONTENTS OF RHAS
sCONTENTS OF RHDS?

002072
002074

062646

002076

055473

;1 TEMGS

EM66

10:48

3
PAGE

SEQ 0031

;SERRPC,TSTNM, (S1,AS,DS]T
:0,0,0,0,0

;HEADER AND DATA (OMMAND

;FOR HEAD SELECTION TEST

:CAUSED AN ERROR

;RHDST GIVES WHAT

TRAC(CK

:WAS BEING WRITTEN ON CYLINDER O

002100

062004

DH66

;SECTGR 0
;PC
;RHDST

:RHERI
;RHER?2
:RMER3
;RHCST
;RHCS2

002102
002104

062462
062637

002106

055704

C1TEMG7

D166
DF 66

:SERRPC,DST,ERT,ER2,ER3,(S1,(S2

EM67

:READ HEADER AND DATA ERROR

;IN HEAD SELECTION TEST

;FIRST

FOUR WORDS GIVE

;NEXT WORDS ARE DATA
;600D DATA WORDS GIVE
: THE

061115
062352
062601

;1TEM70

DH30
D130
Df 30

EM70

TRACK

NUMBER

;B17S 4,5,6,7.8

HEADER

;READ HEADER AND DATA ERROR

;IN DIFFERENCE LINE TEST
;WORD NOS. 1-4 GIVE
;HEADER

;WORD NOS. 5-260 GIVE DATA
;WHICH IS THE CYLINDER

002120
002122
002124
002126

DH30
D130
DF 30

061115
062352
062601

056366

;1TEM T

Em71

. ADDRESS

;FORCING OP]1
;.

{HANGE

CAUSED

IMPROPER REGISTER

;600D DATA GIVES WHAT SHOULD
;BE THERE

060260

DHS

002132
002134

062252
062546

002130

OOV®NOWNE
W= O

D165
Dt 65

062632

056160
(WYY IV IV IV IV IO TV IV IV_ IV}
o (VANV AV RV AV RV LV LV LV, Y

30AC1052)
25-MAY-79
ERROR POINTER TABLE

(O 20

W 2OV
NO NP WO OB NO NS WA

=000~

[V IV RV TV IV IV IV IV IV IV IV IV IV IV TV TV TV TV IV IV IV IV IV IV LV IV W IV IV ]
B8 BB N
N AN N NN N N NN NN NI AU NI NI RO NN = =2 e
s

CIZRJJIDO, RPOL/S/6 FCTINL (IR LR 2
CZRJJD.P1Y
28-MAR-79 08: 52

MACY1Y

RECEIVED DATA GIVES WHAT WAS
:;QERE AFTER 3 INDEX PULSES
:REG. ADDR.
;GOOD DATA
;RECEIVED DATA
AT
,$BDDAT
;SERRP( ,REGADR,$GDD

:0,0,0.,0

[0 Jo Jo ) OO
NNNNVNNNN~N
~O W P NN 2OV
NO NS NP

—

il el

[V RV LV TV, SV RV LV VW LV LV IV IV IV IV IV ]

0, RPO4/S5/6 FCTINL CTRLR2
28-MAR-79 08:52
P

002136

056627

MACY1T1

30A(1052)

25-MAY-79

ERROR POINTER TABLE

J1TEM7?

EM72

10:48

PAGE

SEQ 0032

; THERE WAS AN ERROR

JAFTER A WRITE

HEADER

+AND DATA COMMAND
002140

DHT?2

062102

;PC

RHCS!
;RHCS?
s RHDSI
;sRHDST
sRHMCA

s RHER]

002142
002144

062504
062650

002146

057075

002150
002152
002154

062102
062504
062650

002156

057245

002160
002162
002164

062102
062504
062650

D172
DF72

s RHW(

;SERRPC,CS1,CS2,DS1,DST,CAERY
,W(

;0,0,0,0,0,0,0,0

1588
1589

1590

1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605

:1TEM73

EM73
DH72
D172
DF72

J1TEM74

EM74

DHT72
D172
DF 72

;READING OVER 3 INDEX
;PULSES CAUSED

;READING OVER 3
sPULSES

[NDEX

CAUSED OPI

—

CIRJJIDO, RPOL/S5/6 FCTINL (7 RLR2
CIRJJD.PVY
28-MAR-79 08 152
1606

OOV~
NP —

el
kel

R R

TABLE

R X

“RH11 REGISTER BITS

R X

X R

3
PAGE 24
R

R X

SEQ 0033

KSRERXRRREAREEZRZAZZARRRRRAS
AR D)

;:'.""Q""'""""""""Q'"'"""'.""'Q"'.'QI""""'

002166

000254

RPVEC:

254

;kP0O& VECTOR ADDRESS

el onl

el
D
el o
o

ERROR POINTER

10:48

b vl nd ol ol

25-MAY=-79

;WORD COUNT REGISTER (RHW(C)
;EACH BIT IS CALLED BY BIT NUMBER

)

—

cocococococoocoo

30A(1052)
B

1607

1608
1609
1610

MACYIT

:BUS ADDRESS REGISTER (RHBA)

;EACH BIT

IS CALLED BY BIT NUMBER

;CONTROL AND STATUS REGISTER 2 (RHCS?2)
000001
000002
000004
000010
000020
000040
000100

000200
000400

001000
002000
004000
010000
020000
040000

100000

usi=
us2s
US4-

BA]=

UNIB-=
(LRIR=
OR=

MPE
MXF
=
PGE
=

NEM=
NED-=
UPE=
W(E=

DLT-

1
2
4
10
2C
40
100

;UNIT SELECT
;UNIT SELECT
SUNIT SELECT

1000
2000
4000
10000
20000
40000
100000

;MISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #10)
;NON EX]STANT MEMORY (BIT #11)
;NON EXISTANT DRIVE (BIT #12)
;UNIBUS PARITY ERROR (BIT #13)
;WRITE CHECK ERROR (BIT #14)
;DATA LATE (BIT #15)

200
400

(BIT #0)
(BIT #1)
(BIT #2)
;BUS ADDRESS INCREMENT INHIBIT
;UNIBUS B DC LO (BIT #4)
;CLEAR (BIT #5)
; INPUT READY (BIT #6)

;OUTPUT READY (BIT #7)
;MASS BUS PARITY ERROR (BIT #8)

;DATA BUFFE R REGISTER (RHDB)
JEACH B]T 1 S CALLED BY BIT NUMBER

(BIT #3)

(IRJJIDO, RPO4/S/6 FCINL CTRLR2
CIRJJD.PIY
28-MAR-79 08:5?

MACY1T

25-MAY-79
30A(1052)
ERROR POINTER TABLE

10:48

PAGE

SEQ 0034

1653
1654
1655
1656

;';'0"""""""""'""'""""'""'t'.""""""'""tt'
:RPO4 REGISTER BITS

‘gzg

;CONTROL AND STATUS 1 REGISTER. (#00)

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

1657
1658

1661

000001

60=

1663

000200

RDY:=

207

001000

AY7:=

1662

000100

1664

000400

1666

002000

1665

1667
1668
1669
}g;?

004000
020000
040000
100000

}6;§
6

1E-

A6=
PSEL=

DVA=
MCPE=
TRE=
SC=

100

1000

2000

4000
20000
40000
100000

;STATUS REGISTER (RHDS1)
000001
000002

DFFS5=
DFF20=

1677
1678

000010
000020

GRV=
DLO4=

1680
1681

000100
000200

E
DRY=

1683
1684
1685
1686
1687
1688

001000
002000
004000
010000
020000
040000

PROG=
LBT=
WRL =
MOL =
PIP=
ERR=

000001
000002

:ERROR REGISTER #01
ILF=
1
ILR=
2

1679

1682

1689

1690

1691
1692
1693

1694

1695
1696
1697
698
1699
1700

1701

1702
1703
1704
1705
1706
1207

1708

000004

000040

000400

100000

000004

000010
000020
000040
000100
000200
000400

001000

002000
004000
010000
020000
040000
100000

DIGB=

10
20

DPR:=

400

RMR =

PAR:
fER=
WCF =
ECH=
HCE =
HCRC=

AQE =

JAE:=
WLE=
DTE=
OP]:
UNSDCK-

(BIT #0)
;DRIVE FORWARD 5°''/SEC.
(BIT #1)
C.
20''/SE
D
;:DRIVE FORWAR
(BIT #2)
BAND
GAVRD
;:DRIVE TO INNER
#3)
;GO REVERSE (BIT

ATA:=

(#01)

1
2

DE1:=

;OIFFERENCE LESS THAN 64 (BIT #6)
;DIFFERENCE EQUALS 1 (BIT #5)
:VOLUME VALID (BIT #6)
:DRIVE READY (BIT #7)
;DRIVE PRESENT (BIT #8)
; PROGRAMABLE (BIT #9)
;LAST SECTOR TRANSFERRED (BIT #10)
;MRITE LOCK (BIT #11)
;MEDIUM ON-LINE (BIT #12)

100
200

1000
2000
4000
10000
20000
40000

;POSITIONING OPERATION IN PROGRESS (BIT #13)
; COMPOSIT ERROR. (BIT #14)

100000

10
20
40
100
200
400

1000

2000
4000
10000
20000
40000
100000

(BIT #6)

;READY (BIT #7)
;H1GH ORDER UNIBUS B!TS (BIT #8)
;HIGH ORDER UNIBUS BITS (BIT #9)
;PORT SELECT (BI1T #10)
;OEVICE AVAILABLE (BIT #11)
;MASSBUSS PARITY ERROR (BIT #13)
; TRANSFER ERROR (BIT w14)
;SPECIAL CONDITION (BIT M15)

400

1674
1675

1676

;G0 (BIT #0)

; INTERRUPT ENABLE

;ATTENTION ACTIVE

(RHER1)

(BIT #15)

(#02)

:ILLEGAL FUNCTION (BIT #0)
:ILLEGAL REGJSTER (BIT #1)
;REGISTER MODIFJCATION REFUSED (BIT #2)
;PARITY ERROR (B]T #3)
;FORMAT ERROR (BIT #4)

;WRITE CLOCK FAIL (BIT #5)
;ECC HARD ERKOR (BT #6)
;HEADER COMPARE ERROR (BIT #7)
;MEADER CRC ERROR (BI1 #8)
;ADDRESS OVERFLOW ERROR (BIT #9)
; INVALID ADDRESS ERROR (BlT #10)
;WRITE LOCK ERROR (BIT #11)
;ORIVE TIMING ERROR (BT #12)
;OPERATION INCOMPLETE (BIT #13)
;ORIVE UNSAFE (BIT #14)
;DATA (HECK ERROR (BIT 15)

CIRIJIDO, RPOL/S/76 FCTINL CTRLRZ
28-MAR-79 08:92

30A(1052)

25-MAY-79

ERROR POINTER TABLE

10:48

;MAINTAINABILITY REGISTER

000001
000002
000004
000010
000020
000040
001000

000001
000002
000004
000010
000020
000040
000100
000200

DMD=

MCLK=
MINX=

2
&

MRD =

MsSTCk=

MWR =
DISY=

3
PAGE 26

SEQ 0035

(RHMR)(#03)

;DIAGINOSTIC MODE (BIT #0)

40
1000

sMAINTAINABILITY CLOCK (BIT #1)
sMAINTAINABILITY INDEX (BIT #2)
;MAINTAINABILITY SECTOR CLOCK (BIT #3)
;MAINTAINABILITY READ (BIT #6)

;MAINTAINABILITY WRITE (BIT #5)
;MAINTAINABILITY SYNC DETECTED (BIT #9)

;ATTENTION SUMMARY PSEUDO-REGISTER (RHAS)

(#04)

A10=
AT1=
AT2=
AT3-

1
2
4
10

;DEVICE
;DEVICE
;DEVICE
;DEVICE

(BIT
(BIT
(BIT
(BIT

AT5=

;DEVICE 5 (BIT #5)

AT7=

200

AT4=

AT6=

O
1
2
3

;DEVICE &

100

;DEVICE 6

#0)
#1)
#2)
#3)

(BIT #4)
(BIT

#6)

;DEVICE 7 (BIT #7)

;DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (#1)

W= OO0V

;EACH BIT

IS CALLED BY BIT NUMBER

;DRIVE TYPE REGISTER (RHDT) (#06)
;EACH BIT IS CALLED BY BIT NUMBER

SEXTENSION 1 (

;EXTENSION 3 (

)
)
) o

o~
o~

:SECTOR COUNT
;SECTOR COUNT
s SECTOR COUNT
;SECTOR COUNT
:TRACK FIELD 1
;TRACK FIELD ¢
;TRACK FIELD 3

;EXTENSION 6 (
;SECTOR COUNT

it Gt

200
400
1000
2000
4000
10000
20000

40
100

et Gt

(

SEXTENSION § (

;EXTENSION &

B 7~

;EXTENSION 2 (

———OOO®

h
tt
QOO N

= MOy
= 5N\~ — ——
=

AU
— OO U

OO X x>
0 WO

— ANV mm

ExY
EXT
EXT

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
01000C
020000

PN
=

;LOOK-AHEAD REGISTER (RHLA) (#07)

—

WO VBN

NS W00

NP NS W

—O

N;‘\‘\‘NNN\‘NVNNNNNNNNNNNNNNNNNN\‘NNNNNN
PN N NPT N AN AN N AN AN NI NI PRI PRI NI NI PO NI NI N
b s s s et b et b et

CIRJJD.PVY

MACYTT

)

")
’8,
")
#$10)

CIRJIJDO, RPOGL/S/6 FCTINL CTRLR2

CIRJJD.PN
1765
1766
1767
1768

28-MAR-79 08:52
040000

100000

MACY1T 30A(1052)

25-MAY-79

ERROR POINTER

TRK10=
TRx20=

TABLE

10:48

100000

W(y=
(Sk=
WSy=
(Su=
MSE -

20
40

FEN=
WRU=
MHS =
NHS=
IXE=
vu30=
PLU=
ACu-=

200
400
1000
2000
4000
10000
20000
100000

SEaQ 0036

;TRACK FIELD 4
;TRACK FIELD 5

(BIT #14)
(BIT #15)

(#10)

1
2
4
10

1DF =
TUF =

PAGE ¥/

40000
100000

;ERROR REGISTER.#2 (RHMER2)
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000

;WRITE CURRENT UNSAFE (BIT #0)
; CURRENT SINK FAILURE (BIT #1)
;MRITE SELECT UNSAFE (BIT #2)
:CURRENT SWITCH UNSAFE (BIT #3)
;MOTOR SEQUENCE ERROR (BIT #&)

;TRANSITIONS DETECTOR FAILURE

100

:TRANSITIONS UNSAFE

(BIT #6)

(BIT #5)

;FAILSAFE ENABLED (BIT #7)
;WRITE READY UNSAFE (BIT #8)
;MULTIPLE HEAD SELECT (BIT #9)
;NO HEAD SELECTION (BIT #10)
: INDEX ERROR (BT #11)
:30VOLT UNSAFE (BIT #12)
;PLO UNSAFE (BIT #13)
;ACUNSAFE (BIT #15)

;OFFSET REGISTER (RHOF) (#11)
000001
000002
000004
000010
000020

0F25=
OF50=
OF100=
QF200=
0F400=
OF800=

1
2
&
10
20
40

000200
002000
004000
010000

OFREV=
HCl=
ECI=

200
2000
4000

000040

FMT22=

’

10000

;OFFSET
;OFFSET
;OFFSET
;OFFSET
;OFFSET
;OFFSET

25 MICRO INCHES (BIT #0)
50 MICRG INCHES (BiT #1)
100 MICRO INCHES (BIT #2)
200 MICRO INCHES (BIT #3)
400 MICRO INCHES (BIT #6)
800 MICRO INCHES (BIT #5)

;OFFSET NEGATIVE (REVERSE) (BIT #5)
;HEADER COMPARE INHIBIT (BIT #10)
;ERROR CORRECTION CODE INHIBIT (BIT #11)
;FORMAY BIT

(BIT #12

;DESIRED CYLINDER ADDRESS (RHCA) (#12)
;EACH BIT IS CALLED BY BIT NUMBER.

;CURRENT CYLINDER ADDRESS (RHCC) (#13)

;SERIAL NUMBER REGISTER (RHSN) (#14)

;EACH 1S CALLED BY BIT NUMBER

e
[

]

[ RVeYe BVTe RV PJVLSE_Jo
L o

)

Oo 0o G0 0D O 0o O Oo OO 0O OO OB

;EACH BIT IS CALLED BY BIT NUMBER

:ERROR REGISTER #03 (RHER3) (#15)
000001

PSU=

;PACK SPEED UNSAFE (BIT #0)

N NN
(S
) i —O
N LM

oo 0o 0o 0o 00 0o

—

[ ¥]

CERIIDO, RPOG/S5/76 FCTINL CTRLRZ
CIRJJD.PN
28-MAR-79 08:52

1836
1837
1838
1839

000002
000010
000020
000040
000100
040000
100000

MACY1T

30A(1052)

25-MAY-79

ERROR POINTER TABLE

10:48

3
PAGE 38

VUF =

;VELOCITY UNSAFE (BIT #1)

PRE =

:DISK PACK ROTATION ERROR (BIT #4)

UWR =
ACL=
DCL=
SKl=
oCvL=

40
100
40000
100000

;ANY UNSAFE EXCEPT READ/WRITE (BIT #3)

;AC LOW (BIT #5)
;0C LOW (BIT #6)

;SEEX INCOMPLETE (BIT #14)
:OFF CYLINDER (BIT #15)

;ECC POSITION REGISTER (RHEC1) (#16)
;EACH BIT IS CALLED BY BIT NUMBER

;ECC PATTERN REGISTER (RHEC2) (#17)
;EACH BIT IS CALLED BY BIT NUMBER

SEQ 0037

CIRJJIDO, RPO4/S/6 FCINL CTRLR2

CIRJJD.PN

28-MAR-79 08:52

1840
1841
1842
1843
1844

}gg?

}g?g

002170
002172
002174

002176

176722
176702
176704
176710

}g;g

002200
002202
002204
002206
002210
002212
0022164
002216
002220
002222
002224
002226
002230
002232
002234

002236

176700
176714
176706
176740
176732
176734
176742
176716
176724
176712
176726
176730
176744
176746
176736

17€720

002240

002242

176750

176752

1876

1879
1880
1881
1882

SEQ 0038

RHDB:
RHW(C:
RHBA:
RHCS2:

176722
176702
176704

;DATA BUFFER
;WORD COUNT
;BUS ADDRESS

176710

;CONTROL AND STATUS 2

RHCS1:
RHERT:
RHDST:
RHER2:
RHOF :
RHCA:
RHER3:
RHAS :
RHMR :
RHDS1:
RHDT:
RHSN:
RHEC1:
RHEC2:
RHCC:

RHLA:

176700
176714
176706
176740
176732
176734
176742
176716
176724
176712
176726
176730
176744
176746
176736

:CONTROL AND STATUS 1
;ERROR M
;DESIRED SECTOR/TRACK ADDRESS
;ERROR #2
;OFFSET
;DESIRED CYLINDER ADDRESS
;ERROR #3
sATTENTION SUMMARY
MAINTAINABILITY
;DRIVE STATUS
;DRIVE TYPE
; SERIAL NUMBER
;ECC POSITION
;ECC PATTERN

; CURRENT CYLINDER ADDRESS

176720

. LOOK=-AHEAD

;ADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC

lg;g
1

PAGE 19

;RP0&/5/76 DISK 1/0 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC

1%;}
1873

10:48

;RP0&/5/6 DISK 1/0 REGISTERS LOCATED IN THE RH11 CONTROLLER

}gg%

1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868

25-MAY-79

}gzz
1847
1848
1849

MACY11 30A(1052)

ns3

RHBAE:

RHCS3:

176750

;P=-CLOCK (KW11=-P)

002244
002246
002250

172540
172542
172544

;BUS ADDRESS EXTENSION REGISTER

;CONTROL AND STATUS REGISTER #3

176752

PCLCSR: 172540
PCLBUF: 172542
PCLCTR: 172544

1/0 REGISTERS

;CONTROL AND STATUS REGISTERS
;COUNT SET BUFFER
: COUNTER

(DCL)

CIRJIDO, RPO4/S/6 FCINL CTRLR2
CIRJJD.PIY
28-MAR-79 08:52
1883
1884
1885
1886
1887

MACY11

30A(1 052)

25-MAY=-79

REGI STER ADDRESSES

10:48

3
PAGE 40

SEQ 0039

000000
000000
000000
000000

002262
002264
002266
002270
002272
002274
002276
002300
002302
002304
002306
002310
002312
002314
002316
002320

000000
000000
000000

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

DB:

wC:

BA:
(se:
(sSt:
ERY:

DST:
ERZ:
:
OFf
CA:

ER3:

AS:
MR:

DS1:
H

SN:

ECY:
EC2:
cC:
LA:

OOOO

002252
002254
002256
002260

;DATA BUFFER

COOOOOODOOOOOOOOOO

:THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SAVES
;ANY TIME THERE IS AN ERROR ALL THESE WILL BE FILLED
;ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE
;FOR THE TIME JUST AFTER THE ''ERROR'’ ERROR COMMAND

;CONTROL AND STATUS 1
;ERROR M1
;DESIRED SECTOR/TRACK ADDRESS
;ERROR #2

;WORD COUNT
;BUS ADDRESS
:CONTROL AND STATUS 2

;OFFSET

;DESIRED CYLINDER ADDRESS
;ERROR #3
;ATTENTION SUMMARY
MAINTAINABILITY
;ORIVE STATUS
;DRIVE TvyPE
; SERTAL NUMBER
;ECC POSITION
;ECC PATTERN
; CURRENT

CYLINDER ADDRESS

:LOOK=AHEAD

CIRJJIDO, RPO4/S5/6 FCINL CTRLRZ
CIRJJD.PI
28-MAR-79 08:52
1915
1916
1917
1918
1919
1920

MACY11

25-MAY=79
30A(1052)
REGISTER ADDRESSES

000000
000002
000006

FUTABL:
NOPERA: 0
UNLOAD: 2
RECAL]: ?

1926
1927

002332
002334

000012
000030

RELEAS:
SERCH:

1929
1930
1931
1932
1933
1934
1935
1936
1937
1938

1939
1940
1941
1942
1943
1944
1945
1946
1947

PAGE &1

;*TABLE OF FUNCTIONS FOR RHCS1 THEN ''GO’' BIT HAS TO BE SET

002322
002322
002324
002326

1928

;FUNCTION EQUATES

1921
1922
1923
1924
1925

10:48

002330

002336

002340
002342
002344
002346
002350
002352
002354
002356
002360
002362

.002364

000010

000050

000052
000060
000062
000070
000072
000004
000014
000016
000022
000020
000000

DCLEAR:

WRCHEK:

WRCHDT:
WRIDAT:
WRIFOR:
READAT:
REFOR:
SEECOM:
OFSETC:
RETCL:
PKACK:
READIN:
TLLEGL:

;NO OPERATION
;UNLOAD (STAND BY)

;RECALIBRATE

;DRIVE CLEAR

1 2

;RELEASE (DUAL-PORT OPERATION)

52
60
62

;WRITE CHECK HEADER AND DATA
;WRITE DATA
:WRITE HEADER AND DATA (FORMAT)

22
20
.WORD

;PACK ACKNOWLEDGE
;READ IN
;COMPUTED ILLEGAL FUNCTION

30
50

: SEARCH COMMAND
;WRITE CHECK DATA

70
72
4
14
16

;READ DATA
;READ HEADER AND DATA
; SEEX COMMAND
;OFFSET COMMAND
;RETURNTO CENTERLINE

:*DATA BUFFER FOR READ WRITE
002370
003434

000422
000422

WRFROM:
REINTO:

.BLKW
.BLKW

274,
274,

;WRITE FROM THIS BUFFER
;READ INTO THIS BUFFER

SEQ 0040

CZRJIJDO, RPOL/S5/6 FCTNL CTRLRZ
28-MAR-79 08:52
CIRJJID.PY

2000
2001
2002
2003
2004

30A(0 052)

25-MAY=79

REGI STER ADDRESSES

10:48

PAGE &2

SEQ 0041

;RESERVED LOCATIONS FOR FLAGS AND INTERNAL PROGRAM (ONTROL WORDS
004500
004502
004504
004506

000000
000000
000000
000000

REGADR:

ERWORD:
TSTNM:

RP&GVEC:

:SAVE REGISTER ADDRESS HERE
:SAVE ERROR WORD NUMBER HERE

OO0

1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999

MACY1T

;TEST NUMBER

;CONTAINS ADDRESS OF LOCATION

;WHERE AN RPO4 INTERRUPT S TO VECTOR 10
;THIS MUST BE MOVED INTO 'RPVEC' TO BE

JEFFECTIVE.

004510

000000

OFSTVL:

004512
004562
004564

000024
000000
000000

SAVERE:

FINALA:
FINACC:

;OFFSET VALUE USED IN OFFSET TEST
.BLKW

20.

;BLOCK TO SAVE REGISTERS
;SAVE LOOK AHEAD REGISTER AT END OF OPERATiON

;SAVE CURRENT CYLINDER REGISTER AT END OF OPERATION

;TABLE FOR ATTENTION BITS
JATTENTION TABLE

0046566
004571
006574

010
100

002
020
200

004
040

ATABLE:

.BYTE

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

;RESERVED LOCATIONS FOR UNIT SELECT

;THIS IS FILLED WITH =1

004576
004616
004620

000010
000000
000000

UNITS:
UNIT:
NOUNIT:

.BLKW
.WORD
.WORD

8.
0

004622

000000

NUNIT:

.WORD

004624

000000

NOPUSH:

004626
004630

000000
000000

SELECT:
UNITSL:

.WORD
.WORD

004632

000000

ERFLGS:

;ERROR FLAG

004634

000000

FIRST:

;1F IERO WILL TYPE HEADER
:1F ONES WILL NOT TYPE HEADER

004636

000000

RPOG6:

:DEVICE TYPE FLAG

004640

000000

RM70:

;1F 1, PROGRAM ]S RUNNING ON AN RH70
:1F 0, PROGRAM |S ON AN RH11

006642

000000

RUNCTR:

.WORD

;UNIT UNDER TEST
;NUMBER OF UNITS PRESENT
;USED TO KEEP TRACK OF UNIT UNDER TEST
;USED TO DETERMIN 1F THERE ARE MORE
: THAN ONE UNIT

;ALL ONES INDICATE NONE OF THE OPERATOR
; INTERVENTION TESTE WiLL BE PERFORMED
;ALL ONES INDICATE UNIT TO BE SELECTED
;UNIT NO. SELECTED

;"RUN' LINE DELAY COUNTER TO BE USED
(WHILE

THE

SILO IS FILLING

CIRJIDO, RPOL/S/6 FCINL CTRLR2
28-MAR-79 08:52
CIRJJD P

2005
2006
2007
2008
2009
2010
2011
2012
2013

MACY11

30A(1052)

25-MAY-79

006644
004646
004650

000000
000000
000000

ATTENT: O
TOTALAT:
SILOSZ: .WORD

0
¢

004652
004654
004656
004660

000000
000000
000000
000000

TMPO:
TMP1:
TMP4 :
TMPS:

O
0
0
0

LWORD
.WORD
.WORD
.WORD

10:48

PAGE 43

;ATTENTION BIT FOR PRESENT UNIT
;TOTAL ATTENTION BITS

;RH SI1LO SIZE
: TEMP STORAGE
; TEMP STORAGE
;TEMP STORAGE

SEQ 0042

CIRJIJDO, RPOL/S5/6 FCTNL CTRLR?
CIRJJD.PVI
28-MAR-79 08:52

MACY11

30A(1052)

2014
2015
2016
2017
2018

004626

012706
005026
022706
001374
012706

001100

004744
004752
004760
004766
004774
005002
005010
005016
005024
005030
005034
005042
005050

036624
000340
041022
000340
042546
000340
062632
000340
001212
001214
000001
005042
005050

00511¢
005116
005122
005124

005132
005140

O NNNNN
P
LV IV VY
NNNNNO

— 0NN
RN

ONY
=t b b et

OO0O0OO0OO

005056
005062
005070
005076
005104
005112

004626
004624

SETUP TESTS

BEGINZ: MOov

CODE

#-1,3#NOPUSH

SN#SELECT
START

#-1,3#SELECT

SEQ 0043
ee*

; JUMP OVER OPERATOR REQUIRED TESTS

;D0 NOT SELECT UNIT
;SELECT UNIT

CLR

8#NOPUSH

;00 NOT JUMP OVER ANY TEST

CLR
CLR

aNSELECT
3/NOPUSH

;00 NOT SELECT UNIT
;D0 NOT JUMP OVER ANY TEST
;NORMAL RUN

START

RESET

INITIALIZE THE COMMON TAGS
;. CLEAR THE COMMON TAGS (SCMTAG) AREA

mMov

#SCMTAG,RE

(mMp

#SWR,R6 ; ;DONE?

001000

s
—

—

— D —
oW

000020
000022
000030
000032
000034
000036
000024
000026

000004
001140
001142

;:FIRST LOCATION TO BE CLEARED

(R6) ¢

::CLEAR MEMORY LOCATION

BNE
Mov

.=6
#STACK,SP

::LO0OP BACK IF NO
::SETUP THE STACK POINTER

MoV

#STRAP,S#TRAPVEC

::TRAP VECTOR FOR TRAP (CALLS

(LR
CLR
MovB
MOv
MOov

#1,SERMAX
¥.,SLPADR
¥.,SLPERR

;:ALLOW ONE ERROR PER TESI
;s INITIALIZE THE LOOP ADDRESS FOR SCOPE
;. SETUP THE ERROR LOOP ADDRESS

CLR

001140

o INITIALIZE A FEW VECTORS
MoV
#$SCOPE ,8#10TVEC ::107 VECTOR FOR SCOPE ROUTINE
MoV
#340,9010TVEC*2 ;;LEVEL 7
MoV
#SERROR,SMEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
MOV
#340,QMENTVEC+2 ;;LEVEL 7
MoV
MOV
MOV

#340,3#TRAPVEC+2;LEVEL 7
#SPWURDN,Q#PWRVEC ;;POWER FAILURE VECTOR
#340,9#PWURVEC+2 ;;LEVEL 7
S$TIMES
;o INITIALIZE NUMBER OF JTERATIONS
SESCAPE
;s CLEAR THE ESCAPE ON ERROR ADDRESS

;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

; :EQUAL TO A "'=1'", SETUP FOR A SOF TWARE SWITCH REGISTER.
MoV
SMERRVEC,-(SP)
;;SAVE ERROR VECTOR
MOV
#64S ,QNERRVEC
;;SET UP ERROR VECTOR

MOv
MOv
(Mp
BNE

174026

005124

64%:

000176

65%:

000174
000004

&
PAGE &6

.SBTTL

LSBTTL

000004
005116
177570
177570
177777

#++ DIAGNOSTIC

CLR

START:

10:48

.SBTTL
LSBTTL
.SBTTL

BEGIN: Mov

BEGIN:

OO0
OO0

NN NOONNNNNNNN
[PV AVIIPA VIV AV VIV TV I TV IV
NNNNNNNNNNNNN

004724
004730
004732
004736
004740

[elePHlelelelololololole
o]

000005

ooV
RN N

177777
004624

004722
004722

OO NO
O NNO NS
WANMNO
— O
NNNNO
W

2069

004624

005037
005037

— et e O - O

2055
2056
2057
205¢
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068

177777
004626

004662
004670
004674
004676
004704
004710
004712
004716

OO0

2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054

25-MAY=-79

66%:

H?V
R11

MCv
MOv
MOV

#DSWR,SWR
#DODISP,DISPLAY
#-1,35WR

66%

65%

#65%, (SP)

:.SETUP FOR A HARDWARE Sw](H REGISTER
;;AND A HARDWARE DISPLAY REG]STER
;s TRY TO REFERENCE HARDWARE SWR

;;BRANCH IF NO TIMEOUT TRAP OCCURRED

;;AND

THE HARDWARE SWR [S NOT = -1

; ;BRANCH |F NO TIMEOUT

;:SET UP FOR TRAP RETURN

#SWREG, SWR
;.POINT 10 SOFTWARE SWR
#DISPREG,DISPLAY
,;RESTORE ERROR VECTOR
(SP)+ ,Q#ERRVEC

— N O NN
QOO ~NN

000000
000200
002166
036534
000340

005174
005200
005204
005206
005210

004737
005737
001001
000402
000137

037562
004634

00521¢
005214
005220

005314
005314
005320

NNN~N~

il
il o
e

005144
005152
005160
005164
005170

(a1,
VTV T, V], ¥

2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083

[oYoTo
e o]

(ZRJJDO, RPOL/S5/6 FCINL CIRL R2
CZRJIJD.P
28-MAR-79 08:5 2

1064401

000435
1044601

000434

MACY11

177776
000036

2%:

005222

;168%:

67%:

005322

::70%:

69%:
000424

005470
005470
005474

000433

005564
005564
005570

000436

104401

106401

005420
;728

71%:

005476

2768
73%:

005572

;2 76%:
75%:

005606
1044601

005666
005672

000430

005754
005754
005760

000417

104401

005674
::78%:
77%:

005762

006020

012737

177777

004634

il
il
il
el
—

006026

006032
006034
006042
006044

005737
001006
023727
001005
104406

000042

001140

000176

SEQ 0044

;SET PROCESSOR STATUS 10 0

Mov

S¥#RPVEC,RO

;GET RP VECTOR ADDRESS

JSR
151
BNE
BR
JMP

PC,aNSTKINT
affFIRST
1%
2%
¥ SND1

;INITIALIZE THE TTY KEYBOARD
;1S THIS FIRST TIME ROUND ?
;00 NOT GIVE HEADER [Ff NOT
;GIVE HEADER If SO
:SK1P OVERALL PROGRAM HEADER

TYPE

.68%

;. TYPE

JASCIZ

TYPE

#200,8#TRAPVEC+2

#RPVECT,(RO)¢
#340, (RO)

67%

.70%

69%

TYPE

,12%

BR
ASCIZ
TYPE

ASCIZ

TYPE

;THIS ]S FOR UNTIMELY INTERRUPTS
;RPO4 INTERRUPT SERVICE ROUTINE
;PRIORITY = 7

ASCIZ STRING

;;GET OVER THE ASCIZ
<15><12>7RP04/5/6 FUNCTIONAL CONTROLLER TEST, PART 11

B8R

LASCIZ

;TRAP PRIORITY = 4

;. TYPE

ASCIZ

= (IRJJ-D?

STRING

,.0ET OVER THE ASCIZ

<15><12>/ALL DCL'S UNDER TEST MUST BE LOCKED ON CORRECT PORT/<15><12>
;. TYPE

ASCIZ

STRING

;. TYPE

ASCIZ

STRING

7s
;.GET OVER THE ASCIZ
<15><12>/PROGRAMMABLE DRIVES WILL NOT BE USED/
, 169

73%

;.GET OVER THE ASClZ

,76%

;:TYPE ASCIZ STRING

<15><12>/1F (HANGES ARE REQUIRED ON PORT SWITCH, A CYCLE UP/
75%

.:GET OVER THE ASCIZ

LASCIZ

<15><12>/SEQUENCE 1S REQUIRED FOR STROBING THE PORT SELECT FLOP/<15><12>

TYPE

,78%

::TYPE ASCIZ STRING

B8R
JASCIZ
TYPE

77%
::GET OVER THE ASCIZ
<15><12>/ALL DCL'S NOT UNDER TEST MUST BE SWITCHED OFF/
,80%

::TYPE

ASCIZ STRING

;. 80%:

BR
JASCIZ

79%
::GET OVER THE ASCIZ
<15><12>/0R LOCKED ON THE OTMER PORT/

SND1:

MoV

#-1,30FIRST

sNEXT

TIME DO NOT GIVE MEADER

LSBTTL

GET VALUE FOR SOFTWARE SWITCH REGISTER
:;ARE WE RUNNING UNDER XXDP/A(T?
afs?
151
BNE
6498
;;BRANCH 1F YES
(mp
SWR,#SWREG
::SOFTWARE SWITCH RFG SELECTED?
::BRANCH 1f NO
65%
BNE
;:GET SOFT-SWR SETTINGS
GTSWR

79%:

006020

el el

]

il e

POPLPRURUPONY
it 2 et b et et b s e = DO
PN
= O OONO NS WA —-O00

rorLURLRURDNLRODNU
LA RN RNV RO VY

104401

PAGE &5

#0,PS

Mov

1%:

006020

Mov

MOV
Mov

005412
005412
005416

30A(1052)
25-PAY=79
10:48
INITIALIZE THE COMMON TAGS

(IRJJD0, RPOL/S/6 FCINL CTRLR?
(2RJJD.P1
2B-MAR-79 08:52

2126
2127
2128

006046
006050
000056

000403
112737

2130
2131
2132
2133

006056
006064
006066
006074

032777
001403
012737

2129

MACY1Y

30A(1052)

25-MAY=79

10:48

&
PAGE 46

SEQ 0045

GET VALUE FOR SOFTWARE SWITCH REGISTER

BR
Move

65%
7 ,8AUT08

;:SET AUTO-MODE

FSwW12,aSwR
3%
#1,30RNHT70

;LOOK T0 SEE IF USING RH70
J1F SW12 = 0, SKIP NEXT
J1F SW12 - 1, (U IS AN RH70

000001

001134

gg::

010000

17305¢

000001

0046640

RH70CK: BIT
BEQ
5
MOov

INDICATOR

CZRJJIDO, RPOL/S/6 FCINL CTRLRZ2

C(2RJJD.PVY

28-MAR-79 (08:52

MACY11

2134

30A(1052)

25-MAY-79

10:48

PAGE &7

GET VALUE FOR SOFTWARE SWITCH REGISTER
DI

NN N IR RN

SE0 0046

NN RPN RN NPT ORORRRAR PR ONEORINGPIENIRROIRONOORNTS

2135
2136
2137
2138

:*1S
:*1F
;*1F
:*1F

2161
2142

;*THE NEXT LINE IS TO BE ADDED LATER
:*AND THE JUMP AND NOP REMOVED

3}22

; *MOV

af1s ANERRVEC

;SET TIME-OUT VECTOR

JMP
NOP

ars

;00 NOT USE

TS1

a#PCLCSR

sREFERENCE P-CLOCK STATUS REGISTER

MoV
MOV
BR
MOV

#WALY
P, aNSTRPAD+20 ;THERE IS A P-CLOCK
#TIMEY ,Q#RPLVEC ;THERE IS A P CLOCK SO
sVECTOR T0 TIME1
2%
FWALT.
T ,a#8TRPAD+20 ;THERE ]S NO P-CLOCK

MOV

FTIME2 ,3FRPLVEC :MAKE RP04/S5/6 INTERRUPTS GO TO 'TIME 2°

#-1,30#PRITEM

;CLEAR PREVIOUS 1TEM NUMBER

191

AfSELECT

:WAS 1T A 200 START

BEQ

T1ST1

:BRANCH 1F STARTING FROM 200

,65%

;:TYPE ASCIZ STRING

%}28

;+1F NOT MAKE RPO4 INTERRUPTS GO TO 'TIME 2°

;*FOR NOW NO CLOCK WlLL BE USED

5}22

27
2148

;
.

2150

;

2149

2151
2152
2153
2154
2155

:
;
.
:
:18:

2156

2159

012737

033526

516§

006110

005737

004626

s}bg

006114

001442

2166

006116

6
6

2167
2168

2169
2170

2171
2172
21;5

006102

012737

104401

006122

000424

006174
006174

104412

006176
006202
006206

042716
011637
012637

21;5

006212

001403

21;;

006216

013737

2174

2176

CLOCK

:ADDRESS = 172540

::tttI'""t""'"t""'t""""'.'""".t"'t"!."tt"t'l't'

006074

g}o?

THERE A P=-CLOCK (KW11=P) ON THE SYSTEM ?
SO MAKE 'WAT'' TRAPS GO TO 'WAIT.P'
SO MAKE RPO4 INTERRUPTS GO TO 'TIME 1°
NOT MAKE 'WAT' TRAPS GO TO 'WAIT.T'

177777

004506

041170

2%:

006124

TYPE

;2658

64%:

177770
004616
004630

004630

Mov

004616

BR
LASCIZ
RDOCT

649%
:;GET OVER TME ASCIZ
<15><12>/SELECT UNIT NUMBER TO BE TESTED ?

BIC
MOV
MOV

w177770,(SP)
(SP) ,a#UNIT
(SP)+ ,afUNITSL

:ONLY KEEP LAST 3 BITS
;SAVE UNIT 10 BE TESTED
;SAVE UNIT T0 BE TESTED

BEOQ

TST

:BRANCH IF STARTING FROM 200

MOV

SFUNITSL,a#UNLT ;SET UNIT NUMBER

/<15><12>

CIRJJDO, RPO4L/S/6 FCTINL CTRLR?
28-MAR-79 08:52
(ZRJJD.PN

MACY 1

30A(1052)
GET

VALUE

25-MAY-79

10:48

FOR SOFTWARE

&
PAGE 438

SEQ 0047

SWITCH REGISTER

STEST

REFERENCE EACH REGISTER

REFERENCE EACH REGISTER BY A MOVE INSTRUCTICN

rororORORNIrRORNIARDNO
ROV RO NN

T
X
X R X
Ry

006222
006224

000004

012737

000001

001212

006232

012737

000001

006240
006244

012706
012737

1ST1:

SCOPE

MOV

#1,8TIMES

::00 1

ITERATION

004504

MOV

#2-1,30TSTNM

;THIS SAVES TEST NUMBER

001000
041032

000030

MOV
MOV

NSTACK, SP
;SET UP STACK POINTER
#REGSA1,3#EMTVEC;ERROR VECTOR SO THAT

006252

012737

006300

000004

mMov

2% ,aNERRVEC

006260
006264

006270
006272
006274
006276
006300
006306
006310
006316
006320
006326

012700
012701
013102
005300
001375
000454
012737
022626
016137
104007
032777
001036

000024
002170

MOV
MoV

#24 R0
#RHDB ,RI

BNE
B8R
MOV
(mMp
Mov
ERROR

1%
:BRANCH 1f 24 NOT DONE
33
:BRANCH IF 24 DONE
FERRVEC+2,aNERRVEC ;RESTORE TRAP CATCHER
(SP)¢+,(SP)+
;CLEAN STACK=2(R1), $TMPI
;STORE FAJLING REG ADDR
;REGISTER NON EX]STANIT
7

006330
006334

000427

104401

006336

D
il

el o

oo
0

';tt'"l'"""'"""""'""'"""'"'.."'Q'.'.""""""'

1%:

000006

000004

177776

001200

020000

172612

22264
2225
2226
2227
2228
2229

2230
2231
2282
223
22%

012746

006420
006422
006424

104402

006546
006546

000000
000137

012737
005037
005777
005237
1046401

000413

000417
022626
104401

000413

01273%?

006510
004640
173572
004640
006460

MOV

#ADDMOD,-(SP)

:GE1 READY TO TYPE

JMP

afSLOP

:G0 TO END OF

3%:

MOV

#1RP a0

INITIALIZE VECTOR

;:67%:

191
INC
1YPE
BR
JASCIZ

:ADDRESS RPBAE(RH11/RH70?)
dRHBAE
:FOUND AN RH70-SET MASK
RH70
,67%
;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ
66%
/
<15><12>/RH70 CONTROLLER

BR
(Mp
TYPE

RIN
(SP)+,(SP)+
,65%

LASCIZ

<15><12>/RH11 CONTROLLER

TRP:

::65%:

061022

000030

649

RIN:

TYPOC
HALT

CLR

MOV

RH70

648

FIRST REG.

;INHIBIT ERROR PRINTQUT ?

,65%
::TYPE ASCIZ STRING
649
::GET OVER THE ASCIZ
<15><12>/10 CHANGE BASE ADDRESS, RESTART AT

66%:

006520

;READ MARDWARE REG.
:COUNT DOWN

TYPE
B8R
JASCIZ

A ¥

000004

#SW13,aSuwR

:THERE ARE 24 REG TO TEST
:R1 NOW HAS ADDR OF ADDR OF

000204

033016

a3(R1)+, R?
RO

:SET UP FOR BUS TIMEOUT

BNE

646%:

006414

006506
006506
006510
006512
006516

817

;;253:

006414

006430
006436
006442
006446
006452
006456

2%:

MOV
DEC

:NO REGISTERS ARE SAVED

:BRANCH ]F

YES

ADDRESS /

STARTING ADDRESS

:0F ''CHANGE OF BASE ADDRESS'® ROUTINE
PROGRAM --=ccccccew- >

JINIT RH INDICATOR +¢

;GET 0QUT
;ADJUST THE STACK
;:TYPE ASCIZ STRING

;:GET OVER THE ASCIZ

#SERROR,QNEMTIVEC;RESTORE ERROR VECTOR

(. W

CIRJJIDO, RPO&L/5/6 FCTNL CTRLR?2
CZRJJID P
28-MAR-79 08:52

012737

000006

&
J
30A(1052)
25-MAY-79
10:48
PAGE &9
REFERENCE EACH REGISTER
IR

000004

Mov

SEQ 0048

. SO THAT REGISTERS ARE SAVED

FERRVEC 2,97ERRVEC

;RESTORE TRAP CATCHER

;FIND THE SILO SIZE
006562
006566
006572
006600
006606
006612
006614
006622
006630
006634
006642
006650
006656
006664
006672
006700
006702
006710

NNNNNNNNNNN

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

006554

o [«
Y
=
—
oo
N
w VNN
= PO AN NN B
NS NNUWNNINO
N
NN ANANINO NN
N W

2235
2236
2237
2238
2239
2240
2261
2242
2243

MACY11

0127
063737
063737
013737
022737
001003
012737
004737

033314
004650
004650
0046650
000100
000412
004650
015570
015570
002370
004650
004650
015600
000406
000001
033314

173370

13%:

mov

INC

BIT

173364

BNE

015570
015570

Mov

SUB
NEG
Mov

023336
015600
015600
015600
023340
004650
015616

JSR
CLR

Mov
ADD

ADD

Mov

20%:

cmp
BNE
MOv
JSR

PC,

;CONTROLLER CLEAR

efCLDISK

:CLEAR SILO COUNTER

¢1L0os?
SILOSZ, aRHDB
SILOSZ
FIR,
aRH(S?

13%

'266-0
SILosZ,

VAR
VAR1,

#WRFROM,

n,
PC,

;BRANCH IF

;VAR1

VAR

VAR3}

VARG

n262.,51 LOSZ

20%

;KEEP COUNT

;1S THE SILO FULL?

VAR1

SlLosZ, VAR2
SILOSZ, VAR?

VARC,

;LOAD SILO

VARS -4

S#CLDISK

VAR?

IN TEST 15

;VARY IN TEST 25
15

;VAR2 [N TEST

;VARGL IN TEST 25
;RH70C?
:BRANCH IF NO
;VARS IN TEST 15
;CONTROLLER CLEAR

)

CIRJJIDO, RPOL/S/6 FCINL CTRLRZ
CZRJJD.PIN
28-MAR-79 08:52

2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
227
2272
2273
2274
2275
2276
2277
2278
2279
2280

MACYW

30A(1052)
n

25-MAY-79

10:48

PAGE 50

SEQ 0049

REFERENCE EACH REGISTER

Ry Y
X
X
SRR
L

PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT

;*TEST 2

(HECK THAT RHAS CAN BE CLEARED BY MOVING ALL ONES

A
e

006714
006716
006724

000001
001000
002216
177777

006730
006734
006740
006742

006744
006750
006754
006760

011137
005037
010137
104005

001126
001124
0046500

001212

22 XX X2 XA XXX

1§12:

SCOPE

RAZRAXA

RdRRdRRRRRRRRRR

MOV
Mmov

F1,STIMES
FSTACK,SP

;.00 1 ITERATION
;SET STACK POINTER

MOov
MOV
1518

AFRHAS R
f-1,3R1
aR1

:R1 HAS ADDRESS OF RHAS
SWRITE ALL ONES INTO RHAS
;TEST 1T FOR ALL 0°'S

BEQ

1513

;BRANCH IF

Mov

aR1 ,aN#SBDODAT

CLR
MOov
ERROR

a¥SGDDAT
R1,a#REGADR
5

GOOD

;BAD DATA

:GOOD DATA
;FAILING REG. RHAS
¢RHAS DOES NOT CLEAR BY WRITING ALL

;ONES INTO IT

CIRJJIDO, RPOL/S/6 FCINL CTRLR2
CIRJID.PY
28-MAR-79 08:52

MACYMN

2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291

30A(1052)
25-MAY-79
10:48 PAGE 5!
12
PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT

SEQ 0050

;;t.""'"'""'""""""""'t""""""l'l""'l.'t""t'

TEST FOR DRIVES PRESENT USING RHAS AND RH(S?

c*TEST 3
oY
.t
o

THE NUMBER OF RPO4&/RPO6 DRIVES PRESENT IS FOUND
BY MOVING ALL ONES INTO RHER! WITH UNIT NUMBER
IN RHCS2 INCREMENTED FROM ZERO TO SEVEN.

THE SET BITS IN RHAS WILL GIVE DRIVES PRESENT.

o
o

THE DRIVE TYPE IS CHECKED 10 BE RPO&4 OR RPO6 AND
UNITS PRESENT ARE STORED IN A TABLE CALLED 'UNITS'

WMAM AN
[« VW NV

LY N VY VY, ¥1 VT N VY V1,01, T N N ST N N N N S LN T S L
L
v v
(VPP PV TV TP PV vV YO TP IV VIV LW RV RV U RV LV AV Qv AV AV L

—

N
NN NN
TNONITORNINY —
b b b o b o b
WA —O
S
Ya Y o] RN VL W= OVB NN

';l"'.""t""""'"""t""""'"""'tl"l.""'t'tt'.t"'

006762
006764

000004
012737

000001

001212

006772

012737

000003

004504

007000
007002

000005
004737

007006
007014
007016
007022

032777
001026

007072

104401

000423

037562

020000

002216
002176

007132
007136
007140
007142

105037
105711
001402
000137

004647

007146
007154
007156

032777
001402
000137

020000

007162
007162
007166

104401
000421

4%:

1%:

;.00 1

MoV

#o=1,3¥TSTNM

;THIS SAVES TEST NUMBER

RESET
JSR

PC,aNSTKINT

;START WITH AN INIT
sINITILIZE THE TTY KEYBOARD

BIT

#SW13,3SWR

;INHIBIT ERROR TYPEOUT?

TYPE

,65%

;:TYPE ASCIZ

171764

2%:

010126
1%:

--278:

;BRANCH IF

YES

STRING

649

Mov
Mov
CLR

a#/RHAS R
ANRHCS2,R2
aR?

:R1 HAS ADDR. OF RHAS
:R2 HAS ADDR. OF RH(S?
:CLEAR RH(CS?

MOV
MOov
INC
DEC

I¥RHER1 R4
#-1,3R4
aR2
RO

;R4 HAS ADDR. OF RHER]
;MOVE ERRORS INTO RHERI
; INCREMENT UNIT NO.
; COUNT

move

aR1,a#TOTALAT

CLRB
1S718
BEQ

SFTOTALATH]
aRl
2%

XE?2

;SAVE TOTAL ATTENTION
;USED IN DRIVE CLEAR TEST
:CLEAR UPPER BYTE
;TEST FOR ANY DRIVES PRESENT
:1F NONE THERE - SAY SO
; SOME THERE - LOAD TABLE

BIT
BEQ
JMP

#SW13,aSuR
3%
SELTST

;INHIBIT ERROR TYPE QuUl?
;BRANCH IF NO
sCHECK FOR SELECTED UNIT START AND LOAD

TYPE
BR

,67%
66%

;. TYPE ASCIZ STRING

TYPE

,69%

;:TYPE ASCIZ STRING

LASCIZ

JMP

007524

ITERATION

BNE

004646

007240

M1 ,8TIMES

MOV

000010
002202
177777

007170

SCOPE

Mov

BNE

255:

013701
013702
005012
012700
013704
012714
005212
005300
001373
111137

104401

172124

007024

007072
007076
007102
007104
007110
007114
007120
007122
007124
007126

007232
007232

1513:

JASCIZ

::GET OVER THE ASCIZ

<155<12><15><12>/L00KING AT RHAS - DRIVES PRESENT/

#8..R0

: COUNT

;BRANCH IF 8 NOT DONE

sUNITS'" TABLE WITH DESIRED DRIVE

;;GET OVER THE ASCIZ

<15><12><15><12>/N0 DRIVES PRESENT = RHAS = 0/

CZRJJIDO, RPOL/S/6 FCTINL CTRLRZ
CIRJJD P
2B-MAR-79 08:52
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386

2387
2388
2589
2390
2391
2392

007236

€00430

007320
007320
007324

000430

104401

007326

007406
007406
007412

104401
000442

007414

000137

033016

MACY!

3?;(1052)

;. 69%:
68%:

25-MAY-79
10:48 PAGE 52
TEST FOR DRIVES PRESENT USING RHAS AND RHCS?
BR
LASCIZ
TYPE

BR
LASCIZ
TYPE

007520
007520

SEa 0051

68%
:,GET OVER THE ASCIZ
<15><12>/WRITING ONES INTO RHER1 FOR ALL UNIT NUMBERS/
'8

;. TYPE ASCIZ STRING

.13%

;s TYPE ASCIZ

70%
.;GET OVER THE ASCIZ
<15><12>/DOES NOT SET ANY BIT IN RHAS SO ABORT PROGRAM/
72%

STRING

;.,GET OVER THE ASCIZ

LASCIZ

<15><12>/70 LOOP ON THIS TEST WO PRINTOUT SET SWITCHES 13,8,1 & 0<15><1?2

JMP

arsEoP

60 QUT ==mmmmeommemcoocooccooean >

;*SET UP ThE UNITS TABLE
007524
007524
007530
007534
007540
007542
007544
007550
007552
007556
007562
007566
007572

103135

007574
007600
007606
007610
007616

010577
022777
001425
022777
001621

XE2:

2%:

000010
004576
177777

1%:

MOV

MOV
Mov
DEC

004620
000010
001176

;POINTER
:PRESET BLOCK
; COUNT

MOV
(LR
(LR

#UN]TS,RS
RS
SANOUNIT

;POINTER

;NO. OF UNITS PRESENT

mov
ROR
BCC

sR1.,ars1mpQ
Y 2 X0, 1d0)
5%

:TEMPORARY STORAGE
:SET CARRY |F ONE IN 0 BIT
;CHECK NEXT UNIT 1F ONE NOT IN BIT O

Mmov

RS ,ERH(S?

Mov

001176

172376
0246020

1726416

020020

1724006

:COUNTER

FUNITS,R3
#-1,(RY)
RO

BNE

004576

#8.,R0

cmp
BEQ
(mp
8EQ

f8.,R0

#26020,8°4D1
7%
#2002, RWDT
14 3

;BRANCH IF

TO ALL ONES

8 NOT DONE

; COUNTER

:INSERT UNIT NUMBER INTO UA BITS

;1S THIS A DUAL PORT RPO4 ?
;TYPE THE UNIT NO. IF YES
;1S THIS A SINGLE PORT RPOG °
:TYPE UNIT NO. IF YES

:.'"""""""""""'""""""""."l"'tt't'tt"ttl"l"

007620
007626
007630
007636

022777
001415
022777

024021

172376

020021

172366

007640
007646
007650
007656
007660
007662
007670

022777
001405
022777
001401
000414
032777
001001
000466

024022

172356

020022

172346

001000

172332

007672
007674
007700
007702
007704
007710

00141

104401

010546
104405
1046401

000466

001223
057620

(mp

#2402 ,9RHDT

;DUAL PORT RPOQS ?

(mp

020021 ,8RKDY

:SINGLE PORT RPOS ?

cmp
BEQ
(mp

026022 ,8RNDT
4 )
820022 ,8RHDT

BNE
BR

8%
6%

MOV
TYPDS

RS,

8ta

8taQ

BEQ
14 ¥

8%:

811
TYPE

I;PE

7%
7%

#B1709, QRMDSY
LOCRLEF

§QOUSE

-(SP)

:TYPE UNIT NO.

;TYPE UNIT NO.

;1S THIS A DUAL PORT RPO6 ?
;TYPE THE UNIT NO. IF SO
;1S THIS A SINGLE PORT RPO6 ?
:TYPE

UNIT

NO.

;1S THE DRIVE

:BRANCH 1F

;TYPE

VYES

PROGRAMMABLE”

THE DRIVE NUMBER

;REPORT THIS DRIVE wliLL NOT Bt USED(DRIVE MUST Bt LOCXED

CIRJJIDO, RPO4L/S5/6 FCTNL CTRLR2
28-MAR-79 08:52
CIRJJD.PIY

00, 12

007/16

007740
V7740
007742
007744
007750

007766
007766
007772
007774

30A(1052)
13

25-MAY-79
10:48 PAGE 53
TEST FOR DRIVES PRESENT USING RHAS AND RH(S?

9%:

007712

;:'."""""""""""'"""""""."'!""""'t"".'tt'

104401
000410

010546
104405
1046401

000406

017746

010000

104402
104401
000422

010046
010046

000407

010050
010052
010056
010060
010062

010523

010066
010070
010072

005205
005300
001235

104401

010546
104405

005237

007720

T1YPE

;659
:
649

007752
1:67%:

66%:

172232

010002

;.69%:

68%:
6%:

001223
004620

5%:

005737
001002
000137

004620

QOO
O
et =

033016

(S AVLV}
N~
NN
N
NN

2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2611
2412
2413
2414
2415
2616
2617
2618
2419
2420
2421
2622
24623
24624
2625
2426
2427
2428
2429
2430
2631
2432
2433
2634
26435
2436
2637
2438
2439

MACY11

004576
004620
006622

010126

005737

004626

010132

001403

010134

013737

004630

10%:

004616
004622

SELTST:

004616

BR
ASCIZ
MOv
TYPDS
TYPE

,05%
648

::TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

RS,-(SP)

:GET READY TO TYPE UNIT NUMBER

,67%

::TYPE ASCIZ STRING

<15><12>/UNIT NUMBER /

BR
LASCIZ

66%

mMov
TYPOC
TYPE

aRKDT,-(SP)

BR
<ASCIZ

,69%
::TYPE ASCIZ STRING
68%
::GET OVER THE ASCIZ
? - NOT AN RPO4L/RPOS/RP0O6 DEVICE '!'?

MOV
TYPE
Mov
TYPDS

RS, (R3)+

/.,

RHWDY

::GET OVER THE ASCIiZ
:GET READY TO TYPE RHD1

:NG RPO4/RPOS/RP0O6 FOUND SO INCR TABLE

,OSCRLF
RS,=-(SP)

;TYPE

DRIVE

a¥NOUNIT

INC

RS
RO
4%

TST
BNE
JMP

S#NOUNIT

:1F

aNSEQOP

;ELSE GO TO END OF PASS

Mov
Mov
DEC

SFUNITS ,@#UNIT
;SET UNIT NO.
S#NOUNIT,a#NUNIT ;SAVE NO. GF
:1F NUNIT = O
SMNUNIT
;1F NUNIT > 0

181

SNSELECT

;STARTING ADDRESS 200 ?

Bta

1ST4

;BRANCH IF

Mov

SNUNITSL,#UNIT

SET UNIT NUMBER

DEC
BNE

’

10%

:NUMBER OF

NO.

INC

DRIVES

:INCR UNIT NUMBER
;DECR NO. OF UNITS LOOKED AT
;TEST THE NEXT UNIT

THERE ARE ANY UNITS...

;s CONTINUE

TO FIRST ONE FOUND/OR 0

UNITS

THEN ONLY ONE UNIT
THEN MORE THAN ONE UNIT

STARTING FROM 200

SEQ 0057

(IRJJDO, RPOL/S/6 FCTINL CTRLR2
28-MAR-79 08:%2
(IRJID AR

MACYIY

2640
26461
2642

SeTEST &

2643

SEQ 0053

TYPE

SERIAL NUMBER AND DRIVE

TYPE

SET APPROPRIATE ATTTENTION BIT OF UNIT UNDER TEST [N 'ATTENT'
TYPE

UNIT

UNDER TEST

READ SERIAL NUMBER AND DRIVE
TYPE THEM OUT AND PROCEED
10 LOOP HERE

SET SWITCH 8,

TYPE

AND

SWITCHES O THRU 7 AND RESTART

000001
011044

0012 12
!
001106

X2 XX

iéTQ:

XX X2

AR AR

RRS)

Mov

MOv

NSTACK,SP

#6,aNTSTINN

;RESET

:SET R1-RHCS1, R2-RHCS?
:R3-RHDS1, R&=RHER1
:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
;CLEAR UNIT UNDER TEST ATTENTION

010172

004737

033314

JSR

PC,aNCLDISK

010176

005037

004644

CLR

ONATTENT

010202
010206
010210
010214
010220
010222

005737
001107
012700

004616

151
BNE
MOv

005737

004626

181

afUNIT
20%
#61,R0
#11,(RO)
20%
IFSELECT

010226

001006

BNE

19%

000041
000011

TEST NUMBER ON

;:D0 1 ITERATION
;;SET SCOPE LOOP ADDRESS

001000
000004

122710
001102

THIS

M, STIMES
1S, SLPADR

01 0160
01 0164

004504

REGISTERS

SCOPE
MOV
MOov

0 10142
0 10144
0 10152

OO0O

(MPB
BNE

STACK

;SAVE TEST NUMBER

;1S THE "UNIT' = 0 ?
:1F NOT, SKIP NEXT MODS
;1F SO, CHECK THE LOAD MEDIA LOCATION
;WAS 1T AN RP04/5/6 ?
;1F NOT, GO AHEAD AND TEST UNIT #0
;WAS UNIT #0 SELECTED ?
; (JE, 210 START ?)
;1F SO, CHANGE PACK

;*INCREMENT THE UNITS TABLE TO NEXT DRIVE (1F ANY)
;*8 DECREMENT ''NOUNITS'' PRESENT TO BE TESTED
012700
005720

004576

022710
001065

177777

104401

010252

000434

MOV
187

(MP

BNE
19%:

(o
L

2479
2480
2481
2482
2483
2484
2485
24L86
2487
2488
2689
2490
2491
2492
2493
2494
2495

':."'."""."""".""".."""".'."'Ql.'l'..0"!.'0!0'00

26446

2445
2646
2647
2448
2449
26450
24651
2652
2453
2454
2455
2656
2657
2458
2459
2460
2461
2462
26463
2464
2665
2466
2667
2468
24669
26470
2471
2472
24673
2474
2475
2476
2677
24L78

30A(1092)
29-RAY=79 10:48 PAGE 54
13
TEST FOR DRIVES PRESENT USING RMAS AND RM(S?

010342
010346
010412

1064401

000421

010350

1 65%:

4%:

;.67%:
669%:

#FUNITS,RO
(RO) ¢

¥-1,(RO)

18%

;1F NOT, LOAD THE UNITS TABLE POINTER
;SELECT THE NEXT UNIT

;1S THERE ANOTHER TABLE ENTRY PPESENT ?

:1F SO, USE NEXT DRIVE & DECR '‘NOUNITS"

;1F NOT, CHANGE PACK ON UNIT #0

TYPE
BR

,65%
64%

;. TYPE ASCIZ STRING

TYPE

,67%

;s TYPE ASCIZ STRING

ASCIZ

LASCIZ

IN TABLE

; (DOUBLE INCREMENT THE POINTER, RO)

;;GET OVER THE ASCIZ

<15><12><15>¢<12>/DISMOUNT PACK FROM UNIT #0 AND MOUNT A SCRATCH PACK/

66%

.;GET OVER THE ASCI2

<15><12>/PRESS CONTINUE WHEN FINISHED/<15><12>

CIRJIJDO, RPOL/S/6 FCINL CTRLR2

CIRJID.PIN

2503
2504
250§
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539

000000
000404

010416
010422

011037
005337

004616
004620

010426

013700

004616

25-MAY-79

TYPE

10:48

5
PAGE 55

SERIAL NUMBER AND DRIVE

HALT

SEQ 0054

TYPE

20%

;CONTINUE, USING SCRATCH PACK ON UNIT #0

18%:

Mov

DEC

(RO) ,@#UNTT
3FNOUNITS

;SET UP NEW UNIT UNDER TEST
;DECR BECAUSE UNIT #0 WON'T BE TESTED

20%:

Mov

afUNIT RO

;RO NOW CONTAINS UNIT NO

::'lt"""'"""'"""'"""""""I""""'tt""".t""'

010432
010436
010442
010450
010452
010460
010462
010464

005037
010077
022777
001405
022777
001401
000403
012737

004636
171534

026022

171554

020022

171544

177777

004636

010536
010536
010542
010544
010550
010572
010572
010576
010600
010604

010626
01062¢
010632

a#RPO6

;CLEAR RPO6 DEVICE

Cmp
BEQ
(MP
BEQ
BR

2%
#20022,aRHDT
2%
3%

sYES..SET FLAG
:SINGLE PORT RP0O6 ?
;YES...SET FLAG
;DON'T SET RPO6 FLAG

2%:

Mov

RO,aRHCS2
#24022,aRHDT

#-1,3/RPO6

TYPE FLAG

;SET UP UNIT ADDRESSING
;DUAL PORT RPQO6 ?

;SET

THE

FLAG

;ASSUME THE NEXT UNIT IS AN KPO4/RPOS

1%:

010472

010472
010500
010504

CLR

MoV

;;""""""""'""""""'""""""""""""'"lti"'

116037
104401
0004614

004566
010506

013746

004616

104405
104601
000410

017746
104402
104401

000410

0046644

mMove
TYPE

;1698
68%:

010552

171430

22718
70%:

010606
~J
-

2502

010412
010414

30A(1052)

017746
104402

171372

noe.
-

2696
2497
2498
2699
2500
2501

28-MAR-79 08:52

MACYN

1%:

BR
LASCIZ

mov
TYPDS
TYPE

B8R
+ASCIZ
MOv
TyPOC
TYPE

ATABLE
(RO) ,@#ATTENT ;SET APPROPRIATE ATTENTION BIT
.69%
;:TYPE ASCIZ STRING
68%
;.GET OVER THE ASC]Z
<15><12>/TESTING DRIVE

3FUNIT ,=-(SP)

;UNIT NO. TO STACK

L7118

;s TYPE ASCIZ STRING

70%

;TYPE

DRIVE NO.

::GET OVER THE ASCIZ

<15><12>/SERIAL

NO.

aRHSN,-(SP)

::;SAVE QRHSN FOR TYPEQUT

139
72%

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

BR
ASCIZ

<15><12>/DRIVE

Mov

aRHDT,-(SP)

TYpPOC

NUMBER/

;:60 TYPE--OCTAL ASCII(ALL DIGITS)

TYPE

::SAVE QRHDT FOR TYPEOUT
;.60 TYPE--OCTAL ASCIICALL DIGITS)

CIRJJDO, RPO&L/5/6 FCTINL CIRLR 2
28-MAR-79 08:52
CZRJJD.PVY

mACYI

2540
2541
2562
2543

2544
2545
2546

2547
2548
2549
2550
2551
2552
2553
2556
2555
2556
2557
2558
2559

2560
2561
2562
2563
2564
2565
2566
2567
2568

2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585

3? A(1052)
4

25-MAY-79

TYPE

10:48

5
PAGE 56

SERIAL NUMBER AND DRIVE

;*TYPE OUT THE DRIVE TYPE

SEQ 0055

TYPE

IN ASCIlI

;:""""""'0"""'Q"'""""""""""""""i."'.'"'

022777
001424
022777
001420

024020

171362

020020

171352

022777
001433
022777
001427

024021

171342

020021

171332

022777
001442
022777
001436

024022

171322

020022

171312

104401

010722

000413

104401

::75%:
74%:

000413

5%:

010760

2778
76%:

000416
104401

000413

6%:

011016

;DUAL PORT RPO4 ?
:TYPE ASC]] MESSAGE Out
:SINGLE PORT RPO4 ?
:TYPE THE MESSAGE

CMP
BEQ
CMP
BEQ

#24021,aRHDT
5%
#20021,3RHDT
5%

:DUAL PORT RPOS5 ?
;TYPE THE MESSAGE
;SINGLE PORT RPOS ?
;TYPE THE MESSAGE

(MP
BEQ
(mp
Bta

#24022,3RHDT
6%
#20022,3RHDT
6%

;:DUAL PORT RPO6 ?
; TYPE THE MESSAGE
:SINGLE PORT RPO6 ?
;TYPE THE MESSAGE

L75%

;:TYPE ASCIZ STRING

BEQ

000435

(mp
BEQ

#24020,aRHDT
3]
#20020,aRHDT
3 )

Cmp

79%:

?éi:

TYPE

BR
LASCIZ

74%
<15><12>/DRIVE

::GET OVER THE ASCIZ
1S AN RPO&4/<15><12>

;SK1P NEXT

LASCIZ

178
76%
<15><12>/DRIVE

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ
1S AN RP05/<15>¢<1?2>

:SKIP NEXT

TYPE

,79%
78%
<15><12>/DRIVE

;:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
1S AN RP06/<15><12>

TYPE

BR
LASCIZ

ONES

';'lt't"t""""""""'t"""!"".tit"'.l"""'.""""'

1%:

002310
002306

181
157

MOV
MOV

IRHSN
oRHD1

dRHSN,IISN
aRHDT ,and1

;READ SERIAL NO. AND DRIVE TYPE
;THESE TWO ARE T0 HELP SCOPE LOOPS

;SAVE 10 CHECK IF DRIVE CLEAR CLEARS ANY B 115
;SAVE TO CHECK 1F DRIVE CLEAR CLEARS ANY B I1S

CIRJJDO, RPO&L/S/6 FCINL CTRL R2
CIRJJD.PY
28-MAR-79 08:5 2

30A(1052)

25-MAY-79

PAGE 57

SEQ 0056

R RN RRRRNCOORROEORROERROERERRRRARORNOOARRNERANORRNOOOOROERPORNTY

CHECK MOL TO BE HIGH

;+TEST S

.*
.t
ot

10:48

TYPE SERIAL NUMBER AND DRIVE TYPE

CrRRRNEREP RN RE RN R

MAKE SURE THAT DRIVE IS ON LINE BEFORE STARTING PROGRAM
1f DRIVE 1S OFF LINE THEN AFTER TYPE OUT THE PROGRAM WILL
HANG FOR EVER WAITING FOR DRIVE TO GO ON LINE

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

012737

000005

—
o0

004737
032713

033314

001144

104401
000420

-— b
— b

OO
s00
Sl
oo

S WO
ornnocoe

[V AV RV RV LV |

—

—
d
—

— e b

b
—

-—

OO0O

— il

il
—

OO0
il

il
il

ol
i

—

011072

00000«

—
—t

1615:

011070

OQOOOCO

2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627

MACY11

011422

104401

000426
104401

000431

032713
001775
104401

000430

004504

010000

;:253:

649

;;275:

011244

66%:

:3295:

010000

MOov

#6-1,38TSTNP

:THIS SAVES TEST NUMBER

JSR
BIT

PC,aNCLDISK
#MOL ,9R3

;GIVE INITILIZE
;CHECK MOL IN RHDSI

BNE

1516

;BRANCH IF MOL HIGH

,65%

;s TYPE ASCIZ STRING

<15><12>/DRIVE

1S OFFLINE - MOL

,67%

;:TYPE ASCIZ STRING

TYPE

011120

011166

SCOPE

68%:

1%:

011342

%6;1‘:

LASCIZ

TYPE

649%

::GET OVER THE ASCIZ

IS LOw/

B8R

66%

TYPE
BR

,69%
68%

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ

BIT
BEQ
TYPE
BR
ASLIZ

#MOL ,aR3
1%
L7118
70%
<15><12>/6000 -

;CHECK MOL IN RHDS1
sWALT IF MOL ]S STILL LOW
;. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
MOL IS HIGH, PROGRAM witLL BE EXECUTED/

JASCIZ

<15><12>/HIT

::GET OVER THE ASC]lZ

START ON DRIVE

TO GET

IT ON | INE/

<15><12>/PROGRAM WILL HANG TESTING MOL TILL MOL IS HIGH/

CIRJJIDO, RPO4L/S/6 FCTNL CTRLR 2
CIRJJD.PVY
2B-MAR-79 08:52

2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673

25-MAY-79

CHECK MOL

LI
TP
¥

.t
St

—ts.

0114622

000004

011424

012737

000006

011432

012706

011436

004737

HIGH

5
PAGE

SEa 0057

PROGRAM INTERRUPT

THIS SHOULD INTERRUPT THROUGH LOCATION 2564

THE PROCESSOR PRIORITY
m.

BRI

TO BE

PROGRAM INTERRUPT !S TESTED BY SETTING RDY AND IE
IN RHCSY AT THE SAME TIME

10:48

R R
R R
R Y

;*TEST 6

16:

004504

R E

X Z

XXX

IS SET

T0 6

ZAAREZAZAAAS

SCOPE

Mov

N7-1,a0TSTNM

;THIS SAVES TEST NUMBER

001000

MOv

FSTACK,SP

;RESET

033314

JSR

PC.a#CLDISK

STACK

;SET R1-RHCS1, R2-RHCS?2

;R3-RHDS1, R4-RHER1

;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER

MoV
MOv

=N O
©cOo

2640
2641
2642
2643
2644
264°
2646
2647
2648
2649
2650

30A(1052)

002166
011514
000340

;N
-y

2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639

MACY!

000200
000300

177776

034012
001200

001200

Mov

1%:

000040

#340, (RO)

;GET RP VECTOR ADDRESS
;THIS IS FOR TIMELY INTERRUPTS
;RPO4

INTERRUPT

:PRIORITY = 7

SERVICE ROUTINE

MOV
mMov

#200,PS
#RDY!IE,aR1

Mov
DEC
BNE

SNTIMONT ,3#$TMP1; COUNTER
arsTmpl
;WAIT FOR INTERRUPT
1%
;BRANCH IF NOT ZERO

ERROR
Mov

65
#CLR,aR2

:INTERRUPT DID NOT OCCUR
;CLEAR CONTROLLER VIA (S2

1S17

;BRANCH TO NEXT
;RESTORE

STACK

001403

BEQ

1517

;CONTINUE

011524

106065

ERROR

011526

012712

Mov

#CLR,aR?

; INTERRUPT OCCURED BUT
;1€ FAILED 1O RESET

011522

000040

(SP)+,(5P)+

TEST <ecewecccccee- )

;1€ SHOULD BE LOW

004200

INTERRUPT

;BEFORE THIS ]S ZERO INTERRUPT SHOULD OCCUR

#OVA'RDY,aR1

022626
022711

(MP

;SET PROCESSOR PRIORITY @ 4
;RDY, 1€ IN RHSC! SHOULD CAUSE

(MP

011514
011516

RPTRP1:

S8#RPVEC,RO
#RPTIRP1,(RO) ¢+

GOOD ============-- )

;CLEAR CONTROLLER

CIRJJDO, RPOL/S/6 FCINL CTRLR2
CZRJJD.P1
28-MAR-79 08:52

el
i
o
i
D
el
el

~NO NN
—O

NNNNNNNTY

rororororo
OO N

3?2(1052)

25-MAY-79

PROGRAM

10:48

[NTERRUPT

5
PAGE 59

SEQ 0058

;;Q""""""""'""""""""""""""0..'."""."".

J*TEST 7
*

INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME
PROCESSOR PRIORITY

|S SET AT 5 (SAME AS THE DISK)
1E AND ROY IS SET. THIS SHOULD NOT INTERRUPT

CIRPRRRCENERNL

1$17:

011532

000004

011534

012737

000007

011542

012706

011546

004737

SCOPE

RO ERNNCRRRORREROOECERONROROSOERRRNOARNCEROEOOANONRNOORNROROEROROCERTONTOTE

Mov

#10-1,a#TSTNM

;THIS SAVES

001000

Mov

FSTACK,SP

;RESET

033314

JSR

PC,aNCLDISK

004504

TEST

NUMBER

STACK

;SET R1-RHCS1, R2-RH(S?

;R3-RHDS1,

R&-RHER1

[aV 1oV ]

011600
0116066
011612

000240
000300

177776

13737

034012
001200

001200

NSNS

(V]

—r

002166
011622
000340

—

OO0

NI
N

011566
011574

011552
011556
011562

OoOOo

0
2

;GIVE RH=11 INITJALIZE
:SETUP UNIT NUMBER

2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709

MACYN

005337
001375

011614

012712

011620

000404

011622
011624

022626

011626

012712

;GET

mMov

#340, (RO)

:RPO4L INTERRUPT SERVICE ROUTINE
;PRIORITY = 7
;SET PROCESSOR PRIOR]ITY = 5

1%:

#RPTIRP2,(RO)+

RP VECTOR ADDRESS

;THIS 1S FOR UNTIMELY

INTERRUPTS

Mov

#240,PS

mov
DEC
BNE

GFTIMONT ,@#STMP1; COUNTER
aNsTMPI
;WAIT FOR INTERRUPT
1%
:BRANCH [F NOT ZERO

mMov

#(LR,aR?

18110

:NO INTERRUPT

(MP
ERROR

(SP)+,(SP) ¢
65

;RESTORE STACK
; INTERRUPT OCCUPRED W]TH

MOv

#(LR,aR?

;CLEAR CONTROLLER

mMov

QPTRPZ:

000040

S/RPVE(,RO

Mov

000040

106065

Mov

#RDY'!I1E,aR1

;RDY,

1€

IN RHSC! WHOULD CAUSE

INTERRUPT

;BEFORE THIS IS ZERO INTERRUPT WHOULD OCCUR
;CLEAR CONTROLLER

SO C(ONTINUE ==<c==e==ce-=e-- )

;PROCESSOR PRIORITY

SAME

AS DSk

MACY11

30A(1052)
17

25-MAY-79

INTERRUPT

011632

PAGE €0

SR AZZ22

222X R

X2 A

RAZERAR AR

RNl

;*IN CASE THERE IS ANY DRIVE ERRORS DURING POWER UP
;*OR POWER DOWN OR ANY PARITY ERRORS A RESET IS GIVEN

000005
004737
012737

037562
000000

177776

Mov

JSR

PC,aNSTKINT

SINITILIZE

011650
011654

012706
012737

001000
000010

004504

Mov
Mov

#STACK,SP
#10,a#TSTNM

;RESET STACK
;SAVE TEST NUMBER

004737

033314

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RHCS?

011662

2742
2743
2764

011666
011672
011676

004737
104401

033352
057465

2746

011700

013777

002360

000000

SET vv BIT #6 IN RHDSI

THIS TEST SETS vv IN RHDSI
THERE 1S A RESET AT THE BEGINING OF THE TEST
FOR ERROR RECOVERY ONLY.

SCOPE

SEQ 0059
R

ot
A
M

1$110:

000004

10:48

AT PROCESSOR ANO DISK PRIORITY SAME

;*TEST 10

o OB

b Lt AN L

AN N R N AR N
N PO RO NI PO PO PO N O N — —t
YO
NN = OOV~
NS NN =00 oo

(ST, S1, V1 ST SY V1,1 .G, C1 Gy W1, V] U GY V1 VY V] V] V] VY UY, ¥ o
~ NNNNNNNNNNNNNYNNNNNNYN ~

CIRJJDO, RPO4/S/6 FCTINL CTRLR2
CZRJJD.PVY
28-MAR-79 08:52

RESET

JSR
TYPE

PC,aNCHECK
+CPHALT

MoV

3#PKACK,aRHCST

HALT
170272

#0,PS

;R3-RHDS1,

R&=RHER1

;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER
; CHECK THAT DVA,RDY,MOL,DPR,DRY = 1
: CANNOT CONTINUE TESTS

;STOP TESTING
;GET

READY

THEY DON'T

FOR PKACK

;PACK ACKNOWLEGDE WiTH 22 IN RHCS]

013777

011720

———

2759

00O

000022

2756

011716

~
)

004037
002172
004512

sro0

;*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE
JSR
RHW(
SAVERE

033462

RO,a#SAVER

;THE

18.
004506

170240

Mov

:SAVE REGISTERS
;RHWC IS THE FIRST REGISTER SAVED
:STARTING ADDRES OF WHERE
REGISTERS ARE

;NUMBER OF

SAVED

REGISTERS

:SAVED = 18.

INRPLVEC,3RPVEC ;SET RPO4 VECTOR ADDRESS
;70

"TIMEY

P=CLOCK

IS PRESENT

;OR TO 'TIME2®' IF P=CLOCK IS NOT THERE
;"TIME'

WILL ONLY

SAVE

; CURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS

2767
2768

011726
011732

013746
052716

002360
000001

MOV
BIS

d#PKACK,=(SP)
#GO, (SP)

2770

011736

012677

170236

MOv

(SP)+ ,@RHCSY

;GET READY TO MOVE COMMAND
;GET READY TO SET GO
;WITHOUT INTERRUPT ENABLE
;G0 WITH
;22 IN RHCS1 FOR PACK ACKNOWLEDGE
;WITH

INTERRUPT

D]SABLED

CIRJJIDO, RPOL/S5/6 FCTNL CTRLR 2
28-MAR-79 08:52
CZRJID.PY

2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788

2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801

2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823

28264
2825
2826
2827
2828
2829

MACYY1

30A(1052)
110

25-MAY-79
10:48 PAGE €1
SET vv BIT #6 IN RHDS
ak1,R0
aR3,RS

SEQ 0060

011742
011744

0111
011305

Mov
MOov

011746
011750
011752
011754
011756

104413
002222
000100
000001
000001

WAT

;WAIT

Vv
1.

;WAIT FOR vv BIT IN RHDS1
;ALLOW 10 MICRO SECONDS

RHDS

; SAVE RHCS1
;SAVE RHDS1

DURING ABOVE OPERATION
DURING ABOVE OPERATION

FOR vv BIT

;WAIT FOR RHDS1

TO SET

;VV MUST SET BETWEEN

;00 AND 20 MICRO SECONDS

;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN
:*RO AND RS

011760

011764
011770
011774

013746
052716
011637
022600

011776
012000
012004
012010

001405
010037
010137

012012
012016
012022

012746
011637
022605

012024
012026
012032
012036

001405
010537
010337
104063

104021

002360
004200
001124

001126
004500

010700
001124

; SAVE COMMAND
; INCLUDE DVA!RDY
:SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY DVA!RDY

BEQ
MOov
MOv

648
RO,3#$BDDAT
R1,a#REGADR

;BRANCH 1F GOOD
:BAD DATA
;FAILING REGISTER RHCS1

012040
012044

004037
002222

012046
012050
012052

000001
000001
000100

034204

;AND COMMAND SHOULD BE

SET

Mov

;DURING ABOVE OPERATION ONLY
; COMMAND AND DVA!RDY SHOULD BE SET
#MOL 'DPR!DRY!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDSI

CmMP

(SP)+,RS

Mov

(SP) ,a#SGDDAT

;SAVE

FOR PRINTOUT

;DURING ABOVE OPERATION ONLY MOL.DPR'DRY.VV
: SHOULD BE SET
;BRANCH IF GOOD

BEQ

669

MOV
ERROR

R3,a#REGADR
63

;FAILING REGISTER RHDS!
:DURING ABOVE OPERATION ONLY
sMOL!DPR!DRY!VV SHOULD BE SET

JSR
RHDS1

RO,a#CHREG

: CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

RS,a#$BDDAT

66%:

012040

ISSUED

afPKACK,=-(SP)
#OVA!IRDY, (SP)
(SP) ,a¥#$GDDAT
(SP)+,RO

Mov

001126
004500

MOV
B1S
Mov
(mpP

ERROR

64%:

IMMEDIATELY AFTER GO

1
1
Vv

;BAD DATA

;1 BIT/BITS 1O BE CHANGED
;NEW VALUE OF vv IS 1
; CHANGE vv BI1

; *NOW (OMPARE REGISTERS BEFORE PACK ACKNOWLEDGE
;*WITH AFTER PACK ACKNOWLEDGE

012054

004037

012060
012062
012064
012066

004512
002254
000022
012072
012076

012070

034312

JSR

SAVERE
Wl
18.

1$
‘%

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH

;PRESENT

VALUE

:G00D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
:18. REGISTERS 10 BE COMPARED

;RETURN 10 1% ON ERROR
;RETURN T0 2% ON NO ERROR

CZRJIJDO. RPO&/S/6 FCINL CTRLRZ
(IRJID.PI
2B-MAR-79 08:52

2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843

2844
2845
2846

012072
012076

104015
000207

MACYTY

30A(1052)

25-MAY-79

110

SET

1%:

ERROR
RTS

vv BIT

15
PC

10:48
PAGE €62
#6 IN RHDSH

SEQ 0061

;GIVING A PACK ACKNOWLEDGE
;CAUSED AN ERROR
:PACK ACKNOWLEDGE

SHOULD

;SET VvV IN RHDST
:{gTERSUPI SHOULD MAKE

:NO OTHER REGISTERS SHOULD
; CHANGE

:GO0D DATA GIVES CONTENTS
;OF REGISTER BEFORE COMMAND
:RECEIVED DATA GIVES CONTENTS
012076

’%:

:OF

CIRJIDO, RPO4/S/6 FCTNL CTRLRZ
CIRJJD.PWY
28-MAR-79 08:52

MACY11

30A(1052)
25-MAY-79
10:48 PAGE ¢3
DATA TRANSFER RELATED ERRORS (USING MEDIA)

SEQ 0062

ggzg

.SBTTL

2849
2850

;;l'l'tl"!"'t"'t'ttt""'""'t'tQ't't'tttt"'t't'tt"'"t't't

2853
2854
2855
sggg

o
or
ot
*

WRITE ONE WORD CF 65125 ON CYLINDER 410./814., TRACK 18
SECTOR 21, BY A WRITE HEADER AND DATA COMMAND
THEN CHECK ALL REGISTERS (LAST BLOCK TRANSFERED
SHOULD BE SET)

2858
2859
Sgg?

X
it
e

THEN READ ABOVE USING READ DATA (256 WORDS)
CHECK ALL REGISTERS AND DATA
(AGAIN 'LBT' SHOULD BE SET)

2862

";t'ttt'tl't'!t"!tt""ttt"t't'Qtttt't'ttttttttt"'tttttttttt't

LAST BLOCK TRANSFERED-RHDS1 LBT

;eTEST 1

3333

2863
2864

012076
012100

000004
012706

001000

2867
2868
2869

012112

004737

033314

gggg

DATA TRANSFER RELATED ERRORS (USING MEDIA)

012104

012737

000011

T1ST11:

004504

SCOPE
MoV

#STACK,SP

;RESET STACK

JSR

PC,aNCLDISK

;SET R1-RHCS1, R2-RHCS2
:R3-RHDS1, R&=-RHER!
:GIVE RH=11 INITIALIZE

MOV

#M11,aNTSTNM

:SAVE TEST NUMBER

Sg;?

:SETUP UNIT NUMBER

2872
2873

:+CHECK THE DRIVE TYPE AND THEN FILL THE
:+WRITE FROM BUFFER WITH APPROPRIATE HEADER

2874

2875
2876
2877

012116
012122

005737
001412

004636

2878

2879
2880

004037
002370
000005
011456
011025
000000
000000
065125
000411

012124
012130
012132
012134
012136
012140
012142
012144
012146

ggg;

012150

2893

012150

004037

2897 012162

011025

2898
2899
2900
2901

2902

AR R A

1¢1
BEQ

A A

AR R

J¥RPO6
1%

AR AR Aa

ittt

iRl

ARl

:TEST FOR RPO6 DRIVE
:TREAT UNIT AS AN RPO4
:TREAT UNIT AS AN RP06

::'Qtll't"ttt't"'t'ttt""tt"t'tt"tll'!ttttIt'tttt'tttttt't"

2881
2882
2883
2884
2885
2886
2887
2888
Sggg

289¢
2895
2896

AR R A

012154
012156
012160
012164
012166

012170
012172

:SAVE HEADER DATA IN WRFROM
:LOCATION WHERE SAVED
:NUMBER OF WORDS SAVED
;FIRST DATA WORD
:SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD
<26.+2000>'<18.+40>.<21.>
:F1FTH DATA WORD
;CONTINUE WITH SET UP
12%
BR

RO,3#FLHEAD
JSR
WRFROM
5
11656
<18.+400>'<21.>
0
0

033140

11%:

002370
000005
010632

JSR

033140

WRFROM
5
10632

<18.+400>'<21.,>

000000
000000

065125

RO,aNFLHEAD

12%:

:SAVE HEADER DATA IN WRFROM

:LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
:FIRST DATA WORD

:SECOND DATA WORD

;THIRD DATA WORD
0
;FOURTH DATA WORD
0
<26.¢2000> . <18.¢40>'<21.>

:F1FTH DATA WORD

CIRJJIDO, RPOL/S/6 FCINL CTRLRZ2
CZRJJD.PVY
28-MAR-79 08:52
2903

2905

2906
2907
2908
gg?g
29N

MACY11

30A(1052)
25-MAY-79
10:48 PAGE 64
T
ILAST BLOCK TRANSFERED-RHDS!1 LBT
;*FILL READ INTO BUFFER WITH ALL ONES

012172
012176
012200
012202

004037
003434
000256
1rr777

033164

JSR
REINTO
256
-1

RO,a#CLAREA

;CLEAR 256 WORDS, FROM REINTO
sSTARTING FROM REINTO
;256 WORDS
SFILL WITH =1

]
SEQ 0063

CZRJIDO, RPOL/S/6 FCINL CTRLR2
CZRJIID.PI
28-MAR-79 08:52

30A(1052)
n 1

25-MAY-79

LAST BLOCK

10:48

mnS
PAGE 65

TRANSFERED-RHDS1

SEQ 0064

LBT

;*DRIVE TYPE 1S CHECKED AND THEN THE APPROPRIATE
;*WKITE HEADER AND DATA COMMAND

1S LOADED

;;"t""l"""'i"""""""""""""'."'."t""".'l'i.

005737
0014612

004636

004037
001456
025
022

035276

a#RP06
7%

JSR
814.
BYTE
.BYTE

RO, aNRUN

;TEST FOR RPO6 DRIVE

;TREAT UNIT AS RPO4

;;t'.tt""'i""""t'"'"t'tt"'t"""'t."""l"..""""'

177773

“1-4

:SETUP 10 RUN FOR DATA COMMAND
;CYLINDER 814,
;SECTOR 21.

21,
18,

; TRACK

18,

;WORD COUNT (DATA) = 1 +
;&

HEADER WORDS

:BUS ADDRESS

002370

WRFROM

000000
010000

002344

WR1FOR

000411

;CONTINUE WITH TEST

JSR

RO, a#RUN

:SETUP T0 RUN FOR DATA (OMMAND
;CYLINDER 410.
;SECTOR 21.

:STARTING ADDRESS OF DATA
= WRFROM
:BUFFER
;00 NOT INHIBIT BUS ADDRESS INCREMENT

116 BITS PER WORD FORMAT
;00 NOT INHKIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE
,GET READY 10 DO A WRIFOR
AND DATA WITH 62 IN RH(SI
HEADER
;WRITE

FMT22

035276

012236
012242
012244
012245
012246

004037
000632

025
022
177773

410.
.BYTE
.BYTE
-1-4

012250

002370

WRFROM

012252
012254

000000
010000

012256

002344

WRIFOR

FM122

7%:

012236

oD —
L]
.

012234

18T
BEQ

—

2912
293
2914
2915
296
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967

MACYIY

;:TRACK

18.

;WORD COUNT (DATA) =1
;4 HEADER WORDS
;BUS ADDRESS
;STARTING ADDRESS OF
= WRFROM
;BUFFER

DATA

;00 NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
;00 NOT INHIBIT ECC CORRECTION
;00 NOT INH]BIT HEADER COMPARE
.GET READY 10 DO A WRIFOR
;WRITE HEADER AND DATA WITH 62 IN RHCS!

8%:

012260

; *NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE
012260
012264
012266
012270

004037
002172
0046512
000022

033462

JSR

RHWC

RO,a#SAVER

:SAVE REGISTERS
;RHWC

IS THE

FIRST

SAVERE

;STARTING ADDRES OF WHERE

18.

;NUMBER OF REGISTERS

;THE

REGISTERS ARE

SAVED

CZRJJIDO, RPO&L/S/6 FCINL CTRLR2
CZRJJD.PN
28-MAR-79 08:52
2968
2969
2970
29N
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981

2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003

3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023

MACY11

30A(1052)

25=MAY=79

LAST BLOCK

10:48

5
PAGE 66

TRANSFERED-RHDS1

SEQ 0065

LBT

;SAVED = 18.
012272

004737

033374

JSR

PC.aNCHECKT

012276
012302
012304

000000
013777

104401

0576465

TYPE
HALT

,CPHALT

004506

167654

mov

; CHECKS DVA,RDY,
MOL ,DPR,DRY AND vV = 1
;AND THAT ALL STATUS BITS ARE = 0
;CANNOT CONTINUE
;STOP TEST

TESTING

NOT

@N#RPLVEC,BRPVEC ;SET RPO4 VECTOR ADDRESS

;70 "TIME1® IF P=-CLOCK IS PRESENT
:OR 10 'TIME2' IF P=CLOCK IS NOT THERE
;'TIME'

WILL ONLY

SAVE

s CURRENT CYLINDER ADDRESS

sAND LOOK AHEAD REGISTERS

012312
012316

013746
052716

002344
000101

Mov
BIS

ANWRIFOR,-(SP)
#GO!1E, (SP)

012322

012677

167652

Mov

(SP)+,aRHCS1

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND

;ENABLE INTERRUPT
;60 WITH

:62 IN RHCS! FOR WRITE HEADER AND DATA

;WITH

;tTIME
012326
012330
012332
012334
012336

;WAIT

RHDS1

033216

012350
012354
012356

004037
002174
002402

033216

012360
012364

004037
C02222

034204

012366
012370
012372

000001
000001
002000

012374
012400

004037
002212

012402
0124064
012406

000001
000001
000001

012410

004037

SAVED REGISTERS TO EXPECTED VALUE

JSR

RO,a#FILLRE

;MOV 0 INTO SAVED RHw(

JSR

RO,9#FILLRE

;MOV WRFROM+<5¢2> INTO SAVED RHBA

JSR

RO,3#CHREG

;CHANGE BITS IN SAVED REGISTER

RHWC
0

RHBA
WRFROM+<5¢2>

RHDS?
1

JSR
RHCA

RO,3#CHREG

: CHANGE RHDS1

BIT/BITS 70 BE (HANGED

IS 1

;CHANGE BITS IN SAVED REGISTER
;CHANGE RHCA REGISTER
;1 BIT/BITS 70 BE CHANGED
sNEW VALUE OF BITO IS 1

8110

JSR

;SAVED REGISTER TO CHANGE
:DATA

:NEW VALUE OF (BT
; CHANGE LBT BIT

]
1

033216

:SAVED REGISTER TO CHANGE
:DATA

1
LBT
034204

TO SET

REGISTER
;WAIT FOR LBT BIT IN RHDS1 REGISTER
;ALLOW 25000 MICRO SECONDS
;LBT MUST SET BETWEEN
;00 AND 50000 MICRO SECONDS

:*NOW CHANGE

004037
002172
000000

FOR LBT BIT

;WAIT FOR RHDS1

LBT
2500.
2500.

012340
012344
012346

ENABLED

IS NOT CRITICAL HERE

WAT

104413
002222
002000
004704
004704

INTERRUPT

s CHANGE BITO BIT

RO,a#F ILLRE
.

;MOV 0 INTO SAVED RMDST

3024
3025
3026
3027
3028
3029
3030
3031
303
3033
3034
5035
3036
3037
3038
3039
30«0

3041
3042
3043
3044
3045
3046
3047

012474
(APIRL

002204
000000

8 o
25-MAY=79
10:48
PAGE ¢/
LAST BLOCK TRANSFERED-RMDS! LBT

004037

;DATA

012426
012426
012430
012432
012434

0046512
00225¢4
000021
012436
012462

012436

104045
000207

012440

034312

JSR

. COMPARE SAVED REGISTERS wWlTH

;PRESENT

VALUE

;TEST DATA STARTING FROM ‘RHW('

:17. REGISTERS TO BE (OMPARED
;RETURN 70 1% ON ERROR
:RETURN T0 2% ON NO ERROR

RTS

REGISTERS

;600D DATA SAVED IN 'SAVERE'

Wl
17.

ERROR

ALL

RO,3FCOMREG

SAVERE

1%:

SEQ 0066

;SAVED REGISTER 10 (MANGE

RHD>!

;*COMPARE

012420

——

SO:§1052)

45
PC

;WRITING ON THE

LAST

BLOCK

;1E. CYLINDER 410./814., SECTOR 21

: TRACK

18 CAUSED

: IMPROPER REGISTER CHANGE
;GO0OD DATA GIVES WHAT
: SHOULD BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE AFTER WRITE
;ON LAST BLOCK

MACY Y

L ——

(212)400, RPO4L/S/6 F(TNL CIILSZ
(IRJD.PNY
¢8-MAR-79 08:5

30A(1052)
25-MAY-79
10:48
PAGE 68
ILAST BLOCK TRANSFERED-RHDS1 LBT
TMm

SEQ 0067

;*NOW A READ DATA WILL BE DONE ON SAME CYLINDER, SECTOR & TRACK
2%:

012442
012442

004737

;*CLEAR ANY PREVIOUS ERRORS

JSR

033314

PC.,aNCLDISK

;SET R1-RHCS1, R2-RH(S?

:R3-RHDS1, R4-RHER1

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;oFILL WRITE FROM BUFFER WITH EXPECTED DATA
012446
012452

012454
012456

012460
012464
012466
012470

004037
002370
000001
065125

033140

004037
002372

033164

JSR

RO,a#FLHEAD

:SAVE HEADER DATA [N WRFROM

WRFROM
;LOCATION WHERE SAVED
1
:NUMBER OF WORDS SAVED
<26.2000>'<18.¢40>'<21.>

000400
000000

;FIRST DATA WORD

JSR
RO,aNCLAREA
WRFROM+?2
256.
0

:CLEAR 256. WORDS, FROM WRFROM+?
:STARTING FROM WRFROM+?

;*FIRST THE DRIVE TYPE

IS CHECKED AND THEN THE APPROPRlATE

:*READ COMMAND

:256. WORDS

SFILL WITH O

IS LOADED

;:".'""'C"""'Q"""""""""""t".".Qt""""""..

004037
001456
025

—t

h e

005737

rarororo NN

012472
012476

OOOOO0O

3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062

MACY1Y

012522

001412

a¥#RP06

BEQ

JSR
814,
BYTE
.BYTE
-256.

RO,3#RUN

TEST FOR RPO6 DRIVE

: TREAT UNIT AS RPO4

:;'tt't"'t"'t"t"t"""t"""""'t.'fl.l"".tt"""""".

035276

022
177400
0034364

21,
18.

REINTO

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 814,
;SECTOR 21,
; TRACK 18,
;WORD COUNT = 256.
:BUS ADDRESS
;STARTING ADDRESS OF DATA
= REINTO
;BUFFER

;D0 NOT INHIBIT BUS ADDRESS INCREMENT

000000
010000

002346

READAT

000411

10%

;CONTINUE WITH TEST

JSR
610,

RO,a#RUN

;SETUP TO RUN FOR DATA COMMAND
:CYLINDER 410,
;SECTOR 21,

216 BITS PER WORD FORMAT
;00 NOT INHiBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A READAT

FMT22

;READ DATA WITH 70 IN RHCSI

012524
012524
012530
012532

181

004636

004037
000632
025

035276

BYTE

21,

~r~

CIRJJIDO, RPO4/S/6 FCINL CTRLR2
CIRJJD. P11
28-MAR-79 08:52

CIRJJIDO, RPOL/S/6 FCINL CTRLR2
CIRJJD.PIY
28-MAR-79 08:52

—=OOVONC NS NN =000~
NOWVNES W
NO VNS NN =00V
NS NN —=O 0V
O®WYO VB NN =O OO N

—

D i o

D e e

i e

N WVAUAAVAVAUNAWNE
S

i el el

D o

S S5 B2Bid

i e

i \N

D el e

e el

il el

D il

D ol

UN N WNNI PO NI R NI PN RO NINI N

D il i

b =P e

D e

b b e

D sl i e

s L A A2 Ll g L L At L L At U W Ul U U Lt A A L L A L A U L L Lt At U W U W Ll L U Ut U L L L L L L W L A L

D e

ek et et 2t O O O

3104
3105
3106

MACY1]

012533
012534
012536

022
177400
00343¢

.BYTE
=256.

012540
012542

000000
010000

012544

002346

READAT

10:48

18.

: TRACK 18,
;WORD COUNT

SEQ 0068

;BUS ADDRESS

= 256.

;STARTING ADDRESS OF DATA
;BUFFER = REINTO
;00 NOT INHIBIT BUS ADDRESS INCREMENT

FMi22

;16 BITS PER WORD FORMAT

;00 NOT INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A READAT
;READ DATA WITH 70 IN RHCS1

10%:

;*SAVE REGISTERS FOR COMPARISON AFTER READ DATA

JSR
RHWC
SAVERE

004037
002172
004512

012556

000022

012560

004737

033374

JSR

PC,aNCHECKT

012564

104401

057465

. CPHALT

013777

004506

TYPE
HALT
MOov

000000

033462

RO,3NSAVER

012546
012552
012554

012572

PAGE €9

REINTO

012546

012570

30?(1052)
LAST BLOCK TRANSFERED-RHDS1 LBT
LR
25-MAY=-79

;THE REGISTERS ARE

18.

167366

:SAVE REGISTERS
;RHWC IS THE FIRST REGISTER SAVED
:STARTING ADDRES OF WHERE
:NUMBER OF

SAVED

REGISTERS

:SAVED = 18.
:CHECKS DVA,RDY MOL,DPR,DRY AND VvV = 1
;AND THAT ALL STATUS BITS ARE = 0

: CANNOT CONTINUE TESTING IF NOT
;STOP TEST
S#RPLVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS
;10

"TIMEY1'

P-CLOCK

IS PRESENT

;OR TO 'TIMEZ2' IF P-CLOCK IS NOT THERE
;'TIME' WILL ONLY SAVE
: CURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS
012600
012604

013746
052716

002346
000101

MOV
BIS

S#READAT,-(SP)
#GO!1E, (SP)

012610

012677

167364

MOv

(SP)+,aRHCSY

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;ENABLE INTERRUPT
;G0 WITH

;70 IN RHCS1 FOR READ DATA
;WITH INTERRUPT ENABLED

;*TIME 1S NOT CRITICAL HERE
012614
012616
012620
012622
012624

WAT
RHCS1

104413
002200
000200
001614
001502

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER

RDY
908.
834,

;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN
;740 AND 17420 MICRO SECONDS

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE

012626
012632
0126%

004037
002172
000000

033216

JSR

SHUC

RO,a#FJLLRE

;MOV O INTO SAVED RHW(C
:g:¥§0 REGISTER TO CHANGE

CIRJIDO, RPO4/S/6 FCTINL CTRLRZ2
(ZRJJD P11
28-MAR-79 08:52
3160
3161
3162
3163
3164
3165

3166
3167
3168
3169
3170
b3RA!
3172

3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188

3189
3190
3191
3192
3193
3194
3195
3196
3197
3198
3199
3200
3201
3202
3203
3204

3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215

012636
012642
012644

004037
002174
004434

033216

012646

012652

004037
002222

034204

012654
012656
012660

000001
000001
002000

012662

012666

004037
002212

012670
012672
012674

000001
000001
000001

012676
012702
012704

004037
002204

MACY1Y

30?%1052)

25-MAY-79

ILAST BLOCK

JSR

RHBA

10:48

PAGE 79

TRANSFERED-RHDS!1

RO,afFILLRE

REINTO+<256.*2>
JSR
RHDS1

RO,a#CHREG

JSR

RHCA

RO,3#CHREG

SHDST

; CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

;:CHANGE BITS [N SAVED REGISTER

; CHANGE RHCA REGISTER
BIT/BITS T0 BE

CHANGED

:NEW VALUE OF BITO IS 1
; CHANGE BITO BIT

BITO

JSR

;DATA

1
1

033216

:MOV REINTO0+<256.¢2> INTO SAVED RHBA
:SAVED REGISTER TO CHANGE

;1 BIT/BITS T0O BE CHANGED
;NEW VALUE OF LBT IS 1
; CHANGE LBT BIT

1
1
LBT

034204

SEQ 0069

LBY

RO,a#FILLRE

;MOV 0 INTO SAVED RHDST

:SAVED REGISTER TO CHANGE
;DATA

000000

;*COMPARE ALL REGISTERS
012706

004037

012712
012714
012716
012720
012722

004512

002254
000022
012724
012730

012724
012726

1064065
000207

JSR

034312

RO,3#COMREG

SAVERE
WC
18.

;TEST DATA STARTING FROM 'RHWC'

:18. REGISTERS 10 BE COMPARED
;RETURN T0 3$ ON ERROR

;RETURN TO 4% ON NO ERROR

ERROR
RTS

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;600D DATA SAVED IN 'SAVERE'

45
PC

;READING ON LAST BLOCK IE.
;CYLINDER 410./814., SECTOR 21, TRACK
; CAUSED AN ERROR
:GOOD DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE AFTER READ
;FROM LAST BLOCK

012730

012730
012734
012736
012740
012742
012744

004037
002370
003434
000400
012746
012752

012746

104046

;*READ DATA WiLL BE COMPARED
JSR

035342

WRFROM

RO,3#COMPAR

REINTO

256.
5%

;RETURN TO 5% ON ERROR
;RETURN 70 6% ON NO ERROR

6%
5%:

ERROR

; COMPARE TWO BLOCKS OF MEMORY
;600D DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
:256., WORDS 1O BE COMPARED

:DATA READ FROM

CIRJIDO, RPO4/S/6 FCTINL CTRLR2
CZRJJD.PV
28-MAR-79 08:52

3216

012750
012752

MACY11

30A(1052)
10:48
PAGE 7!
25-MAY-79
TM
LAST BLOCK TRANSFERED-RHDS1

000207

RTS

6%:

LBT

sLAST BLOCK [N ERROR

SEQ 0070

(IRJJDO, RPO4/S/6 FCINL CTRLR2
CIRJID.P
28-MAR-79 08:52

MACY1T

3222
3223
3224
3225
3226
3227

25-MAY-79

LLAST BLOCK

»
2

B
Ve

004737

033314

012772

004737

033374

012776
013002

104401

000000

057465

013004

013777

004506

P
»
»
¥

7¢

TRANSFERED-RHDS1

SEa 0071

LBT

SEARCH COMMAND

1S STARTING WITH A RECALIBRATE

THEN HEADER AND DATA WILL BE WRITTEN FOR SECTOR O AND 1
(HECKED

A SEARCH COMMAND WILL BE GIVEN FOR SECTOR 0
ON INTERRUPT SECTOR 1 HEADER AND DATA WILL BE READ
TIME WILL BE CRITICAL AS THE TIME TAKEN TO DO THE
READ IS THE ONLY INDICATOR THAT THE HEADS WERE ON

SECTOR O AT

INTERRUPT TIME.

OF 1500 MICRO SECONDS
THEN ALL REGISTERS ARE
CHECKED
IS
XXX

i§T12:
004504

PAGE

ALL REGISTERS WILL BE

Ve
B

012766

THAT

Ve
Be

001000
000012

rO NN

760

000004
012706
012737

THE SEARCH COMMAND WILL BE DONE ON CYLINCER 0

®»
%
»

Be
Be
®e

BRI

752
754

10:48

XZ2 2222222222222
AR
RRARRRRRRRR SRR
RRRRRR
Rl Rl

TOTEST 12

3228
3229
3230
3231

3232
3233
3236
3235
3236
3237
3238
3239
3240
3241
3262
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
5258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269

30A(1052)

SCOPE
Mov

TIME ALLOWED IS MAXIMUM

CHECKED AND DATA READ

2R RRRARARARARRRARRRRRAN

Mov

FSTACK,SP
#12,aNTSTNM

;RESET STACK
;SAVE TEST NUMBER

JSR

PC,aNCLDISK

:SET R1-RHCS1, R2-RHCS?
:R3-RHDS1,

R&=RHER1

;GIVE RH-11 INIT]ALIZE
; SETUP UNIT NUMBER
;*GET HEADS TO CYLINDER O
;CHECKS DVA,RDY ,MOL,DPR,DRY AND VvV
PC,aNCHECKT
JSR
;AND THAT ALL STATUS BITS ARE - 0
TYPE

LCPHALT

Mov

S¥RPLVEC,QRPVEC

HALT

167156

; CANNOT CONTINUE

;STOP TEST

TESTING IF

NOT

;SET RPO4 VECTOR ADDRESS

;70 "TIMEY1'

P=-CLOCK

IS PRESENT

;OR TO 'TIME2' IF P=-CLOCK IS NOT THERE
;"TIME'

WILL ONLY

SAVE

; CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

013012
013016

013746
052716

002326
000101

MOov

SFRECALI,-(SP)

013022

012677

167152

MoV

(SP)+,aRH(CS)

WAT

104613
002222
000200
012740
012737

004737

B1S

#GO.1E, (SP)

;WAIT FOR RDY BIT 10 SET

:WAIT FOR RHDSY! REGISTER
;WAIT FOR RDY BIT IN RHDS! REGISTER
;ALLOW 56000 MICRO SECONDS
;RDY MUST SET BETWEEN

RHDS1
ROY
5600.
5999.

033314

JSR

,;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;ENABLE INTERRUPT
;G0 WITH
;6 IN RHCS1 FOR RECALIBRATE
;WITH INTERRUPT ENABLED

;10 AND 111990 MICRO SECONDS

PC,a#CLDLISK

;SET R1-RH(S1, R2-RH(S?2

CIRJIDO, RPOG/S/6 FCTINL CTRLR2
CIRJJD.P
28-MAR-79 08:52

MACYTT

30A(1052)
25-MAY-79
10:48
112
SEARCH [OMMAND

3278
3279

013044
013050
013052
013056
013056
013060
013062

004037
002370
000004
010000
000000
000000
000000

033140

3304
3305
3306
3307
;ggg

013064
013070
013072
013074

004037
002400
000400
000000

033164

3312
3313
3314
3315

3316
31317

013076
013102

013104
013106
013110
013112
013114

004037
003400

033140

000004
010000
000001
000000
000000

7319

3324
3325
§§2$
2

3328

3329
3330
3331
3332
3333

:SAVE HEADER DATA IN WRFROM
:LOCATION WHERE SAVED
:NUMBER Of WORDS SAVED
:FIRST DATA WORD
;SECOND DATA WORD
;THIRD DATA WORD
:FOURTH DATA WORD

JSR
RO, 3N CLAREA
WRFROM+ 10
256.
0

:CLEAR 256. WORDS, FROM WRFROM+10
;STARTING FROM WRFROM+10
:256. WORDS
sFILL WITH O

JSR
RO,aNF LHEAD
WRFROM+<260.¢2>
4
10000
1
0
0

:SAVE HEADER DATA IN WRFROM+<260.2>
:LOCATION WHERE SAVED

:NUMBER OF WORDS SAVED
;FIRST DATA WORD
:SECOND DATA WORD
:THIRD DATA WORD
;FOURTHM DATA WORD

seFILL WRITE FROM BUFFER WITH NEXT SECTOR DATA

013116
013122

0131264
013126

004037
003410

033164

000004
000001

RO,a#CLAREA
JSR
WRFROM¢ <264 .¢2>
6
1

:CLEAR & WORDS, FROM WRFROM+<264.*2>
%2>
:STARTING FROM WRFROM¢<264,
;4 WORDS
sFILL WITH Y

:+(LEAR READ INTO BUFFER WITH DATA OTHER THAN EXPECTED DATA

31318

3320
3321
3322
3323

RO,aNFLHEAD

seFJLL WRITE FROM BUFFER WITH NEXT SECTOR HEADER

§§1?
1

JSR
WRFROM
4
10000
0
0
0

soFILL WRITE FROW RUFFER WITH DATA

gggq

3302
3303

SEQ 0072

;eFILL WRITE FROM RUFFER WITH HEADER

%%3%

3298
3299

;SETUP UNIT NUMBER

g%g%

3294
3295
3296
3297

PAGE

:R3I-RHDS!, R&-RHERT
:GIVE RH=11 INITIALIZE

%SS?
3284
3285
31286
3287
3288
3289
ggg?

013130
0131364
013136
013140

004037
003434
000404
000377

033164

JSR
REINTO
260,
377

RO,3#CLAREA

:CLEAR 260. WORDS, FROM REINTO
:STARTING FROM REINTO
;260. WORDS
JFILL WiTH 377

;¢THE WRITE HEADER AND DATA WiLL BE LOADED

013142

013146
013150
013151
(013152

004037

000000
000
000
177364

035276

JSR

RO,3/RUN

0
0
BY'E
0
BYTE
=264 .4

:SETUP 10 RUN FOR DATA (OMMAND

:CYLINDER 0
:SECTOR 0
:TRACK 0
;WORD COUNT (DATA)
;4 MEADER WORDS

264, ¢

CIRJJDO, RPO4L/S/6 FCTINL CTRLR2
CIRJJD.PY
28-MAR-79 08:52
002370

30A(1052)
25-MAY-79
10:48
112
SEARCH COMMAND

002344

WR1FOR

—

b
—

o
oo

013162

004037
002172
006512

PAGE

WRfROM

000000
010000

SEQ 0073

;BUS ADDRESS

;STARTING ADDRESS OF

DATA

;BUFFER = WRFROM
:00 NOT INHIBIT BUS ADDRESS INCREMENT

FM122

;16 BITS PER WORD FORMAT

;00 NOT INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER C(OMPARE
;GET

READY

TO DO A WRIFOR

;MRITE HEADER AND DATA WITH 62 IN RM(SI

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA

JSR
RHW(
SAVERE

033462

RO,a#SAVER

REGISTERS ARE

;NUMBER OF

SAVED

REGISTERS

;SAVED = 18.

013176

004737

033374

JSR

PC,afCHECKT

013202
013206

104401
000000

057465

TYPE
HALT

»CPHALT

013210

013777

004506

MOV

AfRPLVEC,aRPVEC

166750

;SAVE REGISTERS
;RHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE
;THE

18.

000022

:CHECKS DVA,RDY,MOL ,DPR,DRY AND vV ;AND THAT ALL STATUS BITS ARE - 0
;CANNOT CONTINUE
;STOP TEST

TESTING

NOT

:SET RPO4 VECTOR ADDRESS
;10

*TIMEY®

READY

P=-CLOCK

|S PRESENT

:OR TO 'TIMEZ2' IF P=CLOCK IS NOT THERE
;"TIME® WILL ONLY SAVE
sCURRENT CYLINDER ADDRESS
;AND LOOK AMEAD REGISTERS
Mov

9¥WRIFOR,-(SP)

;GET

013226

012677

166746

MOV

(SP)+,aRHCSI

;60 WITH

—

BIS

MOV

N —

013232
013234

002344
000101

—

013746
052716

013216
013222

MOV

#GO!1E, (SP)

aR1,R0

arR3, RS

1O MOVE

COMMAND

:GET READY 1O SET GO AND
;ENABLE INTERRUPT

;62 IN RHCS1 FOR WRITE HEADER AND DATA

:WITH INTERRUPT ENABLED
;SAVE RHCS1 DURING ABOVE OPERATION

;SAVE RHDS1 DURING ABOVE OPERATION

; *ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC
WAT
RHCS

104413
002200
000200
001614
001507

;WAIT FOR RDY BIT 10 SET
;WALIT FOR RHCS! REGISTER

RDY
908.
839.

;WAIT FOR RDY BIT IN RHCSY REGISTER
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN
;690 AND 17470 MICRO SECONDS

;*COMPARE (ONTENTS OF RHCS1 AND RHDS! ALREADY SAVED I[N
[0 e R
e
—
~NOoO O

—s NI

;*RO AND RS

— APV

013236
013240
013242
013244
013246

OO0

3385
3386
3387
31388
3389

013154
oo

3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
337%
3374
3375
3376
3377
3378
3379
3380
3181
3382
3383
3384

MACYI1

002344
004101
001124

Mov

BIS
MOV

IMMEDIATELY AFTER GO 1S

o#WRIFOR,=-(SP)

#1t DVA!GO,(SP)
(SP),a#$GDDAT

;SAVE

ISSUED

(OMMAND

;INCLUDE 1E.DVA!GO
;SAVE FOR PRINTOUT

CIRJJIDO, RPO&L/S5/6 FCTINL CTRLRZ
CZRJJD. P11
28-MAR-79 08:52
1390
3391
3392
3393
3394
3395
3396
3397
3398
3399
34,00
3,01
3,02
3,03
3,04
3405
3406

3407
3,08
34,09

013264

022600

013266
013270
013274
013300

001405
010037
010137
104021

013302
013306
013312

012746
011637
022605

013314

001405

013316
013322
013326

010537
010337
104063

010500
001124

013330

3415
3616
3,17

013340
013346
013346

004037
002174
003420

033216

013350
013354
013356

004037
002204
000002

033216

3443
| Yy

3445

SEARCH COMMAND

PAGE

SEQ 007«

cmp

(SP)+,RO

BEQ

67%

:AND COMMAND SHOULD BE SET
:BRANCH 1F GOOD

Mov
ERROR

R1,3#REGADR
21

;FAILING REGISTER RH(S!
;DURING ABOVE OPERATION ONLY

RO,a#$BDDAT

;:DURING ABOVE OPERATION ONLY
;BAD DATA

: COMMAND AND ]E'DVA'GO SHOULD BE SET
:SAVE BITS SET DURING OPFRATION IN RHDS!

MOV

#MOL 'DPR'VV,=(SP)

(mp

(SP)+,RS

MOV

BEQ
MOV
MOV
ERROR

(SP) ,a#$GDDAT

69%
RS,a#$BDDAT
R3,3#REGADR
63

[E.DVA'GO

;SAVE

FOR PRINTOUT

:DURING ABOVE OPERATION ONLY MOL 'DPR'vyV

;SHOULD BE SET

;BRANCH IF GOOD
;BAD DATA
;FAILING REGISTER RHDS!
:DURING ABOVE OPERATION ONLY

;MOL .DPR!VV SHOULD BE SET

; *NOW CHANGE SAVE REGISTERS TO EXPECTED VALUES
033216

3,28
3429
3,30
3,31
3432
3,33
343,
3435
3436
3,37
3,38
3439
3440
3441
3462

67%:

10:48

698:

004037
002172
000000

3424
3425
3426
3427

25-MAY-79

MoV

001126
004500

013330
013334
013336

3,18
3419
3,20
3421
3422
3423

SOAEIOSZ)

001126
004500

3,10
3411
3412
3413

3414

MACY1]

;MOV O INTO SAVED RHWC

JSR

RO,a#FILLRE

JSR

RO,a#f ILLRE

;MOV WRFROM+<268.+2> INTO SAVED RHBA

JSR
RHDST
2

RO,a#FILLRE

:MOV 2 INTO SAVED RMDST
;SAVED REGISTER TO CHANGE
;DATA

RHW(
0

RHBA
WRFROM+<268.2>

:SAVED REGISTER
;DATA

TO CHANGE

:SAVED REGISTER TO CHANGE
:DATA

; *NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA
;*WITH REGISTERS AFTER CCMMAND

013360

004037

013364
013366
013370
013372
013374

004512
002254
000022
013376
013402

013376
013400

104027
000207

JSR

034312

RO,3#COMREG

; COMPARE SAVED REGISTERS WITH
+PRESENT VALUE
;GOOD DATA SAVED IN 'SAVERE'
TEST DATA STARTING FROM '"RHwW('
:18. REGISTERS 70 BE COMPARED
;RETURN TO 1% ON ERROR
;RETURN TO 2% ON NO ERROR

27
PC

;WRITE HEADER AND DATA
;CAUSED IMPROPER REGISTER

SAVERE
Wi
18.
1%

ERROR
RTS

: CHANGE

;GOOD DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT
;WAS

THERE

AFTER

*NOW A SEARCH COMMAND wilLL BE GIVEN

COMMAND

CIRJJDO, RPOL/5/6 FCTINL CTRLR2

CIRIID.PIY

28-MAR-79 08:52

MACYN

30A(1052)

112

3446

25-MAY-79

10:48

SEARCH COMMAND

PAGE 76

SEQ 0075

;*BUT BEFORE THAT ALL POSSIBLE REGISTERS

3647

;eWlLL BE FILLED FOR THE READ HEADER AND DATA SECTOR 1

g:gg

:+COMPLETION OF THE SEARCH AND THE SECTOR 1 COMING.

3648

;*AS THERE WILL NOT BE MUCH TIME BETWEEN THE

3451
3452
3453
g:gg
3456
3457

3458

3459

;*FILL FOR THE READ HEADER AND DATA COMMAND WHICH WiLL NOT
;*BE EXECUTED TILL AFTER THE SEARCH
:*THE SEARCH WILL ONLY LEAVE RHCS1 AND RHDST
;*CHANGED ALL THE REST WILL BE UNCHANGED
013402

013402

¢%:

004737

033314

JSR

PC,a#CLDISK

3460

;GIVE RH=11

013406
013412
013414
013415
013416
013420

004037
000000
000
000
177770
003436

3471
3472
3473

013422
0136264

000000
014000

0
ECI'FMT22

3475
3476

013426

002334

SERCH

3676

035276

JSR
0
BYTE
.BYTE
-8.
REINTO

3477
3478

3479
3480

3481

3482
3483
3484
3,85

34,86

013430

004037

013434
013436

002172
004512

013440

000022

033462

JSR

RHWC
SAVERE

3498

;DO NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
:INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE

:GET READY T0 DO A SERCH
:SEARCH WITH 30 IN RHCS!

RO,3¥#SAVER

:SAVE REGISTERS

:RHWC 1S THE FIRST REGISTER SAVED
:STARTING ADDRES OF WHERE
:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS

;SAVED = 18,

ceWlLL CHANGE AFTER THE SEARCH

013442
013446

013452
013456

013746
052716

012637
012737

MOV
B1S

002350
000101

004652
000001

004660

3,96
3497

3499
3500
3501

0
0

:SETUP TO RUN FGR DATA (OMMAND
;CYLINDER 0
;SECTOR 0
:TRACK 0
:WORD COUNT = 8.
:BUS ADDRESS
;STARTING ADDRESS OF DATA
;BUFFER = REINTO

:*NOW SAVE VALUES FOR RHCS1 AND RHDST WHICH

gagg

3493
54;2

RO,3#RUN

18.

3488

3691
3492

INITIALIZE

:+SAVE REGISTERS FOR COMPARISON NOT AFTER THE
:+SEARCH COMMAND BUT AFTER THE READ HEADER AND DATA

3487
&4

;R3-RHDS1, R&=-RHER!

;SETUP UNIT NUMBER

gzg;

3663
3464
3465
3466
3467
34,68
3469
3470

;SET R1=-RHCS1, R2-RH(S2

MOV
MOV

QNREFOR,-(SP)
¥1E'GO, (SP)

(SP)+,aNTMPO
#1,30TMPS

;SAVE READ HEADER AND DATA
: INTERRUPT ENABLE AND GO

:SAVE IN RO FOR RH(CS!
:SAVE TRACK O SECTOR 1 FOR RHDST

:+THE INTERRUPT VECTOR WiLL BE SET 10 GO 10 2%
:¢AFTER THE SEARCH

013464
013472

012777
006737

013532
033374

166474

MOv
JSR

#7%,8RPVEC
PC.,a#(HECKT

;SET INTERRUPT VECTOR 10 2%
; CHECKS DVA,RDY,MOL,DPR,DRY AND VvV
;AND THAT ALL STATUS BITS ARE - 0

CIRJJIDO, RPOL/S/6 FCINL CTRLR2
(IRJJD.PY
28-MAR-79 08:52
3502
3503
3504
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549
3550

3551

3552

3553
3554
3555
3556
3557

MACY11

30A(1052)
112

25-MAY=-79

10:48

SEARCH COMMAND

PAGE 77

SEQ 0076

013476
013502

000000

104401

057465

TYPE
HALT

CPHALT

013504
013510

013746
052716

002334

MoV

afSERCH,-(SP)

#GO!IE, (SPY

:GET READY TO SET GO AND

013514

012677

166460

Mov

(SP)+ ,aRHCS]

;G0 WITH
;WITH INTERRUPT ENABLED

000101

BIS

:CANNOT CONTINUE
;STOP TEST

TESTING IF

;GET READY TO MOVE

NOT

COMMAND

;ENABLE INTERRUPT

;*TIME IS NOT CRITICAL THIS ONLY WAITS FOR SEARCH COMPLETION
013520
013522
013524
013526
013530

1064413
002222
000200
001614
001507

013532

012737

WAT
RHDS1

;WAIT FOR DRY BIT T0 SET
:WAIT FOR RHDS! REGISTER

DRY

;WAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 9080 MICRO SECONDS
;DRY MUST SET BETWEEN
;690 AND 17470 MICRO SECONDS

908,
839.
000000

177776

7%:

Mov

#0,PS

:SET PROSESSOR STATUS T0

;PRIORITY O IN CASE IT WAS
; TAKEN OUT OF

;BEFORE RT]

WAT

ROUTINE

013540

013777

004660

166436

MOV

8#TMPS ,aRHDST

;SET DESIRED SECTOR/TRACK

013546

013777

004506

166412

Mov

S#RPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

;REGISTER TO SECTOR 1,TRACK 0
;10

"TIMEY'

P=-CLOCK

IS PRESENT

;OR TO °'TIME2' IF P-CLOCK IS NOT THERE
;'TIME'

WILL ONLY

SAVE

s CURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS

013554

013777

004652

166416

MOV

a¥TMPO,aRNCST

;FILL RHCST WITH READ COMMAND
;TOGETHER WITH INTERRUPT ENABLE

:AND GO

;*TIME ALLOWED HERE

1S CRITICAL ANY TIME ERROR

;*INDICATES WRONG SEARCH IN THE SEARCH COMMAND
013562
013566
013566
013570
013572

;WAIT FOR RDY BIT 10 SET
;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1
SALLOW 1490 MICRO SECONDS

WAT
RHCSY
RDY
149.

104413

002200
000200
000225
000002

;RDY MUST SET BETWEEN

;16470 AND

1510 MICRO SECONDS

;*WRITE FROM BUFFER WiLL BE FILLED WITH EXPECTED DATA

013574
013600
013602
013604
013606
013610
013612

004037
002370
000004
010000
000001
000000
000000

033140

013614

004037

033164

JSR

WRFROM
4
10000
1
0

RO,a#FLHEAD

JSR

;SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED
;NUMBER Of WORDS SAVED
;FIRST DATA WORD
s SECOND DATA WORD
:THIRD DATA WORD
;FOURTH DATA WORD

RO,a#CLAREA

;CLEAR & WORDS, FROM WRFROMe+<4e?2>

CZRJJDO RPO4/5/6 FCTNL CTRLRZ
28-MAR- 79 08:52
CZRJIJD.PUN
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582

3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613

013620
013622
013626

MACYN

30A(1052)
112

25-MAY-79

10:48

né

SEARCH COMMAND

2>
WRFROM+<4

002400
00000«
000001

PAGE

SEQ@ 0077

;4 WORDS

;STARTING FROM WRFROM+<4e2>

JFILL WITH O

: *CHANGE SAVED REGISTERS TO EXPECTED VALUES
013626
013632
013634

004037
002172

033216

013636
013642
013644

004037
002174
003454

033216

013646
013652
01365¢

004037
002200
004272

033216

013656
013662
013664

004037
002204
000002

033216

JSR

SHUC

000000

JSR

RHBA

RO,a#F ILLRE

sDATA

RO,a#FILLRE

REINTO+<B.*2>

JSR

RHCST
6272

JSR

SHDST

:MOV 0 INTO SAVED RHW(

;SA¥ED REGISTER TO CHANGE

RO,B#FILLRE

;MOV REINTO+<8.¢2> INTO SAVED RHBA
:SAVED REGISTER TO CHANGE
;DATA

sMOV 4272

INTO SAVED RHCSI

:3A¥ED REGISTER TO CHANGE
;DA

RO,a#F ILLRE

;MOV 2 INTO SAVED RHDST
;SAVED REGISTER TO C(HANGE
;DATA

;*COMPARE REGISTER BEFORE READ HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND
013666

004037

013672
013674
013676
013700
013702

004512
002254
000022
013704
013710

013704
013706

104031
000207

JSR

034312

RO,3#COMREG

18.

;G0O0D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘'RHW('
;18. REGISTERS TO BE COMPARED

;RETURN TO 4% ON NO ERROR

SAVERE

;RETURN T0 3% ON ERROR

3%:

. COMPARE SAVED REGISTERS WITH

;PRESENT VALUE

ERROR
RTS

:READ HEADER AND DATA CAUSED

: IMPROPER REGISTER CHANGE
;GO0OD DATA GIVES WHAT SHOULD

;BE THERE

;RECEIVED DATA GIVES WHAT WAS
; THERE

AFTER

COMMAND

;*NOW READ INTO BUFFER WILL BE CHECKED TO SEE
49%:

004037
002370
003434
000010
013726
013732

035342

;*THE

JSR

WRFROM

gElNTO

READ WAS GOOD

RO,a#COMPAR

; COMPARE TWO BLOCKS OF MEMORY
;600D DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
:8., WORDS 10 BE COMPARED
:RETURN 10 5% ON ERROR
;RETURN T0 6% ON NO ERROR

CIRJIJDO, RPOL/S/6 FCTINL CTRLR2
CIRJJD.P
28-MAR-79 08:52

3614
3615
3616
3617
3618
3619
3620

013726
013730
013732

104053
000207

MACY1Y

30A(1052)
25-MAY-79
10:48
112
SEARCH COMMAND

5%:
6%:

ERROR
RTS

53
PC

PAGE

;READ HEADER AND DATA
;AFTER A SEARCH CAUSED
;AN ERROR

SEQ 0078

CIRIIDO, RPOL/S/6 FCTNL CTRLRZ2
P
(IRJJD.P
28-MAR-79 08:52

MACYIY

3621
3622

(eTEST

®
%
%

®e
«

;
:

3631

®.

3627
3628
3629
3630

3671
3672
3673
3674
3675
3676

112

25-MAY-79

" SEARCH COMMAND

PAGE &0

SeEQ 0079

;;"'O"'.'"'C'""'0"0'"'.""..'.".""."'.'.""""""'

3623
3624
3625
3626

SEARCH COMMAND

THE ONLY THING NEW IN THIS TEST
IN A SEARCH COMMAND

000004
012706
012737

001000

013746

004737

033314

000013

1S113:
004504

IMPLIED SEEX

THE WEADS START FROM CYLINDER 10 BY A SEEK
gglfl?Ng THEN A SEARCH SECTOR O TRACK O CYLINDER O
GIVEN
THEN A READ (OMMAND

CYLINDER O,

]S GIVEN FOR

TRACK O, SECTOR 1

TIME FOR THE READ IS TME ONLY INDICATOR
OF CORRECT SEARCH

BEXXEXZ 22 XX EEZZEZEZEE2ARZE

013732
213734
013740

IS AN

SCOPE

ARAREA AR

MOV
Moy

FSTACK,SP
F13,38TSTNM

SRESET STACK
;SAVE TEST NUMBER

JSR

PC.aNCLDISK

;SET R1-RHCS1, R2-RHCS!
;R3-RHDS1,

RRRRA

R&-RHER!

;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER

;*GET THE HEADS TO CYLINDER 10
PC,aNCHECKT
: CHECKS DVA,RDY,MOL ,DPR,DRY AND VvV - 1
;AND THAT ALL STATUS BITS ARE - 0

013752

004737

033374

JSR

013756
013762

104401
000000

0574¢5

TYPE
HALT
Mov

013764

013777

004506

166174

. CPHALT

INRP4VEC ,IRPVEC

; CANNOT CONTINUE
;STOP TEST

TESTING

NOT

;SET RPO4 VECTOR ADDRESS
;10

'TIME1'

;OR TO 'TIMEZ'

;'TIME®

P-CLOCK

IS PRESENT

IF P-CLOCK IS NOT THERE

WILL ONLY

SAVE

s CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
004037
000012

033264

014000
0146004

013746
052716

002352
000101

014010

012677

160164

014014
014016
014020
014022
014024

106413
002222
000200
015530
000043

—

3632
3633
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670

30A(1052)

10:48

RO,a#SEEXCY

;SEEK FOR

MOV
BIS

aNSEECOM,-(SP)

;GET READY 10O MOVE COMMAND

Mov

(SP)+,3RHCST

#GN0!1E, (SP)

WAT

RHDS1
DRY
7000.

35.

;CYLINDER 10.

;GET READY TO SET GO AND
;ENABLE INTERRUPT
;G0 WITH
:4 IN RHCS1 FOR SEEK
;WITH INTERRUPT ENABLED

;WAIT FOR DRY BIT T0 SET
;WAIT FOR RHDS! REGISTER
;WA1T FOR DRY BIT IN RHDS1 REGISTER

;ALLOW 70000 MICRO SECONDS
;DRY MUST SET BETWEEN
;69650 AND 70350 MICRO SECONDS

;*FILL REGISTERS FOR READ HEADER AND DATA TO BE DONE AFTER SEARCH
|

CIRJID.P

3677

3678
3679
ggg?

3682

3683
3684
3685
3686
3687
3688
3689
3690
3691
3692
3693
3696
3695

014026

3701

3702
3703
3704
3705

004737

30A(1052)

113

033314

014032

014036
014040
014061
014042
014044

004037

000000
000
000
177770
003434

014046
014050

000000
014000

014052

002334

035276

004037

014062

004512

014060

002172

3714

3715
3716
g;};

JSR

‘

7
PAGE 8

PC.,afCLDISK

RO,a3#RUN
0
0

SERCH

RHW(C

004737

033374

014072
014076
016100

106401
000000
012777

057465

014106

004037

033244

:*NOW GIVE THE SEARCH UOMMAND
JSR
PC,aNCHECKT
:CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1
:AND THAT ALL STATUS BITS ARE = 0
TYPE
,CPHALT
: CANNOT CONTINUE TESTING IF NOT
HALT

166060

.BYTE
.BYTE

MoV

738 ,3RPVEC

JSR

RO,a#SRCH

S#SERCH,RO

0
0
O

:STOP TEST

: INTERRUPT VECTOR SET TO 3%
:SEARCH FOR

:CYLINDER 0
:SECTOR 0
:TRACK O

:EXPECTED CONTENTS OF RHCS1
;IMMEDIATELY AFTER GO
#DVA'ROY'IE'GO,RO ;EXPECTED BITS IN RH(S!
#MOL'FPRIVV,RS ;EXPECTED BITS IN RHDS1
: IMMEDIATELY AFTER GO

3719
3720
3721
3722
3723

014116

013700

002334

MOV

014122
014126

052700
012705

004301
010500

BIS
MOV

3726
3727
3728
3729
3730
3737
3732

014132
014136

013746
052716

002334
000101

MOV
BIS

S#SERCH,=(SP)
#GO'1E, (SP)

014142

012677

166032

MOV

(SP)+,aRHCS]

014146
014150

021100
001413

(Mp
BEQ

aR1,RO
1%

3758

;CYLINDER O
:SECTOR 0
:TRACK 0
:WORD COUNT = 8.
;BUS ADDRESS
;STARTING ADDRESS OF DATA
:BUFFER= REINTO
:00 NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
:DO NOT INHIBIT HEADER COMPARE
:GET READY TO DO A SERCH
;SEARCH WITH 30 IN RHCST

;STARTING ADDRES OF WHERE
:THE REGISTERS ARE SAVED
;:NUMBER OF REGISTERS
:SAVED = 18,

18.

014264

§ :SETUP TO RUN FOR DATA COMMAND

:RHWC 1S THE FIRST REGISTER SAVED

SAVERE

014066

:SET R1-RHCS1, R2-RH(S2

;R3-RHDS1, R4=-RHERI1
:GIVE RH=11 INITIALIZE
:SETUP UNIT NUMBER

:*SAVE REGISTERS FOR COMPARISON AFTER SEARCH
;*AND READ HEADER AND DATA
JSR
RO,8#SAVER
:SAVE REGISTERS

033462

000022

000000
000
000

0
ECI'FMT22

014064

014112
014114
014115

0
.BYTE
.BYTE
-8.
REINTO

014054

10:48

SEARCH COMMAND

JSR

3706

3707
3708
3709
3710
3711
g;lg

25-MAY-79

3696
3697

3698
3699
3700

28-MAR-79 08:52

MACY11

:GET READY TO MOVE COMMAND
:GET READY TO SET GO AND
:ENABLE INTERRUPT
;60 WITH
:WITH INTERRUPT ENABLED
;1S RHCS1 GOOD
:BRANCH IF GOOD

SEQ 0080

[ Nan]

CIRJJDO, RPO&L/S5/6 FCTINL CTRLR2

3744
37645
3746
37647
3748
3749
3750
3751
3752

3753
3756
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785

3786
3787
3788

014176

30A(1052)
25-MAY-79
10:48
113
SEARCH COMMAND

aR1,3#$BDDAT

ERROR

000414

7
PAGE &

SEQ 0081

:BAD DATA FOR RHCS1
RO,a3#$GDDAT
;600D DATA
R1,a#REGADR
;FAILING REGISTER RH(ST
#360,3TRAPVEC+2 ;TRAP PRIORITY = 7

Mov

MoV
Mov
Mov

000036

;DURING SEARCH COMMAND

;CONTENTS OF RHCS1 WAS
sNOT AS EXPECTED
:1F LAST ERROR 21 OCCURRED

; THEN DO NOT CHECK RHDS1

:AS 100 MUCH TIME HAS
;PASSED

014200
014202
014206
014210
014214
014220
014226

02
00
O
01
1)
01
10

1%:

001126
001124
004500
000340

(MP
8eaQ
MOv
MOv

MOv
MOv
ERROR

000036

aR3,R5
;1S RHDS1 GOOD
2$
;BRANCH 1F GOOD
aR3,a#SBDDAT
:BAD DATA FOR RHDSI1
RS,aNSGDDAT
:GOOD DATA
R3,3#REGADR
;FAILING REGISTER RHDS1
#340,3#TRAPVEC+2 ;TRAP PRIORITY = 7
63
;DURING SEARCH COMMAND

:CONTENTS OF RHDS1 WAS
: IN CORRECT

014230
014236
014244

013
052737
012

002350
000101
000001

004652
004652

2%:

004660

MoV

BIS
Mov

S#REFOR ,a#TMPO

NIE'GO,a¥TMPO
¥ ,30TMPS

;SAVE READ HEADER AND DATA

; INCLUDE INTERRUPT ENABLE, GO
;SAVE TRACK 0, SECTOR 1

;*THIS IS ONLY A WAIT LOOP
WAT
RHDS1

014252
0142564
014256
014260
014262

104413
002222
000200
015530
000043

014264
014272
014300

012737
012737
013777

000200
000000
004660

000036
177776
165676

014306

013777

004506

165652

;WAIT FOR RDY BIT TO SET
:WAIT FOR RHDS1 REGISTER

RDY
7000.
35.

3%:

MOV

MOV
MOv
MOV

;WAIT FOR RDY BIT IN RHDS1 REGISTER
;ALLOW 70000 MICRO SECONDS
;RDY MUST SET BETWEEN
;69650 AND 70350 MICRO SECONDS
#200,3#TRAPVEC+2 ;TRAP PRIORITY = 4

#0,PS
aNTMPS ,@RHDST

;:SET PROSESSOR STATUS TO O
;SET DESIRED SECTOR/TRACK

;REGISTER 1O SECTOR 1, TRACK O

9NRPLVEC,3RPVEC ;SET RPO4 VECTOR ADDRESS

;70 "TIMET' 1F P-CLOCK IS PRESENT
;OR TO 'TIME2' iF P-CLOCK 1S NOT THERE
;'TIME'

WILL ONLY

SAVE

;CURRENT CYLINDER ADDRESS
014314

013711

004652

MOV

3#TMPO,aR

;*TIME ALLOWED HERE

:AND LOOK AHEAD REGISTERS

;FILL RHCSY WITH READ COMMAND
:TOGETHER WITH INTERRUPT ENABLE
.
;AND GO

IS CRITICAL ANY TIME ERROR

;*INDICATES WRONG SEARCH IN THE SEARCH COMMAND
014320
014322
0143264

104413
002209
000200

WAT
RHCST
RDY

:WA1T FOR RDY BIT 10 SET
;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS! REGISTER

(X el

MACY11

~NO O
sHroroorrN

oF o

e
e

ol
el

i
—

Pl ol o

3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743

[e]olelole)

CIRJJIDO, RPOL/5/6 FCTNL
CZRJJD.PY
28-MAR-79

3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
3801

3802
3803
3804
3805
3806

3807

014326
014330

3841

3842
3843
3844

30A(1052)
25-MAY-79
10:48
113
SEARCH COMMAND

149,
.

000225
000002

7
PAGE 83

Sea 0082

;ALLOW 1490 MICRO SECONDS
;RDY MUST SET BETWEEN
;1470 AND 1510 MICRO SECONDS

;*WRITE FROM BUFFER WILL BE FILLED WITH EXPECTED DATA
014332
014336
014340
014342
014344
014346
014350

004037
002370
000004
010000
000001
000000
000000

033140

016352
014356
014360
016362

004037
002400
000004
000001

033164

JSR

WRFROM
4
10000
1
0
0

RO,3#FLHEAD

;SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED
:NUMBER OF WORDS SAVED
;FIRST DATA WORD
:SECOND DATA WORD
:THIRD DATA WORD
;FOURTH DATA WORD

RO,a#CLAREA
JSR
WRFROM+ <L 2>

;CLEAR 4 WORDS, FROM WRFROM+<4*2>
;STARTING FROM WRFROM+<4?2>

JPILL WITH 1

3808

3809
31810
3811
31812
3813
3814
3815
3816
31817
31818
3819
3820
31821
3822
3823
3824
3825
3826
31827
31828
3829
3830
3831
3832
31833
3834
3835
3836
3837
3838
3839
3840

MACY11

;& WORDS

: *CHANGE SAVED REGISTERS TO EXPECTED VALUES
0164364
014370
014372

004037
002172
000000

033216

JSR
RHWC
0

RO,d#F ILLRE

;MOV O INTO SAVED RHWC
;SAVED REGISTER TO (HANGE
;DATA

016374
014400
014402

004037
002174
003454

033216

JSR

RO,a#F ILLRE

MOV REINTO+<8.¢2> INTO SAVED RHBA

014404
014410
014412

004037
002200
006272

033216

JSR

RO,a#FILLRE

MOV 4272 INTO SAVED RH(SH

014414
0146420
014422

004037
002204
000002

033216

JSR
RHDST
2

RO,3#F ILLRE

sMOV 2 INTO SAVED RHDST
:SAVED REGISTER TO CHANGE
;DATA

014424
014430
014432

004037
002234
000000

033216

JSR
SHCC '

RO,a#F ILLRE

;MOV 0 INTO SAVED RHCC
:g:¥ED REGISTER TO (MANGE

RHBA
REINTO+<B.*>

RHCST
4272

:SAVED REGISTER TO CHANGE
;:DATA

:SAVED REGISTER 10 CHANGE
;DATA

;*COMPARE REGISTER BEFORE READ HEADER AND DATA

;*WITH REGISTERS AFTER COMMAND

0144364
0164440
0144472
0164444

004037
004512
002254
000022

034312

JSR

SAVERE
W(
18.

RO,3#COMREG

: COMPARE SAVED REGISTERS WITH

;PRESENT

VALUE

;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC®
;18. REGISTERS 10 BE COMPARED

[y an]

CIRJJDO, RPO&L/S5/6 FCTNL CTRLRZ
CIRJJD PN
28-MAR-79 08:52

3845
3846
3847

30A(1052)
113

014456

014452
0146454

000207

10:48

SEARCH COMMAND

6%
5%

014452

016446
014450

25-MAY-79

4%:

104031

ERROR
RTS

7
PAGE B¢

MACY11

SEQ 0083

;RETURN T0 4% ON ERROR
;RETURN 10 5% ON NO ERROR

;READ HEADER AND DATA CAUSED
: IMPROPER REGISTER CHANGE

;GO0D DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT WAS
; THERE

5%:

014456

014456
014462
014464
014466
014470
014472

004037
002370
003434
000010
016474
014500

014474
014476

104053
000207

014500

;*NOW READ INTO BUFFER WILL BE CHECKED TO SEE
;*THE READ WAS GOOD
JSR
WRFROM
REINTO

035342

RO,3#CCMPAR

8.
6%

7%:

ERROR
RTS

;COMPARE TWO BLOCKS OF MEMORY
;GO0D DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
;:8., WORDS TO BE COMPARED

;RETURN 10 6% ON ERROR

6%:

AFTER COMMAND

;RETURN T0 7% ON NO ERROR

53
PC

;READ HEADER AND DATA
AFTER A SEARCH CAUSED
;AN

ERROR

TRLR 2
CIRJIDO, RPOL/S/6 FCTINL (TR
CIRJJID.P 1R
28-MAR-79 08:52

SEQ 0084

XEZEZERERAZEAARE

RdR2RRRRdRRRRRdd ]

DISK BEING USED MAY HAVE BEEN UNFORMATTED
If THE LAST PASS OF THIS PROGRAM GIVES

NO ERRORS IN THIS SECTION THEN THE DISK
MAY NOT HAVE BEEN UNFORMATTED. HOWEVER IT

1S RECOMMENDED THAT AFTER A PASS OF

PROGRAM THE DISK BE

RIS

XXX

EZAZE

THIS

REFORMATTED.

2RSSR

SRR RS RARRRRRRRRARRRRRARRRRRER
S

':ttt"'""'t"""""""l"""t"l""t'"t.'t"it"."""'

HEADER COMPARE ERROR - RHER1 BIT #7 (H(E)

*®

HCE- BIT #7 IN RHER1 SHOULD SET.
ALL REGISTERS ARE CHECKED

014500
014502
014506

000004
012706
012737

001000
000014

014514

004737

033314

ANY

®s

WRITE HEADER AND DATA IS USED TO REMOVE SECTOR 1
AND PUT SECTOR O THERE ON CYLINDER O
THEN A READ DATA IS GIVEN FOR SECTORI

;‘YEST 14

1$T14:
004504

DATA READ

EXZ2Z X222

SCOPE

1S CHECKED

22X

RRRRRRRRRRRRRSlR

MOV
Mov

#STACK,SP
#1430 TSTNM

;RESET STACK
;SAVE TEST NUMBER

JSR

PC.,anCLDISK

;SET R1-RHCS1, R2-RH(S?2
;R3-RHDS1,

RNl

R4-RHER1

;GIVE RH=-11 INITIALIZE
;SETUP UNIT NUMBER

;*FILL WRITE FROM BUFFER WITH HEADER

]

014520
014524
014526
014530
014532
014534
014536
014540

004037
002370
000005
010000
000000
000000
000000
000001

033140

JSR

WRFROM
5
10000
0

RO,a#FLHEAD

0
0
1

;eF1LL READ

: SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD
. SECOND DATA WORD

;THIRD DATA WORD
;FOURTH DATA WORD
;FIFTH DATA WORD

INTO BUFFER WITH ALL ONES

SEARCH COMMAND

PAGE 85

TRACKO AND PUTS SECTOR 9 THERE.
HENCE THE PACK 1S UNFORKATTED FROM
THIS POINT ON TO THE TEST WHEN SECTOR
1 IS REPLACED.
IF TESTING IS STOPPED WITH
AN ERROR IN THE SECTION OF THE PROGRAM BETWEEN
THIS AND WHEN SECTOR 1 IS REPLACED THEN THE

10:48

THE NEXT TEST REMOVES SECTOR 1 ON CYLINDER 0

PRI

25-MAY-79

PEEIPRE IR YR SRR

3?#;1052)

3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931

MACYN

CIRJJDO, RPO4L/S/6 FCINL CTRLR2
CIRJJD.PY
28-MAR-79 08:52

CIRJJIDO, RPOL/S/6 FCINL CTRLRZ

CIRJJD.P
3932
3933
3934
3939
3936
3937

014542
014546
014550
014552

3940
3941

014554
014560

28-MAR-79 08:52
004037
003434
000400
177777

MACYTT

033164

3945
3946

3947
3948
3949
3950
3951
3952
3953
3954

014562
014563
014564

004037
000000

035276

7
PAGE 86

HEADER COMPARE ERROR - RHeR1 BIT #7 (MCE)

JSR
0.

001
000
177773

BYTE
.BYTE
-1-4

014566

002370

WRFROM

.
014570
014572

000000
010000

0
FMT22

014574

002344

WR1FOR

gggg

1961

10:48

RO,a#CLAREA

SEQ 0085

;CLEAR 256. WORDS, FROM REINTO
;STARTING FROM REINTO
:256. WORDS
SFILL WITH =1

;*WRITE HEADER AND DATA S LOADED

3955
3956

3959
3960

114

25-MAY-=79

JSR
REINTO
256.
-1

gggg

3942
3943
3944

30AC1052)

RO,a#RUN

:SETUP TO RUN FOR DATA (OMMAND
;CYLINDER 0.

1.
0.

;SECTOR 1.
: TRACK 0.
:WORD COUNT (DATA) = 1
:4 HEADER WORDS
:BUS ADDRESS

¢+

;STARTING ADDRESS OF DATA
;BUFFER = WRFROM
:D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;D0 NOT INMIBIT ECC CORRECTION
:D0 NOT INHIBIT HEADER COMPARE
:GET READY T0 DO A WRIFOR
:WRITE HEADER AND DATA WITH 62 IN RH(CS!

:*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE
014576
014602

0164604

004037
002172

033462

JSR
RHWC

004512

RO,3/SAVER

SAVERE

:SAVE REGISTERS
:RHWC 1S THE FIRST REGISTER SAVED

:STARTING ADDRES OF WHERE

3962
3963
ggog

014606

000021

3966

014610

004737

033374

JSR

PC,a¥#CHECKT

014614
014620

106401
000000

057465

TYPE
HALT

,CPHALT

0164622

013777

004506

MoV

SMRPLVEC,ARPVE(C ;SET RPO4 VECTOR ADDRESS
;10 "TIMET' IF P-CLOCK IS PRESENT
:0OR TO 'TIME2® IF P-CLOCK IS NOT THERE
*TIME' WILL ONLY SAVE

3967
3968
gggg

3971
3972
3973
3974

;THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS
:SAVED = 17.

17.

165336

3975

3979
3980
3981
3982
3983
3984
3985

3986

3987

:AND THAT ALL STATUS BITS ARE = 0
: CANNOT CONTINUE TESTING IF NOT
:S5TOP TEST

:CURRENT CYLINDER ADDRESS

3976

3977
3978

;CHECKS DVA,RDY,MOL,DPR,DRY AND vv

:AND LOOK AHEAD REGISTERS

014630
014634

013746
052716

002344
000101

MOV
B1S

ANWRIFOR,=-(SP)
#GO'1E, (SP)

014640

012677

165334

MOV

(SP)+,aRHCSY

;eTIME 1S NOT CRITICAL

;GET READY TO MOVE COMMANC
:GET READY 10 SET GO AND
;ENABLE INTERRUPT
;60 WITH
:62 IN RHCS! FOR WRITE HEADER AND DATA
:WITH INTERRUPT ENABLED

(IRJIDO, RPOL/5/6 FCINL CTRLRZ2
CIRJJD.PV
28-MAR-79 08:52
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999

4000
4001
4002
4003
4004
4005
4006

4007
4008
4009

4010
4011
6012

6013
6014
4015
4016

6017

4018
4019
4020

4021
6022

4023
6024
4025

6026

4027
4028
6029

016644
014646
014650
014652
014654

MACYIT

3??(1052)

104413
002200
000200
004704
004704

7
1
10:48 PAGE &7
25-MAY-79
HEADER COMPARE ERROR - RHER1 BIT #7 (MCE)
WAT
RHCST
RDY

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
;WALIT FOR RDY BIT IN RHCST REGISTER
;ALLOW 25000 M]CRO SECONDS
;RDY MUST SET BETWEEN

2500.
2500.

;00 AND 50000 MICRO SECONDS

; *NOW CHANGE

014656
014662
014664

004037
002172
000000

033216

0146666
014672
014674

004037
002174

033216

014676
014702
014704

004037
002204
000002

033216

SAVED REGISTERS TO EXPECTED VALUE

JSR

RO,a#FILLRE

:MOV O INTO SAVED RMW(C

JSR

RO,a#f ILLRE

MOV WRFROM+<5+2> INTO SAVED RHBA

RHW(
0

RHBA

WRFROM+<S5e2>

002402

JSR
SHDST

RO,a#F ILLRE

;SAVED REGISTER TO CHANGE
;DATA

:SAVED REGISTER TO CHANGE

;DATA

;MOV 2 INTO SAVED RMDST
:SAVED REGISTER TO C(HANGE
:DATA

;*COMPARE ALL REGISTERS
014706

004037

014712
014714
014716
014720
014722

004512

002254
000021
016724
014730

014724
014726

104027
000207

JSR

034312

RO,3#COMREG

SAVERE
Wl

.600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHW(C'

17.
1%

;17. REGISTERS TO BE C(OMPARED
;RETURN T0 1% ON ERROR

:RETURN TO 2% ON NO ERROR

2%
1%:

ERROR
RTS

: COMPARE SAVED REGISTERS WITH
:PRESENT VALUE

27
PC

;WRITING HEADER AND DATA CAUSED

; IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT
: SHOULD BE THERE
RECEIVED DATA GIVES WHAT
;WAS THERE AFTER WRITE

SEQ 0086

CIRJJD.P1Y
4030
40
4032
4033
64034
4035
4036
4037
4038
4039
4040
L0410
4042
4043
4044
6045
4046
6047
6048
4049
4050
4051
6052

4053

4054
4055
6056
4057
4«CS8
4099
4060
4061
4062
4063
4064
4065
4066
4067
40068

4069
4070

4«07
4072
4073
4074
4075
4076
4077
4078
4079
<080
4081
408?2

<083

4084
4085

28-MAR-79 08:52

30A(1052)
1146

7
J
25-MAY-79
10:48 PAGE 83
HEADER COMPARE ERROR - RHcR1 BIT #7 (MCE)

Nan

MACY1T

SEQ 0087

;'¥8U A SEAD DATA WILL BE DONE ON CYLINDER=0, SECTOR:=1,
;*TRACK=

;*FILL WRITE FROM RUFFER WITH EXPECTED DATA
2%:

014730

014/30

004737

033314

JSR

PC,a#CLDISK

;SET R1-RHCS1, RZ2-RH(CS?2
;R3-RHDS1,

R&-RHERT

;GIVE RH=-11 INITIALIZE
;SETUP UNIT NUMBER
0146734
014740
014742
014744

004037
002370
000400
V27777

JSR

033164

WRFROM

RO,3#CLAREA

256.

;CLEAR 256. WORDS, FROM WRFROM
;STARTING FROM WRFROM

;256. WORDS

-1

JFILL WITH =1

;*READ COMMAND 1S LOADED
014746
014752
014754
014755
014756
014760

004037
000000

014762
014764

000000

014766

002346

JSR

035276

0
.BYTE
.BYTE

001
000
1727777
003434

-1
REINTO

004037
002172
004512

015000

000022

015002

006737

;SETUP TO RUN FOR DATA COMMAND

;CYLINDER O
;SECTOR 1,
;TRACK 0

1.
0

;WORD COUNT =
;BUS ADDRESS

;STARTING ADDRESS OF DATA
;BUFFER = REINTO
;00 NOT INHIBIT BUS ADDRESS INCREMENT

FM122

010000

014770
014774
0146776

RO,a#RUN

;16 BITS PER WORD FORMAT

;00 NOT INHIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE

READAT

;GET

READY

TO DO A READAT

;READ DATA WITH 70 IN RHCSI

;*SAVE REGISTERS FOR COMPARISON AFTER READ DATA

JSR
RHW(
SAVERE

033462

RO,3#SAVER

:SAVE REGISTERS
;RHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE
;THE

18.

REGISTERS ARE

:NUMBER OF

SAVED

REGISTERS

;SAVED = 18,

: CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1

033374

JSR

PC.a#CHECKT

015006
015012

10440

057465

LCPHALT

000000

TYPE
HALT

015014

013777

004506

MOV

O#RPLVEC,dRPVEC ;SET RPO4 VECTOR ADDRESS

165144

;AND THAT ALL STATUS BITS ARE = 0
: CANNOT CONTINUE TESTING IF NOT
;STOP TEST
;10

'TIMEY

P-CLOCK

[S PRESENT

:OR 10 'TIMEZ2® IF P=-CLOCK IS NOT THERE
;'TIME® WILL ONLY SAVE
;CURRENT CYLINDER ADDRESS
;AND LOOK

AHEAD REGISTERS

[

CIRJJDO, RPO4L/S/6 FCINL CTRLR2

(IRJJDO, RPO4/S/6 FCINL CTRLR2
CIRJJD. P11
28-MAR-79 08:52

4140
L1461

002346
000101

MOv

S8/READAT,-(SP)

015032

012677

165142

MOv

(SP)+,3RHCST

8IS

;*TIME
015036
015040
015042
015044
015046

1064413

002200
000200
010110
001502

#GO' IE, (SP)

;GET READY YO MOVE

SEQ 0088

COMMAND

;GET READY TO SET GO AND

;ENABLE INTERRUPT

;60 WITH
;70 IN RHCS1 FOR READ DATA
;WITH INTERRUPT ENABLED

IS NOT (RITICAL

WAT
RHCSH

;WAIT
;WAIT

4168,
834.

;ALLOW 41680 MICRO SECONDS
sRDY MUST SET BETWEEN

RDY

FOR RDY BIT T0 SET
FOR RHCS1 REGISTER

;WAIT FOR RDY BIT

IN RHCS1

;33340 AND 50020 MICRO SECONDS

015050
01505¢

004037
002222

015056
015060
015062
015064
015066

000002
000001
100000
000001
040000

015070

004037
002200

OO0O0O0O0O

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE

000002
000001
O

o0
—

004646

—
—
ek

053737

—

JSR

RHER

004536

ATA IS 1

ATA BIT

;NEW VALUE OF ERR IS
: CHANGE ERR BIT

RO,3#CHREG

;CHANGE BITS IN SAVED REGISTER

;CHANGE RHCS1

;2 BIT/BITS TO BE CHANGED
sNEW VALUE OF SC IS 1
; CHANGE SC BIT
:NEW VALUE OF TRE 1S 1
; CHANGE TRE BIT

RO,3#CHREG

1
1
HCE

015134

)

RHCS1

034204

033216

—

. CHANGE

;NEW VALUE OF

1
SC
1
TRE

004037
002204
000002

OO0

ATA

000001
000001
000200

b —

;2 BIT/BITS TO BE CHANGED

JSR

034204

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

2
1
ERR

100000
000001
040000

004037
002202

RO,3#CHREG

o)
—

—

PRIFY

— el ol d b

015074

JSR
RHDS1

034204

O
S

6137
4138
139

114

K
7
25-MAY-79
10:48 PAGE &9
HEADER COMPARE ERRCR - RHcR1 BIT #7 (HCE)

013746
052716

—

4125
4126
6127
4128
4129
4130
4131
6132
6133
6134
6135
6136

30A(1052)

015022
015026

OO0

LV] N—=OV~NyOr
W

e
—

noro PPN
b =t s s =

Ll
o

4086
6087
<088
4089
4090
4091
6092
4093
4094
6095
4096
4097
6098
4099
4100
6101
6102
6103
6104
6105
6106
6107
6108
6109

MACY11

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHER1

;1 BIT/BITS 10 BE
;NEW VALUE OF HCE
. CHANGE HCE BIT

CHANGED
IS 1

;MOV 2 INTO SAVED RHDST
;SA¥ED REGISTER TO CHANGE

JSR
SHDST

RO,a#FILLRE

B1S

SNATTENT ,@#SAVERE+24 ;SET APPROPIATE ‘ATA' BI°S

;DA

;FOR WORKING DRIVE

:SAVED RHAS LOCATION

;*(COMPARE ALL REGISTERS

CIRJJDO, RPO4/5/6 FCTINL CTRLR2
CZRJJD.PWY
28-MAR-79 08:52
6162
6143
61646

015142

004037

015146

64146
6147
64148

015152
015154
015156

004512
002254
000022
015160
015164

015160
015162

000207

L1645

6149
64150
6151
61952
6153
6154
6155
6156
6157
6158
6159
6160
6161
4162
64163
4164

6165
4166
6167

6168
6169
4170

6171

6172

015150

MACYD

3??(1052)

034312

7
L
25-MAY-79
10:48 PAGE 99
HEADER COMPARE ERROR - RHER1 BIT #7 (HCE)

JSR

RO,a#COMREG

SAVERE
Wi

:18. REGISTERS 1O BE COMPARED

ERROR
RTS

VALUE

;RETURN TO 3% ON ERROR

;PRESENT

;GO0D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC’

18.

104047

:COMPARE SAVED REGISTERS WITH

;RETURN TO 4% ON NO ERROR

47
PC

;READING ON NON EXISTANT SECTOR

;CAUSED AN ERROR
:GOOD DATA GIVES WHAT SHOULD
:BE THERE
;RECEIVED DATA GIVES WHAT
;WAS

THERE

AFTER READ

:*READ DATA WiLL Bt COMPARED
4%:

015164

015164
015170
015172
015174
015176
015200

004037
002370
003434
000400
015202
015206

015202
015204

104050
000207

015206

JSR
WRFROM
REINTO

035342

RO,3#COMPAR

256.
5%
6%

5¢:

6%:

ERROR
RTS

; COMPARE TWO BLOCKS OF MEMORY
;600D DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
;256., WORDS TO BE COMPARED

;RETURN T0O 5% ON ERROP
;RETURN TO 6% ON NO ERROR

50
PC

;DATA READ FROM NON
;EXISTANT SECTOR CAUSED AN ERROR

SEQ 0089

CIRJJIDO, RPO4L/S5/6 FCINL CTRLR2
CIRJJD P11
28-MAR-79 08:5¢2

MACY11

6173
6174
6175

4203
4204
6205
6206
4207

4208
4209
6210
6211
6212
6213
6214
6215
6216
0217
4218
4219
4220
6221
4222

6223
4224
£225
4226
4227
4228

115

SR A

XS 2

%
*

TeTEST 15

SEQ 0090

R XARRERRRRRRRRRRRARRRRRRRRd
R

HEADER COMPARE ERROR - RMER! BIT #7 (HCE)

WRITE HEADER AND DATA IS USED TO REMOVE SECTOR 1
AND PUT SECTOR O ON CYLINDER O
THEN A WRITE DATA IS GIVEN FOR SECTOR 1, TRACK O, CYLINDER O
FOR 266. WORDS
HCE = BIT 7 IN RHER1 SHOULD SET
ALL REGISTERS ARE CHECKED

THEN A READ HEADER AND DATA SECTOR 1, TRACK O, CYLINDER O
IS GIVEN, HCE - BIT 7 SHOULD SET AND ALL

HEADER AND DATA SHOULD BE READ

SR X222 2202202222200
RdR Rt
R
RRRRRRR Rl Rl

5206
5210
15214

000004
012706
012737

001000
000015

015222

004737

033314

—

(@l
e Yo

6176
6177
4178
6179
4180
4181
6182
4183
4184
6185
6186
4187
6188
4189
6190
6191
6192
6193
6194
6195
4196
6197
4198
6199
4200
620
6202

n7
PAGE 91
10:48
25-MAY=79
HEADER COMPARE ERROR - RHER1 BIT #7 (MCE)

30A(1052)

15T15:
004504

SCOPE
MOV

#STACK,SP

JSR

PC.a#CLDISK

Mov

#15,30TSTNM

JRESET STACK
;SAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(CS?2

;R3-RHDS1, R&-RHERI

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

s*FILL WRITE FROM BUFFFR WITH HEADER AND DATA
004037
002370
000006
010000
000000
000000
000000

033140

JSR

WRFROM
6

RO,a#FLHEAD

10000

;SECOND DATA WORD

0
0
0

s THIRD DATA WORD

1
1

000001
000001

;SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD

;FOURTH DATA WORD
;F1FTH DATA WORD
;SIXTH DATA WORD

;*FILL READ INTO BUFFER WITH ALL ONES
004037
003434
000400

033164

JSR

REINTO

RO, a#CLAREA

2?6.

177777

;CLEAR 256. WORDS, FROM REINTO
;STARTING FROM REINTO
:256. WORDS

SFILL WITH =1

;*WRITE HEADER AND DATA IS LOADED
5SR

RO,3#RUN

177772

.BYTE
BYTE
2-4

1
0

002370

WRFROM

000000
010000

0
FM122

004037
000000
001
000

035276

;SETUP TO RUN FOR DATA COMMAND

;CYLINDER O
SSECTOR 1
;TRACK O
;WORD COUNT

(DATA)
+4 HEADER WORDS
;BUS ADDRESS

= 2 ¢

:STARTING ADDRESS OF DATA
;BUFFER = WRFROM
;00 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT

—— e]

(ZRJJDO, RPO4L/S/6 FCTINL CTRLR2
CIRyJD.PWY
28-MAR-79 08:52

MACY11

30A(1052)

N 7
25-MAY-79
10:48 PAGE 92
HEADER COMPARE ERROR - RHtR1 BIT #7 (MCE)

;00 NOT INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE

4229

4230
623

4232
4233
6234
4235
4236
6237
4238
6239
4240
4241
6242
6243
4244
4245
4246
6247
4248
4249

015304

WRIFOR

002344

.GET READY TO DO A WRIFOR

;WRITE HEADER AND DATA WITH 62 IN RH(SI

;*NOW SAVE REGISTERS FOR COMPARISON AFTER
;*WRITE HEADER AND DATA
004037
002172

JSR

033462

RHW(

RO,a#SAVER

:SAVE REGISTERS
;RHWC

SAVERE

006512

;THE REGISTERS ARE SAVED
;NUMBER OF REGISTERS

17.

000021

;SAVED = 17.

004737

033374

JSR

PC,aNCHECKT

015324
015330

104401

000000

057465

TYPE
HALT

LCPHALT

6250

015332

013777

004506

MOov

S/RPLVEC,ARPVEC

4258
4259
4260
4261
4262
4263
4264
4265
4266
4267
4268
4269

015340
015344

013746
052716

002344
000101

Mov

AFWRIFOR,-(SP)

015350

012677

164624

Mov

(SP) ¢+ ,IRHCST

4270
6271
4272
4273
4274
4275
64276
6277
4278
4279
4280
4281
4282
4283
4284

164626

BIS

IS THE FIRST REGISTER SAVED

;STARTING ADDRES OF WHERE

015320

4251
4252
4253
4254
4255
4256
4257

SEQ 0091

: CHECKS DVA,RDY,MOL ,DPR,DRY AND VvV = 1
;AND THAT ALL STATUS BITS ARE = 0
; CANNOT CONTINUE TESTING IF NOT
.STOP TEST

#GO!1E, (SP)

;SET RPO4 VECTOR ADDRESS

;70 *TIMEY' IF P-CLOCK IS PRESENT
;OR TO 'TIMEZ' IF P-CLOCK IS NOT THERE
;"TIME' WILL ONLY SAVE
:CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
;GET READY 1O MOVE

COMMAND

;GET READY TO SET GO AND
;ENABLE INTERRUPT
;60 WITH
;62 IN RH(S1 FOR WRITE HEADER AND DATA
:WITH INTERRUPT ENABLED

;*TIME IS NOT CRITICAL
WAT
RHCST

104413
002200
000200
004704
004704

RDY
2500.
2500.

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER

;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 25000 MICRO SECONDS
;RDY MUST SET BETWEEN
;00 AND 50000 MICRO SECONDS

; *NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE

004037
002172
000000

033216

004037
002174
002404

033216

JSR

RO,a#F ILLRE

JSR

RO,3#F ILLRE

RHW(
0

RHBA
WRFROM¢cHe 2>

:MOV O INTO SAVED RHW(

:SAVED REGISTER TO CHANGE
;DATA

MOV WRFROM+<6e2> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE
:DATA

(IRJJD0, RPO&/S/6 FCTNL CTRLRZ
(IRJJD.P1N
28-MAR-79 08:52
6285
4286
6287
(288

4289
6290
6291
6292
4293
L2964

015406
015412
015414

006037
002204
000002

004037

6295
6296

015422
015424

004512
002254

4298
£299

015630
015632

015434
015440

015434
015436

104027
000207

4300
6301
(302
4303
4304
4305
4306
4307

8 8
25=MAY=79
10:48 PAGE 9§
30A(1052)
HEADER (OMPARE ERROR - RucR! BIT #7 (W(E)
115

033216

JoR

RHDST

RO,3#F TLLRE

JMOV 2 INTO SAVED RMDST
:SAVED REGISTER 10 (HANGE

:DATA

;*COMPARE ALL REGISTERS
015416

£297

MACYTT

015626

034312

JSR

RO,9#COMREG

SAVERE

w(
17.
19

000021

;17. REGISTERS TO BE COMPARED
;RETURN 10 19 ON ERROR

;RETURN TO 2% ON NO ERROR

18:

ERROR
RTS

:COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;600D DATA SAVED N °'SAVERE'
;TEST DATA STARTING FROM ‘RHW(C'

;WRITING HEADER AND DATA CAUSED

; IMPROPER REGISTER CHANGE
;600D DATA GIVES WHAT
; SHOULD BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE AFTER WRITE

SEQ 0067

4308
4309
310
63N
6312
6313
4314
4315
6316
6317
6318
6319
4320
432
4322
6323

6324
4325
6326
£327
4328
6329
4330
4331
6332
4333
4334
4335
4336
4337

4338
4339
64360
4341
4342
(343
4364
4345
6346
6347
(348
4349
4350
4351
4352
6353
4354
4355
4356
4357
4358
4359
4360

4361
4362

6363

MACYM

3??é1052)

25-MAY-T79

10:48
PAGE 94
HEADER COMPARE ERROR - RHER1

—

CIRJIJIDO, RPOL/S/6 FCTNL CTRLR2
CZRJJD.P1
28-MAR-79 08:52

BIT #7 (HCE)

;*NOW A WRITE DATA wlLL BE DONE ON SAME CYLINDER, SECTOR

: *TRACK

015440
015440
015444
015446
015450

;*FILL WRITE FROM BUFFER WITH DATA
004037
002370
000412

JSR

033164

WRFROM

RO,a#CLAREA

266.
177400

177400

;CLEAR 266, WORDS, FROM WRFROM
;STARTING FROM WRFROM
;266. WORDS
;FILL WITH 177400

;*WRITE DATA COMMAND IS LOADED
JSR

RO,a#RUN

.BYTE
.BYTE
-266.
WRFROM

1
0

sSETUP TO RUN FOR DATA COMMAND
;CYLINDER O
;SECTOR 1

015456
015460
015461
015462
015464

004037
000000
001
000
177366
002370

015466
0156470

000000
010000

0
FM122

015472
“

002342

WRIDAT

0154746
015500
015502

004037
002172
006512

015504

000022

015506

004737

033374

JSR

PC,aNCHECKT

015512
015516

104401

000000

057465

TYPE
HALT

LCPHALT

:CANNOT CONTINUE TESTING IF NOT
;STOP T£81

015520

013777

004506

MOv

S#RP4GVEC,IRPVEC

:SET RPO4& VECTOR ADDRESS
;10 'TIMEL" IF P-CLOCK IS PRESENT
:OR TO 'TIMEZ2' IF P=CLOCK IS NOT THERE
;"TIME' WILL ONLY SAVE
s CURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS

015526
015532

013746
052716

002342
000101

BIS

ANWRIDAT,=(SP)
#GO.1E, (5P)

015536

012677

164436

MOv

(SP)+,aRH(S

;GET READY 10 MOvVE COMMAND
;GET READY TO SET GO AND
;ENABLE INTERRUPIT
;G0 WITH

015452

035276

;TRACK 0
;WORD COUNT = 266.

;BUS ADDRESS

;STARTING ADDRESS OF DATA
= WRFROM
:BUFFER

;00 NOT INHIBIT BUS ADDRESS INCREMENT

116 BITS PER WORD FORMAT
;00 NOT INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A WRIDAT

;WRITE DATA WITH 60 IN RH(SI

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA

033462

JSR

RO,a#SAVER

RHWC

SAVERE

;NUMBER OF

18.

1646440

:SAVE REGISTERS
;RHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE
; THE REGISTERS ARE SAVED
REGISTERS

;SAVED
= 18.

: CHECKS DVA.RDY.HOL.DPR.DRY AND vv = 1
;AND THAT ALL STATUS BITS ARE = 0

SEa 0093

-9

CIRJJIDO, RPO&L/S5/6 FCTINL CTRLR2
CIRJJID.PIY
28-MAR-79 08:52

MACY1T

8
30A(1052)
25-MAY-79
10:48 PAGE 95
115
HEADER COMPARE ERROR - RHER! BIT #7 (MCE)
0D

:60 IN RHCST FOR WRITE DATA
:WITH INTERRUPT ENABLED

4364
2222
2%2;
4369
4370

;+TIME 1S NOT CRITICAL

015546
015550
015552

104413
002200
000200
001616
001502

4377

015554

005737

004640

4380
4381
a;gg

015562
015566
015570

004037
002172
177376

033216

4386
4385
aggg

015572
015576
015600

004037
002174
002410

033216

(388
4;38

015602
015606

004037
002176

034204

4391
¢392
4393
4394
4395
aggg

015610
015612
015614
015616
015620
015622

000092
000001
000200
000000
000100
000416

aggg

015624

4371
4372
4373

2%;2
4376

:g;g

46,00
4601

015542
015544

015560

001421

WAT
RHCS1

RDY
908.
834.

JPI

:1F NOT, SKIP NEXT RH70 CODE

RO,a#F ILLRE

VAR1:

JSR
RHWC
=258.

:MOV =258. INTO SAVED RHW(
:SAVED REGISTER TO CHANGE
:DATA

VAR2:

JSR
RO,3F ILLRE
RHBA
WRFROM+<8.+2>

:MOV WRFROM+<8.%2> INTO SAVED AREA
:SAVED REGISTER TO CHANGE
;DATA

JSR
RHCS2

:CHANGE BITS IN SAVED REGISTER
:CHANGE RHCS2 REGISTER

VARS:

2
1
OR
0
IR
BR

4405
4606
4607

015636
015640
015642

004037
002174
002574

4610
4611

015644
015650

004037
002176

4613

015652

000001

46415

015656

000200

4618

015660

4408
4409
4612

4614

4616
4617

L6419

015654

RO, ¥ CHREG

JP2

;2 BIT/BITS 10 BE CHANGED
:NEW VALUE OF OR IS 1
: CHANGE OR BIT
;NEW VALUE OF IR IS O
: CHANGE IR BIT
:SK1P NEXT RH11 CODE

JP1:

033216

015632

;760 AND 17620 MICRO SECONDS

BEQ

004037
002172

6602

:WAIT FOR RDY BIT IN RHCS! REGISTER
;ALLOW 9080 MICRO SECONDS
:RDY MUST SET BETWEEN

:*NOW CHANGE REGISTERS TO EXPECTED VALUE
st
afRHT0
;RUNNING ON RH70 ?

015626
015630

4603
4604

:WAIT FOR RDY BIT 10 SET
;WAIT FOR RHCS1 REGISTER

JSR
RHW(

-200.

:MOV =200. INTO SAVED RHWC
:SAVED REGISTER TO CHANGE
:DATA

033216

JSR
RO,a#F ILLRE
RHBA
WRFROM+<66. 2>

:MOV WRFROM+<66.%2> INTO SAVED RHBA
:SAVED REGISTER TO CHANGE
;DATA

034204

JSR
RHCS?

:CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS2 REGISTER

177470

00000

JP2:

RO,a#F ILLRE

RO, 3# CHREG

21 BIT/BITS 10 BE CHANGED

;NEW VALUE OF OR IS 1
: CHANGE OR BIT

SEQ 0094

CIRJIDO, RPO4/S5/6 FCTNL CTRLR2
CZRJID.P1Y
28-MAR-79 08:52
6620
6421
4622
4623
6424
4425
4426
a:gg
(A

4429
6430
4431
6632
6433
kkgg
64

4436
637
4438
46439
4440
4661
L4442
4443
4444

4445
4446
4667
4648
46469
4450
46451
4652

4453
4456
4455

4456

64457
4458

4459
4460
4461
462
4463
4466
4465

4466

4667
4468
4469
4470
4671
4472
467%
4674

4675

015660
015664

004037
002200

015666
015670
015672
015674
015676

000002
000001
100000
000001
040000

015700
015704
015706

004037
002204
000002

033216

015710

053737

004664

MA(CY1Y

8
E
30A(1052)
25-MAY-79
10:48 PAGE 96
HEADER COMPARE ERROR - RMER! BIT #7 (MCE)
115

034204

JSR
RHCSY

RO,3#CHREG

1
SC
1

TRE

RHDST

004536

BIS

IN SAVED REGISTER

; CHANGE RHCS1 REGISTER

;2 BIT/BITS T0 BE CHANGED
;NEW VALUE OF SC IS 1
; CHANGE SC BIT
;NEW VALUE OF TRE IS 1
;CHANGE TRE BIT

JSR

:CHANGE BITS

SEQ 0095

RO,a#FILLRE

;MOV 2 INTO SAVED RHDST
;SA¥ED REGISTER TO CHANGE
;DA

SFATTENT ,@#SAVERE+24 ;SET APPROPIATE
;FOR WORKING DRIVE

'ATA' BITS

;SAVED RHAS LOCATION
015716
015722

004037
002202

015724
015726
015730

000001
000001
000200

015732
015736

004037
002222

015740
015742
015744
015746
015750

000002
000001
100000
000001
040000

034204

JSR
RHER1

RO,a#CHREG

JSR
RHDS1

IN SAVED REGISTER

; CHANGE RHER1 REGISTER

;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF HCE IS 1
: CHANGE HCE BIT

1
1
HCE

034204

:CHANGE BITS

RO,a#CHREG

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER
;2 BIT/BITS 10 BE CHANGED
;NEW VALUE OF ATA [S 1

2
1

; CHANGE ATA BIT

ATA
1

;NEW VALUE OF ERR IS 1

; CHANGE ERR BIT

ERR

;*COMPARE ALL REGISTERS
JSR

015752

004037

015756
015760
015762

004512
002254
000022

w(
18,

015774

015764

015766

015770
015772

034312

000207

ERROR

; COMPARE SAVED REGISTERS WITH

;PRESENT VALUE

;6000 DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHW('
;18. REGISTERS 10 BE COMPARED
;RETURN 10 3% ON ERROR

SAVERE

015770

104052

RO,3#COMREG

;RETURN TO 4% ON NO ERROR

RTS

;WRITE DATA ON NON EX]ISTANT SECTOR
;CAUSED IMPROPER REGISTER CHANGE
ATTEMPTED WRITE WAS ON

;CYLINDER O,SECTOR 1, TRACK 0
;G00D DATA GIVES WHAT SHOULD BE THERE
;RECEIVED DATA GIVES WHAT WAS THERE
;AFTER

015774

COMMAND

;*tREAD HEADER AND DATA SECTOR 1, TRACK O, CYLINDER 0
;eWiLL BE ATTEMPTED

CIRJJIDO, RPOL/S/6 FCINL CTRLR2Z

CIRJID.PYY
6476

GG77
6478
6479

015774

28-MAR-79 08:52
004737

MACY11

30A(1052)

115

033314

10:48 PAGE 97
25-MAY-79
HEADER COMPARE ERROR - RMWcR1 BIT #7 (HCE)
JSR

PC,asCLDISK

;SET R1-RMCS1, R2-RM(S?
:R3I-RHDST, R4&-RHER!
:GIVE RM=11 INITIALIZE

223?

;SETUP UNIT NUMBER

:23%

;eFILL WRITE FROM BUFFER WITH EXPECTED DATA

4484
485
486
4487
4488
4489

016000
016004
016006
016010
016012
016014

004037
002370
000006
010000
000000
000000

491

016020

000001

aagg
&4

4494
6495
4496
4697

4498

4499

4500
4501
4502
4503

4504
4505

016016
016022

000000

"‘,dr

000001

016026
016030
016032
016034

004037
002406
000306
000000

033164

016036
016042
016046
016046

004037
003220
000076
177777

033164

4289

6512
6513
6514

016050
016056
016056
016060

004037
003434
000400
177777

016062
016066
016070
016071
016072

004037
000000
001
000
177464

6521

016074

003434

4524
6525
6526
4527

016076
016100

000000
014000

016102

002350

4522
6523

4528

4529
4530
6531

:SAVE HEADER DATA IN WRFROM
:LOCATION WHERE SAVED
:NUMBER OF WORDS SAVED
;FIRST DATA WORD
:SECOND DATA WORD
;THIRD DATA WORD

:FOURTH DATA WORD

:FIFTH DATA WORD

:SIXTH DATA WORD

JSR
RO,3#CLAREA
WRFROM+<6*2>
198,
0

;CLEAR 198. WORDS, FROM WRFROM+<6*2>
:STARTING FROM WRFROM+<6*2>
:198. WORDS
SFILL WITH O

JSR
RO,3#CLAREA
WRFROM+<204 . 42>
62.
-1

:CLEAR 62. WORDS, FROM WRFROM+<204.%2>
;STARTING FRCM WRFROM+<204
. %2>
;62. WORDS
SFILL WITH =1

033164

JSR

REINTO

RO,a#CLAREA

256.
=1

;CLEAR 256. WORDS, FROM REINTO
;STARTING FROM REINTO

;256. WORDS
SFILL WITH -1

;*FILL REGISTERS WITH READ HEADER AND DATA (OMMAND

4515
4516
6517
4518
6519

4520

RO,a#FLHEAD

;ef1LL READ INTO BUFFER WITH ALL ONES

4508
4509
6510
64511

JSR
WRFROM
6
10000
0
0

035276

JSR
RO, 9#RUN
0
1
.BYTE
.BYTE
0
=200.-4
REINTO

sSETUP TC RUN FOR DATA COMMAND
;CYLINDER O
;SECTOR 1
:TRACK O

:WORD COUNT (DATA) - 200. ¢
;4 HEADER WORDS
;BUS ADDRESS

;

;STARTING ADDRESS OF DATA

0
ECI.FMT2?2

;DO NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE

BUFFER REINTO

REFOR

)

:GET READY 10 DO A REFOR

;READ HEADER AND DATA WITH 72 IN RH(S!

4690

033140

SEQ 0096

CIRJIJDO, RPO&L/S/6 FCINL CTRLR2
CIRJID.PIN
28-MAR-79 08:52

30A;1052)

8
6
10:48
PAGE 938
25-MAY-79
HEADER COMPARE ERROR - RHeR1 BIT #7 (HCE)

SEQ 0097

;*SAVE REGISTERS FOR COMPARISON AFTER READ

4532
4533
6534
4535
4536
6537
4538

4539
4540
6541
45642
49543
6544
6545
4546
6547
4548
£549
4550
4591
4552
4553
4554
4555
4556
4557
4558
4559
4560
4561
4562
6563
6564
4565
4566
4567
4568
4569
4570
4571
4572
457%
6574
4575
4576
4577
«578
4579
4580
4581
4582
458%
4584
4585
4586
4587

MACYN

004037
002172
004512

; *HEADER AND DATA

033462

JSR

RHW(

RO,a#SAVER

;RHWC

IS THE

FIRST

;STARTING ADDRES OF WHERE
;THE REGISTERS ARE SAVED
;NUMBER OF REGISTERS
;SAVED = 18.

SAVERE

18.

000022

;SAVE REGISTERS

016116

004737

033374

JSR

PC,alCHECKT

; CHECKS DVA,RDY,MOL ,DPR,DRY AND VvV

016122
016126

104401

000000

057465

T1YPE
HAL1

L CPHALT

: CANNOT CONTINUE TESTING IF NOT
;STOP TEST

016130

013777

004506

MOv

INRFGVEC,IRPVEC

164030

;AND THAT ALL STATUS BITS ARE - 0

;SET RPO4 VECTOR ADDRESS
;10 "TIMEY® IF P-CLOCK IS PRESENT
;OR TO *TIMEZ' IF P-CLOCK IS NOT THERE
;'TIME'

WILL ONLY

SAVE

; CURRENT CYLINDER ADDRESS
;AND LOOK

016136
016142

013746
052716

002350
000101

MOV

016146

012677

164026

Mov

BIS

a#REFOR,~(SP)
#GO'1E, (SP)

(SP.+,8RH(S

AHEAD REGISTERS

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;ENABLE INTERRUPT
;60 WITH

;72 IN RHCS1 FOR READ DATA

;WITH

INTERRUPT

ENABLED

;WAIT
;WAIT

FOR RDY BIT TO SET
FOR RHCS! REGISTER

;*TIME IS NOT CRITICAL
016152
016154
016156
016160
016162

104413
002200
000200
001614
001507

WAl
RHCS
RDY

; *CHANGE

004037
002172
000000

033216

004037
002174
004264

033216

004037
002202

034204

000001
000001
000200

:WAIT FOR RDY BIT

JSR

;RDY MUST

RO,o0#F JLLRE

RO,a#fFILLRE

REINTO+<204.2>

1
|
HCE

;MOV 0 INTO SAVED RHW(

:SA¥ED REGISTER TO C(HANGE
;DATA

RHBA

RHER]

BETWEEN

SAVED REGISTERS 10 EXPECTED VALUE

JSR

SET

;690 AND 17470 MICRO SECONDS

RHW(C

JSR

IN RHCS1

;ALLOW 9080 MICRO SECONDS

908.
839.

RO,a#(HREG

MOV REINTO0+<204.+2> INTO SAVED RHBA
;SAVED REGISTER TG C(HANGE
;DATA

; CHANGE BITS IN SAVED REGISTER

; CHANGE RHER! REGISTER
;1

BIT/BITS

10 BE

C(HANGED

;NEW VALUE OF WCE IS )
. CHANGE H{E BI!

CZRJJDO, RPO4L/S/6 FCINL CTRLR2
(IRJJD.PN
28-MAR-79 08:52
4588
4589
6590
4591
6592
459%
6596
4595
4596
4597
64598
4599
4600
4601
4602
4603
4604
4605
4606
4607

4608

4609
4610
4611
4612
4613
4614
4615

4616

JSR

034206

RO,d#CHREG

016226
016230
016232
016234
016236

000002
000001
100000
000001
040000

016240
016244
016246

004037
002204

033216

JSR

RO,a#F ILLRE

016250
016254

004037
002200

034204

JSR
RHCST

RO,a#(HREG

016256
016260
016262

000001
000001
140000

016264

053737

RHDS1

B1S

:MOV 2 INTO SAVED RHDST

;SAVED REGISTER TO CHANGE
;DATA

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS1 REGISTER
;1 BIT/BITS 10O BE (HANGED
;NEW VALUE OF SC!TRE IS 1

; CHANGE SC!TRE BIT

SC!TRE
004536

. CHANGE ERR BIT

1
1

004644

; CHANGE BITS IN SAVED REGISTER

; CHANGE RHDS1

;NEw VALUE OF ATA
:CHANGE ATA BIT
:NEW VALUE OF ERR

ERR
RHDST
2

SEQ 0098

;2 BIT/BITS TO BE CHANGED

1
ATA
1

000002

SNATTENT ,@#SAVERE+24 ;SET APPROPIATE
;FOR WORKING DRIVE

'ATA' BITS

:SAVED RMAS LOCATION

;*COMPARE RFGISTERS BEFORE READ HEADER AND DATA

;eWlTH AFTER

004037

016276
016300
016302
016304
016306

004512
002254
000022
016310
016314

4626
4627

016310
016312

104031

4641
L6462
6663

H
8
25-MAY=79
10:48 PAGE 99
HEADER COMPARE ERROR - RHERY BIT #7 (HCE)

004037
002222

016272

4628
6629
4630
4631
4632
4633
4634
4635
4636
463%7
4638
4639
4640

30A(1052)

016220
016224

4617
4618
4619
4620
4621
4622
6623
4624
6625

MACY1T

JSR

034312

RO,a#COMREG

:COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;600D DATA SAVED IN ‘'SAVERE'
;TEST DATA STARTING FROM 'RHW('
;18. REGISTERS 10 BE COMPARED
;RETURN 10 5% ON ERROR
;RETURN TO 6% ON NO ERROR

;READ HEADER AND DATA WITH

SAVERE
w(
18.
5%
6%
5¢:

000207

ERROR
RTS

;*NOw COMPARE READ DATA
;*THE

(OMMAND READ ONLY

;*AND 200 DATA WORDS

;s CAUSED ERROR
;600D DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT
:WAS THERE AFTER READ
204 WORDS,

& HEADER WORDS

6%:

01n314

016314
016320
016322
016324

;FORCED HEADER COMPARE ERROR

004037
002370
003434
000400

035342

JSR
WRFROM
REINTO
256.

RO,a#COMPAR

. (COMPARE TWO BLOCKS OF MEMORY
;600D DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
;256., WORDS TO BE C(OMPARED

CIRJJDO, RPO4L/S/6 FCINL CTRLR?
(ZRJJD P
28-MAR-79 08:52
L6446

6645

L4646

6647
£648
4649
6650
6651
6652
4653
4656
4655
L656
6657
4658
6659

4660
4661
4662

016326
016330

016332
016336

016332
016334

104034
000207

MACYN

30A(1052)
115

;RETURN TO 7% ON ERROR
;RETURN TO 8% ON NO ERRCR

7%
8%
7%:

10:48
PAGE 100
25-MAY-79
HEADER COMPARE ERROR - RHeR1 BIT #7 (HCE)

ERROR

RTS

74
PC

;DATA READ FROM A FORCED
;HEADER COMPARE ERROR ]S
; INCORRECT
;600D DATA GIVES WHAT

;:THE READ HEADER AND DATA

; SHOULD MHAVE READ
;BAD DATA GIVES WHAT
;WAS [N BUFFER AFTER

016336

:
8%

;READ

COMMAND

SEQ 0099

CIRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRJJID.PN
28-MAR-79 08:52

MACY11

30A(1052)
115

J
8
25-MAY-79
10:48
PAGE 10}
HEADER COMPARE ERROR - RHER1 BIT #7 (HCE)

SEQ 0100

(663

4664

RZEEARRAAR AR

AR RAR

RRER

MEADER COMPARE ERROR - RHER1 HCE

WITH THE HEADS ON CYLINDER O A SEARCH COMMAND IS GIVEN
FOR CYLINDEF O TRACK O SECTOR 1, ALTHOUGH THE HEADER
FOR THIS SECTOR IS CHANGED TO SECTOR O HCE-BIT #7
IN RHER1 SHOULD NOT SET

BECAUSE SEARCH DOES NOT READ HEADER BUT ONLY USES SECTOR COUNTER
SA

016336
016340
016344

000004
012706
012737

001000
000016

016352

004737

1$T16:

222222222 XAE2RARRRRA SRRl
RRRA)

SCOPE
MOV
Mov

#STACK,SP
#16,a#TSTNM

;RESET STACK
;SAVE TEST NUMBER

033314

JSR

PC,a#(LDISK

;SET R1-RHCST, R2-RH(S?
;R3-RHDS1, R&=RHER1
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

:*GET HEADS 1O CYLINOER O
:CHECKS DVA,RDY,MOL,DPR,DRY AND vv - 1
PC,aNCHECKT
JSR

016356

004737

033374

016362
016366

104401
000000

057465

016370

013777

004506

00450¢

163570

TYPE
HALT

LCPHALT

MOov

I#RPLVEC,IRPVEC

:AND THAT ALL STATUS BITS ARE = 0
;s CANNOT CONTINUE TESTING IF NOT
;STOP TEST

;SET RPO4 VECTOR ADDFRESS

;70

"TIMEY'

;OR TO "TIMEZ2®
;"TIME'

P=CLOCK

]S PRESENT

IF P=-CLOCK IS NOT THERE

WILL ONLY

SAVE

: CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
016376

013746
052716

002326
000101

MOV

OMRECALL,-(SP)

GET

016402

01640¢

012677

163566

MOV

(SP)+ ,aRHCST

;60 WITH

MOv
Mov

aR1,RO
aR3,RS

016430

004737

—

104413
002222
000200
012740
012737

—

016416
016420
016422
016424
016426

—

016412
016414

[]

4713
&4
4715
(716
&717
“718

TeTEST 16

4665

4666

6667
(668
4669
4670
L4671
L4672
64673
L6764
4675
L676
4677
4678
4679
4680
4681
4682
(683
L6846
4685
4686
L687
4688
4689
4690
L691
4692
4693
4694
4695
4696
4697
4698
4699
4700
4701
4702
4703
4704
4705
6706
4707
4708
4709
4710
o711
4712

XXX R

BIS

#GO'1E, (SP)

TO MOVE

COMMAND

;ENABLE INTERRUPT

;6 IN RH(S1 FOR RECALIBRATE
;WITH INTERRUPT ENABLED
:SAVE RH(S1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

WAT
RHDS1

;WAIT FOR DRY BIT 10 SET
;WAIT FOR RHDS1 REGISTER

5599.

;DRY MUST SET BETWEEN

;MAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 56000 MICRO SECONDS

DRY
5600.

033314

READY

;GET READY TO SET GO AND

JSR

;10 AND 111990 MICRO SECONDS

PC,a#CLDISK

;SET R1=-RHCS1, R2-RHCS?2
;R3-RHDS1,

R&=-RHERI

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

CIRJJIDO, RPO&L/S/6 FCTINL CTRLR2
CIRJJD.PINY
28-MAR-79 08:52
6719
6720
6721
6722
4723
6724
6725
6726
6727

6728
6729

4730
64731
6732
6733
6734
4735
6736
6737
4738
4739

4740
6761
6762
6743
L7464
67465
G746
6747
(748
6749
4750

4751
6752
4753
4754
6755
4756
6757
4758
4759
4760
4761
4762
4763
4764
6765
6766
(767
4768
769
770
6771
4772
6773
G774

MACY11

30A(1052)
116

25-MAY-79

10:48

8
PAGE 102

HEADER COMPARE ERROR - RMEtR1

SEa 0101

HCE

;*FILL REGISTERS FOR SEARCH
016434
016440
016442
016443

004037
000000

016444
016450
016452

004037
002172
004512

016454

000022

016456

004737

033374

JSR

PC,aNCHECKT

016462
016466

104401
000000

057465

TYPE
HALT

,CPHALT

016470

013777

004506

mMov

S¥RPLVEC,GRPVEC ;SET RPO4 VECTOR ADDRESS

033244

001
000

.BYTE
.BYTE

JSR
0

RO,3#SRCH

)

:SEARCH FOR
:CYLINDER O
SECTOR 1

;TRACK O

;*SAVE REGISTERS FOR COMPARISON AFTER SEARCH

033462

JSR
RHW(
SAVERE

RO.3#SAVER

:THE

18.

163470

;SAVE REGISTERS
;RHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE
REGISTERS ARE

;NUMBER OF

SAVED

REGISTERS

;SAVED = 18.

; CHECKS DVA,RDY, MOL,DPR,DRY AND VvV = 1
;AND THAT ALL STATUS BITS ARE - 0
;CANNOT CONTINUE
.STOP TEST

TESTING

NOT

;70 "TIMEY' IF P=-CLOCK IS PRESENT
;OR 10 °'TIMEZ2' IF P-CLOCK IS NOT THERE
;"TIME® WILL ONLY SAVE
:CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

01647€
016502

013746
052716

002334
000101

Mov

I#SERCH,-(SP)

016506

012677

163466

Mov

(SP)+ ,aRHCSH

;G0 WITh

016512
016514

01
011305

MOV
MOv

aR1,RO
aR3,RS

;SAVE RHCS1 DURING ABOVE OPERATION
:SAVE RHDS1 DURING ABOVE OPERATION

016516
016520
016522
016524
016526

1046413

WAT
RHDS1

002222
000200
001614
001507

BIS

#GO!1E, (SP)

;GET READY

TO MOVE

COMMAND

;GET READY TO SET GO AND
;ENABLE INTERRUPT
;WITH

INTERRUPT

ENABLED

;WAIT FOR DRY BIT TO SET
;WAIT FOR RHDS1 REGISTER

;WA]T FOR DRY BiT IN RHDS! REGISTER
;ALLOW 9080 MICRO SECONDS
;DRY MUST SET BETWEEN
;690 AND 17470 MICRO SECONDS

DRY
908.
839.

; *COMPARE CONTENTS OF RHCS! AND RHDS1 ALREADY SAVED IN
;*RO AND RS IMMEDIATELY AFTER GO 1S ISSUED
016530
016534
016540
016544

013746
052716
011637
022600

016546

001405

002334
004301
001124

MOV

#SERCH,=(SP)

. SAVE COMMAND

MOV

(SP) ,a#$GDDAT

:SAVE FOR PRINTOUT

B1S
(MpP

BEQ

#1E.GO.DVA.RDY,(SP)

s INCLUDE 1E'GO:DVAIRDY

(SP)+,RO

;DURING ABOVE OPERATION ONLY lE:!GO:DVA.RDY

67%

;BRANCH [F GOOD

;AND COMMAND SHOULD BE

SET

(el

—-

CIRJIDO, RPO4/S/6 FCTINL CTRLR2

CZRJJD.PIY

4775
4776
“777
(778
4779
4780
4781
4782
4783
L784

4785
4786
4787
4788
4789
4790
47N
4792
4793
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805

4806

4807

28-MAR-79 08:52

016550
016554
016560

010037
010137

016562
016566
016572

012746
011637
022605

016574
016576
016602
016606

001405
010537
010337

104021

104063

MACYI1

30A(1052)
116

001126
004500
67%:

25-MAY-79

SEQ 0102

H(E

RO,a#$BDDAT
R1,3#REGADR
21

:BAD DATA
;FAILING REGISTER RH(S!
;DURING ABOVE OPERATION ONLY

MOv
MOv
(mp

(SP) ,a#$GDDAT
(SP)+.RS

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY MOL'!DPR!vV

; COMMAND AND IE'!GO'!DVA!RDY SHOULD BE SET
#MOL ! DPR!VY,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDSI

BEQ

69%

MOV
ERROR

R3,3#REGADR
63

RS.a3#$BDDAT

; SHOULD BE SET
;BRANCH If GOOD
;BAD DATA
;FAILING REGISTER RHDSI
;DURING ABOVE OPERATION ONLY
SET

;MOL'!DPR!VV 5HOULD BE

; *CHANGE SAVED REGISTERS TO EXPECTED VALUE
016610
016614

004037
002200

016616
016620
016622

000001
000001
100000

016624
016630

004037

016632
016634
016636

000001
000001

016640

053737

002222

JSR
RHCST

034204

RO,a#CHREG

1
1
SC

JSR

034204

RHDS1

RO,Q#CHREG

1
1
ATA

100000

004644

BIS

004536

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS1 REGISTER
;1 BIT/BITS 1O BE CHANGED
;NEW VALUE OF SC IS 1
; CHANGE SC BIT

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1

;1 BIT/BITS 10 BE CHANGED
;NEW VALUE OF ATA ]S 1
: CHANGE ATA BIT

QNATTENT ,@#SAVERE+24 ;SET APPROPIATE

:FOR WORKING DRIVE IN
:SAVED RHAS LOCATION

4808

4809
4810
811
4812
4«81%
4814
4815
6816
4817
4818
4819
4820
4821
4822
4823
6824
4825
4826
4827
4828
48269
4830

8
PAGE 103

MOov
MOV
ERROR

69%:

016610

HEADER COMPARE ERROR - RHcR1

MOv

001126
004500

10:48

'ATA' BITS

; *COMPARE REGISTCRS BEFORE SEARCH WITH AFTER SEARCH
016646

004037

016652
016654
016656
016660
016662

006512
002254
000022
016664
016670

016664

104047

016666

000207

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;GOOD DATA SAVED IN 'SAVERE'
:TEST DATA STARTING FROM ‘'RHW('’
;18. REGISTERS TO BE COMPARED
;RETURN TO 1% ON ERROR
;RETURN TO 2% ON NO ERROR

ERROR

&7/

SEARCH TO A NON-EXISTANT

RTS

;SECTOR CAUSED IMPROPER

JSR

034312

SAVERE
Wi
18.
1%
2%

1%:

;REGISTER

CHANGE

;600D DATA GIVES WHAT SHOULD
.BE THERE
;RECEIVED DATA GIVES

016670

2%:

;WHAT WAS THERE AFTER
s SEARCH

4831

MACYT1

n 8
10:48 PAGE 104
30A(1052)
25-MAY=-79
HEADER COMPARE ERROR - RHeR1 HCE
116

SEQ 0103

CIRJIDO, RPO4/S/6 FCTNL CTRLRZ
CIRJJD.PWY
28-MAR-79 08:52

CIRJJIDO, RPO4/S/6 FCTNL CTRLR2

CIRJJID.PINY

28-MAR-79 08:52

MACYT1

4832
4833
(834
4835
4836
4837
4838
4839
4,840
6841
4842
4843

25-MAY-79

RESTORE

X222

B
Ve
Ve
B
Ve

10:48

SECTOR

CYLINDER

282222222

195
1

TRA(K

RXEARARAR RS RRRRRRRRARRRRRRRXaRRdd
AR

RESTORE SECTOR 1 CYLINDER 1 TRACK 1

THIS REPLACES REMOVED

SECTOR

WRITE HEADER AND DATA CYLINDER O, FORMAT 16 BITS PER WORD
A?ASK 0, SECTOR 1, KEYS=0, NUMBER Of WORDS 256 WORDS

%
%

B
B
B2

Ve
Ve

%
W

%
2
%

B
Ve
Ve

¥
B

WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITM
10000,1,0,0, AND 256 OF 0
THE WRITE COMMAND 1S THEN LOADED INTO THE REGISTERS EXCEPT
THE GO BIT, AND ALL THE REGISTERS ARE SAVED
THEN GO IS GIVEN FOR WRITE HEADER AND DATA

THEN ALL REGISTERS ARE (OMPARED TO CHECK FOR IMPROPER CHANGED
THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED
NOW FOR THE READ COMMAND READ INTO BUFFER IS FILLED
WITH ALL ONES, COMMAND IS LOADED INTO REGISTERS EXCEPT
GO BIT AND ALL RE(ISTERS ARE SAVED
GO 1S GIVEN FOR THE READ COMMAND

THEN READ HEADER AND DATA FOR ABOVE.

SeTEST 17

ALL REGISTERS ARE CHECKED FOR
THEN THE READ DATA

SR L2222

016670
016672
016676

000004
012706
012737

001000
000017

016704

004737

033314

ié?!?:
004504

2228

XX22222

IMPROPER CHANGE

15 COMPARED.

2222222222220

R0 RRRRRRRRRRRaRRRRR
RN

SCOPE
MoV
MOV

NSTACK,SP
#17,3#TSTNM

;RESET STACK
:SAVE TEST NUMBER

JSR

PC,a¥CLDISK

;SET R1-RHCST, R2-RHCS?
;R3-RHDS1, R&4=RHERI
;GIVE RH=-11 INITIALIZE
;SETUP UNIT NUMBER

;*FILL WRITE FROM BUFFER WITH HEADER
004037
002370
000004
010000
000001
000000
000000

4877
4878
4879
4880
4881

4882
4883

4884
4885
4886
<887

117
A2

L8446
4845
LB46
6847
4848
4849
4850
4851
4852
4853
4854

4855
t856
4857
4858
4859
4860
4861
4862
4863
4864
4865
4866
4867
4868
4869
4870
4871
4872
4873
4874
4875
4876

30A(1052)

8
PAGE

033140

JSR

WRFROM
4
10000
1
0

RO,a#FLHEAD

:SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD
; SECOND DATA WORD
:THIRD DATA WORD

;FOURTH DATA WORD

;oFlLL WRITE FROM BUFFER WITH DATA
016730
016734

004037
002400

033164

RO,S#CLAREA
JSR
WRFROM+10

;CLEAR 256. WORDS, FROM WRFROM+10
;STARTING FROM WRFROM«10

SEQ 0104

—

(888
4889
4890
4891
4892
4893
4894
4895
4896
4897
4898

4899

4900
4901
4902
4903
4904
4905

4906
4907

4908
4909

4910
4911
6912
4913

016736
016740

MACY1

SOA;\OSZ)

25-PAY=79

RESTORE

016742
016746
016750
016752
016754
016756
016760

004037
003434
000004
010000
000001
000000
000000

033140

016762
016766

004037
003444

033164

016770
016772

000400
000000

JSR

RO,3#CLAREA

;CLEAR 256. WORDS, FROM REINTO+10
;STARTING FROM REINTO+10

035276

JSR
0
BYTE
BYTE

017010
017012

000000
010000

0
FM122

017014

002344

WRIFOR

-256.-4

004037
002172
004512

JSR
RHW(
SAVERE

017026

000021

17.

4939

017030

004737

033374

4941

017034

104401

057465

6494

256 WORDS
SFILL WITH O

017024

017040

000000

033467

RO,3#RUN

FILLED

;SETUP 1O RUN FOR DATA COMMAND
;CYLINDER O
;SECTOR 1
:TRACK 0

1
O

;WORD COUNT (DATA) = 256. +
;& HEADER WORDS
;BUS ADDRESS

;STARTING ADDRESS OF DATA
;BUFFER = WRFROM
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;00 NOT INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
;GET READY 10 DO A WRIFOR
;WRITE HEADER AND DATA WITH 62 IN RHCSI

;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA

017016
(17022

484%

;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD
;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD

;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE

WRFROM

6940

;256. WORDS
sFILL WITH O

REINTO+10
256.
0

002370

4935
4936
4937
4938

SEQ 0105

:SAVE HEADER DATA IN REINTO

017006

4932
4933
6934

TRACK

RO,3#FLHEAD

4920

4928
4929
4930
4931

JSR

REINTO
4
10000
1
0
0

004037
000000
001
000
177374

4927

CYLINDER

—

;*NOW READ INTO BUFFER WILL BE FILLED WwITH SAME DATA
;*AS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPAR]ISONS
;*CAN BE MADE TO MAKE SURE THAT WRITE DID NOT
:*CHANGE WRITE FROM BUMFER

016774
017000
017002
017003
017004

4921
4922
4923
4924
4925
L926

256.
0

000400
000000

914
64915
4916
4917
4918
6919

10:48

SECTOR

9
PAGE 106

—

(IRJIDO, RPO4L/S/6 FCTINL CTRLR2
CIRJJD.P
28-MAR-79 08:52

RO,a#SAVER

;SAVE REGISTERS
;RHWC 1S THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE
:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS
;SAVED = 17,

JSR

PC,a#CHECKT

TYPE
HALT

CPHALT

:CHECKS DVA,RDY,MOL,DFR,DRY AND vV = 1
;AND THAT ALL STATUS BITS ARE = 0
s CANNOT CONTINUE TESTING IF
;STOP TEST

NOT

CIRJJIDO, RPO4L/S/6 FCINL CTRLR2
CIRJJD.PWY
28-MAR-79 08:52
6944
4945
4946
4947
4948
4949
4950

017042

4952
4822

017050
017054

4951

013777

004506

MACY11

25-MAY-79
10:48 PAGE 107
30A(1052)
RESTORE SECTOR 1 CYLINDER 1 TRACK 1
117

163116

MOov

013746
052716

002344
000101

MOv
B1S

a#WRIFOR,-(SP)
#GO' 1E, (SP)

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND |

163114

Mov

(SP)+,aRHCS]

;GO WITH

aR1,RO
aR3,RS

017060

012677

017064
017066

011100
011305

Mov
Mov

4962
4963
4964
4965
4966
4967
4968
4969
4970
4971
4972
4973
4974
4975

017070
017072
017074
017076
017100

104413
002200
000200
001614
001507

WAT
RHCS1
RDY
908.
839.

017102
017106
017112
017116

013746
052716
011637
022600

4977
4978
4979
4980

017120
017122
017126
017132

001405
010037
010137
104021

4982
4983
6984

017134
017140
017144

012746
011637
022605

4986
4987
4988
4989

017146
017150
017154
017160

001405
010537
010337
104063

4991

017162

6976

4981

4985

4990

4992
4993
6994

4995
6996
4997
4998
4999

;SET RPO4& VECTOR ADDRESS

;70 'TIMEY® IF P=CLOCK IS PRESENT
;OR 10 'TIME2' IF P-CLOCK IS NOT THERE
;"TIME' WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS

4955
6956
4957
4958
4959
4960
4961

S¥RP4VEC,BRPVEL

SEQ 0106

;ENABLE INTERRUPT

;62 IN RHCS1 FOR WRITE HEADER AND DATA

sWITH

INTERRUPT

;SAVE RHCS1
;SAVE RHDS1

ENABLED

DURING ABOVE OPERATION
DURING ABOVE QPERATION

;*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC
;WAIT FOR RDY BIT T0 SET
:WAIT FOR RHCS!1 REGISTER
;WAIT FOR RDY BIT IN RHCS1
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

;690 AND 17470 MICRO SECONDS

;*COMPARE CONTENTS OF RH(S1 AND RHDS1 ALREADY SAVED IN
:*RO AND RS

002344
004101
001124

010500
001124

INWRIFOR,-(SP)

;SAVE

MOV
CMp

(SP) ,aNSGDDAT
(SP)+,RO

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY

649

Mov
ERROR

R1,3#REGADR
21

RO,a#$BDDAT

COMMAND

;INCLUDE

]1E!GO!DVA

;AND COMMAND SHOULD BE SET
:BRANCH 1Ff GOOD
:BAD DATA

Mov
CMP

(SP)+,RS

MOv

(SP) ,a#$GDDAT

BEQ

66%

MOV

R3,3#REGADR

ERROR

RS,a#$BDDAT

66%:

:SAVE FOR PRINTOUT

;DURING ABOVE OPERATION ONLY MOL.DPR:VV
: SHOULD BE SET
:BRANCH If GOOD
;BAD DATA

;FAILING REGISTER RHDS!

;DURING ABOVE OPERATION ONLY
:MOL'DPR'VV SHOULD BE

SET

; *NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES

017162
017166
017170

004037
002172
000000

033216

1E!GO.DVA

;FAILING REGISTER RHCS]
;DURING ABOVE OPERATION ONLY
; COMMAND AND JE!GO!DVA SHOULD BE SET
#MOL !DPR!VV,=(SP)
;SAVE BI1TS SET DURING GPERATION IN RHDS!

Mov

001126
004500

#1E.GO.DVA,(SP)

BEQ

MOV

64%:

I1SSUED

MOov

B1S

001126
004500

IMMEDIATELY AFTER GO IS

JSR
SHUC

RO,a#FILLRE

;MOV 0 INTO SAVED RHW(
:g:¥ED REGISTER TO CHANGE

CIRJJIDO, RPO4L/S/6 FCTNL CTRLR2
P11
CIRJJD.P
28-MAR-79 08:52
5000
5001
5002
5003
5004
5005
5006
5007
5008
5009
5010
5011

004057
00217
003400

033216

004037
002204
000002

033216

MACY1

b 9
SOA(1052)
25-MAY-79
10:48 PAGE 108
RESTORE SECTOR 1 CYLINDER 1 TRACK 1
17
JSR

JSR

SHDSI

5012

5014

006037

5016

006512
002254

5015

5017
5018
5019
5020

5044

9045
5046
5047
5048
5049
5050
5051
5052
505%
5054

5055

RO,3#FILLRE

;MOV WRFROM+<260.%2>

INTO SAVED RHBA

:SAVED REGISTER TO CHANGE
;DATA

;MOV 2

INTO SAVED RHDST

:SA¥ED REGISTER 10O CHANGE
;DA

;*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND

5013

5021
5022
5023
5024
5025
5026
5027
5028
5029
5030
5031
5032
5033
5034
5035
5036
50%7
5038
5039
5040
5041
5042
5043

RO,a#F ILLRE

RNBA
WRFROM+<260.%2>

SEQ 0107

JSR

034312

RO,3#COMREG

000021

: COMPARE SAVED REGISTERS WITH
sPRESENT VALUE
:GO0OD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHW('
;17. REGISTERS TO BE COMPARED
;RETURN 10 1$ ON ERROR
;RETURN T0 2% ON NO ERROR

017230
017234
1%:

106027
000207

ERROR
RTS

27
PC

;WRITE HEADER AND DATA
:CAUSED IMPROPER REGISTER
; CHANGE

;GO0D DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE AFTER COMMAND

2%:

017234
017234
017240
017242
017244
017246
017250

004037
003434
002370
000404
017252
017256

017252
017254

104030

JSR

035342

REINTO
WRFROM

1%:

49%:

033314

ERROR
RTS

; COMPARE TWO BLOCKS OF MEMORY
:GO0OD DATA STARTS FROM REINTO
sTEST DATA STARTS FROM WRFROM
;260., WORDS TO BE COMPARED
;RETURN TO 3% ON ERROR

;RETURN TO 4% ON NO ERROR

000207

004737

RC,3#COMPAR

260.
3%

017256
017256

;*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT
; *NOTHER GOT CHANGED

;WRITE HEADER AND DATA
; CHANGED WRITE FROM BUFFER

;*NOW A READ HEADER AND DATA COMMAND WiLL BE GIVEN
;*READ INTO BUFFER IS FILLED WITH ONES
JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(S?
:R3-RHDS1,

R4-RHER]

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

017262

004037

033164

JSR

RO,3NCLAREA

;CLEAR 260. WORDS, FROM REINTO

CIRJIJDO, RPO&4/S5/6 FCTINL CTRLR 2
CIRJID.PI
28-MAR-79 08:5¢2
5056
5057
5058
5059
5060
5061
5062
5063
5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5084
5085
5086
5087
5088
5089
5090
5091

MACY11

0036434
000404

2?0.

;*NOW

035276

6SR

SEQ 0108

:STARTING FROM REINTO
:260. WORDS
dFILL WITH =1

REINTO

V77777

004037
000000

30A(1052)
25-MAY=-79
10:48 PAGE 109
RESTORE SECTOR 1 CYLINDER 1 TRACK
"z

FlLL

COMMAND

RO,a#RUN

;SETUP TO RUN FOR DATA (COMMAND
;CYLINDER O
:SECTOR 1

001
000
177374

1
.BYTE
.BYTE
O
=256.-4

003434

REINTO

000000
014000

0
ECI!FMT2?

002350

REFOR

017316
017322
017324

004037
002172
006512

JSR

017326

000022

017330

004737

033374

JSR

PC.aNCHECKT

Y, AND vv - |
MOL ,DPR,DPY
; CHECKS DVA,RD

017334
017340

106401

TYPE
HALT

. CPHALT

000000

057465

; CANNOT CONTINUE TESTING IF NOT

017342

013777

004506

Mov

a#RPLVEC,3RPVEC

sTRACK O

;WORD COUNT (DATA) - 256. +

;4 HEADER WORDS
;BUS ADDRESS

;STARTING ADDRESS OF DATA
= REINTO
;BUFFER
;DO NOT INHIBIT BUS ADDRESS INCREMENT

;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE
;GET READY 10 DO A REFOR
;READ MEADER AND DATA WITH 72 IN RHCS!

;*NOW SAVE REGISTERS FOR (OMPARISON AFTER READ HEADER AND DATA

033462

RHW(C

RO,3#SAVER

;STARTING ADDRES OF

SAVERE

WHERE

;THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS

18.

162616

:SAVE REGISTERS
;RHWC IS THE FIRST REGISTER SAVED

;SAVED = 18.

;AND THAT ALL STATUS BITS ARE

- 0

;STOP TEST

:SET RPO4 VECTOR ADDRESS

;710

"TIMEY'

;OR 10 'TIMEZ2'

P=-CLOCK

IS PRESENI

IF P-CLOCK IS NOT THERE

;"TIME® WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS

AHEAD REGISTERS

017350
017354

013746
052716

002350
000101

MOV

#REFOR,-(SP)

017360

012677

162614

MOov

(SP)
¢ ,3RHCS]

;GEY READY 1O MOVE COMMAND
:GET READY 1O SET GO AND
;ENABLE INTERRUPT
.60 WITH

Mov
Mov

aR1,RO
aR3,R5

:WITH INTERRUPT ENABLED
;SAVE RH(S! DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

—

\pg —

104413

—

017370

—

017364
017366

S Y
R YR
S
S

—_ =000
O
—= OO
~NO WV

(VL LV

W XV SV TV IV LV LV ]

;AND LOOK

BIS

WAT

#GO.1E, (SP)

;72

;WAIT

IN RHLS)

FOR READ DATA

FOR RDY BIT

10 SEI

CIRJJIDO, RPOL/S5/6 FCINL CTRLR2

CIRJJD.PIY
5112
5113
5116
5115

2}}?

017372
017374
017376
017400

28-MAR-79 08:52

MACY!

3??;1052)

002200
000200
001614
001507

5123
5126
5125
5126
5127
5128
5129
5130

5131

5132
5133
5134
5135
5136

5137

5138
$139

2:4?
4

10:48

9
PAGE 110

RESTORE SECTOR 1 CYLINDER 1 TRACK 1
RHCST
RDY
908.
839.

5118
g};g
5121
5122

25-MAY-79

;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

;690 AND 17470 MICRO SECONDS

;*COMPARE CONTENTS OF RMCS1 AND RHDS1 ALREADY SAVED IN.
;*RO AND RS IMMEDIATELY AFTER GO IS ISSUED
0176402
017406

013746
052716

017420
017422
0176426
017432

001405
010037
010137
104021

017434

017412
017416

011637
022600

002350
006101

001124

004500

012746

011637
022605

010500

017446
017450

001405
010537

001126

017454

017460

010337

104063

001126

67%:

004500

017462

INFREFOR,~(SP)
M1E'!GO!DVA,(SP)

8EQ
MoV
MoV
ERROR

67%
RO,a#$BDDAT
R1,3#REGADR
21

MoV

#MOL ! DPRIVVY,=(SP)

BEQ
MoV

69%
RS,a#$BDDAT

ERROR

MoV
CMP

001126

017440
017444

Mov
B1S

MOV
(mp

MoV

(SP) ,a#$GDDAT
(SP)+,RO

(SP) ,a#$GDDAT
(SP)+,RS

R3,3¥#REGADR

69%:

g}&%

;SAVE CCMMAND
;INCLUDE 1E!GO!DVA

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY 1E:GO:DVA
;AND COMMAND SHOULD BE SET
;BRANCH IF 6GOOD
:BAD DATA
;FAILING REGISTER RHCSI
:DURING ABOVE OPERATION ONLY
; COMMAND AND IE'!GO!DVA SHOULD BE SET

;SAVE BITS SET DURING OPERATION IN RHDSI

;SAVE FOR PRINTOUT
;:DURING ABOVE OPERATION ONLY MOL:DPR:VV
;SHOULD BE SET
:BRANCH IF GOOD
:BAD DATA

;FAILING REGISTER RHDSI

:DURING ABOVE OPERATION ONLY
;MOL'DPR!VV SHOULD BE SET

:*CHEANGE SAVED REGISTERS TO EXPECTED VALUES

51644
5145
5146

017462
017466
017470

004037
002172
000000

033216

JSR
RHW(C
0

5149
5150
5151

017472
017476
017500

004037
002174
0064446

033216

JSR
RO,aNFILLRE
RHBA
REINTO+<260.¢2>

;MOV REINT0+4<260.*2> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE
:DATA

5154
5155
5156

017502
017506
017510

004037
002204
000002

033216

JSR
RHDST
2

;MOV 2 INTO SAVED RHDST
;SAVED REGISTER TO CHANGE
;DATA

5157
5158

5159
5160
6

5163
5164
5165
5166
5167

RO,a#FILLRE

RO,a#F ILLRE

:MOV O INTO SAVED RHW(
;SAVED REGISTER TO (HANGE
;DATA

:*COMPARE REGISTER BEFORE READ HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND

017512

004037

017516
017520
017522

004512
002254
000022

034312

JSR

SAVERE
w(
18.

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
:GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘RHW(’
;18. REGISTERS 10 BE COMPARED

SEa 0109

25-MAY-79

RESTORE

10:48

SECTOR

PAGE 11

CYLINDER

5%
6%

—

SOA;lOSZ)

TRACK

Sea 0110

;RETURN TO 5% ON ERROR
;RETURN TO 6% ON NO ERROR

Ll ol o IV IV TV TV LV IV IV IV IV TV IV TV LV IV IV IV RV IV IV XV TV IV IV TV LV IV }V ]

MACYN

017530
017534

00OV OVO VOO0 VOO
00000 OOO0 AN N~~~ ~N~~N~N~
VBN NS NNV —=O VDN VNE W
—=O0VB~NC NS W
—O

CIRJJIDO, RPO&L/ 5/6 FCINL CTRLR 2
CZRJJD.PN
28-MAR-/9 08:52

5%:

104031

ERROR
RTS

000207

THERE

;RECEIVED DATA GIVES WHAT WAS

i e

; THERE

:*NOW READ INTO BUFFER WiLL BE
;*THE READ WAS 6OOD

ad o
i
el

;GOOD DATA GIVES WHAT SHOULD
.BE

o~
o

—

AFTER

COMMAND

CHECKED TO Stt

6%:

017534

D
i
il
i

; IMPROPER REGISTER (HANGE

004037
002370
003434
000404
017552
017556

JSR

035342

WRFROM
REINTO

RO,a#COMPAR

260.
7%
10%

; COMPARE TWO BLOCKS OF MEMORY

;600D DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

;260., WORDS TO BE COMPARED
;RETURN 10 7% ON ERROR
;RETURN TO 10% ON NO ERROR

104032
000207

7%:

) e

)

i o

D e

;READ HEADER AND DATA CAUSED

10%:

ERROR
RIS

;WRITE HEADER AND DATA

;FOLLOWED BY A READ HEADER
;AND DATA GAVE

:ERROR MAY BE

A READ ERROR

IN READ OR WRITE

CIRJUDO, RPO4L/S/6 FCTINL CTRLRZ
28-MAR-79 08:52

LIRJJD.PI 1

MACYI1

(W RV AV IV ddd VoLV RV IV LV LV, LV 2V ]
(xS 1251,%1,%) INAA A IS T ST ST, ST V], V],V
P
S
S
oo
N[ 9 JP

NN
— CrNOWVNO NS NNy
—

5200
5201
5202
5203
5204

5225
5226

5227
5228
5229
5230
5231
5232
5233
5234
5235
5236
5237
5238
5239
5240
5241
5242
5243
5244
5245
95246
5247
5248
5249
5250
5251
5252
525%
5254
5255

9
30A(1052)
25-MAY-79
10:48
PAGE 112
17
RESTORE SECTOR 1 CYLINDER 1 TRA(K

SEq 0111

';Q"'"'"""'"""".""""""""'t""""ti&lt""""'

SeTEST 20
;e

A WRITE HEADER AND DATA WILL BE ATTEMPTED TO CYLINDER &411./815,

INVALID ADDRESS ERROR (IAE) BIT #10 IN RHER! SHOULD SET

BEEAXZ2 s

017556
017560
017564

00000¢
012706
012737

001000
000020

017572

004737

033314

INVALID ADDRESS ERROR - RMER1 = °'IAE’

15120:
004504

TRACK O, SECTOR 0

SCOPE

RARR AR

RNl

Mov

#STACK,SP

;RESET

JSR

PC.aNCLDISK

;SET R1-RHCS1, R2-RH(S?2

MOv

#20,a8TSTNM

RRR

STACK

;SAVE TEST NUMBER
;R3-RHDS1,

R4&=RHER1

;GIVE RH=11 INJTIALIZE
;SETUP UNIT NUMBER

;*(CHECK THE DRIVE TYPE AND THEN FILL THE
;*WRITE

FROM BUFFER WITH APPROPRIATE

HEADER

;:"'Ql"""""".""""""""""""'l""'i""""l"'l

017576
017602

005737
001411

181

004636

BEQ

8#RP06

;TEST

FOR RPO6 DRIVE

;TREAT UNIT AS AN RPO4
; TREAT

AS AN RPO6

:;""!""'"""l'""'"""""l"""i"'t.".tlt'.'.'l'."'

017604
017610
017612
017614
017616
017620
017622
017624

004037
002370
000004
011457
000000
000000
000000
000410

033140

RO,a#FLHEAD

JSR
WRFROM
4
10633
0
0
0

RO,3#FLHEAD

:SAVE HEADER DATA [N WRFROM
:LOCATION WHERE SAVED
:NUMBER Of WORDS SAVED
;FIRST DATA WORD
;SECOND DATA WORD

:THIRD DATA WORD
;FOURTH DATA WORD
;CONTINUE WITH SET UP

5¢%:

017626

017626
017632
017634
017636
017640
017642
017644
017646

JSR
WRFROM
4
11457
0
0
0

004037
002370
000004

033140

010633
000000

000000
000000

004037
002400
000400

177777

6%:
033164

:SAVE HEADER DATA IN WRFROM
:LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD

;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD
; CONTINUE

sef1LL WRITE FROM BUFFER WITH DATA

JSR

RO,a#CLAREA

WRFROM+10
256.
0-1

;CLEAR 256. WORDS, FROM WRFROM+10
;STARTING FROM WRFROM«1)
:256. WORDS
;FILL WITH 0=

CIRJJIDO, RPO4L/S/6 FCINL CTRLR2
C(IRIJD. P\\
28-MAR-79 08:52

10:48

]

PAGE

113

INVALID ADDRESS ERROR - RHMERTM

- '"JAE'

SEQ 0112

THE APPROPRIATE
IS LOADED

005737
001412

004636

151
Bta

a#RPO6
3%

TEST

tOR RPO6 DRIVE
:TREAT UNIT AS RPO4
;TREAT UNIT AS RPO6

;;"'l""""'""'"""t'"""""'.".""."""""'t"t"

177374

-256.-4

017700

002370

WRFROM

;BUS

017702
017704

000000
010000

;00 NOT

017706

002344

WR]IFOR

0
0

11
0004

BYTE

;SETUP TO RUN FOR DATA (OMMAND

N~
NN

RO,a#RUN

004037
001457
000
000

004037
000633
000

1
1

1771
1771

035276

JSR

017666
017672
017674
017675
017676

NN
NN

5267
5268
5269
5270
5271
5272
5273
5274
5275
5276
5277
5278
5279
5280
5281
5282

120

25-MAY-79

::"""""""""""""""""""..'."'l""""""""'

017660
017664

5264
5265
5266

SOA(IOSZ)

;*THE DRIVE TYPE IS (HECKED AND
;*WRITE HEADER AND DATA (COMMAND

9256
5257
5258
5259
5260
5261
5262
5263

MACY!

815.
.BYTE

;CYLINDER 815.
;SECTOR 0
; TRACK 0

;WORD COUNT
;&4

035276

= 256.

¢+

ADDRESS

;STARTING ADDRESS OF DATA
;BUFFER = WRFROM

FMT2?

(DATA)

HEADER WORDS

INHIBIT BUS ADDRESS

;16 BITS PER WORD FORMAT

INCREMEN!

;00 NOT INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER C(OMPARE
GET READY TO DO A WRIFOR

;WRITE HEADER AND DATA WITH 62 IN RH(SI

B8R

;CONTINUE WITH TESTING

JSR
411,

RO ,a#RUN

;SETUP TO RUN FOR DATA (COMMAND
;CYLINDER 411,

;SECTOR O
;TRACK O
:WORD COUNT (DATA) = 256.
;4 HEADER WORDS

000
177374

0
.BYTE
.BYTE
0
=256.-4

017724

002370

WRFROM

017726
01/730

000000
010000

;STARTING ADDRESS OF DATA
;BUFFER = WRFROM
;D0 NOT INMIBIT BUS ADDRESS INCREMENT

017732

002344

WRIFOR

:00 NOT INMIBIT ECC CORRECTION
;D0 NOT INMIBIT HEADER (OMPARE
;GEY READY T0 DO A WRIFOR

017720
017721
017722

;BUS ADDRESS

FM122

;16 BITS PER WORD FORMAT

;WRITE HEADER AND DATA WITH 62

4%:

01773

; CONTINUE

;*NOW SAVE REGISTERS FOR COMPARISON AFTER
;*WRITE HEADER AND DATA
017734

004037

033462

JSR

RO,a#SAVER

;SAVE REGISTERS

IN RH(S!

(W AV SV RV SV L A AV TV LV SV TV RV LV LV IV IV TV XV TV IV LV IV IV TV TV _JV IV IV IV IV IV ] (V]
(VW W
AV LV IV [V IV ] (VT TRV IV TV IV ) [V IV IV IV L IV IV IV VLV IV LV IV LV V] w
» rS et et ol Vo 1Y (VRVAVAV
IV 1,97, 91 ¢ PONIPI PRI NI N et = b b e e b o Lol
N
Y. RV 2 WO VOO~ O NE WOV
NN
NNy

CIRJJDO, RPO&L/S5/6 FCTNL CTRLR?
(ZRJJD P
28-MAR-79 08:52

MACY11

30A(1052)
25-MAY-79
10:48 PAGE 114
120
INVALID ADDRESS ERROR - RMER1

- '[AE’

SEQ 0113

017740
017742

002172
004512

RHW(
SAVERE

:RHWC IS THE FIRST REGISTER SAVED
:STARTING ADDRES OF WHERE

017744

000022

18.

;NUMBER OF

017746

904737

033374

JSR

PC,3#CHECKT

;CHECKS DVA,RDY, MOL,DPR,DRY AND vV = 1

017752
017756

104401
000000

057465

TYPE
HALT

,CPHALT

; CANNOT CONTINUE
;STOP TEST

017760

013777

004506

mov

NRP4LVEC,3RPVEC

162200

:THE

REGISTERS ARE

SAVED

REGISTERS

;SAVED = 18.

:AND THAT ALL STATUS BITS ARE
TESTING

= 0

NOT

;SET RPO4 VECTOR ADDRESS
;10 "TIMET® IF P=-CLOCK IS PRESENT
;OR T0 °'TIMEZ' IF P=CLOCK IS NOT THERE
;'TIME' WILL ONLY SAVE

s CURRENT CYLINDER ADDRESS
sAND LOOK

013746
052716

002344
000101

MOV

ONWRIFOR,-(SP)

017776

012677

162176

mov

(SP)+ ,aRHCST

0¢3002
020004
020006
020010
020012

104413
002202
002000
000011
000011

017766
017772

BIS

#GO'1E, (SP)

WAT
RHER1

READY

TO MOVE

COMMAND

;GET READY TO SET GO AND

;ENABLE INTERRUPT
;60 WITH

;62 IN RHCS1 FOR WRITE HEADER AND DATA
;WITH INTERRUPT ENABLED
;WAIT
;WAIT

FOR JAE BIT TO SET
FOR RHER1 REGISTER

;WAIT FOR JAE BIT IN RHER1 REGISTER

1AE

;ALLOW 90 MICRO SECONDS

: *CHANGE

;GET

AHEAD REGISTERS

;1AE MUST

SET BETWEEN

;00 AND 180 MICRO SECONDS

THE SAVEC REGISTERS TO EXPECTED VALUES

;*AS EXCEPTION IS ASSERTED BEFORE RUN 1S LATCHED,

; *RHWC ,RHBA ,RHCS1 & RHCS2 CANNOT BE PREDETERMINED ;*THEY WILL VARY DEPENDING ON GATE DELAYS FOR DIFFERENT UNITS

020014

017737

162152

006512

Mov

SRHWC ,@#SAVERE

020022

017737

162146

006514

MOV

SRHBA,S#SAVERE+2;RHBA IS UNPREDICTABLE

020030

017737

162142

004516

MOov

020036

017737

162136

006520

MOv

SRHCST,@#SAVERE+6,;RH(SY IS UNPREDICTABLE
;AS EXPLAINED ABOVE

020044
020050

00222

034204

JSR

RO,9#CHREG

620052
02005¢

000002
000001

RHDS1

2
1

;RHWC

IS UNPREDiICTABLE

:AS EXPLAINED ABOVE

;AS EXPLAINED ABOVE
SRH(S2,3FSAVERE+4L;RHCS2 1S UNPREDICTABLE
;AS EXPLAINED ABOVE

:CHANGE BITS IN SAVED REGISTER
: CHANGE RHDS1 REGISTER
;2 BI1/BITS 10 BE C(MANGED
;NEW VALUE OF ATA ]S 1

30A(1052)
25-MAY=79
10:48 PAGE 115
120
INVALID ADDRESS ERROR - RMER1 - 'JAE’

5368
5369
2%;9

020056
020060
020062

100000
000001
040000

5372
2%;2

020064
020070

0064037
002202

5375

020072

000001

5379
5380
5381
5382
5383

020100

053737

004644

004536

8IS

020106

017737

162072

004524

MOV

5376
gg;g

020074
020076

ATA
1
ERR
034206

JSR
RHER1

;1 BIT/BITS 10 BE

;NEW VALUE OF JAE
;CHANGE 1AE B8I1

CHANGED

IS 1

ONFATTENT ,@#SAVERE+24 ;SET APPROPIATE ‘ATA' BIlTS
;FOR WORKING DRIVE IN
:SAVED RHAS LOCATION
ARHDST ,@¥SAVERE+12 ;RHDST IS INDETERMINATE
:S0 IT IS NOT CHECKED

s*CONTENTS AFTER ATTEMPTED WRITE WITH AN 'JAE' ERROR

'-.'llttt!tt!'t't""'t"t"'""'t"""ttt"'ttt'ttt'ttt'ttlit"t

020114

004037

5393
5394
5395
5396
5397

020120
020122
020124
020126
020130

004512
002254
000022
020132
020136

5600
5601
5402
5403
5604
5405
5606
5407

020132
020134

104054
000207

5408

:CHANGE BITS IN SAVED REGISTER
;CHANGE RHER1 REGISTER

;*COMPARE REGISTERS BEFORE ATTEMPTED WRITE WITH

5388

5398
5399

RO,3#CHREG

1
1 AE

5387

5391
5392

SEQ 0114

:CHANGE ATA BIT
:NEW VALUE OF ERR IS 1
; CHANGE ERR BI7T

000001
002000

5384
5385
5386

5389
5390

Nan)

MACY1T

020136

034312

JSR

RO,a#COMREG

SAVERE
w(
18.
1%
2%
1%:

2%:

ERROR
RTS

;COMPARE SAVED REGISTERS WITH
;PRESENT VALUE

;:GOOD DATA SAVED IN ‘'SAVERE'
:TEST DATA STARTING FROM ‘RHW('
:18. REGISTERS T0 BE COMPARED
:RETURN T0 1% ON ERROR
:RETURN TO 2% ON NO ERROR
54
PC

;ATTEMPTED OPERATION WITH
:INVALID ADDRESS CAUSED
: IMPROPER REGISTER C(HANGE
;600D DATA GIVES WHAT SHOULD
:BE THERE
sRECEIVED DATA GIVES REGISTER
:CONTENTS AFTER ATTEMPTED
;WRITE HEADER AND DATA

[

CIRJJDO, RPO4/5/6 FCINL CTRLRZ
(ZRJJD.
PN
28-MAR-7G 08:52

CIRJIJDO, RPOL/S5/6 FCTINL CTRLRZ
CIRJJD.PIN
28-MAR-79 (08:52

MACYI!

5409

9
L
30A(1052)
25-MAY-79
10:48 PAGE 116
120
INVALID ADDRESS ERROR - RHER1

- 'IAE'

S‘.‘O

;;t"'t't"t't"'tttt"""t"t"t"tt"t'tt"t""ttt"t"'tt'tt

22};

;eTEST 21

5613
5414
5415

X
.t
.t

5616
95417

5[,‘8

020136
020140
020144

000004
012706
012737

001000
000021

5423
5424
9425
5426

020152

004737

033314

5427

g:gg

5434
5435

A WRITE DATA IS ATTEMPTED TO CYLINDER 0, TRACK 19,
SECTOR O
INVALID ADDRESS ERROR IAE BIT #10 IN RHER)
SHOULD SET

::t'Q""tt"t"""""'t"""tt"'!'ttt't't!"t'tt'ttttt"t'tt

5419
5620
g:%;

5430
5431
5632
56433

18121:

004504

SCOPE
MOV
MOV

#STACK,SP
#21,3#TSTNM

;RESET STACK
;SAVE TEST NUMBER

JSR

PC.a#CLDISK

;SET R1=RHCS1, R2-RH(S?
:R3-RHDS1, R&4=RHER!
:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;eFILL WRITE FROM BUFFER WITH DATA

020156
020162
020164
020166

004037
002370
000400
000377

033164

JSR
WRFROM
256.

020170
020174
020176
020177

004037
000000
000
023

5443
5444
5445

020202

002370

JSR
0
.BYTE
.BYTE
-256.
WRFROM

020204
020206

000000
010000

0
FMT22

020210

0023«2

WRIDAT

020200

035276

177400

5452
5453

5454
56455
5456
5457
5458
5459
gaoo
461

5462

5463
5464

:CLEAR 256. WORDS, FROM WRFROM
:STARTING FROM WRFROM
:256. WORDS
FILL WiTH 377

:*WRITE DATA COMMAND WILL BE FILLED

5438
5439
5440
5461

5446
5447
5448
5449
5450
5651

RO,3#CLAREA

377

zzgg

S442

INVALID ADDRESS ERROR = RHER'! (BIT #10)1AE

020212
020216
020220

004037
002172
004512

020222

000022

020224

004737

020230

104401

033462

RO,3#RUN

:SETUP 1O RUN FOR DATA (OMMAND
:CYLINDER 0
;SECTOR 0
:TRACK 19,

0
19.

;WORD COUNT = 256.

;BUS ADDRESS
;STARTING ADDRESS OF DATA
;BUFFER
= WRFROM

;DO NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
:00 NOT INHIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMFARE
:GET READY TO DO A WRIDAT
;WRITE DATA WITH 60 IN RMCSH

:*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE DATA
;SAVE REGISTERS
RO,3#SAVER
JSR
RHW(
:RHWC 1S THE FIRST REGISTER SAVED
SAVERE
;STARTING ADDRES OF WHERE
;THE REGISTERS ARE SAVED
18.
:NUMBER OF REGISTERS
:SAVED = 18,

03337¢

JSR

PC,oNCHECKT

057465

TYPE

LCPHALT

:CHECKS DVA,RDY,MOL,DPR,DRY AND vV = 1
:AND THAT ALL STATUS BITS ARE = 0
; CANNOT CONTINUE TESTING 1F NOT

SEQ 0115

CIRJJIDO, RPO4L/S5/6 FCTINL
CIRJJD.PVY
28-MAR-79
5665
5666
56467
56468
5469
5470
5671
5672
5473
5474
5675
5476
5477
5478
5479
5480
5481
568¢
5483
5484
5485
5486
5487
5488
5489
5690
5491
5492
5493

020234

000000

020236

013777

MACY11

30A(1052)

25-MAY-79

10:48

no9
PAGE

117
INVALID ADDRESS ERROR - RMERT
HALT

004506

161722

mov

(BIT #10)]AE

SEQ 0116

;STOP TEST

S8#RPLVEC,aRPVEC ;SET RPO4 VECTOR ADDRESS
;70 "TIMEY1' IF P=CLOCK IS PRESENT

;OR TO 'TIMEZ2' IF P=-CLOCK IS NOT THERE
;"TIME'

WILL ONLY SAVE

;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
020244
020250

013746
052716

002342
000101

MOov

9¥WRIDAT,=(SP)

;GET READY TO MOVE COMMAND

020254

012677

161720

Mov

(SP)+,aRH(ST

;60 WITH

BIS

#GO!1E, (SP)

;GET READY TO SET GO AND
;ENABLE INTERRUPT

;60 IN RHCS1 FOR WRITE DATA

;WITH

020260
020262
020264
020266
020270

WAT
RHER1

106413
002202
002000
000011
000011

ENABLED

;WAIT FOR JAE BIT 10 SET
;WAIT FOR RHER1 REGISTER

1AE
9.

;WAIT FOR ]AE BIT IN RHERT REGISTER
;ALLOW 90 MICRO SECONDS

: *CHANGE

INTERRUPT

;1AE MUST

SET BETWEEN

;00 AND 180 MICRO SECONDS
SAVED REGISTERS YO EXPECTED VALUES

;*AS EXCEPTION IS ASSERTED BEFORE RUN IS LATCHED

[

DOWNO
NS NN —O

(O W AV IV IV SV TV LV RV 2V A5
(W RV AN AV KU RV LV LV LV LU L5 )

:*RHWC ,RHBA ,RHCS1,RHCS2,
CANNOT BE PEREDETERMINED
;*THEY WILL VARY DEPENDING ON GATE DELAYS ON DIFFRENT UNITS

020272

017737

161674

004512

Mov

020300

017737

161670

004514

Mov

020306

017737

161664

004516

Mov

020314

017737

161660

004520

Mov

020322
020326

004037
002222

034204

020330
020332
02033«
020336
020340
020342

000002
000001
100000
000001
040000

017737

161636

020350
020354

004037
002¢02

034204

JSR

RHDS1

SRHWC ,@#SAVERE

004524

1S UNPREDICTABLE

-AS EXPLAINED ABOVE

SRHCS2,a#SAVERE+4L;RHCS2 1S UNPREDICTABLE
;AS EXPLAINED ABOVE
SRHCS1,a¥SAVERE+6;RHCST IS UNPREDICTABLE
;AS EXPLAINED ABOVE

RO,3#CHREG

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

;2 BIT/BITS T0 BE C(HANGED
;NEW VALUE OF ATA ]S 1

2
1

ATA

;RHWC

:AS EXPLAINED ABOVE
SRHBA ,@#SAVERE+2;RHBA 1S UNPREDICTABLE

: CHANGE ATA BIT

1
ERR
MOv

;NEW VALUE OF ERR IS 1
. CHANGE ERR BIT
SRHDST ,#SAVERE+12 ;RHDST IS INDETERMINATE SO IT

JSR
RHER1

RO,a#CHREG

;CHANGE BITS IN SAVED REGISTER
: CHANGE RHERY REGISTER

IS NOT (HECKED

02035¢
020360
020362

000001
000001
002000

020364

053737

MACY1Y

SOA(IOSZ)

121

25-MAY-79

10:48

9
PAGE

118
INVALID ADDRESS ERROR - RHER1
1
1

;1 BIT/BITS 10 BE
;NEW VALUE OF AE

; CHANGE 1AE BIT

1At

004644

BIS

004536

SEQ 0117

(BIT #10)I1AE
CHANGED
[S§ 1

SFATTENT ,@#SAVERE+24 ;SET APPROPIATE
;FOR WORKING CRIVE

°ATA' BITS

:SAVED RHMAS LOCATION

;*COMPARE REGISTERS BEFORE ATTEMPTED WRITE DATA
;*WITH AFTER ATTEMPT,

020372

004037

020376
02040C
02040¢
020404
020406

004512
002254
000022
020410
020414

020419
020412

104054
000207

020474

JSR

034312

RO,3#COMREG

SAVERE
w(

2%:

ERROR
RTS

SHOULD BE

SET

;COMPARE SAVED REGISTERS WITH

PRESENT

VALUE

;GOOD DATA SAVED IN 'SAVERE'
:TEST DATA STARTING FROM 'RHW(’

18.
1%
2%

1%:

IAE

:18. REGISTERS TO BE COMPARED
:RETURN TO 1% ON ERROR
:RETURN T0 2% ON NO ERROR
54
PC

JATTEMPTED WRITE DATA
;WITH INVALID ADDRESS

:CAUSED IMPROPER REGISTER
: CHANGE

;GO0OD DATA GIVES WHAT
: SHOULD BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE

AFTER AFTER ATTEMPT

(@l o]

CIRJSDO, RPO4/S/6 FCTINL CTRLR2
CIRJJID. P11
2B-MAR-79 08:52

CIZRJJIDO, RPOL/S/6 FCINL CTRLR2
CZRJJD.PYI
28-MAR-79 08:52

MACYN

25-MAY-79

30A(1052)

121
e

X2 X

=N
%
%
%
%
%N
»

TR IR IRIETEY

SeTEST

10:48

B 10

PAGE

119

INVALID ADDRESS ERROR - RHER1
X

XX R

XXX

SeQ 0118

(BIT #10)I1AE
AR ARl
d)

INVALID ADDRESS ERROR RHER'1 -BIT #10

A READ HEADER AND DATA IS ATTEMPTED 7O CYLINDER O
TRACK 0,

SECTOR 22

INVALID ADDRESS ERROR IAE BIT #10 IN RHER1

SHOULD SET

THIS WILL START WITH THE HEADS ON CYLINDER 10
TO PROVE THAT
SEEK

1AE SETS EVEN BEFCRE THE

IMPLIED

M t"tt"""t't"tt"""t""tt"'t"'t't't""'t""lt"t"".

020414
020416
020422

000004
012706
012737

001000
000022

020430

004737

033314

15122:

004504

SCOPE

Mov
MOV

#STACK,SP
#22,aNTSTNM

JSR

PC,a¥#CLDISK

;RESET STACK
;SAVE TEST NUMBER

;SET R1-RHCS1, RZ2-RHCSZ

:R3-RHDS1, R4L-RHERI
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*GET THE HEADS TO CYLINDER 10

5580
5581
5582

5583
5584
5585
5586
5587
5588
5589
5590
5591
5592
5593
5594
5595
5596
5597
5598
5599
5600
5601
5602
5603
5604
5605

004737

033374

JSR

PC,a¥#CHECKT

; CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1

020440
020444

104401
000000

057465

TYPE
HALT

,CPHALT

;CANNOT CONTINUE TESTING IF NOT
;STOP TEST

020446

013777

004506

Mov

INRPGVEC,IRPVEC

161512

;AND THAT ALL STATUS BITS ARE = 0

;SET RPQ4 VECTOR ADDRESS

IF P-CLOCK IS PRESENT
:OR TO 'TIME2' IF P-CLOCK IS°NOT THERE

;70 'TIMEY1'
;"TIME'

WILL ONLY

SAVE

;CURRENT CYLINDER ADDRESS

;AND LOOK AHEAD REGISTERS
020454
020460

004037
000010

033264

020462
020466

013746
052716

002352
000101

020472

012677

161502

—_—

5575
5576
5577
5578
5579

020434

RO,aNSEEKCY

;SEEK FOR

MOV

ON#SEECOM,-(5P)

:GET READY 10 MOVE COMMAND

MOV

(SP)+,aRHCST

BIS

#GO!1E, (SP)

;CYLINDER 10

:GET READY TO SET GO AND
;ENABLE INTERRUPT
;60 WITH
;4 IN RHCS1 FOR SEEK
;WITH

020476
020500
020502
020504
020506

104413
002222
000200
015530
015530

WAT

RHDS1
DRY
7000.
7000.

INTERRUPT

ENABLED

;WAIT FOR DRY BIT TO SET
;WAIT FOR RHDS1 REGISTER
;WAIT FOR DRY BIT IN RKHDSY REGISTER
;ALLOW 70000 MICRO SECONDS

;DRY MUST SET BETWEEN

;00 AND 140000 MICRO SECONDS

CIRJJIDO, RPO4L/S5/6 FCTINL CTRLR2
CIRJJD.PYI
28-MAR-79 08:52
5606
5607

5608

5609
5610

020510

004737

MACYT1

033314

c 10

30A(1052)
25-MAY-79
10:48
PAGE 120
122
INVALID ADDRESS ERROR RHER1 -BIT #10

JSR

PC.aN#CLDISK

22}3

020514
020520
020522
020524

004037
003434
000260
125252

033164

JSR

REINTO

RO,3#CLAREA

260
125252

5623

020526

004037

5629
5630
5631
5632
5633
5634

020540

003434

020542
020544

000000
014000

0
FMT22'ECI

020546

002350

REFOR

073532
020534
020535
020536

000000
026
000
177374

5638
5639

5640

020550

004037

5643

020556

004512

5644
5645

035276

JSR

020554

002172

RO, 3#RUN

0
.BYTE
22.
.BYTE
0
-256.-4
REINTO

5641

5642

;CLEAR 260 WORDS, FROM REINTO
;STARTING FROM REINTO
;260 WORDS
SFILL WITH 125252

:*THE READ HEADER AND DATA COMMAND IS FILLED

ggs;

5635
5636
5637

:R3-RHDS1, R&=-RHER]
:GIVE RH=11 INITIALIZE

;*FILL READ INTO BUFFER WITH 125252

5620

5624
5625
5626
5627
5628

:SET R1-RHCS1, R2-RHCS2
:SETUP UNIT NUMBER

22}2
5615
5616
5617
gg}g

SEQ 0119

(

;SETUP TO RUN FOR DATA COMMAND

:CYLINDER 0
;SECTOR 22.
:TRACK 0
:WORD COUNT (DATA) = 256. +
:4 HEADER WORDS
:BUS ADDRESS
:STARTING ADDRESS OF DATA
;BUFFER = REINTO
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
216 BITS PER WORD FORMAT
:INHIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE
:GET READY TO DO A REFOR

:READ HEADER AND DATA WITH 72 IN RH(S!

:+SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED READ

033462

JSR

RHWC

RO,3¥#SAVER

SAVERE

:SAVE REGISTERS

:RHWC 1S THE FIRST REGISTER SAVED

:STARTING ADDRES OF WHERE
:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS

020560

000022

020562

004737

033374

JSR

PC,3#CHECKT

020566
020572

1064401
000000

057465

TYPE
HALT

, CPHALT

5653
5654
5655
5656
5657
sogg

02057&

013777

0064506

MOV

A¥RPLVEC,aRPVEC ;SET RPO4 VECTOR ADDRESS
;70 "TIME1' IF P-CLOCK 1S PRESENT
:OR TO 'TIME2' IF P-CLOCK 1S NOT THERE
:'TIME' WILL ONLY SAVE
:CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

5660
5661

020602
020606

MOV
RIS

SNREFOR,-(SP)
#GO' 1E, (SP)

2649
64

5648
5649
5650
gog;
6

18.

161364

.
013746
052716

002350
000101

‘

;SAVED = 18,

:CHECXS DVA,RDY,MOL,DPR,DRY AND vV - 1
;AND THAT ALL STATUS BITS ARE = 0
: CANNOT CONTINUE TESTING IF NOT
;STOP TEST

:GET READY TO MOVE COMMAND
;GET READY TO SET GO AND

CIRJIDO, RPO4/5/6 FCTNL CTRLR2
CIRJJD.PIY
28-MAR-79 08:52
5662

5663
5664

5665
5666
5667
5668
5669
5670
5671
5672
5673
5674
5675
5676
5677
5678

5679
5680
5681
5682
5683
5684
5685
5686
5687
5688
5689
5690

NOWNSLMIN—=20O0

—l—._..—n_o_.n_.—.o

(VAL

TV LV LV LV LV AV LV, }

5691
5692
5693
5694
5695
5696
5697
5698

020612

012677

020616
020620
020622
020624
020626

10644613
002202
002000
000002
000002

MACY11

161362

D 10
10:48 PAGE 121
30A(1052)
25-MAY-79
122
INVALID ADDRESS ERROR RHER1 -BIT #10
Mov

(SP)+,aRHCS1

SEa@ 0120

;ENABLE INTERRUPT
;G0 WITH

;72 IN RHCS! FOR READ DATA
;WITH INTERRUPT ENABLED

WAT

;WAIT FOR

1AE
2.

;WAIT FOR JAE BIT IN RHER1 REGISTER
;ALLOW 20 MICRO SECONDS

RHER1

]AE BIT

;WAIT FOR RHER1

TO SET

;1AE MUST SET BEIWEEN

;00 AND 40 MICRO SECONDS

: *CHANGE SAVED REGISTERS TO EXPECTED VALUES

;*AS EXCEPTION IS ASSERTED BEFORE RUN 1S LATCHED
; *RHWC ,RHBA ,RHCST ,RHCS2,

CANNOT BE PEREDETERMINED

;*THEY WILL VARY DEPENDING ON GATE DELAYS ON DIFFRENT UNITS
020630

017737

161336

004512

Mov

JRHWC ,9#SAVERE

020636

017737

161332

004514

Mov

dRHBA ,a#SAVERE +2

020644

017737

161326

004516

MOv

SRHCS2 ,aN#SAVERE +4

020652

017737

161322

004520

Mov

ORHCS1,a#SAVERE +6

020660
020664

004037
002222

034204

JSR
RHDS1

RO,3#CHREG

020666
020670
020672
020674
020676
020700

000002
000001
100000
000001
040000
017737

020706
020712

004037
002202

020714
020716
020720

000001
000001
002000

020722

053737

2
1

161300

004524

034204

ATA
1
ERR

IS UNPREDICTABLE

:CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

MOV

RHDST ,a#SAVERE+1?2

JSR
RHER1

RO,3#CHREG

BIS

;RHCST

;AS EXPLAINED ABOVE

;CHANGE ATA B]T
;NEW VALUE OF ERR
; CHANGE ERR BIT

IS 1

;RHDST 1S INDETERMINATE SO IT 1S NOT CHECKED

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHER! REGISTER
;1

1
1At

004536

;RHCS2 1S UNPREDICTABLE

:AS EXPLAINED ABOVE

;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA IS 1

004644

;RHWC IS UNPREDICTABLE
;AS EXPLAINED ABOVE
;RHBA IS UNPREDICTABLE
:AS EXPLAINED ABOVE

BIT1/BITS T0O BE CHANGED

;NEW VALUE OF lAE
. CHANGE 1AE BIT

IS 1

SFATTENT ,@#SAVERE+24 ;SET APPROPIATE
;FOR WORKING DRIVE

'ATA' BITS

;SAVED RHAS LOCATION

; *COMPARE REGISTERS BEFORE ATTEMPTED READ HEADER
;*AND DATA WITH AFTER ATTEMPTED READ

020730

004037

034312

JSR

RO,a#COMREG

; COMPARE SAVED REGISTERS WlTH

CIRJJIDO, RPO4/S5/6 FCTNL CTRLR2
CZRJID.P1Y
28-MAR-79 08:52

NOWVEB
NN =000~
WD

NN = OO0

ALV RV TV AV LV LV, LV, LV VW IV LV LV, IV IV XV SV W XV ]
NNNNNNNNNNNNNNNNNNNY
AP L L U LN N N R N O O N N PO N N N ) =

5718

020734
020736
020740
020742
020744

004512
002254
000022
020746
020752

020746
020750

104054
000207

MACYN

E 10

30A(1052)
25-MAY-79
10:48 PAGE 122
122
INVALID ADDRESS ERROR RHER1 -BIT #10
;PRESENT VALUE
:GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHW('
;18. REGISTERS TO BE COMPARED
;RETURN TO 1% ON ERROR
;RETURN TO 2% ON NO ERROR

SAVERE
Wl
18.
1%
2%
1%:

ERROR
RTS

54
PC

;ATTEMPTED READ HEADER
;AND DATA WITH INVALID

;ADDRESS CAUSED IMPROPER
;REGISTER CHANGE
.GOOD DATA GIVES WHAT
: SHOULD BE THERE
;RECEIVED DATA GIVES
;REGISTER CONTENTS
SAFTER ATTEMPTED

020752

2%:

:READ

SEQ 0121

E%SJJ80§1?P04/5/6 FCTNL CTRLR2
JJ0.
28-MAR-79 08:52

MACY11

5738

5739
5740
5741
5742
5743
5744
5745
5746
5747
5748
5749
5750
5751
5752
753
754
755

30A(1052)

F 10
25-MAY-79
10:48 PAGE 123
INVALID ADDRESS ERROR RHER1 -BIT #10

3222222222 222222222322222222222222822220R822
iRl
Rl

SeTEST 23
ot
ot
ot

INVALID ADDRESS ERROR - RHER1

(BIT #10;]AE

A READ DATA IS ATTEMPTED TO CYLINDER 0, TRACK 0
SECTOR 20 - FORMAT 18 B1TS PER WORD
INVALID ADDRESS ERROR [AE BIT #10 IN RHER!

SHOULD SET

SR 222222222230 22223222232228223222322082428022200RRRRRRARRRRRRRRSRN]

020752
020754
020760

000004
012706
012737

001000
000023

020766

004737

033314

7
7

18123:
004504

SCOPE

MOv

#STACK,SP

;RESET

JSR

PC,a#CLDISK

;SET R1-RHCS?!, R2-RH(S?
;R3-RHDS1, R&=-RHERI
;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER

MOov

#23,3FTSTNM

;SAVE

STACK

TEST NUMBER

;*F1LL READ INTO BUFFER WITH 125252
020772
020776
021000
021002

004037
003434
000260

033164

JSR
REINTO
260

004037

000000
024
000
177400
003434

021024

JSR

0
.BYTE
.BYTE
-256.

002346

READAT

021036

000022

021040

004737
104401

033462

057465

FILLED

:SETUP TO RUN FOR DATA (OMMAND

RO.,a#RUN

;CYLINDER O
;SECTOR 20.
;TRACK 0
;WORD COUNT = 256.

20.
0

;BUS ADDRESS

;STARTING ADDRESS OF DATA
;BUFFER = REINTO
;00 NOT INKIBIT BUS ADDRESS INCREMENT
;18 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE

.GET READY TO DO A READAT
;READ DATA WITH 70 IN RHCS!

:'éAME REGISTERS FOR COMPARISON AFTER ATTEMPTED READ

JSR *
RHW(
SAVERE

RO,3I#SAVER
’

18.

033374

:CLEAR 260 WORDS, FROM REINTO
;STARTING FROM REINTO
;260 WORDS
sFILL WITH 125252

READ HEADER AND DATA COMMAND

REINTO

0
ECI

004037
002172
006512

021044

035276

000000
004000

021026
021032
021034

RO,aNCLAREA

125252

;*THE

5791
5792
5793

SEQ 0122

JSR

TYPE

; SAVE REGISTERS
;RHWC 1S THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE
;THE REGISTERS ARE SAVED
.NUMBER OF

REGISTERS

;SAVED - 18.
PC,a#CHECKT®

. CHECKS DVA,RDY
,MOL ,DPR,DRY AND vv

. CPHALT

: CANNOT CONTINUE TESTING If NOT

;AND THAT ALL STATUS BITS ARE - 0

CIRJIDO, RPO4/5/6 FCTNL CTRLR2
CIRIJD.PYY
28-MAR-79 08:52

MACY11

6 10

30A(1052)
10:48 PAGE 124
25-MAY-79
1
INVALID ADDRESS ERROR - RHERY

2;8g

021050

000000

5796
5797
5798
5799
5800

021052

013777

5804
2%85

021060
021064

013746
052716

002346
000101

MoV

5807
5808
5809
5810
5811

021070

012677

161104

Mov

;70 "TIMEY'

P-CLOCK

IS PRESENT

IF P=-CLOCK

WILL ONLY

SAVE

IS NOT

THERE

;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

5821
5822
5823
5824
5825
5826
5827
5828
gg%g

021106
021112

004037
002200

021114
021116
021120

000002
000001
100000

BIS

106413
002202
002000
000002
000002

021122
021124
021126

000001
040000
017737

021134
021140

004037
002222

021142
021144

000002
000001

5867

021146
021150
021152

036204

JSR
RHCS1

004037
002202

021162
021164
021166

000001
000001
002000

021170

053737

#GO'IE, (SP)

(SP)+,aRHCST

004524

0342064

TRE
MOV

JSR
RHDS1

034204

TO SET

GO AND

;60 WITH

;70 IN RHCS1 FOR READ DATA

;WITH

INTERRUPT

ENABLED

;WAIT
;WAIT

FOR ]AE BIT TO SET
FOR RHER! REGISTER

RO,a#CHREG

:CHANGE BITS

IN SAVED REGISTER

; CHANGE RHCS1 REGISTER

;2 BIT/BITS 1O BE CHANGED
;NEW VALUE OF SC IS 1
; CHANGE SC BIT
;NEW VALUE OF TRE 1S 1

; CHANGE

IRHDST ,3¥#SAVERE+12;RHDST
RO,3#CHREG

TRE BIT

1S UNPREDICTABLE

; CHANGE BITS IN SAVED REGISTER

;CHANGE RHDS! REGISTER

ATA

ERR

. CHANGE ERR BIT

JSR
RHER1

004536

READY

;ENABLE INTERRUPT

;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA 1S 1
; CHANGE ATA BIT

1At

004644

;GET

SAVED REGISTERS TO EXPECTED VALUES

1
SC
1

161052

;GET READY TO MOVE COMMAND

;WAIT FOR JAE BIT IN RHER1 REGISTER
;ALLOW 20 MICRO SECONDS
:1AE MUST SET BETWEEN
;00 AND 40 MICRO SECONDS

100000
000001
040000

021154
021160

¥READAT,-(SP)

WAT
RHER
1AE

; *(HANGE

5831
5832
5833
5834
5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
ggLS
5848
5849

SNRPLVEC ,3RPVEC ;SET RPO4 VECTOR ADDRESS
;'TIME'

021074
021076
021100
021102
021104

Mov

;OR TO 'TIME2'

5812
5813
5814
5815
5816
5817
5818
5819
5820

161106

—

5801
5802
5803

;STOP TEST

HALT

004506

SEQ 0123

(BIT #10)]AE

BIS

;NEW VALUE OF ERR IS 1

RO,a#CHREG

;CHANGE BITS IN SAVED REGISTER
. CHANGE RHER1 REGISTER

;1 BIT/BITS 10 BE CHANGED
;NEW VALUE OF JAE S 1
: CHANGE 1AE BIT
SQNATTENT ,Q#SAVERE+24 ;SET APPROPIATE
:FOR WORKING DRIVE

; SAVED RHAS LOCATION

‘ATA' BITS

CIRJJIDO, RPO&L/S5/6 FCINL CTRLR2
CTR
CIRJJD.PY
28-MAR-79 08:52

MACY11

H 10
30A(1052)
25-MAY-79
10:48 PAGE 125
1 23
INVALID ADDRESS ERROR - RMER1

5850

95851

95856
5857
5858
5859
232?

5862
5863
5864
5865
5866

;*DATA WITH AFTER ATTEMPTED READ DATA
021176

004037

021202
021204
021206
021210
021212

004512
002254
000022
021214
021220

021274
021216

104054
000207

034312

JSR

RO,a#COMREG

SAVERE
w(
18.
1%
2%
1$:

5867
5868
5869
5870
5871

5872
5873
5874

SEQ 0124

: *COMPARE REGISTERS BEFORE ATTEMPTED READ

2%2%

5854
5855

(BIT w10)]AE

ERROR
RTS

;:COMPARE SAVED REGISTERS WITH
;PRESENT VALUE

:GOOD DATA SAVED IN 'SAVERE'
:TEST DATA STARTING FROM 'RHW('
:18. REGISTERS TO BE COMPARED
;RETURN TO 1% ON ERROR
:RETURN 10 2% ON NO ERROR
54
PC

:ATTEMPTED READ
:DATA WITH INVALID
:ADDRESS CAUSED IMPROPER
;REGISTER CHANGE

:GOOD DATA GIVES WHAT
;SHOULD BE THERE
:RECEIVED DATA GIVES
;REGISTERS CONTENTS
:AFTER ATTEMPTED

021220

2%:

:READ

CIRJIJDO, RPO&L/S5/6 FCTINL CTRLR2
(ZRJJD.PIY
28-MAR-79 08:52

5923
5924
5925
5926
592
5928
5929
5930

110
30A(1052)
25-MAY-79
10:48
PAGE 126
123
INVALID ADDRESS ERROR - RHERT

SEQ 0125

(BIT #10)IAE

':"""'t""""""""""""""""'"""l"'l't""'t't'

SeTEST 24

ADDRESS OVERFLOW ERROR - RHER! (BI1T#G) AOE

®s

A WRITE HEADER AND DATA COMMAND IS GIVEN FOR CYLINDER O,TRACK 0
SECTOR 0, 256 WORDS OF 0
1S DONE AFTER THIS WRITE

NO CHECK

A WRITE HEADER AND DATA COMMAND

IS GIVEN fOR

CYLINDER 410./814., TRACK 18, SECTOR 21, 261 WORDS

ADDRESS OVERFLOW ERROR - RHER1

N
BN

BIT#9 (AOE)

A READ HEADER AND DATA CYLINDER 410./814.,
260+6644=-330 WORDS 1S ISSUED

SHOULD SET

TRACK

18,

SECTOR 21,

2R 2

SECTOR 21 SHOULD BE READ CORRECTLY BUT NO MORE
READS SHOULD HAPPEN, AGAIN THE 'AOE' BIT SHOULD SET

AFTER SECTOR 21 1S WRITTEN
ALL REGISTERS ARE CHECKED

CYLINDER O, TRACK O, SECTOR O 1S READ AND THERE

®e

SHOULD BE NO CHANGE
THE

X222 2222

®e

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
5907
5908
5909
5910
911
5912
5913
5914
5915
5916
5917
5918
5919
9920
5921
5922

MACY11

021220
021222
021226

000004
012706
012737

001000
000024

02123¢

004737

033314

1§124:
004504

LAST

WRITE

2222222222222

SCOPE

IN DATA

IN THIS SECTOR fROM

HEADER AND DATA
220022

SRl

COMMAND
d

iRl

SRRl

MOV
Mov

¥#STACK,SP
N4 ,aNTSTNM

;RESET STACK
;SAVE TEST NUMBER

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(S?
;R3-RHDS1T,

R4-RHERI

;GIVE RH=-11 INITIALIZE
;SETUP UNIT NUMBER

;*FILL WRITE FROM BUFFER WITH HEADER
021240
021244
021246
021250
021252
021254
021256

004037
002370
000004
010000
000000
000000
000000

033140

JSR
WRFROM
4
10000
0
0
0

RO,a#FLHEAD

;SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED
:NUMBER OF WORDS SAVED
;FIRST DATA WORD
:SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD

;*FILL WRITE FROM BUFFER WITH DATA
021260
021264

021266
021270

004037
002400
000400
000000

033164

RO,a#CLAREA
JSR
WRFROM+<4*2>
256.
0

;*THE

;CLEAR 256. WORDS, FROM WRFROMe<&?2>
:STARTING FROM WRFROM+<4e2>
:256. WORDS
SFILL WITH O

FIRST WRITE OPERATION

IS DONE

;eFILL WRITE HEADER AND DATA COMMAND

CIRJJIDO, RPO&L/S/6 FCINL CTRLR2
CZRJID.PIN
28-MAR-79 08:52
5931
5932
5933
5934
5935
5936
5937
5938
5939
5940
5941
5942
5943
5944
5945
5946
5947
5948
5949
5950
5951
5952
5953
5954
5955
5956
5957
5958
5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
5969
5970
5971
5972

5973

5974
5975
5976

5977
5978
5979
5980
5981
5982
5983
5984
5985
5986

MACY11

J 10
30A(1052)
25-MAY-79
10:48 PAGE 127
124
ADDRESS OVERFLOW ERROR - RHER1

(BIT#9) AOE

SEQ 0126

;;tI"""""""""t""""""""l."""l'""l"'t"""'

021272
021276
021300
021301
021302

004037

021304

002370

000000
000
000
177374

035276

JSR
0
.BYTE
.BYTE

-256.-4

RO,a#RUN

:SETUP TO RUN FOR DATA (OMMAND
;CYLINDER 0
;SECTOR O
;TRACK O

0
0

;WORD COUNT

WRFROM

;BUS ADDRESS

;STARTING ADDRESS OF DATA

;BUFFER = WRFROM
;00 NOT INHIBIT BUS ADDRESS INCREMENT

000000
010000

021312

002344

WR1FOR

021314

004737

033374

JSR

PC,aNCHECKT

021320
0213264

104401
000000

057465

TYPE
HALT

. CPHALT

021326

013777

004506

Mov

D#RPLVEC,ARPVEC

FMT22

160632

(DATA) = 256. +

;4 HEADER WORDS

;16 BITS PER WORD FORMAT

;00 NOT INHIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE

.GET READY TO DO A WRIFOR
;WRITE HEADER AND DATA WITH 62 IN RH(CSI

; CHECKS DVA,RDY,MOL ,DPR,DRY AND vV - 1
;AND THAT ALL STATUS BITS ARE = 0
: CANNOT CONTINUE TESTING I1F
;STOP TEST
;SET

NOT

RPO4 VECTOR ADDRESS

IF P=-CLOCK ]S PRESENT

;70 "TIMEY1'
;OR TO

;'TIME'

'TIMEZ'

WILL ONLY

P-CLOCK
SAVE

IS NOT

THERE

;CURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS

021334
021340

013746
052716

002344
000101

Mov

d#WRIFOR,-(SP)

021344

012677

160630

Mov

(SP)+,3RHCST

BIS

¥GO.1E, (SP)

;GET

;60 WITH

;62 IN RHCS1

;WITH

WAT
RHCST
RDY
2500.
2500.

1044613

021350
021352
021354
021356
021360

002200
000200
07 «704
0V4704

021362

004737

033314

JSR

READY TO MOVE

COMMAND

:GET READY TO SET GO AND
;ENABLE INTERRUPT

FOR WRITE HEADER AND DATA

INTERRUPT

ENABLED

;WAIT FOR RDY BIT TO SET
:WAIT FOR RHCS1 REGISTER
:WAIT FOR RDY BiT IN RHCS1 REGISTER
;ALLOW 25000 MICRO SECONDS
;RDY MUST SET BETWEEN

;00 AND 50000 MICRO SECONDS

PC,a#CLDISK

;SET R1-RHCS1, R2-RHCS2
:R3-RHDS1,

R&-RHER!

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*CHECK THE DRIVE TYPE AND DO THE

; *APPROPRIATE SECOND WRITE OPERATION

CIRJIDO, RPO4L/S/6 FCLINL CTIRLR 2
CZRJJD.PYY
28-MAR-79 08:52

5999
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018
6019
6020
6021
6022
6023
6024
6025
6026
6027
6028
6029
6030
6031
6032
6033
6034
6035

6036
6037
6038
6039
6040
6041
60642

K 10
25-MAY-79
10:48
PAGE 128
3$A (1052)
ADDRESS OVERFLOW ERROR - RHER1
24

(BI1T#9)

AOE

SEQ 0127

;*FILL WRITE FROM BUFFER WITH HEADER

5987

5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998

MACY1]

;;l"fi"'t""'"""""""'"'"""""'t".'."""""."'i

;;tttli't"""t"t"t""'t"'"""'t"'t"".""."""""'t

021366
021372

005737
001411

1581

004636

BEQ

a#’PJ6

15%

;TEST

FOR RPO6 DRIVE

:TREAT DRIVE AS AN RPO4
:TREAT AS AN RPO6

‘.l"t"t"""""'!""""'"""""".""""i"""'.t't"

021374
021400
0216402
021404
021406
021410
021412
021414

004037
002370
000004
011456
011025
000000
000000
000410

033140

;SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED

JSR
RO,a#FLHEAD
WRFROM
4
10632
<18.+400>!'<21.>
0
0

: SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED

16%

:NUMBER OF WORDS SAVED
;FIRST DATA WORD

:SECOND DATA WORD
:THIRD DATA WORD
;FOURTH DATA WORD
;CONTINUE WITH THE SECOND WRITE

15%:

021416

021416
021422
021426
021426
021430
021432
021434
021436

JSR
RO,Q#FLHEAD
WRFROM
4
11456
<18.+400>!'<21.>
0
0

004037
002370
000004
010632
011025
000000
000000

033140

16%:

;NUMBER OF WORDS SAVED
;FIRST DATA WORD

;SECOND DATA WORD
:THIRD DATA WORD
;FOURTH DATA WORD

;CONTINUE WRITE

;+FILL WRITE FROM BUFFER WITH DATA - 65125
021436
021442
021444
021446

004037
002400
000400
065125

033164

;CLEAR 256. WORDS, FROM WRFROM+<4e2>
RO,a#CLAREA
JSR
;STARTING FROM WRFROM+<4*2>
WRFROM+<4* 2>
256.
:256. WORDS
JFILL WITH <26.92000>!'<18.9¢40>!
<
>
<26.%2000>'<18.+40>'<21

;*CHECK THE PTIJE TYPE AND
;eFILL WRITE FROM BUFFER WITH APPROPRIATE NEXT HEADER

;*THIS IS A NON EXISTANT HEADER AND SHOULD NCT BE WRITTEN
;*SINCE "AOE' SHOULD INHIBIT THE WRITE OPERATION
;;t'"t""'t'"'""'""'t""'i""i'll""t't"lt'tl!"'t't"

021450
021454

005737
001411

004636

157

BEQ

9#RP0O6

17%

;TEST FOR RPO6 DRIVE

;TREAT UNIT AS AN RPO4
; TREAT AS AN RPO6

;;ttlt'"'tt'""""t"""'l""'i'l".'ll.it't"""'l""""

021456

004037

033140

JSR

RO,a#FLHEAD

:SAVE HEADER DATA IN WRFROM+<260.+2>

CIRJVJDO, RPO&L/S5/6 FCTINL CTRL 52
CZRJJD.P1
28-MAR-79 08:5
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
6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086
6087
6088
6089
6090
6091
6092
6093
6094
6095
6096
6097
6098

021462
021464
021466
021470
021472
021474
021476

MACY 1

39351052)

003400
000004
011457
000000
000000
000000
000410

L 10

25-MAY-79
10:48 PAGE 129
ADDRESS OVERFLOW ERROR - RHER1

(BITN9)

WRFROM+<260.2>

sLOCATION WHERE SAVED

;NUMBER OF WORDS SAVED

11457
0
0
0
BR

021500

SEQ 01/8

AOE

;FIRST DATA WORD

:SECOND DATA WORD
;THIRD DATA WORD

;FOURTH DATA WORD
;CONTINUE WITH TEST

18%

17%:

021500
021504
021506
021510
021512
021514
021516
021520

004037
003400
000004
010633
000000
000000
000000

033140

021520
021524
021526
021530

004037
003410
000002

033164

JSR
RO,3#FLHEAD
WRFROM+<260.¢2>
4

18%:

066000

10633
0
0
0

; SAVE HEADER DATA [N WRFROM+<260.*2>
;LOCATION WHERE SAVED
WORDS SAVED
OF
;NUMBER
.FIRST DATA WORD

;SECOND DATA WORD
:THIRD DATA WORD

:FOURTH DATA WORD
; CONTINUE
;*FILL WRITE FROM BUFFER WITH DATA FOR NEXT SECTOR

RO,a#CLAREA
JSR
WRFROM+<264.¢2>
2
<27.+2000>

;CLEAR 2 WORDS, FROM WRFROM+<264.%2>
;STARTING FROM WRFROM+<264.%2>
;2 WORDS
SFILL WITH <27.+2000>

;*CHECK THE DRIVE TYPE AND DO THE APPROPRIATE
;*FILL WRITE HEADER AND DATA COMMAND
;:t'tlt"""ttt"""tt't"t"t""""t'.tt"ttI't"'t'ti't't't

021532
021536

005737
001412

004636

151
BEQ

9#RPO6
7%

TEST

FOR RPO6 DRIVE
; TREAT UNIT AS AN RPO4

; TREAT UNIT AS AN RPO6

;;t'ttitt"'t't"t"f"t"t"""""'"t'fit."'Q'It'ltt'.t'.'l"

177373

RO,d#RUN
JSR
814.
21,
.BYTE
18.
.BYTE
-257.-4

021552

002370

WRFROM

021554
021556

000000
010000

0
FMT122

021560

002344

WR1FOR

021562

000641

021540
021544
021546

021547
021550

004037
001456
025
022

035276

;SETUP 10 RUN FOR DATA (OMMAND

;CYLINDER 814.
;SECTOR 21.
; TRACK

18.

;WORD COUNT

(DATA)

;4 HEADER WORDS
:BUS ADDRESS

- 257.

;STARTING ADDRESS OF DATA
;BUFFER = WRFROM
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAY
;00 NOT INHIBIT ECC CORRECTION
;00 NOT INH]IBIT HEADER COMPARE
.GET READY T0 DO A WRIFOR
;WRITE HEADER AND DATA WITH 62 IN RHCS!
8%

CIRJJIDO, RPO4L/S/6 FCTINL CTRL 22
6099
6100
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110
6111
6112
6113
6114
6115
6116
6117
6118
6119
6120
6121
6122
6123
6124

6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6137
6138
6139
6140
6141
6142
6143
6144
6145
6146
6147
6148
6149
6150
6151
6152
6153
6154

28-MAR-79 08:5

021564
021564
021570
021572
021573

mn10
30A(1052)
25-MAY-79
10:48 PAGE 130
ADDRESS OVERFLOW ERROR - RHER1
1264

(BIT#9)

SEQ 0129

AOE

7%:

035276

JSR
410.
BYTE

021574

004037
000632
025
022
177373

021576

002370

WRFROM

021600
021602

000000
010000

021604

002344

WRIFOR

RO,a#RUN

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 410.

21,
.BYTE
18.
=257.-4

;SECTOR 21.
: TRACK 18.
;WORD COUNT

(DATA) = 257. ¢

;4 HEADER WORDS
;BUS ADDRESS

;STARTING ADDRESS OF DATA
;BUFFER = WRFROM

;00 NOT INHIBIT BUS ADDRESS INCREMENT

FMT22

:16 BITS PER WORD FORMAT

;00 NOT INHIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE

;GET READY TO DO A WRIFOR
;WRITE HEADER AND DATA WITH 62 IN RHCS1

8%:

021606

021606
021612
021614

004037
002172
004512

021616

000022

021620

004737

;*SAVE REGISTERS FOR COMPARISON AFTER WIRTE HEADER AND DATA
JSR
RO,3#SAVER
;SAVE REGISTERS
RHWC
:RHWC IS THE FIRST REGISTER SAVED
SAVERE
:STARTING ADDRES OF WHERE

033462

:THE

18.

REGISTERS ARE

SAVED

:NUMBER OF REGISTERS
;SAVED = 18.

033374

JSR

PC,a#CHECKT

021624
021630

104401

000000

057465

TYPE
HALT

.CPHALT

021632

013777

004506

[ [0}

9#RPLVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS

160326

:CHECKS DVA,RDY,MOL,DPR,DRY AND VvV = 1
;AND THAT ALL STATUS BITS ARE = 0
; CANNOT CONTINUE TESTING IF NOT
;STOP TEST

;7O 'TIME1'
:OR TO

IF P=-CLOCK IS PRESENT

'TIME2'

P=-CLOCK

;'TIME' WILL ONLY SAVE
;CURRENT CYLINDER ADDRESS
;AND LOOK

021640
021644

013746
052716

002344
000101

MOV
BIS

ONWRIFOR,-(SP)
#GO!1E, (SP)

021650

012677

160324

MOV

(SP)+,a3RHCST

021654
021656
021660
021662
021664

002200
000200
004704
004704

104413

IS NOT

AHEAD REGISTERS

;GET READY TO MOVE COMMAND
:GET READY 1O SET GO AND

;ENABLE INTERRUPT
;60 WITH
;62 IN RH(SY FOR WRITE HEADER AND DATA
;WITH INTERRUPT ENABLED

WAT

;WAIT FOR RDY BIT

2500.
2500.

;ALLOW 25000 MICRO SECONDS
;RDY MUST SET BETWEEN
.00 AND 50000 MICRO SECONDS

RHCS
RDY

THERE

TO SET

;WAIT FOR RHCS! REGISTER
;WAIT FOR RDY BIT IN RHCSY REGISTER

——

CIRJJD.PT

MACY11

CIRJJIDO, RPD4L/S5/6 FCTNL CTRLR2
CIRJID.P11
28-MAR-79 08:52
6155
6156
6157
6158
6159
6160
6161
6162
6163
6164
6165
6166
6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185
6186
6187
6188
6189
6190
6191
6192
6193
6194
6195
6196
6197
6198
6199
6200
6201
6202

6203
6204
6205
6206
6207
6208
6209
6210

MACYM

N 10
10:48 PAGE 131
30A(1052)
25-MAY-79
126
ADORESS OVERFLOW ERROR - RHER1

SEQ 0130

(BIT#9) AOE

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
021666
021672
021674

004037
002174
003402

033216

021676
021702
021704

004037
002172

033216

021706
021712

004037
002200

034204

021714
021716
021720
021722
021724

000002
000001
100000
000001
040000

021726
021732

004037
002176

021734
021736
021740
021742
021744

000002
000001
000200
000001
000100

021746
021752
021754

004037
002202
001000

033216

021756
021762

004037
002222

034204

021764
021766
021770
021772
021774
021776
022000

000003
000001

022002

053737

JSR

RHBA

RO,3#FILLRE

WRFROM+<260.¢2>4<1,
.+ 2>
JSR

RHWL

RO.,a#FILLRE

000000

JSR
RHCST

RO,a#CHREG

JSR
RHER1

RO,a#F ILLRE

JSR

RO,9#CHREG

BIS

; CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS2 REGISTER

MOV AOE INTO SAVED RHERI]

:SA¥ED REGISTER TO CHANGE
:DATA

; CHANGE BITS IN SAVED REGISTER
. CHANGE RHDS1 REGISTER

;3 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA ]S 1
; CHANGE ATA BIT

1
ATA
1
ERR
1
LBT

004536

; CHANGE BITS IN SAVED REGISTER
:CHANGE RHCS1 REGISTER

;NEW VALUE OF IR IS 1
; CHANGE IR BIT

004644

; CHANGE OR BIT

AQE

000001
040000
000001
002000

:3:¥ED REGISTER TO C(MANGE

;NEW VALUE OF OR IS 1

1
OR
1
IR

100000

;MOV O INTO SAVED RHW(

;2 BIT/BITS TO BE CHANGED

RHDS1

;DATA

.2 BIT/BITS TO BE CHANGED
;NEW VALUE OF SC IS 1
; CHANGE SC BIT
;NEW VALUE OF TRE IS 1
; CHANGE TRE BIT

TRE

JSR
RHCS2

;SAVED REGISTER TO CHANGE

034204

;MOV WRFROM+<260.22>4<1,
¢2> INTO SAVED RHBA

;NEW VALUE OF

ERR

; CHANGE ERR BIT

IS 1

;NEW VALUE OF LBT 1S 1
: CHANGE LBT BIT
QFATTENT ,@#SAVERE+24 ;SET APPROPIATE ‘ATA' BITS
;FCR WORKING DRIVE IN
:SAVED RHAS LOCATION

;*CHECK DEVICE TYPE BEFORE SETTING UP 'RHCA' & 'RHCC®
X2 2

022010
022014

005737
001411

004636

2222XX23222

187
BEQ

2222222202220 0RRRRiRRARRRRRRiRRRRRRARRRRR
RN

a#RPO6
9%

;TEST

FOR RPO6 DRIVE
:TREAT
;TREAT

AS RPO4
AS RPO6

CIRJJIDO, RPO4/5/6 FCINL CTRLR2
CIRJJD.P
28-MAR-79 08:52
6211
6212
6213
6214
6215
6216
6217
6218
6219
6220
6221
6222
6223
6224
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237
6238
6239
6240
6241
6242
6243
€244
6265
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256

6257
6258
6259
6260
6261

MACY1T

30A(1052)
124

25-MAY-79

B 11
10:48
PAGE

132

ADDRESS OVERFLOW ERROR - RHER1

(BIT#9)

AOE

;;"'l'"""t'0'"'""'"'"""'"""0'.""""""""""'

022016
022022
022024

004037
002212
001457

033216

022026
022032
022034

004037
002234
001456

033216

022036
022040

000410

022040
022044
022046

004037
002212
000633

033216

022050
022056
022056

004037
002234
000632

033216

JSR

RHCA

815.

9%:

10¢

;CONTINUE WITH TEST

JSR

RO,a#FILLRE

;MOV 41i. INTO SAVED RHCA
:SAVED REGISTER TO CHANGE

RHCA

JSR

RHCC

;:DATA
RO,a#fF ILLRE

410.

004524

INTO SAVED RHCC

;SA¥ED REGISTER TO CHANGE
;DATA

611,

160120

MOV 814,

RO,a#FILLRE

;MOV 410.

INTO SAVED RHCC

;SAVED REGISTER TO CHANGE
;DATA

. ;CONTINUE WITH TEST

10%:

017737

;MOV 815. INTO SAVED RHCA
:g:¥i° REGISTER TO CHANGE

JSR
RHCC

814,

022060

RO,a#F ILLRE

Mov

SRHDST
, AN SAVERE+12 ;RHDST

IS UNPREDICTABLE

; *(OMPARE REGISTERS BEFORE WRITE HEADER AND DATA WITH AHTER
022066

004037

022072
022074
022076
022100
022102

004512
002254
000022
022104
022110

022104
022106

000207

104055

034312

JSR

RO,3#COMREG

ERROR
RTS

;PRESENT VALUE

;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘'RHW(C'
:18. REGISTERS TO BE COMPARED
;RETURN TO 1$ ON ERROR
;RETURN TO 2% ON NO ERROR

SAVERE
W
18.
1%

1%:

; COMPARE SAVED REGISTERS WITH

:WRITING HEADER AND DATA WITH
;EXPECTED ADDRESS OVERFLOW ERROR
; CAUSED IMPROPER REGISTER
; CHANGE

;GOOD DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE

AFTER WRITE

;HEADER AND DATA

SEQ 0131

CIRJIDD, RPO4/S5/6 FCTINL CTRLR2
CIRJID.P1Y
28-MAR-79 08:52
6262
6263
6264
6265
6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290

6291

6292
6293
6294
6295
6296
6297
6298
6299
6300
6301
6302
6303
6304
6305
6306

6307
6308
6309
6310
6311
6312
6313
6314
6315
6316
6317

MACY11

30A(1052)

124

25-MAY-79

10:48

cn
PAGE 133

ADDRESS OVERFLOW ERROR - RHER1

(BIT#9) AOE

SEQ 0132

; *NOW PREPARE 1O DO A READ HEADER AND DATA
;*(THE FIRST READ OPERATION)
1

;*CHECK THE DRIVE TYPE AND FILL

;*WRITE FROM BUFFER WITH APPROPRIATE EXPECTED HEADER

.‘!"t"""'Q""""'"""""'"Q""'."""""'lt't'll't"

022110
022110

004737

JSR

033314

PC.,a#CLDISK

;SET R1-RHCS1, R2-RHCS?2
;R3-RHDS1, R4&=-RHERI

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
;'t"""""'t'""""""""'"""'l""".""'t"'t""t'

022114
022120

005737

00141

15y

004636

BEQ

aNRPO6

19%

:TEST FOR RPO6 DRIVE

:TREAT UNIT AS AN RPO4

:TREAT AS AN RPO6

:;"'t""i"t""""'"""""'""'.t.""i."'t't'lt""'tt'

022122
022126
022130
022132
022134
022136
022140
022142

004037
002370
000004
011456
011025
000000
000000
000410

033140

:SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED
;NUMBER Of WORDS SAVED

20%

JSR
WRFROM
4
10632

RO,a#FLHEAD

;SAVE HEADER DATA [N WRFROM
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;sFIRST DATA WORD

:FIRST DATA WORD

;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD
;CONTINUE WITH TEST

19%:

022146
022144
022150
022152
022154
022156
022160
022162
022164

JSR
RO,a#FLHEAD
WRFROM
4
11456
<18.¢400>'<21.,>
0
0

004037
002370
000004
010632
011025
000000
000000

033140

<18.¢400>'<21.>

20%:

0
0

:SECOND DATA WORD

;THIRD DATA WORD
:FOURTH DATA WORD
s CONTINUE

;eFILL WRITE FROM BUFFER WITH EXPECTED DATA

022164
022170
022172
022174

004037
002400
000400
065125

033164

RO,3#CLAREA
JSR
WRFROM+<L2>

;CLEAR 256. WORDS, FROM WRFROM+<4e2>
;STARTING FROM WRFROM+<4*?2>

;256. WORDS
256
<26 +2000>'<18.¢40>'<21, >

FILL WITH <26.+2000>:<18.240>1¢

;*FILL WRITE FROM BUFFER WITH 377 FROM WORDS 261 T0O 266
022176
022202

004037
003400

033164

JSR
RO,a#CLAREA
WRFROM+<260.%2>

;CLEAR 6 WORDS, FROM WRFROM¢<260,%2>
;STARTING FROM WRFROM+<260.2>

CIRJJIDO, RPO4/S5/6 FCINL CTRLR2
CZRJIJD.P1Y
28-MAR-79 08:52

6318
6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6333
6334
6335
6336
6337
6338
6339
6340
6341
6342
6343
6344
6345
6346

6347
6348
6349
6350

6351
6352
6353
6354
6355
6356
6357
6358
6359
6360
6361
6362
6363
6364
6365
6366
6367
6368

6369
6370
6371
6372
6373

022204
022206

MACY11

0 N
30A(1052)
25-MAY=79
10:48 PAGE 134
124
ADDRESS OVERFLOW ERROR - RHER1

000006
000377

SEQ 0133

(BI1T#9) AOE

;6 WORDS

JFILL WITH 377

377

:*CLEAR READ INTO BUFFER
004037
003434
000412
000377

033164

004737

033314

JSR

REINTO

RO,3#CLAREA

;STARTING FROM REINTO

:266. WORDS

266.
377

JSR

;CLEAR 266. WORDS, FROM REINTO

SFILL WITH 377

PC,a#CLDISK

;SET R1-RHCST, R2-RH(S?

:R3-RHDST,

R4&=RHER1

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*CHECK THE DRIVE TYPE AND DO THE APPROPRIATE
s*FILL READ HEADER AND DATA COMMAND
‘:l""""""'t""""I"""""""'Qt'l""'.t.'lt't""'t'

022226
022232

005737
001412

181

004636

Bta

;TEST FOR RPO6 DRIVE

afRPO6

; TREAT UNIT AS AN RPO4
; TREAT UNIT AS AN RPO6

;;'t"t"""""t""""""'"""'l'i""t"tt't'tt'ttt"""

RO ,a#RUN
JSR
814.
BYTE
21,
‘BYTE
18,
2326, -4

022234
022240
022242
022243
022244

004037
001456
025
022
177266

022246

003434

REINTO

022250
022252

000000
014000

02225¢

002350

REFOR

022256
022260

000411

022260
022264
022266
022267
022270

004037
000632
025
022

022272

035276

ECI'FMT22

11%:

035276

:SETUP TO RUN FOR DATA (OMMAND

:CYLINDER 814,
;SECTOR 21.
;TRACK 18.
:WORD COUNT (DATA) = 326. +

;4 HEADER WORDS
:BUS ADDRESS
;STARTING ADDRESS OF DATA
;BUFFER = REINTO
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE
;GET READY TO DO A REFOR
;READ HEADER AND DATA WITH 72

128

; CONTINUE

JSR

RO, DFRUN

JSETUP TO RUN FOR DATA (OMMAND

10.

;CYLINDER 410.

;SECTOR 21,

177266

21,
BYTE
18,
‘BYTE
<326.-4

‘

003434

REINTO

:TRACK

18.

:WORD COUNT (DATA) = 326, ¢
;& HEADER WORDS
;BUS ADDRESS

;STARTING ADDRESS OF

;BUFFER - REINTO

DATA

IN RHCS)

CIRJJIDO, RPO&4/S5/6 FCINL CTRLR 2
CIRJID. P
28-MAR-79 08:52
6374
6375
6376
6377
6378
6379
6380
6381
6382
6383
6384
6385
6386
6387
6388
6389
6390
6391
6392
6393
6394
6395
6396
6397
6398
6399

MACYY

E 11
25-MAY-79
10:48
PAGE 135
3$A (1052)
ADDRESS OVERFLOW ERROR - RHER1
24

000000
014000

0
ECI'FMT2?

;D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT

022300

002350

REFOR

;GET READY 10 DO A REFOR
;READ HEADER AND DATA WITH 72

022302

;INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE

6413

6417
6418
6419
6420
6421
6422
6423
6424
6425
6426
6427
6428
6429

IN RH(SI

;CONTINUE WITH TESTING

12%:

;*SAVE REGISTERS FOR COMPARISON AFTER
:*READ HEADER AND DATA
JSR
RO,aN#SAVER
; SAVE REGISTERS

022302
022306
022310

004037
002172
004512

022312

000022

022314

004737

033374

JSR

PC,aNMCHECKT

022320
022324

000000

104401

057465

TYPE
HALT

»CPHALT

022326

013777

004506

MOV

A#RPLVEC,aRPVEC

033462

RHWC
SAVERE

sRHWC 1S THE FIRST REGISTER SAVED
:STARTING ADDRES OF WHERE
:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS
;SAVED = 18.

18.

157632

;CHECKS DVA,RDY,MOL,DPR,DRY AND vV =
;AND THAT ALL STATUS BITS ARE = 0
; CANNOT CONTINUE TESTING IF NOT
;STOP TEST
:SET RPO4 VECTOR ADDRESS

022334
022340

013746
052716

002350
000101

Mov

BIS

#GO'1E, (SP)

a#REFOR,-(SP)

022344

012677

157630

MOV

(SP)+ ,aRH(S]

;GET

READY

TO MOVE

COMMAND

:GET READY TO SET GO AND
;ENABLE INTERRUPT
;60 WITH

;72 IN RH(S1 FOR READ DATA

;WITH INTERRUPT ENABLED
022350
022352
02235¢4
022356
022360

;WALT FOR RDY BIT T0 SET
;WAIT FOR RHCS1 REGISTER
:WALIT FOR RDY BiT IN RHCS1

WAT
RHCSI
RDY

106413
002200
000200
001614
01507

908.
839.

; vCHANGE
02236¢
022366
022370

004037
002174
004444

033216

022372
022376

004037
002172

033216

SAVED REGISTERS TO EXPECTED VALUES

JSR

RO,a#fF ILLRE

;MOV REINTO+<260.*2> INTO SAVED RHBA

JSR

RO,3#F ILLRE

MOV =70. INTO SAVED RHWC(

RHBA
REINTO+<260.¢2>

RHW(

;70 'TIME1' IF P=CLOCK IS PRESENT
:OR TO "TIME2' IF P=-CLOCK IS NOT THERE
;"TIME' WILL ONLY SAVE
;CURRENT CYLINDER ADDRESS
JAND LOOK AMEAD REGISTERS

6411
6412

6414
6415
6416

SEQ 0134

AOE

022274
G2227¢

6400
6401
6402

6403
6404
6405
6406
6407
6408
6409
6410

(BIT#9)

;SAVED REGISTER T0 CHANGE
;DATA

;SAVED REGISTER 10 (MANGE

(1RJJDO, RPO&L/S5/6 FCTINL CTRLR 2
CIRJJD. PN
28-MAR-79 08:52
6430
6431
6632
6433
6434
6435
6436
6437
6438
6439
6440
6441
6442
6443
6444

6445

6446

6447
6448
6449
6459
6451
6452
6453
6454
6455
6456
6457
6458
6459
6460
6461
6462
6463

022400

177672

022402
022406

004037
002200

022410
022612
0226414
022416
022420

000002 000001

022422
022426

004037
002222

022430
022632
022434
022436
022440
022442
022444

000003
000001

022446
022452
022454

004037
002202
001000

MACYN

-70.

034204

JSR
RMCSI

6465

6467
6468
6469
6470
64671
6672
6473
6474
6675
64676
64677
6478
6479
6480
6481
6482
6483
6484
6485

RO,3#CHREG

000001
040000

JSR

034204

RHDS1

RO,aAN¥(HREG

; CHANGE BITS IN SAVED REGISTER

; CHANGE RHDS1

;3 BIT/BITS T0 BE (HANGED

ATA

;CHANGE

;NEW VALUE OF

1
ERR
1
LBT

JSR

033216

;CHANGE BITS IN SAVED REGISTER
;CHANGE RMCS1 REGISTER
;NEW VALUE OF SC IS 1
; CHANGE SC BIT
;NEW VALUE OF TRE IS 1
;CHANGE TRE BI7T

100000
000001
040000
000001
002000

SEQ 0135

AOE

;2 BIT/BITS TO BE CHANGED

1
SC
1
TRE

100000

(BIT#9)

;DATA

RHER!
AOE

RO,a#F ILLRE

;*CHECK DRIVE

ATA

;sNEW VALUE OF ERR
; CHANGE ERR BIT
JNEW VALUE OF LBT
; CHANGE LBT BIT

ATA B]7

;MOV AOE

INTO SAVED RHERI

;SAVED REGISTER
;DATA

TYPE BEFORE SETTING UP

TO CHANGE

'RHIA'

";.'I"""""""""""""""""I'.t'.'t'."'t'l'tt"'it"

022456
022462

005737
001405

181

004636

BEQ

6464

6466

F 11
3$A (1052)
25-MAY-79
10:48 PAGE 136
ADDRESS OVERFLOW ERROR - RHER1
24

3#RP06

13%

;TEST

FOR RPO6 DRIVE

;TREAT UNIT AS AN RPQ4
;TREAT UNIT

AS AN RPO6

""i'"'.i"""""""""""""""'l't"."l"'it"tt"'tltt

022464

004037
002212
001457

022474
022476

000404

022476
022502
022504

004037
002212
000633

022470
022472

033216

13%:

033216

RO,3#FILLRE

14%

:CONTINUE

JSR

RO,Q¥FILLRE

MOV 411,

RHCA

411,

INTO SAVED RHCA

:SAVED REGISTER
:DATA

TO (HANGE

INTO SAVED RHCA

:SAVED REGISTER TO CHANGE
:DATA

;CONTINUE WITH TEST

14%:

022506

:MOV 815.

JSR

RHCA
815.

022506

053737

004646

004536

BIS

SFATTENT ,@#SAVERE+24 ;SET APPROPIATE

022514

017737

1574664

006524

MOv

; SAVED RMAS LOCATION
SRHDST ,@#SAVERE+12 ;RHDST IS UNPREDICTABLE

;FOR WORKING DRIVE

°‘ATA' BI'S

CIRJIDO, RPOL/S5/6 FCINL CTRLR 2
(IRJUD.PNN
28-MAR-79 08:52

022522

004037

022526
022530
022532
022536
022536

004512
002254
000022
022540
0225644

022540
022542

104055
000207

034312

JSR

3%:

022562
022564

104056
000207

035342

SAVERE
w(
3%

;RETURN TO 3% ON ERROR

;18.

ERROR
RTS

022566

JSR
WRFROM
REINTO

RO,a#COMPAR

033316

;READING HFADER AND DATA WITH
;EXPECTED ADDRESS OVERFLOW

;ERROR CAUSED IMPROPER
;REGISTER CHANGE
;GO0D DATA GIVES WHAT SHOULD
:BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE AFTER (OMMAND

ERROR
RTS

S6
PC

; COMPARE TWO BLOCKS OF MEMORY
;600D DATA STARTS FROM WRFROM
:TEST DATA STARTS FROM REINTO

:266., WORDS TO BE COMPARFD
;RETURN 7O 5% ON ERROR
;RETURN T0 6% ON NO ERROR

:DATA READ WITH AN EXPECTED
:ADDRESS OVERFLOW ERROR
;1S INCORRECT
:WORD NO 1 T0 260 SHOULD

;BE READ CORRECTLY
;WORD NO 261 10 266 SHMOULD
;NOT CHANGE DUE TO THE READ

6%:

004737

(OMPARED

;*NOW (OMPARE THE DATA READ

6521
6522

022566

REGISTERS TO BE

;RETURN T0 4% ON NO ERROR

266,
5%
6%

5¢:

; COMPARE SAVED REGISTERS WITH

;PRESENT VALUE
;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'’

6518
6519
6520

RO,a#COMREG

18.

022544

004037
002370
003434
000412
022562
022566

6529
6530
6531

SEQ 0136

AOE

s*REGISTERS AFTER COMMAND

022544
022550
022552
022556
022556
022560

6523
6524
6525
6526
6527
6528

(BIT#9)

;*COMPAPE REGISTERS BEPORE READ nEADER AND DATA WITH

6510
6511
6512
6513
6514
6515

6516
6517

6 11
30A (1052)
10:48 PAGE 1357
25-MAY-79
ADDRESS OVERFLOW ERROR - RHER1
126

JSR

PC.,a#CLDISK

;SET R1=RM(CST, R2=-RH(S?

:R3I=RHDST,

R&=RMER!

;GIVE RM=11 INITIALIZE
;SETUP UNIT NUMBER

-—

6486
6487
6488
6489
6490
6491
6492
6493
6496
6495
6496
6497
6498
6499
6500
6501
6502
6503
6504
6505
6506
6507
6508
6509

MACY!!

6532
6533
6534
6535
6536
6537
6538
6539
6540
6561
6542
6543
6564
6565
6546
6547

6548
6549
6550
6551
6552
6553
6554
6555
6556

6557
6558
6559
6560
6561
6562
6563
6564
6565
6566
6567
6568
6569
6570
6571
6572
6573
6574
6575
6576
6577
6578
6579
6580
6581
6582
6583
6584
6585
6586
6587

MACY1T

30A(1052)
124

25-MAY-79

10:48

PAGE

138

ADDRESS OVEKFLOW ERROR - RHER1

(BIT#9)

SEQ 0137

AOE

;*NOW PREPARE TO READ CYLINDER O,

SECTOR 0,
;*70 SEE THAT NOTHING GOT WRITTEN ON THERE
;*WITH THE ADDRESS OVER FLOW BIT SET (AOE)

TRA(X 0

;;""""""""""'""""""""'.""""""""""'I"

;*FILL WRITE FROM BUFFER WITH EXPECTED HEADER
022572
022576
022600
022602
022604
022606
022610

004037
002370
000004
010000
000000
000000
000000

033140

JSR
WRFROM
4
10000
0
0
0

RO,a#f LHEAD

;s SAVE HEADER DATA [N WRFROM
;LOCATION WHERE SAVED
:NUMBER OFf WORDS SAVED
;FIRST DATA WORD
;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD

022612
022616
022620
022622

004037
002400

033164

JSR

RO,3#CLAREA

;CLEAR 256. WORDS, FROM WRFROM+<&*?2>

000400
000000

WRFROM¢<Le 2>
256.
0

;STARTING FROM WRFROMe<Go2>
:256. WORDS
sFILL WITH O

;*F1LL READ INTO BYFFER WITH 377
022624
022630
022632
022634

004037
003434
000404
000377

033164

022636

004737

033314

JSR

REINTO

RO,a#CLAREA

260.
377

JSR

;CLEAR 260. WORDS,

FROM REINTO

;STARTING FROM REINTO

;260. WORDS
sFILL WiTH 377

PC,a#CLDISK

:SET R1-RHCS1, RZ-RH(S?
;R3-RHDS1,

R&-RHER!

;GIVE RH=11 INITIALIZE
sSETUP UNIT NUMBER
;*FlLL

JSR
0
.BYTE

COMMAND FOR READ HEADER AND DATA

RO,a#RUN

022642
022646
022650
022651
022652

004037
000000
000
000
177374

022654

003434

REINTO

022656

022660

000000
014000

0
ECL.FMT2?

022662

002350

REFOR

035276

0
.BYTE
0
=256.-4

;SETUP TO RUN FOR DATA (OMMAND
:CYLINDER O
;SECTOR O

sTRACK O
;WORD COUNT (DATA)
;& HEADER WORDS

= 256,

;BUS ADDRESS

;STARTING ADDRESS OF DATA
;BUFFER = REINTO
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
216 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
'

:DC NOT INHIBIT HEADER COMPART
;GET READY 10 DO A REFOR
;READ HEADER AND DATA UlTH 72 IN RMLS!

;*SAVE REGISTERS FOR COMPAR]SON AFTER READ

—

CIRIJDO, RPOL/S/6 FCINL CTRLR2
CIRJJD.PVY
28-MAR-79 08:52

CIRJJIDO, RPO&L/S/6 FCINL CTRLRZ
(IRJID.PI
2B-MAR-79 08:52
6588
6589
6590
6591
6592
6593
6594
6595

6596
6597
6598
6599

6600
6601
6602
6603
6604
6605
6606
6607
6608
6609

6610

6611
6612
6613
6614

6615
6616
6617
6618
6619
6620

MACYI]

I 1
50A(1052)
10:48
PAGE 139
25=-MAY-79
ADDRESS OVERFLOW ERROR -~ RHER1
124

033462

022674

000021

022676

004737

033374

JSR

PC.af(HECKT

;SAVED = 17.
; CHECKS DVA,RDY,MOL,DPR,DRY AND vV = 1

022702
022706

106401
000000

057465

TYPE
HALT

,(PHALT

:CANNOT CONTINJUE TESTING IF NOT

022710

013777

0065006

MOV

SMRPLVEC,IRPVEC

JSR

RHW(

RO,a#SAVER

IS THE

FIRST

WHERE

:THE REGISTERS ARE SAVED

17.

157250

:RHWC

;STARTING ADDRES OFf

SAVERE

:NUMBER OF

REGISTERS

;AND THAT ALL

STATUS BITS ARE

= 0

;STOP TEST

;SET RPO& VECTOR ADDRESS

;10

"TIMEY'

:OR 10

P=-CLOCK

'TIMEZ2'

]S PRESENT

P=CLOCK

;"TIME® WILL ONLY SAVE

]S NOT

THERE

:CURRENT CYLINDER ADDRESS
;AND LOOK AMEAD REGISTERS

022716
022722

013746
052716

002350
000101

Mov

022726

012677

157246

MOV

022732
022734
022736
022740
022742

BIS

104413
002200

J¥REFOR,-(SP)
#GO1E, (SP)

(SP)+ ,aRHCST

WAT
RHCS
RDY

000200
004704
004704

033216

6629
6630
6631
6632
6633
6634
6635
6636
6637
6636
6639
6640

022754
022760
022762

004037
002174
004444

033216

022764
022770
022772

004037
002204
000001

033216

JSR

6641

022774«

004037

6643

023000

004512

RO,.a#FILLRE

034312

ENABLED

;WAIT

FOR RDY BIT

10 SET

:WAIT

FOR RDY BIT

IN RHCS!

SET

BETWEEN

TO EXPECTED

VALUE

MOV O INTO SAVED RHW(
:SA¥ED REGISTER TO (HANGE
;DATA

RO,a#FILLRE

RHBA

RO,a#FILLRE

?HDST

ST22A:

INTERRUPT

REGISTERS

REINTO+<260.2>

022774

;WITH

;00 AND 5000C M]CRO SECONDS

JSR

COMMAND

TO MOVE

;GET READY TO SET GO AND
;ENABLE INTERRUPT
;60 WiTH
;72 IN RHCS1 FOR READ DATA

;RDY MUST

RHWC

JSR

READY

;ALLOW 25000 MICRO SECONDS

:*(HANGE

004037
002172
000000

;GET

;WAIT FOR RHCS1 REGISTER

2500.
2500.

022744
022750
022752

6642

s SAVE REGJSTERS

004037
00217¢
004512

6624
6625
6626
6627
6628

SEQ 0138

AOE

022664
022670
022672

6621
6622

6623

(BIT#9)

;MOV REINTO0+<260.%2> INTO SAVED RHBA

:SAVED REGISTER VO CHANGE
:DATA

;MOV 1 INTO SAVED RHDST
:3A¥ED REGISTER 10 (HANGE
;DA

;COMPARE REGISTER BEFCRE READ WITH AFTER
JSR
SAVERE

RO,9#(OMREGC

;COMPARE SAVED REGISTERS wlTH

(PRESENT

VALUE

;600D DATA SAVED IN °*SAvERE®

CIZRJJIDO, RPO&L/S/6 FCINL CTRLRZ2
CIRJID. P\\
28-MAR-79 08:52

6647
6648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658
6659
6660
6661
6662
6663

002256
000021
023012
023016

023012
023014

104031
000207

RIS

:READ HEADER AND DATA ON
;CYLINDER O, SECTOR O

:TRACK O AFTER A FORCED

:ADDRESS OVER FLOW ERROR
:CAUSED IMPROPER REGISTER
: CHANGE

;:GOOD DATA GIVES WHAT
;SHOULD BE THERE
;RECEIVED DATA GIVES WHAT
;WAS

THERE

;1F

HEADER (OMPARE ERROR

;1S FOUND AND THE DATA
;ERROR GIVES THE NEW

;HEADER

6666

;THEN "ACE'
;INTO MERE

6674
6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691

;CYLINDER 63371457 (OCTAL)

6665

6673

AFTER READ

;HEADER AND DATA

6664

6667
6668
6669
6670
6671
6672

SEaQ 0139

:17. REGISTERS TO BE (OMPARED
;RETURN T0 4% ON ERROR
;RETURN TO 1% ON NO ERROR

17.
6%
1R

ERROR

AOE

;TEST DATA STARTING FROM ‘'RHW('

(B1T#9)

1$:

023016

023016
023022
023024
023026
023030
023032

004037
002370
003434
000404
023034
023040

023034
023036

104032

000207

;*(OMPARE

JSR

035342

WRFROM
REINTO

2%:

ERROR
RTS

DATA/READ

RO,a#COMPAR

260.
2%
3%

. COMPARE TWO BLOCKS OF MEMORY
;600D DATA STARTS FROM WRFROM
:TEST DATA STARTS FROM REINTO
:260., WORDS 70 BE COMPARED
;RETURN TO 2% ON ERROR
;RETURN TO 3% ON NO ERROR

;READ HEADER AND DATA

:ON CYLINDER 0, TRACK O
:SECTOR O AFTER A FORCED
:*AQE' ERROR CAUSED
;AN ERROR
;1F

023040

3¢:

OVER FLOWED

FIRST WORD

;106337116457 (OCTAL) THEN
;"AQE' OVER FLOWED INTO MERE

6646

023002
023004
023006
023010

J 1
30A(1052)
25-MAY-79
10:48 PAGE 140
ADDRESS OVERFLOW ERROR - RMER1
124

6644

6645

MACYIN

6692
6693
6694
6695
6696
6697
6698
6699
6700
6701
6702
6703
6704
6705
6706
6707
6708
6709
6710
6711
6712
6713
6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6725
6726
6727
6728
6729
6730
6731
6732
6733
6734
6735
6736
6737
6738
6739
6740
6741
6742
6743
6744
6745
6746
6747

30A(1052)
124
R

25-MAY-79

PAGE

141

ADDRESS OVERFLOW ERROR - RHER1
R

(BIT#9)

FORMAT ERROR - RHERT

;eTEST 25

A
i

10:48

MACY11

Sea 0140

AOE

ARl

(BIT #4)FMT

AN ATTEMPT WILL BE MADE TO WRITE DATA ON CYLINDER 0
SECTOR O TRACK O WwlTH 18 BITS PER WORD WHEN THE

HEADER HAS 16 BITS PER WORD SET

THIS SHOULD GIVE FORMAT ERROR FER BIT ¥4 IN RHERI

.
M

THEN THIS SECTOR WILL BE READ IN THE CORRECT FORMAT
16 BITS PER WORD TO CHECK THAT NOTHING GOT WRITTEN

1S125:

SCOPE
MOV
MoV

#STACK,SP
#25,aNTSTNM

JSR

PC,aN#CLDISK

023040
023042
023046

000004
012706

012737

001000
000025

023054

004737

033314

004504

R RN

RN R RN AR

AR R RN RN O NN ERNNREREOIRREORRETS

;RESET STACK
;SAVE TEST NUMBER

;SET R1-RHCS1, R2-RHCSZ2

:R3-RHDS1,

R&4-RHERI

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*FIRST WRITE HEADER AND DATA CYLINDER O,

cefILL WRITE FROM BUFFER WITH HEADER
023060
023064
023066
023070
023072
023074
023076

004037
002370
000004
010000
000000
000000
000000

033140

JSR

WRFROM
4
10000

RO,a#FLHEAD

0
0

TRACK 0,

SECTOR 0

:SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD

;SECOND DATA WORD

:THIRD DATA WORD
FOURTH DATA WORD

;vFILL WRITE FROM BUFFER WITH DATA
004037
002400
000412
000000

033164

RO,3#CLAREA
JSR
WRFROMe <L >
266.
0

;CLEAR 266. WORDS, FROM WRFROM+<&e?2>
;STARTING FROM WRFROM+<4e?>
;266. WORDS
FILL WITH O

;vFILL COMMAND

000
000
177362

JSR
RO,a#RUN
0
BYTE
0
.BYTE
0
=266.-4

;SETUP 10 RUN FOR DATA COMMAND
;CYLINDER O

002370

WREROM

;BUS ADDRESS

000000
010000

004037
000000

035276

FM122

;SECTOR 0
;TRACK 0
;WORD COUNT (DATA) = 266,
;& HEADER WORDS

;STARTING ADDRESS OFf DATA
;BUFFER = WRFROM
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;D0 NOT INHIBIT ECC CORRECTION
.00 NOT INHIBIT HEADER COMPARE

~ -~

CIRJJDO, RPOL/S/6 FCTINL CTRLR2
28-MAR-79 08:52
CIRJJD.PYY

CIRJJIDO, RPO4/S5/6 FCTINL CTRLR2
CIRJID.P
28-MAR-79 08:52

6748
6749
6750
6751
6;2%
6

6754
6755
6756
6757
6758
6759
6760
67¢1
6762
6763
6764
6765
6;6?
676

6768
6769
6770
6771
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
6782
6783
6784
6785

MACY11

L 1
30A(1052)
25-MAY-79
10:48 PAGE 142
125
FGRMAT ERROR - RMER1 (BIT #4)FMT

SEQ 0141

.GET READY 1O DO A WRIFOR

023132

002344

023134

004737

033374

JSR

PC.,aN(HECKT

023140
023144

104401
000000

057465

TYPE
HALT

LCPHALT

023146

013777

004506

Mov

¥RPLVEC,QRPVEC ;SET RPC4 VECTOR ADDRESS

WRIFOR

157012

;WRITE WEADER AND DATA WITH 62 IN RHCS!
; CHECKS DVA,RDY,MOL ,DPR,DRY AND vV =
;AND THAT ALL STATUS BITS ARE = 0
: CANNOT CONTINUE TESTING IF NOT

;STOP TEST

;10 'TIMEY®

;OR 10 °*TIMEZ2'

P-CLOCK

IS PRESENT

P-CLOCK

;'TIME' WiLL ONLY SAVE
;CURRENT CYLINDER ADDRESS

IS NOT

THERE

;AND LOOK AHEAD REGISTERS
023154
023160

013746
052716

002344
000101

MoV

BIS

aNWR]IFOR,=-(SP)
#GO'1E, (SP)

023164

012677

157010

Mov

(SP)+,aRH(CS]

023170
023172
023174
023176
023200

104413
002200
000200
004704
004704

023202

004737

:WAIT

WAT
RHCST

10 SET

;ALLOW 25000 MICRO SECONDS

2500.
2500.

JSR

FOR RDY BIT

;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RH(CS!

RDY

033314

;GET READY TO MOVE COMMAND
:GET READY 10 SET GO AND
;ENABLE INTERRUPT
;60 WITH
;62 IN RHCS1 FOR WRITE HEADER AND DATA
:WITH INTERRUPT ENABLED

;RDY

MUST

SET

BETWEEN

;00 AND 50000 MICRO SECONDS
PC,a#CLDISK

;SET R1-RHCS1, R2=-RH(S?
;R3-RHDS1,

R&=-RHER]

:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

6786
6787
6788
6789
6790
6791
6792
6793
6794
6795
6796
6797
6798
6799
6800
6801

6802
6803
6804
6805
6806
6807
6808
6809
6810
6811
6812
6813
6814
6815
6816
6817
6818
6819
6820
6821
6822
6823
6824
6825
6826
6827
6828
6829
6830
6831
6832

6833
6834
6835
6836
6837
6838
6839
6840
6841

MACY1Y

30A(1052)
125

25=MAY=-79

10:48

FORMAT ERROR -~ RHER1

PAGE 143

SEQ 0142

(BIT #4)FMT

; *NOW PREPARE TO WRITE WITH WRONG FORMAT
;*FILL WRITE FROM BUFFER
023206
023212
023214
023216

004037
002370
000412
000377

JSR

033164

WRFROM
206.

RO,a#CLAREA

3r?

;CLEAR 266. WORDS, FROM WRFROM
:STARTING FROM WRFROM
;266. WORDS

JFILL WITH 377

s*FILL WRITE DATA COMMAND
023220
023224
023226
023227
023230
023232

004037

000000
000
000
177366
002370

JSR
0
BYTE
.BYTE
-266.

035276

RO,a#RUN

;SETUP TO RUN FOR DATA COMMAND
:CYLINDER O

0
O

;SECTOR O
;TRACK 0
;WORD COUNT = 266.

WRFROM

023234
023236

000000
000000

0
0

023240

002342

WRIDAT

:BUS ADDRESS
;STARTING ADDRESS OF

;BUFFER = WRFROM

DATA

’

;00 NOT INHIBIT BUS ADDRESS INCREMENT
;18 BITS PER WORD FORMAT

;D0 NOT INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A WRIDAT

;WRITE DATA WITH 60 IN RH(CS!

;*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE DATA
:*WITH WRONG FORMAT

JSR
RHW(
SAVERE

033462

RO,a#SAVER

;SAVE REGISTERS
:RHWC IS THE FIRST REGISTER SAVED
JSTARTING ADDRES OF WHERE

023242
023246
023250

004037
002172
004512

023252

000022

023254

004737

033374

JSR

PC,oNCHECKT

023260
023264

104401

000000

057465

TYPE

LCPHALTY

023266

013777

004506

MoV

ONRPLVEC,aRPVEC ;SET RPO4& VECTOR ADDRESS

;THE

18.

HALT

156672

REGISTERS ARE

;NUMBER OF

SAVED

REGISTERS

;SAVED = 18.

:CHECKS DVA,RDY,MOL,DPR,DRY AND VvV = 1
;AND THAT ALL STATUS BITS ARE - 0
:CANNOT CONTINUE
;ST0P TEST

;10

"TIMEY®

TESTING IF

P=-CLOCK

NOT

IS PRESEMY

:OR 1O 'TIMEZ2' IF P=-CLOCK IS NOT THERE
s'TIME' WILL ONLY SAVE
;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
023274
023300

013746
052716

002342
000101

MOV

9#WRIDAT,=-(SP)

023304

012677

156670

MOv

(SP)+ ,aRHCST

BIS

#G0.1E, (SP)

;GET READY TO MOVE COMMAND
¢GET READY TO SET GO AND
;ENABLE INTERRUPI
;60 WITH
;60 IN RHCS'

FOR WRITE DATA

~—
8

CIRJIJIDO, RPO&L/S5/6 FCINL CTRLR2
28-MAR-79 08:52

CIRJJD P

)

LIRR

MACY11

:WITH INTERRUPT ENABLED

6842
6843

6844

6845
6846
6847
6848
6849
6850
6851
6852
6853
6854
6855
6856
6857
6858
6859
6860
6861
6862
6863

6864
6865
6866
6867
6868

6869
6870
6871
6872

6873
6874
6875
6876
6877
6878
6879
6880
6881
6882
6883
6884
6885
6886
6887
6888
6889
6890
6891
6892
6893
6894
6895
6896
6897

SEQ 0143

104413
002200
000200
001522
001510

023322
023326

004640

023330
023334
023336

004037
002172

033216

023340
023344
023346
023350

004037
002174
002410

033216

;RDY MUST SET BETWEEN
;100 AND 16900 MICRO SECONDS
;RH70 CONTROLLER

151

a¥RHT70

JP3

;1F NOT, SKIP NEXT RH70 CODE

JSR

RO,a#FILLRE

;MOV -258. INTO SAVED RHW(
:SA¥ED REGISTER TO CHANGE

BEQ
RHWC

:DATA

-258.
JSR

:
VARG

000410

. *CHANGE SAVED REGISTERS TO EXPECTED VALUE

VARY:

177376

FOR RDY BIT TO SET
FOR RHCS! REGISTER

;WAIT FOR RDY BIT IN RH(S!
;ALLOW 8500 MICRO SECONDS

850.
840.

005737

0014611

;WAIT
;WAIT

WAT
RHCS1
RDY

RHMBA

RO,a#FILLRE

.+ 2>
WRFROM+<B.

:MOV WRFROM+<8,¢2> INTO SAVED AREA
:SAVED REGISTER TO (HANGE

:DATA

JP4

:SKIP NEXT RH!1 CODE

JSR

RO,a#FILLRE

MOV =200. INTO SAVED RHWC

JP3:

023352

023352
023356
023360

004037
002172

033216

023362
023366
023370

004037
00217¢
002574

033216

RHW(

-200.

177470

JSR

RHBA

:SAVED REGISTER 10O (HANGE

;DATA

P),aNFILLRE

WRFROM+<66.¢2>

;MOV WRFROM+<66.%2>

INTO SAVED RHBA

:SAVED REGISTER TO CHANGE
:DATA

JP4

023372
023372
023376

004037
002200

023400
023402
023404
023406
023410

000002
000001
100000
000001
040000

023412
023416

004037
002176

023420
023422
023424

000001
000001
000200

023426

004037

034204

JSR

RHCS

RO,3#CHREG

1
SC
1
TRE

JSR

RH(CS2

; CHANGE

JSR

SC BIT

;NEW VALUE OF

TRE IS 1

. CHANGE TRE BI1

RO,3#(HREG

;CHANGE BITS IN SAVED REGISTER
: CHANGE RHCS2 REGISTER
;1 BIT/BITS 10O BE (MHANGED
;NEW VALUE OF OR IS 1

1
1
OR

034204

;2 BIT/BITS 10 BE (HANGED
;NEW VALUE OF SC IS 1

034204

:CHANGE BITS IN SAVED REGISTER

; CHANGE RHCS1

; (HANGE

RO,a#(HREG

OR BI1

;UHANGF BITS IN SAVED REGISTER

(X
]

CIZRJJDO, RPO4L/5/6 FCINL CTRLR2
28-MAR-79 08:52

PN
CIRJJD.P

N 1
30A(1052)
25=MAY=79
10:48 PAGE 144
125
FORMAT ERROR - RHER1 (BIT W4)FMT

CIRJIDO, RPOL/S/6 FCINL CTRLRZ2
CIRJJD. P
28-MAR-79 08:52
6898
6899

6900
6901
6902
6903
6904
6905
6906
6907
6908
6909
6910
6911
6912
6913
6914

6915
6916
6917

6918
6919
6920
6921
6922

6923
6924
6925
6926
6927
6928
6929
6930
6931
6932
6933
6934
6935
6936

6937
6938
6939
6940
6941
6942
6943
6944
6945
6946
6947
6948
6949
6950
6951
6952

6953

MACYN

SoséIOSZ) 25-MAY-79
FORMAT

10:48

B 12
PAGE 145

ERROR - RHMER1

(BIT

SEQ 0144

#4)FMT

023432

002222

RHDS?

:CHANGE RHDS1

023434
023436
023440
023442
023444

000002
000001

;2 BIT/BITS TO BE CHANGED

000001
040000

ATA

1
ERR

:CHANGE ATA BIT

023446
023452
023454

004037
002204
000001

033216

023456

053737

004644

100000

:NEW VALUE OF

ATA ]S

;NEW VALUE OF ERR IS
;CHANGE ERR BIT

JSR
RHDST

RO,a#FILLRE

BIS

oNATTENT,ONSAVERE+24 ;SET APPROPIATE

0045306

;MOV 1 INTO SAVED RHDST
;SAVED REGISTER TO CHANGE
;DATA

;FOR WORKING DRIVE

°'ATA' BITS

;SAVED RHAS LOCATION
023464
023470

004037
002202

023472
023474
023476
023500
023504
023510
023516

000001
000001
000020
017746
042716
042737
052637

JSR
RHER1

034204

RO,3#CHREG

1
1

156472
177477
000300
004516

FER

MOV
BIC
BIC
BIS

004516

:CHANGE BITS IN SAVED REGISTER
; CHANGE RHER1 REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF FER IS 1
; CHANGE FER BIT

aRHCS2,=(SP)
;GET RHCS?2
#*C<]R!OR>,(SP) ;KEEP ]R AND OR
#IR!OR,d#SAVERE+4;
CLEAR SAVED IR OR
(SP)+ ,a#SAVERE+4;SET OR IR AS REQUIRED

;*COMPARE REGISTERS BEFORE wnRiTS DATA WITH AFTER ATTEMP
023522

004037

023526
023530
023532
023534
023536

004512
002254
000022
023540
023544

023540
023542

106057
000207

JSR

034312

RO,3#COMREG

SAVERE

;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘'RHW(C'
;18. REGISTERS TO BE COMPARED

W(
18.
1%
2%
1%:

ERROR
RTS

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE

;RETURN TO 1% ON ERROR

;RETURN TO 2% ON NO ERROR

57
PC

;ATTEMPTING TO WRITE DATA
;WITH WRONG -FORMAT BIT CAUSED

; IMPROPER REGISTER CHANGE
;G00D DATA GJVES WHAT

;BE THERE

SHOULD

;RECEIVED DATA GIVES WHAT WAS
:THERE AFTER ATTEMPTED WRITE

;*NOW PREPARE TO READ WITH CORRECT FORMAT TO CHECK
2%:

023544

004737

033314

;*THAT NOTHING GOT WRITTEN

JSR

PC,a¥CLDISK
:

;SET R1-RHCS1, R2-RHCS?
;R3-RHDS1, R4-RHERI

;GIVE RH=11

INITIALIZE

CIRJIDO, RPOL/S/6 FCTNL CTRLRZ
CZRJJD.PY
28-MAR-79 08:52
6954
6955
6956
6957
6958
6959
6960

6961
6962

6963
6964
6965
6966
6967
6968
6969
6970
6971
6972~
6973
6974
6975
6976
6977
6978
6979
6980
6981
6982
6983
6984
6985
6986
6987
6988
6989
6990
6991
6992
6993
6994
6995
6996
6997
6998
6999
7000
7001
7002
7003
7004
7005
7006
7007
7008
7009

MACYI

3?3§1052)

25-MAY-79

FORMAT

ERROR

10:48

¢ 12

RHER1

PAGE

(BIT

146

SEQ 0145

#4)FMT

;SETUP UNIT NUMBER
;*FILL WRITE FROM BUFFER WITH EXPECTED DATA
023550
023554
023556
023560

004037
002370
000400

JSR

033164

WRFROM

RO,a#CLAREA

;CLEAR 256. WORDS, FROM WRFROM
;STARTING FROM WRFROM

256.
0

000000

:256. WORDS
SFILL WITH O

;*FILL READ INTO BUFFER WITH 125252
023562
023566
023570
023572

004037
007434

JSR

033164

REINTO

RO,3#CLAREA

;CLEAR 256. WORDS, FROM REINTO
;STARTING FROM REINTO

256.
125252

000400
125252

:256. WORDS
JFILL WITH 125252

;*FILL COMMAND TO READ DATA
023574
023600
023602
023603
023604
023606

004037
000000
000
000

023610
023612

000000
014000

023614

035276

JSR
0
.BYTE
.BYTE
-256.

177400

RO,3#RUN

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0
‘
;SECTOR 0
;TRACK 0
;WORD COUNT = 256.

0
0

REINTO

003434

;BUS ADDRESS

;STARTING ADDRESS OF
= REINTO
;BUFFER

0
FMT22'EC]

INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT

;INHIBIT ECC CORRECTION

;D0 NOT INHIBIT HEADER COMPARE

READAT

002346

;00 NOT

DATA

;GET READY TO DO A READAT
;READ DATA WITH 70 IN RHCS!

;*SAVE REGISTERS FOR COMPARISON AFTER NORMAL READ
JSR
RO,3#SAVER'
:SAVE REGISTERS

033462

023616
023622
023624

004037
002172
004512

023626

000022

023630

004737

033374

JSR

PC,a#CHECKT

023634
023640

104401
000000

057465

TYPE
HALT

,CPHALT

023642

013777

004506

MOv

o#RPLVEC,QRPVEC ;SET RPO4 VECTOR ADDRESS
;10 "TIMEY® IF P=CLOCK IS PRESENT
;OR TO 'TIMEZ' IF P-CLOCK IS NOT THERE

RHW(C
SAVERE

:THE

18.

156316

:RHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE
REGISTERS ARE

;NUMBER OF

SAVED

REGISTERS

;SAVED = 18.

;CHECKS DVA,RDY,MOL,DPR,DRY AND vV - 1
;AND THAT ALL STATUS BITS ARE
0
s CANNOT CONTINUE TESTING IF NOT
;STOP TEST

SUTIME'

; CURRENT

WILL ONLY

SAVE

CYLINDER ADDRESS

SAND LOOK AMEAD REGISTERS

7010
7011
7012

013
7014
7015
7016

7017
7018
7019
7020
7021
7022
7023
7024
7025
7026
7027
7028
7029
7030
7031
7032
7033
7034
7035
7036
7037
7038

7039

7040
7041
7042
7043
7044
7065
7046
7047
7048
7049
7050
7051
7052
7053
7054
7055
7056
7057
7058
7059
7060
7061
7062
7063
7064

7065

MACY1T

0D 12
30A(1052)
25-MAY=-79
10:48 PAGE 147
FORMAT ERROR - RHER1 (BIT #4)FMT
125

SEQ 0146

023650
023654

013746
052716

002346
000101

Mov

d#READAT ,=(SP)

#GO'1E, (SP)

;GET READY TO SET GO AND

023460

012677

156314

MOv

(SP)+ ,aRHCS]

;60 WITH

023664
023666
023670
023672
023674

BIS

104413
002200
000200
001614
001507

WAT
RHCST

RDY
908.
839.

;GET

READY

TO MOVE

COMMAND

;ENABLE INTERRUPT

;70 IN RHCS1 FOR READ DATA

;WITH

INTERRUPT

ENABLED

;WAIT
;WAIT

FOR RDY BIT 10 SET
FOR RHCS1 REGISTER

:WAIT FOR RDY BIT IN RH(S!
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

;690 AND 17470 MICRO SECONDS

; *CHANGE SAVED REGISTERS TO EXPECTED VALUE
023676
023702
023704

004037
00217¢
004434

033216

023706
023712
02371¢

004037
002172
000000

033216

023716
023722
023724

004037
002204
000001

033216

023726
023732
023736
023744

017746
042716
042737
052637

156244
177477

000300
004516

JSR

RO,aNf ILLRE

:MOV REINT0+<256.¢2> INTO SAVED RHBA

JSR

RO,a#f ILLRE

:MOV O INTO SAVED RHW(

JSR

RO,a#FILLRE

MOV
BIC
BIC
BIS

aRHCS2,-(SP)
:GET RHC(CSZ2
#2C<IR'OR>,(SP) ;KEEP IR AND OR
#IR'OR,3#SAVERE+4;CLEAR SAVED IR OR
(SP)+ ,a#SAVERE+4;SET OR IR AS REQUIRED

RHBA
REINTO¢<256.2>

RHWC
0

RHDST
1

004516

;SAVED REGISTER TO (HANGE
:DATA

;SAVED REGISTER TO CHANGE
:DATA

:MOV 1

INTO SAVED RHDST

:SAVED REGISTER TO CHANGE
;DATA

;*COMPARE REGISTERS BEFORE READ WITH AFTER
023750

004037

023754
023756
023760
023762
023764

004512
002254
000022

023766
023770

JSR

034312

SAVERE
Wl
18.
3%
4%

023766
023772
104033

000207

RO,3#COMREG

3%:

ERROR
RTS

; COMPARE SAVED REGISTERS WITH
sPRESENT VALUE

;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM °'RHWC’
:18. REGISTERS TO BE COMPARED
;RETURN TO 3% ON ERROR
:RETURN TO 4% ON NO ERROR

33
PC

;READ DATA AFTER AN
ATTEMPTED WRITE WITH WRONG
: IMPROPER REGISTER CHANGE
;FORMAT

CAUSED

;600D DATA GIVES WHAT SHOULD
;BE THERE

Y TM~

CIRJIDO, RPOL/S5/6 FCTINL CTRLRZ
CIRJJD P
28-MAR-79 08:52

7066
7067
7068
7069
7070
7071
7072
7073
7074
7075
7076
7077
7078
7079
7080
7081
7082
7083
7084
7085
7086

MACY1Y

30A(1052)
12

25-MAY=-79

FORMAT

ERROR

10:43

E 12
PAGE

RHER1

(BIT

148

SEQ 0147

#4)FMT

;RECEIVED DATA GIVES WHAT
;WAS

THERE

AFTER READ

;*COMPARE DATA READ AFTER ATTEMPTED WRITE WITH
023772

4%:

023772
023776
024000
024002
024004
024006

004037
002370
003434
000400
024010
0246914

024010
024012

104034
000207

024014

035342

; *WRONG FORMAT BIT
JSR

WRFROM
REINTO

RO,3#COMPAR

256.
5%
6%

5%:

6%:

ERROR
RTS

; COMPARE

TWO BLOCKS OF

MEMORY

;600D DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
;256., WORDS TO BE CUMPARED
;RETURN T0 5% ON ERROR
;RETURN TO 6% ON NO ERROR

;:DATA READ AFTER AN ATTEMPT
;70 WRITE WITH WRONG FORMAT
;WAS INCORRECT

ala

CIZRJIJDO, RPO4/S/6 FCTNL CTRLR2
CIRJJID P
28-MAR-79 08:52

7102
7103
7104
7105
7106

el
o
il
D
i
D
et
)
il
ol
D el
i
D
i
) il
il
h
-

RNV POIPONIPNINIPNIND
= b et b ep e b s e
(=
OOV
~NO NS W
=0V
N NS W=D O

NNSNSNNNNNNNNNNSNNNNNNNN ~

7107
7108

30A(1052)
126

2S5=MAY-79

FORMAT

10:48

ERROR - RHER!

PAGE

(BlT

149

SEQ 0748

#4)FMT

';"""""""'""'t""'t'"'""'"'"l"""""."."""'

FORMAT ERROR - RHERT (BIT W&)FMT

AN ATTEMPT
FORMAY BIT

1S MADE

TO READ DATA WITH WRONG

;'TEST 26

SR 2

024014
024016
024022

000004
012706
012737

001000
000026

024030

004737

033314

15126:
004504

fORMAT

ERROR BIT #4

NO DATA

7087
7088
7089
7090
7091
7092
7093
7094
7095
7096
7097
7098
7099
7100
7101

MACY11

SHOULD BE
AR

IN RHER1

READ

RAR

SCOPE
MOv
MOV

#STACK,SP
N26,3¥TSTNM

JSR

PC,a#CLDISK

SHOULD SET

RARRRRR

RRRRRARRRllA)

;RESET STACK
;SAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(S?

;R3-RHDS1, R&=RHER1T

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*FILL WRITE FROM BUFFER WITH 107070
024034
024040
026042
024044

004037
002370
000400

033164

JSR

WRFROM

RO,a#CLAREA"

256.
107070

107070

;CLEAR 256. WORDS, FROM WRFROM

sSTARTING FROM WRFROM

:256. WORDS
;FILL wiTH 107070

;*FILL READ INTO BUFFER WITH 107070
024046
024052
024054
024056

004037
003434
000400

033164

JSR

REINTO

RO,3#CLAREA

256.
107070

107070

;CLEAR 256. WORDS, FROM REINTO
;STARTING FROM REINTO

:256. WORDS
;FILL WITH 107070

;*FI1LL COMMAND TO READ WITH WRONG FORMAT
035276

JSR
0
.BYTE
.BYTE

RO,3#RUN

;SETUP TO RUN FOR DATA (OMMAND
;CYLINDER 0
;SECTOR 0
;TRACK 0

024060
024064
0246066
024067
024070
024072

004037

024074
024076

000000
004000

0
EC!

024100

002346

READAT

004037
002172

;*SAVE REGISTERS FOR COMPARA]SON AFTER READ
JSR
RO,a#SAVER
:SAVE REGISTERS
RHW(
;RHWC IS THE FIRST REGISTER SAVED

024102
0264106

000000
000
000
177400

=256.

REINTO

003434

033462

O
O

;WORD COUNT = 256.
;BUS ADDRESS

;STARTING ADDRESS OF DATA
;BUFFER = REINTO
;00 NOT INHIBIT BUS ADDRESS INCREMENT
:18 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE

.GET READY T0 DO A READAT
;READ DATA WITH 70 IN RHCST

[ Nan

CIRJJIDO, RPO4L/S/6 FCINL CTRLR2
CIRJID P11
28-MAR-79 08:52

7143
7144
7145

7146
7147

MACYN

5?3é1052)

25-MAY-79

FORMAT

10:48
PAGE 150
ERROR - RHER1 (BIT W#4)FMT

SEQ 0149 |

0264110

004512

SAVERE

;STARTING ADDRES OF

0264112

000072

18.

;NUMBER OF REGISTERS

024114

004737

033374

JSR

PC,a#CHECKT

024120
026124

000000

104401

057465

TYPE
HALT

,CPHALT

024126

013777

0046506

MOov

a¥RPLVEC,aRPVEC

156032

;THE

REGISTERS ARE

WHERE

SAVED

:SAVED = 18,

; CHECKS DVA,RDY,MOL,DPR,DRY AND vV ;AND THAT ALL STATUS BITS ARE = 0
; CANNOT (ONTINUE TESTING IF NOT
:STOP TEST

:SET RPO& VECTOR ADDRESS
;710

"TIMET®

P-CLOCK

1S PRESENT

:OR TO '"TIMEZ2' IF P=-CLOCK IS NOT THERE
;'TIME' WILL ONLY SAVE
;CURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS

024134
0241490

013746
052716

002346
000101

MOV

024144

012677

156030

Mov

0246150
024152
024154

104413

026156
024160

WAT
RHCST
RDY

002200
000200
001522
001510

a¥#READAT,-(SP)
¥GO!1E, (SP)

BIS

850.
840.

(SP)+,aRH(ST

004037
002200

024170
024172
024174
024176
0246200

000002
000001
100000
000001
040000

024202
024206

004037
002222

024210
0264212
024214
026216
024220

000002
000001

026222
024226

004037
002204

034204

JSR
RHCST

;RDY

RO,a#(HREG

JSR

RHDST

BETWEEN

;CHANGE BITS IN SAVED REGISTER
: CHANGE RHCST REGISTER
;2 BIT/BITS 10 BE CHANGED
;NEW VALUE OF SC IS 1
; CHANGE SC BIT
;NEW VALUE OF TRE ]S 1
; CHANGE TRE BIT

RO,a#CHREG

; CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

;2 BIT/BITS TO BE C(HANGED
;NEW VALUE OF ATA S 1

1
ATA
|
ERR

033216

SET

SAVED REGISTERS TO EXPECTED VALUE

000001
040000

MUST

;100 AND 16900 MICRO SECONDS

TRE

100000

T0 SET

;ALLOW 8500 MICRO SECONDS

1
SC
1

JSR
RHDS1

FOR RDY BIT

;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1

034204

;70 IN RHCS1 FOR READ DATA
;WITH INTERRUPT ENABLED
;WAIT

; *CHANGE
024162
024106

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;ENABLE INTERRUPT
;60 WITH

: CHANGE ATA BIT

;NEW VALUE OF ERR [S 1

. CHANGE ERR BI7
RO,a#F ILLRE

;MOV

INTO SAVED RHDST

;SAVED REGISTER TO (MANGE

[N e

CIRJJIDO, RPO&L/S5/6 FCINL CTRLR2
28-MAR-79 08:52

CIRJJD.PIY

6 12

7199
7200

7201
7202
7203
7204
7205
7206
7207
7208
7209
7210
7211
7212
7213
7214
7215
7216
7217
7218

024230

000001

026232
024236

004037
002202

026240
024242
024244

000001
000001
000020

026246

053737

004644

024254
026260
024264
024272

017746
042716
042737
052637

155716
127477

MACY11

H 12

30A(1052)
25-MAY=79
10:48 PAGE 151
126
FORMAT ERROR =~ RHER1 (BIT #4)FMT
1

034204

RHER]

7228

7229
7230

7231
7232
7233
7234
7235
7236
7237
7238
723%9
7240

261
7242
7243
7244
7245
7246
7247
7248
7249
7250
7251
7252
7253
1254

RO,3#CHREG

000300
004510

BIS
v
(
C
S

004516

:CHANGE BITS [N SAVED REGISTER
; CHANGE RHER1

1
FER

BIT/BITS

TO BE

;NEW VALUE OF FER
; CHANGE FER BIT

C(HANGED

SNATTENT ,@#SAVERE+24 ;SET APPROPIATE ‘'ATA' BITS
;FOR WORKING DRIVE iN
:SAVED RHAS LOCATION
aRH(S2,=(SP)
:GET RHCS?2
#*C<IR'OR>,(SP) ;KEEP IR AND OR
#IR!OR,@FSAVERE+4;
CLEAR SAVED IR OR
(SP)¢ ,@#SAVERE+4;SET OR IR AS REQUIRED

;*(OMPARE REGISTERS BEFORE WRITE DATA WITH AFTER ATTEMPT

7219

7220
7221
7222
7223
7224
7225
7226
7227

;DATA

JSR

004536

SEQ 0150

024276

004037

026302
024304
024306
024310
024312

004512
002254
000022
024314
024320

024314
024316

104057

JSR

034312

RO,a#COMREG

SAVERE
w(

000207

ERROR
RTS

sPRESENT

VALUE

;GOOD DATA SAVED IN °'SAVERE'
;TEST DATA STARTING FROM ‘'RHW('

18.
1%
2%

1%:

; COMPARE SAVED REGISTERS WITH

;18. REGISTERS TO BE COMPARED
;RETURN T0 1% ON ERROR
;RETURN TO 2% ON NO ERROR

SATTEMPTING TO READ DATA
;WITH WRONG FORMAT

BIT

CAUSED

;s IMPROPER REGISTER C(HANGE
;G000 DATA GIVES WHAT SHOULD B¢F

: THERE

:RECE!VED DATA GIVES WHAT WAS THERE
;AFTER READ DATA

2%:

024320
024320
024324
024326
024330

024332
02433¢

0246336
0246340

004037
002370
003434
000400
024336
026342
104034

000207

;*(OMPARE READ INTO BUFFER TO CHECK THAT NOTHING WAS READ
JSR
WRFROM
REINTO

035342

RO,9#COMPAR

;TEST DATA STARTS FROM REINTO

256.
b3

:256., WORDS TO BE COMPARED
;RETURN 10 3$ ON ERROR

3%:

ERROR
RS

. COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM

;RETURN T0 4% ON NO ERROR

34
PC

;ATTCMPY TO READ
;WlTn WRONG FORMAT

BI1

; CHANGED READ INTO BUFFER
;600D DATA GIVES WHAT SHOULD
.BE THERE
;BAD DATA GJVES WHAT

WAS

C(IRJJDO, RPO&/5/6 FCINL CTRLR 2
C(ZRJJD.PN
28-MAR-79 08:52

7255
7256
7257
7258

MACYT1

1 12

30A(1052)
25-MAY=-73
10:48 PAGE 152
126
FORMAT ERROR - RMER1 (BIT #&)FMT
;THERE

024342

6%:

AFTER READ DATA

SEQ 0151

'ala

CIRJIDO, RPO4L/S/6 FCINL CTRLR2
CZRJJD.P
28-MAR-79 08:52

(2RJJD0O, RPO&L/S/6 FCTINL CTRLR2
CZRJID P11
28-MAR-79 08:52

MACYTY

7259
7260
7261
7262
7263
7264
7265
7266
7267
7268
7269
7270

7290
7291
7292
7293
7294
7295
7296
7297
7298
7299
7300
7301
7302
730%
7304
7305
7306
7307
7308
7309
7310

7311

7312
7313
7814

FORMAT

eTEST 27

10:48

J 12
PAGE

ERROR - RHER1

(BIT

153

SEQ 0152

#4)FMT

TE TR
T

%
%

2
%

R
IR

5
B

THEN READY WiLL BE WALITED ON TO COMPLETE THE READ DATA
THEN ALL REGISTERS WILL BE COMPARED AND THE DATA READ
SHOULD BE GOOD

024370

——

024362

~N~N

033314

004737

—

024356

rono

001000
000027

000004
012706
012737

002200

000007

TO CYLINDER O BY A SEEK

A READ DATA COMMAND wILL BE GIVEN TO CYLINDER 1 TRA(K 0
SECTOR O 150. WORDS. THIS WILL TAKE AT
LEAST 7 MILI SECONDS.
IMMEDIATELY AFTER GO AT
IMPLIED SEEK TIME, WRITE INTO A RELISTER WILL BE ATTMEPTED

THE HEADS WILL BE BROUGLHT

THIS WILL BE REPEATED FOR RHCS1, RHER!,

RHOF,

026342
024344
024350

CYLINDERT TRACK O, SECTOR O WiLL BE WRITTEN WITH
200 WORDS Of 2000 BY A WRITE HEADER AND DATA (OMMAND

R
T

- 7275

7288
7289

126

25-MAY-79

’:'."'""'""'"'"""""""""'."l."'t""""""""'

727N
7272
7273
7274

7276
7277
7278
7279
7280
7281
7282
7283
7284
7285
7286
7287

30A(1052)

RHCA,

RHER3

RHDST,

2222222222222 22222232220220220
R0t
slRlRR
Rl

1S127:
0045C4

SCOPE

MOV
Mov

FSTACK,SP
#27,30TSTNM

JRESET STACK
;SAVE TEST NUMBER

JSR

PC,a3#(LD]SK

;SET R1-RHCS1, R2=-RH(S?

Mov
Mov

004652
004669

FRHCST ,a#TMPO
N7 ,aNTMPS

:R3-RHDS1,

R4-RHERI

;GIVE RH=-11 INITIALIZE
;SETUP UNIT NUMBER

;FIRST REGISTER 1O BE TESTED
:NUMBER OF REGISTERS TO BE TESTED

;*PREPARE TO WRITE HEADER AND DATA CYLINDER 1,

;*fILL WRITE FROM BUFFER WITH HEADER

TRACK O, SECTOR O

S$122:

024376
024376

RHER?

004737

033314

JSR

PC,a#CLDISK

;SET R1-RHCST, R2-RHCSZ
;R3-RHDS1,

R&=RHER1

;GIVE RH=-11 INITIALIZE
sSETUP UNIT NUMBER
026402
024406
0246410
024412
024414
0246416
024420

004037
002370

033140

000004
010001
000000
000000
000000

JSR
WRFROM
&

RO,a#FLHEAD

10001

0
0

;SAVE HEADER DATA [N WRFROM
;LOCATION WHERE SAVED
:NUMBER OF WORDS SAVED
;FIRST

DATA WORD

;SECOND DATA WORD
;THIRD DATA WORD

¢FOURTH DATA WORD

;*FILL WRITE FROM BUFFER WITH DATA
024422
024426
024430
024432

004037
002400
000400
002000

033164

RO,8#CLAREA
JSR
WRFROMe¢<be2>
25%6.
2000

;CLEAR 256. WORDS, FROM WRFROM+<4e2>
;STARTING FROM WRFROMe<4e?>
:256. WORDS
JPILL WwiTh 2000

CIRJIDO, RPO4L/S5/6 FCTINL CTRLR2
CIRJID.PNY
28-MAR-79 08:52

MACYI1

;g;g

Y e

30A(1052)
25-MAY=79
10:48 PAGE 154
127
REGISTER MODIFICATION REFUSED = RHERIV(BIT #2),RMR

SEQ 0153

;eFILL COMMAND

7317
7318
7319
7320
7321
7322
7323
7324
7325

026434
024440
024447
024443
02444&

004037
000001
000
000
177664

024446

002370

WRFROM

7326

7327
7328

024450
024452

000000

7329
7330
733

024454

002344

WR1FOR

7334
7335
7336
;ggg

024456

004737

033374

JSR

PC,aNCHECKT

024462
024466

104401
000000

057465

TYPE
HALT

,CPHALT

7339
7340
7341
7342

024470

013777

004506

MoV

SMRPGVEC,ARPVEC ;SET RPO4& VECTOR ADDRESS
;70 *TIMEY' IF P-CLOCK 1S PRESENT
:OR TO 'TIME2' IF P-CLOCK 1S NOT THERE
;'TIME® WILL ONLY SAVE

7332
7333

035276

JSP
RO,a#RUN
1
BYTE
0
BYTE
O
-200.-4

010000

7347
7348

7349
73
7366
7367
;gog
6

7370

:D0 NOT

FM122

155470

7343
7344

7345
7366

:SETUP TO RUN FOR DATA COMMAND
;CYLINDER 1
;SECTOR 0
:TRACK O
;WORD COUNT (DATA) = 200. +
:4 HEADER WORDS
:BUS ADDRESS
;STARTING ADDRESS OF DATA
:BUFFER = WRFROM

INHIBIT BUS ADDRESS INCREMENT

:16 BITS PER WORD FORMAT
:DO NOT INHIBIT ECC CORRECTION

;DO NOT INHIBIT HEADER COMPARE
:GET READY TO DO A WRIFOR
:WRITE HEADER AND DATA WITH 62 IN RHCS!

:CHECKS DVA,RDY,MOL,DPR,DRY AND vV =
;AND THAT ALL STATUS BITS ARE = 0
; CANNOT CONTINUE TESTING IF NOT
:STOP TEST

; CURKENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS

024476
024502

013746
052716

002344
000101

MOV
BIS

SAWRIFOR,=-(SP)
#GC'1E, (SP)

PC,aNCHECKT

:CHECKS DVA,RDY,MOL,DPR,DRY AND Vv = 1

024530
024534

057465

104401
000000

TYPE
HALT

LCPHALT

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND

;ENABLF

INTERRUPT

;AND THAT ALL STATUS BITS ARE = 0
;CANNOT CONTINUE TESTING IF NOT
:STOP TEST

7371
7372
7373
7374

7375
7376
7377
7378
7379
7380
7381
7382
7383
7384
7385
7386
7387
7388
7389
7390
7391
7392
7393
7394
7395
7396
7397
7398
7399
7400
74601
7402
7403
74604
7405
76406
7407
7408
7409
7610
76411
76412
76413
76414
7415
76416
76417
76418
76419
7420
7621
7622
7642%
7424
7425
76426

024536
024542

004037
000000

033264

024544

013777

004506

MACYNY

155414

505;1052)

25-MAY-79

10:48

L 12
PAGE

155

SEQ 0154

JSR
0

RO,a#SEEKCY

; SEEK FOR
;CYLINDER 0

MOv

S#RPLVEC,8RPVEC

;SET RPO4& VECTOR ADDRESS
;70 "TIMEY' IF P-CLOCK IS PRESENT
;OR 10 'TIMEZ2' IF P-CLOCK IS NOT THERE
;'TIME' WILL ONLY SAVE

s CURRENT CYLINDER ADDRESS
;AND LOCK

024552
024556

013746
052716

002352
000101

MOV

Q#SEECOM,-(SP)

024562

012677

155412

MOov

(SP)+,aRHCS]

BIS

#GO!1t, (SP)

;GET

WAT
RHDS1
DRY
1534,
834.

1064413
002222
000200
002776
001502

READY

TO MOVE

C(OMMAND

sGEY READY TO SET GO AND
;ENABLE INTERRUPT
;G0 WITH
;& IN RHCS1 FOR SEEK
;WITH

024566
024570
024572
026574
024576

AHEAD REGISTERS

INTERRUPT

ENABLED

;WAIT FOR DRY BIT 10 SET
;WAIT FOR RHDS) REGISTER
;WAIT FOR DRY BIT IN RHDST1 REGISTER
;ALLOW 15340 MICRO SECONDS
;DRY MUST SET BETWEEN
;7000 AND 23680 MICRO SECONDS

. *PREPARE FOR A READ DATA

;eFILL WRITE FROM BUFFER WITH EXPECTED DATA FROM READ
024600
0264604
024606
024610

004037
002370

033164

024612
024616
024620
024622

004037
003044
000152
000077

033164

JSR

WRFROM

RO,9#CLAREA

150.
2000

000226
002000

;CLEAR 150. WORDS, FROM WRFROM

sSTARTING FROM WRFROM

:150. WORDS
SFILL WITH 2000

RO,8#CLAREA
JSR
WRFROM+<150.92>
106.
77

;CLEAR 106. WORDS, FROM WRFROM+<150,+2>
;STARTING FROM WRFROM+<150,¢2>
;106. WORDS
SFILL WITH 77

;*FILL READ INTO BUFFER WITH DATA OTHER THAN WHAT

024624
024630
026632
024634

004037
003434
000400
000077

033164

JSR

REINTO

004037
00000*
000
000

256.
77

;*FILL

024636
024642
024644
024645

RO.a#CLAREA

035276

]S EXPETTED

:CLEAR 256. WORDS, FROM REINTO
:STARTING FROM REINTO

:256. WORDS
SFPILL WlTw 77

READ DATA (OMMAND

JSR

RO ,a8#RUN

;SETUP TO RUN FOR DATA (OMMAND

BY'E
.BYTE

0
0

;SECTOR 0
JTRACK O

:CYLINDER

[an
N an]

CIRJJDO, RPO&L/S/6 FCINL CTRLR2
CZRJJD.PIY
28-MAR-79 08:52

]

CIRJJDO, RPO4L/S5/6 FCTNL CTRLR2
CZRJJD.PIY
28-MAR-79 08:52

MACYT1

m 12
30A(1052)
25-MAY-79
10:48 PAGE 156
127
REGISTER MODIFICATION REFUSED - RHER1(BIT #2) ,RMR

-150.

;WORD COUNT = 150.

7627
7428
7429
7630
76431
76432
7433
7434
7435
7636
7637
7438
7439
76440
74641
74642
76443

024646
024650

024660
024664
024666

004037
002172
004512

76445
7460
76461
;46%

024670

000022

024712
024716

013746
052716

002346
000101

MOv

O#READAT,-(SP)

;GET

024722

012677

155252

MOv

(SP)+ ,@RHCST

;60 WITH
;70 IN RHCS1

7444

)

7464

7465
7466
7467

177552
003434

REINTO

;BUFFER = REINTO

000000
014000

0
ECIIFMT2?

;DO NOT

024656

002346

READAT

;GET

JSR
RHW(
SAVERE

BIS

READY

TO DO A READAT

;READ DATA WITH 70 IN RHCSI

RO,a#SAVER

;SAVE REGISTERS
;RHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE

;THE REGISTERS ARE SAVED

#GO'!IE, (SP)

READY

TO MOVE

COMMAND

;GET READY 1O SET GO AND
;ENABLE INTERRUPT

FOR READ DATA

;WITH INTERRUPT ENABLED
004652
002006

MOv

7471
7472
7473
7674
7475

024736

010037

004652

MOv

7477
7478
7479
7480
7481

024742
024744
020746
024750
024752

MOov

a#TMPO,RO

;SET UP RO FOR WRITE

RO,a#TMPO

sREGISTERS DURING IMPLIED SEEK
;SAVE OFF
RO

#BIT1'BiT2!'BIT10,a(RO)+

7482

INHIBIT BUS ADDRESS INCREMENT
216 BITS PER WORD FORMAT

;INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE

17459

013700
012730

7676

DATA

;*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE
;*INTO A REGISTER WHILE THE READ IS GOING ON

0264726
024732

76468
;Agg

;BUS ADDRESS

;STARTING ADDRESS OF

024652
024654

033462

SEQ 0155

;*NOW RMR

IS SET BUT

;*WAITED ON

104413
002200
000200
002237
002237

THE

;ATTEMPT

COMPLETION OF

WAT
RHCST

;WAIT
;WAIT

1183.

;RDY MUST

RDY
1183.

TO WRITE

INTO

READ MUST BE

FOR RDY BIT TO SET
FOR RHCS1 REGISTER

;WAIT FOR RDY BIT IN RHCST1 REGISTER
;ALLOW 11830 MICRO SECONDS
SET BETWEEN

;00 AND 23660 MiCRO SECTONDS

7489
7490
74691
76492
7493
74694
7495
7496
7497
7498
74699
7500
7501
7502
7503
7504
7505
7506
7507
7508
7509
7510

7511

7512
7513
7514
7515
7516
7517
7518
7519
7520
7521
7522
7523
7524
7525
75¢6
7527
7528
7529
7530
7531

75%2
7533
7534
7535
7536

75%7

7538

127

25-MAY-79

10:48

N 12
PAGE

157

; *CHANGE SAVED REGISTERS 1O EXPECTED VALUE
024754
024760

004037
002234

024762
024764
024766

000001
000001
000001

024770
024774

004037
002200

024776

000001
000001

025000
025002

034204

JSR
RHCC

RO,a#CHREG

1
1

BITO

034204

JSR
RHCSH

100000

; CHANGE BITS IN SAVED REGISTER
; CHANGE RHCC REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF BITO IS 1

; CHANGE BITO BIT

RO,3#CHREG

:CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS1 REGISTER
;1

BIT/BITS

TO BE

;NEW VALUE OF

: CHANGE SC BIT

76487
7488

30A(1052)

[Vl

7483
76484
7485
7486

MACY11

CHANGED

025004
025010
025012

004037
002204
000001

033216

0253014
025020

004037
002222

034204

025022
025024
025026
025030
025032

000002
000001

2
1

;2 BIT/BITS 10 BE CHANGED
;NEW VALUE OF ATA IS 1

000001
040000

1
ERR

;NEW VALUE OF ERR
: CHANGE ERR BIT

025034

053737

JSR

RO,a#F ILLRE

;MOV

JSR
RHDS1

RO,9#CHREG

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS?! REGISTER

RHDST
1

ATA

100000

004644

004536

BIS

INTO SAVED RHDST

:SAVED REGISTER
;DATA

; CHANGE

TO CHANGE

ATA BIT

IS 1

SNATTENT ,@#SAVERE+24 ;SET APPROPIATE
;FOR WORKING DRIVE

‘'ATA' BITS

;SAVED RHAS LOCATION
034204

025042
025046

004037
002202

025050
025052
025054

000001
000001
000004

025056
025062
025064

004037
002174
004110

033216

025066
025072
025074

004037
002172
000000

033216

JSR

RHER1

RO,a¥(HREG

1
1
RMR

;CHANGE BITS IN SAVED REGISTER
;CHANGE RHER1

:1 BIT/BITS 10 BE CHANGED
;NEW VALUE OF RMR IS 1
:CHANGE RMR BIT

JSR

RO,9#FILLRE

MOV REINTO+<150.¢2> INTO SAVED RHBA

JSR

RO,a#F ILLRE

:MOV O INTO SAVED RHWC

RHBA
REINTD+<150.¢2>

SHUC

:SAVED REGISTER TO CHANGE
:DATA

;g:¥§0 REGISTER TO (HANGE

;*COMPARE REGISTERS BEFORE READ DATA WITH REGISTERS
;*AFTER READ AND ATTEMPTED MODIFICATION OF

025076

004037

034312

JSR

RO,9#COMREG

; COMPARE SAVED REGISTERS WlTH

SEQ 0156

CIRJJIDO, RPO4L/S5/6 FCINL CTRLR2
CIZRJJD.PY \
28-MAR-79 08:52

CIRJJD.P1Y

28-MAR-79 08:52

7539
7560

025102

004512

7542
7543

025106
025110

000022
025114

79641

;gzg

7546
7547

7548

7549
7550
7551
7552
7553
7554
7555
7556
7557
7558
7559

025104

025112
025114

025114

025116
025122
025126
025130
025132

013700
014037
104060
(€12600
000207

2%:

004652
001122

025134
025140
025142
025144

004037
002370
003434
025150

7570
7571
7572

025150
025152

104034
000207

75764
7975

025154

025160
025162

005337

004660

7568
7569

7573
7976

7577

025166

;PRESENT VALUE
:GOOD DATA SAVED

18.
2%

:18. REGISTERS TO BE COMPARED
:RETURN TO 2% ON ERROR

b1 3

010046

035342

025154

001002
000137

000137

mMov

MoV
MoV
ERROR
MoV
RTS

3%:

025172

024376

‘

$123:
1%:

RO,-(SP)

AN TMPO,RO
-(RO),a¥#$BDADR
60
(SP)+,RO
PC

JSR
WRFROM
REINTO
4%

RO,3#COMPAR

ERROR
RTS

34
PC

DEC

AN¥TMPS

JMP

IN ‘SAVERE'

:RETURN TO 3% ON NO ERROR

:*COMPARE DATA READ

BNE
JMP

SEQ 0157

;TEST DATA STARTING FROM ‘RMWC'

1%
15130

aNsST22

;:PUSH RO ON STACK

:GET REGISTER BEEING MODIFYED + 2 POINTER
;GET ADDRESS OF REGISTER BEING MODIFYED
AYTEHPT]NG TO MODIFY REGISTER
;POP STACK INTO RO
DURING A READ COMMAND CAUSED
: IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
:BE THERE
:RECEIVED DATA GIVES WHAT WAS
:THERE AFTER READ

:COMPARE TWO BLOCKS OF MEMORY
:GO0D DATA STARTS FROM WRFROM
:TEST DATA STARTS FROM REINTO
;4%, WORDS TO BE COMPARED

S123

4%:

10:48

SAVERE

025134

7562
7563
7564
7565

025146

127

B 13
PAGE 158
REGISTER MODIFICATION REFUSED - RMERI(BIT #2) ,RMR
25-MAY-79

025134

7566

SOA(IO‘Z)

002254

;gg?

7567

MACYIY

;RETURN TO ST23 ON ERROR
;RETURN TO ON NO ERROR

;:DATA READ WITH AN ATTEMPTED
:MODIFICATION OF REGISTER
:DURING READ CAUSED ERROR

; COUNT DOWN

;BRANCH IF 7 NOT DONE
:;JUMP TO NEXT TEST

:;JUMP T0 BEGINING OF TEST

CIRJIDO, RPO4L/S/6 FCTNL CTRLR2

MACYT

7578
7579
7580
7581
7582
7583
7584
7585
7586
7587
7588
7589

10-48

oY
ot
oY

A WRITE HEADER AND DATA COMMAND WiLL BE GIVEN TO
CYLINDER 1 SECTOR O TRACK O DATA WORDS
Of 070707

A WRITE DATA COMMAND WiLL BE GIVEN TO CYLINDER 1

BN
¥

AND & WORDS OF 2001. IMMEDIATELY AFTER GO
AN ATTEMPT WiLL BE MADE TO MODIFY A REGISTER
RMR BIT #2 IN RHER1 SHOULD SET
AFTER THE WRITE
BE CHECKED

1S COMPLETE ALL REGISTERS WILL

»
%
2

®e

SECTOR 0, TRACK 0, 256 WORDS OF 2000

THE DATA WRITTEN WILL BE READ BACK AND CHECKED

THIS WILL BE REPEATED FOR RMCS1, RMERY, RMDST,
RHERZ2, RHOF, RHCA, RHER3

':t't"""'""'"t"'l't""'""""'l"'."".'.tt"l""t"'

025172
025174
025200

000004
012706
012737

001000
000030

025206

004737

033314

15730:

SCOPE
Mov

#STACK,SP

;RESET

JSR

PC,aNCLDISK

;SET R1-RHCS1, R2-RH(S?

Mov

004504

#30,3¥TSTNM

7626
7627
7628
7629
7630
7631
7632
7633

STACK

:SAVE TEST NUMBER
:R3-RHDS1,

R&=RHERI1

;GIVE RH=11 INITIALIZE

025212
025220

;SETUP UNIT NUMBER
002200
000007

MOV
Mov

004652
004660

#RH(S] ,a#TMPO
#7,a8TMPS

;FILL REGISTER TO BE MODIFIED
;NUMBER OF REGISTERS TO BE

; *PREPARE TO WRITE HEADER AND DATA
ST264:

025226
025226

004737

033314

JSR

PC.aNCLDISK

;SET R1-RHCS1, R2-RH(S?2
:R3-RHDS1,

R&=RHERI

;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER

7620

7621
7622
7623
7624
7625

SEQ 0158

(BIT #2),'RMR'

—
b

7610
7611
7612
7613
7614
7615
7616
7617
7618
7619

;*TEST 30

7607
7608
7609

c13
PAGE 159
REGISTER MODIFITATION REFUSED - RHER1
25-MAY-79

:;.""""""""""""i'"""'"""'Q.'.l""""""""'

7590
7591
7592
7593
7594
7595
7596
7597
7598
7599
7600
7601
7602
7603
7604
7605
7606

30;61052)

;tFILL WRITE FROM BUFFER WITH HEADER
025232
025236
025240
025242
025244
025246
025250

00<037
002370
000004
010001
000000
000000
000000

033140

JSR
WRFROM
4
10001

0
0
0

RO,a#FLHEAD

;SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD

; SECOND DATA WORD
:THIRD DATA WORD
;FOURTH DATA WORD

;eFILL WRITE FROM BUFFER WiTH DATA

TCSTED

[an
N an]

CIRJJIDO, RPO4L/S5/6 FCTINL CTRLRZ
CIRJJD.PI
28-MAR-79 08:52

7634
7635
7636
7637
7638
7639

025252
025256
025260
025262

004C37
002400
000400
070707

MACY1T

JSR
RO,a#CLAREA
WRFROM+<4*2>
256,

033166

070707

7640
7641

7642
7643
7644
7645
7646
7647
7648
7649
7650
7651
7652
7653
7654
7655
7656
7657
7658
7659
7660
7661

7662
7663

D13
30A(1052)
25-MAY-79
10:48 PAGE 160
REGISTER MODIFICATION REFUSED - RHER1
130

025264
025270
025272
025274
025276
025300
025302

004037
003400
000004
010001
000001
000000
000000

JSR

033140

RO,3#FLHEAD

WRFROM+<260.¢2>
4
10001
1
0

025304
025310
025312
025314

004037
003420
000004
070707

033164

SFILL WITH 70707

;& WORDS

;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE

025316
025322

004037
000001

025325

000

JSR
1

035276

RO,a#RUN

025332
025334

000000
010000

7674
7675
7676
7677

025336

002344

WRIFOR

;6;3

025340

004737

033374

JSR

PC,aNCHECKT

7680
7681

025344
025350

104401
000000

057465

TYPE
HALT

. CPHALT

7683

025352

013777

004506

MOv

Q#RPLVEC,QRPVEC

025324

000

;SECTOR O
;TRACK 0
;WORD COUNT

:BUS ADDRESS

(DATA) = 264,

HEADER WORDS

¢+

)

;STARTING ADDRESS OF DATA
;BUFFER = WRFROM
;00 NOT INHIB!T BUS ADDRESS INCREMENT

FMT22

154606

FILLED

:SETUP TO RUN FOR DATA (OMMAND
;CYUINDER 1

WRFROM

7684
7685
7686
7687
7688
7689

SAVED

70707

002370

7682

;LOCATION WHERE
;NUMBER OF WORDS SAVED
;FIRST DATA WORD

;CLEAR & WORDS, FROM WRFROM+<268.+2>
;STARTING FROM WRFROM+<268.¢2>

025330

:SAVE HEADER DATA IN WRFROM+<260.+2>

JSR
RO,a#CLAREA
WRFROM+<268.+2>

7667
7668
7669
7670
7671

7672
7673

;FILL WITH 070707

;*FILL WRITE FROM BUFFER WITH WITH NEXT SECTOR DATA

177364

7666

:256. WORDS

;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD

025326

7665

;CLEAR 256. WORDS, FROM WRFROM+<6&#2>
;STARTING FROM WRFROM¢<&e2>

;*FILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER

.BYTE
O
.BYTE
0
=264 .-4

7666

SEQ 0159

(BIT #2),'RMR'

;16 BITS PER WORD FORMAT

;00 NOT INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE

,GET READY TO DO A WR!FOR
;WRITE HEADER AND DATA WITH 62 IN RH(SI

; CHECKS DVA,RDY,MOL,DPR,DRY AND vV = 1

;AND THAT ALL STATUS BITS ARE = 0
s CANNOT CONTINUE TESTING IF NOT
;STOP TEST

;SET RPO4 VECTOR ADDRESS

;70

"TIMEY'

P=-CLOCK

1S PRESENT

;OR TO 'TIMEZ' IF P-CLOCK ]S NOT THERE
;'TIME® WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS
;AND LOOK

AHEAD REGISTERS

CIRJJDO, RPOL/S/6 FCINL CTRLR2
CZRJJD.P
28-MAR-79 08:52

CIRJJDO, RPO4/S/6 FCINL CTRLR2
P11
CIRJJD.P
28-MAR-79 08:52
7690
7691
7692
7693
7694
7695
7696
7697
7598
7699
7700
7701
7702
7703
7704
7705
7706
7707
7708
7709
7710
71
7712
7713
7714
7715
7716
77
7718
7719
7720
7721
7722
7723
7724
7725

7726
7727
7728
7729
7730
7731
7732
7733
7734
7735
7736
7737
7738
7739
7740
7741
7742
7743
7744
7745

MACYW

E 13
10:48 PAGE 161

30A(1052)
25=MAY=79
REGISTER MODIFICATION REFUSED - RHER1
130

025360
025364

013746
052716

002344
000101

MOV

J#WRIFOR,=(SP)

025370

012677

154604

MOov

(SP)+ ,@RHCST

BIS

#GO!IE, (SP)

;GET READY

(BIT #2),'RMR'

TO MOVE

COMMAND

sGET READY TO SET GO AND

;ENABLE INTERRUPT
;60 WITH

;62 IN RHCS1 FOR WRITE HEADER AND DATA

;WITH

INTERRUPT

ENABLED

;*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR=760 MICRO SEC
025374
025376
025400
025402
025404

1064413
002200
000200
001725
001502

WAT
RHCS
RDY

;WAIT
:WAIT
;WAIT

834.

;RDY MUST SET BETWEEN
;16470 AND 18150 MICRO SECONDS

981.

FOR RDY BIT T0 SET
FOR RHCS) REGISTER
FOR RDY BIT IN RH(S1

;ALLOW 9810 MICRO SECONDS

; *NOW PREPARE FOR THE WRITE DATA COMMAND

;*FILL WRITE FROM BUFFER WITH 256 OF 2000 AND 4 OF 2001
025406
025412
025414
025416

004037
002370
000400
002000

033164

025420
025424
025426
025430

004037
003370
000004
002001

033164

JSR

WRFROM

RO,9#CLAREA

256,
2000

;CLEAR 256. WORDS,

FROM WRFROM

;STARTING FROM WRFROM

:256. WORDS
SFILL WITH 2000

JSR
RO,3#CLAREA
WRFROM+<256.¢2>
&

;CLEAR & WORDS, FROM WRFROM+<256.¢2>
;STARTING FROM WRFROM+<256.¢2>

;4 WORDS

;FILL WITH 2001

2001

stFILL WRITE DATA COMMAND
JSR
1

RO,3#RUN

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 1

025432
025436
025440
025441
025442
025444

004037
000001
000
000

002370

WRFROM

025646
025450

000000
010000

;STARTING ADDRESS OF DATA
;BUFFER = WRFROM
;00 NOT INHIBIT BUS ADDRESS INCREMENT

025452

002342

WRIDAT

;D0 NOT INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
GET READY 10O DO A WRIDAT

035276

BYTE
.BYTE

-256.

177400

0
0

;SECTOR 0
;TRACK 0

;WORD COUNT = 256.
;BUS ADDRESS

FMT22

;16 BITS PER WORD FORMAT

;WRITE DATA WITH 60 IN RHCS!

;*SAVE REGISTERS FOR (OMPARISON AFTER ATTEMPTED
025454
025460
025462

004037
002172
004512

033462

;*REGISTER MODIFICATION DURING A WRITE DATA

JSR
RHW(
SAVERE

RO,a#SAVER

: SAVE REGISTERS
;RHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE

SEQ 0160

C(IRJJD.PIY
7746
7747

28-MAR-79 08:52

MACYTY

30A(1052)

130

25-MAY-79

10:48

13
PAGE

00002¢

7750
7751
7752
;;22

025466

004737

033374

JSR

PC,aNCHECKT

025472
025476

104401
000000

057465

TYPE
HALT

LCPHALT

7755

025500

013777

004506

MOv

#RPLVEC,@RPVEC

7756
7757
7758

7759
7760
7761
7762
7763
7764
7765

18.

154460

; CHECKS DVA,RDY,MOL,DPR,DRY AND vV =
;AND THAT ALL STATUS BITS ARE = 0
;CANNOT CONTINUE TESTING If NOT
:STOP TEST

;10 "TIMEY' IF P-CLOCK IS PRESENT
;OR TO "TIMEZ2' IF P-CLOCK IS NOT THERE
;'TIME® WILL ONLY SAVE
;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

002342
000101

MOV
BIS

9NWRIDAT -(SP)
#GO1E, (SP)

7766
7767
;;bg

025516

012677

154456

MOv

(SP)+,aRH(ST

7770
7771
7772
;;;3

025522
025526

013700
012730

004652
002002

MOov
Mov

af TMPO,RO
#BIT1!BIT10,a(RO)

025532

010037

004652

MOV

RO,a#TMPO

7775
7776

777
7778

7779

7780
7781
7782
7783
7;22

025536

025540
025542
025544
025546

104«13
002200
000200
001725
001502

WAT

025550
025554

004037
00223«

7791

025556

000001

7795
7796

025564
025570

004037
002200

7798
7799
7800

025572
025574
025576

000001
000001
100000

7797

7801

;SET RO TO REG ADDRESS
ATTEMPT TO WRITE INTO A REGISTER
;DURING WRITE DATA
;SAVE OFF NEW REG ADDRESS

;WAIT FOR RH(CS! REGISTER
;WAIT FOR RDY BIT IN RHCS! REGISTER
;ALLOW 9810 MICRO SECONDS
;RDY MUST SET BETWEEN
;1470 AND 18150 MICRO SECONDS

; *CHANGE SAVED REGISTERS TO EXPECTED VALUE

7788
7;88

7792
;;35

;G0 WITH
.
;60 IN RHCS! FOR WRITE DATA
;WITH INTERRUPT ENABLED

;WAIT FOR RDY BIT TO SET

RH(SI
RDY
981.
83¢4.

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;ENABLE INTERRUPT

;*NOW RMR MUST BE SET BUT THE COMPLETION OF
;*WRITE DATA MUST BE WAITED ON

7;23
7

;SET RPC4 VECTOR ADDRESS

013746
052716

[

SEQ 0161

;SAVED = 18.

025506
025512

(BIT #2),'RMR’

:THE REGISTERS ARE SAVED
;NUMBER OF REGISTERS

025464

;;Zg

162

025560
025562

034204

JSR
RHCC

RO,3#CHREG

000001
000001

;1 BIT/BITS 10 BE CHANGED

\
BIT0
034204

JSR
RHCST

1
|
SC

;CHANGE BITS [N SAVED REGISTER
; CHANGE RHCC REGISTER

;NEW VALUE OF BITO IS 1
; CHANGE BITO BIT
RO,3#(HREG

;CHANGE BITS IN SAVED REGISTEFR
; CHANGE RHCS1 REGISTER

;1 BIT/BITS 10 BE C(HANGED
;NEW VALUE OF SC IS 1
; CHANGE SC BI7

[anNanl

CIRJID0O, RPOL/S/6 FCTINL CTRLR2

CIRJJDD . RPO&/ 5/6 FCINL (TR LR2
P
CZRJJD.P
28-MAR-79 08:52
7802
7803
7804
7805
7806
7807
7808
7809
7810

7811
7812
7813
7814
7815
7816
7817
7818
7819
7820
7821
7822

7823
7824
7825
7826
7827
7828
7829
7830
7831
7832
7833

7834
7835
7836
7837

7838
7839

7840
7841
7842
7843
7844

7845
7846
784/
7848
7849
7850
7851
7852

7853
7854
7855
7856

7857

025600
025604

004037
002222

025606
025610
025612
025614
025616

000002
000001

025620

053737

MACY11

30A(1052)
130

25-MAY-79

JSR

034204

RHDSI

RO,a¥#(HREG

000001
040000

004644

:CHANGE RMDST REGISTER
;2 B11/8171S 10 BE

ERR

s CHANGE ERR BIT

B1S

004536

#2),°RMR'

;CHANGE BITS IN SAVED REGISTER

1
ATA
|

100000

(BIT

:NEW VALUE OF ATA
;CHANGE ATA BIT
;NEW VALUE OF ERR

(HANGED
]S

SNATTENT ,@NSAVERE+24 :SET APPROPIATE
;FOR WORKING DRIVE

'ATA' BITS

:SAVED RMAS LOCATION
034204

JSR

RO,3NCHREG

;CHANGE BITS

IN SAVED REGISTER

025626
025632

004037
002202

025634
025636
025640

000001
000001
000004

025642
025646
025650

004037
00220¢
000001

033216

JSR

RO,3#F ILLRE

;MOV 1

025652
025656

033216

JSR

PO.a#FILLRE

;MOV WRFROM+<256.#2>

025660

004037
002174
003370

025662
025666
025670

004037
002172
000000

033216

JSR

RO,a#F ILLRE

MOV O INTO SAVED RHW(

RHERT
1
1
RMR

RHDST
1

:1 B11/B1TS 10 BE
sNEW VALUE OF RMR
; CHANGE RMR BIT

RHBA
WRFROM+<256.¢2>

SHUC

;CHANGE RHER!1

C(HANGED
IS 1

INTO SAVED RHDST

;SAVED REGISTER TO CHANGE
;:DATA

:SAVED REGISTER
;:DATA

;SA¥ED REGISTER

;DATA

INTO SAVED RHBA

TO (MHANGE

TO (CMANGE

; *COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS
;*AFTER WRITE

025672

004037

025676
025700
025702
025704
025706

00512
002254
000022
025710
025730

010046
013700

014037
104060

012600
000207

JSR

034312

AND ATTEMPTED MODIFICATION OF

RO,3#COMREG

;COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM °‘RHW('
;18. REGISTERS 70 BE COMPARED
;RETURN TO 2% ON ERROR
:RETURN TO 3% ON NO ERROR

RO,=(SP)
a#TMPO,RO
-(R0),3#$BDADR

:;PUSH RO ON STACK
;GET REGISTER BEEING MODIFYED ¢+ 2 POINTER
;GET ADDRESS OF REGISTER BEING MODIFYED

SAVERE
w(
18.
2%
3%
2%:

004652
001122

Mov
Mov
Mov

ERROR
MOV
RTS

60
(SP)+,RO
PC

;ATTEMPTING TO MODIFY REGISTER
:;POP STACK INTO RO
;DURING A WRITE COMMAND CAUSED
; IMPROPER REGISTER GIVES WHAT SHOULD
;600D DATA GIVES WHAT SHOULD

SEQ 0162

(ala)

G 13
10:48 PAGE 163

7858
7859
7860
7861
7862
7863
7864
7865
7866
7867
7868
7869
7870
7871
7872
7873
7874
7875
7876
7877
7878
7879
7880
7881
7882
7883
7884

7885

7886

7887

7888

7889
7890

7891
7892
7893
7894
7895
7896
7897
7898
7899
7900
7901
7902

7903
7904
7905
7906
7907
7908
7909
7910
7911
7912

7913

MACY1T

H 13
30A(1052)
25-MAY=79
10:48 PAGE 164
REGISTER MODIFICATION REFUSED - RHER1
130

(BIT #2),'RMR'

;BE THERE
;RECEIVED DATA GIVES WHAT WAS
1%:

025730
025730

004737

033314

;*CLEAR ALL ERROR FLAGS

JSR

PC.,a#CLDISK

;THERE

AFTER READ

;SET R1-RHCS1, R2-RH(S?2
;R3-R4DST, R4=RHERI
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA
025734
025740
025742
025744

006037
002370
000400
002000

033164

025746
025752
025754
025756

004037
003370

033164

JSR

WRFROM

RO,aNCLAREA

256.
2000

JSR

RO,a#CLAREA

WRFROM+<2506.¢2>

004037
000001

035276

000
000
177374
003434

JSR
1
BYTE
.BYTE
=260,

:STARTING FROM WRFROM+<256.¢2>

SEILL WITH 2001
READ DATA COMMAND WILL BE

RO,3#RUN

FILLED

;SETUP TO RUN FOR DATA (OMMAND
sCYLINDER 1
;SECTOR O
:TRACK O
;WORD COUNT = 260.

0
0

REINTO

;BUS ADDRESS
;STARTING ADDRESS OF

025774
025776

000000
014000

0
ECI!FMT2?

026000

002346

READAT

026002
026006
C26010

004037
002172
004512

026012

000022

026014

004737

033374

JSR

PC,a#(HECKT

026020
026024

104401

057465

TYPE
HALT

LCPHALT

000000

033462

:CLEAR & WORDS, FROM WRFROM+<?256.+2>
;4 WORDS

2001
:*NOW THE

025760
025764
025766
025767
025770
025772

:STARTING FROM WRFROM

;256. WORDS
SFILL WITH 2000

000004
002001

:CLEAR 256. WORDS, FROM WRFROM

DATA

;BUFFER = REINTO
;00 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE

;GET READY TO DO A READAT
;READ DATA WITH 70 IN RHCS!

;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA (OMMAND
JSR
RO,a#SAVER
;SAVE REGISTERS

RHW(

;RHWC

SAVERE

[S THE

FIRST REGISTER SAVED

;STARTING ADDRES OF WHERE
:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS

18.

:SAVED = 18,

Y AND vV - 1
MOL ,DPR,DRY
:CHECKS DVA,RD
;AND THAT ALL STATUS BITS ARE - O
;CANNOT CONTINUE TESTING IF NOT
;ST0P TEST

SEQ 0163

CIRJJDO, RPO&L/5/6 FCINL CTRLRZ
CIRJJD P
28-MAR-79 08:52

026026

013777

004506

113

30A(1052)
25-MAY-79
10:48 PAGE 165
REGISTER MODIFICATION REFUSED - RHER1
130

154132

Mov

I¥RP4LVEC,BRPVEC

002346

Mov

S¥READAT,-(SP)

7925
7926
7927
7928
7929
7930

026064

012677

154130

Mov

(SP)+ , 3RH(ST

026050
026052

MOV
MOV

aR1,RO
aR3,R5

7932
7933
7934
7935
7936
7937
7938

026056
026056
026060
026062
026064

104613
002200
000200

7931

7939
7940
7941

001405
010037
010137

7952
7953
7954

026120
026126
026130

012746
011637
022605

7957
7958
7959

026132
02613¢
026140
026'44

001405
010537
010337
106063

7961

026146

7962
7963
7964

7965
7966

7967

7968
7969

IS NOT

SAVE

THERE

026116

104021

010500
001124

;60 WITH
;70 IN RHCS1 FOR READ DATA
;WITH INTERRUPT ENABLED

; SAVE RH(CS1
:SAVE RHDS1
;WAIT
;WAIT

FOR RDY BIT 10 SET
FOR RHCS1 REGISTER

;WAIT FOR RDY BIT IN RH(CS1 REGISTER
;ALLOW 9810 MICRO SECONDS
¢RDY MUST SET RETWEEN
;1470 AND 18150 MICRO SECONDS
RHCSY!

IMMEDIATELY

AND RHDS1

AFTER GO

ALREADY SAVED

ISSUED

Mov
(mp

(SP) ,a#SGDDAT
(SP)+,RO

:SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY

IE!DVA!GO

708

;AND COMMAND SHOULD BE SET
:BRANCH 1f GOOD

R1,3#REGADR
21

;FAILING REGISTER RH(CS)
:DURING ABOVE OPERATION ONLY

026156

000000

033216

IE'!DVA.GO

:BAD DATA

MOV

RO,a#$BDDAT

MOV

; COMMAND AND JE'DVA!GO SHOULD BE SET
#MOL !DPR.VV,=(SP)
:SAVE BITS SET DURING OPERATION IN RHDSI

(mMp

(SP)+,RS

Mov

8ea

MOV

MOv
ERROR

(SP) ,a#$GDDAT

72%

RS,a#SBDDAT

R3,3#REGADR
63

728

004037
002172

COMMAND

#1E'DVA!GO,
(SP) ;INCLUDE

:SAVE

FOR PRINTOUT

;DURING ABOVE OPERATION ONLY MOL'!DPR.VV

: SHOULD BE

;BRANCH IF
:BAD DATA

SET

GOOD

;FAILING REGISTER RHDS!
;DURING ABOVE OPERATION ONLY
;MOL!DPR!VV SHOULD BE SET

; *NOW C(HANGE SAVED REGISTERS TO EXPECTED VALUES
026146
026152

OPERATION
OPERATION

;SAVE

Mov
ERROR

001126
004500

DURING ABOVE
DURING ABOVE

I¥READAT,=(SP)

BEQ

708:

COMMAND

Mov

BIS

001126
004500

TO MOVE

;ENABLE INTERRUPT

RDY
981.
834.

002346
004101
001124

READY

;GET READY TO SET GO AND

WA
RHCST

;*RO AND RS

026106
026106
026112

;GET

#GO!IE, (SP)

; *COMPARE CONTENTS OF
013746
052716
011637
022600

7960

BIS

001725
001502

026066
026072
026076
026102

7955
7956

000101

N —

—

052716

—

026040

7942
7943
7944
7945
7946
7947
7948
7949

7950

IF P=CLOCK

WILL ONLY

; CURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS
013746

;SET RPO4 VECTOR ADDRESS
;10 "TIMEY' IF P=CLOCX IS PRESENT
;'TIME'

026034

;ggs

SEQ 0164

(BIT #2),'RMR’

;OR TO 'TIME2'

7914
7915
7916
7917
7918
7919
7920
7921
7922

MACY11

JSR

RHW(
0

RO,a#FILLRE

;MOV O INTO SAVED RHW(

;3:¥ED REGISTER TO (HANGE
:

CIZRJJDO, RPOL/S5/6 FCTINL CTRLRZ
(ZRJJD.PNN
28-MAR-79 08:52

7970
7971
7972
7973
7974
7975
7976
7977
7978
7979
7980
7981
7982
7983
7984
7985
7986
7987
7988
7989
7990
7991
7992
7993
7994
7995
7996
7997
7998
7999
8000
8001
8002

8003
8004
8005
8006
8007
8008
8009
8010
8011
8012
8013
8014
8015
8016
8017

026156
026162
026164

004037
002174
004444

033216

026166

004037
002204
000002

033216

026172
026174

MACYN

30A(1052)
25-MAY-79
10:48 PAGE 166
REGISTER MODIFICATION REFUSED - RHER1
130
JSR

RHBA

a#F ILLRF
RO,

REINTO+<260.¢2>

JSR

SHDSY

RO,9#F ILLRE

(BIT #2),'RMR’

;MOV REINTO0+<260.+2> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE
:DATA

;MOV 2 INTO SAVED RHDST
:SA¥ED REGISTER TO CHANGE
;DATA

;*NOW COMPARE REGISTERS BEFORE READ DATA WITH
;*AFTER COMMAND
026176

004037

026202
026204
026206
026210
026212

004512
002254
000022
026214
026220

026214
026216

104033
000207

034312

JSR

RO,a#COMREG

ERROR
RTS

;PRESENT

VALUE

:GOOD DATA SAVED IN 'SAVERE'

SAVERE

; COMPARE SAVED REGISTERS WITH
;TEST DATA STARTING FROM 'RHW('
:18. REGISTERS TO BE COMPARED
;RETURN T0 4% ON ERROR
;RETURN 10 5% ON NO ERROR

;READ DATA CAUSED
: CHANGE

IMPROPER REGISTER

;600D DATA GIVES WHAT SHOULD BE THERE
;RECEIVED DATA GIVES WHAT WAS THERE AFTER (OMMAND
:*NOW READ INTO BUFFER WiLL BE CHECKED TO SEE THAT READ

. *WAS

GOOD

5¢%:

026220
026220
026224
026226
026230
026232
026234

004037
002370
003434
000400
026236
026242

026236

1064034

026240

000207

026242
026246
026250
026254

005337
001002
000137
000137

JSR

035342

WRFROM
REINTO

RO,a#COMPAR

TEST

004660

S128:

026260
025226

1%:

DATA STARTS

FRCM REINTO

:256., WORDS TO BE COMPARED
;RETURN TO 6% ON ERROR

256.
6%
5128

6%:

;COMPARE TWO BLOCKS OF MEMORY
:GOOD DATA STARTS FROM WRFROM

;RETURN TO ST28 ON NO ERROR

;READ DATA ERROR AFTER A WRITE DATA
;WITH REGISTER MODIFICATION
;WITHIN THE WRITE DATA
;vlF ALL 7 REGISTERS NOT COMPLETE THEN REPEA1
aNTMPS
DEC
: COUNT DOWN
1%
BNE
;BRANCH 1F 7 NOT DONE
15131
JMP
;JUMP TO NEXT TEST
S124
JMP
;JUMP T0 BEGINING OF TEST
ERROR

SEQ 0165

CIRJJDO, RPO4L/S5/6 FCTINL CTRLR2
CZRJJD.PIN
28-MAR-79 08:52

8018
8019
8020
8021
8022
8023
8024
8025
8026
8027
8028
8029
8030
8031
8032
8033
8034
8035
8036
8037
8038
8039
8040
80¢1
8042
8043
8044
8045
8046
8047
8048
8049
8050
8051
8052
8053
8054
8055
8056
8057
8058
8059
8060
8061
8062
8063
8064
8065
8066
8067
8068
8069
8070
8071
8072
8073

MACY11

K 13
30A(1052)
25-MAY-79
10:48 PAGE 167
130
REGISTER MODIFICATION REFUSED - RHERY
SR 222222222

SeTEST 31
o
o
it
S

026260
026262
026266

000004
012706
012737

001000
000031

026274

004737

033314

RRRRRRRRRRlldd]

(BIT #2)RMR

A READ DATA COMMAND 1S GIVEN TO CYLINDER O, SECTOR O
TRACK O. IMMEDIATELY AFTER GO RHAS 1S WRITTEN INTO
WITH ALL ONES RMR BIT #2 IN RHER SHOULS NOT SET
2Z2222222222222

1S131:
004504

(BIT #2),'RMR’

SCOPE

2222222222222

dRRARRRRRRRRRRRRRRRRAAA)

MOV

#STACK,SP

JRESET

JSR

PC,aN#CLDISK

:SET R1-RH(S1, R2-RHCSZ
;R3-RHDS1, R&4&-RHER!
:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

Mov

#31,a#TSTNM

;SAVE

STACK

TEST NUMBER

;vFILL WRITE FROM BUFFER WITH EXPECTED DATA
026300
026304
026306
026310

004037
002370

033164

JSR

WRFROM

RO,a#CLAREA

256.
0

000400
000000

;CLEAR 256. WORDS, FROM WRFROM
;STARTING FROM WRFROM

;256. WORDS
SPILL WITH O

s*FILL READ INTM BUFFER WITH ALL ONES
026312
026316
026320
026322

004037
003434
000400

033164

JSR

REINTO

RO,a#CLAREA

256.

SFILL WITH =1

:*NOW THE

JSR

;STARTING FROM REINTO

;256. WORDS

177777

:CLEAR 256. WORDS, FROM RFINTO

READ DATA COMMAND WILL BE

RO.3#RUN

FILLED

;SETUP T0 RUN FOR DATA (OMMAND

026324
026330
026332
026333
026334
026336

004037

026340
026342

000000
014000

0
ECI'FMT2?

026344

002346

READAT

026346
026352
026354

004037
002172
006512

;*NOW SAVE REGISTERS FOR (OMPARISON AFTER READ DATA (CMMAND
JSR
RO,a#SAVER
;SAVE REGISTERS
RHW(
:RHWC 1S THE FIRST REGISTER SAVED
SAVERE
;STARTING ADDRES OF WHERE

026356

000022

000000
000
000
177400
003434

035276

0
BYTE
BYTE
=256.

0
O

REINTO

033462

18.

;CYLINDER O
;SECTOR 0
;TRACK 0
;WORD COUNT = 256.
:BUS ADDRESS

;STARTING ADDRESS OF DATA
;BUFFER = REINTO
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
:INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
.GET READY 10 DO A READAT

;READ DATA WITH 70 IN RHCSI

;THE

REGISTERS

:NUMBER OF

ARE

SAVED

REGISTERS

;SAVED = 18,

SEQ 0166

(e Nen]

CIRJJIDO, RPO4L/S/6 FCTINL CTRLR2
CIRJJD.PY \
28-MAR-79 08:52

8074
8075
8076
8077
8078

8079
8080
8081
8082
8083
8084
8085
8086
8087
8088
8089
8090
8091
8092
8093
8094
8095
8096
8097
8098
8099
8100
8101

VO NOC VB NN —=OO0®NOWVNE
W
=000

—

il s

D e

i Al

PNINUPRUNINUPONUPONIN)
4 bt b it ed 2 s s = O O

nd el

O 0o G Op 0D OB OB OO OO 0o OB O OB GO 0o O GO G Co OO O OO

8102
8103

MACY11

L 13

30A(1052)
25-MAY-79
10:48 PAGE 168
REGISTER MODIFICATION REFUSED = RHER1
131

026360

004737

033374

JSR

PC.a#CHECKT

026364
026370

104401
000000

057465

TYPE
HALT

LCPHALT

026372

013777

004506

MOov

@#RPLVEC,RPVEC

153566

(BIT

SEQ 0167

#2)RMR

;CHECKS DVA,RDY MOL,DPR,DRY AND vV =

;AND THAT ALL STATUS BITS ARE = 0
s CANNOT CONTINUE TESTING IF NOT
;STOP TEST
;SET RPO4 VECTOR ADDRESS
;70 'TIMEY' IF P=CLOCK IS PRESENT

;OR TO 'TIME2'
;"TIME'

IF P-CLOCK

WILL ONLY

SAVE

IS NOT

THERE

; CURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS

026400
026404

013746
052716

002346
000101

MOV

9#READAT,-(SP)

026410

012677

153564

Mov

(SP)+,3RHCST

026414
026416

011100
011305

026420

012777

177777

BIS

153570

#GO!1E, (SP)

026426
026430
026432
026434
026436

aR1,R0
aR3,RS

Mov

#-1,3RHAS

10 MOVE

;ENABLE INTERRUPT
;G0 WITH

;70 IN RHCS1 FOR READ DATA
INTERRUPT

;WRITE

INTO RHAS

sNOT SET RMR

026456
026460
026464
026470

001405
010037
010137
104021

026472
026476
026502

012746
011637
022605

026504
026506
026512

001405
010537
010337

002346
004101
001124

]MPORTANT

;16250 AND 18750 MICRO SECONDS

0 ?500
00112¢

001126
004500

AFTER GO IS

ALREADY SAVED IN

1SSUED

S#READAT ,-(SP)

;SAVE

MOV

(SP) ,a#SGDDAT

:SAVE FOR PRINTOUT

CMP

COMMAND

W1E'DVA!GO,
(SP) ;INCLUDE

IE!DVA!GO

(SP)+,RO

;DURING ABOVE OPERATION ONLY

BEQ
MOV

649
RO ,a¥SBDDAT

;BRANCH If
;BAD DATA

MOv

#MOL ! DPR!vVV,=(SP)

(mp

(SP)+.RS

MoV
ERROR
64%:

IMMEDIATELY

MOV

BIS

001126
004500

THIS SHOULD

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
:WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 17500 MICRO SECONDS
<RDY MUST SET BETWEEN

:*RO AND RS

013746
052716
011637
022600

ENABLED

DURING ABOVE OPERATION
DURING ABOVE OPERATION

;*COMPARE CONTENTS OF RM(CS1 AND RHDS1
026440
026444
026450
026454

COMMAND

TO SET GO AND

s SAVE RH(CS1
;SAVE RHDS1

WAT
RHCST
RDY
1750.
125.

10464613
002200
000200
003326
000175

READY

;GET READY

;WITH

MoV
Mov

;*TIME IS NOT

;GET

MOV

R1,a#REGADR
21
(SP) ,3#%GDDAT

;AND COMMAND SHOULD BE SET

IE:DVA.GO

GOOD

;FAILING REGISTER RHCS1
;DURING ABOVE OPERATION ONLY
. COMMAND AND IE!DVA!GO SHOULD BE SET

;SAVE B1TS SET DURING OPERATION IN RHDS!

:SAVE FOR PRINTOUT

BEQ

669

;DURING ABOVE OPERATION ONLY MOL.DPR.vV
: SHOULD BE SET
;BRANCH IF GOOD

MOV

R3,a#REGADR

;FAILING REGISTER RHDSI

MOV

RS,a#$BDDAT

;BAD DATA

~ e

CIRJJDO, RPO&L/5/6 FCTNL CTRLR 2
28-MAR-79 08:52
CIRJID P

CIRJJDO , RPO4&/ 5/6 FCINL CIR LR2
P
Y
CIRIJD.PI
28-MAR-79 08:52
8130
8131
8132
8133
8134
8135
8136
8137
8138
8139
8140

026516

ERROR

; *NOW CHANGE

033216

8141
8142

026530
026534
026536

004037
002174
0046434

033216

8146
8147
8148
8149
8150
8151
8152

026540
026544
0265646

004037
002204

033216

026550
026554
026556

004037
002234

033216

©Oo OB G O O 0o O Co Oo OB OO

8159
8160
8161
8162
8163
8164
8165
8166
8167
8168
8169
8170

ol
ol cand
D
—r

[ ]
o

—

175

;DURING ABOVE OPERATION ONLY
;MOL!DPR!VV SHOULD BE

RO,a#FILLRE

;MOV O INTO SAVED RHWC

JSR

RO,a#FILLRE

MOV REINTO0+<256.¢2> INTO SAVED RHBA

JSR

RO,d#FILLRE

;MOV 1

RHDST
1

JSR

SHCC

000000

SET

SAVED REGISTERS TO EXPECTED VALUES

RHBA
REINT0+<256.¢2>

000001

(BIT #2)RMR

JSR

RHW(
0

;SAVED REGISTER TO CHANGE
:DATA

:SAVED REGISTER TO CHANGE
;:DATA

INTO SAVED RHDST

:SAVED REGISTER TO (HANGE
;DATA

RO,a#fF ILLRE

:MOV O INTO SAVED RHCC

:SA¥ED REGISTER TO (MHANGE

;DATA

;*NOW COMPARE REGISTERS BEFORE READ DATA WITH
;tAFTER COMMAND

8156

8157
8158

66$%:

026520

004037
902172
000000

8153
8156
8155

M3
30A(1052)
25-MAY-79
10:48 PAGE 169
REGISTER MODIFICATION REFUSED - RHER1
3

106063

026520
026524
026526

8143
8144
8145

MACY11

026560

004037

026564
026566
026570
026572
026574

006512
002254
000022
026576
026602

026576
026600

104033
000207

1%:

004037
02370
003434

026620

104034

SAVERE
w(

;PRESENT VALUE
;600D DATA SAVED IN °'SAVERE'
;TEST DATA STARTING FROM ‘RHW('

;RETURN T0 2% ON NO ERROR

ERROR
RTS

. *WAS

JSR

035342

WRFROM
REINTO

;18. REGISTERS TO BE COMPARED
;RETURN TO 1% ON ERROR

;READ DATA CAUSED
: CHANGE

IMPROPER REGISTER

600D

RO,a#COMPAR

256,
b33

000400
026620
026624

000207

. COMPARE SAVED REGISTERS WITH

;600D DATA GIVES WHAT SHOULD BE THERE
;RECEIVED DATA GIVES WHAT WAS THERE AFTER C(OMMAND
;*NOW READ INTO BUFFER WiLL BE CHECKED 70 SEE THAT READ

2%:

026602
026606
026610
026612
026614
026616

RO,a#COMREG

18.
1%

026602

026622

JSR

034312

ERROR
RTS

:GOOD DATA STARTS FROM WRFROM
:TEST DATA STARTS FROM REINTO

:256., WORDS 10O BE COMPARED
;RETURN TO 3% ON ERROR

4
3¢:

;COMPARE TWwO BLOCKS OF MEMORY

:RETURN T0 4% ON NO ERROR

:READ DATA ERROR AFTER WRITING IN'O
;RHAS DURINu READ

SEQ 0168

(ala)

—

8186
8187

026624

MACY11

N 13
30A(1052)
25-MAY=-79
10:48 PAGE 170
REGISTER MODIFICATION REFUSED - RHER]
TM
0%:

(BIT #2)RMR

SEQ 0169

CIRJJDO, RPOL/5/6 FCINL CTRLRZ2
CZRJJD.PVY
28-MAR-70 08:52

8217

8218
8219
8220
8221
8222
8223
8224
8225
8226
8227
8228
8229
8230
8231
8232
8233
8234
8235

8236
8237
8238
8239
8240
. 8241
8242
8243

30A(1052)
3

B 14
PAGE 171
REGISTER MODIFICATION REFUSED - RHER1

25-MAY-79

10:48

(BIT #2)RMR

R T
R X
Y

ILLEGAL FUNCTION RHER! - (BIT #0,ILF)

;*TEST 32

026624
026626
026632

000004
012706
012737

001000
000032

026640

004737

033314

CALCULATE

EVERY

ILLEGAL

IS FORMED

IT WILL BE STORED

FUNCTION

IN ILLEGAL

EXECUTION OF ILLEGAL
WILL BE ATTEMPTED AND RESULTS CHECKED

THIS WILL

BETWEEN O AND 77. EACH TIME AN ILLEGAL FUNCTION

8188
8189
8190
8191
8192
8193
8194
8195
8196
8197
8198
8199
8200
8201
8202
8203
8204
8205
8206
8207
8208
8209
8210
8211
8212
8213
8214
8215
8216

MACYT

THEN

222X 222NNl
NS

1§132:
004504

SCOPE

MOV
MOV

#STACK,SP
#32,34TSTNM

sRESET STACK
;SAVE TEST NUMBER

JSR

PC,a#CLDISK

:SET R1=-RH(CS1, R2=-RHCS?
:R3-RHDS1,

R&-RHER1

:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
026644
026650
026652
026656

005737
001402
000137

004640
N
30:8

027452

1S1

3fRH70

;RH70 CONTROLLER ?

JMP

1S133

;IF

BEQ

30%

;SKIP NEXT

IF NOT

-1

SO SKIP THIS TEST =eeccecccrcnavceaa

;*GENERATE JLLEGAL FUNCTION
026656
026662
026666
026672
026676
026700
026706
026710
026712
026714
026722
026724
026726
026732
026740

026746

005037
012700

012705
023720
001004
062737
000765
005305
001367
032737
001001

000402
000137
013737
062737

012737

001200
002322
000021
001200
000002

026760
026764

2%:

000100
027452
001200
000002

026754

001200

002364
001200

20%:

19%:

005077
005077

MOV

;GET READY TO MAKE ILLEGAL FUNCTION
;GET POINTER TO BEGINNING OF COMMANDS
;COUNTER (17 GOOD FUNCTIONS)

CmMP
BNE

afSTMP1, (RO) ¢
b1

;1S THIS A LEGAL FUNCTION
;BRANCH [F NOT LEGAL

BR
DEC

1%
RS

;GET READY TO TEST NEW FUNCTION
sNOT LEGAL SO DECREMENT COUNTER

#2,388THP)

BNE
BIT

BNE
BR

JMP

MOV

ADD

MOV

001110

033314

afSTMP
#FUTABL RO
#17.,RS

2%
#100,a88TMP1

20%
19%

ar’s

INSTMPY
AN ILLEGL

#2.,a08THPI

;MAKE

ANOTHER FUNCT]ION

;BRANCH 1F 17 NOT DONE
sALL BITS UP TO BIT #5 COMPARED?
;BRANCH OUT 1F DONE
;BRANCH TO CONTINUE

; DONE

;AN ILLEGAL FUNCTION IS FOUND

:GET READY FOR NEW FUNCTION NEXT TlMt

so]LLEGAL FUNCTION HAS BEEN FOUND
:+17T IS IN "ILLEGL'

004737

CLR
MOV

ADD

001200

3¢:

026754
026754

1%:

#LY ,aNSLPERR

;ERROR RETURN POINT

;*SAVE REGISTERS FOR COMPARISON AFTER GO
JSR

(LR
CLR

PC,a¥#CLDISK

;SET R1-RHCS1, R2-RH(S?

dRHW(
aRHBA

:GIVE RH=11 INIT]ALIZE
:SETUP UNIT NUMBER
;CLEAR WORD COUNT
: CLEAR BUS ADDRESS

;R3-RHDS1,

R&4-RHERI

SEQ 0170

CIRJIJDO, RPOL/S/6 FCTNL CTRLRZ
CIRJID P
28-MAR-79 08:52

8244
82645
8246
8247
8248
8249
8250
8251
8252
8253
8254
8255
8256
8257
8258
8259
8260
8261
8262
8263
8264
8265
8266
8267
8268
8269
8270
8271
8272
8273
8274
8275
8276
8277
8278
8279
8280
8281
8282
8283
8284
8285
8286
8287
8288
8289
8290
8291
8292
8293
8294
8295
8296
8297
8298
8299

MACY11

026770

023727

002364 000050

CMP

026776
027000

103014
012737

100000

mMov

027006

005037

027376

CLR a#12%+12

027012
027016
027022
027026
027030
027036
027040
027046
027054
027062
027070
027076
027100
027106
027110
027116
027124
027132
027140
027146
027154
027160
027166
027170
027174
027200
027206
027212
027216
027224
027230
027230
027234
027236

005037
005037

027402
027412
027422

CLR
CLR
CLR
BR
(mp
BNE

002364

140000

000204
000102
001200
0001v0

027354
027412
027422
027376
027402

000066

002364

177672
002370

153054
153050
027354

140000

002164
177774
001200
027402
000100
152776
152774
140000
027412

005037
004037
002172
004512

027422
001000
027402
033462

BHIS

027354

000064

C 16

)

304(1052)
25-MAY=-79
10:48 PAGE 172
132
ILLEGAL FUNCTION RHERY - (BIT #0,ILF)

13%:

MoV
MOV
MoV
MOV
MOv

17%:

BR
(MP
BNE

MOv
MOv
Mov
Mov
Mov
Mov
CLR
MOV

027412
027422
027376
027402
18%:

BR
CLR
CLR

027354

MOV

027376

MOv

14%:

;50 AND HIGHER FUNCTIONS ARE DATA
;CUNCTIONS WHICH WILL SET MXF AND TRE
;BRANCH IF ILLEGL IS HIGHER THAN 50

afILLEGL,#50
13%

#SC,an118+12

;EXPECTED VALUE OF

af12%+16
15846

sNOTHING ADDED
;NO BI'S TO BE CLEARED IN RH(CS?Z
:RHBA SHOULD BE 0

#6498 1LLEGL

: 1S FUNCTION 64

aN16%+6
149

;CLEAR SAVED RHWC
:BRANCH

17%
:BRANCH 1F NOT
#SC'TRE,a#118412;SAVED RHCS1 SHOULD HAVE SC AND TRE
#204,3#15%+6
;RHBA SHOULD HAVE 204
#102,3#16%+6
;RHWC SHOULD HAVE 102
#MXF'OR,aN129+12:RHCS2 SHOULD HAVE MXF AND OR
FIR,IN128416
:RHCS2 SHOULD HAVE IR CLEARED
14%
:BRANCH
#66,371LLEGL
18%

;1S FUNCTION 66
;BRANCH 1F NOT

#WRFROM,aRHBA

;FILL RHBA WITH WRFROM

#-70.,3RHWC

: MOVE 70 INTO RHWC

#SC!'TRE,3#118+412:SAVED RH(CS1
FURFROM=<66.2>,15%9+46;RHBA

=4, ,16%+6
;SAVED RHW(
#MXF'OR,a#12%+12 ;SAVED RH(SZ

an12%+16

sRHCS?2

#IR,aN12%+16
:RHCS2 SHOULD HAVE
14%
;BRANCH
SRHWC
;CLEAR RHW(C
aRHBA
:CLEAR RHBA
#SC'TRE,a#118+12:RHCST SHOULD HAVE

CLR

JSR

RO,a#SAVER

:SAVE REGISTERS

CLEARED

'
AND

TRE

;RHWC IS THE FIRST REGiSTER SAVED
;STARTING ADDRES OF

SAVERE
18.

SHOULD HAVE

;EXPE-TED VALUE OF RH(SZ SHOULD HAVE

:RHBA
;s RHWC
sRHCS2
;RHCS?2

RHW(C

RHCS!1

;CONLY SC ADDED

aN15%+6
ar16%+6
WMXF ,an128412
aN12%+16

CLR
CLR

SEQ 0171

;THE

REGISTERS ARE

WHERE

SAVED

;NUMBER OF REGISTERS

027240

000C22

027242

004737

033374

JSR

PC,BNCHECKT

027246
027252
027254
027260
027264

106401

000000
013746
052716
012611

057465

TYPE
HALT
MOV

LCPHALT

@WILLEGL,=(SP)

:GET

Mov

(SP)+,aR1

60 10 RHCS1 WITH ILLEGAL FUNCTION

027266
027270
027272

104413
002¢00
00000

002364
000101

8IS

WAl
RHCST
RDY

:SAVED = 18.

:CHECKS DVA,RDY,MOL,DPR,DRY AND vV -

0
SAND THAT ALL STATUS BITS ARE
NOT
IF
TESTING
CONTINUE
“CANNOT
:STOP TEST

960! 1E, (SP

ILLEGAL FUNCTION

SINCLUDE

1E AND GO

;WALT FOR RDY BIT 1O SET
;WAIT FOR RHCSY REGISTER
;WAIT

FOR RDY BIT

[N RHCS1

YTM

CIRJJIDO, RPOL/S/6 FCTINL CTRLR2
CIRJJD PN
2B-MAR-79 08:52

8300
8301

ggg%

027274
027276

MACY!

D 14
50A(1052)
25-MAY-79
10:48 PAGE 1/3
132
TLLEGAL FUNCTION RMER1 - (BIT #0,ILF)

001614
001613

908.
907.

gggg

:ALLOW 9080 MICRO SECONDS
:RDY MUST SET BETWEEN

;10 AND 18150 MICRO SECONDS

; *CHANGE SAVED REG!STERS 1O EXPECTED VALUE

8306
gggg

027300
027304

004C37
002¢02

8309
8310
g;};

027306
027310
027312

000001
000001
000001

8313
gg}g

027314
027320

004037
002¢22

8316
8317
8318
8319
ggg?

027322
027324
027326
027330
027332

000002
000001
100000
000001
040000

8322

02733

053737

8323

034204

JSR
RHERY

RO,3#CHREG

1
1
1LF
034204

JSR
RHDSI

RO,3#CHREG

2
1
ATA
1
ERR

0046646

004536

BIS

11%:

027342

8329
gggg

027342
027346

004037
002200

8332
8333
8334
gggs

027350
027352
02735
027356

000001
000001
100000
053737

8337

027364

8340
gga;

027364
027370

004C37
002176

8343
8344
8345
8346
8347

027372
027374
027376
027400
027402

000002
000001
001000
000000
000100

8350
8351
8352

027404
027410
027412

004037
002174
000000

8354

(027414

8;48
&

8353

8355

027404

034204

002364

004520
12%:

gggg

:CHANGE BITS IN SAVED REGISTER
:CHANGE RHDS! REGISTER

:2 BIT/BITS 10 BE CHANGED
;NEW VALUE OF ATA IS 1
:CHANGE ATA BIT
;NEW VALUE OF ERR IS 1
:CHANGE ERR BIT

ANATTENT ,3#SAVERE+24 :SET APPROPIATE
;FOR WORKING DRIVE

‘*ATA* BITS

:SAVED RHAS LOCATICN

g%g;

:CHANGE BITS IN SAVED REGISTER
:CHANGE RMER1 REGISTER
:1 BIT/BRITS 10 BE CHANGED
;NEW VALUE OF ILF 1S 1
;s CHANGE ILF BIT

gggg
8326

SEQ 0172

034204

;*RHCST WILL HAVE SC AND TRE ADDED IF FUNCTION IS GREATER THAN SO
JSR
RHCS1

RO,3#CHREG

1
1
SC
BIS

:1 BIT/BITS T0 BE CHANGED
;NEW VALUE OF SC IS 1
; CHANGE SC BIT
awlLLEGL.adSAVEREIS;é~g§¥oe ILLEGAL FUNCTION

033216

RO,3#CHREG

2
1
MXF
0
IR

JSR
RHBA
0
16%:

;*RHCS2 WILL HAVE NOTHING ADDED IF FUNCTION IS LESS THAN S0
JSR
RHCS?

15%:

;CHANGE BITS IN SAVED REGISTER
: CHANGE RHCS1 REGISTER

;CHANGE BITS IN SAVED REGISTER
; CHANGE RH(CS2 REGISTER

;2 BIT/BITS 10 BE CHANGED
:NEW VALUE OF MXF 1S 1
; CHANGE MXF BT
;NEW VALUE OF IR IS O
; CHANGE IR BI1T

RO,a#FILLRE

MOV O INTO SAVED RMBA
:SAVED REGISTER TO CHANGE
:DATA

[sa
X g

CIRJIDO, RPOL/S/6 FCTINL CTRLRZ
CIRJJID.PN
28-MAR-79 08:52

_—

CIRJJDO, RPOL/S/6 FCTINL CTRLRZ
CIRJJID.PN
2B-MAR-79 08:52
8356
8357
8358
8359
8360
8361
8362
8363
8364
8365
8366
8367
8368
8369
8370
8371
8372
8373
8374
8375
8376
8377
8378
8379
8380
8381
838>
8383
8384

8385
8386

027614
027420
027422

004037
002172

MACYI1

30A(1052)

033216

25-MAY-T79

E 14

PAGE

174

ILLEGAL FUNCTION RHERY - (BIT #0,ILF)
JSR

RHW(

000000

10:48

RO.a#F ILLRE

:MOV 0 INTO SAVED RHWC
;g:¥ED REGISTER TO CMHANGE

;*NOW COMPARE REGISTERS AFTER GIVING AN ILLEGAL COMMAND
027424

004037

027430
027432
027434
027436
027440

004512
002254
000022
027442
027446

027442
027444

000207

027446
027452
027452

036312

RO,3#COMREG

18.
5%
6%

5%:

ERROR
RTS

6%:
7%:

JMP

ars

10%:

VALUE

;TEST DATA STARTING FROM 'RHWC'
:18. REGISTERS 10 BE C(OMPARED
;RETURN T0 5% ON ERROR
;RETURN TO 6% ON NO ERROR

026662

; COMPARE SAVED REGISTERS WITH

;PRESENT

;GOOD DATA SAVED IN °'SAVERE'

SAVERE

106051

000137

JSR

;GIVING ILLEGAL FUNCTION CAUSED
; IMPROPER REGISTER (HANGE
;GO0OD DATA GIVES WHAT
; SHOULD BE THERE
sRECEIVED DATA GIVES REGISTER
JCONTENTS AFTER JLLEGAL
;FUNCTION WA GIVEN
;BRANCH FOR NEXT FUNCTION

SEQ 0173

MACY11

8387

B388

R R

8389

J*TEST 33

8391

8390

8392
8393
8394
8395
8396

027452
027454
027460

000004
012706
012737

001000
000033

8601
84C2
8403
8404

027466

004737

033314

8407

027472

012777

177374

8405
8406

8408
8409
8410
8411

84612
8413
8614
8415
gk}g

SEQ 0174

R R

OPERATION INCOMPLETE - RHERI(BIT #13)0P}

A WRITE HEADER AND DATA (COMMAND IS GIVEN

M
o
.
M

WORDCOUNT 260

15133:

SCOPE
MoV
MOV

¥ TACK,SP
#53,30TSTNM

;RESET STACK
;SAVE TEST NUMBER

JSR

PC,a#CLDISK

;SET R1-RHCST, R2-RH(S?
;R3I-RHDS1, R&-RHERI
;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER

CYLINDER O SECTOR ' TRACK O KEYS O DATA 177777

AFTER GO 1S GIVEN THEN THREE INDEX PULSES ARE
GIVEN. THIS SHOULD BRING OP] MIGH

R
R
L

8397
8398
3338
4

30A(1052)
25-MAY-79
10:48
PAGE 175
132
TLLEGAL FUNCTION RMERY - (BIT #0,ILF)

027500
027504

012700
010077

002370
152464

027510

012710

010000

027516
027520
027522

012720
005020
005020

000001

027524

012705

0€00400

027530
027534
027536
027540
027546

012720
005305
001374
012777
004737

177777

027552
027556
027560

104401
000000
013711

002344

027564
027570
027576

005037
012777
005077

004632
010000
152410

027602
027606
027610

004037
002172
004512

033462

027612

000023

004504

;*THESE ARE REGULAR SETUPS

152472

MOV

#-260. ,aRHW(

;256 DATA WORDS & HEACER WORDS

MOV

FEMT22 ,(RO);

;BUS ADDRESS REGISTER
;FORMAT=16 BIT WORDS

Mov
CLR
CLR

#1,(RO)
(RO)+
(RO)+

MOV
MOV

FWURFROM,ROD
RO,a3RHBA

;THESE TWO INSTRUCTIONS GETS
;ADDR. OF WRFROM BUFFER INTO RO AND
; CYLINDER=0
; TRACK=0, SECTOR=1, ktYS O
JKEY1=0
;KEY2=0

MoV

#256.,R5

; COUNTER

;+SETUP
MOV
DEC
BNE
MOV
JSR

DATA, WRITE HEADER & DATA, AND FORMAT OfF THE WRITE
¥-1,(R0)
;sMOVE ALL ONES FOR DATA
RS
1%
;BRANCH ]F DATA NOT COMPLETE

#1,aRHDST
PC,a#(HECKT

; TRACK=0 SECTOR-1
; CHECKS DVA,RDY,MOL,DPR,DRY AND vV = 1

TYPE
HALT
MOV

, CPHALT

; CANNOT CONTINUE TESTING IF NOT
;STOP TEST
;GET READY FOR WRITE HEADER AND
;DATA WITH 62 IN RHCSI
;CLEAR ERROR FLAG
;FORMAT BI1T=1 (16 BIT WORDS)
;CYLINDER =0

8418
8419
8420
8421

8422
8423
8424

8425
8426
8427
8428
8429
8430
g&g;

00000!
033374

8435
8436
8437
8438
8439

152436

057465

8433
8434

1%:

152412

CLR
MOV
CLR

A#WRIFOR,aR!
ONERFLGS
#EMT22 ,aRHOF
ORHCA

sAND

THAT

ALL

STATUS BITS ARE

- 0

:*SAVE REGISTERS FOR COMPARISON AFTER READ
JSR
RO,3#5AVER
; SAVE REGJSTERS
RHW(
;RHWC IS THE FIRST REGISTER SAVED
SAVERE
;STARTING ADDRES OF WHERE
;s THE REGISTERS ARE SAVED
19.
;NUMBER Of REGISTERS

;SAVED - 19,

CIRJJDO, RPO&L/S/6 FCTINL CTRLRZ
(IRJID.P
28-MAR-79 08:52

MACY1T

6 14
30A(1052)
25-MAY=79
10:48
PAGE 176
133
OPERATION INCOMPLETE - RHcR1(BIT #13)0P]

8440
8441
8442

;60 TO WRITE HEADER AND DATA
;*BUT BEFORE GO, ONE INDEX PULSE 1S GIVEN

;*10 CLEAR QUT THE SECTOR CLOCK COUNTER IN THE RM11
:*SO THAT NO SECTOR PULSES COME DURING THIS TEST

8451
8452
8453
8454
8455
8456
8457
8458
8459
8460
8461
8462
8463
8464
8465
8466

B4667
8468
8469
8470
8471
8472
8473
8474
8475
BL76
8477
8478
8479
8480
8481
8482
8483
8484
8485
8486
B487
8488
8489
8490
8491
8492
8493
8494
8495

052777
012737

000001
000113

027650
027656

05337
001375

004642

027656
027662

052710
042710

000004
000004

BIS
BIC

027666
027672

000004
000004

BIS
BIC

027676
027702

000004

BIS
BIC

P LW

— d et (O
OCOO0O

027634
027642

Y
NPV AN

027614
027620
027626
027530

[olelole]

84463

8444
8445
8446
8447
8448
8449
8450

SEQ 0175

002220
000001
000004
000004

000004

152336
004642

RUNWAT:
1%:

MOV
MoV
8IS
BIC

2/RHMR RO
#DMD ,3R0
#MINX,3R0
FMINX,3R0

;NOW RO HAS MAINTENANCE REG.
;SET DIAGNOSTIC MODE
;SET INDEX
;CLEAR INDEX THIS GIVES

BIS

#GO,aRHCST

;1SSUE THE

DEC

INRUNCTR

;AND PROVIDES FOR TIME TO FILL THE SILO
;COUNT DOWN UNCE
;CONTINUE UNTIL = 0

MOov

BNE

#75.,3#RUNCTR

ADDR.

;ONE INDEX PULSE

'GO' BIT TO THE RHI11

;LOAD °'RUN' LINE DELAY COUNTER
;= APPROX 450 US ON 11/50 CPU WITH CORE

;vISSUE THE FIRST DIAGNOSTIC INDEX PULSE
#MINX,aR0
#MINX,aRO

,*SECOND INDEX PULSE

.*THIRD

#MINX, 3RO
FMINX,aRO
INDEX

PULSE

#MINX,aR0
#MINX,aR0

;SET INDEX PULSE
;RESET INDEX
;SET INDEX
;CLEAR INDEX

:SET INDEX
;CLEAR INDEX

;vCHANGE SAVED REGISTERS TO EXPECTED VALUE
027706
027712

004037
002200

027714
027716

027720
027722
027724

000002
000001
100000
000001
040000

027726
027732

004037
002222

027734
027736
027740
027742
027744

000002
000001

027746
027752
027754

004037
002204
000002

034204

JSR
RHCSI

RO,a#CHREG

;2 BIT/BITS TO BE CHANGED

1
SC

;NEW VALUE OF SC
: CHANGE SC BIT

|
TRE

034204

JSR
RHDS1

;NEW VALUE OF TRE
. CHANGE TRE BIT

RO,a#CHREG

100000

;CHANGE B1TS IN SAVED REGISTER
; CHANGE RMDSY REGISTER

;2 BI1/BITS 10 BE (HANGED

ATA

. CHANGE

ERR

033216

P4
1

000001
040000

:CHANGE BITS IN SAVED REGISTER
; CHANGE RHCSY REGISTER

JSR

SHDST

;NEW VALUE OF

ATA ]S

;NEW VALUE OF

ERR

ATA BIT

. CHANGE ERR BIT

RO,a#F JLLRE

]S 1

;MOV 2 INTO SAVED RHDST

:3:¥§D REGISTER T0O CHANGE

CIRJJDO, RPO4L/S/6 FCTINL CTRLRZ
CIRJJD P
28-MAR-79 08:52

8496
8497
8498
8499
8500
8501
8502
8503
8504
8505
8506
8507
8508
8509
8510
8511
8512
8513
8514
8515
8516
8517
8518
8519
8520
8521
8522
8523
8524
8525
8526
8527
8528
8529
8530
8531
8532
8533
8534
8535
8536
8537
8538
8539
8540
8541
8542
8543

027756
027762

004037
002202

027764
027766
027770

000001
000001
020000

027772

053737

MACYN

034204

JSR

RHER

RO,a3#(HREG

1
1
oP1

004644

00453¢

8IS

SEQ 0176

s CHANGE BITS IN SAVED REGISTER
; CHANGE RHER1 REGISTER
;1 BIT/BITS 10 BE
;NEW VALUE OF OP]

: CHANGE OP] BIT
Q¥ SAVERE+24
A¥ATTENT

CHANGED
IS 1

;SET APPROPIATE

;FOR WORKING DRIVE

'ATA' BITS

;SAVED RHAS LOCATION
030000
030004

004037
002220

030006
030010
030012

000001
000001
000001

030014
030022
030030
030034
030040
030046

017737
017737
0177646
062716
042737
052637

034204

JSR

RHMR

RO,a#CHREG

;Y BIT/BITS 10 BE C(HANGED
;NEW VALUE OF DMD IS 1

|
1
DMD

152152
152146
152142
177477
000300
004516

; CHANGE BITS IN SAVED REGISTER
;CHANGE RMMR REGISTER

. CHANGE DMD BIT

;*RHWC ,RHBA AND OR AND IR BITS OF RH(S?2 WILL
MOV
aRHWC ,a#SAY ERE
;SAVED RHW(
MOV
aRHBA ,a#SAvV ERE+2;SAVED RHBA

004512
004514

MOV
B1C
BIC
BIS

004516

NOT BE

CHECKED

;GET RH(SZ
aRH(S2,~-(SP )
#*C<IR'0OR>, (SP) ;GET 'IR' & 'OR' STATES
#IR'OR,a#SA VERE+4;CLEAR "IR* & 'OR' BITS
(SP)+ ,a#SAV ERE+4;SET 'OR" & 'IR' AS REQUIRED

;*COMPARE REGISTERS BEFORE WRITE WITH RESULTS AFTER WRITE
030052

004037

030056
030060
030062
030064
030066

006512
002254
000021
030070
030074

030070
030072

104071
000207

JSR

034312

RO,a#COMREG

17.
2%
3%

ERROR
RTS

VALUE

:G00D DATA SAVED IN °'SAVERE'
;TEST DATA STARTING FROM ‘RHW('
:17. REGISTERS 10 BE COMPARED

SAVERE

2%:

; COMPARE SAVED REGISTERS WITH

sPRESENT

;RETURN TO 2% ON ERROR

;RETURN TO 3% ON NO ERROR

;FORCING OP]

CAUSED

: IMPROPER REGISTER (HANGE
;600D DATA GIVES WHAT SHOULD BE THERE
;RECEIVED DATA GIVES WHAT WAS THERE
JAFTER 3 INDEX PULSES WERE ISSUED

030074

004737

033314

3%:

JSR

PC,afCLDISK

;CLEAR THE

'GO' BIT

oS~

CIRJJDO . RPO&/ 576 FCINL CTRLR2
P
(ZRJJD.PIY
28-MAR-79 08:52

H 16
3?;;1052)
25-MAY-79
10:48 PAGE 177
NPERATION INCOMPLET E - RHcR1(BIT #13)0P]

MACY1Y

8544
8545
8546
8547
8548

8572
8573

8574
8575
8576
8577
8578
8579
8580
8581
8582
8583
8584
8585
8586
8587
8588
8589
8590
8591
8592

8593

8594
85695
8596
8597
8598
8599

SEQ 0177

';'"'"""""""""""""""""l""'.".!"t"l""""

2
%
2
%

%
2

SOTEST 34

8549
8550
8551
8552
8553

CONSECUTIVE SECTOR FORMATTING

46 CONSECUTIVE SECTORS WILL BE FORMATTED
STARTING FROM CYLINDER O TRACK O SECTOR 21.

FORMATTING WILL BE DONE BY A WRITE HEADER AND
2?1: %?:EAND FOR & WORDS, ONE SECTOR
AFTER EACH SECTOR
TO

INSURE

THAT

IS WRITTEN,

THERE

WERE

'SC'

NO ERRORS

WiLL BE

CHECKED

;:.'.""""""""""'"""""""."'.'.'."""'.""""

000004

030100
030102
030106

012706
012737

001000
000034

030114

004737

033314

1S13%%:

SCOPE
Mov

#STACK,SP

JRESET

JSR

PC,a#CLDISK

;SET R1-RHCST, RZ2=-RH(S?2

MOov

004504

F34,30TSTNM

;SAVE

-~~~

NN
NN

b
acd
-

OO0

030120
030126
030134

000025
000025
000056

030142

030142
030146
030150
030152
030154
030156
030160

030154
030170
004654

004037
002370
000004
010000
000025
000000
000000

2%:

035276

INITIALIZE

L AT A% TR P

Mov

NL6. ,aNTHP]

;46 SECTORS 1O COVER 3 TRA(KS

N21.,302%+6

;SECTOR 21,

;vFILL WRITE FROM BUFFER WITH THE HEADER
RO,a#FLHEAD

21.
0
0

030162

R&-RHERI

Mov

JSR
WRFROM
4
10000

033140

RH=1'

NUMBER

;SETUP UNIT NUMBER
;SET UP TO START FROM

Mov

1%:

STACK

TEST

;R3-RHDS1,

;GIVE

[aV 1,91,
V]

8554
8555
8556
8557
8558
8559
8560
8561
8562
8563
8564
8565
8566
8567
8568
8569
8570
8571

1 14
30A(1052)
25-MAY-79
10:48 PAGE 1/8
133
OPERATION INCOMPLETE - RHER1(BIT #13)0P]

:SAVE HEADER DATA N WRFROM
;LOCAT]ION WHERE SAVED
:NUMBER OF WORDS SAVED
;FIRST DATA WORD

;SECOND DATA WORD
:T4IRD DATA WORD
:FOURTH DATA WORD

;*NOW THE WRITE HEADER AND DATA (OMMAND WlLL BE

JSR
0
.BYTE
.BYTE
-0-4

030162
030166
030170
03017
030172

004037
000000
025
000
177774

030174

002370

WRFROM

030176
030200

000000
010000

030202

002344

WR1FOR

FMY22

RO,3#RUN

21,
O

SETUP

;SETUP TO RUN FOR DATA (OMMAND
:CYLINDER 0

;SECTOR 21.
;TRACK 0
;WORD COUNT
;4

(DATA)

HEADER WORDS

= 0 +

:BUS ADDRESS

;STARTING ADDRESS Of DATA
;BUFFER = WRFROM
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAY

;D0 NOT INHIBIT ECC CCRRECTION
;D0 NOT INH]BIT HEADER C(OMPARE

.GET READY 10 DO A WR]FOR
:WRITE HEADER AND DATA WITH 62 IN RH(S!

(ZRJJDO, RPO4/S/6 FCTINL CTRLRZ
CZRJJD P11
¢8-MAR-79 08:52

030210
030214

000000

10646401

057465

TYPE
HALT

CPHALT

030216

013777

004506

MCv

@¥RPLVEC,ARPVEC

151742

179

SEQ 0178

SECTOR FORMATIING

PC,aNCHECKT

;CHECKS DVA,RDY,
MOL ,DPR,DRY AND VvV =
;AND THAT ALL STATUS BITS ARE = 0
;CANNOT CONTINUE
;STOP TEST

TESTING

NOT

;SET RPO4 VECTOR ADDRESS
;70

"TIMET'

P=-CLOCK

IS PRESENT

;OR TO 'TIMEZ2' IF P=-CLOCK IS NOT THERE
;'TIME'

WILL

ONLY

SAVE

;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
Mov

ON¥WRIFGR,=-(SP)

030234

012677

151740

Mov

(SP)+,aRHCST

8IS

MOV

030240
030242

—

002344
000101

—

013746
052716

(oY e]

030224
030230

Mov

#GO!1E, (SP)

aR1,RO

a8R3.R5

;GET

READY

TO MOVE

C(OMMAND

;GET READY TO SET GO AND

;ENABLE INTERRUPT
;G0 WITH

;62 IN RHCS1 FOR WRITE HEADER AND DATA

;WITH INTERRUPT ENABLED
;SAVE RH(S! DURING ABOVE

OPERATION

;SAVE RHDS1 DURING ABOVE OPERATION

;*ONE REVOLUTION-16670 MICRO SEC, ONE SECTOR-760 MICRO SEC
030244
030246
030250

030252
030254

106413
002200
000200

WAl

;WAIT

001515

845.

;RDY MUST

RHCSI
RDY
1695.

0035237

FOR RDY BIT

71O SET

;WAIT FOR RHCS! REGISTER
;WAIT FOR RDY BIT IN RHCS! REGISTER
;ALLOW 16950 MICRO SECONDS
SET

BETWEEN

;8500 AND 25400 MICRO SECONDS

; *NOW ONE MORE SECTOR HAS BEEN WRITTEN
;*'SC' WiLL BE CHECKED TO MAKE SURF
;*NO ERRORS OCCURED
030256
0302¢e4
030272
030274
030300

017737
032737
001403
004737
104072

151716
100000

Mov

002262
002262

BIT

BeQ

JSR
ERROR

035236

aRHCS1,as(s!

;GFT

RHCS]

#SC,ancst

;1S 'SC' SET ?

PC.a#PUTREG
72

;READ & SAVE
ALL RH11 & RPO& REGISTERS
;:THERE WAS AN UNDEFINED ERROR AFTER
;A WRITE HEADER AND DATA

;BRANCH IF ''SPECIAL CONDITION'' NOT SET

:*A SECTOR HAS BEEN FORMATTED NOW,
:*THE HARDWARE WILL BE CLEARED AND

;*CHANGES WwlLL BE MADE TO FORMAT NEXT SECTOR.
3%:

030302

004737

033314

JOR

PC,a#CLDISK

;SET R1=-RH(S1, R2-RH(S?2
;R3-RHDS!,

:GIVE RH=11

——
O
srrnoo0

8647
8648
8649
8650
8651
8652
8653
8654
8655

J 14
PAGE

JSR

(9JV_
LV

8646

CONSECUTIVE

10:48

033374

OO0

8635
8636
8637
8638
8639
8640
8641
8642
8643
8644
8645

134

25-MAY-79

004737

M
N e

8626
8627
8628
8629
8630
8631
8632
8633
8634

30A(1052)

030204

QOO

8600
8601
8602
8603
8604
8605
8606
8607
8608
8609
8610
8611
8612
8613
8614
8615
8616
8617
8618
8619
8620
8621
8622
8623
8624
8625

MACY11

013705
005205
122705

R4&-RHER]

INITIALIZE

030154

MoV

i;1$012,fl5

:SETUP UNIT NUMBER
GE} SECTOR TRACK WORD

000026

(MPB

#22. RS

1S 11 22 SECTORS (wHOLE

INC

TRACK DONE)

[N anl

CZRJJDO, RPOL/S/6 FCINL CTRLR2
CZRJJD.PYY
2B-MAR-79 08:52

CIRJIDO, RPO4/S/6 FCINL CTRLRZ
(ZRJJD.P
28-MAR-79 08:52
8656
8657
8658
8659
8660
8661
8662
8663
8664
8665
8666
8667
8668
8665

MACY1Y

30A(1052)
134

030320
030322
030326
030332

001605
010537
010537
000410

030154
030170

030334
030340

030154
030155
030170
03017

0303446
030350

105037
105237
105037
105237

030354
030360

005337
001270

004654

5%:

03036¢

25-MAY-79

CONSECUTIVE

SEQ 0179

'3
RS,a#18+12
RS.,a#2%¢6

SYES...DO NEXT TRA(K
sNO...RESTORE SECTOR TRACK FOR DATA

(LRB
INCB
CLRB
INCB

FT AR XA W
aN18+413
anls+b
Y P4XN

;SET SECTOR
;INCR TRACK
;SET SECTOR
; INCR TRACK

DEC
BNE

¥ TMPI

;ARE

BEQ

Mov
Mov

6%:

K 14
10:48
PAGE 130
SECTOR FORMATIING

;RESTORE SECTOR TRACK FOR "'RUN'' ROUTINE
;CHECK FOR 46 SECTORS COMPLETED

= 0 FOR DATA WRITTEN
FOR DATA WRITTEN

= 0 FOR ''RUN'' ROUTINE
FOR THE "'RUN'' ROUTINE

46 SECTORS DONE

;CONTINUE FORMATTING IF NOT
;GO ON TO NEXT TEST

L 14
30A(1052)
25-MAY-79
10:48
PAGE 13!
134
CONSECUTIVE SECTOR FORMATIING

CPERATION INCOMPLETE - RHER! (BIT #13)0P]

THIS WILL

TEST

THAT

OP]

DOES NOT

SET

WHEN THREE

SECTORS WILL BE

FORMATTED

INDEX PULSES ARE ENCOUNTERED

FIRSY

NORMAL

FORMATTING WILL BE DONE BY A WRITE HEADER AND
D?TA %?:EAND FOR & WORDS, ONE SECTOR
AT

®»
¥

v,
ne

%
%

9.
90

&6 CONSECUTIVE

IN A READ COMMAND

STARTING FROM CYLINDER O TRACK O SECTOR 21.
A

THEN A READ HEADER

AND DATA WILL

DONE

FOR CYLINDER O TRACK O SECTOR 21 FOR
11960 WORDS (260.X22X24260+4260) WITH BUS

ADDRESS

INHIBIT

SET.

®e

Sea 0180

TEETRE RN ECRRNRONCOCORNOSECEERNROPRRORNORRORNRNROARAROEORRNOORORORRROENOERNRRRNOEONNTY

SeTEST 35

033314

b
—

030402
030410
030416

004737

030376

030370

001000

030362
030364

000004
012706
012737

[elolo]

8670
8671
8672
8673
8674
8675
8676
8677
8678
8679
8680
8681
8682
8683
8684
8685
8686
8687
8688
8689
869C
8691
8692
8693
8694
8695
8696
8697
8698
8699
8700
8701
8702
8703
8704
8705
8706
8707
8708
8709
8710
8711
8712
8713
8714
8715
8716
8717
8718
8719
8720
8721
8722
8723
8724
8725

MACY11

000035

000025
000025
000056

030424
030424
030430
030432

030434
030436
030440
030442

030436
030452
004656

EXEAEEEES

AR ARARARARERRRRRRRRRRRRRRRR
SRR RRRR

JRESET

JSR

PC,a#CLDISK

:SET R1=RH(CS1, RZ2=-RH(S?

MOV
MOV

#21.,a01%+12
#21.,002%46

#35,90TSTNM

#46., ,90THPI

JSR

WRFROM
&
10000

2%:

TEST NUMBER

;R3-RHDS1, R&-RHER]
:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
;SET UP TO START
;SECTOR 21.

FROM

:46 SECTORS TO COVER 3 TRACKS

RO,a#FLHEAD

:SAVE HEADER DATA [N WRFROM

;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED

;FIRST DATA WORD

;SECOND DATA WORD
;:THIRD DATA WORD
;FOURTH DATA WORD

;*NOW THE WRITE HEADER AND DATA COMMAND WiLL BE FILLED
JSR

030444
030450
030452
030453
030454

004037
000000
025
000
177774

0
.BYTE
BYTE
-0-4

030456

002370

WRFROM

035276

:SAVE

STACK

;*FILL WRITE FROM BUFFER WITH HEADER

21.
0
0

030446

CHECKED.

#STACK,SP

MOV

033140

END ALL REGISTERS WILL BE

SCOPE
MOV

Mmov

004504

1%:

004037
002370
000004
010000
000025
000000
000000

22X

15135:

THE

RO,a#RUN

21,
0

;SETUP T0 RUN FOR DATA COMMAND

;CYLINDER O
:SECTOR 21.
;TRACK 0
:WORD COUNT (DATA) = 0 +
;4 HEADER WORDS
;BUS ADDRESS

;STARTING ADDRESS OF

DATA

[ Nen]

CIRJJDO, RPO&L/S5/6 FCTINL CTRLR2
CIZRJJD.PY
28-MAR-79 08:52

CIRJJIDO, RPOL/S/6 FCTNL CTRLR2

CIRJJID.PIY
8726
8727
8728
8729
8730
8731

28-MAR-79 08:5°

MACY11

30A(1052)

135

25-MAY-79

10:48

n 146

PAGE 182

OPERATION INCOMPLETE - RHERY

(BIT #13)0P]

;BUFFER = WRFROM
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;DO NOT INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
GET READY TO DO A WRIFOR

030460
030462

000000
010000

0
FMT22

030464

002344

WRIFOR

8735
8736
8737

030466

004737

033374

JSR

PC.a3MCHECKT

030472
030476

104401
000000

057465

TYPE
HALT

CPHALT

8740
8741
8742
8743
8744

030500

013777

004506

Mov

O¥RF4VEC,aRPVEC ;SET RPO4 VECTOR ADDRESS
;710 'TIMET' IF P-CLOCK IS PRESENT
;OR 10 'TIME2' If P-CLOCK 1S NOT THERE
;'TIME® WILL ONLY SAVE
s CURRENT CYLINDER ADDRESS

8748
8749
8750
8751

030506
030512

013746
052716

002344
000101

MOV
BIS

afWRI1FOR,-(SP)
#60 1E,(SP)

030516

012677

151456

MOv

(SP)+ ,aRH(ST

g;%%
8734

g;%g

8745
8746
8747

8752
8753
8754
3;25
6

151460

030522
030524

011100
011305

MOV
MOv

030526
030530
030532
030534
030536

104413
002200
000200
003237
001515

030540
030546
030556
030556
030562

07737
032737
001405
004737
104072

8777

030564

000137

8779

8780
8781

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;ENABLE INTERRUPT
;60 WITH

;62 IN RHCS1 FOR WRITE HEADER AND DATA

;WITH INTERRUPT ENABLED

aR1,RO
aR3,R5

:SAVE RHCS1 DURING ABOVE OPERATION
.SAVE RHDS1 DURING ABOVE OPERATION

;WAIT FOR RDY BIT 10 SET
;WALIT FOR RHCS! REGISTER
:WAIT FOR RDY BIT IN RHCS! REGISTER
;ALLOW 16950 MICRO SECONDS
;RDY MUST SET BETWEEN
;8500 AND 25400 MICRO SECONDS

;*NOW ONE MORE SECTOR HAS BEEN WRITTEN
L*'SC" WILL BE CHECKED TO MAKE SURE
;*NO ERRORS OCCURED

8770
8771
8772
8773
8774

8778

;STOP TEST

WAT
RHCST
RDY
1695.
845.

876

8775
8776

; CHECXS DVA,RDY,MOL ,DPR,DRY AND Vv = 1
:AND THAT ALL STATUS BITS ARE = 0
; CANNOT CONTINUE TESTING IF NOT

;*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR=760 MICRO SEC

8766
8767
g;bg
6

;WRITE HEADER AND DATA WITH 62 IN RHCSI

;AND LOOK AHEAD REGISTERS

g;gg
8759
8760
8761
8762
8763
876;

SEQ 0181

151434
100000
035236

031020

002262
002262

MOV
811
BEQ
JSR
ERROR

SRHCST ,a#(CS1
#SC,ar(Cs
3%
PC.a#PUTREG
72

JMP

15136

;GET RH(S1
;1S 'SC' SEY ?
;BRANCH .F ''SPECIAL CONDITION'' NOT SET
;READ & SAVE ALL RH11 & RPO4& REGISTERS
; THERE WAS AN UNDEF INED ERROR AFTER
;A WRITE HEADER AND DATA

;

THIS IS A SETUP ERROR AND ‘OPl' TEST CAN'T (ONT]

;G0 ON TC NEXT TEST

;*ONE SECTOR HAS BEEN FORMATTED NOW,
;*THE

HARDWARE

wiLL BE

CLEARED AND

aln

8782
8783
8784
8785
8786
8787
8788
8789
8790
8791
8792
8793
8794
8795
8796
8797

8798
8799
8800
8801
8802
8803
8804
8805
8806
8807
8808
8809
8810
8811
8812
8813
8814
8815
8816
8817
8818
8819
8820
8821
8822

8823

8824
8825
8826

8827
8828
8829
8830
8831
8832
8833
8834
8835
8836
8837

MACYI1

N 16

30A(1052)
25-MAY-79 10:48 PAGE 183
135
OPERATION INCOMPLETE - RHER1 (BIT #13)0P]

SEQ 0182

;*CHANGES WILL BE MADE TO FORMAT NEXT SECTOR.
3%:

030570
030570

004737

033314

JSR

030436

030574
030600
030602
030606
030610
030614
030620

013705
005205

030622
030626
030632
030636

105037
105237
105037
105237

030436
030437
030452
030453

4%:

030642
030646

005337
001266

004654

5%:

122705

001405
010537
010537
000410

MOv

INC
(MPB
BEQ

000026

030436
030452

Mov

MOov
BR

PC,amCLDLSY

;SET RI1-RH(CST, R2=RH(CS?2

af1$+412,RS

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
;GET SECTOR TRACK WORD

RS
n22.,RS
3

RS, a#19+12

RS.aN28+6
5%

CLRB
INCB
CLRB
INCB

an1s+1?
ans+13
anls+6
aN2s+7

DEC
BNE

af TMP1
1%

:R3-RHDS1, R4-RHER1

;1S 1T 22 (WHOLE TRACK) ?
sYES...DO NEXT TRACK
;NO...RESTORE SECTOR TRACK FOR DATA WRITTEN
;RESTORE SECTOR TRACK FOR ''RUN'' ROUTINE
;CHECK FOR &6 SECTORS COMPLETED
;SET SECTOR = 0 FOR DATA WRITTEN
; INCR TRACK FOR THE '‘RUN'' ROUTINE

;SET SECTOR = O FOR DATA WRITTEN

: INCR TRACK FOR THE ‘'RUN'' ROUTINE
;ARE

SECTORS DONE

: CONTINUE

IF NOT

:*NOW &6 SECTORS HAVE BEEN FORMATTED

:*READ HEADER AND DATA FOR 46 SECTORS=11960 WORDS
;*WITH BUS ADDRESS INHIBITED
030650

004737

033314

JSR

PC,aNCLDISK

sSET R1-RH(SY, R2-RH(S?2
R&-RHER1

;GIVE RH-11 INITIALJZE
;SETUP UNIT NUMBER

;eFILL READ HEADER AND DATA COMMAND
030654
030660
030662
030663
030664

004037

030666

003434

000000
025
000
150510

035276

SSR

RO,3#RUN

:SETUP TO RUN FOR DATA (OMMAND

LBYTE
.BYTE

21,
0

;TRACK O

-11956.-4
REINTO

030670
030672

000010
014000

BAl
FMT22'€EC]

030674

002350

REFOR

030676

09¢737

033374

JSR

sCYLINDER O

:SECTOR 21,

;WORD COUNT

(DATA)

;STARTING ADDRESS OF

DATA

+4 HEADER WORDS
;BUS ADDRESS

11654,

;BUFFER = REINTO
; INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
T
;INHIBI ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE
;GET READY 10 DO A REFOR

;READ HEADER AND DATA WITH 72 IN RNM(S!

PC,af(HECK"

;CHECKS DVA,RDY, MOL,DPR,DRY AND vv - !

CIRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRJID.P1Y
28-MAR-79 08:52

CIRJIDO, RPO4/S/6 FCTINL CTRLRZ
CIRJJD. P11
28-MAR-79 08:52

030702
030706
030710

104407
000000

013777

B 15

30A(C1052)
25-MAY-79
10:48 PAGE 184
135
OPERATION INCOMPLETE - RHeR1

057465
004506

T{PE
HALT

MOV

151250

SEQ 0183

(BIT #13)0P]

;AND THAT ALL STATUS BITS ARE

LCPHALT

#RPLVEC,dRPVEC

;CANNOT CONTINUE
;STOP TEST

TESTING

= 0

NOT

;SET RPO4 VECTOR ADDRESS
;70 "TIMEY® JF P-CLOCK IS PRESENT

;OR TO °'TIMEZ2' IF P=CLOCK IS NOT THERE
;'TIME'

WILL ONLY

SAVE

mov

ANREFOR,-(SP)

030726

012677

1512646

Mov

(SP)+ ,aRHCST

030732
030734

Mov
Mov

aR1,R0
aR3,R5

;*TIME

1S NOT

030736
030740
030742
030744
030746

BIS

u—‘

002350
000101

052716

—

013746

—r

030716
030722

(Y o]
o

s CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

8838
8839
8840
8841
8842
8843
8844
8845
8846
8847
8848
8849
8850
8851
8852
8853
8854
8855
8856
8857
8858
8859
8860
886!
8862
8863
8864
8865
8866
8867
8868
8869
8870
8871
8872
8873
8874
8875
8876
8877
8878
8879
8880
8881
8882
8883
8884
8885
8886
8887
8888

MACYT1

104413
002200
000200

#GO.1E, (SP)

READY

TO MOVE

COMMAND

;GET READY TO SET GO AND

;ENABLE INTERRUPT
;60 WITH

;72
;WITH
;SAVE
;SAVE

IN RHCS1 FOR READ DATA
INTERRUPT ENABLED
RHUS1 DURING ABOVE OPERATION
RHDS1 DURING ABOVE OPERATION

WAT
RHCSI

;WAIT
;WAIT

FOR RDY B]T T0 SET
FOR RHCS1 REGISTER

41680.
41680.

;ALLOW 416800 MICRO SECONDS
;RDY MUST SET BETWEEN
;00 AND 178240 MICRO SECONDS

IMPORTANT

RDY

121320
121320

;GET

:WAIT FOR RDY BIT IN RH{S1

:*NOW THAT ALL

71960 WORDS HAVE BEEN READ.

:¢'0OP1' WILL BE CHECKED TO BE NOT SET
030750
030756
030764
030766
030772

017737
032737
001403
004737
104074

151226
020000

Mov
BIT
BEQ
JSR
ERROR

002264
002264

035236

aRHER1 ,a¥#ER]
+ #OP] ,QNER]
6%
PC,afPUTREG
74

;GET RHER1
;1S 'OP1' SET ?
;CHECK *'SC' IF NOT
;READ & SAVE ALL RHI11 & RPO4 REGISTERS
;READ HEADER AND DATA
;OVER 3 INDEX PULSES
;CAUSED 'OPI' TO SCT

;¢'SC' WILL BE CHECKED
0177%7
032737
001403
004737
104072

151200
100000

002262
002262

6%:

MOV
BIT
BEQ

JSR

035236

ERROR

oRHCST,a#(S)
#SC,anCst
7%

PC,3NPUTREG
72

;GET BHCSI
;1S 'SC' SET ?
;CONTINUE TESTING It NOT
;READ & SAVE ALL RH11 & RPO4 REGISTERS
;READ HEADER AND DATA
:FOR 11960 WORDS, THAT IS OVER THREE
; INDEX PULSES, CAUSED AN UNDEFINED ERROR

;(ONTINUE WITH THE NEXT TEST

CIR,JID0, RPO4/S/6 FCINL CTRLR2
CIRJJD.PN
28-MAR-79 08:52

MACYI1

R889
£R90
8891
889?2
8893
8894
8895
8896
8897
8898
8899
8900
8901
8902
8903
8904
8905
8906
8907

c15

30A(1052)
10:48
PAGE 185
25-MAY-79
135
OPERATION INCOMPLETE - RHER1

';!'l"""""""""""""""'"'Q""'.""""."""t"t

N
%
%
»

HEAD SELECTION TEST ERR § TRE

TESTS HEAD SELECTION LOGIC ONLY.

CYLINDER O,

SECTOR O.

THE DATA ON EACH SECTOR

8933
8934

GIVE

TRACK

IS UNIQUE.

THE NEXT 6 BITS GIVE

THEN READ HEADER AND DATA
CHECKED

THE

LEAST

SIGNIFICANT

CYLINDER

1S DONE

FOR

THE

ABOVE

AND DATA

¥
¥
¥

I
w,
va
%o

%
%

BETWEEN THE WRITE AND READ ONLY "'ERR'' AND ‘'TRE'' ARE C(HECKED
ON AN ERROR
ONLY

THE

IN THE READ HEADER ANv DATA LOOPING WILL BE

ERROR

SECTOR READ

031020
031022
031026

000004
012706
012737

001000
000036

03103¢

004737

033314

031040
031044
031050

005037
005037
005037

OO0

M 't't'""""""I"""I’"s""'"'lt't"""'.""ttli"""'t'

031054

012737

000023

15136:
004504

SCOPE

MOV
Mov

FSTACK,SP

;RESET

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RHCS?2
;R3-RHDST, R&=RHER]
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

#36,30TSTNM

~NO
&
s &0

ek
—

—

NNN

;*THE

CLR
(LR
CLR

001200

Mov

STACK

;SAVE TEST NUMBER

FOLLOWING CLEARS ARE TO INITIALIZE TEST FROM CYLINDER O
aN1s+12
;START WITH SECTOR/TRA(CK = 0
;START WITH DATA = 0
an2s+10
anis+6
;START WITH O FOR COMMAND
19, ,388TMP1

;19 TRACKS 1O BE WRITTEN

;*THIS GETS THE HEADS TO CYLINDER O
031062

004737

033374

JSR

PC,aNCHECKT

031066
031072

000000

104401

057465

TYPE
HALT

LCPHALT

031074

013777

004506

MOV

I¥RPGVEC,IRPVEC

151064

Y, AND vV = 1
MOL ,DPR,DRY
; CHECKS DVA,RD
:AND THAT ALL STATUS BITS ARE = 0
; CANNOT

CONTINUE

;STOP TEST

TESTING

;SET RPO4& VECTOR ADDRESS

;70 *TIMET1®

P-CLOCK

NOT

IS PRESENT

;OR TO °'TIMEZ' IF P-CLOCK IS NOT THERE

8935

8936
8937
8938
8939
8940
8941
8942
8943
8944

HEADER AND

S BITS GIVE SECTOR THE NEXT LEAST SIGNIFICANT 5 BITS

8917

8918
8919
8920
8921
8922
8923
8924
8925
8926
8927
8928
8929
8930
8931
8932

A WRITE

DATA COMMAND IS GIVEN TO EACH TRACK FROM 0 TO 18 ON

»
¥

THIS

L 4

IRIEIETE
TR

SeTEST 3 6

8908

8909
8910
8911
8912
8913
8914
8915
8916

SEQ 0184

(BIT #13)0P]

;'TIME'

WILL ONLY

SAVE

: CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

013746
052716

002326
000101

MoV

S¥RECAL],=(SP)

012677

151062

MOV

(SP)+ ,aRHCS]

BIS

#GO.1E,(SP)

;GET

READY

10O MOVE

COMMAND

sGET READY 10 SET GO AND
;ENABLE INTERRUPT
;00 WlTH

CIRJIJDO, RPO&L/S/6 FCTINL CTRLR 2
CIRJJD PN
28-MAR-79 08:52

8964

8965
8966
8967
8968
8969
8970
8971
8972
8973
8974
8975
8976
8977
8978
8979
8980
8981
8982
8983
8984
8985
8986
8987
8988
8989
8990
8991
8992
8993
8994

8995
8996
8997
8998
8999
9000

30A(1052)
25-MAY-79
10:48
136
HEAD SELECTION TEST

D 15
PAGE 1386

SEQ 0185

ERR & TRE

osrrnoo

s
el

N NN
A —

N (N AN N

e
—

b
s e

;6 IN RHCS1 FOR RECALIBRATE
;WITH INTERRUPT ENABLED
OOO00O0O0O

8945
8946
8947
8948
8949
8950
8951
8952
8953
8954
8955
8956
8957
8958
8959
8960
8961
8962
8963

MACY11

031130

106413

WAT
RHDS1

002222
000200
060650
060650

004737

;WAIT
;WAIT

DRY
25000.
25000.

JSR

033314

FOR DRY BIT 10 SET
FOR RHDST REGISTER

;WAIT FOR DRY BIT IN RHDST1 REGISTER
;ALLOW 250000 MICRO SECONDS
;DRY MUST SET BETWEEN

;00 AND 500000 MICRO SECONDS

PC,aNCLDISK

;SET R1-RHCS1, R2-RHCS2
:R3-RHDS1, R&-RHER!

;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER

031134
031134
031140
031142
031144
031146
031150
031152

1%:

004037
002370
000004
010000
000000
000000
000000

033140

JSR

WRFROM

031166

SAVED

WORDS SAVED

DATA WORD
;SECOND DATA WORD

: THIRD DATA WORD
:FOURTH DATA WORD

;*FILL WRITE FROM BUFFER WITH DATA
JSR
RO,a#CLAREA
WRFROM+10
256.
<0.+2000>!<0.+40>'0

3%:

;LOCATION WHERE
;FIRST

0
0

033164

;SAVE HEADER DATA IN WRFROM
;NUMBER OF

10000
<0+400>!0

2%:

004037
002400
000400
000000

RO,a#FLHEAD

031154
031154
031160
031162
031164

s*FILL WRITE FROM BUFFER WITH HEADER

;CLEAR 256. WORDS, FROM WRFROM+10
;STARTING FROM WRFROM+10

:256. WORDS

JFILL WITH <0.+2000>.<0.+40>!0

;*THE WRITE HEADER AND DATA COMMAND WILL BE

JSR

RO.a3#RUN

FILLED

;SETUP TO RUN FOR DATA COMMAND

031166
031172
031174
031175
031176

004037

031200

002370

WRFROM

031202
031204

000000
010000

;STARTING ADDRESS OF DATA
;BUFFER = WRFROM
;00 NOT iINHIBIT BUS ADCRESS INCREMENT

031206

002344

WRIFOR

;00 NOY INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
.GET READY 10 DO A WRI*OR

035276

0
.BYTE
.BYTE

-256.-4

FM122

0
0

;CYLINDER 0
;SECTOR 0
;TRACK 0

:WORD COUNT (DATA) = 256. ¢+
;4 HEADER WORDS
;BUS ADDRESS

;16 BITS PER WORD FORMAT

;WRITE HEADER AND DATA WlTH 62 IN RH(S!?

CIRJJDO, RPOL/S/6 FCTINL CTRLR2
CZRJJD.P1
28-MAR-79 08:52

E 15

30A(1052)
25-MAY-79
10:48 PAGE 137
136
HEAD SELECTION TEST ERR & TRE

031210

00473%7

C33374

JSR

PC,a#CHECKT

031214
031220

000000

104401

057465

TYPE
HALT

LCPHALT

031222

013777

004506

MOov

a¥RPLVEC,QRPVEL

150736

SEQ 0186

;CHECKS DVA,RDY MOL,DPR,DRY AND v =
sAND THAT ALL STATUS BITS ARE = 0
:CANNOT CONTINUE
;STOP TEST

TESTING

IFf

"TIHE

IF P-CLOCK IS NOT

WILL ONLY

NOT

;SET RPO4 VECTOR ADDRESS
;10 °TIMEY1' IF P=CLOCK IS PRESENT

:0R 10 'TIME2'

SAVE

THERE

s CURRENT CYLINDER ADDRESS

:AND LOOK AHEAD REGISTERS

031230
031234

013746
052716

002344
000101

BIS

MOV

oNWRIFOR,-(SP)

031240

012677

150734

Mov

(SP)+,aRH(CS]

¥GO'!1E, (SP)

;GET

READY

10 MOVE

COMMAND

;GET READY TO SEV GO AND
;ENABLE INTERRUPT
;G0 WITH
;62 IN RHCS1 FOR WRITE HEADER AND DATA
:WITH

INTERRUPT

ENABLED

:*ONE REVOLUTION
= 16670 HlCRO SEC., ONE SECTOR= 760
;*MICRO SEC. MAX TIME ALLOWED= ONE REVOLUTION + HEAD

;*SWITCH + 2 SECTORS, MIN TIME ALLOWED
= SECTOR (F]RST CASE)

S«IF THERE IS A FAILURE HERE HALT PROGRAM AFTER ERROR WITH
;*SWITCH 15 AND SEE CURRENT CYLINDER REGISTER TO DETERMINE
s*WHAT

031244
031246
031250
031252
031254

104413

002200
000200
003162
001572

CYLINDER

FAILING

WAT
RHCSH

;WAIT
;WAIT

890.

;RDY MUST

RDY
1650.

FOR RDY BIT T0 SET
FOR RHCS1 REGISTER

:WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 16500 MICRO SECONDS
SET BETWEEN

;7600 AND 25400 MICRO SECONDS

;*NOW SECTOR O CF

ONE

TRACK HAS BEEN WRITTEN CHECK COMPOSIT

;*ERROR BIT TO BE SURE NO ERRORS HAPPENED

;*SAVE REGISTERS IN SAVE TABLE

031256

004737

035236

031262
031270
031272
031300

032737
001004
032737
001401

040000

002304

040000

002262

031302

104066

JSR

PC,3¥#PUTREG

BIT

#ERR,a#DS1

ERROR

BNE
BIT
BEQ
:
9%

9%
#TRE ,a#(S1
4%

;AMY DISK ERRORS

;BRANCH IF YES
:ANY RH ERRORS
:BRANCH IF NO

; SOME ERRORS OCCURRED

:WHILE DOING WRITE HEADER
;sAND DATA

—

[o ¥ o
s o

—

000400
000040

~o s

—

;*THE FOLLOWING 3 ADDS SETS UP FOR NEXT TRACK WRITING
QO

9001
9002
9003
9004
9005
9006
9007
9008
9009
9010
9011
9012
9013
9014
9015
9016
9017
9018
9019
9020
9021
9022
9023
9024
9025
9026
9027
9028
9029
9030
9031
9032
9033
9034
9035
9036
9037
9038
9039
9040
9041
9042
9043
9044
9045
9046
9047
9048
9049
9050
9051
9052
9053
9054
9055
90%6

MACY11

6%:

ADD
ADD

#400,9919+12
#.0,302%410

sNEXT TRACK FOR HEADER
¢NEXT

TRACK FOR DATA

CIRJIDO, RPO4/5/6 FCTNL CTRLRZ
CIRJJD PN
28-MAR-79 08:52
000400

031326
031332

005337
001300

001200

031350

004737

033314

—

136

031174

25-MAY-79

10:48

HEAD SELECTION TEST

15
PAGE

138

#400,3#38+6

sNEXT

DEC

arsTmpl

;COUNT

;*THE FOLLNWING CLEARS SETS UP
CLR
aNsSsST3+12
;START
(LR
a#SST4410
:START
CLR
aNSSTH+6
;START
JSR

SEaQ 0187

ERR & TRE

ADD
BNE

[aS 1S
o

005037
005037
005037

031334
031340
031344

N (NN

30A(1052)

N
—

062737

Pl
i o

031320

OO0

9057
9058
9059
9060
9061
9062
9063
9064
9065
9066
9067
9068
9069
9070
9071
9072
9073
9074
9075
9076
9077
9078
9079
9080
9081
9082
9083
9084
9085
9086
9087
9088
9089
9090
9091
9092
9093
9094
9095
9096
9097
9098
9099
9100
9101
9102
9103

MACY1T

PC,a#CLDISK

TRACK FOR COMMAND

19 TRACKS

FOR READ HEADER AND DATA
WITH SECTOR/TRACK = 0
WITH DATA = 0
WITH O FUR COMMAND

;S5ET R1-RHCS1, R2-RHCS?2
;R3-RHDS1,

;GIVE RH=11

R4&-RHER!

INITIALIZE

;SETUP UNIT NUMBER

031354

012737

000023

001200

§ST2:

031362

031362
031366
031370
031372

004037
003434
000404

033164

031374

013737

031362

WRFROM
4
10000

004037
000000
000
000

#SST2 ,a¥#SLPERR

RO,a#FLHEAD

035276

;SET LOOP POINT

: SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD

; SECOND DATA WORD
; THIRD DATA WORD
;:FOURTH DATA WORD

;eFILL WRITE FROM BUFFER WITH EXPECTED DATA

RO,3#CLAREA
JSR
WRFROM+<4*2>
256.
<0.+2000>.<0+40>.0

$S165:

FROM REINTO

;STARTING FROM REINTO

SFILL WITH =1

0
0
0

033164

:CLEAR 260. WORDS,

;*FILL WRITE FROM BUFFER WITH EXPECTED HEADER
JSR

033140

03143¢

031434
031440
031442
031443

Mov

001110

;19 TRACKS T0O BE READ

;260. WORDS

-1

S$ST14:

004037
002400
000400
000000

RO,a#CLAREA

260.

031422

031422
031426
031430
031432

#19.,3#8TMPY

;*FILL READ INTO BUFFER WITH ALL ONES
JSR

SST3:

006037
002370
000004
010000
000000
000000
000000

.*SET UP FOR READ HEADER AND DATA

Mov

REINTO

177777

031402

031402
031406
031410
031412
031414
031416
031420

SST1:

;CLEAR 256. WORDS, FROM WRFROM¢+<&e2>
;STARTING FROM WRFROM¢<4e2>
:256. WORDS
FILL WITH <0.+2000>!<0+¢40>.0

;vF1LL COMMAND FNR READ HEADER AND DATA
JSR
0

RO ,a#RUN

.BYTE

BYTE

;SETUP TO RUN FOR DATA (QMMAND
;CYLINDER O

<SECTOR O
:TRACK O

CIRJJDO, RPQ4L/S5/6 FCTNL CTRLRZ
CIRJJD.P
28-MAR-79 08:52

MACY1Y

6 15
30A(1052)
25-MAY-79
10:48 PAGE 139
136
HEAD SELECTION TEST ERR & TRE

SEQ 0188

9113

0314646

177374

-256.-4

;WORD COUNT

9115

031446

003434

REINTO

;BUS ADDRESS

9118
9119
9120
9121
9122

031450
031452

000000
014000

0
ECIIFMTL?

031454

002350

REFOR

9126
9127
9128
g}%g

031456

004737

033374

JSR

PC.a#CHECKT

031462
031466

1064401
000000

057465

1YPE
HALT

LCPHALT

9131
9132
9133
9134
9135
9136

031470

013777

004506

MOov

S¥RP4LVEC,QRPVEC

;SET RPO4& VECTOR ADDRESS
;10 'TIME1' IF P=CLOCK [S PRESENT
;:OR 10 °'TIMEZ2' IF P=-CLOCK IS NOT THERE
;'TIME®" WILL ONLY SAVE
: CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

9139
9140
9141

031476
031502

013746
052716

002350
000101

Mov
BIS

A#REFOR,-(SP)
#GO!1E, (SP)

9142
9143
9144

031506

012677

150466

MOv

(SP)+ ,aRHCS1

:GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;ENABLE INTERRUPT

9147
9148

031512
031514

104413
002200

9114

9116
9117

3}33

;& HEADER WORDS

9137
G138

9145
9146

9149
9150
9151
9152

031516
031520
031522

150470

WAT
RHCST

000200
003162
001572

9153

9157
8128

0315264

004737

035236

9160
9161
9162
9163

031530
031536
031540
031546

032737
001004
032737
001401

040000

002304

040000

002262

9165

031550

104066

9164

9166
9167

DATA

;D0 NOT

INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE
;GEY READY TO DO A REFOR

; CHECKS DVA,RDY, MOL,DPR,DRY AND vV = 1
;AND THAT ALL STATUS BI1S ARE = 0
; CANNOT CONTINUE TESTING IFf NOT
;STOP TEST

;60 WITH
;72 IN RHCS1 FOR READ DATA
;WITH INTERRUPT ENABLED

;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 16500 MICRO SECONDS
;RDY MUST SET BEIWEEN
;7600 AND 256400 MICRGC SECONDS

;*NOW SECTOR O 01 ONE TRACK HWAS BEEN READ CHECK COMPOSIT
;*ERROR BIT TO BE SURE NO ERROR HAPPENED

9156
1

;STARTING ADDRESS OF
;BUFFER = REINTO

;WAIT FOR RDY BIT T0 SET
;WAIT FOR RHCS! REGISTER

RDY
1650.
890.

9154
9155

= 256.

;READ HEADER AND DATA WITH 72 IN RHCSI

9125

(DATA)

10$:

;*SAVE REGISTERS IN SAVE
JSR
PC,a#PUTREG

TABLE

Bl
BNE
BI1
Bea

NERR,a#DS1
10%
NTRE ,a¥(S1
11%

;ANY DISK ERRORS
;BRANCH IF YES
. ANY RH ERRORS
;BRANCH IF NO

ERROR

. SOME ERRORS OCCURRED

;WHILE DOING READ
;HEADER AND DATA

CIRJJIDO, RPOL/S/6 FCTINL CTRLR 2
CIRJJD.PI
28-MAR-79 08:52

MACY11

30A(1052)
136

25-MAY-79

10:48

HEAD SELECTION TEST

H 15
PAGE

ERR &

190

SEQ 0189

TRE

9169
9170

:*NOW THE

9172
9173
9174

;*BIT1S NO 4,5,6,7,8 IN GOOD DATA ALSO GIVES TRACK NUMBER
;*IN GOOD DATA ALSO GIVES TRACK NUMBER
031552

—

031552
03155¢
031560
031562
031564
031566

9187
9188
9189
9190
9191
9192
9193
9194
9195
9196

004037
002370
003434
000406
031570
031574

035342

T0 GET

WHAT

JSR

RO,a#COMPAR

TRACK

WRFROM
REINTO

IN ERROR.

LOOKING AT

104067

12%:

000207

;COMPARE

TWO BLOCKS OF

COMPARED

ERROR

RTS

;B17S 4,5,6,7,8

;READ HEADER AND DATA

;ERROR
;HEAD SELECTION ERROR
;DATA READ GIVES NATURE

;FOUR

HEADER WORDS

;THE BITS 4,5,6,7,8

;GIVE THE TRACK NUMBER
;*NOW INCREMENT TO READ NEXT TRACK
000400
000040
000400

9202

031616

005337

001200

9205

031624

000402

9207

031626

000137

001001

031362

031414
031632
031442

13%:

5¢%:

ADD
ADD
ADD

MEMORY

;RETURN 10 12% ON ERROR
;RETURN 70 13% ON NO ERROR

;OF ERROR
SEXCEPT FOR THE

031622

THE

:GOOD DATA STARTS FROM WRFROM
sTEST DATA STARTS FROM REINTO

:260., WORDS TO BE

12%
13%

062737
062737
062737

9206

;*RHDST

260.

031574
031602
031610

9204

IN EACH SECTOR

11%:

9197
9198
9199
858?
w203

COMPARED DATA

;*1S UNIQUE 1F PROGRAM IS HALTED ON ERROR THEN LOOK AT

9171

9175
9176
9177
9178
9179
9180
9181
9182
9183
9184
9185
9186

READ DATA WiLL BE

#400,3#5573+412
#40,a#SST14+410
#400,3#55T546

NEXT
;NEXT
;NEXT

DEC
BNE

af$TMP1
5%

; COUNT

18137

;70 NEXT TEST

JMp

anssT?

s JUMP BA(K

TRACK
TRACK
TRACK

FOR HEADER
FOR DATA
FOR COMMAND

19 TRACKS

DATA

CIRJIDO, RPO4/S/6 FCTINL CTRLRZ
(ZRJJD.PN
¢B8-MAR-79 08:52

MACY11

9208

115
PAGE 191
10:48
30A(1052)
25-MAY-79
136
HEAD SELECTION TEST ERR § TRE

SEQ 0190

9209

S
R XX R Y

g%}?

s*TEST

9212
9213

;Y
.t

A WRITE MEADER AND DATA witL BE
UP TO 256./512. ON SECTOR ZERO,

9216

351“;

gg}g

"
‘e

9219

9221

i
.

9220

922°2

9223

031632
03163¢
031640

000004
012706
012737

001000
000037

9228
9229
9230
9231

031646

004737

031652
031656
031662

9235

9236
9237

9238
9239
9240
9241
354%
'A

9244
9245

9246

BE THE CYLINDER NUMBER
THEN A RECAL.BRATE

CYLINDERS
THE DATA wiLL

AND READ MEADER AND DATA WiLL

ON CYLINDERS 0,1,2,4,8,16,32,66,128,256 & 512.
DATA WILL BE

CHECKED.

ON AN ERROR, LOOPING WILL BE DONE

READ ONLY

DONE

ON THE

031664
031672

031676
03170¢

#STACK,SP
#37,8875INP

JRESET STALK
JSAVE TEST NUMBER

033314

JSR

PC,o#CLDISK

004737

033374

JSR

PC.,8#(HECKT

JSET R1=-RM(ST, R2-RM(S?2
;R3=RHDST, R4=-RMERI
sGIVE RM=11 INITIALIZE
;SETUP UNIT NUMBER

104401
000000

057465

TYPE
HALT

LOPHALY

012737
005037

005037
013777

1S137:
004506

;CHECKS DVA,RDY,
MOL ,DPR,DRY AND vV = 1
;AND THAT ALL STATUS BITS ARE - 0
sCANNOT CONTINUE TESTING |F NOT
;ST10P TEST

032024

*SET UP TO INITIALIZE TEST FROM CYLINDER O, TRACK O,
;*SECTOR O
MOV
#10000,3#19+10
;CYLINDER HEADER DATA
(LR
an2%+10
;DATA
CLR
FT 23 XT3
;CYLINDER (OMMAND RHCA

004506

;eTHIS
IS 10O GET THE MEALS TO CYLINDER ZERO
MOv
S#RPLVE(,8RPVEC ;SET RPO& VECTOR ADDRESS

010000
032016

9251

031776

150256

;70 "TIMEY®

JF P=-CLOCK 1S PRESENT
:OR 10 '"TIME2' IF P=CLOCK IS NOT THERE
SCTIME' WILL ONLY SAVE
sCUPRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

9253
gggg

031710
031714

013746
052716

002326
000101

Moy
BIS

SFRECALI,-(SP)
#GO:1E, (SP)

9256

031720

012677

150254

MOV

(SP)+ ,@RHCST

9261
9262
92¢3%

031724
031726
031730

104413
002222
000200

9257
9258
9259
9260

DONE ON ALL
TRACK ZERO.

SCOPE
MOV
MOV

9247
9248
9249
9250
9252

LINES

RR
R AR R Y

9224
9225
gsg?

9232
9233
9234

DIFFERENCE

WAl

RHDS!
DRY

;GET REARY T0 MOVE COMMAND
;GET READY TO SET GO AND
JENABLE INTERRUPT

;60 WITH
;6 IN RH(S1 FOR RECALIBRATE
;WITH INTERRUPT ENABLED
;WAIT

FOR DRY BIT

T0 SE1

;WAIT FOR RHDSY REGISTER
;WALIT FOR DRY BIT IN RHDS1 REGISTER

060650
060650

004636

031744
031752

012737
000403

001001

001200

9280

031754

012737

0004017

001200

9284
9285
9286
9287

031762

004737

033314

031762

9288
9289
ggg?

031766

9292
9293
9294
9295
9296
9297
9298

031766
031772
031774
031776
032000
032002
032004

9301

032006

9303
9304
9305
9306

032006
032012
032014
032016

9302

9307
9308
9309

9310

032020

9312
9313
9314
9315
9316

032020
032024
032026
032027
032030

9311

9317

9318

9319

IS CHECKED AND THE

032032

14$:

15%:

002370

@#RPO6
149

MOv
BR

513, ,a08TMP1
15%

;513 CYLINDERS
; CONTINUE

MOov

#257.,308TMP)

;257 CYLINDERS

JSR

PC,a#C(LDISK

;SET RI1-RHCSY, R2-RH(S?2
;R3-RHDS1, R4&-RHERI
;GIVE RH-11 INITIALIZE
sSETUP UNIT NUMBER

RO,a#FLHEAD

10000

LOCAT]ON WHERE SAVED
;NUMBER OF WORDS SAVED

:SECOND DATA WORD

0
0

035276

:SAVE HEADER DATA [N WRFROM
;FIRST DATA WORD

;:THIRD DATA WORD
;FOURTH DATA WORD

;*FILL WRITE FROM BUFFER WITH DATA
JSR
RO,9#CLAREA
WRFROM+10
256.
0

033166

;CONTINUE WITH TEST

;+FILL WRITE FROM BUFFER WITH HEADER

WRFROM
4

3$:
004037
000C00
000
000
177374

187
Bta

JSR

033140

2%:

004037
002400
000400
000000

MAX.

;TEST #0OKk RPO6 DRIVE
;TREAT UNIT AS AN RPO4
;s TREAT AS AN RPO6
R R RN
R
R
Rl

18:

004037
002370
000004
010000
000000
000000
000000

APPROPRIATE

;vTHE

JSR
0

WRITE

WRFRQOM

HEADER ANC DATA (OMMAND WILL BE

RO,a3#RUN

O
.BYTE
.BYTE
O
=256.<4

:CLEAR 256. WORDS, FROM WRFROM+10
;STARTING FROM WRFROM+10
;256. WORDS
srltt WiTH O
LOADED

;SETUP TO RUN FOR DATA CCMMAND
;CYLINDER O
;SECTOR 0
;VRACK 0
;WORD COUNT (DATA) = 256, ¢+
;& HEADER WORDS

:8US ADDRESS

;STARTING ADDPRESS OF

005737
001404

9299

TYPE

BR
R R R

031736
031742

9300

;00 AND 500000 MICRO SECONDS

*CYLINDER DIFFERENCE IS SET UP

927¢
9273
9274
9275
9276
9277
gg;g
9281
9282
9283

;ALLOW 250000 MICRO SECONDS
;DRY MUST SET BEIWEEN

;*THE DRIVE

g%?g

SEQ 019

DIFFERENCE LINES
25000.
2>000.

9268
9271

25-MAY=79

J 15
10:48 PAGE 192

g%g?

031732
031734

509;1052)

DATA

—

9264
9265

MACYI

CIRJIDO, RPOL/S/6 FCTNL CTRLRZ
CIRJJD.PYN
28-MAR-79 08:52

—

CIRJJDO, RPO4L/S5/6 FCINL CTRLR2
28-MAR-79 08:52

CIRJJD. P11

9373
9374
9375

002344

WRIFOR

032042

004737

033374

JSR

PC.a#CHECKT

032046
032052

104601

000000

057465

TYPE
HALT

L CPHALT

032054

013777

004506

MOv

FRPLVEC,8RPVEC

INHIBIT BUS ADDRESS INCREMENT

;16 BITS PtR WORD FORMAT

;D0 NOT INH]IBIT ECC CORRECTION
;00 NOT
GET

INHIBIT HEADER COMPARE

READY

T0O DO A WRIFOR

;WRITE HEADER AND DATA WiTH 62 IN RHCSI
;CHECXS DVA,RDY,MOL ,DPR,DRY AND VvV =
;AND THAT ALL STATUS BITS ARE = 0
s CANNOT CONTINUE TESTINC I+ NOT

;STOP TEST

;SET RPO4 VECTOR ADDRESS
;70 TIMET' IF P=CLOCK ]S PRESENT

;OR 1O 'TIMEZ'
s'TIME'

IF P-CLOCK IS NOT THERE

WILL ONLY SAVE

s CURRENT CYLINDER ADDRESS
:AND LOOK

032062
032066

013746
052716

032072

012677

002344
000101

MOV

d#WRIFOR,-(SP)

150102

Mov

(SP)+ ,@RHCST

BIS

#GO'1E, (SF)

;GET

READY

AHEAD REGISTERS

TO MOVE

COMMAND

;GET READY TO SET GO AND

;ENABLE INTERRUPT
;60 WITH

;62 IN RHCSY FOR WRITE HEADER AND DATA
;WITH INTERRUPT ENABLED

;*ONE REVOLUTION = 16670 MICRO SECONDS, ONE SECTOR = 760
;*MICRO SECONDS, ONE SEEK = 7000 MICRO SECONDS.
;*MAX TIME
;*MIN TIME

032076
032100
032102
032104
032106

=
=

WAT

106413

SECTOR

;WAIT

RHCST
RDY
1260.
1260,

002200
000200
002354
002354

REVOLUTION ¢

SEEK

+ 2 SECTORS

FOR RDY BIT

T0 SET

:WwAIT FOR RHCS1 REGISTER
;WAL1 FOR RDY BIT IN RHCSY REGISTER
;ALLOW 12600 MICRO SECONDS
;RDY MUST SET BETWEEN

;00 AND 25200 MICRO SECONDS

OoOro0Oro

N
S

)

;*NOW ONE SECTOR WRITE 1S COMPLETE.
CHANGES WILL BE MADE
;*FOR THE NEXT SECTOR, THEN THE ABOVE WILL BE REPEATED

9348
9349
9350
9351
9352
9353
9354
9355
9356
9357
9358
9359
9360
9361
9362
9363
9364
9365
9366
9367
9368
9369
9370
9371
9372

SEQ 0192

;DO NOT

FMT22

150104

193

;BUFFER = WRFROM

032040

—

9346
9347

LINES

9343
9344
9345

25-MAY-79

DIFFERENCE

000000
010000

VAV
JV LV V]
roro oMM

9336
9337
9338
9339
9340
9341
9342

30;;1052)

032034
032036

OOO0O00O

9320
9321
9322
9323
9324
9325
9326
9327
9328
9329
9330
9331
9332
9333
9334
9335

MACYN

K 15
10:48 PAGE

005237
005237
005237
005337
001316

031776
032016
032024
001200

S*UNTIL CYLINDER 256./512. 1S REACHED
INC

INC

INC
DEC
BNE

ar1$+10

an2%$+10
an3%+4
NS TMPY
1%

;CYLINDER HEADER DATA

;DATA

;CYLINDER COMMAND (RHCA)
:COUNT DOWN FOR 256./512. CYLINDERS
;D0 NEXT WRITE IF 256./512. NCT DONE

;eNOW ALL 256./512. CYLINDERS HAVE CYLINDER NUMBER WRITTEN
:¢AS DATA ON SECTOR 0, TRACK 0. NOW A RECALIBRATE, FOLLOWED
:*BY

READ HEADER AND DATA,

THEN A (MECK WILL BE DONE

se(YLINDER 0,1,2,4,8,16,32,64,128,256,512, AND 0

9376
9377

032132
032140

013737
005037

032162
001200

MACY11
001110

30A(1052)
25-MAY-79
10:48
137
DIFFERENCE LINES
MoV
CLR

L 15
PAGE

aNLS IFSLPERR
arsTmp?

94
;LOOP ON ERROR
;CYLINDER COUNTER

SEQ 0193

CIRJIJDO, RPOL/S/6 FCTNL CTRLR2
CZRIJD.PI
28-MAR-79 08:52

CZRJJDO, RPO&L/S/76 FCTINL CTRLRZ2
PN
CZRJJD.P
28-MAR-79 08:52
9378
9379
9380
9381
9382
9383
9384
9385

Y150
9387
9388
9389
9390
9391
9392
9393

9394
9395
9396
9397
9398
9399
9400
9401
9402
9403
9404

9405
9406
9407

9408
9409
9410
9411
9412

9413

9414
9415
9416

9417

9418
9419
9420
9421
9422
9423
9424
9425
9426

9427
9428
9429
9430
9431
9432
9433

MACY11

30817052
25-MAY-79
10:48
137
DiT FERENCE LINES

15
PAGE

195

SEQ 0194

s*INITIALIZE, RECALIBRATE, AND READ CYLINDERS

.';.'"""""""""""t"'"""'""""."""'"""'.'l.'

032144
032152
032156
032162

012737
005037
005037

J10000
132264
J32272

032162

004737

033314

;*SETUP FOR CYLINDER 0

032244

Mov
CLR
6%

sCYLINLLY HEADER (DATA)

(LR

#10000,3#58+10
2063410

N7+

;DATA

JSR

PC,a#CLD]SK

;SET R1=-RHCS1,

;CYLINDER COMMAND (RHCA)

;R3-RHDS1,

R2-RM(CSZ

R&=-RHER1

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
032166

013777

004506

147772

Mov

IFRPLVEC,aRPVEC

;SET RPO4 VECTOR ADDRESS

;70

'TIMEY'

P=-CLOCK

IS PRESENT

;OR TO °'TIMEZ' IF P-CLOCK IS NOT THERE
;"TIME' WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS
;AND LOOK

032174
032200

013746
052716

002326
000101

Mov

BIS

#GO!1E, (SP)

032204

012677

147770

Mov

(SPj+,akHCST

032210
032212
032214
032216
032220

106413
002222

a#RECALI,-(SP)

INTERRUPT

WAl
RHDS1

;WAIT

FOR DRY BIT

004037
003434
000404

T0 SET

25000.
25000.

;WAIT

FOR DRY BIT

IN RHDS1

;ALLOW 250000 MICRO SECONDS

REINTO

;DRY MUST

5%:

004037
002370
000004
010000
000000
000000
000000

033140

;eFILL

JSR

WRFROM

10000
0
0
0

SET BETWEEN

;0C AND 500000 MICRO SECONDS

INTO BUFFER WITH ALL ONES

RO,a#CLAREA

2?0.

177777

032234

032234
032240
032242
032244
03c246
032250
032252

JSR

033164

ENABLED

;WAIT FOR RHDS1 REGISTER

;*CLEAR READ

032222
032226
032230
032232

:GET READY TO MOVE COMMAND
:GET READY 10 SET GO AND
;ENABLE INTERRUPT
;60 WiTH
:6 IN RH(S1 FOR RECALIBRATE
;WITH

DRY

000200
060650
060650

AHEAD REGISTERS

WRITE

;CLEAR 260. WORDS, TROM REINTO
;STARTING FROM REINTO
;260. WORDS
JFILL WITH <1

FROM BUFFER WITH EXPECTED HEADER

RO ,a#FLHEAD

;SAVE HEADER DATA [N WRFROM
;LOCATION WHERE SAVED
:NUMBER OF WORDS SAVED
;FIRST DATA WORD
. SECOND DATA WORD
:THIRD DATA WORD
;FOURTH DATA WORD

9480
gag;

— YTV
e
WM

PILL WITH O

004737

033374

032314
032320

104401
000000

057465

032322

013777

004506

147636

"Br—

;DO NOT

INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE
;GET

READY

T0 DO A REFOR

;READ HEADER AND DATA WITH 72 IN RHCS!

JSR

PC.asCHECKT

TYPE

LCPHALTY

MOv

S#RPLVEC,aRPVEC

HALT

MDD

032310

AFMACY

REFOR

002350

032306

;BUFFER = REINTO

DATA

0
ECI'FMT2?

;STARTING ADDRESS OF

BrTM

000000
014000

(DATA) = 256.

;4 HEADER WORDS
:BUS ADDKESS

:CHECKS DVA,RDY,MOL,DPR,DRY AND vV =
;AND THAT ALL STATUS BITS ARE = 0
; CANNOT CONTINUE TESTING IF NOT

;STOP TEST

;SET RPO4 VECTOR ADDRESS

;10 "TIME1® IF P-CLOCK IS PRESENT
;OR 10 "TIMEZ2' IF P=-CLOCK IS NOT THERE
;"TIME' WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS
;AND LOOK

AHEAD REGISTERS

;*ONE SECTOR = 760 MICRO SECONDS, ONE REVOLUTION ;*16670 MICRO SECONDS, MAX SEEK =
;*MAX TIME = ONE REV + 1 SEEK ¢ 1
1

SECTOR

52000 MICRO SECONDS
SECTOR

;*MIN TIME

032302
032304

;WORD COUNT

REINTO

0
0

;SETUP TO RUN FOR DATA (OMMAND
;CYLINDER O
;SECTOR O
:TRACK O

003434

=256.-4

RO ,a#RUN

032300

JSR
0
.BYTE
.BYTE

0064037
000000
000
000
177374

035276

;vFILL READ HEADER AND DATA COMMAND

7%:

032266
032272
032274
032275
032276

032330
03233«

032340

013746
052716

002350
000101

MOy
BIS

S¥#REFOR,=-(SP)
#GO'1E, (SP)

;GET READY TO MOVE COMMAND
:GEY READY T0 SET GO AND

012677

147636

Mov

(SP)+,aRu(S

;60 WITH

JENABLE INTERRUPY
:72

IN RHCS!

FOR READ DATA

INTERRUPT ENABLED

:WlTH

2364

9484
9485
9486
9487
9488
9489

;CLEAR 255. WORDS, FROM WRFROM+10
:STARTING FROM WRFROM+10
:256. WORDS

032266

9483

JSR
RO,3#CLAREA
WRFROM+1(
256.
0

9468
9469
9470
947
9472
9473
9474
9475
9476
9477
9478
9479

(33164

9467

004037
002400
000400
000000

TER

9466

6%:

9451
9452
9453
9454
9455
9456
9457
9458
9459
9460
9461
9462
9463
94664
9465

SEQ 0195

SUN

9450

196

9446
9447
9448
9449

032254
032260
032262
032264

N 15
PAGE

2346

1046413

002200

WAl
RH(ST

:WAlT
sWAIT

FOR RDY BIT 10 SE1
FOR RM(CS) REGISTER

9441
9442
9443
9444
9445

032254

30A(1052)
25-MAY-79
10:48
137
DIFFERENCE LINES

9434
9435
9436
9¢37
9438
9439
9440

MACY1Y

CIRJIDC, RPO&L/S/6 FCINL CTRLR2
C(ZRJJD.PWY
28-MAR-79 08:52

CIRJIDO, RPO4/S/6 FCTNL CTRLRZ
CIRJJD. P11
28-MAR-79 08:52
032350
032352
032354

30A(1052)
25-MAY-79
10:48
137
DIFFERENCE LINES

B 16
PAGE 197

RDY

000200
006620
006620

SEQ 0196

;WAIT FOR RDY BIT

3472.
3472.

IN RHCS1

;ALLOW 34720 MICRO SECONDS
;RDY MUST SET BETWEEN
;00 AND 69440 MICRO SECONDS

;*CHECK READ WORDS AS ALL READ COMMANDS HAVE BEEN CHECKED
:*(DATA ERRORS MAY

032356
032362
032364
032366
032370
032372

004037
002370
003434
000404
032374
032400

032374
032376

104070
000207

035342

JSR
WkFROM
REINTO

IMPLY ''IMPLIED SEEK'' ERRORS)

RO,3#COMPAR

;COMPARE TWO BLOCKS OF MEMORY
;600D DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

260.
8$
9%

8%:

ERROR
RTS

;260., WORDS TO BE COMPARED
;RETURN TO 8% ON ERROR
;RETURN TO 9% ON NO ERROR
70

;READ HEADER AND DATA ERROR

;DATA GIVES EXPECTED CYLINDER

;*NOW ONE CYLINDER HAS BEEN C(HECKED.
;*T0 READ

THE

CYLINDER AND THE

CHANGES WILL BE MADE

ABOVE

SECTOR READ WILL BE

;*REPEATED

032400
032404

032406
032412

005737
001003
005237
000416

9%:

001200

187
BNE

NS TMP]
108

;1S 1T ZERO ?
;BRANCH IF NOT

11%

;PUT

INC

001200

a¥STMPI

;ADD ONE
ONE

= 0

ZERO

IN CYLINDER

TR
R
R
R
Ry

032414
032420

005737
001404

10%:

004636

187

BEQ

a¥#RP0O6

16%

;TEST

FOR RPO6 DRIVE

: TREAT UNIT AS AN RPO4
;TREAT

AS AN RPO6

::tt""t"*""'t"""'it"'"'"'"'t"'l'tt't't"'t"l"'t'!'

032472
032500

=N
NNINN S
NN LN —SN
NNNOON~N—

032440
032442
032450
032456
032462
032466

022737
000403
022737
OO
(NN —

032422
032430
032432
032440

OOOOODO
—
Qs
\ Nt = OO

9490
9491
9492
9493
9494
9495
9496
9497
9498
9499
9500
9501
9502
9503
9504
9505
9506
9507
9508
9509
9510
9511
9512
9513
9514
9515
9516
9517
9518
9519
9520
9521
9522
9523
9524
9525
9526
9527
9528
9529
9530
9531
9532
9533
9534
9535
9536
9537
9538
9539
9540
9541
9542
9543
9544
9545

MACYT1

(mp

001000

001200

000400

001200 16%:

001200
001200
001200
010000
032244
001200
032162

17%:

001200
032264

BR
(MpP

BLOS
11%:

17%
N256.,aN8TMPI

;1S 1T PASSED 512 CYLINDERS YET

; CONTINUE
;1S 1T PASSED 256 CYLINDERS YET
. CONTINUE

12%

:YES, SO GO TO ZERO

NEMT22, (SP)
(SP)+,a#58+10

; INCLUDE FORMAT B17
:HEADER DATA (CYLINDER)

ADD
MOV
Mov

a¥STMP1 ,a#STMP1 ;DOUBLE THE CYLINDER
SNSTMP1 ,aN68+10 ;MAKE CYLINDER ADDRESS THE DATA
aNSTMP1,-(SP)
:GET CYLINDER NUMBER

MOV

a¥STMP1,3#78+4

BIS
MOv

032272

#512.,308TMPI]

JMP

?
?

:CYLINDER COMMAND (RHCA)
RETURN TO RECALIBRATE

EBEEZEZZEZZZEEESZ2Z2R22
2200200222220 00200202R2R0RRRRARRRRRRRRRRRRRA

005737
001405

004636

128:

TS1

BEQ

a¥RPO6
18%

TEST FOR RPO6 DRIVE

:TREAT UNIT AS AN RPO4

:TREAT AS AN RPO6

;;'tl"'t""""'""""t"'t'""""'l..".lt'l'l't"'tll"!'

CIRJIDO, RPOL/S5/6 FCTINL CTRLR2

CZRJIJD.PN

28-MAR-79 08:52

MACY11

9546
9547
9548
9549
9550
9551
ggg%

032512
032520
032522
032524
032532
032534

022737
001421
000404
022737
001414

002000

001200

001000

001200

9554
9555

032534
032542

063737
012737

001200
010000

9557

032554

005037

032272

9560

032564

9556

gggg

032550

032560

005037

000137

30A(1052)

137

18%:

19%:

032264

001200
032244

25-MAY-79

DIFFERENCE LINES

16
PAGE

198

Sea 0197

#1024, ,3#8TMPT
13%
19%
#512.,3#8TMP1
13%

;512 DONE YET ?
;0UT =ee--cccncccccccccccccccocnes >
; CONTINUE
;256 DONE YET ?
;0T eescemecccccccccccacececones >
; CONTINUE

ADD
Mov

aNSTMP1 ,a#8TMP1
#10000,3#5%+10

;DOUBLE THE CYLINDER
;CYLINDER HEADER DATA

CLR

IN78+4

;CYLINDER COMMAND

JMP
13%:

(Mp
BEQ
BR
(mp
BEQ

CLR

032162

10:48

an6%$+10

anesd

:DATA

(RHCA)

;RETURN TO THE RECALIBRATE
;END OF

TEST

)

R
CIZRJJDO, RPO4L/S5/6 FCLTNL CTRLR?2
CIRJJD NAR
28-MAR-79 08:52

9589

9590

9591
9592
9593
9594
9595
9596
9597
9598
9599
9600
9601
9602
9603
9604
9605
9606
9607
9608
9609
9610
9611

30A(1052)
25-MAY-79
10:48
137
DIFFERENCE LINES

D 16

PAGE

199

SEQ 0198

:;'"'"'"""""""""""""""'."'l'."'I"'.'."""I'
':'t"l""""'""'""""'"'""""".""'.l"".".'."'.

TRTEST 40
.

THIS

END OF DRIVE

1S THE

END OF

TEST

FOR ONE DRIVE

P
i

I1F THERE ARE MORE DRIVES, THEN THE PROGRAM
JUMPS 10 TEST S FOR NEXT DRIVE TEST

END OF PASS 1S REACHED ONLY AFTER ALL DRIVES ARE COMPLETE

032662
032662
032666
032670
032674
032702
032702
032706
032710
032714
032720
032724

104401
000425

013746
104405
104401

000402

—

032676

::67%:

005037
005037
005737
001413

001112
001102
004626

032726
032732
032736
032742
032744
032750

005237
013746

001100
033123
001100

000137

033120
010142

032754
032762
032766
032770
032774
033000
033002
033004
033006
033012

012737
005337
001413
013700
012701
022100
001401
000775
011137
000137

104405
104401

:
649

004616

001112

104401

1ST40:

::65%:

013746
104405

000001
000000
032610

~N N

000004
012737
012737

032564
032566
032574
032602
032606

~J -t

A 2222222222220
RRRA
R
RRRRRARRRARARARERANN

—_
~NO

9561
9562
9563
9564
9565
9566
9567
9568
9569
9570
9571
9572
9573
9574
9575
9576
9577
9578
9579
9580
9581
9582
9583
9584
9585
9586
9587
9588

MACY11

177777
004620

004616
004576

004616
010142

66%:

SCOPE

MOV
MoV
TYPE

MoV
TYPDS
TYPE

ANFUNIT ,=(SP)

;GET READY TO TYPE UNIT NUMBER

,67%

LASCIZ

LASC1Z

ERRORS ON THIS PASS ON

UNIT

NO./

66%

;. TYPE ASCIZ STRING
::GET OVER THE ASCIZ

MOV
TYPDS

ANSERTTL,-(SP)

;GET READY TO TYPE NUMBER OF ERRORS

INSERTTL
afSTSTNM

;CLEAR TOTAL NUMBER Of
;CLEAR TEST NUMBER

;TEST

TYPDS
TYPE
JMP

2%:

<15><12>/TOTAL

INC

1%:

64%

TYPE
Mov

3%:

,65%

::D0 1 ITERATION
SREINSTATE PS 10 0
;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

CLR
CLR
181
BEQ

041170

¥ ,8TIMES
#0,PS

MOV

DEC
BEQ
MOV
MOV
CMP
BEQ

BR
MOV

JMP

INSELECT

INSPASS

. SENDMG

INSPASS,-(SP)

L SENULL

;STARTING FROM 200 ?
NEXT

DRIVE

ERRORS

;CONTINUE TESTING THIS ONE IF NOT
; INCREASE PASS COUNT
;:TYPE END PASS #
;GET PASS NO.
sTYPE 1T OuT

a¥1STS

;JUMP

#-1,3/PRITEM

;CLEAR PREVIOUS 1TEM NUMBER

O#NOUNITS
$ECP
a#UNIT,RO
NFUNITS,R1

(R1)+,R0
2%
1%

(R1),a#UNIT
CLARRES

TEST

===memmcmcccemccceacaa- >

NO. GF UNITS PRESENT DECREMENTED
:BRANCH IF ALL DRIVES COMPLETE
:UNIT UNDER TEST
:TABLE
1S THIS UNIT JUST TESTED 2
:CONTINUE IF YES
: INCREMENT 1F NO
STHIS

1S NEXT

:TEST

THE

UNIT

DRIVE

====m=-===ce=-ae-e >

CIRJJDO, RPO4L/S/6 FCTNL CTRLR2
CZRJJD.PN
28-MAR-79 08:52

MACY11

30A(1052)
140

9612
9613

9615
9616
9617
9618
9619

9628
9629
9630
9631
9632
9633
9634
9635
9636
9637
9638
9639
9640
9641
9642

9643

Q644

9645

.SBTTL
.

’

9658

END OF

DRIVE

10:48

16
PAGE 200

*eeSUBROUTINE
S+

PASS ROUTINE
222222

2Rl

;*INCREMENT THE PASS NUMBER ($PASS)
;*TYPE ''END PASS #XXXXX'' (WHERE
;v1F THERES A MONITOR GO TO IT

XXXXX

AR RRRRRREERRRRRRRRRRN]

IS A DECIMAL NUMBER)

;*1F THERE ISN'T JUMP T0 TSTI
033016
033016
033020
033024
033030
033034
033042
033044
033046
033050
033052
033054

033056

033062
033066
033070
033074

NN
= et el s
COWOOo &SSO

ODOO0OO0VOO0O0O

(W
VIV VRV LV AV ]
(G AV W NV LV AV LV 1V ]

9646

9647
9648
9649
9650
9651
9652
9653
9654
9655
9656
9657

END OF

.SBTTL
.SBTTL
.SBTTL

9614

9620
9621
9622
9623
9624
9625
9626
9627

25-MAY=79

000004
005037
005037
005237
042737
005327
000001
003022
012737
000001
033044
104401
013746
104405
104401

013700
001405
000005
004710

$EOP:

001102
001212
001100
100000

0C1100
$EOPCT:

$ENDCT:

033123

001100

033120

$GETL?:

000042

$ENDAD:

00240
000240

000240

000137
006222
377
015
050040

000043

$DOAGN:

377
042412
051501

000
042116
020123

SRINAD:

S$ENULL:
SENDMG:

SCOPE
CLR
CLR
INC
BIC
DEC
.WORD
BGT
MOV
.WORD
$EOPCT
TYPE
Mov
TYPDS
1YPE

MOV
BEQ
RESET

JSR

$TSTNM
$TIMES
$PASS
#100000,8PASS

;. IERO THE TEST NUMBER
;. JERO THE NUMBER OF ITERATIONS
:: INCREMENT THE PASS NUMBER
;:DON'T ALLOW A NEG. NUMBER

$D0AGN
:PC)o,a(P()*

;s YES
;;RESTORE

JSENDMG

::TYPE "'END PASS #''

%PC)*

$PASS,-(SP)

LSENULL

ansé?2,RO
$DOAGN

PC,(RO)

NOP

COUNTER

:;SAVE SPASS FOR TYPEOUT

::60 TYPE--DECIMAL ASCI] WITH S.GN
;:TYPE A NULL CHARACTER

:;GET MONITOR ADDRESS
:;BRANCH 1F

NO MONITOR

:;(LEAR THE WORLD
;60 TO MON]TOR

..SAVE ROOM
:;FOR

NOP
NOP

JMP
.WORD
.BYTE
LASC1Z

.. LOOP?

;o ACTN

a(PC)+
TST1
-1,-1,0

<15><12>/END

; ;RETURN
::NULL

PASS

CHARACTER STRING

Sea 0199

CIRJIJDO, RPO&L/S5/6 FCTINL CTRLRZ2
C(ZRJJD.P1
2B-MAR-79 08:52

MACY11

30A(1052)
END OF

25-MAY-79

PASS ROUTINE

10:48

16
PAGE 201

SEQ 0200

9659

9687

THIS FILL
LLS MEMORY

XD2

033140
033140
033142
033144
033146

033150
033152
033154
033156

033160
033162

MOV
MOV
MOV
MOV

012021
005302
001375
012602
012601
000200

1%:

MOV
DEC
BNE

MOV
MOV
R1S

;THIS

CLEARS

CALL
;

::PUSH R1 ON STACK

R1,-(SP)
R2,-(SP)
(RO)+ R
(RO)+,R2

;:PUSH RZ ON STACK
;R1 HAS ADDRESS OF WHERE
;R2 HAS NUMBER OFf WORDS

(ROY+,
(R 1)+
R2

;s SAVE

(SP)+,R2
(SP)+,R1
RO

;;POP STACK INTO R?
:;POP STACK INTO R1

ANY BLOCK

WILL HAVE

CLAREA:

——

—

o
o

e LN L U ' 0 L U N AN A AN AN N
VIV VIV IV W AV AV LV VL RV AV ]

;R2 WILL
;R3 WILL

LAV

—_O0O
OO
&~

V1, ]

200
202

212

1$:

MOV
DEC
BNE

MOV
MOV
MOV

;BRANCH

INCOMPLETE

MEMORY.

;FROM
;NUMBER CFf WORDS
;DATA

10 BZ

STARTING ADDRESS OF

HAVE NUMBER OF
HAVE DATA

MOV
MOV
MOV
Mov
MOV
MOV

DATA

:DECREMENT COUNT

RO,3#CLAREA

;R1

[sololelelalolelelelolelola)

9710
9711
9712
971%
9714

FLHEAD:

FILLING 1T WITH ANY DATA

9691
9692
9693
9694

Q709

010146
010246
012001
012002

;DATA REPEATED XN TIMES

;*NOW FILL DATA

9688
9689
9690

9695
9696
9697
9698
9699
9700
9701
9702
9703
9704
9705
9706
9707
9708

WITH GIVEN DATA

1EF LY FOR HEADER INFORMATION
;JUSED CHIE
1S
sCALL
RO,3#FLH EAD
;FILL HEADER
JSR
:
LOC
;LOCATION WHERE SAVED
XN
:NUMBER OF WORDS
XD1
;DATA REPEATED XN TIMES

9660
9661
9662
9663
9664
9665
9666
9667
9668
9669
9670
9671
9672
9673
9674
9675
9676
9677
9678
9679
9680
9681
9682
9683
9684
9685
9686

R1,-(SP)
R2,=-(SP)

R3,-(SP)
(RO)+,R1
(RO)+,R2
(RO)+,R3
R3I,(R1)¢
R

WORDS

FILLED

BLOCK

TO BE

::;PUSH R1

FILLED

ON STACK

;sPUSH R2 ON STACK

;;PUSH R3 ON STACK
;FROM

; NUMBER

;DATA

;MOVE

DATA

; COUNT
;BRANCH IF NOT COMPLETE

(SP)+,R2
(SP)+ ,R1

;;POP STACK INTO RZ
::POP STACK INTO R!

(SP)+,R3

;;POP STACK

INTO R3

TO SAVE

CIRJJIDO, RPO4/S5/6 FCTINL CTRLRZ
ClRyJD.PN
28-MAR-79 08:52
9715

9716
9717
9718
9719
9720
9721
9722
9723
9724
9725
9726
9727
9728
9729
9730
9731
9732
9733
9734
9735
9736
9737
9738
9739
9740
9741
9742

033214

MACY11

30A(1052)
END OF

25-MAY-79

PASS ROUTINE

000200

RTS

;THIS 1S A SUBROUTINE

.SR

TO FILL SAVED REGISTER LOCATION

RO,
a#F ILLRE

;REGISTER NAME

;DATA

[
FILLRE:

002172
004512
000200

Mov
Mov
MOV
Mov

SuB

MOV
Mov
mov
RTS

SEQ 0201

;RETURN TO MAIN PROGRAM

RHXX

033216
033216
033220
033222
033224
033226
033232
033236
033240
033242

6 16
PAGE 202

;WITH GIVEN VALUE

CALL

10:48

R1,-(SP)
R2,-(SP)
(RO)+,RY
(RO)+,R2
#RHWC R
R2,SAVERE(R1)

;;PUSH R1 ON STACK
;s PUSH R2 ON STA(K
;ADDRESS OF ADDRESS OF
;DATA
;OFSET
;DATA ]S MOVED IN

(SP)+ R
RO

;. POP STACK INTO R1
sRETURN TO MAIN PROGRAM

(SP)+,R?

;:POP STACK

INTO RZ

CIRJJIDO, RPOL/S/6 FCINL CTRLRZ
(ZRJJD.P1Y
2B-MAR-79 (08:52

30A(1052)
END OF

25-MAY-79

PASS ROUTINE

10:48

H 16
PAGE

203

(071, 97,9)

;THIS SUBROUTINE SETS UP FOR SEARCH
sCALL IS
RO,9#SRCH
JSR
.
sCYLINDER
C
;
;SECTOR
S
;.BYTE
~NO O

—

NN~

000200

~N~~

C33262

033244
033250
0332564

OO0

9743
9744
9745
9746
9747
9748
9749
9750
975
9752
9753
9754
9755
9756
9757
9758
9759
9760
9761
9762
9763
9764
9765
9766
9767
9768
9769
9770

MACYYY

146742
146730

002334

;.BYTE

SRCH:

MOV
MOV
MOV

146716

;THIS

;CALL

:
:
033264
033270

033276

012077
013777

000200

; TRACK

146722
002352

146702

SUBROUTINE

JSR
C

SEEKCY: MOV

MOV
RTS

(RO)+ ,3RHCA
(RO)+,3RHDST
AFSERCH,ARHCST
RO

SETS UP FOR

:SET DESIRED CYLINDER ADDRESS
;SET DESIRED SECLTOR/TRACK ADDRESS
;GET READY FOR SEARCH

;WITH 30 IN RHCSI

SEEK

COMMANDS

RO,a#SEEKCY
sCYLINDER

(RO) ¢+ ,aRHCA

S#SEECOM,IRHCST
RO

sSET DESIRED CYLiINDER ADDRESS
;MOV & INTO RHCS!
:RETURN TO MAIN PROGRAM

Sea 0202

CIRJJDO, RPO4/S/6 FCINL CTRLR2
CZRJJD.PVI
28-MAR-79 08:52

MACY1Y

977)
9772
9773
9774
g;;z
033300
033306
033312

052077
013777
000200

146704
002356

9782

033314

013701

002200

03333«
033340

012712
013712

000040
004616

9783
9784
8;35
6

9787
9788

9789
9790

10:48

116

PAGE 204

SEQ 0203

:THIS SUBROUTINE SETS UP FOR OFFSET COMMANDS
;CALL IS
:
JSR
RO,a#0FSET
:
0
;MICRO INCHES OFFSET

9777
9778
9779

30A(1052)
25-MAY-79
END OF PASS ROUTINE

033320
033324
03333C

033344
033346

013702
013703
013704

005011
000207

002176
002222
002202

146666

OFSET:

BIS
MOv
RTS

(RO)+,aRHOF
aN#OFSETC,aRHCS!
RO

;SET OFFSET REGISTER
;MOVI4 INTO RH(SI
;RETURN TO MAIN PROGRAM

CLDISK: MOV

S/RHCST,RY

;R1

Mov
MoV

#CLR,aR?
a¥UNIT,aR?

;CLEAR ALL REG.
;REINSTATE UNIT NO.

Mov
MOov
MOv

(LR
RTS

INRH(S2 ,R2
a#RHDS1 ,R3
O#RHER1 R4

aR1
PC

WiLL BE CONTROL AND STATUS!

;R2 WILL BE CONTROL AND STATUSZ
;R3 WiLL BE DISK STATUS REGISTER!
;R4 WILL BE ERROR REGISTER #1

;CLEAR FUNCTION BITS

CIRJIJDO, RPO&L/S5/6 FCINL CTRLR2
CZRJJD.PY
28-MAR-79 08:52

MACY11

30A(1052)
END OF

25-MAY-79

PASS ROUTINE

10:48

16
PAGE 205

SEQ 0204

Q791
9792

9793
9794
9795
9796
9797
9778
9799
9800
9801
9802

9803

9804
9805
9806
9807
9808
980v
9810
9811
9812

9813
9814

9815
9816
9817
9818
9819
9820
9821
9822
9823

9824
9825
9826
9827
9828
9829
9830
9831
9832

;THIS CHECKS DEVICE AVAILARLE (DVA) AND READY (RDY) IN RH(S!
;AND CHECKS MEDIUM ON LINE (MOL), DEVICE PRESENT (DPR), DEVICE

033350

000000

033352
033356
033364
033366
033372

011637
162737
011346
052716
000406

033350
000004

033374
033400
033406

011637
162737
011346

033350
000004

033410
033412
033416

011146
042716
022726

033422
033424
033430

001403
011137

033432
033436
033442
033444
033450

042716
022726
001404
011337

033452

000207

033454
033460

062716
000207

104062

104061

033350

;1T MAY CHECK VOLUME VALID (vv)

IN RHDS1, DEPENDING ON ENTRY POINT

PCJSR:

:PC OF

CHECK:

MOV
SUB
Mov
B1S
BR

(SP) ,a#PCJSR
#4,34PLJSR
aR3,=(SP)
#vv, (SP)

;SAVE PC OF JSR+4
:GET PC OF JSR
:GET RHDSI
:DONT (HECK vv BIT
:6G0TO (OMMON CHECK ROUTINE

MOV
SUB

(SP) ,a#PCJSR
24 ,3#PCJSR
ar3,-(SP)

:SAVE PC OF JSR+4
:GET PC OF JUSR

aR1,=(SP)

:GET

#DVA
. RDY,(SP)+¢

;RHCS1 SHOULD HAVE DEVICE AVAILABLE

000100

173577
004200

033350

(HECKT:

MOV
(HECKC: MOV

BIC

CmMP

BEQ

MOV

001122

102000

010700

ERROR

3%:

001122

000006

READY

7%:

CHECKC

#173577,(SP)

JSR

;GET RHDS1

& DO vv CHECK AT

:CLEAR UNWANTED BITS

;AND BE READY
:BRANCH IF GOOD

:RHCST DID NOT HAVE DEVICE

aR1,3#$BDADR

(DRY)

:BAD DATA REGISTER

(RH(SD)

;AVAILABLE RIGHT AT THE STARTY
;ALL OTHER BITS SHOULD BE

BIC
(mMp
BEQ
MOV
ERROR

FATA!LBT, (SP)
;CLEAR UNWANTED BITS
#MOL !DPR!DRY!VV,(SP)+ ;RHDS1 SHOULD HAVE THESE
7%
;BRANCH IF GOOD
oR3,3#$BDADR
:BAD DATA [N REGISTER (RHDS1)
HAS SOME BITS OTHER
;RHDS1
61

RIS

;ALL OTHER BITS SHOULD BE
RETURN 10 TEST AND HALT

ADD
RTS

#6,(SP)
PC

;ADJUST STACK TO JUMP QVER HALT
RETURN TO TEST AND CONTINUE

;THAN MOL,

DRY,

DPR,vv

SET

0
[N TEST

IN RHDSI

{%:JJgO RPO4/5/6 FCTINL CTRLR2
JJD. "
2R=-MAR-79 08:52

MACY1Y

30A(1052)
END OF

9833

9847
9848
9849
9850
9851
9852
9853
9854
9855
9856
9857
9858
9859
9860
9861
9862
9863
9864
9865

10:48

PASS ROUTINE

16
PAGE

206

SeQ 0205

;*THIS IS A SUBROUTINE TO SAVE REGISTERS
;*IN THE REGISTER TABLE TO ANY LOCATION

;*THE

s vJSR

i
R
[

;oF
'1

033462
033462
033464
033466
033470
033472
033474
033476
033500
033502
033504
033506
033510
033512

SAVER:

CALL

MUST
MUST

ALWAYS BE
ALWAYS BE

RHCST
SAVRE

WORDS

SAVED

R1,=(SP)

::;PUSH R1

MoV
MOV
MOV
MoV

(RO)+,R?
(RO)+,R2
(RO)+,R3
B(R1)+,(R2)¢

:FROM
;10
:NUMBER
:SAVE REGISTER CONTENTS

MOV
MoV

(SP)+,R3Y
(SP)+ ,R?2

RZ.,-(SP)
R3,~-(SP)

DEC
BNE

R3
1%

MoV

ON STACK

::PUSH R2 ON STA(K
::PUSH R3 ON STACK

; COUNT
;BRANCH IFf

NCT

DONE

;;POP STACK INTO R3
;. POP STACK INTO R2

(SP)+,R1

RTS

000200

;FROM
;10
NUHBER

MOV

MOV
MoV

1%:

RO,a#SAVER

9834
9835
9836
9837
9838
9839
9840
9841
9842
9843
9844
9845
9846

25-MAY-79

::POP STACK

INTO R1

9866

9867
9868
9869
9870
9871
9872
9873
9874
9875
9876
9877
9878
9879
9880
9881
9882

9883
9884
9885
9886
9887
9888

;WHEN AN EVENT 1S TO BE TIMED THE RPO4 VECTORS T0 ''TIME '
;PRIOR]ITY OF

PROCESS OR

IS 4

;PRIORITY OF

RPO4 INTERRUPTS IS 7

;PRIOR]TY OF TRAPS MUST BE 6

033514

033520
033526
033534
0335«2

005077
017737
017737
017737
000002

1646526
166524
166502
146476

033552
004564
004562

TIMEY:

TIMEZ2:

(LR
MOv

aPCLCSR
;STOP THE CLOCK
dPCLCTR,@#WAITTM ;GET TIME ON CLOCK

MOV

SRHLA,G#FINALA

MOV
RT1

;THIS
sTHE

1S A WALIT

CALL

SRHCC,a#F INACC

;GET CURRENT CYLINDER
;GET

LOOK

AHEAD

;RETURN TO WAIT P OR WAIT.T

LOOP WHEN AN EVENY

S 10 BE

TIMED

CIRJJIDO, RPO4/S5/6 FCTINL CTRLR2
CIRJID.PY
28-MAR-79 08:5?

MACYT1

9889

30A(1052)
25-MAY-79
END OF PASS ROUTINE
:

WAl

9890
9891
9892
3332

:
;
;
;

9895
9896
9897
gggg

;R1-WILL
:R2-WILL
:MINIMUM
;FOR THE

9900
9901
9902
9903
9904
9905

9906
9907
9908
9909
9910
9911
9912

9913
9914
9915

9916

9917
gg}g

033544
033546
033550
033552
033554
033560

000000
000000
000000
000000
005037
005077

033564
033572
033574
033576
033600
033602
033606

012777
010046
010146
010246
010346
016600
010037

033620
033626

013037
012037

033612

033630

033632
033634

162737

012001

012002
010066

033552
1464%.

00002

000010
033544

000002

033546
033550

WAITPC:
WAITRE:
WAITBT:
WAITIM:
WAIT.P:

leha®/

033546

033640
033644
033652
033654
033656
033660
033664
033672
033674
033676

013703
033777
001025
005303
001372
013703
033777
001015
005303
001372

9934
9935
9936

03371¢
033716
033720

001402
104001
000427

gga;

9944

;WAT PC
:WAIT ON REGISTER ADDRESS
;WAIT ON BIT
;WAITED TIME
ANWAITTM
;CLEAR WAITED TIME
aPCLBUF ;CLEAR COUNT SET BUFFER

#GO'B1T4,3PCLCSR :COUNT UP, 100 KHZ, START (LOCK
RO,=(SP)
::PUSH RO ON STACK
R1,=(SP)
;:PUSH R1 ON STACK
R2,-(SP)
::PUSH R2 ON STACK
R3,-(SP)
::PUSH R3 ON STACK
10(SP),RO
;RO HAS ADDRESS OF NEXT LOCATION
RO,3NWAITPC
:NOW WAITPC HAS WAT PC + 2

#2,30WALITPC

:WAT PC IS IN WAITPC

(RO)+,R1

:R1 HAS TIME

MOV
MOV

S(RO)+,3WAITRE
(RO)+,3#WAITBT

MOV
MOV

(RO)+,R2
RO,10(SP)

MOV

033700
(033706
033722

017737
032777

034012
033550

177674

1%:

034012
033550

177654

2%:

177642
000100

001126
146264

;WAIT ON REGISTER ADDRESS
;WAIT ON BIT

IN 10 MSEC
:R2 HAS TOLERANCE IN 10 MSEC
:RESTORE RETURN ON STACK

104002

033724

000425

033726

017737

177614

001126

4$:

THROUGH TWO COUNT DOWNS

MOV
811
BNE
DEC
BNE
MOV
81T
BNE
DEC
BNE

ANTIMCNT,RY
:R3 1S A TEMPORARY COUNTER
SNWAITRT,aWAITRE ;1S REQUIRED BIT THERE
4%
:BRANCH ]F YES
R3
;COUNT IF REQUIRED BIT NOT THERE
1%
SN TIMCNT,R3
: TEMPORARY COUNTER
SNWALTBT,AWAITRE ;1S REQUIRED BIT THERE
6%
:BRANCH 1F YES
R3
“COUNT IF REQUIRED BIT NGT THERE
2%

BEQ
ERROR
B8R

113
1
7%

MOV
B1T

9943

;ABSOLUTE REGISTER ADDRESS
;BIT WAITED FOR
;TIME ALLOWED GIVEN IN 10 MICROSEC
:TOLERANCE PLUS/MINUS IN 10 MICROSEC

;*THIS SECTION WAITS FOR BIT,

9922
9923
9924
9925
9926
9927
9928
9929
9930
9931

9937
9938
9939
9940

0
0
0
O
CLR
CLR

SUB

000010

SEQ 0206

HAVE TIME ALLOWED IN 10 MICRO SECONDS
HAVE TOLERANCE PLUS/MINUS IN 10 MICRO SECONDS
TIME THAT CAN BE MEASURED IS ABOUT 12 MICRO SECONDS
SLOWEST PROCESSOR

MOV
MOV
MOV
MOV
MOV
MOV
MOV

335?

9932
9933

A
B
TA
10

L 16
10:48 PAGE 207

WAL
TOF 3#$BDDAT :REGISTER CONTENTS FOR TYPEOUT
#1E,afCsT
:DID ANY INTERRUPT OCCUR

ERROR
\

;¢NOW TIME

MOV

;BRANCH IF YES
;RPO4 DID NOT INTERRUPT
; 0UT

;RPO4 INTERRUPTED BUT WAITED
:ON BIT DID NOT OCCUR
;EVEN AFTER TWwO COUNT DOWNS
CFROM 177777 10 0
;0uT

AND TOLERANCE WILL BE

oWA]TRE ,a#9BDDAT

CHECKED

;REGISTER CONTENTS FOR TYPEOU!

CIRJJIDO, RPOL/S/6 ECTINL CTRLR?
CIRJJD. P n
28-MAR-79 08:52
9945
9946
9947
9948
9949
9950
9951
9952
9953
9954
9955
9956
9957
9958
9959
9960
9961
9962
9963
9964
9965
9966
9967
9968
9969
9970
9971
9972
9973
9974
9975
9976
9977
9978
9979
9980
9981
9982
9983
9984
9985
9986
9987
9988
9989
9990
9991
9992
9993
9994
9995
9996
9997

9998

9999

10000

033734
033742
033744

032777
00140¢

000100

MACY11

30A(1052)
25-MAY-79
END OF PASS ROUTINE

146236

BIT
BEQ
ERROR

104003

000414

033746
033750
033752

023701

033756
033760

LRI
PAGE 208

10:48

:DID ANY INTERRUPT OCCUR

¥1E,aRHCS]

7%
RZ,R1
SNWAITTM,
P

103002
106004

BHIS
ERROR

033762

000406

033764
033766
033770

060202
060201
020137

ADD
ADD
(P

R2,R2
R2,R1
R1,0#WAITTM

033774
033776

103001
104004

BHIS
ERROR

034000
034000
034002
034004
034006
034010

5%:

033552

6%:

033552

78:

012603
012602
012601
012600
000002

;THIS

Mov
Mov
MOov
Mov
RT1

IS A WAIT

;BRANCH IF

YES

;AFTER ONE

BNE

s INTERRUPT DID NOT OCCUR EVEN

BR
SuB
CMP

160201

;0U
;R1

;FOR GOOD RESULTS, WAJTTM
;MUST BE GREATER CR EQUAL
; TOR]
;BrhanuM 1F GOOD
:BIT DID OCCUR BUT TIME
;0UT

(SP)+,R3
(SP)+,R2
R
(SP)+
(SP)+,R0

4
.

[
.

WAl
A

TA
10

177777
000025

TIMCNT:
RPTCTR:

WAIT,T:

034016
034016
034020

034022
034026
034032
034040

000004

033544

000002
033546

033544

TIME

1S BELOW LOWER LIM]T

;DOUBLE TOLERANCE
;R1 NOW HAS UPPER LIMIT OF
;FOR GOOD RESULTS, WAITTM

TIME

;MUST BE LESS OR EQUAL TO R1
;BRANCH IF GOOD
:BIT DID OCCUR BUT TIME TAKEN
;1S ABOVE UPPER LIMIT
;;P0P STACK

INTO R3

:;POP STACK

INTO RO

;:POP STACK INTO R2
;;POP STACK INTO R

;RETURN 10 MAIN TEST

LOOP WHEN NO P-CLOCK

IS AVAILABLE

;ABSOLUTE REGISTER ADDRESS
;817 WAITED FOR
: TIME-NOT USED HERE
: TIME-NOT

‘R3-15 A TEMPORARY COUNTER
034012
03*01&

MOV

NOW HAS LOWER LIMIT OF

sTAKEN

AND ONE

:8FTTHE WAITED ON BIT SETTING

:NO TIMING 1S DONt
sCALL IS
.

SEa 0207

USED HERE

;COUNT FOR WAIT LOOP

177777

;COUNT FOR INTCRRUPT WAIT (11/70 CPUW)

MOV
MOV

RO,-(SP)
R3,-(SP)

:;PUSH RO ON STACK
;sPUSH R3 ON STA(CK

MOv
MOv

4(SP),RO
RO,a#WAITP(
#2,30WAlTP(

;RO HAS ADDRESS OF NEXT LOCATION
;WAT PC ¢2 IS IN WAITPC

SuB

MOV

@(RO)¢+

3FWALTRE

;WAT

IN WAITPC

;WAIT ON REGISTER ADDRESS

(IRJIJDO, RPOL/S/6 FUTINL CIRLR?2
CIRJID P11
28-MAR-79 08:52
10001
10002

10003
10006
10005

10006
10007
10008

10009
10010
10011
10012
10013
10014

10015
10016

10017
10018
10019
10020
10021
10022
10023
10026
10025
10026
10027
10028
10029
10030
10031
10032
10033
10034
10035
10036

10037
10038
10039
10040
10041
10042
10043
10044

10045
10046

10047
10048
10049

10050
10051
10052
10053

034064
034050
034052

012037
022020
010066

MACY1T

30A(1052)
25-MAY-79
END OF PASS ROUTINE

033550

Mov

000004

Mov

cme

10:48

1
PAGE 209

(RO)+,aNWALITBT
(RO)+, (RO
RO.&(SP)

SEQ 0208

;WAIT ON BI1T
;OUMP NEXT TWO WORDS-TA,
;RESTORE RETURN ON STA(K

;*THIS HAS THE TWO COUNT DOWNS FROM 177777
034056
036062
034070
034072
034074
034076
034102
034110
034112
036114
034116
034124
034132

1774656

034012
033550

177424
000100

177636

1%:

2%:

MOV

BIT
BNE
DEC
BNE

Mov

BIT
BNE
DEC

BNE
Mov

001126
146046

Bl
BEQ

@¥TIMCNT RS
:R3 HAS TEMPORARY (OUNT
S/WAITBT,aWALTRE ;1S REQUIRED BIT THERE

6%
Rz

:CHECK FOR THE INTERRUPT
:COUNT IF REQUIRED BIT NOT

¥ IMCNT RS

:SECOND COUNT DOWN FROM 177777

:CHECK FOR

afWAITBT,aWAITRE

52
SWA1TRE ,a#$BDDAT

;1S REQUIRED BJT

:COUNT IF REQUIRED BIT NOT THERE
:REGISTER CONTENTS FOR TYPEOUT

#1E,aRNCST

:DID ANY

THERE

INTERRUPT

THERE

INTERRUPT OCCUR

:BRANCH IF

YES

034134

104001

ERROR

:RPO& DID NOT

034136

000417

;0UT ~eeccccccccceccncccccccrrracnaa >

034140

104002

ERROR

3%:

INTERRUPT

;B1T DID NOT OCCUR

:RPO4 INTERRUPTED BUT
;WAITED ON BIT DID NOT OCCUR

;EVEN AFTER TWO COUNT DOWNS

034142

000415

:FROM 177777 10 0
;0UT ===emescccmeccecconocnocmononooo >

;*B1T DID SET SO CHECK IF INTERRUPT OCCURRED

;*THE AMOUNT OF TIME ALLOWED CAN BE CHANGED BY ALTERING LOCATION
;*"'RPTCTR"" ABOVE

4%:
6%:

034144
024150
034152

034014

034154
034162
034164
034172

000100

146016

177356

001126

034174

034176
034176
034200
034202

104003

9#RPTCTR,R3

;LOAD COUNTER wWwITH COUNT

;00 AGAIN IF

BIT
BEQ

#1E,aRHCSI
5$

:DID ANY INTERRUPT
;BRANCH If YES

OCCLR

;THE WAITED ON BIT

OCCURING

5¢%:

. COUNT DOWN ONE

NOT ZERO YET
7

ERROR

OWAITRE ,a#$BDDAT ;REGISTER CONTENTS FOR TYPEQUT
. INTERRUPT DID NOT OCCUR
3
;EVEN AFTER ONE BNE OF

MOV
MOV
RT1

(SP)+,R3
(SP)+ RO

MoV

000400

012603
012600
000002

Mov
DEC
BNE

;0UT sesesemmmcemecenonncoooocoooooo- >

;;POP STACK INTO R3
:;POP STACK INTO RO

;RETURN TO MAIN TEST

C(IRJJDO, RPO4/S/6 FCTINL CTRLR2
CIRJJID.PY 1
28-MAR-79 08:52
10054
10055
10056
10057
10058
10059
10060
10061
10062
10063
10064
10065
10066
10067
10068
10069
10070
10071
10072
10073
10076
10075
10076
10077
10078
10079
10080
10081
10082
10083
10084
10085
10086
10087
10088
10089
10090
10091
10092
10093
10094
10095
10096
10097
10098
——dd ey
il
el
)
)
—

[eofelololele
oo o0
VoY RN
V. ¥ YV N -

-—

ol
)
il
sl
D
)
—r

OOOOOOOOO o

10099

MACY11

25-MAY-T79

30A(1052)
END OF

PASS ROUTINE

10:48

1
PAGE 210

SEQ 0209

:THIS CHANGES REGISTER SAVED VALUE
sCALL IS
RO,a¥#CHREG
;SR
.

;REGISTER TO BE CHANGED
;NUMBER OF BITS TO BE (HANGED
;NEW VALUE OF BIT MuST BE 0 OR!
;POSITION OF BIT TO BE CHANGED

NEW
)

INEW AND P WILL BE REPEATED N NUMBER OF TIMES
034204
034204
034206
034210
034212
034214
034220
034222
034224
034230
034232
034236
034240
034242
034244
034246

(HREG:

MOv
MOV

R1,-(SP)
R2,-(5P)

::PUSH R1 ON STACK

MOV

(RO)+,R?2

:R2 HAS NUMBER OF CHANGES

(RO)+,R1

;;PUSH R2 ON STACK
:R1 HAS ADDRESS OF ADDRESS OF

SuUB

#RHWC ,R1

:R1

BEQ

2%
;BRANCH IF A BIC IS REQUIRED
ggfl)*.SAVERE(RI) sSET REQUIRED BIT

BIC
DEC
BNE
MoV
MOV
RIS

(RO)+,SAVERE
(R1)

Mov

002172

1%:

TS7

004512

8IS
B8R

2%:
3%:

000200

;THIS

FILLS

sCALL IS

JSR

:
;

f
N

034250
034250
034252
034254
034256
034260
034262
034264
034266

FILL:

034270
034272
034274
034276
034300

1%:

R?
1%
(SP)+ R?
(SP)+ R
RO

REQUIRED REGISTER

;1S A BIC OR A BIS TO BE DONE

;BRANCH TO DECREMENT COUNT
;CLEAR REQUIRED BIT
;DECREMENT NUMBER OF CHANGES
;BRANCH IF NOT COMPLETE
:;POP STACK INTO R2
;:POP STACK

INTO R1

:RETURN TO MAIN PROGRAM

A BLOCK WITH INCREMENTAL DATA

RO,INFILL

;FROM

sNUMBER OF WORDS
;STARTING VALUE OF DATA
: INCREMENT DATA BY

)

MOV
MOV
MOV
MOV
MOV

R1,-(SP)
R2,-(SP)
R3,-(SP)
R4 ,-(SP)
(RO)+,R1

:;PUSH R1 ON STAC(CK
;;PUSH R2 ON STACK

MOV

(RO)+ R4

;R4 HAS

MOV
MOV

012604

(RO)+

HAS OFSET OF

(RO)+,R?2
(RO)+,R3

;:PUSH R3 ON STAC(K
::PUSH R4 ON STACK

:R1 HAS ADDRESS WHERE DATA IS 10 GO
:R2 HAS NUMBER OF WORDS TO BE FILLED

;STARTING VALUE OF DATA
INCREMENT

;*NOW DATA WILL BE FILLED

MOV
ADD
DEC
BNE

MOV

RY,(R1)+
R4 ,RZ
R?
1%

(SP)+ R4

;FILL DATA
:GET NEXT VALUE OF DATA
;DECREMENT COUNIT

;BRANCH IF
;:POP

STACK

ALL NOT DONE
INTO R4

CIRJJIDO, RPO&L/S5/6 FCTINL CTRLR 2

CIRJJD.PVY
10110

10111
10112
}8}}2

28-MAR-79 08:52

034302

0364304
034306
034310

MACY11

30A(1052)

25-MAY-79

END OF PASS ROUTINE

012603
012602

MOV

“ov
Mov
RTS

012601
000200

10115
10116
10117
10118
10119

10120
10121
10122
10123
10124
10125
10126
10127
10128

;THIS
:GO0OD
;TEST
;CALL
;
:
:
:
:

:8};?

:'REGADR'

10129
034312

10138

034324

10139
10140
10141
10142

10143
10144
10145

10146

010146
010246
010346
010446
010546

034326
034330
034332
034334

012002
012003
012004
011000

004737
113737

035236
004537

034336
036342

034350

012001

012705

034354

062705

10150
10151
10152

034362
034364
034370

001420
014137
014237

10153
10154
10155

034360

034374
034402

022122

016537
004714

10156
10157
10158
10159

034404
034406
034412
034416

022122
017746
042716
022726

10161
}8}6%

034424
034426

005303
001352

10164

034430

10160
6

10165

1
PAGE 211

(SP)+,R3

(SP)+ ,R?
(SP)+ R
RO

SEQ 0210

;;POP STACK INTO R3

;. 70P STACK INTO RZ
:,POP STACK INTO R1
;RETURN TO MAIN PROGRAM

IS A SUBROUTINE 10 COMPARE REGISTERS
DATA IS ALREADY SAVED IN 'SAVERE'
DATA IS IN THE REGISTERS
IS
JSR
RO,3#COMREG
SAVERE
.GO0D DATA
RHCST
;ADDRESS OF ADDRESS TEST DATA
N.
;RETURN FOR ERROR
RG
;RETURN FOR GOOD COMPARISON

COMREG:

034312
034314
034316
034320
034322

10147
10148

10149

:ON RETURN WITH ERROR 'SGDDAT' HAS GOOD DATA,

10132

10133
10134
10135
10136
10137

10:48

034422

034430

001402

012605

177776

002172

R1,-(SP)
R2,=(SP)
R3,-(SP)
R& , = (SP)
RS,=(SP)

:;PUSH
:;PUSH
:;PUSH
: :PUSH
:;PUSH

R1
R2
R3
R4
RS

MoV
Mov
Mov
Mov

(RO)+,R2
(RO)+,R3
(RO)+ R4
(RO) ,RO

;R2
:R3
;R4
;RO

ADDRESS OF ADDRESS OF TEST DATA
NUMBER OF WORDS
RETURN FOR ERROR
RETURN ON NO ERROR

(RO) ¢+ ,R1

ON
ON
ON
ON
ON

‘SBDDAT' HAS BAD DATA

Mov
MOov
MOov
MOV
Mov

MoV

STACK
STA(K
STA(CK
STACK
STACK

:R1 HAS ADDRESS OF GOOD DATA
HAS
HAS
HAS
HAS

;*NOW SAVE REGISTERS
JSR
PC,a#PUTREG
; SAVE REGISTERS
MOVB
S#SAVERE+25,3#AS+1;MAKE UPPER BYTE OF RHAS SAME

002301

000002
001124
001126

HWAS REGISTER ADDRESS

MOV
1%:

004500

000200
2%:
3%:

;PRESET RS 10 -2

(MP

(R1)¢+,(R2)+

;COMPARE REGISTER CONTENTS

BEQ
Mov
Mov

2%
-(R1) ,a#$GDDAT
-(R2) ,a#$BDDAT

(MP
MOv
BIC
CMP

(R1)+,(R2)+
aSWR,=(SP)
#*C600, (SP)
#SW07,(SP)+

:UNDO =-(R1) AND -(R2) FOR ERRORS
;GET SWITCH SETTING
;KEEP ONLY SWITCH 7 AND 8
;1S 7 SET AND B DOWN

DEC
BNE

R3
1%

;ARE ALL COMPARES DONE
;BRANCH IF NOT COMPLETE

MOV

(SP)¢,RS

:;POP STACK INTO RS

MOV
JSR

1464526
177177

#-2,R5

. *NOW COMPARES WILL MADE
ADD
#2,R5
; INCREMENT TO INDEX

BtQ

;BRANCH 1F GOOD
;SAVE GOOD DATA
;SAVE BAD DATA

RHWC (RS) ,a#REGADR
s SAVE ADDRESS OF FAILING REGISTER
PC.aR&
;RETURN TO MAIN PROGRAM

: 10 PRINT ERROR

;BRANCH OUT 1F YES

CIRJJIDO, RPO&L/S5/6 FCINL CTRLR2

CZRJJID.P
10166
10167
10168
10169
10170
10171

034432
034434
034436
034440
034442
034444

28-MAR-79 08:52
012604
012603
012602
012601
000200

000000

MACY11

30A(1052)
END OF

25-MAY-79

PASS ROUTINE
Mov
mov
Mmov
Mov
RTS
.WORD

10:48

(SP)+ R4

(SP)+,R3
(SP)+ ,R?
(SP)+ R

PAGE 212

SEQ 0211

::POP STACK

INTO R4

::POP STACK

INTO R?

::POP STACK

INTO R3

::POP STACK INTO R1

:RETURN TO MAIN PROGRAM
; TEMP STORAGE

CIRJJIDO, RPOL/S/6 FCINL CTRLRZ
CIRJJD.PIY
28-MAR-79 08:52

MACYT1

30A(1052)
25-MAY-79
END OF PASS ROUTINE

10:48

o
PAGE 213

SEQ 0212

10172
10173
10174
10175

;HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS.
;ON HITTING AN ERROR I1F THE LOOP ON ERROR SWITCH IS SET, THE

10178
10179
10180
10181
10182

;WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT
: THE PROGRAM GOES BACK TO CAN BE CHANGED.
:THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM (AN GO ARE: ;1.
17 MUST BE WITHIN THE TEST UNDER CONSIDERATION
;2.
LOOP ON ERROR SWITCH MUST BE SET

}8};9

;PROGRAM GOES BACK - USUALLY BACK TO THE BEGINNING OF THE TEST.

0183

;3.

184

THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONS!DERATION

;1F THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION
;THE PROGRAM WILL REVERT TO NORMAL OPERATION.
HOWEVER, 1f LOOP ON

;TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP 1S USED
;THEN THE PROGRAM WILL LOOP BACK

;COMES TO THE END OF

TO THE

SELECTED POINT WHEN 1T

THE TEST UNDER CONSIDERATION.

EAFTER LOOPING FOR SOME TIME ]F THE LOOP SWITCH IS PUT DOWN THEN
;NORMAL OPERATION WILL

034446
034450

000000

195
196
0197
10198
10199
10200
10201
10202
10203
10204

034450
034454
034462
034466

005037
012737
104401
000421

177776
177777
0324470

034532
034532
034536
034540
034544

013746
104402
104401
000414

004504

10206
10207
10208
10209

034576
034576
034602
034604

10205

10210
10211
10212
10213

10214
10215

10216
10217
10218
10219

10220

10221
10222

10223
10224
10225
10226
10 227

034610
034614

034676

034676
034702
034744

034744
034750
035036
035036

035040
035044
035050
035054

013746
104402
104401

104401
000430

2:69%:
64%:

2678

001110

66%:

001223
034616

034704

104401
000432

034752

104412

041170

034546

104401
000420

062716
012637
104471
000417

TESTAD: O
OPERSEL:

2:69%:
68%:

o718
70%:

;:73%

72%:

000002
001106
035056

2:75%:

CONTINUE.

;FIRST ADDRESS OF

TEST

CLR
MOV
TYPE
BR
JASCIZ

PS
:MAKE PROCESSOR STATUS ZERO
#-1,3#PRITEM
;CLEAR PREVIOUS ITEM NUMBER
,65%
;. TYPE ASCIZ STRING
64%
::GET 0 ZR THE ASCIZ
<15><12>/THE PROGRAM WAS IN TEST NUMBER /

MOV
TYPOC
TYPE
BR

a¥TSTNM,-(SP)

,67%
66%

;GEY READY TO TYPE TEST
;NUMBER
;s TYPE ASCIZ STRING
:3GET OVER THE ASCI2

MOV
1YPOC
TYPE

o¥#SLPERR,-(SP)

:GET READY

TYPE
B8R
JASCIZ

L7118
;s TYPE ASCIZ STRING
70%
::GET OVER THE ASCIZ
<15>212>/TYPE THE FIRSY PC OF THE TEST/

TYPE
BR

3%
72%

JASCIZ

TYPE
BR
LASCIZ

JASCIZ

RDOCT

ADD
MOV
TYPE
BR
JASCIZ

<15><12>/THE LOOP BACK PC WAS /

1O TYPE

LOOP BACK

LOCRLF
,69%
68%

;s TYPE ASCIZ STRING
;;GET OVER THE ASCIZ
<15><12>/SET SWITCH FOR LOOP ON ERROR OR LOOP ON TEST/

;s TYPE ASCIZ STRING
::GET OVER THE ASCI12Z

<15><12>/70 BE LOOPED ON FOLLOWED BY A CARRIAGE RETURN /<15><12>
¥2,(SP)
;GET LPADR
(SP)+,aNSLPADR
,75%
;s TYPE ASCIZ STRING
74%
;3GET OVER THE ASCIZ
<15><12>/TYPE THE PC WHERE YOU WANT/

CIRJJIDO, RPO4L/S/6 FCINL CTRLR?
28-MAR-79 08:52
OSe
srOrroNN

COO0OO0O

OO0O0o

INWNWNINN
NN
N
[UARVARC
ALV ALV BV
VALV]
NN
— b
WA
N —

C{IRJJD.PY

104401

000440
104412

012637
013746
000002

035122

MACYI1

25-MAY-79

30A(1052)

END OF PASS ROUTINE
74%

%;;75:
6%:

T{PE

JASCIZ

RDOCT

MOV
MOV

001119
001106

RT1

10:48

1
PAGE 214

76%

SEQ 0213

;3 TYPE

ASCIZ

STRING

::GET OVER THE ASCIZ

<15><12>/ THE PROGRAM TO LOOP BACK TO FOLLOWED BY A CARRIAGE RETURN /<15
(SP)+ ,a#SLPERR
afSLPADR,-(SP)

:GET

LPERR

;*THIS SAVES THE CONTENTS C# ALL HARDWARE REGISTERS

;*IN MEMORY LOCATIONS TAGED FROM 'WC'' TO "'EC2"

:*THIS 1S DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS
s *AND NOT

THE REGISTERS

THEMSELVES.

THIS WILL MAKE

; *ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT

035236
035236
035240
035242
035244
035250
035254
035260
035262
035264
035266
035270
035272
035274

PUTREG:

MoV

RO, =-(SP)

;;PUSH RO ON STACK

Mov

R2,=-(SP)

;. PUSH R2 ON STACK

Mov

002172
002254
000022

012600
000207

Mov
10%:

MOV
MOV

Mov

DEC
BNE
MOV
Mov
MoV

RTS

R1,=(SP)

#RHWC RO

;:PUSH R1

ON STACK

;STARTING ADDRESS OF

REGISTERS

MC,RI1
;STARTING ADDRESS OF SAVING LOCATIONS
#RHCC-RHW(+2/2,R2 ;NUMBER OF REG. INIO R2

a3(RO)+, (R1)+
R2
10%
(SP)+ ,R2
(SP)+ ,R1
(SP)+,RO
PC

; SAVE HARDWARE REG.
;:POP STA(K
;.POP STACK
;:POP STACK

INT0 R2
INTO RI
INTO RO

CIRJJDO, RPO&L/S5/6 FCTINL CTRLR2
CZRJJD P
28-MAR-79-08.52
10266
10267
10268
10269
10270
1 0271
1 0272
1 0273
1 0274
1 0275
10276
10277
10278
10279
10280
10281
10282
10283
10284
10285

10286
10287

10288

10289

10290
10291
10292
10293
10294
10295
10296
10297

PASS ROUTINE

CAL L

1S
JSR
C
S
T

L LBYTE
:.BYTE

10:48

1
PAGE 215

035276
035302
0353.5
035312
035316
035322
035324
035330

012077
012077
012077
012077
013746
052016
012677
012077

144710
1464676
164660
144656
004616

RO,a#RUN

;CYLINDER

;SECTOR

; TRACK

;WORD COUNT

-W

;BUS ADDRESS

B8
BAl

;BUS ADDRESS INMIBITY

COM

:EC1 = ECC CORRECTION INHIBIT
;HCI = HEADER COMPARE INMIBIT
; COMMAND ADDRESS

035334
035340

013077
000200

1644640

MOV
Mov
MOV
MoV
MoV

RUN:

BIS

144646

144654

;THIS

SEQ 0214

(COMMAND SETUP SUBROUTINE

;FMT122=1

FMT22 ECI!HCI

(RO)+,IRHCA
(RO)
¢+ ,aRHDST
(RO +,aRHWC
(RO)
¢+ ,aRHBA
afUNIT,-(SP)
(ROQ)+, (SP)

MOV
Mov

(SP)
¢ ,@RH(S?

MOV
RIS

@ (RO)+,ARHCS

(RO)
¢, aRHOF
RO

IS A SUBROUTINE TO COMPARE

=16 BIT WORDS

;CYLINDER

;DESIRED SECTOR/TRACK

;WORD COUNT

;BUS ADDRESS
JGET UNIT NO

:SET BUS ADDRESS INHIBIT
:UNIT NO AND BA] TO RH(SZ2
:FORMAT,

;COMPARE,

ECC

.CALL

JSR
6

THAN NUMBER OF

:RETURN T0O MAIN PROGRAM

TWO BLOCYS

[elelolelelalolololele)

OOOO0DO

COMPAR:

MOV
MoV
MOV
MOV
MOv
Mov
MoV
MOv
MOV
MOv

MOV

WORDS TO BE

IN MEMORY

COMPARED

RO,a#COMPAR

;ADDRETMS OF GOOD DATA
;ADDRES OF TEST DATA

1
N
RE
RG

35342
35342
35344
35346
35350
35352
35354
35356
35360
15362
35364
35366

HEADER

:COMMAND IN RHCS)

;R3 HAS NUMBER Of WORDS TO BE COMPARED
:R6 HAS ONE MORE

INHIBIT,

THERE

;R1 HAS GOOD DATA BUFFER ADDRESS
;R2 HAS TEST DATA BUFFER ADDRESS
;RS HAS ADDRESS OF RETURN ON ERROR

OO0

[ LY O P

e I

N
LA L A LM U L L L A LN

= OOVW®NO
NS
N — (=]

=l
)
i e
el
e
i
i
e

END OF

25-MAY-79

;THIS 1S A DATA

10301
10302
10303
10304

DO O9000OODOOO00

30A(1052)

s THE

10298
10299
10300

—

MACY11

; NUMBER Of WORDS TO BE
;RETURN ON ERROR
;RETURN ON NO ERROR

COMPARED

R1,=-(SP)
R2,=(SP)

;:PUSH R1 ON STACK
;;PUSH R2 ON STACK

R4, -(SP)

. :PUSH R4 ON STACK

R3,-(SP)

RS,=(SP)
¢+ ,R1
(RO)
(RO)+,R2

(RO)+,R3
(RO)+,RS
(R0O),RO

R3,Ré

;sPUSH R3 ON ST (K

:;PUSH R5 ON STACK
,ADDRESS OF GOOL D~TA BUFFER
;ADDRESS OF TEST DATA BUFFER
:NO OF WORDS TO B8: COMPARED
;RETURN ON ERROR

;RETURN ON NO ERR(R
:NO OF

WORDS

TO B':

COMPARED

(ZRJJDO, RPO&/S5/6 FCINL CTRLR2
CIRJJD.PIY
28-MAR-735 08:52
10322
10323
10324
10325
10326
10327
10328
10329
10330

10331

1033¢
10333

0334
0335

1336

10337
10338
10339
10340
10341
10342
10343
10344
10345
10346
10347
10348
10349
10350
10351
10352

10353

10354
10355
10356
10357
10358
10359
10360
10361
10362
10363
10364

10365

10366
10367

10368

10369
10370
10371

0372

035370
035372
035376
0356400

005204
010437
022122
001417

035402
035406
035412
035416
035420
035422
035426
03L43%2
035436
035440
035442
035444
035444
035446
035450
035452
0354564
035456

016137
014237
160337

004715
022122
017746
042716
022726
001402
005303
001353

MACY11

004502

30A(1052)
END OF
1%:

143512
177177
000200

Mov

2%:

3%:

035540
035540

035544

035546
035552

035626
035626
035632
035634
035640
035644

035652
035656
035660
035664
035670
035672
035674
035676
035676
035702
035742
035742
035746

013746
104402
104401
000425

;:65%:

035554

;678

012700
012701
012737
021637
001407
05776
163716
061620
005301
001375

002170

104401

035704

013746
104402

64%:

002200

037562

000417

BASE(CH:

035466

004737
104412

crp
BEQ

SUB
JSR
cmp

012602
012601
000200

000425

INC

Mov

Mov
Mov

012605
012604
012603

104401

PASS ROUTINE

001124
001126
004502

035460
035460
035464

25-MAY-79

000026
036450
002200

000000
002200

002166

66%:

000004

2%:
1¢:

::69%:
68%:

BIC
CMp
BEQ

PAGE 216

R&
R4 ,a#ERWORD

(R1)¢+,(R2)+
2%

=(R1) ,3#$GDDAT
=(R2) ,aN$BDDAT
R3,a#ERWORD
PC,aRS
;RETURN
(R1)+,(R2)+
aSWR,-(SP)
#~(600, (SP)
#SW07,(SP)+

DEC

R3
1%

MoV
Mov
Mov
Mov
Mov
RTS

(SP)+,RS

BNE

10:48

THIS ROUTINE WILL

;FOR ERROR WORD NO

;COMPARE GOOD WITH TEST DATA
;BRANCH 1F GOOD
;GOOD DATA
;BAD DATA

;EAROR WORD NO.
"0 PRINT ERROR

,UNDO -(R1)

TYPE

Mov
TYPOC
TYPE

FOR ERRORS

;;POP STACK INTO RS

:;POP STACK INTO R3
::POP STACK INTO R?
::POP STACK

INTO R1

;RETURN TO MAIN PROGRAM

ALLOW THE

CHANGE

ADDRESS FROM 176700 TO ANY TYPED

BR
.ASCI1Z

AND -(R2)

;GET SWITCH SETTING
;KEEP ONLY SWITCH 7 AND 8
;1S 7 SET AND 8 RESET
;BRANCH OUT IF YES
: COUNT
;BRANCH [F ALL NOT DEVICE
;;POP STACK INTO Ré4

(SP)+,R4

(SP)+,R3
(SP)+,R2
(SP)+,R1
RO

SEQ 0215

vALUE

THE BASE

.65%
64%

s TYPE ASCIZ STRING

SMRHCST,=(SP)

:GET READY TO TYPE OLD BASE

,67%

..TYPE

<15><12>/PRESENT

::GET OVER THE ASCIZ
BASE

ADDRESS OF

ASCIZ

REGISTERS

'(R®

STRING

;GET OVER THE ASCIZ

BR
-ASCIZ

66%
<15><12>/TYPE NEW BASE ADDRESS FOLLOWED BY

JSR
RDOCT
MoV
Mov
MoV
CMP
BEQ
151
SUB
ADD
DEC
BNE

PC,aNSTKINT

INITIALIZE THE TTY KEYBOARD

#RHDOB,RO
#22. ,R1

;GET STARTING ADDRESS OF REGISTERS
:NUMBER OF REGISTERS
;SET UP TRAP CATCHER FOR TEST
;NEW ADDRESS
:NO, JUST OLD ONE RETYPED
;D0 THE ADDRESS ACCESS
:GET THE ADDRESS OFFSET

TYPE

,69%
68%

;s TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

S#RPVEC,-(SP)

;GET READY TO TYPE OLD VECTOR ADDRESS

+ASCIZ

MOV
TYPOS

#ADTIMO,axé

3SP,3NRHCS
1%

a0(SP)
S#RHCS1 ,aSP
asSP, (RO)+
R1
2%

<*5><12>/PRESENT

sAND PLUG

;ONE LESS REGISTER T0 DO

:BUT WE'RE NOT DONE YET.

VECTOR

ADDRESS

CIRJJDO, RPO4L/S/6 FCTNL CTRLR2
CIRJJD PN
28-MAR-79 08:52

10394
10395
10396
10397
10398
10399
10400
10401
10402
10403
10404
10405
10406
10407
10408
10409
10410
10611
10612
10413

1041¢
10415

10616
104617

10418
10419
1042(C
10421
10422
10423
10424

10425
10426

036200
035200
036204
03€206
036212
036252
036252
036256
036264
036264
036270

036342
036342
036346

036424
036424
036430
036432
036436
036444
036444
036450
036450
036454

036526
036526
036530

104401
000417

013746
104402
104401
000417

013746
104402
104401

¥
ISNAR
70%:

002166
036070

000437
104401

000402
104401

0004264

7‘5:

002200

::75%:
74%:

036214

036260

036272

104401

000426
012746
104402
104401

000402

036350

000200

12778
76%:

;2 79%:
78%:

1046401
000424

036456

022626

000137

BR
.ASC1Z

BR
ASCIZ

Mov
TYPOC
TYPE

BR
<ASC1Z
TYPE
BR
.ASCIZ
TYPE

;SETUP VECTOR ADDRESS

72%

::GET OVER THE ASCIZ

L7138

,15%
74%

::65%:

::TYPE ASCIZ STRING
:;GET OVER THE ASCIZ
REMAIN

a#RPVE(C,-(SP)

173
76%

<15><12>/UNTIL

,719%

78%

<15><12>/

;:TYPE ASCIZ STRING
;;GET OVER THE ASCIZ

PROGRAM

IS RELOADED./

::TYPE ASCIZ STRING
/

::GET OVER THE ASCIZ

,81%
80%

;;TYPE ASCIZ STRING
::GET OVER THE ASCIZ
<15><12>/UNLESS HALTED AND MANUALLY RESTARTED,/

#RA,-(SP)

ADTIMO:

REMAIN

<19><12>/NEW VECTOR WILL

Mov
TYPOC
TYPE

84%:

WILL

A#RHCST,=-(SP)

;. 83%:

82%:

,838

::TYPE ASCIZ STRING

::GET OVER THE ASCIZ

<195><12>/PROGRAM WILL

AUTOMATICALLY

BR
<ASCIZ

,85%
84%
<15><12>/ /

::TYPE ASCIZ STRING
::GET OVER THE ASCI?

JMP

a#BEGIN

;00 1T OVER AGAIN

TYPE

655
6

,,TYPE ASCIZ STRING
:GET OVER THE ASCIZ

(SP)+,(SF)+

;RESTORE STACK

BR
<ASC1Z

cmp
JMP

FOLLOWED BY

;:TYPE ASCIZ STRING

<195>7212>/NtW BASE

82%

TYPE

SEQ 0216

(SP)+ ,@#RPVEC

BR
<ASC1Z

64%:

035460

RDOCT
MoV
TYPE

1
PAGE 217

ek
s TYPE ASCIZ STRING
70$
;;GET OVER THE ASCIZ
<15><12>/1YPE NEW VECTOR ADDRESS OR RETYPE OLD ONE

:81%:

;:85%:

004712

BR
<ASCIZ

1U:48

BR
-ASCIZ

036440

000137

PASS ROUTINE

Mov
TYPOC
TYPE

036142

002166

¢5-MAY=79

TYPE

036126
036126
036132
0361 .,4
036140

104412

012637

035756

036054
036054
036056
036062
036066

1046401

000437

END OF

[
@1
0

035750
035754

30A(1052)

(o
L300
O

10378
10379
10380
10381
10382
10383
10384
10385
10386
10387
10388
10389
10390
10391
10392
10393

MACY1Y

RESTARY

<15><12><377>/SELECYED ADDRESS DID NOT

ONBASECH

FROM /

RESPOND.

:AND DO THE QUERY AGAIN!

IICROI

CIRJJDO, RPO&L/S5/6 FCTINL CTRLRZ
28-MAR~79 08:52

CIRJJD.PY
10627

10428

10429
10430
10431
10432
106433
10434
10435

10436

10437
10438

MACY11

30A(1052)

25-MAY-79

END OF PASS ROUTINE

10:48

PAGE 218

SEa 0217

;;"""""""'.""'"'"'""""".""""""."'."".'Q'

036534
036534
036540

000424

036612
036612
036614
036622

106402
012777
000000

104601

RPVEC(T:

036542

éigss:
036534

143344

TYPE

B8R

LASCIZ

TYPOC

MOV
HALT

,65%

£6$

s TYPE ASCIZ STRING

“IGET OVER THE ASCIZ

/UNEXPECTED INTERRUPT FROM RPO4 a PC = /

#RPVECT,aRPVEC

;TYPE FROM PC

"RESTORE TRAP RP0O4 VECTOR
SCHANGE TO CONTINUE

;;'t""""""""""""t"""""'t'!".."t"'t"'"tt"'.

CIRJIDO, RPOG/S5/6 FCINL CTRLR 2
CZRJID.PIN
28-MAR-79 08:52
10439
10440
10641
10442
10443
10444
10445
10446
10447
10448
10449
10450
10451
10452
10453
10454
10455
10456
10457
10458
10459
10460
10461
10462
10463
10664

10465

10466

10467
10468
10469
10470

106471
10472
10473
10474
10475
10476
10
7
104/8
10479
10480
10481
10482
10483
10484

10485

10486
10487
10488
10489
10490
1049
10492
10493
10494

MACYTT

30A(1052)

25-MAY-79

10:48

CYSMAC LIBRARY ROUTINES

LSBTTL

.SBTTL

PAGE 219

SYSMAC LIBRARY 0UTINES

SCOPE HANDLER ROUTINE

t"'lt'""""""""""""""'i.'t.'t""t'tl't"""""

'THIS ROUTINE

CONTROLS THE

SUBTESTS. IT WILL INCREMENT
INTO THE DISPLAY REG.(DISPLAY<7:0>)

LOOPING OF

;*AND LOAD THE TEST NUMBER(STSTNM)

:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE

SWITCH OPTIONS PROVIDED BY

;*SWl6=]
;*SW11=]
'SUO9 1
-SU08 1

:vCALL

036624
036624

104407

$SCOPE:

036626
036634

032777

036636

000416

036640
036644
036652
036656
036662
036664
036666
036672
036674
036674
036702
036704
036712
036714

013746
012737
005737
012637
000463
022626
012637
000423

000004
036664
177060
000004

032777
001404
127737

000400

1642236

142230

001102

036720
036722
036730
036732
036740
036742
036750
036752
036.56
036762
036764
036772
036774
037000
037002
037006
037014
037016

001111

040000

142304

1%:

LOOP ON
INHIBIT
LOOP ON
LOOP ON

JHANRASTART

$XTSTR:

5¢%:

001115

001103

001000

142200

001110

001106

162146

7%:

b1 ¥

001100
001104
001212

001104

000001

001104

FOR

'YHE

XOR

a#ERRVEC,-(SP)

$SVLAD

MOV

(SP)+ ,afERRVEC

CmMp

(SP)+ ,@#ERRVEC

(SP)+,(SP)+

FOR CHANGE IN SOFT-SWR
;s TEST
;;LOOP ON PRESENT TEST?
.. YES IF SW14=1

TESTERANAAN

::1F RUNNING ON THE ''XOR'' TESTER CHANGE
;s THIS INSTRUCTION TO A ''NOP'’ (NOP=240)

::SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT
.. TIME OUT ON XOR?
;;RESTORE THE ERROR VECTOR
;.60 TO THE NEXT TEST
;;CLEAR THE STACK AFTER A TIME OUl
:;RESTORE THE ERROR VECTOR
;:LOOP ON THE PRESENT TEST

7%
6% :;NNNNNIEND OF CODE FOR THE XOR TESTERANANAA
#B1108,a5uwR
BIT
::LOOP ON SPEC. TEST?
2%
BEQ
;:BR IF NO
SWR<7:0>
aSWR,$TSTNM
(MPB
::ON THE RIGHT TEST?
$OVER
BEQ
;:BR IF YES
2%:
1S18B
SERFLG
:;HAS AN ERROR OCCURRED?
3%
BEQ
::BR IF NO
(MPB
SERMAX,SERFLG
;:;MAX. ERRORS FOR THIS TEST OCCURRED?
3%
BHI
;:BR IF NO
¥B81709,a5uWR
BIT
;;LOOP ON ERROR?
4%
BEQ
;:BR IF NO
4%

001103
001212

CODE

#5% ,a/ERRVEC
af177060

001103

#B1T14,85WR
$OVER

MOV
187
MOV

000004

004000

MOV

000004

;. SCOPE=]OT

SCOPE
CXKSWR
BIT
BNE

THIS RCUTINE ARE:

TEST
ITERATIONS
ERROR
TEST IN SWR<7:0>

MOV
BR
CLRB
CLR

$LPERR,SLPADR
$OVER
SERFLG
$TIMES

BIT

#BIT11,35WR

197

$PASS

BNE

BEQ
INC
1%:

$1ONT

(MpP

$STIMES,S1CNT

MOV

#1,810NT

BGE

$OVER

:;SET LOOP ADDRESS TO LAST SCOPE

.. JERC THE ERROK FLAG
::CLEAR THE NUMBER OF ITERATIONS 10 MAKE
;;ESCAPE TO THE NEXT TEST
:: INHIBIT ITERATIONS?
;:BR IF YES
1F FIRST PASS OF PROGRAM
;.
INHIBIT ITERATIONS
‘i
;o INCREMENT ITERATION COUNT
;; CHECK THE NUMBER OF ITERATIONS MADE
;:BR IF MORE ]TERATION REQUIRED
;oREINITIALIZE THE ITERATION COUNTER

SEQ 0218

CIRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRJJD.PVI
28-MAR-79 08:52
106495
10496
10497
10498
10499
10500
10501
10502
10503
10504

037024
037032
037036
0370642
037046
037052
037060
037066
037072
037074

013737
105237
011637
011637
005037
112737
013777
013716
000002
000004

037074
001102
001106
001110
001214
000001
001102
001106

MACY11

30A(1052)
25-mAY-79
10:48
SCOPE HANDLER ROUTINE

001212

Mov
$SVLAD: INCB
MOv
Mov
CLR
Movs
$OVER:
MOV
MOV
RT1]
SMXCNT: 4

Q01115
142054

LI
PAGE 220

SMXCNT,STIMES
$STSTNM
(SP) ,$LPADR
(SP) ,SLPERR
SESCAPE
#1,9ERMAX
$TSTNM,aDISPLAY
$LPADR, (SP)

;;SET NUMBER OF ITERATIONS TO DO
;; COUNT TEST NUMBERS
::SAVE SCOPE LOOP ADDRESS
:;SAVE ERROR LOOP ADDRESS
;:CLEAR THE ESCAPE FROM ERROR ADDRESS
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER
:;FUDGE RETURN ADDRESS
;. FIXES PS
; :MAX. NUMBER OF TERATIONS

SEQ 0219

CIRJJIDO, RPO&/5/6 FCINL CTRLR2
CIRJJD.PIY
28-MAR-79 08:52

MACY11

10:48
PAGE 221
25-MAY-79
CONVERT BINARY TO DECIMAL AND TYPt ROUTINE

30A(1052)
.SBTTL

SEQ 0220

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

"""""""'t"""""""""""."'"'I"."'R"."t."'

'THlS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE 1T7. DEPENDING ON WHETHER THE
:*NUMBER 1S 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.

;*CALL:
b

037076
037076
037100
037102
037104
037106
037110
037114
037120
037122
037124
037132
037134
037140
037144
037146
037152
037154
037156
037160
037162
037164
037166
037170
037172
037174
037176
037200
037206
037212
037216
037220
037222

010046
010146
010246
010346
010546
012746
016605
100004
005405
112766

005000
012703
112723
005002
016001
160105
002402
005202
000774
060105
005702
001002

105716
100407
106316
103C03
116663

052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012002

$TYPDS:

0202¢C0
000020
000055

000001

037312
000040

1%:

2%:

037302

4%:

5%:

000001
000060
000040

177777

6%:

7%:

000010

MOV
TYPDS

MoV
MOV
MOV
MOV
MOV
MOV
MOV
8PL
NEG
MOvVB
CLR
Mov
MOVB
CLR
MoV

SUB
BLT

177776

9%:

RO,-(SP)

::PUSH RO ON STACK

R3,-(SP)
RS,-(SP)

;;PUSH R3 ON STACK
;;PUSH RS ON STA(CK
;:SET BLANK SWITCH AND SIGN
;;GET THE INPUT NUMBER
::;BR IF INPUT 1S POS.

R1,-(SP)
R2.,-(SP)

#20200,-(SP)
20(SP),RS

1%
RS
#'-,1(SP)
RO
#$DBLK,R3
#' ,(R3)+
R2
$DTBL (RO) R
RlRS

::PUSH R1 ON STA(LK
:;PUSH R2 ON STACK

: :MAKE
;sMAKE

THE BINARY NUMBER POS.
THE ASC]] NUMBER NEG.

;:LERO THE CONSTANTS INDEX
;;SETUP THE OUTPUT POINTER
::SET THE FIRST CHARACTER TO A BLANK
::CLEAR THE BCD NUMBER
;;GET THE CONSTANT
;;FORM THIS BCD DIGIT

;:BR IF DONE

::INCREASE THE BCD DIGIT By 1

ADD
151

::ADD BACK THE CONSTANT
::CHECK ]F BCD DIGIT=0
::FALL THROUGH IF O
;sSTILL DOING LEADING 0°'S?
;:BR IF YES
s :MSD?
;:BR IF NO
::YES==SET THE SIGN
;;MAKE THE BCD DIGIT ASCII
;:MAKE 1T A SPACE IF NOT ALREADY A DIGIT

BNE
1STB
BM]
ASLB
BCC
MovB

BIS
BI1S

MOVB
181
(mMp

MOv

177777

;;PUT THE BINARY NUMBER ON THE STA(K
;.60 TO THE ROUTINE

INC

BLY
BGT

8%:

NUM,
- (SP)

1518
BPL
MOvB
CLRB
Mov
mov
MOov

69
1(SP),=-1(R3)
#'0,R2

R2,(R3)+
(RO)¢

::PUT THIS CHARACTER

IN THE OUTPUT BUFFER

2%
1)
RS,R2
6%

::JUST INCREMENTING
;;CHECK THE TABLE INDEX
;:60 DO THE NEXT DIGIT
::60 10 EXIT
::GET THE LSD
; ;G0 CHANGE TO ASCII

;:BR If NO

RO,#10

(SP)+

;:WAS THE LSD THE

FIRST NON-ZERQ”

(R3)

;s VES==SET THE SIGN FOR TYPING
::SET THE TERMINATOR

(SP)+,R3
(SP)+ R

:;POP STACK INTO R?

-1(SP),=2(R3)

(SP)+ RS

::POP STACK
::POP STACK

INTO RS
INTO R3

)

= olpfipure

la
-

- T
RS Rt
- o

——

=
T
A——
-

CIRJJIDO, RPO&L/S/6 FCINL CTRLR2
CIRJJD. P11
28-PAR-79 08:52
10561
10562
10563
10564

10565
10566
10567

10568
10569
10570
1057

037260

012601
012600

106401
016666
012616
000002

123420
001750
000144
000012
000004

037312
000002

MACY1Y

30A(1052)

25-MAY-79

(ONVERT BINARY

000004
$DTBL:

$DBLK:

MoV
MOV
TYPE
MOV
MOV

(SP)+ R}
(SP)+,RO
, S0BLK
2(SP),4(SP)
(SP)+,(SP)

10000.
1000.
100.
10.
BLKW

R11

10:48
PAGE 222
TO DECIMAL AND TYPe ROUTINE

;:POP STACK

SEQ 0221

INTO R1

;;POP STACK INTO RO

;;NOW TYPE THE NUMBER
;. ADJUST

THE

STACK

;;RETURN TO USER

CZRJJDO, RPO4/5/6 FCINL CTRLR2
CIRJJD.PN
2B-MAR-79 08:52

MACY11

TYPE

10572
10573
10574
10575
10576
10577
10578

25-MAY-79

10:48

2
PAGE 223

ROUTINE

.SBTTL

SEQ 0222

TYPE

ROUTINE

;:""""'"""""""""""""l-'.t""""""'."t"""

;*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.
;*NOTE:

$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

;*NOI[E2:

10579

;*NOTE3:

10580
10581

seCALL:

10582
10583

;*1) USING A TRAP INSTRUCTION
.MESADR
TYPE
M

10584

;*0R

10585
10586

10587
10588
10589
10590
10591
10592
10593
10594
10595
10596
10597
10598
10599
10600
10601
10602
10603
10604
10605
10606
10607
10608
10609
10610
10611
10612
10613
10614
10615
10616
10617
10618
10619
10620
10621
10622
10623
10624
10625
10626
10627

30A(1052)

.Y
M

;;MESADR

FIRST

ADDRESS

AN ASCIZ

STRING

TYPE
MESADR

'-t

037322
037326
037330
037332
037334
037336
037342
037344
037346
037550
037352
037356
037360
037364
037366
037372
037374
037376
037400
037402
037406
037410
0374614
037420
037422

037426
037432
037434
037440
037444

105737
100002
000000

000407
010046
017600

112046
001005
005726
012600

062716

000002
122716
001430
122716
001006

001157

$TYPE:

1%:

000002

2%:

000002

60¢%:
3%:

000011

000200

105037

123726

001350
013746

037472

001154

105337

037472
037536

002770
004737
000770

5%:
€%

001156

000001

MOV
MOV

RO,-(SP)
22 (5P) R0

TST

(SP)+

MOVB
BNE

MOV
ADD

000040
037472

000007

(SP)+,RO

RT1
CMPB

7%:

037536

;:SAVE RO

;:;GET ADDRESS OF ASCIZ STRING
; ;PUSH CHARACTER TO BE TYPED ONTO STACK
;;BR IF IT ISN'T THE TERMINATOR
1F TERMINATOR POP 11 OFF THE STACK
;.

:;RESTORE RO
:;ADJUST RETURN PC

#HT, (SP)

:;BRANCH IF

BNE

:sRETURN

<HD>

#CRLF, (SP)

: ;BRANCH JF NOT <(CRLF>

(SP)+

<CR><LF> EQUIV
::POP
;;TYPE A CR AND LF
;s CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
;.60 TYPE THIS CHARACTER
¢ 1S IT TIME FOR FILLER CHARS.?

MOV

$CHARCNT
2%
PC,STYPEC
SFILLC,(SP)+
b4
$NULL ,-(SP)

DE(B

1(SP)

CLRB
BR
JSR
(MPB

BNE

BLT
JSR
DECB

8%:

;:1S THERE A TERMINAL?
;:BR IF YES
::HALT HERE JF NO TERM]INAL
;s LEAVE

N2, (SP)

8EQ

;HORIZIONTAL

037446
037452
037456
037464
037466

(RO)+,=-(SP)
4%

1S7
TYPE
SCRLF

037536

105366

(MPB

104401

000755
004737

$TPFLG
1%

HALT

005726
001223

1STB
8PL

MovB
JSR

B118
BNE
181

6%
PC,STYPEC
SCHARCNT

14 )

::1F NO GO GET NEXT CHAR.
::GET # OF FILLER CHARS. NEEDED
;:AND THE NULL CHAR,
:.DOES A NULL NEED TO BE TYPED?
::BR 1f NO--GO POP THE NuULL OfF OF
+:60 TYPE A NULL
;00 NOT COUNT AS A COUNT
. .LOOP

TAB PROCESSOR

,L(SP)

PC,STYPEC

#7,8CHARCNT
9%
(SP)+

;:REPLACE TAB WITH SPACE
;s TYPE A SPACE
;BRANCH IF NOT AY
;. TAB STOP
. .POP SPACE OFF STACK

STACK

CIRJJDO, RPO&L/S5/6 FCTINL CTRLR2
CZRJJD.PI
28-MAR-79 08:52
10628
10629
10630
10631
10632
10633
10634
10635
10636
10637
10638
10639
10640

10641

037470
037472
037476
037500
037506
037514
037516
037522
037524
037532
037534
037536
037540

000724

MACY11

161652

000002
000015

001402
105227
000000
000207

TYPE

161444

000002

25-MAY-79

ROUTINE

BR
TST8B
BPL
MOvB
(MPB
BNE
(LRB
BR
1%:
(MPB
BEQ
INCB
$CHARCNT: ,WORD
$TYPEX: RTS

$TYPEC:

037536
000012

30A(1052)

10:648

PAGE

224

;sGET NEXT CHARACTER
;:WAIT UNTIL PRINTER IS READY

2%
a3%1PsS
STYPEC
2(SP) ,a%1PB
#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

;: 1S CHARACTER A LINE FEED?
:;BRANCH ]F YES
;s COUNT THE CHARACTER
:; CHARACTER COUNT STORAGE

STYPEX
FLF,2(SP)
STYPEX
(PC)+

sLEX]

SEQ 0223

CZRJJDO, RPO4/S/6 FCINL CTRLR2
CZRJJD.PY
2B-MAR-79 08:52

MACY11

TTY

10642
10643
10644

10645

10646

10647

10648
10649
10650
10651
10052
10653
10654
10655
10656
10657
10658
10659
10660
10661
10662
10663
10664
10665
10666
10667
10668

10669

10670
10671
10672
10673
10674
10675
10676
10677
10678
10679
10680

10681
10682
10683
10684
10685
10686
10687
10688
10689
10690
10691
10692
10693
10694
10695
10696
10697

30A(1052)

25-MAY-79

INPUT

LSBTTL

10:48

PAGE 225

ROUTINE

TTY

SEQ 0224

INPUT ROUTINE

;:"t""""""""""""'t't"'""'Ql""'."".'."""".

037542
037544
037546
037550

.ENABL
LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKQCGUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.
.EVEN

000000
000000
000000
000011
037561
037562

0
O
¢
9.

: ;NUMBER OF ITEMS [N QUEUE
;s INPUT POINTER
;;OUTPUT POINTER
;. TTY KEYBOARD QUEUE

;*TK INITIALIZE ROUTINE
;*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT
s*CALL:
X

03756¢
037566
037574
037602
037610
037616
037622
037630

037542
037550
037544
037632
000200
141324
000100

037544
037546
000060
000062

RETURN

JSR

PC,STKINT

$TKINT:

CLR
MOV
MoV
MOV
MOV

$TKCNT
#STKQSRT,$TKQIN
$TKQIN,$TKQOUT
#STKSRV,3#TKVEC
#200,a#TKVEC+2

:;CLEAR COUNT OF ITEMS IN QUEUE
;;MOVE THE STARTING ADDRESS OF THE
::QUEUE INTO THE INPUT & OUTPUT POINTERS.
;;INITIALIZE THE KEYBOARD VECTOR
;;''BR"' LEVEL &

#100,3%7«S

;;ENABLE

141314

1S71

a%$TKB

RTS

MoV

;*TK SERVICE ROUTINE
;*THIS

ROUTINE

WILL

SERVICE

::CLEAR [ONE FLAG

THE

TTY

;*BY READING THE CHARACTER FROM THE

:*]T
;*1F

IN THE QUEUE.
THE CHARACTER

:*UPON RETURN EXIT

037632
037636
037642
037646
037650
037654
037660
037662
037666
037672
037674
037702

037704
037704
037712
037714
037720
037722
037724
037730

117746

042716
021627
001007
104401

004737
005726
000137
021627
001004
022737
001500

022737
001004
104401

005726
000451
021627
001021

141310
177600

$TXSRV:

000003

BIC
Cmp
BNE

TYPE

040621
037562
1%:

000176

001140

000011

037542

2%:

1¢:

STKINT

IS CALLED AND

JHOONTLC

;s TYPE A CONTROL=-C

CHARACTER

;:STRIP THE JUNK
;315 1T A CONTROL C?
;;BRANCH IF NO
;s INIT

THE

KEYBOARD

(*C)

(SP)+

;s CLEAN UP

2%
#SWREG, SWR
6%

;1S SOFT=-SWR SELECTED?

#9. ,8TKCNT
3%

STACK

;s CONTROL C RESTART
::1S 1T A CONTROL G?
; BRANCH [F NO

;.60 TO SWR CHANGE

;1S THE QUEUE FuLL?
; sBRANCH JF NO

LOBELL
(SP)¢

;sRING THE TTy BELL
s CLEAN CHARACTER OFF

(SP),#23%

J01S 1T A CONTROL=S?

BNE

329

(MP

INPUT BUFFER AND PUTTING

;:PICKUP THE

#2C177,(5P)
(SP) ,#3
1%

OPERSEL
(sp),#7

TYPE
187

001216

INTERRUPT

98TkB,~(SP)

JMP
cmp

(Mp
BNE

INTERRUPT

IS MADE TO THE "'CONTROL=-C'' RESTART ADDRESS

PC,$TKINT

BNE
(MpP
BEQ

CALLER

KEYBOARD

IS A "'CONTROL=-C'' (*C)

JSR
ST

034450
000007

000023

MOVB

TTY KEYBOARD

;:RETURN T0O

sEX]T

::BRANCH IF

STA(K

(OPERSCL)

CIRJJDO, PPO4L/S/6 FCTINL CTRLRZ
28-MAR-79 08:52

CIRJJD. P11

005077
005726
105777

10698
10699
10700
10701
10702
10703
10704
10705
10706
10707
10708
10709
10710
1071
10712
10713
10714

100375
117746

042716
022627
001366
012777
000002
005237
021627
002405
021627
003002
042716
112677
005237

10715

716
10717
10718
10719
10720
10721
10722
10723
10724

10725
10726
10727
10728
10729
10730
10731
10732
10733
10734
10735
10736
10737
10738
10739
10740
107461
10742
10743
10764
10745
10746
10747
10748
10749
10750
10751
10752
10753

040040

040046

023727
001003
012737
000002

MACY11

30A(1052)
TTY

INPUT

141206

318

141200

161174
177600
000021

000100

25-MAY-79
ROUTINE

32%:

037542
000140

000175
000040
177520
037544
037544

037561

037550

037544

o2
PAGE 226

SEQ 0225

#100,387kS

INC

$TKCNT

:;COUNT THIS CHARACTER

BLT
(Mp
BG1
BIC

4%
(SP) ,#175
4%
#40, (SP)

INC

$TKQIN
$TKQIN,#STKQEND ; ;GO OFF THE END?
5%
: ;BRANCH [f NO
;
N
#$TXQSRT,STKQI
;RESET THE POINTER

13
&

1518
BPL
MOVB

138
43
71
a$TKB,-(SP)

(MP
BNE
MOV

(SP)+ r21
31%

187

RTI

(MpP

MOVB

CMP

5¢%:

::DISABLE TTY KEYBOARD INTERRUPTS
::CLEAN CHAR OFF STAC(K
;:WALT FOR A CHAR
;:LO0P UNTIL ITS THERE
;;GET THE CHARACTER
s:MAKE T 7-BIT ASCI!]
;319 1T A CONTROL-Q?
::BRANCH IF NO
;;REENABLE TTY KEYBOARD INTERRUPTS

CLR

B1C

141152

10:48

BNE
MOV

RTI

(SP)+

#2C177,(5P)

; ;RETURN

(SP),#140

::15 17T UPPER CASE?
;;BRANCH IF YES
::1S 1T A SPECIAL CHAR?
::BRANCH IF YES

(SP)+,3%TKQIN

:;AND PUT IT IN QUEUE
::UPDATE THE POINTER

;:MAKE

UPPER

CASE

; ;RETURN

IRy

'SOFTUARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE IS ENTERED
FROM THE TRAP HANDLER, AND WILL
040050
040056
040060
040064
040066
040072
040076
040102

022737
C01124
105777
100121
117746
042716
021627
001300

000176

001140

;'SERVICE THE TEST FOR CHANGE IN SOFTWARE SUITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERAuPT MODE.

$CKSWR:

161060

CMP
BNE
1S18

#SWREG, SWR
15%
3%7KS

::1S THE SOFT=-SWR SELECTED
J2EXIT IF NOT
::1S A CHAR WA]TING?

MOvB

a%T1KB,-(SP)

;s YES

(MpP

(SP), a7

8PL

1641054

BIC

177600
000007

BNE

15¢%

#2C177,(SP)
2%

;:1F NOT, EXIT
::MAKE IT

7-BIT ASCII

;19 1T A CONTROL-G?

::1F NOT, PUT
:AND EXIT

IN THE TTY QUEUE

s,X222222X23222222223 22222222220 22222200222RRRRRRRRRRRRRRRRRlRERR

123727

040104
040112
040114
040116
040122
040126

001674
005726
004737
005077
112737

040134
040140

104401
104401

040144
040150

040152
040156

040160

013746
104402
1046401

005046
005046

001134

000001

'CONTROL 1S 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 SOFTWARE SWITCH REGISTER BEING SELECTED.

037562

141016

000001

060633
040640
000176

040651

001135

CMPB

$AUTOB, 9

2%
(SP)+
PC,$TKINT
a%TKS
#1,8INTAG

;;BRANCH IF YES
::CLEAR CONTROL-G OFF STACK
;:FLUSH THE TTY INPUT QUEUE
::DISABLE TTY KEYBOARD INTERRUPTS
::SET INTERRUPT MODE INDICATOR

TYPE

LSCNTLG

::ECHO THE CONTROL=-G (*G)

MoV
TYPOC
TYPE
(LR
(LR

SWREG,-(SP)

;s SAVE SWREG FOR TYPEQUT
::60 TYPE=-=0OCTAL ASCIIC(ALL DIGITS)
;;PROMPT FOR NEW SWR
;s CLEAR COUNTCR
;: THE NEW SWR

BEQ
TS1
JSR
CLR
MOVB

$GTSWR: TYPE

19%:

LHIMSUWR

LOMNEW
-(SP)
=(SP)

;sARE WE RUNNING IN AUTO-MODE?

;;TYPE CURRENT CONTENTS

CIRJJIDO, RPOL/S/6 FCINL CTRLR2
(IRJJD.PN
28-MAR-79 08:52
10754
10755
10756
10757
10758
10759
10760
10761
10762
10763
10764
10765
10766
10767
10708
10769
10770
1071
10772
10773
10774
10775
10776
10777
10778
10779
10780
10781
10782
10783

10784
10785

10786

10787
10788
10789
10790
10791
10792
10793
10794
10795
10796
10797
10798
10799
10800
10801
10802
10803
10804
10805
10806
10807

10808

10809

040166

040162

105777
190375

140756

040170
040174

117746
042716

1407952
177600

040200
060204
040206
040212
N40216
040224
040226

021627
001015

000003

040240
040244
040246
040252
040256

021627
001005

040260
040264
040266
040272
040274
040302
040306
040312
040320
040322
040330
040332
040336
040342
040344
040350
040352
040356
040362
040364
040366
040370
040372
040376
040402
040404
040410

040234

104401

062706
123727

001005
012777
000137

040621
000006
001135
000100
034450

MACY11

30A(1052)

a%71kKsS
7%

;s CHAR THERE?
s IF NOT TRY AGAIN

BIC

MOvB

a$TKB,~(SP)
#4C177,(SP)

;:PICK UP CHAR
;sMAKE IT 7-BIT ASCII

(mp
BNE

(SP) ,#3
9%

:;BRANCH IF

NOTY

;:BRANCH IF

BPL

TYPE
ADD
(MPB
BNE
MOV
JMP

8%:

cMP
BNE

040626
000006

20%:

021627
001022
005766
001403
016677
062706

000015

10%:

106601
123727

001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000667
104401

000720

000004

001223
001125

000001

000100

140614

SEQ 0226

1518

104401
062706
000737

140636

¢
PAGE 227

7%:

9%:

700006

INPUT ROUTINE

000025

000002

10:48

TTY

000001
140710

25-MAY-79

TYPE
ADD

B8R

(MP
BNE
18T
BEQ
MOv
ADD
TYPE
(MPB

BNE

MOV
RT1

JSR
(MP
BLT
(MP
861
BlC

037472
000060
000067
000060
000002

157

BEQ

000002
177776

17%:

001222

18%:
.DSABL

ASL
ASL
ASL

INC
B1S

LSB

X222

JOONTLC

#6,5P

/1
$INTAG,
8%
#100,a%7KS

OPERSEL

(SP),#25
10%

LSCNTLU

;oIS IT A CONTROL-C?
:;YES, ECHO CONTROL=-C (*C)
:;CLEAN UP STACK
::REENABLE TTY KEYBOARD INTERRUPTS?

;;ALLOW TTY KEYBOARD INTERRUPTS
;; CONTROL=C RESTART

;:1S 1T A CONTROL=-U?

; sBRANCH IF NOT
;:YES, ECHO CONTROL-U

(*U)

¥6,SP

:; IGNORE PREVIOUS INPUT
:2LET'S TRY [T AGAIN

(SP), M5

1S 1T A <CR»?
: :BRANCH IF NO
:oYES, IS 1T THE FIRST (MAR?
::BRANCH IF YES
;:SAVE NEW SWR
:;CLEAR UP STACK
;:ECHO <CR> AND <LF>

19%

16%
4 (SP)
1%

2(5P),aSwR
#o,SP

SSCRLF

#1
$INTAG,
15%

#100,387kS

PC,$TYPEC

(SP),#60
18%
(SP) ,#67

18%
#60,(SP)+

2(SP)
17%
(SP)
(SP)
(SP)

2(SP)
=2(SP),(SP)
7%

,SQUES
20%

::RE-ENABLE T1Y KBD INTERRUPTS?
; ;BRANCH IF NOT
::RE-ENABLE TTY KBD INTERRUPTS
; ;RETURN
;;ECHO CHAR

::CHAR < (?

::BRANCH IF YES
;:CHAR > 7
; ;BRANCH IF YES
;:STRIP=CFF ASCII
;2 1S THIS THE FIRST (HAR
: :BRANCH F YES
;:NO,

SHIFT

PRESENT

CHAR OVER TQ MAKE

ROOM FOR NEW ONE.

;:KEEP COUNT CF CMAR
;:SET IN NEW CHAR
;:GET THE NEXT ONE

;s TYPE

7<CR><LF>

;:STMULATE CONTROL-U

X2222222222222
R
R
R R Q)

TeTHIS ROUTINt WILL INPUT A SINGLE CHARACTER FROM THE TTY
;eCALL:

CIRJIDO, RPOL/S/6 FCINL CTRLRZ
28-MAR-79 08:52
—t

o
o
o
o
el
o
il
i
—t

OO0 ~NO Ny
— (=]

e —
e
o
B
D
il
il
i
—

[eleleleolélololole o
00 0o 0o 0o 00 00 0o 0o 0o oo

CZRJJID. P11

10820

MACY11

30A(1052)
TTv

INPUT

.t
B
Mt
0404612
040414
040422
040426
040430
040434
040436
040436
040442
04604464
040450
040456
040462
040470
040472
040500

011646
016666
005066
005046
012746
000002

005737
001775
005337
117766
005237
023727
001003
012737
000002

000004
000004

000002

040436

037542
177072
037546
037546
037550

000004
037561

2%:

040554
040560

040564
040566
040570
040576
040604
040606
040607
040610
040621
040626
040633
040640

2
PAGE 228

(LR
CLR
MOV
RT1

TS1
BFQ
DEC
MOvB
INC
(mp
BNE
MoV
RTI

SEQ 0227

::GET A CHARACTER FROM THE QUEUE
;s CHARACTER IS ON THE STA(K
;:WITH PARITY BIT STRIPPED OFF

(SP),=-(5P)

;;PUSH DOWN THE PC AND

4 (SP)
-(SP)
#6469 ,-(SP)

::GET READY FOR A CHARACTER
::PUT NEW PS ON STACK
::PUT NEW PC ON STACK

4(SP),2(5P)

$TXCNT
1%

;s THE

;;POP NEW PC AND PS

:;WAIT ON A CHARACTER

:;DECREMENT THE COUNTER
$TKONT
a$TKQOUT,4(SP)
;:;GET ONE CHARACTER
$7KQOUT
:;UPDATE THE POINTER
$TXQOUT ,#STKQEND ;;DID IT GO OFF OF THE END?
2%
::BRANCH IF NO
flS1KQSRT,$TKO0U1 ::RESET THE POINTER
sRETURN

. Itl""'lt"""""""0""""'.""."'.'tt"'tttlt"'"t.'

seCALL:

040530
040534
040536
040542
040546
040552

RETURN HERE

:*THIS ROUTINE o [LL

040502
040504
040510
040514
040516
040520
040522
040526

10:48

RDCHR

MOV

1%:

037546

ROUTINE

$RDCHR: MOV

60s

037542

25-MAY-79

INPUT A STRING FROM THE

QULIN

RETURN HERE

$RDLIN: MOV

000177

10%:

001222

040606
040606
000015

1%:

000002
000004

9% .
000012
000
000012
020122

$TTYIN:
SCNTLC:
SCNTLY:
$SCNTLG.
$MSWR

(SP)+,(R3)
#77,(R3)
3%
,$QUES
1%

{R3),9%
,9%

(MPB
BNE

#15 (R3)+
2%

TYPE

LOLF

;:GET ADDRESS

;:BR IF YES
::650 READ ONE CHARACTER FROM THE
::;GET CHARACTER
;219 1T A RUBOUT
;:SKIP IF NOT
:2TYPE A '
::CLEAR THE BUFFER AND LOQOP

TTy

;;ECHO THE CHARACTER

::CHECK FOR RETURN
:;LO0P [F NOT RETURN

=1(R3)

::CLEAR RETURN (THE 15)

MoV
MOV
MOV

(SP)+,R3
(SP),-(5P)
4L(SP),2(5P)

..RESTORE R3
;ADJUST THE STACK AND PUT ADDRESS OFf
fIRST ASCI] CHARACTER ON [1
M

.BYTE
.BYTE
.BLKB

0
0
9.

JASCIZ

<15><12>/SWR = /

CLRB

177777
001224

000004
040610

TYPE

;:TERMINATOR WiLL BE A BYTE OF ALL 0'S

;sBUFFER FULL?

BLOS
RDCHR
MOvVB
CMPB
BNE
TYPE
BR

MOovB

FIRST CHARA{TER WILL BE ON THE STA(K

#STTYIN+O9, R}

#¥STTYIN,R3Z

CMp

::ADDRESS OF
:;SAVE R3

MOV

2$%:

::INPUT A STRING FROM THE TTY

R3,-(SP)

1%:

040610
040621

TTY

MOV
RT1]

ASCIZ
LASCIZ
ASCIZ

#OTTYIN,L(SP)

/7%C/<15><12>
/7*U/<15<12>
/%G/<15><12>

;:TYPE A LINE FEED

;s RETURN

::STORAGE FOR ASCI! CHAR, T0 TYPE
:; TERMINATOR
:;RESERVE 9. BYTES FOR 1Ty INPUT

::CONTROL ''C*'
::CONTROL ‘0"
:;CONTROL "G’

THE

CIRJJDO, RPO&/S5/76 FCINL CTRLRZ
CIRJJD.PI
28-MAR-79 08:52
10866
10867
10868
10869

040646
040651
040656

020075
040
036440

000
047040
000040

MACY1Y

30A(1052)
25-MAY-79
TTY INPUT ROUTINE

053505

SMNEw:

.ASCIZ

10:48

2
PAGE 229

SEQ 0228

NEW =/
;FROM THE

TTY

CIRJJIDO, RPO4L/5/6 FCINL CTRLR2
28-MAR-79 08:52
CIRJJD.PVI

MACY1Y

10870
10871

10891
10892
10893
10894

10895

10896

10897
10898
10899
10900

10901
10902
10903
10904
10905
10906

10907
10908

10909

10:48

FROM

¢
PAGE 230

THE

SEQ 0229

TTv

READ AN OCTAL NUMBER FROM THE

TTvY

:'"""""""'""""""'""""'""'t't".""".'."""

:*THIS ROUTINE WILL READ AN OCT*_ (ASCI1) NUMBER FROM THE TTY AND
;tCHANGE 1T TO BINARY,

:*THE INPUT (HARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL

;*OCTAL PIGITS. IF AN ILLEGAL CHARACTER ]S READ A '"?'" WILL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST

10877

10889
10890

25-MAY-79

READ AN OCTAL NUMBER

.SBTTL

10872
10873
10874
10875
10876

10878
10879
10880
10881
10882
10883
10884
10885
10886
10887
10888

3CA(1052)

;*THEN BE RETYPED.

s vCALL:

o
M
bR

040662
040664
040672
040674

000004

040676

040700
0460702
040704
040710
040712
040714
040716
040720
0407264
240726
040732
040734
041736
040740
040742
060744
040746
040750
040754
040756
040760
040762
040766
040772
040774
040776
041000
041002
041004
041006
041010
041012
041016
041020

000002

$RDOCT:

041010

%
000060

000067

MOV
MoV
MOV
MOV
MOV
ROLIN
MOV
Mov
CLR

(SP),-(5P)
64(SP),2(SP)
RO,-(SP)
R1,=-(SP)
RZ,-(SP)

:;PROVIDE SPACE FOR THE
;: INPUT NUMBER
; sPUSH RO ON STACK
:;PUSH R1 ON STA(CK
;sPUSH R2 ON STAC(K

(SP)+,RO
RO,S%
R1
R2

::GET ADDRESS OF 1ST CHARACTER
:sAND SAVE IT
::CLEAR DATA WORD

CLR
MOVB
BEQ
CMPB
BGT
(MPB
BLT
ASL
ROL

R1
K2

ROL
ASL
ROL

R2
R1
RZ

8R
187
MOV

MOV

000000

5%:
$HIOCT:

LINE

;.PICKUP TH!S C(HARACTER
1F JERO GET OUT
;.
: ;MAKE SURE THIS CHARACTER
1S AN OCTAL DIGIT
;;

MOV
MoV
MOV

4%:

::READ AN ASCIZ

(RO)+,=-(SP)
3%

ADD

3% :

TYPING A CARRIAGE RETURN.

:;READ AN UCTAL NUMBER
;:LOW ORDER BITS ARE ON TOP OF THE STACK
::HIGH ORDER BITS ARE [N $HIOCT

BIC

177770

IS TERMINATED BY

RDOCT
RETURN HERE

ASL

001222

INPUT

1%:

000012
041020

THE

R1]

181

CLRB
TYPE

#'0,(SP)
33
#'7,(SP)
4%

#AC7,(SP)
(SP)+,R1

2%
(SP)¢
R1,12(5P)

R2,$HIOCT
(SP)+ ,R?2
(SP)+ ,R1

(SP)+ RO
(SP)+

(RO

.WORD
T1YPE

0
,SQUES

.WORD

B8R

1R3

;.8
;:STRIP THE ASCID

JUNK

;;ADD IN THIS DIGIT
;1 NOP
::LLEAN TERMINATOR FROM STACK
::SAVE THE RESULT

::POP STACK INTO R?
INTO R

::POP STACK

;:POP STACK INTO RO

; s RETURN

;s CLEAN PARTJAL FROM STA(K
;:SET A TERMINATOR

::TYPE UP THRU THE BAD (HAR.
;.l.?ll

IICRCO

;s TRY

AGAIN

IILFll

;sHIGH ORDER BITS GO HERE

—

CIRJJIDO, RPO4L/S5/6 FCINL CTRLR2
CIRJJD. P
28-MAR-79 08:52
10923
10924
10925
10926
10927
10928
10929
10930
10931
10932
10933
10934
10935
10936
10937
10938
10939
10940
10941
10942
10943
10944
10945
10946
10947
10948
10949
10950
10951
10952
10953
10954
10955
10956
10957
10958
10959
10960
10961
10962
10963
10964
10965
10966
10967
10968
10969
10970

MACY11

25-MAY-79

30A(1C052)

ERROR HANDLER ROUTINE
LSBTTL
SR

10:48

PAGE 231

SEQ 0230

ERROR HANDLER ROUTINE

X2 2 X2

XXX

2SR

ERZE

:*THIS ROUTINE WILL

INCREMENT

;*SW15=1
;*SW13=1
;*SW10=1
;*SW09=1

ON ERROR

RS RARRARERRR

dd )

THE ERROR FLAG AND THE ERROR COUNT,

;*SAVE THE ERROR 1TEM NUMBER AND THE ADDRESS OF THE ERROR CALL
:*AND GO TO SERRTYP ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;eCALL
*

041022
041022

041024
041024
041032

0461032
041036
041040
041046
041054
041056
0.1062
0461066
0461072
041100
041106
061114
0461116
041122
041126
041126
041132
041134
0641136
041140
0461146
041150
041154
041160
0461162
041166
041166

SERROR:

104407

012737

177777

105237
001775
013777
032777
001402

001103

1064401

005237
011637

162737
117737
032777
001004
004737
104401

005777
100002

000000
104407
032777
001402
013716
005737
001402
013716
000002

001102
002000

001216
001112
001116
000002
140012

020000

004632

140u/4
160064

001116
001114

001214

LOOP ON ERROR

ERROR

20%:
2%:

1%
4%

5¢%:

; ;ERROR=EMT

AND N=ERROR

JTEM NUMBER

;:TEST FOR CHANGE IN SOFT-SWR

CKSWR

Mov

#-1,30ERFLGS

:SET

INCB
BtQ

$ERFLG
7%

;:;SET THE SRROR FLAG
::DON'T LET THE FLAG GO 10O ZERO

BIT
BtaQ

#BIT10,a5WR
1%
LOBELL

;:BELL ON ERROR?
:iNO - SKIP
::RING BELL

TYPE

INC

$STSTNM,aCISPLAY

SERTTL
(SP),SERRP(

ERROR FLAG

;;DISPLAY TEST NUMBER AND ERROR FLAG

::COUNT THE NUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION

Mov
SuB
MOovB

o$ERRPC,S1TEMB

::;STRIP AND SAVE THE ERROR

BNE
JSR

20%
PC,SERRTYP

TYPE

JOCRLF

::SKIP TYPEQUTS
::60 TO USER ERROR ROUTINE

1S1
BPL
HALT
CKSWR

aSWR
1%

;:HALT ON ERROR
::SKIP IF CONTINUE

Bea

BIT

140024

137772

INHIBIT ERROR TYPEOUTS
BELL ON ERROR

Mov

1%:

140006

001110
001214

REGSA1:

7%:

041172
001223

001000

REGSAV:

HALT

¥2,3ERRPC

#BIT13,a5uWR

BIT

#B81109.9' R

MOV
151

SLPERR, (SP)
SESCAPE
5%

BeaQ

Mov
RTI

SESCAPE, (SP)

::SKIP TYPEOUT

IF SET

ITEM CODE

::HALT ON ERROR!

;:TEST FOR CHANGE IN SOFT-SWR
::LOOP ON ERROR SWIT(H SET?
.:BR

;:FUDGE RETURN FOR LOOPING
;. (HECK FOR AN ESCAPE ADDRESS
::BR IF NONE

::FUDGE RETURN ADDRESS FOR ESCAPE

; ;RETURN

CIRJIJIDO, RPOL/S/6 FCINL CTRLR2
CIRJJID.PIN
28-MAR-79 08:52
10971

MACY11

30A(1052)
25-MAY-79
10:48
ERROR HANDLER ROUTINE

2
PAGE 232

SEQ 0231

10972

10973
}83;?

.SBTTL

ERROR MESSAGE TYPEOUT ROUTINE

10976
10977
10978

;*THIS ROUTINE USES THE ‘'ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
;*ERROR 1S TO BE REPORTED.
IT THEN OBTAINS, FROM THE ''ERROR TABLE'' (SERRTB),
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

10981
10982
10983
10984
}8832

;*FIRST IF SWITCH 6 1S SET AND SWITCH 8 RESET THEN
;vALL KEGISTER CONTENTS WILL BE TYPED BEFOR REPORTING THE ERROR
;*SECOND IF THE CURRENT ERROR HAS THE SAME [TEM NUMBER
;*AS THE PREVIOUS ERROR THEN ONLY THE DATA WILL BE TYPED
;*AND NOT THE ERROR MESSAGE AND HEADER.

10979
10980

0641170

000000

10989

061172

017746

10996
10997

041176
041202
041206
061210
061212

042716
022726
001001
000402
000137

PRITEM: O
137742

SERRTYP: MOV

042132

1%:

177277
000100

041216

041216
041222

11002

0612640

013746

002254

11006
11007
11008

041246
041252

104401
000406

0461256

11010

041270

013746

002256

11016
11015

041276
0461302

104401
000406

041304

11017

041320

11019

041320
041324

013746

002260

041326
041332

1046401
000406

041334

013746

002262

11003
11004

11005

041240
041246

11009

0461270

11011

041274

11012
11013

11016

11018

11020
11021

11022
11023

11024

11025

11026

R AR A

041350

81C
cmp
BNE
BR
JMP

;PREVIOUS I1TEM NO. LOCATION
aSWR ,~(SP)

#2C500, (SP)
#SW06, (SP)+
1%
2%
3#TYPERR

2%:

10998
10999
11000
11001

A X R R R

s¢1T 1S A COPY OF THE SERRTYP SUBROUTINE FROM SYSMAC.
;*WITH ONLY MINOR CHANGES

}83%;
10990
10991
10992
10993
109964
10995

104401
000406

104402

0412264
00658

66%:

;0678

,65%
;. TYPE ASCIZ STRING
64%
;sGET OVER THE ASCIZ
<15><127/RHWC =/

MOV

o#WC,-(SP)

TYPE
BR
(ASCIZ

,67%
;s TYPE ASCIZ STRING
66%
;.GET OVER THE ASCIZ
<15><12>/RHBA =/

MOV

a#BA,-(SP)

TYPE
B8R
JASCIZ

,69%
;. TYPE ASCIZ STRING
68%
:sGET OVER THE ASCIZ
<15><12>/RH(S2 = /

MOV

ar(s2,-(SP)

TYPE
BR
JASCIZ

18
. TYPE ASCIZ STRING
70%
;.GET OVER THE ASCIZ
<15><12>/RHCSY =/

MGV

aNCS1,-(SP)

TYPOC

;:69%:

68%:

TYPOC

2718
70%:

;KEEP ONLY SWITCH 8 AND 6
;1S 6 SET AND 8 RESET
:1F NOT BRANCH
;BRANCH IF SW 6 IS SET AND 8 RESET
;JUMP [F SW 8 IS SET
;OR IF SW B IS RESET AND SW 6 IS RESET

TYPE
BR
JASCIZ
TYPOC

66%:

;GET SWITCH SETTING

;GET READY TO TYPE RHW(C CONTENTS

;GET READY TO TYPE RHBA CONTENTS

:GET READY TO TYPE RH(S2 CONTENTS

;GET READY TO TYPE RHCST CONTENTS

CIRJJDO, RPO4/S5/6 FCTNL CTRLR2

CIRJID.PIN
11027
11028
11029
11030

110317
11032
11033

28-MAR-79 08:52

061354

104402

041356
041362

104401
000406

041364

041400

013746

002304

11038
11039

041406
041412

000406

104401

041414

11040
11061

11042

041404

041430

104402

041430

013746

002264

11046
110647
11048
11049

041636
041442

104401
000406

041444

11051

041460
041460
041464

013746

002270

104401

061474

110643

11044

11045

11050

1,952
11053

041434

11054

041466

11057

041510

11055
11056

11058

041472

104402

000406

013746

002276

11062
11063
11064

041516
041522

104401
000406

041524

11066

041540

11061

041514

11065

041540

11067

061544

11068
11069

11070

11071

11072
11077

11076

11075

1074
*iull

11078

11679
11080

11081

11082

0641546

041552

041570

104402

002266

10447

041554

0004.%

061570

013746

002274

041576

104401

041604

061574

0641602

041620

104402

000406
013746

s:73%:
72%:

10:48

2
PAGE 233

138
72%
<15><12>/RHDSY

MOV

arpsS1,-(SP)

:GET READY T0 TYPE RHDS! CONTENTS

L 715%

::TYPE ASCIZ STRING
::GET OVER THE ASCI2Z

TYPE

20798
74%.

0:77%:
76%:

74%
<15><12>/RHERY

MOV

a#ER1,-(SP)

TYPE
BR
JASCIZ

179
;:TYPE ASCIZ STRING
76%
;;GET OVER THE ASCIlZ
<15><12>/RHER2 = /

MOV

ANERZ,-(SP)

:GET READY TO TYPE RHER? CONTENTS

TYPOC

TYPE

78%:

:GET READY TO TYPE RHER1 CONTENTS

L, 19%

;2 TYPE ASC!Z STRING

MOV

a¥ER3,-(SP)

:GET READY TO TYPE RHER3 CONTENTS

TYPE
B8R
LASCIZ

.81%
::TYPE ASCIZ STRING
80%
;:GET OVER THE ASCIZ
<15><12>/RHDST = /

¥0ov

a#DST ,~-(SP)

:GET READY TO TYPE RMDST CONTENTS

,83%

::TYPE ASCIZ STRING

TYPE

829%

MOV

a#CA,=(SP)

;GET READY TO TYPE RHCA CONTENTS

TYPE

B8R
LASCIZ

,85%

;s TYPE ASCIZ STRING

849
::GEYT OVER THE ASCIZ
<15><12>/RHAS =/

MoV

a#AS,-(SP)

:GET READY 10 TYPE RMAS (ONTENTS

LASCIZ

TYPOC

84%:

78%
::GEYT OVER THE ASCI2
<15><12>/RHER3 = /

TYPOC

;:838:
82%:

B8R
LASCIZ
TYPOC

80¢%:

::TYPE ASCIZ STRING
;:GEY OVER THE ASCIZ
=
/

BR
JASCIZ
TYPOC

::85%:

002300

TYPE
BR
LASCIZ
TYPOC

02818

013746

104402

25-MAY-79

ERROR MESSAGE TYPEOUT ROUTINE

::79%:

041510

11059
11060

30A(1052)

TYPOC

11034

11035
11036
11037

MACY11

:;GET OVER THE ASCIZ

<15><12>/RHCA =/

SEQ 0232

CIRJJDO, RPO&L/S5/6 FCINL CTRLRZ2

2 RJJD.PIN

il
) el
Sl el el WD
) T
D o
D
sl

041624

104402

041526
041632

104401
000406

0461634

041650
061654

013746
104407

002272

061656
041662

104401
000406

041664

041700
041700
041704

’
013746
104402

041706
041712

104401
000406

041650

254

SEQ 0233

TYPOC

002302

0461714

041730
041730
041734

013746
104402

002320

041736
0641742

104401
000406

061744

TYPE

::87%:
86%:

::89%:
88%:

918
90%:

;.93%:

041760
041760
061764

013746
104402

002316

041766
041772

104401
000406

041774

042010
042010
062014

013746
104402

002312

062016

104401

042024

G2%:

Bk
<ASCIZ

949

<15><12>/PHOF

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

Mov
TypPOC

a#0F ,=-(SP)

:GET READY TO TYPE RHOF CONTENTS

TYPE

,89%
88%

s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

BR
.ASCI1Z
MOV
TYPOC

TYPE

BR
<ASCI1Z
Mov
TYPOC

TYPE
BR

ASCIZ

MoV
TYPOC

TYPE

95s

,87%
86%

<155<12>/RHMR

afMR,-(5P)

:GET READY TO TYPE RHMR CONTENTS

,918

::TYPE ASCIZ STRING

90%

<15><12>/RHLA

;:GET OVER THE ASCIZ

’

afLA,-(SP)

:GET READY TO TYPE RHLA CONTENTS

,93%

;s TYPE ASCIZ STRING

92%

<15><125/RHCC

:;GET OVER

THE

ASCIZ

o#CC,-(SP)

:GET READY TO TYPE RMCC CONTENTS

,95%

;s TYPE ASCIZ STRING

BR
.ASC1Z

94%

MOV
TYPOC

WNECT,-(SP)

;GET READY TO TYPE RHEC!

L97%

;s VTYPE ASCIZ STRING

<15><12>/RHECY

;:GET

OVER

THE

ASCIZ

CONTENTS

D e
D
D et
D el
)
D il it
)

1
1
1
1
1
1
1
1
1
1
1
1

—

1
1
1
1
1
1
1
1
1
1
1
1
1

vt
R

D ol

D il

A ARe ORI
IONS oo~NPs N b AN
4 2 2+O DO
NA
RS
NN SR N
OB OO0
I AR

P s

| 1083
\
1
1 086
! 087
1 088
1 089
1 090
1 091
1
1
1 094
1 095
1 096
1 097
1 098
1 099
1
1
1
02
1
1
1
1
1
1
1

28-MAR-79 08:52

MACY11

75=MAY-T79
10-<8
PAGE
30A(1052)
ERROR MESS5AGE TYPEOUT ROUTINE

062022

042040
062040

000406

062066

013746
104402

002314

042066
042052

104401
000406

062054

042070
042070

013746

002306

TYPE

97%

96%:

998

98%:

BR
LASCIZ

96%

MOV
1YPOC

aNEC2,-(SP)

;GET READY TO TYPE RMECZ CONTENTS

B8R

TYPE

,99%
98%

;. TYPE ASCIZ STRING
::GET OVER THE ASCIZ

MOV

o#DT,-(5P)

LASCI2

::GET OVER THE ASCIZ

C15><12>/RHEC2 =/

<15>C12>/RHDT

JGET

READY

"0 TYPE

RHDT

CONTENTS

”f
‘¢

—

[T S

S —

CIRJIJIDO, n 047576 FCINL CTRLR2

CIRJJD.PI
11139

11140
111410
11142

28-RAR-79 78:52

042074

30AC1052)

25-MAY-79

104402
104401

042104

042120
042120
042126

013746
104402

002310

}}‘gg

0642126

005037

041170

11151

042132

001223

11154
11155
11156
11157
11158
11159

0642140
042142
042146

104401
010046

005000
153700
001004

001114

CLR
B1SB
BNE

042150

013746

001116

MOV

042154
042156
062160
042162

104402
000454
005300
006300

11160
11161
11162
11163

0642132
042136

111646
11165
11166
11167
11168

042164
042166
0462170
042174
042200

006300
006300
062700
020037
001002

11170

042204

000420

11169

11171
11172
11173
111764
11175
11176
11177
11178

11179
11180
11181

042202

042206
0642212
062216
0462220
042222
042224
0462230
042234

042236
042240
042242

104401
000000
104401

11182
11183
11184
11185

042246
042250
042252
042254

010146
012001
001415
012000

11187
11188

042260
042262

001003
013146

11190

042266

000402

042270
042272
042274

013146
104405
005711

11186

11189

11191

11192
11193
11194

042256

042264

042270

TYPE

105720

B 3

]

PAGE 235

SEQ 0234

L1018

::;TYPE ASCIZ STRING

a#SN,-(SP)

:GET READY TO TYPE RHSN CONTENTS

CLR

afPRITEM

:CLEAR PREVIOUS ERROR ITEM

TYPE
MoV

LOCRLF
RO.,-(SP)

:"CARRIAGE RETURN'' & '"'LINE FEED''
;SAVE RO

$ERRPC,-(SP)

:1F 1TEM NUMBER IS ZERO, JUST
;TYPE THE PC OF THE ERROR
:SAVE SERRPC FOR TYPEOU!
;ERROR ADDRESS
;G0 TYPE--OCTAL ASCII(ALL DIGITS)

B8R
221018 JASCIZ
1008:
Mov
TYPO(

TYPERR:

1%:

001226
061170

022020

010037
012037
001404
104401
000000
104401
012037
001404

1YPOC

000406

11152
11153

10:48

—=

ERROR MESSAGE TYPEOUT ROUTINE

042102

11163
11144
11145
111646
}}}:g

042076

MACY1Y

TYPOC
B8R
DEC
ASL

001223
042240

001223

13%:

2%:
1%:

4%:
5%:

6%:

104402

7%:

8%:

RO
afS1TEMB,RO
1%

ASL
ASL
ADD
{mp
BNE

10%
RO
RO
RO
RO
#SERRTB,RO
RO,a#PRITEM
13%

CMP

041170
042222

100%
::GET OVER THE ASCIZ
<155<12>/RHSN =/

MOV
MOV
BEQ
TYPE
.WORD
TYPE
MOv
BEQ

TYPE
. WOKkD
TYPE

MOV
MOV
8tQ
MOV
TS1B
BNE
MOV
TYPOC
B8R

MOV
TYPDS
TS81

(RO)+,{(RO)+

RO,9#PR]ITEM
(RO)+,2%
3%

0
LOCRLF
(RO)+,4%
5%

0
,OCRLF
R1,-(SP)
(RO)+,R?
9%
(RO)+,RO
(RO)+
7%
a(R1)+, =(SP)
8%

a(R1)¢+, =(SP)
(R1)

:PICKUP THE

1TEM INDEX

:GET QU7
:ADJUST THE INDEX SO THAT [T WILL
:
WORX FOR THE ERROR TABLE
;FORM TABLE PGINTER
:WAS PREVIOUS ERROR SAME
;BRANCH If NGT

:POP RO OVER EM AND DH

;SAVE NEW ERROR ]TEM
:PICKUP "'ERROR MESSAGE'' POINTER
:SKIP TYPEOUT IF NO POINTER
:TYPE THE ''ERROR MESSAGE''
:"'ERROR MESSAGE'' POINTER GOES MERE
:""CARRIAGE RETURN'' & ''LINE FEED'’
:P1CKUP ''DATA HEADER'' POINTER
;SKIP TYPEQUT IF O

:TYPE THE °‘'DATA HEADER''
:"'DATA HEADER'' POINTER GOES HERE
:"'CARRIAGE RETURN'' & '""LINE FEED'

;SAVE R1
;PICKUP "'DATA TABLE'' POINTER
:BR IF NO DATA T0 BE TYPED
:P1CKUP "'DATA FORMAT'' POINTER
:'OCTAL"" OR ''DECIMAL"’
;BR IF DECIMAL
:SAVE a(R1)+ FOR TYPEOQOUT
;60 TYPE=--OCTAL ASCII(ALL DIG:iTS)

:SAVE 8(R1)+ FOR TYPEOUT
;60 TYPE-=DECIMAL ASCI] WITH SIGN
;1S THERE ANOTMER NUMBER?

CIRJJDO, RPO&L/S/6 FCTINL CTRLR 2

CIRJID.PI

28-MAR-79 08:52

11195
11196

042276
042300
042304

001403
104407
000764

11199

042306

012601

11201

042312

000207

}}}gg

11200
11202

11203

042310
042314

042320

30A(1052)

9%:

10$:

000

25-MAY-79

10:48

3
PAGE 236

ERROR MESSAGE TYPEOUT ROUTINE

04734

012600

020040

MACYTT

11%:

BFQ
T1PE
BR

9%
118
6%

;BR 1F NO
:TYPE TWO(2)
.LOOP

MOV

(SP)+ ,R1

;RESTORE R1

RTS

;RETURN

MoV
LASCIZ
.EVEN

(SP)+,RO

SPACES

;""CARRIAGE RETURN'' & ""LINE FEED"’
;TWO(2)

SPACES

SEQ 0235

E%RJJDO. RPO4/S5/6 FCINL CTRLR2

RJJD.PV

28-BAR-79 08:52

MACYI1

1206

30A(1052)

25-MAY-79

10:48

3
PAGE 237

ERROR MESSAGE TYPEOUT ROUTINE

}%82

.SBTTL

1207

1208

:*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER T0 A 6-DIGIT

}%}(‘)

:-nvpos---emea HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

1209

*0OCTAL
s*(ALL:

1212
1213

o
.

1214
1215
1216

oY
i
.

BINARY TO OCTAL (ASCII1)

SEQ 0236

AND TYPE

R R AR

C(ASCII)

NUMBER AND TYPE

IT.

MoV
TYPOS

NUM, = (5P)

:;NUMBER TO BE TYPED
:;CALL FOR TYPEOUT

.BYTE
BYTE

N
M

ARl

;:N=1 T0 6 FOR NUMBER OF DIGITS TO TYPE
;:M=1 0R 0
::1=TYPE LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

}%};

1219
1220

;*STYPON====ENTER HERE TN TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC

1222
}%%2

M
M

1221

;*CALL:

MOV
TYPON

NUM,-(SP)

; :NUMBER TO BE TYPED
;;CALL FOR TYPEOUT

1225

;*$TYPOC~--=-ENTER HERE FOR TYPEQUT OF A 16 BIT NUMBER

;*CALL:

1226

1227
}ggg

. v
o

1230
1231
1232
1233
1234
1235

042320
042324
042332
042336
042342
042344

017646
116637
112637
062716
000406
112737

1239

042370

010446

1236
1237
1238

1240
12641
12642

042352
042360
042366

042372
042374

0626400

112737
112737
010346

010546
113704
005404

1243
1244
1245
1246
1247

0626402
042606
042612
042416
042422

062704
110437
113704
016605
005003

1249
1250
1251
1252

0462426
042430
0426432
042434

000404
006105
006105
006105

1248

1253
1254
1255
1256
1257
1258
1259

042424

042436
042440
042442
042646
042450
042454
042456

000000
000001
0642545
000002

000001
000006
000005

042543
042545
042542

$TYPOS: MOV
MOVB
MOVB
ADD
BR
$TYPOC: MOVB

MOv8
STYPON: MOVB
MOV
MOV

MOV
MOvVB

042545

NEG

000006
042544
042543
000012

0067105

010503
006103
105337
100016
042703
001002
005704

042543

MOV
TYPOC

1¢:
2%:

042544

177770

1%:

ADD
MOVB
MOvVB
MOV
CLR

ROL

BR
ROL
ROL
ROL

MoV
ROL
DECB
BPL
B1C
BNE
187

NUM, - (SP)

; ;NUMBER 10 BE TYPED
;:CALL FOR TYPEOUT

a8 (SP),-(SP)
1(SP),80FILL
(SP)+,80MODE+1
w2,(SP)
$TYPON
#1,80F1LL

;sPICKUP THE MODE
;:LOAD ZERO FILL SWITCH
; ;NUMBER OF DIGITS TO TYPE
:;ADJUST RETURN ADDRESS

RS,=-(SP)
$OMODE+1,R4

::SET THE
;:SET FOR
::SET THE
;3 SAVE R3
;:SAVE R4
;;SAVE RS
::GET THE

#6,R4
R4, $0MODE
$OFILL,RG
12(SP),RS
R3

::SUBTRACT IT FOR MAX, ALLOWED
;:SAVE IT FOR USE
::GET THE ZERO FILL SWITCH
::PICKUP THE INPUT NUMBER
;:CLEAR THE OUTPUT WORD

3%
RS
RS
RS
RS,R3
R3
$OMODE
7%
#177770,R3

::60 DO MSB
;:FORM THIS DIGIT

#6,30M0ODE +1
#5,80CNT
R3,-(SP)
R4 ,-(SP)
R4

6%
R4

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

;;ROTATE MSB INTO ''C''

;:GET LSB OF THIS DIGIT
;2 TYPE THIS DIGIT?
.:BR 1F NO
;:GET RID OF JUNK
::TEST FOR O
;s SUPPRESS THIS 0?

JJDO, RPO4/S5/6 FCINL CTRLR2

JJD.P1Y

260

261

262
263
264
265
266
267
268

062460

001403

042464
0626470
042474
042500
042504
042510
042512

052703
052703
110337
10640
105337
003347
002402

042662

269
270
271
272
273
274

042514
042516
042520
042522
042524
042526

277
278
279
280
281

042540
0425461
042542
042543
042544

275
276

28-MAR-79 08:52

042534
042536

005204

005204
000744
012605
012604
012603
016666
012616
000002

000
000
000
000
000000

MACY11

30A(1052)

5%:

7%:

6%:
000002

10:48

3
PAGE 258

BINARY T0O OCTAL (ASCI1) AND TYPE
4%:

000060
000040
042540
042540
042542

25-MAY-79

000004

8%:
$OCNT:
$OFILL:
$OMODE:

BEQ

;:BR IF

SEQ 0237
YES

INC

;;DON'T SUPPRESS ANYMORE 0°'S

INC

MOV
Mov
rov
Mov

R4
2%
(SP)+ RS
(SP)+ R4
{SP)+,R3
2(SP),4(SP)

;s INSURE LAST DIGIT ISN'T A BLANK
;.60 DO THE LAST DIGIT
; ;RESTORE RS
. ;RESTORE R4
:;RESTORE R3
;:SET THE STA(CK FOR RETURNING

.BYTE
.BYTE
.BYTE
.BYTE
.WORD

0
0
0
O
0

B1S
BIS
MOVB
TYPE
DECB
BGT
BLT
BR

MOV
RT1

#'0,R3
’ ,R3
R3,8%
8%
$OCNT
2%
6%

(SP)+, (SP)

;;MAKE THIS DIGIT ASCII
;MAKE ASCI] IF NOT ALREADY
;:SAVE FOR TYPING
::60 TYPE THIS DIGIT
.; COUNT BY 1
;B8R 1F MORE 10 DO
;.BR 1F DONE

; ;RETURN

;;STORAGE FOR ASCII DIGIT
:: TERMINATOR FOR TYPE ROUTINE
;;0CTAL DIGIT COUNTER
;. LERO FILL SWITCH
: :NUMBER OF DIGITS TO 1YPE

CIZRJJCO, RPO4L/S5/6 FCINL CTRLR?
CZRJJD.PYI
28-MAR-79 08:52

MACY11

30A(1052)

25-MAY-79

.SBTTL

TRAP DECODER

AAZE

10:48

3
PAGE 239

SEQ 0238

RS RSERREAXEEEARRRENARARARR
AR
RRANRERRRRRNE A

:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF
s*AND USE

TO INDEX

THE "'TRAP'* INSTRUCTION

THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
TME DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WiLL

:+OF
;*GO TO THAT ROUTINE.
042546
042550
042554
042556
042560
042562
042566

010046
016600
005740
111000
006300
016000
000200

$TRAP:

000002

0642602

MOV
MoV
181
MOvB
ASL

RO,-(SP)
2(SP) RO
-(RO)
(RO) ,RO
RO

Mov
RTS

$TRPAD(RO)
, RO
RO

;. SAVE RO
:.GET TRAP ADDRESS
: ;BACKUP BY 2
;;GET RIGHT BYTE OF TRAP
;sPOSITION FOR INDEXING
;;INDEX TO TABLE
;.60 TO ROUTINE

::THIS IS USE TO HANDLE THE ''GETPRI'' MACRO

N
== OO0V
AW

N A

N U UM U L L

A W

N L L U

=lelele]
NS WN =0 OO0 NO WV

NN N N NN

02
03

042570

042572
042600

011646
016666
000002

000004

€00002

$TRAPZ2:

MOV
MOV

(SP),-(SP)
6(SP),2(sP)

RT1

.SBTTL

; :MOVE
. .MOVE

THE PC DOWN
THE PSW DOWN

; ;RESTORE

THE

PSW

TRAP TABLE

;*THIS

TABLE

CONTAINS

;

ROUT INE

THE

STARTING ADDRESSES OF

;*BY THE "'TRAP'' INSTRUCTION.

$TRPAD: .WORD

STRAP2

THE

ROUTINES CALLED

042614

042570
037322
042344
042320
042360
037076

042616

040140

$GTSWR

::CALL=GTSWR

TRAP+6(104406)

042620
062622
042624
042626
0642630

040050
0640412
040502
040662
034016

SCKSWR
SRDCHR
SRDLIN
$RDOCT
WAIT.T

::CALL=CKSWR
::CALL=RDCHR
::CALLSRDLIN
::CALL=RDOCT
& :CALL=WAT

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 TTv
TRAP+13(104413) DONT ADD AB JE THIS TRAP

042602
042604
042606

042610
042612

$TYPE
STYPOC
$TYPOS
STYPON
STYPDS

;:CALL=TYPE
::CALL=TYPOC
::CALL=TYPOS
::CALL=TYPON
::CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING 2EROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
GET SOFT-SWR SETTING

CIRJJDO, RPO4/S/6 FCINL CTRLR 2

CIRJJID.PN

28-MAR-/9 08:52

MACY11

30A(1052)

25-MAY-79

10:48

POWER DOWN AND UP ROUTINES

3
PAGE 240

}}%S?

.SBTTL

POWER DOWN AND UP ROUTINES

11328

RN N R RN AR RN

11329
11330
11331
11332
11333
11334
11335
11336
11337
11338
11339
113640
11341
11342
11343

042632
042640
042646
042650
042652
062654
042656
0642660
042662
042666
062672
042700
042702

012737
512737
010046
010146
010246
010346
010446
010546
017746
010637
012737
000000
000776

042776
000340

000024
000026

136252
043002
062704

000024

11344

11345

11346
11347
11348
113649
11350
11351

11352
11353
11354
11355
11356
11357

042734
042736
062740
042742
042744
042746

012605
012604
012603
012602
012601
012600

042756

012737

11358

062750

11360

042764

11359

11361
11362
11363
11366
11365
11366
11367

11368

11369
11370
1131

012737
013706
005037
005237
001375
012677

012737
104401

042766
0462770
042772
042774
042776
043000
043002

043004
012716
004712
000002
000000
000776
000000

043012

000122

043006

005015

042776
043002
043002
043002

000024

.POWER

$PWRUP:
1%:

136204

042632

000340

000024

062527

#SILLUP,a3#PWRVEC ;,;SET FOR FAST DOWN
SAVRG,SP
.:CGET SP
$SAVRO
;:WAIT LOOP FOR THE TTv
$SAVRE
;.WALT FOR THE INC
1%
;:0F
WORD
(SP)+,aSWR
;sPOP STACK INTO aSWR

MoV
MOV
MOV
MOV

;sPOP
;.POP
;:POP
::POP

MOV

TYPE

.WORD
MOV
$PWRAD: .WORD
RTI
$ILLUP: HALT
BR
$SAVR6: 0

$POWER:

MOV
MOV
CLR
INC
BNE
MOV

MOV

000026

R AR

UP ROUTINE

MOV
MOV

$PWRMG:

047520

P TP RN RRERR ORI RERROERRORRREROEROERORNTSE

PWER DOWN ROUTINE
SPWADN: MOV
#SILLUP,Q#PWRVEC ;;SET FOR FAST UP
MoV
#3640,3#PWRVEC+2 ;:PRIO:7
MOV
RO,-(SP)
::PUSH RO ON STACK
Mov
R1,-(SP)
;:PUSH R1 ON STA(CK
MOV
RZ,=(SP)
;;PUSH R2 ON STACK
Mov
R3,-(SP)
:;PUSH R3 ON STA(K
MoV
R&,-(SP)
; sPUSH R4 ON STACK
Mov
RS,=(SP)
::PUSH RS ON STA(CK
MOV
9SWR,~(SP)
;PUSH aSWR ON STA(K
MOV
SP,$SAVRG
;s SAVE SP
MoV
¥SPWRUP ,a#PWRVEC ;;SET UP VECTOR
HALT
BR
.=2
; HANG UP
R

0642706
042712
042716
042722
042726
062730

PR E TR C T RN O

SEQ 0239

.ASCIZ
LEVEN

(SP)+,RS
(SP)+ R4
(SP)+ ,R3
(SP)+,R2
(SP)+,R1
(SP)+ RO

#SPWRON ,3#PWRVEC

;:POP STACK
;:POP STA(CK

STACK
STACK
STACK
STACK

<15><12>''POWER"’

RS
R&
R3
RZ
R
RO

;;SET UP THE POWER DOWN VECTOR

#340,3#PURVEC+2 ;;PRIO:7
$POWER
(PC)+, (SP)
BEGIN

INTO
INTO
INTO
INTO
INTO
INTO

sREPORT

THE POWER FAILURE

;;POWER FAIL MESSAGE POINTER
;RESTART AT BEGIN
;sRESTART ADDRESS
;s THE POWER UP SEQUENCE WAS STARTED
;. BEFORE THE POWER DOWN WAS C(OMPLETE
;:;PUT THE SP HERE

MACY11

uuwzwuw

C RJJDO, RPO&L/5/6 FCTINL CTRLR2
¢ RJJD.P1N
28-MAR-79 08:52

95
96
397
3

]

3
PAGE 24!

SEQ 0240

;."""'"'"""""""""""""""'.'."""."""'0""""'.

*ERROR AND MESSAGE TABLE CONDIMENTS

(V]

ad ed od’al
W

[V L ol ed el
[ ]

85
86

30A(1052)
25-MAY=79
10:48
POWER DOWN AND UP ROUTINES

[

;""'"""""""""""""""""""l""""!"""""'l""'

043014
043022
043030
043036
043043
043050
043056
043064
043072
043100
043106
063114
0643122
043130
043132
043140
043146
043154
043162
043170
043176
043204
043212
043213
043220
043226
043234
063242
043250
043256
0463264
063272
043300
043306
0643314
043322
043324
043332
043340
043346
043354
043362
043370
043376
0463404
0643412

050122
062111
044440
052522
11

052522
040516
044502
047127
042440
042526
020124
047516
000124
050122
062111
044440
052522
042510
042520
041040
062111
000
105

042524
020124
042523
020124
064440
042440

026440
020105
020060
051517
062504
000114
046122
042517
020124
020122
053117
047111
047440
047514
020107
020061

EMI:

LASCIZ

/RPO4 DID NOT

051105
042440
020105
047504
052125
041505
044502

EM2:

LASCIZ

/INTERRUPT

032060
047040
052116
052120
020116
052103
052111
051440

042040
052117
051105
053440
054105
042105
042040
052105

EM3:

LASCIZ

/RPO4 DID NOT

INTERRUPT WHEN EXPECTED BIT

050130
020104
044504
02012¢
044524
020123
051122
052040
047111
044515
041505
044503

041505

EM&:

+ASC1Z

/EXPECTED BIT

DID SET BUT

051501
020123
046103
054502
047111
040440
042516
042101
044122
047506

062040
047516
040505
046440
020107

EMS:

LASCIZ

/RHAS DOES NOT

CLEAR By MOVING

EM6:

LASCIZ

/LOADING RHER1

FOR ALL UNITS DID NOT

032060
047040
052116
052120
052116
052120
046102
020124
041040
050130
020104
044504
020124

020104
042523

042040
052117
051105
000

INTERRUPT/

ENABLE

BI1T

DOWN BUT

TIME

EXPECTED BIT

DID NOT

DID SET/

IN ERROR - TIME

IN ALL

SET/

IN 10 MICROSEC. DECIMA

ONES/

SET

ANY RMAS B1TS/

043603
043610
043616
043624
043632
043640
043646
043654
043662
043670
043676
043704
043710
043716
043724
043732
043740
043746
043754
043762
043770
043776
044004
044012
044016
044024
044032
044040
044046
044054
044062
044070
044076
064104
046112

043

NON)
= = PINY = ) —
NSO =N
N

X
o

s 2Nt

oM
00—

020

30A(1052)

25-MAY-79

10:48

POWER DOWN AND UP ROUTINES

PAGE 242

SEQ 0241

047125
044504
020124
047101
EM7:

<ASCIZ

/NON EXISTENT

EMIO:

<ASCIZ

/STOPPED DRIVE HAS MOL BIT

EM11:

.ASC1Z

/WITH SPINDLE POWERED DOWN RHCS2 SHOULD ONLY HAVE UNIT NO:

020122
046104
042527
050125
050040
041501
046122

EM12:

<ASCIZ

/AFTER SPINDLE POWERED UP, NO PACK ACKN. RMDS1

051440
0642514
051105
047516
040511
020054
020061
062114
020105
020054
026061

EM13:

LASC1Z

/M1TH SPINDLE POWERED, NO INTIALIZE, RHCST <»7,
D wAVE GO=0, DvA=1, RDY=

0643434
043442
043450
043456
043464
063472
043500
043506
0643514
043522
043530
043534
043542
043550
043556
043564
043572
043600

046101
052111
020104
062523
020131
041040
047516
051511
051040
062524
047522
040440
042105
052123
020104
020105
047515
020124
042110
052105

MACY11

043420
043426

[o]lololels) o
NSNS
NN
NSO ~NO o

CIRJIJIDO, RPO&L/S5/6 FCTNL
CIRJID P
28-MAR-79

062520
053111
020123
044502
051040
051440

PROGRAM ABORTED./

IN RHDS!

SET/

AND IR SET/

020122

SMOULD HAVE MOL-1, vv-0/

0464123
044040
047515
053040

053104

3
PAGE 243

11484
11485
116486
116487
116488
11489
116490
116491
11492
11493
11696
11695
116496
11497
11498
11499
11500
1501
502

054504
062511

030
030

052106
0646520
0500640
042105
044122
047510
042502

05
04
05
052
041
046
030

EMI6:

LASCIZ

/AFTER SPINDLE POWERED UP RHCC SHOULD BE=0/

041501
047113
0435064
046515
040503
040440
047522

0201
0535
0201
067101
051525
020116
006522

EMIS:

CASCI1

/PACK ACKNOWLEDGE COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/G00D DATA S BEFORE COMMAND, REC DATA IS AFTER COMMAND/

.ASCI1

/NO-OP COMMAND CAUSED AN ERROR/<15><12>

.ASCIZ

/GO0D DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND/

LASCI1

/DRIVE CLEAR COMMAND CAUSED AN ERNOR/<15><12>

LASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES AFTER C(OMMAND/

VOGO NE NN —=O OB NO VNS WN=O VBN

[ YV TRV IV YV IV IV IV WAV RV JU LU LU LV SV RV AV SO A
A
AV RS RS AV RS AN AV AV AV AV
(WAAVTIRV IV IV TV T VTV S TS LN S LS LY L VL L
)Y B et
e
sy OO0

NN —0O 00 ~

503
504
505
506

051040
020056
000
101
051440
042514
051105
020120
051440
020104
000
120
041501
042514
047503
020106
042105
051105
012

[ B

MACY11

064120
044126
064134
044135
044162
0644150
044156
044164
064172
044200
044206
044207
044214
044222
044230
044236
044244
044252
044260

044261
064266
044274
044302
044310
044316
044326
044332
044340
044346

107
040504
020123
042522
040515
042522
0405264
043101
047503
000104

047517
040526
042502
041440
042116
020103
044440
042524
046515

020104
044440
047506
046517
020054
040504
020123
020122
047101

044356
044364
044372
044400
044406

047503
020104
042105
051105
012

067455

046515
040503
0406440
047522

020120

044614
044422

060504
020123

107

047517

020104

042522
040515
042522
040524
043101
047503
000104
0511064
046103
047503
0201064
042105
0516?3

040524
042502

041440
042116
020103
044440
042526
046515

046517
020054
040504
020123
020122
0671

053111
040505
046515
040503
040440
047522

0201
0201
0471
0515
020116
006522

107

047517

020104

044350

044407

0444630
044436
044kb4
044452
064460
064466
044474
044476
044504
064512
044520
044526
844233
L4H4

0445643

044550
044556
0446564

0647516

040?9?
053
047 510

040524
051505
066125

30A(1052)
25-MAY-79
10:48
POWER DOWN AND UP ROUTINES

CIRJJIDO, RPO4/5/6 FCTINL CTRLR2
CIRJJD.PY
28-MAR-79 08:52

047101
051525
020116
006522

EM16:

0464440
0475006

043440
051440
020104

EM17:

SEQ 0242

CIRJJIDO, RPO4L/S5/6 FCINL CTRLR2
CIRJJD.ON
28-MAR-79 08:52
042502

020103
043440

020056

0425

0511
0405

040504
053111

064614
046622
044630
044653
044640
044646
044654
044662
044670
044674
044702
0644710
044716
044724
044732
04647640
044746
044754
044762
044770
044776

060440
041440
042116
122
047111
040515
052501
047101
051117
047507
052101
042526
052517
026105
0642040
046507
042522
047117
020123
020122
047101

052106
046517
000
040505
041440
042116
042523
062440
005015
042117
020101
020123
042114
051040
052101
042526
027107
062524
043101
047503
000104

045002
045010
045016
045024
045032
045040
045046

044122
047503
051524
047111
046515
040527
042440

051503
052116
042040
020107
047101
020123
051122

020061
047105
051125
047503
020104
047111
051117

045055
045062
045070
045076
045104
0645112
045120
0645126

122
061440
052116
044522
046517
053440
020116
000122

1
062110
1
047117
0201 3
0435 6
0405 5
051 5 1
0511 5

045136
045144
0645152
045160
0645166
0645170
0645176
045204
0645212
045220
045226
045234

041440
042116
042523
0426440
005015
047507
052101
042526
052517
026105
062040
044507

046517
041440
020104
051122

04252¢
051105

3
PAGE 264

SEQ 0243

/READ-IN COMMAND CAUSED AN ERROR/<15><12>

.ASCIZ

/GOOD DATA GIVES SKOULD BE, REC DATA GIVES REG.

EM21:

.ASCIZ

/RHCS1

CONTENTS DURING COMMAND WAS IN ERROR/

030523
042524
052504
041440
042116
044440
047522

EM22:

.ASCIZ

/RHDS1

CONTENTS DURING COMMAND WAS IN ERROR/

047516

042101

EM23:

ASCII

/UNLOAD COMMAND CAUSED AN ERROR/<15><12>

0421
0201
0201
Q421
0510
0521
042526

0420

.ASCIZ

/600D DATA GIVES SHOULD BE, REC DATA GIVES REGISTER CONT., AFTER COMMAND/

044507
041440

EM20:

—_OO
~N——\n

042040
044507
044123
0461040
041505
020101
020123
041440
052116
042526
066515

05
04

2 \ VOO
et

046051
0525
0471
0511

—LNONNOOSNO
N
WNANN
= \NOWWNNO

065242
045250

047125

ASCI1

065130

000

026504
046517
041440
020104
051122

04505¢4

30A(1052)
25-MAY-79
10:48
POWER DOWN AND UP ROUTINES

04052
0515

—

WEBE W

~NO N
—=O VN WVWE WO 000~ OWVMEAWN—=OV0 NOWNE WIN) — OOV

(W AV SV TV AV IV 1V 1V 3 (VI YV IV IV W RV JV V. LV VU SV LV TV LV LV LV LV LV TV IV W LV AV IV IV W IV IV IV IV IV IV 1V 1
IV, IV ]
00O ~O 0O O O 00 Oo O0 0o 0O OO OO0 NNNNNNYNNNNO o coocoro0OoOo [« R A lValYAlV

563
564
5645
566
567
568
95649
550
551
552
553

044572

0644600
064606

560

S61
95642

MACYI1

CONTENTS AFTER COMMAND/

CIRJJIDO . RPO&/ 5/6 FCTNL CTRLRZ
CIRJJD. P11
28-MAR-79 08:52

045714
045722
045730
045736
045744

027124
051105
060515
117
020124
047101
051525
020116
006522
107
040504
053111
047510
042502
020103
043440
051040
047503
043101
047503
000104
042522
052040
052116
047111
046515
040503
040440

047522

107
040504
053111
047510
042502
020103
043440
051040
047503
043101

=N —

047503
000104
030065

2NN

i e
i D
i o e ) e d i e i
D e e o D e e D i
s
o
S o
el el i
b ed i
o
o el i o
b
b
b h ed e e e
T wrd d e o e
b o
o o
b D e ad e e
d id e d d e
— h b o
b
— o od
e o

045256
045264
045272
045277
045304
045312
045320
045326
045334
045337
045344
045352
045360
045366
045374
045402
045410
045416
045424
045432
0456440
065442
045450
045456
045464
045472
045500
045506
045514
045521
045526
045534
045542
045550
045556
045564
045572
045600
045606
045614
045622
045624
045632
045640
045646
045654
045662
045670
045676
045704
045712

0O 0r O O OO OCOCOCOCCOOFCCOCC OO OO cocoococooco
oo ooococoo>ocooc>oooor0r0rr
v (O W
O0C
AN AN N AN AN NI NN NN NI NI NI PO NI NI N b
b ad ecd o e et b b o QOO0
~
=
W
= OOV NO VNS WNN = OOV
NOWVMS WOV
N WV W
=0 0 OO ~NO NN

600

D e e D oy D i e
D
D it oD i o D D i el ed

11596

040440

MACY11

30AC1052)

25-MAY-79

10:48

POWER DCWN AND UP ROUTINES

PAGE 245

SEQ 0244

052106
046517

000
0642523
066515
060503
0640440
047522

EM24:

.ASCII

/OFFSET COMMAND CAUSED AN ERROR/<15><12>

<ASCIZ

/GOOD DATA GIVES SHOULD BE,

LASCII

/RETURN TO CENTER LINE COMMAND CAUSED AN ERROR/<15><12>

.ASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG.

REC DATA GIVES REG.

CONT.

AFTER COMMAND/

046515

020104
043440
051440
020104
042522
040524
051505
020056
020056
020122
047101

052524
020117
051105
020105
047101
051525
020116
006522
047517
040524
051505
046125
020054
060504
053111
043505
052116
042524
0646515

047122
042503
046040
047503
020104
062105
051105
012
020104
0436440
051440
020104
042522
040524
051505
020056
020056
020122
047101

EM25:

063117
061440
042116
020105
020122
052117
040503
040440
0647522

EM26:

<ASCIZ

/500 OFFSET COMMANDS ONE AFTER THE OTHER CAUSED AN ERROR/

020105
051105
062040
040503
064440

EM27:

LASC11

/WRITE HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12>

CONT. AFTER COMMAND/

JJDO, RPO4/5/6 FCTNL CTRLR 2

MACY1Y

652
653
654
655
656

065752
045760
045766
0457764
046002

050115
020122
052123
040510
012

047522
062522
051105
0463516

042520
044507
041440
006505

658
659
660

046010
046016
046026

0640504
053111
040510

107

047517

020104

046046
046051

052517
020105

006505
122

042114
044126

041040
051105

JJ0.P1N

657

1661
1662

1663
1664

1665
1666
1667
1668
1669
1670
1671
1672

1673
16764

046003

046032
046040

046056
046064
046072
046100
046106
046114
046122
046130

046132
046140

28-MAR-79 08:52

042526
040524
051505
020124
044126
043101
047503
000104

040524
051505
020124
012
041505

020104
043440
053440
0640527
051105
042526
046515

043125

042506

000122

1675
1676
1677
1678
1679

0461646
046154
046162
046170
046176

040440
052101
047101
051127
051106

1682

066212

042522

062101

044040

687

046250
046256
046264
046272

051120
051040
0425264
047101

050117
063505
020122
042507

051105
051511
044103
005015

1680

s e

D e

il e

D e

i el

el el

il e

*c0r0 0000000000 o
V0 OO0 OO0 O O0L0P® [«

ONOWVMEWN—-2O0 oo

1683
1684
1685
1686

699
700
701
702
703
;04
85
7 6
7 07

046204

046220
046226
046234
066242

046300

046306
066314
046322
046330
046336
046344
046346
046354
046362
046370
046376
046404
066412
842&%2
0464

046427

040505
047101
040524
042523

047507

052101
062526
052101
046125
052040
005015
062522
042105
020101
020123
053440
042510
052106
046385

127

042504
020104
041440
020104

042117

.ASCIZ

/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/

EM30:

.ASCIZ

/WRITE HEACER AND DATA CHANGED WRITE FROM BUFFER/

EM31:

_ASCII

/READ HEADER AND DATA CAUSED IMPROPER REGISTER LHANGE/<15><12>

040504
053111
040510
020123
020105
020122
047101

020105
051105

PAGE 246

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

044505

052111
042101

CASCI1

043440
053440
044123

051127
042510

042116
020101
042507
052111
046517

30A(1052)
25-MAY-79
10:48
POWER DOWN AND UP ROUTINES

SEQ 0245

042040
044103
020104
020105
041040

020122
049504
052501
046511

020101
020123
051440
020106
042510

044507
044127
0475
062
04

042040

LASCI1

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042503
062040
044507
044127
051501
042522
051105
040515

05
05
04
05
052
040440
0614640
062116

LASCIZ

/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/

064522

042524

LASC1Z

/WRITE HEADER DATA FOLLOWED BY READ HMEADER AND DATA CAUSED DATA ERROR/

EM32:

—

oo [«
ny
—

046434
046442
046450
046456
046464
046472
046500
046506
046514
046522
046530
046534
046542
046550
046556
046564
046572
046600
046606
046607
046614
046622
046630
046636

044040
020122
043040

047

040505

=S OO = =N —=NONNIOMN
- 5 NN O NN
=2 NI NI = N

T
e b b B e B B
e e i R e i e e i i
e R R R R
D D N N N D P N N ] ~J
S 5 55 55 85 55 55 05 55 5 U U Wi U G AN A A WA NS RS NI PO R NI PIPNI NI ) — — —b b b b b b bt O (=4
OCOB®WNP
NS
NN
=OOVONO
VS
W
=OVONO
WV LI —~20O0 oo
WO NS UWNN=2O0VNO
VSN —
D

V] s VAR VAN U

il b -.—.—.—.-—l_‘—l—l—._.—l-‘—.—‘.—.—l—l-—s_‘-l—‘—‘—.—d—‘_;—.—.—.-J—l—l-fl_.-‘—‘—‘—.—‘—‘—l—l—‘—‘—‘ el i il D il el e
-

CIRJJDO, RPO4/S5/6 FCINL CTRLRZ
CIRJJD.PN
28-MAR-79 08:52

047070
047076
0647104
067112
067114

062522

30AC1052)

25-MAY-79

10:48

POWER DOWN AND UP ROUTINES

3
PAGE 247

SEQ 0246

042504
040524
047514
054502
020104
051105
0642040
040503
062040
051105
CASCII

/READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12>

020104
043440
053440
064123
041040
051105

<ASCI1

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

.ASC1Z

/RECEIVED DATA GIVES WHAT WAS

046515

044505
040504
053111
040510
020123
020105
020122
047101

042101
020101
051122

062040
047111
041505

EM34:

LASCIZ

/READ DATA

020105
041440
042116
062523
051120
051040
042524
047101

EM35:

.ASCI1

/WRITE DATA COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

042040
044507
0464127
047510
062502
062522

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

05311

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

042040
040503
0464440
0642520
044507
041440
006505

046644

046652
046655
046662
046670
046676
046704
046712
046720
046726
046734
046736
046744
046752
046760
046762
046770
046776
047004
047012
047020
047026
047034
047042
047046
047054
0470¢2

MACY11

EM33:

THERE

AFTER COMMAND/

INCORRECT/

CIRJIJDO, RPO&/5/6 FCTINL CTRLR2
CZRJJD.P
28-MAR-79 08:52
766

047122

042105

042040

052101

020123

043101

042526

765
766
767
768

047130
0647136
067146
047152

020101
020123
052123
047117

70
71
72
73
76
75
76

047166
047174
0647200
047206
047214
047222
047230

020122
047101
051127
040504
046517
041440
042105

~Oo w ~ w

~
2SI 0o

0D O OB OP O Oo O G 0 OGO 0o OB OO OO 0000 00 Q0 OO OO~ N~ ~ N N~~~ NN NNNNNN
YN NNNNNNYNNNN
OOV O0OOO
0o 0o
Qo oo 00 0o OO ~
~
l=] OOCOO o OO0
oo

Nole

VYo RV N JV 1 VE_Ja ¥ el

— o VOB ~NO N
LV o NN

—

047160

047236
047244
047252
047255
047262
047270
047276
047304
047312
047320
047326

047333
047340

047346

047354
047362
047370
047376
047401
0476406
047414
047622
047430
047436
047444
0476452
0476460
0476466
047472
047500
047506
047514
047522
047530
047536
047544
047547
047554
047562
047570
047576
047604
047612

MACY11

062524
020115
051105
123
047503
020104
04642105
047522
042522
051105
063516

107
0605064
053111
040510
052517
020105
006505
122
042526
04640526
051505
051511
047503
051524
051105
020113
047101
051127
044103
040503
044440
062520
044507
041440
006505
107
060504
053111
040510
052517
020105
006505

044507
042522
051105
042524

047503
000104
052111
040524
040515
0640510
0536440

30A('052)
25-MAY-79
10:48
POWER DOWN AND UP ROUTINES

&
PAGE

248

062526
044507
041440
052116
066515

EM36:

.ASCIZ

/WRITE DATA COMMAND (HANGED WRITE FROM BUFFER/

043040
052502
000
042505
046515
040503
044440
042520
044507
041440
006505

020105
0461440
042116
043516
044522

0201 13
0471 01
051? 25
050 15
020 1 22
052 1 23
0405 10
012

EmM37:

LASCIT

LASCI1

/GOOD DATA G.VES WHAT SHOULD BE THERE/<15><12>

051505

053440

.ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER SEEK COMMAND/

LASCI1

/WRITE CHECK CAUSED IMPROPER REGISTER C(HANGE/<15><12>

LASCI1

/600D DATA GIVES WHAT SHOULD BE THERE/<15><12>

047517
040524

020124
042114
044124
012
0641505
020104
043440
051040
042524
052116
040440
051440
047503

047522
0463106

020104
0436440
044123
041040
051105
044505
040504
053111
043505
020122
047105
052106
042505
046515

EM4O:

04
05
05
02
05
04
04
040

051
0201
0421
044
0

EX COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

020104

051105

SEQ 0247

Qo 0o OO OOOo G0 00 0 00 OO On 00 P ddd
' dd L+ J Qo
0o Qo ©o 0o 0o On 0o 0o 0o 0o OO 00 00 0D 00 00 00 00 0O 00 0O [0
Jo
-]
o £ N [V LV VLV
[« Yo AV IV N Vv, AV AV RV ) NS ~ Fol
WO
N[p N1 ST V] VT N7 .V}
A 1V ]
— OOV
- O 000 ~ [« XV P WA
~NO WV = NN
— OO0 ~Oo [V P WXV 1,V
OV
~Oo NN
= O

862

863
864
865
866
867
868
869
870
871
872
873
874

—

i el il
b d e e e

el e

il e

e
i e

b o

il o

h el el

il el d id ol D
d i e e o i e el

d e

D i o

D it
oy e i

) sl o )
D e
D il

)

D e D
s i el e

D i
) il B il oD el o D el il
il e o
D e e il e s oy el e i

el i il it el o
S e
D i o
D s

CIRJJIDO, RPOL/S/6TMFCTNL CTRLR2
CZRJJD.PI
28-MAR-79 08:52

875

047615
0647622
047630
047636

122
042526
040526
051505

047644
047652
0647660
047666
047674

051511
047503
051524
051105
0640515

047701
047706
047714
047722
047730
047736
047744
047752
047760
047766

116
043516
053440
0641040
052111
045503
0467524
051525
050115
020122
052123
040510
012

047774
050002
050010
050011
050016
050024
050032
050040
050046
050054
050057
050064
050072
050100
050106
050114
050122
050130
050136
050144
050152
050160

050162

050170
050176
050204
050212
050220
050226
050234
050242
050250
050256
050264
050272

050276

0641505
020104
043440
051040

MACY11
064505
040504
0531
043505

052116
040440
061440
042116

042524

020122
047105
052106
046517
000

0641517
047440
044522
020131
020105
041040
020116
042105
047522
042522

044513
052125
042524
051127
047514
052125
040503
044440
042520
044507

051105
043516

061440
006505

047517
040524
051505

020104
063440
053440

064126
012
041505
020104
043440
051040
042526
052116
0406440
053440
020123
046040
020104

051105

060504
053111
043505
020122
047105
052106
044522
042527
061517
052517

052101

042526

050115

047507

062117

062040

107

040504
053111
0460510
052517
020105
006505

122

0642526
040524
051505
051511
047503
051524
051105
042524
042522
042513
00012¢

044524
020117
020105
053440
020123
042105
041440
020704
050117
043505
020122
042507

020126
042114

043516
051127
044527
044522
047514
047440
052501
046511
051105
051511
044103
005015

30A(C1052)
25-MAY-79
10:48
POWER DOWN AND UP ROUTINES

EM&1:

&
PAGE 249

SEQ 0248

.ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

ASCI1

/LOCKING OUT WRITE BY WRITE LCCK BUTTON CAUSED

LASCI1

/600D DATA GIVES WHAT SHOULD BE THERE/<15><12>

LASCI1Z

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITES WERE LOCKED OUT/

_ASCII

/ATTEMPTING TO WRITE WITH WRITES LOCKED OUT CAUSED IMPROPER REGISTER (MA

LASCI1

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

IMPROPER REGISTER (MANGE/

064123
061040

0644505

052040
052111
064124
042524
045503
052125
042523
051120
051040
042524
047101

EMa2:

MACY11

042503

053111

RJJDO, RPO4/S/6 FCTINL (9]
RJJD.P1I
28-MAR-79 08

1876
1877

050304
050312

052101
042526

02
02

1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891

050326
050334
050342
050344
050352
050360
050366
050374
050402
050410
050416
050424
050432

046125
052040
005015
062522
0421
0201
0201
0521
04N
0201
0201
0501
0511

020
0425

1893
1894
1895
1896
1897
1898
1899
1900

050446
050454
050462
050470
050476
050504
050512
050520

020107
053440
020123
062105
041440
042105
020113
005015

044527
044522
047514
047440
040510
042040
060504

050530
050536
050544
050552
050560
050566
050574
050602
050610
050616
050624

052101
042526
052101
047440
045523
051117
052111
044124
042524
042513
006524

020101
020123
053440
020116
041040
020105
020105
053440
046040
020104
012

1892

‘901

|
!
1
1

/O OVOVOOVOOPOOOOVOO0O0O

= OOVWNF NS WNN—=O VYO VNS WO 0

)

VOOV OVO

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

WP NO PN INVRNIPTOPNININ)
=t b
b b st b b b b (=

902
1 903
1 904
1 905
1 906
1 907
1 908

050440

050522

050627
050636
050642

052101

0511

047507

127
052126
042105

050646

042522

050732

044527

050654
050662
050670
050676
050704
050712
050720
050726
050740
050746
050754
050762
050770
050776

042105
020101
020123
053440
040505
045503
051105
042524
0445
0415
052?
020
050 1
047 1

2
7
7

3
5

25-MAY-79

10:48

POWER DOWN AND UP ROUTINES

PAGE 250

SEQ 0249

JASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE/

LASCI]

/WRITING WITH WRITES LOCKED OUT CHANGED DISK DATA/<15><12>

042040

LASCI]

/GOOD DATA GIVES WHAT WAS ON DISK BEFORE WRITE WITH WRITE LOCKED OUT/<15

051501
046505

040440
052120

CLASCIL

/WAS ATTEMPTED/<15><12>

02503

053111

LASCI1

/RECEIVED DATA GIVES WHAT WAS READ BACK AFTER WRITE/<15><12>

044126

053440

LASCIZ

/WlTH WRITE LOCKED OUT WAS ATTEMPTED/

042513
020124
052101
042524

0425264
000104

LASCI]

/ENABLING WRITES BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER (HANGE /<!

[=]
H
W

050320

NN =NIN—=NONNO
O
N NAARIAN
N NN = DN

1878

30A(1052)

042117

005015

04 040
044507
044127
051501
020104
040440
053440
005015
062526

041101

047111

064124
042526
045503
052125
043516
051511
040524

EM43:

044507
064127
051501
044504
043105
051127
044527
044522
041517
052517

052101
042526
052101
051040
040502
052106
044522
046040
020104
040527

064514

EMGG:

JJDO, RPO4/S5/6 FCINL CTRLR2
JJD.PIN
28-m’
79 08:52
&

2
0
6

943

946

062524
053440

053440

020123
044522

2
50
051056
051066
051072
051100

046060
052502
041440
020104
050117
043505
020122
042507

0415
051

051112
20
26
34

052101
042526
052101
046125

020101
020123
051440
020104

939
940
941
942

043516

051106

42
50

047507

0520640
005015

042522

0525
0465
0511
0515
0441
0050

062510

042522

042503

952
953
956
955
956
957
958
959
960
961
962
963

042040
044507
042522
051105
042524
043101
051127
047514
052125
012
040516
053440
000123

965

051276

051105

044522

051270

051124

966
967
968
969

051304
051312
051320
051326

047440
052123
045503
046131

975

051370

051124

970
971
972
973
974

976
977
978
979
980
981
11982

11983

11984
11985
11986
11987

051334
051342
051350
051356
051364
051376
05164064
051612
051420
051426
0516434
051442

051443

051450
051456
051464
051472

020122
026440
026056
047524
020054
034061
051525
050115
020122
052123
040510
012

107

040504
053111
040510
052517

PAGE 251

LASCIT

/G00D DATA GIVES WHAT SHOULD BE THERE/<15><12>

053111

LASCI1

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITE LOCK BUTTON/<15><12>

046102
044522

LASCIZ

/ENABLED WRITES/

.ASCI1

/TRANSFERRING ON LAST BLOCK = CYLINDER 410. - 814., SECTOR 21, /<15><12>

044507
044127
047510
042502

052101
042526
046507
041440
052116
042524
052111
065503
047524

067101

043123

020116
041040
026440
047111

040514
047514
061440
042504

041501

020113

LASCI1

/TRACK 18, CAUSED IMPROPER REGISTER CHANGE/<15><12>

047517

020104

LASCIT

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

030464
034040
051440
020122
005015

020054
042105
047522
042522
051105
043516

040524
051505
020124
042114

SEQ 0250

0445

042040

042105
020101
020123
052123
047117
020123
020122
020105
0410640
006516
105
042105
042524

30A(1052)
25-MAY-79
10:48
POWER DOWN AND UP ROUTINES

0545
0425

0421

60
051166
051174
051202
051210
051216
051226
051232
051240
051246
051251
051256
051264

96&

MACY1T

043516

EM4S:

027060
032061
041505
030462
040503
044440
042520
044507
061440
006505

043440
053440
044123
061040

CIRJJDO, RPO&L/S5/6 FLTNL CTRLR?
CIRJJD.PN
28-MAR-79 08:52

996
997
998
999
000

051500
051506
051511
051516
051524
051532
051540
051546
051554
051562
051570
051576
051604
051612
051620

ol ed e

o o

b o

P NV ],¥] -— OOVWNO
NS NN -

OO0 OCOO0OO0OODOOOO0O

o [aV] N

b
s
b e
b
o
ol
i e
b mad
h o
e
g e
e
e
—

NN
N NP NN NI PO N

051626

051634
051642
051650
051656
051664
051672
051674
051702
051710
051716
051722
051730

051736
051744
051752
051760
051766
051774
052002
052010
052016
052024
052032
052040
052046
052054

052062
052070

052076
052104
052105
052112
052120
052126
052134
052142
052150
052156
062164
052172

020105

040505
046517
020124
020113
0464514
032040
020055
020054
051117
005015
051124
034061
044440
047522
051126
051105
042040
051106
047117
040524
041505
040503
044440
042520
062522
051105
043516
047517
040524
051505
020124
042114
066124
012
122

062526
040524
051505

051511
047503
051524
051105
046505
052040

0446126
012
041505
020104
043440
051040
062524
052116
0460440
052040
062506
040524
020104
046040
066102
020055
062116
030061
030470
062523
031040

041501
02005¢
020116
000122
047101
046522

052101
046517
056105
052116
047524
051525
050115
020122
044507
041440
026105
020104
043440
053440
044123
041040
051105
0641505
020104
043440
051040
042524
052116
040440
040440
052120
040522

MACY11

30A(1052)
25-MAY=79
10:48
POWER DOWN AND UP ROUTINES

PAGE 232

SEQ 025!

051105

044505
040504
053111
043505
020122
047105
052106
060522
000122
051040
051106
051501
041517
054503
051105
020056
027064

EML6:

LASCIZ

/RECEIVED DATA GIVES REGISTEP CONTENTS AFTER

TRANSFER/

ASCLI

/DATA READ FROM LASY BLOCK - (VI 'NDER 410,

LASCIZ

/TRACK

ASCII

/TRANSFERRING DATA FROM NONEX]ISTANT

LASCL]

/REGISTER CHANGE, GOOD DATA GIVES WHAT SHOULD BE

LASCI

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED TRANSFER/

- B14.,

SECTOR 21,/<15><12>

052103
026061

020113
051511
051105

043123
043516
020101
047040
051511
051440
020122
042105
047522
005015
052123
040510
043440

EM47:

18,

IN ERROR/

SECTOR CAUSED

IMPROPER /<15><12>

THERE/<15><12>

040504
053111

040510
052517
020105
006505

044505
040504
053111
043505
020122
047105
052106
052124
042105
051516

12073

12074
12075
12076
12077
12078
12079
12080
12081
12082
12083
12084
12085
12086
12087
12088
12089
12090
12091
12092
12093
12094
12095
12096
12097
12098
12099

052423
052430
052436
052444
052452
052460
052466
052474
052502
052510
052514
052522
052530
052536
052544
052552
052560
052562
052570
052576
052604
052612
052620
052626
052634
052642
052650
052656

042506
051124
051105
043040
047516
052123
042523
041440
020104
0462440
005015
047507
052101
042526
052101
046125
052040
005015
040502
0640524
051505
020124
047111
042506
042524
047101

020104
042510

042522

020104
043440
053440
040527
041040
020122
020122
043123

040504
053111
040510
020123
043125
043101
051124
051105

107

053111

047111
062514
052506
047117
042523
051120
051040
042524
047101

000

020107
040507
041516
061440
020104
050117
043505
020122
042507
047507
052101
0642526
052101
066125
052040
005015

000
047
044
047
042
047

30AC1052)

25-MAY=79

10:48

POWER DOWN AND UP ROUTINES

EMSO0:

&
PAGE

253

SEQ 0252

/TRANSFERRING FROM NONEXISTANT

SECTOR CAUSED DATA ERROR/<15><12>

LASCI]

/GOOD DATA GIVES WMAT

LASCIZ

/BAD

LASCII

/GIVING JLLEGAL FUNCTION CAUSED IMPROPER REGISTER (HANGE/<15><12>

LASCI]

/GOOD DATA GIVES WHAT SHOULD BE

051440
020104
042510

0642040
044507
046127
047510
042502
042522

042503
042040
044507
042522
05105
042524
04643101
046111
020114
064524
020123

053111
052101
042526
044507
041440
052116
062524
062516
052506
047117
044507

LASCLZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER

LASCH]

— AN

052200
052204
052212
052220
052226
052234
052242
052250
052256
052264
052272
052274
052302
052310
052316
052324
052332
052340
052342
052350
052356
052364
052372
052400
052406
052414
052422

NOOOO—rNON

12044
12045
12046
12047
12048
12049
12050
12051
12052
12053
12054
12055
12056
12057
12058
12059
12060
12061
12062
12063
12064
12065
12066
12067
12068
12069
12070
12071
12072

MACYT1

b SNV
b s

POD

CZRJJIDO, RPO&L/S/6 FCINL CTRL 2
CZRJJID P
28-MAR-79 08:5

046111
020114
044524
052501
046511

EMST:

DATA

GI“ES WHAT

SHOULD BE

WAS

THERE/<15><1?2>

[N BUFFER

AFTER

TRANSFER/

THERE/<15><12>

ILLEGAL FUNCTION IS GIVEN/

D oy
D s

JJDO, RPO4/S5/6 FCINL C 1
JJ0.P
28-MAR-79 0 8
00
01

i oy

(S
AR] VAV IV

d e

)

D il i

i e

)

D el el el il e

il o

il el il il el i el il o

)

il e

D o

B el rd il e il

b b b bt s = s 2 OO OO OO
TV W o
W o
ok 2l P 2
Y 1V, 1V ] N A N N N N N NI PO NI NI PININI NI
NOWNE NN OOV
NOVNEWN—=OOVENOWVES
AN OV ~NO NS
NN
= O 000NN
W) — OOV

02
03

052664
052670

052676
052704
052712
052720
052726
052734
052742
052750
052756
052764
052772
053000
053006
053014
053022
053030
053036
053040
053046
053054
053062
053070
053076
0531064
053112
053120
053126
053134
053141
053146
053154
053162
053170
053176
053204
053212
053220
053226
053227
053234
0532642
053250
053256
053264

053272
053300
053306

053314
053322
053330
053336

053340
053346
053554

042526
051127

040504
020116
044530
020124
051117
042523
051120
051040
042524
047101
047507
©5210%1
042526
052101
046125
052040
005015
042522
042105
020101
020123
052123
J47117
020123
020122
050115
051127
040504
122
042510
040440
052101
042524
042523
041440
020104
042440
000
101
052120
047503
020104
044440
042111

042522
052501
0465
05N
0515
0441
OOSg
047
052 1
042 5

00
05

04
04
05
04
04
020104
050117
043505
020122
042507
042117
020101
020123
051440
020104
042510
042503
042040
044507
042522
051105
042524
043101
052101
042526
052111
060526
040505
042101
042116
020171
020122
051101
052501
040504
051122

052124
0471'1Y°
046515
044527
053116
040440

051523
042523

MACYTT1

30A(C1052)

020105

EMmMS2:

047440
0642516

10:48

POWER DOWN AND UP ROUTINES

PAGE 254

SEQ 0253

LASCI1T

/WRITE DATA ON NONEXISTANT SECTOR CAUSED IMPROPER REGISTER C(HANGE/<15><1

LASCI1

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE DATA/

EMS3:

LASCIZ

/READ HEADER AND DATA AFTER A SEAR(CH CAUSED DATa ERROR/

EMSS:

LASCIT

/ATTEMPTING COMMAND WITH INVALID ADDRESS CAUSED IMPROPER REGISTER CHANGE

LASCID

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

053111

020104

25-MAY-79

040524

051117

046505

020107
047101
064124
046101
042104
061440
020104
050117
043505
020122
042507

062040

044507
046127

—

)

) i

S
o
D el
D

) i el

i mnd

b i

)

NP
—
el e ol el il o) el
)

) e

)

D i

i oy

2205
2206

2207
2208
209
210
211

053770
053776
054004
054012
054020
054026
054034
054062
054050
054056

052101
046125

N
N = PN N NN -

053362
053370
053376
053404
053406
053414
053422
053430
053436
053444
053452
053460
053466
053474
053502
053510
053516
053524
053532
053540
053546
05355¢4
053562
053565
053572
053600
053606
053614
053622
053626
053634
053642
053650
053656
053664
053672
053674
053702
053710
053716
053724
053732
053740
053746
053754
053762

NONN—=NINO
O

d el il

) e

D il e

NN
NN
NN
PO NN
NI NN RO PO NI NI N NI
A
o
il el e
o e
il el oy e
D il i i i i i ol e et i
e

NN NNNNNNNYO OO
NNV
OOO000 O VO OVOVO OO OVOVVOEOOOMOBOMA
— OOV
NOWVEWN 2OV
NO VS WA ~OVONO VNS WA
OO0~
SN0 —O 0 OO ~NO Ny

G
©

—

(aa
X ]
o~

DO, RPO4/5/6 FCINL CTRLR?
28-MAR-79 08:52
JF1

MACY1?Y

30A(1052)

25-MAY-79

10:48

POWER DOWN AND UP ROUTINES

&
PAGE

255

SEQ 0254

051440
020104
062510
ASCIZ

/RECEIVED DATA GIVES REGISTER

<ASCI]

/WRITING OR READING WITH EXPECTED ADD'tSS OVERFLOW ERROR/<15><12>

042523
051120
051040
042524
047101

-ASCl1

/CAUSED IMPROPER REGISTER CHANGE/<15><12>

0642040
044507

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

053111
052101
062526
044507
0414640
052116
042524
051105
000116
051040
064527
020116
052103
042104
047440
047514
047522
064440
062522

+ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/

.ASC11

/DATA READ WITH AN EXPECTED ADDRESS OVERFLOW ERROR 1S INCORRECT/<15><12>

062503

042040
044507
042522

EM55:

CONTENTS AFTER OPERATION/

047514
047522

042510

042503
0642040
044507
042522
051105
042524
043101
050117
047511

064127
047510
06250¢
042522

EMS56:

V] AP LM MR NN NI NI NI PO NI PO NI NINI ) e
b e b il o s
oo ~ COUNE W= OO0V
NO VS WN—~OVO~NO
NS N

—

il el

D o

D e

il o

oD i

iod

NONIRIRINIARIRONI
NN NI PP NI AN NI NI NI NI N PO PPN N PO N
~no PORIAURNIR RN NI NI NI AN NI RN NI PRI NI N NN NI NI N PO N

CIRJJDO, RPOL/S/6 FCTINL CTRLR2
P11
CZRJJD.P
28-MAR-79 08:52

12239

054062
054070
054076
054104
054112
054120
054126
054134
054142
054150
054156
054157
054164
054172
054200
054206
054214
054222
054230
054236
054244
054252
054260
054266
056274
054302
05¢ 310
094312
054320
054326
05433¢
054342
056350
054356
054360
054366
054374
054402
054410
054416
054424
054432
054440
054446
054454
054462
0544664
054472
054500
054506
054514
054522
054530
054536
0546544
054552

005015
062522
042105
020101
020123
052123
047117
020123
020122
050115
040504
040522
000122
052101
066524

020117
054506
051511
052504
0460440
051105
020116
062105

MACY1T

30A(1052)
25-MAY-79
10:48
POWER NDOWN AND UP ROUTINES

PAGE 256

SEQ 0255

042122
030440
033062
052517
020105
020054
047040
020061
033066
046125

047040
052040
020060
042114
042522
047527
020117
047524
051640
006504

<ASCL]

/WORD NO.

020105
042507
062526
043516
020101
047101
044124
043516
040515
020124
062105
051120

CASCIZ

/Bt

LASCI]

/ATTEMPTING DATA (OMMAND WITH WRONG FORMAT BIT

051040
042524
067101

044103
000104
050115
062040
047503
020104
053440
043040
020124
040503
005015
050117
043505
020122
042507

LASCL]

/1MPROPER REGISTER CHANGE/<15><12>

062117
020101
020123
051440
020104
062510

0642040
044507
046127
047510
062502
042522

LASCII

/GOOD DATA GIVES WHAT

042503
062040
044507
062522
051105
042526
043101
052101
042524
040524
051516

0s3111
052101
062526
0644507
061440
052116
0425264
042524
020104
052040
042506

<ASCIZ

/RECEIVED DATA GIVES REGISTER

042526
0643516
047515
051040
062524
044522
020116
052101
040503
064440

050115

LASCII

/ATTEMPTING 10O MODIFY REGISTER DURING AN OPERATION CAUSED IMPROPER/<15,¢

EMS7:

TO 260 SHOULD BE READ,

WORD NO 261

TO 266 SHOULD/<15><12>

CHANGED/

SHOULD BE

CAUSED/<15><12>

THERE/<15><12>

CONTENTS AFTER ATTEMPTED DATA TRANSFER/

CIRJJIDO, RPOL/S5/6 FCINL CTRLRZ
CIRJJD.P
28-MAR-79 08:5¢2

Y MR

= OOV® NN W00

A Ut Lt L L L W Lt W AR W L U e N
PORONUNA)
el ed o =d el ed eed ot =t O

e o

b e

MORLMNLNININRI RN

i e

e e

)

D e

NIRRTV

) e

D e

062520

o
—
NONNOOONIN)
—
NPV
O W s O =0 == I~ NI

047522

o
o

06210

OO
= PN N NN =2

054560
054566
0545¢7
054574
024602
054610
054616
056624
054632
054640
054646
054654
054656
054664
056672
054700
054706
054714
054722
054730
054736
054744
054752
054760
054763
054770
054776
055004

P
R
e A e
= 1,V )
QO NN NN =t~ ==

e o

D e

i ol i

D e

el i

D o

NN NN N PO NN NN NN N PP RPN AU N PRI R N PN NI NI PO NI A NN

N AN N NN N N NN PN NN NI NN N NN NN PO N NN
YNNI
o COO0OO0OO0OO0O0VO ~0 0 0 0 O O OO 0o 0o o Qo 00 OB 0O 0O Oo OB SNNNNNNNNYNO
[«
JP
YV
N
tal
el
]
~
NOWVNES NN =O VRN NS NN -0 VOO ~NO NS N 2O

12268

042
0510
053111
042104

047440
044507

055012
055020
055026

MACY1T

30A(1052)
25-MAY=79
10:48
POWER DOWN AND UP ROUTINES

PAGE 257

SEQ 0256

006522

051511
044103
020056
062040
044507
0446127
047510
042502
062522

LASCI1

/REGISTER C(MANGE. GOOD DATA GIVES WHAT

053111
052101
042526
044507
041440
052116
042526
051105
020116
052101
0642524

LASCI1

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION WAS ATTEMPTED/<15

044506
043505
051505

.ASCIZ

/MODFING REG GIVES ADDRESS OF

SHOULD BE

THERE/<15><12>

042522

041040

046440
042511
041511
051525
051122

055034
055042

055050
055056
055064
055072

053105
047516

055073
055100
055106
055114
055122
055130
055136
055144
055152

042522

041511
020124
040514
042502
041440
042116
052040
043440
000

EM6T:

LASCIZ

/DEVICE NOT

030523
062524
052504
061440
062116
044440
047522

EM63:

LASCIZ

/RHDS1

044514

EM6S:

JASCI1

/RECALIBRATE COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

AVAILABLE BEFORE

COMMAND WAS TO BE GiVEN/

CONTENTS DURING COMMAND WAS IN ERROR/

PAGE 258

SEQ 0257

LASCI1

/GOOD DATA GIVES WHAT

044505
040504
053111
043505
020122
047105
052106
066517
000
051105
043040
043516

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

EM65:

.ASCIZ

/INTERRUPT

060505

042504

EM66:

.ASCI1

/HEADER AND DATA (OMMAND FOR HEAD SELECTION TEST/<15><12>

—

—t

—_ et PN = OO
N O HINPNI NN = N

020104
043440
053440
044123
041040
051105

-t QO ONINY

052101
046515
040503
044440
042520
0644507
061440
006505
047517
040526
051505
020124
042114
044126
012
041505
020104
043440
051040
042524
052116
060440
0416440
042116
052116
052120
044514

&»
~4
(V]

02
04
Og
0
02
05
04

30A(1052)
25-MAY-79
10:48
POWER DOWN AND UP ROUTINES

MACY11

051102
047503
020104
042105
0475 2
042 ? 2
051
5
043? 6
7
040 5 4
053 1 1
0405 0
052517
020105
006505
122
042526
060526
051505
051511
047503
0515264
051105
040515
111
052522
064501

[V ]

(¥

0552640
055246
055254
055262
055270
055276
055304
055312
055317
055324
055332
055340
0553646
055354
055362
055365
055372
055400
055406
055414
055422
055430
0556436
055444
055451
055456
055464

SHOULD BE THERE/<15><12>

FAILING/

020122
040504
046517
043040
040505
042514
020116

047101
040526
040515
051117
020104
052103
042524

020104
041440
042116
044040
042523
047511
0521 2

5 54
5 62

040503
0626440

051525
051122

0621 ?;
0511

LASCI1

/CAUSED ERROR/<15><12>

055572

044122

051506

020124

LASCII

/RHDST GIVES WHAT TRACK WAS BEING WRITTEN OR READ/<15><12>

LASCIZ

/ON CYLINDER O, SECTOR 0/

JASCI1

/READ HEADER AND DATA ERROR [N HEAD SELECTION TEST/<12><15

[V ]

055622

~n
~

044507
044127
AL

—

00O

VAN
N
NN

055600
055606

00O
S
WO

AV
I IV IV

055500
055506
055514
522
530
536
246

051501
16
26
%g

042526
052101
045503
041040

020123
052040
053440
044505

047105
062522

047440
062101

053440

044522

047524

020122

000060

055712
055720

040505
047101

055704

o
o
o
o

055676

|=)

046131

0641440

N
N

17
11

YV ], V] - VOO ~NO N )
NN —OVE~NO (VP
— O 000 ~NO WV~
Ll
Y LS B o VNS

WM
AN N

365

(Y JONIV IV YV [V LV AV IV AV ] N AN AN AN
NSNNNNNNNNYN cooo
OO0 NO NN
—=O V0B~

—

)

i wnd wd e

el el

D mnd i el

D - ——h

) ey

D el nd

) i

)

il ol wl e

il el

LY Y, V], VY Y N1, VT, VY N1 N1 VT ST, N1, OY NI VT T N1 ST ST NI NI SIAS TSI ST SN ST V1, S 7 N7 N1, N1 V1, ST, V] ,V] 87,87 Y, N1,V7, V1 V1,V VY ¥, VT, V1 . V7.1, VY N1, N1 V) no

L LA L LN U AN N AN N N NN N VAV IV IV AV IV LV TV v LV [V TV [V v IV ) W
uguwwuwu
NN NVWAWNAWNAV
S
D srerr &» e (W IV IV IV IV 1V IV IV IV ] WA IO

CIRJJDO, RPO4/5/6 FCTNL CTRLR2
CZRJJD.PYY
28-MAR-79 08:52

042522

0642506
051440

042101

042504
020104

020122
041505

044040
020122
040504

EM67:

395

399
—

&S
o

400

0557 2
0557 3
055742
0557 50
0557 56
0557 64
055767
055774
056002
056010
056016
056024
056032
056033
056040
056046
056054
056062
056070
056076
056101
056106
056114
056122
056130
056136
056144
056152
056160
056166

Ol
o oW S

) oo
D e
)
D
D
il
i
el
oy i
i e
ol
i
d

391
392
393

oo
NN

~nN NN
NP NN NN N PO NN

CIRJJDO, RPOL/S/6 FCINL CTRLR2
CIRJJID.PWY
28-MAR-79 08:52

621

2423

056174
056202
056210
056216
056217
056224
056232
056240
056245
056252
056260
056266
056274
056277
056304
056312
056320
056326
056334
056342
056350
056356
056364
056366
056374

040524
051117
042510
046105
047117
005124

MACY11

30A(1052)
POWER

DOWN AND UP ROUTINES

PAGE 259

<ASCII

/FIRST FOUR WORD NUMBERS ARE HEADER/<12><15>

020104
051105
047524
040440
052101
042122

+ASCI1

/WORD NUMBERS 5 TO 260 ARE DATA WORDS/<12><15>

<ASCIZ

/IN DATA WORDS BITS 4,5,6,7,8 GIVE TRACK NUMBER/

062502

040504
051117
052111
026065
020070
052040
047040
000122

042101
042504
020104
042440
044440

044040
020122
040504
051122
006516

LASCII

/READ HEADER AND DATA ERROR IN/<15><12>

0642506
020105
052040
012
020104
026461
062526
062504

<ASClI

/DIFFERENCE LINE TEST/<15><12>

.ASCI11

/WORD NOS 1-4 GIVE HEADER/<15><12>

.ASC1Z

/WORD NOS 5-260 GIVE DATA WHICH IS THE CYLINDER ADDRESS/

042504
051104

020104
026465
044507
052101
041511
05.740
04¢€131
020122
051505

061522
050117

047111
020111

LASCL]

/FORCING OP1 BY 3 INDEX PULSES/<15><12>

106

005122

111

042522
040505
047101
040524
051117
012
104
042522
044514
051505
127
047516
020064
044040
006522
127
047516
033062
042526
020101
020110
042510
047111
062101
000123
047506
020107

10:48

042440

043040
047527
046525
040440
040505
015
127
052516
020123
031040
042522
020101
005123

060524
(51504
020123
026066
044507
040522
046525

25-MAY=79

EM70:

EM71:

SEQ 0258

12488
12489
12490
12491

056550

056556
056564
056572
056600
056606
056614
056622

056627
056634
056642
056650
056656
056664
056672

056700
056706
056714
056722
056730
056736
056744
056752
056760
056766
056774
057002
057010
057015
057022
057030
057036
057044
057052
057060
057066
057074

N
[V IV T il

NOS

b
N AN =\

( "=
(Ye4d2
056466
056474
056502
056510
056516
056524
056532
056534
056542

020104
042510
042503
042040
044507
042522
051105

30AC1052)

25-MAY-79

10-48

POWER DOWN AND UP ROUTINES

PAGE 260

SEQ 0259

044440
050040
006523
0642523
051120
051040
042524
047101

<ASCI1

/CAUSED IMPROPER REGISTER CHANGE/<15><12>

042040
044507
046127
047510
042502
042522

<ASCILI

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><1¢2>

053111
05210
042526
044507
041440
052116
042524
047111
052520
000
042522
040440
050125
051117
0471
052114
053440
005015
051105
062040
047503
051504
046125
044440
040440
005015
044510
044520
052123

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER 3 INDEX PULSES/

LASCII

/THERE WAS A SETUP ERROR DURING MULTIPLE WRITE/<15><12>

<ASCII

/HEADER AND DATA COHHANDSERESULTING IN AN ABORT/<15><12>

012

051124
020105
020124
020120
026122
020120
044510
052123

EM72:

LASCII

/OF THIS "OP1* TEST./<15><12><15><12>

LASCIZ

/70 TROUBLE. SHOOT SETUP ERROR, LOOF ON THIS TEST/

/A
4

‘u'u

12473
12474
12475
12476
12477
12478
12479
12480
12481
12482
12483
12484
12485
12486
12487

386646

MACY11

12466
12467
12468
12469
12470
12471
12472

056402
056410
056416
056424
056425
056432
056440

O\
Nt \N\UN

12636
12437
12638
126439
12440
12441
12442
12643
12444
12645
12446
12447
12448
12449
12450
126451
12452
12453
12454
12455
12456
12457
12458
12459
12460
12461
12462
12463
12464
12465

-t QY- O

CIRJJIDO, RPO&L/S5/6 FCTINL
CIRJJID. P11
28-MAR-79

‘0

122

062510
040440
052101
020122
020060
020123
0441¢4
02012~
04150%
006440
1264

051511

040505
042101
042116
020101
030461
047527
005015
052101
033064
047524
012
040510
047440
020063

020130
051505
042523
042440
000
040505
042101
042116

020101

020104
0511095
042040
047506
03307
042122

EM73:

25-MAY-79

10:48

POWER DOWN AND UP ROUTINES

5
PAGE 26!

SEQ 0260

CASCIHI

/READ HLADER AND DATA FOR

064440
051440
051522

LASCH]

/THAT

IS 46 SECTORS /<15><12>

020124
042526
047111
052520
041440
020104
051122

LASC1Z

/THAT

1S OVER

LASCII

/READ HEADER AND DATA FOR

11960 WORDS /<15><12>

IS OVER 3 INDEX /<15><12>

020104
051105
042040
047506
033071
042122

INDEX PULSES CAUSED AN ERROR/

EM74:

030461
047527
005015
052101
033064
047524
064124
020123
031440
054105

044440
051440
051522
052101
053117
044440
006440

LASCII

/THAT

046125
040503
047440
020117

042523
051525
044520
042523

.ASCI1Z

/PULSES CAUSED OP!

047522
040515
051104
0445

051107

.ASC1Z

046102

053111
046114
041040
042105

11960 WORDS /<15><12>

WP
NN

057075
07102
057110
057116
057124
057132
057140
057144
057152
057160
057166
0s7171
057176
057204
057212
057220
057226
057234
057242
057245
057252
057260
057266
057274
057302
057310
057314
057322
057330
057336
057344
057352
057360
057366
057367
057374
057402
057410
057416
057420
057426
057434
057442
057450
057456
057464

30A(1052)

NOUSE:

1S 46 SECTORS, THAT

TO SET/
-—ahna
. aa

— O 000 NO VS W o
NS W
~NO VNS NN —=O OO~
NO VA W= OV

b md e

b e

e e

el e

el o

D o

D s

ORIV
MNANLNN NN AR AN NI NI AN NN O N no
(VIRV TV LV W AV VW RV AV RV RV QW AV AV IV AV LV TV SV V. LV JV IV V. IV V. IV V. IV, } A ALY N
NN AN
NN N AN NN
NINITUN b =
b b et et 2 d et OO OO00O00O o

12492
12493
12494
12495
12496
12497
12498
12499
12500
12501

MACY1T

CIRJJDO . RPO&/ 5/6 FCINL CTRLR2
p
CIRJID.PIY
28-MAR-79 08:52

PROGRAMMABLE-DRIVE

WILL NOT

USED/

MACY11

30A(1052)
25-MAY-79
10:48
POWER DOWN AND UP ROUTINES

052101
051122
051440
061517
020124
047111

046101
051117
042505
046525
064514
006507

CPHALT:

005015
77777

JJDO, RPO4/S5/6 FCTINL CTRLRZ
JJD.PI
28-MAR-79 08:52

LW YV LV JV |

N
~

Al Al Al VA RV AR VLAV IV

A
o

U S RV LV LV AV LV LV ]

70
71

057465
057472
057500
057506
057514
057522
057530
057531
057536
057544
057545
057552
057560
057566
057574
057602
057610
057616
057624

057626
057634
057642
057650
057656
057664
057672
057700
057706
057707
057714
057722
057730
057736

106
042640
026440
042040
047105
052123
012
0640
103777
377
126
047117
042514
042040
020105
047507
043106
020054
005015
051047
026047
066517
053101
046102
020122
052123
0641040
012
127
041440
020124

042514
000

PAGE 262

SEQ 0261

.ASCI!

/FATAL ERROR - SFE DOCUMENT LISTING/<15><12>

177607
177607

ASCIL

/7 7€15><12><207><377><377><207><377><377><207><377><377>

042510
051124
020122
053105
040510
042516
044516
047514

041440
046117
051117
061511
020123
047440
042516
052123

JASCIYT

/THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<15><12>

040505
041040
020105
044501
026105
040510
052101
052111

054504
061505
047125
040514
047440
020123
051525
006523

LASCI1

/'READY', BECOME UNAVAILABLE, OR HAS STATUS BITS/<15><12>

044103

LASCIZ

/WHICH CANNOT BE CLEARED/

LASCIT

/PC

TEST

WALT

BIT

REG

LASCIZ

EXPCTD

ADDRESS CONTENT CONTENT

0464510
0671 1
0425
05N

047516

041440
042105

;3
4

75
77
78
79

[V RV LW SV SV

e e
b e
b e
b
b
oy
e e
e
i
> et
e

58
59
60
61
62

564
565
566
567
568
569

LA T U N g L

g =D

h o

b o

D e

D el e

s el

D o

s i

i o

N S A I Lo LA R L Nl SR N V1 NI N VI V] VY VY V], V1,1, V1, V] V], VY ST VY WY ST, VT T, V1 ST V1 7 V1 VY N1, 1.9

538
539
5640
561
542
5¢3
S64
5645
566
S47
S48
549
550
S1
52
5%
54
55
56

80
81
82
583
584

585
586
587
588
589
590
591
592
593

057737
057744

057752
057760
057766

0577764
060002
060010
060016
0600264

060026
060034

060042
060050
060056
060064
060072
060100
060106

120

020040
020124
044501

020103
052040

020040
051505

051040
020040
0200640
041510

043505
051040
020040
030523

041040

020040
020124
052111

020040
020040

020040
047516

0200640
020040
0463505
051040
005015

020040
020040
054105
020040
051505
052116
047503

0200640
020040
041520
042101
020123
047105
052116

OH1:

REG

RHCS1/7<15><12>

053440
020040
020040

020040
020040
041520
020040
042126
051104
047503
020124
047105

CIRJJIDO, RPO&L/S/6 FCTINL CTRLR?
CIRJJD P
28-MAR-79 08:52
12594
12595

060114
060117
060124

060132
060140
060140

OV~
NS
—

(o] N—‘-J—.—..‘—.

ol
el
i
i
i
et
e
—

[ ST VY, V1, V1 N1 VY, N1 ST )
o cococooo>

—

060154
060162
060170
060176
060200
060206
060214
060222
060230
060236
060244
060252
060260

060266
060274
060302
060310
060316
060324
060332
060340
060346

060354
060362
060370
060376
060377
060404
060412
060420
060426
060434
060441
060446
060454
060462
060470
060476
060504
060512
060520
060526
060534

060536
060544
060552
060560
060556
060574

004524
120
020040
020124
044501
041040
020040
020040
046511
005015
020040
020040
020040
020040
056105
020040
051505
046440
041520
020040
020040
020107
047507
020040
053111
020040
020040
020040
051104
040504
020040
000
120

020040
020124

043505
051040
042526
040
020040
020040
0642104
042040
041520
020040
020040
020107
042101
000123
041520
020040
020040
046111
047503
020124

MACY1Y

30A(1052)

020040
051505
053440
020040
020040
043505
052040
047111

DHG.

POWER DOWN

020040
020040

25-MAY-79

10:48

AND UP ROUTINES

LASCII

/P(

.ASC1Z

PAGE 263

SEQ 0262

IN/<15><12>

TEST

WA]T

BIT

REG

TIME

EXPCTD

ADDRESS

10 MSEC/

TEST

REG

600D

RECEIVED/<15><12>

ADDRESS DATA

TEST

REG

RECEIVED/<15><12>

ADDRESS

DATA/

ADDRESS/

041520

040524
040504

020040
042124
051104
030061
000103
020040
052123
062522
020040
020040
0642503
005015
020040
020040
042101
020123
020040
040524

DH5:

LASCL]

/PC

.ASCI1Z

020103
052040
020040
020040
041505
006504
020040
047040
020040
062522
052101
020040
042526

DH6:

DH7:

<ASCIY

/PC

TEST

REG

020040
020040
051104

020040
051505
051040
020040
044505
012
020040
020117
040440
051523
000101
020040
052123
042522
020040
051505

020040
062524
020040
047111
052116
047503

020040
052123
040506
020107
0647105
052116

DH10:

LASCL]

/PC

TEST

FAILING CONTENT

<ASCI]

/PC

LASCIZ

DATA/

CONTENT CONTENT

CONTENT/<15><12>

CIRJJIDO, RPO4L/S5/6 FCTINL CTRLR?
CIRJJD. P
28-MAR-79 08:52
12650
12651
12652
12653
12654
12655
12656
12657
12658
12659
12660
12661
12662

12663
12664
12665
12666
12667
12668
12669
12670
12671
12672
12673
12674
12675
12676
12677
12678
12679
12680
12681
12682
12683
12684
1268¢
1267
12667
12688
12689
12690
12691
12692
12693
12694
12695
12696
12697
12698
12699

060602
060610
060616
0605624
060627
060634
060642
060650
060656
060664
060672
060700
060706
060714

060715
060722
060730
060736
060744
060752
060760
060766
060774
061002
061010
061016
061024

061032

061040
061046
061054
061062
061070
061076
061104
061112
061115
061122
061130
061136
061144
061152
061160
061162
061170
061176
061204
061212
061220
061226

061227
061234
061242

MACY11

30A(1052)
POWER

047105
052116
047503
006524
040
020040
020040
043505
051040
020040
031123
042110
051040
000

020124
047105
052116
012
020040
047040
020040
020056
041510
051040
020040
030523
062510

047503
020124
047105

120

020103
052040
020040
020124
047117
041440
043117
020124
047117
041440
043117
020040
047516
020040
020061
051503
0446122
020040
020061
051105
044122

020040
051505
0414640
043117
020124
047117
061440
043117
020124
047117
005015
020040
020040
064122
020040
020062
051504
044122
020040
020062
051105

DH26:

020103
052040
020040
020104
047517
041040

020040
051505
053440
020040
020104
042101

DH30:

020040
047516
020040
020040
0640524
040504

020040
020040
047516
020040
020040
040524

020103

020040
051505
051040

020040
020124
047117
0461440
043117
020124
047117
0414640
043117
020124
020040
020040
020040
051503
046122
020040
020061
051105
044122
020040
006463
120

020040
020124
051117
043440
020040
005015
020040
020040
020040
020040

040504

020040
000
120

020040
02012¢

000

052040
020040

020040
020117
051040
020040
030523
041510
051040
020040
030522

25-MAY-79

DOWN AND UP ROUTINES

SEQ 0263 l

PAGE 264

LASCIZ

REG.

RHCS1

RHCSZ

RHDSI

CLASCIL

/PC

TEST

CONT Of

CONT OF

CONT Of CONT OF CONT OF/<15><12

CASCIZ

RHCS!

RH(SZ2

RHDS1

RHER1

CASCIT

/PC

TEST

WORD

600D

BAD/<15>1
2>

DATA

DATA/

TEST

REG

600D

RECVD

LASTLL

K51

10:48

LASCIT

/PC

RHER1/

RHER?

JLLEGL/7<19><1
2>

RHERY

CIRJIDO, RPOL/S5/6 FCINL CTRLR?

2706
g N S N

—=O 0V

b b b o ed it s e et e D O

g N N N N S SN S SN

NOWVMEUWN

NO VNS W

N N R N AN NI NI P POIRIRNI PRI NN

NS WOV

N A AN
DD

= OOV

NOOVNE WM

—=O VBN

o PWVWVVANANWNVWNAE
S S SN

Y, V1 Y

VY ST U1 U1 . UY Y V] V] U1, V] G2,V

NN SN S SN SN SN S N N TN S N TN SN SN SN SN SN SN SN SN S TN SN N N SN SN SN S S S SN SN N N SN N

L1 91 Y

~NO NS WA —0O V00

707

V] VY VN V] W1 U1, VL, VY UV V] V], VY V1,V N1, VT, V],V] UY . UY VY U] V1 V1 V] U1 VY. NT. VT VT ST, V] V1, VT, V1, V1 V)

flddd—dda—.-‘—._.—‘—.—l—.—‘—‘—‘-‘d—‘_‘—ld—.-‘-‘—‘—._.-J-d—‘—‘—.—.-‘—‘_‘—‘.—d—.—.“—.‘-‘—‘ddddddd~

(lRJJID.PIN

061250

061256

28-MAR-79 08:52
043505

0436440

061264
061272
061300
061306
061307
061314
061322
061330
061336
061344
061352
061360

020040
062126
066114
012
040
020040
020040
0421064
042040
020040
020101
047125

061366
061374
061402
061410
061416
061424
061432
061440
061446
061447
061454
061462
061470
061476
061504
061512
061520
061523
061530
061536
061544
061552
061560
061561
061566
061574
061602
061610
061615
061622
061630
061636
061644
061652
061660
061666
061670
061676
061704
061712
061720

041520
0200640
020040
020107
047507
020040
020104
043104
012
040
020040
020040
062104
062040
020040
020101
043505
120
020040
020124
020103
044122
012
040
020040
020040
051123
053440
120
020040
043117
041510
020040
020040
020040
000123
041520
020040
020040
052116
047503

020040

MACY11

051040
020040
043505

020040
020104
041505
044640
006514

020040
047040
020040
042522
052101
042040
020049
0521v3

020040
020117
040440
051523
020101
052101
043040
000116

020040
042524
020040
020040
042117
042522
020040
047111

020040

047517

020040
047040
020040
062522
052101
042040
020040
000
020103
052040
020040
043117
051504

05123
042522
020040
020040
053103
047515
006507

30AC1052)
POWER

DH6O0:

020040
047040
020040
02004C
051501
020103
050040
020040
030523
020040
051512
020040

020040
020117
045040
020040
000
020040
020103
051040
005015
020040

020040
042526
020040
020040
052110

020040
052123

LASCILI

/PC

LASCIZ

DH61:

LASCII

/P(

LASCIZ

DHE2:

LASCI]

/PC

LASCIZ

020122

10:48

DOWN AND UP ROUTINES

<ASCIZ

020040
020117
040440
051523
020101
052101
051040
020040
051505
050040
020011
006461

25-MAY-79

5
PAGE 265

SEQ 0264

ADDRESS DATA

TEST

REG

600D

RECVD

ADDRESS

DATA

TEST

PC OF

RHDS1/<15><12>

JSR

WAS/

DATA

FUNCTN/

MODF ING/<15><12>

REG/

>
RHCS1/<15<1

JSR

WAS/

TEST

CON?

040527

047503
020040
020040

DH65:

LASCII

/PC

CONT

CONT/<15>¢1?2>

MACY11

0647503

052116

020040
047516
020040
020061
051501
044122

020040
020040
044122
020040
020040
051504

020040
042524
020040
020124
051105
046122
020040
020063
051503
046122

020040
052123
064122
020040
020061
051105
066122
020040
020061
051503

020040
042526
020040
020111

020040

o
oo

~ SNNNNNNNSNSNNNNN NNNNSNNNNSNNNN~NYNNN ~

0000 OO0 OO 00 00 o 0D O 00 O Ob OO NNNNNNN~y~N
W) -2O 0 [« VYo V. B RV [ S
) OO0
~NO N
Nny —

OO ~NO DN

—

e e

il e

)

D il e

sl ol e

D e

ad oy o

D e

[aSAAS AT aNEANE NEaS I AN V] V] VT, V1 V] VY VY C1 ST, O7, V), V1, N], V1, V1, V] V] ST Y, V1,V N1 VY VT VY V1, V1 ¥

b =D

CIRJJDO, RPOL/S/6 FCINL (TRLR?
CIRJLD.PY?
28-MAR-79 08:52

12799
12800
12801
12802
12803
12804
12805
12806

—o
NN
NO

——
il ol

0o G 00 OO

)
—

0o 00 0o O

o
i
s
e
—

rororoNOrURL
NN

12807
12808
12809

061726
061734
061736
061744
061752
061760
061766
061774
062002
062004
062012
062020
062026
062034
062042
062050
062056
062064
062072
062100

020040
005015
020040
020040
020040
051503
044122
020040
000061
041520
020040
020040
051504
044122
020040
020062
051105
044122
020040
000062

062102
062110
062116
062124
062132
062140
062146
062154
062162
062170
062176
062204

041520
020040
020040
051503
064122
020040
020061
051504
0644122
020040

020061
061527

051502
0464122
020040
020124
040503
044122
020040
000

POWER

052123
044122
020040
020062
051504

062274
062300
062306
062310
062316
062324
062330
062336
062344
062352

001116
033550
002262
001116
033544
001126
001116
001124
001116
001126
001116
00C000
001116
002262
002264
001116
002260

002270
001116

DOWN

25-MAY-79
AND UP

10:48

ROUTINES

PAGE

266

SEQ 0265

<ASCIZ

RHCST

RHAS

RHDS1/

DHOHO:

LASC1Z

/PC

TEST

RHDST

RHER!

RHERZ

RHER3

RM(S]

RH(S2/

DH72:

LASCIZ

/PC

TEST

RHCSI

RHCSZ

RHDSI

RHDST

RHCA

RHER1

044122
020040
020040
051105
044122

.EVEN

062210

062210
062216
062224
062230
062236
062244
062252
062260
062266

30A(1052)

004504
033546
000000
004504
033550
033552
004504
001126
004504
000000
004504

033544
001126

D11:

.WORD

SERRP(,TSTNM,
WAITP( ,WAITBT ,WAITRE,$BDDAT,(S1,0

004504
033546
000000
004500
000000
004500

D14

.WORD

SERRPC,TSTNM, TSTNM WAL TP( ,WAITBT ,WAITRE ,$BDDAT ,WAlTTIM, O

DT5:

.WORD

SERRPC,TSTNM, REGADR,$GDDAT ,$BDDAT,0

DT6:

.WORD

SERRPC,TSTNM, REGADR,$BDDAT,0

001200

D17:

.WORD

SERRPC,TSTNM, $TMP1,0

004504
002260
000000
004504
002304
002276
004504

001122
002304

D110:

.WORD

$ERRPC,TSTNM, SBDADR,(S1,(S2,DS1,ERY,D

002262
002264
000000
004502

D126:

.WORD

SERRP(,TSTNM, (S1,0S2,DS1,ERT,ER2,ER3,0

p130:

.WORD

$ERRP(,TSTNM, ERWORD,$GDDAT,$8DDAT 0

RHW(
/

ORI
NP NI NI N

062360

0o
00 0o

[
S]],
V]
WA
—

820

824
825

826

827

062366

062374
062402

001124
001116

001126
004506
001126

000000
004500
002366

pISt:

.WwORD

$ERRP(,TSTNM REGADR,$GDDAT ,$BDDAT, JLLEGL,O

062404
062412
062420
062422

004504
001126

004500
001122

D160:

.WORD

$ERRPC,TSTNM, REGADR,$GDDAT ,$BDDAT,$BDADR,(

062430
062434

004504
000000
006504
000000
004504
002304
004504
002270
002260
004504
002304
002264

033350

D161:

.WORD

$ERRPC,TSTNM,PLJSR,$BDADR,0

033350

DT6L:

.WORD

SERRPC,TSTNM,PCJSR,$BDADR,0

002262
000000
002266
002276
000000
002262

DT65:

.WORD

$ERRPC,TSTNM,(S1,AS,DS1,0

D166

.WORD

SERRP(C,TSTNM,DST ,ER1,ER2,ER3,(S1,(S2.0

D172:

.WORD

$ERRPC,TSTNM, (S1,(S2,DS1,DST,CA,ERT,W(C,0

DOWN

AND

10:48

S
PAGE

30A(1052)
POWER

25-MAY-79

MACYTY

CZRJIJDO, RPO4L/S/6 FLTINL CTRLR?
CIRJJD.PIY
28-MAR-79 08:5¢

UP ROUTINES

267

062442
062446
062454
062462
062470
062476
062504
062512
062520
062526

002274
000000

062530
06253~
062536
062537
062542
062545
062546
062551
062553
062556
0062557
062562
062565
062570

000
000
000
000
000
000
000
000
000
000
000
000
000
000

000
000

DF1:

.BYTE

J,0,0,0.0,0,0

000
000

000
001

DF&:

.BYTE

000;000'001 .0

000

DFS:

.BYTE

0.0,0,0,0

000

DF6:

BYTE

0,0,0.0

000
000
000

DF7:
DF10:

.BYTE
.BYTE

0.0.0
0,€.0,0,0,0.0

06257
062574
062577

000
000
000

000
000

DF26:

.BY1E

0,0,0,0,0,0.0,0

062601
062604

000
000

00C

DF30:

.BYTE

0.0.,0,0,0

06260¢
062611

000
000

DFS1T.

.BYTE

0.0,0,0,0.0

062614
062617
062622
062625
062626

000
000
000
000
000
000
000
000
000
000

000
000
000

DF60:

.BYTE

0,0,0,0,0,0

DF61:

.BYTE

0,0,0.0

000

DF62:

BYTE

0,0,0,0

000
000
000
000

000

DF65:

.BYTE

0,0,0,0,0

000
000

DFE6:

BYTt

0,0,0,0,0,0,0,0,0

062631
062632
062635
062637
062642

000

002266
002254

SEQ 0266

CIRJJDO, RPO4L/S/6 FCINL CTRLR2
C(ZRJID.PI
28-MAR-79 08:52
12874
12875
12876
12877
12878
12879
12480
12881
12882

MACY1T

062645

000

062650
062653
062656

000
000
000

30A(1052)

10:48

POWER DOWN AND UP ROUTINES

DFfF72:

062662
000001

25=MAY-79

.By1¢

EVEN

.END

S
PAGE 268

0,0,0,0.0,0,0,0,0

SEQ 0267

= 000001

757
756
755
754
753
752
751
750
749
748
7469
7469
10487

4804
9822

5368

5512

5697

5836

6195

6447

6902

7193

4136
7811

6634
8322

4610
8504

4806

5379

5525

5710

5847

6201

6481

3177

7491

7793

10480

10963

10947

7469
9906

12834

SEQ 0268

8488

11363

10954
10458

—~

4594

[o
AV,

2028#
20224
20254
3021

—

8830

103484

—_

000400
001000
000014
002274
002316

12829

11010

Fol
o

8118 =
B119 =
BPTVEC=
CA
(c

002256
000010
035460
004712
004662
004676
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200

—a

BA
B8Al
=
BASECH
BEGIN
BEGINY
BEGIN2
=
8170
81700 =
81101 =
BI1102 =
81703 =
81104 =
B1105 =
81106 =
BIT07? =
BI108 =
BIT09 =
e1T1
=
B1110 =
BIT11 =
81112 =
BIT13 =
B1114 =
BIT15 =
=
BIT2
BI113 =
8114
=
=
BI11S
BI116
=
B117
=

000002
000004
000010
000020
000040
000100
000200
000400
001000

—

=
=
=
=
=
=
=
=
=

—

AT0

ATl
AT12
AT13
A14
ATS
AT6
A17
Al6
Al7

004566
004644

8318

—_

ATABLE
ATTENT

6455

11082
6450

— N

000040
100000
000204
036450
001000
002300
100000

30A(*J52)
25-MAY-79
10:48
PAGE 270
CROSS REFERENCE TABLE -- USLR SYMBOLS

ACL
=
ACU
=
ADDMOD
ADTIMO
AOE
=
AS
ATA
=

MACY1Y

OO
&~

CIRJIDO, RPOL/S/6 FCTINL CTR
CIRJJD.PY1
28-PAR-79 08:

2970

4737
6824

8735
2809

4582

5840

7486

(KSWR = 104407
CLAREA 033164

8483

10457

2906
4508

6324

033314

CLDISK

CLR
= 000040
COMPAR
035342
COMREG

034312

CPHALT

(R
CRLF
CSF
(su
st

057465

=
=
=
=

€S2

DB
oCx
=
pcL
=
DCLEAR

DOISP
DEN
DFF20
DFFS
DF 1
DF10
DF26
DF 30

Dfé&

=
=
=
=

000015
000200
000002
000010
002262
002260

002252
100000
000100
002330
177570
000040
000002
000001
062530
062562
062571
062¢01

062537

DFS

062546

DF51

062606

7635
9436
2240

3677

98034
98134

3125

4939

6997
8837
3009
4589
6167
7493

8497

10938

3067

4886

6548
7653
97024
2257
3913
5905

TABLE

3249
5088
7148
8928
3016
4603
6176
7505
8508
10962
3294
4906
6556

3500
5462
7365
9126
3172

2662

2644
G477

7984

4686

4941

7617

8957
2661
3608
9177

6754
8603
6724
6734
17714
17734

10642

5
PAGE 271

SEQ 0269

=-- USER

SYM3OLS

3646
5574

3708
5648
7678
9329
6115
5372
6881

3966
5791
7750
9462
4124
5507
6890
7815

4075
5950
7909
98094
4388
5518
6897
8306

3803
5615
6965
8038

3932
5759
8045

2738

2867

7448

9232

4106

5363
6442
7795

35%7
5630
6957
7877

2689

L678

6265

6347

6561

468¢

6410
5692
6915

4420

L4645

8313

8329

4438
5821
7188
8340

4043
5922
7116

4210

6315
6064

64694

4500

8977

6021
7310
9079

7402
9100

7408
9303

76416
9418

6709
8543

3055
5050
6781
8562

3244
5214
6951
8649

3277
5623

3458
5567

8696

8786

3640
5608
7295
8813

5184

6510

6672

7073

7241

7562

8001

7802

64715
6563
8401
97824

7108

4869

6127
8075

6393
8289
5703
7179

7101

6594
8423

6308

7283

6752
8601
5831
7202
8474

6316

4640

6527
8238
9388
9787
5035

3589
5854

3840
6243

4015

6489

4142
6641

4293
6930

4456
7051

4617
7221

4812
7538

5014
7840

3355
5320

7336
9005

3502
5464
7367
9128

3648
5576

3710
5650

4077
5952

9331

7911
12539«

6247
6129

9234

3968
5793
7752
9464

8077

4349
6395
8291

6543
6596
8425

8771

8880+

8881

9046

9162

11026

12799

12811

12814

12831

12834

7450

7680

10642

876

2060

934

946

957
1039

1174
1195
970
980
1224
1492
1381

6331
8203
9284
2713

10132#

6999
8839

6794

1011

3320
5251
6791
7871

3127

2743

16794
16754
16744

7788

4038

5163

18964
12829
18934
18904
17074
18254
19254

6433

7711

5978
7864
9068
2673
3860
9501
3186
5532
8363

5752
7605
8914
16324
3207
8176
2821

10:48

4799

— NN
—_—~

034204

CHREG

2742

9807

25-MAY-79

CROSS REFERENCE

—

033352
033410
033374

30A(1052)

(a9 1,8
-]

CHECK
(HECKC
CHECKY

MACY11

1025

128544
1214
128424
1065
1240
1504
128614

128394
1055

12850#

1247

1308

1342

1545

1556

12858#

1091
1269
128454

1105
1283

1117
1295

1151
1395

1162
1414

1185
1426

s ro
N
— O

CIRJJDO, RPO4/S/6 FCTINL CTRLR2
CIRJID.PIN
28-MAR-79 08:52

CIRJJIDO, RPO4L/S/6 FCINL CTRLR2
CIZRJJD.P
28-MAR-79 08:52

PAGE 272

SEQ 0270

=-- USER SYMBOLS

—_N
O
Rol
[+
XV

—

1183
1626

1204
1649

L E S

—

1086
1267
126124

~—

NNNN
VRNV
OWVWNO OOV
W NN
OO
< WO
O
~N OO W
N0
— O NN

127994
1054

128110

1246

1307

1341

1090
1268
128054

1104
1282

1116
1294

1603

128344

[V
]V
]
N —s

0 &~

1437

1544

1555

128174

1141

1150
1394

1184
1425

1354

12834

&> -

12829

9823

—

12814

bd
V. ]

12811

911

Wiy

11034

—

19054
19064

9823
9263

Qoo G0

7952
7393

-—

5131
5602

—

4982
6761

&~
(=]

4779
6709

3722
3670

—

10946

10501«

W —

—b
—

i
e
s
il
el
i
—

15¢5

—_

INRNIPNIPNVRNININY
=t =t N 2 Y =

1256

126884

127834

OO WO —
OO = O~NVO~N 0
=
L R
R
%
R
R
R

062366
062266
062404
062422
0624634
062446
062462
062300
062504

1072

12834

D151
D16
D160
D161
D162
D165
D166
D7
D172

1228

6784

002304
002306
= 010000
= 001000
062210
062310
062330
062352
062230
062252

TABLE

10:48

1604
951
103

780#
16424
16784
17114
16824
16814
18984

DS1
DY
DTE
DISY
o1
0110
D126
D130
D14
DTS

CROSS REFERENCE

8764

)

062102

1480
1510
1526
995
1577
16764

654

V1,81, V], 8}
" Qo OB 00 0o OB OO OO [ ]

000004
001142
000174
100000
000020
000001
000400
000200
002266
177570

1166

1190
964
975
1222
1490
1375
986
16462
1472

“on

)

=
D1GB
DISPLA
DISPRE
LY
=
oL64
=
=
OMdD
DPR
=
DRY
=
DST
DSWR
=

DHT72

1476
1484
1516
1534
998
1586
927
1003

061227
060377
061366
061523
061615
061670
062004
060476

25-MAY-79

990

)

DHS1
DH6
DH60
DH61
DH62
DH6S
DH66
DH7

30A{1052)

1468

—

062553
062614
062622
062626
062632
062637
062557
062650
0577%7
060536
060715
061115
060117
060260

Ed A 1 1,51,V

0f6
DF60
Df6
DF62
DF6S
DF66
DF7
DF72
oM
DH10
DH26
DH30
DH&
DHS

MACY1T

1205
1450

CIRJICO, RPO4/S5/6 FCINL CTRLR 2

28-MAR-79 08:52

30A(1052)

25-MAY-79

10:48

PAGE 273

CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ@ 027

OVA

= 004000

16678

2667

2789

3388

3721

6770

4973

5122

7943

8114

9815

ECl

= 004000

17974
4061
5633
6376
7328
8729

2933
6229
5634
6377
7632
8831

2953
6333
5635
6580
7433
8832

3092
4525
5776
6581
7434
8833

I
4526
5177
6582
7672
8997

3339
4527
5778
6746
7735
9119

3472
6925
5944
6809
7894
9120

3473
5073
6093
6982
7895
9121

3474
5074
6112
6983
7896
9323

3691
5075
6356
6984
8061
9455

3692
5281
6357
7133
8062
9456

NNNNNNNN—.N—J—;—.—.._..—n_a_._.—a_.a_._o.-_a_o_._._._._n_a_n_a._._.—n—.—.—-—a—l—o—.—-f\)
e
NN
et = 2 OO H OVOVOOOOC0
I NN NNNNOO WO WNWNWMIWNWNWNES

CZRJJD.PVI

MACY11

2045+

2192+

2234+

N — O 00~ o
O NN NN —
L% %
R
X 3 =

11122
11130
064
820

864

N = OO ~NO
N NN =
N
t 2
R
R
%
%

Lon

WO NS = = VO WO WOONSH=000~N
O =PV
SN OH =N OWVWNO
N NWO NNOW
R ERREREREREREEEREERERRRRRRRERRRRRRER

W70
964

p—y

«0x
694
L]

P —

S
[
i
e
d
h
b
d
—
ol
il
il
—
—
w—l
v
—

b
—l ———
vl
——
—l
el
—
D

053762
056172

053227
053474

EMS6
EMS7

EMS5&
EMSS

19084
1909¢
7674
925

002312
002314
000030
043014
043534
043603
042710
044016
044135
044207
044350
044476
043043
044633
045002
045055
045130
045277
045442
045624
045714
043132
046132
046212
046427
046534
046736
046762
047200
047255
043213
047472
047701
050162
050440
050776
051270
051576
051722
043324
052204
052423
052670
053141

EC)
EC2
EMTVEC=
3,)
EM10
EM1
EM12
EM13
EM14
EM1S
EM16
EM17
EM2
Eme0
Em21
Em22
EM23
EM24
EM25
EM26
Em27
EM3
EM30
EM31
EM32
EM33
EM34
EM35
EM36
EmM37
EMG
EMLO
EM4
EM&2
EM&3
EM&L4
EMGS
EMLO
EMGT
EMS
EM50
EMS]
EMS2
EM53

16984

o
8B
NN N N O N A NAM NI NI NI N O NN PPN
b b ) et et b et et b b s WOOOOOOO0O
-—
WVEN—=O
BN
OODO NN
W= OONO DIV
NN —=O VS NOWNS WO WO
&S —
-t O NN D N OB N NN =T
N~ OO WNNNOVO0O0D O~
S NN 00 — 00 NS OODODNOD &

= 000100

—

ECH

3693
5300
6358
7134
8063
9457

3951
5448
6375
7135
8595

Em6
Em60
Emel
EM63
EM64
EM6S
EM66
Em67

043376
054464
055073
055157
055232
055451
055473
055704

983
1454
14N
1488
1496
1509
1520
1536

EM70
Em71
EM72
EM73
EM74
ERFLGS
ERR
=

056160
056366
056627
057075
057245
004632
040000

1547
1559
1573
1593
1600
19934
16884
7809
7608
19544
18974
18994
19024
17514
17544
175204
1755#
1753
17564
17774

ERRVEC= 000004

ERWORD
ER1
ER2
ER3
EXT1
=
EXTI0 =
ExT2
=
EXT20 =
ExT&4
=
EXT40 =
FEN
=

004502
002264
002270
002276
000001
000010
000002
000020
000004
000040
000200

FER
= 000020
FILL
034250
FILLRE
033216

FINACC

FINALA
FIRST
FLHEAD

004564

004562
004634
033140

FMT22 = 010000

16964
100944
2999
3811
4384

6157
6629
7530
8492
19664
19654
19954
2881
5241
8573
17984
3338
4061
4926

5633
6356
6982
7734
8596

002322
FUTABL
- wseesee
OGNS

9322

19214
779

30A(1052)

25-MAY-79

CROSS REFERENCE

TABLE

10:48

S
PAGE 274

SEQ 0272

-~ USER SYMBOLS

123064

(v ]
P

el
i
D
el
)
ol
amd
)
d

993

—

043464

[o R o¥e -JN1,S1, N7, S] NET ST, V1, ST VT, Gy, U P
(VIR
RV o o o ok i VIV VW WP L S

EmM?7

N ESIND
—
NN
N P ele QV, ]
=
= =

MACY11

—

CIRJJIDO, KPOL/S/6 FCTINL CTIRLR?
CIRJJD.P1Y
28-MAR-79 08:52

094

924
10941
4452
8490
2058+
10329+

8871

12814
12814

6920

7207

3004
3816

3023
3821
4405
6185
6856

4400

6162
§834

7822

97304
9881
G582
2081
2893
5912
8707

2932
3339

6062

5073
5634
6357
6983
7735

8728
9323
8216
2089

4596
9044

2069+
2817

5370
9160
2194

5514

5699

5838

6197

6449

6904

2202+

2236+

10463

10664

10466+

106469+

12811

12814

12831

12834

3160
3831

3179
3997

3410

3415
4007
4995

3420
4131

7027
8136

7032
8141

4002
4598

5000
66428

3565

3570

7195

3575

4281
5144
6466
7197

4380
5154

8151

4286
5149
6473
7500
8350

5230

L4577

7827

2118+
3062
5998
8966
2933
3340

3302
6042
9292
2952
3473

4198
6540

4484

4876
7300

4898
7625

8831
9456

3092
3693
4525
5300
6093
6582
7433
8063
8997

3110
3951
4527
56447
6111
6746
7671
8430
9119

31N
3952

8729
9324

3091
3692
6334
5299
6092
6581
7432
8062
8996

3093
3950

5635
6358
6984

3795
6284
96734
2954
3691
6333
5282
5945
6580
7329
8061
8833
9536

3920
6296

5280
5943
6376
7327

3549
6054
9427
2953
3474
4332
9281
5944
6377
7328
7896
8832
9457

2093

2102

2106

FARN

115

2168

4228
5074

7736

4230

7895

6231
6906
7976

6423

3580

4276
5005
6453
7077
8146

6572
6219
6869
7965

6226
6874

7512

6717

6526

5301
6094
6745

7434
8411
8998

22n

6626
7525

8356

7643

3112

4924

6060
4925

2232

2308

5648
6112
6747
7672
8594
9120

5449
6113
6808
7673
8595
912

6
B
30A(1052)
10:48
PAGE 275
25-MAY-79
CROSS REFERENCE TABLE -- USER SYM3OLS

1AE
1€

= 002000
- 000100

JP3Y
JP&

000001
002364
00C002
000020
000100

= 004000
015624
015660

KIPARO=
KIPAR1=
KIPARZ2=
KIPAR3=
KIPARGL=
KIPARS=
KIPARG=
KIPAR7=
K1PDRO=
KI1PDR1=
KIPDR2=

023352
023372

172340
172342
172344
172346
172350
172352
172354
172356
172300
172302
172304

113194
6129

2934
5075
6810

9121
10601

2783

36684
4374
5483
6419
73914
8302
92614

5341
2654
3980

5476
7384
9017
83N
8228+

2042+
2244
8521
43984
64184

68674
68794

4587

4062

4230
6358

3112
5449
7329

3340
5635
7434

2995
37618
4568
5600#
6620
74778
8630
93554
5485
2982
4259
5661
7692
9254

31454
3766
L7074
5605
677384
7482
87594
9360
5523
3137
4361
5805
7764
9343

3150
37864
4712
5668#
6778
7700#
8764
9409#
5670
3263
4555
5964
7923
9402

8255

8263

8293

8335

12819

6183

6922

6923

7042

7043

6113
8063

5945
7736

4698
6141
7943
9481

3274

b N

N =2 DY —2

5976

79324

7213

)

59714
7023

8954

6407
8090
9933

8596

3382

40974
4967

3988~
4764
58124
6850
77794
8865
94884
5814
3388
4751

3693

3093
5301
7135
9457

— T

6608
8114

3662
4973
6838
8452

090¢,

47594
5673
68454
7705
8860#
9414
5708
3367

——

3492

11314

10402
11056

4770

32694

—=—=O0ON
WOSHrOW
— OO
— N
(V. P X
J N]w)

11024
11128
11325
3367
4698
6141
7943
9402

10392
11040
11144

D) -t

= 000400
= 0000
= 015440

=
ILF
ILLEGL
=
ILR
10TVEC=
=
IR
1XE
JP1
JP2

000010
104406
000200
002000

9578

2524
10205

2490
9584

— PN A
=

HCRC
HT
HY.

=
=
=
=

2611

—

GRV
GTISWR
HCE
HCl

= 000001

110
111
113
32
45
59
7923
9343

2405
2623
10380

——

008
112
23
137
361
5805
7764
9254

2399
2617
103

—

2346
613
357

SEQ 0273

W
PO~y
-—t s O

MACY1T

[V RARV]

CIRJDO, RPO4/S5/6 FCTNL CTRLR?
CIRJJD.P1Y
28-MAR-79 08:52

7169
7937
90314

4953
6766
8294
10018

3506

3662
4973
6838
8615
1004°

7214

8261

8272

CIRJJIDO, RPOL/S/6 FCINL CTIRLR2
(ZRJJD.PIN
28-MAR-79 08:52
K1PDR3=
KIPDR4=
K1PDRS=
K1PDR6=
K1PDR7=

172306
172310
172312
172314
172316

LA
LBY

002320
= 002000

LY.

= 000000

LFf

= 000012

8294
8304
8314
8324
8334

19114
16844

6714
27784
3545
43694
9344
66144
7361

MCLK
=
MCPE
=
MHS
=
MINX
=
MMVEC =
MoL
=
MPE
=
MR
MRD
=
MSE
=
MSTCK =
MWR
=
MXF
=
NED
=
NEM
=
NHS
=
NOPERA
NOPUSH
NOUNIT
NOUSE
NUNIT

ocvL
=
Of
OfREV =
OFSET
OFSETC
OFSTVL
OF100 =
0F200 =
=
0f25
0f400 =
0FS50
=
0F800 =
OPERSE
=
oP1
OR
=

000002
020000
001000
000004
000250
010000
0004600
002302
000020
000020
000010
000040
001000
010000
004000
002000
002322
004624
004620
057420
004622

82974
9152
17124
16684
17794

17134
8154
16864
16354
19044
17154
17740
17144
17164

16364
16394
16384
17804
19224
19864
19824

2391

19844
18274
19004
17954

MACY11

11106

2992
10636
2783
36684
6374
5483
6419

3014

3170

6199

6451

9822

2990#
3673
45634
5488
66154

2995
3761
4568

31454
3766

3150
37864

32694
3791

10642

47074

5673
68450

3518

L2674
5116

61484

8464

8465

8468

8469

3722

4779

4982

51N

7952

8123

9823

2431

2500+

9602+

7042

7043

7213

7214

8260

8449

8460

8461

2603

2619

2798

3397

8260

8270

8279

8345

2022+
2362+
125314
2631+

2026+
2410¢

2029+
2425

87594
9360

9409#

7705

7174
8103#
9036

35404

4272

53394
6153
73564
8108
91478

11098

2632

19354
19614
1790#
1791#
17884
17924
17894
17934
101944
1705#
16348

10684
8502
4393

10767
8871
6415

6181

6895

6922

6923

PAR
= 000010
PCJSR
033350
PCLBUF
002246

16954
98014
1880#

9803«
9905+

9804+

9809+

9810+

12825

12827

8520

35134
6102
S1114
5976
71694
7937
90314

8865
94884

7482

100000
002272
000200
033300
002354
004510
000004
000010
000001
000020
000002
000040
034450
020000
000200

97774

L9624

L4759

3382
40974
4967
59714
7023
79324
8954

9414

8448

86254

5668#
6778
7700#
8764

33774
3993

88604

9266

7396

4712

SEQ 0274

5817
70184
7784
89494
9493

5605
67734

56004
6620
74774
8630
93554

73914
8302
92614

30A(1052)
10:48 PAGE 276
25-MAY-79
CROSS REFERENCE TABLE =-- USER SYMBOLS

11090

9778

8521

8270

PRI
PRZ
PR3
PRG
PRS

=
=
=
=
=

002244
002250
002000
020000
177772
000240
002360
020000
000020
041170
001000
000000

= 000300
= 000340

PSU

= 000001

= 177776
= 002000

PSW
= 177776
PUTREG
035236
PWRVEC= 000024

9879+
9880

9906+

2746

2767

2788

9601«

10196+

109874

11149«

11167

11171

675

2073+

2653

2698

2733«

3520¢

8773

8873
2049

8883

9042
11331

9158
11340+

10360
2699

10382
2789
4770
7702

113244
3147

3136
7942

4063
8064

4088
8089

8941
4528

9253
4554
9122
3394+
8129+

9401
5076
9139
3403
10153«

RA
000200
ROCHR = 104410

ROLIN = 104411
RDOCT = 104412
RDY
= 000200

READAT

002346

READIN
RECAL]
REFOR

002362
002326
002350

REGADR

004500

REGSAV
REGSAY
REINTO

0410264
041032
003434

10233

2667
4371
7358
9490

313

7922

4697
3755
8834

2795

7958«

109424

2907

4056

5186
6674
7973

RELEAS
RESVEC=
RETCL
RHAS
RHBA

D
6
30A(1052)
PAGE 277
10:48
25-MAY-79
CROSS REFERENCE TABLE == USER SYM3OLS

SEQ 0275

000040
000100
000140
000200
000240

PR6
PR7

PS
PSEL

MACY1T1

002332
000010
002356
002216
002174

2269

3005
5500
8266+

3087

4164

5616
6966
8003

11330

4565
7479
9815

8848
2804+
8120+
3106
421N
5629
6978
8U46

o Yo YV To ]
W=
O
N
— O
-— Q0 O~ 0O

PCLCSR
PCLCTR
PGE
=
PIP
=
PIRQ
=
PIRQVE=
PKACK
PLU
=
PRE
=
PRITEM
PROG
=
PRO
=

00 —

CIRJJIDO, RPO4/S/6 FCINL (
(IRJJD.PWN
28-MAR-79 0

4964
7781

5101
9458
3735«

12805

3162

4509

9575«

10195+

3379
5973
8105

3542
6150
8299

3721
6416

8627

3763
6617
8761

3788
6775
8862

3990
6847
9033

5804

6985

7010

7136

7635

5121
9480
3749
12807

5636

5660

6359

6378

6406

4776+
12819

4785+
12822

4979

6988¢

5128+

3468
6642

4899

3610

3818
5056

3862
5069
6576

6352

5760
7029
80c7

3571
6424
8409

3769«

7129

8827

4003

6861

10282+

6371

6425

3687
5036
6512

4385
7028

4406
7526

4578
7828

3572

7243
9080

4907

7617
9115

7428
9179

6557

7527
9419

500!

7972

7564
945!

5140
8142

18664
18674
18554

RPVECT
RPO6
RPGLVEC

18574

5687

6177

6891

6921

3581
5829
9751«
3010
5508
8950
2380
2585

3770
6239
10280+
3166
5601

3827
6484

4008

6132

6907

4287
7038

4430
7198

4599
7501

3270
5693

3514
5832

3669
6191

3762
6443

6107

L4Lb

5340
7816

6277
5656
6870
8265+

43461

3120

5498
6991
8274t

3156
4381
5642
7033
8283

2223¢

4377

6853

2694
4250+

4352+

6635

7019
7701
8626
9256+

6898

5360
6409+

7189

9262

9410

9784

2510

2512

2538

2565

2547

5484
8498

5669

5704

58112

5841

3411

3482
64573

31812

3960
5082
6589
7966
10153

2382

2407

9785

18604

18694
18624
18584
18654
18484

3998
5145
6625
8069
10256
2000#
21304

10286+

2584
3000

3347

44601

5683
7142

8357

4535

5785
7442
8407

3566

3701

6163
7744
8517

4933
6387
7833
9735

7903
10069

4944+
7002+

9008+

349G«
5093«
7153
9131~

35260
5323+
7339+
9245

3650+
5467
73750
9334

6121
7531

8435

4730

4996

6429

8208

16944
99904

2650
2695

16114

3773
5653

6132+
8080+

2759

6398+
8606+

2974y

645461

3129+

L689

6757+
8841

3254

L7462

6829+
8933«

3358

006056
000004
034014
011514
011622
002166

6186

6439
7203

5502

10041

7170
7780
8751«
9356
10353

6149

004640

2550

8314
2375
2557

2991
5364
8484
2377
2583

5358

7013«
7694¢
8617+
9148
10018

3576

4370

RH70CK
RMR
RPTCTR
RPTRP1
RPTRP2
RPVEC

4800

8493

64611

5104+
61463

3541

43630
5334
6168
7164
7766¢
8636
9345¢
10288+«

RH70

002206
002214
002236
002220
002210
002226
002172

3421
5515
8422
2810

4389
10285+

7664
8298
8944y
9778¢

(241

O ~NWNN
wH
-~
O S~
e
N
ND P

RHER2
RHER3
RHLA
RHMR
RHOF
RHSN
RHWC

002222

10361

3533«
4268
5112

8452
9032
99133

5807
6774

— 0o
O

RHDS1

3524
5700

8519

3508+

4098
4955+
5966
6846
76494

—

002230
002232
002202

002242
002170
002204

2509+
9783

10279+

4091
4793
5822
6840
7478
8330
9019+
9782

7789
3146
3989
4753

RHECT
RHEC2
RHER1

RHCS3
RHDB
RHDST

2368

9768+

9750
10258
3378
4116
4963
5972
6882
7610
8475
9142+
9945

—~

002224

002176

4700+
5689
6768
7386+
8104
8880
9769+

8431w
9881
3369+

[«
2V]
[o
RV}

RHDT

10364
18504
7041
18744
18474
18564
5006
7823
18634
4590
7392
18644

RHCS2

4604
5663+
6616
7357
8092+
8861
9752+

SEQ 0276

8760
9404

3139
3982+

6474
8152
3265+

7180
7796

7487

6467

5478+
6415

6227

3664

6421

6215
6232
2984
3822

(¢ . XV,

18734
18594
18684
18544

~ &

002240
002212
002234
002200

E
6
10:48
PAGE 278
30A(1052)
25-MAY-T79
CROSS REFERENCE TABLE =-- USER SYMBOLS

RHBAE
RHCA
RHCC
RHCST

MACY11

CIRJJDO, RPOL/S5/6 FCTNL CTRLR?
CIRJID.PIN
28-MAR-79 08:52

7683
9467+

10394

10634

19984

2875

2917

3077

52264

5263

5992

6036

6076

6208

6278

3129

32564

3358

3526

3650

3773

397

4080

6250

(036534
004636

2076

004506

19564

6341

9522

2974

9542

006546
035276

RUNCTR
RUNWAT

004642
027642

SAVER

033462

SAVERE

004512

9109

20034
84534
2752
5081
7902
19644

3961

4731

5382+
5687
6388

100000

sCt
=
SC10
=
SC2
=
$C20
=
SC&
=
SEECOM
SEEKCY
SELECT
SELTST
SERCH
SILOSZ
=
skl
SN
SND1
SRCH
SRO
=
=
SR1
=
SR2
SR3
=

000100
001000
000200
002000
000400
002352
033264
004626
010126
002334
004650
040000
002310
006020
033244
177572
177574
177576
172516

SST1
$ST2
SS13
SST4
SSTS
STACk =

START
STKLMY=
5122
ST22A

031354
031362
031402
031422
031434
001000

004722
177774
024376
022774
025154

7044
7904
8522+
16704
R257
17574
17604
17584
17614
17594
19344

3657

1988«

2328

19274

2008#
18264
19074

2084
3714
819#
8204
8214
8224
90744
90774
9063«
9064
9065«
6654
4675

8398
2024
6764

2963
5311
8068
2756

4017
4806+
5393

5689+
6481
7053
7986

8529

6120

8267

3082
5289
7124

3328
5623
7423

3119
5655
8282
2823

3481
5784
08LLY
3032
5016
5500+
5719
6590
72140
8284
10074+
4797
8479

5083
5502+
5786

9445
8456+

4070
4814
5457
5700
6484
7143
8070
9736+
6625
8276

4144

5323

7339
9245

SEQ 0277
5467
7375
9334

3940

3682
5933
7725

6082
7885

3700
6120

3959
6386

4068
6588

3121
6240

3188
4295
5165
5504

3348
4342
5313
5515+
5847
6911

6643

8637

7453
9393

5653

7683
9467

6132
8080

4051
6101
8052

6218
6346
8584

6914

4238

6340

6817
3430

L4634

5354

7811«

5360
5683
6239+
6992

5379«
56851
6245
7043

8518«

7842
8521

6438
8881

6886

7184

7498

7800

8247

3241

3637

3910
8028

4188

2473

9590

3505
2242

3694
2243

3719
2247

3726
2251

4750
2252

4769

9752

2584+
21184
6722

11146

9084
90874
90984
91074

9207
9198«
919Gy
9200+

2267
5620
8911

2459
5564

2642
5749

2687

2735
6706

2864

75734

4619

8517+

2435

7566

3842

4610°

8504+

7514«

2162

7576

3702

4932
77463

8436

9769

8559
2027

3591

6536

4729
7641

8365

7383
97684
2028+

2040

3483

6458

6534
7141

6923

5525+
5856

5592
7371
2025

4866

6990

6735

8986

5356+
5534
6122
6924

76443

7215
8322+
10145
5826

5579

3661
5587
2023
24354
3475
2241

72934

66394

6757
8841

4944
7002
9008

— NN

RIN
RUN

6599
8740
22344
2942
5270
6973
9312
84530

4689

4546

—_— N

4352
6398
8606
2228
2922
5063
6799

30AC1052)
25-MAY-79
10:48
PAGE 279
CROSS REFERENCE TABLE =-- USER SYMBOLS
O W
— et
D
WO

MACY11

SNWVIWN

CIRJJDO, RPO&L/S5/6 FCTINL CTRLRZ
CIRJJD.PIT
28-MAR-79 08:52

2254

7540

5358+
5643
6201
6932
7745

9750#

2191
5211
8693
2032#

9225

5902

7098

7280

7602

8200

CIRJIDO, RPO&L/S5/6 FCINL CTRLR2
CIRJJD.P1Y
28-MAR-79 08:52

S$1264

025226

$128
SWR

026242
001140

SWREG
Sw0
Sw00
sw0l1
sw02
sw03
sw0s
Sw0S
Sw06
Sw07
sw08
sw09
SWl
Swi0
swil
swi2
Swi3
swis
sSw15
Swl
sw3
SW&
SWS
Swé
sw?
Sw8
SWw9

000176
= 000001
= 000001

=
=
=
=
=
=
=

000002
000004
000010
000020
000040
000100
000200

=
=
=
=
=
=
=
=
=
=
=
=
=
=

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

= 000400
= 001000
= 000002

181TvE=
=
1DF
TESTAD
TIMCNT
TIMEN
TIME2
TkvEC =
TMPO
TMP1
TMPS
TMPS
N

000014
000040
034446
034012
033514
033526
000060
004652

004654
004656
004660
= 000037

TOTALA
004646
000064
=
TPVEC
TRAPVE= 000034
TRE
= 060000
=
"

TRk
TRx10
TRk

004000
040000

010000

76150
8006
875#

MACY11
8016
8013#
2038

G
6
10:48
PAGE 280
CROSS REFERENCE TABLE -- USER SYMBOLS

30A(1052)

25-MAY-79

2067+

2130
10781«

SEQ 0278

2206
10947

2304

10474

10480

2059+

2061
10487

10687

10726

2067

2123

10687

10726

10749

2130
2206

2304

2326

2656

2701

9922

9927

99894

10007

2159

98814
10664

10665

3533

3755¢

3756+

3779

7287«

7468

76471

8568+

8666+

8702+

8803+

3494
2460
L6750
5903
8398«

3524

3757«
2736

3770
28648

7288+

7573+

7611«

10472
11351«
7814
7290
7194

7184
7174

7164
7154
7140
7134
7124
[ARL
7104
7284
7094
708#
707#
7064
7054
7040
7274
7260
7250
7240

2123

10954

729
728
727
726
725
724
723
722
721
720

7234
7224

7214
7204
7620
17754
101934

9879«
7694

20104
7851
20114
20124
20134
24594

4189
5902#

8201
2007#
7708
7684
16694
9046
17624
17654
17634

3493y

2319«
2046+

6122
9162

27354
L4676

67064
8399
2321

2047+

6627

LB66#

6707
8559#

2074

4608

10012

7549

7610+

7770

7773

39104
5565
8028#
9226

3911
576498
8029

41880
5750
82008

8267

8276

8481

5211#

326410
5212

3242
56204

8013«
36374
5421

8560

86938

8694

8911#

8912

3638
55648
7603
9225#

3736
5828

57500
6174

3768+
b4i”

6888

7186

8257

4867
70984

2865

7099

72808

7281

76024

CIRJ. DD, RPOL/S/6 FCINL CTIRLR?
CIRJ.D.PIY
28-MAR-79 08:52
TRx20 = 100000
TRK4
= 020000
TRP
006510
TRIVEC= 000914

TSINM

1511
1S110
1ST1N
187112
18113
1ST14
1ST1S
15116
1S117
1812
15120
15121
15122
1$123
15124
15125
18126
15127
1813
1S130
1ST3Y
18132
1ST33
15134
1S135
1s1%

0045064

006222
011632
012076
012792
0137%2
014500
015206
016736
016670
006714
017556
020136
020414
020752
021220
023040
024014
024342
006762
025172
026260
026624
027452
030100
030362
031020

15137
031632
1814
010342
032564
151640
1S19
011070
1516
011422
1817
011532
TUf
= 000100
TYPDS = 104405
= 104401
TYPE

TYPERR
042132
TYPOC = 104402

17560
17640

2220
763
1955#
4676

8399+
12817
2164
2707
28634
326404
36364
36094

MACY1Y

H
6
30AC1052)
25-MAY-79
10:48
PAGE 28!
(ROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0279

2229

2189

2299

26460+

2597«

2640+

2685+

8560«

B694e

8912«

9226+

10201

12799

(867

12819

5212+

5621

5565+

7281+
12807

264554

9599

9610

26374
2669

26824

2602
2091
2340
2561
3648
5576
7450
9234
10214
10408
10783
11030

2418
2096
2344
2567
3710
5650
7680
933
10218
10414
10802
11038

2527
2100
2388
2573
3968
5793
7752
9464
10225
10420
10846
11046

9581
2104
2391
2607
4077
5952
7911
9576
10229
10629
10849
11054

9587
2109
2397
2611
6247
6129
8077
9582
10349
10563
10853
11062

9597
2113
2403
2615
6349
6395
8291
9595
10355
10606
10918
11070

11193
2209

113178
2226

6686

4739

2533

2539

10202

10208

10354

10389

9653

12831

12802
12834

32420

7099+
12805

12825

21864

12829

5903+

2865+

12822

2175
2727

12827

5750+

2736+
6707+

L1878
LO74n
4865#

22654
52104
S419#
55634
S7484
59014
6705#
70978
72794

2273

22954

8015

80274

7575

8199«
8210
8558#
8692#

8777
9205

2637

9573«

25954
2605
2663

17764

2390
2087

76014

8397#4
89104

92248

}11;4

1151

2408

11142

111592

11174

11176

11179

2416
2743

6756
8603

9640
10378
10693
10949
11086
11196

2488
2972

6826
8737
9643

3638¢

7603
12809

3911
8029+

12811

6£189¢
8201«
12814

CIZRJJIDO, RPO4/S/6 FCIN
CIRJJD.P1
28-MAR-7

TYPON =
TYPOS =

UNIB
UNIT

004576
004630
002324
040000
020000
000001
000002
000004
000010
015570

VAR3
VARG
VARS
VUF
=
vu30
=
A"
=
WAITBT
WAITPC
WAITRE
WAITTM
WAIT.P

023336
023346
015622
000002
010000
000100
033550
033544
033546
033552
033554

015600

WAIT.T
034016
WAT
z 104413

w(
WCE
=
WCF
=
wCu
=
WLE
=
WRCHDT
WRCHEK
WRFROM

25-MAY-79

REFERENCE

002254
040000
000040
000001
004000
002340
002336
(002370

002342
002344

TABLE

10:48

11035
11139

= 000020
004616

VAR?2

30A(1052)

104404
104403

UNITS
UNITSL
UNLOAD
UNS
=
UPE
=
us?
=
use2
=
=
usé¢
UWR
=
VAR]

WRIDAT
WRIFOR

MACY11

6
PAGE 282

SEQ 0280

=-- USER SYMBOLS

11075

11083

11091

11099

2526

9580

9604

9609«

9788

5131

7952

8123

9806

9823

10008

10013

10017

10043

12799

12802

3668
5483

3761
5600

3786
5668
7700
9409

4097
5971
7932
113254
4620
7224

6267
6148

043
11147

11051
11160

110
(AR

2499+

2502

64779
10013
12802
10000+

4982
12799

12802

2430

24639y

2468

2430
2439

2480

9605

2247
2251t
68584
68624

2249
2253

43820
43860

2780

2814
9928
9998+
9928
9952

10001+
9999+
9932
9962

63964

9915+
9912+
9914+
99034

11325
2990
4563
6615
8625
2824
5166
7987

3269

4759

6845
8860
3189
5535
8366

2894
3550
4283
5037
6011
6541
7242
7718
8708
9502
5450
2981
5331

3397

3540
5339
7356

3377

4962
7018
8949

9147

3843
6246

345
5720
8530

11002

2948
3609
4328
5231
6043
6673
7311

3006
3796
4386
5242

8724

8967

5475
33461
5946

6811
3366
5963

2928
3558

4316
5185

6022
6549
7301
7730

7829

7391
9261
4018
6492
12834

3063
3804

4145
6644

4296

6933

3988
5812
7779
9488
4459
7054

3068
3861

3208
3921

3285
3946

7677
9355

4485
5276

8978

4607
5252
6065
6728
76403
7878
8992

8002
9090

6837
3387
6095

3953
6114

7737

7763
3979
6140

6055
6718
7323
7872

6088
6741
7409

6495

5295
6107
6792

7563

8039

4501

5631
6159
6804
7626

3295

4004
6641
5643

6285
6862

7636

910

8177

9178

8266
9293

4231
6748

4258

4927
7330

6765

8103

4815
7541

3303

6044
4877

5913
6297
6876
71644

8268

9304
4952

7347

CIRJJIDO, RPO&L/S/6 FCTINL CTRLKZ
CIRJID.PIN
28-MAR-79 08:52

MACY11

7674
16854
17784
17724

7691

SENDCT

SENDMG

SENULL
$EOP
$EOPCY
SERFLG
$SERMAX
S$SERROR
SERRPC

$SERRTB
SERRTY
SERTTIL
SESCAP
$FILLC
$FILLS
$GDADR
$GDDAT

037312
033114
037302
033104
033052

033123
033120
033016
033044
001103
001115
061022
001116

001226

033074
$GTSWR
060140
$HD
= 000000
$HIO0CT
041020
$ICNT
003104
$ILLUP
042776
001135
SINTAG
001114
$11EMB
001224
$Lf
$LPADR
001106
$GET4L2

2794y

12805
9014
10608+
107264

8554
887#
8874
8854
8934

2416

883
882#
8664
8684
5132+

Q644N
10748#

613

10911

8594

11330

873
8634
904N
8604

9016

9325

9342

12811

12822

12825
3747«
10017«

12827
4775+
10043+

(784
10152+

4978+
10328

4987+
12799

12802

10783

10862

10923

10957

10971

11152

11176

10944

10971

12805

12807

12809

12811

12814

4771»

4780
12819

£974r
12822

4983

5123

3402+

3733¢

2051
8924
8924

893#
8934

8960

898#

899#

10642

10209

5127+

10571#
96514

9636
10532
789
96384

9595
9598
2218
96354
8584
864N
2044
865#
12817
9204
10956
8624
900#

8999

2044
890#
890#

895#

9034

11181
10529

8748

9944

2036
889«
889«

SEQ 0281

8731

9932+

12819
10949
10634

108624

10681
10747
10772

8614

2803+
8119+

7957+
12817
10862
10625

96554
96544
2627

9603

9628#

10476
10478
109374

10478
10500+

10484+
10505

10952+
12822

10953
12825

10971
12827

2051

9588+
10499«
10642

10950+
10966

10971
10968

2276+

2790

2799«
8115

3389+
8124

10494

10504

10784
11155
10862
10224

10869

10611
10642

7953

7944

12802
12834

3748

12805

12817

10502

10504

11319
109224
10691
11346
10745+
10953
10642

2053

——

$DBLK
$DOAGN
$DTBL
SENDAD

10869
9818+

—

$CNTLG
SCNTLY
$CRLF

10740
7852+

$CM3
$CMS
SCNTLC

001216
037536
040050
001100
000006
000014
000006
000006
040621
040633
040626
001223

8597

$BELL
$SCHARC
$(KSWR
$CMTAG
(M1
(M2

2324
8724
8674
869#
5136+

8427

—

XE2

$AUTOB
$BDADR
$BDDAT

004000
000400
000004
007524
001134
001122
001126

nNDOO—O
£ 00O NN
NN
O
N
— o

WRL
WRU
WSy

J
6
30AC1052)
25-MAY-79
10:48
PAGE 283
CROSS REFERENCE TABLE == USER SYMBOLS

10923
10235

10971
10482¢

10497+

C(IRJJIDO, RPOL/S/6 FCTINL CTRLR2
CZRJJD.PI
28-MAR-79 08:52
$LPERR
SMALIL =
SMNEW
$SMSWR
SMXCNT
SNULL
SNWIST=

001110
040651
040640
037074
001154
000001

MACY11

8614
207
10751

30A(1052)

CROSS REFERENCE

8233

10497

10748
10495

881#
21804
2678

10642

SPWRMG
$PWRUP
$QUES
$RDCHR
$RODEC=
SROLIN
$RDOOCT
$RDSZ =
$REGAD

$REGO
$REG!
$REG?
$REGS

$REGL
$REGS
$SRINAD
=
$R2A
$SAVRE=
$SAVRE
$SCOPE
$SETUP=

$S51

$STUP
$SVLAD
$SVP(
$SWR

=
$SWRMK
STIMES
$1kB
$TKCN)
$TKINT

042542
042544
037060
001100
043004
042772
042632
042766
0642704
001222
040412
eSO RYYS

040502
040662
000011
001160
001162
001164
001166

001170
001172
001174
033116
teROeTY
L2 28

424

043002
036624
000117

000000
177777
037032
000200
167770

000000
001212
001146
037542
037562

5878
8288#

11237«
11232+
10459
8564
11361
113634

2048

113612

9084

10595

9376

10959

2261
28504

4834
70874

L664LHN

$OCNT
$OMODE
$OVER
$PASS
$POWER
$SPWRAD
SPWRDN

K
6
10:48
PAGE 284
TALE == USER SYMBOLS

25-MAY=-79

112464
10493
9632+

113684

10207

10234+

10682

10498+

10504

109¢5

2284
32234
5203

24420
3225
564104

25874
3624
55514

2589
38984

8891#

2644
36224
5412
75784
8893

7580
92094

9211

26294
3900
5739
8021
95634

9641

9654

10489

10505

10920

10923

10971

2050

2051

2053

2120

9630

10457

655
2296
5211
8693

656
24656
5620
8911

657
2596
5564
9225

899
2683
5902
9625

10673
10932

2728
6706
9631

10676
10933

104695

10504

72604
8674

8547

SEQ 0282

7262

5553
80194

26764

6175

58764
8191

112814

113304

11340

10846

10862

11348+

11349

113674

2042

2044

2046
10938

9024
108154
11325
108384
108844

108314
8854
8874
8884
889#
890#
8914
8924
96534
11325
11325
11339+

2042
20334

11347
104564

2041

10690

10691

10467
7874

104964
792
613

20724
20334

6034
2050
3241

7280
9652
10478
10954

658
8994
8784

106464

2080

2051
3637

7602
9654
10485
10959

659
2050+

10645
10661

2302

10721

651
2053
3910
8028

10869

653
2187

4675

8398

10448
10486
10963
10452

10450
10498
11364
10474

10666
10691

10702
10822
106614

2187+

2732

2296+

2048

10962

10970

104652
10504

106458
10929

10470
10930

658
2638
5749
9574
10472
10931

9574
10757

9631+

10485

10492

10743

900

10685

901

2864

7098
9646
10477
10947

10715

10716
10829+

10718+

10700

10706+

10728

2365+
2656
9202¢
9547

2657
G277+
9550

9280+
9554+

2701

2702+
9368

12809

2163
24564
2706

2174
2459
2719

2180
2587
27284

21874
25964
2735

2188
2604
2850

—

4832

48664

8028#

59024
8189
9209

L6754
6693
§200#
92254

67064
8210
9563

113154

113164

113174

11318#

11319

9630+

10447
108614

10474

10496+

10501

106294

10630

10788

9204
10642
10642
10642

10857

4664

10754

10766

10786«

9518¢

8220+

8224
9527

8228

8229+
9533

89240
9534

2259
2629
286440
5201

22664
26384
3223
52114

2272
2639
32414
5410

2282
2662
3622

22964
2668
36374
5551

2298
2676
3898
55644

83984

7087
8388
95748

—
—

~O Co
(51,8

10764

10827

-~y —

10714
10826+
10829
10698+

9529

8545

7280

85594

56200
7575
8672

113204

11321

11322#

11323#

113240

10505

10946

10971

905
22334
261448

2309#
26184

70984

7260

7578
86934

7602#

8777

113254

—ed
e

b
)

OO —

904

10825
10718
10667

4£188#
5876

037076
037322
037472
037540
042344
042360
042320
036636
000000
042543

| Z X228

10827
10663

SEQ 0283

~O Co
Ny

9538

113264
11295

$TSINM
STTVIN
$TYPBN=
$TYPDS
$TYPE
STYPEC
STYPEX
$T1YPOC
$TYPON
$1YPOS
$XTSTR
$$GET4=
$OF _LL
$40CAT=

042602
001102
040610

$TRPAD

9074+

t
6
30AC1052)
25-MAY-79
10:48
PAGE 285
CROSS REFERENCE TABLE -- USER SYMBOLS

11313
10624
106404

001157
001150
042546
$TRAP2
042570
= 000014
$TRP

106774
2364
2204+

001152

$1PB
$TPFLG
$TPS
$TRAP

10716
10662+
10663+
10662
10645

—

001202
001204
001206
001210
= 000041

$IN

037632
001176
001200

$TMP2
$TMP3
$TMP4
$1MPS

037550
001144

106504
1064674
106484
106494
8774
10664
8934
8944
9059+
9535
895#
8964
8974
8984
603#
2436
26834
39104
5739
8015
8891
8804
884H
8794
2046
113014
113054

—

$TMPO
$TMPY

037561
037544
037546

VO === O000—O
[pSIaSTANT
o o RU A 2V ]Co 00
W it Q) et b (v
AV,] OO N0 O~
L
R
=

$TKQEN=
$TKQIN
$1KQ0U
$TKQSR
$1KS
$TKSRvV

MACY1Y

— e

CIRJJDO, RPO4L/S5/6 FCTNL CTRLR2
CIRJJD.PII
28-MAR-79 08:52

11316

11245

112804

teeeTYS®

787
19804

062662

24004
9654

128804

105714
11073«

788#

2039
26064
9658

10642
11081#

790#

2053
24128

102134
10645
11089#

792#

2054
24954

102214
1064694
110974

10399#
10869
11203

19458

104118

10923
11342

19458

2335
2624#
104329
10971
11366

CLEARA

CMPBLK
CMREG]
COMMEN

DATACO
DISREG
DUM

ENDCOM
ERROR

4939
7334
9232
6470
6L

6L
647N

4885

6726
7876
6L
9175
64L78
5390
8526
\K
6474
5269
7316

6L
6L

14
6664
3597
4821

FlLLBL
FLSVRE

LOAD

MSG

11045

11053

11069

11077

11085

11093

11101

nn
&N
5846
7201
8327
3500
5648

6105
4798
6166
7208

6114
4805

6123

4387

4409

4418
5517

4433

4637
5691

7485

7492

7787

7794

3556
5758

7909

8338
3646
5791
8075

6175

5362
6189

8473
3708
5950
8289

8482
3966
6127
8423

4209

6314

64693

6499

7636

7652

7710

7716

7071

7239

7560

7999

7309
9301

5033

3029
5716

3588
6488

3839
6640

4141
7050

4455

L4616

4811
7983

5013
8158

616
2921
5287

7720
2940
5637

3327
5932
8051

3462
6081
8582

3939
63>
8820

4217
6569
9107

(322

6514
6798
9443

4913

3616

7724
2278
3737

10044

7422
6921
2745
625
2205

7660
7041

7537

5192
7551
8874

5541
7853
9049

4875
7642

4897

5229
8706

3815

2998
3820

3003
3825

3178

3414
4275

6422

6427

3564
4285
6184
6905
8140

2721

4597

4994

7524

7529

7724

6452

6034
2766
4951

7724
2980
5100

2182
28494

22584
2852

136
9400

7382
9479

3159

4001

5143
6623
7831

4006

5148
6628
7964

6972

3404
6777
6252
7993
9509

4483
7624

6008
9425

9310

3395

3919
6716

5997
9290

6734

6547

6647
5863
7959
9186

3548
6294

7720

6680

7839

6323

4626

3195

3301
6283

6650

7081

6315

L4664

2891

9003

7115
9098
4638

6307

2880

2180#

6997

3931
6020
7407
9434
6508

8536
9965

4749
7160
9341

6824
8928

3066
5056
6956
8044
3606

8168
9937

(Y%]

4684

2905
4905
6790
8037
3205
9500
2820
5531

8130
9935

8491
14
14

6561

6594
8735

4245

4989

9826
1
6L
5911
9087
Y¥{
Y%/]

6480

5524
6879

5506
6441
7517
8507
6347
6752
8837

5378
6432
7513
8503

4980

7499

600

2742

7448
9462

11037

2796
4023
5138
7230
8640
10021

4576

GETPR]
GE TSWR

7365
9329

6914
8305
3125
5318

SEQ 0284

2711
3868
5129

6518
8121
ESCAPE
FIMEAD

6910
7814
2970
5088

3028

PAGE 287

-- MACRO NAMES

2830

4169

6156
6867
7975

CHECKY
CHKONT
CKCNTYV

7810

4588
5820

10:48

11029

3504
5659

4087

7921

3725
5962
8613

2284
36214

26418
3624

25874
3900

26284

N ==\

CHECKD

4581
5709

2808

TABLE

]

5702
6896

11005
11125

—

L4464

10996
11117

CROSS REFERENCE

CHANGR

647N
11109
6478

25-MAY-79

30A(1052)

[« RV}

ALLREG

MACY11

NN
CD NN SN
NANNN—
OO = —
NN
ODIWWNO O &
O
W= NOO
& —

CIRJJIDO, RPOL/S5/6 FCINL CTRLR2
28-MAR-79 08:52

CZRJJD.PN

6405
8847

6175

3215

5726
7950
9165

3569

4398

6213
7026

8145

4257
6606

8940

2631

46634

8572

3574

3579

6404
5218
7031

8150

6428
6226
7036
8348

4359
6764
9015

6553
6836
9138

2675#

4666

2678

48328

6889
7801

4737
7148
9126

)

CIRJJIDO, RPO4L/S/6 FCTNL CTRLR2
CIRJJD.PIN
28-MAR-79 08:52
52004

5203

56094

92084

9211

1L
4664
8672
647
1
10558
"

7262

MuLl

NEWTST

OFFST
POP

PUSH
REPORT
RFORGC
RHCLEA

SAVE
SAVTST
SCH
SCOPE
SEEKCO
SETPR]

10517

1
6L78
6478

L475
6562
8647
6474
6474

64784
6678
4865
8910
6474
1

75784

58754

5878

95634

9565

8544

7720
4832
88N

218C
5201
9209

2259
5610
9563

2282
5551

2442
5739

2587
5876

2629
6693

2676
7087

2719
7260

7720
10912
7720

7552
11351
7547

7854
11392
7849

9684

9712

9737

9854

9967

9673

9702

9730

9844

2643

2688

3053

3243

10886

7724

2461

4677
6708
8695
10939
2188

3713
2186
5210
9224
3656
772¢

11332

11338

L4714
6780
8784

4868
6949
8812

2737

5048
7100
8913

2866

2298
6721
2265

2596

2639

2684

2295

2455

2595

9573
5586
10818

9629
7370

5901

5619

5563

5748

5213
7282
8956

66928
8547

6695

70874

86714

B674

2850
7578

3223
8019

10049

10077

9907

9993

10064

3276

3456

3639

7089

72594

8890#

8893

3622
8189

3898
8388

6173
8545

10109

10164

10262

10338

10094

10132

10252

10310

3676

5422
7293
9067

5566
7604
9227

5607
7615
9283

5751
7862
9386

5904
8030

5977
8202

6209
8236

3912

4036

4190

6 0%

P4 37

2682
7097

2727
7279

2863
7601

3240
8027

3636
8199

3909
8397

4187
8558

L4674
8692

6330
8400

6525
8561

11315
2034
77268

11316

11317

11319

11321

11322

11323

11326

11325

2163

2174

2272

2436

2604

2662

2668

2706

9204

2752
5455

2963
5641

3119
5784

3346
6120

3481
6386

3700
6588

3959
6817

4068
6990

4238
7141

6340
7441

4534
7743

4729
7902

4932
8068

5081
8281

14
2259
2636
3622

639
2264
2676
3635

645
2282
2681
3877

7724
2294
2719
3891

785
2374
2726
3898

850
2394
2850
3908

905
26642
2862
4173

1606
2454
2874
4186

1608
2507
2878
4664

1653
?
2518
|
2916
4673

1655
2544
2919
4832

2134
2577
3076
4B64

2156
2587
3079
5201

2180
2594
3223
5209

2185
2629
3239
5223

5995
6693
8557
9563

6035
6704
8672
9572

6039
7087
8691
9622

6075
7096
8891
10427

6079
7260
8909
10436

6207
7278
9209
10444

6211
7578
9223
10507

6268
7600
9271
10574

6277
8019
9275
10644

6281
8026
9380
10721

6340
8189
9521
10736

6344
8198
9525
10807

6460
8388
9541
10831

6464
8396
9545
10872

6536
8545
9562
10925

2735
7280

2854
7602

3241
8028

3637
8200

3910
B398

4188
8559

4675
8693

4866
8911

5211
9225

5420

5564

5749

5902

8210

8777

4867
8912

5212
9226

5621

5565

5750

5903

7724
L34

5227

5262

5266

11207

11284

11328

SWRSU
TJUMP
TRMTRP

19
6L70
113054

7720
7575

20554
8015

TSCLRS

6474

TYPBIN
TYPDEC
TYPNAM

5741

8390

6L70
33;1

TTSTNO

57384

83870

SREGIS

TSCLR?2

5553

8191

11314
7720
6L
7724

STARTT

55504

SEQ 0285

8188¢

113054
1
11
14

STARS

30A(1052)
25-MAY-79
10:48 PAGE 288
CROSS REFERENCE TABLE =-- MACRO NAMES
8021

SETTRA
SETUP
SKIP
SLASH
SPACE

5412

80184

1724

7580

MACY11

6LTH
6706

2459
7098

5388

11344

56410

5418

5551

5562

5739

64674

6478
6707

14
11
1o

5747

5876

5900

5931

5988

5961

¢
2460
7099

7728
7720
7724

2736
7281
9641

2865
7603

5242
8029

3638
820"

3911
8399

4189
8560

4676
8694

CIRJJIDO, RPO4/S/6 FCTNL CTRLR2

CZRIID.PIY
TYPNUM
TYPOCS
1YPOCT

TYPTXT

28-MAR-79 08:52

1L
"
|

Wit

2532

10386
110646
2759
4944
;ggg

10390
11056
974
5093
;zg;

10396
11062
3129
5323
7453

106400
11070
3254
5667
7683

106406
11078
3358
5579
7755

647N
6562
6844

2777
4706
7017

2989
4758
7168

3144
4961
7355

3268
110
7390

3376
5338
7476

3512
5482
7659

6478
(568
6850

2783
4712
7023

2995
4764
7174

3150
4967
7361

3382
5344
7482

3518
5488
7705

9030

9146

2621

3760
5811
8102

3785
5970
8296

3545
5605
7784

3673
5673
7937

3766
5817
8108

6266
6614
8859

6368
6772
8948

3791
5976
8302

3993
6153
8630

4102
6419
8764

4272
6620
8865

6374
6778
8954

3223
8019

3622
8189

3898
8388

6173
8545

11319

11321

11322

11323

11326

11325

6037
603x
6034

9620
10923

6034

11326

14
1

603#
6034

10870
10642

783

10371

4096
6413
8758

11317

7724

9563

10355

2331
2607

3987
6147
8624

11316

9209

10348

2306
2572

11022
11142
6546
6829
913

2850
7578

8891

2230
2566

11014
11136
6352
6757
9008

2719
7260

3274
5116
7396

10229

11006
11126
4250
6599
8933

2676
7087

I
14
14

3667
5667
7931

2224
2560

10998
11118
4080
6398
8841

2629
6693

773
848

.SR2A7
.$SAVE
.$582D

3539
5599
7778

10225

2587
5876

6034
603#

.$RDOC
.SREAD

10428
11110
3971
6132
8740

2442
5739

14
14
14

. SRAND
.$RDDE

10218

10419
11102
3773
5955
8606

2282
5551

.SCATC
LSCMTA
.$0B82D

14
14

10214

2259
5610

811
2032
647

. $POWE

10414
11094
3650
5796
8080

2209
2534

2180
5201

662

14
1
14
1
1

10210

2166
2528

7728
4832

6034
6034
6034
6034
6034
6594
6034

.$0B20

10408
11086
3526
5653
7914

2113
2522

9493
891
897

"
¥
i
14
14
603#
1

.$D1vV
.$EOP
.SERRO
.SERRT
LSMULT

10203

2109
2692

9414
890
896

.EQUAT
-HEADE
KT
.SETUP
.SWRH]
.SWRLO
LSACTI

1
¥
1L
14

10197

2104
2487

9360
889
895

11315

.SAP1B
.SAPTH
.SAPTY
.SASTA

9582

2100
2409

9266
888
894

11314

2096
2603

SEQ 0286

9487

11305#

8672

PAGE 289

9408

$$SET

”
L664

9576

B 7

9354

9152
887
893
7724

9260

9036
8484
8484
11

$$SK1P

10749

2091
2397

10:48

CROSS REFERENCE TABLE -- MACRO NAMES

10378
11038
6674
67462
;;22

$SCMRE
SSCMTM
$SESCA

SONEWT

2538

25-MAY-79

7720
2340

2615

2086
2344

30A(1052)

1L
2336

2611

VECSET

7720
7724
1720

MACY1T

11030

4689
7002
9245

892
898

CIRJJDO, RPO4/S5/6 FCTINL CTRLR2
CZRJJID.P11
28-MAR-79 08:52
1L

.$5820

.$SC0OP
.$S112¢E

1L
1L

603#

10442

6034

11282

.$TYPD
.STYPE

1L
|

6034
6034

10505
10572

.$40CA
L1170

1
14

.$SUPR

.STRAP

.$1YPB

.$T1YPO

ABS.

062662

ERRORS DETECTED:

603¢

MACY11

7
c
30A(1052)
25-MAY=79
10:48
PAGE 290
CROSS REFERENCE TABLE == MACRO NAMES

11205

000

DSKZ:CZRJJD.BIN,DSKZ:CZRJID.LST/CRF/SOL/NL:TOC:MD:MC:CND/L]:ME-CZRJID.SML,CZRUJD.PTI]
RUN-TIME: 103 142 7 SECONDS
RUN-TIME RAT]O: 562/254=2.2

CORE USED:

37k

(73 PAGES)

SEQ 0287