Digital PDFs

AH-9225D-MC

November 1979

289 pages

Original

153MB

view download

OCR Version

229MB

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

CIRIIN0, RPOG/S/6 FCINL CTRLRZ

(1R3J0.P1

28-MAK=79 0B:57

MACY!Y

30AC1052)

295=MAY=79

10:48

PAGE
?

.REM 3

IDENTIFICATION
r

PRODUCT CODE:

AC-9223D-MC

PRODUCI NAME:

CZRJJDO RP04/5/6 FUNCTIONAL CONTROLLER TEST PART 1[I

DATE CREATED:

MAY, 1979

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

PETE BLACKSTONE

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE

WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A

COMMITTMENT BY DIGITAL EQUIPMENT CORPORATION.
DIGIT!IAL EPUIPMENT CORPORATION ASSUMES NC
:iSPgNSlBlLlTY FOR ANY ERRORS THAY MAY APPEAR IN THIS
NUAL.

THE SOF TWARE DESCRIBED lN THIS DOCUMENT 1S FURNISHED
TO THE PURCHASER UNDERA LICENSE FOR USE ON A SINGLE
COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION OF
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 ITS
SOF TWARE ON EQUIPMENT THAT 1S NOT SUPPLIED BY DIGITAL.

DIGITAL

POP

UNIBUS

MASSBUSS

SEQ 000!

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

MACY11 30A(1052)
DEC

25-MAY-79
DECUS

EQUIPMENT

STORAGE

PRELIMINARY PROGRAMS

LOADING PROCEDURE

METHOD

STARTING PROCEDURE

CONTROL SWITCH SETTINGS
STARTING ADDRESS OR ADDRESSES

»
wv

OPERATING PROCEDURE

OPERATIONAL SWITCH SETTINGS

SUB-ROUTINE ABSTRACTS

ERRORS

'FATAL' ERRORS

RESTRICTIONS

MISCELLANEOUS

EXECUTION TIME
STACK POINTER

OPERATOR SELECTABLE SCOPE LOOPS

B
B
.

0
©

PROGRAM AND/OR OPERATOR ACTION

REQUIREMENTS

ABSTRACT

p—y

CONTENTS

PROGRAM REVISION

HISTORY

PROGQAH DESCRIPTION

10:48

¥
PAGE ?

DECTAPE

SEQ@ 0002

CIZRJJIDO, RPO4L/5/6 FCTNL CTRLR2
CZRJJD.PII
28-MAR-T79 08:52
1.0

MACY11 30A(1052)

25-MAY-79

10:48

1
PAGE &

ABSTRACT

THIS DIAGNOSTIC TESTS THE DCL OF THE RP0O4/5/6 DISK SUBSYSTEM
WHEN CONNECTED TO EITHER AN RH11 OR RH70 CONTROLLER.
IT 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 IT IS ESSENTIAL.
AFTER A SUCCESSFUL RUN (WITH
NC ERRORS) OF THIS DIAGNOSTIC IT CAN BE ASSERTED THAT THE

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

SYSTEMS INTERACTION AND DRIVE TIMING IS LEFT 10

OTHER DIAGNOSTICS.
(DZRPS AND DZRPT

2.0

REQUIREMENTS

2.1

EQUIPMENT

THIS 1S WITH THE ASSUMPTION THAT STATIC 1

) HAS BEEN RUN SUCCESSFULLY.

PDP=11 COMPUTER WITH CONSOLE TELETYPE, AND A RP04/5/6 DISK
SYSTEM.
THE RP0&4/5/6 DISK SYSTEM WILL CONSIST OF AN RH11
CONTROLLER, A DISK CONTROL LOGIC (DCL), A DEC 733 D1SK

DRIVE, AND 1TS APPROPRIATE DISK PACK.
THE DISK PACK NEED
USED SECTION OF THE DISK SURFACE SHALL
BE GOOD (HOLE FREE).
THE SURFACE FOR THE FOLLOWING SECTORS
MUST BE GOOD, THAT IS, FREE OF ANY HOLES OR SURFACE
%"2‘“8&?2"' BEFORE ANY DATA ERROR CAN BE ATTRIBUTED 10
NOT BE FORMATTED.

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
410,TRACK

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

SECTOR 00
SECTOR 01
SECTOR 21
SECTOR 00
SECTOR 00
SECTOR 00
SECTOR 00
SECTOR 00
SECTOR 04
SECTOR 00
SECTOR 00
SECTOR 00
SECTOR 21
SECTOR 21

STORAGE

THIS PROGRAM REQUIRES 16K WORDS OF MEMORY

2.3

PRELIMINARY PROGRAMS

THIS PROGRAM ASSUMES THAT MAINDEC=11-DZRJG=(LATEST

REV) HAS BEEN RUN WwITHOUT ERRORS.

1T ASSUMES THAT MAINDEC=11=DZRJH=(LATEST

REV) HAS BEEN RUN WITHOUT ERRORS.

SEQ 0003

(Z JJDO, RPO4/5/6 FCTIN L ggnggz
(2 JJD.PIN
28-MAR-7 9

MACY11

30A(1052)

25-MAY-79

10:48

PAGE 5

AND 1T ASSUMES THAT MAINDEC=11-DZRJI=(LATEST
REV) HAS BEEN RUN WITHOUT ERRORS.

3.0

LOADING PROCEDURE

USE STANDARD PROCEDURE FOR LOADING .ABS TAPES
4.0

STARTING PROCEDURE

SWITCH 12 MUST BE SET WHEN THIS PROGRAM IS TO BE RUN USING AN

RH70 CONTROLLER.
1T CAN BE SET AT THE FRONT PANEL, OR IN THE
SOF TWARE SWITCH REGISTER IF THE OPERATOR SO DERSIRES.
SEE
S;E:g??gfl 5.1 FOR A DESCRIPTION OF SOFTWARE SWITCH REGISTER
N.

4.1

CONTROL SWITCH SETTINGS

SEE SECTION 5.1
4.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 1S 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 INTERROGATE 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

THE PROGRAM.

PROGRAM AND/OR OPERATOR ACTION

LOAD THE PROGRAM INTO MEMORY.

SET STARTING ADDRESS ON THE SWITCH REGISTER

PRESS "'LOAD ADDRESS'.

SEQ 0004

CIZRJJDO, RPO4/5/6 FCINL CTRLR2
CZRJJD.PY
28-MAR-79 08:52
&.

MACY11 30A(1052)

25-MAY-79

10:48

PAGE ¢

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

WORST

CASE

IS 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 IF 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' 1S PRINTED.

THE SECOND

AND SUBSEQUENT PASSED DO NOT NEED ANY OPERATOR INTERVENTION.
5.0

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS

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

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

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

THE PROGRAM WILL RECOGNIZE A 'CONTROL G' AT ANY
"CONTROL G'.
TIME EXCEPT WHEN 1T IS 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 ZEROS 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
SU&TCH SETTINGS'' HOWEVER THE DETAIL DESCRIPTION ARE GIVEN

HERE

SWITCH 15 = HALT ON ERROR
WHEN THIS SWITCH 1S 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 TILL THE NEXT
ERROR 1S FOUND WHEN THE SAME THING WILL HAPPEN.

SWITCH 14 = LOOP ON TEST

WHEN THIS SWITCH 1S SET THE PROGRAM WiLL BEGIN TO LOOP

SEQ 0005

CZRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRJJD.PI
28-MAR-79 08:52

MACY11 30A(1052)

25-MAY-79

10:48

PAGE 7

ON THE CURRENT TEST BEING EXECUTED.
FOR EXAMPLE IF THIS
SWITCH 1S SET WHEN THE PROGRAM IS IN TEST 10 THEN THE
PROGRAM WILL KEEP EXECUTING ALL OF TEST 10 REPEATEDLY.
ONE WAY T0 BE SURE THAT THE PROGRAM IS IN THE EXPECTED
TEST IS 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 WILL

CEASE, HOWEVER OPERATOR INSTRUCTIONS SUCH AS ''STOP DRIVE x*'

WILL CONTINUE.

AT THE END OF PASS ''TOTAL NUMBER OF ERRORS
ON THIS PASS ON DRIVE X'' WILL BE TRUE, THAT IS, ALTHOUGH
PRINTOUTS WERE INHIBITED IF THAT PASS FOUND 6 ERRORS,
IT WiLL SAY SO.

SWITCH 12 = RH70 CONTROLLER SELECT

THIS SWITCH MUST BE SET AT THE START OF

THE PROGRAM WHEN THE

DISK DRIVES TO TESTED ARE CONNECTED TC AN RH70 CONTROLLER.
1T 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
ggEERSPEAl EACH TEST FOUR TIMES BUT WILL DO EACH TEST
NLY.

SWITCH 10 - BELL ON ERROR
WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR
THE "BELL'' OR "ALARM'' WILL BE SOUNDED.
THIS SWITCH IS USEFUL
WHEN SWITCH 11 IS SET YET INFORMATION IS NEEDED WHEN ANY ERROR

1S DETECTED. TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH
THEN IF THIS SWITCH IS
SWITCH 11 SET TO HELP SCOPING.
1T MEANS THAT THE ERROR
SOUNDS
SET AND THE BELL OR ALARM
1S PRESENT BUT IF THE BELL OR ALARM STOPS IT 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 1S FOUND IT WILL AGAIN LOOP BACK TO
THAT "'SCOPE'' STATEMENT.
THIS LOOPING WILL CONTINUE AS LONG
THIS SWITCH IS SET. HOWEVER
AND
PRESENT
AS THE ERRCR 1S

IF THE ERROR 1S NOT PRESENT AT ANY TIME THEN IT WILL
CONTINUE NORMALLY WITH THE PROGRAM. EACH TIME THE ERROR
1S ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11
1S ALSO SET. DURING BEGUG, USING A SCOPE, IT IS RECOMMENDED
THAT

SWITCH 11

IS ALSO SET.

NOTE: SEE SECTION 8.3

SEQ 0006

CIRJJIDO, RPO4/S5/6 FCTNL CTRLR2
CZRJJD.P1
28-MAR-79 08:52

MACY11

30A(1052)

25-MAY-79

10:48

Feategun

PAGE &

SEQ 0007

SWITCH 8 = LOOP ON TEST IN SWR <7:0>
THIS 1S A SPECIAL SWITCH.
WHEN SET SWITCHES O 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 THIS SWITCH IS SET THEN SWITCHES 0 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 10O 10
WiLL BE EXECUTED AND THEN TEST 10 wiLL BE REPEATED OVER
AND OVER AGAIN.

WHEN THIS SWITCH

IS NOT SET

THEN SWITCHES

0 THRU 7 HAVE THE MEAING I1TS NAME INDICATES.
FOR EXAMPLE SWITCH 7 1S "'STOP FURTHER COMPARES: THAT IS
IF 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 Tt 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 SWITCH 1!
THEN THE NEXT ERROR THAT

THE PROGRAM DETECTS

SEQUENT TEST WILL ALSO BE LOST.
THIS GROUP OF

IN A SUB-

BUT WITH SWITCH 7, ONLY

DATA ERRORS ARE NOT PRINTED OUT.

ANOTHER

EXAMPLE OF SWITCH B BEING LOW IS 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 CLOCK,

COMPARES WILL ONLY BE DONE AT THE END OF

NOTE:

ALL THE CLOCKS.

SEE SECTION 8.3

SWITCH 7 = STOP FURTHER COMPARES IF SW08 IS LOW.
IF SWITCH 8 1S SET AND THIS SWITCH IS ALSO SET THEN THIS
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED
IF SWITCH 8 IS NOT SET
IN THE DESCRIPTION OF SWITCH 8.
AND THIS SWITCH IS SET THEN THE PROGRAM WILL 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.
IT IS 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 SW08 IS LOW
IF SWITCH 8 IS 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

S
—————e

CIRJJIDO, RPO4L/5/6 FCINL CTRLR2
CZRJJD.P1
28-MAR-79 08:52

MACY11

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

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
ADDRESS TO DETERMINE

6.1

'"FATAL'

THE CAUSE OF

THE ERROR.

ERRORS

IN THE EVENT THAT THE DISK DRIVE ECOMES UNAVAILABLE TO THE
CONTROLLER, POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS
CANOT BE CLEARED PRIOR TO THE START OF ATEST SEQUENCE - THIS
INFORMATION WILL BE COMMUNICATED TO THE OPERATOR.
IN
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
T0 SOLVE THE PROBLEM.
IF THE FILURE CONTINUES TO OCCUR,
THERE ARE TWO OPTIONS FOR THE OPERATOR:

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

IT IS ALSO POSSIBLE TO CONTINUE FROM THE 'HALT' POINT, BUT

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 1T IN THE PROGRAMMABLE STATE.

SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND
IT MUST NOT BE SET WHEN RUNNING ON AN RH11 CONTROLLER.
BECAUSE OF THE REQUIREMENT FOR 1T TO BE SET WHEN USING AN
RM70, THE PROGRAM CANNOT BE RUN IN CHAIN MODE WHEN USING THE

SEQ 0008

CZRJJDO, RPO4L/5/6 FCINL CTRLR2
CZRJJD.PT
28-MAR-79 08:52

MACY11

30A(1052)

25-MAY-79

10:48

1
PAGE 10

SEQ 0009

SOF TWARE REGISTER FEATURE WHILE RUNNING ON AN RH70.
THIS IS
BECAUSE THE ROUTINE WHICH GETS SOF TWARE SWITCH SETTINGS IS

NOT OPERABLE WHEN IN CHAIN MODE.

MISCELLANEOUS
EXECUTION TIME

THE FIRST PASS OF

THE PROGRAM WILL TAKE APPROXIMATELY 20

SECONDS.
SUBSEQUENT PASSES WILL TAKE
60 SECONDS .
8.2

STACK POINTER

THE STACK

8.3

IS INITIALLY SET TO 1000

OPERATOR SELECTABLE SCOPE LOOPS

HERE 1S A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS.
FOR INSTRUCTIONS REGARDING THE USAGE OF THIS TECHNIQUE, HIT *(
ANY TIME WHILE THE PROGRAM IS RUNNING.
ON HITTING AN ERROR

IF THE LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BACK USUALLY BACK TO THE BEGINNING OF THE TEST.

WHEN THIS OPERATOR SELECTABLE SCOPE LOOP 1S 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
LOOP ON ERROR SWITCH MUST BE SET
2.

THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION
3.
1F THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION
THE PROGRAM WILL 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 IT
COMES TO THE END OF THE TEST UNDER CONSIDERATION.

AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN
NORMAL OPERATION WILL CONTINUE.
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 TO SERIAL
SYNC. BYTE DETECT.

SEEK AND SEARCH (SS) =

SEEK LOGIC SEARCH LOGIC HEADER

CZRJIJIDO, RPO4/5/6 FCTINL CTRLR2
CZRJJD.PN
28-MAR-79 08:52

MACY11 30A(1052)

25=MAY=79

10:48

1
PAGE 11

SEQ 0010

HANDLING.

ERROR CORRECTION (EC)

- ECC LOGIC ERROR REGISTER 2 & 3
MUX FOR ERROR REG. 2 & 3 LOOK AKEAD
REG. SECTOR COUNTER DATA FORMATION
RING COUNTER.

DUAL

(DP)

PORT

DUAL PORT ARBITRATION ATTENTION L 0GIC
SERIAL NO REGISTER MASS BUS REGIS TER

STORAGE

9.2

DISK SURFACE USAGE
SYMBOLS USED
C = CYLINDER
TRACK

1
S

o
R
TT

SECTOR
WRITE
=

READ
TEST

NUMBER

0, 10, SO

T125-W,R,

T1726-W,R,

TT135-W,R,

0, 0 S1
, T137-u,R, 1740-R, TT141-W,R,

TT42-W,R,

TT43-W,R

1722-u.R,

T123-R,

T1724=W,
R,

118 S21

(4, T18, S21
T131-w

(5, 10, SO
T131-w,R

1753-u.R,

T154-w,R

1150-w,

T151-W,R,

1152-wW,R,

T155-W,R

CIZRJJDO, RPO4L/S5/6 FCTNL CTRLR2

C(ZRJJD.P1I

MACYT1 30A(1052)

28-MAR-79 08:52
€S,

25-MAY-79

10:48

1
PAGE 12

17, S&

T133-w.R, T134-w,R
(5, 118, s21
T131-w

(6, 10, SO
T131-w,R

(6, 118, S21
1131-w

7, 10, sO
1131-uw,R
(7, 118, S18
T131-w
(8, 10, SO
T131-wW,R

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

(9, 118, S21
T131-w,

T732-R

10, 10, SO
T131-w,R

(410, 118, S21
T136-w,R,

9.3

T750-w,R

THE FOLLOWING SECTION DESCRIBES EACH TEST AND SUBROUTINES

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

THE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING

WHERE
Q

THAT

JTEM WiLL BE

FOUND.

SEQ 0011

CZRJJDO, RPO4/S5/6 FCINL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52
603
604
605
606
607
608
609
610
611
612
613
614
615

MACY11 30A(1052)

25-MAY-79

10:48

PAGE 13

LTITLE
CZRJJDO, RPO4/5/6 FCTNL CTRLR2
;
;*COPYRIGHT (C) 1976,1978
;*DIGITAL EQUIPMENT CORP.
'HAVNARD MASS. 01754

'PROGRAH BY PETE BLACKSTONE

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

/o N\
s/eN\s/e\/e\/e\/e\/o\:/e\:/x\: Je\cs/e\c/oe\o/e\/e\s/oe\o/o\/oe\/e\
/2 \;
/e
/e\:/e\:
/R\z
\/
/N2
/e\/e\/e\/e\
o
/x\
e\
Je\:
s/eN\c/e\s/e\/e\/e
/2N
/N
e\ / e\
/e\s/
Je\:/e\:s/e\/e\/e\/e\/e\/e\:/o\:/\:
e\ /e\/
s/eN\

;DRIVE MUST BE LOCKED ON PORT A OR PORT B
/N \w o\ /o N\ /o \w/ o \w /o \w /o \w/ o \w/ o\ /i \n /i \w/ o\ /i \0/\n/\2/\#/\n
sl
\w/ o\ /o N/ \w/ o\ e/ \w/\w /o \w/ o\ /o \w /o \w/ o\ [\ /o \n/ o\ /2 \v/:\n
s/a\e/\w/ N/ o\ /o \w /o \wfo\w /o \w/ o\ /o \w /o \w/ o\ /o \w/ N0/ \w /o \0/\v/ o\ n
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644

645

;*INTERNAL PROGRAM MACROS BEGIN HERE

;"""Q"'t't""""""""t."'tt

t"'t'"'""""".""""'."'""""i""t""l'll""'tl'

'NOTE ALL MACRO CALLS BEGINNING WITH ''.$'" ARE SUPPLIED FROM AN
.

.
l

655

656

657

R R
R R R y
R
2222222222222 22222 222222

S BTTL

OPERATIONAL SWITCH SETTINGS

T
I

. v

SWITCH

USE

‘¥

TR TR TR

%
M

LR
L

654

‘¥
C

651
652
653

T0 THE SOURCE PROGRAM AT ASSEMBLY TIME.

646

647
648
649
650

EXTERNAL SYSMAC.SML PACKAGE UHICH MUST BE MADE AVAILABLE

5
4

HALT ON ERROR
LOOP ON TEST

1
0
Q

INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR

3
2

INHIBIT ERROR TYPEOQUTS
RH70 CONTROLLER SELECT

SEQ 0012

CZRJJIDO, RPO4/5/6 FCINL CTRLR2

CZRJJD.PNN
658
659
660
661

28-MAR-79 08:52

MACY11 30A(1052)

25-MAY=79

10:48

OPERATIONAL SWITCH SETTINGS
L
4
A

8
7
6

PAGE 14

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

SEQ 0013

662
663

664

665

666

30A(1052)
25-MAY-T79
BASIC DEFINITIONS
.SBTTL

001000

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
697
698

MACY11

000011
000012

000015
000200
177776

000000
000040
000100
000140
000200
000240
000300
000340
100000

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

"'ua

SEQ 0014

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER #ee¢ 1000 #ee

STACK=

LEQUIV
.EQulv

1000

EMT,ERROR
107,SCOPE

;;BASIC DEFINITION OF ERROR CALL
;:BASIC DEFINITION OF SCOPE CALL

;*MISCELLANEOUS DEFINITIONS
"
;;CODE FOR HORIZONTAL TAB
LF=
12
;;CODE FOR LINE FEED
(R=
15
;;CODE FOR CARRIAGE RETURN
CRLF=
200
;;CODE FOR CARRIAGE RETURN-LINE FEED
PS=
177776
; PROCESSOR STATUS WORD
HT=.

.EQUIV

STKLMT=
PIRQ=
DSWR=
DDISP=

000007

W08

ROR1=
R2=
R3=
R4=
RS=
R6=
R7=
SP=
PC=

PS,PSW

177774

;s STACK LIMIT REGISTER

177570
177570

; sHARDWARE SWITCH REGISTER
: sHARDWARE DISPLAY REGISTER

177772

21
%2
%3
%4
%5
X6
X7
%6
x7

; ;PROGRAM INTERRUPT

ER DEFINITIONS
; GENERAL REGISTER

s sGENERAL REGISTER
s s GENERAL REGISTER
s s GENERAL REGISTER
; s GENERAL REGISTER
s s GENERAL REGISTER
s s GENERAL REGISTER
: sGENERAL REGISTER
;:STACK POINTER
; ;PROGRAM COUNTER

;*PRIORITY LEVEL DEF1N1110NS

PRO=
PR1=
PR2=
PR3=
PR4=

0
40
100
140
200

PR6=
PR7=

300
340

PRS5=

240

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;*"'SWITCH REGISTER' SWITCH DEFINITIONS
SW15=
100000
SWi4é=
40000
Swi3=
20000
10000
Swi2=
4000
Swil=
Swi0=
2000
Swo7=
SW06=
Sw05=
SWwos=

1000
400
200
100
40
20

Sw02=

SWw09=
Sw08=

SWw03=

NOWVES
NN —O

C(IRJJDO, RPOL/5/6 FCINL CTRLR2
(IRJJD.P1Y
28-MAR-79 08:52

REQUEST

759

760
761
762
763
764
765
766
767
768
769
770
771

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

2
PAGE

O =MW
N

O
N

R
R
B
B
T
e
e
e

~
=
~
-

CD 0D O O

Gt Gt Gt Bt Bt Pt

D T CD 0 O

et Bt bt

[elelelelelelelelele]
O==NWSH NN
O

o oo

100000
40000
20000
10000
4000
2000
1000
400
200
100

et
bt e et
e
s
e

B1T DEFINITIONS (BITOO TO BIT15)

DDDDODDDDODE NS —N ~

jmi=lelelelelelelel
=t aturtrtu >
O=NWSI VO NOOVO =W
W pu—y

it o

—

e 3o
e
Bt ek b0 b
b

B
o Es S

T
bt
T
st

10:48

2
1
SW09,Sw9
SwW08,5w8
SWO7,Sw7
SWO06,SW6
SWO05,SW5
SW04,SWé4
SWO03,S5w3
Sw02,Sw2
SWO01,Sw1
SW00,Sw0

_— 4
——

757
758

e I

751
752
753
754
755
756

748
749
750

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

725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747

e B

722
723
724

swo1=
swo0=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQulv

[~
<

720
721

000002

000001

718

719

25-MAY-79
30A(1052 )
cD
BASI
EFINITIONS

MACY11

CIZRJJDO, RPO4L/5/6 FCTINL (1 LR 2
CZRJJD.P1
28-MAR-79 08 52

;*BASIC "'CPU'" TRAP VECTOR AADDRESSES

ERRVEC= &
RESVEC= 10
TBITVEC=14

:sTIME OUT AND OTHER ERRORS

BPTVEC
10TVEC

: ;BREAKPOINT TRAP (BPT)
s INPUT/0UTPUT TRAP (10T) #«SCOPE*+
:sPOWER FAIL
:EMULATOR TRAP (EMT) «+ERROR*+

TRTVEC

TRAPVEC=34
TKVEC=
TPVEC=

60
64

PIRQVEC=240

: {RESERVED AND ILLEGAL INSTRUCTIONS
;s TRACE

TRAP

::'"TRAP'' TRAP

;311Y KEYBOARD VECTOR
::T71Y PRINTER VECTOR

: ;PROGRAM INTERRUPT REQUEST VECTOR

SEQ 0015

CZRJIDO, RPO4/5/6 FCIN L CTRLR2
CZRJIJID.P1Y
28-MAR-7 9 08:52

MACY11 30A(1052)

25-MAY=79

TRAP CATCHER

.SBTTL

10:48

2
PAGE 17

TRAP CATCHER

.=0

000000

;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘.42, HALT"

;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

000174
000176

'LOCA110N19 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

DISPREG: .WORD
.WORD
SWREG:
.SBTTL

0
0

;s SOFTWARE DISPLAY REGISTER
;s SOFTWARE SWITCH REGISTER

ACT11 HOOKS

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

000046

000052

000200
000204
000210

000220

HOOKS REQUIRED BY ACT1
ssz:c-

000200
000046

iiggw

033104
000052
020000
000200

000200
000137
000137

000137
000220
000137

.WORD

=$SVPC

004712
035460
004676

:SAVE PC

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP
20000

::2)SET LOC.52 TO 20000
i RESTORE PC

.SBTTL

STARTING ADDRESS

RA:

.=200
JMP

a#/BEGIN

:NORMAL START

JHSZO

MBEGIN2

“JUMP TO SELECT DRIVE START

JiP

a/BEGINI

:JUMP TO NO OPERATOR TESTS START

ADDMOD:

004662

JMP

ANBASE CH

“GET DEVICE PARAMETERS

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

'STARYING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE

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

THE DRIVE

SEQ 0016

MACY11

30A(1052)

25-MAY-79

MEMORY MANAGEMENT

.SBTTL

10:48

2
PAGE 18

DEFINITIONS

MEMORY MANAGEMENT DEFINITIONS

;*KT11 VECTOR ADDRESS
000250

MMVEC=

250

;*KT11 STATUS REGISTER ADDRESSES
SRO=
SR1=
SR2=
SR3=

VEWN—=O0o~NCwnS WA

177572
177574
177576
172516

;*KERNEL ''1'' PAGE DESCRIPTOR REGISTERS
K1PDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=

172300
172302
172304
172306
172310
172312
172314
172316

;*KERNEL ''1'' PAGE ADDRESS REGISTERS

NNNNNNNN

rororoNNN
NN
w
&~

00 Co Oo Co Co Co Co 0o Co 0o 0o OO

= O 000N
VI WY —

00 0o 0o 0o OO Co 0o Oo 0o 0o oo
=
s e
b
e
s—
WWWWWWNI
NN NN POIPONIN

CIZRJJIDO, RPO4L/5/6 FCTINL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

001110

K1PARO=

KIPAR1=
KIPAR2=
KIPAR3=
K1PAR4=
KIPARS=
KIPAR6=
KIPAR7=

172340

172342

172344

172346
172350
172352
172354
172356

SEQ 0017

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

g:g

LSBTTL

850

851
gg%
854
855
856
857
858
859
860

001100
001100
001102
001103
001104
001106
001110
001112
001114
001115

001132
001134
001135
001136
001140
001142
001144
001146
001150
001152

883

001156

884

2222222222222

001116
001120
001122
001124
001126
001130

001100

$CMTAG:
$PASS:
$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
$ITEMB:
$ERMAX:

000000
000
000
000000
000000
000000
000000
000
001

000000
000000
000000
000000
000000
000000

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

000000
000
000
000000
177570

001154
001155

001157

000

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

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

177570
177560
177562

177564
177566
000
002

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

012

0
0
0
0
0
0
0
0
1

0
0
0
0
0
0

O
0
0
O
DSWR

DDISP

SEQ 0018

R R

R A R

R A R R R R

R Y ]

0
O
O
O
0
O

897
898
899
900

001206
001210
001212
001214

000000
000000
000000
000000

$TMP4(: WORD
$TMPS: .WORD
$TIMES: 0
$ESCAPE:0

O
O

001222
001223

077
015

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

000377

:;ADDRESS OF SWITCH REGISTER
: ;ADDRESS OF DISPLAY REGISTER
;:T1TY KBD STATUS
;:TTY KBD BUFFER
::TTY PRINTER STATUS REG. ADDRESS
::YTV PRINTER BUFFER REG. ADDRESS

;;CONTAINS
;;CONTAINS
;sCONTAINS
; sCONTAINS
::CONTAINS
;;CONTAINS

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

177607

:;AUTOMATIC MODE INDICATOR
::INTERRUPT MODE INDICATOR

;2 'TERMINAL AVAILABLE'' FLAG (B1T1<07>= 0=YES)

$REGO:
$REG1:
$SREG2:
$REG3:
$REG4:
$REGS:

001216

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

$REGAD: .WORD

000000
000000
000000
000000

COMMON TAGS
PASS COUNT
THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
1TEM CONTROL BYTE
MAX. ERRORS PER TEST

$TPFLG: .BYTE

$FILLC: .BYTE

000000
000000
000000
000000
000000
000000

001176
001200
001202
001204

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

0
2

001162
001164
001166
001170
001172
001174¢

902
903

$NULL: .BYTE
$FILLS: .BYTE

887
888
889
890
891
892

901

22223232333

.=1100

000000

893
894
895
896

PAGE

COMMON TAGS

001160

885
886

'IHlS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
:*USED IN THE PROGRAM.

861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880

881
882

MACY11 30A(1052)
25-MAY-79
COMMON TAGS

10:48

$BELL:

$QUES:
$CRLF:

.WORD
.WORD
.WORD
_WORD

.ASCIZ
.ASCII
LASCII

0
0
0
0

:CONTAINS NULL CHARACTER FOR FILLS
..CONTAINS # OF FILLER CHARACTERS REQUIRED

::INSERT FILL CHARS. AFTER A "'LINE FEED"'

;;CONTAINS THE ADDRESS FROM
::WHICH (SREGO) WAS OBTAINED

((SREGAD)+0)
((SREGAD)+2)
((SREGAD)+4)
((SREGAD)+6)
((SREGAD)+10)
((SREGAD)+12)

;sUSER DEFINED
:sUSER DEF INED
:sUSER DEFINED
;sUSER DEFINED

s sUSER DEFINED
; USER DEF INED
::MAX., NUMBER OF ITERAT]IONS
;. ESCAPE ON ERROR ADDRESS
<207><377><377> ;;CODE FOR BELL
;sQUESTICON MARK
/?/
;s CARRIAGE RETURN
<15

———————————]

CIRJJIDO, RPO4L/5/6 FCINL CTRLR2

(ZRJJD.PY
904

905

001224

28-MAR-79 08:52
000012

MACY11

30A(1052)

25-MAY=79

COMMON TAGS

$LF:

ASCIZ

<12

10:48

2
PAGE 20
;sLINE FEED

R
R
Y

SEQ 0019

CIRJJIDO, RPO4L/S5/6 FCTNL CTRLR2

CZRJJD.PI

28-MAR-79 08:52

MACY11

30A(1052)

25-MAY-79

ERROR POINTER TABLE

10:48

2
PAGE 2!

38?

.SBTTL

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 ITEM IN THE TABLE IS PERTINENT.
;*NOTE1:
IF SITEMB 1S O THE ONLY PERTINENT DATA IS (SERRPC).

g}%

g}g

919

920
921

922
923
924

925
926

o
i

001226

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

:*NOTE2:

914

915
916

ERROR POINTER TABLE

::POINTS TO THE ERROR MESSAGE

DFf

::POINTS TO THE DATA FORMAT

DH
DY

$ERRTB:

:1TEMY

001226

043014

927
928
929
930
931

001230

057737

933
ggg

001232
001234

062210
062530

001236

043043

001240

057737

DH1

001242

062210

D11

001246

043132

951
952
953
954

001250

05773%7

DH1

956

001252

062210

D11

932

936
937
938
939
940
941
942
943
944

945

84?
'A

948

949
%50

955

957

958

959

960
961

001244

001254

001256

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

DH1

:1TEM2

062530
;1TEM3

:PC
:WAT PC
:BIT WAITED
:REG ADDRESS

;REG CONTENTS
:RHCS1 CONTENTS

(S
:$ERRPC,WAITPC,WAITBT,WwAITRE,$BDDAT,
;0,0,0,0,0,0

EM2

: INTERRUPT ENABLE BIT DOWN BUT
:WAITED ON BIT DID NOT OCCUR
:PC
:WAT PC
:B1T WAITED
:REG ADDRESS
:REG CONTENTS
;RHCS1 CONTENTS

EM3

DF1
:1TEMG

:RPO4 DID NOT INTERRUPT
:WAITED ON BIT DID NOT OCCUR

DT
DF1

DF1

062530

043213

EMI

EMG

:$SERRPC,WAITPC,WAITBT,WAITRE,$BDDAT,
(S
;0,0,0,0,0,0

:RPO4 DID NOT INTERRUPT WHEN
:WAITED ON BIT DID SET
:PC
(WAT PC
:BI1T WAITED
:REG ADDRESS
:RHCS1 CONTENTS

,$BDDAT,CS!
,WAITBT
,WAITRE
:SERRPC,WAITPC
:0,0,0,0,0,0

;WAITED ON BIT DID SET BU!

;TIME IS IN ERROR

SEG 0020

CIRJJIDO, RPO4/S5/6 FCTNL CTRLR2

CZRJJD.P1I

28-MAR-79 08:52

MACY11

30A(1052)

25-MAY-79

ERROR POINTER TABLE

962

963
964
965

966
967
968
969

001260

060117

001266

043324

001270

060260

DHS

001272
001274

062252
062546

DT5
DFS

983
984
985

001276

043376

001300

060377

DH6

gg?

001304

001302

062266

DT6

001306

043464

001310

060476

DH7

001312
001314

062300
062557

D17
DF7

001316

043534

001320

060536

978
979
gg?

982

986
987
988
989

992

993
994
995
996
997
998

999

1000
1001
1002
1003
1004

1005
1006
1007
1008
1009

001264

;1TEMS

;1TEMG

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

EMS

;RHAS DOES NOT CLEAR BY
;MOVING IN ALL ONcS
:PC
;REG. ADDR.
;GOOD DATA
;RECEIVED DATA

; SERRPC ,REGADR,$GDDAT
,$BDDAT
:0,0,0,0

EM6

;LOADING RHER1 FOR ALL
;UNITS DID NOT SET ANY BITS
: IN RHAS=NO UNITS PRESENT
$Pe
:REG ADDR
;RECEIVED DATA

;SERRPC ,REGADR,$BDDAT

DF6
;1TEM7

;1TEMI0

:0.,0,0

;SPECIFIED REGISTER NONEXISTANT
;SO ABORT PROGRAM
14!
;ADDR. OF REG.
;SERRPC,TEMP]
:0.0

EM7

EM10
DH10

1014

001326

043603

1017

001330

060536

1015
1016

DF&

062553

062310
062562

1013

;BIT WAITED
;REG ADDRESS
;TIME IN 10 MSEC
;SERRPC ,WAITPC ,WAITBT ,WAITRE ,$BDDAT ,WAITIM

DT4

062537

001322
001324

1010
}8};

; (DECIMAL)
:PC
;WAT PC

DH4

062230

972
973
974
975
976
977

g
PAGE 22

;TIME IS GIVEN IN 10 MICRO SEC.

001262

g;?

10:48

DT10
DF10
J1TEMI

EM1
DH10

;STOPED DRIVE HAS MOL BIT
:IN RHDST = 1
3P
;TEST NO
;FAILING REG ADDR
;CONTENTS OF RH(CS!

;CONTENTS OF RHCS2
;CONTENTS OF RHDS!
;CONTENTS OF RHERI
;SERRPC,$TSTNM,$BDADR,(S1,(S2,DS1,ER]
:0,0,0,0,0,0,0
;WITH SPINDLE POWERED DOWN

;RHCS2 SHOULD HAVE ONLY
;UNIT NUMBER AND IR HIGH
JPC

SEQ 0021

CZRJJDO, RPO4/5/6 FCINL CTRLR2

CZRJJD.PY

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

10:48

2
PAGE 23

SEQ 0022

;TEST NO
sEAILING REG. ADR

sCONTENTS OF RHCST
sCONTENTS OF RHCSZ2

001340

;1TEMT?

062310
062562

001346

044016

EM12
DH10

060536

001342
001344

043710

001336

;ITEM13

062310
062562

001332
001334

;CONTENTS OF RHDSI

1031
1032
1033
1034
1035
1036
1037
1038
1039
1040

ERROR POINTER TABLE

1029
1030

25-MAY-79

1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028

28-MAR-79 08:52

MACY11 30A(1052)

EM13

;CONTENTS OF RHER!

:SERRPC,$TSTNM,$BDADR,(CS1,(S2,DS1,ERT
;0,0,0,0,0,0,0
sAFTER A POWER UP WITH
;sNO PACK ACKNOWLEDGE COMMAND

:22051 SHOULD HAVE MOL=1, vv=0
;TEST

sFAILING REGISTER ADDR.
;CONTENTS OF RHCSI
;CONTENTS OF RHCS?
;CONTETNS OF RHDSI
;sCONTENTS OF RHER1
SERRPC,$TSTNM,$BDADR,(S1,(S2,DS1,ERT
;0,0,0,0,0,0,0

;AFTER A POWER UP WITHOUT
;ANY INIT RHCS1 SHOULD

;HAVE GO=0, DVA=1, RDY=1

001350

001352
001354
001356

DH10

060536

;PC

;TEST NO
sFAILING REGISTER ADDR.
;CONTENTS OF RHCS!

;CONTENTS OF RHCS?
;CONTENTS OF RHDS1
:CONTENTS OF RHER1

;SERRPC,$TSTNM,$BDADR,(S1,CS2,DS1,ERT
;0,0,0,0,0,0,0

062310
062562

044135

:1E=0, DISREGARD
:ALL OTHER BITS

;ITEMIG

;AFTER POWER UP RHCC

; SHOULD BE=0

001360

0602¢0

001362
001364

062252
062546

,$BDDAT
;$ERRPC,REGADR,$GDDAT
;0,0,0,0

;REG. ADDR.
;GOOD DATA
sRECEIVED DATA

CZRJJIDO, RPO4/S/6 FCINL CTRLR 2

CIRJJD.P1
1067
1068
1069
1070

28-MAR-79 08:52

MACY11

30A(1052)

25-MAY-79

ERROR POINTER TABLE
;1TEMIS

001366

044207

001370

060260

DHS

001372
001374

062252
062546

D15
DFS

001376

044350

001400
.

060260

DHS

001402
001404

062252
062546

D15
DFS

1094
1095

001406

044476

1100

001410

060260

DH5S

1106

001412
001414

062252
062546

DTS
DFS

1071
1072
1073
1074
1075
1076
1077

1078
1079

1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091

1092

1093

1096
1097
1098
1099

—
—

— — —
e

—h b il il —h - ——— — el
) i it e e

NNV
= s bbbt Bt a2 i ODOOOO
N=O0O VBN WVNE WO VN W

1101
1102
1103

ITEMIG

ITEM17

;1TEM20

EM1S

EM16

EmM17

EM20

001416

044633

001420

060260

DHS

001422
001424

062252
062546

D15
DFS

001426

045002

J1TEM 21

Em21

10:48

2
PAGE 24

SEQ 0023

sPACK ACKNOWLEDGE CAUSED
+AN ERROR
;GOOD DATA IS BEFORE COMMAND

:RECEIVED DATA IS AFTER COMMAND
s
;REG. ADDR.
;GOOD DATA
sRECEIVED DATA
:SERRPC ,REGADR,$GDDAT
,$BDDAT
;0,0,0,0

;GIVING A NO-OP COMMAND CAUSED
;AN ERROR
;GOOD DATA GIVES REGISTER
;CONTENTS BEFORE COMMAND
:RECEIVED DATA GIVES REGISTER
:CONTENTS AFTER COMMAND
;PC
;REG. ADDR.
;GO0OD DATA
sRECEIVED DATA
;SERRPC ,REGADR,$GDDAT
,$BDDAT
:0,0,0,0

:DRIVE CLEAR COMMAND
:CAUSED AN ERROR

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

:PC

sREG. ADDR.
;GOOD DATA
sRECEIVED DATA

:SERRPC ,REGADR,$GDDAT
,$BDDAT
;0,0,0,0

:READ=IN COMMAND GAVE AN ERROR

:6G00D DATA HAS WHAT SHOULD BE THERE
:RECEIVED DATA HAS WHAT WAS
sAFTER COMMAND
:PC
;REG. ADDR.
;:GOOD DATA
;RECEIVED DATA

,$BDDAT
; SERRPC ,REGADR,$GDDAT
:0,0,0,0
;RHCST CONTENTS DURING
; COMMAND WAS

IN ERROR

BB HNHNHWWHWNWHNWWNWNO
NN NN YD
N=O0OOVONOWVSWIV—=0 00NV
W

001450
001452
001454

060260
062252
062546

145

001456

045277

001460
001462
001464

060260
062252
062546

001466

045642

—————————
A

MACY11

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

001436

045055

001440
001442
001444

060260
062252
062546

001446

045130

10:48

PAGE 25

SEQ 0024

DH5

060260
062252
062546

D15
DF5

J1TEM 22

Eme?
DH5

;RHDS1

CONTENTS DURING

;COMM ANS WAS IN ERROR

DT5

DF5

;1TEM 23

Em23

DH5
DTS
DFS

JITEM 24

EM24

DHS
DTS
DFS

;1TEM 25

EM25

;UNLOAD COMMAND GAVE AN ERROR
;GOOD 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

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

;RECEIVED DATA GIVES WHAT WAS
; THERE

001470
001472
001474

060260
062252
062546

001476
001500

045624
060715

001502
001504

062330
062571

001506

045714

001430
001432
001634

NNNNNNNNNOCOCOCOCOCOCOOOONWVWVMWUNWNWNNNUVWNWL
N VAW =0 VNV
W =0V NO WV WNN—-=0 Vv

C l JJDO, RPO4/5/6 FCTNL CTRLR2
28-MAR-79 08:52
C 4 JJ0.P1

;1TEM 26

EM26
DH26

D126
DF26

;1TEM 27

EM27

AFTER

COMMAND

;500 OFFSETS CAUSED AN ERROR

:PC

s CONT, OF RHCST
: CONT. OF RHCS?2
; CONT. OF RHDS1
;CONT, OF RHER1
s CONT, OF RHER?2
: CONT . OF RHER3
s SERRPC,CS 1,(52,DS1,ERT,ER2,ERS

;WRITE HEADER AND DATA

:CAUSED IMPROPER REGISTER CHANGE

MACY11 30A(1052)

ERROR POINTER TABLE

001516

046132

001520

061115

001522
001524

062352
062601

001526

046212

001530
001532
001534

060260
062252
062546

001536

046427

001540
001542
001544

061115
062352
062601

001546

046534

10:48

2
PAGE 26

SEQ 0025

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

060260
062252
062546

NO VIS W

NV W00 oo NV WN = O VO NO VSN NN =00V
NOWVESUWN 2OV
FAENN =0V

ddddddd-‘-‘ddddd—d_‘d-‘d-‘dddddflddfldd-‘dd‘ddflddddfl—.dflddd“dd

i i i e e i i il e i il ndh et
NN
NN NN NN NN RN
DN o NN PNV N o o cd o
o =l=l=T=] OO0 O VYV VYV VYV VO Yoo 0o 0o 0o 0o 0o oo
WWWNWWWWNONONNNNN
NN NN = b b b o el d d s

CZRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

25=MAY-T79

;1TEM 30

EM30
DH30

D130
DF30

;1TEM 31

EM31

DH5
DTS
DF5

J1TEM 32

EM32

DH30
D130
DF 30

;1TEM 33

EM33

;WRITE HEADER AND DATA
:ggANGED WRITE FROM BUFFER
;WORD NO

;GOOD DATA
:BAD DATA

; SERRPC ,ERWORD ,$GDDAT ,$BDDAT

;READ HEADER AND DATA CAUSED

; IMPROPER REGISTER CHANGE
;GOOD DATA HAS WHAT SHOULD
;BE THERE

sRECEIVED DATA GIVES WHAT
;WAS THERE AFTER COMMAND

;WRITE HEADER AND DATA FOLLOWED
;BY A READ HEADER AND DATA
;CAUSED A READ/WRITE ERROR

:EE:DGgAYA CAUSED IMPROPER REGISTER
;

CHAN

:G0UD DATA GIVES WHAT SHOULD BE THERE
;RECEIVED DATA GIVES WHAT WAS THERE AFTER
001550
001552
001554
001556
001560
001562
001564

001566

; COMMAND

060260
062252
062546

046736
061115
062352
062601

046762

;1TEM 34

;1TEM 35

“

EM34
DH30
D130
DF30

;READ DATA INCORRECT

EM3S

;WRITE DATA COMMAND CAUSED
; IMPROPER REGISTER CHANGE

Voo~ VS WNN—=0OVE~N

001570
001572
001574

060260
062252
062546

001576

047200

001600
001602
001604

061115
062352
062601

001606

047255

MACY11 30AC1052)

25-MAY-79

ERROR POINTER TABLE

10:48

DH5
DTS
DFS

;1TEM 36

;SEEK COMMAND CAUSED AN
;ERROR
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
sRECEIVED DATA GIVES WHAT

EM37

il
D

;WAS THERE AFTER SEEK

il
il
i
i

060260
062252
062546

001616

047472

001620
001622
001624

060260
062252
062546

001626

047701

SEQ 0026

COMMAND

OO0
NN NNNNNNTM
VB NN =00
NO WS W
—

[

A ———————

oo
NN NN DD N NN

001610
001612
001614

PAGE 27,

H] RITE ?AIA COMMAND CHANGED
FROM BUFFER
oW RITE

EM36
DH30
D130
DF30

;1TEM 37

;600D DATA GIVES WHAT SHOULD BE THERE
;RECEIVED DATA GIVES REGISTER
;CONTENTS AFTER WRITE DATA

E ok 2k

D i

D il

D i

D il

?:NNNNNNNNN
Vol oF P o o AV TP TvY

CZRJIDO, RPO4L/S/6 FCTNL CTRLR2
CZRJID.PIN
28-MAR-79 08:52

001630
001632
001634
001636

;1TEM 40

;WRITE

CHECK

CAUSED AN

.
; IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
sRECEIVED DATA GIVES WHAT WAS
; THERE AFTER COMMAND

DHS
D15
DF5S

J1TEM 41

DFS

J1TEM 42

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

EM&T

DHS
DTS

060260
062252
062546
050162

EM&O

EM&G2

:GOOD DATA GIVES WHAT SHOULD
;BE THERE
:RECEIVED DATA GIVES WHAT
;WAS THERE AFTER WRITES
;WERE LOCKED OUT BY
;BUTTON

\
;ATTEMPTING TO WRITE WITH WRITE

;LOCKED OUT CAUSED IMPROPER

“:REGISTER CHANGE

;600D DATA GIVES WHAT SHOULD
:BE THERE

W &~ W= O

OVENO VMR WN =0V

————————

NOWVESWN 2OV

NOWVESWNN—-=00

PNONININIMNINININ
=
bt et et s et et O
\‘{iuuwuuuuuuuuumwwuwuwumuuwuuuwuuuwwuw
L o o
L
L
Y Al o ahd T

1296
1297
1298
1299
1300

1346

001640
001642
001644

060260
062252
062546

001646

050440

25~ MAY-79

30A(1052)

ERROR POINTER TABLE

;1TEM 43

1291
1292
1293
1294
1295

MACY11

oo
-

CIRJJIDO, RPOL/S5/6 FCINL CTRLR2
(ZRJJD.P "
28-MAR-79 08:52

EM43

.
.

001650
001652

001654

061115
062352
062601

001656

050776

DH30
0130
DF30
;ITEM &4

EM4G

10:48

PAGE 28

SEQ 0027

;RECEIVED DATA GIVES WHAT WAS
;THERE AFTER ATTEMPT

;WRITING WITH WRITE LOCKED
;0UT CHANGED DISK DATA
;GOOD DATA GIVES WHAT WAS
;ON DISK BEFORE WRITE WITH
;WRITE LOCK WAS ATTEMPTED
;RECEIVED DATA GIVES WHAT WAS
;READ BACK AFTER WRITE WITH
;WRITE LOCK WAS ATTEMPTED

:ENABLING WRITES BY WRITE LOCK
;BUTTON CAUSED AN ERROR
:GOOD DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT WAS
:THERE AFTER WRITE

001660
001662
001664

060260
062252
062546

001666

051270

LOCK

:BUTTON ENABLED WRITES
.

;1TEM 45
'

EM&S

; TRANSFERRING ON LAST BLOCK

:610, SECTOR 21, TRACK 18
;CAUSED IMPROPER REGISTER

IE.

: CHANGE

:GOOD DATA GIVES WHAT SHOULD
;BE THERE

:RECEIVED DATA GIVES WHAT WAS

001670
001672
001674

060260
062252
062546

001676

051576

DHS
D15
DF5

L ITEM 46

EM46

s THERE AFTER

TRANSFER

;DATA READ FROM LAST
;BLOCK 1E. CYLINDER 410

;SECTOR 21, TRACK 18 1S IN

001700
001702
001704

061115
062352
062601

001706

051722

DH30
D130
DF 30

J1TEM 47

EM47

;ERROR

s TRANSFERRING FROM NONEXISTANT

;SECTOR CAUSED IMPROPER

CYLINDER

(%:jjgo 1?904/5/6 FCTNL CTRLR2

25-MAY-79

ERROR POINTER TABLE

10:48

PAGE 29

SEQ 0028

;REGISTER CHANGE
:GOOD DATA GIVES WHAT SHOULD
:BE THERE
:RECEIVED DATA GIVES WHAT WAS
:THERE AFTER ATTEMPTED

W AN N NN N N NN W
o (WL LW AW LW LW W IV IV IV ]
o VOO NO VI NN —

: TRANSFER

060260
062252
062546

052204

001720
J01722
201724

061115
062352
062601

001726

052423

DH30
D130
DF 30

;1TEM 51

EM51

; TRANSFERRING FROM NONEXISTANT
;SECTOR CAUSED DATA ERROR
;GOOD DATA GIVES WHAT
; SHOULD BE IN BUFFER
;RECEIVED DATA GIVES WHAT WAS,
;IN BUFFER AFTER TRANSFER

;GIVING ILLEGAL FUNCTION CAUSED
; INPROPER REGISTER CHANGE
:?022£DA1A GIVES WHAT SHOULD BE
;

001736

052670

001740
001742
001744

060260
062252
062546

001746

053141

001750
001752
001754

061115
062352
062601

;1TEM 53

-y

;1TEM 52

062366
062606

EMS52

Voo

001732
001734

DHS1

061227

001730

oo
T

P
—

28-MAR-79 08:52

MACY11 30A(1052)

EMS53

DH30
D130
DF 30

;RECEIVED DATA GIVES REGISTER
g?NTENTS AFTER ILLEGAL FUNCTION
:REG.

ADDR.

:GOOD DATA
sRECEIVED DATA
:ILLEGAL FUNCTION

AT
ILLEGL
$GDD
:$ERRPC ,REGADR,$BDDAT,
;0,0,0,0,0

:WRITE DATA ON NONEXISTANT
;SECTOR CAUSED IMPROPER
sREGISTER CHANGE
:GOOD DATA GIVES WHAT SHOULD
:BE THERE
;RECEIVED DATA GIVES WHAT
:WAS THERE AFTER ATTEMPTED
;WRITE DATA

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

CZRJJDO, RPO4/5/6 FCTINL CIRLR2
CZRJJD.PI
28-MAR-79 08:52

1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443

001756

053227

001760
001762
001764

060260
062252
062546

001766

053474

;1TEM 54

001776

060260
062252
062546
053762

~A-A~
T

001770
001772
001774

;1TEM 56

EM56

1458

SEQ 0029

;RECEIVED DATA GIVES WHAT
;WAS THERE AFTER OPERATION

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

002000
002002
002004
002006

DH30

061115
062352
062601
054172

:NOT

CHANGE

TO 266 SHOULD

DUE

TO READ

D 130
0 F30

J1TEM 57

EMS7

sATTEMPTING DATA COMMAND

:WITH WRONG FORMAT BIT CAUSED
: IMPROPER REGISTER CHANGE
:?023EDA1A GIVES WHAT SHOULD BE
:TH

1445

1449

3
PAGE 20

;GOOD DATA GIVES WHAT SHOULD
:BE THERE

;RECEIVED DATA GIVES WHAT WAS

1446

1450
1451
1452
1453
1454
1455
1456
1457

;WRITING/READING WITH EXPECTED
;ADDRESS OVERFLOW ERROR CAUSED
; IMPROPER REGISTER CHANGE

1444

16447
1448

10:48

;ATTEMPTED OPERATION WITH
:INVALID ADDRESS CAUSED
: IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
:BE THERE
;RECEIVED DATA GIVES WHAT WAS
:THERE AFTER OPERATION

AW
LAV
LV )

S e
s [
—

Pl
ol o ol o O
O O o 2k ak aE
oo POPO NN = it b e
[« AV I
WN =00V ~NOWVISWw

1403
1404
1405
1406
1407

MACY11 30A(1052)
25-MAY-79
ERROR POl NTER TABLE

:THERE AFTER ATTEMPTED DATA
;s TRANSFER

002010
002012
002014

060260
062252
062546

002016

05646}

s 1TEM 60

E M60

;ATTEMPTING TO MODIFY REGISTER
;:DURING AN OPERATION CAUSED
; INPROPER REGISTER CHANGE
;600D DATA GIVES WHAT SHOULD
:BE THERE

CIRJJIDO, RPO4/S5/6 FCINL CTRLR2

CZRJJD.PY

1480
1481
1482

S NN =00

el
—
—
—

1
1
1
1
1

25-MAY-79

ERROR POINTER TABLE

10:48

.3
PAGE 2!

SEQ 0030

;RECEIVED DATA GIVES WHAT WAS
; THERE AFTER OPERATION

::AS COMPLETE

002020

061366

DH60

002024

002022

062404
062614

D160
DF60

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

002026
002030

055073
061523

EM61

;DEVICE NOT AVAIBLE BEFOR COMMAND 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
;ITEM 62

EMHI

DH62

D162
DF62

;1TEM 63

EM63
DHS
DTS
DFS

;1TEM 64

EM64

;PC

;PC OF
;RHDS1

JSR

:$ERRPC,PCJSR,$BDADR
:0,0,0

:DEVICE NOT AVAIBLE BEFOR COMMAND WAS TO BE GIVEN
s PC

;PC OF JSR
sRHCST

WAS

:$ERRPC,PCJSR,$BDADR
;0,0,0

:RHDST1 CONTENTS DURING
: COMMAND WAS IN ERROR

:RECALIBRATE COMMAND CAUSED
: IMPROPER REGISTER CHANGE.

:G00D DATA GIVES WHAT SHOULD BE

; THERE
.

;RECEIVED DATA GIVES WHAT WAS THERE
;AFTER

002060
002062
002064

COMMAND

DHS
D15
DFS

060260
062252
062546

;1TEMGS

1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
08
0
(W RV RV LV L

1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479

28-MAR-79 08:52

MACY11 30A(1052)

002066
002070

055451
061670

EM6S
DH6S

;INTERRUPT FAILING

:PC

;TEST NO
;CONTENTS OF RHCS!
;CONTENTS OF RHAS
; CONTENTS OF RHDS!

002072
002074

062446
062632

002076

055473

25-MAY-T79
MACY11 30A(1052)
ERROR POINTER TABLE

s 1TEMGG

3
PAGE

SEQ 0031

D165
DF 65

;SERRPC,TSTNM,(CS1,AS,DST

EM66

;HEADER AND DATA COMMAND

’

;FOR HEAD SELECTION TEST
;CAUSED AN ERROR
;RHDST GIVES WHAT TRACK

:WAS BEING WRITTEN ON CYLINDER 0

002100

062004

DH66

;SECTCR 0

;PC
sRHDST

;RHER1
;RHER?2
:RHER3
;RHCST
;RHCS?2

002102
002104

062462
062637

002106

055704

J1TEMGT

D166
DF66

;$ERRPC,DST,ER1,ER2,ER3,(S1,(S2

EM67

;READ HEADER AND DATA ERROR

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

;IN HEAD SELECTION TEST

;FIRST FOUR WORDS GIVE
;NEXT WORDS ARE DATA

HEADER

;GOOD DATA WORDS GIVE
:THE

061115

002110
002112
002114

062352

002116

056160

062601

;1TEM70

DH30
D130
DF 30

EM70

TRACK NUMBER

:BITS 4,5,6,7.8

;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

J1TEM

EM71

DHS

002132
002134

062252
062546

060260

002130

VAL AV IV TV IV RV IV LV LV IV IV IV IV IV IV IV IV IV IV IV IV TV IV TV LV L IV IV ] W

—
B PP WANENWRWNWWNWWNI
NN NN NN N RN = = o
S WSOV
NOT VT W =OVONO
VNS W =00y wn

CZRJJDO, RPO4/5/6 FCTINL CTRLR2
CZRIID.P11
28-MAR-79 08:52

10:48

; ADDRESS

;FORCING OP]
{ HANGE

CAUSED

IMPROPER REGISTER

:GOOD DATA GIVES WHAT SHOULD
:BE ‘THERE
sRECEIVED DATA GIVES WHAT WAS
:;QERE AFTER 3 INDEX PULSES
;REG. ADDR.
;600D DATA
;RECEIVED DATA

,$BDDATT
:$ERRPC,REGADR,$GDDA

:0,0,0,0

0, RPO4/5/6 FCINL CTRLR2
P11
28-MAR-79 08: 5 2

002136

056627

002140

062102

MACY11

30A(1052)

25-MAY-79

ERROR POINTER TABLE

;1TEM72

EM72

DHT72

10:48

3
PAGE 13

SEQ 0032

; THERE WAS AN ERROR

;AFTER A WRITE HEADER
;AND DATA COMMAND
g

;RHCST
;RHCS?2
sRHDS1
sRHDST
;RHCA

;RHER1

002142
002144

062504
062650

002146

057075

002150
002152
002154

062102
062504
062650

002156

057245

002160
002162
002164

062102
062504
062650

D172
DF72

;1TEM73

EM73
DH72
D172
DF72

J1TEM74

EM74
DHT7?2
D172
DF72

sRHWC

;SERRPC,CS1,CS2,DS1,DST,CALERT,WC
;0,0,0,0,0,0,0,0

;READING OVER 3 INDEX
;PULSES CAUSED

;READING OVER
;PULSES

INDEX

CAUSED OP]

—

CIRJJIDO, RPO4L/S5/6 FCINL CTRLR2
CZRJJD.P1
28-MAR-79 08:52

MACY11

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

10:48

3
PAGE 24

1606

;:'!.""'""'"""""""'Q"""'""'.'.'."'."'."'."."

1607

;RH11

1608

1609
1610

‘g‘}

::""'""""""""""""""'""""""""""'QQ"'"'

002166

000254

RPVEC:

254

; kP04 VECTOR ADDRESS

1613

1614

1615

;WORD COUNT REGISTER

(RHW(C)

;EACH BIT IS CALLED BY BIT NUMBER

}g}?

1618
1619

1620
1621

;BUS ADDRESS REGISTER (RHBA)
;EACH BIT IS CALLED BY BIT NUMBER

}g%g

;CONTROL AND STATUS REGISTER 2 (RHCS2)

1622
1623
1624

1627
1628
1629

000001
000002
000004

1631

000020

1630

UsS1=
us2=
USé=

1
2
4

;UNIT SELECT (BIT #0)
;UNIT SELECT (BIT #1)
;UNIT SELECT (BIT #2)

UNIB=

;UNIBUS B DC LO (BIT #4)

000010

BAl=

1632

000040

CLR=

1634
1635
1636
1637
1638
1639
1640
1641
1642

000200
000400
001000
002000
004000
010000
020000
040000
100000

OR=
MPE =
MXF =
PGE =
NEM=
NED=
UPE =
WCE=
DLT=

200
400
1000
2000
4000
10000
20000
40000
100000

1633

1643

000100

IR=

100

;BUS ADDRESS INCREMENT INHIBIT (BIT #3)
;CLEAR (BIT #5)

; INPUT READY (BIT #6)

;OUTPUT READY (BIT #7)
:MASS BUS PARITY ERROR (BIT #8)
;MISSED TRANSFER ERROR (BI1T #9)
;PROGRAM ERROR (BIT #10)
;NON EXISTANT MEMORY (BIT #11)
;NON EXISTANT DRIVE (BIT #12)
;UNIBUS PARITY ERROR (BIT #13)
;WRITE CHECK ERROR (BIT #14)
;DATA LATE (BIT #15)

1644
1645
1646

1647
1648

1649

}bg?
6

;DATA BUFFER REGISTER (RHDB)

;EACH BIT IS CALLED BY BIT NUMBER

SEQ 0033

CZRJJDO, RPO4/S5/6 FCTNL CTRLR2
CZRJJD.PI
28-MAR-79 08:52

MACY11

25-MAY=-T79
30A(1052)
ERROR POINTER TABLE

10:48

PAGE

SEQ 0034

1653

::Q""""""""""""Qtt"""""'t."'Q""'tt"ttt'tt"t

1654

;RPO& REGISTER BITS

1655

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

1656
1657
1658

;CONTROL AND STATUS 1 REGISTER. (#00)

}gzg

1661
1662
1663

1664
1665
1666
1667
1668
1669
}g;?

~ 000001
000100
000200

000400
001000
002000
004000
020000
040000
100000

}g;%

60=
1E=
RDY=

Al6=
A17=
PSEL=
DVA=
MCPE=
TRE=
SC=

1
100
200

;G0 (BIT #0)
:INTERRUPT ENABLE (BIT #6)
:READY (BIT #7)

400
1060
2000
4000
20000
40000
100000

:STATUS REGISTER (RHDS1)

;HIGH ORDER UNIBUS B!TS (BIT #8)
:HIGH ORDER UNIBUS BITS (BIT #9)
:PORT SELECT (BIT #10)
:DEVICE AVAILABLE (BIT #11)
:MASSBUSS PARITY ERROR (BIT #13)
:TRANSFER ERROR (BIT #14)
:SPECIAL CONDITION (BIT #15)

(#01)

1674
1675
1676
1677
1678
1679

000001
000002
000004
000010
000020
000040

DFFS=
DFF20=
DIGB=
GRV=
DL64=
DE1=

1
2
&
10
20
40

;:DRIVE FORWARD 5''/SEC.
(BIT #0)
:DRIVE FORWARD 20''/SEC.
(BIT #1)
:DRIVE TO INNER GAVRD BAND (BIT #2)
;G0 REVERSE (BIT #3)
:DIFFERENCE LESS THAN 64 (BIT #4)
;:DIFFERENCE EQUALS 1 (BIT #5)

1681
1682
1683
1684
1685
1686

000200
000400
001000
002000
004000
010000

DRY=
DPR=
PROG=
LBT=
WRL=
MOL=

200
400
1000
2000
4000
10000

;DRIVE READY (BIT #7)
;DRIVE PRESENT (BIT #8)
;PROGRAMABLE (BIT #9)
:LAST SECTOR TRANSFERRED (BIT #10)
:WRITE LOCK (BIT #11)
:MEDIUM ON-LINE (BIT #12)

1688
}238

040000
100000

ERR=
ATA=

40000
100000

:COMPOSIT ERROR, (BIT #14)
:ATTENTION ACTIVE (BIT #15)

1680

1687

1691

000100

020000

vV=

PIP=

100

20000

;VOLUME VALID (BIT #6)

:POSITIONING OPERATION IN PROGRESS (BIT #13)

:ERROR REGISTER #01 (RHER1) (#02)

1692
1693
1694
1695
1696
1697

000001
000002
000004
000010
000020
000040

ILF=
ILR=
RMR=
PAR=
FER=
WCF=

1
2
4
10
20
40

:1LLEGAL FUNCTION (BIT #0)
;1LLEGAL REGISTER (BIT #1)
:REGISTER MODIFICATION REFUSED (BIT #2)
:PARITY ERROR (BIT #3)
;:FORMAT ERROR (BIT w4)
:WRITE CLOCK FAIL (BIT #5)

1699
1700
1701
1702
1703
1704
1705
1706
1707

000200
000400
001000
002000
004000
010000
020000
040000
100000

HCE=
HCRC=
AOE =
1AE=
WLE=
DTE=
JE
UNS=
DCK=

200
400
1000
2000
4000
10000
20000
40000
100000

:HEADER COMPARE ERROR (B]T #7)
;HEADER CRC ERROR (BIT #8)
:ADDRESS OVERFLOW ERROR (BIT #9)
;INVALID ADDRESS ERROR (BIT #10)
:WRITE LOCK ERROR (BIT #11)
:DRIVE TIMING ERROR (BIT #12)
:OPERATION INCOMPLETE (BIT #13)
:DRIVE UNSAFE (BIT #14)
:DATA CHECK ERROR (BIT 15)

1698

1708

000100

ECH=

100

:ECC HARD ERROR (BIT w»6)

——

CIRJJIDO, RPO4/S5/6 FCINL CTRLR2

C(ZRJJD.P1I

28-MAR-79 08:52

};?8

1711
1712
1713
1714
1715
1716

};}g

MACY11 30A(1052)

25-MAY-79

ERROR POINTER TABLE

10:48

3
PAGE 26

SEQ 0035

sMAINTAINABILITY REGISTER (RHMR)(#03)

000001
000002
000004
000010
000020
000040

001000

};;3

DMD=
MCLKk=
MINX=
MSTCk=
MRD=
MWR =

DTSY=

1
2
&
10
20
40
1000

;:DIAGINOSTIC MODE (BIT #0)
sMAINTAINABILITY CLOCK (BIT #1)
sMAINTAINABILITY INDEX (BIT #2)
sMAINTAINABILITY SECTOR CLOCK (BIT #3)
;MAINTAINABILITY READ (BIT #4)
sMAINTAINABILITY WRITE (BIT #5)

;MAINTAINABILITY SYNC DETECTED (BIT #9)

;ATTENTION SUMMARY PSEUDO-REGISTER (RHAS)

(#04)

1721
1722
1723

000001
000002
000004

AT0=
AT1=
AT2=

1
2
4

;DEVICE O (BIT #0)
;DEVICE 1 (BIT #1)
;DEVICE 2 (BIT #2)

1725

000020

AT4=

;DEVICE & (BIT #4)

1724

1726
1727
1728

1729
1730
1731
1732
1733
1734

000010
000040
000100
000200

AT3=

ATS5=
AT6=
AT7=

;DEVICE 3 (BIT #3)

40
100
200

;DEVICE 5 (BIT #5)
;DEVICE 6 (BIT #6)
;DEVICE 7 (BIT #7)

1735

;DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST)

1737
17
17
17
17
17
1

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

;EACH BIT

IS CALLED BY BIT NUMBER

(#1)

?‘nwmummrbbb f o o P

1
1
1
1
1
1
1
1
1
1
1
1

NNNNNNNNNNN ~

w N —=O 00
WR W =00
NOrwn

O IV

1736

1756
1757
1758
1759
1760
1761
1762
1763
1764

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

000001
000002
000004
000010
000020
000040
000100

000200
000400
001000
002000
004000
010000
020000

EXT1=
EX12=
EXT4=
EXT10=
EXT20=
EXT40=
SC1=

SC2=
SC4=
SC10=
$C20=
TRK1=
TRk2=
TRk4&=

1
2
4
10
20
40
100

200
400
1000
2000
4000
10000
20000

;EXTENSION 1 (Bil #0)
EXTENSION 2 (BIT #1)
;EXTENSION 3 (BIT #2)
;EXTENSION 4 (BIT #3)
EXTENSION S (BIT #4)
EXTENSION 6 (BIT #5)
;SECTOR COUNT FIELD O (BIT #6)

;SECTOR COUNT FIELD 1 (BIT
:SECTOR COUNT FIELD 2 (BIT
;SECTOR COUNT FIELD 3 (BIT
:SECTOR COUNT FIELD & (BIT
;TRACK FIELD 1 (BIT #11)
;TRACK FIELD 2 (BIT #12)
;TRACK FIELD 3 (BIT #13)

#7)
#8)
#9)
#10)

'
CIRJJIDO, RPO4/S/6 FCINL CTRLR2
CZRJJD.PY
28-MAR-79 08:52
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786

1787

25-MAY-79

ERROR POINTER TABLE
TRK10=
TRK20=

10:48

3
PAGE 37

SEQ 0036

;TRACK FIELD &

40000
100000

; TRACK FIELD 5

(

:ERROR REGISTER-#2 (RHER2) (#10)
000001
000002
000004

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

wiu=

(SF=

WSu=
(Su=
MSE
=
=
1DF
=
TUF
FEN=
WRU=
MHS=
NHS=
IXE=

vu30-=

PLU=
ACU=

;WRITE CURRENT UNSAFE (BIT #0)
;CURRENT SINK FAILURE (BIT #1)
;MRITE SELECT UNSAFE (BIT #2)
;CURRENT SWITCH UNSAFE (BIT #3)
;MOTOR SEQUENCE ERROR (BIT W#4)
;TRANSITIONS DETECTOR FAILURE (BIT #5)

40
100

;TRANSITIONS UNSAFE

(BIT #6)

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

200

400
1000

2000

4000

10000
20000

100000

;OFFSET REGISTER (RHOF)

(#11)

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

000001
000002
000004
000010
000020
000040

0F25=
0F50=
0F100=
0F200=
OF&00=
0F800=

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

000200
002000
004000
010000

OFREvV=
HCl=
ECl=

;OFFSET NEGATIVE (REVERSE)
;FORMAT BIT

FMT22=

(BIT #12

;EACH BIT IS CALLED BY BIT NUMBER.

;CURRENT CYLINDER ADDRESS (RHCC) (#13)
;EACH BIT IS CALLED BY BIT NUMBER

i e

el el

;SERIAL NUMBER REGISTER (RHSN) (#14)
;EACH 1S CALLED BY BIT NUMBER

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

PSU=

(BIT #5)

;HEADER COMPARE INHIBIT (BIT #10)
;ERROR CORRECTION CODE INHIBIT (BIT #11)

;DESIRED CYLINDER ADDRESS (RHCA) (#12)

SOV
WV WNN—=O

il ol
D
sl
il
il
it
i
s —
—

o 0o 0o 0o G0 0o 0o Oo 0o 0o o

1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809

040000
100000

MACY11 30A(1052)

;PACK SPEED UNSAFE

(BIT #0)

(ZRJJDO, RPO4/S5/6 FCTNL CTRLR2

CZRJJD.P1I
1821
1822
1823
1824

1825
1826
1827

1828

1829
1830
1831
1832
1833

1834
1835
1836
1837
1838
1839

28-MAR-79 08:52
000002
000010
000020
000040
000100
040000
100000

MACY11 30A(1052)

25-MAY-79

ERROR POINTER TABLE

VUF =
UWR=
PRE=
ACL=
DCL=
sSkl=
ocvyL=

2
10
20
40
100
- 40000
100000

10:48

3
PAGE 28

;VELOCITY UNSAFE (BIT #1)
;ANY UNSAFE EXCEPT READ/WRITE (BIT #3)
;:DISK PACK ROTATION ERROR (BIT #4)
;AC LOW (BIT #5)
;0C LOW (BIT #6)
;SEEK 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/S5/6 FCTNL CTRLR2

CZRJJD.PN
1840
1841
1842
1843
1844
1845
1846

1847

1848
1849
1850
1851
1852
1853
1854

1855

1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882

28-MAR-79 08:52

MACY11 30A(1052)

25-MAY-79

.SBTTL

10:48

m3
PAGE 9

;RP0&/5/6 DISK 1/0 REGISTERS LOCATED IN THE RH11 CONTROLLER
002170
002172
002174
002176

176722
176702
176704
176710

RHDB:
RHWC :
RHBA:

RHCS2:

176722
176702
176704

;DATA BUFFER
;WORD COUNT
;BUS ADDRESS

176710

;CONTROL AND STATUS 2

;RP04&/5/6 DISK 1/0 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC (DCL)
002200
002202
002204
002206
002210
002212
002214
002216
002220
002222
002224
002226
002230
002232
002234
002236

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

RHCS1:
RHER1:
RHDST:
RHER2:
RHOF:

176700
176714
176706
176740
176732

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

RHER3:
RHAS:
RHMR:
RHDS1:
RHDT:

176742
176716
176724
176712
176726

;ERROR #3
;ATTENTION SUMMARY
sMAINTAINABILITY
;:DRIVE STATUS
;:DRIVE TYPE

RHCA:

RHSN:
RHEC1:
RHEC2:
RHCC:
RHLA:

176734

;DESIRED CYLINDER ADDRESS

176730
176744
176746
176736
176720

;SERIAL NUMBER
;ECC POSITION
;ECC PATTERN
; CURRENT CYLINDER ADDRESS
; LOOK=AHEAD

;ADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC
002240
002242

176750
176752

RHBAE:

RHCS3:

176750

176752

;BUS ADDRESS EXTENSION REGISTER

;CONTROL AND STATUS REGISTER #3

;P=CLOCK (KW11=P) 1/0 REGISTERS
002244
002246
002250

PCLCSR: 172540
PCLBUF: 172542
PCLCTR: 172544

;CONTROL AND STATUS REGISTERS
;COUNT SET BUFFER
: COUNTER

SEQ 0038

CIRJJDO, RPO4/5/6 FCINL CTRLR2
28-MAR-79 08:52
CZRJJD.P1I
1883
1884
1885
1886
1887
1888

—

1911
91
91
91

10:48

3
PAGE &0

;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
002252
002254
002256
002260

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:
wi:

BA:
(Se:

OCOOoO

1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910

25-MAY=79

;DATA BUFFER
;WORD COUNT
;BUS ADDRESS
;CONTROL AND STATUS 2

OCOO0OOCOOOOO0COOOOOOO

1889
1890
1891

MACY11 30A(1052)

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

;ERROR #3

sATTENTION SUMMARY
sMAINTAINABILITY

;DRIVE STATUS
;:DRIVE TYPE
; SEKRIAL NUMBER
;ECC POSITION
;ECC PATTERN

;CURRENT CYLINDER ADDRESS

; LOOK=AHEAD

SEQ 0039

WN 2OV~ wn

NONPNON
s s—

i
el
i
D
s
i
-

VOOV OOVOOO 0

pu—y

1 LR 2
CZRJJDO, RPO4/S5/6 FCINL CIR
28-MAR-79 08: 52
CZRJJD.PT

MACY1! 30A (105 2)

25-MAY-T79

REGIS TER ADDRESSES

10:48

&
PAGE &1

;FUNCTION EQUATES

002322
002322
002326
002326
002330
002332
002334
002336
002340
002342
002344
002346
002350
002352
002354
002356
002360
002362

002364

000000
000002
000006
000010
000012
000030
000050
000052
000060
000062
000070
000072
000004
000014
000016
000022
000020
000000

FUTABL:
NOPERA:
UNLOAD:
RECALI:
DCLEAR:
RELEAS:
SERCH:
WRCHEK:
WRCHDT:
WRIDAT:
WRIFOR:
READAT:
REFOR:
SEECOM:
OFSETC:
RETCL:

;*TABLE OF FUNCTIONS FOR RHCS1 THEN ''GO'* BIT HAS T0 BE SET
:NO OPERATION
;UNLOAD (STAND BY)
;RECALIBRATE
;:DRIVE CLEAR
;RELEASE (DUAL-PORT OPERATION)
; SEARCH COMMAND
;WRITE CHECK DATA
;WRITE CHECK HEADER AND DATA
;WRITE DATA
;WRITE HEADER AND DATA (FORMAT)
;READ DATA
;READ HEADER AND DATA
; SEEXK COMMAND
;OFFSET COMMAND
;RETURNTO CENTERLINE
;PACK ACKNOWLEDGE

PKACK:
READIN:

;READ IN
;COMPUTED ILLEGAL FUNCTION

ILLEGL:

;*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

CZRJJDO, RPO4L/5/6 FCIN L (1 RLR 2
P11
CZRJJD.P
28-MAR- 79 08 152
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960

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

10:48

PAGE &2

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

000000
000000
000000
000000

REGADR: 0

;SAVE REGISTER ADDRESS HERE

TSTNM:
0
RP4VEC: 0

;TEST NUMBER
;CONTAINS ADDRESS OF LOCATION

1961
1962

004510

000000

OFSTvL: 0

;OFFSET VALUE USED IN OFFSET TEST

1964

004512
004562
004564

000024
000000
000000

SAVERE: .BLkWw
FINALA: 0
FINACC: O

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

2000
2001
2002
2003
2004

ERWORD: 0

; SAVE ERROR WORD NUMBER HERE

;WHERE AN RPO& INTERRUPT 1S TO VECTOR T0
;THIS MUST BE MOVED INTO 'RPVEC' TO BE
;EFFECTIVE.

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
*ATTENTION TABLE
004566
004571
004574

-0
O —=O
oo
—

1963

MACY11

002
020
200

004
040

ATABLE:

.BYTE

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

;RESERVED LOCATIONS FOR UNIT SELECT

UNITS:

.BLkW

;THIS IS FILLED WITH =1

004576
004616
004620

000010
000000
000000

UNIT:
NOUNIT:

.WORD
.WORD

0
0

004622

000000

NUNIT:

.WORD

;UNIT UNDER TEST
;NUMBER OF UNITS PRESENT
;USED TO KEEP TRACK OF UNIT UNDER TEST
;USED TO DETERMIN IF THERE ARE MORE

0
O

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

:THAN ONE UNIT

004624

000000

NOPUSH: 0

004626
004630

000000
000000

SELECT: .WORD
UNITSL: .WORD

004632

000000

ERFLGS: O

004634

000000

FIRST:

;1F ZERO WILL TYPE HEADER
;1F ONES WILL NOT TYPE HEADER

004636

000000

RPO6:

;DEVICE TYPE FLAG

004640

000000

RH70:

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

004642

000000

RUNCTR: .WORD

;ERROR FLAG

:'"RUN' LINE DELAY COUNTER TO BE USED
;WHILE THE SILO IS FILLING

SEQ 0041

004644
004646
004650

000000
000000
000000

2010
2011
2012
2013

004652
004654
004656
004660

000000
000000

REGI

25-MAY=79

R ADDRESSES

ATTENT: 0
TOTALAT:

SILOSZ:

.WORD

TMPO:
TMP1:

.WORD
.WORD
.WORD
.WORD

TMP&:

TMPS:

2006
2007
2008

MACY1I SOA(lg%g)

COOO

CIZRJJIDO, RPOL/5/6 FCINL CTRLR2
CIRJJID.P1
28-MAR-79 08:52

10:48

PAGE 43

sATTENTION BIT FOR PRESENT UNIT
;TOTAL ATTENTION BITS
;RH SILO SIZE
: TEMP STORAGE
; TEMP STORAGE
; TEMP STORAGE

SEQ 0042

CZRJJDO, RPO4/S5/6 FCINL CT RLR2
CZRJJD.P1I
28-MAR- 79 08: 52

004662
004670
004674
004676
004704
004710
004712
004716

012737
005037
000412
012737
005037
000404
005037
005037

004722
004722

000005

004724
004730
004732
004736
004740

012706

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

.SBTTL
SBTTL
LSBTTL

¢+ DIAGNOSTIC CODE

LSBTTL

SETUP TESTS

SEQ 0043
#w*

177777
004624

004626

BEGINZ: MOV
CLR

#-1,9/SELECT
@#NOPUSH

;SELECT UNIT
;DO NOT JUMP OVER ANY TEST

BEGIN:

aNSELECT
@#NOPUSH

;DO NOT SELECT UNIT
:DO NOT JUMP OVER ANY TEST

004626
004624

START:

.SBTTL

ONNNNYN

000004
005116
177570
177570
177777

CLR
CLR

START

;s NORMAL

RUN

RESET

INITIALIZE THE COMMON TAGS

MoV
CLR
(MP
BNE
MOV

000020
000022
000030
000032
000034
000036
000024
000026

174026

001140
001142

#SCMTAG,RE
(R6)+
#SWR,R6 ;;DONE?
=0
#STACK,SP

;sFIRST LOCATION TO BE CLEARED
;s CLEAR MEMORY LOCATION

;:LOOP BACK IF NO
:SETUP THE STACK POINTER

::INITIALIZE A FEW VECTORS
MOV
#$SCOPE,a¥#I0OTVEC ;;107T VECTOR FOR SCOPE ROUTINE
MOV
#340,3/I0TVEC+2 ;;LEVEL 7
MOV

#SERROR,INEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
MOV
#340 ,9WEMTVEC+2 ;;LEVEL 7
MOV
#STRAP ,3#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
MoV
#3640 ,9# TRAPVEC+2;LEVEL 7
MOV
#SPWRDN,3#PWRVEC ;;POWER FAILURE VECTOR
MOV
#3640 ,9#PWRVEC+2 ;;LEVEL 7
CLR
$TIMES
;s INITIALIZE NUMBER OF ITERATIONS
CLR
$ESCAPE
;sCLEAR THE ESCAPE ON ERROR ADDRESS
;sALLOW ONE ERROR PER TEST
#1,SERMAX
MOVB
MOV
¥..SLPADR
;s INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#., SLPERR
;:SETUP THE ERROR LOOP ADDRESS
;SIZE FOR A HARDWARE SWITCH REGISTER. 1F NOT FOUND OR IT 1S
;EQUAL TO A "'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.
:
MOV
AFERRVEC,-(SP)
..SAVE ERROR VECTOR
MOV
lbk$.3!ERRVEC
:SET UP ERROR VECTOR
MOV
#DSWR,SWR
..SEIUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
#DDISP,DISPLAY
MOV
::TRY TO REFERENCE HARDWARE SWR
#-1,35uWR
CMpP
; sBRANCH IF NO TIMEOUT TRAP OCCURRED
66%
BNE

64%:

005124

000176
000174
000004

START

;sCLEAR THE COMMON TAGS (SCMTAG) AREA

001100

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

= YW
NNNNNO

&
PAGE 44

;JUMP OVER OPERATOR REQUIRED TESTS
;D0 NOT SELECT UNIT

001000

NNNNVNOW

005140

#-1,3/NOPUSH
ONSELECT

e = L B
e e
t
oo
ND
NNNOONNNNNNNN
NN N N N N NN NN NN
NNNNNNNNNNNNN

005132

10:48

BEGINT: MOV
CLR

001140

roronNONNO
O NNONES
WRNWNDO
= O

005114
005116
005122
005124

25-MAY=79

004624

0O —=000000O00O00O

005056
005062
005070
005076
005104
005112

30A(1052)

177777
004626

olelelelelelNelelelele]le]

2014
2015
2016
2017
2018
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
2055
2056
2057
205C
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069

MACY11

65%:
66%:

BR
"?Y
f

MOV

65%
¥65%, (SP)

::AND

THE HARDWARE SWR IS NOT = =1

; BRANCH 1F NO TIMEOUT
;:SET UP FOR TRAP RETURN

#SWREG, SWR

;:POINT TO SOFTWARE SWR

(SP)+,a#ERRVEC

;;RESTORE ERROR VECTOR

#DISPREG,DISPLAY

)

—
O W
OCOO~N~N

005174
005200
005204
005206
005210

004737
005737
001001
000402
000137

037562
004634

005214
005214
005220

005314
005314
005320

s
—

NNN~N~N

000000
000200
002166
036534
000340

s _ s

005144
005152
005160
005164
005170

[elelelel-]

LSV
VT, ¥

CIZRJJDO . RPO4/ 5/6 FCINL CTRLR2
28-MAR-79 08:52
CIRJJD. PIN

104401

000435
104401

000434

MACY11

000424

005470
005470
005474

000433

005564
005564
005570

000436

1%:

2%:

005222

;. 68%:

67%:

005322

::708:

104401

005420
::72%:
71%:

005476

12749
73%:

005572

2: 768
75%:

0056066

104401

005672

000430

005754
005754
005760

000417

104401

005674
;:78%:
77%:

005762

012737

177777

004634

006032
006034
006042

006044

005737
001006
023727
001005
104406

000042

001140

000176

PAGE 45

#0,PS

:SET PROCESSOR STATUS T0 0

#RPVECT,(RO)+
#340, (RO)

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

181
BNE
BR
JMP

o#F IRST
1%
2%
a#SND1

PC,ONSTKINT

INITIALIZE THE TTY KEYBOARD

TYPE
BR

,68%
67%

::TYPE ASCIZ STRING
::;GET OVER THE ASCIZ

TYPE
BR

,70%
69%

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

TYPE

,72%

;:TYPE ASCIZ STRING

,74%

;:TYPE ASCIZ STRING

JASCIZ

BR
JASCIZ
TYPE

SEQ 0044

#200,3#TRAPVEC+2 ;TRAP PRIORITY = 4
9#RPVEC,RO
:GET RP VECTOR ADDRESS

;1S THIS FIRST TIME ROUND ?
;D0 NOT GIVE HEADER IF NOT
;GIVE HEADER IF SO
:SK1P OVERALL PROGRAM HEADER

<15><12>7RP04/5/6 FUNCTIONAL CONTROLLER TEST, PART |1

= (CZRJJ-=D?

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

71%
;:;GET OVER THE ASCIZ
<15><12>/PROGRAMMABLE DRIVES WILL NOT BE USED/

BR
JASCIZ

73%
<15><12>/1F

TYPE
BR

;s TYPE ASCIZ STRING

JASCIZ

,76%
75%

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

TYPE

,78%

;s TYPE ASCIZ STRING

BR
JASCIZ
TYPE

;:GET OVER THE ASCIZ
CHANGES ARE REQUIRED ON PORT SWITCH, A CYCLE UP/
::GET OVER THE ASCIZ

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

;s TYPE ASCIZ STRING

;:80%:

B
JASCIZ

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

SND1:

MOV

#-1,a#FIRST

sNEXT TIME DO NOT GIVE HEADER

LSBTTL

GET VALUE FOR SOFTWARE SWITCH REGISTER
:ARE WE RUNNING UNDER XXDP/ACT?
Y DY
181
BNE
64%
: ;BRANCH 1F YES
(MpP
SWR,#SWREG
;3SOFTWARE SWITCH REG SELECTED?
;BRANCH IF NO
65%
BNE
;:GET SOF1=-SWR SETTINGS
GTSWR

79%:

006020

006026

MOV
MOV

JSR

006020

10:48

THE COMMON TAGS

MOV
MOV

D il il il il

D el il il

D il ol il il

PNORURNURNUNON
bttt et 2 s s v OO OOO
PR W= O 0N NS W
=00
Yo

rorururUrUNURONUrRORURU
RN RU R ROV RU RO U RO U Y

104401

25=MAY=79

MOV

69%:

005412
005416

006020

INITIA L 1ZE

177776
000036

005412

005666

30A(10 5 2 )

——
e
e
e

006046
006050
006056

000403
112737

2130
2131
2132
2133

006056
006064
006066
006074

032777
001403
012737

MACYT1

30A(1052)
25=MAY=79
10:48 PAGE 46
GET VALUE FOR SOF TWARE SWITCH REGISTER

000001

CZRJJDO, RPO4/S5/6 FCTINL CTRLRZ
CZRJJD.P1
28-MAR-79 08:52

2126
2127
g:gg

001134

64%:

65%
#1,%AU708

010000

173054

000001

004640

RH70CK: BIT
BEQ

#SW12,aSuWR
3%

65%:

3%:

MOvB

MOV

#1,3#RHT70

;sSET AUTO-MODE

SEQ 0045
INDICATOR

;L00K T0 SEE IF USING RH70
= 0, SKIP NEXT
1F SW12
:1F SW12 = 1, CU IS AN RH70

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

MACY11 30A(1052)

25-MAY-79

10:48

PAGE &7

SEQ 0046

GET VALUE FOR SOFTWARE SWITCH REGISTER

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

;*1F NOT MAKE "WAT' TRAPS GO TO 'WAIT.T'

;*1F NOT MAKE RPO4 INTERRUPTS GO TO 'TIME 2°
;*THE NEXT LINE IS TO BE ADDED LATER
;*AND THE JUMP AND NOP REMOVED
;*FOR NOW NO CLOCK WILL BE USED

;*MOV

a#1%,9FERRVEC

;SET TIME-OUT VECTOR

Jg;

ars

;D0 NOT USE CLOCK

181

afPCLCSR

;REFERENCE P=CLOCK STATUS REGISTER

MOV

#WAIT.P,a#STRPAD+20 ;THERE

D il

30oo\flwmwmwmu~wwb
N OOVEYO
NS W =000

D ol Al

B el

B e

NN
NN
NN NN RNV NN RNV RO N RO N N N N Y

;:t'""""""""""""""""""""'.'0""""0""""

#TIME1,9#RP4VEC

MOV

IS A P CLOCK

:VECTOR TO TIME1

B el

;THERE

IS A P=CLOCK

;ADDRESS = 172540

::.."""""""""'"""."""""'i""""'."""'t""'

MOV

FWALT.T,a#8TRPAD+20 ; THERE

1S NO P-CLOCK

ol
e
e

—

s —

~
oo
NNNNNNNNNO
NV u— WNN—-OO oO~NO NS

il ol

006074
006102

012737

033526
177777

006110

005737

004626

006114

001442

006116
006122

000424

104401

006174
006174
006176
006202
006206

004506
041170

2%:

;;gS‘:

177770
004616
004630

001403

006214

013737

004630

FTIME2 ,3¥#RPLVEC ;MAKE RP04/5/6 INTERRUPTS GO TO 'TIME 2°'
;CLEAR PREVIOUS ITEM NUMBER
¥-1,39¥#PRITEM

187

ONSELECT

:WAS IT A 200 START

BEQ

:BRANCH I1F STARTING FROM 200

,65%

;s TYPE ASCIZ STRING

TYPE

006124
64%:

006212

MOV
MOV

JASCIZ

RDOCT

::GET OVER THE ASCIZ

<15><12>/SELECT UNIT NUMBER TO BE TESTED ?

BIC

#177770,(SP)

;ONLY KEEP LAST 3 BITS

BEQ

:BRANCH IF STARTING FROM 200

MOV

OFUNITSL,a#UNIT

;SET UNIT NUMBER

MOV
MOV

004616

64%

(SP) ,a#UNIT
(SP)+,9#UNITSL

;SAVE UNIT
;SAVE UNIT

TO BE TESTED
TO BE TESTED

/<15><12>

CZRJJIDO, RPO4L/5/6 FCINL CTRLRZ
28-MAR-79 08:52
CZRJJD.P1

MACY1T

&
1
30A(1052)
25-MAY-79
10:48 PAGE 48
GET VALUE FOR SOF TWARE SWITCH REGISTER
2222222

2222202222220

REFERENCE EACH REGISTER BY A MOVE

0
o

Dl A

2222202l

REFERENCE EACH REGISTER

NN
NN NN RO N

s*TEST

SEQ 0047

006222
006224

000004
012737

000001

001212

006232

012737

000001

006240
006244

012706
012737

006252
006260
006264

oo
oo
N

006270
006272
006274
006276
006300
006306
006310
006316
006320
006326
006330
006334

::00 1

004504

MOV

#2-1,aFTSTNM

;THIS SAVES TEST NUMBER

001000
041032

000030

MOV
MOv

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

012737

006300

000004

Mov

#2% ,ANERRVEC

012700
012701
013102
005300
001375
000454
012737
022626
016137

000024
002170

MOV
MOV

#24 RO
#RHDB,R1
a(R1)+, R?
RO
1%

MOV

FERRVEC+2,aNFERRVEC ;RESTORE TRAP CATCHER
(SP)+,(SP)+
;CLEAN STACK-

1%:

000006

000004

177776

001200

032777
001036

020000

172612

104401

006336

104007

000427

2%:

006420
006422
006424

104402

000000
000137

012737
005037
005777
005237
104401

000413

000417
022626
104401

000413

012737

MOV
DEC
BNE
BR

CMP

ITERATION

;NO REGISTERS ARE SAVED
;SET UP FOR BUS TIMEOUT

;THERE ARE 24 REG TO TEST
;R1 NOW HAS ADDR OF ADDR OF
;READ HARDWARE REG.
:COUNT DOWN
;BRANCH IF 24 NOT DONE

;STORE FAILING REG ADDR
;REGISTER NON EXISTANT

,65%
64%

;:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

000204

MOv

#ADDMOD, = (SP)

;GET READY TO TYPE

033016

4%:

TYPOC
HALT
JMP

aNSEOP

:G0 TO END OF

3%:

MOV

#TRP, 304
RH70

sINITIALIZE VECTOR
sINIT RH INDICATOR ++ (.W

ERROR
BIT
BNE
TYPE

+25958:

006510
004640
173572
004640
006460

000004

CLR
187
INC

TYPE

::67%:
66%:
TRP:

006520

041022

JASCIE

000030

;:65%:
64%:

RITN:

LASCIZ

CMP
T1YPE

BR
LASCIZ

MOV

#SW13,aSWR
6%

;INHIBIT ERROR PRINTOUT
;BRANCH IF YES

<15><12>/70 CHANGE BASE ADDRESS,

oRHBAE
RH70
,67%
6
6%

.65%
64%

<15><12>/RH11

REG.

RESTART

ADDRESS /

STARTING ADDRESS

;OF ''CHANGE OF BASE ADDRESS'' ROUTINE
PROGRAM =====ceccc=- >

:ADDRESS RPBAE(RH11/RH70?)
:FOUND AN RH70=-SET MASK
..IVPE ASCIZ STRING
;GET OVER THE ASCIZ

<15><12>/RH70 CONTROLLER

RIN
(SP)+,(SP)+

FIRST

;BRANCH IF 24 DONE

=2(R1), $TMPI
7

MOV

64%:

012746

006546
006546

TST1:

#1,8TIMES

006414

006506
006506
006510
006512
006516

A2222222222222222222222l

SCOPE
MOV

006414

006430
006436
006442
006446
006452
006456

INSTRUCTICON

;GET QUT
;ADJUST THE STACK

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

CONTROLLER

#SERROR ,QMEMTVEC;RESTORE ERROR VECTOR

CIZRJJIDO, RPO4L/5/6 FCINL CTRLR2

CIZRJJD.P1
2235
gggg

006554

28-MAR-79 08:52
012737

000006

MACY11

30A(1052)

000004

25-MAY=79

10:48

PAGE 49

REFERENCE EACH REGISTER
MOV

SEQ 0048

:SO THAT REGISTERS ARE SAVED
WERRVEC+2,3#ERRVEC ;RESTORE TRAP CATCHER

:FIND THE SILO SIZE

SS%%
2240

006562

004737

033314

22642

006572

013777

004650

173370

000100

173364

012737

000412

015570

013737
012737

015570
002370

023336
015600

MOV
MOV

VAR1,
VAR3
#WRFROM,

013737
022737

015600
000406

023346
004650

MOV
CMP

VARZ,
VAR&
#262.,51L0S2

:VARG IN TEST 25
:RH70C?

012737
004737

000001
033314

015616

MOV
JSR

",
PC,

:VARS IN TEST 15
;CONTROLLER CLEAR

2241

2243
2244
2245

006566
006600

032777
001367

006622
006630

163737
005437

006614

2249
2250

006634
006642

2251
2252

2253
22564
2255

2256
2257

005237

006604
006612

2246

2247
2248

005037

006650
006656

006664
006672

006700

006702
006710

063737
063737
001003

004650
004650

004650
015570
004650
004650

138%:

JSR

PC,

MOV

SI1LOSZ, @RWDB

CLR
INC

015600
015600

VIR,
13%

SUB
NEG

SILOSZ, VARI
VAR1

ADD
ADD

BNE

208:

S1LO0SZ

aNCLDISK

BIT
BNE

MOV

015570

S1L0S2Z

#266.,

:CLEAR SILO COUNTER
;LOAD SILO

;KEEP COUNT

ARHCS2

;1S THE SILO FuLL?
:BRANCH IF NO

VAR!

SILOSZ, VAR?
SILOSZ, VAR?

20%

;CONTROLLER CLEAR

VARS =4
aNcLDISK

:VAR1 IN TEST 15

VAR2

:VAR3 IN TEST 25
:VAR2 IN TEST 15

:BRANCH IF NO

CIRJJIDO, RPO4L/5/6 FCTNL CTRLR?2
CZRJJD.P1I
28-MAR-79 08:52
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280

MACY1]

30A(1052)
n

25-MAY-79

10:48

PAGE 50

SEQ 0049

REFERENCE EACH REGISTER

':""""""""""""""'.'""""""""""""".""'

TRTEST 2

CHECK THAT RHAS CAN BE CLEARED BY MOVING ALL ONES

e
e

006714
006716
006724

000001
001000

006730
006734
006740

002216

177777

006742
006744
006750
006754
006760

011137
005037
010137
104005

001126
001124
004500

001212

PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT

2222222222222 2222 222222222222

1§12:

SCOPE

2222222022220

iRl

MOV
MOV

#1,STIMES
#STACK,SP

;.00 1 ITERATION
;SET STACK POINTER

MOV
MOv
1518

a/RHAS ,R1

;R1

aR1

;WRITE ALL ONES INTO RHAS
;TEST IT FOR ALL 0'S

BEQ

1513

;BRANCH IF GOOD

MOov

aR1,a#SBODAT
a#$GDDAT

;BAD DATA
;GOOD DATA

CLR

MOV
ERROR

21.3'REGADR

HAS ADDRESS OF

)

RHAS

;FAILING REG. RHAS
;RHAS DOES NOT CLEAR BY WRITING ALL

;ONES INTO IT

CIRJJIDO, RPO4L/5/6 FCINL CTRLR2
CZRJJD.P1
28-MAR-79 08:52

HACYII 303(1052)

2281
2282
2283

25-MAY=79

10:48

PAGE 5!

PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT

::"""'""""""""""""""""""".""".".'"""

TEST FOR DRIVES PRESENT USING RHAS AND RH(S?2

;*TEST 3
e
:*
"

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

THE SET BITS IN RHAS WILL GIVE DRIVES PRESENT.

5l
o

THE DRIVE TYPE IS CHECKED TO BE RPO4 OR RPO6 AND
UNITS PRESENT ARE STORED IN A TABLE CALLED °"UNITS'

OWVESE WN = OOV

oro N POROINI RO N N

NOT VR WN =00

O
NOW SN0

LN LN LN VL N VT Y LN WL ST T ST N ST ST N N S LN N LS L L L V)
N U U L U N L U U
N L U
U
NN W
W
N

s e 10N

;:l'."""""""""""'"'NN"""".""""".l"""""'

006762
006764

000004
012737

000001

001212

006772

012737

000003

004504

007000
007002

000005
004737

007006
007014
007016
007022

032777
001026

007072
007072
007076
007102
007104
007110
007114
007120
007122
007124
007126

104401

000423

037562

020000

172124

.2253

64%:

4%:

105037
105711

004647

001402
000137

007146
007154
007156

032777
001402
000137

007162
007162
007166

104401

000421

007232
007232

104401

1%:

171764

2%:

3%:

;;grs:

007240

#4=1,aNTSTNM

;:THIS SAVES TEST NUMBER

66%:

ITERATION

;START WITH AN INIT

JSR

PC,aNSTKINT

BIT
BNE

#SW13,aSuR
4%

;INHIBIT ERROR TYPEOUT?
;BRANCH IF YES

64%

;GET OVER THE ASCIZ

MOV
MOV

9#RHAS R
aNRHCS2,R2

:R1 HAS ADDR. OF
:R2 HAS ADDR. OF

MOV

#8..RO

: COUNT

LASCIZ

65$

INITILIZE THE TTY KEYBOARD

..TVPE ASCIZ STRING

<1S><12><15><12>/LO0K1N6 AT RHAS = DRIVES PRESENT/

aR2

;CLEAR RHCS2

RHAS
RH(SZ

MOV
MOV
INC
DEC

O/RHER1 R4
#-1,3R4
aR2
RO

CLRB
TSTB
BEQ

OFTOTALAT+]
aR1
2%

BIT
BEQ
JMP

#SW13,3SWR
3%
SELTST

TYPE
BR
JASC12

,b7$
..1VPE ASCI1Z STRING
66%
GET OVER THE ASCIZ
<15><12><1S><12>/N0 DRIVES PRESENT = RHAS
= 0/

TYPE

,69%

JMP

010126

007170

MOV

BNE
MOvB

007524
020000

;:D0 1

CLR

000010
002202
177777

004646

#1,8TIMES

TYPE

007024

111137

SCOPE

Mov

RESET

002216
002176

007132
007136
007140
007142

1S13:

1%
aR1,3#TOTALAT

XE?2

;R4 HAS ADDR. OF RHERI]
;MOVE ERRORS INTO RHER1
s INCREMENT UNIT NO.
: COUNT

:BRANCH IF 8 NOT DONE
;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

:INHIBIT ERROR TYPE 0QUT?
:BRANCH I1F NO
;CHECK FOR SELECTED UNIT START AND LOAD
:"UNITS' TABLE WITH DESIRED DRIVE IF SO

;s TYPE ASCIZ STRING

SEQ 0050

CZRJJDO, RPO4/5/6 FCTNL CTRLR 2
CZRJJD.PIT
28-MAR-79 08:52
007236

344

348

MACYN

000430

1 :69%:

007320
007320
007324

000430

007406
007406
007412

104401
000442

007414

000137

033016

104401

688:

007326

:718:
70%:
::73%:
72%:

007520
007520

3?;(1052)

25-MAY=79 10:48 PAGE 52
TEST FOR DRIVES PRESENT USING RHAS AND RHCSZ2
.ASCIZ
TYPE
BR
+ASCIZ

68%

;;GET OVER THE ASCIZ

718

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

<15><12>/WRITING ONES INTO RHERT

7 0%

<15><12>/DOES NOT

SET ANY BIT

SEQ 0051

FOR ALL UNIT NUMBERS/

IN RHAS SO ABORT PROGRAM/

BR
LASCIZ

TYPE

s TYPE ASCIZ STRING
::GET OVER THE ASCIZ
<15><12>/70 LOOP ON THIS TEST WO PRINTOUT SET SWITCHES 13,8,1 & 0<15><12

JMP

INSEQP

. 13%

72%

;60 OUT

;*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
001421

XE2:
2%:

000010
004576
177777

3%:

004576

020020

DEC
BNE
MOV

CLR
CLR

004620
000010
001176
001176
172376
024020

MOV
MOV
MOV

4%:

MOV
MOV
ROR

B(C

MOV
(mp

172416

BEQ
CMP
BEQ

172406

#8..RO
FUNiTS,R3
#-1,(R3)+
RO

: COUNTER
;POINTER

#UNITS,R3
RS
@/NOUNIT
#8..R0

;POINTER

aR1,arsTHPO
afsTMPO
5%

;PRESET BLOCK

TO ALL ONES

; COUNT
;BRANCH IF 8 NOT DONE
;NO.

; COUNTER

UNITS PRESENT

; TEMPORARY

STORAGE

;SET CARRY IF ONE

O BIT

;CHMECK NEXT UNIT IF ONE NOT IN BIT O

;iaozo.aanot

; INSERT UNIT NUMBER INTO UA BITS
;1S THIS A DUAL PORT RPO4 ?

#2002

;1S THIS A SINGLE PORT RPO4 ?

RS ,3RHCS2

WRHDT

;TYPE

THE

UNIT

NO.

;TYPE

UNIT

NO.

YES

:;""""'""""C"""""""""'..""l""""l"""l'.'

007620
007626
007630
007636

022777
001415
022777
00141

024021

172376

020021

172366

007640
007646
007650
007656
007660
007662
007670
007672
007674
007700

022777
001405
022777
001401
000414
032777
001001
000466
104401
010546

024022

172356

007702
007704
007710

104405
104401
000466

020022

172346

001000

172332

001223

057420

7%:

8%:

(MP
BEQ
(MP
BEQ

;€4021.3Qn01

cmp
BEQ
c(mMp
BEQ
BR

#24022,3RNHDT
7%
#20022 ,aRHDT
7%

BIT

BNE
Bk
TYPE

MOV
TYPDS
TYPE

#20021,8RNDT
7%

9%
#B1109, IRHDSI
8%
6%
JOCRLF
-(SP)
RS,
NOUSE

;:DUAL PORT RPOS ?

;TYPE UNIT NO.

;TYPE

; SINGLE PORT RPOS ?
UNIT

NO.

;1S THIS A DUAL PORT RPO6 ?
;TYPE

THE

UNIT NO.

;1S THIS A SINGLE PORT RPO6 ?
;TYPE UNIT

NO.

;1S THE DRIVE PROGRAMMABLE?
;BRANCH IF YES

;TYPE THE DRIVE NUMBER
;:REPORT THIS DRIVE WiLL NOT BE USED(DRIVE MUST BE LOCKED

CZRJIIDO, RPO4L/S5/6 FCTNL CTRLR2
CZRJJID.P1Y
28-MAR-79 08:52

MACY1] 30;(1052)

007712

007 712
007716
007740
007740
007742
007744
007750
007766
007766
007772
007774
010000
010046
010046

010050
010052
010056
010060
010062

:;""'"""'""""'""""""'"'""0.".""""""""'

104401
000410

010546
104405
104401

000406

017746
104402
104401
000422

TYPE

007720
éigss:

'
éé&?i:

172232

010002

:5293:

68%:

010523

104401
010546
104405
005237

001223
004620

004620

004576
004620
004622
010126

005737

010132

001403

010134

013737

033016

004616
004622

004630

004616

::TYPE ASCIZ STRING

648

?Ogos

RS,=(SP)

:GET READY TO TYPE UNIT NUMBER

678

::TYPE ASCIZ STRING

ASCIZ
Y

“IGET OVER THE ASCIZ

<15><12>/UNIT NUMBER /

66%

?ogAC

ARHDT, = (SP)

:GET READY TO TYPE RHDT

TYPE

,69%

;i TYPE ASCIZ STRING

LASCIZ
Y

RHDT =/

“'GET OVER THE ASCIZ

68%

5¢

MOV

RS, (R3)+

MOV
TYPDS
INC

RS,-(SP)

INC
DEC
BNE

Y
"N
v

3
BNE
JMP

SINOUNIT
10%
NSEOP

:1F THERE ARE ANY UNITS...
*CONTINUE
YELSE GO TO END OF PASS

MOV

SFUNITS.3FUNIT

:SET UNIT NO. TO FIRST ONE FOUND/OR 0

DEC

MNUNIT

-1F NUNIT = O THEN ONLY ONE UNIT
“IF NUNIT > O THEN MORE THAN ONE UNI1

ANSELECT

:STARTING ADDRESS 200 ?

BEQ

1514

:BRANCH IF STARTING FROM 200

MOV

SNUNITSL.ANUNIT :SET UNIT NUMBER

"ASCIZ

TYPE

MOV

SELTST: TST

004626

,65%

TYPE

007752

000407

005737
001002
000137

2437
2438
2439

9%:

005205
005300
001235

2433
2434

25=MAY=79 10:48 PAGE 53
TEST FOR DRIVES PRESENT USING RHAS AND RH(S2

“GET OVER THE ASCIZ

7 - NOT AN RPO4/RPOS/RPO6 DEVICE !'2
:NO RPO4/RP0S/RP06 FOUND SO INCR TABLE

,$CRLF

A#NOUNIT

i
fpt,

SANOUNIT,a#NUNIT

:TYPE DRIVE NO.

"NUMBER OF DRIVES

:INCR UNIT NUMBER
“DECR NO. OF UNITS LOOKED AT
STEST THE NEXT UNIT

;SAVE NO. OF UNITS

SEQ 0052

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

MACYI!

2640
24641
2642

2643
2644
2445
2446
2647
2448
2649
2650
2651
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
24664
2465
2466

2667
2468
2469
2470
267N
2472
2473
2474
2475
2476
24LT77
2478
2479
2480
2481
2482
2483
2484
2485
24686

2487
2488
2489
2490
2491
2492
2493
2494
2495

50A(1052)
13

—

25-MAY=79 10:48 PAGE 5S¢
TEST FOR DRIVES PRESENT USING RHMAS AND RW(S?2

|
SEQ 0053 |

RN RRERERRRQERRRROROCROOROPRRRTRORORRORRRROPROCTRRAOOOORERORNOORPONY

'IEST

TYPE

SERIAL NUMBER AND DRIVE

TYPE

SET APPROPRIATE ATTTENTION BIT OF UNIT UNDER TEST IN "ATTENT'
TYPE

UNIT

UNDER TEST

_READ SERIAL NUMBER AND DRIVE TYPE REGISTERS
TYPE

THEM OUT

AND PROCEED

T0 LOOP HERE SET SWITCH 8, AND THIS TEST NUMBER ON
SWITCHES 0 THRU 7 AND RESTART

000001
011044
010164

001000
000004

010172

033314

010176

005037

004644

010202
010206
010210
010214
010220
010222

005737
001107
012700
122710
001102
005737

004616

010226

001006

0012 12
1
001106

iélé:

004504

RN RN R R R R RN RN R R RO RROERRRROROERRARORRRORROEROERRRRRROEROEROEORORROETRTS

SCOPE

Mov
Mov

#1,STIMES
#1%,SLPADR

;:00 1 ITERATION
::SET SCOPE LOOP ADDRESS

MOV

#STACK,SP

;RESET

JSR

PC,aNCLDISK

;SET R1-RHCS1, R2-RH(S2

CLR

IFATTENT

;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER
;CLEAR UNIT UNDER TEST ATTENTION

18T

187

afUNIT
20%
#41,R0
#11,(RO)
20%
ANSELECT

BNE

19%

MOov

BNE
MOv

000041
000011

(MPB
BNE

004626

#L,ANTSTNM

STACK

;SAVE TEST NUMBER
:R3-RHDS1, R&=-RHER1

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

SO, CHANGE PACK

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

004576

MOV
187

#UNITS,RO
"(RO)+

022710
001065

177777

BNE

CMP

#-1,(RO)

104401

010252

000434
104401
000421

010412

010350

19%:

::65%:
64%:

11678
66%:

TYPE

18%

655

64%

TYPE

679

JASCIZ

LASCIZ

;1F NOT, LOAD THE UNITS TABLE POINTER
;SELECT THE NEXT UNIT IN TABLE
; (DOUBLE INCREMENT THE POINTER, RO)
;1S THERE ANOTHER TABLE ENTRY PPESEN1 ?

;1F SO, USE NEXT DRIVE & DECR “'NOUNITS"
J1F NOT, CHANGE PACK ON UNIT #0
..IVPE ASCIZ STRING

;GET OVER THE ASCIZ

<15><12><1)><12>IDISHOUN1 PACK FROM UNIT #0 AND MOUNT A SCRATCH PACK/

66%

..TVPE ASCIZ STRING

;GET OVER THE ASCIZ

<15><12>/PRESS (ONIINUE WHEN FINISHED/<15><12>

CIZRJJIDO, RPOL/5/6 FLTNL CTRLR 2
28-MAR-79 08:52
CZRJJD.P1I
2696
2497
2498
2499
2500
2501
2502
2503
2504
2505
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

MACY1

S?:(1052)

25-MAY=-79

10:48

.
PAGE 55

SEQ 0054

TYPE SERIAL NUMBER AND DRIVE TYPE

010412
010414

000000
000404

010416
010422

011037
005337

004616
004620

18%:

MOV
DEC

(RO) ,@NUNIT

d#NOUNITS

;SET UP NEW UNIT UNDER TEST

010426

013700

004616

20%:

Mov

@FUNIT,RO

;RO NOW CONTAINS UNIT NO

HALT
BR

20%

;CONTINUE, USING SCRATCH PACK ON UNIT #0
:DECR BECAUSE UNIT #0 WON'T BE TESTED

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

010432
010436
010442
010450
010452
010460
010462
010464

005037
010077
022777
001405
022777
001401
000403
012737

004636

CLR

171534
024022

171554

020022

171544

177777

004636

010536

010542
010544
010550
010572
010572
010576
010600
010604
010626
01062¢
010632

CMP
BEQ
CMP
BEQ
BR
MOV

2%:

afRP0O6

;CLEAR RPO6 DEVICE TYPE FLAG

2%
#20022,3RHDT
2%

;YES..SET FLAG
;SINGLE PORT RPO6 ?
sYES...SET FLAG

RO,3RHCS2
#24022,3RHDT

#-1,3¥/RP06

;SET UP UNIT ADDRESSING
;:DUAL PORT RPO6 ?

;DON'T SET RPO6 FLAG
;SET THE FLAG

;ASSUME THE NEXT UNIT IS AN RP0O4/RPO5

3%:

010472

010472
010500
010504

MOV

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

116037
104401
000414

004566
010506

013746

004616

104405
104401
000410

017746
104402
104401

000410

017746
104402

004644-

MOvVB
TYPE

::69%:

010552
;. 71%:

171430

010606
3%:
171372

ATABLE
(RO) ,@#ATTENT

,69%

BR
LASCIZ

68%

MOV
TYPDS
TYPE

SNUNIT,-(SP)

BR
(ASCIZ

;GET OVER THE ASCIZ

<15><12>/TESTING DRIVE

718

70%

aRHSN,=(SP)

L.ASCIZ

<15><12>/DRIVE

MOV
TYPOC

aRHDT,=(SP)

,73%

72%

NUMBER/

;UNIT NO.

TO STACK

:TYPE
DRIVE NO.
;s TYPE ASCIZ STRING

::GET OVER THE ASCIZ

<15><12>/SERIAL NO.

MOv
TYPOC
TYPE

;SET APPROPRIATE ATTENTION BIT

..TYPE ASCIZ STRING

::SAVE aRHSN FOR TYPEOUT

::60 TYPE=-=0CTAL ASCIICALL DIGITS)
;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

TYPE

::SAVE 3RHDT FOR TYPEOUT

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

CIRJJIDO, RPO&/ 5/6 FCIN L CTRLR2
CZRJJD.P1
28-MAR- 79 08:52

2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575

MACY11

30A(1052)
T4

25=MAY=79

10:48

5
PAGE 56

TYPE SERIAL NUMBER AND DRIVE

TYPE

;*TYPE OUT THE DRIVE TYPE IN ASCII
"'""""""Q"""""'""""""".""'0""'t"""'.'

010634
010642
010644
010652

022777
001424
022777
001420

024020

171362

020020

171352

010654
010662
010664
010672

022777
001433
022777
001427

024021

171342

020021

171332

010674
010702
010704
010712

022777
001442
022777
001436

024022

171322

010714
010714
010720

104401

010722

010750
010750
010752
010752
010756
011006
011006
011010
011010
011014

000413

020022

104401

4%:

::75%:

74%:

000413

5%:

010760

3778
76%:

000416
104401

000413

6%:

011016

;:DUAL PORT RPO4 ?
:TYPE ASCI1 MESSAGE OUT
:SINGLE PORT RPO4 ?

CMP
BEQ
CMP
BEQ

#24021,3RHDT
5%

;DUAL PORT RPO5 ?
;TYPE THE MESSAGE

;TYPE THE MESSAGE

CMP
BEQ
CMP
BEQ

024022 aRHDT

;DUAL PORT RPO6 ?

020022 aRHDT
6%

;SINGLE PORT RPO6 ?
; TYPE THE MESSAGE

BR
.ASCIZ

TYPE

L 15%
74%
<15><12>/DRIVE

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

:SKIP NEXT ONES

TYPE

BR
LASCIZ

LI7%
76%
<15><12>/DRIVE

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

:SKIP NEXT

,19%

..TYPE ASCIZ STRING

BEQ
CMP
BEQ

171312

000435

124020 aRHDT
4%
#20020,3RHDT

CMP

::79%:
78%

TYPE

BR
.ASCIZ

;TYPE THE MESSAGE

#20021,3RHDT

;SINGLE PORT RPOS5 ?

;TYPE

78%
<15><12>/DRIVE

THE MESSAGE

;GET OVER THE ASCIZ
15 AN RP06/<15><12>

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

1%:

002310
002306

187
187

MOV
MOV

dRHSN
aRHDT

dRHSN,NSN
aRHDT ,aNDT

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

;SAVE TO CHECK 1F DRIVE CLEAR CLEARS ANY BITS
;SAVE T0 CHECK IF DRIVE CLEAR CLEARS ANY BITS

SEQ 0055

CIRJJIDO, RPO4/5/6 FCINL CTRLR 2
CZRJJD.P1
28-MAR-79 08:52

3?2(1052)

25-MAY=-79

10:48

5.3
PAGE 57

SEQ 0056

TYPE SERIAL NUMBER AND DRIVE TYPE

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

CHECK MOL TO BE HIGH

;*TEST 5

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

000004

011072

012737

000005

004737
032713

033314
010000

p——

—_

OOV

~ W~ W
=) P o ooer

W WwWww

Sl
NOOr

O0o
—,
s
—. s s
—

—

OO0

ks
il

el
il

-l —

—

OO0
SO0

oo
s 2
—_—

001144

011422

104401
000420

011120

104401

011166

000424
104401

000431

032713
001775
104401

000430

2222222 2R

i§TS:

011070

OCOO0O0O0

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
2626
2625
2626
2627

MACY1

004504

222

2222222222222

MOv

#6=1,aNTSTNP

;THIS SAVES TEST NUMBER

PC,afCLDISK
#MOL ,aR3

;GIVE INITILIZE
:CHECK MOL IN RHDS1

15716

:BRANCH IF MOL HIGH

,65%

;s TYPE ASCIZ STRING

64%

,67%
66%

<15><12>/HIT

::GET OVER THE ASCIZ

1S OFFLINE

= MOL

IS LOW/

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

START

ON DRIVE

TO GET

011342

ON LINE/

,69%
68

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

#MOL ,aR3
1%

;CHECK MOL IN RHDSI1
;WALIT IF MOL IS STILL LOW

<15><12>/PROGRAM WILL HANG TESTING MOL

010000

SCOPE

<15><12>/DRIVE

011244

22222022200t RRRRRRR

L7118

70%

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

<15><12>/G00D - MOL

1S HIGH,

TILL MOL

PROGRAM WiLL BE

IS HIGH/

EXECUTED/

CIZRJJIDO, RPO4L/S5/6 FCTNL CTRLR 2
CZRJJD.P1I
28-MAR-79 08:52

MACYN

2628

2629

25-MAY=79

10:48

CHECK MOL TO BE HIGH

5
PAGE 58

SEQ 0057

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

PROGRAM INTERRUPT

;*TEST 6
.
.

;

PROGRAM INTERRUPT IS TESTED BY SETTING RDY AND IE
IN RHCS1 AT THE SAME TIME

THIS SHOULD INTERRUPT THROUGH LOCATION 254

011424

012737

000006

011432

012706

011436

222222

SCOPE

2222222222222

22222222

2222220222

#7-1,3FT1STNM

;THIS SAVES TEST NUMBER

001000

MOv

#STACK,SP

;RESET

004737

033314

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RHCS?2
;R3-RHDS1, R&=-RHER1
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

MOV

a#RPVEC,RO

;GET RP VECTOR ADDRESS

MOov

#340, (RO)

;RPO4& INTERRUPT SERVICE ROUTINE

NN
—_O
OO
-~

MOV
MOV

#200,PS
#RDY!IE,aR1

034012
001200

001200

MOV

AN TIMCNT ,@#STMP1; COUNTER

ERROR
MOov

65
#CLR,aR2

;WAIT FOR INTERRUPT
;BRANCH IF NOT ZERO
;BEFORE THIS 1S ZERO INTERRUPT SHOULD OCCUR
; INTERRUPT DID NOT OCCUR
;CLEAR CONTROLLER VIA CS2

1817

;BRANCH TO NEXT

0127

WWN
NWww
©
-

[

177776

—n

STACK

000200
000300

OO0
OOo-—
—

004504

002166
011514
000340

OO0Oo

—

MOov

000004

THE PROCESSOR PRIORITY IS SET T0 4

222222222

1§16:
3

011422

2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673

3?;(1052)

DEC
BNE

000040

000407

022626
022711

004200

RPTRP1:

(MP

#RPTRP1,(RO)+

aNsTMPI
%

;THIS IS FOR TIMELY INTERRUPTS

;PRIORITY = 7

;SET PROCESSOR PRIORITY @ 4
;RDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT

(mMP

#DVA!RDY,aR1

(SP)+,(SP)+

;RESTORE STACK

TEST ===eeccccccce- )

;1€ SHOULD BE LOW

011522

001403

BEQ

1817

;CONTIME

011524

104065

ERROR

011526

012712

MOv

#CLR,AR?

; INTERRUPT OCCURED BUT
;1€ FAILED TO RESET

000040

1IF

GO0D eeessescaccsee )

;CLEAR CONTROLLER

CIZRJJDO, RPO4L/5/6 F(INL CTRLRZ
CZRJID.PIN
28-MAR-79 08:52

NV
N =00

NNNNNNNNYN
i
it s it et O

oo
NN

302(\052)

25=MAY=79

PROGRAM

2222222

22 2

.'
.'

2222

1§17:

011532

000004

011534

012737

000007

011542

012706

011546

004737

10:48

INTERRUPT

5
PAGE 59

SEQ 0058

2R 2222222222222 2222222l
ld)

INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME

J*TEST 7

PROCESSOR PRIORITY 1S SET AT 5 (SAME AS THE DISK)
IE AND RDY 1S SET. THIS SHOULD NOT INTERRUPT

2R AR R

SCOPE

ARARl
l)

MOv

#10-1,9#TSTNM

;THIS SAVES TEST NUMBER

001000

Mov

#STACK,SP

JRESET

033314

JSR

PC,anCLDISK

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

004504

STACK

;R3-RHDS1,

R&=-RHERI

OO0Oo

000240
000300

177776

034012
001200

001200

7
7

002166
011622
000340

—

011600
011606
011612

011566
011574

oOoo

1370
7
1272
7
1271
7

7
1373
Vil

011552
011556
011562

;GIVE RH=11 INITIALIZE
;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

MACY1

3
0533
001375

011614

012712

011620

000404

011622
011624

022626
104065

011626

012712

a#RPVEC,RO

MOV
_MOv

#240,PS
#RDY'!IE,aR1

MOV

SN TIMONT ,@#STMP1; COUNTER

ANSTMPI
1%

;WAIT FOR INTERRUPT
;BRANCH IF NOT ZERO

MOov

#CLR,3R2

;CLEAR CONTROLLER

1S110

;NO INTERRUPT SO CONTINUE ======ccc=-cce= )

(MP
ERROR

(SP)+,(SP)+
65

;RESTORE STA(CK
; INTERRUPT OCCURRED WITH

MOV

#CLR,aR?

;CLEAR CONTROLLER

MOv
MOV

1%:

000040

RPTRP2:

000040

MOV

DEC
BNE

#RPTRP2,(RO) ¢+
#340, (RO)

;GET RP VECTOR ADDRESS

;:THIS 1S FOR UNTIMELY INTERRUPTS
;RPO& INTERRUPT SERVICE ROUTINE
;PRIORITY = 7
;SET PROCESSOR PRIORITY = 5
;RDY, IE IN RHSC1 WHOULD CAUSE INTERRUPT

;BEFORE THIS IS ZERO INTERRUPT WHOULD OCCUR

;PROCESSOR PRIORITY

SAME

AS DISK

CZRJJDO, RPO4L/S/6 FCINL CTRLR2
28-MAR-79 08:52
LN N N N N N N N
L NL S
L N N ST ST N SN NS SISV ~
-~ NNNNNNNNNNNNNNNNNNNNNNNNY ~
s
&~ T
L
L
T
L
T
e T T
I
L
L N N LN LN N LN LN LN LN
P
WN = OOV
NOVNIFWN 2OV
YO VNS W
=00 oo

CZRJJD.P11

MACY11

5
30A(1052)
25-MAY-79 10:48 PAGE 60
17
INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME
. 222222 2222222222222 2222222202022

SeTEST 10

SET VV BIT #6 IN RHDS!

2020

222222222222

1§710:

SCOPE

2222222222222

2222222222220

iRl

2Rl

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

IS GIVEN

000005
004737
012737

037562

000000

177776

JSR
MOv

PC,aNSTKINT
#0,PS

;INITILIZE

012706
012737

001000
000010

004504

MOV
MOv

#STACK,SP
#10,a#TSTNM

;RESET STACK
;SAVE TEST NUMBER

004737

033314

JSR

PC,aNCLDISK

;SET R1-RHCS1, R2=-RH(CS?2

011666
011672
011676

004737
104401

033352
057465

011700

013777

002360

000000

RESET

JSR
TYPE

PC,aNCHECK
,CPHALT

MOv

O#PKACK ,@RHCS1

HALT

170272

;R3-RHDS1, R&=-RHER1

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

THEY DON'T

;GET READY FOR PKACK

;PACK ACKNOWLEGDE WITH 22 IN RHCSI

;*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE
004037
002172
004512

JSR
RHWC
SAVERE

033462

013777

004506

170240

MOv

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

18.

000022
011720

RO,3#SAVER

SAVED

;NUMBER OF REGISTERS

;SAVED = 18.

A¥RP4LVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS
;70 'TIME1'

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
011726
011732

013746
052716

002360
000001

MOV

aN#PKACK,=(SP)

011736

012677

170236

MOv

(SP)+,aRHCST

BIS

#GO, (SP)

:GET READY TO MOVE COMMAND

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

iatind

SEQ 0059

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

i
i
i
000004

ErS——

INTERRUPT DISABLED

CZRJJDO, RPO4L/5/6 FCTNL CTRL R2
CZRJJD.P1I
28-MAR-79 08:5 2
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
2824
2825
2826
2827
2828

MACY11

30A(1052)
25=MAY=-79 10:48 PAGE él
110
SET vv BIT #6 IN RHDSI

011742
011744

011100

MoV
MoV

011746
011750
011752
011754
011756

104413

WAT
RHDS1

011305

002222
000100
000001
000001

aR1,RO
aR3,RS

SEQ 0060

;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

;WAIT FOR Vv BIT TO SET
;WAIT FOR RHDS1 REGISTER
;WAIT FOR Vv BIT IN RHDS1 REGISTER
;ALLOW 10 MICRO SECONDS
;VV MUST SET BETWEEN
;00 AND 20 MICRO SECONDS

1.
1.

;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN
;*RO AND RS IMMEDIATELY AFTER GO IS ISSUED
011760

013746
052716
011637
022600

011776

001405
010037
010137

011764
011770
011774
012000
012004
012010

104021

012012
012016
012022

012746
011637
022605

012024
012026
012032
012036

001405
010537
010337
104063

002360
004200
001124

010700
001124

a#PKACK,=(SP)

BEQ
MOV
ERROR

64%
RO,aN#$BDDAT
R1,3#REGADR
21

MOv
MOV

;SAVE BITS SET DURING OPERATION IN RHDSI
#MOL !DPR!DRY!VV, =(SP)
(SP) ,a¥$GDDAT
PRINTOUT
FOR
;SAVE

BEQ

66%

ERROR

JSR

RO,a#CHREG

B1S
MOV
CMP

001126
004500

MOV

64%:

CMp

MOV
MOV

001126
004500

#DVA'RDY, (SP)
(SP) ,a¥#SGDDAT
(SP)+,RO

(SP)+,RS

RS,a#SBDDAT
R3,3#REGADR

66%:

012040

012040
012044

004037
002222

012046
012050
012052

000001
000001
000100

034204

: SAVE COMMAND
; INCLUDE DVA!RDY
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY DVA!RDY
;AND COMMAND SHOULD BE SET
;BRANCH IF GOOD
:BAD DATA

MOV

RHDS1

;FAILING REGISTER RH(CS1
;DURING ABOVE OPERATION ONLY

; COMMAND AND DVA!RDY SHOULD BE SET

;DURING ABOVE OPERATION ONLY MOL:DPR:DRY!VV
: SHOULD BE SET
;:BRANCH IF GOOD
;BAD DATA
;FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY
;MOL!DPR!DRY!VV SHOULD BE SET
; CHANGE BITS IN SAVED REGISTER

; CHANGE RHDS1 REGISTER

;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF vv IS 1

1
1

; CHANGE vv BIT

;*NOW COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE
;*WITH AFTER PACK ACKNOWLEDGE

012054

004037

012060
012062
012064
012066
012070

004512
002254
000022
012072
012076

034312

JSR
SAVERE

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH

;PRESENT

VALUE

;600D DATA SAVED IN 'SAVERE'

;TEST DATA STARTING FROM ‘'RHWC'

:18. REGISTERS TO BE COMPARED
;RETURN TO 1% ON ERROR
;RETURN TO 2% ON NO ERROR

CZRJJIDO. RPO4/5/6 FCTNL CTRLR2
CZRJIJD.PIY
28-MAR-79 08:52
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846

012072
012074

104015
000207

MACY1

30?61052)
1%:

J
5
10:48 PAGE 62
25-MAY-79
SET vv BIT #6 IN RHDS1
ERROR
RTS

SEQ 0061

;GIVING A PACK ACKNOWLEDGE
; CAUSED AN ERROR
;PACK ACKNOWLEDGE SHOULD
;SET Vv IN RHDSI1
lNIERRUPT SHOULD MAKE
J1E
=

:NO OTNER REGISTERS SHOULD
; CHANGE

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

2%:

;OF

————

e e

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

.SBTTL

SEQ 0062

DATA TRANSFER RELATED ERRORS (USING MEDIA)

;:""!"""'"'""'""""'"'"""""""""".".""l"

;*TEST N

SECTOR 21, BY A WRITE HEADER AND DATA COMMAND
THEN CHECK ALL REGISTERS (LAST BLOCK TRANSFERED

;e
i

SHOULD BE SET)

THEN READ ABOVE USING READ DATA (256 WORDS)

(AGAIN

CHECK ALL REGISTERS AND DATA

>
a2

000004
012706
012737

LAST BLOCK TRANSFERED=RHDS1 LBT

WRITE ONE WORD CF 65125 ON CYLINDER 410./814., TRACK 18

TST11:

004737

'LBT'

2222322222222

SCOPE

SHOULD BE

SET)

2222222222222

2220202200

RRRRRRRRlllld)

MOV
MOV

#STACK,SP
#11,30TSTNM

SRESET STACK
SSAVE TEST NUMBER

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(S2
;R3-RHDS1, R&=-RHERI]
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*CHECK THE DRIVE TYPE AND THEN FILL THE
;*WRITE FROM BUFFER WITH APPROPRIATE HEADER

—

L g
Y

187

005737
001412

BEQ

a#RP06

11%

;TEST FOR RPO6 DRIVE

;TREAT UNIT AS AN RPO4

;TREAT UNIT AS AN RPO6

RO,a#FLHEAD

11456
<18.+400>!<21.>

0
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

<26. 'c000>'<18 040>1<21.>
;CONTINUE WITH SET UP
12%
BR

:F1FTH DATA WORD

11%:

i
i

S S wmwmwnwnn
oo
S
o~ F
oF

— il
—_

JSR
WRFROM
5

004037
002370
000005
011456
011025
000000
000000
065125
000411

NN
N
N

—

-l

—

[elelelolelelelele]

P
——

,'."...tl""""""""""""""""'.l'l""l'Q""."t""'

[elelelelelelelele)

2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885

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

004037
002370
000005
010632
011025
000000
000000
065125

JSR
WRFROM
5
10632

RO,a#FLHEAD

<18.+400>'<21,>

12%:

0
0

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

:THIRD DATA WORD
;FOURTH DATA WORD

<26.+2000>'<18,+40>!<21,>

:F1FTH DATA WORD

CIRJJIDO, RPO4/5/6 FCINL CTRLR2
28-MAR-79 08:52
CZRJJD. P11
2903
2904
2905
2906
2907
2908
2909
2910
291

MACY11

L 5
SOA(IOSZ)
25=MAY=79 10:48 PAGE 64
LAST BLOCK TRANSFERED=RHDS1 LBT
TMm
;*FILL READ INTO BUFFER WITH ALL ONES

012172
012176
012200
012202

004037
003434
000256
\rrrer

033164

JSR

REINTO

256
-]

RO,a#CLAREA

;CLEAR 256 WORDS, FROM REINTO
;STARTING FROM REINTO

;256 WORDS

JFILL WITH =1

SEQ 0063

CIZRJJDO, RPO4L/5/6 F(TNL CTRLR2
CZRJJD.P n
28-MAR-79 08:52
2912
2913
2914
2915
2916
2917
2918

MACY11 30A(1052)
m

nS
PAGE 65
LAST BLOCK TRANSFERED=-RHDS1 LBT

25-MAY-79

10:48

SEQ 0064

;*DRIVE TYPE 1S CHECKED AND THEN THE APPROPRIATE
;*WRITE HEADER AND DATA COMMAND IS LOADED
':""""""""""""Q"""'"""l'.""'.'t.'.'C"""'.l

005737
001412

004636

004037
001456
025
022
177773

035276

187
BEQ

a¥#RP06
7%

JSR
814.

RO,3#RUN

BYTE

;TEST FOR RPO6 DRIVE
; TREAT UNIT AS RPO4

:;"'""'"""'."'""'""'""""""l.'."'l"."""'."'

0D —

:TRACK 18.

:WORD COUNT (DATA) =1 +
;4 HEADER WORDS

;BUS ADDRESS
:STARTING ADDRESS OF DATA
;BUFFER = WRFROM

002370

WRFROM

012226
012230

000000
010000

0
FMT22

012232

002344

WRIFOR

012234

000411

;CONTINUE WITH TEST

JSR

RO, a#RUN

;SETUP TO RUN FOR DATA COMMAND
;sCYLINDER 410.
;SECTOR 21.

—

“1-4

;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 814.
;SECTOR 21.

:D0 NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
;D0 NOT INHIBIT ECC CORRECTION
:DO NOT INHIBIT HEADER COMPARE
:GET READY T0 DO A WRIFOR
;WRITE HEADER AND DATA WITH 62 IN RH(S!

025
022
177773

.BYTE
.BYTE
~1=4

012250

002370

WRFROM

000000
010000

0
FMT22

002344

WRIFOR

:TRACK

004037
000632

[«

035276

012236
012242
012244
012245
012246

7%:

012236

18.

;WORD COUNT (DATA) =1 +
;& HEADER WORDS
;BUS ADDRESS
sSTARTING ADDRESS OF DATA
sBUFFER = WRFROM
;DO NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
:DO NOT INMIBIT ECC CORRECTION
:DO NOT INHIBIT HEADER COMPARE
;GET READY TO 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
004512
000022

033462

SAVERE

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

18.

:NUMBER OF REGISTERS

JSR

RHWC

RO,a#SAVER

;THE REGISTERS ARE SAVED

CZRJJDO, RPO&L/S5/6 FCTNL CTRLR2
CZRJJID.PI
28-MAR-79 08:52
2968
2969
2970
2971
2972

2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
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

MACYM

3??;1052)

N 5
25=MAY=79 10:48 PAGE 66
LAST BLOCK TRANSFERED-RHDS1 LBT

SEQ 0065

:SAVED = 18.
012272

004737

033374

JSR

012276
012302
012304

000000

104401

057465

013777

004506

TYPE
HALT
MOV

167654

;CHECKS DVA,RDY,MOL ,DPR,DRY AND VvV = 1
sAND THAT ALL STATUS BITS ARE = 0
»CPHALT
; CANNOT CONTINUE TESTING IF NOT
;STOP TEST
@¥RP4LVEC,aRPVEC ;SET RPO4& VECTOR ADDRESS
PC,aNCHECKT

;70 "TIME1'

;OR 10 "TIME2'

P=CLOCK

IS PRESENT

IF P=CLOCK 1S NOT THERE

;"TIME' WILL ONLY SAVE

; CURRENT CYLINDER ADDRESS
;AND LOOK AHMEAD REGISTERS

012312
012316

013746
052716

002344
000101

MOV

a#WRIFOR,=(SP)

012322

012677

167652

MOV

(SP)+ ,aRHCS1T

BIS

#GO!1E, (SP)

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;ENABLE INTERRUPT
;G0 WITH
;62 IN RHCS1 FOR WRITE HEADER AND DATA
;WITH INTERRUPT ENABLED

;*TIME IS NOT CRITICAL HERE
012326
012330
012332
012334
012336

104413
002222
002000
004704
004704

;WAIT FOR LBT BIT TO SET

WAT
RHDS1
LBT

;WAIT FOR RHDS1

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

2500.
2500.

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE

012340
012344
012346

004037
002172
000000

033216

012350
012354
012356

004037
002174
002402

033216

012360
012364

004037
002222

034204

012366
012370
012372

000001
000001
002000

012374
012400

004037
002212

012402
012404
012406

000001
000001
000001

012410

004037

JSR

SHUC

JSR

RHBA

RO,a#F ILLRE

;DA

RO,a#FILLRE

WRFROM+<5¢2>

JSR

RHDS1

RO,3#CHREG

JSR

RHCA

RO,a#CHREG

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

: CHANGE BITO BIT

BI110

JSR

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

: CHANGE LBT BIT

1
1

033216

sMOV WRFROM+<5+2> INTO SAVED RHBA
: SAVED RES{?;ER TO CHANGE

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

1
1
LBT

034204

;MOV 0 INTO SAVED RHW(C
:SA¥ED REGISTER TO CHANGE

RO,a#F ILLRE
.

;MOV O

INTO SAVED RHDST

LAST BLOCK

10:48

6
PAGE ¢/

TRANSFERED=-RMDS1 BT

;SAVED REGISTER TO (MANGE

RHD>!

sDATA

;*COMPARE ALL REGISTERS
012420

004037

012424
012426
012430
012432
012434

004512
002254

012436
012440

104045
000207

034312

JSR

RO,3#COMREG

012436

;17. REGISTERS 1O BE COMPARED
;RETURN T0 18 ON ERROR
;RETURN TO 2% ON NO ERROR

012442

1%:

ERROR

RTS

VALUE

:GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘RHW('

SAVERE
W
17.
%

000021

; COMPARE SAVED REGISTERS WITH

;PRESENT

45
PC

;WRITING ON THE LAST BLOCK
;1E. CYLINDER 410./814., SECTOR 21
;TRACK 18 CAUSED
; IMPROPER REGISTER CHANGE
;:GOOD DATA GIVES WHAT
: SHOULD BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE AFTER WRITE
;ON LAST BLOCK
- —

—

- aa

]

002204
000000

25-MAY=79

e——————)

012614
012416

SOA(IOSZ)

———

3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047

MACYY)

aa——

(1R300, RPO&/S/6 FLTINL CVILSZ
(IRJJD.P1Y
28-MAR-79 08:5

C
6
MACY11 30A(1052)
25=MAY=79 10:48 PAGE ¢8
LAST BLOCK TRANSFERED-RHDS1 LBT
AR

;*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-RHCS2
;R3-RHDS1, R4=RHER1

;GIVE RM=11 INITIALIZE
;SETUP UNIT NUMBER

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA
004037
002370
000001
065125

033140

JSR
RO,3#FLHEAD
;SAVE HEADER DATA IN WRFROM
WRFROM
;LOCATION WHERE SAVED
1
;NUMBER OF WORDS SAVED
<26.%2000>'<18.+40>'<21.>
:FIRST DATA WORD

004037
002372
000400
000000

033164

JSR
RO,3#CLAREA
WRFROM+2
256.
0

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

sFILL WITH O

;*FIRST THE DRIVE TYPE 1S CHECKED AND THEN THE APPROPRIATE
;*READ COMMAND

1S LOADED

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

004636

1871
BEQ

a¥RP06
9%

JSR
814.
BYTE
.BYTE
-256.

RO,3#RUN

;TEST FOR RPO6 DRIVE
: TREAT UNIT AS RPO4

::.'t't"t""'"""'"""""""""""t"t""'.t'."""'l

000000
010000

002346

READAT

000411

10%

;CONTINUE WITH TEST

JSR
610,
BYTE

RO,3#RUN

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

-l OO0 O0
NONO SO

(W LV IV AV AV IV

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 814.
;SECTOR 21.
;TRACK 18.
;WORD COUNT = 256.

004037
001456
025
022
177400
003434

—

i
e

oo
N

—
—

005737

001412

N
(Y AV

[=lelelelol=]

012472
012476

035276

21,
18.

REINTO

:BUS ADDRESS

;STARTING ADDRESS OF DATA
;BUFFER = REINTO
;00 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;D0 NOT INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A READAT

FM122

;READ DATA WITH 70 IN RHCS1

9%:

004037
000632
025

035276

21,

SEQ 0067

CIRJIDO, RPO4/5/6 FCTNL CTRLRZ
2B-MAR-79 08:52
CZRJJD. P11

CZRJJIDO, RPO4L/S/6 FCTNL CTRLR2

CIRJJID.PII
3104

3105

3106
3107
3108
3109
3110
I
3112
3113

g}}g

3118
3119
3120
3121
3122
3123

3124
3125
3126
3127
3128
3129
3130
3131
3132
3133

28-MAR-79 08:52

012533

012534

MACY11 30A(1052)

022

25<MAY=79

.BYTE

012536

177400

003434

=256,

012540
012542

000000
010000

0
FMT22

012544

002346

READAT

012546

3147

3148
3149

g}g?

012546
012552
012554

004037
002172
004512

3154

3158
3159

:TRACK 18.

:WORD COUNT = 256.

:BUS ADDRESS
;:STARTING ADDRESS OF DATA
:BUFFER = REINTO
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
;D0 NOT INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
:GET READY TO DO A READAT

:READ DATA WITH 70 IN RHCSI

012556

000022

012560

004737

033374

012564
012570
012572

104401
000000
013777

057465

:*SAVE REGISTERS FOR COMPARISON AFTER READ DATA
JSR
RO,3NSAVER
;SAVE REGISTERS
RHWC
'
:RHWC 1S THE FIRST REGISTER SAVED
SAVERE
:STARTING ADDRES OF WHERE
:THE REGISTERS ARE SAVED
18.
:NUMBER OF REGISTERS
:SAVED = 18,

033462

004506

JSR

167366

TYPE
HALT
MOV

PC,aNCHECKT

;CHECKS DVA,RDY,MOL,DPR,DRY AND vV = 1
:AND THAT ALL STATUS BITS ARE = 0
,CPHALT
:CANNOT CONTINUE TESTING IF NOT
;STOP TEST
SNRPLVEC,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

012600
012604

013746
052716

002346
000101

MOV
BIS

NREADAT,=(SP)
#GO'1E, (SP)

012610

012677

167364

MOV

(SP)+,3RHCST

:GET READY TO MOVE COMMAND
:GET READY TO SET GO AND
:ENABLE INTERRUPT
;60 WITH
;70 IN RHCS! FOR READ DATA
:WITH INTERRUPT ENABLED

:+TIME 1S NOT CRITICAL HERE

012614
012616

012620
012622
012624

104413
002200

WAT
RHCS1

001614
001502

908.
834,

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

;WAIT FOR RDY BIT IN RHCS! REGISTER

RDY

000200

§}g§

3155
3156
3157

18.

108:

3145
3146

PAGE &9

REINTO

glas
44

LAST BLOCK TRANSFERED=-RHDS1 LBT

g}gg

3136
3137
3138
3139
3140
g}a;

10:48

;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

;7640 AND 17420 MICRO SECONDS

:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE

012626
012632
01263%

004037
002172
000000

033216

JSR
RHWC
0

RO,a#F ILLRE

;MOV 0 INTO SAVED RHWC
:SAVED REGISTER TO CHANGE
:DATA

SEQ 0068

CZRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

D el
s
il
il —l
D el
sl
Dl
il
— ol

5
?

004037
002174
004434

033216

JSR

RO,a#FILLRE

;MOV REINT04<256.%2> INTO SAVED RHBA

0 012646
0 12652

004037
002222

034204

JSR
RHDS1

RO,a#CHREG

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

0 12654
0 12656
0 12660

000001
000001
002000

012662
012666

004037
002212

0 12670
0 12672
0 12674

000001
000001
000001

0 1 2676
0 12702
0 12704

004037

002204
000000

RHBA
REINTO+<256.2>

1
1

LBT

034204

JSR

RHCA

; CHANGE LBT BIT
RO,3#CHREG

JSR
SHDST

012706

004037

012712
012714
012716
012720
012722

004512
002254
000022
012724
012730

012724
012726

104045
000207

;NEW VALUE OF BITO IS 1
: CHANGE BITO BIT

RO,a#FILLRE

;MOV 0 INTO SAVED RHDST
:g:¥§0 REGISTER TO CHANGE

JSR

034312

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
:GOOD 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

45
PC

;READING ON LAST BLOCK IE.
;CYLINDER 410./814,, SECTOR 21, TRACK 18
: CAUSED AN ERROR
;600D DATA GIVES WHAT SHOULD
:BE THERE
;RECEIVED DATA GIVES WHAT

SAVERE
wC
18.
3%
4%

3%:

ERROR
RTS

;WAS THERE AFTER READ
;FROM LAST BLOCK

4%:

012730

3207
3208
3209
3210
3211
3212
3213

012730
01273
012736
012740
012742
012744

004037
002370
003434
000400
012746
012752

3215

012746

104046

3214

; CHANGE RHCA REGISTER

; *COMPARE ALL REGISTERS

3205

3206

;CHANGE BITS IN SAVED REGISTER
;1 BIT/BITS TO BE CHANGED

1
BIT0
033216

;SAVED REGISTER TO CHANGE
;DATA

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

3199
3200
3201
3202
3203
3204

012636
012642
012644

D el

il A

W L L W U U L U U U U U W U W U U U U W U U

el el

N N

D el

N NN W

D el el

VOV OOV OV OVOVOVEEEOPOOWO
NNNNNNNYNY~NOT OO o
P HUNN—=OOVRNO
VNI W =0V
NO VS WNN =0V ~ o

s e

NN W

3160
3161
3162
3163
3164
3165

25-MAY-=79 10:48 PAGE 70
MACY11 30A(1052)
LAST BLOCK TRANSFERED-RHDS1 LBT
TMm

035342

;*READ DATA WiLL BE COMPARED
JSR
WRFROM
REINTO
256.

RO,3#COMPAR

; COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
:256., WORDS TO BE COMPARED
;RETURN TO 5% ON ERROR
;RETURN T0 6% ON NO ERROR

ERROR

;:DATA READ FROM

5%
6%

5%:

SEQ 0069

CIRJJIDO, RPO4/5/6 FCINL CTRLR2
CIZRJJD.P1I
28-MAR-79 08:52
gg}?

012750

3218
3219
3220
3221

012752

MACY11

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

000207

RTS

6%:

;LAST BLOCK IN ERROR

SEQ 0070

CZRJJDO, RPO4/5/6 FCTNL CTRLRZ
CZRJJD.PY
28-MAR-79 08:52

30A(1052)
m
e

25-MAY-79 10:48 PAGE 72
LAST BLOCK TRANSFERED-RHDS1 LBT

SEQ 0071

2222222222222 22222222222222322222222222222222
2R iRttt l)

SEARCH COMMAND

SRTEST 12
R

THAT

THE SEARCH COMMAND WILL BE DONE ON CYLINDER 0
ALL REGISTERS WILL BE

I
I
R

R
R

B
T

N
T

B
T

THEN ALL REGISTERS ARE CHECKED AND DATA READ
IS
CHECKED

000004
012706
012737

001000
000012

004737

CHECKED

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.
TIME ALLOWED IS MAXIMUM
OF 1500 MICRO SECONDS

IS STARTING WITH A RECALIBRATE

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

1§T12:

SCOPE

MOV
MOV

#STACK,SP
#12,aNTSTNM

;RESET STACK
;SAVE TEST NUMBER

033314

JSR

PC,afCLDISK

;SET R1-RHCS1, R2-RH(SZ
:R3-RHDS1, R&=RHER1
:GIVE RH=11 INITIALIZE
; SETUP UNIT NUMBER

012772

004737

033374

012776
013002

104401

000000

057465

;*GET HEADS TO CYLINDER
;CHECKS DVA,RDY,MOL,DPR,DRY AND vV = 1
PC,aNCHECKT
JSR
;AND THAT ALL STATUS BITS ARE = 0

013004

013777

004506

004504

(=]

3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
327
3272
3273
3274
3275
3276
3277

MACY11

TYPE

,CPHALT

MOV

O#RPLVEC,aRPVEC :SET RPO4 VECTOR ADDRESS

HALT
167154

;CANNOT CONTINUE TESTING IF NOT
;STOP TEST
:T0

"TIME1'

P=-CLOCK

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

MOV
BIS

O#RECALI,-(SP)
#GO!1E, (SP)

013022

012677

167152

MOV

(SP)+,aRHCS

002222
000200
012740
012737

004737

5600.
5599.

033314

JSR

;60 WITH

;6 IN RHCS1 FOR RECALIBRATE
;WITH INTERRUPT ENABLED
;WAIT FOR RDY BIT TO SET
;WAIT FOR RHDS! REGISTER
;WALIT FOR RDY BIT IN RHDS1 REGISTER

WAT
RHDS1
RDY

104413

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

;ALLOW 56000 MICRO SECONDS
;RDY MUST SET BETWEEN
;10 AND 111990 MICRO SECONDS

PC,a#CLDISK

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

CZRJJDO, RPO4/S/6 FCINL CTRLR 2

CIRJJD.P1

28-MAR-79 08:52

MACY1

SOA(1052)

112

25-MAY=-79

10:48

SEARCH COMMAND

3278
3279

;SETUP UNIT NUMBER

g%gg

;*FILL WRITE FROM RUFFER WITH HEADER

013044
013050
013052
013054
013056
013060
013062

004037
002370
000004
010000
000000
000000
000000

033140

3298
3299
ggg?

3302
3303
3306
3305
3306
3307
gggg

JSR
WRFROM
4
10000
0
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

;+FILL WRITE FROW BUFFER WITH DATA

gsgg
3294
3295
3296
3297

013064
013070
013072
013074

004037
002400
000400
000000

033164

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

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

s«FILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER

013076
013102
013104
013106
013110
013112
013114

004037
003400
000004
010000
000001
000000

033140

000000

?
§§}
3312 013116 004037 033164

JSR
RO, 3NFLHEAD
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

:FOURTH DATA WORD

:+FILL WRITE FROM BUFFER WITH NEXT SECTOR DATA

3313

013122

003410

JSR
RO,3#CLAREA
WRFROM+<264,¢2>

:CLEAR & WORDS, FROM WRFROM+<264.*2>
;STARTING FROM WRFROM+<264
%2>

3315

013126

000001

SFILL WITH

3314

317

013124

000004

§§1g
73

3320
3321
3322
3323

3324
3325
gggg

3328
3329
3330
3331

3332

3333

SEQ 0072

;R3=-RHDS1, R&=RHERI
:GIVE RM=11 INITIALIZE

ggg?
3284
3285
3286
3287
3288
3289
g%g?

PAGE 73

;4 WORDS

:+CLEAR READ INTO BUFFER WITH DATA OTHER THAN EXPECTED DATA

013130
013134
013136
013140

004037
003434
000404
000377

033164

JSR
REINTO
260.
377

RO,3#CLAREA

;CLEAR 260. WORDS, FROM REINTO
:STARTING FROM REINTO
:260. WORDS
(FILL WITH 377

:+THE WRITE HEADER AND DATA WILL BE LOADED

013142
013146
013150
013151

013152

004037
000000
000
000

177364

035276

JSR
0
.BYTE
BYTE

=264 .=4

RO,3#RUN

0
0

:SETUP 10 RUN FOR DATA (OMMAND
;CYLINDER O
;SECTOR 0
:TRACK O

:WORD COUNT (DATA) = 264, ¢
;4 HEADER WORDS

——
e

CIRJJIDO, RPO4L/5/6 FCTNL CTRLR2
CZRJJID.P1Y
28-MAR-79 08:52

3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356

MACY1

30A51052)

25-MAY=79

10:48

SEARCH COMMAND

PAGE 74

SEQ 0073

013154

002370

WRFROM

013156
013160

000000
010000

;STARTING ADDRESS OF DATA
= WRFROM
:BUFFER
;D0 NOT INMIBIT BUS ADDRESS INCREMENT

013162

002344

WRIFOR

;00 NOT INMIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A WRIFOR

013164
013170
013172

004037
002172
004512

FMT22

;WRITE HEADER AND DATA WITH 62 IN RH(S!

RO,3#SAVER

013176

004737

033374

013202
013206

104401
000000

057465

3358

013210

013777

004506

3366
ggg;

013216
013222

013746
052716

3369
3370
3371
3372
3375
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389

013226

012677

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

18.

000022

013234

:16 BITS PER WORD FORMAT

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA

JSR
RHW(
SAVERE

033462

013174

013232

;BUS ADDRESS

SAVED

:NUMBER OF REGISTERS

;SAVED = 18.

JSR

PC,a#CHECKT

TYPE

,CPHALT

MOV

O#RP4LVEC,aRPVEC ;SET RPO4 VECTOR ADDRESS

002344
000101

MOV

OFWRIFOR,=(SP)

;GET READY TO MOVE COMMAND

166746

MOV

(SP)+,aRHCST

;60 WITH

HALT

166750

BIS

MOV

011100

MOV

011305

;CHECKS DVA,RDY,
MOL ,DPR,DRY AND VvV = 1
:AND THAT ALL STATUS BITS ARE = 0
;CANNOT CONTINUE TESTING IF NOT
;:STOP TEST

:T0 "TIMET1' IF P=CLOCK 1S PRESENT
:OR TO 'TIMEZ2' IF P=CLOCK IS NOT THERE
;'TIME®' WILL ONLY SAVE
sCURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

#GO!1E, (SP)

aR1,R0

aR3,RS

:GET READY TO SET GO AND
sENABLE 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
013236
013240
013242
013244
013246

WAl

104413
002200
000200
001614
001507

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
;WALIT FOR RDY BIT IN RHCS! REGISTER
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN
;690 AND 17470 MICRO SECONDS

RHCS1
RDY
908.
839.

;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN
;*RO AND RS IMMEDIATELY AFTER GO IS ISSUED

013250
(013254
013260

013746
052716
011637

002344
004101
001124

MOV

O#WRIFOR,=(SP)

;SAVE COMMAND

MOV

(SP),a#$GDDAT

;SAVE FOR PRINTOUT

B1S

(SP) ;INCLUDE IE!DVA!GO
#1E DVA!GO,

CIZRJJDO, RPO&L/5/6 FLTINL CTRLR2
CZRJJD.P
28-MAR-79 08:52

3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
34064
3405
36406
3407
3408
3409
3410
36411
3412
3613
3414
36415
3416
36417
3418
3419
36420
3421
3622
3423

MACY1

S??51052)

3430
3431
3432
3433
3434
3435
3436
3437
3438
3439
3440
3441
3442
3443
3444

3445

10:48

SEARCH COMMAND

PAGE 75

SEQ 0074

013264

022600

CmpP

(SP)+,RO

;DURING ABOVE OPERATION ONLY IE:DVA:!GO

013266
013270
013274
013300

00140%
010037
010137

BEQ
MOv

67%
RO,a#$BDDAT

:BRANCH IF GOOD

013302
013306
013312

012746
011637
022605

013314
013316
013322
013326

001405
010537
010337

MOV

ERROR

104021

104063

67%:

MOv
MOV

(mMpP

001126
004500

SET

:BAD DATA
;FAILING REGISTER RHCSI
21
;DURING ABOVE OPERATION ONLY
; COMMAND AND IE!DVA!GO SHOULD BE SET
#MOL ! DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDSI
(SP) ,a#SGDDAT

(SP)+,RS

69%
RS,a#$BDDAT

ERROR

R3,3#REGADR

69%:

013330

;AND COMMAND SHOULD BE

R1,9#REGADR

BEQ
MOV
MOV

;SAVE FOR PRINTOUT

;DURING ABOVE OPERATION ONLY MOL':DPR:vVV
: SHOULD BE SET
:BRANCH IF GOOD
:BAD DATA

;FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY
;MOL'!DPR!VV SHOULD BE SET

;*NOW CHANGE SAVE REGISTERS TO EXPECTED VALUES
013330
013334
013336

004037
002172
000000

033216

013340
013344
013346

004037
002174
003420

033216

013350
013354
013356

004037
002204
000002

033216

JSR

RHWC

RO,a#F ILLRE

JSR

RHBA

JSR

SHDST

;MOV O INTO SAVED RHWC
:3A¥§D REGISTER TO CHANGE
;DA

RO,a#FILLRE

WRFROM+<268.+2>

3424
3425

3426
3427
3428
3429

25-MAY=-79

RO,a#F ILLRE

;MOV WRFROM+<268.+2>

INTO SAVED RHBA

; SAVED RES{?;ER TO CHANGE

;MOV 2 INTO SAVED RHDST

;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

;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
;18. REGISTERS 70 BE COMPARED
;RETURN TO 1% ON ERROR

SAVERE

Wl
18.

;RETURN TO 2% ON NO ERROR

2%
1%:

ERROR
RTS

; COMPARE SAVED REGISTERS WITH

;PRESENT VALUE

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
;*NOW A SEARCH COMMAND wiLL BE GIVEN

———e

CIRJJDO, RPO4/5/6 FCINL CTRLR2

CZRJIID.P1Y

28-MAR-79 08:52

MACY1

30A(1052)

112

25-MAY=79

10:48

SEARCH COMMAND

PAGE 76

34646

;*BUT BEFORE THAT ALL POSSIBLE REGISTERS

g:gg

;*COMPLETION OF THE SEARCH AND THE SECTOR 1 COMING.

3447
3448

:*WILL BE FILLED FOR THE READ HEADER AND DATA SECTOR 1
;*AS THERE WILL NOT BE MUCH TIME BETWEEN THE

3451
3452
3453
g:gg

:*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

gzgg

013402

3458

013402

2%:

004737

033314

JSR

PC,a#CLDISK

:SETUP UNIT NUMBER

gzg;

3465
3466
3,67
3468
3469
3470

3471
3472

3473
3474
3475

3476

013406
013412

004037
000000

000
000
177770
003434

JSR
0
BYTE
BYTE
-8.
REINTO

013422
0134264

000000
014000

0
ECI'FMT22

013426

002334

SERCH

013430
013434
013436

004037
002172
004512

013440

000022

:+SAVE REGISTERS FOR COMPARISON NOT AFTER THE
:*SEARCH COMMAND BUT AFTER THE READ HEADER AND DATA
JSR
RO,3#SAVER
:SAVE REGISTERS
RHWC
:RHWC IS THE FIRST REGISTER SAVED
SAVERE
:STARTING ADDRES OF WHERE
:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS
18.

013414
013415
013416
013420

035276

3477
3,78

3479
3480
3481
3,82
3483
3484
34,85

3486

033462

gagg

013442
013446
013452
013456

013746
052716
012637
012737

002350
000101
004652
000001

004660

3500
3501

:DO NOT INMIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
:INHIBIT ECC CORRECTION
:DO NOT INMIBIT HEADER COMPARE
;:GET READY TO DO A SERCH

:SEARCH WITH 30 IN RHCS!

MOV
BIS
MOV
MOV

A#REFOR,=(SP)
#1E'GO, (SP)
(SP)+,afTMPO
#1,30THPS

;SAVE READ HEADER AND DATA
:INTERRUPT ENABLE AND GO
:SAVE IN RO FOR RHCS!
:SAVE TRACK O SECTOR 1 FOR RMDST

:*THE INTERRUPT VECTOR WILL BE SET TO GO TO 2%
;*AFTER THE SEARCH

3497

3498

:BUFFER
= REINTO

;+WILL CHANGE AFTER THE SEARCH

3496

3499

;SECTOR 0
:TRACK 0
:WORD COUNT = 8.
:BUS ADDRESS
:STARTING ADDRESS OF DATA

:*NOW SAVE VALUES FOR RHCS1 AND RHDST WHICH

3488

3691
3492
3493
ga;g

0
0

:SETUP TO RUN FOR DATA COMMAND
:CYLINDER 0

:SAVED = 18.

3487
&

RO,3#RUN

013464

013472

532
374

166474

MOV
JSR

#7%,9RPVEC

PC,a#(HECKT

;SET INTERRUPT VECTOR T0 2%

s CHECKS DVA,RDY,MCL ,DPR,DRY AND VV
;AND THAT ALL STATUS BITS ARE = 0

3463
364

:SET R1-RHCS1, R2-RH(CS2

;R3-RHDS1, R&=RHER1
:GIVE RH=11 INITIALIZE

—

3459
3460

SEQ 0075

CIZRJJIDO, RPO4L/5/6 FCTINL CTRLRZ
CZRJJD.PI
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

35644
3545
3546
3547
3548
3549
3550
3551
3552
3553
3556
3555
3556
3557

MACY11
ek

30A(1052)

25-MAY=79

10:48

SEARCH COMMAND

PAGE 77

SEQ 0076

013476
013502

104401
000000

057465

TYPE
HALT

»CPHALT

; CANNOT CONTINUE TESTING IF NOT
;STOP TEST

013504
013510

013746
052716

002334
000101

MOv

a#SERCH,=(SP)

;GET READY TO MOVE COMMAND

013514

012677

166460

MOV

(SP)+,aRHCS1

BIS

#GO!1E, (SP)

;GET READY TO SET GO AND

;ENABLE INTERRUPT

;60 WITH
;WITH INTERRUPT ENABLED

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

104413
002222
000200
001614
001507

013532

012737

WAT
RHDS1

;WAIT FOR DRY BIT TO SET
;WAIT FOR RHDS1 REGISTER

DRY
908.
839.

000000

177776

7%:

MOov

;WAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 9080 MICRO SECONDS
:DRY MUST SET BETWEEN
;690 AND 17470 MICRO SECONDS
#0,PS

;SET PROSESSOR STATUS TO

;PRIORITY O IN CASE IT WAS
; TAKEN OUT OF WAT ROUTINE

;BEFORE RTI
;SET DESIRED SECTOR/TRACK

013540

013777

004660

166436

MOov

a¥TMP5,aRHDST

013546

013777

004506

166412

MOV

¥RP4LVEC,dRPVEC ;SET RPO4 VECTOR ADDRESS

;REGISTER TO SECTOR 1,TRACK 0

;70 "TIMEY1' IF P=CLOCK IS PRESENT
;OR TO "TIME2' IF P=-CLOCK IS NOT THERE

;'TIME'

WILL ONLY SAVE

;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

013554

013777

004652

166416

MOV

a#TMPO,aRHCST

sFILL RHCS1 WITH READ COMMAND
:logEégER WITH INTERRUPT ENABLE
;AN

;*TIME ALLOWED HERE IS CRITICAL ANY TIME ERROR
;*INDICATES WRONG SEARCH IN THE SEARCH COMMAND
013562
013564
013566
013570

013572

WAT
RHCS1T

104413
002200

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS! REGISTER

RDY
149.
2.

000200
000225
000002

;WAIT FOR RDY BIT IN RHCS1 REGISTER
sALLOW 1490 MICRO SECONDS
;RDY MUST SET BETWEEN
;1470 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
b
10000
1

RO,a#FLHEAD

;SECOND DATA WORD
;:THIRD DATA WORD

;FOURTH DATA WORD

JSR

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

RO,a#CLAREA

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

CZIRJJDO, RPO4/5/6 FCTNL CTRLR2
CZRJID.P11
28-MAR-79 08:52
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
013624

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

L
PAGE

WRFROM+<4*2>

002400
000004
000001

SEQ 0077

;STARTING FROM WRFROM#<4*2>

;4 WORDS
SFILL WITH

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES
013626
013632
013634

004037
002172
000000

033216

013636
013642
013644

004037
002174
003454

033216

013646
013652
013654

004037
002200
004272

033216

013656
013662
013664

004037
002204
000002

033216

JSR

RO,a#FILLRE

JSR

RO,a#FILLRE

SHU(

RHBA

REINTO+<8.*2>

JSR

RHCS1
4272

JSR

SHDST

RO,3#FILLRE

;MOV 0 INTO SAVED RHW(

:g:¥ib REGISTER TO CHANGE

;MOV REINTO+<B.*2> INTO SAVED RHBA

sSAVED REGISTER TO CHANGE
;DATA

:MOV 4272 INTO SAVED RHCSI1
:SA¥§D REGISTER TO CHANGE
;DA

RO,a#F ILLRE

;MOV 2

INTO SAVED RHDST

:3:¥ED REGISTER TO CHANGE

;*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

034312

3%:

000207

4%:

013710

013710
013714
013716
013720
013722
013724

004037
002370
003434
000010
013726
013732

035342

JSR

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
:GOOD 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

ERROR

;READ HEADER AND DATA CAUSED

; IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
:BE THERE
;RECEIVED DATA GIVES WHAT WAS
: THERE AFTER COMMAND

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

WRFROM
gEINTO

RO,a#COMPAR

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

;RETURN TO 5% ON ERROR

;RETURN TO 6% ON NO ERROR

CIRJJIDO, RPO4/5/6 FCTINL CTRLR 2
CIRJJD.P11
28-MAR-79 08:52
3614
3615
3616
3617
3618
3619
3620

013726
013730
013732

104053
000207

MACY1

S??51052)

5%:
6%:

25=MAY=79

10:48

SEARCH COMMAND

ERROR

RTS

PAGE 79

;READ HEADER AND DATA

;AFTER A SEARCH CAUSED
;AN ERROR

SEQ 0078

MACY1Y

30A(1052)
112

25=MAY=79

10:48

SEARCH COMMAND

7
PAGE &0

SEQ 0079

CrRANR SRR R RN R RN R RN RN R RN RRRRRRRRRRRORRRERRRRROERRORREORORORROEROORRORTERTSTRE

SEARCH COMMAND

=
@

we
w.

THEN A READ COMMAND IS GIVEN FOR

CYLINDER O, TRACK O, SECTOR 1

TIME FOR THE READ IS THE ONLY
OF CORRECT SEARCH

000004
012706
012737

001000
000013

004737

033314

222222222222 222222222222

15113:
004504

IS AN IMPLIED SEEK

IN A SEARCH COMMAND
THE HEADS START FROM CYLINDER 10 BY A SEEK
Eg!g?ngnlnifl A SEARCH SECTOR O TRACK O CYLINDER 0

THE ONLY THING NEW IN THIS TEST

SeTEST 13

INDICATOR

2222222220202 2Rl

SCOPE
MOv
Mov

#STACK,SP
#13,a7TSTNM

;RESET STACK
;SAVE TEST NUMBER

JSR

PC,aNCLDISK

;SET R1-RHCS1, R2-RHCSZ
;R3-RHDS1, R&=-RHER1

;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER

;*GET THE HEADS TO CYLINDER 10

013752

004737

033374

JSR

PC,aNCHECKT

013756
013762
013764

000000
013777

104401

057465

TYPE
HALT
Mov

»CPHALT

004506

166174

; CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1
;AND THAT ALL STATUS BITS ARE = 0

; CANNOT CONTINUE TESTING IF NOT
;STOP TEST
‘
A¥RP4LVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS
;70

'TIME1'

P-CLOCK

IS PRESENT

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

WILL ONLY SAVE

: CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

;GET READY TO MOVE COMMAND

MOov

(SP)+,aRHCST

002352
000101

012677

166164

ANSEECOM,-(SP)

——

MOv

013746
052716

owm

:SEEK FOR

033264

104413
002222
000200
015530
000043

3676

RO,Q#SEEKCY

004037
000012

#GO!1E, (SP)

BIS

WAT
RHDS1

DRY
7000.
35.

;CYLINDER 10.

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

;WAIT FOR DRY BIT TO SET
;WAIT FOR RHDS1 REGISTER
;WAIT 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
|\

(IRJJIDO, RPO&/S5/6 FCTINL CTRLR2
28-MAR-79 08:52

CIRJID.P1

3677
3678
3679

014026

3682
3683

014032
014036

3681

3684
3685
3686
3687
3688
3689
3690
3691
3692
3693
3694
3695

3696
3697
3698
3699
3700

004737

033314

JSR
«

014040
014041
014042
014044

004037
000000

035276

014046
014050

000000
014000

014052

002334

-8,

‘

000022

3707
3708

0
0

014066

004737

033374

3710
3711

014072
014076

104401
000000

057465

012777

014264

3714
3715
3716
3717

014106
014112
014114
014115

004037
000000
000
000

033244

3719
3720

014116

013700

:SETUP TO RUN FOR DATA COMMAND
SCYLINDER 0

“SECTOR 0
sTRACK 0
‘WORD COUNT = 8.
;BUS ADDRESS
;STARTING ADDRESS OF DATA
;BUFFER = REINTO
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
sINHIBITECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE
sGET READY TO DO A SERCH
;SEARCH WITH 30 IN RHCS1

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

033462

RHWC
SAVERE

sRHWC 1S THE FIRST REGISTER SAVED
sSTARTING ADDRES OF WHERE
sTHE REGISTERS ARE SAVED
sNUMBER OF REGISTERS
“SAVED = 18.

18.

3706

014100

RO,aNRUN

SERCH

;SET R1-RHCS1, R2-RHCS2
:R3-RHDS1, R&-RHER1
“GIVE RH-11 INITIALIZE

- iSETUP UNIT NUMBER

0
ECI!FMT22

014064

g;}%

PC,a#CLDISK

REINTO

004037
002172
004512

3709

JSR
0
BYTE
BYTE

000
000
177770
003434

014054
014060
014062

3701
3702
3703
3706
3705

MACY1Y 30?(1052)
25=MAY=-79 10:48 PAGE 81
113
SEARCH COMMAND

;*NOW GIVE THE SEARCH CTOMMAND
JSR
PC,aNCHECKT
:CHECKS DVA,RDY,MOL,DPR,DRY AND VvV = 1
:AND THAT ALL STATUS BITS ARE = 0
TYPE
LCPHALT
s GANNOT CONTINUE TESTING IF NOT
WAL T
'STOP TEST
s INTERRUPT VECTOR SET TO 3%
#3% ,3RPVEC
MOV

166060

JSR
0
0
0

RO,3#SRCH

s SEARCH FOR
SCYLINDER 0
“SECTOR 0
S TRACK 0

002334

MOV

AfSERCH,RO

3721 014122 052700 004301

BIS

sEXPECTED CONTENTS OF RHCS1
; IMMEDIATELY AFTER GO

lDVA!RDV!lE!GO.Rb ;EXPECTED BITS IN RHCS1

3722

3723

3755

3726
3727
3728
3729
3730
3731
3732

BYTE
BYTE

MOV

#MOL'PPR!VV,RS ;EXPECTED BITS IN RHDSI

014126

012705

010500

014132
014136

013746
052716

002334
000101

MOV
BIS

O#SERCH,-(SP)
#GO!1E, (SP)

014142

012677

166032

MOV

(SP)+,aRHCST

014146
014150

021100
001413

CMP
BEQ

aR1,RO
1%

;s IMMEDIATELY AFTER GO

sGET READY TO MOVE COMMAND
sGET READY TO SET GO AND
sENABLE INTERRUPT
;60 WITH
sWITH INTERRUPT ENABLED
;1S RHCST1 GOOD
sBRANCH |F GOOD

SEQ 0080

[l
]

CIRJJDO, RPO4/5/6 FCTNL CTRLR2
CIRJJD.P1N
28-MAR-79 08:52

NN NN

—_NNNN

000414

014200
014202
014204
014210
014214
014220
014226

WNNNNNOW

0146176

e =1-1-1-1-1-]
Ot
i O
B NNOO =t s
O NWWNIN
S N
O NWWNWWN—=O

1
0
1
7
0

0
000340

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

014230
014236
014244

aR1,3/$BDDAT

Mov
Mov
ERROR

R1,3/REGADR
;FAILING REGISTER RHCS1
#340,3# TRAPVEC+2 ; TRAP PRIORITY = 7
21
;DURING SEARCH COMMAND
;CONTENTS OF RHCS1 WAS
:NOT AS EXPECTED
2%
;1F LAST ERROR 21 OCCURRED
; THEN DO NOT CHECK RHDS1
;AS TOO MUCH TIME HAS
; PASSED

1%:

001126
001124
004500
000340

000036

002350
000101
000001

004652
004652
004660

2%:

7
PAGE 82

Mov
MoV
000036

CMP

BEQ
Mov
MoV

RO,3#$GDDAT

aR3,R5
2%
aR3,3#$BDDAT
RS ,a#SGDDAT

;BAD DATA FOR RHCS1

:GOOD DATA

;1S RHDS1 GOOD
;BRANCH IF GOOD
:BAD DATA FOR RHDS1
:GOOD DATA

MOV
MOV
ERROR

R3,3#REGADR
;FAILING REGISTER RHDS1
#340 ,#TRAPVEC+2 ;TRAP PRIORITY = 7
63
;DURING SEARCH COMMAND
;CONTENTS OF RHDS1 WAS
: IN CORRECT

MOv

QNREFOR,a#TMPO

BIS
Mov

#IE!GO,a#TMPO
#1,NTMPS

;SAVE READ HEADER AND DATA
; INCLUDE INTERRUPT ENABLE, GO
:SAVE TRACK 0, SECTOR 1

;*THIS 1S ONLY A WAIT LOOP
WAT
RHDS1

014252
014254
014256
014260
014262
014264
014272
014300

000200
000000
004660

000036

014306

004506

165652

014314

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

RDY
7000.
35.

013711

004652

177776
165676

3%:

MOov

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

#0,PS
¥ TMP5,9RHDST

;:SET PROSESSOR STATUS 10 0
;SET DESIRED SECTOR/TRACK

;REGISTER TO SECTOR 1, TRACK 0

MoV

¥RP4LVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS

MoV

a¥TMPO,aR!

;70 '"TIMEY1' IF P=CLOCK 1S PRESENT
;OR TO "TIMEZ2' iF P=-CLOCK IS NOT THERE
;'TIME' WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
sFILL RHCS1 WITH READ COMMAND
logfiégER WITH INTERRUPT ENABLE
N

;*TIME ALLOWED HERE 1S CRITICAL ANY TIME ERROR
;*INDICATES WRONG SEARCH IN THE SEARCH COMMAND
014320
014322
014324

104413

002209
000200

WAT
RHCS1
RDY

SEQ 0081

;WALIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
;WALT FOR RDY BIT IN RHCS! REGISTER

(

MACY11

0000
O
= 2
S£NNOO
-

~NOorOruvn
s

D
—,

—,

Pl o

OO0
O0

CIZRJJIDO, RPO4L/5/6 FCTNL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

3789
3790
3191
3792
3793
3794
3795
3796
3797
3798
3799

014326
014330

MACY1 SOA;!OSZ)

25-MAY=-79

10:48

SEARCH COMMAND

;ALLOW 1490 MICRO SECONDS
;RDY MUST SET BETWEEN

149,
2.

000225
000002

7
PAGE 83

;1470 AND 1510 MICRO SECONDS

;*WRITE FROM BUFFER WILL BE FILLED WITH EXPECTED DATA

014352
014356
014360
014362

004037
002370
000004
010000
000001
000000
000000

033140

004037
002400
000004

033164

JSR

WRFROM

RO,a#FLHEAD

}0000

0
0

JSR

;FOURTH DATA WORD

RO,3#CLAREA

22>
WRFROM+<4
4

000001

;SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD
;SECOND DATA WORD
;:THIRD DATA WORD
;CLEAR & WORDS, FROM WRFROM+<4*2>
;STARTING FROM WRFROM4<4*2>
;& WORDS
;FILL WITH

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES
014364
014370

033216

014372

004037
002172
000000

014374
014400
014402

004037
002174
003454

033216

014404
014410
014412

004037
002200
004272

033216

014414
014420
014422

004037
002204
000002

033216

014424
014430
014432

004037
002234
000000

033216

JSR

SHHC

JSR

RHBA

RO,a#FILLRE

REINTO+<8.*2>

JSR

RHCS1

;MOV 0 INTO SAVED RHWC
:S:¥ED REGISTER TO CHANGE

RO,a#FILLRE

4272

;MOV REINTO+<B.#2> INTO SAVED RHBA

;SAVED REGISTER TO CHANGE
;DATA

;MOV 4272 INTO SAVED RH(S!

:3:¥ED REGISTER TO CHANGE

JSR

RO,a¥F ILLRE

;MOV 2 INTO SAVED RHDST
:g:¥50 REGISTER TO CHANGE

JSR
gncc :

RO,a#F ILLRE

;MOV O INTO SAVED RHCC
:3:¥ED REGISTER TO CHANGE

SHDST

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

004037

014440
014442
014444

004512
002254
000022

034312

JSR
SAVERE

18.

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
:GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘RHWC'
;18. REGISTERS TO BE COMPARED

SEQ 0082

(]

CIZRJJIDO, RPO4L/5/6 FCINL CTRLRZ
28-MAR-79 08:52

CZRJID.P1Y

014446
014450

014452
014456

014452
014454

104031

MACY11

30A(1052)
25-MAY-79 10:48
13
SEARCH COMMAND
4%
5%
4%:

000207

ERROR
RTS

7
PAGE B4
;RETURN TO 4% ON ERROR
;RETURN TO 5% ON NO ERROR

;READ HEADER AND DATA CAUSED

; INPROPER REGISTER CHANGE

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

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

014456

014456
014462
014464
014466
014470
014472

004037
002370
003434
000010
016474
014500

014474
014476

104053
000207

014500

035342

;*THE READ WAS GOOD

JSR
WRFROM
REINTO

RO,a#CCMPAR

ERROR

8.
6%
7%
6%:
7%:

RTS

; COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
:8., WORDS TO BE COMPARED
;RETURN TO 6% ON ERROR
;RETURN TO 7% ON NO ERROR

;READ HEADER AND DATA

;AFTER A SEARCH CAUSED
;AN ERROR

SEQ 0083

CZRJJIDO, RPO4L/5/6 FCIN L (7 RLR 2
CZRJJD.P1I
28-MAR-79 08 152

CZRJJDO, RPO4L/5/6 FCTINL CTRLR 2
CZRJJD.P1I
28-MAR-79 08:52

3911
3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931

S??;lOSZ)

SR
R

I
TR

TR
T

%
%

25-MAY-79

10:48

SEARCH COMMAND

PAGE 85

SEQ 0084

2222222202222 2222220220202
2 2 2R
R
iRt
d)

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

MACY1

THE NEXT TEST REMOVES SECTOR 1 ON CYLINDER 0
TRACKO AND PUTS SECTOR 9 THERE.

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

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 THIS
PROGRAM THE DISK BE REFORMATTED.

2222222222222

222222222

22222202

2Rt

RRRRRR

':'lt"""""l'l"""""""'"'""'.t"t""i"t'."t't""

SATEST 14
.
*
.
.

.
.

HEADER COMPARE ERROR - RHER1 BIT #7 (HCE)

WRITE HEADER AND DATA IS USED TO REMOVE SECTOR 1
AND PUT SECTOR O THERE ON CYLINDER 0
THEN A READ DATA IS GIVEN FOR SECTORI
HCE=- BIT #7 IN RHER1 SHOULD SET.
ALL REGISTERS ARE CHECKED
ANY DATA READ IS CHECKED

';""""'"'"'"""l""""""""t"'t"'.'t"'t"'ll"tt'

014500
014502
014506

000004
012706
012737

001000
000014

014514

004737

033314

1ST14:
004504

SCOPE

MOV
MOV

#STACK,SP
#1490 TSTNM

SRESET STACK
:SAVE TEST NUMBER

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(S?2
;R3-RHDS1, R&=-RHER1

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*FILL WRITE FROM BUFFER WITH HEADER

014520
014524
014526
014530
014532

01453¢
014536
014540

|
004037
002370
000005
010000
000000

000000
000000
000001

033140

JSR
WRFROM
5
10000
0
0
0

RO,3#FLHEAD

;*FILL 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

CZRJJDO, RPO4L/5/6 FCTINL CTRLR2
CZRJJD.P n
28-MAR-79 08:52
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987

014542
014546
014550

014552

004037
003434
000400

MACYT

3??21052)

7
25-MAY=79 10:48 PAGE 86
HEADER COMPARE ERROR - RHER1 BIT #7 (HCE)

JSR

033164

REINTO

RO,3#CLAREA

256.

;CLEAR 256. WORDS, FROM REINTO
:STARTING FROM REINTO

:256. WORDS

sFILL WITH =1

-1

177777

SEQ 0085

;*WRITE HEADER AND DATA S LOADED
014554
014560
0146562
014563
014564

004037
000000
001
000

014566

002370

035276

JSR
0
BYTE
.BYTE

-1-4

177773

010000

014574

002344

;SETUP TO RUN FOR DATA COMMAND

;CYLINDER 0
;SECTOR 1.
:TRACK 0.

1.
0.

:WORD COUNT (DATA) = 1 +

:4 HEADER WORDS

;BUS ADDRESS

WRFROM

014570" 000000
014572

RO,a#RUN

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

FM122

;16 BITS PER WORD FORMAT

;D0 NOT INHIBIT ECC CORRECTION

;00 NOT INHIBIT HEADER COMPARE

WRIFOR

;GET READY TO DO A WRIFOR

;WRITE HEADER AND DATA WITH 62 IN RH(CSI

;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE
014576
014602
014604

004037
002172
004512

014606

000021

014610

004737

JSR
RHWC

033462

RO,a#SAVER

SAVERE

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

;NUMBER OF

;THE

REGISTERS ARE

SAVED

REGISTERS

;SAVED = 17,

033374

JSR

PC,a#CHECKT

; CHECKS DVA,RDY,MOL,DPR,DRY AND VvV = 1

TYPE
HALT

,CPHALT

; CANNOT CONTINUE TESTING IF
;STOP TEST

MOV

a#RPLVEC,QRPVEC ;SET RPO4 VECTOR ADDRESS

014614
014620

104401

000000

057465

014622

013777

004506

165336

;AND THAT ALL STATUS BITS ARE = 0

;70 "TIME1" IF P=CLOCK IS PRESENT
;OR TO 'TIME2'

P=-CLOCK

;"TIME' WiLL ONLY SAVE
; CURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS
014630
014634

013746
052716

002344
000101

MOV

014640

012677

165334

MOv

BIS

NOT

IS NOT THERE

9/WRIFOR,-(SP)

;GET READY TO MOVE COMMAND

(SP)+,aRHCS]

;ENABLE INTERRUPT
;60 WITH
;62 IN RHCS1 FOR WRITE HEADER AND DATA

#GO!I1E, (SP)

;GET READY TO SET GO AND

;WITH

;*TIME IS NOT CRITICAL

INTERRUPT

ENABLED

CZRJJIDO, RPO4L/5/6 FLTNL CYRLSZ
28-MAR-79 08:5
CZRJJD.PY
3988
3989
3990
3991

016644
014646
014650
014652
014654

7
MACYTT 30A(1052)
25=MAY-79 10:48 PAGE &7
HEADER COMPARE ERROR - RHER1 BIT #7 (HCE)
1

104413
002200
000200
004704
004704

Whi
RHCS1
RDY

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

2500.
2500.

sALLOW 25000 MICRO SECONDS
;RDY MUST SET BETWEEN
;00 AND 50000 MICRO SECONDS

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
014656
014662

033216

014664

004037
002172
000000

014666
014672
014674

004037
002174
002402

033216

014676
014702
014704

004037
002204
000002

033216

JSR

RO,a#FILLRE

JSR

RO,9#F ILLRE

:MOV WRFROM+<5+2> INTO SAVED RHBA

JSR

RO,a#F ILLRE

;MOV 2 INTO SAVED RHDST

RHWC
0

RHBA
WRFROM+<5¢2>

SHDST

;MOV O INTO SAVED RHWC

;SAVED REGISTER TO CHANGE
;DATA

g:¥ib REGISTER T0 CHANGE

; *COMPARE ALL REGISTERS
014706

004037

014712
014714
014716
014720
014722

004512
002254
000021
014724
014730

014724
014726

104027
000207

JSR

034312

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;GO0OD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘'RHWC'
:17. REGISTERS TO BE COMPARED
;RETURN TO 1$ ON ERROR
;RETURN TO 2% ON NO ERROR

;WRITING HEADER AND DATA CAUSED

SAVERE
Wi
17.
1%
2%
1%:

ERROR
RTS

; IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT
: SHOULD BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE

AFTER WRITE

=
SEQ 0086

4030
4031
4032
4033
4034
4035
4036
4037
4038

4039

MACY11

30A(1052)
114

7
3
25-MAY=79 10:48 PAGE 88
HEADER COMPARE ERROR - RHER1 BIT #7 (WCE)

:'?g:cl gElD DATA WILL BE DONE ON CYLINDER=0, SECTOR=1,

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA
2%:

014730

004737

033314

JSR

PC,a#CLDISK

5041

6059
4060
4061
6062

4063

4064
6065
4066
4067
4068

4069
4070

4071
4072
4073
4074
4075
4076
4077
4078
4079
<080
4081
4082

4083
4084
4085

;SET R1-RHCS1, R2-RH(S?2
;R3-RHDS1, R&=RHERI

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

4040
6062
4043
4044
6045
6046
6047
6048
6049
4050
4051
4052
4053
6054
4055
4056
4057
4058

SEQ 0087

014734
014740
014742
014744

004037
002370
000400
77777

033164

JSR

WRFROM

RO,a#CLAREA

2?6.

;CLEAR 256. WORDS, FROM WRFROM
;STARTING FROM WRFROM
:256. WORDS
sFILL WITH =1

;*READ COMMAND IS LOADED
014746
014752
014754
014755
014756
014760

004037
000000
001
000
177777
003434

014762
014764

000000
010000

0
FM122

014766

002346

READAT

035276

JSR

RO,3#RUN

.BYTE
.?YTE

:SETUP TO RUN FOR DATA COMMAND
:CYLINDER 0
sSECTOR 1.

:TRACK 0

REINTO

;WORD COUNT =1
;BUS ADDRESS
;STARTING ADDRESS OF DATA
;BUFFER = REINTO
;D0 NOT INMIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
:DO NOT INHIBIT ECC CORRECTION
:DO NOT INHIBIT HEADER COMPARE
:GET READY TO DO A READAT

;READ DATA WITH 70 IN RHCS1

;*SAVE REGISTERS FOR COMPARISON AFTER READ DATA

JSR

RO,a#SAVER

014770
014774
014776

004037
002172
004512

015000

000022

015002

004737

033374

JSR

PC,a#CHECKT

015006
015012

104401

000000

057465

TYPE
HALT

LCPHALT

015014

013777

004506

MOV

a#RP4LVEC,aRPVEC

033462

RHWC

SAVERE

:THE REGISTERS ARE

SAVED

:NUMBER OF REGISTERS
s SAVED = 18.

18.

165144

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

; CHECKS DVA,RDY,MOL,DPR,DRY AND VvV = 1

;AND THAT ALL STATUS BITS ARE = 0
; CANNOT CONTINUE TESTING IF NOT

;STOP TEST

;SET RPO4& VECTOR ADDRESS
;70 "TIMET' IF P=CLOCK IS PRESENT
;OR 1O "TIME2' IF P=CLOCK IS NOT THERE
;'TIME' WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

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

CIRJID.P11
4086
4087
4088
4089
4090
4091
4092
4093
4094
4095
4096

4097
4098

4099

2B-MAR-79 08:52

2}8§

114

25-MAY-79

10:48

HEADER COMPARE ERROR = RWER1 BIT #7 (WCE)

013746
052716

002346
000101

MOV
BIS

SFREADAT,=(SP)
#GO' 1E, (SP)

015032

012677

165142

MOV

(SP)+,3RHCST

;+TIME

015036
015040

PAGE 89

015022
015026

1S NOT

SEQ 0088

:GET READY TO MOVE COMMAND
‘GET READY TO SET GO AND
“ENABLE INTERRUPT
GO WITH
:70 IN RHCS1 FOR READ DATA
:WITH INTERRUPT ENABLED

CRITICAL

015042

104413
002200
000200

WAT
RHCS1

:WAIT FOR RDY BIT TO SET
‘WAIT FOR RHCS1 REGISTER

015046

001502

4168.
834,

SALLOW 41680 MICRO SECONDS

RDY

4100 015044 010110
4101

30A(1052)

A}gg

*WAIT FOR RDY BIT IN RHCS1 REGISTER
*RDY MUST SET BETWEEN

33340 AND 50020 MICRO SECONDS

:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE

4106
‘:8;

015050
0150564

004037
002222

4109
4110
4111
4112
4}}2

015056
015060
015062
0150664
015066

000002
000001
100000
000001
040000

4115
&}}g

015070
015074

004037
002200

4118
4119
4120

015076
015100
015102

000002
000001
100000

2
1
SC

:2 BIT/BITS 10 BE CHANGED
*NEW VALUE OF SC IS 1
*CHANGE SC BIT

6}%%

015106

040000

TRE

*CHANGE TRE BIT

4121
'A

015104

034204

4127
4128
4}%8

015116
015120
015122

000001
000001
000200

4131
4132
4133

015124
015130
015132

004037
002204
000002

033216

015134

053737

004644

135

137

034204

JSR
RHER

RO.2#CHREG

RO, 3¥CHREG

4139

4141

:CHANGE BITS IN SAVED REGISTER
*CHANGE RHER1 REGISTER
:1 BIT/BITS 10 BE CHANGED
*NEW VALUE OF HCE IS 1
*CHANGE HCE BIT

JSR
RHDST
2

RO.a#F ILLRE

BIS

AWATTENT,ANSAVERE+24 :SET APPROPIATE 'ATA' BITS

:MOV 2 INTO SAVED RHDST
*SAVED REGISTER TO CHANGE
:DATA

:FOR WORKING DRIVE

“SAVED RHAS LOCATION

4138
4140

:CHANGE BITS IN SAVED REGISTER
*CHANGE RHCS1 REGISTER

*NEW VALUE OF TRE IS 1

1
1
HCE

004536

:CHANGE BITS IN SAVED REGISTER
*CHANGE RHDS1 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

004037
002202

4136

JSR
RHCS1

000001

015110
015114

RO.3#CHREG

2
1
ATA
1
ERR

4124
4}%5

4126

JSR
RHDS1

. +(OMPARE ALL REGISTERS

MACY11

—

CZRJIDO, RPO4L/S/6 FCTNL CTRLR2

L4
6145
6146

wviwvunvunges
o SrNVO
o

004512
002254
000022
015160
015164

o
NO

1046047
000207

6152

i
i
ol
b

e
-

OO0

6147
4148
6149
4150
6151

004037

015142

6143

OOoOoOoOOo

6142

Voo

CIRJJIDO, RPO4L/5/6 FCINL CTRLR2
CZRIID.P1Y
28-MAR-79 08:52

MACY1 30A(1052)

034312

L 7
25=MAY=79 10:48 PAGE 90
HEADER COMPARE ERROR = RHER1 BIT #7 (HCE)
JSR

RO,3#COMREG

SAVERE

;RETURN TO 4% ON NO ERROR

3%:

ERROR
RTS

4163

6164

6165

4166

6167
6168
6169
6170
4171

6172

;READING ON NON EXISTANT SECTOR
; CAUSED AN ERROR

;GOOD DATA GIVES WHAT SHOULD
:BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE AFTER READ

6153
4154
6155

4156
6157
6158
4159
4160
4161
4162

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;GOOD DATA SAVED IN ‘SAVERE'
;TEST DATA STARTING FROM 'RHWC'
;18. REGISTERS TO BE COMPARED
;RETURN TO 3% ON ERROR

;*READ DATA WILL BE COMPARED
4%:

004037
002370
003434
000400
015202
015206
104050
000207

JSR

035342

WRFROM
REINTO

RO,a#COMPAR

;TEST DATA STARTS FROM REINTO

:256., WORDS TO BE COMPARED

256.
5%

;RETURN TO 5% ON ERROR

;RETURN TO 6% ON NO ERROR

5%:

6%:

ERROR
RTS

; COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM

;DATA READ FROM NON
;EXISTANT SECTOR CAUSED AN ERROR

SEQ 0089

CIRJJIDO, RPO4/5/6 FCTNL CTRLR2
28-MAR-79 08:52

CZRJID.P11

n7
PAGE 91
10:48
MACY11 30A11052)
25=MAY=79
115
HEADER COMPARE ERROR - RHER1 BIT #7 (HMCE)

6173
6174

6225

4226
6227
4228

S*TEST 15
%R

WRITE HEADER AND DATA IS USED TO REMOVE SECTOR 1
AND PUT SECTOR O ON CYLINDER 0
THEN A WRITE DATA IS GIVEN FOR SECTOR 1, TRACK O, CYLINDER 0

FOR 266. WORDS
HCE = BIT 7 IN RHER1

THEN A READ HEADER AND DATA SECTOR 1, TRACK O, CYLINDER 0
IS GIVEN, HCE = BIT 7 SHOULD SET AND ALL

015206
015210
015214

000004
012706
012737

001000
000015

HEADER AND DATA SHOULD BE READ

015222

004737

033314

2222222222222

1ST15:

004504

SHOULD SET

ALL REGISTERS ARE CHECKED

HEADER COMPARE ERROR - RHER1 BIT #7 (HCE)

2222222222222

SCOPE
MOV
MOV

#STACK,SP
#15,9FTSTNM

JSR

PC,a#CLDISK

2222220 0222222222220t
llld)

;RESET STACK
;SAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(S2

;R3-RHDS1, R&=-RHER1

;GIVE RH=11 INITIALIZE

;SETUP UNIT NUMBER

;*FILL WRITE FROM BUFFER WITH HEADER AND DATA
004037
002370
000006
010000
000000
000000
000000

033140

RO,Q#FLHEAD

10000

000001
000001

004037
003434
000400

JSR
WRF ROM

—_—000

4201
4202
4203
4204
4205
4206
4207
4208
4209
4210
6211
6212
6213
6214
6215
6216
6217
6218
4219
4220
6221
4222
4223
4224

- ""'"'"'""'""'""""""""l""'"""""l""""'

6175
6176
677
4178
6179
4180
6181
4182
4183
4184
4185
4186
4187
4188
4189
4190
6191
6192
4193
6194
6195
4196
6197
4198
6199

SEQ 0090

:;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

srFILL REAU/INTO BUFFER WITH ALL ONES

033164

JSR

REINTO

R?fiilCLAREA

256.
-1

177777

;CLEAR 256. WORDS, FROM REINTO
:STARTING FROM RENTO

:256. WORDS
SFILL WITH =1

;*WRITE HWEADER AND DATA 1S LOADED

004037
000000
001
000
177772

035276

5SR

.BYTE
.BYTE
=2=4

002370

WRFROM

000000
010000

FM122
[
|
/,

RO,3#RUN

;SETUP TO RUN FOR DATA COMMAND

/1
/0

;SECTOR 1
;TRACK 0
;WORD COUNT (DATA) = 2 ¢
;4 HEADER WORDS

;CYLINDER 0

:BUS ADDRESS
STARTING ADDRESS OF
;BUFFER= WRFROM

DATA

;D0 NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT

CIZRJJDO, RPO4/5/6 FCTNL CTRLR2
CZRJJID.P1Y
28-MAR-79 08:52

MACYN

6229

6230

6231
4232
4233
4234
4235
4236
4237
4238
4239
4240
6241

6242
4243
4264
6245
4246
6247
4248
4249
4250
6251
6252
4253
6256
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264

4269
4270
6271
4272
4273
6274
4275
6276
6277
4278
4279
4280
4281
4282

4283

4284

'
N 7
25-MAY-79 10:48 PAGE 92
HEADER COMPARE ERROR = RMER1 BIT #7 (MCE)

015304

002344

SEQ 0091

;D0 NOT INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
:GET READY T0 DO A WRIFOR
;WRITE WEADER AND DATA WITH 62 IN RHCS1

WRIFOR

;*NOW SAVE REGISTERS FOR COMPARISON AFTER
;*WRITE HEADER AND DATA

004037
002172
004512

JSR

033462

RO, a#SAVER

'SAVERE

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

17.

;NUMBER OF REGISTERS

RHWC

000021

;THE REGISTERS ARE

PC,a#CHECKT

004737

033374

- JSR

015324
015330

104401
000000

057465

TYPE
HALT

. CPHALT

015332

013777

004506

MOv

O#RP4LVEC ,aRPVEC

164626

SAVED

;SAVED = 17,

015320

; CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1
sAND THAT ALL STATUS BITS ARE = 0
s CANNOT CONTINUE TESTING IF NOT

;STOP TEST

;SET RPO4 VECTOR ADDRESS
;70 "TIMET1' 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

015340
015344

013746
052716

002344
000101

MOV
BIS

d#WRIFOR,=(SP)
#GO!1E, (SP)

015350

012677

164624

MOV

(SP)+,aRHCS1

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;ENABLE INTERRUPT
;G0 WITH
;62 IN RH(S1 FOR WRITE HEADER AND DATA
;WITH INTERRUPT ENABLED

;*TIME IS NOT CRITICAL

4265

4266
4267
4268

SOAglosz)

104413
002200
000200

WAT
RHCST
RDY

‘

2500.
2500.

004704
004704

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

IN RHCS1

;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,2#FILLRE

:MOV 0 INTO SAVED RHW(
:g:¥ib REGISTER TO CHANGE

JSR

RO,a#F ILLRE

;MOV WRFROM+<6*2> INTO SAVED RHBA

SNUC

RHBA

WRFROM+<H*2>

:SAVED REGISTER TO CHANGE
;DATA

CIRJJDO, RPO4/5/6 FCTNL CTRLRZ
CIRJID. P11
28-MAR-79 08:52
4285
4286
4287
4288
4289
4290

4291
4292
6293
4294
4295

4296

4297
4298
4299
4300
4301
4302
4303
4304
4305
4306
4307

004037
002204
000002

MACYI1]

SOA;!OSZ)

033216

25=MAY=79

10:48

8
PAGE 93

HEADER (OMPARE ERROR - RweR! BIT #7 (WCE)

J3R

SMDSI

RO,#FILLRE

;MOV 2 INTO SAVED RMDST

:Sl¥§0 REGISTER TO CHANGE
;DA

;*(OMPARE ALL REGISTERS
015416

004037

015422
015424
015426
015430
015432

004512
002254
000021
015434
015440

015434
015436

104027
000207

034312

JSR

RO,3#COMREG

SAVERE

;TEST DATA STARTING FROM ‘RHWC'
;17. REGISTERS TO BE COMPARED

17.
%

;RETURN TO 1% ON ERROR
;RETURN TO 2% ON NO ERROR

2%
1%:

ERROR
RTS

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

27
PC

;WRITING HEADER AND DATA CAUSED

; INPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT
: SHOULD BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE

AFTER WRITE

SEQ 0062

lalal

CZRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRJID.P11
28-MAR-79 08:52
4308
4309
6310
6311
6312
4313
6314
4315
6316
6317
4318
6319
4320
6321
£322

6323

63264
4325
6326
4327
4328

4329
4330
4331
4332
4333
4334
4335
4336
4337
4338
4339
6340
4341
4342
6343
4346
4345
4346
4347
(348

c 8
MACY11 30A(1052)
ZS-HAV°79 10:48 PAGE 94
115
HEADER COMPARE ERROR = RHER1 BIT #7 (HCE)
;*NOW A WRITE DATA WILL BE DONE ON SAME CYLINDER, SECTOR

'TRACK

2%:

015440

015440
015444
015446
015450

004037
002370
000412

;*FILL WRITE FROM BUFFER WITH DATA

033164

JSR
WRFROM

266.
177400

177400

;*WRITE DATA COMMAND

015452

015456
015460
015461
015462
015464
015466
015470

004037

000000
001
000
177366
002370

035276

JSR

.BYTE
.BYTE
-266.
WRFROM

015474
015500
015502

015504

000022

015506

004737

033374

JSR

6349
4350

015512
015516

104401

000000

057465

TYPE
THALT

4352
4353
4354
4355
4356
4357
4358
4359
4360
4361
4362

015520

013777

004506

4363

;SECTOR 1
;TRACK 0
:WORD COUNT
= 266.
:BUS ADDRESS

:STARTING ADDRESS OF DATA
;BUFFER = WRFROM
;00 NOT INHIBIT BUS ADDRESS INCREMENT
;16 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 RHCS1

WRIDAT

004037
002172
004512

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0

-»

002342

IS LOADED

RO,3#RUN

0
FMT22

000000
010000

015472

4351

;CLEAR 266. WORDS, FROM WRFROM
;STARTING FROM WRFROM
;266. WCRDS
sFILL WITH 177400

RO,3#CLAREA

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA

033462

JSR

RHWC

RO,a#SAVER

SAVERE

:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS
;SAVED = 18.

18.

164440

MOv

:SAVE REGISTERS
;RHWC 1S THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE

PC,a#CHECKT

. CPHALT

; CHECKS DVA, RDY MOL ,DPR,DRY AND v = 1
s AND THAT ALL STATUS BITS ARE
= 0
:CANNOT CONTINUE TESTING IF NOT
:STOP TEST

9#RPLVEC,RPVEC ;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

015526
015532

013746
052716

002342
000101

MoV

aNWRIDAT,=(SP)

015536

012677

164436

MOV

(SP)+,aRHCST

BIS

#GO!1E, (5P)

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

SEQ 0093

CZRJJIDO, RPO4/5/6 FLIN L CTRLR 2
CZRJJID.PIY
28-MAR-7 9 08:52
4364
4365
4366
4367
4368
6369
6370
6371
4372
4373
4374
4375
4376
4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389
4390
4391
6392
43935
4394
4395
4396
4397
4398
4399
4400
4401
4402
4403
44604

4405
4406
4407
4408
4409
4610
4411
4412
4613
4414
4415

L4616

4617
46418
4419

D 8
MACY11 30A(1052)
25-MAY-79 10:48 PAGE 95
115
HEADER COMPARE ERROR - RMER1 BIT #7 (HCE)

;60 IN RHCS1 FOR WRITE DATA

;WITH INTERRUPT ENABLED

;*TIME IS NOT CRITICAL
015542
015544
015546
015550
015552

104413
002200
000200
001614
001502

015554
015560

005737
001421

004640

015562
015566
015570

004037
002172
177376

033216

015572
015576
015600

004037
002174
002410

033216

015602
015606

004037
002176

034204

015610
015612
015614
015616
015620
015622

000002
000001
000200
000000
000100
000416

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

908.
834.

;RDY MUST SET BETWEEN

;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS

RDY

;7640 AND 17420 MICRO SECONDS

; *NOW CHANGE REGISTERS TO EXPECTED VALUE
;RUNNING ON RH70 ?
3#RHT70

is1

BEQ

JSR
VAR1:

RHWC

JP1

:1F NOT, SKIP NEXT RH70 CODE

RO,a#F ILLRE

;MOV =258. INTO SAVED RHWC
:SA¥ED REGISTER TO CHANGE
;DA

-258.
JSR

VAR?:

RO,a#FILLRE

WRFROM+<8,+2>

JSR
RHCS?2

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS2 REGISTER

RO,3#CHREG

1
OR

VARS:

;MOV WRFROM+<B.#2> INTO SAVED AREA

;SAVED REGISTER TO CHANGE
;DATA

RHBA

;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF OR IS 1
: CHANGE OR BIT
;NEW VALUE OF IR IS 0
; CHANGE IR BIT
;SKIP NEXT RH11 CODE

JP2

JSR

RO,a#F ILLRE

;MOV -200. INTO SAVED RHWC
:8:¥§D REGISTER TO CHANGE

RO,3#FILLRE

;MOV WRFROM+<66.%2> INTO SAVED RHBA

JP1:

015624

015624
015630
015632

004037
002172
177470

033216

015634
015640
015642

004037
002174
002574

033216

015644

015650

004037
002176

034204

015652
015654
015656

000001
000001
000200

015660

RHCST

WAT

RHWC

=200.

JSR

RHBA

WRFROM+<66.%2>

JSR

RHCS?2
1
1
OR

JP2:

RO,3#CHREG

;SAVED REGISTER TO CHANGE
;DATA

;CHANGE BITS IN SAVED REGISTER

; CHANGE RHCS2 REGISTER

;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF OR IS 1
: CHANGE OR BIT

SEQ 0094

CZRJJDO, RPO4/5/6 FCINL CTRLR2

CZRJJD.PI1

2B-MAR-79 08:52

4420
:2%;

015660
015664

004037
002200

4423
4424
4425
4426
::gg

015666
015670
015672
015674
015676

000002
000001
100000
000001
040000

4429
4630
«431

015700
015704
015706

004037
002204
000002

033216

4636
4435
22g?

015710

053737

004644

4438
2:28

015716
015722

004037
002202

034204

4441
4642
:222

015724
015726
015730

000001
000001
000200

4445
444?

015732
015736

004037
002222

4448

015740

000002

44k

4449
4450
4451
aagg
44

015742
015744
015746

015750

MACY1 30A(1052)

115

034204

4456
4457

004536

RO,3#CHREG

034204

;2 BIT/BITS 10 BE CHANGED
:NEW VALUE OF SC IS 1
: CHANGE SC BIT
:NEW VALUE OF TRE 15 1
:CHANGE TRE BIT

JSR
RHDST
2

RO,a#F ILLRE

BIS

SFATTENT,aNSAVERE+24 ;SET APPROPIATE 'ATA' BITS
;FOR WORKING DRIVE IN
:SAVED RHAS LOCATION

JSR
RHER1

RO,a#CHREG

JSR
RHDS1

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

:CHANGE BITS IN SAVED REGISTER
:CHANGE RMER1 REGISTER
:1 BIT/BITS T0 BE CHANGED
:NEW VALUE OF HCE IS 1
: CHANGE MCE BIT

RO,a#CHREG

;CHANGE BITS IN SAVED REGISTER
:CHANGE RMDS1 REGISTER

:2 BIT/BITS T0 BE CHANGED

ERR

:CHANGE ERR BIT

1
ATA
1

;CHANGE BITS IN SAVED REGISTER
:CHANGE RHCS1 REGISTER

:NEW VALUE OF ATA IS 1
:CHANGE ATA BIT
:NEW VALUE OF ERR 15 1

;*COMPARE ALL REGISTERS

4658
4459
4460
4461
aao%

015756
015760
015762
015764
015766

004512
002254
000022
015770
015774

466k
4465
4466
4467
4468
4469

015770
015772

104052
000207

034312

JSR

RO,a#COMREG

SAVERE
we
18.
38
48
38

ERROR

52
RTS

4671
4672

; COMPARE SAVED REGISTERS WITH
:PRESENT VALUE

:GOOD DATA SAVED IN 'SAVERE'
:TEST DATA STARTING FROM ‘RHMWC'
:18. REGISTERS TO BE COMPARED
:RETURN TO 3$ ON ERROR
:RETURN TO 4% ON NO ERROR

4470

;WRITE DATA ON NON EXISTANT SECTOR
:CAUSED IMPROPER REGISTER CHANGE
:ATTEMPTED WRITE WAS ON
:CYLINDER 0,SECTOR 1, TRACK 0
:G0OD DATA GIVES WHAT SHOULD BE THERE
:RECEIVED DATA GIVES WHAT WAS THERE
“AFTER COMMAND

;*READ HEADER AND DATA SECTOR 1, TRACK 0, CYLINDER 0

4673

4475

8
PAGE 96

1
1
HCE

040000

004037

4474

2
1
SC
1
TRE

000001
100000
000001

015752

446

10:48

HEADER COMPARE ERROR = RMER1 BIT #7 (MCE)
JSR
RHCS1

aagg
44

25=MAY=79

015774

6%:

;+WILL BE ATTEMPTED

SEQ 0095

CIZRJJDO, RPO4L/5/6 FCTNL CTRLR 2
28-MAR-79 08:52
CZRJJD.P11
015774

033314

F
8
25-MAY=-79 10:48 PAGE 97
HEADER COMPARE ERROR - RMER1 BIT #7 (HCE)
JSR

PC,amCLDISK

;SET R1-RHCS1, R2-RH(S2
;R3-RHDS1, R&=RHER1

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA

4499
4500
4501
4502

004037
002370
000006
010000
000000
000000
000000
000001
000001

033140

004037
0024064
000306
000000

033164

004037
003220
000076

033164

4504
4505
4506
4507
4508

JSR

WRFROM
6

RO,3#FLHEAD

10000

0
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
;F1FTH DATA WORD
;SIXTH DATA WORD

ef”1'

177777

4503

RO,a#CLAREA

WRFROM+<6*2>
198.
0

RO,a#CLAREA
JSR
WRFROM+<204.¢2>
6%.

:CLEAR 198. WORDS, FROM WRFROM+<6*2>
:STARTING FROM WRFROM+<6#*2>
:198. WORDS

EFILL WITH O

;CLEAR 62. WORDS, FROM WRFROM+<204.#2>

;STARTING FRCM WRFROM+<204.+2>
;62. WORDS

sFILL WITH =1

;*FILL READ INTO BUFFER WITH ALL ONES
004037
003434
000400
177777

4509
4510
4511
6512
4513
4514

033164

JSR

REINTO

RO,ANCLAREA

z?o.

;CLEAR 256. WORDS, FROM REINTO
;STARTING FROM REINTO
:256. WORDS
sFILL WITH =1

;*FILL REGISTERS WITH READ HEADER AND DATA COMMAND
3SR

RO,a#RUN

16071

004037
000000
001
000
177464

1
BYTE
.BYTE
0
-200.-4

016074

003434

REINTO

016076
016100

000000
014000

016102

002350

REFOR

4515
4516

4517
4518
4519
. 4520
4521
" 4522
4523
4524
4525
4526
4527
4528
4529
4530
4531

004737

3??;1052)

016072

035276

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0
;SECTOR 1
;TRACK 0

;WORD COUNT (DATA) = 200. ¢+
;4 HEADER WORDS

:BUS ADDRESS
;STARTING ADDRESS OF DATA

= REINTO
:BUFFER
;00 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A REFOR

ECI!FMT22

;READ HEADER AND DATA WITH 72 IN RHCS!

4476
W77
4478
4479
4480
4481
4482
4483
GLBG
4485
4486
4487
4488
4489
4490
4491
4492
4493
4494
4495
4496
4497
4498

MACY1

SEQ 0096

CZRJJDO, RPO&L/5/6 FCTINL CTRLRZ2
CZRJIJD.P1
28-MAR-79 08:52

3??;1052)

25-MAY=79
10:48 PAGE 98
HEADER COMPARE ERROR - RMER1 BIT #7 (HCE)

SEQ 0097

;*SAVE REGISTERS FOR COMPARISON AFTER READ

6532
6533
4534

004037
002172
004512

4535
4536
4537

6538
4539
4540
6541
6542
6543
6544
6545
45646
6547
6548
6549
4550
6551
6552
4553
4554
6555
6556
6557
6558
4559
6560
4561
6562
4563
6564
6565
4566
6567
4568
4569
6570
4571
6572
4573
6574
6575
4576
6577
4578
4579
4580
4581
4582
4583
4584
4585
4586
4587

MACYN

033462

000022

: *HEADER AND DATA
JSR
RO,a#SAVER
RHWC
SAVERE

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

18.

;NUMBER OF REGISTERS

;THE REGISTERS ARE

SAVED

;SAVED = 18.

016116

004737

033374

JSR

PC,aNCHECKT

016122
016126

104401

000000

057465

TYPE
HALT

,CPHALT

016130

013777

004506

MOV

O¥RFLVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS

164030

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

; CANNOT CONTINUE TESTING IF NOT
;STOP TEST
;70 "TIMET'

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

016136
016142

013746
052716

002350
000101

MOV
BIS

#REFOR,-(SP)
#GO'1E, (SP)

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

016146

012677

164026

Mov

(SP)+ ,aRHCS]

;60 WITH

;ENABLE INTERRUPT

;72 IN RHCS1 FOR READ DATA

;WITH

INTERRUPT

ENABLED

;WAIT

FOR RDY BIT

;*TIME IS NOT CRITICAL
016152
016154
016156
016160
016162

WAT

104413
002200
000200
001614
001507

RHCST
RDY
908.
839.

TO SET

;WAIT FOR RHCS! REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

;690 AND 17470 MICRO SECONDS

; *CHANGE SAVED REGISTERS TO EXPECTED VALUE
JSR

RO,a#F ILLRE

033216

JSR

RO,a#fFILLRE

034204

JSR

RO,a#(HREG

016164

016170
016172

004037
002172
000000

033216

016174
016200
016202

004037
002174
004264
004037
002202

000001
000001
000200

RHW(
0

RHBA
REINT0+<204.%2>

RHER1
1

HCE

;MOV 0 INTO SAVED RHWC

:SAVED REGISTER TO CHANGE
:DATA

:MOV REINTO+<204.+2> INTO SAVED RHBA

:SAVED REGISTER TG CHANGE
:DATA

;CHANGE BITS IN SAVED REGISTER
:CHANGE RHMER1 REGISTER

:1 BIT/BITS T0 BE CHMANGED
sNEW VALUE OF MCE 1S 1

s CHANGE HCE B!

CIRJJIDO, RPO4L/5/6 FCINL CTRLRZ
CIRJJD.P1N
28-MAR-79 08:52
4588
4589
4590

4591
4592

4593
4594
4595
4596
4597

4598
4599
4600
4601
4602
4603
4604
4605
4606
4607

4608
4609
4610
461

MACY1I]

SOA;\OSZ)

JSR

034204

016220
016224

004037
002222

016226
016230
016232
016234
016236

000002
000001
100000
000001
040000

016240
016244
016246

004037
002204

033216

016250
016254

004037
002200

034204

016256
016260
016262

000001
000001

016264

053737

RHDS1

000002

4628
4629
4630
4631
4632
4633
4634
4635
4636
4637

“638

4639
4640
4641
4662

4643

JSR
RHCST

RO,a#CHREG

004644

BIS

004536

;CHANGE BITS IN SAVED REGISTER

;sCHANGE RHDS1

MOV 2 INTO SAVED RHDST

:SAVED REGISTER TO CHANGE
;DATA

;CHANGE BITS IN SAVED REGISTER
;CHANGE RMCS1 REGISTER
:1 BIT/BITS T0 BE CHANGED
:NEW VALUE OF SC!'TRE IS 1

s CHANGE SC!TRE BIT

SC!'TRE

ONFATTENT ,aNSAVERE+24 ;SET APPROPIATE
;FOR WORKING DRIVE

‘'ATA' BITS

;SAVED RHAS LOCATION

;*COMPARE REGISTERS BEFORE READ HEADER AND DATA

;*WITH AFTER

4615

4626
4627

RO,a#f ILLRE

1
1

140000

SEQ 0098

;2 BIT/BITS TO BE CHANGED
sNEW VALUE OF ATA 1S 1
;CHANGE ATA BIT
:NEW VALUE OF ERR IS 1
;s CHANGE ERR BIT

JSR

RHDST
2

4614

4617
4618
4619
4620
4621
4622
4623
L4624
4625

RO,a#CHREG

2
1
ATA
1
ERR

4612
4613

4616

H 8
25-MAY=79 10:48 PAGE 99
HEADER COMPARE ERROR - RHER1 BIT #7 (HCE)

016272

004037

016276
016300
016302
016304
016306

004512
002254
000022
016310
016314

016310
016312

104031

JSR

034312

RO,a#COMREG

SAVERE
Wl
18.
5%
6%
5%:

000207

ERROR
RTS

; COMPARE SAVED REGISTERS WITH

;PRESENT

VALUE

;GO0OD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘RHW(C'
:18. REGISTERS TO BE COMPARED
;RETURN TO 5% ON ERROR
;RETURN TO 6% ON NO ERROR
31

;READ HEADER AND DATA WITH

;FORCED HEADER COMPARE ERROR

: CAUSED ERROR

;GOOD DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHATY
;WAS THERE AFTER READ

;*NOW COMPARE READ DATA
;*THE

COMMAND READ ONLY 204 WORDS, & HEADER WORDS

;*AND 200 DATA WORDS
6%:

016314
016314
016320
016322

016324

004037
002370
003434
000400

035342

JSR
WRFROM
REINTO
256.

RO,a#COMPAR

; COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM
sTEST DATA STARTS FROM REINTO
:256., WORDS TO BE (OMPARED

CIZRJJDO, RPO4/5/6 FCINL CTRLR2

CZRJID.PI

28-MAR-79 08:52

L6446
:gzz

016326
016330

016332
016336

6647
4648
4649
4650
4651
4652
4653
4654
4655
64656

016332
016334

104034
000207

4657
4658
4659
4660
4661
6662

016336

MACY1

30A(1052)

115

25-MAY=79

8%:

8
PAGE 100

HEADER COMPARE ERROR - RHER1 BIT #7 (MCE)
4]
8%

7%:

10:48

ERROR
RTS

;RETURN TO 7% ON ERROR
;RETURN TO 8% ON NO ERRCR
24
PC

;DATA READ FROM A FORCED
sHEADER COMPARE ERROR IS
: INCORRECT
;GOOD DATA GIVES WHAT
;:THE READ HEADER AND DATA
: SHOULD HAVE READ
;BAD DATA GIVES WHAT
;WAS IN BUFFER AFTER
;READ COMMAND

SEQ 0099

CZRJJDO, RPO&L/S5/6 FCINL CTRLR2
CZRIID.PIN
28-MAR-79 08:52

J 8
MACY11 30A(1052)
25-MAY-79 10:48 PAGE 101
HEADER COMPARE ERROR = RHM ER1 BIT #7 (HCE)
115

(663

L664

MMAAAAL A

AL AR AL

SEQ 0100

AR AR ARl (2222222220022

RR2RRRRRlldd)

HEADER COMPARE ER ROR = RHER1 HCE

4665

;*TEST 16

6667
4668

WITH THE HEADS ON CYLINDE R O A SEARCH COMMAND

FOR THIS SECTOR 1S CHANGE D TO SECTOR O HCE-BIT #7

L666

4669
4670
4671
4672
4673

4674
6675
4676
4677
4678
4679
4680
4681
4682
4683
4684
4685
4686
4687
4688
4689
4690
4691
4692
4693
4694
4695
4696
4697
4698
4699
4700
4701
4702
4703
4704
4705
4706
4707
4708
4709
710
«711
6712

4713
4714
4715
4716
«717
4718

; ®

IS GIVEN
FOR CYLINDER O TRACK O SE CTOR 1, ALTHOUGH THE HEADER

IN RHERT SHOULD NOT SET

BECAUSE SEARCH DOES NOT READ HEADER BUT ONLY USES SECTOR COUNTER
222202l

R
T R
L (2222222222002

016336
016340
016344

000004
012706
012737

001000
000016

016352

004737

033314

1ST16:

004504

SCOPE
MOV

FSTACK,SP

#16,a#TSTNM

SRESET STACK
;SAVE TEST NUMBER

JSR

PC.,a#CLDISK

;SET R1-RHCS1, R2-RH(S2

MOv

ld )

;R3-RHDS1, R&4=-RHER1

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
016356

004737

033374

016362
016366

104401
000000

057465

016370

013777

004506

;*GET HEADS TO CYLINDER 0
PC,aNCHECKT
JSR
; CHECKS DVA,RDY ,MOL,DPR,DRY AND VvV = 1

163570

TYPE
HALT

LCPHALT

MOV

O¥RPLVEC,aRPVEC

;AND THAT ALL STATUS BITS ARE = 0

;CANNOT CONTINUE TESTING IF NOT
;STOP TEST
;SET RPO4 VECTOR ADDRESS
;70 "TIMEY1'

P=CLOCK

IS PRESENT

;OR TO 'TIME2' IF P=CLOCK 1S NOT THERE
;"TIME'

WILL ONLY

SAVE

: CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
016376

013746
052716

002326
000101

MOV

ONRECALI,=(SP)

016402

016406

012677

163566

MOV

(SP)+ ,aRHCS]

016412
016414

011100
011305

MOv
MOv

aR1,RO
aR3,RS

016416
016420
016422
016424
016426

104413
002222

WAT
RHDS1
DRY

016430

004737

000200
012740
012737

BIS

#GO'!1E, (5P)

;WAIT FOR DRY BIT TO SET
;WAIT FOR RHDS1 REGISTER
;WAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 56000 MICRO SECONDS
;DRY MUST SET BETWEEN

5600.
5599.

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
:SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

;10 AND 111990 MICRO SECONDS

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(S2
;R3-RHDS1, R&-RHERI

;GIVE RH=11 INITIALIZE
:SETUP UNIT NUMBER

CZRJJIDO, RPO&L/S5/6 FCTNL CTRLRZ2
CZRJJD.PN
28-MAR-79 08:52
4719
4720
6721
4722
4723
4724
6725
6726
4727
4728
4729
4730
4731
6732
4733
4734
4735
4736
4737
4738
4739
4740
4741
64742
4743
L7464
4745
4746
G747
4748
4749
4750
4751
4752
4753
4756
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
4771
6772
4773
774

MACY1

3??;1052)

K 8
25-MAY=79 10:48 PAGE 102
HEADER COMPARE ERROR - RHERT HCE

SEQ 0101

s*FILL REGISTERS FOR SEARCH
004037
000000
001
000

033244

016444
016450
016452

004037
002172
004512

033462

016454

000022

016456

004737

033374

JSR

PC,a#CHECKT

016462
016466

106401
000000

057465

TYPE
HALT

LCPHALT

016470

013777

004506

MOV

d#RPLVEC,aRPVEC ;SET RPO4 VECTOR ADDRESS

.BYTE

JSR
0

RO,a#SRCH

sSEARCH FOR
:CYLINDER O
sSECTOR 1
;TRACK O

;*SAVE REGISTERS FOR COMPARISON AFTER SEARCH

JSR
RHWC
SAVERE

RO,3#SAVER

:THE REGISTERS ARE

18.

163470

sSAVE 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
;STOP TEST
;70 "TIMEY1'

P=CLOCK

NOT

IS PRESENT

;OR TO 'TIME2' IF P-CLOCK IS NOT THERE
;"TIME' WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
016476
016502

013746
052716

002334
000101

MOV

9¥SERCH,=(SP)

016506

012677

163466

MOv

(SP)+ ,QRHCST

016512
016514

0111
011305

MOv
MOV

ak1,RO
aR3,RS

016516
016520
016522
016524
016526

104413

WAT
RHDS1

002222
000200
001614
001507

BIS

#GO!'!1E, (SP)

;GET READY TO MOVE COMMAND

;GET READY TO SET GO AND
;ENABLE INTERRUPT
;60 WITH

;WITH INTERRUPT ENABLED

;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION
;WAIT FOR DRY BIT TO SET
;WAIT FOR RHDS1 REGISTER

;WAIT FOR DRY BiT IN RHDS1 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 IS ISSUED
016530
016534
016540
016544

013746
052716

016546

001405

011637

022600

002334
004301
001124

MOV

S#SERCH,=(SP)

;SAVE COMMAND

(SP) ,a#%GDDAT

;SAVE FOR PRINTOUT

B1S

#1E'!GO!DVA!RDY, (SP)

(MP

(SP)+,RO

BEQ

67%

MOV

: INCLUDE I1E'GO:DVA:RDY

;DURING ABOVE OPERATION ONLY IE'!GO:DVA'RDY
:AND COMMAND SHOULD BE

;BRANCK IF

GOOD

SET

CZRJJIDO, RPOL/5/6 FCTNL CTRLR2
CZRJJD.P1N
28-MAR-79 08:52
6775
6776
4777
4778
4779
4780
4781
4782
4783
L4784
4785
4786
4787
4788
4789
4790
479N
4792
4793
4794
6795
4796
4797
4798
4799
4800
4801
4802

4803
4804

4805
4806
4807
4808
4809
4810
4811
812
4813
4814
4815

4816
4817
4818
4819
4820
4821
4822
4823
4824
4825
4826
4827
4828
4829
4830

016550
016554
016560

010037
010137

016562
016566
016572

012746
011637
022605

016574
016576
016602
016606

001405
010537
010337
104063

104021

MACY11

30A(1052)
116

001126
004500

25-MAY=79

RO,3#$BDDAT

MOV

#MOL 'DPR' VY, =(SP)

Cmp

(SP)+ RS

MOV

MOV
MOV
ERROR

R1,3#REGADR
21
(SP),a#$GODAT

69%

RS.,a#$BDDAT
R3,3#REGADR
63

69%:

016610

8
PAGE 103

MOV

BEQ

001126
004500

SEQ 0102

HEADER COMPARE ERROR = RHER1 HCE

MOV
ERROR

67%:

10:48

:BAD DATA

;FAILING REGISTER RHCSI
;ODURING ABOVE OPERATION ONLY
s COMMAND AND IE!GO!DVA!RDY SHOULD BE SET

;SAVE BITS SET DURING OPERATION IN RHDS1

;SAVE FOR PRINTOUT

;DURING ABOVE OPERATION ONLY MOL:DPR!vVV
; SHOULD BE SET
;BRANCH IF GOOD
:BAD DATA
;FAILING REGISTER RHDSI
;DURING ABOVE OPERATION ONLY
;MOL'!DPR!VV SHOULD BE

SET

; *CHANGE SAVED REGISTERS TO EXPECTED VALUE
016610
016614

004037
002200

016616
016620
016622

000001
000001
100000

016624
016630

004037
002222

016632

016634
016636

000001
000001
100000

016640

053737

JSR

034204

RHCS1

RO,a¥#CHREG

1
1
SC

JSR
RHDS1

034204

BIS

004536

; CHANGE RHCS1 REGISTER

;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF SC IS 1
: CHANGE SC BIT

RO,3#CHREG

1
1
ATA

004644

;CHANGE BITS IN SAVED REGISTER

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA IS 1
; CHANGE ATA BIT

SNFATTENT ,Q#SAVERE+24 ;SET APPROPIATE °'ATA' BITS
;FOR WORKING DRIVE IN
;SAVED RHAS LOCATION

;*COMPARE REGISTERS BEFORE SEARCH WITH AFTER SEARCH
016646

004037

016652
016654
016656
016660
016662

004512
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 ‘RHWC'
;:18. REGISTERS TO BE COMPARED
;RETURN TO 1% ON ERROR
;RETURN TO 2% ON NO ERROR

ERROR

;SEARCH TO A NON=-EXISTANT

RTS

;SECTOR CAUSED IMPROPER

JSR

034312

SAVERE
wC
18.
1%
2%
1%:

;REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES
;WHAT WAS THERE AFTER

016670

2%:

: SEARCH

4831

MACY11

n 8
30A(1052)
25=MAY=79 10:48 PAGE 104
HEADER COMPARE ERROR - RHER1 HCE
116

SEQ 0103

CIRJJDO, RPO4/5/6 FCTNL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

N 8
MACY11 30A(1052)
25-MAY=79
10:48 PAGE 105
117
RESTORE SECTOR 1 CYLINDER 1 TRACK 1

L(RY?2

4835
4836
4837
4838
4839

B
o
i
ke
A

:ggz

-TEST 17

:gz?

i
M

4842

232;

4843
4844
4845
4846

£
o
L
M

A e

SEQ 0104
A

RESTORE SECTOR 1 CYLINDER 1 TRACK 1

ARl

THIS REPLACES REMOVED SECTOR

WRITE HEADER AND DATA CYLINDER O, FORMAT 16 BITS PER WORD

B?Agx 0, SECTOR 1, KEYS=0, NUMBER OF WORDS 256 WORDS
THEN READ HEADER AND DATA FOR ABOVE.

WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH
10000,1,0,0, AND 256 OF 0
THE WRITE COMMAND IS THEN LOADED INTO THE REGISTERS EXCEPT
THE GO BIT, AND ALL THE REGISTERS ARE SAVED

THEN GO IS GIVEN FOR WRITE HEADER AND DATA

. "

4849
632?

M
M

4852

4857
4858
4859
4860

4853
4854
4855
4LB56

THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CHANGED
THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED

£
.
thd
o

NOW FOR THE READ COMMAND READ INTO BUFFER 1S FILLED
WITH ALL ONES, COMMAND 1S LOADED INTO REGISTERS EXCEPT
GO BIT AND ALL REGISTERS ARE SAVED
GO 1S GIVEN FOR ThHE READ COMMAND

4861
kggg

£
o

ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE
THEN THE READ DATA 15 COMPARED.

‘86‘!

' tt't"""Q"""t"t"""'t't""tiiltl't'!'tt'tttt'tt't'tt"

4865
4866
Lgbg

016670
016672
016676

000004
012706
012737

001000
000017

4669
4870

016704

004737

033314

486

§T17:

004504

SCOPE
MOV
MOV

#STACK,SP
#17,9#TSTNM

sRESET STACK
:SAVE TEST NUMBER

JSR

PC,a¥#CLDISK

;SET R1=-RHCS1, R2-RH(S2
:R3-RHDS1, R4=RHER]

4871
4%;5

:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

4%;2
4

4876
4877
4878
4879
4880
4881
aggg
4

:*FILL WRITE FROM BUFFER WITH HEADER

016710
016714
016716
016720
016722
016724
016726

004037
002370
000004
010000
000001
000000
000000

033140

4885

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

4884

4886
4887

JSR
WRFROM
4
10000
1
0
0

016730
016734

004037
002400

033164

RO,9#CLAREA
JSR
WRFROM+10

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

CIZRJJIDO, RPO4/S5/6 FCTNL CTRLR2
CIRJJID.PIY
28-MAR-79 08:52

CIRJJIDO, RPO4/5/6 FCINL CTRLR2
CIRJJD.P n
28-MAR-79 08:52

016736
016740

4933
4934
4935
4936

4937
4938
4939
4940
4941
4942
4943

25-MAY=79

10:48

RESTORE SECTOR 1

9
PAGE 106

CYLINDER 1

TRACK

:256. WORDS

256.
0

000400
000000

004037
003434
000004
010000
000001
000000
000000

033140

16762
16766
16770
16772

004037
003444
000400
000000

033164

OO0O0O0O0O0OO

16742
16746
16750
16752
16754
16756
16760

sFILL WITH O

JSR

REINTO

RO,3#FLHEAD

}0000

:SAVE HEADER DATA IN REINTO

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

;SECOND DATA WORD
; THIRD DATA WORD

0
0

;FOURTH DATA WORD

RO,a#CLAREA
JSR
REINTO+10
256.
0

;CLEAR 256. WORDS, FROM REINTO+10

;STARTING FROM REINTO+10
‘
:256. WORDS
sFILL WITH O

;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED

017004

017006

002370

WRFROM

000000
010000

0
FM122

002344

WRIFOR

017003

035276

8SR

004037
000000
001
000
177374

016774
017000
017002

L926

4927
4928
4929
4930
4931
4932

SOA(IOSZ)

;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA
:*AS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS
;*CAN BE MADE TO MAKE SURE THAT WRITE DID NOT
;*CHANGE WRITE FROM BUFFER

D000

4888
4889
4890
4891
4892
4893
4894
4895
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
6911
4912
4913
4914
4915
4916
6917
4918
4919
4920
4921
4922
4923
4924
4925

MACYT!

;SETUP TO RUN FOR DATA COHHAND
;CYLINDER 0
;SECTOR 1

RO,a#RUN

MYIE
.BYTE
0
=256.-4

017016
017022
017024

004037
002172
004512

017026

000021

017030

004737

033374

017034
017040

000000

104401

057465

033462

:TRACK 0

;WORD COUNT (DATA) = 256. +

;4 HEADER WORDS
:BUS ADDRESS
;STARTING ADDRESS OF DATA

= WRFROM
;BUFFER

;D0 NOT INHIBIT BUS ADDRESS INCREMENT

:16 BITS PER WORD FORMAT
;D0 NOT INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A WRIFOR

;WRITE HEADER AND DATA WITH 62 IN RHCS!

:*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA
RO,aN#SAVER

;SAVE REGISTERS
:RHWC IS THE FIRST REGISTER SAVED
:STARTING ADDRES OF WHERE
;THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS
;SAVED = 17,

JSR

PC,a#CHECKT

TYPE
HALT

o CPHALT

; CHECKS DVA,RDY,MOL,DPR,DRY AND VvV = 1
;AND THAT ALL STATUS BITS ARE = 0
; CANNOT CONTINUE TESTING IF NOT

JSR

RHWC

SAVERE

17.

;STOP TEST

SEQ 0105

CZRJIDO, RPO4L/5/6 FCTNL CTRLR2
CZRJJD.P1Y
28-MAR-79 08:52

MACY1

004506

163116

Mov

SEQ 0106

9#RPLVEC,aRPVEC ;SET RPO4 VECTOR ADDRESS
;70 "TIME1' IF P=CLOCK IS PRESENT

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

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

017060

012677

163114

Mov

(SP)+,aRHCST

;G0 WITH

MOv
Mov

aR1,RO
aR3,R5

017064

017066

Mov
BIS

—_——

002344
000101

013746
052716

——

017050
017054

;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
RHCS1
RDY
908.
839.

104413
002200
000200
001614
001507

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS! REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

;690 AND 17470 MICRO SECONDS

rOosr

OO
oo
W
N oo
S

013746
052716
011637
022600
001405
010037
010137
104021

012746
011637
022605
001405
010537
010337
104063

o Vs

OO0

D
b i

OO00O0

eSS

O0OO0O0O

—y

;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN
;*RO AND RS IMMEDIATELY AFTER GO IS ISSUED
MOV
BIS
MOov

002344
004101
001124

CMP

64%:

(SP)+,RO

64%

MoV
ERROR

R1,3#REGADR
21

RO,a#$BDDAT

;SAVE COMMAND
;INCLUDE IE!GO:!DVA
;SAVE FOR PRINTOUT

;DURING ABOVE OPERATION ONLY
:AND COMMAND SHOULD BE

SET

:BRANCH IF GOOD
:BAD DATA

;FAILING REGISTER RHCS1
;DURING ABOVE OPERATION ONLY

MOv

CMP

(SP)+,R5

Mov

MOV

ERROR

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

66%
RS.,3#$BDDAT

;DURING ABOVE OPERATION ONLY MOL:DPR:VV
: SHOULD BE SET
:BRANCH IF GOOD
:BAD DATA

;:DURING ABOVE OPERATION ONLY

R3,3#REGADR

66%:

;FAILING REGISTER RHDS1
;MOL'!DPR!VV SHOULD BE

SET

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES

004037
002172
000000

033216

IE:GO:DVA

; COMMAND AND 1E!GO!DVA SHOULD BE SET
#MOL !DPR'VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDSI

BEQ
MOV

001126
004500

dNWRIFOR,=(SP)
#1E!GO'!DVA,(SP)
(SP) ,a#$GDDAT

BEQ

MOV

001126
004500

4993

4994
4995
4996
4997
4998
4999

;AND LOOK AHEAD REGISTERS

oOro0oo

4990
4991
4992

013777

25=MAY=79 10:48 PAGE 107
RESTORE SECTOR 1 CYLINDER 1 TRACK 1

;OR 10 "TIMEZ2' IF P=CLOCK IS NOT THERE
;"TIME' “WILL ONLY SAVE
s CURRENT CYLINDER ADDRESS

-l

4988
4989

017042

0OO00

6944
6945
6946
4947
4948
4949
4950
4951
4952
4953
4954
4955
4956
4957
4958
4959
4960
4961
4962
4963
4964
4965
4966
4967
4968
4969
4970
4971
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981
4982
4983
4984
4985
4986
4987

3?? (1052)

JSR
SHH(

RO,a#FILLRE

:MOV 0 INTO SAVED RHW(
:3:¥i0 REGISTER TO CHANGE

CIZRJJDO, RPO4L/5/6 FCTNL CTRLR2
CZRJJID.PUN
28-MAR-79 08:52
004037
002174
003400

033216

004037
002204
000002

033216

MACY1I 50A;1052)

25-MAY=-79

10:48

RESTORE SECTOR 1

9
PAGE 108

CYLINDER 1

TRACK

RHBA
WRFROM+<260.¢2>

JSR

RO,3#FILLRE

;SAVED REGISTER TO CHANGE
:DATA

JSR

RO,3#F ILLRE

;MOV 2 INTO SAVED RHDST

SHDST

SEQ 0107

;MOV WRFROM+<260.+#2> INTO SAVED RHBA

:3:¥ED REGISTER TO CHANGE

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

004037

017216

004512
002254
000021
017230
017234

JSR

034312

RO,3#COMREG

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;GOOD DATA SAVED IN 'SAVERE'
:TEST DATA STARTING FROM 'RHWC'
;17. REGISTERS T0 BE COMPARED
:RETURN T0O 1% ON ERROR
;RETURN TO 2% ON NO ERROR

:WRITE HEADER AND DATA

SAVERE
"«
s
1%
2%

104027
000207

1%:

ERROR
RTS

:CAUSED IMPROPER REGISTER
: CHANGE

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

;*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT
2%:

017234

017234
017240
017242
017244
017246
017250

004037
003434
002370
000404
017252
017256

035342

3%:

104030

000207
5046
5047

017256

5053
5054
5055

4%:

017256

004737

033314

: *NOTHER GOT CHANGED

JSR
REINTO
WRFROM
260.
3%
L%

RC,3#COMPAR

: COMPARE TWO BLOCKS OF MEMORY
;:GOOD DATA STARTS FROM REINTO
;TEST DATA STARTS FROM WRFROM
;260., WORDS TO BE COMPARED
;RETURN TO 3% ON ERROR
;RETURN TO 4% ON NO ERROR

ERROR
RTS

30
PC

;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-RHC(S?2
;R3-RHDS1, R&4=RHER1

:GIVE RH=11 INITIALIZE
sSETUP UNIT NUMBER
017262

004037

033164

JSR

RO,3#CLAREA

;CLEAR 260. WORDS, FROM REINTO

e e

CZRJJDO, RPO4/5/6 FCTINL CTRLR2
CZRJJD. P11
28-MAR-79 08:52

MACY11

003434
000404
7777

30A(1052)
25-MAY=79 10:48 PAGE 109
RESTORE SECTOR 1 CYLINDER 1 TRACK 1
17

SEQ 0108

;STARTING FROM REINTO
;260. WORDS
SFILL WITH =1

REINTO

2?0.

:*NOW FILL COMMAND

004037
000000
001
000
177374

5SR

035276

RO,3#RUN

1
BYTE
.BYTE
0
=256.-4

003434

REINTO

000000
014000

0
ECI!FMT22

002350

REFOR

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0
;SECTOR 1
;TRACK 0

;WORD COUNT (DATA) = 256. +

;4 HEADER WORDS
;BUS ADDRESS
;STARTING ADDRESS OF DATA
= REINTO
:BUFFER
;00 NOT lNHlBlY BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A REFOR

;READ HEADER AND DATA WITH 72 IN RHCSI

;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA

JSR

033462

RO,a#SAVER

017316
017322
017324

004037
002172
004512

017326

000022

017330

004737

033374

JSR

PC,aNCHECKT

017334
017340

104401

000000

057465

TYPE
HALT

. CPHALT

017342

013777

004506

MOov

a#RP4VEC,3RPVEC

RHWC

:RHWC

IS THE

FIRST

;STARTING ADDRES OF WHERE
s THE REGISTERS ARE SAVED
sNUMBER OF REGISTERS

SAVERE

18.

162616

sSAVE REGISTERS

;SAVED = 18.

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

;SET RPO4 VECTOR ADDRESS

;70 "TIMEY'

P=CLOCK

IS PRESENT

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

017350
017354
017360

012677
—_—

104413

N —

017370

—_—

017364
017366

—-—00000
—OVENoOwWwm

013746
052716

002350
000101

162614

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

MOV

#REFOR,=(SP)

MOv

(SP)+ ,aRH(S]

;ENABLE INTERRUPT
;60 WITH

MOV
MOV

aR1,R0
aR3,RS

;WITH INTERRUPT ENABLED
;SAVE RHCS1 DURING ABOVE OPERATION
:SAVE RHDS1 DURING ABOVE OPERATION

BIS

WAT

¥GO!1E, (SP)

;72 IN RHCS1

FOR READ DATA

;WAIT FOR RDY BIT

T0 SET

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

5112
5113
5114
5115

g}}g

017372
017374
017376

017400

MACY11

F
9
30A(1052)
25-MAY=79
10:48 PAGE 110
117
RESTORE SECTOR 1 CYLINDER 1 TRACK 1

002200
000200
001614
001507

RHCST
RDY
908.
839,

5118

5128
5129
5130
5131
5132
5133
5134
5135
5136
5137
5138
5139

234?
'A

5144
5145
5146

2148
'A

5149
5150
5151

3128

5154
5155
5156

5157
5158

017402
017406
017412
017416

013746
052716
011637
022600

017420
017422

017426
017432

001405
010037

010137
104021

001126

017434

012746

010500

017446
017450
017454
017460

001405
010537

001126

017440
017444

011637
022605

010337
104063

002350
004101
001124

5163
5164

5165
5166
5167

004500

001124

017462

MoV
BIS
MOV
CMP

SVREFOR,-(SP)
#1E'GO'DVA,(SP)
(SP) ,a#$GDDAT
(SP)+,RO

BEQ
MOV

67%
RO,a”$BDDAT

MoV
ERROR

67%:

MOV

MOV
CMP
BEQ
MOV
MoV
ERROR

004500

69%:

R1,3#REGADR
21

;SAVE COMMAND
;INCLUDE IE'GO!'DVA
;SAVE FOR PRINTOUT
:DURING ABOVE OPERATION ONLY IE'GO'DVA
;AND COMMAND SHOULD BE SET
;BRANCH IF GOOD
;BAD DATA

;FAILING REGISTER RHCS1
;:DURING ABOVE OPERATION ONLY
: COMMAND AND 1E'GO'DVA SHOULD BE SET
#MOL 'DPR'VV,=(SP)
:SAVE BITS SET DURING OPERATION IN RHDS!
(SP),a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,RS
:DURING ABOVE OPERATION ONLY MOL'DPR!'VV
; SHOULD BE SET
69%
:BRANCH IF GOOD
RS,aNSBDDAT
:BAD DATA
R3,3/REGADR
:FAILING REGISTER RHDS1
63
:DURING ABOVE OPERATION ONLY
:MOL'DPR'VV SHOULD BE SET

:*CHEANGE SAVED REGISTERS TO EXPECTED VALUES

017462
017466
017470

004037
002172
000000

033216

JSR
RHWC
0

RO,aNF ILLRE

;MOV 0 INTO SAVED RHWC
:SAVED REGISTER TO CHANGE
:DATA

017472
017476

004037
002174

033216

JSR
RHBA

RO,a#F ILLRE

:MOV REINTO0+<260.%2> INTO SAVED RHBA
:SAVED REGISTER TO CHANGE

017502
017506
017510

004037
002204
000002

033216

JSR
RHDST
2

RO,#F ILLRE

017500

REINT0+<260.%2>

004444

:DATA

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

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

5159
5160

2162

:690 AND 17470 MICRO SECONDS

:*RO AND RS IMMEDIATELY AFTER GO IS ISSUED

g:ag
'A

;RDY MUST SET BETWEEN

;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN.

g};g

5121
5122
5123
5124
5125
5126
5127

:WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
:ALLOW 9080 MICRO SECONDS

017512

017516
017520
017522

004037

004512
002254
000022

034312

JSR

SAVERE
w(
18.

RO,3#COMREG

: COMPARE SAVED REGISTERS WITH
:PRESENT VALUE

:GOOD DATA SAVED IN ‘'SAVERE'
:TEST DATA STARTING FROM ‘RHW(C'
:18. REGISTERS 10 BE COMPARED

SEQ 0109

JJD.PIN
168
}?g

Rl Y LRV TV LW LR AV LV LV R RV W W LV LV LV LW TV LV IV TV IV IV IV TV LV LV TV TV IV ]

JJDO, RPO4/5/6 F(!N CTRLR2

17
172
173
174
175
176

28-MAR-79 08:52

017524
017526

017530
017534

017530
017532

104031
000207

MACY11

30A(1052)

117

25-MAY-79

10:48

ERROR
RTS

31
PC

;*NOW READ INTO BUFFER WILL BE CHECKED TO SEE

}g?

;*THE

}gg

017534

186

017534

004037

186
187
188

017542
017544
017546

003434
000404
017552

191

017540

017550

192
193
194

017552
017554

196

017556

195

197
198
199

;READ HEADER AND DATA CAUSED
; IMPROPER REGISTER (HANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT WAS

; THERE AFTER COMMAND

179

}88

SEQ 0110

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

};g

185

9
PAGE '11

RESTORE SECTOR 1 CYLINDER 1 TRACK 1
5%
6%

5%:

READ WAS GOOD

6%:
002370

035342

JSR

WRFROM

REINTO
260.
7%

017556
104032
000207

RO,3#COMPAR

10%:

ERROR
RTS

;GOOD DATA STARTS FROM WRFROM

;TEST DATA STARTS FROM REINTO
:260., WORDS TO BE COMPARED
;RETURN TO 7% ON ERROR

10%

7%:

; COMPARE TWO BLOCKS OF MEMORY

;RETURN TO 108 ON NO ERROR

32
PC

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

;ERROR MAY BE

IN READ OR WRITE

CZRJJDO, RPO4/5/6 FCTINL CTRLR 2
28-MAR-79 08:52

(ZRJJID P11

MACY11

5200
5201
5202
5203
5204

9
30A(1052)
25-MAY-79
10:48 PAGE 112
17
RESTORE SECTOR 1 CYLINDER 1 TRACK 1
;:""'""""""""'l"""""""""""'."illlt""""'

;*TEST 20

INVALID ADDRESS ERROR = RHMER1 - ']AE’

A WRITE HEADER AND DATA WILL BE ATTEMPTED TO CYLINDER 411./815.

INVALID ADDRESS ERROR (IAE) BIT #10 IN RHER1 SHOULD SET

TRACK 0O, SECTOR 0

4
R
R
R
S
R
QS
D

INOODNO
NS NN -

LV IV LV LW LV IV LV IV
ST STIST ST NT,NT N1 N1,.¥)

LR
R R

017556
017560
017564

000004
012706
012737

001000
000020

017572

004737

033314

15120:

004504

SCOPE
MOV

#STACK,SP

;RESET

JSR

PC,a#CLDISK

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

MOV

#20,3FTSTNM

STACK

;SAVE TEST NUMBER
;R3-RHDS1, R&=RHER1

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*CHECK THE DRIVE TYPE AND THEN FILL THE

;*WRITE FROM BUFFER WITH APPROPRIATE HEADER
:;'t""""'"""'"'"""""""'Q""."Q'Q""l"!"t!'."

017576
017602

005737
001411

TST

004636

BEQ

a¥RP06

TEST FOR RPO6 DRIVE

;TREAT UNIT AS AN RPO4
: TREAT AS AN RPO6

;;""""""'."""""'"""""""."'.l""l."""ti."'

004037
002370
000004
011457
000000
000000
000000
000410

033140

;s SAVE HEADER DATA IN WRFROM
:LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
sFIRST DATA WORD
:SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD
sCONTINUE WITH SET UP

JSR

RO,a#FLHEAD

:SAVE HEADER DATA IN WRFROM

RO,a#FLHEAD

5%:

017626

017626
017632
017634
017636
017640
017642
017644
017646

JSR
WRFROM
4
11457
0
0
0
BR

004037
002370
000004
010633
000000
000000
000000

004037
002400
000400

177777

033140

WRFROM
4
10633
0

6%:
033164

0
0

;*F1LL WRITE

;LOCATION WHERE SAVED
:NUMBER OF WORDS SAVED
sFIRST DATA WORD
;SECOND DATA WORD

;THIRD DATA WORD
sFOURTH DATA WORD
; CONTINUE

FROM BUFFER WITH DATA

RO,a#CLAREA
JSR
WRFROM+10
256.
0-1

;CLEAR 256. WORDS, FROM WRFROM+10
;STARTING FROM WRFROM+10
:256. WORDS
SFILL WITH 0=

.7 o

SEQ 0111

=y
e

CZRJIJIDO, RPO&/S5/6 FCTNL CTRLR2

CZRIID.P11
5256
5257
5258
5259
5260
5261
5262
5263
5264
5265
5266
5267
5268
5269
5270
5271
5272
5273
5274
5275
5276
5277
5278
5279
5280
5281
5282
5283
5284
5285
5286
5287
5288
5289
5250
5291
5292
5293
5294
5295
5296
5297
5298
5299
5300
5301

28-MAR-79 08:52

MACY11 30A(1052)
12

9
1
25-MAY=79 10:48 PAGE 113
INVALID ADDRESS ERROR - RMERi = "JAE'

SEQ 0112

;*THE DRIVE TYPE IS CHECKED AND THE APPROPRIATE
;*WRITE HEADER AND DATA COMMAND

IS LOADED

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

017660
017664

005737
001412

181

004636

BEQ

a#RP06

;TEST FOR RPO6 DRIVE

;: TREAT UNIT AS RPO4

: TREAT UNIT AS RPO6

;:'"'.""""""'"""""""'t""."'.""".'.Q'"""'0'

JSR
815.
.BYTE
.BYTE

017666
017672
017674
017675
017676

004037
001457
000
000

035276

017700

002370

WRFROM

017702
017704

000000
010000

0
FMT22

002344

WRIFOR

=256.-4

177374

000411

004037

035276

RO,a#RUN

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 815.
;SECTOR 0
s TRACK O

0
0

;WORD COUNT

;STARTING ADDRESS OF
= WRFROM
;BUFFER

;00 NOT

INHIBIT BUS ADDRESS INCREMENT

;D0 NOT INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
:GET READY TO DO A WRIFOR

:WRITE HEADER AND DATA WITH 62 IN RHC(CSI
4%

sCONTINUE WITH TESTING

JSR
611,

RO,a#RUN

;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 411,

WRFROM

017726
017730

000000
010000

017732

002344

WRI1FOR

;SECTOR 0
;TRACK 0
:WORD COUNT (DATA) = 256. +
;& HEADER WORDS
;BUS ADDRESS

;STARTING ADDRESS OF DATA
= WRFROM
;BUFFER

;DO NOT INHIBIT BUS ADDRESS INCREMENT

FM122

:16 BITS PER WORD FORMAT

;DO NOT INMIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE
;GET READY TO DO A WRIFOR

:WRITE HEADER AND DATA WITH 62 IN RHCS!

4%:

;s CONTINUE

;*NOW SAVE REGISTERS FOR COMPARISON AFTER
;*WRITE HEADER AND DATA
004037

033462

DATA

002370

017734

116 BITS PER WORD FORMAT

0
.BYTE
.BYTE
O
=256.-4

017734

(DATA) = 256.

;& HEADER WORDS
:BUS ADDRESS

JSR

RO,a#SAVER

:SAVE REGISTERS

—

NOrWw PN =0V

2 ok
NO VW=V

- OV

& [ RV IV IV IV IV AV VAV VAV D R

W L TV TV W W LW L T
W LW L RV Rl
LV AV LV LW RV RV L i
NN
(v NN N NN NN NN

ALV IV IV LV IV RV LN LV IV IV IV IV TV IV LV IV LW IV IV IV IV IV IV IV IV ] wn

Pt riviviv NN NN W N NN NN NN WW NN NN N NN W W
gWWMWWWNNNNNNNNNN—o—O—D—o_‘_“
WV WN =0 0O NO VWS WN OO0V
VW e

CIRJJIDO, RPO&L/S/6 FCTNL CTRLR2
CZRJJD P11
2
28-MAR-79

MACY11

30A(1052)
25=MAY=79
10:48 PAGE 114
120
INVALID ADDRESS ERROR - RHMER1

017740
017742

002172
004512

RHWC

017744

000022

18.

017746

004737

:RHWC

SAVERE

:THE REGISTERS ARE SAVED

:NUMBER OF REGISTERS

:SAVED = 18.

JSR

PC,afCHECKT

017752
017756

1046401
000000

057465

TYPE

L,CPHALT

017760

013777

004506

MOv

I#RPLVEC,aRPVEC

162200

IS THE FIRST REGISTER SAVED

:STARTING ADDRES OF WHERE

033374

HALT

SEQ 0113

= ']AE’

;CHECKS DVA,RDY,MOL,DPR,DRY AND vV = 1

:AND THAT ALL STATUS BITS ARE = 0
:CANNOT CONTINUE TESTING IF NOT

:STOP TEST

;SET RPO4 VECTOR ADDRESS

;70 "TIME1' 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

017766
017772

013746
052716

002344
000101

MOV

A#WRIFOR,-(SP)

017776

012677

162176

MOV

(SP)+ ,aRHCS]

020002
020004
020006
020010
020012

BIS

#GO!I1E, (SP)

WAT

104413
002202
002000
000011
000011

RHER1
1 AE
9.
9.

; *CHANGE

;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

;WAIT

FOR

;WAIT FOR
;WAIT FOR
;ALLOW 90
;1AE MUST

ENABLED

IAE BIT

TO SET

RHER! REGISTER
]AE BIT IN RHER1 REGISTER
MICRO SECONDS
SET BETWEEN

;00 AND 180 MICRO SECONDS

THE SAVED 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

004512

MOV

RHWC ,a#SAVERE

;RHWC

IS UNPREDiCTABLE

RHBA ,@#SAVERE+2;RHBA 1S UNPREDICTABLE

:AS EXPLAINED ABOVE

020022

017737

162146

004514

MOV

020030

017737

162142

004516

MOV

:AS EXPLAINED ABOVE
SRHCS2,9¥SAVERE+4;RHCS2 1S UNPREDICTABLE

020036

017737

162136

004520

MOV

ORHCST ,@#SAVERE+6;RHCST

020044
020050

004037
002222

034204

JSR

RO,a#CHREG

020052
020054

000002
000001

RHDS1

2
1

;AS EXPLAINED ABOVE

IS UNPREDICTABLE

:AS EXPLAINED ABOVE

s CHANGE BITS IN SAVED REGISTER
: CHANGE RHDS1 REGISTER

;2 BIT/BITS 10 BE CHANGED
;NEW VALUE OF ATA IS 1

CIZRJJDO, RPO4/5/6 FCTNL CTRLR 2
CZRJJD.P1Y
28-MAR-79 08:52

MACY11

30A(1052)
120

100000

K
9
25-MAY=-79 10:48 PAGE 115
INVALID ADDRESS ERROR - RMER1 - 'JAE’

5368
5369
5370

020056
020060
020062

000001
040000

5372
5373

020064
020070

004037
002202

5375
5376
5377

020072
020074
020076

000001
000001
002000

5379

020100

053737

004644

004536

BIS

5382

020106

017737

162072

004524

MOV

ATA
1
ERR

034204

JSR
RHER1

: CHANGE ATA BIT
sNEW VALUE OF ERR IS 1
: CHANGE ERR BIT

RO,2#CHREG

1
1
1AE

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHER1 REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF IAE IS 1
: CHANGE 1AE BIT

SNFATTENT,@#SAVERE+24 ;SET APPROPIATE 'ATA' BITS
;FOR WORKING DRIVE IN
; SAVED RHAS LOCATION
ARHDST ,@#SAVERE+12 ;RHDST IS INDETERMINATE

;SO IT IS NOT CHECKED

;*COMPARE REGISTERS BEFORE ATTEMPTED WRITE WITH
;*CONTENTS AFTER ATTEMPTED WRITE WITH AN 'IAE' ERROR

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

5391

020114

004037

5393
539¢
5395
5396
5397

020120
020122
020124
020126
020130

004512
002254
000022
020132
020136

5400
56401

020132
020134

000207

56405

020136

104054

JSR

034312

RO,a#COMREG

SAVERE
Wi
18.

2%:

RTS

VALUE

;RETURN TO 1% ON ERROR

2%
ERROR

;PRESENT

;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘RHWC'
;18. REGISTERS TO BE COMPARED

1%:

; COMPARE SAVED REGISTERS WITH

;RETURN TO 2% ON NO ERROR
54

;ATTEMPTED OPERATION WITH
: INVALID ADDRESS CAUSED

: IMPROPER REGISTER CHANGE
:GOOD DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES REGISTER
;CONTENTS AFTER ATTEMPTED
;WRITE HEADER AND DATA

SEQ 0114

—

[Tl

CIRJJIDO, RPO4/S/6 FCINL CTRLR2
CZRJID.PI
28-HAR 79 08:52

MACY1!

5409

10:48 PAGE 116
30A(1osz)
25=MAY-79
120
INVALID ADDRESS ERROR = RHMER1 = "JAE'

SEQ@ 0115

S“O

.';'t'"'t"t't"'"lt""!t"t"""""'ttct'tttt""t't"t't"t

5613

A WRITE DATA IS ATTEMPTED TO CYLINDER O, TRACK 19,

g:}g

SHOULD SET

g:};

;*TEST 21

5414
5415

T
T

Sl.la

INVALID ADDRESS ERROR = RHER1

SECTOR 0
INVALID ADDRESS ERROR I1AE BIT #10 IN RHER1

A AR AR A A R A A A R A A R A

5419
5420
gzg;

020136
020140
020144

000004
012706
012737

001000
000021

5623
5424
5425

020152

004737

033314

15ST21:
004504

A A A A AR A A AR AR AR ARttt il

SCOPE
MOV
MOV

#STACK,SP
#21,30TSTNM

;RESET STACK
;SAVE TEST NUMBER

JSR

PC,a#CLDISK

;SET R1=-RHCS1, R2-RH(CS2
;R3=RHDS1, R4=RHER1
:GIVE RH=11 INITIALIZE

;SETUP UNIT NUMBER

gzgg

;*FILL WRITE FROM BUFFER WITH DATA

gzgg
5430
5¢31
5432
5433

5434
5435

32%?
5438
5439

5440
5441
5442
5443
5444
5445

5446
5447
5448
5449
5450
5451

(BIT #10)I1AE

020156
020162
020164
020166

004037
002370
000400
000377

033164

JSR
WRFROM
256.
377

RO,3#CLAREA

:CLEAR 256. WORDS, FROM WRFROM
:STARTING FROM WRFROM
:256. WORDS
:FILL WITH 377

:*WRITE DATA COMMAND WILL BE FILLED
020170
020174

004037
000000

000
023
177400
002370

JSR
0
BYTE
BYTE
-256.
WRFROM

020204
020206

000000
010000

0
FMT22

020210

002342

WRIDAT

:+SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE DATA
JSR
RO,3#SAVER
;SAVE REGISTERS
RHWC
:RHWC 1S THE FIRST REGISTER SAVED
SAVERE
:STARTING ADDRES OF WHERE

020176
020177
020200
020202

035276

5452
5453

RO,3#RUN

:SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0

0
19,

;SECTOR 0
:TRACK 19.
:WORD COUNT
= 256.
:BUS ADDRESS
:STARTING ADDRESS OF DATA
‘BUFFER
= WRFROM

;DO NOT INHIBIT BUS ADDRESS INCREMENT'
216 BITS PER WORD FORMAT
:DO NOT INHIBIT ECC CORRECTION
:DO NOT INHIBIT HEADER COMPARE
:GET READY TO DO A WRIDAT
;WRITE DATA WITH 60 IN RHCSI

5454
5655
5456
5457

020212
020216
020220

004037
002172
004512

5459
gaog

020222

000022

5462

020224

004737

033374

JSR

PC,aNCHECKT

:CHECKS DVA,RDY,MOL,DPR,DRY AND VV =

5466

020230

104401

057465

TYPE

. CPHALT

;CANNOT CONTINUE TESTING IF NOT

5458

5463

033462

:THE REGISTERS ARE SAVED

18.

;NUMBER OF REGISTERS
:SAVED = 18,

:AND THAT ALL STATUS BITS ARE = 0

CIZRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRJJD.P1Y
28-MAR-79 08:52

56465
5466
5467
5468
5469
5470
5671
5472
5473
5474
5475
5476
5677
5478
5479
5480
5481
5682
5483
5484
5485
5486
5687
5488
5489
5490

020234

000000

020236

013777

MACY11

30A(1052)
25-MAY=-79 10:48 PAGE 117
121
INVALID ADDRESS ERROR - RMER1

;STOP TEST

HALT

004506

161722

MOV

(BIT #10)IAE

S¥RPLVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS

;70 "TIME1' 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

MOV

BIS

ONWRIDAT,=(SP)
#GO'1E, (SP)

020254

012677

161720

Mov

(SP)+ ,aRHCST

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

;ENABLE INTERRUPT
;60 WITH

;60 IN RHCS1 FOR WRITE DATA

;WITH INTERRUPT ENABLED

020260
020262
020264
020266
020270

1046413
002202
002000
000011
000011

;WAIT FOR ]AE BIT TO SET
;WAIT FOR RHER1 REGISTER
;WAIT FOR IAE BIT IN RHER1 REGISTER
;ALLOW 90 MICRO SECONDS
;1AE MUST SET BETWEEN
;00 AND 180 MICRO SECONDS

whl

RHER1
1AE

; *CHANGE

SAVED REGISTERS TO EXPECTED VALUES

;*AS EXC EPTION 1S ASSERTED BEFORE RUN IS LATCHED
;*RHWC
R HBA,RHCS1,RHCS2,
CANNOT BE PEREDETERMINED

it =B o

s el

ODO®WNO VN
-

VAWV
AW
VWA NNV VWV

;*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
020334
020336
020340
020342

000002
000001

020350
020354

004037
002202

JSR
RHDS1
1
ATA
1

161636

034204

004524

;RHWC 1S UNPREDICTABLE

:AS EXPLAINED ABOVE
ARHBA ,@#SAVERE+2;RHBA 1S UNPREDICTABLE
:AS EXPLAINED ABOVE

RHCS2 ,A#SAVERE+4;RHCS2 1S UNPREDICTABLE
:AS EXPLAINED ABOVE
ORHCS1,¥#SAVERE+6;RHCST IS UNPREDICTABLE
:AS EXPLAINED ABOVE
RO,a#CHREG

; CHANGE BITS IN SAVED REGISTER

; CHANGE RHDS1 REGISTER

;2 BIT/BITS TO BE CHANGED
:NEW VALUE OF ATA IS 1
: CHANGE ATA BIT

100000

000001
040000
017737

ORHWC ,a#SAVERE

;NEW VALUE OF

ERR IS 1

ERR

: CHANGE ERR BIT
SRHDST ,@¥#SAVERE+12 ;RHDST IS INDETERMINATE SO IT IS NOT (HECKED

JSR
RHER]

RO,3#CHREG

MOV

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHER1 REGISTER

SEQ 0116

5521
5522
5523
5524
5525
5526
5527
5528
5529
5530
5531
5532
5533
5534
5535
5536
5537
5538
5539
5540
5541
5542

5543

5544
5545
5546

5547
5548
5549

02035¢
020360
020362

000001
000001
002000

020364

053737

MACYN

303(1052)

N 9
25-MAY=79 10:48 PAGE 118
INVALID ADDRESS ERROR - RHER1
1
1

;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF IAE IS 1
: CHANGE AE BIT

1AE

004644

BIS

004536

SEQ 0117

(BIT #10)IAE

SFATTENT ,Q¥SAVERE+24 ;SET APPROPIATE 'ATA' BITS
;FOR WORKING DRIVE

:SAVED RHAS LOCATION

;*COMPARE REGISTERS BEFORE ATTEMPTED WRITE DATA
;*WITH AFTER ATTEMPT,

020372

004037

020376
020400
020402
020404
020406

004512
002254
000022
020410
020414

020419
020412

000207

020474

104054

JSR

034312

RO,a#COMREG

SAVERE
w(
18.
1%

2%:

ERROR
RTS

; COMPARE SAVED REGISTERS WITH
sPRESENT VALUE

;GOOD DATA SAVED IN 'SAVERE'
:TEST DATA STARTING FROM 'RHWC'
:18. REGISTERS TO BE COMPARED
:RETURN TO 1% ON ERROR

2%
1%:

IAE SHOULD BE SET

:RETURN TO 2% ON NO ERROR
54
PC

;ATTEMPTED WRITE DATA
;WITH INVALID ADDRESS

;CAUSED IMPROPER REGISTER
: CHANGE

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

;WAS THERE AFTER AFTER ATTEMPT

[l
]

CIRJJDO, RPO4/S5/6 FCINL CTRLR2
CZRIID.PIN
28-MAR-79 08:52

CIRJJIDO, RPO4L/5/6 FCTINL (TRLRZ
CZRJJD. P11
28-MAR-79 08:52

MACY11

B 10
30A(1052)
25-MAY-T79 10:48 PAGE 119
121
INVALID ADDRESS ERROR - RHER1

(BIT #10)IAE

""""""""""""""""""""""""'I""""'O"'

INVALID ADDRESS ERROR RHER1 -BIT #10

'TEST 22

’

.
.

A READ HEADER AND DATA IS ATTEMPTED TO CYLINDER 0
TRACK 0, SECTOR 22
INVALID ADDRESS ERROR IAE BIT #10 IN RHER1
SHOULD SET

THIS WILL START WITH THE HEADS ON CYLINDER 10
T0 PROVE THAT IAE SETS EVEN BEFCRE THE IMPLIED
SEEK

'""t""t""'""""'f‘"'t""'..""""l't't""'.t""t

020414
020416
020422

000004
012706
012737

001000
000022

020430

004737

033314

t§122:
004504

SCOPE

MoV
Mov

#STACK,SP
#22 ,a¥TSTNM

JSR

PC,a#CLDISK

;RESET STACK

;SAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(S?2
;R3-RHDS1, R&4=RHER1
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*GET THE HEADS TO CYLINDER 10
020434

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

020446

013777

004506

MOV

O#RP4VEC,aRPVEC

161512

;AND THAT ALL STATUS BITS ARE = 0

;STOP TEST

;SET RPO4 VECTOR ADDRESS
;70 "TIME1' IF P=CLOCK IS PRESENT

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

WILL ONLY SAVE

;:CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
; SEEK FOR

MOV

BIS

d#SEECOM,-(S5P)
#GO!1E, (SP)

MOV

(SP)+ ,ARHCST

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

033264

—_—

RO,Q#SEEKCY

004037
000010

020462 013746
020466 052716

002352
000101

012677

161502

020472

owm

020454
020460

;CYLINDER 10

IN RHCS1

FOR SEEK

:WITH INTERRUPT ENABLED
020476
020500
020502
020504
020506

104413
002222
000200
015530
015530

WAT

RHDS1
DRY
7000.
7000.

;WAIT FOR DRY BIT TO SET

;WAIT FOR RHDS1 REGISTER

;WAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 70000 MICRO SECONDS
;DRY MUST SET BETWEEN
;00 AND 140000 MICRO SECONDS

SEQ 0118

CIZRJJIDO, RPO4/5/6 FCTNL CTRLR2

CZRJIJD.PI
5606
5607
5608
5609
5610

020510

28-MAR-79 08:52

004737

gg};

3212

5615
5616
5617
gg}s

MACY11 30A(1052)

122

033314

004037
003434
000260
125252

5628
5629
5630
5631

5632
5633
5634
5635
5636
5637

5643
5644

5645

;SET R1-RHCS1, R2-RHCS2
;R3-RHDS1, R4=RHER1
:GIVE RH=11 INITIALIZE

;SETUP UNIT NUMBER

033164

JSR
REINTO
260
125252

RO,a#CLAREA

;CLEAR 260 WORDS, FROM REINTO
;STARTING FROM REINTO
;260 WORDS
sFILL WITH 125252

;*THE READ HEADER AND DATA COMMAND IS FILLED
020526
070532
020534
020535

004037
000000
026
000

020540

003434

020542
020544

000000
014000

0
FMT22'ECI

020546

002350

REFOR

020536

035276

JSR
0
.BYTE
.BYTE

177374

5638
5639

5640
5641
5642

PC,a#CLDISK

-256.-4

020556

004037
002172

RO,3#RUN

22.
0

REINTO

;

020550
020554

SEQ 0119

;*FILL READ INTO BUFFER WITH 125252

ggg%

5627

c 10
PAGE 120

5620

5623
5624
5625
5626

10:48

INVALID ADDRESS ERROR RHER1 =-BIT #10

JSR

020514
020520
020522
020524

25-MAY-79

-t

;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
:16 BITS PER WORD FORMAT:
;INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
:GET READY TO DO A REFOR
;READ HEADER AND DATA WITH 72 IN RHCS1

;*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED READ
JSR
RO,d#SAVER
;SAVE REGISTERS
RHWC
;RHWC IS THE FIRST REGISTER SAVED

033462

004512

SAVERE

:STARTING ADDRES OF WHERE

18.

:NUMBER OF REGISTERS

:THE REGISTERS ARE SAVED

020560

000022

5648
5649
5650
;22;

020562

004737

033374

JSR

PC,ANCHECKT

020566
020572

104401
000000

057465

TYPE
HALT

. CPHALT

5653
5654
5655
5656
5657
gbgg

020574

013777

004506

MOV

AFRP4LVEC,@RPVEC ;SET RPO4 VECTOR ADDRESS
;70 'TIME1' IF P-CLOCK IS 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

ANREFOR,=(SP)
#GO!1E, (SP)

gga?
A

161364

013746
052716

002350
000101

g
:

;

;SAVED= 18.

; CHECKS 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

CIRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRJJID.P1I
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
5691
5692
5693
5694
5695
5696
5697
5698
5699
5700

020612

012677

020616
020620
020622
020624
020626

104413
002202
002000
000002
000002

MACY11

161362

D 10

30A(1052)
25=MAY-79
10:48 PAGE 121
122
INVALID ADDRESS ERROR RHER1 =BIT #10
Mov

(SP)+,3RHCST

WAT
RHER1

;ENABLE INTERRUPT
;:GO_WITH

;72 IN RHCS1 FOR READ DATA
;WITH INTERRUPT ENABLED
;WAIT FOR ]AE BIT TO SET
;WAIT FOR RHER1 REGISTER

1AE

;WAIT FOR IAE BIT IN RHER1 REGISTER
;ALLOW 20 MICRO SECONDS

2.
2.

;1AE MUST SET BETWEEN

;00 AND 40 MICRO SECONDS

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES

;*AS EXCEPTION 1S ASSERTED BEFORE RUN 1S LATCHED
; *RHWC ,RHBA ,RHCS1,RHCS2,

CANNOT BE PEREDETERMINED

;*THEY WILL VARY DEPENDING ON GATE DELAYS ON DIFFRENT UNITS
020630

017737

161336

004512

Mov

dRHWC ,a#SAVERE

020636

017737

161332

004514

Mov

dRHBA ,a#SAVERE+2

020644

017737

161326

004516

Mov

dRHCS2 ,a¥SAVERE+4

020652

017737

161322

004520

Mov

dRHCS1,a#SAVERE+6

020660
020664

004037
002222

034204

JSR
RHDS1

RO,a¥#CHREG

020666
020670
020672
020674
020676
020700

000002
000001
100000
000001
040000
017737

5703
5704

020706
020712

004037
002202

5706

020714

000001

NV
WM
=00

VAW
YWY
VLU
NNNNNNNNYN
— e i — i i it

5707
5708

SEQ 0120

020716
020720

020722

2
1

ATA

161300

004524

034204

053737

004536

; CHANGE BITS IN SAVED REGISTER

; CHANGE RHDS1 REGISTER

;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA IS 1
;: CHANGE ATA BIT

;NEW VALUE OF ERR IS 1
; CHANGE ERR BIT
dRHDST ,a#SAVERE+12
;RHDST 1S INDETERMINATE SO IT

JSR

RO,a¥#CHREG

1
1

004644

;RHCS1 IS UNPREDICTABLE

;AS EXPLAINED ABOVE

1
ERR
MOV

RHER1

000001
002000

;RHWC 1S UNPREDICTABLE
:AS EXPLAINED ABOVE
;RHBA IS UNPREDICTABLE
:AS EXPLAINED ABOVE
;RHCS2 1S UNPREDICTABLE
;AS EXPLAINED ABOVE

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHER1 REGISTER

;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF 1AE IS 1

1AE

: CHANGE AE BIT

BIS

QFATTENT,Q#SAVERE+24 ;SET APPROPIATE 'ATA' BITS
;:FOR WORKING DRIVE IN
: SAVED RHAS LOCATION

;*COMPARE REGISTERS BEFORE ATTEMPTED READ HEADER
;*AND DATA WITH AFTER ATTEMPTED READ
020730

004037

034312

JSR

RO,3#COMREG

; COMPARE SAVED REGISTERS WITH

IS NOT CHECKED

VIS W
NOWUVSWN =00V~

iV LV W LV LV LW LV LW LW SV LV AV IV IV IV ]

NN“NNN“NNNNNNNNN
WWWWWWWWWNO
NN
NN N

CIRJJDO, RPO4/5/6 FCTNL CTRLR2
28-MAR-79 08:52
CZRJJD. P11
020734
020736
020740
020742
020744

004512
002254
000022
020746
020752

020746
020750

106054

000207

MACY1

303é1052)

E 10
PAGE 122
INVALID ADDRESS ERROR RHER1 -BIT #10
25=MAY=T79

10:48

;PRESENT VALUE

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

SAVERE

;RETURN TO 1% ON ERROR

;RETURN TO 2% ON NO ERROR
1%:

ERROR
RTS

;ATTEMPTED READ HEADER
;AND DATA WITH INVALID

;ADDRESS CAUSED IMPROPER
;REGISTER CHANGE
;GOOD DATA GIVES WHAT
; SHOULD BE THERE
;RECEIVED DATA GIVES
;REGISTER CONTENTS
;AFTER ATTEMPTED

020752

2%:

;READ

SEQ 0121

CIRJJIDO, RPO4/5/6 FCINL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

MACY11

5738

5739
5740
5741
5742
5743
5744
5745
5746
5747
5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758
5759
5760
5761
5762
5763
5764
5765
5766
5767
5768
5769
5770
5771
5772
5773
5774
5775
5776
5777
5778
5779
5780
5781
5782
5783
5784
5785
5786

5787
5788
5789
5790
5791
5792
5793

303(1052)

25-MAY-79

10:48

F 10
PAGE 123

SEQ@ 0122

INVALID ADDRESS ERROR RHER1 -BIT #10

2222232222322 2222222222222222222222222222
20222 RRRRRRRRRRllll )

J*TEST 23
3
j.
i

INVALID ADDRESS ERROR - RHER1

(BIT #10)IAE

A READ DATA IS ATTEMPTED TO CYLINDER 0, TRACK 0
SECTOR 20 - FORMAT 18 BITS PER WORD
INVALID ADDRESS ERROR iAE BIT #10 IN RHERI
SHOULD SET

::itt"""""'"'I'"""'t"'t"""'.'!'l".'"""'t""t"t

020752
020754
020760

000004
012706
012737

001000
000023

020766

004737

033314

15123:

004504

SCOPE
MOV
MOV

#STACK,SP
#23,aNTSTNM

;RESET STACK
;SAVE TEST NUMBER

JSR

PC,aN#CLDISK

;SET R1-RHCS', R2-RH(S?2
:R3-RHDS1, R&4=-RHERI]

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*FILL READ INTO BUFFER WITH 125252
020772
020776
021000
021002

004037
003434

033164

JSR

REINTO

RO,a#CLAREA

260
125252

000260
125252

;CLEAR 260 WORDS, FROM REINTO
;STARTING FROM REINTO

;260 WORDS
SFILL WITH 125252

;*THE READ HEADER AND DATA COMMAND

004037
000000
024
000
177400
003434

035276

JSR
0
.BYTE
.BYTE
-256.

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0
;SECTOR 20.
;TRACK 0
;WORD COUNT = 256.

20.
0

REINTO

000000
004000

0
ECI

021024

002346

READAT

021026

004037
002172
004512

021032
021034

RO,a#RUN

033462

IS FILLED

:BUS ADDRESS
STARTING ADDRESS OF DATA
;BUFFER
= REINTO

;D0 NOT INHIBIT BUS ADDRESS INCREMENT
118 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A READAT

;READ DATA WITH 70 IN RHCSI

:'éfiME REGISTERS FOR COMPARISON AFTER ATTEMPTED READ

JSR °*
RHWC
SAVERE

RO,I#SAVER
A

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

18.

SAVED

;NUMBER OF REGISTERS

021036

000022

021040

004737

033374

JSR

PC,a#CHECKT"

021044

104401

057465

TYPE

,CPHALT

;SAVED = 18.

;CHECKS DVA,RDY,MOL ,DPR,DRY AND vV =
;AND THAT ALL STATUS BITS ARE = 0
; CANNOT CONTINUE TESTING IF NOT

CZRJJIDO, RPO4L/5/6 FCTNL CTRLRZ
CZRJJD.P1I
28-MAR-79 08:52
021050

000000

021052

013777

MACY11

30A(1052)
10:48 PAGE 124
25-MAY-79
T2
INVALID ADDRESS ERROR - RHER1

161106

Mov

SEQ 0123

(BIT #10)1AE

;STOP TEST

HALT

004506

O¥RP4LVEC ,3RPVEC

;SET RPO4& VECTOR ADDRESS
;70 "TIME1" IF 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
021060
021064

013746
052716

002346
000101

MOv

d#READAT,=(SP)

021070

012677

161104

MOov

(SP)+,aRHCST

BIS

#GO'IE, (SP)

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

FOR READ DATA

;WITH INTERRUPT ENABLED
021074
021076
021100
021102
021104

104413
002202
002000
000002
000002

;WAIT FOR IAE BIT TO SET

WAT
RHER1
1AE

;WAIT FOR RHER1 REGISTER
;WAIT FOR IAE BIT IN RHER1

;ALLOW 20 MICRO SECONDS
;1AE MUST SET BETWEEN

;00 AND 40 MICRO SECONDS
:*CHANGE SAVED REGISTERS TO EXPECTED VALUES

004037
002200

5845
5846

5849

RO,3#CHREG

100000

000001
040000
017737

004037
002222
021142
021144
021146
021150
021152

000002
000001
100000
000001
040000

021154
021160

004037
002202

021162
021164
021166

000001
000001
002000

021170

053737

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS1 REGISTER

;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF SC IS 1
; CHANGE SC BIT
;NEW VALUE OF TRE IS 1

000002
000001

5825
5826

5833
5834

JSR
RHCS1T

034204

161052

004524

; CHANGE TRE BIT

ARHDST ,@#SAVERE+12;RHDST
RO,a#CHREG

034204

1S UNPREDICTABLE

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA IS 1

; CHANGE ATA BIT

;NEW VALUE OF ERR 1S 1
: CHANGE ERR BIT

RO,3#CHREG

034204

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHER1 REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF

IAE

: CHANGE 1AE BIT

004644

004536

AFATTENT ,@#SAVERE+24 ;SET APPROPIATE ‘'ATA' BITS
;FOR WORKING DRIVE IN
;SAVED RHAS LOCATION

CZRJJDO, RPO4/S5/6 FCTNL CTRLR2
CZRJID.PI1
28-MAR-79 08:52

5856
5857
5858
5859
5860
5861
5862
5863
5864
5865
5866
5867
5868
5869
5870
5871
5872
5873
5874

H 10
30A(1052)
25-MAY-79
10:48 PAGE 125
12
INVALID ADDRESS ERROR - RHER1

(BIT #10)I1AE

; *COMPARE REGISTERS BEFORE ATTEMPTED READ
;*DATA WITH AFTER ATTEMPTED READ DATA
021176

004037

021202
021204
021206
021210
021212

004512
002254
000022
021214
021220

021214
021216

000207

—

5850
5851
5852
5853
5854
5855

MACY11

104054

034312

JSR

RO,3#COMREG

SAVERE
Wl
18.
2%

ERROR
RTS

;PRESENT VALUE
;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
;18. REGISTERS TO BE COMPARED
;RETURN TO 1% ON ERROR
;RETURN TO 2% ON NO ERROR

1%:

; COMPARE SAVED REGISTERS WITH

;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

SEQ 0124

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

110
MACY11 30A(1052)
25-MAY-79
10:48 PAGE 126
123
INVALID ADDRESS ERROR - RHER1

5875
5876
5877
5878
5879
5880
5881
5882
5883
5884
5885
5886
5887
5888
5889
5890
5891

SEQ 0125

(BIT #10)IAE

""l""'"""'"'""!"'"""""""""'.t"""'il"'l'

NO CHECK

Se
e

(BITAS) AOE

IS DONE AFTER THIS WRITE

A WRITE HEADER AND DATA COMMAND IS GIVEN FOR

CYLINDER 410./814., TRACK 18, SECTOR 21, 261 WORDS

R
%R

TR
TR

T
R

%
%
%

SHOULD SET

A READ HEADER AND DATA CYLINDER 410./814., TRACK 18, SECTOR 21,
260+66+4=330 WORDS 1S ISSUED
SECTOR 21 SHOULD BE READ CORRECTLY BUT NO MORE
READS SHOULD HAPPEN, AGAIN THE 'AOE' BIT SHOULD SET

AFTER SECTOR 21 IS WRITTEN
ALL REGISTERS ARE CHECKED

ADDRESS OVERFLOW ERROR - RHER1 BITA9 (AOE)

ADDRESS OVERFLOW ERROR - RHER1

A WRITE HEADER AND DATA COMMAND 1S GIVEN FOR CYLINDER O,TRACK 0
SECTOR 0, 256 WORDS OF 0

NN,

'TEST 24

5892

CYLINDER O, TRACK O, SECTOR O IS READ AND THERE

021220
021222
021226

000004
012706
012737

001000
000024

021234

004737

033314

SHOULD BE NO CHANGE

5893
5894
5895
5896
5897
5898
5899
5900
5901
5902
5903
5904
5905
5906
5907
5908
5909
5910
5911
5912
5913
5914
5915
5916

e
i |

222222233323322333232223322222222222002R222RRRRRRRRRRRRRR
Rl

1ST24:

004504

IN DATA IN THIS SECTOR FROM

THE LAST WRITE HEADER AND DATA COMMAND

SCOPE
MOV
MOv

#STACK,SP
H24 ,aNTSTNM

;RESET STACK
;SAVE TEST NUMBER

JSR

PC.,a#CLDISK

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

R&4=-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
o
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

5930

004037
002400
000400
000000

033164

RO,a#CLAREA
JSR
WRFROM+<4*2>
256.
0

;CLEAR 256. WORDS, FROM WRFROM+<&+2>
;STARTING FROM WRFROM+<4*2>
:256. WORDS
JFILL WITH O

;*THE FIRST WRITE OPERATION IS DONE
;*FILL WRITE HEADER AND DATA COMMAND

—

CIRJJIDO, RPO4/5/6 FCINL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

593‘
5932
5933
5934
5935
5936

MACYT

J 10
30A(1052)
25=MAY=-79
10:48 PAGE 127
124
ADDRESS OVERFLOW ERROR - RHER1

(BITH9) AOE

:;""""'"'""""'"""""""""."""'.""""""'l'
021272

004037

021304

002370

WRFROM

5942
5943
5944
5945
5946
5947

021306
021310

000000
010000

0
FM122

021312

002344

WRI1FOR

5950
5951
5952

021314

004737

033374

JSR

PC,a#CHECKT

021320
021324

104401
000000

057465

TYPE
HALT

. CPHALT

5955
5956
5957
5958
5959
5960

021326

013777

004506

Mov

d#RPLVEC,QRPVEC ;SET RPO4 VECTOR ADDRESS
;70 "TIME1' IF P=CLOCK IS PRESENT
;OR TO "TIME2' IF P=CLOCK IS NOT THERE
;"TIME' WILL ONLY SAVE
: CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

5963

021334

013746

002344

MOV

9#WRIFOR,-(SP)

;GET READY TO MOVE COMMAND

5965
5966

021344

012677

160630

Mov

(SP)+,aRHCS1

;ENABLE INTERRUPT
;G0 WITH

5971
5972
5973
5974
5975

021350
021352
021354
021356
021360

104413
002200
000200
004704
004704

5978
5979
5980

021362

004737

5937

5938
5939
5940
5941

23
gggz

5961
5962

5964

5967
5968

5969
5970

gg;g

5981

SEQ 0126

021276
021300
021301
021302

021340

000000
000
000
177374

052716

035276

000101

JSR
RO,a#RUN
0
.BYTE
0
BYTE
0
=256.-4

160632

BIS

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0
;SECTOR 0
;TRACK 0
;WORD COUNT (DATA) = 256. ¢+
;4 HEADER WORDS
:BUS ADDRESS
;STARTING ADDRESS OF DATA
;BUFFER = WRFROM

;D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;D0 NOT INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A WRIFOR
;WRITE HEADER AND DATA WITH 62 IN RH(CSI

#GO'!1E, (SP)

WAT
RHCS1
RDY
2500.
2500.

033314

JSR

; CHECKS 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 SET GO AND

;62 IN RHCS1 FOR WRITE HEADER AND DATA
;WITH 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-RH(S2
:R3-RHDS1, R&-RHER1
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

5982

5983

5984
5985

5986

;*CHECK THE DRIVE TYPE AND DO THE
; *APPROPRIATE SECOND WRITE OPERATION

—_—————
e

- ———

CIRJJIDO, RPO4/5/6 FCINL CTRLR2
CZRJJD.PIT
28-MAR-79 08:52
5987
5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998
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

6042

MACY1

K 10
SOA(IOSZ)
25-MAY-79 10:48 PAGE 128
ADDRESS OVERFLOW ERROR = RHER1
124

;*FILL WRITE FROM BUFFER WITH HEADER

RSN (22 2222222222222

crRRREREY R

021366
021372

005737
001411

004636

TST

BEQ

a#R’PJ6

15%

22222223222222222222222

SE@ 0127

(BIT#9) AOE
22222202ttt d

)

;TEST FOR RPO6 DRIVE

;TREAT DRIVE AS AN RPO4
;TREAT AS AN RPO6

:;"""t"""""""""""'"""""'.'""""""""""

021374
021400
021402
021404
021406

021410
021412
021414

004037
002370

021426
021430
021432
021434
021436

WRFROM
“
11456

000004
011456

011025

RO,a#FLHEAD

<18.+400>!<21.>

0
0

000000
000000
000410

021416
021416
021422
021424

JSR

033140

16%

JSR
WRFROM
&
10632

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

;CONTINUE WITH THE SECOND WRITE

15%:

004037
002370
000004
010632
011025

033140

<18.+400>!<21.>

000000
000000

16%:

0
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
;CONTINUE WRITE

;*FILL WRITE FROM BUFFER WITH DATA = 65125
021436
021442
021444
021446

004037
002400
000400
065125

033164

RO,a#CLAREA
JSR
WRFROM+<4 2>
256

;CLEAR 256. WORDS, FROM WRFROM+<4*2>
;STARTING FROM WRFROM+<4*2>
:256. WORDS

<26.+2000>'<18.%40>!<21.>

SFILL WITH <26.+2000>
<18, %405 !¢

;*CHECK THE DRIVE TYPE AND

;*FILL WRITE FROM BUFFER WITH APPROPRIATE NEXT HEADER
;*THIS IS A NON EXISTANT HEADER AND SHOULD NOT BE WRITTEN
;*SINCE 'AOE' SHOULD INHIBIT THE WRITE OPERATION

021450
021454

005737
001411

004636

Rl d)
332222223222333 232232223332203222200000000iR0RRRRRRRRRRRRRRRRRR
;TEST
FOR
RPO6
DRIVE
a#RPO6
187
;:TREAT UNIT AS AN RPO4
17%
BEQ

:TREAT AS AN RPO6

;;'t'""""'i"""tl"""'"""""'I't"'lt"l""t"t"l"

021456

004037

033140

JSR

RO,a#FLHEAD

:SAVE HEADER DATA IN WRFROM+<260.+2>

CIZRJJDO, RPO4/5/6 FCTNL CTRLR2
CZRIID.PIN
28-MAR-79 08:52
6043
6044
6045
6046
6047
6048
6049
6050
6051
6052
6053
6054
6055

021462
021464
021466
021470
021472
021474
021476

MACY11

305{1052)

003400
000004
011457
000000
000000
000000
000410

L 10
25=MAY=79 10:48 PAGE 129
ADDRESS OVERFLOW ERROR - RHER1

;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD
;SECOND DATA WORD
;:THIRD DATA WORD
;FOURTH DATA WORD
;CONTINUE WITH TEST

rRFROH0<260.'Z>

11457
0
0
0
BR

(BITH9) AOE

18%

17%:

021500

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,aNFLHEAD
WRFROM+<260.*2>
4

18%:

10633
0
0
0

;NUMBER OF WORDS SAVED
;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>

066000

;SAVE HEADER DATA IN WRFROM+<260.+2>
;LOCATION WHERE SAVED

;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
:;ttt"t'"'t"""'""'."""""""'l""'lttIl"l"""t".

021532
021536

005737
001412

181
BEQ

004636
L

035276

JSR
814.
.BYTE

021547
021550
021552

002370

WRFROM

6091

021554
021556

000000
010000

6095
6096

021560

002344

WRIFOR

6098

021562

000411

6089

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

2222222332233 232232322232222222222222222
222222222222 2R R RRRRR Rl

004037
001456
025
022
177373

021540
021544
021546

a#RP06
7%

RO,a#RUN

21.
18.
.BYTE
=257.-4

sSETUP TO RUN FOR DATA COMMAND
;sCYLINDER 814.
;SECTOR 21.
;TRACK 18.

:WORD COUNT (DATA) = 257. +

;4 HEADER WORDS
;BUS ADDRESS

;STARTING ADDRESS OF DATA
sBUFFER = WRFROM
;DO NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;DO NOT INHIBIT ECC CORRECTION
:D0 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A WRIFOR
;WRITE HEADER AND DATA WITH 62 IN RH(S!

FM122

SEQ 0128

CIZRJJDO, RPO4L/5/6 FCTNL CTRLR2

28-MAR-79 08:52

2?38

021564

6101

021564

004037

021576

6102
6103
6104
6105

6106
6107
6108
6109
6110
6111
6112
6113
6114

g}}z
2}};

6119
6120
6121
6122
6123
6126

30A(1052)

124

10
PAGE 130
ADDRESS OVERFLOW ERROR - RHER1
25-MAY-79

10:48

(BIT#9) AOE

7%:
JSR
RO,3#RUN
610.
BYTE
21.
.BYTE
18.
=257.-4

:SETUP TO RUN FOR DATA COMMAND
:CYLINDER 410.
:SECTOR 21.
:TRACK 18.
:WORD COUNT (DATA) = 257. +

002370

WRFROM

021600
021602

000000
010000

0
FMT22

021604

002344

WRIFOR

:BUS ADDRESS
:STARTING ADDRESS OF DATA
:BUFFER = WRFROM
:D0 NOT INMIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
:D0 NOT INMIBIT ECC CORRECTION
:DO NOT INHIBIT HEADER COMPARE
:GET READY TO DO A WRIFOR

021570
021572
021573
021574

000632
025
022
177373

035276

021606

:4 HEADER WORDS

:WRITE HEADER AND DATA WITH 62 IN RH(CS1

8%:

:*SAVE REGISTERS FOR COMPARISON AFTER WIRTE HEADER AND DATA
JSR
RO,3#SAVER
:SAVE REGISTERS
RHWC
:RHWC 1S THE FIRST REGISTER SAVED
SAVERE
:STARTING ADDRES OF WHERE
:THE REGISTERS ARE SAVED
18.
:NUMBER OF REGISTERS

021606
021612
021614

004037
002172
004512

021616

000022

6127
6128
6129

021620

004737

033374

JSR

PC,aNCHECKT

021624
021630

104401
000000

057465

TYPE
HALT

,CPHALT

6132
6133
6134
6135
6136
6137

021632

013777

004506

MOV

A#RPLVEC,ARPVEC :SET RP0O4 VECTOR ADDRESS
:T0 "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

6140
61641
6142
6143
6144
6145

021640
021644

013746
052716

002344
000101

MOV
BIS

ANWRIFOR,=(SP)
#GO'1E, (SP)

021650

012677

160324

MOV

(SP)+,aRHCST

021654
021656

104413
002200
000200
004704
004704

2}%2

2}§?

033462

;SAVED = 18.

160326

6146

6147

6148
6149

6150
6151
6152
6153

021660
021662
021664

SEQ 0129

WAT
RHCST

RDY
2500.
2500,

:CHECKS 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
:ENABLE INTERRUPT
;G0 WITH
:62 IN RHCS! FOR WRITE HEADER AND DATA
:WITH INTERRUPT ENABLED

:WAIT FOR RDY BIT TO SET
:WAIT FOR RHCS1 REGISTER
:WAIT FOR RDY BIT IN RHCS! REGISTER
;ALLOW 25000 MICRO SECONDS
;RDY MUST SET BETWEEN
:00 AND 50000 MICRO SECONDS

—_——

CZIRJID.PI

MACYT1

CIZRJJIDO, RPO&L/5/6 FCTNL CTRLR2
CZRJJD.P n
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

MACY11

N 10
30A(1052)
25-MAY=79 10:48 PAGE 131
ADDRESS OVERFLOW ERROR - RHER1
124

SEQ 0130

(BIT#9) AOE

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
021666
021672

033216

021674

004037
002174
003402

021676
021702
021704

004037
002172
000000

033216

021706
021712

004037
002200

034204

021714
021716
021720
021722
021724

000002
000001

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, 42>

;MOV 0 INTO SAVED RHWC

JSR
RHCS1

RO,a#CHREG

:CHANGE BITS IN SAVED REGISTER
:CHANGE RHCS1 REGISTER

JSR

RHCS?2

sNEW VALUE OF SC 1S 1
:CHANGE SC BIT
:NEW VALUE OF TRE IS 1
:CHANGE TRE BIT

RO,a#CHREG

2
1

;CHANGE IR BIT

JSR

RO,a#F ILLRE

JSR
RHDS1

RO,d#CHREG

004644

004536

:MOV AOE INTO SAVED RHER!1

;SAVED REGISTER TO CHANGE
;DATA

:CHANGE BITS IN SAVED REGISTER
:CHANGE RHDS1 REGISTER

3
1

:3 BIT/BITS T0O BE CHANGED
:NEW VALUE OF ATA IS 1

1
ERR
1
LBT

:NEW VALUE OF ERR IS 1
:CHANGE ERR BIT
sNEW VALUE OF LBT 1S 1
; CHANGE LBT BIT

ATA

000001
040000
000001
002000

:CHANGE RHCS2 REGISTER

;CHANGE OR BIT
sNEW VALUE OF IR IS 1

100000

;CHANGE BITS IN SAVED REGISTER

:2 BIT/BITS T0 BE CHANGED
:NEW VALUE OF OR IS 1

OR
1

RHER1
AOE

:SAVED REGISTER TO CHANGE
;DATA

:2 BIT/BITS TO BE CHANGED

1
SC
1
TRE

034204

:DATA

RO,a#F ILLRE

040000

:SAVED REGISTER TO CHANGE

JSR

RHWC
0

100000
000001

:MOV WRFROM+<260.%2>4<1,.¢2> INTO SAVED RMBA

BIS

:CHANGE ATA BIT

QFATTENT,Q#SAVERE+24 ;SET APPROPIATE 'ATA' BITS
;FCR WORKING DRIVE

:SAVED RHAS LOCATION

;*CHECK DEVICE TYPE BEFORE SETTING UP 'RHCA' & 'RWCC'
.""""t"""""'t'!""""""'I"""""""t""'."t'

022010
022014

005737
001411

004636

18T

BEQ

a#RP06

;TEST FOR RPO6 DRIVE

;TREAT AS RPO4

:TREAT AS RPO6

CZRJJIDO, RPOL/S5/6 FCINL CTRLR2
C(ZRJJD.PY
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
6264
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261

B N
MACY1] 30!(1052)
25-MAY-T79 10:48 PAGE 132
ADDRESS OVERFLOW ERROR - RHER1
126
e

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
022054
022056

004037
002234
000632

033216

022060

JSR

RO,a#F ILLRE

815.

JSR

RHCC

RO,a#F ILLRE

814.

9%:

;MOv B814.

INTO SAVED RHCC

:g:¥§0 REGISTER TO CHANGE

;CONTINUE WITH TEST

JSR

RO,a#F ILLRE

MOV 411, iNTO SAVED RHCA
:SAVED REGISTER TO CHANGE

RHCA

JSR

RHCC

;DATA

RO,a#F ILLRE

;MOV 410. INTO SAVED RHCC
:g:¥§0 REGISTER TO CHANGE

;CONTINUE WITH TEST
Mov

004524

INTO SAVED RHCA

108

611,

160120

;MOV 815.

:8:¥Eo REGISTER TO CHANGE

10%:

017737

AOE

22222 ARA2
2R
Rl
Rl

RHCA

022060

(BITH9)

aRHDST ,@#SAVERE+12 ;RHDST

IS UNPREDICTABLE

;*COMPARE REGISTERS BEFORE WRITE HEADER AND DATA WITH AFTER
022066

004037

022072
022074
022076
022100
022102

004512
002254
000022
022104
022110

022104
022106

104055

000207

JSR

034312

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
;18. REGISTERS TO BE COMPARED
;RETURN TO 1% ON ERROR
;RETURN TO 2% ON NO ERROR

;WRITING HEADER AND DATA WITH
;EXPECTED ADDRESS OVERFLOW ERROR
; CAUSED IMPROPER REGISTER
: CHANGE
;600D DATA GIVES WHAT SHOULD
:BE THERE
;RECEIVED DATA GIVES WHAT

SAVERE
Wl

18.
1%

2%
1%:

ERROR
RTS

;WAS THERE AFTER WRITE

;HEADER AND DATA

SEQ 0131

CIRJJIDO, RPOL/5/6 F(INL CTRLR2
CZRJJID.PIN
28-MAR-T79 08:52
6262
6263
6264
6265
6266
6267
6268
6269 022110
6270
022110
6271
6272
6273
6274
6275
6276
6277
6278 022114
6279 022120
6280
6281
6282
6283
6284 022122
6285 022126
6286 022130
6287 022132
6288 022134
6289 022136
6290 022140
022142
6291
6292
6293
6294
022144
6295
6296 022144
6297 022150
6298 022152
6299 022154
6300 022156
022160
6301
6302 022162
6303 022164
6304
6305
6306
6307
6308 022164
022170
022172
022174

MACY11

cn
30A(1052)
25-MAY=79 10:48 PAGE 133
124
ADDRESS OVERFLOW ERROR = RHER1

SEQ 0132

(BITN9) AOE

;*NOW PREPARE TO DO A READ HEADER AND DATA

:*(THE FIRST READ OPERATION)

;:*CHECK THE DRIVE TYPE AND FILL
;*WRITE FROM BUFFER WITH APPROPRIATE EXPECTED HEADER

'"""""""""""'"""""'Q".""'I""."C""'t""'

004737

JSR

033314

PC,aNCLDISK

;SET R1-RHCS1, R2-RH(S2
;R3-RHDS1, R&4=RHER1
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;:""""""""'"'t"""'""'""..I""."l"""t""t"'

005737

001411

187
BEQ

004636

a#RP0O6

19%

;TEST FOR RPO6 DRIVE

; TREAT UNIT AS AN RPO4
: TREAT AS AN RPO6

;:""""'""""'t"'t'I""'"'""lfi""".""""""'."'

004037
002370
000004
011456
011025
000000
000000
000410

JSR
RO,a#FLHEAD
WRFROM
4
11456
<18.+400>'<21.>
0
0
BR
20%

033140

: SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED
:NUMBER OF WORDS SAVED

sFIRST DATA WORD
;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD

;CONTINUE WITH TEST

19%:

004037

002370
000004
010632
011025
000000
000000

JSR
WRFROM
4
10632

033140

RO,a#FLHEAD

<18.+400>'<21.>

20%:

0
0

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

;THIRD DATA WORD
:FOURTH DATA WORD
;s CONTINUE

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA
004037
002400
000400
065125

033164

RO,3#CLAREA
JSR
WRFROM+<42>

256.

<26.+2000> <18, +40>
' <21,

;CLEAR 256. WORDS, FROM WRFROM#+<4#2>
;STARTING FROM WRFROM+<4*2>

256 WORDS

FILL WITH <26.+2000>'<18,+40>!<

;*FILL WRITE FROM BUFFER WITH 377 FROM WORDS 261 TO 266
022176
022202

004037
003400

033164

RO,3#CLAREA
JSR
WRFROM+<260.%2>

;CLEAR 6 WORDS, FROM WRFROM+<260.¢2>
STARTING FROM WRFROM+<260,.42>

CZRJJDO, RPO4/S/6 FCINL CTRLR2
CZRJJD.PIY
28-MAR-79 08:52
6318
6319
6320
6321

022204
022206

D N
MACY1! SOA(IOSZ)
25-MAY=-79 10:48 PAGE 134
124
ADDRESS OVERFLOW ERROR = RHER!

000006
000377

(BIT#9) AOE

;6 WORDS
:FILL WITH 377

377

;*CLEAR READ INTO RUFFER
004037
003434
000412
000377

033164

JSR
REINTO
266.
377

RO,3#CLAREA

004737

033314

JSR

PC,aN#CLDISK

:CLEAR 266. WORDS, FROM REINTO
;STARTING FROM REINTO
:266. WORDS
;FILL WITH 377

:SET R1=-RHCS1, R2-RHC(CS?2

;R3-RHDS1, R&4=RHERI

:GIVE RH=11 INITIALIZE
:SETUP UNIT NUMBER
;*CHECK THE DRIVE TYPE AND DO THE APPROPRIATE
:*FILL READ HEADER AND DATA COMMAND

;:tt't"t't""t'tl"t"""""""tttt'"'tttt"".tittt"'t't'

6341
6342

022226
022232

005737
001412

004636

18T
BEQ

3¥RPO6
1%

:TEST FOR RPO6 DRIVE
A
:TREAT UNIT AS AN RPO&

:TREAT UNIT AS AN RP0O6

;:tt"ttt""t't't"""t't"it"""l'tt"'t'l'i"tttl'tt't'tt't

6346
6347
6348
6349
6350

022234
022240
022242
022243
022244

004037
001456
025
022
177266

035276

JSR
RO,3#RUN
814,
.BYTE
21.
.BYTE
18.
-326.-4

6352

022246

003434

REINTO

6355
6356

022250
022252

000000

6359
6360
6361
6362
6363
6364
6365
6366
6367
6368
6369
6370
6371
6372
6373

022254

002350

022256
022260

000411

022260
022264

022266
022267
022270

004037
000632
025
022
177266

022272

003434

014000

:SETUP TO RUN FOR DATA COMMAND
;CYLINDER 814,
;SECTOR 21.
;TRACK 18.
:WORD COUNT (DATA) = 326. +
;4 HEADER WORDS

:BUS ADDRESS

;STARTING ADDRESS OF DATA
:BUFFER
= REINTO

;DO NOT INHIBIT BUS ADDRESS INCREMENT

ECI!'FMT22

:16 BITS PER WORD FORMAT

:INHIBIT ECC CORRECTION
:D0 NOT INHIBIT HEADER COMPARE
:GET READY TO DO
A REFOR

REFOR

11%:

035276

:READ HEADER AND DATA WITH 72 IN RHCS!

12%

:CONTINUE

:SETUP TO RUN FOR DATA COMMAND
;CYLINDER 410,
;SECTOR 21.
:TRACK 18.
;WORD COUNT (DATA) = 326. +

RO,a#RUN
JSR
410,
.BYTE
21,
.BYTE
18.
-326.-4
4

REINTO

’

;4 HEADER WORDS

;:BUS ADDRESS

S!ARIING ADDRESS OF DATA
= REINTO
‘BUFFER

SEQ 0133

CIZRJJDO, RPO4/5/6 FCINL CTRLR2
P11
2B-MAR-79 08:52
CZRJJD.P
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

6400
6401
6402
6403
6404
6405
6406
6407
6408
6409

6410

EN
MACY11L 30A(1052) 25=MAY-79
10:48 PAGE 135
124
ADDRESS OVERFLOW ERROR = RHER1

022274
02227¢

000000
014000

0
ECI!FMT22

022300

002350

REFOR

022302

;00 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A REFOR

;READ HEADER AND DATA WITH 72 IN RH(SI

;CONTINUE WITH TESTING

12%:

;*SAVE REGISTERS FOR COMPARISON AFTER
;*READ HEADER AND DATA

033462

JSR
RHWC
SAVERE

RO,a¥SAVER

022302
022306
022310

004037
002172
004512

022312

000022

022314

004737

033374

JSR

PC,aNCHECKT

022320
022324

104401
000000

057465

TYPE
HALT

. CPHALT

022326

013777

004506

MoV

O#RPLVEC,ARPVEC

157632

6413

6415
6416
6417
6418
6419
6420

6421
6422

6423
6424
6425
6426
6427
6428
6429

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

;:THE REGISTERS ARE SAVED

18.

:NUMBER OF REGISTERS
;SAVED = 18.

:CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1

*AND THAT ALL STATUS BITS ARE = 0
; CANNOT CONTINUE
;STOP TEST

TESTING IF

NOT

;SET RPO4 VECTOR ADDRESS
;70 "TIME1' 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
022334
022340

013746
052716

002350
000101

MOv

d#REFOR,=(SP)

022344

012677

157630

MOv

(SP)+ ,QRH(S]

BIS

#GO'1E, (SP)

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

;72 IN RHCS1 FOR READ DATA

;WITH

6411
6412

6414

SEQ 0134

(BITH9) AOE

022350
022352
022354
022356
022360

WAT
RHCST

104413
002200
000200
001614

;WAIT FOR RDY BiT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS
:RDY MUST SET BETWEEN
;690 AND 17470 MICRO SECONDS

; *CHANGE

022362

022366
022370

004037
002174
004444

033216

022372
022376

004037
002172

033216

ENABLED

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

RDY
908.
839.

001507

INTERRUPT

SAVED REGISTERS TO EXPECTED VALUES

JSR

RO,a#F ILLRE

;MOV REINTO+<260.+2> INTO SAVED RHBA

JSR

RO,a#F ILLRE

:MOV =70. INTO SAVED RHWC

RHBA
REINTO+<260.¢2>

RHW(

; SAVED REGISTER TO CHANGE
;DATA

;SAVED REGISTER TO (HANGE

CIZRJJDO . RPO4/ 5/6 FCINL CTR LR2
P
CZRJJD.PY
28-MAR-79 08:52
6430
6431
6432
6433
6434
6435
6436
6437
6438
6439
6440
6441
6442
6443
6444

6445

6446

6447
6448
64649
6450
6451
6452
6453
6454
6455
6456
6457
6458
6459
6460
6461
6462

6463

022400

177672

022402
022406

004037
002200

022410
022412
022414
022416
022420

000002 .

022422
022426

004037
002222

022430
022632
022434
022436
022440
022442
022444

000003
000001

022446
022452
022454

004037
002202
001000

MACY1

-70.

034204

JSR
RHCST

000001
100000

000001

040000

6465

6467
6468
6469
6470
6471
6472
6473
6474
6475
6476
6477
6478
6479
- 6480
6481
6482
6483
6484
6485

RO,a#CHREG

TRE

:CHANGE

sNEW VALUE OF SC IS 1
;s CHANGE SC BIT
:NEW VALUE OF TRE IS 1

RO,a#CHREG

1
ERR
1
LBT

:NEW VALUE OF ERR IS 1
s CHANGE ERR BIT
sNEW VALUE OF LBT 1S 1
;s CHANGE LBT BIT

;CHANGE ATA BIT

RO,a#FILLRE

;*CHECK DRIVE
RY
ek

022456
022462

005737
001405

004636

rrRRRERRER

022464
022470
022472

004037

022474
022476

000404

022476
022502
022504

004037
002212
000633

002212
001457

033216

022514

181

13%:

033216

017737

157464

004536
004524

2222222222022220220202

2222202ttt

;TEST FOR RPO6 DRIVE

;TREAT UNIT AS AN RPO4
;TREAT UNIT AS AN RPO6

23222222222222222220

022202222t

:MOV 815.

RRRllllll

INTO SAVED RHCA

RO,a#F ILLRE

14%

: CONTINUE

JSR
RHCA

RO,a#FILLRE

:MOV 411, INTO SAVED RHCA
:SAVED REGISTER TO CHANGE

611,

004644

;SAVED REGISTER TO CHANGE
;DATA

JSR

:SAVED REGISTER TO (HANGE
:DATA

;DATA

;CONTINUE WITH TEST

14%:

053737

13%

:MOV AOE INTO SAVED RHERI

TYPE BEFORE SETTING UP 'RH{A'

a#RPO6

2222222222222

RHCA
815.

022506

2222222222222

BEQ
o

;CHANGE BITS IN SAVED REGISTER
:CHANGE RHDS1 REGISTER
:3 BIT/BITS TO BE CHANGED
:NEW VALUE OF ATA IS 1

RHER1
AOE

TRE BIT

3
1

JSR

033216

;CHANGE BITS IN SAVED REGISTER
:CHANGE RHCS1 REGISTER

:2 BIT/BITS TO BE CHANGED

ATA

100000

000001
040000
000001
002000

SEQ 0135

AOE

JSR
RHDS1

034204

(BITH9)

;DATA

1
SC
1

6464

6466

F 11
SQA(IOSZ)
25-MAY-79
10:48 PAGE 136
ADDRESS OVERFLOW ERROR - RHMER1
P

BIS

SNATTENT ,@#SAVERE+24 ;SET APPROPIATE ‘ATA' BITS

MOV

: SAVED RHMAS LOCATION
ORHDST ,Q#SAVERE+12 ;RHDST IS UNPREDICTABLE

;FOR WORKING DRIVE

CZRJJDO, RPOL/S/6 FCTNL CTRLR2
CZRJJD.PIN
28-MAR-79 08:52

MACY11

6 N
30A(1052)
25-MAY=79 10:48 PAGE 137
124
ADDRESS OVERFLOW ERROR - RHMER1

6486

:*REGISTERS AFTER COMMAND
022522

004037

6491
6492
6493
6494
6495

022526
022530
022532
022534
022536

004512
002254
000022
022540
022544

6498
6499
6500
6501
6502
6503
6504
oggs

022540
022542

104055
000207

6496
6497

034312

JSR

3%:

4%:

022544

6510
6511
6512
6513

022544
022550
022552
022554

004037
002370
003434
000412

022562
022564

104056
000207

6514
og}s

6516

6517

6518
6519
6520
6521
6522
6523
6524

022556
022560

o;gs

022566

6527
6528
6529

022566

6526

6250
6531

:COMPARE SAVED REGISTERS WITH
:PRESENT VALUE

ERROR
RTS

:GOOD 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

55
PC

oggg

RO,3#COMREG

SAVERE
we
18.
3%
4%

6506

6507

(BITA#9) AOE

:*COMPARE REGISTERS BEFORE READ HWEADER AND DATA WITH

g:gg
6489
6490

035342

022562
022566
5% :

033314

;RECEIVED DATA GIVES WHAT
:WAS THERE AFTER COMMAND

;*NOW COMPARE THE DATA READ

JSR
WRFROM
REINTO
266.
5%
6%

RO,a#COMPAR

;:COMPARE TWO BLOCKS OF MEMORY
:GOOD DATA STARTS FROM WRFROM
:TEST DATA STARTS FROM REINTO
:266., WORDS TO BE COMPARED
:RETURN TO 5% ON ERROR
;RETURN TO 6% ON NO ERROR

ERROR
RTS

56
PC

:DATA READ WITH AN EXPECTED
:ADDRESS OVERFLOW ERROR
;1S INCORRECT
:WORD NO 1 TO 260 SHOULD
;BE READ CORRECTLY
:WORD NO 261 TO 266 SHOULD
:NOT CHANGE DUE TO THE READ

JSR

PC,aNCLDISK

:SET R1=-RHCS1, R2=-RM(S?2
;R3=RHDS1, R&=RMER!
:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

6%:

004737

:READING HEADER AND DATA WITH
:EXPECTED ADDRESS OVERFLOW
;ERROR CAUSED IMPROPER
:REGISTER CHANGE
:GOOD DATA GIVES WHAT SHOULD
:BE THERE

SEQ 0136

CIRJJIDO, RPO4/S/6 FCTINL CTRLR2
28-MAR-79 08:52

CZRJJD. P11

6532
6533
6534
6535
6536
6537
6538
6539
6540
6561
6542
6543
6544
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

MACY1

30A(1052)

1264

25=MAY=79

10:48

H 11

PAGE 138

SEQ 0137

ADDRESS OVEKFLOW ERROR = RHER1 (B1T#9) AOE
;*NOW PREPARE TO READ CYLINDER O, SECTOR 0, TRACK 0
;*70 SEE THAT NOTHING GOT WRITTEN ON THERE
;*WITH THE ADDRESS OVER FLOW BIT SET (AOE)

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

;*FILL WRITE FROM BUFFER WITH EXPECTED HEADER
022572
022576
022600
022602
022604
022606
022610

004037
002370
000004
010000
000000
000000
000000

033140

022612
022616
022620
022622

004037
002400
000400

033164

JSR

WRFROM

RO,a#FLHEAD

10000
0
0
0

000000

; SAVE HEADER DATA IN WRFROM
;LOCATICN WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST

DATA WORD

:SECOND DATA WORD

;:THIRD DATA WORD

:FOURTH DATA WORD

RO,3#CLAREA
JSR
WRFROM+<4*2>
856.

;CLEAR 256. WORDS, FROM WRFROM+<&*?2>

;STARTING FROM WRFROM+<4*?2>
:256. WORDS
FILL WITH O

;*FILL READ INTO BUFFER WITH 377
022624
022630
022632
022634

004037
003434
000404
000377

033164

022636

004737

033314

JSR

REINTO

RO,3#CLAREA

;260. WORDS
SFILL WITH 377

260.

377

JSR

;CLEAR 260. WORDS, FROM REINTO

;STARTING FROM REINTO

PC,aNCLDISK

;SET R1-RH(S1, R2=-RH(S?
:R3-RHDS1, R&4=-RHER!

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*FILL COMMAND FOR READ HEADER AND DATA
55&

RO,a#RUN

022651
022652

004037
000000
000
000
177374

022654

003434

REINTO

022656
022660

000000
014000

0
ECI'EMT2?

022662

002350

REFOR

022642

022646
022650

035276

BYTE
0
0
.BYTE
-256.=4

;SETUP TO RUN FOR DATA COMMAND

sCYLINDER 0
;SECTOR 0
:TRACK 0

;WORD COUNT (DATA) = 256, *
;4 HEADER WORDS
:BUS ADDRESS

;STARTING ADDRESS OF
= REINTO
;BUFFER

DATA

;D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAY
\
;INHIBIT ECC CORRECTION
:DC NOT INHIBIT HEADER COMPARE
Y
;GET READY 10 DO A REFOR
;READ HEADER AND DATA UlTH 72 IN RMCS!T

;*SAVE REGISTERS FOR COMPARISON AFTER READ

(lRJJDO§1?POGISIO FCTNL CTRLR2
CZRJJD.
28-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
6621
6622

6623
6624
6625
6626
6627
6628
6629
6630
6631
6632
6633
6634
6635
6636
6637
6638
6639
6640
6641
6642
6643

022664
022670
022672

004037
002172
004512

022674

000021

022676

004737

MACY11

11
30A(1052)
25=MAY=79
10:48 PAGE 139
ADDRESS OVERFLOW ERROR ~ RHER1
1264

033462

JSR

RHWC
SAVERE

RO,a#SAVER

JSR

PC,a#CHECKT

TYPE
HALT

,CPHALT

MOV

OFRPLVEC,aRPVEC

104401

057465

022710

013777

004506

157250

SEQ 0138 |

AOE

;SAVE REGISTERS

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

033374

000000

(BIT#9)

:THE REGISTERS ARE SAVED

17.

022702
022706

]

REGISTERS

;SAVED = 17.

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

TESTING

;SET RPO4& VECTOR ADDRESS

:T0 "TIMET'

IF P=CLOCK IS PRESENT

;OR TO '"TIME2'

P=CLOCK

s"TIME' WILL ONLY SAVE
sCURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS

022716
022722

013746
052716

002350
000101

MOV

Q#REFOR,=(SP)

;GET

022726

012677

157246

MOV

(SP)+ ,aRHCST

;60 WITH
;72 IN RHCS1

BIS

#GO:!1E,(SP)

= 0

NOT

READY

TO MOVE

IS NOT

THERE

COMMAND

;GET READY TO SET GO AND
;ENABLE INTERRUPT

FOR READ DATA

;WITH INTERRUPT ENABLED
022732
022734
022736
022740
022742

WAT
RHCST

104413
002200
000200
004704
004704

:WAIT
:WAIT

RDY
2500.
2500.

;WAIT FOR RDY BIT IN RHCS1 REGISTER
sALLOW 25000 MICRO SECONDS
;RDY MUST SET BETWEEN
:00 AND 50000 MICRO SECONDS

; *CHANGE
022744
022750
022752

004037
002172
000000

033216

022754
022760
022762

004037
002174
004444

033216

022764
022770
022772

004037
002204
000001

033216

023000

004512

JSR

RO,a#F ILLRE

RHBA

JSR

?nDSY

ST22A:

004037

RO,a#FILLRE

REINTO+<260,.2>

022774
022774

REGISTERS TO EXPECTED VALUE

JSR

RKWC
0

034312

FOR RDY BIT TO SET
FOR RHCS1 REGISTER

RO,a#F ILLRE

;MOV O INTO SAVED RHWC

:SAVED REGISTER TO CHANGE
;DATA

MOV REINTO+<260.+2> INTO SAVED RHBA
:SAVED REGISTER 1O CHANGE

;DATA

sMOV 1

INTO SAVED RHDST

:B:¥ED REGISTER TO (MANGE

;COMPARE REGISTER BEFCRE READ WITH AFTER
JSR

SAVERE

RO,a# COMREG

;COMPARE

;PRESENT

SAVED REGISTERS Wil

VALUE

;600D DATA SAVED IN *SAVERE®

TR
CIZRJJIDO, RPO&/5/6 FCINL CTRLR
2
.P1
CZRJJD
28-MAR-79 08:52

6644

6645

6646

6647
6648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658
6659
6660
6661
6662
6663

023002
023004
023006
023010

002254
000021
023012
023016

023012
023014

000207

MACY11

30A (1052)
12

25-MAY-79
10:48
PAGE 140
ADDRESS OVERFLOW ERROR - RHER1
e
6%
%

4%:

ERROR
RTS

AOE

SEQ 0139

;RETURN TO 4% ON ERROR
;RETURN TO 1% ON NO ERROR

;READ HEADER AND DATA ON
;CYLINDER 0, SECTOR 0
;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 AFTER READ
;HEADER AND DATA
;1F HEADER COMPARE ERROR
;1S FOUND AND THE DATA
;ERROR GIVES THE NEW
;HEADER TO

6664

;CYLINDER 63371457 (OCTAL)

6665

: THEN 'AOE'
; INTO HERE

6666

6667
6668
6669
6670
6671
6672
6673
6674
6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691

(BIT#9)

;TEST DATA STARTING FROM ‘RHW('
;17. REGISTERS TO BE COMPARED

104031

WUy

J 1N

023016

1%:

023016
023022
023024
023026
023030
023032

004037
002370
003434
000404
023034
023040

023034
023036

104032

000207

;*COMPARE DATA/READ
JSR

035342

WRFROM
REINTO

RO,a#COMPAR

ERROR

RTS

; COMPARE TWO BLOCKS OF MEMORY
;6GO0D DATA STARTS FROM WRFROM
;TEST

DATA STARTS FROM REINTO

:260., WORDS TO BE COMPARED

260.
2%
3%

2%:

;RETURN TO 2% ON ERROR
;RETURN TO 3% ON NO ERROR

;READ HEADER AND DATA
;ON CYLINDER 0, TRACK 0
;SECTOR O AFTER A FORCED
;:"AOE'

ERROR

;AN ERROR
;1F

023040

3%:

OVER FLOWED

CAUSED

FIRST WORD

;10633711457 (OCTAL) THEN
;"AOE" OVER FLOWED INTO HERE

6692
6693
6694
6695

MACY1

303(1052)

10:48

PAGE 141

(BITH9)

SEQ 0140

AOE

:;"""""""""'""""'"""""""""".""""""'t

;*TEST 25

FORMAT ERROR = RHER1 (BIT W&)FMT

AN ATTEMPT WILL BE MADE TO WRITE DATA ON CYLINDER 0
SECTOR O TRACK O WITH 18 BITS PER WORD WHEN THE

6696

HEADER HAS 16 BITS PER WORD SET

THIS SHOULD GIVE FORMAT ERROR FER BIT #4 IN RHER1
THEN THIS SECTOR WILL BE READ IN THE CORRECT FORMAT
16 BITS PER WORD TO CHECK THAT NOTHING GOT WRITTEN
A2

2222222222222

2222022222222

2R 2R

RRRRRRRRRR

023040
023042
023046

000004
012706
012737

SCOPE
MOV
MOV

#STACK,SP
#25,aFTSTNM

sRESET STACK
;SAVE TEST NUMBER

023054

004737

JSR

PC,a#CLDISK

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

R&=RHER1

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
;*FIRST WRITE HEADER AND DATA CYLINDER 0, TRACK O, SECTOR 0

;*FILL WRITE FROM BUFFER WITH HEADER
023060
023064
023066
023070
023072
023074
023076

004037
002370
000004
010000
000000
000000
000000

JSR

WRFROM

RO,Q¥FLHEAD

ke
10000
0
0
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

;*FILL WRITE FROM BUFFER WITH DATA
023100
023104
023106
023110

004037
002400
000412
000000

RO,a¥#CLAREA
JSR
WRFROM+<4 2>
266.
0

;CLEAR 266. WORDS, FROM WRFROM+<4*?2>
;STARTING FROM WRFROM+<4+2>
:266. WORDS
SFILL WITH O

—Ooon

s w—

PNON)
b =

OO0
O0

;*FILL COMMAND
oo

004037
000000
000
000

6SR

RO,a#RUN

177362

.BYTE
0
.BYTE
0
=266.-4

023124

002370

WRFROM

023126
023130

000000
010000

— el

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
67462
6743
6744
6745
6746
6747

25=MAY=79

ADDRESS OVERFLOW ERROR = RHER1

023122

FM122

;SETUP TO RUN FOR DATA COMMAND

;CYLINDER 0
;SECTOR 0
;TRACK 0
;WORD COUNT (DATA) = 266. +
;4 HEADER WORDS

:BUS ADDRESS
;STARTING ADDRESS OF DATA
;BUFFER= WRFROM

;D0 NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT

;00 NOT INMIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE

—~—m |

CIRJJIDO, RPO4L/S5/6 FCINL CTRLR2
CZRJJD.P11
28-MAR-79 08:52

CIZRJJIDO, RPO4/5/6 FLTNL CTRLR2
CZRJJD.P11
28-MAR-79 08:52
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6760
6761
6762

6763
6764
6765
6766
6767
6768
6769
6770
6771
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
6782
6783
6784
6785

MACY1

Samo
e T

L N
10:48 PAGE 142

3?A (1052)
25-MAY=79
FORMAT
ERROR = RMER1
25

(BIT

SEQ 0141

#4)FMT

;GET READY TO DO A WRIFOR
;WRITE HEADER AND DATA WITH 62 IN RH(CSI

023132

002344

023134

004737

033374

JSR

PC,a#CHECKT

023140
023144

104401
000000

057465

TYPE
HALT

LCPHALT

023146

013777

004506

MOV

A¥RP4LVEC,ARPVEC ;SET RPQ4 VECTOR ADDRESS
;70 "TIMEY1' IF P=CLOCK 1S PRESENT
;OR TO 'TIMEZ2' IF P-CLOCK IS NOT THERE

WRIFOR

157012

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

;CANNOT CONTINUE TESTING IF NOT
;STOP TEST

;"TIME' WILL ONLY SAVE

;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
023154
023160

013746
052716

002344
000101

MOV

BIS

9¥WRIFOR,-(SP)
#GO!1E, (SP)

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

023164

012677

157010

MOv

(SP)+,aRHCS]

;G0 WITH

023170
023172
023174
023176
023200

104413

002200
000200
004704
004704

023202

004737

;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1

;ALLOW 25000 MICRO SECONDS
;RDY MUST SET BETWEEN
;00 AND 50000 MICRO SECONDS

2500.
2500.

JSR

;62 IN RHCS1 FOR WRITE HEADER AND DATA
;WITH INTERRUPT ENABLED

;WAIT FOR RDY BIT TO SET

WAT
RHCST
RDY

033314

;ENABLE INTERRUPT

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(S?2
:R3-RHDS1, R&=RHERI

;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

MACY1!

n
30A(1052)
10:48 PAGE 143
25=MAY=-79
FORMAT ERROR = RHER1 (BIT W#4)FMT
125

SEQ 0142

;*NOW PREPARE TO WRITE WITH WRONG FORMAT
;*FILL WRITE FROM BUFFER
023206
023212
023214
023216

004037
002370
000412
000377

033164

JSR
WRFROM

RO,a#CLAREA

:CLEAR 266. WORDS, FROM WRFROM

;STARTING FROM WRFROM

:266. WORDS
SFILL WITH 377

266.
377

;*FILL WRITE DATA COMMAND
023220
023224
023226
023227
023230
023232

004037
000000

023234
023236

000000
000000

023240

002342

035276-

JSR

RO,a#RUN

.BYTE
.BYTE

0
0

000
000
177366
002370

=266.

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0
;SECTOR 0

;TRACK 0

;WORD COUNT = 266.
:BUS ADDRESS
;STARTING ADDRESS OF DATA

WRFROM

;BUFFER = WRFROM

’

;D0 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
WITH 60 IN RHCS1
DATA
;WRITE

WRIDAT

;*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE DATA
023242
023246
023250

004037
002172
004512

023252

000022

023254

004737

;*WITH WRONG FORMAT

033462

JSR
RHW(
SAVERE

RO,aN#SAVER

;NUMBER OF REGISTERS
;SAVED = 18.

18.

033374

023260
023264

000000

104401

057465

023266

013777

004506

156672

;SAVE REGISTERS

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

; CHECKS DVA,RDY,MOL,DPR,DRY AND VvV = 1

JSR

PC,a#CHECKT

TYPE
HALT

LCPHALT

MoV

O¥RPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS
;70 "TIMEY1' IF P=-CLOCK IS PRESENI

sAND THAT ALL STATUS BITS ARE = 0
; CANNOT CONTINUE TESTING IF NOT
;STOP TEST

;OR TO 'TIME2'
;"TIME'

IF P=CLOCK IS NOT THERE

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

#GO'1E, (SP)

;:GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;ENABLE INTERRUPT
;60 WITH
;60 IN RHCS! FOR WRITE DATA

~~a |

CIZRJJIDO, RPO&L/5/6 FLTINL CTRLR2
CZRJJD.PN
28-MAR-79 08:52

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

MACYT1

N 11
30A(1052)
25=MAY=79 10:48 PAGE 144
FORMAT ERROR = RHER1 (BIT W&)FMT
125

SEQ 0143

;WITH INTERRUPT ENABLED

104413
002200
000200
001522
001510

WAT
RHCST

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

850.

;ALLOW 8500 MICRO SECONDS

;WAIT FOR RDY BIT

RDY

;RDY MUST

IN RHCS1 REGISTER

SET BETWEEN

;100 AND 16900 MICRO SECONDS

023322
023326

005737
00141

004640

023330
023334
023336

004037
002172
177376

033216

023340
023344
023346
023350

004037
002174

033216

; *CHANGE SAVED REGISTERS TO _EXPECTED VALUE
;RH70 CONTROLLER ?
187
a¥RHT70

VAR3:

JP3

;1F NOT, SKIP NEXT RH70 CODE

JSR

RO,a#FILLRE

;MOV =258. INTO SAVED RHWC
;g:¥ED REGISTER TO CHANGE

RO,a#F ILLRE

;MOV WRFROM+<B8.+#2> INTO SAVED AREA
;SAVED REGISTER TO CHANGE

RHWC

-258.
JSR

VARG:

002410
000410

BEQ

RHBA

*2>
WRFROM+<B,
JP4
BR

:DATA

;SKIP NEXT RH11 CODE

JP3:

023352

023352
023356
023360

004037
002172

033216

023362
023366
023370

004037
002174
002574

033216

JSR

RHWC

RO,a#FILLRE

=200.

177470

JSR

RHBA

R),a#FILLRE

WRFROM+<66.%2>

;MOv =200.

INTO SAVED RHWC

:3:¥§D REGISTER TO CHANGE

;MOV WRFROM+<66.%*2>

INTO SAVED RHBA

;SAVED REGISTER TO CHANGE
;DATA

JP&:

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

RHCST

RO,a#CHREG

;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF SC IS 1
: CHANGE SC BIT
;NEW VALUE OF TRE IS 1

1
SC
1
TRE

034204

JSR
RH(CS?2

: CHANGE

RO,9#CHREG

JSR

TRE BI1T

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS2 REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF OR IS 1

1
1
OR

034204

; CHANGE BITS IN SAVED REGISTER
: CHANGE RHCS1 REGISTER

: CHANGE

RO,a#CHREG

OR BIT

s CHANGE BITS IN SAVED REGISTER

(X
]

CZRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRIID.P11
28-MAR-79 08:52

CZRJJD.PII

MACY1]

28-MAR-79 08:52

B 12
PAGE 145
FORMAT ERROR = RHER1 (BIT W4G)FMT

SOA(1OSZ) 25=MAY=79

125

10:48

SEQ 0144

gggg

023432

002222

RHDS1

; CHANGE RHDS1 REGISTER

6900
6901
6902
6903
gggg

023434
023436
023440
023442
023444

000002
000001
100000
000001
040000

2
1
ATA
1
ERR

;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA IS 1
: CHANGE ATA BIT
;NEW VALUE OF ERR IS 1
: CHANGE ERR BIT

6906
6907
6908

023446
023452
023454

004037
002204
000001

033216

6911
6912

023456

053737

004644

6915
23}?

023464
023470

004037
002202

034204

6918
6919
6920
6921
6922
6923
6924
6925
6926
6927

023472
023474
023476
023500
023504
023510
023516

000001
000001
000020
017746
042716
042737
052637

6910

2312

6930
6931

6932
6933
6934
6935
gggg
6938

6939
6940
6941
6942
6943
6944
6345

004516

;MOV 1 INTO SAVED RHDST
;SAVED REGISTER TO CHANGE
:DATA

BIS

SNATTENT ,@#SAVERE+24 ;SET APPROPIATE 'ATA' BITS
;FOR WORKING DRIVE IN

JSR
RHER1

RO,a#CHREG

;SAVED RHAS LOCATION

;CHANGE BITS IN SAVED REGISTER
;CHANGE RHER1 REGISTER

;1 BIT/BITS TO BE CHANGED
R

v
C
C
S

aRHCS2,=(SP)

;NEW VALUE OF FER
; CHANGE FER BIT

;GET RHCS2

#*C<IR!OR>,(SP) ;KEEP IR AND OR
#IR!OR,a#SAVERE+4;
CLEAR SAVED IR OR
(SP)+ ,a#SAVERE+4;SET OR IR AS REQUIRED

;*COMPARE REGISTERS BEFORE wRiTE DATA WITH AFTER ATTEMPI
023522

004037

023526
023530
023532
023534
023536

004512
002254
000022
023540
023544

023540
023542

104057
000207

;

034312

JSR

1%:

gggg

023544

6951
6952
6953

023544

033314

ERROR
RTS

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE

;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
;18. REGISTERS TO BE COMPARED
;RETURN TO 1% ON ERROR
;RETURN TO 2% ON NO ERROR
57
PC

‘

2%:

004737

RO,a#COMREG

SAVERE
Wl
18.
1%
2%

6946

6947
6948

RO,a#FILLRE

1
1
f
[
B
B
B

63%3
6

JSR

RHDST
1

004536

156472
177477
000300
004516

ATTEMPTING TO WRITE DATA
;WITH WRONG~FORMAT BIT CAUSED
: IMPROPER REGISTER CHANGE
:GOOD DATA GJVES WHAT SHOULD
:BE THERE
;RECEIVED DATA GIVES WHAT WAS
;THERE AFTER ATTEMPTED WRITE

;*NOW PREPARE TO READ WITH CORRECT FORMAT TO CHECK
;*THAT NOTHING GOT WRITTEN

JSR

PC,aN#CLDISK
:

;SET R1-RHCS1, R2-RH(S?
:R3-RHDS1, R4=-RHER1
;GIVE RH=11 INITIALIZE

[Tl

CZRJJDO RPO4/5/6 FCINL CTRLR2

023550
023554
023556
023560

023562
023566
023570
023572

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

7007

SEQ 0145

004037
002370
000400
000000

JSR

033164

WRFROM

RO,3#CLAREA

;CLEAR 256. WORDS, FROM WRFROM

;STARTING FROM WRFROM

256.
0

:256. WORDS
sFILL WITH O

“weFILL READ INTO BUFFER WITH 125252

6966

7008
7009

¢ 12
30A(1052)
25=MAY=79 10:48 PAGE 146
FORMAT ERROR = RHER1 (BIT W4)FMT
125

;SETUP UNIT NUMBER
;*FILL WRITE FROM BUFFER WITH EXPECTED DATA

6954
6955
6956
6957
6958
6959
6960
6961
6962
6963
6964
6965

7001
7002
7003
7004
7005
7006

MACY11

004037
002434
000400
125252

JSR

033164

REINTO

RO,3#CLAREA

;CLEAR 256. WORDS, FROM REINTO

256.
125252

;STARTING FROM REINTO

:256. WORDS
SFILL WITH 125252

;*FILL COMMAND TO READ DATA

023574
023600
023602
023603
023604
023606

004037
000000
000

023610
023612

000000
014000

0
FMT22'EC]

023614

002346

READAT

JSR

035276

0
.BYTE
.BYTE
-256.

000
177400

003434

RO,3#RUN

;SETUP TO RUN FOR DATA COMMAND

;CYLINDER 0
X
;SECTOR 0
; TRACK 0
;WORD COUNT = 256.

O
0

REINTO

:BUS ADDRESS

;STARTING ADDRESS OF DATA
;BUFFER = REINTO
;DO NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A READAT

;READ DATA WITH 70 IN RHCSI

;*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

,CPHALT

023642

013777

004506

MOV

O#RPLVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS

RHWC
SAVERE

;:THE REGISTERS ARE SAVED
;NUMBER OF REGISTERS
;SAVED = 18.

18.

HALT
156316

RHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE

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

;70 "TIMEY1' IF P=CLOCK IS PRESENT
;OR TO 'TIME2' IF P=-CLOCK IS NOT THERE
;"TIME' WILL ONLY SAVE

: CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

[N o]

CIZRJJDO, RPO4/5/6 FCTNL CTRLR 2
CZRJJD.P1I
28-MAR-79 08:52

7010
7011
7012
7013
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
7045
7046
7047
7048
7049
7050
7051
7052
7053
7054
7055
7056
7057
7058
7059
7060
7061
7062
7063
7064

7065

MACY1I

305;1052)

25=MAY=79

10:48

D 12
PAGE 147

FORMAT ERROR = RHER1

SEQ 0146

(BIT W4G)FMT

023650
023654

013746
052716

002346
000101

MOV
BIS

@#READAT,=(SP)
#GO!1E, (SP)

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

023660

012677

156314

MOv

(SP)+ ,aRHCST

;60 WITH
;70 IN RHCS1

;ENABLE INTERRUPT

FOR READ DATA

;WITH INTERRUPT ENABLED
023664
023666
023670
023672
023674

104413
002200
000200
001614
001507

WAT

;WAIT FOR RDY BIT

RHCST
RDY
908.
839.

TO SET

;WAIT FCR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

;690 AND 17470 MICRO SECONDS

; *CHANGE SAVED REGISTERS TO EXPECTED VALUE
023676
023702
023704

004037
002174
004434

033216

023706
023712
023714

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,a#FILLRE

;MOV REINTO0+<256.#2> INTO SAVED RHBA

JSR

RO,a#F ILLRE

;MOV 0 INTO SAVED RHW(

JSR

RO,a#FILLRE

MOV
BIC
BIC
BIS

aRHCS2,-(SP)
;GET RHCS?2
#*C<IR'OR>,(SP) :;KEEP IR AND OR
#IR'OR,a¥#SAVERE+4;CLEAR SAVED IR OR
(SP)+,a#SAVERE+4;SET OR IR AS REQUIRED

RHBA
REINT0+<256.%2>

RHWC
0

RHDST
1

004516

: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
023772

023766
023770

104033
000207

JSR

034312

RO,a#COMREG

SAVERE
Wl
18.
3%

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

;RETURN TO 3% ON ERROR

3%:

ERROR
RTS

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE

;RETURN TO 4% ON NO ERROR

33
PC

;READ DATA AFTER AN
;ATTEMPTED WRITE WITH WRONG
: IMPROPER REGISTER C(HANGE

;FORMAT

CAUSED

;:GOOD DATA GIVES WHAT SHOULD
;BE THERE

[Tl

CZRJJIDO, RPO4/5/6 FCINL CTRLRZ
CZRJJID.PI
28-MAR-79 08:52

CIZRJJDO, RPO4/S5/6 FCTINL CTRLR 2
CZRJJD P11
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

MACY11

E 12
30A (1052)
25=MAY=79
10:48 PAGE 148
FORMAT ERROR = RHER1 (BIT W4)FMT
125

;RECEIVED DATA GIVES WHAT
;WAS THERE AFTER READ

023772

4%:

023772
023776
024000
024002
024004
024006

004037
002370
003434
000400
024010
024014

024010
024012

104034
000207

024014

035342

;*COMPARE DATA READ AFTER ATTEMPTED WRITE WITH
.
; *WRONG FORMAT BIT
JSR
WRFROM
REINTO

RO,a#COMPAR

ERROR
RTS

34
PC

256.
5%
6%

5%:

6%:

: COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

:256., WORDS TO BE COMPARED
;RETURN TO 5% ON ERROR
;RETURN TO 6% ON NO ERROR
;DATA READ AFTER AN ATTEMPT
;7O WRITE WITH WRONG FORMAT
;WAS

INCORRECT

SEQ 0147

MACY1

7087
7088
7089
7090
7091
7092
7093
7094

F 12
30A(1052)
25-MAY=79
10:48 PAGE 149
126
FORMAT ERROR = RHERT (BIT W4)FMT

SEQ 0148

R
R
Y

;*TEST 26

FORMAT ERROR = RHER1

(BIT W&)FMT

e
i

AN ATTEMPT IS MADE TO READ DATA WITH WRONG
FORMAT BIT

FORMAT ERROR BIT #4 IN RHER1 SHOULD SET

. %

NO DATA SHOULD BE READ

bbb

024014
024016
024022

000004
012706
012737

001000
000026

024030

004737

033314

15126:

004504

SCOPE
MOv
MOV

#STACK,SP
#26,a¥TSTNM

JRESET STACK
;SAVE TEST NUMBER

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(S?
;R3-RHDS1, R&4=-RHERI

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

D
D il
s
D
il
il
il
il el
D
D ol
—

PONIRUNININD
b it s b s b b s s
VS WN =0 00N WV
W
—

NNNNNNNNNNNNNNN

;*FILL WRITE FROM BUFFER WITH 107070
024034
024040
024042
024044

004037
002370
000400

033164

JSR

WRFROM

RO,a#CLAREA"

256.
107070

107070

;CLEAR 256. WORDS, FROM WRFROM
;STARTING FROM WRFROM

;256. WORDS
;FILL WITH 107070

;*FILL READ INTO BUFFER WITH 107070
024046
024052
024054
024056

004037
003434
000400

033164

JSR

REINTO

RO,a#CLAREA

256.
107070

107070

;CLEAR 256. WORDS, FROM REINTO
;STARTING FROM REINTO

:256. WORDS
;FILL WITH 107070

;*FILL COMMAND TO READ WITH WRONG FORMAT
035276

JSR
0
.BYTE

RO,a#RUN

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0
;SECTOR 0

024060
024064
024066
024067
024070
024072

004037
000000
000
000
177400
003434

024074
024076

000000
004000

0
ECI

024100

002346

READAT

004037
002172

;*SAVE REGISTERS FOR COMPARAISON AFTER READ
JSR
RO,a#SAVER
:SAVE REGISTERS
RHWC
;RHWC 1S THE FIRST REGISTER SAVED

024102
024106

.BYTE
-256.

REINTO

033462

0
O

;TRACK 0
;WORD COUNT = 256.

.BUS ADDRESS
;STARTING ADDRESS OF
;BUFFER
= REINTO

DATA

;00 NOT INHIBIT BUS ADDRESS INCREMENT
118 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION

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

CIZRJJIDO, RPO4/5/6 FCINL CTRLR2
CZRJJD.P "
28-MAR-79 08:52

7143
7144
7145

7146

7147
7148
7149
7150
7151
7152
7153
7156
7155
7156
7157
7158
7159
7160
7161
7162
7163
7164
7165
7166
7167
7168
7169
7170
n"n
7172
7173
7174
7175
7176
777
7178
7179
7180
7181
7182
7183
7184
7185
7186
7187
7188
7189
7190
7191
7192
7193
7194
7195
7196
7197
7198

MACY1 305é1052)

6 12
10:48 PAGE 150
25-MAY=-79
FORMAT ERROR = RHER1 (BIT W#4)FMT

0246110

004512

SAVERE

0264112

000022

18.

024114

004737

033374

JSR

PC,aNCHECKT

024120
024124

104401
000000

057465

TYPE
HALT

.CPHALT

024126

013777

004506

MOv

O¥RP4LVEC,aRPVEC

156032

SEQ 0149

;STARTING ADDRES OF WHERE

:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS
;SAVED = 18.

; CHECKS DVA,RDY,MOL ,DPR,DRY AND VvV = 1

sAND THAT ALL STATUS BITS ARE = 0
;CANNOT CONTINUE TESTING IF NOT

;STOP TEST

;SET RPO4 VECTOR ADDRESS

;70 '"TIMET'

P=CLOCK

;OR TO "TIME2'

IS PRESENT

P=CLOCK

;'TIME' WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS
;AND LOOK

024134
024149

013746
052716

002346
000101

BIS

024144

012677

156030

MOV

024150
024152
024154
0246156
024160

104413

WAT
RHCS1
RDY

002200
000200
001522
001510

O¥READAT,-(SP)

MOV

850.
840.

¥GO!1E, (SP)

(SP)+ ,aRHCST

IS NOT THERE

AHEAD REGISTERS

;GET READY TO MOVE COMMAND

;GET READY TO SET GO AND
;ENABLE INTERRUPT
;G0 WITH
;70 IN RHCS1 FOR READ DATA
;WITH INTERRUPT ENABLED
FOR RDY BIT TO SET
FOR RHCS1 REGISTER

;WAIT
;WAIT

;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 8500 MICRO SECONDS

;RDY MUST

SET

BETWEEN

;100 AND 16900 MICRO SECONDS

; *CHANGE SAVED REGISTERS TO EXPECTED VALUE

024162
024106

004037
002200

024170
026172
024174
024176
024200

000002
000001

024202
024206

004037
002222

024210
024212
024214
024216
024220

000002
000001
100000
000001
040000

024222
024226

004037
002204

034204

JSR
RHCST

RO,a#CHREG

1
SC
1

100000

TRE

034204

JSR
RHDS1

RO,I#CHREG

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA IS 1

;NEW VALUE OF ERR [S 1

: CHANGE ATA BIT

ATA

: CHANGE ERR BIT

ERR

033216

;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF SC 1S 1
; CHANGE SC BIT
;NEW VALUE OF TRE IS 1
;CHANGE TRE BIT

000001
040000

;CHANGE BITS IN SAVED REGISTER

; CHANGE RHCS1

JSR

RHDST

RO,a#F ILLRE

;MOV

INTO SAVED RHDST

:SAVED REGISTER TO (MHANGE

[Tl

CIRJJIDO, RPO4L/S5/6 FCINL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

7199
7200
7201
7202
7203
7204
7205
7206
7207
7208
7209
7210
7211
7212
7213
7214
7215
7216
7217
7218

024230

000001

024232
024236

004037
002202

024240
024262
024244

000001
000001
000020

024246

053737

004644

024254
024260
024264
024272

017746
042716
042737
052637

155716
177477
000300

MACY1

30A(1052)
25=MAY=79
126
FORMAT ERROR = RMER1

JSR

RHER1

004516

7247
7248

7249
7250
7251
7252
7253
7254

;CHANGE BITS IN SAVED REGISTER

; CHANGE RHER1

;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF FER IS 1
; CHANGE FER BIT

BIS

GFATTENT ,@#SAVERE+24 ;SET APPROPIATE

MOV
BIC
BIC
BIS

aRH(S2,=(SP)
;GET RH(S2
(SP) ;KEEP IR AND OR
#*(<IR'!0OR>,

;FOR WORKING DRIVE

'ATA' BITS

;SAVED RHAS LOCATION

#IR!OR,a#SAVERE+4;CLEAR

(SP)+ ,a¥SAVERE+4;SET OR

024276

004037

024302
024304
024306
024310
024312

004512
002254
000022
024314
024320

024314
024316

104057
000207

034312

JSR

RO,a#COMREG

SAVED

IR OR

IR AS REQUIRED

ERROR
RTS

VALUE

;TEST DATA STARTING FROM ‘RHWC'
:18. REGISTERS TO BE COMPARED
;RETURN TO 1% ON ERROR
;RETURN TO 2% ON NO ERROR

1%:

; COMPARE SAVED REGISTERS WITH

;PRESENT

:GOOD DATA SAVED IN 'SAVERE'

SAVERE
Wl
18.
1%

JATTEMPTING TO READ DATA

:WITH WRONG FORMAT BIT

CAUSED

: IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD BE

; THERE

sRECEIVED DATA GIVES WHAT WAS THERE
sAFTER READ DATA

2%:

024320
024320
024324
024326
024330
024332
024334

004037
002370
003434
000400
024336
024342

024336
024340

104034

000207

;*COMPARE READ

JSR

035342

WRFROM
REINTO

RIS

TWO BLOCKS OF

MEMORY

:GOOD DATA STARTS FROM WRFROM
DATA STARTS FROM REINTO

:256., WORDS TO BE COMPARED

;RETURN TO 3% ON ERROR
;RETURN TO 4% ON NO ERROR

ERROR

; COMPARE
;TEST

256.
1%

1%:

INTO BUFFER TO CHECK THAT NOTHING WAS READ

RO,a#COMPAR

:ATTEMPT

TO READ

;Wl1TH WRONG FORMAT BIT
s CHANGED READ INTO BUFFER

;GOOD DATA GIVES WHAT SHOULD
:BE

SEQ 0150

;*COMPARE REGISTERS BEFORE WRITE DATA WITH AFTER ATTEMPT

7219

7220
7221
7222
7223
7224
7225
7226
7227
7228
7229
7230
7231
7232
7233
7234
7235
7236
72%7
7238
7239
7240
7241
7242
7243
7244
7245
7266

RO,a#CHREG

1
1
FER

004536

151

(BIT W4)FMT
;DATA

034204

THERE

:BAD DATA GIVES WHAT WAS

TMTM

CIZRJJDO, RPO4/5/6 FCINL CTRLR2
CZRJJD.PT
28-MAR-79 08:52

H 12
10:48 PAGE

C(ZRJJD.PN
7255
7256

7257
7258

28-MAR-79 08:52

MACY11

30A(1052)
126

25=MAY=79

FORMAT

10:48

112
PAGE 152

ERROR = RHER1

(BIT #4)FMT
;THERE

024342

4%:

AFTER READ DATA

SEQ 0151

(el el

CIZRJJIDO, RPO4/5/6 FCINL CTRLR2

MACY11

7259
7260
7261
7262
7263
7264
7265
7266
7267
7268
7269
7270
7271
7272
7273

7280
7281
7282

7283
7284
7285
7286
7287
7288
7289
7290

126

At 22

25-MAY-79

FORMAT

8%
%
%

IS
T
I

%
%

024356

004737

033314

0246362
024370

012737
012737

002200
000007

%
%

153

SEQ 0152

(BIT W4)FMT

lld)

TO CYLINDER O BY A SEEK

A READ DATA COMMAND WILL BE GIVEN TO CYLINDER 1 TRACK 0
SECTOR 0 150. WORDS. THIS WILL TAKE AT
LEAST 7 MIL] SECONDS.
IMMEDIATELY AFTER GO AT
IMPLIED SEEK TIME, WRITE INTO A REGISTER WILL BE ATTMEPTED
THEN READY WILL BE WAITED ON TO COMPLETE THE READ DATA
THEN ALL REGISTERS WILL BE COMPARED AND THE DATA READ
SHOULD BE GOOD

001000
000027

ERROR = RMER1

12
PAGE

THE HEADS WILL BE BROUGHT

N
®e

000004
012706
012737

CYLINDER! TRACK O, SECTOR O WILL BE WRITTEN WITH
200 WORDS OF 2000 BY A WRITE HEADER AND DATA COMMAND

THIS WILL BE REPEATED FOR RHCS1, RHER1, RHDST, RHER?

RHOF, RHCA, RHER3

024342
024344
024350

10:48

JeTEST 27

7274
- 7275
7276
7277
7278
7279

30A(1052)

ii2222222322202222220

15127:

SCOPE

MOV

#STACK,SP

;RESET

JSR

PC,a#CLDISK

MOV
MOV

#RHCST,a#TMPO
#7,38TMPS

;SET R1-RHCS1, R2=-RH(S?2
;R3-RHDS1, R4=-RHERI
;GIVE RH=11 INITIALIZE
sSETUP UNIT NUMBER

MOv

004504

004652
0046690

2222222l

#27,a0TSTNM

STACK

:SAVE TEST NUMBER

;FIRST REGISTER TO BE TESTED
;NUMBER OF REGISTERS TO BE TESTED

;*PREPARE TO WRITE HEADER AND DATA CYLINDER 1, TRACK 0, SECTOR 0
;*FILL WRITE FROM BUFFER WITH HEADER
S122:

024376
024376

004737

033314

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RHCS?2

;R3-RHDS1, R&=-RHER1

;GIVE RH=11 INITIALIZE
:SETUP UNIT NUMBER

024402
024406
024410
024412
024414
024416
024420

004037
002370
000004
010001
000000
000000
000000

033140

JSR

WRFROM
o
10001
0

RO,a#FLHEAD

0
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

;*FILL WRITE FROM BUFFER WITH DATA
024422
024426
024430
024432

004037
002400
000400
002000

033164

RO,a#CLAREA
JSR
WRFROM+ <4 2>
256.
2000

;CLEAR 256. WORDS, FROM WRFROM+<4*?2>
;STARTING FROM WRFROM¢<4e2>
:256. WORDS
;FILL wiTh 2000

CIRJJDO, RPO4L/S/6 FUTINL CTRLR2
(ZRJJD P11
28-MAR-79 08:52

CZRJJDO, RPO4/5/6 FCTNL CTRLR2
CZRJJD. P11
28-MAR-79 08:52
7315
7316
7317
7318
7319
7320
7321
7322
7323

7324
7325
7326

7327
7328

7329
7330
7331
7332
7333
7334
7335
7336
7337
7338
7339
7340
7341
7342
7343
7344
7345

7346
7347
7348

7349
73
7366
7367
7368
7369
7370

MACY11

30A(1052)
25=MAY=79
10:48 PAGE 154
REGISTER MODIFICATION REFUSED = RHERT(BIT #2),RMR
127

SEQ 0153

;*FILL COMMAND
024434
024440
024442
024443
024444

004037
000001

035276

{SR

:SETUP TO RUN FOR DATA COMMAND

RO,a#RUN

sCYLINDER 1

SECTOR 0

000
000
177464

BYTE
0
.BYTE
(
-200.-4

024446

002370

WRFROM

024450
024452

000000
010000

0
FM122

024454

002344

WRIFOR

024456

004737

033374

JSR

PC,aNCHECKT

; CHECKS DVA,RDY,MOL ,DPR,DRY AND VvV = 1

024462
024466

104401

000000

057465

TYPE

LCPHALT

; CANNOT CONTINUE TESTING IF NOT
;STOP TEST

024470

013777

004506

Mov

O#RP4LVEC,aRPVEC

;SET RPO4 VECTOR ADDRESS

HALT

155470

;TRACK O
:WORD COUNT

(DATA)

= 200.

;& HEADER WORDS
;BUS ADDRESS
;STARTING ADDRESS OF DATA
= WRFROM
:BUFFER
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
;D0 NOT INHIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE
;GET READY TO DO A WRIFOR

;WRITE HEADER AND DATA WITH 62 IN RHCSI

;AND THAT ALL STATUS BITS ARE = 0

;70

"TIMEY1'

;OR TO 'TIMEZ2'
;"TIME'

P=CLOCK

1S PRESENT

IF P=CLOCK IS NOT THERE

WILL ONLY

SAVE

; CURRENT CYLINDER ADDRESS
;AND LOOK

024476
024502

013746
052716

002344
000101

MOV

BIS

A#WRIFOR,=(SP)

#GC'!1E, (SP)

PC,aNCHECKT

; CHECKS DVA,RDY,MOL ,DPR,DRY AND vV = 1

024530
024534

057465

104401

000000

TYPE
HALT

,CPHALT

AHEAD REGISTERS

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

;AND THAT ALL STATUS BITS ARE = 0

; CANNOT CONTINUE TESTING IF
;STOP TEST

NOT

CZRJJIDO, RPO4L/S5/6 FCINL CTRLR2
CZRJIID.PIY
28-MAR-79 08:52
7371
7372

024536
024542

004037
000000

033264

7375

024544

013777

004506

024552
024556

013746
052716

024562

012677

024566
024570

104413
002222
000200

ale
7376
7377
7378
7379
7380

7382

7383
7384
7385

7386
7387

MACY11

L 12
30A(1052)
25-MAY-79
10:48 PAGE 155
127
REGISTER MODIFICATION REFUSED = RHER1(BIT #2),RMR
JSR
0

RO,A#SEEKCY

MOV

S¥RPLVEC,aRPVEC ;SET RPO4& VECTOR ADDRESS

002352
000101

MOV
BIS

S¥SEECOM,=(SP)
#G0'1E, (SP)

155412

MOV

(SP)+,aRHCST

155414

:T0 'TIME1® IF P=CLOCK 1S PRESENT
:OR TO "TIME2' 1F P=CLOCK IS NOT THERE
;"TIME' WILL ONLY SAVE
;:CURRENT CYLINDER ADDRESS
:AND LOCK AHEAD REGISTERS

7388

7389
7390
7391

7392
7393

7394

7395

;gg?

024572
0245764
024576

002776
001502

;SEEK FOR
;CYLINDER O

WAT
RHDS1

:GET READY TO MOVE COMMAND
:GET READY TO SET GO AND
;ENABLE INTERRUPT
;G0 WITH
:4 IN RHCS1

FOR SEEK
:WITH INTERRUPT ENABLED
:WAIT FOR DRY BIT TO SET
:WAIT FOR RHDS! REGISTER

DRY
1534.
834.

:WAIT FOR DRY BIT IN RHDS1 REGISTER
sALLOW 15340 MICRO SECONDS
:DRY MUST SET BETWEEN

;7000 AND 23680 MICRO SECONDS

;;gg

:*PREPARE FOR A READ DATA

;«g?

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA FROM READ

7402
76403
76404
76405

7e0
&

76408
76409
76410
76411

713

024600
024604
024606
024610

004037
002370
000226
002000

033164

JSR
WRFROM
150.
2000

024612
024616
024620
024622

004037
003044
000152
000077

033164

JSR
RO,3#CLAREA
WRFROM+<150,¢2>
106.
77

;514

415

76416
76417
7418
;4;8
&

76423
76424
7425
7426

:CLEAR 150. WORDS, FROM WRFROM
:STARTING FROM WRFROM
:150. WORDS
;FILL WITH 2000

:CLEAR 106. WORDS, FROM WRFROM+<150,¢2>
:STARTING FROM WRFROM+<150,+2>
;106. WORDS
sPILL WITH 77

;*FI1LL READ INTO BUFFER WITH DATA OTHER THAN WHAT 1S EXPELTED

024624
024630
024632
024634

004037
003434
000400
000077

033164

7621

7422

RO,a#CLAREA

JSR
REINTO
256.
77

RO,3#CLAREA
]

:CLEAR 256. WORDS, FROM REINTO
:STARTING FROM REINTO
:256. WORDS
;FILL WITH 77

:*f1LL READ DATA COMMAND

024636
024642
024644
024645

004037
00000
000
000

035276

JSR
1
.BYTE
BYTE

RO,a#RUN

0
0

:SETUP TO RUN FOR DATA (OMMAND
sCYLINDER 1
;SECTOR 0
;TRACK 0

SEQ 0154

7627
76428
7429
7630
7431
76432
7633
7434
7435
7436
7637
7438
7439
7440
76441
7442
76443
7444
;:43
7461

76462
7463
7464
7465
;46?
46

7468
7469
7470
;4;;
4

76477
7478
7479

7480
7481
7482

m12
30A(1052)
25=MAY=79
10:48 PAGE 156
127
REGISTER MODIFICATION REFUSED = RHER1(BIT #2),RMR

024646
024650

177552
003434

-150.
REINTO

024652
024654

000000
014000

0
ECI'FMT22

024656

002346

READAT

024660
024664
024666

004037
002172
004512

024670

000022

;*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE
;*INTO A REGISTER WHILE THE READ IS GOING ON
JSR
RO,3#SAVER
; SAVE REGISTERS
RHWC
;RHWC 1S THE FIRST REGISTER SAVED
SAVERE
;STARTING ADDRES OF WHERE
;THE REGISTERS ARE SAVED
17459

024712

013746

002346

MOV

O#READAT,-(SP)

024722

012677

155252

MOV

(SP)+,aRHCS]

024726
024732

013700
012730

004652
002006

MOv
MOov

024736

010037

004652

MOv

a#TMPO,RO
;SET UP RO FOR WRITE
#BI1T1!BiT2!BIT10,a(RO)+ ;ATTEMPT TO WRITE INTO
;REGISTERS DURING IMPLIED SEEK
RO,a#TMPO
;SAVE OFF
RO

024716

052716

7473
7474
7475
76476

MACYTT

033462

000101

BIS

;WORD COUNT = 150.
;BUS ADDRESS
;STARTING ADDRESS OF 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 RHCSI

#GO!1E, (SP)

;GET READY TO MOVE COMMAND

:GET READY TO SET GO AND
;ENABLE INTERRUPT
;60 WITH
;70 IN RHCS1 FOR READ DATA
;WITH INTERRUPT ENABLED

;*NOW RMR 1S SET BUT THE COMPLETION OF READ MUST BE
;*WAITED ON

0247642
024744
020746

024750
024752

104413
002200
000200
002237
002237

WAl
RHCS
RDY

1183.
1183.

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS! REGISTER
;WAIT FOR RDY BIT IN RHC(S1 REGISTER

;ALLOW 11830 MICRO SECONDS
;RDY MUST SET BETWEEN
;00 AND 23660 MiCRO SECONDS

(ZRJJDO RPO4/5/6 FCTNL CTRLR2
CZRJJID.P1
28-MAR-79 08:52

SEQ 0155

7521

7522
7523
7524

7525

75¢6
7527
7528
7529
7530
7531
7532
7533
7534
7535
7536

7537

7538

303(1052)

25=MAY=79

10:48

N 12
PAGE 157

034204

024754
024760

004037
002234

024762
024764
024766

000001
000001
000001

024770
024774

004037
002200

024776
025000
025002

000001
000001
100000

025004
025010
025012

004037
002204
000001

033216

025014
025020

004037
002222

034204

025022
025024
025026
025030
025032

000002
000001

025034

053737

JSR

RHCC

RO,3#CHREG

JSR

RO,a#F ILLRE

JSR

RO,a#CHREG

RHDS1
1
ATA
1
ERR

000001
040000
004644

004536

BIS

:MOV 1 INTO SAVED RHDST

:3:¥Eo REGISTER TO CHANGE

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS?! REGISTER

;2 BIT/BITS T0O BE CHANGED
;NEW VALUE OF ATA IS 1

100000

: CHANGE SC BIT

?HDSI

; CHANGE BITS IN SAVED REGISTER

;CHANGE RHCS1

;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF SC IS 1

JSR
RHCST

; CHANGE RHCC REGISTER

: CHANGE BITO BIT

BITO

034204

;CHANGE BITS IN SAVED REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF BITO IS 1

1
1

7483
7484
7485
7486
7487
7488
7489
7490
7691
7492
7493
7494
7495
7496
76497
7498
7499
7500
7501
7502
7503
7504
7505
7506
7507
7508
7509
7510
7511
7512
7513
7514
7515
7516
7517
7518
7519
7520

MACY1]

: CHANGE ATA BIT

;NEW VALUE OF ERR IS 1
: CHANGE ERR BIT

SNATTENT ,@#SAVERE+24 ;SET APPROPIATE 'ATA' BITS
;FOR WORKING DRIVE

: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#CHREG

1
1

RHBA

JSR

CHANGED

; CHANGE RMR BIT

RCO,3#FILLRE

REINTO+<150.¢2>

SNUC

BIT/BITS TO BE

;NEW VALUE OF RMR IS 1

RMR

JSR

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHER1 REGISTER

RO,a#FILLRE

;MOV REINTO+<150.#2> INTO SAVED RHBA

;SAVED REGISTER TO CHANGE
;DATA

sMOV O INTO SAVED RHWC
:3:¥ib REGISTER TO CHANGE

;*COMPARE REGISTERS BEFORE READ DATA WITH REGISTERS
;*AFTER READ AND ATTEMPTED MODIFICATION OF

025076

004037

034312

JSR

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH

SEQ 0156

CIRJJIDO, RPO4/S5/6 FCINL CTRLR2
CZRIID.P1N
28-MAR-79 08:52

CIRJJIDO, RPO4L/5/6 FCTNL CTRLR2
CZRJJD.P1Y
28-MAR-79 08:52
7539
75640
75641
7542
7543
75644
7545
7546
7547
7548
7549
7550
7551
7552
7553
7554
7555
7556
7557
7558
7559

7560
7561
7562
7563
7564
7565
7566
7567

7568
7569
7570
7571
7572

7573
7574

7575
7576

7577

025102
025104
025106
025110
025112

004512
002254
000022
025114
025134

025114
025114
025116
025122
025126
025130
025132

010046
013700
014037
104060
(12600
000207

3?5;1052)

2%:

004652
001122

004037
002370
003434
025150
025154

025150
025152

104034
000207

025154
025160

005337
001002

000137
000137

;GOOD DATA SAVED IN 'SAVERE'

18.
2%

;18. REGISTERS TO BE COMPARED
;RETURN TO 2% ON ERROR

;TEST DATA STARTING FROM 'RHWC'
;RETURN TO 3% ON NO ERROR

MOV
MOV
MoV

RO,=(SP)
arTMPO,RO
=(R0O) ,a#$BDADR

RTS

ERROR
Mov

035342

60
(SP)+,RO

004660

025172
024376

4%:

ST123:
1%:

ERROR

;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
COMPARED

;RETURN TO ST23 ON ERROR

;RETURN TO

DEC

a¥TMP5
1%

15130

ansT22

ON NO ERROR

;DATA READ WITH AN ATTEMPTED

JMP

;ATTEMPTING TO MODIFY REG]STER
:;POP STACK INTO RO
;DURING A READ COMMAND CAUSED
: IMPROPER REGISTER CHANGE

;4%, WORDS TO BE

RTS

BNE
JMP

:GET ADDRESS OF REGISTER BEING MODIFYED

;:COMPARE TWO BLOCKS OF MEMORY

RO,3#COMPAR

ST123

;:PUSH RO ON STACK
;GET REGISTER BEEING MODIFYED + 2 POINTER

:GOOD DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT WAS
: THERE AFTER READ

:*COMPARE DATA READ
JSR
WRFROM
REINTO
4%

SEQ 0157

;PRESENT VALUE

SAVERE

3%:

025134
025140
025142
025144
025146

B 13
25-MAY=-79 10:48 PAGE 158
REGISTER MODIFICATION REFUSED = RHERT(BIT #2) ,RMR

025134

025162
025166

MACYI

;MODIFICATION OF REGISTER
;DURING READ CAUSED ERROR
; COUNT DOWN
;BRANCH IF 7 NOT DONE
;JUMP TO NEXT TEST
;JUMP TO BEGINING OF TEST

——
e e

c13
MACY11 30A(1052)
25-MAY-79 10:48 PAGE 159
REGISTER MODIFICATION REFUSED = RHER1
130

SEQ 0158

(BIT #2),'RMR’

:;"""'""""""""""'""""'l'I"""""""'.'Q.""

;*TEST 30

e
L
L

A WRITE HEADER AND DATA COMMAND WILL BE GIVEN TO
CYLINDER 1 SECTOR 0 TRACK O DATA WORDS
Of 070707

A WRITE DATA COMMAND WILL BE GIVEN TO CYLINDER 1

)
L
:®
L

SECTOR 0, TRACK 0, 256 WORDS OF 2000
AND & WORDS OF 2001. IMMEDIATELY AFTER GO
AN ATTEMPT WILL BE MADE TO MODIFY A REGISTER
RMR BIT #2 IN RHER1 SHOULD SET

L
e

BE CHECKED

THE DATA WRITTEN WILL BE READ BACK AND CHECKED

. ®

AFTER THE WRITE 1S COMPLETE ALL REGISTERS WILL

7596
7597
7598

]

THIS WILL BE REPEATED FOR RHCS1, RHER1, RHDST,

RHER2, RHOF, RHCA, RHER3

;®

..ttttt't'ttl't'""t"t"'ttt't't""'t!t"tt'tt"t'tt"tt'ttt't

025206

004737

033314

ST30:

004504

SCOPE
MOV

#STACK,SP

sRESET STACK

JSR

PC,a¥#CLDISK

:SET R1=-RHCS1, R2-RH(S?2

MOV

#30,3¥#TSTNM

:SAVE TEST NUMBER
:R3-RHDS1, R&=RHER1

W
N~

025212
025220

—_——

;GIVE RH=11 INITIALIZE
:SETUP UNIT NUMBER
002200
000007

004652
004660

;

MOV
MOV

#RHCS1,a#TMPO
#7,3#TMPS

:*PREPARE

TO WRITE HEADER AND DATA

§ST24:

025226

sFILL REGISTER TO BE MODIFIED
:NUMBER OF REGISTERS TO BE TESTED

004737

033314

JSR

PC,a#CLDISK

:SET R1=-RHCS1, R2-RH(CS?2
:R3-RHDS1, R&4-RHER1

:GIVE RH=11 INITIALIZE
sSETUP UNIT NUMBER

:*FILL WRITE FROM BUFFER WITH HEADER
025232
025236
025240
025242
025244
025246
025250

004037
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

7626
7627
7628
7629
7630
7631
7632
7633

001000
000030

7607
7608
7609
7610
7611
7612
7613
7614
7615
7616
7617
7618
7619
7620
7621
7622
7623
7624
7625

000004
012706
012737

7603
7604
7605

025172
025174
025200

[l
]

CIZRJJDO, RPO4/S5/6 FCINL CTRLR2
CZRJJD.P1
28-MAR-79 08:52

CZRJJIDO, RPO4L/5/6 FCINL CTRLR2

CIRJID.PII
7634

28-MAR-79 08:52

7635

025252

004C37

7637

025260

000400

7636

;ggg

025256

025262

002400

MACY1!

033164

004037
003400

7646
7647
7648

025274
025276
025300

010001
000001
000000

025272

025302

033140

7656

025314

070707

025312

033164

000004

7678
7679
7680
;og;
6

768%
7684

7685

7686

7687
7¢gg

:NUMBER OF WORDS SAVED

:FOURTH DATA WORD

:FIRST DATA WORD
:SECOND DATA WORD
:THIRD DATA WORD

JSR
RO,a#CLAREA
WRFROM+<268.+2>

sCLEAR & WORDS, FROM WRFROM+<268.+2>
:STARTING FROM WRFROM+<268.¢2>

70707

sFILL WITH 70707

;ggg

rer7

:SAVE HEADER DATA IN WRFROM+<260.+2>
:LOCATION WHERE SAVED

:*FILL WRITE FROM BUFFER WITH WITH NEXT SECTOR DATA
004037
003420

7675

:STARTING FROM WRFROM+<&*2>

10001
1
0

000000

025304
025310

7667
7668
7669
7670
7671
7672
7673
7674

;CLEAR 256. WORDS, FROM WRFROM+<&*2>

;FILL WITH 070707

JSR
RO,3#FLHEAD
WRFROM+<260.%2>

000004

7653
7654

7662
7663
7664
7665
7666

SEQ 0159

:256. WORDS

070707

;gg}

7661

D 13
PAGE 160

:*F1LL WRITE FROM BUFFER WITH NEXT SECTOR HEADER
025264
025270

7657
7658

RO alCLAREA

256.

070707

7643
7644

7655

10:48

;g:;

;ggg

130

25-MAY=79

WRFROM#<4 2>

7640

7645

30A(1052)

;4 WORDS

:*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED

025316

025322
025324
025325
025326

004037

000001
000
000
177364

035276

JSR

RO, 3#RUN

:SETUP TO RUN FOR DATA COMMAND

1
BYTE
0
.BYTE
0
=264 .4

;CYLINDER 1
:SECTOR 0
:TRACK 0
:WORD COUNT (DATA) = 264. +
:4 HEADER WORDS

025330

002370

WRFROM

025332
025334

000000
010000

025336

002344

025340

004737

033374

JSR

PC,aNCHECKT

025344
025350

104401
000000

057465

TYPE
HALT

LCPHALT

025352

013777

004506

MOV

AFRPLVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS
;70 "TIME1' IF P=CLOCK 1S PRESENT

154606

’

:BUS ADDRESS

;STARTING ADDRESS OF DATA
:BUFFER= WRFROM
:D0 NOT INMIB!T BUS ADDRESS INCREMENT
216 BITS PER WORD FORMAT
:DO NOT INHIBIT ECC CORRECTION
:DO NOT INHIBIT HEADER COMPARE
;:GET READY TO DO A WR!FOR

0
FMT22
WRIFOR

:WRITE HEADER AND DATA WITH 62 IN RHCSI

:CHECKS DVA,RDY,MOL,DPR,DRY AND VvV = 1
:AND THAT ALL STATUS BITS ARE = 0
;CANNOT CONTINUE TESTING IF NOT
:STOP TEST

:OR TO 'TIME2' IF P=-CLOCK 1S NOT THERE
:"TIME' WILL ONLY SAVE

:CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

‘

CZRJJDO, RPO4/5/6 FCINL CTRLR2
CIRJJD.P1
28-MAR-79 08:52
7690

7691
7692
7693
7694
7695

E 13
MACY11 30A(1052)
25-MAY-79 10:48 PAGE 161
130
REGISTER MODIFICATION REFUSED = RHER!

025360
025364

013746
052716

002344
000101

MoV
BIS

AVWRIFOR,=(SP)
#G0'1E, (SP)

025370

012677

154604

MOV

(SP)+,3RHCST

;ggg

7701
7702
7703
7704
;;gg

;GET READY TO MOVE COMMAND
:GET READY TO SET GO AND
;ENABLE INTERRUPT
;G0 WITH
:62 IN RHCS1 FOR WRITE HEADER AND DATA

:WITH INTERRUPT ENABLED

;233
7700

(BIT #2), 'Rnn'

025374

025376
025400
025402
025404

104413

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

002200
000200
001725
001502

:WAIT FOR RDY BIT TO SET

RHCST
RDY
981,
834,

:WAIT FOR RHCS1 REGISTER
:WAIT FOR RDY BIT IN RHCS1 REGISTER
:ALLOW 9810 MICRO SECONDS
:RDY MUST SET BETWEEN
;1470 AND 18150 MICRO SECONDS

;;8;

:*NOW PREPARE FOR THE WRITE DATA COMMAND

;;?8

;+FILL WRITE FROM BUFFER WITH 256 OF 2000 AND & OF 2001

7711
7712

025406
025412

004037
002370

7714

025416

002000

7717
7718

025420
025424

004037
003370

;;g?

025430

002001

7713

7719

025414

025426

033164

000400

033164

000004

JSR
RO,3#CLAREA
WRFROM+<256.+2>

:CLEAR & WORDS, FROM WRFROM+<256.*2>
:STARTING FROM WRFROM+<256.%2>

2001

;FILL WITH 2001

;4 WORDS

;#FILL WRITE DATA COMMAND

025432

025436
025440
025441
025442
025444

004037

000001
000
000
177400
002370

035276

JSR

1
BYTE
BYTE
-256.
WRFROM

RO,3#RUN

0
0

:SETUP TO RUN FOR DATA COMMAND

:CYLINDER 1
;SECTOR 0
:TRACK 0
:WORD COUNT = 256.
:BUS ADDRESS
:STARTING ADDRESS OF DATA
:BUFFER= WRFROM
;D0 NOT INMIBIT BUS ADDRESS INCREMENT
216 BITS PER WORD FORMAT
:DO NOT INMIBIT ECC CORRECTION
:D0 NOT INMIBIT HEADER COMPARE
:GET READY TO DO A WRIDAT
;WRITE DATA WITH 60 IN RHCS1

025446
025450

000000
010000

0
FM122

025452

002342

WRIDAT

004037
002172
004512

:*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED
:*REGISTER MODIFICATION DURING A WRITE DATA
JSR
RO,a#SAVER
:SAVE REGISTERS
RHW(
:RHWC IS THE FIRST REGISTER SAVED
SAVERE
;STARTING ADDRES OF WHERE

7739
7740

77644
7745

;FILL WITH 2000

7741
7742
77643

;:CLEAR 256. WORDS, FROM WRFROM
:STARTING FROM WRFROM

:256. WORDS

2000

;;53

7726
7727
7728
7729
7730
7731
7732
7733
773%
7735
7736
7737
7738

RO,3#CLAREA

256.

7722

7725

JSR

WRFROM

025454
025460
025662

033462

SEQ 0160

CIRJJDO, RPO4/5/6 FCTNL CTRLR2Z
28-MAR-79 08:52

CZRJJD PN

7746
7747
7748
7749
7750
7751
7752
7753
7754
7755
7756
7757
7758
7759
7760
7761
7762
7763
7764
7765
7766
7767
7768
7769
7770
777
7772
7773
7774
7775
7776
7777
7778
7779
7780
7781
7782
7783
7784
7785
7786
7787
7788
7789
7790
7791
7792
7793
7794
7795
7796
7797
7798
7799
7800
7801

MACY11

30A(1052)
130

25-MAY-79

10:48

13
PAGE

162

SEQ 0161

(BIT #2),'RMR'

;THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS

025464

000022

025466

004737

033374

JSR

PC,aNCHECKT

025472
025476

104401
000000

057465

TYPE
HALT

,CPHALT

025500

013777

004506

MOv

O#RPLVEC,ARPVEC

18.

154460

;SAVED = 18.

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

TESTING IF

NOT

;SET RPC4 VECTOR ADDRESS
;70 "TIMEY1' 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

025506
025512

013746
052716

002342
000101

MOV

025516

012677

154456

MOV

BIS

9#WRIDAT ,-(SP)

#GO'1E, (SP)

(SP)+ ,aRHCS]

;GET READY

TO MOVE

COMMAND

;GET READY TO SET GO AND

;ENABLE INTERRUPT
;60 WITH

;60 IN RHCS1 FOR WRITE DATA

;WITH

025522
025526

013700
012730

004652
002002

MOV
MOV

a#TMPO,RO
#BIT1!BIT10,a(RO)+

025532

010037

004652

MOV

RO,a¥#TMPO

INTERRUPT ENABLED

;SET RO TO REG ADDRESS
ATTEMPT TO WRITE INTO A REGISTER

;DURING WRITE DATA
;SAVE OFF NEW REG ADDRESS

;*NOW RMR MUST BE SET BUT THE COMPLETION OF
;*WRITE DATA MUST BE WAITED ON
025536
025540
025542
025544
025546

WAT
RHCS1

104413

002200
000200
001725
001502

RDY
981.
834.

; *CHANGE

025550
025554

004037
002234

025556
025560
025562

000001
000001
000001

025564
025570

004037
002200

025572
025574
025576

000001
000001

100000

;WAIT
;WAIT

034204

JSR

RHCC

;WAIT FOR RDY BIT IN RHCS1
;ALLOW 9810 MICRO SECONDS
;RDY MUST SET BETWEEN
SAVED REGISTERS TO EXPECTED VALUE

RO,3#(HREG

1
1
SC

; CHANGE RHCC REGISTER
:1

BIT/BITS TO BE CHANGED

; CHANGE BITO BIT

B1T0
JSR

;CHANGE BITS IN SAVED REGISTER

;NEW VALUE OF BITO IS 1

RHCST

;1470 AND 18150 MICRO SECONDS

034204

FOR RDY BIT TO SET
FOR RHCS! REGISTER

RO,3#CHREG

;CHANGE BITS IN SAVED REGISTER
: CHANGE RHCS1 REGISTER
;1 BIT/BITS 10 BE C(HANGED
;NEW VALUE OF SC IS 1
; CHANGE SC BIT

CIRJJDO, RPO4L/S5/6 FCTINL CTRLR2
P11
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
7847
7848
7849
7850
7851
7852
7853
7854
7855
7856

7857

025600
025604

004037
002222

025606
025610
025612
025614
025616

000002
000001
100000
000001
040000

025620

053737

MACYN

30;61052)

034204

25=MAY=79

10:48

6 13
PAGE 163

JSR
RHDS1

RO,3#CHREG

BIS

004536

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

;2 BIT/BITS TO BE C(HANGED

1
ATA
1
ERR

004644

(BIT #2),'RMR'

;NEW VALUE OF ATA
; CHANGE ATA BIT
;NEW VALUE OF ERR
; CHANGE ERR BIT

SNATTENT ,@#SAVERE+24 ;SET APPROPIATE
;FOR WORKING DRIVE

'ATA' BITS

;SAVED RHAS LOCATION

JSR
RHER1

034204

RO,a#CHREG

; CHANGE BITS IN SAVED REGISTER
;CHANGE RHER1 REGISTER

025626
025632

004037
002202

025634
025636
025640

000001
000001
000004

025642
025646
025650

004037
002204
000001

033216

JSR

RO,a#F ILLRE

;MOV 1

025652
025656
025660

004037
002174
003370

033216

JSR

RO.a#FILLRE

:MOV WRFROM+<256.%2> INTO SAVED RHBA

025662
025666
025670

004037
002172
000000

033216

JSR

RO,a#F ILLRE

;MOV O INTO SAVED RHWC

1
1
RMR

RHDST
1

:1 BIT/BITS TO BE CHANGED
sNEW VALUE OF RMR IS 1
;:CHANGE RMR BIT

RHBA
WRFROM+<256.+2>

Suuc

INTO SAVED RHDST

:SAVED REGISTER TO CHANGE
;DATA

;3A¥ED REGISTER TO CHANGE

;DA

;*COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS
;*AFTER WRITE AND ATTEMPTED MODIFICATION OF REGISTER

025672

004037

025676
025700
025702
025704
025706

004512
002254

014037
104060

012600
000207

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM "RHW(C'
;18. REGISTERS 70 BE COMPARED
;RETURN TO 2% ON ERROR
;RETURN TO 3% ON NO ERROR

MOV
MOV
MOV

RO,=(SP)
a#TMPO,RO
-(RO) ,a#$BDADR

;:PUSH RO ON STACK
;GET REGISTER BEEING MODIFYED + 2 POINTER

RTS

;DURING A WRITE COMMAND CAUSED
; IMPROPER REGISTER GIVES WHAT SHOULD
;600D DATA GIVES WHAT SHOULD

SAVERE
WC
18.
2%
3%

000022
025710
025730

010046
013700

RO,a#COMREG

JSR

034312

2%:

004652
001122

ERROR
MOV

60
(SP)+,RO

;GET ADDRESS OF REGISTER BEING MODIFYED

;ATTEMPTING TO MODIFY REGISTER
::POP STACK INTO RO

SEQ 0162

—

——————

CIRJJDO, RPO4/5/6 FCTINL CTRLR2
CIRJID.PIN
28-MAR-79 08:52

MACYT

H13
30A(1052)
25-MAY=79
10:48 PAGE 164
130
REGISTER MODIFICATION REFUSED = RHER1

7858

7859
7860
7861

025730

7864
7865
7866

025730

1%:
004737

033314

;*CLEAR ALL ERROR FLAGS

JSR

PC,afCLDISK

;ggg

025734
025740
025742
025744

004037
002370
000400
002000

033164

JSR
WRFROM
256.
2000

7877
7878
7879
7880

025746
(025752
025754
025756

004037
003370
000004
002001

033164

JSR
RO,3#CLAREA
WRFROM+<256.%2>

RO,a#CLAREA

2001

;ggs

025760
025764

004037
000001

000
000
177374
003434

BYTE
.BYTE
=260.
REINTO

025774
025776

000000
014000

0
ECI'FMT22

026000

002346

READAT

026002
026006
026010

004037
002172
004512

026012

000022

7909

026014

004737

033374

JSR

7911
7912

026020
02602«

104401
000000

057465

TYPE
HALT

7898

025766
025767
025770
025772

035276

7899
7900

7901
7902
7903
7904
7905
7906
;ggg
7910

7913

:SET R1-RHCS1, R2-RHC(S?2
;R3=RHDS1, R&4=RHER!
:GIVE RH=11 INITIALIZE

:CLEAR 256. WORDS, FROM WRFROM
:STARTING FROM WRFROM
:256. WORDS
sEILL WITH 2000

:CLEAR & WORDS, FROM WRFROM+<256.%2>
:STARTING FROM WRFROM+<256.¢2>
;4 WORDS
sFILL WITH 2001

:*NOW THE READ DATA COMMAND WILL BE FILLED

7887
7888
7889
7890
7891
7892
7893
7894
7895
7896
7897

:RECEIVED DATA GIVES WHAT WAS
:THERE AFTER READ

s*FILL WRITE FROM BUFFER WITH EXPECTED DATA

7871
7872
7873
7874

7885
7886

SEQ 0163

:SETUP UNIT NUMBER

;ggg

7881
7882

:BE THERE

;gg%

7876

(BIT #2),'RMR'

033462

JSR
1

RO,a#RUN

:SETUP TO RUN FOR DATA COMMAND
;CYLINDER 1

O
0

:SECTOR 0
:TRACK 0
:WORD COUNT = 260.
:BUS ADDRESS
:STARTING ADDRESS OF DATA
:BUFFER = REINTO
:DO 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 COMMAND
JSR
RO,a#SAVER
:SAVE REGISTERS
RHW(
:RHWC IS THE FIRST REGISTER SAVED
SAVERE
:STARTING ADDRES OF WHERE
:THE REGISTERS ARE SAVED
18.
:NUMBER OF REGISTERS

;SAVED
= 18,

PC,aNCHECKT

:CHECKS DVA,RDY,MOL,DPR,DRY AND vV = 1

LCPHALT

:CANNOT CONTINUE TESTING 1F NOT
;STOP TEST

:AND THAT ALL STATUS BITS ARE = §

e
——————————

026026

7922

026034

013746

002346

MOV

S#READAT,=(SP)

026044

012677

154130

MOV

(SP)+,3RHCST

026050

011100

MOV

ar1,RO

026054
026056

104413
002200

WAT
RHCST

7924

7925
7926
7927
7928

;ggg

7931

7932
7933

7934
7935
7936
;ggg

004506

113

30A(1052)
25-MAY=79
10:48 PAGE 165
130
REGISTER MODIFICATION REFUSED = RMER1

7914
7915
7916
7917
7918
7919

7923

013777

MACY11
154132

MOV

026040

026052

026060
026062
026064

052716

000101

BIS

011305

MOV

000200
001725
001502

7949
7950
7951
7952
7953
7954
7955
7956
7957
7958
7959
7960
7961

7962

026066
026072

026076
026102

013746
052716

011637
022600

002346
004101

0261064
026106

001405
010037

001126

026120

012746

010500

026132
026134
026140
026144

001405
010537
010337
104063

001126
004500

026112
026116
026124
026130

010137
104021
011637
022605

001124

COMMAND

:GET READY TO SET GO AND

:ENABLE INTERRUPT

;60 WITH
:70 IN RHCS! FOR READ DATA
:WITH INTERRUPT ENABLED
:SAVE RHCS1 DURING ABOVE OPERATION

:SAVE RHDS1 DURING ABOVE OPERATION
:WAIT FOR RDY BIT 10 SET
:WAIT FOR RHCS1 REGISTER

:WAIT FOR RDY BIT IN RHCS!1 REGISTER
;ALLOW 9810 MICRO SECONDS
:RDY MUST SET RETWEEN
;1470 AND 18150 MICRO SECONDS

001124

AFREADAT,=(SP)
;SAVE COMMAND
#1E'DVA!GO,
(SP) ;INCLUDE IE'DVA!GO

BEQ
MOV

70%
RO,3#SBDDAT

MOV
ERROR

70%:

MOV

MOV
CMP
BEQ
MOV
MOV
ERROR

72%:

(SP) ,a#$GDDAT
(SP)+,R0

R1,3#REGADR
21

;SAVE FOR PRINTOUT
:DURING ABOVE OPERATION ONLY IE'DVA!GO
:AND COMMAND SHOULD BE SET
:BRANCH IF GOOD
;BAD DATA

:FAILING REGISTER RHCS!
:DURING ABOVE OPERATION ONLY
:COMMAND AND 1E'DVA'GO SHOULD BE SET
#MOL 'DPR!VV,=(SP)
:SAVE BITS SET DURING OPERATION IN RHDS!
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,RS
:DURING ABOVE OPERATION ONLY MOL'DPR!'VV
:SHOULD BE SET
72%
:BRANCH IF GOOD
RS,a#SBDDAT
:BAD DATA
R3,3#REGADR
;FAILING REGISTER RHDS!
63
:DURING ABOVE OPERATION ONLY
;MOL'DPR'VV SHOULD BE SET

:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES

026146

004037

7967

026154

000000

7968
7969

aR3,RS

:GET READY TO MOVE

MOV
BIS

MOV
CMP

004500

026146

7965

7966

#GO'1E, (SP)

:*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN
:*R0O AND RS IMMEDIATELY AFTER GO 1S ISSUED

7963

7964

S¥RPLVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS
:T0 “TIME1' IF P=CLOCK IS PRESENT
:OR TO 'TIME2' IF P-CLOCK IS NOT THERE
:'TIME' WILL ONLY SAVE

RDY
981.
834,

7944
7945
7946
7947
7948

(BIT #2),°'RMR'

: CURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS

7939
;ga?
7942
7943

026152

002172

033216

JSR

RHW(C
0

RO,a#F ILLRE

:MOV 0 INTO SAVED RMWC

:SAVED REGISTER TO CHANGE
;DATA

SEQ 0164

[t al

CZRJJIDO, RPO4/S5/6 FCINL CTRLR2
CZRJJD.PI
28-MAR-79 08:52

CIRJJIDO, RPO4L/5/6 FCTNL CTRLR2
CZRJIJID.PIY
28-MAR-79 08:52
7970
7971
7972
;3;2
7975
7976
7977
7978
7979
7980
7981
;ggg

026156
026162
026164

004037
002174
004444

033216

026166
026172
026174

004037
002204
000002

033216

026176

004037

7987
7988
7989
;gg?

026202

026204
026206
026210
026212

004512

002254
000022
026214
026220

026214
026216

104033
000207

7992

7993
7994
7995

J 13

30A(1052)
25-MAY=79
10:48 PAGE 166
130
REGISTER MODIFICATION REFUSED = RHER1

034312

8001
8002
8003
8004

026220
026224
026226
026230

8009
8010
8011
8012
8013

8014
8015
8016

8017

REINTO+<260.¢2>

;MOV REINTO0+<260.+2> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE
:DATA

JSR
RHDST
2

RO,a#FILLRE

;MOV 2 INTO SAVED RHDST
; SAVED REGISTER TO CHANGE
;DATA

RO,a#COMREG

SAVERE
Wl
18.
4%
5%
6%:

ERROR
RTS

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE

:GOOD DATA SAVED IN 'SAVERE'

;TEST DATA STARTING FROM ‘'RHWC'
:18. REGISTERS TO BE COMPARED
;RETURN TO 4% ON ERROR
;RETURN TO 5% ON NO ERROR
33
PC

;READ DATA CAUSED IMPROPER REGISTER
: CHANGE
;GOOD DATA GIVES WHAT SHOULD BE THERE

;RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND

026220

8008

RO,3#FILLRE

;*NOW READ INTO BUFFER WILL BE CHECKED TO SEE THAT READ

gggg

8005
2889

JSR
RHBA

JSR

7996
7997

7998

(BIT #2),'RMR’

:*NOW COMPARE REGISTERS BEFORE READ DATA WITH
;*AFTER COMMAND

7984
7985

7986

MACY11

026232
026234

5%:

004037
002370
003434
000400

026236
026242

026236
026240

104034
000207

026242

005337

026246
026250
02625

035342

001002
000137
000137

: *WAS GOCD

JSR
WRFROM
REINTO
256.
6%

RO,a#COMPAR

ERROR
RTS

34
PC

;RETURN TO 6% ON ERROR
;RETURN TO ST28 ON NO ERROR

S128

6%:

004660

S128:

026260
025226

; COMPARE TWO BLOCKS OF MEMORY
:GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FRCM REINTO
:256., WORDS TO BE COMPARED

;READ DATA ERROR AFTER A WRITE DATA
;WITH REGISTER MODIFICATION
;WITHIN THE WRITE DATA

;*1F ALL 7 REGISTERS NOT COMPLETE THEN REPEAT
DEC
AN TMPS
s COUNT DOWN

BNE
JMP
JMP

1%
1S131
S124

;BRANCH IF 7 NOT DONE
;JUMP TO NEXT TEST
:JUMP TO BEGINING OF TEST

SEQ 0165

CIRJJIDO, RPO4/5/6 FCINL CTRLR2
CZRIID.PY 1
28-MAR-79 08:52

MACY11

8018
8019
8020
8021
8022

8027
8028
8029
8030
8031
8032
8033
8034
8035

(BIT #2),'RMR'

.';""""""'""'""""'""""""""""""""'."""

;*TEST 31
e
g
e

8023

8024
8025
8026

K13
30A(1052)
25-MAY=79
10:48 PAGE 167
REGISTER MODIFICATION REFUSED = RHER1
130

(BIT #2)RMR

A READ DATA COMMAND IS GIVEN TO CYLINDER O, SECTOR (
TRACK O. IMMEDIATELY AFTER GO RHAS IS WRITTEN INTO
WITH ALL ONES RMR BIT #2 IN RHER SHOULS NOT SET

A2 2222222222222t
RRRRRRR Rl

026260
026262
026266

000004
012706

012737

001000
000031

026274

004737

033314

1§131:
004504

SCOPE

MOV
MOV

#STACK,SP
#31,aFTSTNM

;RESET STACK
;SAVE TEST NUMBER

JSR

PC.,aN#CLDISK

;SET R1-RH(CS1, R2-RH(SZ2
:R3-RHDS1, R&=RHERI
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA
026300
026304
026306
026310

004037
002370
000400
000000

033164

JSR

WRFROM

RO,a#CLAREA

256.
0

;CLEAR 256. WORDS, FROM WRFROM
:STARTING FROM WRFROM

:256. WORDS
FILL WITH O

;*FILL READ INTM BUFFER WITH ALL ONES
026312
026316
026320
026322

004037
003434
000400

033164

JSR

REINTO

RO,a#CLAREA

256.

:STARTING FROM REINTO

:256. WORDS

-1

177777

:CLEAR 256. WORDS, FROM REINTO
sFILL WITH =1

;*NOW THE READ DATA COMMAND WILL BE

JSR

RO.,3#RUN

026324
026330
026332
026333
026334
026336

004037
000000
000
000

026340
026342

000000
014000

0
ECI!FMT22

026344

002346

READAT

026346
026352
026354

004037
002172
004512

JSR

026356

000022

035276

0
.BYTE
.BYTE

=256,

177400

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0
;SECTOR 0
;TRACK 0
;WORD COUNT = 256.

0
0

REINTO

003434

033462

FILLED

:BUS ADDRESS

;STARTING ADDRESS OF DATA
= REINTO
:BUFFER

;DO 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 RHCS1

;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA (CMMAND

RHWC

SAVERE
18.

RO,a#SAVER

;SAVE REGISTERS

sRHWC 1S THE FIRST REGISTER SAVED

;STARTING ADDRES OF WHERE
:THE REGISTERS ARE SAVED
:NUMBER OF

REGISTERS

;SAVED = 18,

SEQ 0166

10:48

L 13
PAGE 168

033374

JSR

PC,afCHECKT

026364
026370

000000

104401

057465

TYPE
HALT

.CPHALT

026372

013777

004506

MOV

@#RPLVEC,QRPVEC

153566

SEQ 0167

(BIT #2)RMR

; CHECKS DVA,RDY,
MOL ,DPR,DRY AND VvV = 1

;AND THAT ALL STATUS BITS ARE = 0
;CANNOT CONTINUE TESTING IF NOT
;STOP TEST

;SET RPO4 VECTOR ADDRESS
;70 "TIMEY' IF P=CLOCK IS PRESENT

;OR TO "TIMEZ2' IF P=CLOCK IS NOT THERE
;"TIME' WILL ONLY SAVE

; CURRENT CYLINDER ADDRESS
;AND LOOK AMEAD REGISTERS

026400
026404

013746
052716

002346
000101

MOV

9#READAT,-(SP)

026410

012677

153564

MOV

(SP)+,aRHCS1

026414
026416

011100
011305

MOV
MOV

aR1,RO
aR3,RS

;70 IN RHCS1 FOR READ DATA
;WITH INTERRUPT ENABLED
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

026420

012777

MOV

#-1,3RHAS

sWRITE

177777

BIS

153570

#GO'1E, (SP)

;GET READY

TO MOVE

COMMAND

;GET READY TO SET GO AND

;ENABLE INTERRUPT

;G0 WITH

INTO RHAS THIS SHOULD

;NOT SET RMR

;*TIME IS NOT IMPORTANT
026426
026430
026432
026434
026436

WAT
RHCST
RDY
1750.
125.

104413
002200
000200
003326
000175

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS! REGISTER
sALLOW 17500 MICRO SECONDS
;RDY MUST SET BETWEEN

;16250 AND 18750 MICRO SECONDS

;*COMPARE CONTENTS OF RMCS1 AND RHDS1 ALREADY SAVED IN
;*RO AND RS IMMEDIATELY AFTER GO IS ISSUED
013746
052716
011637
022600

=00V

WNN =000

25-MAY=79

004737

026440
026444
026450
026454

026456
026460
026464
026470

001405
010037
010137
104021

026472
026476
026502

012746
011637
022605

026504
026506
026512

001405
010537
010337

NO WV

3?2{1052)

026360

OV®NOVNE W

—

s il

-t -l

- —

— —

lh -l w—

PNOPNURNUNININIPNITNONIN
it et b et it b s s = O O

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
8102

MACY1

002346
004101
001124

1 24
0011

001126
004500

O#READAT,-(SP)

;SAVE COMMAND

MOV

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

B1S

CmP

BEQ

MOV
MOV
ERROR

001126
004500
01 0500

MOV

64%:

#1E!DVA!GO,(SP)
(SP)+,RO

64%

;DURING ABOVE OPERATION ONLY
;AND COMMAND SHOULD BE

:BRANCH IF GOOD

SET

IE:DVA:!GO

MOV

:BAD DATA
;FAILING REGISTER RHCS1
;:DURING ABOVE OPERATION ONLY
; COMMAND AND IE!DVA!GO SHOULD BE SET
#MOL ! DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS!

CMP

(SP)+ RS

MOV

BEQ

MOv

MOV

RO,a¥#$BDDAT
R1,3#REGADR
21

;INCLUDE IE!DVA!GO

(SP) ,a#$GDDAT

66%
RS ,a#$BDDAT
R3,a#REGADR

;SAVE FOR PRINTOUT

;DURING ABOVE OPERATION ONLY MOL:DPR:VV
:SHOULD BE SET
;BRANCH IF GOOD
;BAD DATA

;FAILING REGISTER RHDS1

lala

CIZRJJIDO, RPO4L/5/6 FCTINL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

CIRJJIDO, RPO4L/5/6 FCINL CTRLR2
CZRJJD P11
28-MAR-7 9 08:52
8130
8131
8132
8133
8134
8135
8136
8137
8138
8139
8140
8141
8142
8143
8144
8145
8146
8147
8148
8149
8150
8151
8152
8153

026516

MACY1]

30A(1052)
131

104063

25-MAY=79

10:48

ERROR

(BIT W#2)RMR

;:DURING ABOVE OPERATION ONLY
;MOL'!DPR!VV SHOULD BE SET

66%:

026520

M3
PAGE 169

; *NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES
026520
026524
026526

004037
002172
000000

033216

026530
026534
026536

004037
002174
004434

033216

026540
026544
026546

004037
002204
000001

033216

026550
026554
026556

004037
002234

033216

JSR

RO,3#FILLRE

;MOV 0 INTO SAVED RHW(

‘JSR

RO,a#F ILLRE

;MOV REINTO+<256.+2> INTO SAVED RHBA

JSR

RO,a#FILLRE

;MOV 1

JSR
SHCC

RO,a#FILLRE

:MOv O INTO SAVED RHCC
:g:¥ED REGISTER TO CHANGE

RHWC
0

RHBA
REINTO+<256.%2>

RHDST
1

00C000

;SAVED REGISTER TO CHANGE
;DATA

;SAVED REGISTER TO CHANGE
:DATA

INTO SAVED RHDST

; SAVED REGISTER TO CHANGE
;DATA

;*NOW COMPARE REGISTERS BEFORE READ DATA WITH
;*AFTER COMMAND
026560

004037

026564
026566
026570
026572
026574

004512
002254
000022
026576

026576
026600

104033
000207

JSR

034312

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH

;READ DATA CAUSED IMPROPER REGISTER

SAVERE
w(
18.
1%
2%

026602

1%:

ERROR
RTS

;PRESENT VALUE
;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘RHWC'
:18. REGISTERS TO BE COMPARED
;RETURN TO 1$ ON ERROR
;RETURN TO 2% ON NO ERROR

: CHANGE

:GOOD DATA GIVES WHAT SHOULD BE THERE
:RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND

:NOW READ INTO BUFFER WILL BE CHECKED 70 SEE TWAT READ

2%:

026602

026602
026606
026610
026612
026614
026616

004037
002370
003434
000400
026620
026624

026620
026622

000207

104034

Pew

JSR
WRFROM
REINTO

035342

RO,a#COMPAR

256.
3%

‘

6%
3%:

ERROR
RTS

;: COMPARE TWO BLOCKS OF MEMORY
;GO0OD DATA STARTS FROM WRFROM
sTEST DATA STARTS FROM REINTO

:256., WORDS TO BE COMPARED
;RETURN TO 3% ON ERROR
;RETURN TO 4% ON NO ERROR

;READ DATA ERROR AFTER WRITING INO
sRHAS DURING READ

SEQ 0168

CZRJJIDO, RPO&/5/6 FCTNL CTRLR2

CIRJJD.PI1
8186
8187

026624

2B-MAR-79 08:52

MACY11 30A(1052)
131

4%:

25=MAY=79

10:48

N 13
PAGE 170

(BIT #2)RMR

SEQ 0169

8188
8189
8190
8191
8192
8193
8194
8195
8196
8197
8198
8199
8200
8201
8202
8203

MACY11

B 14
30A(1052)
25=MAY=79
10:48 PAGE 171
REGISTER MODIFICATION REFUSED = RHER1
3

(BIT W#2)RMR

SEQ@ 0170

::'"""'Q""""'"""""""""""""t""""""""l'

;*TEST 32

ILLEGAL FUNCTION RHERT1 = (BIT #0,ILF)

THIS WILL CALCULATE

EVERY

ILLEGAL FUNCTION

BETWEEN O AND 77. EACH TIME AN ILLEGAL FUNCTION
1S FORMED IT WILL BE STORED IN ILLEGAL THEN
EXECUTION OF ILLEGAL
WILL BE ATTEMPTED AND RESULTS CHECKED
e

026624
026626
026632

000004
012706
012737

001000
000032

026640

004737

033314

A2 2222222222222
Rl

15132:

SCOPE

#STACK,SP

#32,a¥TSTNM

;SAVE TEST NUMBER

JSR

PC.aNCLDISK

;SET R1-RHCS1, R2-RHCS?2

MOV

004504

;RESET STACK

MOv

;R3-RHDS1,

R&4=-RHER1

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
026644
026650
026652
026656

005737
001402
000137

187

004640
027452

363:_

BEQ
JMP

a#RH70

30%
15133

;RH70 CONTROLLER ?
;SKIP NEXT IF NOT = 1
;1F SO SKIP THIS TEST ==eecccccccccccnn )

;*GENERATE ILLEGAL 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%:

001200

3%:
000100

001200

027452
001200
000002

002364
001200

026754

026754
026754

1%:

005077
005077

033314

53206
53204

arsTMPI
#FUTABL
RO

;GET READY TO MAKE ILLEGAL FUNCTION
;GET POINTER TO BEGINNING OF COMMANDS

ADD
BR
DEC
BNE

#2,aN8THPI
1%
RS
2%

:BRANCH IF NOT LEGAL

BNE

BIT

20%:
19%:

BNE
.
m
JMP
MOV
ADD

#7.,R5
a¥STMP1, (RO)+

;COUNTER (17 GOOD FUNCTIONS)
;1S THIS A LEGAL FUNCTION

;MAKE ANOTHER FUNCTION

;GET READY TO TEST NEW FUNCTION
‘
sNOT LEGAL SO DECREMENT COUNTER
:BRANCH IF 17 NOT DONE
:
#100,a#8TMP1
;ALL BITS UP TO BIT #5 COMPARED?
20%
sBRANCH OUT 1F DONE
N
;BRANCH TO CONTINUE
an’7s
. DONE
ONSTMP1
AN ILLEGL ;AN ILLEGAL FUNCTION IS FOUND
#2,aN8TMP]
;GET READY FOR NEW FUNCTION NEXT TIME

;*ILLEGAL FUNCTION HAS BEEN FOUND
;*1T IS IN "ILLEGL'
#4S ,aNSLPERR
MOV
;ERROR RETURN POINT

001110
4%:

004737

CLR
MOv
MOv
CMP

;*SAVE REGISTERS FOR COMPARISON AFTER GO
JSR

CLR
CLR

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(S2

dRHWC
aRHBA

;GIVE RH=11 INITIALIZE
:SETUP UNIT NUMBER
;CLEAR WORD COUNT
;CLEAR BUS ADDRESS

;R3-RHDS1,

R&=-RHERI

‘.
-

[l o]

CZRJJIDO, RPO4/5/6 FCTNL CTRLR2
P11
CZRJJD.P
28-MAR-79 08:52

8245
8246
8247
8248

C 14

;

30A(1052)
25-MAY=79 10:48 PAGE 172
132
ILLEGAL FUNCTION RHER1 = (BIT #0,ILF)

026770

023727

026776
027000

103014
012737 100000

027006

005037

027376

CLR an12%+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

027402
027412
027422

CLR
CLR
CLR
BR
CMP
BNE

[ T )

8244

MACY11

002364 000050

000064

002364

140000
000204
000102
001200
000100

027354
027412
027422
027376
027402

000066

002364

177672

153054
153050
027354
027412

002370
140000
002164
177774

001200

027402
000100
152776
152774
140000

012737
005037

004037
002172
004512

027354

027412
027422
001000
027402

033462

Cmp

¥ ILLEGL,#50

BHIS

13%
#SC,an11%+12

MOv

13%:

MOV
MOV
MOV
MOv
MOV

17%:

027422
027376

BR
CMP

BNE
MOV
MOV
MOv
MOV
MOV

MOV

_CLR

027402

MOV

18%:

027354

BR
CLR
CLR

MOV

CLR
CLR

027376
14%:

aN12%+16
aN15%+6
aN16%+6

149
¥64 ,aFILLEGL
17%

148
#66,3#1LLEGL
18%

#-70. ,aRHWC

;FUNCTIONS WHICH WILL SET MXF AND TRE
:BRANCH IF ILLEGL IS HIGHER THAN 50
;EXPECTED VALUE OF RHCS1 SHOULD HAVE

:ONLY SC ADDED
;EXPECTED VALUE OF RHCS2 SHOULD HAVE
;NOTHING ADDED
;NO BITS TO BE CLEARED IN RHMCSZ
;RHBA SHOULD BE 0
;CLEAR SAVED RHWC
:BRANCH
;1S FUNCTION 64
:BRANCH IF NOT

:BRANCH
;1S FUNCTION 66
:BRANCH IF NOT

: MOVE 70 INTO RHWC

#WRFROM,aRHBA
;FILL RHBA WITH WRFROM
#SC!TRE,a#11%$+12;SAVED RHCS1
#WURFROM=-<66.%2>,15%+6;RHBA

#=4.,,16%+6

:SAVED RHWC

#MXF'OR,aN#12%+12 ;SAVED RHC(CSZ2
an12%+16
;RHCS2
FIR,a¥12%+16
:RHCS2 SHOULD HMAVE
14%
;BRANCH

aRHWC

IR CLEARED

:CLEAR RHWC

adRHBA

;CLEAR RHBA

#SC!TRE,a¥#118+12;RHCS1

aN15%8+6

:RHBA

aN28+16

;RHCS2

MOv

JSR

RO,@¥SAVER

RHW(

:50 AND HIGHER FUNCTIONS ARE DATA

#SC!TRE ,a#118+12;SAVED RHCS1 SHOULD HAVE SC AND TRE
#204 3815846
;RHBA SHOULD HAVE 204
;RHWC SHOULD HAVE 102
#102,3016%+6
" WMXF!OR,aN#12%+12;RHCS2 SHOULD HAVE MXF AND OR
FIR,a#128416
:RHCS2 SHOULD HAVE IR CLEARED

30168+6
AMXF,3#128412

CLR

SEQ 0171

SHOULD HAVE

SC AND TRE

: RHWC
;RHCS2

:SAVE REGISTERS
;RHWC

1S THE

FIRST

;STARTING ADDRES OF WHERE

SAVERE

;THE REGISTERS ARE SAVED
:NUMBER OF REGISIERS

18.

027240

000C22

027242

004737

033374

JSR

PC,aNCHECKT

027246
027252
027254
027260
027264

104401

057465

TYPE
HALT
MOV

LCPHALT

O¥ILLEGL,-(SP)

;STOP TEST
;GET ILLEGAL FUNCTION

MOV

(SP)+,aR1

;GO TO RHCS! WITH ILLEGAL FUNCTION

027266
027270
027272

000000
013746
052716
0126
104413

002200
00000

002364
000101

BIS

WAT
RHCST
RDY

’

= 18.
;SAVED
.

#GO'IE, (SP)

: CHECKS DVA.RDV.HOL.DPR.DRY AND VvV =

;AND THAT ALL STATUS BITS ARE = 0

:CANNOT CONTINUE TESTING IF NOT
: INCLUDE

IE AND GO

;WAIT FOR RDY BIT TO SET
sWAIT FOR RHCS1 REGISTER

;MAIT FOR RDY BIT

IN RHCS! REGISTER

1 .

lale]

CIZRJJDO, RPO4L/5/6 FCTNL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

8300
8301

027274
027276

MACY11

D 14
30A(1052)
25=MAY=-79 10:48 PAGE 173
132
ILLEGAL FUNCTION RHERY = (BIT #0,ILF)

001614
001613

908.

SEQ@ 0172

;ALLOW 9080 MICRO SECONDS

907.

;RDY MUST SET BETWEEN

;10 AND 18150 MICRO SECONDS

; *CHANGE SAVED REG!STERS TO EXPECTED VALUE
8306
8307

027300
027304

004037
002202

0342064

JSR
RHER1

8309 027306 000001
027310
027312

000001
000001

027314
027320

004037
002¢22

8318
8319
8320

027322
027324
027326
027330
027332

000002
000001
100000
000001
040000

8322

027334

053737

W NN

310
1

2
3
g
6

027342

8329
8330

027342
027346

004037
002200

8332
8333
8334
8335

027350
027352
027354
027356

000001
000001
100000
053737

027364

8340
8341

027364
027370

004037
002176

8343
8344

027372
027374

000002
000001

027402

348

027404

8350
8351
8352

027404
027410
027412

8354

027414

RHDS1

004644

002364

;NEW VALUE OF ATA IS 1
; CHANGE ATA BIT
;NEW VALUE OF ERR IS 1

QFATTENT ,Q#SAVERE+24 ;SET APPROPIATE ‘'ATA' BITS
;FOR WORKING DRIVE IN
;SAVED RHAS LOCATICN

;*RHCST WILL HAVE SC AND TRE ADDED IF

BIS

RO,a#CHREG

: IN RHCS]

RO,3#CHREG

0
lR

J SR

R HBA

;CHANGE BITS IN SAVED REGISTER
: CHANGE RHCS2 REGISTER

;2 BIT/BITS TO BE CHANGED
NEW VALUE OF MXF IS 1
:CHANGE MXF BIT
INEW VALUE OF IR 1S 0

16%:

¥ ILLEGL ,@#SAVERE+6;
INCLUDE ILLEGAL FUNCTION

033216

;CHANGE BITS IN SAVED REGISTER

;CHANGE RHCS1

;*RHCS2 WILL HAVE NOTHING ADDED IF FUNCTION IS LESS THAN 50
J SR
R HCS2

15%:

FUNCTION IS GREATER THAN 50

;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF SC IS 1
; CHANGE SC BIT

000100

; CHANGE ERR BIT

1
1
SC

034204

; CHANGE RHDS1

ERR

RHCS1

004520

;CHANGE BITS IN SAVED REGISTER

;2 BIT/BITS TO BE CHANGED

JSR

034204

001000
000000

004037
002174
000000

RO,a¥CHREG

;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF ILF IS 1
s CHANGE ILF BIT

BIS

004536

; CHANGE RHERT REGISTER
.

1
ATA
1

12%:

8338

027376
027400

JSR

11%:

8327

8345
8346

1
1
ILF

034204

;CHANGE BITS IN SAVED REGISTER

RO,a#CHREG

: CHANGE 1R BIT

RO,a#F ILLRE

;MOV 0 INTO SAVED RHBA
; SAVED REGISTER TO CHANGE

CIZRJJIDO, RPO4/5/6 FCTNL CTRLR2
(ZRJJD. n
28-MAR-79 08:52

28-MAR-79 08:5

CZRJJD.P

027614
027420
027422

004037
002172
000000

MACYT 30951052)

033216

E 14
25-MAY-T79 10:48 PAGE 174
ILLEGAL FUNCTION RHERT = (BIT #0,ILF)
JSR

RHW(

RO,3#FILLRE

sMOV 0 INTO SAVED RHWC

:g:¥io REGISTER TO CHANGE

;*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

034312

RO,a#COMREG

SAVERE
Wi
18.

5%:

026662

6%:
7%:
108:

ERROR

;COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;GOOD DATA SAVED IN 'SAVERE'

;TEST DATA STARTING FROM 'RHW(C'

:18. REGISTERS T0O BE COMPARED
;RETURN TO 5% ON ERROR

5%
6%

106051

000137

JSR

;RETURN TO 6% ON NO ERROR

RTS

JMP

CLAR

;GIVING ILLEGAL FUNCTION CAUSED
; IMPROPER REGISTER CHANGE

‘
;GOOD DATA GIVES WHAT
; SHOULD BE THERE
;RECEIVED DATA GIVES REGISTER
CONTENTS AFTER ILLEGAL
;FUNCTION WA GIVEN
;BRANCH FOR NEXT FUNCTION

SEQ 0173

[l
]

CIRJJIDO,1?PO‘./S/() FCTNL (TRLSZ

CZRJJDO, RPO4/S/6 FCTINL CTRLR2
CIRJJD. P\\
28-MAR-79 08:52

MACY11

8387

8388

;*TEST 33
OPERATION INCOMPLETE = RHER1(BIT #13)0PI
.'
A WRITE HEADER AND DATA COMMAND IS GIVEN
M
CYLINDER O SECTOR ' TRACK O KEYS O DATA 177777
:®
WORDCOUNT 260
i
o
AFTER GO 1S GIVEN THEN THREE INDEX PULSES ARE
.'
GIVEN. THIS SHOULD BRING OPI HIGH

8396

e
Ry

8397
8398
gzgg

027452
027454
027460

000004
012706
012737

001000
000033

8401
8402
8403
8404
8405
8406
8407
8408
8409
8410
8411
8412

027466

004737

033314

027472
027500
027504

012777
012700
010077

177374
002370
152464

027510

012710

027514
027520
027522

012720
005020
005020
012705

(000400

027530

012720

177777

027540

012777

000001

8413
8414
8415

gk}g

027524

15133:

SCOPE
MOV
MOV

#STACK,SP
#53,3/TSTNM

;RESET STACK
;sSAVE TEST NUMBER

JSR

PC,a#CLDISK

;SET R1=-RHCS1, R2-RH(S2
;R3-RHDS1, R4-RHERI
:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*THESE
MOV
MOV
MOV

ARE REGULAR SETUPS

010000

MOV

#EMT22,(RO);

000001

MOV
(LR
CLR--~

#1,(R0O)+
(RO)+
(RO)+

004504

152472

MoV

#-260.,aRHWC
#WRFROM,RO
RO,3RHBA

#256.,R5

:256 DATA WORDS 4 HEACER WORDS
;THESE TWO INSTRUCTIONS GETS
:ADDR. OF WRFROM BUFFER INTO RO AND
;BUS ADDRESS REGISTER
;FORMAT=16 BIT WORDS
;CYLINDER=0

;TRACK=0, SECTOR=1, KEYS=0
;KEY1=0
;KEY2=0

;COUNTER

8418

8419

8420
8421

027534
027536

8423

027546

8422

B4L24

005305
001374

004737

033374

8425
8426
8427

027552
027556
027560

104401
000000
013711

B429
8430
gag;

027564
027570
027576

005037
012777
005077

004632
010000
152410

027602
027606
027610

004037
002172
004512

033462

027612

000023

8428

8433

8434
8435
Bu36
8437
8438

8439

1%:
152436

057465

002344

152412

—

SEQ 0174

R
R
Y

8389
8390
8391
8392
8393
8394
8395

;*SETUP DATA, WRITE HEADER & DATA, AND FORMAT OF THE WRITE

MOV

#-1,(R0O)+

sMOVE ALL ONES FOR DATA

MOV

#1,3RHDST

;BRANCH IF DATA NOT COMPLETE
;TRACK=0 SECTOR=1
;CHECKS DVA,RDY,MOL ,DPR,DRY AND vV

DEC
BNE

JSR

RS
1%

PC,a#CHECKT

,CPHALT

:AND THAT ALL STATUS BITS ARE

= 0

TYPE
HALT
MOV

9#WRIFOR,aR1

;s CANNOT CONTINUE TESTING IF NOT
:STOP TEST
;GET READY FOR WRITE HEADER AND

CLR
MOV
CLR

ONERFLGS
#EMT22 ,aRHOF
ORHCA

;CLEAR ERROR FLAG
;FORMAT BIT=1 (16 BIT WORDS)
sCYLINDER =0

;DATA WITH 62 IN RHCSI

:*SAVE REGISTERS FOR COMPARISON AFTER READ

JSR
RHWC
SAVERE

19,

RO,a#SAVER

;SAVE REGISTERS
;RHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE
sTHE REGISTERS ARE SAVED
:NUMBER OF REGISTERS
;SAVED = 19,

[Tl

14
10:48
PAGE 175
30A(1052)
25-MAY-79
13
ILLEGAL FUNCTION RHER1 = (BIT #0,ILF)
F

MACYT1

6 14
30A(1052)
25-MAY-79
10:48 PAGE 176
133
OPERATION INCOMPLETE - RHER1(BIT #13)0PI

8440
8441
8442

;:*GO TO WRITE HEADER AND DATA
;*BUT BEFORE GO, ONE INDEX PULSE IS GIVEN

;*10 CLEAR OUT THE SECTOR CLOCK COUNTER IN THE RHM11
:*SO THAT NO SECTOR PULSES COME DURING THIS TEST

8443
8444

00
10
10
10

027634
027642

@#RHMR ,RO
#DMD ,aR0

;NOW RO HAS MAINTENANCE REG. ADDR.
;SET DIAGNOSTIC MODE

BIS
RUNWAT: MOV

#GO,aRHCST

;1SSUE THE 'GO' BIT TO THE RH11
;LOAD 'RUN' LINE DELAY COUNTER

000004
000004

000001
000113
004642

027650
027654

MOV
MOV

002220
000001

BIS
BIC

152336
004642

1%:

DEC

BNE
;t

1 SSUE

FMINX, 3RO
#MINX,3R0

#75.,3#RUNCTR

d¥#RUNCTR

THE

10
10

000004
000004

Bl S
Bl C

027666
027672

10
10

000004
000004

:*SECOND INDEX PULSE
BIS
#MINX,3R0
BIC
FMINX 3RO

027676
027702

0
0

000004
000004

ngRD
C

:SET INDEX
;CLEAR INDEX THIS GIVES
;ONE INDEX PULSE

;= APPROX 450 US ON 11/50 CPU WITH CORE

;AND PROVIDES FOR TIME TO FILL THE SILO
:COUNT DOWN ONCE
;CONTINUE UNTIL = 0

FIRST DIAGNOSTIC

#MINX, 3RO
#MINX,aR0

027656
027662

INDEX PULSE
#MINX,aR0
lHlNX,aRO

INDEX PULSE

;SET INDEX PULSE
;RESET

INDEX

;SET INDEX
;CLEAR INDEX
;SET INDEX
;CLEAR INDEX

;: *CHANGE 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

RHCS1T
) —-\)

8448
8449
8450
8451
8452
8453
8454
8455
8456
8457
8458
8459
8460
8461
8462
8463
8464
8465
8466
8467
8468
8469
8470
8471
8472
8473
8474
8475
8476
8477
8478
8479
8480
8481
8482
8483
8484
8485
8486
8487
8488
8489
8490
8491
8492
8493
8494
8495

027614
027620
027624
027630

RO,3#CHREG

: CHANGE

JSR

RHDS1

RO,3#CHREG

;NEW VALUE OF ATA
; CHANGE ATA BIT

1
ATA
1

100000

JSR

SHDST

;NEW VALUE OF ERR ]S 1

: CHANGE ERR BIT

ERR

033216

; CHANGE B1TS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

;2 BIT/BITS TO BE CHANGED

000001
040000

SC BIT

;NEW VALUE OF TRE IS 1
: CHANGE TRE BIT

TRE

034204

: CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS1 REGISTER
;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF SC IS 1

—

8445

8446
8447

SEQ 0175

RO,a#F ILLRE

MOV 2 INTO SAVED RMDST
:8A¥ED REGISTER TO CHANGE
;DA

lalal

CIRJJIDO, RPO4/5/6 FCINL CTRLR2
CZRJJD.P1
28-MAR-79 08:52

8496
8497
8498
8499
8500
8501

027756
027762

004037
002202

027764
027766
027770

000001
000001
020000

027772

053737

004644

030000
030004

004037
002220

034204

030006
030010
030012

000001
000001
000001

030014
030022
030030
030034
030040
030046

MACY11

30A(1052)
25=-MAY-79 10:48 PAGE 177
133
OPERATION INCOMPLETE - RHER1(BIT #13)0P]

034204

JSR

RHER1

RO,3#CHREG

1
1
OP1

004536

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHER1 REGISTER
;1

BIT/BITS TO BE

BIS

SNFATTENT ,@#SAVERE+24 ;SET APPROPIATE ‘'ATA' BITS
;FOR WORKING DRIVE IN
;SAVED RHAS LOCATION

JSR

RO,a#CHREG

RHMR

; CHANGE BITS IN SAVED REGISTER

; CHANGE RHMR REGISTER
;1

BIT/BITS

MOV

MOV
MOV

BIC
BIC
BIS

004516

TO BE

CHANGED

;NEW VALUE OF DMD IS 1
; CHANGE DMD BIT

:*RHWC,RHBA AND OR AND IR BITS OF

004512
004514

CHANGED

;NEW VALUE OF OPI IS 1
; CHANGE OP] BIT

1
1
DMD

017737
017737
017746
042716
042737
052637

SEQ 0176

dRHWC ,a#SAVERE

RHCS2 WILL NOT BE

CHECKED

; SAVED RHW(C

adRHBA ,@#SAVERE+2;SAVED RHBA
aRHCS2,=(SP)
;GET RH(S2

#*C<IR'OR>,(SP) ;GET "'IR' & 'OR"' STATES
#IR!OR,9#SAVERE+4;CLEAR "IR" & 'OR' BITS
(SP)+ ,a#SAVERE+4;SET 'OR' & "IR' AS REQUIRED

:*COMPARE REGISTERS BEFORE WRITE WITH RESULTS AFTER WRITE
8528
8529

8533
8535
8536
8539
8540
8541
8542
8543

030052

004037

030056
030060
030062
030064
030066

004512
002254
000021
030070
030074

030070
030072

104071

SAVERE
wC

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘RuuWC'

2%
3%

;RETURN TO 2% ON ERROR
;RETURN TO 3% ON NO ERROR

JSR

034312

RO,3#COMREG

2%:

000207

ERROR
RTS

:17. REGISTERS TO BE

71
PC

;FORCING OP] CAUSED
: IMPROPER REGISTER CHANGE

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

03007«

004737

033314

3%:

JSR

PC,a#CLDISK

COMPARED

INDEX PULSES WERE

;CLEAR THE 'GO' BIT

ISSUED

CZRJJDO, RPO4/5/6 FCTNL CTRLR2
CZRJJID.PI1Y
28-MAR-79 08:52

H 14

MACY11

8544

BS54S

R
R R
s

gg:?

;*TEST

8548
8549
8550
8551
8552
8553
8554
gggg

:*
:®
s*
:
:*
i
:®
3

46 CONSECUTIVE SECTORS WILL BE FORMATTED
STARTING FROM CYLINDER O TRACK O SECTOR 21.
FORMATTING WILL BE DONE BY A WRITE HEADER AND
DATA COMMAND FOR & WORDS, ONE SECTOR
AT A TIME.

8557

8558
8559
ggg?

030100
030102
030106

000004
012706
012737

001000
000034

8562
8563
8564
8565
8566
8567
gggg

030114

004737

033314

030120
030126
030134

012737
012737
012737

000025
000025
000056

8570
gg;;

030142

8573
8574
8575
8576
8577
8578
gggg

030142
030146
030150
030152
030154
030156
030160

8581

1S134:
004504

030154
030170
004654
1%:

004037
002370
000004
010000
000025
000000
000000

033140

SCOPE
MOV
MoV

#STACK,SP
#34 9N TSTNM

;RESET STACK
;SAVE TEST NUMBER

JSR

PC,a#CLDISK

MoV
MOV
MOV

#21.,3018+12
#21.,382%+6
#L6. ,a¥THP]

;SET R1-RH(CS1, R2-RH(S2
;R3-RHDS1, R&4-RHER1
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
;SET UP TO START FROM
;SECTOR 21.
;646 SECTORS 10 COVER 3 TRA(KS

;*FILL WRITE FROM BUFFER WITH THE HEADER

030162

8584
8585
8586

030162
030166
030170

004037
000000
025

030174

002370

WRFROM

030176
030200

000000
010000

0
FM122

030202

002344

WRIFOR

8587
8588

8589
8590
8591
8592

8593
8594
8595
8596
8597

8598
8599

030171
030172

000
177774

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

;*NOW THE WRITE HEADER AND DATA COMMAND WILL BRE SETUP

gggg

035276

SECTOR FORMATTING

AFTER EACH SECTOR IS WRITTEN, °'SC' wiLL BE CHECKED
TO INSURE THAT THERE WERE NO ERRORS

JSR
WRFROM
o
10000
el
0
0
2%:

CONSECUTIVE

JSR
0
JSHVIE

.BYTE
-0-4

RO,a#RUN

V.
0

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0
;SECTOR 21.

;TRACK 0
;WORD COUNT (DATA) = 0 +

;4 HEADER WORDS
:BUS ADDRESS
;STARTING ADDRESS OF DATA
;BUFFER = WRFROM

;D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 B1TS PER WORD FORMAT
;D0 NOT INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A WRIFOR

;WRITE HEADER AND DATA WITH 62 IN RH(S!

SEQ 0177

CZRJJDO, RPO4/S/6 FCINL CTRLR2
2B-MAR-79 08:52

(ZRJJD.PI1

1 14
30A(1052)
25-MAY-79
10:48 PAGE 178
133
OPERATION INCOMPLETE - RWER1(BIT #13)0PI

CZRJJIDO, RPO4/5/6 FCTINL CTRLR2
CZRJJD. P11
28-MAR-79 08:52

033374

JSR

PC,aNCHECKT

030210
030214

104401
000000

057465

TYPE
HALT

,CPHALT

030216

013777

004506

MCv

@¥RP4LVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS
;70 "TIMET1' IF P=CLOCK IS PRESENT
;OR TO 'TIME2' IF P=-CLOCK IS NOT THERE
;"TIME' WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS

151742

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

;CANNOT CONTINUE
;STOP TEST

TESTING

NOT

;AND LOOK AHEAD REGISTERS

002344
000101

MOV

9#WRIFGR,-(SP)

;GET READY

030234

012677

151740

MOV

(SP)+ ,aRHCST

;60 WITH

BIS

MOV
MOv

N —

030240
030242

—_—

013746
052716

—_—

030224
030230

#GO!IE, (SP)

aR1,R0
aR3,R5

TO MOVE

COMMAND

;GET READY TO SET GO AND
;ENABLE INTERRUPT

;62 IN RHUS1 FOR WRITE HEADER AND DATA

;WITH INTERRUPT ENABLED
:SAVE RHCS! DURING ABOVE OPERATION

;SAVE RHDS1

DURING ABOVE OPERATION

;*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR=760 MICRO SEC
030244
030246
030250
030252
030254

104413
002200
000200

WAT

;WAIT

001515

RDY
1695.

845.

;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 16950 MICRO SECONDS

RHCS1

003237

FOR RDY BIT

TO SET

;WAIT FOR RHCS1 REGISTER

;RDY MUST SET BETWEEN
;8500 AND 25400 MICRO SECONDS

;*NOW ONE MORE SECTOR HAS BEEN WRITTEN
;*'SC" WILL BE CHECKED TO MAKE SURE
:*NO ERRORS OCCURED
030256
0302¢4
030272
030274
030300

017737
032737
001403
004737
104072

151716
100000

MOV
BIT

002262
002262

BEQ
JSR

035236

ERROR

aRHCST1 ,an(s1
#SC,anCs
3%
PC,a#PUTREG
72

;GET RHCS!
;18 °SC° SEV ?
;BRANCH IF '"SPECIAL CONDITION'' NOT SET
;READ & SAVE ALL RH11 R RPO4 REGIS TERS
;THERE WAS AN UNDEF INED ERROR AFTER

;A WRITE HEADER AND DATA

:*A SECTOR HAS BEEN FORMATTED NOW,
;*THE HARDWARE WiLL BE

CLEARED AND

;*CHANGES WILL BE MADE TO FORMAT NEXT SECTOR.

3%:

030302
030302

004737

033314

JOR

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(S2
;R3-RHDS1,

R&=-RHERI

OO0

:GIVE RH=11 INITIALIZE

LN NN

8647
8648
8649
8650
8651
8652
8653
8654
8655

SEQ 0178

004737

NN
N

8646

J 14
30A(1052)
25-MAY=79
10:48 PAGE 179
134
CONSECUTIVE SECTOR FORMATIING

030204

j=lele

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
8626
8627
8628
8629
8630
8631
8632
8633
8634
8635
8636
8637
8638
8639
8640
8641
8642
8643
8644
8645

MACY11

030154

MOV

2;1‘012.R5

;SETUP UNIT NUMBER
GE} SECTOR TRACK WORD

000026

(MPB

#22..,R5

;1S 17 22 SECTORS (WHOLE TRACK DONE )

INC

CIZRJJIDO, RPO&L/5/6 FLTINL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52
8656
8657
8658
8659
8660
8661
8662
8663
8664
8665
8666
8667
8668
8669

MACY11

30A(1052)
25=MAY=-79
10:48 PAGE 180
134
CONSECUTIVE SECTOR FORMATIING

030320
030322
030326
030332

00140%
010537
010537
000410

030154
030170

030334
030340
030344
030350

105037
105237
105037
105237

030154
030155
030170
030171

4%:

030354
030360

005337
001270

004654

5%:

030362

K 14

BEQ

MOV
MOV

6%:

SEQ 0179

3]
RS,a#18+12

;YES...DO NEXT TRA(CK
;NO...RESTORE SECTOR

;CHECK FOR 46 SECTORS COMPLETED

R5.a#2%+6

TRACK FOR DATA

;RESTORE SECTOR TRACK FOR "RUN'" ROUTINE

(LRB
INCB
(LRB
INCB

aris+1?
aris+13
anls+6
an2se7

;SET SECTOR
;INCR TRACK
;SET SECTOR
; INCR TRACK

= 0 FOR DATA WRITTEN
FOR DATA WRITTEN

DEC
BNE

af TMP1
1%

;ARE 46 SECTORS DONE ?
;CONTINUE FORMATTING IF

= 0 FOR ''RUN'' ROUTINE
FOR THE "'RUN'' ROUTINE
NOT

;G0 ON TO NEXT TEST IF SO

MACY11

8670
8671
8672
8673
8674
8675
8676
8677
8678
8679
8680
8681
8682
8683
8684
8685

;*TEST 35

SET WHEN THREE NORMAL

SECTORS WILL BE FORMATTED

STARTING FROM CYLINDER O TRACK O SECTOR 21.

FORMATTING WILL BE DONE BY A WRITE HEADER AND
R?T: $?=2AND FOR & WORDS, ONE SECTOR

FIRST 46 CONSECUTIVE

DOES NOT

001000
000035

030376

004737

033314

030402
030410
030416

000025
000025
000056

NN~

000004
012706
012737

N NN
NNN

R
R

030362
030364
030370

030424

030424
030430
030432
030434
030436
030440
030442

030456

030436
030452
004654

(260.x22X2+4260+260) WITH BUS

INHIBIT

CHECKED.

2222322222222 2222222220222220200
202222 iRl dd

SCOPE
MOV

#STACK,SP

JSR

PC.a#CLDISK

MOv
MOv
MOV

#21, ,aN2%+6
¥46. a0 THP]

#35,3#TSTNM

#21.,301%8+12

;RESET

STACK

;SAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(S?2
;R3-RHDS1, R&=-RHERI]
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
;SET UP TO START FROM

;SECTOR 21.
;46 SECTORS TO COVER 3 TRACKS

;*FILL WRITE FROM BUFFER WITH HEADER
RO,a#FLHEAD

“

:SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED
:NUMBER OF

10000
21.
0
0

035276

SET.

THE END ALL REGISTERS WILL BE

JSR
WRFROM

2%:

004037
000000
025
000

MOv

004504

033140

030444

030444
030450
030452
030453
030454

11960 WORDS

ADDRESS

15135:

1%:

004037
002370
000004
010000
000025
000000
000000

THEN A READ HEADER AND DATA WILL BE DONE

FOR CYLINDER O TRACK O SECTOR 21 FOR

%
I

THAT OPl1

INDEX PULSES ARE ENCOUNTERED IN A READ COMMAND

OPERATION INCOMPLETE - RHER1 (BIT #13)0PI

THIS WILL TEST

rororN

8693
8694
8695
8696
8697
8698
8699
8700
8701
8702
8703
8704
8705
8706
8707
8708
8709
8710
8711
8712
871%
8714
8715
8716
8717
8718
8719
8720
8721
8722
8723
8724
8725

SEQ 0180

':"""""""""""l""'""""""'.""""."""'.""

oOoOo

8686
8687
8688
8689
869C
8691
8692

L 14
30A(1052)
25-MAY-79
10:48 PAGE 181
134
CONSECUTIVE SECTOR FORMATIING

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

177774

0
BYTE
.BYTE
-0-4

002370

WRFROM

RO,3#RUN

21,
0

;SETUP TO RUN FOR DATA COMMAND

;CYLINDER 0
;SECTOR 21,
;TRACK 0
;WORD COUNT (DATA) = 0 ¢
;4 HEADER WORDS

;BUS ADDRESS

;STARTING ADDRESS OF DATA

CZRJJDO, RPO4L/5/6 FCTNL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

CZRJJDO, RPOL/5/6 FCTNL CTRLR2
CZRJIID.PIY
28-MAR-79 08:5°
8726
8727
8728

MACY11

M4
30A(1052)
25-MAY-79
10:48 PAGE 182
135
OPERATION INCOMPLETE - RMER1 (BIT #13)0PI
;BUFFER = WRFROM
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;D0 NOT INMIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A WRIFOR

030460
030462

000000
010000

0
FM122

8730
8731
8732

030464

002344

WRIFOR

8735

030466

004737

033374

JSR

PC,aNCHECKT

030472
030476

104401
000000

057465

TYPE
HALT

.CPHALT

030500

013777

004506

MOV

O#RFLVEC,IRPVEC ;SET RPO4 VECTOR ADDRESS
;70 'TIME1" IF P=CLOCK IS PRESENT

8729

873
8736
8737
g;gg

8740
8741

151460

8742
8743
8744

;WRITE HEADER AND DATA WITH 62 IN RHCSI

87¢7
8752
8753
8754
g;;z

030506
030512

013746
052716

002344
000101

MOV
BIS

O#WRIFOR,-(SP)
#GO!1E, (SP)

030516

012677 - 151456

MOV

(SP)+ ,aRH(S1

030522
030524

011100
011305

MOV
MOv

aR1,RO
aR3,R5

030526
030530
030532
030534
030536

104413
002200
000200
003237

wil
RHCS
RDY
1695.
845.

001515

8772
8773
8774
8;;5

8776

8777

8778

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
;SAVE RHCS1 DURING ABOVE OPERATION
:SAVE RHDS1 DURING ABOVE OPERATION

:*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR=760 MICRO SEC

8766
8767
g;bg

8770
8771

;AND THAT ALL STATUS BITS ARE = 0
;CANNOT CONTINUE TESTING IF NOT
;STOP TEST

;AND LOOK AHEAD REGISTERS

g;g;
8759
8760
8761
8762
8763
g;bg

; CHECKS DVA,RDY,MOL ,DPR,DRY AND VvV = 1

;OR TO 'TIME2' IF P=-CLOCK IS NOT THERE
;"TIME' WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS

8745

8748
8749
8750
8751

SEQ 0181

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS!1 REGISTER
;ALLOW 16950 MICRO SECONDS
;RDY MUST SET BETWEEN
;8500 AND 25400 MICRO SECONDS

;*NOW ONE MORE SECTOR HAS BEEN WRITTEN
;*'SC" wiLL BE CHECKED TO MAKE SURE
:*NO ERRORS OCCURED

030540
030546

030554
030556
030562

030564

017737
032737

151434
100000

001405
004737
104072

035236

000137

031020

002262
002262

MOV
B17

BEQ
JSR
ERROR

JMP

SRHCST,a#(sT
#SC,anCs1

3%
PC,a#PUTREG
72

15136

;GET RHCST
;18 °SL° S8Y 1

;BRANCH 1F '"SPECIAL CONDITION' NOT SET
;READ & SAVE ALL RH11 R RPO& REGISTERS
;:THERE WAS AN UNDEF INED ERROR AFTER
;A WRITE HEADER AND DATA

THIS IS A SETUP ERROR AND ‘'OP1' TEST CAN'T (ONT]

16O ON TC NEXT TEST

;*ONE SECTOR HAS BEEN FORMATTED NOW,
;*THE HARDWARE WiLL BE CLEARED AND

CIRJJIDO, RPO&L/5/6 FCTNL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52
8782
8783
8784
8785
8786
8787
8788
8789
8790

8803
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

B88%1
8832
8833
8834
8835
8836
8837

MACY11

N 14
25-MAY-79
10:48
PAGE 183
30A (1052)
13
OPERATION INCOMPLETE - RHER1 (BIT #13)0PI

;*CHANGES WILL BE MADE TO FORMAT NEXT SECTOR.
3%:

030570
030570

004737

033314

JSR

030574
030600
030602
030606
030610
030614
030620

013705
005205

030622
030626
030632
030636

105037
105237
105037
105237

030436
030437
030452
030453

A ¥

030642
030646

005337

004654

5%:

122705

001405
010537
010537
000410

001266

030436

000026

MOV
INC

aN18+412
RS
RS

MOV
MOV

RS.an1%+12
RS.,an2%+6

(MPB
BEQ

030436
030452

PC.a#CLDISY

#22..R5
3]

;SET R1-RHCS1, R2-RH(S2
;R3-RHDS1, R&=RHER1

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
:GE{ SECTOR TRACK WORD
4

;1S 1T 22 (WHOLE TRACK) ?
;YES...DO NEXT TRACK
;NO...RESTORE SECTOR TRACK FOR DATA WRITTEN
;RESTORE SECTOR TRACK FOR ''RUN'" ROUTINE

;CHECK FOR 46 SECTORS COMPLETED

CLRB
INCB
CLRB
INCB

an1s+12
ar1s+13
aN2%+6
aN2s+7

;SET SECTOR = 0 FOR DATA WRITTEN

DEC
BNE

CLALLA
1%

;ARE 46 SECTORS DONE ?
;CONTINUE IF NOT

;INCR TRACK FOR THE ''RUN'' ROUTINE

;SET SECTOR = 0 FOR DATA WRITTEN

; INCR TRACK FOR THE "'RUN'' ROUTINE

;*NOW 46 SECTORS HAVE BEEN FORMATTED

;*READ HEADER AND DATA FOR 46 SECTORS=11960 WORDS
;*WITH BUS ADDRESS INHIBITED

030650

004737

033314

JSR

PC,aNCLDISK

;SET R1-RHCS1, R2-RH(S2
;R3-RHDS1,

R&4=RHERI

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*FILL READ HEADER AND DATA COMMAND
6SR

RO,3#RUN

:SETUP TO RUN FOR DATA COMMAND

LBYTE
.BYTE

21,
0

:TRACK 0

030654
030660
030662
030663
030664

004037
000000
025
000

150510

=11956.-4

030666

003434

REINTO

030670
030672

000010
014000

BAl
FMT22ECI

030674

002350

REFOR

030676

004737

035276

033374

JSR

;CYLINDER 0

:SECTOR 21.

:WORD COUNT (DATA) = 11954, +

;4 HEADER WORDS
;BUS ADDRESS

;STARTING ADDRESS OF DATA
;BUFFER = REINTO
sINHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
T
;INHIBI ECC CORRECTION
;DO NOT INHMIBIT HEADER COMPARE
:GET READY TO DO A REFOR

:READ HEADER AND DATA WITH 72 IN RN(S!

PC,a#CHECKT

: CHECKS DVA,RDY MOL,DPR,DRY AND vV = !

SEQ 0182

8838
8839
8840
8841
8842
8843

030702
030706
030710

104401
000000

013777

CIZRJJIDO, RPO4/5/6 FCTNL CTRLR
CZRJJID.PIY
28-MAR-79 08:52

MACY11

B 15

30A(1052)
25-MAY=79
10:48 PAGE 184
135
OPERATION INCOMPLETE - RHER1 (BIT #13)0PI

057465
004506

T(PE
HALT
MOv

151250

»CPHALT

;AND THAT ALL STATUS BITS ARE = 0

;CANNOT CONTINUE TESTING IF NOT
;STOP TEST
@#RPLVEC,aRPVEC ;SET RPO4 VECTOR ADDRESS
;70 "TIME1" IF P=CLOCK IS PRESENT

;OR T0O "TIMEZ2' IF P=CLOCK IS NOT THERE
;'TIME' WILL ONLY SAVE
;CURRENT CYLINDER ADDRESS

8844
8845
8846

;AND LOOK AHEAD REGISTERS

002350
000101

MOv

d#REFOR,=(SP)

030726

012677

151246

MOv

(SP)+ ,aRHCS]

MOV
MOV

aR1,R0
aR3,R5

BIS

N —

—

030732
030734

—a

013746
052716

—_—

030716
030722

#GO'IE, (SP)

;GET READY

TO MOVE

COMMAND

;GET READY TO SET GO AND

;ENABLE INTERRUPT
;60 WITH
;72 IN RHCS1

FOR READ DATA

;WITH INTERRUPT ENABLED
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

;*TIME IS NOT IMPORTANT
030736
030740
030742
030744

030746

104413

002200
000200

WAT
RHCS1

;WAIT
;WAIT

41680.

;RDY MUST

RDY
41680.

121320
121320

FOR RDY BIT TO SET
FOR RHCS1 REGISTER

;WAIT FOR RDY BIT. IN RHCS1 REGISTER
;ALLOW 416800 MICRO SECONDS
SET BETWEEN

;00 AND 178240 MICRO SECONDS

:*NOW THAT ALL 11960 WORDS HAVE BEEN READ
-

;*'OP1" WILL BE CHECKED TO BE NOT SET
030750
030756
030764
030766
030772

017737
032737
001403
004737
104074

151226
020000

MOV

002264
002264

Bl
BEQ
JSR
ERROR

035236

aRHER1,a#ERT

* #OP] ,QNER]
6%
PC,a¥#PUTREG
74

;GET RHER1

;1S ‘OP)° SET 7
;CHECK *"SC' IF NOT
;READ & SAVE ALL RH11 & RPO4 REGISTERS
:
;READ HEADER AND DATA
PULSES
INDEX
;OVER 3
;CAUSED 'OPI' TO SET

;*'SC" wiLL BE CHECKED

o ro

030774
031002
031010
oo

8847
8848
8849
8850
8851
8852
8853
8854
8855
8856
8857
8858
8859
8860
8861
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

SEQ 0183

031020

017737
032737
001403
004737
104072

151200
100000

002262
002262

6%:

035236

7%:

MOV

BIT
BEQ
JSR
ERROR

RHCST,aNCS]

#SC,anCsl
7%
PC,a#PUTREG
72

;GET RHCSI
18 'S WY ¢
;CONTINUE TESTING IF NOT
;READ & SAVE ALL RH11 & RPO4& REGISTERS
;READ HEADER AND DATA
;FOR 11960 WORDS, THAT 1S OVER THREE
; INDEX PULSES, CAUSED AN UNDEFINED ERROR

;CONTINUE WITH THE NEXT TEST

CIR;JID0, RPO&4/5/6 FCTNL CTRLR2

CIRJJD. P11

28-MAR-79 08:52

MACY11

R889
£890

30A(1052)

135

25-MAY-79

10:48

c15

PAGE 185

OPERATION INCOMPLETE = RHER1 (BIT #13)0PI

8891

8892
8893

'TEST 36
HEAD SELECTION TEST ERR & TRE
.'
THIS TESTS HEAD SELECTION LOGIC ONLY. A WRITE HEADER AND
o¥
DATA COMMAND IS GIVEN TO EACH TRACK FROM 0 TO 18 ON
o
CYLINDER O, SECTOR 0.
Ay
THE DATA ON EACH SECTOR 1S UNIQUE. THE LEAST SIGNIFICANT
o
S BITS GIVE SECTOR THE NEXT LEAST SIGNIFICANT 5 BITS

8894

8895
8896

8897

gggg

gggz

gggg
031020
031022
031026

000004
012706
012737

001000
000036

8914
8915
8916
gg};

031034

004737

8920
8921
ggg%

031040
031044
031050

gg%g

031054

BETWEEN THE WRITE AND READ ONLY "ERR'' AND '‘TRE'' ARE CHECKED

ot
M

ON AN ERROR IN THE READ HEADER AND DATA LOOPING WILL BE

1S7136:

ONLY ON THE ERROR SECTOR READ
R

PR AR

R R RN

RN RN A

SCOPE
MOV
MOV

#STACK,SP
#36,a#TSTNM

sRESET STACK
;SAVE TEST NUMBER

033314

JSR.

PC,a¥#CLDISK

;SET R1-RHCS1, R2-RH(CS2
:R3-RHDS1, R&-RHER1
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

005037
005037
005037

031146
031164
031174

CLR
CLR
CLR

ar1s+1?2
an2%$+10
aN3s+6

;START WITH SECTOR/TRACK = 0
:START WITH DATA = 0
;START WITH O FOR COMMAND

012737

000023

MOV

#19.,a#8TMP]

;19 TRACKS TO BE WRITTEN

004504

a sl

THEN READ HEADER AND DATA IS DONE FOR THE ABOVE AND DATA
CHECKED

8910
8911
gg}%

;e
:®
:®

8909

GIVE TRACK THE NEXT 6 BITS GIVE CYLINDER

8905
8906

ot
X

8900
8901
8902

8919

:*THE FOLLOWING CLEARS ARE TO INITIALIZE TEST FROM CYLINDER 0

001200

gg%g

:*THIS GETS THE HEADS TO CYLINDER 0

8928
8929
8930
ggg;

031062

004737

033374

JSR

PC,a¥CHECKT

031066
031072

104401
000000

057465

TYPE
HALT

,CPHALT

8933
8934
8935
8936
8937
8938

031074

013777

004506

MOV

d¥#RP4LVEC,aRPVEC ;SET RPO4 VECTOR ADDRESS
.
;70 'TIMET" IF P-CLOCK IS PRESENT
;OR TO 'TIMEZ2' IF P=-CLOCK IS NOT THERE
;'"TIME' WILL ONLY SAVE
. sCURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

8941
8942
8943
8944

031102
031106

013746
052716

002326
000101

MOV
BIS

O#RECALI,=(SP)
#GO!1E, (SP)

031112

012677

151062

MoV

(SP)+,aRHCST

8939
8940

151064

:CHECKS DVA,RDY,MOL,DPR,DRY AND vV = 1
:AND THAT ALL STATUS BITS ARE = 0
sCANNOT CONTINUE TESTING IF NOT
;STOP TEST

;GET READY TO MOVE COMMAND
sGET READY TO SET GO AND
JENABLE INTERRUPT
;60 WITH

SEQ 0184

CZRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRJID.P1N
28-MAR-79 08:52
8945
8946
8947
8948
8949
8950
8951
8952
8953
8954
8955
8956
8957
8958
8959
8960
8961
8962
8963
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

MACY11

D 15
10:48
PAGE 186
30A(1052)
25-MAY-T79
HEAD SELECTION TEST ERR & TRE
136

SEQ 0185

;6 IN RHCS1 FOR RECALIBRATE

;WITH

106413

031116
031120
031122
031124
031126

002222
000200
060650
060650

031130

004737

;WAIT FOR DRY BIT TO SET
;WAIT FOR RHDS1 REGISTER
;WAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 250000 MICRO SECONDS
;DRY MUST SET BETWEEN
;00 AND 500000 MICRO SECONDS

WAT

RHDS1
DRY

25000.
25000.

033314

JSR

INTERRUPT ENABLED

PC,a#CLDISK

:SET R1=-RHCST, R2=RH(S2
:R3=-RHDS1, R4=RHER1

;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

10000

;*FILL WRITE FROM BUFFER WITH DATA

<0.+2000>'<0.+40>'0

031166

004037

031200

002370

WRFROM

000000
010000

0
FM122

031206

035276

8SR

RO,a#RUN

0
.BYTE
.BYTE
0
=256.-4

002344

;CLEAR 256. WORDS, FROM WRFROM+10
;STARTING FROM WRFROM+10
:256. WORDS
sFILL WITH <0.#2000>!<0.+40>!0

;*THE WRITE HEADER AND DATA COMMAND WILL BE FILLED

031166
031172
031174
031175
031176

031202
031204

;FOURTH DATA WORD

RO,a#CLAREA
JSR
WRFROM+10
256.

3%:

DATA WORD

;SECOND DATA WORD
:THIRD DATA WORD

0
0

033164

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

<0+400>'0

2%:

004037
002400
000400
000000

RO,a#FLHEAD

031154
031154
031160
031162
031164

;*FILL WRITE FROM BUFFER WITH HEADER

WRIFOR

;SETUP TO RUN FOR DATA COMMAND
:CYLINDER 0
;SECTOR 0
;TRACK 0

:WORD COUNT (DATA) = 256. +

;4 HEADER WORDS
;BUS ADDRESS
;STARTING ADDRESS OF DATA
= WRFROM
;BUFFER

;00 NOT iNHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
;00 NOT INHIBIT ECC CORRECTION

;D0 NOT INHIBIT HEADER COMPARE
;GET READY T0O DO A WRIFOR

;WRITE HEADER AND DATA WITH 62 IN RH(S!

e
————————————

CZRJJDO, RPO4L/5/6 FCTNL CTRLR2
CZRJJD.PI
28-MAR-79 08: 52

MACY11

E 15

30A(1052)
25-MAY-79
10:48 PAGE 187
136
HEAD SELECTION TEST ERR & TRE

031210

004737

033374

JSR

PC,aNCHECKT

031214
031220

000000

104401

057465

TYPE
HALT

LCPHALT

031222

013777

004506

MOv

a¥#RPLVEC,ORPVEC

150736

SEQ 0186

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

NOT

;SET RPO4 VECTOR ADDRESS
;70 "TIMET1' IF P=CLOCK IS PRESENT
:OR TO "TIME2' IF P-CLOCK IS NOT THERE
;*TIME® WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS

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

031230
031234

013746
052716

002344
000101

MOV

d#WRIFOR,-(SP)

031240

012677

150734

Mov

(SP)+,aRHCS]

BIS

;GET

READY

10 MOVE

;GET READY TO SE7

;ENABLE INTERRUPT

COMMAND

GO AND

;60 WITH

;62 IN RHCS1 FOR WRITE HEADER AND DATA
;WITH INTERRUPT ENABLED

;*ONE REVOLUTION= 16670 MICRO SEC., ONE SECTOR
= 760
;*MICRO SEC. MAX TIME ALLOWED
= ONE "REVOLUTION + HEAD

;*SWITCH ¢ 2 SECTORS, MIN TIME ALLOWED
= SECTOR (FIRST CASE)

:«1F THERE IS A FAILURE HERE WALT PROGRAM AFTER ERROR WITH
;*SWITCH 15 AND SEE CURRENT CYLINDER REGISTER TO DETERMINE
;*WHAT

031244
031246
031250
031252
031254

CYLINDER

IS FAILING

WAT

1046413

;WAIT

RHCS1T
RDY
1650.

002200
000200
003162
001572

FOR RDY BIT

TO SET

;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 16500 MICRO SECONDS

890.

;RDY MUST 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

JSR

031256

004737

035236

031262
031270
031272
031300

032737
001004
032737
001401

040000

002304

040000

002262

031302

104066

BIT

9%:

PC,a¥#PUTREG

BNE
BIT
BEQ

9%
#TRE ,an(S1
4%

NERR,a#DS1

:ANY DISK ERRORS

ERROR

: SOME ERRORS OCCURRED

;BRANCH IF YES
;ANY RH ERRORS
:BRANCH 1F NO

;WHILE DOING WRITE HEADER
:AND DATA

;*THE FOLLOWING 3 ADDS SETS UP FOR NEXT TRACK WRITING
o~
so

—
—

000400
000040

062737
062737

-—

9053

9054
9055
9056

#GO!1E, (SP)

4%:

ADD
ADD

#400,3#1%+12
#40,9#2%+10

sNEXT
;NEXT

TRACK FOR HEADER
TRACK FOR DATA

CZRJJDO, RPO4/5/6 FCINL CTRLR2
CZRJJD.P1
28-MAR-79 08:52

062737

000400

031326
031332

005337
001300

001200

031174

#400,a#3%+6

;NEXT

DEC

afsTMPI

;COUNT 19 TRACKS

BNE

;*THE

031350

004737

033314

JSR

—

HSwN—

CLR
(LR

005037
005037
005037

WWWNW

031334
031340
031344

P olo

SEQ 0187

ADD

roro
S

031320

F 15
30A(1052)
25=MAY=-79
10:48 PAGE 188
HEAD SELECTION TEST ERR & TRE
136

oOOoOOoO

9057
9058
9059
9060
9061
9062

MACY11

CLR

TRACK FOR COMMAND

FOLLOWING CLEARS SETS UP FOR READ HEADER AND DATA

anNsSST13+412
aN#SST4+10

;START WITH SECTOR/TRACK = 0
;START WITH DATA = 0

PC,a#CLDISK

;SET R1-RHCS1,

aNSST5+6

;START WITH O FOR COMMAND

R2-RH(S2

;R3-RHDS1, Ré- RHER1
:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

031354

012737

000023

001200

SST2:

031362
033164

031370

004037
003434
000404

031374

013737

031362

031362
031366
031372

031442

031443

MOov

001110

SSTé4:

004037
002400
000400
000000

035276

;CLEAR 260. WORDS, FROM REINTO
;STARTING FROM REINTO

;260. WORDS
sFILL WITH =1

a#SST2 ,a#SLPERR ;SET LOOP POINT

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 EXPECTED DATA

<0.+2000>'<0+*40>'0

SS15:

004037
000000
000
000

RO,a#CLAREA

RO,a#CLAREA
JSR
WRFROM+<4*2>
256.

033164

;19 TRACKS TO BE READ

;*FILL WRITE FROM BUFFER WITH EXPECTED HEADER
JSR
WRFROM
B
10000
0
0
0

033140

031434
031434
031440

REINTO

55192

031422

031422
031426
031430
031432

#19.,3#8TMP1

;*FILL READ INTO BUFFER WITH ALL ONES
JSR

177777

004037
002370
000004
010000
000000
000000
000000

;*SET UP FOR READ HEADER AND DATA

MOv

260.
-1

031402
031402
031406
031410
031412
031414
031416
031420

SST1:

;CLEAR 256. WORDS, FROM WRFROM+<&*2>
;STARTING FROM WRFROM+<4e2>
:256. WORDS

;FILL WITH <0,.+2000>!<0+40>:0

;*FILL COMMAND FOR READ HEADER AND DATA
JSR
0
.BYTE
BY1E

RO,a#RUN

C
0

—

;SETUP TO RUN FOR DATA CQOMMAND
;CYLINDER 0
;SECTOR 0
;TRACK O

CIRJJIDO, RPO4L/S5/6 FCINL CTRLR2
CZRJJD.P11
28-MAR-79 08:52

9163

9164
9165
9166

9167
9168

25-MAY=-79

10:48

HEAD SELECTION TEST

6 15
PAGE 189

SEQ 0188

ERR & TRE

031446

003434

REINTO

000000
014000

ECI!FMT22

;STARTING ADDRESS OF DATA
:BUFFER
= REINTO
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT

031454

002350

REFOR

;GET

031456

004737

033374

JSR

PC,aN#CHECKT

031462
031466

104401
000000

057465

TYPE
HALT

LCPHALT

031470

013777

004506

MOov

a#RP4VEC,ARPVEC

—

=256.-4

Pol
o

177374

9114
9115
9116
9117
9118
9119
9120
9121
9122
9123
9124
9125
9126
9127
9128
9129
9130
9131
9132
9133
9134
9135
9136
9137
9138
9139
9140
9141
9142
9143
9144
9145
9146
9147
9148
9149
9150
9151
9152
9153°
9154
9155
9156
9157
9158
9159
9160
9161
9162

SO?élOSZ)

0314644

WwWW

9113

MACY1)

150470

;WORD COUNT

(DATA) = 256. +

;4 HEADER WORDS
;BUS ADDRESS

;INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
READY

TO DO A REFOR

;READ HEADER AND DATA WITH 72 IN RHCS!

; CHECKS DVA,RDY,MOL,DPR,DRY AND VvV = 1

;AND THAT

ALL STATUS BITS ARE

; CANNOT CONTINUE TESTING IF NOT

;STOP TEST

;SET RPO4 VECTOR ADDRESS
;10 "TIME1' IF P=CLOCK IS PRESENT

;OR TO 'TIMEZ2' IF P=CLOCK 1S NOT THERE
;"TIME' WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
031476
031502

013746
052716

002350
000101

MOV
BIS

d¥REFOR,-(SP)
#GO:1E, (SP)

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

031506

012677

150466

MOV

(SP)+ ,aRHCST

;60 WITH

;ENABLE INTERRUPT

;72 IN RHCS1 FOR READ DATA

;WITH

104413
002200
000200
003162

ENABLED

WAT
RHCS1
RDY

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

890.

:RDY MUST

1650.

001572

INTERRUPT

;ALLOW 16500 MICRO SECONDS
SET BETWEEN

;7600 AND 25400 MICRC SECONDS

;*NOW SECTOR O Oi

ONE TRACK HAS BEEN READ CHECK COMPOSIT

;*ERROR BIT TO BE SURE NO ERROR HAPPENED

;*SAVE REGISTERS IN SAVE TABLE

031524

004737

035236

031530
031536
031540
031546

032737
001004
032737
001401

040000

002304

040000

002262

031550

104066

JSR

PC,a#PUTREG

BIT
BNE

WERR,a#DS1
10%

;ANY DISK ERRORS
;BRANCH IF YES

BEQ

;BRANCH IF NO

; SOME ERRORS OCCURRED

BIT
10%:

ERROR

#TRE ,aN(S1

;ANY RH ERRORS

;WHILE

DOING READ

;HEADER AND DATA

CIZRJJIDO, RPO4L/S5/6 FCINL CTRLR2
CZRJJD.P1
28-MAR-79 08:52
9169
9170
97
9172
9173
9174
9175
9176
9177
9178

%203

9204
9205
9206
9207

30;&1052)

25=MAY-79

10:48

H 15

PAGE 190

SEQ 0189

HEAD SELECTION TEST ERR & TRE

;*NOW THE READ DATA WILL BE COMPARED DATA IN EACH SECTOR
;*1S UNIQUE 1F PROGRAM IS HALTED ON ERROR THEN LOOK AT
;*RHDST

TO GET WHAT

JSR

RO,a#COMPAR

TRACK

IN ERROR.

LOOKING AT

THE DATA

;*BITS NO 4,5,6,7,8 IN GOOD DATA ALSO GIVES TRACK NUMBER
:*IN GOOD DATA ALSO GIVES TRACK NUMBER
031552

11%:

004037
002370
003434
000404
031570
031574

9179

9180
9181
9182
9183
9184
9185
9186
9187
9188
9189
9190
9191
9192
9193
9194
9195
9196
9197
9198
9199
9200
9201
9202

MACY1

035342

WRFROM
REINTO

260.

;RETURN TO 12% ON ERROR

13%

12%:

;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

:260., WORDS TO BE COMPARED

12%

104067
000207

;COMPARE TWO BLOCKS OF MEMORY

;RETURN 70 13% ON NO ERROR

ERROR

RTS

;BIT1S 4,5,6,7.,8
;READ HEADER AND DATA
;ERROR

;HEAD SELECTION ERROR
;DATA READ GIVES NATURE
;OF ERROR
;EXCEPT FOR THE
;FOUR

HEADER WORDS

;THE BITS 4,5,6,7,8

;GIVE THE TRACK NUMBER

;*NOW INCREMENT TO READ NEXT TRACK
031574
031602
031610

062737
062737
062737

000400
000040
000400

031616
031622

005337

001200

031624

000402

031626

000137

001001

031362

13%:

ADD
ADD
ADD

#400,a#5S5T3+412
#40,a#SST4+10
#400,a#S5ST546

NEXT
;NEXT
;NEXT

DEC

A¥$TMPI1

;COUNT 19 TRACKS

15137

;7O NEXT TEST

JMP

anssT?

; JUMP BA(K

BNE

5%:

TRACK
TRACK
TRACK

FOR HEADER
FOR DATA
FOR COMMAND

—

9208
9209
9210
9211
9212
9213
9214
9215
9216
9217
9218
9219
9220
9221
9222
9223
9224
9225
9226
9227
9228
9229

9230
9231
9232
9233
9234
9235

9236
9237
9238
9239
9240
9241
9242
9243
9244
9245
9246
9247
9248
9249
9250
9251
9252
9253
9254
9255
9256

9257
9258
9259

9260
9261
9262
92e3

MACY11

30A(1052)
136
.

25-MAY-79

10:48

115
PAGE 191

SEQ 0190

HEAD SELECTION TEST ERR & TRE

'I"."""""""""""""""'.""'.""""'""".""

'TEST

A WRITE HEADER AND DATA WILL BE DONE

: ¥

DIFFERENCE LINES
ON ALL

CYLINDERS

UP T0 256./512. ON SECTOR ZERO, TRACK ZERO. THE DATA wiLL
BE THE CYLINDER NUMBER

THEN A RECALIBRATE AND READ HEADER AND DATA wiLL BE DONE

:®

ON CYLINDERS 0,1,2,4,8,16,32,64,128,256 & 512.

:
e
;e

DATA WILL BE CHECKED.
ON AN ERROR, LOOPING WILL BE DONE ON THE
READ ONLY

s v

e iii222222222222222222
2222222
RR
Rl
Rl Al
A)

031632
031634
031640

000004
012706
012737

001000

031646

004737

033314

031652

004737

031656
031662

104401

031664
031672
031676

031702

000000

012737
005037
005037

013777

000037

1S137:
004504

SCOPE

MOV

#STACK,SP

JSR

PC,a#CLDISK

MOV

SRESET

#37,30T5TNM

033374

JSR

PC,aN(HECKT

057465

TYPE
HALT

,CPHALT

;SAVE

STA(K

TEST NUMBER

;SET R1-RHCST, R2-RH(SZ

;R3=RHDS1,

R&=RHER!

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
;CHECKS DVA,RDY,MOL ,DPR,DRY AND vv = 1
:AND THAT ALL STATUS BITS ARE = 0
:CANNOT CONTINUE TESTING IF NOT
:STOP TEST

010000
032016
032024

031776

;*SET UP 1O INITIALIZE TEST FROM CYLINDER O, TRACK O,
;*SECTOR O
MOV
#10000,3#1%+10
;CYLINDER HEADER DATA
;DATA
an2%+10
(LR
;CYLINDER COMMAND RHCA
aN3ses
CLR

004506

150256

MOV

;*THIS

IS TO GET

THE

HEACS TO CYLINDER ZERO

O#RPLVEC ,@RPVEC

;SET RPO4 VECTOR ADDRESS

;70

"TIMEY'

:OR TO '"TIME2'

P=CLOCK

1S PRESENT

P=CLOCK

s"TIME' WILL ONLY SAVE
sCURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS
031710
031714

013746
052716

002326
000101

MOV

O¥RECALI,-(SP)

;GET

031720

012677

150254

MOV

(SP)+ ,aRHCST

;60 WITH

BIS

#GO!1E, (SP)

002222
000200

WAT

RHDS1
DRY

TO MOVE

THERE

COMMAND

;GET READY TO SET GO AND
;ENABLE INTERRUPT

;6 IN RHCS! FOR RECALIBRATE

;WITH

104413

REAPY

IS NOT

INTERRUPT

ENABLED

;WAIT FOR DRY BIT T0 SET

;WAIT FOR RHDS! REGISTER
;WAIT FOR DRY BIT IN RHDS1 REGISTER

CIRJJIDO, RPO4L/5/6 FCINL CTRLR2
P11
CZRJJD.P
28-MAR-79 08:52

—

CIRJJIDO, RPO&L/5/6 FCTINL CTRLR2
P11
CZRJJD.P
28-MAR-79 08:52
9264
9265
9266
9267
9268
9269
9270
9271
9272
9273
9274
9275
9276
9277
9278
9279
9280
9281
9282
9283
9284
9285
9286
9287
9288
9289
9290
9291
9292
9293
9294
9295
9296
9297
9298
9299
9300

9301
9302
9303
9304
9305
9306
9307
9308
9309
9310
9311
9312
9313
9314
9315
9316
9317
9318
9319

031732
031734

MACY1

302;1052)

060650
060650

25-MAY=79

J 15
10:48 PAGE 192

SEQ 0191

DIFFERENCE LINES

25000.
25000.

;ALLOW 250000 MICRO SECONDS
;DRY MUST SET BETWEEN
;00 AND 500000 MICRO SECONDS

;*THE DRIVE TYPE IS CHECKED AND THE APPROPRIATE MAX.
;*CYLINDER DIFFERENCE IS SET UP
;""'"""'""'"'""""""""""""'"""'Q"'Q'l""

031736
031742

005737
001404

1871
BEQ

004636

a#RP06
14%

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

AS AN RPO6

‘;"""'""""'""""""".""'.'.'""."'.l"""""'.'

031744
031752

012737
000403

001001

001200

031754
031762

012737

000401

001200

031762

004737

033314

}LS:

MOV
BR

#513, ,aN8TMPI
15%

;513 CYLINDERS
; CONTINUE

MOv

#257.,a08TMP

;257 CYLINDERS

JSR

PC,a#CLDISK

;(ONTINUE WITH TEST
;SET R1-RHCS1, R2-RHCS?2

;R3-RHDS1, R&=-RHERI

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

1%:

031766
031766
031772
031774
031776
032000
032002
032004

004037
002370
000004
010000
000000
000000
000000

JSR

033140

WRFROM
“
10000

3%:

032020

;*FILL WRITE FROM BUFFER WITH DATA

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

;*THE WRITE HEADER AND DATA COMMAND WILL BE LOADED

JSR
0

RO,a#RUN

032020
032024
032026
032027
032030

004037
000C00
000
000
177374

BYTE
0
.BYTE
0
=256.~4

032032

002370

WRFROM

035276

IN WRFROM

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

;:THIRD DATA WORD
;FOURTH DATA WORD

JSR
RO,a#CLAREA
WRFROM+10
256.
0

033164

:SAVE HEADER DATA

:SECOND DATA WORD

0
0
2%:

004037
002400
000400
000000

RO,a#FLHEAD

032006
032006
032012
032014
032016

;*FILL WRITE FROM BUFFER WITH HEADER

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0

;SECTOR 0
;TRACK 0
;WORD COUNT

(DATA) = 256, +

;4 HEADER WORDS

:BUS ADDRESS

;STARTING ADDPRESS OF DATA

CZRJJIDO, RPO4L/S5/6 FCTNL CTRLR2
CIZRJJD.P1
28-MAR-79 08:52
9320
9321
9322
9323
9324

032034
03203

000000
010000

9325
9326

032040

002344

9329
9330
9331
gggg

032042

004737

033374

032046
032052

104401
000000

057465

9334
9335
9336
9337
9338

032054

013777

004506

9358

MACY11

30A(1052)
25-MAY-79
10:48
137
DIFFERENCE LINES

:D0 NOT

WRIFOR

'
150104

SEQ 0192

JBUFFER
= WRFROM
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
;D0 NOT INMIBIT ECC CORRECTION

0
FM122

INHIBIT HEADER COMPARE

:GET READY TO DO A WRIFOR
:WRITE HEADER AND DATA WiTH 62 IN RHCSI

JSR

PC,a#CHECKT

TYPE
HALT

,CPHALT

MOV

O#RP4LVEC,aRPVEC ;SET RPO4 VECTOR ADDRESS
;70 "TIMET1' IF P=CLOCK ]S PRESENT
:OR TO "TIME2' IF P=-CLOCK IS NOT THERE
:"TIME' WILL ONLY SAVE
;CURRENT CYLINDER ADDRESS

9339

K15
PAGE 193

:CHECKS DVA,RDY,MOL,DPR,DRY AND VvV = 1
:AND THAT ALL STATUS BITS ARE = 0
:CANNOT CONTINUE TESTINC IF NOT
;STOP TEST

;AND LOOK AHEAD REGISTERS

9342

032062

013746

002344

MOV

O#WRIFOR,-(SP)

;GET READY TO MOVE COMMAND

9344
6345

032072

012677

150102

MOV

(SP)+ ,aRHCST

;ENABLE INTERRUPT
;60 WITH

9343
9346

032066

052716

000101

BIS

#GO!'1E, (SP)

gga;

:GET READY TO SET GO AND

:62 IN RHCS! FOR WRITE HEADER AND DATA

;WITH INTERRUPT ENABLED

9349
9350
9351

:*ONE REVOLUTION = 16670 MICRO SECONDS, ONE SECTOR = 760
:*MICRO SECONDS, ONE SEEK = 7000 MICRO SECONDS.
:*MAX TIME = 1 REVOLUTION + 1 SEEK + 2 SECTORS

9352
9353

9354

9355
9356

9357
9358
9359

ggg?
9362
9363
9364
9365
9366
9367

9368
gggg

;*MIN TIME = 1

032076
032100

032102
032104
032106

032110
032114
032120

032124
032130

104413
002200
000200
002354
002354

005237
005237
005237

005337
001316

WAT
RHCS1

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

RDY
1260.
1260.

031776
032016
032024

001200

SECTOR

:WALT FOR RDY BIT IN RHCS1 REGISTER
ALLOW 12600 MICRO SECONDS
sRDY MUST SET BETWEEN

:00 AND 25200 MICRO SECONDS

;*NOW ONE SECTOR WRITE 1S COMPLETE.
CHANGES WILL BE MADE
:*FOR THE NEXT SECTOR, THEN THE ABOVE WILL BE REPEATED
s*UNTIL CYLINDER 256./512. 1S REACHED
INC
an1%+10
sCYLINDER HEADER DATA
INC
an2%+10
:DATA
INC
N 3%+4
:CYLINDER COMMAND (RHCA)

DEC
BNE

afSTMP1
1%

:COUNT DOWN FOR 256./512. CYLINDERS
;DO NEXT WRITE 1F 256./512. NCT DONE

9371
9372

s*NOW ALL 256./512. CYLINDERS HAVE CYLINDER NUMBER WRITTEN
:*AS DATA ON SECTOR O, TRACK 0. NOW A RECALIBRATE, FOLLOWED

9374

:*(CYLINDER 0,1,2,4,8,16, 32 64,128,256,512, AND 0

937%
9375

;*BY READ HEADER AND DATA, THEN A CHECK WiLL BE DONE ON

CIRJJDO, RPO4L/S5/6 FCTNL CTRLR2
CZRJJD.PI
28-MAR-79 08:52
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

a¥#.% ,afSLPERR
NS TMP

194
;LOOP ON ERROR
;CYLINDER COUNTER

SEQ 0193

CIZRJJDO, RPO4L/5/6 FUCINL CTRLRZ2
CZRJJD.PN
28-MAR-79 08:52

MACY11

25-MAY-79
10:48
3 08(3052)
137
Dii FERENCE LINES

m15
PAGE 195

SEQ 0194

s*INITIALIZE, RECALIBRATE, AND READ CYLINDERS

::"""""""""""""""."'"'..'."'0""'.'."""""

032144
032152
032156
032162

012737
005037
005037

)10000
132264
932272

032162

004737

033314

;*SETUP FOR CYLINDER O

032244
s

MOV
CLR

#10000,9#5%+410
2”6%+10

ar7%+4

;CYLINDER COMMAND (RHCA)

JSR

PC,a#CLDISK

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

CLR

;CYL'NULE HEADER
;DATA

(DATA)

:R3=-RHDS1, R&4=RHER1

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
032166

013777

004506

MOV

1647772

o¥RP4LVEC,aRPVEC

;SET RPO4 VECTOR ADDRESS
;70 "TIMET1® IF P=-CLOCK IS PRESENT

:OR TO 'TIMEZ' IF P=CLOCK IS NOT THERE
;'"TIME'

WILL ONLY SAVE

s CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
032174
032200

013746
052716

002326
000101

MOV

O#RECALI,=(SP)

;GET READY

032204

012677

147770

MOV

(SP)+,aRHCST

;60 WiTH

BIS

#GO'I1E, (SP)

;6 IN RHCST1

;WITH

032210
032212
032214
032216
032220

WAT
RHDS1

104413
002222

COMMAND

FOR RECALIBRATE

INTERRUPT ENABLED

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

;WAIT FOR DRY BIT IN RHDS1 REGISTER
sALLOW 250C00 MICRO SECONDS
;:DRY MUST SET BETWEEN
;0C AND 500000 MICRO SECONDS

DRY
25000.
25000.

000200
060650
060650

TO MOVE

:GET READY TO SET GO AND
sENABLE INTERRUPT

;*CLEAR READ INTO BUFFER WITH ALL ONES
032222
032226
032230
032232

004037

003434
000404

9433

REINTO

177777

5¢
004037
002370
000004
010000
000000
000000
000000

RO,a#CLAREA

260.
-1

032234
032234
032240
032242
032244
03c246
032250
032252

JSR

033164

033140

:CLEAR 260. WORDS, FROM REINTO
:STARTING FROM REINTO

:260. WORDS
sFILL WITH =1

s*FILL WRITE FROM BUFFER WITH EXPECTED HEADER
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

25-MAY=79

10:48

DIFFERENCE LINES

N 15
PAGE 196

SEQ 0195

JSR
RO,a#CLAREA
WRFROM+1(

;CLEAR 256. WORDS, FROM WRFROM+10
;STARTING FROM WRFROM+10

:256. WORDS
;FILL WITH O

000000

— ATV

033164

003434

032302
032304

000000
014000

0
ECI'FMT22

032306

002350

REFOR

032310

004737

033374

JSR

PC,aNCHECKT

032314
032320

104401

TYPE
HALT

LCPHALT

000000

057465

032322

013777

004506

MOv

I#RP4LVEC ,aRPVEC

A" NI

;SECTOR 0

.BYTE
0
.BYTE
0
=256.-4

147636

;SETUP TO RUN FOR DATA (COMMAND

sCYLINDER 0
;TRACK 0

:WORD COUNT (DATA) = 256. ¢

;4 HEADER WORDS
;BUS ADDRESS

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

A AM

;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A REFOR

;READ HEADER AND DATA WITH 72 IN RHCS1
; CHECKS DVA,RDY,MOL,DPR,DRY AND VvV = 1
sAND THAT ALL STATUS BITS ARE = 0
;STOP TEST

NOT

TESTING IF

; CANNOT CONTINUE

3SR

:SET RPO4 VECTOR ADDRESS
;70

"TIME1'

P=CLOCK

IS PRESENT

035276

032300

REINTO

000000
000
000
177374

;OR TO "TIMEZ2' IF P=-CLOCK IS NOT THERE
;"TIME' WILL ONLY SAVE

: CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

ONE REV +
1

SECTOR

032330
032334

013746
052716

002350
000101

MOV

9#REFOR,=(SP)

032340

012677

147634

MOV

(SP)+ ,aRH(ST

BIS

#GO!1E, (SP)

SEEK +

SECTOR

TIME

JeMIN TIME

;*MAX

;*ONE SECTOR= 760 MICRO SECONDS, ONE REVOLUTION
=
:+16670 MICRO SECONDS, MAX SEEK = 52000 MICRO SECONDS

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;ENABLE INTERRUPT
;60 WITH
;72 IN RHCST FOR READ DATA

104413

002200

WAT
RH(ST

;WAIT
;WAIT

FOR RDY BIT T0 SET
FOR RHCS! REGISTER

2344
2346

——

;WITH INTERRUPT ENABLED

————
N
Em
SR
e
=

004037

RO,a#RUN

032266
032272
032274
032275
032276

"Br~

;*FILL READ HEADER AND DATA COMMAND

”

7%:

9453
9454
9455
9456
9457
9458
9459
9460
9461
9462
9463
9464
9465
9466
9467
9468
9469
9470
9471
9472
9473
9474
9475
9476
9477
9478
9479
9480
9481
9482
9483
9484
9485
9486
9487
9488
9489

004037
002400
000400

032266

9440
9441
9442
9443
9444
9445
9446
94647
9448
9449
9450
9451
9452

032254
032260
032262
032264

302;1052)
6%:

032254

9434
9435
9436
9437
9438
9439

MACYI

CIRJJIDC, RPO&/5/6 FCINL CTRLR2
CZRIID.PIN
28-MAR-79 08:52

CIRJJIDO, RPO4/5/6 FCTNL CTRLRZ
CZRJJD.P11
28-MAR-79 08:52

B 16
PAGE 197

SEQ 0196

;WAIT FOR _RDY BIT IN RHCS1 REGISTER
;ALLOW 34720 MICRO SECONDS
;RDY MUST SET BETWEEN
;00 AND 69440 MICRO SECONDS

RDY

3472.
3472,

;*CHECK READ WORDS AS ALL READ COMMANDS HAVE BEEN CHECKED

;*(DATA ERRORS MAY IMPLY "'IMPLIED SEEK'' ERRORS)

032356
032362
032364
032366
032370
032372

004037
002370
003434
000404
032374
032400

032374
032376

104070
000207

035342

JSR

WRFROM
REINTO

RO,a#COMPAR

:260., WORDS TO BE COMPARED
;RETURN TO 8% ON ERROR
;RETURN TO 9% ON NO ERROR

ERROR
RTS

;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

260.
8%

8%:

:COMPARE TWO BLOCKS OF MEMORY

;READ HEADER AND DATA ERROR
;DATA GIVES EXPECTED CYLINDER

CHANGES WILL BE MADE
;*NOW ONE CYLINDER HAS BEEN CHECKED.
;*T0 READ THE NEXT CYLINDER AND THE ABOVE SECTOR READ WILL BE
;*REPEATED
032400
032404
032406
032412

005737
001003
005237
000416

001200

9‘:

032414
032420

005737
001404

TST

a¥STMPI

INC-

aN¥STMP1

BNE

001200

BR
R

004636

108:

;1S

10%

ZERO ?

;BRANCH IF NOT ZERO

;ADD ONE IF = 0

;PUT ONE IN CYLINDER

11%

R R R
R
R T R ST TR

1871
BEQ

9#RP06

169

;TEST FOR RPO6 DRIVE

;TREAT UNIT AS AN RPO4
; TREAT AS AN RPO6

::itl.'"""""""'I!'""'t""t"".'"'."t'l"t"""""'

032440
032442
032450
032456

032462
032466
032472
032500

022737
000403
022737
OWNNIN
L NN —
—_ONNINNS
NN N — ISNN
NNNOONN—-

032422
032430
032432
032440

ODO—

9535
9536
9537
9538
9539
9540
9541
9542
9543
9544
9545

30A(1052)
25=MAY=-79 10:48
137
DIFFERENCE LINES

000200
006620
006620

Ottt
\ Nt = OO

9534

032350

032352
032354

OO0

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

MACY11

001000

001200

000400

001200 16%:

001200
001200
001200
010000
032244
001200
032162

17%:

001200
032264

11%:

032272
i

032504
032510

005737
001405

004636

CMP
BR
CMP

#512. ,a#8TMP]
17%
#256.,a88TMP1

;1S 1T PASSED 512 CYLINDERS YET ?

BLOS
ADD
MOV
)
B1S
MOV
MOV
JMP

12%
A¥STMP1 ,aNSTMPI
ANSTMP1 ,aN68+10
a¥$TMP1,-(SP)
#EMT22, (SP)
(SP)+,a#58+10
ANSTMPT ,aN7%+4
aNes

:YES, SO GO TO ZERO
;DOUBLE THE CYLINDER
:MAKE CYLINDER ADDRESS THE DATA
:GET CYLINDER NUMBER
; INCLUDE FORMAT BIT

; CONTINUE
;1S 1T PASSED 256 CYLINDERS YET ?
s CONTINUE

HEADER DATA (CYLINDER)

:CYLINDER COMMAND (RHCA)
;RETURN TO RECALIBRATE

2222222223232 222203222020222000R22002R0R0RRRRRR
iRl

iéi:

187

BEQ

a¥RP06

18%

;TEST FOR RPO6 DRIVE

:TREAT UNIT AS AN RPO4
;TREAT AS AN RPO6

;;'."""i""'l'l"""l‘"l""t"""""'.'t'l""l"'ll"t'

SNSSNVON

WKW
NN
oavavavaavaoanuo
AW
—

063737
012737
005037
005037
000137

OO0O0O0OO0O

022737
001421
000404
022737

OO0

9546
9547
9548
9549
9550
9551
9552
9553
9554
9555
9556
9557
9558
9559
9560

W
NN
ViU
VIS W

CZRJJDO, RPO4/5/6 FCINL CTRLR2
CZRJIJD PN
28-MAR-79 08:52

032554
032560
032564

001414

MACY11

002000

001200

001000

001200

30A(1052)
10:48
25-MAY-T79
137
DIFFERENCE LINES

18%:

19%:

001200
010000
032264
032272
032162

001200
032244

PAGE

198

SEQ 0197

CMP
BEQ
BR
(MP
BEQ

#1024, ,9¢8TMPI

;512 DONE YET ?

19%
'
#512. ,a08TMP1

s CONTINUE
:25? DONE YET ?

ADD
MOv

SfSTMP1 ,aNSTMP1

CLR
CLR
JMP

13%:

13%

#10000,a#5%+10

av6%+10
aN78+4
arnss

;oU‘

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

; CONTINUE
;DOUBLE THE CYLINDER
;CYLINDER HEADER DATA

;DATA

;CYLINDER COMMAND (RHCA)

;RETURN TO THE RECALIBRATE

;END OF

TEST

(ZRJJDO RPO4/5/6 FCTNL CTRLR 2
CZRJJD.PII
28-MAR-79 08:52

9611

D 16
PAGE 199

SEQ 0198
22

R2RRRRRiRRiRRRRRddl )

'".""""""""""'"'"""""""'."'.'t'""""""

;+TEST 40

END OF

THIS

DRIVE

FOR ONE DRIVE
THERE ARE MORE DRIVES, THEN THE PROGRAM

IS THE END OF

TEST

IF
JUMPS TO TEST 5 FOR NEXT DRIVE TEST
END OF

PASS IS REACHED ONLY AFTER ALL DRIVES ARE COMPLETE

032662
032662
032666
032670
032674

013746
104405
104401

000402

64%:

004616

032676
1:67%:
66%:

013746 001112
104405

001112
001102
004626

032726
032732
032736
032742
032744
032750

005237

001100
033123
001100

104401

033120
010142

032754
032762
032766
032770
032774
033000
033002
033004

012737
005337
001413
013700
012701
022100
001401
000775
011137
000137

177777
004620

104401

013746
104405

000137

15740

;:65%:

005037
005037
005737
001413

033006
033012

-~ —

000001
000000
032610

—

000004
012737
012737
104401
000425

032564
032566
032574
032602
032606

~NrN

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

032702
032702
032706
032710
032714
032720
032724

9607
9608
9609
9610

30A(1052)
10:48
25-MAY=-T79
137
DIFFERENCE LINES

; (2222222222222 2222222222222 2022022222

—_
~NO

9561
9562
9563
9564
9565
9566
9567
9568
9569
9570
9571
9572
9573
9574
- 9575
9576
9577
9578
9579
9580
9581
9582
9583

MACY11

004616
004576

004616
010142

SCOPE
MOv
MOV
TYPE
BR
.ASCIZ
MOV
TYPDS
TYPE

3%:

1%:

2%:

;:D0 1 ITERATION

,65%

649

:sTYPE ASCIZ STRING
::GET OVER THE ASCIZ

@fUNIT,=(SP)

;GET READY TO TYPE UNIT NUMBER

,67%

::TYPE ASCIZ

:REINSTATE PS T0 0

<15><12>/TOTAL ERRORS ON THIS PASS ON

UNIT NO./

STRING

;:GET OVER THE ASCIZ

BR
LASCIZ

66%

MOV
TYPDS

INSERTTL,-(SP)

;GET READY TO TYPE NUMBER OF ERRORS

CLR
CLR
TST
BEQ

ANSERTTL
A¥STSTNM

;CLEAR TOTAL NUMBER OF ERRORS
;CLEAR TEST NUMBER

SO
ONE IF NOT
THIS
;CONTINUE TESTING

INC

aNSPASS

; INCREASE PASS COUNT

(SP)
ASS
aN¥SP-

;GET PASS NO.

TYPE
MOV
TYPDS
TYPE

041170

#1,8TIMES

#0,PS

ANSELECT

. SENDMG

»SENULL

;STARTING FROM 200 ?

;TEST NEXT DRIVE IF

;TYPE

END PASS #

;TYPE

OuT

JMP

CLARAEY

;JUMP TEST

MOv

#-1,9#PRITEM

;CLEAR PREVIOUS ITEM NUMBER
:NO. OF UNITS PRESENT DECREMENTED

MOv
MOv

RO
a#UNIT,

DEC
BEQ

@#NOUNITS
$ECP
#FUNITS ,R1

CMP
BEQ
BR

(R1)+,R0
2%

JMP

CLARAES

MOV

1%
(R1),a#UNIT

4 ==mm=memmae-a- cmmmmmmma- >

;BRANCH IF ALL DRIVES COMPLETE
;UNIT UNDER TEST
: TABLE
;1S THIS UNIT JUST TESTED ?
;CONTINUE IF YES
: INCREMENT 1F NO
;THIS 1S NEXT UNIT
;TEST THE NEXT DRIVE

CZRJJIDO, RPO4/S5/6 FCTNL CTRLR2
CZRJJD.P1
28-MAR-79 08:52

MACY1

30261052)

9612
9613
9614
9615

END OF

.SBTTL
.SBTTL
.SBTTL

.SBTTL

END OF

DRIVE

10:48

E 16

PAGE 200

*++SUBROUTINES#
¢+

PASS ROUTINE

2222222222202l
ll)

;*INCREMENT THE PASS NUMBER ($PASS)
;*TYPE ''END PASS #XxXXX'' (WHERE

;*1F THERES A MONITOR GO 10 IT
;*1F THERE ISN'T JUMP TO TSTI

3
033
3
033
3
3
3
3
W

WINNO
N b et et
(e M IV L Lo 0 ol o8 L}

033016
033016
033020
033024
033030
033034
033042
033044
033046
033050
033052
033054
033056
033062
033066
033070

OO0

9616
9617
9618
9619
9620
9621
9622
9623
9624
9625
9626
9627
9628
9629
9630
9631
9632
9633
9634
9635
9636
9637
9638
9639
9640
9641
9642
9643
9644
9645
9646
9647
9648
9649
9650
9651
9652
9653
9654
9655
9656
9657
9658

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
000042

$GET42:

000240

000240
000240

000137
006222
377
015
050040
000043

377
042412
051501

000
042116
020123

SCOPE
CLR
CLR
INC
BIC
DEC
.WORD

BGT

MOV

.WORD
$SEOPCT

TYPE
MOV
TYPDS
TYPE
MOV

BEQ
RESET
$ENDAD: JSR
NOP
NOP
NOP
$DOAGN:
JMP
$RTNAD: .WORD
S$ENULL: .BYTE
SENDMG: LASCI1Z

XXXXX

IS A DECIMAL NUMBER)

$TSTNM
$TIMES
$PASS
#100000,8PASS

;s IERO THE TEST NUMBER
;s IERO THE NUMBER OF ITERATIONS
:: INCREMENT THE PASS NUMBER

$DOAGN

%PC)*,Q(PC)*

s YES
: ;RESTORE COUNTER

. SENDMG

::TYPE "'END PASS #''

%PC)*

$PASS,-(SP)

L SENULL

ar4?2 RO
$DOAGN

PC,(RO)

;:;DON'T ALLOW A NEG. NUMBER
;s LO0OP?

::SAVE $PASS FOR TYPEOUT
::G0 TYPE--DECIMAL ASCII WITH SiIGN
;s TYPE

A NULL CHARACTER

::GET MONITOR ADDRESS
; ;BRANCH IF NO MONITOR
;s CLEAR THE WORLD
;:G0 TO MONITOR
;s SAVE ROOM
:<FOR

::ACTIY
a(PC)+
: ;RETURN
ST
-1,-1,0
;sNULL CHARACTER STRING
<15><12>/END PASS #/

SEQ 0199

CIRJJIDO, RPO4L/S5/6 FCINL CTRLR2
CZRJJD.PT
28-MAR-79 08:52
9659
9660
9661
9662
9663
9664

END OF

25-MAY-79

PASS ROUTINE

10:48

PAGE 201

SEQ 0200

;USED CHIEFLY FOR HEADER INFORMATION
sCALL IS

3
:
:
:

9665

033140
033140
033142
033144
033146

JSR
LOC
XN
XD1

RO,a#FLHEAD

MOV
MOV
MOV
MOV

R1,-(SP)
R2,-(SP)
(RO)+,R1
(RO)+,R2

XD2

FLHEAD:

033150
033152
033154
033156
033160
033162

1%:

MOV

DEC
BNE
MOv
MOV
RTS

000200

::PUSH R1 ON STACK
:;PUSH R2 ON STACK
:R1 HAS ADDRESS OF WHERE
;:R2 HAS NUMBER OF WORDS

DATA

(RO)+,(R1)+

R2
1%
(SP)+,R2
(SP)+,R1
RO

;THIS CLEARS ANY BLOCK OF

sFILLING IT WITH ANY DATA
sCALL

$
:

JSR
f

sFILL HEADER
;LOCATION WHERE SAVED
;NUMBER OF WORDS
:DATA REPEATED XN TIMES

:DATA REPEATED XN TIMES

;*NOW FILL

: SAVE DATA

;DECREMENT COUNT
;BRANCH IF INCOMPLETE
;:POP STACK INTO R2
;:POP STACK INTO R1

MEMORY.

RO,a#CLAREA
;FROM

;NUFBER CF

;DATA

WORDS

10 BZ FILLED

:R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED
;R2 WILL HAVE NUMBER OF WORDS
;R3 WILL HAVE DATA

CLAREA:

033164
033164
033166
033170
033172

MOV
MOV
MOV

R1,-(SP)
R2,=(SP)
R3,-(SP)

::PUSH R1 ON STA(CK
: sPUSH R2 ON STACK
;:PUSH R3 ON STACK

MOv
MOV
DEC
BNE
MOV
MOV
MOV

(RO)+,R3
R3,(R1)+
R2

;DATA
:MOVE DATA
: COUNT
;BRANCH IF NOT COMPLETE
;:POP STACK INTO R3
;2POP STACK INTO R?
;:POP STACK INTO R!

MOV
MOv

1%:

9709

9710
9711
9712
9713
9714

30A(1052)

;THIS FILLS MEMORY WITH GIVEN DATA

9666

9667
9668
9669
9670
9671
9672
9673
9674
9675
9676
9677
9678
9679
9680
9681
9682
9683
9684
9685
9686
9687
9688
9689
9690
9691
9692
9693
9694
9695
9696
9697
9698
9699
9700
9701
9702
9703
9704
9705
9706
9707
9708

MACY11

012602
012601

(RO)+,R1
(RO)+,R2

1%
(SP)+,R3
(SP)+ ,R2
(SP)+,R1

; FROM
;NUMBER

TO SAVE

CZRJJIDO, RPO4L/S/6 FCINL CTRLR2
CZRJJD.PI
2B-MAR-79 08:5?2
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

10:48

G 16
PAGE 202

;RETURN TO MAIN PROGRAM

;THIS IS A SUBROUTINE TO FILL SAVED REGISTER LOCATION

;WITH GIVEN VALUE

;CALL

JSR

RO,a#F ILLRE

MOV
MOV

R1,=-(SP)
R2,=-(SP)

RHXX
0

MOV
MOV
SUB
MOV
MOV
MOV
RTS

sREGISTER NAME
;DATA

(RO)+,R1
(RO)+ ,R2
#RHWC R
R2,SAVERE(R1)
(SP)+,R2
(SP)+ ,R1
RO

::;PUSH R1 ON STACK
;;PUSH R2 ON STACK

:ADDRESS OF ADDRESS OF REGISTER
;DATA
;OFSET
;DATA IS MOVED IN
;:POP STACK INTO R2
::;POP STACK INTO R1
sRETURN TO MAIN PROGRAM

SEQ 0201

CIRJJIDO, RPO4L/5/6 FCTINL CTRLR2

P11
CZRJJD.P

9743
9744
9745
9746
9747
9748
9749
9750
9751
9752
9753
9754
9755
9756
9757
9758
9759
9760
9761
9762
9763
9764
9765
9766
9767
9768
9769
9770

28-MAR-79 08:52

MACY1T

30A(1052)
END OF

25-MAY-79

PASS ROUTINE

10:48

H 16
PAGE 203

SEQ 0202

;THIS SUBROUTINE SETS UP FOR SEARCH

sCALL

:
:
;.BYTE
;.BYTE

033244
033250
033254

012077
012077
013777

033262

000200

146742
146730
002334

SRCH:

146716

;THIS

JSR
C
S
1

RO,a#SRCH

MOV

(RO)+,3RHCA
(RO)+,aRHDST

012077
013777
000200

146722
002352

146702

O#SERCH,ARHCS!

RTS

SUBROUTINE

SEEKCY:

: TRACK

MOV
MOV

;CALL IS
JSR
:
C
:

033264
033270
033276

sCYLINDER
;SECTOR

MOV

MOV
RTS

SETS UP FOR

sSET DESIRED CYLINDER ADDRESS
:SET DESIRED SECTOR/TRACK ADDRESS

;GET READY FOR SEARCH

;WITH 30 IN RHCSI

SEEK

COMMANDS

RO,I#SEEKCY

sCYLINDER

(RO)+,aRHCA

A#SEECOM,QRHCST
RO

;SET

DESIRED

CYLINDER ADDRESS

;MOV 4 INTO RH(CSI

sRETURN TO MAIN PROGRAM

——

CIRJJDO, RPO&/5/6 FCINL CTRLR2

CIRJIJID.P11

28-MAR-79 08:52

MACY11

977"
9772
9773
9774
g;;s
6

033300
033304
033312

052077
013777
000200

146704
002354

9782

033314

013701

002200

9784
g;gs

033324
033330

013703
013704

002222
002202

9783

9787
9788
9789
9790

25-MAY-79

END OF PASS ROUTINE

10:48

116
PAGE 204

sTHIS SUBROUTINE SETS UP FOR OFFSET COMMANDS
sCALL IS
:
JSR
RO,a#0FSET
:
0
;MICRO INCHES OFFSET

9777
9778
9779

30A(1052)

033320

033334
033340
033344
033346

013702

012712
013712
005011
000207

002176

000040
004616

146666

OFSET:

BIS
MOV
RTS

(RO) +,aRHOF
ANOFSETC,aRHCS1
RO

:SET OFFSET REGISTER
;MOV14& INTO RHCSI
:RETURN TO MAIN PROGRAM

CLDISK: MOV

A¥#RHCST,RY

:R1 WILL BE CONTROL AND STATUS!

MOV
MOV

a#RHDS1T,R3
9#RHER1,RG

:R3 WILL BE DISK STATUS REGISTER!
:R4& WILL BE ERROR REGISTER #1

MOV

MOV
MoV
CLR
RTS

O¥RH(S2,R2

#CLR,aR2
a¥UNIT,aR2
aR1
PC

:R2 WILL BE CONTROL AND STATUS?

:CLEAR ALL REG.
:REINSTATE UNIT NO.
;CLEAR FUNCTION BITS

SEQ 0203

CZRJJDO, RPO4L/S5/6 FLIN L CTRLR2
CZRJJD.P1I
28-MAR-7 9 08:52

MACY11

9791
9792
9793
9794
9795
9796
9797
9778

9831

9832

10:48

PAGE 205

SEQ 0204

;THIS CHECKS DEVICE AVAILABRLE (DVA) AND READY (RDY) IN RHCS!
;AND CHECKS MEDIUM ON LINE (MOL), DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDSI
;1T MAY CHECK VOLUME VALID (vv) IN RHDS1, DEPENDING ON ENTRY POINT

9799

9800
9801
9802
9803
9804
9805
9806
9807
9808
9804
2810
9811
9812
9813
9814
9815
9816
9817
9818
9819
9820
9821
9822
9823
9824
9825
9826
9827
9828
9829
9830

30A(1052)
25-MAY-79
END OF PASS ROUTINE

J 16

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

001403
033422
033424 011137
104062
033430

033432
033436
033442
033444
033450

042716
022726
001404
011337
104061

033452

000207

033454
033460

062716
000207

033350

PCJSR:

CHECK:

MOV
SUB
MOv
BIS
BR

000100

173577
004200

033350

CHECKT: MOV

SUB
MOv

CHECKC: MOV
BIC
CmpP

001122

102000

010700

3%:

000006

7%:

JSR

(SP) ,a#PCJSR
¥4 ,a¥PLJSR
aR3,-(SP)
#Vv, (SP)
(HECKC

:SAVE PC OF JSR+4
;GET PC OF JSR
;GET RHDSI
;DONT CHECK vv BIT
;GOTO (OMMON CHECK ROUTINE

(SP) ,a#PCJSR

:SAVE PC OF

¥4 ,a¥#PCJSR
aR3,-(SP)

JSR+4

:GET PC OF JSR
;GET RHDS1 & DO vV CHECK AT

aR1,=(SP)
#173577,(SP)
#DVA!RDY,(SP)+

;GET (S1
;CLEAR UNWANTED BITS
;RHCS1 SHOULD HAVE DEVICE AVAILABLE

BEQ
MOV
ERROR

3%
aR1,a¥$BDADR
62

;BRANCH IF GOOD
:BAD DATA REGISTER (RHCS1)
;RHCST DID NOT HAVE DEVICE

BIC
(MP

;ALL OTHER BITS SHOULD BE 0
#ATA!LBT, (SP)
;CLEAR UNWANTED BITS
#MOL !DPR!DRY!VV,(SP)+ ;RHDS1 SHOULD HAVE THESE

MOV
ERROR

aR3,a#$BDADR
61

RTS

ADD
RTS

#6,(SP)
PC

BEQ

001122

;PC OF

;AND BE

READY

;AVAILABLE RIGHT AT THE STARTY

:BRANCH 1F

GOOD

;THAN MOL,

DRY,

SET

;BAD DATA IN REGISTER (RHDS1)
;RHDS1 HAS SOME BITS OTHER
DPR,vVv

SET

;ALL OTHER BITS SHOULD BE 0
;RETURN TO TEST AND HALT

;ADJUST STACK TO JUMP OVER HALT
;RETURN TO TEST AND CONTINUE

N TEST

CIRJJDC, RPO4/5/6 FCINL CTRLR 2
CZRJJD.PN
2R-MAR-79 08:52

9833
9834
9835
9836
9837
9838
9839
9840
9841
9842
9843
9844
9845
9846
9847
9848
9849
9850
9851
9852
9853
9854
9855
9856
9857
9858
9859

MACY11

30A(1052)
END OF

25-MAY-79

10:48

PASS ROUTINE

K 16
PAGE 206

SEQ 0205

;*THIS IS A SUBROUTINE TO SAVE REGISTERS
;:*IN THE REGISTER TABLE TO ANY LOCATION

;*THE

;*JSR
o

CALL

RO,a#SAVER
;FROM
f
1

;10

:NUMBER OF WORDS SAVED
N
Nl
;*F MUST ALWAYS BE RHCS!
;*1T MUST ALWAYS BE SAVRE
033462
033462
033464
033466
033470
033472
033474
033476
033500
033502
033504
033506
033510
033512

SAVER:

1%:

MOov
MOV
MOV
MOV
MOV
MOV

;;PUSH R1 ON STACK
:;PUSH R2 ON STACK
:;PUSH R3 ON STACK
; FROM
;10
;NUMBER

R3
1%
(SP)+,R3

; COUNT
;BRANCH IF NOT DONE
;:POP STACK INTO R3

MOV

a(R1)+,(R2)+

MOV

(SP)+,R2

DEC
BNE
MOV
MOV

RTS

000200

R1,=(SP)
R2,=(SP)
R3,-(SP)
(RO)+,R1
(RO)+,R2
(RO)+,R3

(SP)+ ,R1

;SAVE REGISTER CONTENTS

;.POP STACK

;:POP STACK

INTO R2

INTO R1

9860
9861
9862
9863
9864

9865

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 IS TO BE TIMED THE RPO4 VECTORS TO ''TIME 1"
;PRIORITY OF PROCESS OR 1S 4
;PRIORITY OF TRAPS MUST BE 6

;PRIORITY OF RPO4 INTERRUPTS 1S 7
033514
033520
033526
033534
033542

005077
017737
017737
017737
000002

146524
146524
146502
146476

033552
004564
004562

TIMEL:

TIME?:

;THIS
;THE

CLR
MOV
MOV
MOV
RTI

1S A WAIT

CALL

;STOP THE CLOCK
aPCLCSR
dPCLCTR,Q#WAITTM ;GET TIME ON CLOCK
ORHCC,a#F INACC
;GET CURRENT CYLINDER
ORHLA,a#F INALA

;GET

LOOK AHEAD

;RETURN TO WAIT P OR WAIT.T

LOOP WHEN AN EVENT

IS TO BE

TIMED

CZRJJDO, RPO4/5/6 FCINL CTRLR2
CZRJJD.P1I
2B8-MAR-79 08:52

9916

9917
9918
9919
9920
9921
9922
9923
9924
9925
9926
9927
9928
9929
9930
9931
9932
9933
9934
9935
9936
9937
9938
9939
9940
9941
9942
9943
9944

30A(1052)
END OF

25-MAY-79

PASS ROUTINE
WAT
L

TA
10

;ABSOLUTE REGISTER ADDRESS
;BIT WAITED FOR

;TIME ALLOWED GIVEN IN 10 MICROSEC

; TOLERANCE PLUS/MINUS IN 10 MICROSEC

;R2=WILL HAVE TOLERANCE PLUS/MINUS IN 10 MICRO SECONDS
;MINIMUM TIME THAT CAN BE MEASURED IS ABOUT 12 MICRO SECONDS
;FOR THE SLOWEST PROCESSOR
033544
033546
033550
033552
033554
033560
033564
033572
033574
033576
033600
033602
033606
033612
033620
033624
033630
033632
033634

000000
000000
000000
000000
005037
005077
012777
010046
010146
010246

010346
016600
010037

162737
013037
012037
012001
012002
010066

WAITPC:
WAITRE:
WAITBT:
WAITTM:
WAIT.P:

033552
146407

000021

000010
033544
000002
033546
033550

labot?

;WAT PC
;WAIT ON REGISTER ADDRESS

;WAIT ON BIT

CLR
CLR

MOV
MOV
MOV
MOV
MOV
MOV
MOV

033544

SUB

MOV
MOV
MOV
MOV
MOv

000010

;WAITED TIME
FNWAITTM
;CLEAR WAITED TIME
aPCLBUF ;CLEAR COUNT SET BUFFER
#GO'BIT4,aPCLCSR ;COUNT UP, 100 KHZ,
RO,=(SP)
::PUSH RO ON STACK
R1,-(SP)
::PUSH R1 ON STACK
R2,=(SP)
:;PUSH R2 ON STACK

R3,-(SP)

;:PUSH R3 ON STACK

;RO HAS ADDRESS OF NEXT LOCATION
;NOW WAITPC HAS WAT PC + 2

9(RO)+,3#WAITRE
(RO)+,3#WAITBT
(RO)+,R1
(RO)+,R2
RO,10(SP)

;WAIT ON REGISTER ADDRESS
;WAIT ON BIT
:R1 HAS TIME IN 10 MSEC
:R2 HAS TOLERANCE IN 10 MSEC
:RESTORE RETURN ON STACK

;WAT

;*THIS SECTION WAITS FOR BIT,

033640
033644
033652
033654
033656
033660
033664
033672
033674
033676
033700
033706
033714
033716
033720
033722

013703
033777
001025
005303
001372
013703
033777
001015
005303
001372
017737
032777
001402

034012
033550

177642
000100

177674

177654

1%:

2%:

001126

MOV

BIT
BNE
DEC
BNE

3%:

104002

000425

033726

017737

:R3 1S A TEMPORARY COUNTER

:BRANCH

ANWAITRBT,aWAITRE

001126

4%:

;1S REQUIRED BIT THERE
IF

YES

ANTIMCNT,R3

: TEMPORARY COUNTER

BNE
DEC
BNE

BIT

ERROR

BR.

177614

THROUGH TWO COUNT DOWNS

ANTIMCNT,R3

aauA1J81 AWAITRE

WALTR ,a#$BDDAT :REGISTER CONTENTS FOR TYPEQUT
#1E,aMHCST
S

:DID ANY INTERRUPT OCCUR
:BRANCH IF YES

7%
2

;0UT
:RPO4

:RPO& DID NOT INTERRUPT

INTERRUPTED BUT WAITED

;ON BIT DID NOT OCCUR
;EVEN AFTER TWO COUNT DOWNS

:FROM 177777 10 0
;0UT

;*NOW TIME

MOV

;1S REQUIRED BIT THERE
:BRANCH IF YES

:COUNT IF REQUIRED BIT NOT THERE

‘

033724

IN WAITPC

MOV

ERROR

000427

BIT
BEQ

104001

;COUNT IF REQUIRED BIT NOT THERE

MOv

146264

START (LOCK

10(SP) ,RO
RO,a#WAITPC

#2 ,3/WAITPC

AND TOLERANCE WiLL BE

WAl TRE ,a#$BDDAT

SEQ 0206

;R1-WILL HAVE TIME ALLOWED IN 10 MICRO SECONDS

[=lele
]

9889
9890
9891
9892
9893
9894
9895
9896
9897
9898
9899
9900
9901
9902
9903
9904
9905
9906
9907
9908
9909
9910
9911
9912
9913
9914
9915

MACY11

L 16
10:48 PAGE 207

CHECKED

;REGISTER CONTENTS FOR TYPEOUT

CIZRJJDO, RPO&L/5/6 FLINL CTRLR2
CZRJJD.P1
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

762

032777
001402

000100

MACY11

30A(1052)
25-MAY-79
END OF PASS ROUTINE

146236

BIT
BEQ

#1E,aRHCST

BR
SuB
cmp

104003

ERROR

000414
160201

033752

023701

033756
033760

103002
104004

033762

000406

033764
033766
033770

060202
060201
020137

033774
033776

103001
104004

034000
034000
034002
034004
034006
034010

5%:

033552

BHIS
ERROR

;gFTTHE WAITED ON BIT SETTING
;0U

AFWAITTM,
PRI

033552

7%:

012603
012602
012601
012600
000002

;BRANCH 1F GOOD
;B1T DID OCCUR BUT TIME
:éAgEN 1S BELOW LOWER LIMIT

6%
4

sTHIS

,0U

Cmp

BHIS
ERROR

MOV
MOV
MOV
MOV
RTI

1S A WAIT

sR1 NOW HAS LOWER LIMIT OF TIME
;FOR GOOD RESULTS, WAITTM
sMUST BE GREATER CR EQUAL

;s TORI

R2.R2
R2,R1
R1.IFWAITTM

ADD
ADD

;DOUBLE TOLERANCE
;R1

WAT

:;POP STACK

WAIT.T:

034016
034016
034020

034022
034026
034032
034040

000004
033544
000002
033546

033544

INTO RO

;RETURN TO MAIN TEST

LOOP WHEN NO P=-CLOCK

1S AVAILABLE

;ABSOLUTE

TA
10

; TIME-NOT

USED HERE

;BIT WAITED FOR
: TIME-NOT USED HERE

;COUNT FOR WAIT LOOP

TIMCNT: 177777
RPTCTR: 25

177777
000025

TIME

;;POP STACK INTO R3
::POP STACK INTO R2
;;POP STACK INTO R1

(SP)+,R3

(SP)+ ,R2
(SP)+,R1
(SP)+,RO

:R3=-1S A TEMPORA RY COUNTER

034012
033014

NOW HAS UPPER LIMIT OF

;FOR GOOD RESULTS, WAITTM
;MUST BE LESS OR EQUAL TO RI1
;BRANCH IF GOOD
;:BIT DID OCCUR BUT TIME TAKEN
;1S ABOVE UPPER LIMIT

sNO TIMING 1S DONE
sCALL IS
:

SEQ 0207

;:DID ANY INTERRUPT OCCUR
;sBRANCH IF YES
sINTERRUPT DID NOT OCCUR EVEN
sAFTER ONE BNE AND ONE MOV

§$

6%:

M 16
10:48
PAGE 208

;COUNT FOR INTERRUPT WAIT (11/70 CPU)

MOV
MOV

RO,=(SP)
R3,=-(SP)

::PUSH RO ON STACK

MOV
MOV

4&(SP),RO
RO,a#WAITP(
#2,30WA1TPC

;RO HAS ADDRESS OF NEXT LOCATION
;WAT PC +2 1S IN WAITPC

SUB

MOV

;:PUSH R3 ON STACK

;WAT

IN WAITPC

a(R0O)+ ,a0WAITRE ;WAIT ON REGISTER ADDRESS

————

CIRJIDO, RPOL/S/6 FLTINL CTRLR2
CZRJID.PY
28-MAR-T79 08:52
012037
022020
010066

30A(1052)
END OF

25-MAY=79

PASS ROUTINE

033550

MOV

000004

MOV

CHP

10:48

1
PAGE 209

(RO)+,3#WAITBT
(RO)+,(RO)*
RO,4(SP)

SEQ 0208

;WAIT ON BIT
;DUMP NEXT TWO WORDS-TA, TO
;RESTORE RETURN ON STACK

;*THIS HWAS THE TWO COUNT DOWNS FROM 177777
034056
034062
034070
034072
034074
034076
034102
0346110
034112
034114
034116
034124
034132

— NN
N s AN

034134

104001

034136

000417

034140

104002

034142

NN WY

177456

1774636

034044
034050
034052

WO NNWWO
NN
O=YONONNO

s ——

NN = o

il
il
D
D

VO NO WV

88888888 o

B
e
i
)
o
D
e
—

o
o

—

10001
10002
10003
10004
10005
10006
10007
10008

MACY11

177424
000100

1%:

2%:

001126
146046

MOv

BNE
DEC
BNE

MOV

BIT
BNE
DEC
BNE

MOV

000415

;CHECK FOR THE

INTERRUPT

;COUNT IF REQUIRED BIT NOT THERE

a#1IMCNT RS

;SECOND COUNT DOWN FROM 177777

:COUNT IF REQUIRED BIT NOT THERE

a#WAITBT ,aWAITRE ;1S REQUIRED BIT THERE
4%
:CHECK FOR INTERRUPT

SWAITRE ,a#$BDDAT :REGISTER CONTENTS FOR TYPEOUT
#1E,BRHCST

:DID ANY

ERROR

:RPO& DID NOT

T secmnmmpmemammmini——————- >

ERROR

BIT
BEQ

3%:

;R3 HAS TEMPORARY COUNT
a#TIMCNT RS
SNWAITBT ,@WAITRE ;1S REQUIRED BIT THERE ?

INTERRUPT OCCUR ?

:BRANCH IF

YES

INTERRUPT

:BIT DID NOT OCCUR

:RPO4 INTERRUPTED BUT
;WAITED ON BIT DID NOT OCCUR

;EVEN AFTER _TWO COUNT DOWNS
;FROM 177777 10 0

SORET T, >

;*BIT DID SET SO CHECK IF INTERRUPT OCCURRED
;*THE AMOUNT OF TIME ALLOWED CAN BE CHANGED BY ALTERING LOCATION
;*"'RPTCTR'" ABOVE

034144
024150
034152

013703
005303
001376

034014

034154
034162
034164
034172

032777
001405
017737

000100

146016

177356

001126

034174

034176
034176
034200
034202

104003

4%:
6%:

DEC
BNE

BIT
BEQ

5%:

O#RPTCTR,R3

;LOAD COUNTER WITH COUNT

;D0 AGAIN IF NOT ZERO YET

#1E,QRHCST

;DID ANY

: COUNT DOWN ONE

INTERRUPT OCCUR ?

ERROR

5%
;BRANCH IF YES
aWAITRE ,a#$BDDAT ;REGISTER CONTENTS FOR TYPEQUT
3
; INTERRUPT DID NOT OCCUR

;THE WAITED ON BIT OCCURING
FIT srvennmmemnaRitECRETEE

MOV
MOV
RTI

(SP)+,R3
(SP)+,RO

;:POP STACK INTO R3
;;POP STACK INTO RO

MOV

000400
012603
012600
000002

MOV

;EVEN AFTER ONE BNE OF

;RETURN TO MAIN TEST

CIRJJDO, RPO4L/5/6 FCINL CTRLR2
CIRJJD.P11
28-MAR-79 08:52
10054
10055
10056
10057
10058

END OF

25-MAY-79

PASS ROUTINE

10:48

5
PAGE 210

SEQ 0209

:THIS CHANGES REGISTER SAVED VALUE
;CALL IS

3
:
:
;
3

10059
10060

10061
10062
10063
10064
10065

MACYT1 30A(1052)

JSR
R
N
NEW
P

RO,3#CHREG

MOV
MOV

R1,=-(SP)
R2,-(SP)

:;PUSH R1 ON STACK
::PUSH R2 ON STACK

SUB

#RHWC ,R1

:R1 HAS OFSET OF REQUIRED REGISTER

BEQ
BIS
BR
BIC
DEC
BNE
MOV
MOV

2%
:BRANCH IF A BIC 1S REQUIRED
(RO)+,SAVERE(R1) ;SET REQUIRED BIT
:BRANCH TO DECREMENT COUNT
3%
(RO)+,SAVERE(R1) ;CLEAR REQUIRED BIT
R?
:DECREMENT NUMBER OF CHANGES
1%
:BRANCH IF NOT COMPLETE
(SP)+ ,R2
::POP STACK INTO R2
(SP)+,R1
::POP STACK INTO R1

;REGISTER TO BE CHANGED
:NUMBER OF BITS TO BE CHANGED
:NEW VALUE OF BIT MUST BE 0 OR1
;POSITION OF BIT TO BE CHANGED

sNEW AND P WILL BE REPEATED N NUMBER OF

034204
034204
034206
034210
034212
034214
034220
034222
034224
034230
034232
034236
034240
034242
034244
034246

010146
010246
012001
012002
162701
005720
001403
052061
000402
042061
005302
001367
012602
012601
000200

CHREG:

002172

MOV
MOV
1%:

004512
004512

2%:
3%:

TST

RTS

(RO)+,R1
(RO)+,R2
(RO)+

sTHIS FILLS A BLOCK WITH

;CALL IS

3
:

2
3

034250
034250
034252
034254
034256
034260
034262
034264
034266

FlLL:

034270
034272
034274
034276
034300

1%:

JSR

f
N

MOV
MOV
MOV
MOV
MOV
MOV
MOV

:R1 HAS ADDRESS OF ADDRESS OF REGISTER
:R2 HAS NUMBER OF CHANGES
:1S A BIC OR A BIS TO BE DONE

:RETURN TO MAIN PROGRAM

INCREMENTAL DATA

;FROM
sNUMBER OF WORDS

;STARTING VALUE OF DATA
; INCREMENT DATA BY

S
|

MOV

001374
012604

RO,I#FILL

TIMES

R1,-(SP)
R2,=(SP)
R3,-(SP)
R&,-(SP)
(RO)+,R1
(RO)+,R2
(RO)+,R3

(RO)+, R4

:;PUSH R1 ON STACK
:sPUSH R2 ON STACK
::PUSH R3 ON STACK
::PUSH R4 ON STACK
:R1 HAS ADDRESS WHERE DATA IS T0 GO
:R2 HAS NUMBER OF WORDS TO BE FILLED
;STARTING VALUE OF DATA

;R4 HAS INCREMENT

;*NOW DATA WILL BE FILLED

MOV

ADD
DEC
BNE
MOV

R3,(R1)+

R4 ,R3
R2
1%
(SP)+ R4

;sFILL DATA

:GET NEXT VALUE OF DATA
sDECREMENT COUNT
:BRANCH IF ALL NOT DONE
;:POP STACK INTO R4

CZRJJDO, RPO4/5/6 FCTINL CTRLR2
CIZRJJD.P1Y
28-MAR-79 08:52
NO VIS NN -

034302
034304
034306
034310

25-MAY=-79

30A(1052)
END OF

PASS ROUTINE

012603
012602
012601
000200

MOv
MOV
MOv

RTS

ONO VNN = OOV

D il
D
e
el
il
e
D e
el
el e
e
e
e
i
—

PNONINIRNINININI
NN =
s et it

) il il
il
—
il
il
D
il
D
il
- —
il
—

[elelelelelolelolelololelelolelelele]

10110

MACY11

;THIS
;600D
sTEST
;sCALL

10:48

PAGE 211

(SP)+ ,R3

(SP)+ ,R2
(SP)+ ,R1
RO

SEQ@ 0210

:;POP STACK INTO R3
:;70P STACK INTO R2

:,POP STACK INTO R1
;RETURN TO MAIN PROGRAM

IS A SUBROUTINE TO COMPARE REGISTERS
DATA 1S ALREADY SAVED IN "SAVERE'
DATA IS IN THE REGISTERS
IS
JSR
SAVERE
RHCS1

RO,a#COMREG

:GOOD DATA

;ADDRESS OF ADDRESS TEST DATA
;RETURN FOR ERROR

N.
RG

;RETURN FOR GOOD COMPARISON

;ON RETURN WITH ERROR 'S$GDDAT' HAS GOOD DATA, '$BDDAT' HAS BAD DATA
; "REGADR' HAS REGISTER ADDRESS

150

034312
034312
034314
034316
034320
034322
034324
034326
034330
034332
034334

011000

034336
034342
034350

004737
113737
012705

035236
004537

034354
034360
034362
034364
034370
034374
034402

062705
022122
001420
014137
014237

000002

034404
034406
034412
034416
034422
034424
034426

022122
017746
042716
022726
001402
005303
001352

034430
034430

012605

COMREG:

016537
004714

MOv
MOV
MOV
MOv
MOv
MOV
MOV
MOV
MOV
MOV

177776

001124
001126
002172

R1,-(SP)
R2,=(SP)
R3,-(SP)
R4 ,=(SP)

R5,=(SP)
(RO)+,R1
(RO)+,R2
(RO)+,R3
(RO)+,R4
(RO) ,RO

:*NOW SAVE REGISTERS

002301

:SAVE REGISTERS
S¥SAVERE+25,3#AS+1;MAKE UPPER BYTE OF RHAS SAME
#-2,R5
;PRESET R5 T0 -2
;*NOW COMPARES WILL MADE

ADD

#2,R5

; INCREMENT

(R1)+,(R2)+
aSWR,=(SP)
#*C600, (SP)
#SW07,(SP)+
3%

: 70 PRINT ERROR
;UNDO =(R1) AND =(R2) FOR ERRORS
;GET SWITCH SETTING
;KEEP ONLY SWITCH 7 AND 8
;1S 7 SET AND 8 DOWN
;BRANCH OUT IF YES

(SP)+,RS

;:POP STACK

CMP
BEQ

JSR
CMP

MOV

144526
177177

000200

2%:

3%:

:RO HAS RETURN ON NO ERROR

PC,a#PUTREG

MOV
MOV
MOV

004500

:R2 HAS ADDRESS OF ADDRESS OF TEST DATA
:R3 HAS NUMBER OF WORDS
:R4 HAS RETURN FOR ERROR

JSR

MOVB
MOV

1%:

::PUSH R1 ON STACK
::PUSH R2 ON STACK
::PUSH R3 ON STACK
::PUSH R4 ON STACK
::PUSH RS ON STACK
:R1 HAS ADDRESS OF GOOD DATA

BIC
(MP
BEQ
PEC
BNE
MOV

INDEX

(R1)+,(R2)+
: COMPARE REGISTER CONTENTS
2%
:BRANCH IF GOOD
=(R1) ,a#%GDDAT
;SAVE GOOD DATA
-(R2) ,a#%BDDAT
;SAVE BAD DATA
RHWC (R5) ,@#REGADR
:SAVE ADDRESS OF FAILING REGISTER
PC.aRé
;RETURN TO MAIN PROGRAM

R3
1%

;ARE ALL COMPARES DONE
;BRANCH IF NOT COMPLETE

INTO RS

1 LR 2
CIZRJJDO, RPO4/5/6 FCINL CTR
CZRJJD.P1I
28-MAR-79 0 8 52

10166
10167
10168
10169
10170
10171

034432
034434
034436
034440
034442
034444

012604
012603
012602
012601
000200
000000

MACY11

30A(1052)

25-MAY-79

END OF

PASS ROUTINE

4%:

MOV
MOV
MOv
MOV
RTS
.WORD

10:48

(SP)+ R4

(SP)+,R3
(SP)+,R2
(SP)+,R1

PAGE 212
;;POP STACK INTO Ré&

:;POP STACK INTO R3

;:POP STACK INTO R2
::POP STACK INTO R1

sRETURN TO MAIN PROGRAM
s TEMP STORAGE

SEQ 0211

CZRJJIDO, RPO4/5/6 FCINL CTRLR2
CZRJJD.P1
28-MAR-7 9 08:52

MACY11

10172
10173

30A(1052)
25-MAY-79
END OF PASS ROUTINE

10:48

1
PAGE 213

SE@ 0212

;HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS.
;:ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE

:PROGRAM GOES BACK = 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.
LOOP ON ERROR SWITCH MUST BE SET
:3.
THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONS!DERATION
;1F THE ERROR DOES NCT OCCUR WITHIN THE TEST UNDER CONSIDERATION
:THE PROGRAM WILL REVERT TO NORMAL OPERATION.
HOWEVER, IF LOOP ON
;TEST SWITCH 1S SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED
;THEN THE PROGRAM WILL LOOP BACK TO THE

SELECTED POINT WHEN IT

;COMES TO THE END OF THE TEST UNDER CONSIDERATION.

:AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH 1S PUT DOWN THEN
;NORMAL OPERATION WILL CONTINUE.

034446
034450
034450
034454
034462
034466

—

104401
000421

013746

104402
104401
000414

013746
104402
104401
104401

000430

177776
177777

034470

004504

001110

D e
e e
b e

034744
034744
034750

000432

104401

034752

104401

000417

68%:

%6715:
$:

55735:
$:

;275%:

MOV
TYPOC

¥ TSTNM,-(SP)

LASCIZ

<15><12>/THE LOOP BACK PC WAS /

LASCIZ

TEST

:MAKE PROCESSOR STATUS ZERO

#-1,0#PRITEM
,65%
64%

;CLEAR PREVIOUS ITEM NUMBER
;s TYPE ASCIZ STRING
;:GET O0YER THE ASCIZ

<15><12>/THE PROGRAM WAS IN TEST NUMBER /
;GET READY
;NUMBER

TO TYPE

TEST

TYPE
BR

,67%
66%

MOV

a#SLPERR,-(SP)

TYPE
BR

,69%
68

..TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

118

;s TYPE ASCIZ STRING

JASCIZ

TYPE

LSCRLF

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ
;GET READY TO TYPE LOOP BACK PC

<15><12>/SET SU11CH FOR LOOP ON ERROR OR LOOP ON TEST/
70%

;:GET OVER THE ASCIZ

JASCIZ

<15><12>/TYPE THE FIRST PC OF

TYPE
BR
JASCIZ

,13%
;s TYPE ASCIZ STRING
72%
;:GET OVER THE ASCIZ
<15><12>/70 BE LOOPED ON FOLLOWED BY A CARRIAGE RETURN /<15><12>

RDOCT

ADD
MOV
TYPE

000002
001106
035056

sFIRST ADDRESS OF

MOV
TYPE
BR

TYPOC
TYPE

:é695:

034704

104412

:;275:
66%:

001223
034616

104401
000420

062716
012637

64%:

034546

034676
034676
034702

035036
035036
035040
035044
035050
035054

CLR

041170

::255:

OOV
NYO WV N
—

034576
034576
034602
034604
034610
034614

005037
012737

s —

[elelelelelelolelelole

NN
N

034532
034532
034536
034540
034544

TESTAD: 0
OPERSEL:

000000

BR
LASCIZ

#2,(SP)
(SP)+,a#SLPADR
L 15%

THE

TEST/

;GET LPADR
;s TYPE ASCIZ STRING

74%
;:GET OVER THE ASCIZ
<15><12>/TYPE THE PC WHERE YOU WANT/

CZRJJIDO, RPO4/5/6 FCINL CTRLR?2
CIRJJD.PIN
28-MAR-79 08:52
10228

10229
10230
10231

10232
10233
10234

10235

10236
10237
10238
10239
10240

10241
10242
10243
10244
10245
10246
10247
10248
10249
10250
10251

035114

035114
035120

104407
000440

035222
035222

104412

035224

012637

03523&

000002

035230

30A(1052)
END OF

74%:
12 77%:

76%:
001119

25-MAY-79

PASS ROUTINE

T{PE

ASCIZ

RDOCT

MOv
:?Y

001106

10:48

1
PAGE 214

SEQ 0213

..TVPE ASCIZ STRING

;GET OVER THE ASCIZ

<155>¢<12>/ THE PROGRAM TO LOOP BACK TO FOLLOWED BY A CARRIAGE RETURN /<15
(SP)+ ,a#SLPERR
a#$LPADR,=(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

THIS WILL MAKE
;*AND NOT THE REGISTERS THEMSELVES.
ALWAYS DIFFRENT
DATA
BAD
;*ERROR PRINTOUTS FOR GOOD AND

10252
10253
10254
10255
10256
10257
10258

035236
035236
035240
035242
035244
035250
035254

10262
10263
10264
10265

035266
035270
035272
035274

10259
10260
10261

013746

035122

MACY11

035260
035262
035264

010046
010146
010246

012700
012701
012702
013021
005302
001375

012602
012601
012600
000207

PUTREG:

002172
002254
000022

10%:

MOv
MOV
MOV
MOV
MOV

RO,=(SP)
R1,=(SP)
R2,=(SP)
#RHWC,RO
#WC,R1

::PUSH RO
;:PUSH R1
::PUSH R2
;STARTING
;STARTING

MOV
DEC
BNE

a(RO)+,(R1)+
R2
108

; SAVE HARDWARE REG.

RTS

MOV

MOV
MOV
MOv

ON STACK
ON STACK
ON STACK
ADDRESS OF
ADDRESS OF

#RHCC-RHW(+2/2,R2 ;NUMBER OF REG.

(SP)+,R2
(SP)+,R1
(SP)+,RO

REGISTERS
SAVING LOCATIONS

INIO R2

;;POP STACK INTO R?
;:POP STACK INTO R1
;:POP STACK INTO RO

CIZRJJDO, RPO4/5/6 FCINL CTRLR2
CZRJJD.PTT
28-MAR-79-08:52
10266
10267
10268
10269
10270
1027
10272
10273
10274

:
:
:

10278
10279
10280
10281
10282
10283

035276
035302
035306
035312
035316

012077
012077
012077
012077
013746

144710
144676
144660
144656
004616

10285

035324

012677

144646

013077
000200

144640

10286
10287

10288
}8%38

10:48

PAGE 215

;THIS 1S A DATA
COMMAND SETUP SUBROUTINE
;THE CALL IS
3
JSR
RO,3#RUN
:
C
;sCYLINDER
;.BYTE
S
:SECTOR
rBYE
%
; TRACK
3
-W
;WORD COUNT
3
B
:BUS ADDRESS
:
BAl
:BUS ADDRESS INMIBIT

10275
10276
10277

10284

MACY11 30A(1052)
25-MAY-79
END OF PASS ROUTINE

035322

035330

035334
035340

052016

012077

10291
10292
10293

FMT22'ECI'HCI

RUN:

COM
MOV
MOV
MOV
MOV
MOV

(RO)+,3RHCA
(RO)+ ,3RHDST
(RO +,aRHWC
(RO)+,aRHBA
o#UNIT,-(SP)

: COMMAND ADDRESS
;CYLINDER
:DESIRED SECTOR/TRACK
;WORD COUNT
;BUS ADDRESS
;GET UNIT NO

MOV

(SP)+,aRHCS?2

:UNIT NO AND BA]l TO RHC(CSZ2

BIS

144654

;FMT22=1 =16 BIT WORDS
;ECI = ECC CORRECTION INHIBIT
;HC1 = HEADER COMPARE INHIBIT

MOV

MOV
RTS

(RO)+,(SP)

(RO) +,aRHOF

a(R0O)+,aRHCST
RO

:SET BUS ADDRESS INHIBIT

:FORMAT, ECC INHIBIT, HEADER
;COMPARE, IF THERE

; COMMAND IN RHC(S1
:RETURN TO MAIN PROGRAM

10294
10295
10296
10297
10298
10299

:THIS 1S A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY
:R1 HAS GOOD DATA BUFFER ADDRESS
:R2 HAS TEST DATA BUFFER ADDRESS
:RS HAS ADDRESS OF RETURN ON ERROR
:R3 HAS NUMBER OF WORDS TO BE COMPARED
:R& HAS ONE MORE THAN NUMBER OF WORDS TO BE COMPARED

10301
10302

10300

sCALL

:
5
:
2

10303
10304
10305
10306

10307

10308
10309

10310

035342

10313
10314
10315
10316
10317
10318
1n319
10320
10321

035346
035350
035352
03535«
035356
035360
035362
035364
035366

10311
10312

035342
035344

010146
010246

01036
010 %6
010546
012001
012002
012003
012005
011000
010304

COMPAR:

JSR
G
T
N
RE
RG

RO,a#COMPAR
;ADDRE"S OF GOOD DATA

MOV
MOV

R1,-(SP)
R2,=-(SP)
R3,-(SP}
R&,=-(SP)

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

:ADDRES. OF TEST DATA
:NUMBER OF WORDS TO BE COMPARED
;RETURN ON ERROR
:RETURN ON NO ERROR

RS,=-(SP)

(RO)+,R1
(RO)+,R2
(RO)+,R3
(RO)+,RS
(RO),RO
R3,R4

::PUSH R1 ON STACK
::PUSH R2 ON STACK

::PUSH R3 ON ST \(K
::PUSH R4 ON STACK
::;PUSH RS ON STACK
;ADDRESS OF GOOL DATA BUFFER
:ADDRESS OF TEST DATA BUFFER
:NO OF WORDS TO B* COMPARED
;RETURN ON ERROR
:RETURN ON NO ERRCR
:NO OF WORDS TO B COMPARED

SEQ 0214

CZRJJDO, RPO4/S/6 FCTNL CTRLR2
CZRJJD.P1Y
28-MAR-75 08:52
10322
10323
10324
}8%%2

035370
035372
035376
035400

005204
010437
022122
001417

10327
10328
10529
10330

035402
035406
035412
035416

014137
014237
160337
004715

1033]
1033c
10333
0334
0335
1336
10337
10338
10339
10340
10341
10342
10343
10344
10345

035420
035422
035426
03.432
035436
035440
035442
035444
035444
035446
035450
035452
035454
035456

022122
017746
042716
022726
001402
005303
001353

MACY11

30A(1052)
25-MAY-79
END OF PASS ROUTINE

0064502

1%:

001124
001126
004502

143512
177177
000209
2%:

3%:

012605
012604
012603
012602
012601
000200

}8;2?

10348

10349
10350
10351
10352

R
035460

035460
035464
035540

104401
000425

::65%:

10353

035540

013746

002200

10355
10356
10357

035546
035552

104401
000425

035554

10359

035626

004737

037562

10361
10362
10363
10364
10365
10366
10367
10368
10369
10370
10371
10372
10373

035634
035640
035644
035652
035656
035660
035664
035670
035672
035674
035676
035676
035702

012700
012701
012737
021637
001407
CO05776
163716
061620
005301
001375

002170
000026
036450
002200

104401
000417

035704

013746

002166

10354

10358
10360

10374

10375

10376

10377

035544

035626
035632

035742

035746

104402

104412

104402

BASECH:

035466

64%:

::67%:

000000
002200

2%:
1%:
::69%:

68%:

PAGE 216

R4
R4 ,a#ERWORD
(R1)+,(R2)+
2%

:FOR ERROR WORD NO
;COMPARE GOOD WITH TEST DATA
;BRANCH IF GOOD

MOV
MOV
SUB
JSR

=(R1),3#%GDDAT
=(R2) ,a#SBDDAT
R3,37ERWORD
PC,3RS
;RETURN

;GOOD DATA
;BAD DATA
:EXROR WORD NO.
70 PRINT ERROR

CMP
MOV
BIC
CMP
BEQ
DEC
BNE

(R1)+,(R2)+
aSWR,-(SP)
#*C600, (SP)
#SW07,(SP)+
3%
R3
1%

MOV
(SP)+,RS
MOV
(SP)+ R4
MOV
(SP)+,R3
MOV
(SP)+,R2
MOV
(SP)+ ,R1
RTS
RO
THIS ROUTINE WILL ALLOW

SEQ 0215

JUNDO =(R1) AND =(R2) FOR ERRORS
:GET SWITCH SETTING
:KEEP ONLY SWITCH 7 AND 8
;1S 7 SET AND 8 RESET
;BRANCH OUT IF YES
: COUNT
;BRANCH IF ALL NOT DEVICE
::POP STACK INTO RS
::POP STACK INTO R4
::POP STACK INTO R3
:;POP STACK INTO R2
::POF STACK INTO R1
;RETURN TO MAIN PROGRAM
THE CHANGE OF THE BASE

ADDRESS FROM 176700 TO ANY TYPED vALUE

TYPE
BR
LASCIZ

,65%
;s TYPE ASCIZ STRING
64%
::GET OVER THE ASCIZ
<15><12>/PRESENT BASE ADDRESS OF REGISTERS IS

MOV

A#RHCST1,=-(SP)

TYPE
BR
LASCIZ

L67%
..TYPE ASCIZ STRING
b6%
:GET OVER THE ASCIZ
<15><12>/TYPE NEH BASE ADDRESS FOLLOWED BY 'CR' /

JSR

PC,a¥#$TKINT

;INITIALIZE THE TTY KEYBOARD

MOV
MOV
MOV
CMP
BEQ
181
SuB
ADD
DEC
BNE

#RHDB,RO
#22..R1
#ADTIMO,an4
oSP,a#RHCST
1%
a0 (SP)
O#RHCS1,aSP
aSP, (RO)+
R1
2%

:GET STARTING ADDRESS OF REGISTERS
:NUMBER OF REGISTERS
:SET UP TRAP CATCHER FOR TEST
sNEW ADDRESS
sNO, JUST OLD ONE RETYPED
;D0 THE ADDRESS ACCESS
:GET THE ADDRESS OFFSET
sAND PLUG IT IN
;ONE LESS REGISTER T0 DO
:BUT WE'RE NOT DONE YET!

TYPE
BR

,69%
68%

s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

MOV

a#RPVEC,-(SP)

:GET READY TO TYPE OLD VECTOR ADDRESS

RDOCT

000004

INC
MOV
cmp
BEQ

TYPOC

66%:

10:48

LASCIZ

TYPOC

:GET READY TO TYPE OLD BASE

<15><12>/PRESENT VECTOR ADDRESS 1S /

CIZRJJIDO, RPO4L/S/6 FLTNL CTRLR2
CZRJJD.P "
28-MAR-T79 08:52
10378
10379
10380

10381
10382

10383
10384
10385
10386

10387

10388
10389
10390
10391
10392
10393
10394
10395

10396

10397
10398

10399

10400
10401
10402
10403
10404
10405
10406
10407
10408
10409
10410
10411
10412

10413
10414
10415

10416
10617
10418

10419
1042C
10421
10422
10423
10424
10425
10426

035750
035754
036054
036054
036056
036062
036066

036126
036126
036132
03614
036140
036200
035200
036204
036206
036212

036252
036252
036256

104401

000437
1046412

012637
104401

000417

013746
104402
104401
000417

013746
104402
104401

000417

000426

036444
036444
036450
036450
036454

036526
036526
036530

002200

104401

036440

004712

104401

036456

000424

022626
000137

BR
LASCIZ

MOV
TYPOC
TYPE

BR
LASCIZ

MOv
TYPOC
TYPE

84%:

ADTIMO:

10:48

PAGE 217

708

SEQ 0216

..TVPE ASCIZ STRING

;GET OVER THE ASCIZ

(SP)+ ,3#RPVEC
,73%
72%

;SETUP VECTOR ADDRESS
;s TYPE ASCIZ STRING
:;GET OVER THE ASCIZ

<15>212>/NEW BASE WILL REMAIN

afRHCST,=(SP)
,15%
74%

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ

<15><12>/NEW VECTOR WILL REMAIN

= /

a¥#RPVEC,-(SP)
JI7%
76%

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

,79%

;s TYPE ASCIZ STRING

,81%

;:TYPE ASCIZ STRING

<15><12>/UNTIL PROGRAM

TYPE
BR
.ASCIZ

78%
<15><12>/ /

BR
.ASCIZ

80%

TYPE

,83%
82%

S RELOADED./

::GET OVER THE ASCIZ

<15><12>/UNLESS HALTED AND MANUALLY RESTARTED,/

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

<15><12>/PROGRAM WILL AUTOMATICALLY RESTART

::TYPE ASCIZ STRING
::GET OVER THE ASCI1?

JMP

AN#BEGIN

;D0 1T OVER AGAIN

TYPE

.6SS
64%

,,TYPE ASCIZ STRING
:GET OVER THE ASCIZ

(SP)+,(SF)+

sRESTORE STACK

BR
LASC1Z
CMp
JMP

FROM /

#RA,-(SP)

,85%
84%

BR
.ASCIZ

FOLLOWED BY ''CR"" /

<15><12>/TYPE NEW VECTOR ADDRESS OR RETYPE OLD ONE

BR
LASCIZ

MOV
TYPOC
TYPE

1:65%:
64%:

035460

RDOCT

BR
.ASCI1Z

;:85%:

000137

TYPE
BR
ASCIZ

TYPE

036350

000200

000402

::75%:
74%:

036214

012746
104402

72%:

036142

002166

25-MAY=79

PASS ROUTINE

MOV
TYPE

27303

036272

036342
036342
036346
036424
036424
036430
036432
036436

002166
036070

104401

000424

END OF

+=71%:
70%:

036260

036264
036264
036270

30A(1052)

035756

104401

000402

MACY11

<15><12>/ /

<15><12><377>/SELECTED ADDRESS DID NOT

O#BASECH

RESPOND.

:AND DO THE QUERY AGAIN!

CZRJJDO, RPO4/5/6 FCINL CTRLR2

CZRJJD.PI

28-MAR-79 08:52

MACY11 30A(1052)

10427

10428

106429
10430
10431
106432
106433

106434
10435

10436

10437
10438

036534

036534
036540

104401
000424

036612
036612

104402

036614
036622

012777
000000

RPVECT:

036542

;:65%:
64%:

036534

25-MAY-79

END OF PASS ROUTINE

143344

R R

R R e

TYPE
BR
_ASCIZ
TYPOC

MOV
HALT

10:48

PAGE 218

R R R R R R R R R R R

SEG 0217
R

R R

R R R

,65%
s TYPE ASCIZ STRING
64
;:GET OVER THE ASCIZ
/UNEXPECTED INTERRUPT FROM RPO4 @ PC = /

#RPVECT ,aRPVEC

;TYPE FROM PC

;RESTORE TRAP RPO4& VECTOR
;CHANGE TO CONTINUE

R Rl

CIRJJDO, RPO4/5/6 FCTNL CTRLR2
CZRJJD.PN
28-MAR-79 08:52

MACY11

30A(1052)

10463
10464

10465

10466
10467
10468
10469
10470
10471
10472

10473

10474
10475
10476
10« 77
104/8

10479
10480
10481
10482
10483
10484
10485

10486
10487
10488
10489
10490
10491
10492
10493
10494

10:48

SYSMAC LIBRARY ROUTINES

10439

10440
10441
10442
10443
10444
10445
10446
10447
10448
10449
10450
10451
10452
10453
10454
10455
10456
10457
10458
10459
10460
10461
10462

25-MAY-79

.SBTTL

k-9
PAGE 219

SYSMAC LIBRARY

SEQ 0218

ROUTINES

SCOPE HANDLER ROUTINE

A 2222222202222
202 222 R 22002000 RRRR ]

:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS RCUTINE ARE:
LOOP ON TEST
;*SW14=T
INHIBIT ITERATIONS
;*SW11=]

;*SW09=1
;*SW08=1
s*CALL

036624
036624

036626

104407

$SCOPE:

142304

036634

032777
0011M

036636

000416

036640
036644
036652
036656
036662
036664
036666
036672
036674
036674
036702
036704
036712
036714
036720
036722

013746
012737
005737
012637
000463
022626
012637
000423

000004
036664
177060
000004

032777

000400

142236

142230

001102

036730
036732
036740
036742
036750
036752
036756
036762
036764
036772
036774
037000
037002
037006
037014
037016

040000

1%:

LOOP ON ERROR

LOOP ON TEST IN SWR<7:0>

CKSWR
BIT
BNE

sHNAANSTART

$XTSTR: BR

5%:

000004

001103

001000

142200

001110

001106

001103
001212
142146

3%:

001100

001104
001212

001104

000001

001104

1%:

CODE

FOR

YHE

FOR CHANGE IN SOFT-SWR
;s TEST
;;LOOP ON PRESENT TEST?

XOR

O#ERRVEC,-(SP)

#5% ,9#ERRVEC
a¥177060
(SP)+ ,9#ERRVEC
$SVLAD
(SP)+,(SP)+
(SP)+ ,a#ERRVEC

;. YES IF SW14=1
TESTERNNAAN

1F RUNNING ON THE ''XOR'' TESTER CHANGE
;s
;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
::G0 TO THE NEXT TEST
;;CLEAR THE STACK AFTER A TIME OuT
;;RESTORE THE ERROR VECTOR
::LOOP ON THE PRESENT TEST

BEQ
CMPB
BEQ

BEQ
CMPB
BHI
BIT
BEQ

3%
SERMAX ,SERFLG
3%
#¥B1709,aSWR
4%

BIT

7%:

#BIT14,3SWR
$OVER

7%
CODE FOR THE XOR TESTERNNNAN
#B1108,aSuWR
;;LOOP ON SPEC. TEST?
2%
;:BR IF NO
aSWR,$TSTNM
::ON THE RIGHT TEST?
$OVER
;:BR IF YES

6$:;NANNNEND OF

2%:

001115

004000

MOV
187
MOV
BR
CMP
MOV

001103

MOV

000004

;:SCOPE=]0T

SCOPE

T1S1B

MOV
BR

$ERFLG

CLRB

$SLPERR,SLPADR
$OVER
$ERFLG

181

$PASS

CLR
BR
BIT
BNE

BEQ
INC
CMP
BGE

MOV

$TIMES
1%
#BIT11,3SWR
1%

$ICNT
$TIMES,SICNT
$OVER
#1,81CNT

SWR<7:0>

: ;HAS AN ERROR OCCURRED?

;:BR IF NO
:;MAX. ERRORS FOR THIS TEST OCCURRED?
;:BR IF NO
;:LOOP ON ERROR?
::BR IF NO
::SET LOOP ADDRESS TO LAST SCOPE

;s LERO THE ERROR FLAG
:sCLEAR THE NUMBER OF ITERATIONS TO MAKE
;sESCAPE TO THE NEXT TEST
;s INHIBIT ITERATIONS?
;:BR IF YES
::1F FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
313
;s INCREMENT ITERATION COUNT
;sCHECK THE NUMBER OF ITERATIONS MADE
::BR 1F MORE ITERATION REQUIRED
;sREINITIALIZE THE ITERATION COUNTER

CIZRJJDO, RPO4/5/6 FCINL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52
10495
10496
10497
10498
10499
10500
10501
10502
10503
10504

037024
037032
037036
037042
037046
037052
037060
037066
037072
037074

013737
105237
011637
011637
005037
112737
013777
013716
000002
000004

037074

001102
001106
001110
001214
000001
001102
001106

MACYT1
001212

001115
142054

30A(1052)

25-mAY=-79

SCOPE HANDLER ROUTINE

MOV

$SVLAD:

INCB
MOV
MOV
CLR

SOVER:

MOV
MOV

SMXCNT:

MOVB

RTI

10:48

LI
PAGE 220

SEQ 0219

;sSET NUMBER OF ITERATIONS TO DO
;s COUNT TEST NUMBERS
;sSAVE SCOPE LOOP ADDRESS
;s SAVE ERROR LOOP ADDRESS
;:CLEAR THE ESCAPE FROM ERRCR ADDRESS
#1,8ERMAX
::;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
$TSTNM,aDISPLAY ;sDISPLAY TEST NUMBER
$SLPADR, (SP)
;;FUDGE RETURN ADDRESS
;sFIXES PS
SMXCNT,STIMES

$TSTNM
(SP) ,SLPADR
(SP) ,SLPERR
SESCAPE

;:MAX.

NUMBER OF

ITERATIONS

CIRJJDO, RPO4/5/6 FCTNL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

N1
MACY11 30A(1052)
25-MAY-79 10:48 PAGE 221
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
.SBTTL

SEQ 0220

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

.""""""""'."""'.'"'.""".".t'.""".fi'."'.""

'THlS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE I1T. 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.

s*CALL:
* %

$TYPDS:

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
037226
037230
037232
037234
037236
037240
037242
037250
037252
037254
037256

MOV
TYPDS

NUM,
= (SP)

;;PUT THE BINARY NUMBER ON THE STACK
;:60 TO THE ROUTINE

MOov

RO,=(SP)

::PUSH RO ON STACK

MOV
MOV
MOV
MOV

R2,=(SP)
R3,-(SP)
RS,=(SP)
#20200,-(SP)

BPL
NEG
MovB
CLR
MOV
MOVB
CLR
MOV
SUB
BLT
INC
BR
ADD

1%
RS
#'-,1(5P)
RO
#$DBLK,R3
#' L(R3)+
R2
$DTBL (RO) ,R1
R1,RS
4%

:;PUSH R2 ON STACK
;::PUSH R3 ON STACK
::PUSH RS ON STACK
::SET BLANK SWITCH AND SIGN
::GET THE INPUT NUMBER
::BR IF INPUT IS POS.

BNE

MOV

020200
000020
000055

MOV

000001

037312
000040

1%:

2%:

037302

3%:

5%:

000001
000060
000040

177777

7%:

8%:
177777

012002

177776

:
9%

20(SP)
RS

R2
3%

181

R1,RS
R2

1S1B

(SP)

BMI

BCC
MOVB
BIS
BIS
MOVB

6%
1(SP),=1(R3)
#'0,R2
¥ LR2
R2,(R3)+

CMP
BLT
BGT
MOV
BR

RO,#10
2%
8%
RS,R2
6%

BPL
MOVB
CLRB
MOV
MOV
MOV

9%
=1(SP),=2(R3)
(R3)
(SP)+ RS
(SP)+,R3
(SP)+ ,R2

ASLB

181

000010

R1,=(SP)

1S1B

(SP)

(RO)+

(SP)+

::;PUSH R1

ON STACK

::MAKE THE BINARY NUMBER POS.
;sMAKE THE ASCI] NUMBER NEG.

;:IERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER
::SET THE FIRST CHARACTER TO A BLANK
;:CLEAR THE BCD NUMBER
;sGET THE CONSTANT
;;FORM THIS BCD DIGIT
::BR IF DONE
:: INCREASE THE BCD DIGIT By 1

::ADD BACK THE CONSTANT

;:CHECK 1F BCD DIGIT=0

::FALL THROUGH IF 0
;:STILL 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

::PUT THIS CHARACTER IN THE OUTPUT BUFFER

::JUST INCREMENTING
;s CHECK THE TABLE INDEX
::G0 DO THE NEXT DIGIT
::60 TO EXIT
::GET THE LSD
;.60 CHANGE TO ASCI!I
::WAS THE LSD THE FIRST NON-ZERO”
;:BR IF NO
;3 VES==SET THE SIGN FOR TYPING

::SET THE TERMINATOR

::POP STACK
::POP STACK
::POP STACK

INTO RS
INTO R3
INTO R2

caipye.

CIRJJIDO, RPO4L/S5/6 FCINL CTRLR2
CIRJJD.PY
28-FPAR-79 08:52
10561
10562

10563
10564
10565

10566
10567
10568
10569
10570
10571

MACY11

012601
012600
104401

016666
012616
000002

7236420
001750
000144
000012
000004

000002

000004

——

10:48 PAGE 222
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

30A(1052)

25-MAY-T79

MOv
MOV
TYPE
MOV
MOV
R11

10000.
1000.
100.
10.
.BLKW

SEQ 0221

R
(SP)+
(SP)+,RO

;:POP STACK INTO R1
;:POP STACK INTO RO

2(SP),4(SP)

;sADJUST THE STACK

(SP)+. (SP)

;sNOW TYPE

THE NUMBER

;;RETURN TO USER

CZRJJDO, RPO4/5/6 FCTINL CTRLR2 MACY11 30A(1052) 25-MAY=79 10:48 C PA%E 223

CZRJJD.PN
10572
10573
10574
10575
10576
10577
10578
10579
10580
10581
10582
10583
10584
10585
10586
10587
10588
10589
10590

10591

S W
- OV NOWVEWN=O

SEES |FEEELEERRER
T
A
S
e e R

d
e
e
e
e
e
e
e
e
e
—a —
S
—

OO0

10592
10593
10594
10595
10596
10597
10598
10599
10600
10601
10602
10603
10604
10605

10625
10626
10627

28-MAR-79 08:52

TYPE

ROUTINE

.SBTTL

TYPE ROUTINE

AAAAA

AR AR AR A

SEQ 0222

R iR

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
;*NOTE1:
;*NOTE2:

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

;*NOTE3:
. ¥

s*CALL:

:*1) USING A TRAP INSTRUCTION

.
;*0OR

TYPE

o
A

TYPE
MESADR

$TYPE:

T1STB
BPL
HALT

+MESADR

: ;MESADR

$TPFLG
%

;:1S THERE A TERMINAL?

FIRST

ADDRESS OF

AN ASCIZ

STRING

037322
037326
037330
037332
037334
037336
037342
037344
037346
037350
037352
037356
037360
037364
037366
037372
037374
037376
037400
037402
037406
037410
037414
037420
037422

037426
037432
037434
037440
037444

105737
100002
000000

000407
010046
017600
112046

001005
005726
012600
062716
000002
122716

001430
122716
001006
005726
104401
001223

001157

000002

000002
000011

4%:

000200

123726

037472
001156

105366

BR
MOV

MOV

MOVB
BNE
1ST

MOV
ADD

RTI

CMPB
BEQ
CMPB
BNE
1ST
TYPE

037536

001350
013746

2%:
60%:
3%:

105037

000755
004737

1%:

5%:
6%

001154

$CRLF
CLRB
BR
JSR
CMPB
BNE

MOV

7%:

000001

037472
037536

DECB
BLT
JSR
DECB
BR

RO,=(SP)

@2(SP) RO

(RO)+,=(SP)
6%
(SP)+
(SP)+,RO
#2,(SP)
#HT, (SP)

;:BR

YES

ssHALT HERE IF NO TERMINAL
;s LEAVE

;:SAVE RO

;:GET ADDRESS OF ASCIZ STRING
;sPUSH CHARACTER TO BE TYPED ONTO STACK
s:BR IF IT ISN'T THE TERMINATOR
1F TERMINATOR POP 1T OFF THE STACK
;s

;s sRESTORE RO
;sADJUST RETURN PC

;sRETURN

;;BRANCH IF <HT>

#CRLF, (SP)

: ;BRANCH IF NOT <CRLF>

(SP)+

<CR><LF> EQUIvV
::POP
ssTYPE A CR AND LF

$SCHARCNT

;sCLEAR CHARACTER COUNT
::GET NEXT CHARACTER
;.60 TYPE THIS CHARACTER
331S 1T TIME FOR FILLER CHARS.?
;:1F NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED
:AND THE NULL CHAR.
;sDOES A NULL NEED TO BE TYPED?
;:BR IF NO=--GO POP THE NULL OFF OF
::G0 TYPE A NULL
::D0 NOT COUNT AS A COUNT
;. LO0P

PC,STYPEC
SFILLC,(SP)+

$NULL ,=(SP)
1(SP)

PC,$TYPEC

SCHARCNT
7%

JHORIZONTAL TAB PROCESSOR
037446
037452
037456
037464
037466

000040
037472

000007

8%:

037536

MOVB
JSR

BITB
BNE
187

Fe o _1(59)

PC,STYPEC
#7,8CHARCNT
9%
(SP)+

s sREPLACE TAB WITH SPACE
s TYPE A SPACE
;sBRANCH IF NOT AT

;:TAB STOP

;sPOP SPACE OFF STACK

STACK

CIRJJDO, RPO4/5/6 FCINL CTRLR 2
CZRJJD.P1I
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
105777
100375

116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

MACY11 30A(1052)
25-MAY-79
TYPE ROUTINE

141452

000002
000015

$TYPEC:

141444

000002

037536
000012

000002

BR
TSTB
BPL

MOvB
(MPB
BNE
CLRB
BR
1%:
(MPB
BEQ
INCB
$CHARCNT: .WORD
$TYPEX: RTS

10:48

2%
a$TPS
$TYPEC
2(SP) ,a$TPB
#CR,2(SP)
1%
$CHARCNT
$TYPEX
WLF,2(SP)
$TYPEX
(PC)+
0
PC

2
PAGE 2264
;sGET NEXT CHARACTER
;:WAIT UNTIL PRINTER IS READY

:;LOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
; ;BRANCH IF NO
;s YES==CLEAR CHARACTER COUNT
s sEXIT
;:1S CHARACTER A LINE FEED?
; ;BRANCH IF YES
; ; COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

SEQ 0223

CZRJJIDO, RPO4/5/6 FCINL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52
10642
10643
10644
10645
10646

10647
10648

10649
10650
10651
10652
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

MACY11

30A(1052)
TTY

25<MAY=79

10:48

PAGE 225

INPUT ROUTINE

.SBTTL

TTY

SEQ 0224

INPUT ROUTINE

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

037542
037544
037546
037550

.ENABL
LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKQCUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.
.EVEN

000000
000000
000000
000011
037561
037562

0
0
0
9.

: :NUMBER OF ITEMS IN QUEUE
:: INPUT POINTER
:;OUTPUT POINTER

;:TTY KEYBOARD QUEUVE

;*TK INITIALIZE ROUTINE

;*THIS ROUTINE WILL

INITIALIZE

THE

TTY

KEYBOARD

INPUT

QUEUE

;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

S*CALL:
e
.

03756¢
037566
037574
037602
037610
037616
037622
037630

037542
037550
037544
037632
000200
141324
000100

037544
037546
000060
000062

$TKINT:

141314

JSR
RETURN

PC,STKINT

CLR

$TKCNT
#STKQSRT,$TKQIN
$TKQIN,$TKQOUT
#STKS
,a# TKVEC
RV
#200,a#TKVEC+?2
a$TkB
#100,3%7kS
PC

MOV
MOV
MOV
MOV
18T
MOV
RTS

::CLEAR COUNT OF ITEMS IN QUEUE
:;MOVE THE STARTING ADDRESS OF THE
:;QUEUE INTO THE INPUT & OUTPUT POINTERS.
s INITIALIZE THE KEYBOARD VECTOR

::"'BR"" LEVEL 4

;s CLEAR PONE FLAG
s ENABLE TTY KEYBOARD INTERRUPT

;sRETURN TO CALLER

;*TK SERVICE ROUTINE
;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;*IT IN THE QUEUE.

;*1F THE CHARACTER IS A ''CONTROL=-C'' (*C) STKINT IS CALLED AND
:*UPON RETURN EXIT IS MADE TO THE ''CONTROL-C'' RESTART ADDRESS (OPERSCL)
037632
037636
037642
037646
037650
037654
037660
037662
037666
037672
037674
037702

117746

042716
021627
001007
104401

004737
005726
000137
021627
001004
022737
001500

022737
001004
104401

005726
000451
021627
001021

$TKSRV: MOVB

141310
177600

000003
040621
037562

034450
000007

1%:

000176

001140

000011

037542

2%:

001216
000023

BIC
CMP
BNE
TYPE
JSR
187
JMP
cmp
BNE
CMP
BEQ

CmMpP
BNE

TYPE
187

3%:

(MP

BNE

a$TKB,~(SP)
#*C177,(SP)
(SP) ,#3
1%

;sP1CKUP THE CHARACTER
;:STRIP THE JUNK
::1S 1T A CONTROL C?
; ;BRANCH IF NO

PC,STKINT
(SP)+
OPERSEL
(SP) ,#7

;s INIT THE KEYBOARD
;sCLEAN UP STACK
2 sCONTROL C RESTART
;1S 1T A CONTROL G?
; sBRANCH 1F NO
;:1S SOFT=-SWR SELECTED?
;:G0 TO SWR CHANGE

LJSONTLC

#SWREG, SWR

#9. ,8TKONT

+SBELL
(SP)+

5%
(SP),#23

32%

;s TYPE

CONTROL=-C

(*C)

;:1S THE QUEUE FuLL?
; sBRANCH 1F NO
ssRING THE TTY BELL
:;ELE?N CHARACTER OFF OF STACK
s

;:1S 1T A CONTROL=S?
;:BRANCH

CZRJJIDO, RPO4/S/6 FCTINL CTRLR2

CZRJJD.P1N
10698
10699
10700
10701
10702

28-MAR-79 08:52

037732
037736
037740

037744
037746

005077
005726
105777
100375
1177646

10703 037752 042716
10704 037756 022627

10705
10706
10707
10708
10709
10710

10711
10712
10713
10714
10715

0716
10717
10718

}8;;8

037762
037764
037772
037774
040000
040004

001366
012777
000002
005237
021627
002405

MACY11 30A(1052)

TTY INPUT ROUTINE

141206
141200

31%:

141174

177600
000021
000100

141152

037542
000140

32%:

040006
040012
040014
040020

021627
003002
042716
112677

000175

040030
040036
040040
040046

023727
001003
012737
000002

037544

037561

037550

037544

040024

005237

000040
177520
037544

4%:

]072‘

10722
10723
10724
10725
10726
10727
10728
10729

10730
10731
10732
10733
10734

5%:

PAGE 226

CLR
1871
1STB

a%71kKs
(SP)+
a$T1KsS

::DISABLE TTY KEYBOARD INTERRUPTS
:;CLEAN CHAR OFF STACK
::WAIT FOR A CHAR

BIC
CMp

l“tl?? (SP)
(SP)+, #21

::MAKE 1T 7-BIT ASCII
::1S 1T A CONTROL=-Q?

BPL
MOVB
BNE
MOV
RTI
INC
CMP
BLT

CMP
BGT
BIC
MOVB
INC

CMP
BNE
MOV

RTI

218
?%$7kB,~(SP)
31
#100,3%7kS

$TKCNT
(SP) ,#140
4%
(sP),#75
4%
#40, (SP)
(SP)+,3%TKQIN
$TKQIN

;:LOOP UNTIL ITS THERE
;sGET THE CHARACTER

:sBRANCH IF NO
::REENABLE TTY KEYBOARD INTERRUPTS
: sRETURN
::COUNT THIS CHARACTER
::1S 1T UPPER CASE?
: :BRANCH IF YES

;1S 1T A SPECIAL CHAR?
: ;BRANCH IF YES
;ssMAKE IT UPPER CASE
;sAND PUT IT IN QUEUE
::UPDATE THE POINTER

$TKQIN,¥STKQEND ; ;GO OFF THE END?
5%
: ;BRANCH IF NO
#STKQSRT,$TKQIN ;;RESET THE POINTER
: sRETURN

tt""""""'t""t"'tt't't"t'tttt.t'.ttl't't'tt'ttlt"t"t

040050
040056
040060
040064
040066
040072
040076
040102

022737
CO01124
105777
100121
117746
042716
021627
001300

000176

001140

141060

141054
177600
000007

'SOFTHARE SWITCH REGISTER CHANGE ROUTINE.
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
:'SEvaCE THE TEST FOR CHANGE IN SOF TWARE SUITCH REGISTER TRAP
:*CALL WHEN OPERATING IN TTY INTERARuPT MODE.
$SCKSWR: CMP
#SWREG, SWR
::1S THE SOFT=-SWR SELECTED
BNE
15%
;EXIT IF NOT
1S1B
a%TKS
;1S A CHAR WAITING?
BPL
15%
::1F NOT, EXIT

MOVB
BIC
CMP
BNE

10735

10736

a$TKB,~-(SP)
#2C177,(SP)
(SP) ,#7
2%

::YES
::MAKE IT 7-BIT ASCII
;31S IT A CONTROL=-G?
::1F NOT, PUT IT IN THE TTY QUEUE
;sAND EXIT

.tl""t'ttt"tt"tttt"t""t"""'ttttt'tl'!ttt'tl"t!"tt'!

10737
10738
10739

10740 040104

123727 001134 000001

10741
10742
10743
10744
18;45

040112
040114
040116
040122
040126

001674
005726
004737

10747
10748
10749
10750
10751
10752
10753

040134
040140
040144
040150
040152
040156
040160

104401
104401
013746
104402
104401
005046
005046

10746

25-MAY-79

10:48

005077
112737

037562
141016
000001

040633
040640
000176
040651

001135

'CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY lNTERRUPT SERVICE
:*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, ASA RESULT OF A
:*CONTROL=G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.

CMPB

$AUTOB, 1

CLR
MOVB

a$TKS
#1,8INTAG

BEQ
1ST
JSR

TYPE
$GTSWR: TYPE
MOV
TYPOC
TYPE
CLR
19%:
CLR

::ARE WE RUNNING IN AUTO-MODE?

2%
(SP)+
PC,8TKINT

: ;BRANCH IF YES
::CLEAR CONTROL=G OFF STACK
::FLUSH THE TTY INPUT QUEUE
::DISABLE TTY KEYBOARD INTERRUPTS
::SET INTERRUPT MODE INDICATOR

LSCNTLG
LOMSWR
SWREG,=(SP)

;sECHO THE CONTROL=G (*G)
::TYPE CURRENT CONTENTS
::SAVE SWREG FOR TYPEOUT
::60 TYPE=-=OCTAL ASCIICALL DIGITS)
: ;PROMPT FOR NEW SWR
:;CLEAR COUNTER
;s THE NEW SWR

LOMNEW
=-(SP)
-(SP)

SEQ 0225

CZRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRJJD.PIT
28-MAR-79 08:52
10754
10755
10756
10757
10758
10759
10760
10761
10762

10763
10764
10765

10766
10767
10768
10769
10770
10771
10772

10773
10774

10775
10776
10777
10778
10779
10780
10781
10782
10783
10784
10785
10786
10787
10788
10789
10790
10791
10792
10793
10794
10795
10796
10797

10798
10799

10800
10801
10802
10803
10804
10805
10806
10807
10808
10809

MACY11 30A(1052)

25-MAY=-79

10:48

2
PAGE 227

SEQ 0226

TTY

INPUT ROUTINE

7%:

1518
BPL

a%$TKS
7%

; : CHAR THERE?
1F NOT TRY AGAIN
;s

040162
040166

105777
190375

140756

040170
040174

117746

042716

140752
177600

MOvB
BIC

a$TKB,~(SP)
#AC177,(SP)

;sPICK UP (HAR
;sMAKE 1T 7-BIT ASCII

040200
040204
040206
040212
040216
040224
040226
040234

021627
001015
104401
062706
123727
001003
012777
000137

000003

CMP
BNE
TYPE

(SP) ,#3

040240
040244
040246
040252
040256

021627
001005
106401
062706
000737

000025

9%:

040626
000006

20%:

040260
040264
040266
040272
040274
040302
040306
040312
040320
040322
040330
040332
040336
040342
040344
040350
040352
040356
040362
040364

021627
001022
005766
001403
016677
062706
104401
123727
001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616

000015

10%:

040366
040370
040372
040376
040402
040404
040410

000667
104401

000720

040621
000006
001135
000100
034450

000001
1640710

ADD

¥6,SP
M
$INTAG,

;:1S 1T A CONTROL=-C?
: ;BRANCH IF NOT
:3YES, ECHO CONTROL=C (*C)
;s CLEAN UP STACK
:sREENABLE TTY KEYBOARD INTERRUPTS?

MOV

JMP

#100,38TKS
OPERSEL

;s CONTROL=C RESTART

CMP
BNE

(SP) ,#25
109

(MPB
BNE

8%:

000004

TYPE
ADD

000001

000100

140614

CMP
BNE

(SP),#15
16%

MOV
ADD
TYPE

000002
177776

17%:

001222

18%:
.DSABL

+SCRLF

JSR
CMP

PC,8$TYPEC
(SP) ,#60
18%
(SP) ,#67
18%
#60, (SP)+

CMP
BGT
BIC
187
BEQ

000060
000002

2(3P) ,aSwR

#5,5P

#1
$INTAG,
15%

BLY

000067

4 (SP)
11%

(MPB
BNE

MOV
RTI

037472
000060

LSCNTLU

¥6,SP

19%

BEQ

140636

18T

000002
700006
001223
0011325

LSCNTLC

ASL
ASL
ASL
INC

B1S

#100,3%7KS

2(SP)
17%

(SP)
(SP)
(SP)

;1S 1T A CONTROL=-U?
; ;BRANCH IF NOT
;:YES, ECHO CONTROL=-U (*U)
;: IGNORE PREVIOUS INPUT
;sLET'S TRY IT AGAIN
::1S 1T A <CR>»?
: ;BRANCH IF NO
::YES, IS IT THE FIRST (HAR?
; ;BRANCH IF YES
:sSAVE NEW SWR
;sCLEAR UP STACK
:;ECHO <CR> AND <LF>
: ;RE-ENABLE

TTY

KBD

INTERRUPTS?

: BRANCH IF NOT
::RE-ENABLE TTY KBD INTERRUPTS
; sRETURN
;;ECHO CHAR

::CHAR < 0?

;sBRANCH IF YES
::CHAR > 7?7
;;BRANCH IF YES
::STRIP=-CFF ASCII
::1S THIS THE FIRST (HAR
; BRANCH IF YES
::NO, SHIFT PRESENT

2(SP)
=2(SP), (SP)
7%

CHAR OVER TO MAKE
23
ROOM FOR NEW ONE.
i3
;;KEEP COUNT OF CHAR
:sSET IN NEW CHAR
::GET THE NEXT ONE

20%

::SIMULATE CONTROL=U

. SQUES

LSB

;sBRANCH IF NO
:sALLOW TTY KEYBOARD INTERRUPTS

;s TYPE

7<CR><LF>

,"'.t""""""""""""ll""""..'l."..l"..t'.""'."'

;;IHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

seCALL:

——

e d

CZRJJDO, RPO4/S/6 FCINL CTRLR2
28-MAR-79 08:52

CZRJJD.P11

MACY11 30A(1052)
25-MAY=79
TTY INPUT ROUTINE

10810
10811

M
1
-S
:

10812
10813

10814
10815

040412

011646

10817
10818

040422
040426

005066
005046

10820
10821
10822

040434
040436
040436

10824

040444

10816
10819

10823

10825
10826
10827
10828
10829
10830

10831

040414

040430

040442

040450
040456
040462
040470
040472
040500

016666

000004

012746

040436

005737

037542

005337

037542

000002

001775

117766
005237
023727
001003
012737
000002

000004

000002

000004

037550

037546

10832

B
M
o

040502
040504
040510
040514
040516
040520
040522
040526
040530
040534
040536
040542
040546
040552

010346
012703
022703
101405
104410
112613
122713
001003
104401
000763
111337
104401
122723
00i356

10853

040560

104401

10859
10860
10861
10862

10863
10864
10865

4(SP)
-(SP)

::GET READY FOR A CHARACTER
::PUT NEW PS ON STACK

#6498 ,-(SP)

187

$TKCNT

DEC
MOVB
INC
CMP
BNE
MOV

$TKCNT

RTI
R

::THE PS

;:;PUT NEW PC ON

STACK

::POP NEW PC AND PS

;:WAIT ON A CHARACTER

::DECREMENT THE COUNTER
@%$TKQOUT,4(SP)
;;GET ONE CHARACTER
$TKQOUT
;;UPDATE THE POINTER
$TKQOUT ,#STKQEND ;;DID IT GO OFF OF THE END?
2%
: :BRANCH IF NO
#STKQSRT,$TKQOUT ;;RESET THE POINTER
R R

: ;RETURN
A

AR AR

ARl

:*THIS ROUTINE wILL INPUT A STRING FROM THE TTY

10838
10839
10840
10841
10842
10843
10844
10845
10846
10847
10848
10849
10850
10851

10857
10858

::PUSH DOWN THE PC AND

MOV

BFQ

SEQ 0227

(SP),=(SP)

4&(SP),2(SP)

RT1

s«CALL:

10834
10835
}83%?

10854
10855
10856

PAGE 228
::GET A CHARACTER FROM THE QUEUE
:sCHARACTER IS ON THE STACK
;:WITH PARITY BIT STRIPPED OFF

MOV
(LR
CLR

037561

10833

10852

$RDCHR: MOV

2%:

RDCHR
RETURN HERE

64%:
1%:

177072
037546
037546

10:48

040554

040564
040566
040570
040576
040604

040606
040607
040610
040621

040626

040633
040640

105063

012603
011646
016666

012766
000002

000
000
000011
136

052536
136
005015

SRDLIN: MOV
1%:
MOV
2%:
CMP
BLOS
RDCHR
MOVB
10%:
CMPB
BNE
4%:
TYPE
BR
3%:
MOVB
TYPE
CMPB
BNE

040610
040621

000177

001222
040606
040606
000015

CLRB

177777

001224

000004

040610

TYPE

MOV
MOV
MOV

000002

000004

000012
000
000012
020122

MOV
RTI

R3,-(SP)
#STTYIN,R3
#STTYIN+9,.,R3
4%
(SP)+,(R3)
#177,(R3)
3%
,$QUES
1%
(R3),9%
,9%
#15,(R3)+
2%

::INPUT A STRING FROM THE TTY
: ;ADDRESS OF FIRST CHARACUTER WILL BE ON THE STACK
::TERMINATOR WILL BE A BYTE OF ALL 0'S
:;SAVE R3
::GET ADDRESS
;;BUFFER FULL?
;:BR IF YES
::G0 READ ONE CHARACTER FROM THE TTy
::GET CHARACTER
;218 1T A RUBOUT
::SKIP IF NOT
::TYPE A '?'
;:CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER

;s CHECK FOR RETURN
::LO0P IF NOT RETURN

-1(R3)

::CLEAR RETURN (THE 15)

(SP)+,R3
(SP) ,-(SP)
4(SP),2(SP)

::RESTORE R3
::ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCI] CHARACTER ON IT
e

LSLF

#ETTYIN,4(SP)

;sTYPE A LINE FEED

: :RETURN

::STORAGE FOR ASCII1 CHAR, TO TYPE
;s TERMINATOR
:RESERVE 9. BYTES FOR TTY INPUT
: s CONTROL ''C*

BYTE
.BYTE
$TTYIN: .BLKB
SCNTLC: .ASCIZ

O
0
9.
/*C/<15<12>

SCNTLG: .ASCIZ
$MSWR: LASCIZ

/*G/<15<12>
:;CONTROL
<15><12>/SWR = /

9% :

006503
005015
006507
053523

ROLIN
RETURN HERE

SCNTLY: LASCIZ

/*Uu/<15<12>

: :CONTROL 'V
"G

CZRJJDO, RPO&/5/6 FCTINL CTRLRZ
CZRJJD.P
28-MAR-79 08:52
10866
10867

}gggg

040646
040651

040656

020075
040
036440

000
047040

000040

MACY11

30A(1052)

053505

$MNEw:

TTY

INPUT

25-MAY-T79

ROUTINE

LASCIZ

10:48

NEW

PAGE 229

SEQ 0228

;FROM

THE

TTY

:
CIRJJDO, RPO4/5/6 FCINL CTRLR2
CIRJJD.P1]
28-MAR-79 08:52

MACY11 3CA(1052)

10870

.SBTTL

10908
10909

2
PAGE 230

SEQ 0229

TTv

READ AN OCTAL NUMBER FROM THE TTY

':""""'"""""""""'0""""'."".."t'l"."."""'

S*THIS ROUTINE WILL READ AN OCT* » C(ASCII) NUMBER FROM THE TTY AND

10873

10907

10:48

READ AN OCTAL NUMBER FROM THE

10871
10872

10874
10875
10876
10877
10878
10879
10880
10881
10882
10883
10884
10885
10886
10887
10888
10889
10890
10891
10892
10893
10894
10895
10896
10897
10898
10899
10900
10901
10902
10903
10904
10905
10906

25-MAY-79

;*CHANGE 1T TO BINARY.

;*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL

;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A '"?'" WILL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST

;*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.

;*CALL:
i
v

RDOCT
RETURN HERE

;sREAD AN OCTAL NUMBER
;:LOW ORDER BITS ARE ON TOP OF THE STACK
;:sHIGH ORDER BITS ARE IN SHIOCT

MOV
MOV
MOV
MOV
MOV
RDLIN

(SP) ,-(5P)
4(SP),2(SP)
RO,=(SP)
R1,-(SP)
R2,-(SP)

::PROVIDE SPACE FOR THE
;s INPUT NUMBER
;sPUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
:;READ AN ASCIZ LINE
::GET ADDRESS OF 1ST CHARACTER
:sAND SAVE IT
::CLEAR DATA WORD

MOVB
BEQ

(RO)+,=-(SP)
3%

0460662
060664
040672
040674
050676
040700
040702
040704
040710
040712
040714
040716
040720
040724
040726

040732
040734
040736
040740
040742
060744
040746
040750
040754
040756
040760
040762
040766
040772
040774
040776
041000
041002
041004
041006
041010
041012
041016
041020

011646
016666
010046
010146
010246
104411
012600

010037
005001
005002

000004

1%:

041010

2%:

112046
001420
122716

000060

122716

000067

003026
002423
006301
006102
006301
006102
006301
006102
042716
062601
000756
005726
010166
010237
012602
012601
012600
000002
005726
105010
104401

000730
000000

MOV
MOV
CLR
CLR

(SP)+,RO
RO,5%
R1
R2

CMPB
BGT
CMPB
BLT
ASL
ROL

#'0,(SP)
4%
#'7,(SP)
4%
R1
R2

ROL
ASL
ROL

R2
R1
R2

ASL

BIC

177770

000012
041020

3%:

001222

ADD
BR
TS7
MOV
MOV
MOV
MOV
MOV
RT1

#*C7,(SP)

(SP)+,R1
2%
(SP)+
R1,12(SP)
R2,$HI0CT
(SP)+,R?
(SP)+ R1
(SP)+ RO

;:PICKUP THIS CHARACTER
;:1F ZERO GET OUT
: MAKE SURE THIS CHARACTER
;:1S AN OCTAL DIGIT
T
HAL

;.8
;sSTRIP THE ASCII

JUNK

::ADD IN THIS DIGIT
;31 N0P
::CLEAN TERMINATOR FROM STACK
::SAVE THE RESULT

;:POP STACK INTO R2
;:POP STACK INTO R
::POP STACK INTO RO
: :RETURN

(RO)

;sCLEAN PARTIAL FROM STACK
;:SET A TERMINATOR

.WORD

:;.l?l.

IICR.‘

BR
$HIOCT: .WORD

1%
0

::TRY

AGAIN

4%:

104401

000000

000002

$RDOCT:

5%:

181

CLRB
TYPE

TYPE

(SP)+

L SQUES

::TYPE UP THRU THE BAD CHAR,
t

IDLFIO

::HIGH ORDER BITS GO HERE

CZRJJIDO, RPO4/5/6 FCINL CTRLR2
CZRJJD.P11
28-MAR-79 08:52

MACY11 30A(1052)

ERROR HANDLER ROUTINE

10923
10924
10925
10926

.SBTTL

10:48

2
PAGE 231

SEQ 0230

ERROR HANDLER ROUTINE

::""""""'"'""""""""""""l"""'t'.".""'."'

;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

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

25=MAY=T79

;*AND GO TO SERRTYP ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SW15=1
;*SW13=1

HALT ON ERROR

INHIBIT ERROR TYPEOUTS

;*SW10=1
;*SW09=1
s*CALL

041022
041022

041024
041024
041032

041032
041036
041040
041046

041054
041056
01062
041066
041072
041100
041106
0641114
041116
041122
041126
041126
0641132
0641134
041136
041140
041146
041150
041154
041160
061162
041166
041166

$ERROR:

104407

012737

177777

105237
001775
013777
032777
001402
104401
005237
011637
162737
117737
032777
001004
004737
104401

001103

005777

140006

100002
000000
104407

032777
001402
013716
005737
001402
013716
000002

001102
002000

001216
001112
001116
000002
140012

020000

004632

001110
001214
001214

REGSA1:

7%:
140074
140064

3%:
4%:

5%:

AND N=ERROR ]TEM NUMBER

;s TEST FOR CHANGE

IN SOFT-SWR

#-1,a/ERFLGS

;SET ERROR FLAG

INCB
BEQ

$ERFLG
7%
$TSTNM,aDISPLAY
#B1T10,aSwR
1%

;:SET THE SRROR FLAG
::DON'T LET THE FLAG GO TO ZERO
::DISPLAY TEST NUMBER AND ERROR FLAG
::BELL ON ERROR?
::NO = SKIP
;sRING BELL
::COUNT THE NUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION

TYPE
INC
MOV
SUB
MOVB

BNE
JSR

20%:
2%:

s ;ERROR= EMT

MOv

BIT

140024

CKSWR

BIT
BEQ

001116
001114

137772

ERROR

MOV

1%:

041172
001223

001000

REGSAV:

BELL ON ERROR
LOOP ON ERROR

TYPE

,$BELL

SERTTL
(SP) ,$ERRPC
#2,8ERRPC

oSERRPC,S1TEMB
#BIT13,3SWR
20%
PC,SERRTYP

JOCRLF

18T
BPL
HALT
(KSWR

aSWR

BEQ

4%
$LPERR, (SP)
$ESCAPE

BIT

MOV
187

BEQ

MOV
RTI

#B1709,3I"R

5%
SESCAPE, (SP)

;:STRIP AND SAVE THE ERROR ITEM CODE
;:SKIP TYPEOUT IF SET
;s SKIP TYPEOUTS

::60 TO USER ERROR ROUTINE

;sHALT ON ERRCR
::SKIP IF CONTINUE
:sHALT ON ERROR!

::TEST FOR CHANGE IN SOFT-SWR
::LOOP ON ERROR SWITCH SET?
::BR IF NO
::FUDGE RETURN FOR LOOPING
:sCHECK FOR AN ESCAPE ADDRESS
;:BR 1F NONE
::;FUDGE RETURN ADDRESS FOR ESCAPE
; ;RETURN

CIZRJJDO, RPO4/5/6 FCINL CTRLR2
28-MAR-79 08:52
CZRJJD.P1I
10971
10972
10973
10974
10975
10976
10977
10978

2338

10:48

2
PAGE 232

ERROR MESSAGE TYPEOUT ROUTINE

;*THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
IT THEN OBTAINS, FROM THE ''ERROR TABLE'' (SERRTB),
;*ERROR IS TO BE REPORTED.
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
;1T 1S A COPY OF THE SERRTYP SUBROUTINE FROM SYSMAC.
:*WITH ONLY MINOR CHANGES
:+FIRST IF SWITCH 6 1S SET AND SWITCH 8 RESET THEN
:*ALL KEGISTER CONTENTS WILL BE TYPED BEFOR REPORTING THE ERROR
:*SECOND 1F THE CURRENT ERROR WAS THE SAME ITEM NUMBER
:*AS THE PREVIOUS ERROR THEN ONLY THE DATA WILL BE TYPED
:*AND NOT THE ERROR MESSAGE AND HEADER.
041170

000000

061172
041176
041202
041206
041210
041212

017746
042716
022726
001001
000402
000137

137742

177277

042132

041240
041240
0461244

013746

002254

104401

041254

041276
041302

104402

000406
013746

002256

104401

041304

104402

000406
013746

002260

041326
041332

104401
000406

041334

104402

013746

::65%:
64%:

1:67%:

041320
041320
041324

041350
041350

1%:

MOV
BIC
CMP
BNE
BR
JMP

aSWR,=(SP)
#*C500, (SP)
#SW06, (SP)+
1%

;GET SWITCH SETTING
;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 IF SW 8 IS SET
;OR IF SW 8 IS RESET AND SW 6 IS RESET

TYPE
BR

,65%
64%

;s TYPE ASCIZ STRING
:;GET OVER THE ASCIZ

MOV
TYPOC

a#WC,=(SP)

;GET READY TO TYPE RHWC CONTENTS

TYPE

,67%
66%

::TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

MOV
TYPOC

o#BA,-(SP)

;GET READY TO TYPE RHBA CONTENTS

TYPE

,69%
68%

::TYPE ASCIZ STRING
::?EY OVER THE ASCIZ

MOV

aNCs2,-(SP)

;GET READY TO TYPE RHCS2 CONTENTS

TYPE

LASCIZ

1%
70%
<15><12>/RHCST

;s TYPE ASCIZ STRING
;:9E1 OVER THE ASCIZ

MOV

aNCs1,=(SP)

2%
a#TYPERR

2%:

041224

041270
041270
041274

$ERRTYP:

000100

104401
000406

041246
041252

;PREVIOUS ITEM NO. LOCATION

PRITEM: 0

041216
041222

i et b O

N OWVESsWN—=OVB~YOW SRVOOVBNOWVE

ERROR HANDLER ROUTINE

.SBTTL

—
NONOMNMNTVNN
b = e i

=3=3=

ks . il s
s D il et
—
il
D
ks Dl s,
s D il il il D
D D il
D il il
D il il il
D i il il
s
s
i
D
il
it
s
i
— o

25-MAY-79

: ;""'l'"""'l"'""""'""""'l"'.""'.""""'l""l"'

041216
10999

MACY11 30A(1052)

66%:

;:69%:
68%:

BR
.ASCIZ

BR
LASCIZ
TYPOC

::71%:

002262

.ASCIZ

708:

<15><12>/RHWC

<15><12>/RHBA

<15><12>/RHCS2 =

;GET READY TO TYPE RHCS1 CONTENTS

SEQ 0231

C 4 RJJDO, RPO4/S5/6 FCTNL CTRLR2
C l RJJID.P1Y
28-MAR-79 08:52

104402

041356
041362

104401
000406

041364

041400
041400
041404

013746

002304

041406
041412

104401
000406

0461414

041430
0461430

013746

002264

0461436
041442

104401
000406

0461444

041460
041460
041464

013746

002270

104401

0461474

0641434

041466
041472
041510
041510
041514
041516
041522

041540
041540
041544
061546
041552
041570
041570
041574

104402

000406

'07 3%:

104401

041524

013746

002266

10447

041554

104402

00040%

72%:

::75%:

002276

000406

10:48

2
PAGE 233

TYPOC

013746
104402

25=MAY-79

ERROR MESSAGE TYPEOUT ROUTINE

76%:

i 77%:
76%:

::79%:
78%:

,73%
72%

;s TYPE ASCIZ STRING
::?ET OVER THE ASCIZ

aNDs1,-(SP)

;GET READY TO TYPE RHDS1 CONTENTS

,15%

;:TYPE ASCIZ STRING
::9ET OVER THE ASCIZ

MOV
TYPOC

NER1T,-(SP)

;GET READY TO TYPE RHER1 CONTENTS

TYPE

7%
76%
<15><12>/RHER2

::TYPE ASCIZ STRING
::951 OVER THE ASCIZ

MoV
TYPOC

NER2,-(SP)

;GET READY TO TYPE RHER2 CONTENTS

TYPE

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

;s TYPE ASCIZ STRING
::?ET OVER THE ASCIZ

MOV
TYPOC

QNER3,-(SP)

;GET READY TO TYPE RHER3 CONTENTS

TYPE

,81%
80%

::TYPE ASCIZ STRING
::?EY OVER THE ASCIZ

MOV
TYPOC

(SP)
- T,
aNDS

;GET READY TO TYPE RHDST CONTENTS

TYPE

,83%
82%

::TYPE ASCIZ STRING
:;GEY OVER THE ASCIZ

TYPE
BR
<ASCI1Z
MOV
TYPOC

TYPE
BR
.ASCIZ

BR
.ASCIZ

BR
LASCIZ

BR
.ASCIZ

BR
LASCIZ

<15><12>/RHDS1

74%
<15><12>/RHER1

<15><12>/RHDST

<15><12>/RHCA

013746

002274

MOV

a#CA,-(SP)

;GET READY TO TYPE RHCA CONTENTS

104401

041604

TYPE

,85%
84%

::TYPE ASCIZ STRING
:;GET OVER THE ASCIZ

a¥AS,-(SP)

;GET READY TO TYPE RMAS CONTENTS

104402

041576
041602

000406

041620
041620

013746

TYPOC

2 855:

002300

“

¢ N~ NNNNNNY

D
Dl il il

041354

30A(1052)

s
D il
D
s it
D il
s
D il

OO0

1
i
1
1
1

= O
N—=OWw W~ NN

-._._a..a-‘.-c -

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

[=lelelsl"ldlelelelelele
-]

D i

il il

D . el

OCOO00O0O00LOO

D il il i

000

D i el

& mmmmmwmugm???bbbo
KRR
$EEERFERSETIZZT

D i i

D el

(== ocoo
W
S wW
S UHUNCOOVEBNOT
VS WN=O 0 o~

D i

)

D i

1
1
1
1
1
1
1 033
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1i
1
1
1
1
1

MACY11

BR
LASCIZ
MOV

<15><12>/RHAS

SEQ 0232

CZRJJDO, RPO4/5/6 FCTINL CTRLR2
CZRJJID.PI
28-MAR-79 08:52

p——

000406

041656
041662

000406

041700
041700
041704
041706
041712

041634
87%:

002272

104401

;:89%:

013746

‘002302

104401

061714

104402

000406

002320

041736
041742

104401
000406

041744

0461760
041760
061764

013746

002316

104401

061774

104402

65:

104402

000406

::93%:

013746

002312

042016
042022

104401
000406

042024

042040
042040
042044

013746

002314

042046
042052

104401
000406

042054

013746

002306

104402

G2$:

::95%:

042010
042010
042014

042070

88%:

;:918:

013746

042070

65:

041664

041730
041730
041734

041766
041772

,87%
86%

;:TYPE ASCIZ STRING
;;GET OVER THE ASCIZ

MOV
TYPOC

a#0F ,-(SP)

;GET READY TO TYPE RHOF CONTENTS

TYPE

,89%
88%

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

MOV
TYPOC

- (SP)
9/MR,

;GET READY TO TYPE RHMR CONTENTS

TYPE

,91%
90%

::TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

MOV
TYPOC

afLA,-(SP)

;GET READY TO TYPE RHLA CONTENTS

TYPE

,93%
92%

::TYPE ASCIZ STRING
:jGEl OVER THE ASCIZ

MOv
TYPOC

anCC,-(SP)

;GET READY TO TYPE RHCC CONTENTS

TYPE

,95%
94%

;s TYPE ASCIZ STRING
::921 OVER THE ASCIZ

TYPE

Bk
LASCIZ

<15><12>/RHOF

[«

013746
104402

SEQ 0233

TYPOC

104401

041650
041650
041654

PAGE 234

94%:

::97%:
96%:

::99%:
98%:

BR
.ASCIZ

LASCIZ

BR
.ASCIZ

<15><12>/RHMR

<15><12>/RHLA

<15><12>/RHCC

<15><12>/RHECT

MOV
TYPOC

INECT,-(SP)

;:GET READY TO TYPE RHEC1 CONTENTS

TYPE

L97%
96%

::TYPE ASCIZ STRING
::?EY OVER THE ASCIZ

MOV
TYPOC

ANEC2,-(SP)

;GET READY TO TYPE RMEC2 CONTENTS

TYPE

,99%
98%

;:TYPE ASCIZ STRING
:;GE! OVER THE ASCIZ

MOV

a#DT1,-(SP)

BR
LASCIZ

LASCI1Z

<15><12>/RHEC2 =

<15><12>/RHDT

;GET READY TO TYPE RMDT CONTENTS

041626
041632

\nknunxnu-uuvrunahahn\uuhunuho-—h—-—-a-‘—d-—nfl<>c>cnaszsg
uwgmruw-‘ooowo\nbuvp—-ooo~omruwdooawo

097

104402

10:48

094

041624

25-MAY-79

ERROR MESSAGE TYPEOUT ROUTINE

Nell

11083

MACY11 30A(1052)

——

—

CZRJJIDO, n04/5/6 FCINL CTRLR 2

CIRJJD.P1T
11139

11140
11141
11142

11143
11144
11145
11146
}}}:g

}“gg
11151

11152

11153
11154
11155
11156
11157
11158
11159
11160
11161
11162
11163
11164
11165
11166
11167
11168

11169

11170
11171

11172
11173
11174
11175
11176
11177
11178
11179
11180

11181

28-MAR-79 78B:52

0462074
042076

104401

042104

042120
042120
042124

013746
104402

002310

042126

005037

041170

104401

001223

042136
042140
042142
042146

010046
005000
153700
001004

042150

013746

042154
042156
042160
042162
042164
042166
062170
042174
042200
042202
042204
042206

104402
000454
005300
006300
006300
006300
062700
020037
001002

042212
042216
062220
042222
042224
042230
042234
042236
042240

042242

012037
001404
104401
000000
104401
012037
001404
104401
000000

104401

11182
11183
11184

042246
042250
042252

010146
012001
001415

11187

042260

001003

11185
11186
11188
11189

11190
11191

11192
11133
11194

042254
042256
042262
042264

042266
042270

042270
042272
042274

012000
105720

TYPE

BR
::1018: ASCIZ
100%:
MOV
TYPOC

CLR
TYPERR:

001114

001116

1%:

001226
041170

013146
104405
005711

S—

3
PAGE 235

TYPE

041170

042222

001223
042240

001223

13%:

2%:
3%:

4%:
5%:

6%:

8%:

;3 TYPE ASCIZ STRING

a#SN,-(SP)

;GET READY TO TYPE RHSN CONTENTS

A¥PRITEM

;CLEAR PREVIOUS ERROR ITEM

LSCRLF

:""CARRIAGE RETURN'' & "'LINE FEED'

RO,-(SP)
RO
a#$1TEMB,RO
1%

MOV

$ERRPC,-(SP)

TYPOC
BR
DEC
ASL
ASL
ASL
ADD
CMP
BNE
BR
MOV

MOV
BEQ
TYPE
.WORD
TYPE
MOV
BEQ
TYPE
.WOKD

TYPE

MOV
MOV
BEQ

MOV
TSTB
BNE

MOV
TYPOC
7%:

L1018

100%
::GET OVER THE ASCIZ
<15><12>/RHSN =
/

MOV
CLR
BISB
BNE

CMP

013146
104402
000402

10:48

ERROR MESSAGE TYPEOUT ROUTINE

022020

000420
010037

25-MAY-79

——

TYPOC

000406

042132

30A(1052)

104402

042102

0642132

MACY1Y

10%
RO
RO
RO
RO
#$ERRTB,RO
RO,a#PRITEM
13%
(RO)+,(RO)+
5%
RO,a#PRITEM

(RO)+,2%
3%

O
,SCRLF
(RO)+,4%
5%

O
LSCRLF
R1,-(SP)
(RO)+,R1
9%
(RO)+,RO
(RO)+
7%
a(R1)+,=-(SP)

MOV
TYPDS
181

a(R1)+,-(SP)
(R1)

:SAVE RO
;PICKUP THE ITEM INDEX

:1F ITEM NUMBER IS ZERO, JUST
:TYPE THE PC OF THE ERROR
:SAVE SERRPC FOR TYPEOUT
:ERROR ADDRESS
;60 TYPE==-OCTAL ASCIICALL DIGITS)
;GET OuT
sADJUST THE INDEX SO THAT IT wiLL
3
WORK FOR THE ERROR TABLE

;FORM TABLE PCINTER
;WAS PREVIOUS ERROR SAME
:BRANCH IF NOT
:POP RO OVER EM AND DH

:SAVE NEW ERROR ITEM

:PICKUP "'ERROR MESSAGE'' POINTER
:SKIP TYPEOUT IF NO POINTER
:TYPE THE ''ERROR MESSAGE''
:""ERROR MESSAGE'' POINTER GOES HERE
:"'CARRIAGE RETURN'' & ""LINE FEED"
:PI1CKUP "'DATA HEADER'' POINTER
;SKIP TYPEOUT 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 @(R1)+ FOR TYPEOUT
:60 TYPE=--OCTAL ASCIICALL DIGITS)
:SAVE @(R1)+ FOR TYPEOUT
:G0 TYPE=-=DECIMAL ASCII! WITH SIGN
;15 THERE ANOTHER NUMBER?

SEQ 023«

CIZRJJDO, RPO4/5/6 FCINL CTRLR2

CZRJJD.P1I

28-MAR-79 08:52

11195
11196

042276
042300

001403

042304

000764

11199

042306

012601

11201
11202
11203

042312
042314

000207
020040
042320

}}}g;

11200

042310

1064407

MACY11 30A(1052)

3
PAGE 236

BEQ

:BR _IF NO

:LOOP

9%:

MoV

(SP)+,R1

;RESTORE R1

11%:

RTS
MASCIT
.EVEN

PC
7

:RETURN
;TW0(2) SPACES

T{PE

10%:

000

10:48

ERROR MESSAGE TYPEOUT ROUTINE

042314

012600

25-MAY-79

MOV

(SP)+,RO

;TYPE TWO(2) SPACES

;"'CARRIAGE RETURN'' & ""LINE FEED"

SEQ 0235

CIR JJDO, RPO4/5/6 FCTINL CTRLR2

CZRJJD.P1I

28-MAR-79 08:52

MACY11 30A(1052)

25-MAY-79

10:48

3
PAGE 237

ERROR MESSAGE TYPEOUT ROUTINE

11204

SEQ 0236

}}%82

.SBTTL

11207

R il

11209

;*OCTAL

11208

BINARY TO OCTAL (ASCII) AND TYPE

;*THIS ROUTINE 1S USED TO CHANGE A 16=BIT BINARY NUMBER TO A 6-DIGIT

“S}(‘)

(ASCII) NUMBER AND TYPE

IT.

MOv
TYPOS

; :NUMBER TO BE TYPED
;:CALL FOR TYPEOUT

:-%lvpos---emen HERE TD SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s

11212
11213

i
:®

11214
11215
11216

*CALL:

A
;e
:

}}%}g

.BYTE
.BYTE

NUM,=(SP)

N
M

* ¥

;:N=1 T0 6 FOR NUMBER OF DIGITS TO TYPE
;sM=1 0R 0
;:1=TYPE LEADING ZEROS

; ;0=SUPPRESS LEADING ZEROS

11219
11220

;*$TYPON-==-=ENTER HERE TN TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC

11222
}}%gz

:®
:®

11221

;*CALL:

MOV
TYPON

NUM, - (SP)

; NUMBER TO BE TYPED
;:CALL FOR TYPEOUT

11225

;*$STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

s*CALL:

11226

11227
}}g%g

:®
ot

11230
11231
11232
11233
11234
11235
11236
11237

042320
042324
042332
042336
042342
042344
042352
042360

017646
116637
112637
062716
000406
112737
112737
112737

11239

042370

010446

11238

11240
11241
11242

042366
042372
062374

042400

010346

010546
113704
005404

11243
11244
11245
11246
11247

042402
0462406
062412
042416
042422

062704
110437
113704
016605
005003

11249
11250
11251
11252
11253
11254
11255
11256
11257

042426
042430
042432
042434
042436
042440
042442
042446
042450

000404
006105
006105
006105
010503
006103
105337
100016
042703

11248

11258
11259

042424

042454
042456

000000
000001
042545
000002

000001
000006
000005

042543
042545
042542

$TYPOS: MOV
MOVB
MOvB
ADD
BR
$TYPOC: MOVB
MOVB
$TYPON: MOVB

MOV
MOV

MOV
MOVB

042545

NEG

000006
042544
042543
000012

006105

001002
005704

042543

MOV
TYPOC

1$:
2%:

042544
177770

3%:

ADD
MOVB
MOVB
Mov
CLR

ROL

BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
BIC

BNE
181

NUM, - (SP)

; :NUMBER TO BE TYPED
;s CALL FOR TYPEOUT

a(SP),=-(SP)
1(SP) ,SOFILL
(SP)+,$0MODE+1
#2,(SP)
$TYPON
#1,80F1LL
#6,$0MODE +1
#5,80CNT

;:P1CKUP 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
: s SAVE R3
: :SAVE R4
;s SAVE RS
;:GET THE

¥6,R4
R4, $OMODE
$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
R5.R3
R3
$OMODE
7%
#177770,R3

::G0 DO MSB
;;FORM THIS DIGIT

R3,-(SP)

R4 ,=(SP)
R&

4%
R4

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

:;ROTATE MSB INTO "'C"

::GET LSB OF THIS DIGIT
;s TYPE THIS DIGIT?
::BR_1F NO
::GET RID OF JUNK
;:TEST FOR 0
: ;SUPPRESS THIS 0?

CZRJJIDO, RPO4L/S5/6 FCTNL CTRLR2
28-MAR-79 08:52
CZRJJD.P1I

OO NNNNNNNN~N~NOTO
= OVONO
VNS W20V

1
1
1
1
1
1
1
1
1
1
1
1
1
1

NN
NN

11260
11261
11262
1 1263
1 264
1 265
1 266
1 267

042460
042462
042464
042470
042474
042500
042504
042510
042512
042514
042516
042520
042522
042524
042526
042534
042536
042540
042561
042542
042543
042564

001403
005204
052703
052703
110337

104401
105337
003347

002402
005204
000744
012605
012604
012603
016666

MACY11

30A(1052)

BINARY TO OCTAL

4%:

000060
000040
042540
042540
042542

5%:
7%:

6%:
000002

(ASCII)

3
PAGE 238

AND TYPE

5%
R4
#'0,R3
0 R3

;:BR IF YES
;;DON'T SUPPRESS ANYMORE 0'S
; sMAKE THIS DIGIT ASCII
;sMAKE ASCII IF NOT ALREADY

INC
BR
MOV

R&
2%
(SP)+,R5

;s INSURE LAST DIGIT ISN'T A BLANK
;:60 DO THE LAST DIGIT
; ;RESTORE R5

{SP)+,R3

;;RESTORE R3

MOVB
TYPE
DECB
BGT
BLT

MOV

Mov
MOV

$OCNT:
$OFILL:
$OMODE:

10:48

BEQ
INC
BIS
BIS

MOV

000004

8%:

000000

25-MAY-79

RT1

.BYTE
.BYTE
.BYTE

.BYTE
.WORD

R3,8%
,8%
$OCNT
2%
6%

(SP)+,R4

2(SP) ,4(SP)
(SP)+,(SP)

0
0
O
0
0

;s SAVE FOR TYPING
;:60 TYPE THIS DIGIT
;s COUNT BY 1
;:BR IF MORE TO DO
::BR IF DONE

; sRESTORE R4

;:SET THE STACK FOR RETURNING
: :RETURN

;s STORAGE FOR ASCII DIGIT
;; TERMINATOR FOR TYPE ROUTINE
;;OCTAL DIGIT COUNTER
;;ZERO FILL SWITCH
; NUMBER OF DIGITS TO TYPE

SEQ 0237

CZRJJCO, RPO4/5/6 FCINL CTRLRZ
CZRJJD.P1I
28-MAR-79 08:52

MACY11

30A(1052)

25-MAY-79

.SBTTL

TRAP DECODER

10:48

-3
PAGE 239

SEQ 0238

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

'TM]S ROUTINE WILL PICKUP THE LOWER BYTE OF
;*AND USE

INDEX

THROUGH THE

TRAP TABLE

THE '‘TRAP'" INSTRUCTION

FOR

THE

STARTING ADDRESS

:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;*GO TO THAT ROUTINE.
042546
042550
042554
042556
042560
042562
042566

010046
016 00
40
005
111000
006300
8 1 6g00
00200

$TRAP:

000002

MOV
MOV

RO,=(SP)
2(SP),RO

::SAVE RO
::GET TRAP ADDRESS

MOVB
ASL
MOV

(RO) RO
RO
$TRPAD(RO) ,RO

;:GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
;s INDEX TO TABLE

187

042602

RTS

=-(R0O)

; ;BACKUP BY 2

;.60 TO ROUTINE

=00
W

POPNORO NI NN

NN NN NN NN

NN NN WL W NI N NN
b et b e s ot (=lel=) =jeolelele] o
NO VWS WNN—=00oo~N [« AV YV TV p—y

;:THIS 1S USE TO HANDLE THE "'GETPRI'' MACRO
042570
042572
042600

011646
016666
000002

000004

000002

$TRAP2: MOV
MOV
RTI

.SBTTL

(SP),=(SP)
4(SP),2(SP)

; :MOVE THE PC DOWN
;;MOVE THE PSW DOWN
; ;RESTORE

THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF
;*BY THE "'TRAP'" INSTRUCTION.
;

THE ROUTINES CALLED

ROUT INE

042602
042604
042606

$TRPAD: .WORD

042610
042612
042614

042570
037322
042344
042320
042360
037076

042616

040140

042620
042622
042624
042626
042630

040050
040412
040502
040662
034016

$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS

$TRAP?

;: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 ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

$GTSWR

;. CALL=GTSWR

TRAP+6(104406)

GET SOFT=-SWR SETTING

$CKSWR
SRDOCHR
SROLIN
$RDOCT
WAIT.T

;;CALL=CKSWR
;;CALL=RDCHR
;;CALL=RDLIN
;;CALL=RDOCT
;;CALL=WAT

TRAP+7(104407)
TEST FOR CHANGE IN SOFT=-SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY
TRAP+13(104413) DONT ADD AB'VE THIS TRAP

MACY11

N LN U U

L WU

U U

NN U U

N U U

N NN NN

NN W

NN N

N W

NNOOC OO
OO OWVVIVIVIWVWWVWWVWWVUVDWVEESERESES
DS
ORI W WN NN
NN
= OVENOVEWN=OOVONOWVIWNN
OV NO VNI WN 20OV
NO VS WNN—=0 Yoo No

NN W

NN
o

JJDO, RPO4/5/6 FCTNL CTRLR2
JJD.PN
28-MAR-79 08:52

—
el il il
D il il il - — s — —h - — — —— — il -l — — D ekl D el D D D il il il il il il il D il D el D o
— — il il il il D il il il il — il - —lh . - - — D — il -l — il D il D il D il il i il il il il il il D il D il D il

C
C

30A(1052)
25-MAY-79
10:48
POWER DOWN AND UP ROUTINES
.SBTTL

PAGE 240

POWER DOWN AND UP ROUTINES

':""""""""""""""."""""'.t'."".'.0"""'t"'

042632
042640
042646
042650
042652
042654
042656

012737
$12737
010046
010146
010246
010346
010446

042776
000340

042662
042666
042672
042700
042702

017746
010637
012737
000000
000776

136252
043002
042704

042660

010546

00002%
000026

*PAWER DOWN ROUTINE

$PWKDN: MOV
MOV
MOV
MOV
MOV
MOv
MOV
MOv

MOv
MOov
MOV
HALT
BR

000024

#SILLUP,3#PWRVEC ;;SET FOR FAST UP
#340,3#PWRVEC+2 ;;PRIO:7
RO,=(SP)
;:PUSH RO ON STACK
R1,-(SP)
;;PUSH R1 ON STACK
R2,=(SP)
; ;PUSH R2 ON STACK
R3,=(SP)
::PUSH R3 ON STACK
R4 ,=(SP)
:;PUSH R4 ON STACK
R5,=(SP)

: ;PUSH R5 ON STACK

o g

; ;HANG UP

aSWR, = (5P)
: :PUSH @SWR ON STA(CK
SP,$SAVR6
: :SAVE SP
#SPWRUP ,a#PWRVEC ;;SET UP VECTOR

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

042704
042712
042716
042722
042726
042730
042734
042736

042740
042742
042744
042746
042750
042756
042764
042766
042770
042772
042774
042776
043000
043002
043006
043012

012737
013706
005037
005237
001375
012677
012605
012604

012603
012602
012601
012600
012737
012737
104401
043004
012716
004712
000002
000000
000776
000000
005015
000122

042776
043002
043002
043002

000024

136204
:

042632

000340

:POWER UP ROUTINE
$PWRUP: MOV
#SILLUP,@#PWRVEC ;;SET FOR FAST DOWN
MOV
$SAVR6,SP
::GET SP
CLR
$SAVR6
;:WAIT LOOP FOR THE TTY
1%:
INC
$SAVR6
;:WALIT FOR THE INC
BNE
1%
::0F
WORD
:
MOV
(SP)+,aSWR
::POP STACK INTO aSWR
MOV
(SP)+ RS
;:POP STACK INTO R5
:
MOV
(SP)+,R4
;:POP STACK INTO R4

000024

000026
$PWRMG:
$PWRAD:
$ILLUP:

047520

042527

$SAVR6:
SPOWER:

MOV
MOV
MOV
MOV
MOV
MOV
TYPE
.WORD
MOov
.WORD
RT1
HALT
BR
0
.ASCIZ
=

.EV

(SP)+ ,R3
;:POP STACK INTO R3
(SP)+,R2
;;POP STACK INTO R2
(SP)+,R1
;:POP STACK INTO RI
(SP)+ RO
;;POP STACK INTO RO
.
#SPWRDN ,@#PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340,9#PWRVEC+2 ;;PRIO:7
;REPORT THE POWER FAILURE
$POWER
; ;POWER FAIL MESSAGE POINTER
(PC)+, (SP)
; ;RESTART AT BEGIN
BEGIN
; ;RESTART ADDRESS
=

<15><12>"'POWER"’

:;THE POWER UP SEQUENCE WAS STARTED
;. BEFORE THE POWER DOWN WAS COMPLETE
;:PUT THE SP HERE

SEQ 0239

CIRJJIDO, RPO4/5/6 FCINL CTRLRZ
CZRJJD.PT
28-MAR-79 08:52

MACY11

il
D
—ld
-l -

A
R

O O

PON)

O
ot =t

- OVENOWVwSWwW

s cd ed et et

95
96

Pl oV S

WwWwN N N LN

Dl — - - —
R

N N

s
P

NN WWN NN

D ks
N

D il el il ol

D i

D s
e —

11372
373
74

622

30A(1052)
25=MAY=79
10:48
POWER DOWN AND UP ROUTINES

PAGE 241

SEQ 0240

;."""'""'""'""""""""""".""'"".."""""".""'

*ERROR AND MESSAGE TABLE CONDIMENTS
.

:.""'"'"""""'""""""""""'.'t'l..""""'l""""""

043014
043022
043030
043036

043043
043050
043056
043064
043072
043100
043106
043114
043122
043130
043132
043140
043146
043154
043162
043170
043176
043204
043212
043213
043220
043226
043234
043242
043250
043256
043264
043272
043300
043306
043314
043322
043324
043332
043340
043346
043354
043362
043370
043376
043404
043412

050122
042111
044440
052522
11

052522
040516
044502
047127
042440
042524
020124
047516
000124
050122
042111
044440
052522
042510
042520
041040
042111
000
105

042524
020124
042523
020124
044440
042440

026440
020105
020060
051517
042504
000114
044122
042517
020124
020122
053117
047111
047440
047514
020107
020061

EM1:

LASCIZ

/RPO4 DID NOT

EM2:

LASCIZ

/INTERRUPT

062040
052117
051105
053440
054105
042105
042040
052105

EM3:

.ASCIZ

/RPO4 DID NOT

050130
020104
044504
020124
044524
020123
051122
052040
047111
044515
041505
044503

041505
044502

EMé&:

.ASCIZ

/EXPECTED BIT DID SET BUT TIME

051501
020123
046103
054502
047111
040440
042516
042101
044122
047506

042040
047516

EMS:

LASCIZ

/RHAS DOES NOT

CLEAR BY MOVING

IN ALL ONES/

EM6:

LASCIZ

/LOADING RHER1

FOR ALL UNITS DID NOT

032060
047040
052116
052120
052116
052120
046102
020124
041040
050130
020104
044504
020124

052117
051105
000
051105
0462440
020105
047504
052125
041505
044502
020104
042523

032060
047040
052116
052120
020116
052103
052111
051440

062040

INTERRUPT/

ENABLE BIT DOWN BUT

EXPECTED BIT DID NOT

SET/

INTERRUPT WHEN EXPECTED BIT DID SET/

IN ERROR - TIME

SET

IN 10 MICROSEC. DECIMA

ANY RHAS BITS/

MACY11

~N~N

C RJJDO, RPOL/5/6 FCINL CTR
C RJJD.PI
28-MAR-79 08:

11449
11450
116451
11452
11453
11454
11455
11456
11457
11458
11459
11460
11461

043603
043610
043616
043624
043632
043640
043646
043654
043662
043670
043676
043704
043710

11462
11463
11464
11465
11466
11467
11468
11469
11470
11471
11472
11473
11474
11475
11476
11477
11478
11479
11480
11481
11482
11483

043716
0463726
043732
0463740
043746
043754
043762
043770
043776
044004
044012
044016
044024
044032
044040
044046
044054
044062
044070
044076
044104
044112

3
PAGE 242

SEQ 0241

047125

127
050123
020105
042522
047127
031123
046125
054514
020105
047040
042116
042523
043101
050123
020105
042522
020054
041501
047113
051504
052517
053101
036514
036526
044527
044520
050040
042105
044440
044514
044122
044123
044040
047507
053104

EM7:

.ASCIZ

/NON EXISTENT REGISTER, PROGRAM ABORTED./

EM10:

.ASCIZ

/STOPPED DRIVE HAS MOL BIT IN RHDS1 SET/

020110
046104
042527
0475064
041510
047510
047117
053101
052111
040440
020122

EM11:

LASCIZ

/WITH SPINDLE POWERED DOWN RHCS2 SHOULD ONLY HAVE UNIT NO: AND IR SET/

020122
046104

EM12:

LASCIZ

/AFTER SPINDLE POWERED UP, NO PACK ACKN. RHDS1 SHOULD HAVE MOL=1, vv=0/

051440
042514
051105
047516
040511
020054
020061
062114
020105
020054
026061

EM13:

LASCIZ

/M1TH SPINDLE POWERED, NO INTIALIZE, RH(S1 w7,
D WAVE GO=0, DvA=1, RDY=

051440

052105
052111
047111
047520
020104
051040
051440
020104
044040
047125
035117
044440
000124
042524
047111
047520
020104
047516
020113
020056
020061

ONO—=OW—=\WN—

043420
043426
043434
043442
043450
043456
043464
043472
043500
043506
043514
043522
043530
043534
043542
043550
043556
043564
043572
043600

D i i i il i i B

1428
429
630
631
632
633
634
635
436
437
638
11439
11440
116441
11442
11443
11644
11645
11446
116447

30A(1052)
25-MAY=79
10:48
POWER DOWN AND UP ROUTINES

062527
050125
050040
041501
044122
044123
044040
047515
053040

11484
11485
11486
11487
11488
11489
11490
11691

044120
044126
044134
044135
044142
044150
044156
064164
044172
044200
044206
044207
044214
044222
044230

VWV
VWV A VAV VYUYV VUV Y VUV VYV Y YV Vo
oo
W
WNIWWRINVI NN NN NV NN NI N = = b b b
b b et
=00 NO VA WNN—=0O00
VGO
N W=D VONOWVSWN

044236
044244
044252
044260
044261
044266
044274

NN WA

044302

044310
044316
044324
044332
044340
044346
044350
044356
044364
044372
044400
044406
044407
044414
044422
044430
044436
044444
044452
044460
044466
044474
044476
044504
044512
044520
044526
044534
044542

044543
044550
044556
044564

MACYT1
.

CZRJJDO, RPO4/5/6 FCTINL C
CZRJJD.P1I
28-MAR-79 0

oo —

——

051040

30A(1052)

25-MAY-79

10:48

POWER DOWN AND UP ROUTINES

3
PAGE 243

SEQ 0242

030475
030075
EM14&:

042502

051105
042116
053517
052440
041503
046125
030075

041501
047113
043504
046515
040503
040440
047522

020113
053517
020105
047101
051525
020116
006522

EM15:

047517
040524
042502
041440
042116
020103
044440
042524
046515

020104
044440
047506
046517
020054
040504
020123
020122
047101

047455
046515
040503
040440
047522

020120
047101
051525
020116
006522

047517
040524
042502
041440
042116
020103
044440
042524
046515

020104
044440
047506
046517
020054

EM17:

053111
040505
046515
040503
040440
047522
047517
040524
051505
046125

EM16:

020104

/AFTER SPINDLE POWERED UP RHCC SHOULD BE=0/

LASCII

/PACK ACKNOWLEDGE COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA 1S BEFORE COMMAND, REC DATA IS AFTER COMMAND/

.ASCI1

/NO-0OP COMMAND CAUSED AN ERROR/<15><12>

.ASCIZ

/GOOD DATA IS BEFORE

LASCI1

/DRIVE CLEAR COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES AFTER COMMAND/

COMMAND, REC DATA IS AFTER COMMAND/

CIRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRJJD.P1N
28-MAR-79 08:52

VBN
= OO0

0446%0
064653
044640
044646
044654
044662
044670
044674
044702
044710
044716
044724
044732
0447640
0447646
044754
044762
044770
044776

042502
020103
043440
040440
041440

020054
040504
053111
052106
046517

042116
122
047111
040515
052501
047101
051117
047507
052101
042526
052517
026105
042040
044507
042522
047117
020123
020122
047101

000
040505
041440
042116
042523
042440
005015
042117
020101
020123
042114
051040
052101
042526
027107
0425264
043101
047503
000104

045002
045010
045016
045026
045032
045040
045046
045054
045055
045062
045070
045076
045104
045112
045120
045126

044122
047503
051524
047111
046515
040527
042440
000
122
041440
052116
044522
046517
053440
020116
000122

051503
052116
042040
020107
047101
020123
051122

020061
047105
051125
047503
020104
047111
051117

1
042110
1
047117
123
02012
043516 6
040515 5
051501 1
051105 5

045160
045166
045170
045176
045204
045212
045220
045226
045234
0452642
0645250

042440
005015
047507
052101
042526
052517
026105
042040
044507
04252¢
051105

051122

0645130
0645136
045144
0645152

047125
041440
042116
042523

PAGE 244

SEQ 0243

0425
0405
0515
0511
0405

026504
046517
041440
020104
051122

.ASCI1

/READ=-IN COMMAND CAUSED AN ERROR/<15><12>

EM20:

.ASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONTENTS AFTER COMMAND/

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/

047514
046517
041440
020104

0642101
04051
0525
0471

EM23:

.ASCI1

/UNLOAD COMMAND CAUSED AN ERROR/<15><12>

042117
020101
020123
042114
051040
052101
042526
044507
041440

0420
0445
0441
0410
041?
02
02 1
05 1
04 1

.ASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REGISTER CONT. AFTER COMMAND/

042040
044507
044123
041040
041505
020101
020123
041440
052116
042524
046515

051

-0
N——wun

il il i
D
s
i
D
s
- —

— o
— — oy D —h - —
s D
i
e

LN W N LV AV LV N LN L
W L i Al AV LV AV LV W AV AV AV LV LV LV IV IV IV IV W IV W LV IV IV IV IV |
VIV IV IV IV IV IV IV O LN IV N
oo
PO
NINNNNYNNNNOTO
O
OO OO VWV
WV N e
VOO OOO®

565
566
9547

044572
044600
044606
044614
044622

NWWN
= NOWND

i i il i il il D oy D il il D il s D il il
-

115640
11561
11562
1543
544

MACY11 30A(1052)
25-MAY=79 10:48
POWER DOWN AND UP ROUTINES

22 8238

SR e

OOOOOOOOOOOOOOOOOOOOOOOOS
=l=l=]
PEEPIEIIIDVWUHRHWUWUHWWWWWWHWNINNNONNNNNN
=
i b b e et s 2 O O O

6
6
6
6
6
6

638
639
640
641
642
643
64k
645
646

—————

o io D

637

647

oy D

CWVESEWNN=00

D oy D e

e e

NS
-

U‘\I‘\S\.fl

~N~N

JJDO, RPO4/5/6 FCTINL CTRLR2
JJD.PIN
28-MAR-79 08:52

i i i s S i i i i i i i D i i o D i i il i i D D i

C
C

—

648
649
650
651

MACY11 30A(1052)
25-MAY-79 10:48
POWER DCWN AND UP ROUTINES

045256
045264
045272

027124
051105
040515

040440
041440
042116

052106
046517
000

045304
045312
045320
045326
045334
045337
045344
045352
0645360
045366
045374
0456402
0456410
0456416
045624
045632
045440

020124
047101
051525
020116
006522
107
040504
053111
047510
042502
020103
043440
051040
047503
043101
047503
000104

047503
020104
0642105
051105
012
047517
040526
051505
046125
020054
040504
053111
043505
052116
042524
046515

046515
040503
040440
047522

045450
0456456
045464
045472
045500
045506
045514

052040
052116
047111
046515
040503
040440
047522

045277

045442

045521
045526
045534

117

042522

043106

052524

SEQ 0244

ASCI1

/OFFSET COMMAND CAUSED AN ERROR/<15><12>

.ASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/

EM25:

LASCI1

/RETURN TO CENTER LINE COMMAND CAUSED AN ERROR/<15><12>

.ASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/

046125
020054
040504
053111
043505
052116
042524
046515

020104
043440
051440

020104
042522
040524
051505
020056
020056
020122
047101

030065

020060

043117

EM26:

.ASCIZ

/500 OFFSET COMMANDS ONE AFTER THE OTHER CAUSED AN ERROR/

051127

052111

020105

EM27:

.ASCI1

/WRITE HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12>

042503
046040
047503
020104
042105
051105
012

0455642
045550
045556
045564
045572
045600
045606
045614
045622

045632
045640
045646
045654
045662
045670
045676
045704
045712

051506
046517
020123
043101
0641264
042510
051525
020116
000122

052105
040515
047117
042524
020105
020122
042105
051105

045722
045730
045736
045744

3
PAGE 245

047122

047517
040524
051505

065714

EM24:

020104
043440
051440
020104
042522
040524
051505
020056
020056
020122
047101

020117
051105
020105
047101
051525
020116
006522

107
040504
053111
047510
042502
020103
043440
051040
047503
043101
047503
000104

045624

042523

042510
040440
052101
051525

042101
042116
020101
042105

041440
042116
020105
020122
052117
040503
040440
047522

051105
042040
040503
044440

C lR
C lR
1 1 2 52
1 1 53
1 1 654
1 1 6 55
1 } 6 56
1 6 57
1 } 658
1 659
1 660

} }661

11662
11663
11664
11665
11666
11667
11668
11669
11670
11671
11672

11673
11674
11675

11676
11677
11678
11679
}1680
1 1682
1 1683
1 1684
1 1685
1 1686
1 1687
1 1688
1 1689
1 1690
1 1691
1 1692
1 1693
1 1694

1 1695
1 1696
1 697
1 1 698
1 1699
1 1700
1 1701
1 1702
1 1703
1 1706
1 1705
1 1706
1 1707

MACY11 30A(1052)
25-MAY=79 10:48
POWER DOWN AND UP ROUTINES

2
2
5
6
,

042520
044507
041440
006505

040
0531
040510
052517
020105
006505
122
042526
0405246
051505
020124
044124
043101
047503
000104

040524
051505
020124
042114
044124
012
041505
020104
043440
053440
040527
051105
042526
046515

043440
053440
044123
041040
051105

052111
042101

020105
051105

045752
045760
045766
045774
046002
046003
046010
046016
046026
046032
046040
046046
046051
046056
046064
046072
046100
046106
046114
046122
046130
046132
046140
046146
046154
046162
046170
046176
046204

040440

052101
047101
051127
051106
043125

042116

020101
042507
052111
046517
042506

044103
020104
020105
041040
000122

046212

042522

042101

044040

046300

047507

042117

046220
046226
046234
046242
046250
046256
046264
046272

050
o
02
052
04 0

051127
042510

040505
047101
040524
042523
051120
051040
042524
047101

046306 052101
046314 042526
046322 052101
046330 046125
046336 052040
046344 005015
046346 042522
066354 042105
046362 020101
046370 020123
046376 053440
046406 042510
046412 052106
046420 046517
046426
-, 000

046427

127

mn3
PAGE 246

SEQ 0245

020104

LASCI1

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

044505
040504
053111
040510
020123
020105
020122
047101

LASCIZ

/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/

EM30:

.ASCIZ

/WRITE HEADER AND DATA CHANGED WRITE FROM BUFFER/

EM31:

_ASCII

/READ HEADER AND DATA CAUSED IMPROPER REGISTER (HANGE/<15><12>

042040

LASCI1

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042503
042040
044507
044127
051501
042522
051105
040515

053} 1
052101
5
042526
052101
052040
040440
041440
042116

LASCIZ

/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/

044522

042524

LASC1Z

/WRITE HEADER DATA FOLLOWED BY READ MEADER AND DATA CAUSED DATA ERROR/

042504
020104
041440
020104
050117
043505
020122
042507

020101
020123
051440
020104
042510

042040

020122
040504
052501
046511
051105
051511
044103
005015

044507
044127
047510
0425 2
042 5 2

EM32:

CZRJJDO, RPO4/S/6 FCTNL CTRLR2

OOV
OOV

~ BB

2OV

YO VB WN

VIV AWV VAN

OO OO

NN NN N N

— i
—
D
el
- — el D

N NN SN SN SN SN SN

el — — ) —
D
il o
D el il

D
—
D il -

kD
— - = — —
sk D il -l
— - —

28-MAR-79 08:52
044040
020122
043040

052101
- OO ==NN=NONNON

046434

046442
046450
046456
046464
046472
046500
046506
0466514
046522
046530
046534
046542
046550
046556
046564
046572
046600
046606
046607
046614
046622
046630
046636

046644

0470¢2
047070
047076
047104
047112
047114

042522

10:48

POWER DOWN AND UP ROUTINES

PAGE 247

SEQ 0246

042504
040524
0647514
054502
020104
051105
0462040
040503
042040
051105

040505
040504
046117
020104
040505
062101
042116
020101
0642105
020101
000122
042101
020101
042105
047522
042522
051105
043516

042040
040503
044440
042520
044507
041440
006505

047517
040524
051505
020124
042114
044124

EM33:

LASCI1

/READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12>

020104
043440
053440
044123
041040
051105

+ASCI1

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

041505
020104
043440
053440
040527
051105
042526
046515

044505
040504
053111
040510
020123
020105
020122
047101

.ASCI1Z

/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/

042101
020101
051122

042040
047111
041505

EM34:

.ASCIZ

/READ DATA INCORRECT/

020105
041440
042116
042523
051120
051040
042524
047101

EM35:

LASCII

/WRITE DATA COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

042040
044507
044127
047510
042502
042522

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

053111

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

012

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

25-MAY-79

)
=

D )
D el

)

NPVNSUWN

OOV

D — il i D
il - - — - e —D
D D —
D il D D D D Dl D

SN SN SN SN N N SN SN N N N SN N N N N SN SN SN N N SN N SN SN SN SN N SN
UWWHWHWHWW NN RN N NN NI N NI NI NI N = b b b b

NO VS WN=OOVONO
WS WN =00 oo

d ot © o

P
D D - D - -l - - D il il il D il il i il el —
SN SN SN SN SN N N N N N ~

CZRJJID.PI

MACY11 30A(1052)

CIZRJJDO, RPO&L/5/6 FCINL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

&
PAGE 248

052101
042526
044507
041440
052116
042524
046515
020105
041440

EM36:

ASCIZ

/WRITE DATA COMMAND CHANGED WRITE FROM BUFFER/

020113
0471
0515
050}
020
052 1
0405
012
020104
043440
053440
044123
041040
051105

EM37:

.ASCI1

LASCI1

/GOOD DATA GiVES WHAT SHOULD BE THERE/<15><12>

047401
0476406
047414
047422
047430
0476436
047444
047452
0476460
047466

107
040504
053111
040510
052517
020105
006505
122
042526
040524
051505
051511
047503
051524
051105
020113
047101

042505
046515
040503
044440
042520
044507
041440
006505
047517
040524
051505
020124
042114
044124
012
041505
020104
043440
051040
042524
052116
040440
051440
047503
000104

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER SEEK COMMAND/

044103
040503
0k4&440
042520
044507
041440
006505

041505
051525
050115
020122
052123
040510
012

.ASCII

/WRITE CHECK CAUSED IMPROPER REGISTER CHANGE/<15><12>

07
08
09
10
11
12

047500
047506
047514
047522
047530
047536
047544

14
15
16
17
18
19

047554
047562
047570
047576
047604
047612

LASCI1

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

UWNN =0V NOWVRWNN=0O
YOO W S UHUN2OO0VO~NO VS

o 00 00 0D 0 Co 00 00 00 0 GO GO 0O Qo G0 00 GB 00 BB 00 ~J N~ ~J N~ N N "N N~y ~ ~ N~ N~~~y ~ N~ N NN N
OO0 COOO YV VOV YO OOV OOV Voo 0o 0o 0o 0o 00 00 00 00 00 ~ ~ ~ ~ ~~

D D i
D il el
S i
D S

D
D

D iy D

D S
D el i
D

D D D il il i e
D el
D D el
D D i i D - il
b —h —lh —h — il s
)

i i i D e S
D i D el D D ol WD i
— o — -l — s, Dl il
—d
Dl
-

042040
044507
042522
051105
042524
043101
047503
000104
052111
040524

047122
047130
047136
0471644
047152
047160
047166
047174
047200
047206

30A('052)
25-MAY-79
10:48
POWER DOWN AND UP ROUTINES

042105
020107
020123
052123
047117
020123
020122
047101
051127
040504

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

117664
11765
1766
767
768
769
70
71
72
73

MACYTT1

047214
047222
047230
047236
047244
047252
047255
047262
047270
047276
047304
047312
047320
047326

047333
047340
047346
047354

047362
047370
047376

047472

047547

046517
041440
042105
042524
020115
051105
123
047503
020104
042105
047522
042522
051105
043516

051127

107

040504
053111
040510
052517
020105
006505

040515
040510
053440
043040
052502
000

042116
043516
044522
047522
043106

044505
040504
053111
043505
020122
047105
052106
042505
046515

052111

020105

047517

020104

040524
051505
020124
042114
044126
012

020113
042105
047522
042522
051105
043516
043440
053440
044123
041040
051105

EM40:

EXK COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

SEQ 0247

———

CZRJJIDO, RPO4/S/6~FCTNL CTRLR2

CZRJJID P11

11820

NN —-=00
NO VNS
VBN = OO0

— i
i

o 0o G Oo Co O OO
NNNNNNO

b — — — — — —
-

o
- i

D
D
i i

il i il

— o
D o

D
i il i
D il il e i

il i
D i

FEERS2R22 mumaaoommoog

D
D

D il i il
D i D il

D il i il il il il oy
D D D D D il D oy

D i
D i

il il i i i
il i il D i

il i
i i

G0 G0 Oo G0 0o 0o O 0o 0o 0o OO 00 oo C° OO 0o 00 0o 0O 00 0O 0O

AL
IVAV. P 2R 2k 2k oF
LRkok ol v, LV IV IV NN
NN
WD RO RO D RO RO RO Y
S HNwOOONOVE W —=OVvoe~No WS WN W 2OV
~NO VI W

821

047615
047622
047630
047636
047644
047652
047660
047666
047674

047701
047706
047714
047722
047730
047736
047744
047752
047760
047766
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

28-MAR-79 08:52

MACY11

122
042526
040524
051505
051511
047503
051524

041505
020104
043440
051040
042524
052116
040440
041440
062116

044505
040504
053111
043505
020122
047105
052106
046517
000

114

061517
047440
044522
020131
020105
041040
020116
042105
047522
042522
051105
043516

0644513
052125
042524
051127
047514
052125
040503
0464440
042520
044507
061440
006505

047517
040524
051505
020124
042114
0464124
012
041505
020104
043440
051040
042524
052116
040440
053440
020123
046040
020104

051105
040515

043516
053440
041040
052111
045503
047524
051525
050115
020122
052123
040510
012
107
040504
053111
040510
052517
020105
006505
122

042526
040524
051505
051511
047503
051524

051105
042524
042522
042513
000124
052101
044524
020117
020105
053440
020123
042105
041440
020104
050117
043505
020122
042507
047507

042524
043516
051127
044527
044522

30A(1052)
25-MAY-79 10:48
POWER DOWN AND UP ROUTINES

PAGE 249

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

LASCII

/LOCKING OUT WRITE BY WRITE LCCK BUTTON CAUSED

020104
043440
053440
044123
041040
051105

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

044505
040504
053111
043505
020122
047105
052106
044522
042527
041517
052517

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRIiTES WERE

LASCII

/ATTEMPTING TO WRITE WITH WRITES LOCKED OUT

LASCII

/GOOD DATA GIVES WHAT SHOULD BE

050115

EM41:

EM&2:

——

SEQ 0248

LASCIZ

IMPROPER REGISTER CHANGE/

CAUSED

THERE/<15><i2>

LOCKED OUT/

IMPROPER REGISTER (HA

CZRJJIDO, RPO4/5/6 FCTNL CTRLR 2

MACY11 30A(1052)

11876
11877
11878
1 879
1 880
} 881

020101
020123
051440
020104
042510

044507
044127
047510
042502

042503
042040
044507

053111
052101
042526

CZRJJD.PI

28-MAR-79 08:52

050304
050312
050320
050326

052101
042526
052101
046125

882
1883
1884
1885
1886

052040
005015
042522
042105
020101
020123
0521

1888
1889
1890
1891

050410
050416
050424
050432

020
020
050
051

1893
1894
1895
1896
1897
1898
1899
1900

050446
050454
050462
050470
050476
050504
050512
050520

020107
053440
020123
042105
041440
042105
020113
005015

044527
044522
047514
047440
040510
042040
040504

050530
050536
050544
050552
050560
050566
050574
050602
050610
050616
050624

052101
042526
052101
047440
045523
051117
052111
044126
042524
042513
006524

020101
020123
053440
020116
041040
020105
020105
053440
046040
020104
012

044507
044127
051501
044504
043105
051127
044527
044522
041517
052517

050634
050642
050646
050654
050662
050670
050676
050704
050712
050720
050726

052124
042105
042522
042105
020101
020123
053440
040505
045503
051105
042524

046505
005015
042503
047040
044507
044127
051501
020104
040440
053440
005015

052120

050770
050776

050
047 105

1892

1901

1
1
1
1

s e
s o o

= OOVBNO
VS W =00~ oWV

i
}

VOOVOVOVOVWIVOOVOVOVOOVOVPVOOVOOOOO0 O

1
1
1
1
1
1
1
1
1
1
1

wwrnorororNN
NNPN ot o

o
il il
WNN—=O 0

1902
1903
1906
1905
1906
1907
1908
1
1
1
1

050402

050440

050522

050627

050732
050740
050746
050754
050762

10:48

POWER DOWN AND UP ROUTINES

050334
050342
050344
050352
050360
050366
050374

1887

25-MAY-79

PAGE 250

SEQ 0249

042522

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE/

_ASCI1

/WRITING WITH WRITES LOCKED OUT CHANGED DISK DATA/<15><12>

042040

LASCI1

/GOOD DATA GIVES WHAT WAS ON DISK BEFORE WRITE WITH WRITE LOCKED OUT/<15

040440

LASCI1

/WAS ATTEMPTED/<15><12>

0531
0521
0425
052101
051040
040502
052106
044522

LASCI1

/RECEIVED DATA GIVES WHAT WAS READ BACK AFTER WRITE/<15><12>

044124
042524
042513
020124
052101

053440
046040
020104
040527
042524

LASCIZ

/WITH WRITE LOCKED OUT WAS ATTEMPTED/

061101

044514

LASCI]

/ENABLING WRITES BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CMANGE/<I

042522

044507

047

051

047507

127

044527
044522
041517
052517
020}%;

042117

051501

042524

0647111

044124
042524
045503
052125
043516
051511
040524

000104

EM43:

EM4G:

;

————————— e

051270
051276
051304
051312
051320
051326
051334
051342
051350
051356
051364
051370
051376
051404
051412
051420
051426
051434
051442
051443
051450
051456
051464
051472

A NN — N

978

051264

105

042105
042524
051124
051105
047440
052123
045503
046131
020122
026440

963
964

30A(1052)

25-MAY-79

10:48

POWER DOWN AND UP ROUTINES

&
PAGE 251

SEQ 0250

OMNESNN
= VO N

MACY11

LASCII

/GOOD DATA GIVES WHAT SHOULD BE

053111
052101
042526
044507
041440
052116
042524
052111
045503
047524

LASC1]

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITE LOCK BUTTON/<15><12>

046102
044522

LASCIZ

/ENABLED WRITES/

LASCII

/TRANSFERRING ON LAST BLOCK = CYLINDER 410. - 814., SECTOR 21, /<15><12>

020113
040503
044440
042520
044507
041440
006505

LASC11

/TRACK 18, CAUSED IMPROPER REGISTER (HANGE/<15><12>

020104
043440
053440
044123
041040

LASCI]

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

—_NO S~

SNV

043516
042524
053440
046040
052502
041440
020104
050117
043505
020122
042507
047507
052101
042526
052101
046125
052040
005015
042522
042105
020101
020123
052123
047117
020123
020122
020105
041040
006516

— it e

—.—.-‘_.—.d-—l-‘dd-—‘_‘d—‘d—.d-‘dddddddddddd-‘—fl-‘-‘d-‘ T

-—l—.d_.—.—.-‘d—.d—.d-‘-‘d-‘-‘-‘-‘—‘-‘-‘d‘ddd—.dd-fl—‘—‘-‘dd D e

D el D o

D D e e D P D e e
VOOV OOOOOO
VOOV OVOVOVOVOVOVOOVPOOVOOOO
S 5~ rw
[ e Mo RV IV IV IV IV IV IV IV IV IV.EF XF 2E 2F 2 >
o
N=O0O VRNV
WN 2OV
NO WV v N=O0

93¢

051004
051012
051020
051026
051034
051042
051050
051056
051064
051072
051100
051104
051112
051120
051126
051134
051142
051150
051152
051160
051166
051174
051202
051210
051216
051224
051232
051240
051246
051251
051256

OO0

CIZRJJDO, RPO4/5/6 FCINL CTRLR2
28-Mr:
79 08:52
CZRJJD.P1I

THERE/<15><12>

042522

043123
043516

EM&S:

040514
047514
061440
042504

027060
032061
041505
030462

——

CIRJJIDO, RPO&L/5/6 FCTNL CTRLR2
28-MAR-79 08:52

(ZRJJD. n

i oy

D i

051500
051506
051511
051516
051524
051532
051540
051546
051554
051562
051570
051576
051604
051612
051620

i
D
i
il
s il
il ey
il
i
i
e
i
iy
- —
—

j=l=l=lolole) [elelelele]e] o0
N PR ——————— o0
OCOVWRNO
VST WN=O O 0o

NN NN L

s il

D il

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
052164
052172

020105
006505
122
062526
0460524
051505
051511
047503
051524
051105
051516
040504
040505
046517
020124
020113
044514
032040
020055
020054
051117
005015
051124
034061
044440
047522
051124
051105
042040
051106
047117
040524
041505
040503
044440
042520
042522
051105
043516
047517
040524
051505
020124
042114
044124
012
122

042526
040524
051505
051511
047503
051524
051105
046505
052040

0464124
012
041505
020104
043440
051040
042524
052116
040440
052040
042506
040524
020104
046040
046102
020055
042116
030061
030470
042523
031040

041501
020054
020116
000122
047101
044522
052101
046517
054105
052116
047524
051525
050115
020122
044507
041440
026105
020104
043440
053440
044123
041040
051105
041505
020104
043440
051040
042524
052116
040440
040440
052120
040522

MACY11

30A(1052)

25-MAY=79

10:48

POWER DOWN AND UP ROUTINES

PAGE 252

SEQ 025!

051105
044505
040504
053111
043505
020122
047105
052106
060522
000122
051040
051106
051501
041517
054503
051105
020056
027064
052103
026061

EM46:

020113
051511
051105

043123
043516
020101
047040
051511
051440
020122
042105
047522
005015
052123
040510
043440
040504
053111
040510
052517
020105
006505

044505
040504
053111
043505
020122

EM47:

LASCIZ

/RECEIVED DATA GIVES REGISTEP CONTENTS AFTER

LASCII

/DATA READ FROM LAST BLOCK = (vi 'NDER &410.

LASCIZ

/TRACK

LASCII

/TRANSFERRING DATA FROM NONEXISTANT

LASCI]

/REGISTER CHANGE, GOOD DATA GIVES WHAT

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED

18,

TRANSFER/

- B814.,

SECTOR 21,/<15><12>

IN ERROR/

SECTOR CAUSED

SHOULD BE

IMPROPER /<15><12>

THERE/<15><12>

TRANSFER/

CIZRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52
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
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

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

042506
051124
051105
043040
047516
052123
042523
041440
020104
042440
005015
047507
052101
0425¢6
052101
046125
052040
005015
040502
040524
051505
020124
047111
042506
042524
047101
000

052423
052430
052436
052444
052452
052460
052466
052474
052502
052510
052514
052522

020107
040507
041516
041440
020104
050117
043505
020122
042507
047507

052530
052536
052544
052552
052560
052562
052570
052576
052604
052612
052620
052626
052634
052642
052650
052656

107

042510

020104
043440
053440
040527
041040
020122
020122
043123
053111
046111
020114
044524
052501
046511
051105

051511
044103
005015
042117
020101
020123
051440
020104
042510

042503
042040
044507
062522
051105
042524
043101
046111
020114
044524
020123

MACYT1

30A(1052)
25-MAY=79
10:48
POWER DOWN AND UP ROUTINES

063123
043516
020115
044530
020124
051117
042523
040524
051117

EM50:

Sty
U S T e

&
PAGE 253

SEQ 0252

LASCII

/TRANSFERRING FROM NONEXISTANT SECTOR CAUSED DATA ERROR/<15><12>

042040
044507
044127
047510
042502
042522

LASCII

/GOOD DATA GIVES WHAT SHOULD BE

040504

LASCIZ

/BAD DATA GIVES WHAT

LASCII

/GIVING JLLEGAL

042040
044507
044127
047510
042502
042522

LASCI]

/GOOD DATA GIVES WHAT SHOULD BE

053111
052101
042526
044507
041440
052116
042524
062514
052506
047117
044507

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER

053111
040510
020123
043125
043101
051124
051105
047111
062514
052506
047117
042523
051120
051040
042524
047101

EMS1:

WAS

THERE/<15><12>

[N BUFFER AFTER

FUNCTION CAUSED

TRANSFER/

IMPROPER REGISTER (HANGE/<15><1/>

THERE/<15><12>

ILLEGAL FUNCTION 1S GIVEN/

042526
051127
040504
020116
044530
020124
051117
042523
051120
051040
042524
047101
047507
052101
042526

VWUV

30A(1052)
25-MAY-79
10:48
POWER DOWN AND UP ROUTINES

020105

EM52:

PAGE 254

SEQ 0253

/WRITE DATA ON NONEXISTANT SECTOR CAUSED IMPROPER REGISTER CHANGE/<15><1

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE DATA/

LASCIZ

/READ HEADER AND DATA AFTER A SEARCH CAUSED DATA ERROR/

046505
020107
047101
064124
046101
042104
041440
020104
050117
043505
020122
042507

LASCII

/ATTEMPTING COMMAND WITH INVALID ADDRESS CAUSED IMPROPER REGISTER CHANGE

042040
044507
044127

LASCII

/GOOD DATA GIVES WHMAT SHOULD BE THERE/<15><12>

062522

042503
042040
044507
042522
051105
042524
043101
052101
042524
052111
040524
040505
042101
042116
0201
020122
051101
052501
040504

053111
052101
042526
044507
041440
052116
042524

052124
047111
046515
044527
053116
040440
051523
0462523

LASCII

042510

051122

VAWV

W~ WN—‘OODNOU‘bUlN-oOOONO\I'l“MN-‘OOONOU‘l‘uN-floOG\IOU‘wa—‘OOONOMJ‘U‘N—'S

VVWAVIVWWOVIWESE DS ESNEIDII P VWHRHWUWRWUWWUWWNNN
NN NVINNNNR) = b b el cd e ot et et 2 O O O OO OO OO

#dflfla—‘d-—.-“d—.d-‘_.-“—.—.d—‘—.-‘dd-‘-‘-‘-fl—‘dd-‘-‘—‘d‘-‘—‘—.-“d-‘-‘-‘—‘fldfldddddd

oDV
NN
NNV VOV

JJ0.PN

MACY11

042524
020104
020105
000
020104
051105
042040

043101
020101
044103
042523
040524
051117

MACY11

OO0

25-MAY=79

10:48

PCWER DOWN AND UP ROUTINES

&
PAGE 255

SEQ 0254

LV I

052101

30A(1052)

EMS5S:

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/

LASCII

/WRITING OR READING WITH EXPECTED ADDRESS OVERFLOW ERROR/<15><12>

051523
043122
051105

047522

052501
046511
051105
051511
044103

042523
051120
051040
042524
047101

LASCII

/CAUSED IMPROPER REGISTER CHANGE/<15><12>

042117
020101
020123
051440
020104
042510

042040
044507

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042503
0462040
044507
042522
051105
042524
043101
050117

053111
052101
042526
044507
041440
052116
042524
051105
000116
051040
044527
020116
052103
042104
047440
047514
047522
044440
042522

.ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/

LASCII

/DATA READ WITH AN EXPECTED ADDRESS OVERFLOW ERROR lSleCORRECT/<lS><12>

012

005015

041516
052103

LASCIZ

E ol ok MV

053362
053370
053376
053404
053406
053414
053422
053430
053436
053444
053452
053460
053466
053474
053502
053510
053516
053524
053532
053540
053546
053554
053562
053565
053572
053600
053606
053614
053622
053626
053634
053642
053650
053656
053664
053672
053674
053702
053710
053716
053724
053732
053740
053746
053754
053762
053770
053776
054004
054012
054020
054026
054034
054042
054050
054056

OO0 O0O0

i
i i
i e e e
N ot ot ot o o o

s e

S e

i i e

i i i i i e

s D i

i i e e

s D i

VO OVOOV OO0V OO
N NN NNNNNNyocoCOCCOCCOCOCTOTOTVVWN
NV
WN =0V
NOWVWSWN =00V NOWVNWN—=OVO~NOW P WOV~

i
D
-

D i T

i
D i
D

D s S

D il

D i

il i

D i

D A

S s

NN ANNNNNNNNNNRONNNNNNNNRNNN
NN
RO NN NN NN N RO NN NN

12156

ONN—=NNOON
=N WNWNWW =N

CZRJJDO, RPO4L/5/6 FCIN L
CZRJJD.F1I
28-MAR-7 9

044127
047510
042502
042522

EM56:

CZRJJIDO
—

uNNNNNNNNNNNNNNNNNNNNNNNNNN ~
wwgwwuwuw-----d.a_-_._._._.
o Vo~
VB WN OOV NOVESNWN OOV NO VIS W ~
~
»

s il

s i

il o

il i

i i

p—

NNVNVNNNRONNNN
NN NN RN NN NN N NN NN NN A ~

&
PAGE 256

MACYT1

047527
027117
020117
044123
041040
042101
042122
033062
031040
047510

042122
030440
033062
052517
020105
020054
047040
020061
033066
046125

047040
052040
020060
062114
042522
047527
020117
047524
051440
006504

LASCII

/WORD NO.

020105
042507
042524
043516
020101
047101
044124
043516
040515
020124
042105
051120
051040
042524
047101

044103
000104
050115
042040
047503
020104
053440
043040
020124
040503
005015
050117
043505
020122
042507

LASCIZ

/BE

LASCII

/ATTEMPTING DATA COMMAND WITH WRONG FORMAT BIT

LASCI]

/IMPROPER REGISTER CHANGE/<15><12>

062117
020101
020123
051440
020104
042510

062040

044507
046127
047510
042502
042522

LASCII

/GOOD DATA GIVES WHAT

042503
042040
044507
042522
051105
042524
043101
052101
042524
040524
051516

053111
052101
062526
044507
041440
052116
042524
042524
020104
052040
042506

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED DATA TRANSFER/

042524
043516
047515
051040
042524
044522
020116
052101
040503
044440

050115

LASCII

/ATTEMPTING TO MODIFY REGISTER DURING AN OPERATION CAUSED IMPROPER/<15><

CZRJJD. P11

12241

RP0O4/5/6 FCTINL CTRLR2

054062
054070
054076
054104
054112
054120
054126
054134
054142
054150
054156
054157
054164
056172
054200
054206
054214
054222
054230
054236
054244
054252
054260
054266
054274
054302
054310
054312
054320
054326
054334
054342
054350
054356
054360
054366
054374
054402
054410
054416
054424
054432
054440
054446
054454
054462
054464
054472
054500
054506
054514
054522
054530
054536
054544
054552

28-MAR-79 08:52

020116
042105

30A(1052)

25-MAY-79

10:48

POWER DOWN AND UP ROUTINES

EMS7:

SEQ 0255

TO 260 SHOULD BE READ, WORD NO 261

TO 266 SHOULD/<15><12>

CHANGED/

SHOULD BE

CAUSED/<15><12>

THERE/<15><12>

CIRJJIDO, RPO4/5/6 FCTNL CTRLR2
CZRJJID.PI
28-MAR-79 08:52

042522

SEQ 0256

051511
044103
020056
042040
044507
044127
047510
042502
042522

LASCI1

/REGISTER CHANGE. GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042503
042040
044507
042522
051105
042524
043101
050117
047511

053111
052101
042526
044507
041440
052116
042524
051105
020116

LASCI1

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION WAS ATTEMPTED/<15

044506

.ASCIZ

/MODFING REG GIVES ADDRESS OF REGISTER BEING MODIFIED WHICH CAUSED ERROR

EM61:

.ASCIZ

/DEVICE NOT AVAILABLE BEFORE COMMAND WAS TO BE GiVEN/

EM63:

LASCIZ

/RHDS1 CONTENTS DURING COMMAND WAS IN ERROR/

EM64:

ASCI1

/RECALIBRATE COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

051505
042522
020106
052123
044505
042117
0201
0201
062}
051

053105
047516
044501
020105
042522

041511
020124
040514
042502
061440

047
020
043
040
051

040503

~N
w~

o
N
o

=2 OO0 O —

042

Ot it )t

051
042
047

052101
042524

020} g
050
012
042 117
0510 0
053111
042104
047440
044507
041040
046440
042511
041511
051525
051122

W - NN
NO VN =W

W
= OO N W
i~
oSO OSSN

122

041440
052116
064522
046517
053440
858};3

PAGE 257

043505
020122
042507
042117
020101
020123
051440
020104
042510

— VNN
b s et et NNW

055073
106
055100 020105
055106 053101
055114 - 046102
055122 047506
055130 046517
055136 053440
020117
053111

006522

pa—y

122
042524
047101
047507
052101
042526
052101
046125
052040
005015
042522
042105
020101
020123
052123
047117
020123
020122
052101
040527
042524
006504
115
043516
043440
040440
051523
042522
051105
043516
043111
044127
040503
042440
000

30A(1052)
25-MAY=79
10:48
POWER DOWN AND UP ROUTINES

042520

o
&
o

047522
012

0545¢7
056574
0564602
054610
0564616
056626
054632
054640
056646
054654
054656
0564664
054672
054700
054706
054714
054722
054730
054736
054744
054752
054760
054763
054770
054776
055004
055012
055020
055026
055034
055042
055050
055056
055064
055072

=l=lelelelelelelelele]

0300000
NO WV
N — OOV
WN = OOV
NOWVSUWNN
=00 ~ OV

N N W
NN
e NN NN NN WO
POPUNUND
b i
s e e e e s et O0O =lelelelele]
AN N

——————

293

054560
054566

AU AW AW LW AN AV AV LV LN A%
AR AW LN LN LW AW LV LV LV LV LN ]
PNOMNOMNOMNINON
= it bt et a

NN NN NN

N=OOVRNOWVIWN=O VOV
W
-

NNQNNNN\.N

270

—

NNNNNNNNNND VNN
NN
NN
NN NNV

12268
12269

MACY11

044440
047522

044514

CIRJJIDO, RPO&L/5/6 FCTNL
CZRJJD.P11
28-MAR-79

OO —=0ONN
O=r NN

WV‘V‘WU‘V‘&UU‘WU‘V‘W
£a
37

— ey

§egEEEF o

el -l — — — —

D e

D il

— — — — —

)

kD - —d — — — —

D e

il e e

D e

) il

NN NN NN RO N NN NN RN N NN N NN
oo NNV
W WNIWNIWINWN W
NN RN NN
NN NN NN NN N RN NN
W
&N P
WA WVVVWAWVWWAU
S S
N~ SNNNNNNNYN oo
0
NV
NN =0O Vo~ owm VT
W
V0o~ OWVESAWN—=O0VN

055240

055720

047101

30A(105¢2)
25-MAY-79 10:48
POWER DOWN AND UP ROUTINES

PAGE 258

[elelelelelels]
AL LN IV IV oy
ONOO —=NO
O Wt it cd \ NV bt
— e NN = NO O
NO WM
N

MACYT1

044440
042520
044507
041440
006505
047517
040524
051505
020124
042114
044124
012
041505
020104
043440
051040
042524
052116
040440
041440
042116
052116
052120
044514

040504
053111
043505
020122
047105
052106
046517
000
051105
043040
043516

040505
047101
040524
040515
051117
020104
052103
062524

042504
020104
041440
042116
044040
042523
047511
052123

020104
043440
053440
044123
061040
051105

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

044505

.ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

EM6S:

.ASCIZ

/INTERRUPT

EM66:

LASCII

/HEADER AND DATA COMMAND FOR HEAD SELECTION TEST/<15><12>

051525
051122

LASCII

/CAUSED ERROR/<15><12>

051504
042526
052101
045503
041040
053440
047105
042522

LASCII

/RHDST GIVES WHAT TRACK WAS BEING WRITTEN OR READ/<15><12>

042101

041440
042504
051440
020122
042101
042504
020104

046131
020122
041505
000060
044040
020122
040504

LASCIZ

/ON CYLINDER O, SECTOR 0/

LASCLI

/READ HEADER AND DATA ERROR IN HEAD SELECTION TEST/<12><15>

EM67:

FAILING/

SEQ 0257

040524
051117
042510
046105
047117
005124

0O
~O 0o NOWVWS W00~

W
(0
o o U oW
0
PN —————————
R R

N ~n
NN NN
Lk 2k
F O SO S S S SR R R R ol
P S O o o o o o o
—
i
o
it
D
e
e
i
WwwwwrnonoNN NN N N
~NOwW S NN
S HUN—=OO0VBNOWn s wn P oV

435

MACY11

30A(1052)

056160
056166
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

042522
040505
047101
040524

PAGE 259

LASCII

/FIRST FOUR WORD NUMBERS ARE HEADER/<12><15>

020104
051105
047524
040440
052101
042122

LASCII

/WORD NUMBERS 5 TO 260 ARE DATA WORDS/<12><15>

.ASCIZ

/1IN DATA WORDS BITS 4,5,6,7,8 GIVE TRACK NUMBER/

042502

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>

043111
041516
042516
006524

042506
020105
052040
012
020104
026461
062526
062504

.ASCII

/DIFFERENCE LINE TEST/<15><12>

LASCII

/WORD NOS 1-4 GIVE HEADER/<15><12>

020104
026465
044507
052101
041511

.ASCIZ

/WORD NOS 5-260 GIVE DATA WHICH IS THE CYLINDER ADDRESS/

LASCLI

/FORCING OP1 BY 3 INDEX PULSES/<15><12>

051117
020123
044507
040505
012

051117
020123
020060
042040
044127
051511
041440
042504
051104
020107

10:48

042440

043040
047527

056033
056040
056046
056054
056062
056070
056076
056101
056106
056114. C
056122
056130
056136
056144
056152 046525

25-MAY-79

POWER DOWN AND UP ROUTINES

106

o o U o o o o o o0 0 O
VOOV O OOVOO0 & B

CZRJJDO . RPO4&/ 5/6 FCINL CTRLR2
P N
CZRJJID.PI
28-MAR-79 08:52

041522
050117

EM70:

EM71:

SEQ 0258

12488
12489
12490
12491

NN C

~N
W

Nt
Wt

VAW

10:48

POWER DOWN AND UP ROUTINES

042503
042040
044507
042522
051105
042524
0431C1
020063

042524

25-MAY-79

EM72:

PAGE 260

SEQ 0259

+ASCI1

/CAUSED IMPROPER REGISTER CHANGE/<15><12>

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER 3 INDEX PULSES/

LASCII

/THERE WAS A SETUP ERROR DURING MULTIPLE WRITE/<15><12>

LASCII

/HEADER AND DATA COMMANDS'RESULTING IN ANABORT/<15><12>
v

LASCII

JOF THIS 'OP1' TEST./<15><12><15>¢<12>

LASCIZ

/10 TROUBLE. SHOOT SETUP ERROR, LOOP ON THIS TEST/

)

12487

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

30A(1052)

042523
051120
051040
042524
047101

=N
ON =N

12466
12467
12468
12469
12470
1247
12472
12473
12474
12475
12476
12477
12478
12479
12480
12481
12482
12483
12484
12485
12486

056606
056614
056622

NO=—=O—=0+ww0O

12647
12448
12449
12450
12451
12452
12453
12454
12455
126456
12457
12458
12459
12460
12461
12462
12463
12464
12465

056425
056432
056440
098646
(“a&56
Ove4b2
056466
056474
056502
056510
056516
056524
056532
056534
056542
056550
056556
056564
056572
056600

044440
050040
006523

NO =000 =ON—==NNOO
N—=O WV
aa Or = S SN

12446

056402
056410
056416
056424

12436
12437
12438
12439
12440
12441
12442
12443
12444
126445

MACY11

NOSs

CZRJJIDO . RPO&/ 5/6 FCTINL
CZRJJID.P1I
28-MAR-79

W
NV
NN —-=O VNV

057464

020104
051105
042040
047506
033071
062122

EM73:

25-MAY=79

10:48

POWER DOWN AND UP ROUTINES

5
PAGE 26!

SEQ 0260

LASCII

/READ HLADER AND DATA FOR 11960 WORDS /<15><12>

044440
051440
051522

LASCII

/THAT

1S 46 SELTORS /<15><12>

02012¢
042526
047111
052520
041440
020104
051122

LASCIZ

/THAT

1S OVER 3 INDEX PULSES CAUSED AN ERROR/

LASCII

/READ HEADER AND DATA FOR

11960 WORDS /<15><12>

044440
051440
051522
052101
053117
044440
006440

LASCI1

/THAT

IS OVER 3 INDEX /<15><12>

046125
040503
047440
020117

042523
051525
044520
042523

LASCIZ

/PULSES CAUSED OP1

047522
040515
051104
044527
052117
051525

051107

.ASCI1Z

040505
0462101
042116
020101
030461
047527
005015
052101
033064
047524
012
040510
047440
020063
020130
051505
042523
042440
000
040505
042101
042116
020101
030461
047527
005015
052101
033064
047524
044124
020123
031440
054105

020104
051105
042040
047506
033071
042122

046102

053111
046114
041040
042105

EM74:

1S 46 SECTORS,

THAT

TO SET/

Al ALl
LV LV LV LV LV IV IV LV IV IV ] A
s b
o COO00O
W
=0V
NO VW
—-O O co~NOoO

b =

AV LV LN LV T

N PN NN NI NI NOTU N

W LW LN LW RN il
RN

NN NN NI NI
WA

(S RV RN LW W

D i

il i

D i

D el

D i

D el

D i

D A

oo NNDNDNDNDNDNNNNNDNNDN
RN
NN NN NN NN O N

062510
040440
052101
020122
020060
020123
044124
020127
041505
006440

30A(1052)

122

12492
12493
12494
12495
12496
12497
12498

MACY11

e
-~

CIZRJJIDO, RPO&L/5/6 FCTNL CTRLR2
CZRJJID.PT
28-MAR-79 08:52

:
NOUSE

PROGRAMMABLE-DRIVE WILL NOT

USED/

JJDO, RPO4/5/6 FCTNL CTRLR2
JJD.P11
28-MAR-79 08:52

2538
539
25640
541
5642
563
564
565
566
54«7
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
2565
2566
2567
568
569
2570
2571

057626
057634
057642
057650
057656
057664
057672
057700
057706
057707
057714
057722
057730
057736

2575

057737

585

060026

576
577
578
579
580
581
582
583
584

586
587
588
589
590
591
592
593

057465
057472
057500
057506
057514
057522
057530
057531
057536
057544
057545
057552
057560
057566
0575764
057602
057610
057616
057624

106
042440
026440
042040
047105
052123
012
040
103777
377
126
047117
042514
042040
020105
047507
043106
020054
005015
051047
026047
046517
053101
046102
020122
052123
041040
012
127
041440
020124
042514
000

MACY11

30A(1052)
25-MAY-79
10:48
POWER DOWN AND UP ROUTINES

052101
051122
051440
041517
020124
047111

046101
051117
042505
046525
044514
006507

CPHALT:

005015
177777

5
PAGE 262

SEQ 0261

.ASCI!

/FATAL ERROR - SEE 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
044514
047514

041440
046117
051117
041511
020123
047440
042516
052123

LASCI1

/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>

044510
047101
042502
051101

044103
047516
041440
042105

LASCIZ

/WHICH CANNOT BE CLEARED/

120

020103

020040

LASCIT

/PC

TEST

WAILT

BIT

REG

020040

JASCIZ

EXPCTD

ADDRESS CONTENT CONTENT

057744
057752
057760
057766
057774
060002
060010
060016
060024

020040
020124
044501
041040
020040
020040
043505
051040
005015

060034
060042
060050
060056
060064
060072
060100
060106

020040
020040
020040
054105
020040
051505
052116
047503

052040
020040
020124
052111
051040
020040
020040
041510

047516
020040
020040
041520
042101
020123
047105
052116

051505
053440
020040
020040
043505
051040
020040
030523

020040
041520
020040
042124
051104
047503
020124
047105

DH1:

REG

RHCS1/<15><12>

—————

—
~nN rnoro P
b e
e it e
wL
OVRNO
WV W ~N

o oo ococoocococoo o

N NN

i o

041520
020040
020040
046111
047503
020124

&~ ==~
o O=roo

060536
060544
060552
060560
060566
060574

000123

000
103

O—=NNOONNO
o O—==00

004524
120
020040
020124
044501
041040
020040
020040
046511
005015
020040
020040

rowviuvyrorNownN

2599

060114
060117
060124
060132
060140
060140
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

=l=l=lelelel-)

—
~

~N~

C RJJDO, RPO4/5/6 FCTINL CTRLR2
C RJJD.P11
28-MAR-79 08:52

MACY11

30A(1052)

020040
051505
053440
020040
020040
043505
052040
047111

DH4:

25-MAY=-79

10:48

POWER DOWN AND UP ROUTINES

LASCII

/PC

PAGE 263

SEQG 0262

TIME

IN/<15><12>

TEST

WALT

BIT

REG

EXPCID

ADDRESS 10 MSEC/

TEST

REG

GOOD

RECEIVED/<15><12>

ADDRESS DATA

TEST

REG

ADDRESS DATA/

040524
040504

020040
020040
041520
020040
062124
051104
030061
000103
020040
052123
042522
020040
020040
042503
005015
020040
020040
042101
020123
020040
040524

020103
052040
020040
020040
041505
006504
020040
047040
020040
042522
052101
020040
042524
020040
020040
051104

020040
051505
051040
020040
044505
012
020040
020117
040440
051523
000101
020040
052123
042522
020040
051505

DH6:

DH7:

LASCIZ

/PC

TEST

REG

020040
042524
020040
047111
052116
047503

020040
052123
040506
020107
047105
052116

DH10:

LASCII

/PC

TEST

FAILING CONTENT CONTENT CONTENT CONTENT/<15><12>

LASCIZ

DH5:

LASCII

/PC

LASCI1Z

LASCII

/PC

.ASCIZ

DATA/

RECEIVED/<15><12>

ADDRESS/

CIRJJDO, RPO4/5/6 FCINL CTRLR2
28-MAR-79 08:52

CZRJJD.P 1"

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
12685
1265
12667
12688
12689
12690
12691
12692
12693
12694
12695
12696
12697

MACY11

30A(1052)

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
042510

047503
020124
047105

060715
060722
060730
060736
060744
060752
060760
060766
060774
061002
061010
061016
061024
061032
061040
061046
061054
061062
061070
061076
061104
061112

020040
020124
047117
041440
043117
020124
047117
041440
043117
020124
020040
020040
020040
051503
044122
020040
020061
051105
044122
020040
004463

120

020103
052040
020040
020124
047117
041440
043117
020124
047117
041440
063117
020040
047516
020040
020061
051503
044122
020040
020061
051105
044122
000

020040
051505
041440
043117
020124
047117
061440
043117
020124
047117
005015
020040
020040
044122
020040
020062
051504
044122
020040
020062
051105

DHZ26:

020103
052040
020040
020104
047517
041040

020040
051505
053440
020040
020104
042101

DH30:

020040
047516
020040
020040
040524
040504

020040
020040
047516
020040
020040
040524

020103
052040
020040

020040
051505
051040

061176
061204
061212
061220
061226

061227
061234
061242

120

020040
020124
051117
043440
020040

005015
020040
020040
020040
020040
040504
020040
000
120

020040
020124

10:48

POWER DOWN AND UP ROUTINES

060602
060610
060616
060624
060627
060634
060642
060650
060656
060664
060672
060700
060706
060714

061115
061122
061130
061136
061144
061152
061160
061162
061170

25-MAY=-79

020040
020117
051040
020040
030523
041510
051040
020040
030522

LASCIZ

LASCII

/PC

LASCIZ

LASCII

/PC

LAST12

DHS1:

LASCII

/PC

PAGE 264

SEQ 0263

REG.

RHCST

RHCSZ

RHPST

RHER1/

TEST

CONT Of

CONT OF

CONT OF CONT OF/<15><12

RHCS1

RHCS?

RHDS 1

RHER1

RHER2Z

TEST

WORD

600D

BAD/<15><12>

DATA

DATA/

TEST

REG

GOOD

RECVD

ILLEGL/7<15><12>

RHER3

CEE

NNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNYNNNNY
AR WAV IV IV IV T
2PN EEPEPEEENANNNNANNN w WWNINININI PRI NI NI NI NI N o
(o e RV TV 1 W A
b
s e s et O
0 NOWVSA WO VNV
WN OOV NO VR WNN =00V NO VS W
=0V
—- OOV ~ ow SrWN—-=O

—

D il

NONLRNURLNINUNU RN

D i

NN NN RNV

D il i

D S

il i

NV NN NNV NNV NNV

NNV

D il il i

D o

D i

D il

D i

D il

D i

NN NN N NN PNV NN NN NN N R N NN N NN

CIZRJJIDO, RPO&L/5/6 FCTINL CTRLR2
CIZRJJD.P1I
28-MAR-79 08:52
061250
061256
061264
061272
061300
061306
061307
061314
061322
061330
061336
061344
061352
061360

043505
043440
020040
042126
046114
012
040
020040
020040
042104
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

041520
020040
020040
020107
047507
020040
020104
043104
012
040
020040
020040
042104
042040
020040
020101
043505
120
020040
020124
020103
044122
012
040
020040
020040
051123

061610
061615
061622
061630
061636
061644
061652
061660
061666
061670
061676
061704
061712
061720

053440
120
020040
043117
041510
020040
020040
020040
000123
041520
020040
020040
052116
047503

MACY11

020040
047517
051040
020040
043505

020040
020104
041505
044440
006514

020040
047040
020040
042522
052101
042040
0200¢
052103

020040
020117
040440
051523
020101
052101
043040
000116

020040
042524
020040
020040
042117
042522
020040
047111

8%9?;%

020040
047040
020040
042522
052101
062040
020040
000
020103
052040
020040
043117
051504

30A(1052)

25-MAY-79

10:48

POWER DOWN AND UP ROUTINES

DH60:

5
PAGE 265

SEQ 0264

LASCIZ

ADDRESS DATA

DATA

FUNCTN/

LASCIT

/PC

TEST

REG

GOOD

RECVD

MODFING/<15><12>

LASCIZ

ADDRESS DATA

DATA

REG/

LASCIT

/PC

TEST

PC OF

RHDS1/<15><12>

ASCI

JSR

WAS/

ASC1I

PC OFf

RHCS1/<15><12>

ASCIZ2

JSR

WAS/

LASCIT

/PC

TEST

CONT

042522
020040
020040
053103
047515
006507
020040
020117
040440
051523
020101
052101
051040

020040
051505
050040

DH61:

020011
006461

020040
047040
020040
020040
051501
020103
050040
020040
030523
020040
051512
020040

020040
020117
045040
020040
000

020040
062524
020040
020040
052116

020040

020103
051040
005015
020040
020122
040527
052123
047503
020040
020040

DHeEZ2:

DH65:

CONT

(ONT/<15><12>

MACY11

047503

052116

020040
047516
020040
020061
051501
064122

020040
020040
044122
020040
020040
051504

020040
062524
020040
020124
051105
044122
020040
020063
051503
044122

020040
052123
044122
020040
020061
051105
044122
020040
020061
051503

DHGLG6:

LASCIZ

020040
042524
020040
020111
051502
0464122
020040
020124
040503
044122
020040
000

020040
052123
044122
020040
020062
051504
046122
020040
020040
051105
044122

DH72:

<ASCIZ

—

768

NN NNNNNNNNNYNNN

CNE

W=D

00 00 Qo 00 0O 00 OO

N
w

NYNNNNNNNNSN NNNN

st il

s il

s el el i

il il

il il il oy

D i el

D il i

D il

D il oy

S i

il il il i

NNV
RNV NN NN N NN RO NN N NN N

CZRJJDO, RPO4/5/6 FCINL CTRLRZ
CZRJJD.PTY
28-MAR-79 08:52

9
95

97
98
799
800

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

044122
020040
020061
051504
044122
020040
020061
041527

062230
062236
062244
062252
062260
062266
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

25=MAY-79

10:48

POWER DOWN AND UP ROUTINES

PAGE 266

SEQ 0265

ASCIZ

RHWC/

.EVEN

062210
062210
062216
062224

30A(1052)

004504
033546
000000
004504
033550
033552
004504
001126
004504
000000
004504

033544
001126

DT1:

.WORD

SERRPC,TSTNM,
WAITP( ,WAITBT ,WAITRE ,$BDDAT,(S1,0

004504
033546
000000
004500
000000
004500

DT4:

.WORD

$ERRPC,TSTNM, TSTNM WAITPC WAl TBT ,WAITRE ,$BDDAT ,WA[TTM O

DT5:

.WORD

$ERRPC,TSTNM,REGADR,$GDDAT
,$BDDAT 0

DT16:

.WCRD

$ERRPC,TSTNM,REGADR,$BDDAT,0

001200

D17:

.WORD

SERRPC,TSTNM, $TMP1,0

004504
002260
000000
004504
002304
002276
004504

001122
002304

DT10:

.WORD

$ERRPC,TSTNM, $BDADR,(S1,(S2,DS1,ERY,D

002262
002264
000000
004502

D126:

.WORD

$ERRPC,TSTNM,(S1,0S2,DS1,ERY
ER2,ER3,O

P130:

.WORD

$ERRP(,TSTNM, ERWORD,$GDDAT ,$BDDAT,0

001126
004504
001126

000000
004500
002364

DIST:

.WORD

SERRPC,TSTNM,REGADR,$GDDAT,$BDDAT,
ILLEGL,O

004504
001126

004500
001122

D160:

.WORD

SERRP(C,TSTNM,REGADR,$GDDAT,$BDDAT,$BDADR,0

004504
000000
004504
000000
004504
002304
004504
002270
002260
004504
002304

033350

DT61:

.WORD

SERRPC,TSTNM,PLJSR,$BDADR,0

033350

DT62:

.WORD

SERRPC,TSTNM,PCJSR,$BDADR,0

002262

DT65:

.WORD

S$ERRPC,TSTNM,(CS1,AS,DS1,0

DT66:

.WORD

SERRP(C,TSTNM,DST,ER1,ER2,ER3,(S1,(S2,0

D172:

.WORD

$ERRPC,TSTNM,(S1,(S2,DS1,DST,CALERT,W(C,0

002264

000000
002266
002276
000000
002262
002266
002254

000
000

DF1:

.BYTE

9,0,0,0,0,0,0

000
000

000

DF&:

.BY'¢

0,0,0,0,0,1,0

000
000
000

000
000

DF6:

.BYTE

0,0,0,0

000
000
000

DF7:

DF10:

.BY1¢

0,€,0,0,0,0,0

062571
062574
062577

000
000
000

000
000

DF26:

.BYE

0,0,0,0,0,0,0.0

062601
062604

000
000

000

PF30:

.BY'E

0,0,0,0.0

06260%
062611

000
000

DFS1.

.By1¢

0,0,0,0,0,0

062614
062617
062622
062625
062626

000
000
000

DF60:

.Bv1¢

0,0,0,0,0,0

DF61:

.BYTE

0,0,0,0

000

DF62:

.BY1¢

0,0,0,0

000
000
000
000

000

DF65:

.BYTE

0,0,0,0,0

000
000

DF66:

BYTE

0,0,0,0,0,0,0,0,0

062360

062374
062402
062404
062412
062420
062422
062430
062434
062442
062446
062454
062462
062470
062476
062504
062512
062520
062526

062530
062535
062536
062537
062542
062545
062546
062551
062553
062556
062557
062562
062565
062570

062631
062632
062635
062637
062642

00112¢
001116

002260
002274
000000

001

10:48

5
PAGE 267

30A(1052)

062366

25-MAY=79

MACY11

RJJDO, RPO4/5/6 FCTNL CTRLR2
P11
28-MAR-79 08:52

POWER DOWN AND UP ROUTINES

.BYTE

0,0,0

SEQ 0266

CIRJJDO, RPO4L/S5/6 FCINL CTRLR2

CZRJJD.PY
12874
12875
12876
12877
12878
12879
12480
12881
12882

28-MAR-79 08:52

MACY11

062645

000

062650
062653
062¢56

000
000
000

30A(1052)

10:48

POWER DOWN AND UP ROUTINES

DFf72:

062662
000001

25-MAY-79

.BY'E

.EVEN
.END

5
PAGE 268.

0,0,0,0,0,0,0,0.0

SEQ 0267

ACL
=
ACU
=
ADDMOD
ADTIMO
AOE
=
AS
ATA
=

000040
100000
000204
036450
001000
002300
100000

ATABLE
ATTENT

004566
004644
= 000001
= 000002

B1T4 =
=
BITS
B1T6 =
B117 =
B118 =
B119 =
BPTVEC=
CA
]

000020
000040
000100
000200
000400
001000
000014
002274
002316

8830

103484
20284

20224
2025#
3021

757
756
755
754
753
752
751
750
749
748
7469
7469
10487

SEQ 0268

11082
4450

12829
6594

8488

4804
9822

5368

5512

5697

5836

6195

6447

6902

7193

2521+
7514

4136
7811

4434
8322

4610
8504

4806

5379

5525

5710

5847

6201

6481

10425
106418

11363

377

7491

7793

10480

10963

11010

0472

2385
7771
7771

10954
10458
7469

9906

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

BA
BAl
=
BASECH
BEGIN
BEGIN1
BEGIN2
B110 =
817100 =
81701 =
B1102 =
B1T03 =
B1704 =
B1T05 =
B1106 =
B1T07 =
BIT08 =
B1109 =
B1T1
=
B1T10 =
BIT11 =
81112 =
BIT13 =
B1T14 =
BIT15 =
BIT2 =
B113 =

= 000200
= 000400
= 001000

—_0

000004
000010
000020
000040
000100

Fol
o

=
=
=
=
=

A17
A16
A17

6455

AT2
AT3
AT4
ATS
AT6

30A(*J52)
25-MAY-79
10:48
PAGE 270
CROSS REFERENCE TABLE == USER SYMBOLS

8318

——

AT0
AT1

MACY11

—

CIRJJDO, RPO4L/S5/6 FCTINL
CZRJJD.P1I
28-PAR-79

12834

10947

—————

CZRJJDO, RPO4/S/6 FCTIN L C
28=MAR=-7 90
CZRJJD.P1N

3125

4939

6997
8837
3009
4589
6167

CKSWR = 104407
CLAREA 033164

10962

CPHALT

057465

4106

5363
6442

3557
5430
6957

L4645

6315
6064
76402
9100

44694

4500

7408
9303

76416
9418

3277

7179

8329

5831

7202

8474

3458
5567

8696

8786

3640
5608
7295
8813

5184

6672

7073

7241

7562

8001

3840
6243

4015
6489

4293
6930

4456
7051

4617
7221

4812
7538

5014
7840

3502
5464
7367
9128

3648
5576

4077
5952
7911
125394

4247

6349

7450
9234

3968
5793
7752
9464

6543
6596

8881

9162

11026

12799

12811

1545

1556

12858#

1151
1395

1162
1614

1185
1426

6527
8238
9388
9787
5035

€S2
DB
pck
pcL

002260
002252
= 100000
= 000100

12834

062606

4438
5821
7188
8340

5703

5423

8880+

DFS1

4420

5692
6915
8313

3244
5214
6951
8649

002262

002330
177570
000040
000002
000001
062530
062562
062571
062¢01
062537
062546

6410

6752
8601

3055
5050
6781
8562

= 000200
= 000002
= 000010

DCLEAR
DDISP =
=
DE1
DFF20 =
DFFS =
DF1
DF10
DF26
DF30
DF&
DFS

6897
8306

4684

6594
8423

2738

CRLF
CSF
csu

5372
6881
7802

6541

6393
8289

4210

2689

= 000015

9329

6115

6347

6127
8075

4043
5922
7116
8977

4678

5978
7864
9068
2673
3860
9501

7678

4245

3803
5615
6965
8038

7877

2462

4075
5950
7909
9809#
4388
5518

3708
5648

4715
6563
8401
97824

9046

6021
7310
9079

7101

6129
8077

6308

7283

6395
8291

6316

8425

12814

876

946
1025
128544
1214
128424
1065
1240
1504
128614

12839#
1055

12850#

1247

1308

1091
1269
128454

034312

3646
5574
7448
9232

7795

4038

CLR
= 000040
COMPAR
035342
COMREG

3500

5462
7365
9126
3172
4799

3294
4906
6556
71

033314

CLDISK

3249
5088
7148
8928
3016
4603
6176
7505
8508

sro
J =]

034204

(HREG

98034
9813#

'® o

033352
033410
033374

SEQ 0269

CROSS REFERENCE TABLE == USER SYMBOLS

—

CHECK
CHECKC
CHECKT

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

MACY11

DF6

128474

062553

DF60
DF61
DF62
DF65
DF 66
DF7
DF72

062614
062622
062626
062632
062637
062557
062650

DH1
DH10
DH26

057737
060536
060715

DH30

061115

DH&
DH5

060117
060260

DH51
DH6
DH60
DH61
DH62
DH65
DH66
DH7
DH72
DIGB =
DISPLA
DISPRE
=
DLT
DL64
=
DMD
=

061227
060377
061366
061523
061615
061670
062004
060476
062102
000004
001142
000174
100000
000020
000001

990

1468
1476
1484
1516
1534
998
1586

927
1003
1166

128644
128664
128684
128704
12872#
128494
1597
939
1017
126654

964
975
1222

125954
1060
1238

1375
986
1462
1472
1480
1510
1526
95
1577
16764
8764
7804
16420
16784
17118

12703#
126264
12721»
127384
12749#
12757#
12771»
1°:57s
1575

16814

1190

1490

1212

1502

30A{1052)
25-MAY-79
10:48 PAGE 272
CROSS REFERENCE TABLE == USER SYMBOLS

1606
951
1031

128764
12575#
10647

126440

1228

1245

1306

1340

1364

1400

16436

1543

1554

12688#

1072
1256

1086
1267

1100
1281

1112
1293

1123
1318

1130
1331

1140
1353

1149
1393

1160
1412

1183
1424

8123

9823

9263

9411

9823

15¢5

126124

1602

12783«#

2060+
2068

2068+«

10501+

10946+

B&47

8513

2798

3397

3515

3722

4779

4982

5131

7952

12814

12829

12834

1341

1365

1401

1437

1544

1555

12817#

1116

1124

1131

1141

1150

1161

1184

DPR

= 000400

1682#¢

DST
DSWR
DS1
DT
DTE
DTSY
D11
D110
D126

002266
= 177570
002304
002306
= 010000
= 001000
062210
062310
062330

1898¢
6784
1905#
19064
17044
17174
933
1010
1173

11066
875
9044
2585+

12831
2059
9160
11138

12834

11034

12811

945
1024
128144

956
1038

12799#
1054

12811#

D14

062230

969

12802#

1213

1229

1246

1307

1223

1064

1239

1076

1090

1104

1503

1569

12805#

1603

12834»#

DRY

D130

D15

D151
D16
D160
D161
D162
D165
D166
D17

D172

= 000200

062352

062252

062366
062266
062404
062422
062434
062446
062462
062300

062504

1194

979

1491

1380
989
1467
1475
1483
1515
1533
997

1585

SEQ 0270

2798

12819#
12807#
128224
128254
128274
12829#
12831«#
12809#
1596

1257

3670

1268

4709

1282

4761

1294

5602

1319

7393

1332

8951

1354

1394

1413

1425

1204
1449

1205

1450

CIRJJIDO, RPO4/5/6 FCINL CTRLR 2

CZRJJD.P1I

nS5
PAGE 273

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0271

2667

2789

3388

4770

4973

5122

7943

8114

9815

= 004000

17978
4061
5633
6376

2933
4229
5634
6377

2953
4333
5635
6580

3339
4527
5778
6746
7735
9119

3472
4925
5944
6809
7894
9120

3474
5074
6112
6983

3691
5075
6356
6984
8061
9455

3692
5281
6357
7133

11122
11130
2044*
3824
3L
LN
614
734
87#
954
134
29
864

M
4526
5777
6582
7672
8997

3473
5073
6093
6982

1908#¢
1909#
7670
925
1001
1014
1028
1042
1058
1068
1080
1094
937

7433
8832

3092
4525
5776
6581
7434
8833

2045+

2192+

2234+

S NNNNNNOOWwWOoOOOVYIYIYY
NNV
S S
[T
B NP
OCONOST W—=VO~NO
SNNVWO NNNO =W
Vo~
RERRTRTRRRRRERERR
RRuR

el w—
—

b
D
i
B

—ll —" —h —

i
D
i
D
i
D
D
D
i
i
D
i

—h —d — — — — —ld —ld —d — —d —

D
i
il
D
i
i

— —h —d —d —d —h —

i
-

) — — — — —ld — — —— —
— ——
— ——
) — —
—

126
127
128
129
131
132
133
134
7
135
136
138
139
140
141
142
144

7432
8831

—

wld cd
i
b
i

S NNN—=O OOV
WO

5
6

= ONVOWVNODNNO
W=
N =OOWWNNOV0000 O~V
N0 — 00

047472
047701
050162
050440
050776
051270
051576
051722
043324
052204
052423
052670
053141
053227
053474
053762
054172

7328
8729

002312
002314
000030
043014
043534
043603
043710
044016
044135
044207
044350
044476
043043
044633
045002
045055
045130
045277
045442
045624
045714
043132
046132
046212
046427
046534
046736
046762
047200
047255
043213

16984

= 000100

EC]
EC2
EMTVEC=
EM1
EM10
EM
EM12
EM13
EM14
EMIS
EM16
EM17
EM2
EM20
Em21
EM22
EM23
EM24
EM25
EM26
EM27
EM3
EM30
EM31
EM32
EM33
EM34
EM35
EM36
EM37
EM&

EM4O0
EM&
EM&2
EML3
EM&L4
EM&S
EMLO
EM4T
EMS
EM50
EMS1
EM52
EM53
EM54
EMS5
EMS6
EMS7

10:48

16670

ECH

EC1

25-MAY-79

= 004000

B NWWWOWWWWNINDNDNONNNONINI
NN = b ) b b e d d e d

DVA

28-MAR-79 08:52

MACY11 30A(1052)

LON

19#
L3N

1805#
1830#
18624
18924
19314
19644
19994
20144
14184
20454
20724
21014
21304
21400
21694
22014
22254

7895
9121

7896
9323

8062
9456

3693
5300
6358
7134

8063
9457

3951
5448
6375
7135
8595

ERRVEC= 000004
ERWORD 004502
002264
ER
002270
ER2
ER3
002276
EXT1
= 000001
EXT10 = 000010
EXT2
= 000002
EXT20 = 000020
EXT& = 000004
EXT40 = 000040
FEN
= 000200

30A(1052)

SEQ@ 0272

10941+
4452
8490
2058+
10329+
8871
12814
12814

3023
3821

7827

4596
9044

2069+

12817
11042
1
1

5370
9160
2194 v

5514

5699

5838

6197

6449

6904

2202+

2236+

10463

10464+

10466+

10669+

12811

12814

12831

12834

3420
4131

4276

3565

3570
4281
5144
6466
7197

7195

7512

3179
3997

3155
3826

6577
6226

4429

6214
6860

6874
7971

7832

3410

4002
4598

6231
6906
7976

3415

4007
4995

3575

8151

7500

8350

5230

5149
6473

8141

5005
6453
7077
8146

3920
6296

4198

4484

6717

4876
7300

4898

3091
3692
4334
5299
6092
6581
76432
8062
8996

3092
3693
6525
5300
6093
6582
7433
8063
8997

3093
3950
4526
5301
6094
6745
7434
8411
8998

3110
3951
4527
5647
6111
6746
7671
8430
9119

3111

2115

2168

221

6423
7027
8136

5000
6428
7032

3580

4380
5154
6624
7525

4286

8356

004564

004562
004634
033140

2118+
3062
5998
8966
2933
3340

FMT122 = 010000

4228

GNS

5
PAGE 274

123064

6185
6856

FUTABL

CROSS REFERENCE TABLE == USER SYMBOLS

4405

FINALA
FIRST
FLHEAD

10:48

7207

FER
= 000020
FILL
034250
FILLRE
033216

FINACC

25=MAY-79

~
~

983

—_—

043376
054464
055073
055157
055232
055451
055473
055704
043464
056160
056366
056627
057075
057245
004632
040000

EM6
Em60
3,1}
EM63
EM6L
EM6S
EM66
EM67
EM7
EM70
EM71
EM72
EM73
EM74
ERFLGS
ERR
=

MACY11
COSOMNIMNINININ
= PNININI NN =N [PIEER AV P o o o o
WV
W

CZRJJIDO, RPO4L/S5/6 FCINL CTRLR2
CIRJJD.P1Y
28~MAR-79 08:52

002322
seeeee

5074
5635
6358
6984
7736
8729
9324

2093

3284
6010
9089

2934
3472

4229

5075
5776
6375
7133

5943
6376

7894

3549
6054
9427
2953
3474
4332
5281
5944
6377
7328

3795
6284
96734
2954

3691

4333
5282

5945
6580

7329

7896

8061
8833
9536
21

8730
9455

9456

8832
9457

2098

2102

2106

6540

7625

3952

4924

5448
6112
6747
7672
8594
§120

2232

7643

3112

4060
6925
5449

6113
6808
7673
8595

9121

2308

CIZRJJDO, RPO4/S5/6 FCTNL CTRLRZ
CZRJJD.P1
28-MAR-79 08:52

GO0

= 000001

GRYV
GTSWR
HCE
HC1l

=
=
=
=

HCRC
HT
HT.

= 000400
= 000011
= 015440

I1AE

113

000010
104406
000200
002000

= 002000

= 000100

=
ILF
ILLEGL
=
ILR
10TVEC=
=
IR

000001
002364
000002
000020
000100

=
IXE
JP1
JP2
JP3
JP4
KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPARG=
KIPAR7=
KIPDRO=
KIPDR1=
KIPDR2=

004000
015624
015660
023352
023372
172340
172342
172344
172346
172350
172352
172354
172356
172300
172302
172304

MACY11

B 6
30A(1052)
25-MAY-79 10:48 PAGE 275
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0273

11319»
4129

2934
5075
6810
9121

10601

2783
36684
4374
54834
6419
73914
8302
92614

5341
2654
3980
5476
7384
9017
8311
8228+

4259
5661
7692
9254

2042+
2244
8521

6183

43984
L4184

68674
68794

4770
6608
8114
9945

8255
7213

7214

8261

8272

CZRJJIDO, RPO4L/5/6 FCINL CTIR
CZRJJD.P1N
28-MAR-79 08:
K1PDR3=
K1PDR4&=
K1PDRS=
K1PDR6=
KIPDR7=

LA
LBT
LF
LY.

172306
172310
172312
172314
172316

002320
= 002000
= 000012
= 000000

MACY11

11106

=
=
=
=

000002
020000
001000
000004

MoL
=
MPE
=
MR
MRD
=
MSE
=
MSTCK =
MWR
=
MxF
=
NED
=
NEM
=
NHS
=
NOPERA
NOPUSH
NOUNIT

010000
000400
002302
000020
000020
000010
000040
001000
010000
004000
002000
002322
004624
004620

MMVEC = 000250

NOUSE
057420
NUNIT
004622
ocvL
= 100000

Of
OFREV =
OFSET
OFSETC
OFSTVL
0F100 =
0F200 =
=
0F25
0F400 =
0FS0 =
0F800 =
OPERSE
=
opP1
OR
=
PAR

PCJSR

PCLBUF

002272
000200
033300
002354
004510
000004
000010
000001
000020
000002
000040
034450
020000
000200

= 000010

033350
002246

25-MAY=-79

10:48

6
PAGE 276

6199

6451

9822

2995
3761
4568
5600#

31454
3766
47074
5605

3150
37864

86254
9266

9355#

7482
87594
9360

32690
3791
L4759
5673
68450
7705
8860#

8448

8449

8460

8461

2603

2619

2798

3397

8260

8270

8279

8345

2022+
2362+
125314
2631

2026+
2419+

2029+
2425

10636

2783
36684
54834
6419
73914
8302
92614

SEQ 0274

CROSS REFERENCE TABLE == USER SYMBOLS

3170

2992

4374

MCLK
MCPE
MHS
MINX

30A(1052)

3014
10642
29904
3673
45634
5488
66154

67734

4712

5668#
6778

33774
3993

L9624

5817

4097
4967

L2674
5116

35404
4272
5339#

79324
8954

7174
8103#
9036

73564
8108
91472

3518

3382

61484

59714
7023

9414

8865
94884

7018#
7784
89494
9493

8464

8465

8468

8469

3722

4779

4982

5131

7952

8123

9823

2431

2500+

9602+

6181

6895

6922

6923

7042

7043

7213

7214

8260

9809+

9810+

12825

12827

7396

77004
8764
9409#

6153

11098

2432+

11090

9778

10684
8502
4393

8521

9803«
9905+

9804

8270

CZRJJIDO, RPO4L/S5/6 FCINL CTRLR 2

MACY11 30A(1052)
25-MAY-79 10:48 PAGE 277
CROSS REFERENCE TABLE == USER SYMBOLS

PCLCSR
PCLCTR
PGE
=
PIP
=
PIRQ
=
PIRQVE=
PKACK
PLU
=
PRE
=

002244
002250
002000
020000
177772
000240
002360
020000
000020

9879+
9880

9906+

2746

2767

2788

9601+

10196+

109874

11149+

11167

11171+

PRO
PR1
PR2
PR3
PR4
PRS
PR6
PR7

=
=
=
=
=
=
=
=

000000
000040
000100
000140
000200
000240
000300
000340

2160
16834

PSEL
PSU
PSW

= 002000
= 000001
= 177776

674N

675

2073+

2653+

2698+

2733«

3520+

3769+

9575+

8639
7660

8773
2048+

8873
2049+«

8883
11330+«

9042
11331+«

9158
11340+

10144
11346+

102524
11358+

11359+

10889
2170

113234
10222

10233

10360

10382

113244

9149

9357

9490

9815

3271
5113
7934

3379
5973
8105

3542
6150
8299

3721
6416
8627

3763
6617
8761

3788
6775
8862

3990
6847
9033

7897

7922

3136
7942

4063

4088

5779

5804

6985

7010

7136

7161

7435

5121

5636

5660

6359

6378

6406

CZRJJD.P1I

PRITEM 041170
PROG
= 001000

= 177776

PUTREG 035236
PWRVEC= 000024

RA
000200
RDCHR = 104410

ROLIN = 104411
RDOCT = 104412

RDY

READAT
READIN

RECALI

REFOR

= 000200

002346

28-MAR-79 08:52

1879%
18814
16374
16874
6774
7710
19378
17834
1823#
694N
6954
6964
6974
6984
699
700#
701#

16664
1820#
6754

7974
10842

16634
4099
7020

1932#
7461

002362

1938#

002350

1933¢

002326

8064

3147
4964
7781

8089

8113

9253

9401

6583

6607

8834

8848

9122

9139

9458

9480

5137«

7949+

7958+

8120+

8129+

10153+«

12805

12807

12819

12822

4785+

4979+

4988+

5128+

3162
4509
5760
7029
8057

3209
4521
5772
7075
8143

3321
4579
6325
7117
8178

3468
4642
6352
7129
8827

3572
4899
6371
7243
9080

3610
4907
6425
76417
9115

3687
5036
6512
7428
9179

3818
5056
6557
7527
9419

3862
5069
6576
7564
9451

3571

3817

4003

4282

4385

4606

4578

5001

5150

8518

10282+

109404
2192

RELEAS 002332
RESVEC= 000010
002356
RETCL

19264

002174

18494

002216

2789
4770
7702

8941

041024
041032

RHBA

3i13

2699
4565
7479

4697

REGSAV
REGSA1

RHAS

3094

2667
4371
7358

10195+

3262

004500

003434

2654
4269
7171

SEQ 0275

19244

REGADR

REINTO

10412
113224

19534

1947¢
3933
5151
6631
;ggg
7614
19364

18614

5356

8243+

3491

2277+

109424

3755

2795+

4528

2804*

2907
4056
5186
6674
7973

3087
4164
5616
6966
8003

3106
4211
5629
6978
8046

2269

2310

8098+

3005

5500

B266+

3161

5685

8275+

3416

6158
8351

4554

3394+

6424

8409+

5076

3403+

6630

5101

3735+«

6861

3749+

6875

4776+

7028

7526

7828

7972

8142

9404+
10364
18504
7041
18744
18474
18564

5006

RPVECT
RPO6
RP4VEC

16114

3773«
5653

7683+
9467+

036534
004636

2076

004506

19564

1998#

6341

5502

5687

6177

6891

6921

3524+
5700
8493
2991
5364
8484
2377
2583

3770+
6239
10280+
3166
5601

3827
6484

4008
6635

4132

4287

4430
7198

4599
7501

3514
5832

3669
6191

3762
6443

6107

L4Lb

9262
2382

3270
5693
9410
2407

2510

2512

2538

2545

2547

5373
8307

5484
8498

5669
9785

5704

5813

5841

3812

3960
5082
6589
7966
10153

9784

6907

7038

6898

7189

2132+

2223+

3120
4341
5498

6991
8274+
4377

3156

3347

4381
5642
7033

4401

8283

5683
7142
8357

6853

8208

3411

6535

5785

7442

8407+

3482

4573

6121
7531
8435

3701

3566

4933
6387
7833
9735

4730

6163
7744

8517

4996

6429
7903

10069

7523
10036

26664
27104
2075
3971+
5796+
7755+
10376
10428#
2508+
6461
2159«

2694
4250
6132+
8080+
10394

2875
9522
2974

2759+

4352

6398+
8606+
10434

2917

9542

3129

2974

6546+

6599
8740+
5077

3129+

9334

6036

6076

6208

6278

3773

3971

4080

6250

6829+
8933+

5224

5263

5992

3358

3526

3650

6757
8841

3254+
L4742¢

3650+
5467

3526
5323+
7339+
9245+

3358+
6944
7002+
9008+

4689

7375+

2650
2695

5312
6818
8137

10258

5358

8636

10286+

2584
3000
6277
5456
6870
8265+

4069

44611

7164+
7766+

011514
011622
002166

16944
9990#

8430+
2532
2753

2509+
9783

6168

RPTRP1
RPTRP2
RPVEC

004640
006056
000004
034014

3998
5145
6625
8069
10256
2000#
21304

9882
8446

9345+
10288+

8330

5112
6149
7019
7701
8626

RH70
RH70CK
RMR
RPTCTR

18624
18584
18654
18484

9256+
10041

7478

5104+
61463+

4268

O NN

002206
002214
002236
002220
002210
002226
002172

2314
6454

9019+
9782

7013«
7694+
8617+
9148
10018

3508+

wH o~
O WN N —
WO
N

RHER2
RHER3
RHLA
RHMR
RHOF
RHSN
RHWC

6186
18574
18604
18694

2552

3541
6363
5334+

4963
5972
6882
7610
8475
9142+
9945

5822
6840+

4098
4955+

3378

18664
18674
18554

2550

3533+

5966+
6846
7494
8452+
9032
9933

4091+
4793

3982+
4700+

3369+

002230
002232
002202

4116

4261

10279+
3576
4370
5360
6409+
7170
7780
8751«
9356
10353

3139+

RHEC1
RHEC2
RHER1

9768+

-«

002224

002222

9881

9750+
10258

O~
——O

RHDT

7823
18634
4590
7392
1864#

RHDS1

2368+
8519

8431+

WO
O
— NN

002242
002170
002204

6616
7357
8092+
8861
9752+

5689
6768+
7386+
8104
8880
9769+

7487

RHCS3
RHDB
RHDST

5663+

6474
8152
3265+

—

8760

002176

6227

7180
7796

SEQ 0276

—~

5478+
6415

RHCS2

6215
6232
2984+
3822
4604

4421

10:48

25-MAY-T79

CROSS REFERENCE TABLE == USER SYMBOLS

QoW
oo W

8734
859#
868#
18544
3664

30A(1052)

002240
002212
002234
002200

—

RHBAE
RHCA
RHCC
RHCS1

MACY11

6
PAGE 278

— 00
O
N

CIRJJIDO, RPO4/5/6 FCTNL T RLR2
CZRJJD.P1I
28-MAR-79 08: 52

CZRJJIDO, RPO4/5/6 FCINL CTRLRZ
CIZRJJD.PIN
28-MAR-79 08:52

MACY11

30A(1052)

6352

6546

4689

004642
027642

SAVER

033462

SAVERE

004512

7902
19644
3961
4731
5382+

5687+
6388

= 100000

sC1
=
SC10
=
sc2
=
SC20
=
SC&
=
SEECOM
SEEKCY
SELECT
SELTST
SERCH
S1L0SZ
=
Skl
SN
SND1
SRCH
SRO
z
=
SR1
SR2
=
SR3
=
SST1

000100
001000
000200
002000
000400
002352
033264
004626
010126
002334
004650
040000
002310
006020
033244
177872
177574
177576
172516
031354

$ST3
SST4
SST5
STACK =

031402
031422
031434
001000

$ST12

START
STKLMT=
$122
ST22A
$123

031362

004722
177774
024376
022774
025154

7044
7904
8522+
16704

R257

17574
17604
17584
17614
17594
19344

3657

1988#

2328

19274

2008#

18264
1907#

2084
3714
819#
820#
8214
8224
9074w
90774
9063+
9064+
9065+

6654
4675
8398
2024
6764

5467
7375
9334

5579
7453
9393

5653
7683
9467

5796
7755

5955
7914

6132
8080

3940
6082

4051

6218

4323

4515

4914

7885

6101
8052

4932
7743

3682

3119
5455
8282
2823

3481
5784
9844
3032

3700
6120

3959
6386

4068

4238

6817

4340
6990

4534
7141

4729
7441

3121

3188

3348

6484

5016
5500+
5719
6590

3430
L4340
5354+
5525+
5856
6923+

3483
4458
5356+
5534
6122
6924+

3702
4610+
5360+
5683+
6239+
6992

8436

7540
8504+

3591
4536
5358+
5643
6201+
6932

7811+
8518«

5379«
5685+
6245
7043+
7842
8521+

6886

7184

7498

7800

8247

3241
7280

3637
7602

8028

3910

4188
8200

9445

3328
5623
7423

6757
8841

4944
7002
9008

O~NW

5323
7339
9245

3082
5289
7124

5933
7725

6346
8584

6365
8718

6570

6735
8986

8456+

4017
4806+

5689+
6481+
7053
7986
8529

4070
4814
5457
5700+

7143
8070
9736+

4144

4240

7214+

7215+
8322+
10145
5826
8637

8284
10074+
4797
8479

4750

4769

9752

2459
5564

2642
5749

2687
5902

2735
6706

2864

3505
2242

3694
2243

2584
21184

11146

4722

97504

9084
90874
9098#
91074

9207
9198+
9199

2267
5620
8911

2027
7576

7566

75734

7514+

3726
2251

2162

8559

7643
8365

3719
2247

9769

4866

5313
5515+
5847+
6911+

9590

7383
97684
2028+

9200+
2191
5211
8693
20324

6342

2473

5592
7371
2025+

2040

5165
5504+
5829+
6819
7223
8335+

2435

3661
5587
2023+
26354
3475
2241

8276

4295

6438
8881

4425

8267

5083
5502+
5786
6643

6588

6172
8771

4120

72934

66394

SEQ 0277

e
Y L%

RUNCTR
RUNWAT

PAGE 279

TABLE == USER SYMBOLS

e
L

006546
035276

4742
6829
8933

10:48

NV
o~
>
> O

RIN
RUN

6398
8606
2228
2922
5063
6799
9109
2003#
8453w
2752
5081

25-MAY-79

CROSS REFERENCE

9225

2252

2254

7098

7745
8517+

3842

4619

SWREG
sw0
sw00
sw01
sw02
sw03
Sw04
Sw05
sw06
sw07

SWw08
sw09
SWwl
SWw10
SWwll
Swi2
swi3
SWi4
SWw1S
SWw2
sw3
Sw4&
SWS
Sw6
sWw?
Sw8
SWw9

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

000176
000001
000001
000002
000004
000010
000020
000040
000100
000200

000400
001000
000002
002000
004000
010000

020000
040000
100000
000004
000010
000020
000040
000100
000200
000400

001000
TBITVE= 000014
10F
= 000040
TESTAD
034446
TIMCNT
034012
TIMET
033514
TIME2
033526
TKVEC = 000060
TMPO
004652

TMP1
TMPS
TMPS
TM

004654
004656
004660
= 000037

TOTALA
004646
000064
=
TPVEC
TRAPVE= 000034
TRE
= 040000
TRk
= 004000
TRk 10 = 040000
TRk
?
010000

10472
11351«
781#
7294
7194
718#4
7\7#
7164
7154
7148
7134
7124
(4B
710#
7284

709#
708#
7074
7064
7054
7044
7274
7260
725#
724K
7234
7224
7214
7204
7620
17754
101934

2656
98794

2159

7694

20104
7851
2011#
20124
2013n
24594
4189

5902#
8201
2007#
770#
7684
16694
9046
17624
17654
17634

2061

2067+

2123

213

1078

2206
10947

2304

10954

10480

10487

10687

10726

2067

2123

10687

10726

10749

2304

2326

2701

9922

9927

9989#

10007

98814
10664+

10665+

3533

3755¢

3756+

3779

76468

76471+

8568+

8666+

8702+

8803

3494
2460
el
5903
8398«

3524

3757+
2736

3770
2864#

7288+

5211#

7611
3242
54208

8013
36374

8560

86934

5736
5828

6174

2326

10959

10332
10989

2059+

10474

—_—0
WS

8006
8754

SEQ 0278

8016
8013w
2038

025226
026242
001140

25-MAY-79

76150

$124
S128
SWR

G
6
10:48
PAGE 280
CROSS REFERENCE TABLE == USER SYMBOLS

30A(1052)

—_—

MACY11

oo
O —
oW

CZRJJIDO, RPO4/5/6 FCTINL CTRLR2
CZRJJD.PI
28-MAR-79 08:52

729

3493

2319+
2046

6122
9162

2735#

4676
67064

8399
2321
2047

44627

L866#

6707
8559#
2074

4608

4867
7098#

2865

750

5768+

b4k

7610+

7770

7773

3638

8911#

8912

55644
7603
9225#

3910#
5565
8028#

9226

3911
57498
8029

L1882

5421
7602#

6888

7186

8257

8267

8276

8481

7281

7099

7549

5750
8200#

CIRJ. DD, RPOL/S5/6 FCINL CTRLR2
CIRJ.D.P1N
28-MAR-79 08:52
TRx20 =
TRk&
=
TRP
TRTIVEC=
TSTNM

100000
020000
006510
000014
004504

17560
17640
2220
7634

006222
011632
012076
012752
013732
014500
015206
016736
016670
006714
017556
020136
020414
020752
021220
023040
024014

1513
1S130
1ST31
15152
1S133
15136
15135
1513
15137
1514
1S140
1515
1516

006762
025172
026260
026624
027452
030100
030362
031020
031632
010742
032564
011070
011422

15127

1517
TUf

024342

011532
= 000100
TYPDS = 104405
= 104401
TYPE

2189+

4867

12817

12819

2164
2707
2863
32400
36364
39094

30A(1052)

25-MAY-79

CROSS REFERENCE

10:48

PAGE 281

SEQ 0279

TABLE == USER SYMBOLS

22294

19554
L676*

8399«

sN
15110
1ST11
1S112
1S113
1ST14
TST1S
15116
1ST17
1512
15120
15121
15122
15123
15126
15125
15126

MACYT1

8560+

2175
27274

26460+
5621+
8912+

12825

2865+

7281+
12807

11193

11317#

8201

12814

4187#
Lo74m
48654

2265#

52104
56419#
55634
S748#
5901#

6705#
7097
7279

2273
7575

8015
8199#
8210
85584
86924

8777

9205

2637

9573#

9610

2595#
2605
2663

17764

2390

2743

2224
2488
2972

6754
8603

8737

2209
2416

9640
10378
10693
10949
11086
11196

042132
1046402

4189«

9653

4686

TYPERR
TYPOC

32420

7099+
12805

10389

4739
6826

10750

—————————

UNIB
UNIT

VUF
=
vu30
=
vV
=
WAITBT
WAITPC
WAITRE
WAITTM
WAIT.P

004576
004630
002324
040000
020000
000001
000002
000004
000010
015570
015600
023336
023346

015622

000002
010000
000100
033550
033544
033546
033552
033554

WAIT.T
034016
WAT
= 104413

WCE

WwCF
wCu
wLE

WRCHDT
WRCHEK
WRFROM

30A(1052)

002254

= 040000

1
1

10:48

6
PAGE 282

1027
1131

11035
11139

11043
11147

11051
11160

110 59
11189

11067
11314

11075

11083

11091

11099

2630

2439+

2468

2499+

2502

2526

9580

9604

9609«

9788

2430
2439

2480

9605

4982
12799

12802

5131

7952

8123

9806

9823

10008

10013

10017

10043

12799

12802

3668
5483
7391
9261

3761
5600
7477
9355

3786

5668
7700
9409
4296
6933

3988
5812
7779
9488
4459
7054

4097
5971
7932
113254
4620
7224

6267
6148

3208
3921

3285
3946

2248*
2252+

2249
2253

4382#
L3864

2780

2798
9923

2814
9928
9998+
9928
9952

3397
10001+
9999+
9932
9962

4779
10013
12802
10000+

3377

3540
5339

9915+
9912+
9914+
99034

11325
2990
4563
6615
8625
2824
5166
7987

9913+
9923
9904+

3145

4707

6773
8759
3033
5394
8162

SEQ 0280

TABLE == USER SYMBOLS

2247+
2251+
68584
68624
43964

3269

4759

6845
8860
3189
5535
8366

4962

7018
8949
3431
5720
8530

7356
9147
3843
6246

11002

4018
6492
12834

4145
6644

3063
3804
4407
5252
6065
6728
7403

3068
3861
4485
5276
6088
6741
76409
8002

8103

4815
7561

= 000040
= 000001
= 004000

002340
002336
002370

2882
3417
4224

5002

5999

WRIDAT
WRIFOR

25-MAY=T79

REFERENCE

= 000020
004616

UNITS
UNITSL
UNLOAD
UNS
=
UPE
=
=
ust
us2
=
=
usé
UWR
=
VAR
VAR2
VAR3
VARG
VARS

MACY11

—

TYPON = 104404
TYPOS = 104403

CZRJJIDO, RPO4/5/6 FCIN
CZRJJD.P1
28-MAR-7

002342
002344

6511
7109
7712
8590
9437

4360

2955
5302

2894
3550
4283
5037
6011
6541
7242
7718
8708
9502

5450
2981
5331

2948
3609

3006

2928
3558
4316
5185
6022
6549
7301
7730
8724

5231
6043
6673

7829
8967

5242
6055
6718
7323
7872
8978

5475
3341
5946

6811
3366
5963

6837
3387
6095

4328

7311

3796

4386

7878

8992

9090

2 1S

7763
3979
6140

3953
6114

6495

5295
6107
6792
7563
8039
9101
4231

6748

4501

3295

4004
4641

8177
9178

5443
6285
6862
7636
8266
9293

4258
6765

4927
7330

5631
6159
6804
7626

3303

64044

4877
5913

6297
6876
7644

8268

9304
4952

7347

CZRJJIDO, RPO&L/S5/6 FCINL CTRLR2
CZRJJID.P
28-MAR-79 08:52

MACY11

7674
16854
17784
17724

7691

WRL
WRU
WSu

XE2
$AUTOB
$BDADR
$BODAT

$BELL
$SCHARC
$CKSWR
SCMTAG
$CM1
$CM2

$CM3
$CMG

SCNTLC
SCNTLG
SCNTLUY
SCRLF

$DBLK
$DOAGN
$DTBL
$SENDAD

SENDCTY
SENDMG
SENULL
$EOP
$EOPCT
SERFLG
SERMAX
$ERROR
SERRPC

SERRTB
SERRTY
SERTTL
SESCAP
$FILLC
SFILLS
$GDADR
$GDDAT

$GETL2
$GTSWR

004000
000400
000004
007524
001134
001122
001126

001216

037536
040050
001100
000006
000014
000006
000006
040621
040633
040626
001223
037312
033114
037302
033104
033052
033123
033120
033016
033044
001103
001115
041022
001116
001226

$HD
=
$HI10CT
$1CNT
$ILLUP
$INTAG
$11EMB
$LF
001106
$LPADR

2324
8724
867
8694

5136+
12805
901#
10608+
107264

8554
387#
887#
885#
8934

10681

10747

10772
903#
11181
10529
9636
10532
789
96384
9595
9598

2218
96354
858#
864H
2044

2354m
2127«
7550+

2275+

7948+
12807
10693
10618+
11321

2035
888#

888#
887
894
10762
108644
108634
2388

8624

900#

2349

9639
104647

166

0989#
9586
2051+

10911+

10922#

11330

11346
10745+
10953+
10642

860#

9016

9325

9342

2803+
8119+

12811
3402+
9932+

12822

12825
3747

10017+

12827
L4775+
10043+

4784
10152+

4978+
10328+

4987+
12799

12802

2036

889#
889«

2044
890#
890#

2051
8924
892#

893
893

895#

896#

898#

899#

10862

10923

10957

10971

11152

11176

12805

12807

12809

12811

12814

12805

L4771
12817

4780+
12819

4974
12822

6983

10327+

3748+

10497«

10502

10504

10740
7852+

10869
9818+

2794+

7957+
12817
10862
10625

108624

2416

96554
96544

11319

904#

8999

9640
9643

10748#

8734
8634

8748

8597

8614

12819
10949
10634+

10642

10209

3733

9944+

10783

5127«

96474

10611
10642

8594

SEQ 0281

8731

8427

10571#
96514

8834
882#
866#
868#

5132+
9644N

6
30A(1052)
25-MAY-79
10:48 PAGE 283
CROSS REFERENCE TABLE == USER SYMBOLS

10563
9645
105674

865#

12817
9204
10956

)

2276+

7944

10491+

2053+

2427

9603

9628#

10476
10478
109374
10952+
12822

10478
10500+

10484+
10505

10971

10953
12825

10971
12827

12802
12834

9588+
10499+
10642

10950+
10966

10971
10968

3389

3734

8124+

10504
10869

10923
10235

10971
10482+

5123¢

CIRJJDO, RPO&L/S5/6 FCINL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52
SLPERR
SMAIL =
SMNEW
SMSWR
SMXCNT
SNULL
SNWIST=

001110
revnee

MACY11

861#

6
30A(1052)
25-MAY-79
10:48
PAGE 284
CROSS REFERENCE TAQGLE == USER SYMBOLS

8233

10497

040651
040640
037074
001154
000001

10642

9084+
10595

9376+

10959

$OCNT

10482

10498+

246420
3225
5610#

25874
3624

7262
8891#

2644
36220
5412
75784
8893

9641

9654

10489

10505

10920

10923

10971

2261
28504
4834

$REGO
$REG!
$REG2

$REG3

043004
062772
062632
042766
062704
001222
040412
seeeny

=
$SWRMK
$TIMES
$1kB
$TKCNY
$TKINT

000000

177777
037032
000200

167770

000000
001212
001146
037542

037562

10504

109¢5

26764

26294
3900
57394
8021
95634

55514
7580
92094

6175

58764
8191

11281#

11330#
113464
10642
11322

10802

10846

10862

889«
890#
8914

001166

001170
001172
001174
033116

11244+
10493
9632+

113684

040502
040662
000011
001160
001162
001164

$REG4
$REGS
$SRTNAD
= (22222
$R2A
$SAVRE= tteTEY
$SAVRE
043002
$SCOPE
036624
$SETUP= 000117
$5S1
$STUP
$SVLAD
$SVPC
$SWR

8547

042542
0462544
037060
001100

SEQ 0282

10234+

10207

7087#

$OMODE
$OVER
$PASS
$POWER
$PWRAD
$PWRDN
$PWRMG
$SPWRUP
$QUES
$RDCHR
$RDDEC=
$ROLIN
$RDOCT
$RDSZ =
$SREGAD

892#

U
U

96534
11325
11325
11339+
2042

11347
104564

11348+

11349+

113674

10690

10691

2042

10721

2044

2046

10467
7874

104964
792

20334
20724
2033#
603#
2050
3241

7280
9652
10478
10954

658
8994
878#

106464

2080

2041

613
2051
3637

7602
9654
10485
10959

659
2050+

10645
10661+

2302

10869

10938

2048

10962

653
2187

4675

8398

10450
10498
11364
10474

2296+

10702
10822
10661#

9574
10757
10743

2051

2053

2120

656
2656
5420
8911

657
2596
5564
9225

2638
5749

658

10458
10929

10470
10930

9574
10472
10931

9631+

10485

104692

9630

899

2683
5902
9625

10457

900

2728
6706
9631

10473
10932

10476
10933

106495+

10504

10685

901

2864

7098
9646
10477
10947

L 6

CZRJJDO, RPO4L/5/6 FCTNL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

MACY11

30AC1052)
25-MAY-79
10:48
PAGE 285
CROSS REFERENCE TABLE == USER SYMBOLS

106504
106474
10648#
106497
8774
10664

10716
10662+
10663+

10827
10663

893#
8944
9059+
9535
895#
8964
8974
898#
603#
2436
26834
3910#
5739
8015
8891

$TMP2
001202
$TMP3
001204
$TMPS
001206
$TMPS
001210
s 000041
$IN

001152
001157
001150
042546
$TRAP2
042570
= 000014
$TRP

fEEREY

062662

WROWOOC
N
— Nt Nt O -

OVl
S00
—

OO
-

o
ol
i
i

= L= T

———
G
S
S

(22222

037076
037322
037472
037540
042344
042360
042320
036636
000000
042543

042602
001102
040610

90#

s
—

$TRPAD

$STSTNM
$STTYIN
$TYPBN=
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$1YPOS
$XTSTR
$$GET4=
$OFILL
$4L0CAT=

2657+
G277+
9550

2163
24564
2706

2174
2459
2719

8028#

$1PB
$TPFLG
$TPS
$TRAP

2365+
2656+
9202+
9547

41884
5876

001144
037632
001176
001200

10718
10667+

10714+
10826+
10829
10698+

10825

10715+
10827

10716
10829+

10718+

10700

10706+

10728

2701+

9280+
9554+

2702+

9377+

9516

2187#
25964
2735

2188
2604
2850

2259
2629
28644
5201
7098#
83984

12809

67064
8210
9563

5902#
8189

8218

9368+

4832

4664

8215+

10744+

L8660
7087

8388
95744

10754

10766+

10786+

8220+

8224
9527

8228
9529

8229+
9533«

8924+
9534

2272
2639
32410
5410

2282
2662

22964
2668

36374
5551

2298
2676
3898
55644

85594

8672

86934

8777

113238

113244

11325#

905
22334
26148
10399#
10869

19654
2309#
26184
104114
10923

9518+

72804

9204
10642
10642
10642

9209

11315#

113164

11317#

11318#

11319

113204

11321

113224

9630+
10857

10447
10861#

10474

10496+

10501

10505

10946

10971

11313
10624
10640#

10629#

10630

10788

3622
564208
7575

7578

7602#

11316

037550

—

037544
037546

O= VO == =O0000—=0O

$TKQEN= 037561

$TKQIN
$TxQ0U
$TKQSR
$1KS
$TKSRV
$TMPO
$TMP1

SEQ 0283

11245

458

787
19804

24004
9654

128804

105714
11073#

11280#

7884

2039
24064
9658

10642
11081#

790#

2053
24124

102134

10645

11089#

792#

2054
24954

10221#
106494
11097#

11203

11342

194568

2335#
26248

10632#
10971
11366

CIRJJIDO, RPO4/5/6 FCINL CTRLR 2
CIRJJD.P1Y
28-MAR-79 08:52

ALLREG

CHANGR

CHECKD

647#

10996

11005

6478
LGl
5702
6896

2808
4581
5709
6910

3028
4588
5820
6914

11109

7810

11117

7814

11021

11029

11037

11045

11053

11061

11069

11077

11085

11093

11101

3015
4602
5830
7178

3164
4609
5839
7187

3nn
4791
5846
7201

6105
4798
6166
7208

4114
4805
6175
7485

4123
5362
6189
7492

4135
5371
6200
7504

4387
5378
6432
7513

4409
5506
6441
7517

4418
5517
6480
7787

4433
55264
6879
7794

4437
5691
6889
7801

3353
5574

3500
5648

3646
5791

3708
5950

3966
6127

4075
6393

4245
6594

6347
€752

4541
6824

4684
6997

4737
7148

11133

8305

8312

647
4939

2970
5088

CHECKV
CHKCNT
CKCNTV

9232
647F
647N
647N

9329
2742

9462

6478
4885
6726

3293
5250
6964

9?§§'

8037

3066
5054
6956

CMPBLK

7876

2905
4905
6790
3%83

3606

3858

CMREGI]

6478
gggg

7334

CLEARA

COMMEN

DATACO

DISREG
DUM
ENDCOM

ERROR

ESCAPE

F IHEAD
FILLBL

FLSVRE

GETPRI
GE TSWR

600

LOAD

MSG

6478
5269
7316

6478
647
1L

7365

2820
5531
616

2921
5287
76422

6921
2745
625

6664
3597
4821
6518
8121

2205
3616
4980
6650
8130

7724

9826

9935

7448

8044

SEQ 0284

11013

11125

3125
5318

MACY11 30A(1052)
25-MAY-79 10:48 PAGE 287
CROSS REFERENCE TABLE == MACRO NAMES

3249
5462
7678

11141

8321

7750

3311
5429
7107

8327

8338

8473

8482

8423

8496

8075

8289

3
5
7115

3556
5758
7309

3802
5921
7401

3931
6020
7407

6042
6063
7415

4209
6307
7634

6314
6315
7652

4493
6323
7710

4499
6547
7716

4507
6555
7870

9417

5182

6508

6670

7071

7239

7560

7999

8174

3185
5852

3427
6242

3588
6488

3839
6640

4014
6929

4141
7050

4292
7220

4455
7537

4616
7839

4811
7983

5013
8158

5162
8362

3081
5622
7724

3099
5766
7884

3327
5932
8051

3462
6081
8582

3681
6099
8716

3939
634>
8820

4050
6363
8984

6217
6569
9107

4322
6734
9310

6514
6798
9443

4913
6972

5062
7123

2278
3737
4989
6680
8168

2660
3751
5023
6939
8184

2671
3849
5043
7060
8372

2711
3868
5129
7081
8536
9965

2796
4023
5138
7230
8640

10021

2805
4150
5172
7249
8774

10025

2830
4169
5192
7551
8874

10044

3039
4301
5400
7570
8884

3195
LLb4
5541
7853
9049

3215
4626
5726
7950
9165

3395
4647
5863
7959
9186

3404
4777
6252
7993
9509

3437
4786
6498
8009
9819

4483
7624

4875
7642

4897
8572

5229
8706

5239
89564

3029
5716
7720

2940
5637
7660
7041

7720

9937

7212

9947

9956

5033

3283
6052

3301
6283

3548
6294

3794
6539

3919
6716

4197
7299

6478
3815
4576
6422
7499

2998
3820
4597
6427
7524

3003
3825
4994
6452
7529

3022
3830
4999
6465
7821

3154
3996
5004
6471
7826

253?

3178
4006
5148
6628
7964

3409
4130
5153
6633
7970

3414
4275
6156
6867
7975

23 19

1L
1L

7724
603#

7724

2120

9425

6u70

2766

2980

9341
647l

9400

9479

2182
2849

22588
2852

2180
2721

4951
7346

9126

9301

4638

3061
6041

4749
7160

9003

9098

6160

2891
6008

8491

8928

9077

2880
5997

9290

8837

8975

6474
5911

9087
6L

8735

8507

7909

9434

8601

8503

5100
7382

5143
6623
7831

3564

80
61
61
68 ;g
81

4285
6184
6905
8140

3569

4398
6213
7026
8145

3574

3579

3810

4404
5218
7031
8150

4428
6224
7036
8348

6571
6230
7196
8354

3135

3261

5474
7690

5591
7762

5659
7921

5803
8088

5962
8613

6139
8747

3978

4,087

6405
8847

6606
8940

6764
9015

4359

6553

4696

2261
3222¢

2281w
3225

2284
36214

26410
3624

2444
3897¢

25874
3900

2589
L1738

2628#
46175

2631
L6638

26754
4666

2678
48328

2718»
4B34

5330
7460

3365

3504

3660

3725

4257

6836
9138

7009
9252

CIRJJDO, RPO4/S5/6 FCTNL CTRLR2
CZRJJD.PI
28-MAR-79 08:52
5200#

7262

MULT
NEWTST

OFFST
POP
R

PUSH

REPORT
RFORGC
RHCLEA

SAVE
SAVTST
SCH

SCOPE

SEEKCO
SETPR]
SETTRA
SETUP
SKIP
SLASH
SPACE
SREGIS
STARS

STARTT

SWRSU

TJUMP
TRMTRP
TSCLR2

TSCLRS

TTISINO
TYPBIN
TYPDEC
TYPNAM

9208#
"
"

4664

8672
647N
"

1055?

10517

647N
64674
G475
6562
8647
6L7H
6474
647N
6674
4865
8910
647H
1L

113054

1L
1L
1L
7724

64LT7H
5311
8434

2259
2636
3622
5227
5995
6693
8557
9563
11207
6474
6706

64LT7H
113054

6474
6474
647H
6707

1L
”
1L

MACY11

30A(1052)

25-MAY-79

10:48

PAGE 288

56409#
7580
95634

5612
8018#
9565

5553
8188#

57384
8191

5741
8387#

5875#4
8390

7720
4832
8891

2180
5201

2259
5610
9563

2442
5739

2587
5876

2629
6693

2676
7087

7720
10912
7720
10886
7720

7552
11351

7854
11352
7849
11338

9712

9737

9854

9967

9702

9730

9844

4868

2688

2866
5213

3053

3243
5566
7604
9227

2596

2684

2295
5563
9629
7370

2595
5901

2637
6705

11314
7724
647n
7724

11316

11319

2163

2752
5455

3119
5784

639
2264
2676
3635
5262
6035
6704
8672
9572
11284
2459
7098

2294
2719
3891
5388
6075
7096
8891
10427
11344
2864

5203
75784
9211
7724

2461
4677
6708
8695
10939
2188
3713
2186
5210
9224
3656

7724

7724
7575

2460

7099

7724
7724
7724

9209

SEQ 0285

CROSS REFERENCE TABLE == MACRO NAMES

66924
8547

70874
8674

7089
8890#

3622
8189

- 3898
8388

4173

10049

10164

10262

10338

9907

9993

10132

10252

10310

3276
5607

4190

7862
9386

3912
6209
8236

4036

7615
9283

3456
5751

2682

2727

2863

3909
8397

4187

4674
8692

11321

11322

11323

11324

2272

2436

2604

2662

2668

3481
6386

3700
6588

3959
6817

4068
6990

10436

850
2394
2850
3908
5418
6207
7278
9209

10444

905
2442
2862
4173
5551
6211
7578
9223
10507

7602

3241
8028

3637
8200

8210

8777

2865
7603

3242
8029

3638
8201

7282
8956

6949
8812

7724

5422
7293
9067

7097

1606

2454
2874

4186

5562
6268

7279

1608

2507
2878

4664

5739
6277
8019

7600
9271
10574

9275
10644

3910
8398

4188

4675

3911
8399

4189

8559

8560

7601

6330
8400

8558

72594

8893

8545

6525
8561

9204
4340
7441

4534
7743

4729
7902

4932

5081
8281

1655

2134
2577
3076
4864
5900
6344
8198
9525

2156
2587
3079
5201
5931
6460
8388

2180
2594
3223
5209
5988

2185
2629
3239
5223
5991
6536
8545

2544
2919
4832
5876
6340
8189
9521

8068

6464

8396
9545

10736

10807

10831

10872

9562
10925

8693

5211
9225

5420

5564

5749

5902

4676
8694

9226

5212

5621

5565

5750

5903

9541

Wit

647N

2974
5093

L4742
7153
9334
647N
4562
6844
9030
64L7r
4568

7375
9467
2989
4758

7168
9260

2995

L764
7174
9266

6850

$SCMRE
SSCMTM
$SESCA
SENEWT

9036
848#
848#
"
1

L664

603#

783

603
603#

773
848

603
603#
603#

9620
10923

"
¥
¥
1
”
1L
1L
"

603#

11326

6034
603#

10870
10642

LSCMTA
.$0B2D
.$0B20
.SD1V

. $SEOP

.$ERRO
.SERRT
.SMULT

. SPOWE
. SRAND
. SRDDE
. $RDOC
.SREAD
.SR2AZ
. $SAVE
.$582D

"
1
1L

7914

662
811

2032
647

11322

2331
2607

1014
1134
4352

10355
11022
11142
4546

10371
11030

4096

4266

4368
6772
8948

3993
6153
8630

4102
6419
8764

4272
6620
8865

6374

3223
8019

3622
8189

3898
8388

64173
8545

7260

2850
7578

11323

11324

11325

7087

2306
2572

3987
6147
8624

2719

7705

2230
2566
0348

11126
4250
6599

2676

3518
5488

2224
2560
0229

10998
11118
4080
6398
8841

3791
5976
8302

7659

11321

2209
2534
10225

3785
5970
8296

3512
5482

2587
5876

K
”
1L
1L
1L}
¥

”
”
1
"

3526
5653

2180
5201
9209
11315

LSACTI
.SAPTB
.SAPTH
.SAPTY
.SASTA
.SCATC

603#

10203
10408
11086

892
898

8672
113054
1
w
1
1L
1L
¥

.SWRLO

2104
2487

888
894

$SSET
$$SK1P
.EQUAT
.HEADE
KT
.SETUP
.SWRH]

SEQ 0286

TABLE == MACRO NAMES

——h
eh

10390
11054

10378
11038

PAGE 289

2336
2611

—_—

2532
2086
2344
2621

CROSS REFERENCE

10:48

OO W —O O NN
N=O—=HrRown—
SfWuN—N—NO
ON—OooOo

VECSET

1L
"
»
|1

25=MAY=79

CowVilbe
= 00N
O—=0>
NN—O

TYPNUM
TYPOCS
TYPOCT
TYPTXT

MACY11 30A(1052)

oWVl
— 00~
O—=0>
CO~NO>

CZIRJJDO, RPO4L/5/6 FCTNL CTRLR2
28-MAR-79 08:52
CZRJJD.P1I

8933

6757
9008

6413
8758

6829
9131
6614
8859

4689
7002
9245

6778
8954

1170
.

ABS.

sl
il
il
i
il
il
il
il
il
i

.$S1ZE
.$SUPR
.STRAP
.$TYPB
.$TYPD
.STYPE
.$TYPO
.$40CA

.$5B20
.$SCOP

NN
R

CIZRJJDO, RPO&L/5/6 FCTNL CTRLR2
CZRJJD.P1I
28-MAR-79 08:52

062662

ERRORS DETECTED:

603»

10442

603#

11282

603#
603w
603#

10505
10572
11205

MACY11

A
30A(1052)
25-MAY-79
10:48 PAGE 290
CROSS REFERENCE TABLE == MACRO NAMES

000
0

DSKZ:CZRJJID.BIN,DSKZ:CZRJIJID.LST/CRF/SOL/NL:TOC:MD:MC:CND/L]:ME=CZRJJD.SML,CZRIJD.PITI
RUN-TIME: 103 142 7 SECONDS
RUN-TIME RATIO: 562/254=2.2
(73 PAGES)
37k
CORE USED:

SEQ 0287