Digital PDFs

AH-9225C-MC

May 1978

229 pages

Original

140MB

view download

OCR Version

220MB

view download

Document:	CZRJJC0 RP04-5-6 FUNCTIONAL CONTROLLER 2 DEC 1978 bw
Order Number:	AH-9225C-MC
Revision:	000
Pages:	229
Original Filename:	CZRJJC0__RP04-5-6__FUNCTIONAL_CONTROLLER_2__AH-9225C-MC__DEC_1978_gray.pdf

OCR Text

FUNCTIONAL CONTROLLERZ
CZRJJCO

AH-9225C.MC

DEC1
&

MADE IN USA

R P04/ 5/ 6
SUETER

FUNCTIONAL CONTROLLER 2

CZRJJCO

AH-9225C-MC

DEC 1978

FICHE20F2

_MADE IN USA

copvricuT 7278

OEORED

(IRJJCO, RPO4L/S/6 FCTNL CTRLRZ2

rIRJJC.PI

26=JUL~78 10:07

MACY11 30A(1052)

27-JuL-78

8B
12:32

1
PAGE 2

SEQ 0001

.REM a

IDENTIFICATION

PRODUCT CODE:

AC=9223C-MC

PRODUCT NAME:

CZRJJCO RP04/5/6 FUNCTIONAL CONTROLLER TEST PART I

DATE CREATED:

MAY 1975

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

PETE SLACKSTONE

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

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED
TO THE PURCHASER UNDER A 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 IS NOT SUPPLIED BY DIGITAL.
COPYRIGHT (C) 1974,1978 DIGITAL EQUIPMENT CORPORATION
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION

DIGITAL

PDP

UNIBUS

MASSBUSS

[:;RJJCO. RP04/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27=-JuL-78
(ZRJJC.P1

26=-JuL-78 10:07

DEC

DECUS

CONTENTS
ABSTRACT

REQUIREMENTS

2.1

EQUIPMENT

2.2

STORAGE

2s3

PREL IMINARY PROGRAMS

. A

LOADING PROCEDURE

3.1

ME THOD

STARTING PROCEDURE
4.1

CONTROL SWITCH SETTINGS

4.2

STARTING ADDRESS OR ADDRESSES

4.3

PROGRAM AND/OR OPERATOR ACTION

OPERATING PROCEDURE

- T

OPERATIONAL SWITCH SETTINGS

5.2

SUB-ROUTINE ABSTRACTS
ERRORS

6.1

'FATAL'

ERRORS

RESTRICTIONS

MISCELLANEOUS

8.1

EXECUTION TIME

8.2

STACK POINTER

8.3

OPERATOR SELECTABLE SCOPE LOOPS

8.4

PROGRAM REVISION

HISTORY

PROGRAM DESCRIPTION

12:32

PAGE 3

DECTAPE

SEQ 0002

CZRJJICO, RPO4L/S/6 ECTNL $6R6§2
CZRIJC.P11

MACY11 30A(1052)

26=JUL-78
1.0

27-JuL-78

B
12:32 PAGE 4

ABSTRACT

THIS DIAGNOSTIC TESTS THE DCL OF THE RP04/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.
IT DOES NOT NEED A
FORMATTED DISK PACK.
A DISK PACK WITH NO VITAL INFORMATION
WRITTEN ON IT IS ESSENTIAL.
AFTER A SUCCESSFUL RUN (WITH
NO 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 TO
OTHER DIAGNOSTICS.
THIS IS WITH THE ASSUMPTION THAT STATIC 1
(DZRPS AND DZRPT

2.0

REQUIREMENTS

2.1

EQUIPMENT

PDP-11

SYSTEM.

) HAS BEEN RUN SUCCESSFULLY.

COMPUTER WITH CONSOLE TELETYPE, AND A RP04/5/6 DISK

THE RP04/5/6 DISK SYSTEM WILL CONSIST OF AN RH11
CONTROLLER, A DISK CONTROL LOGIC (DCL), A DEC 733 DISK

DRIVE, AND ITS APPROPRIATE DISK PACK.
THE DISK PACK NEED
NOT BE FORMATTED.
USED SECTION OF THE DISK SURFACE SHALL
BE GOOD (HOLE FREE).
THE SURFACE FOR THE FOLLOWING SECTORS
MUST BE GOOD, THAT IS, FREE OF ANY HOLES OR SURFACE
%R?EGgé?ngY BEFORE ANY DATA ERROR CAN BE ATTRIBUTED TO
H

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
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

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

STORAGE
THIS PROGRAM REQUIRES 16K WORDS OF MEMORY

2.3

PREL IMINARY PROGRAMS

THIS PROGRAM ASSUMES THAT MAINDEC-11-DZRJG-(LATEST
REV) HAS BEEN RUN WITHOUT ERRORS.

IT ASSUMES THAT MAINDEC-11-DZRJH-(LATEST

REV) HAS BEEN RUN WITHOUT ERRORS.

SEQ 0003

——

CZRJJCO, RPO4/S/6 FCTNL CTRLR2
CZRJJC.PN

26=JUL-78 10:07

MACY11 30A(1052)

27-JUL-78

12:32

PAGE 5

SEQ 0004

AND IT 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.
IT CAN BE SET AT THE FRONT PANEL, OR IN THE
SOF TWARE SWITCH REGISTER IF THE OPERATOR SO DERSIRES.
SEE

PARAGRAPH 5.1
OPERATION.
4.1

FOR A DESCRIPTION OF

SOF TWARE SWITCH REGISTER

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 IS POWERED UP (THAT IS THE LOWEST UNIT NUMBER RHAS REGISTER
THAT RESPONDS)THEN GO ON TO THE NEXT HIGHER UNIT NUMBER
THAT

IS 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

4.3

THE PROGRAM.

PROGRAM AND/OR OPERATOR ACTION
1.

LOAD THE PROGRAM INTO MEMORY.

SET STARTING ADDRESS ON THE SWITCH REGISTER

PRESS 'LOAD ADDRESS''.

CZRJJCO, RPO4/S/6 FCTNL CTRLR2
ICZRJJC.P11
26~JuUL~78 10:07
&.

MACY11 30A(1052)

27-JuUL-78

-3

12:32

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
CN THE DRIVES PRESENT OR DRIVE SELECTED BEFORE 'END
PASS'* IS 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
SELECTED BEFORE 'END PASS'' IS PRINTED.
THE SECOND
AND SUBSEQUENT PASSED DO NOT NEED ANY OPERATOR INTERVENTION.
5.0

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS

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

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

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

'CONTROL G'.

THE PROGRAM WILL RECOGNIZE A 'CONTROL G' AT ANY

TIME EXCEPT WHEN IT 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,
REGISTER IMAGE MUST BE ENTERED.

THE ENTIRE SWITCH

LEADING ZEROS ARE NOT

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

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE A#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
3g£gCH SETTINGS'' HOWEVER THE DETAIL DESCRIPTION ARE GIVEN
SWITCH 15 - HALT ON ERROR

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR
THEN THE APPROPIATE INFORMATION WILL BE PRINTED OUT
AND THEN THE PROGRAM WILL HALT.
AFTER THIS HALT, PRESSING

"'CONTINUE'" WILL CONTINUE WITH THE PROGRAM TILL THE NEXT
ERROR IS FOUND WHEN THE SAME THING WILL HAPPEN.
SWITCH 14 - LOOP ON TEST

WHEN THIS SWITCH IS SET THE PROGRAM WILL BEGIN TO LOOP

SEQ 0005

CZRJJC.PN

26=-JUL-78 10:07

MACY11 30A(1052)

27-JuL-78

12:32

PAGE 7

ON THE CURRENT TEST BEING EXECUTED.
FOR EXAMPLE IF THIS
SWITCH IS SET WHEN THE PROGRAM IS IN TCST 10 THEN THE
PROGRAM WILL KEEP EXECUTING ALL OF TEST 10 REPEATEDLY.
ONE WAY TO 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
IT WILL SAY SO.

THAT PASS FOUND 6 ERRORS,

SWITCH 12 = RH70 CONTROLLER SELECT

THIS SWITCH MUST BE SET AT THE START OF

THE PROGRAM WHEN THE

DISK DRIVES TO TESTED ARE CONNECTED TO AN RH70 CONTROLLER.
IT 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
NOEERSZEAT EACH TEST FOUR TIMES BUT WILL DO EACH TEST
CN

LY.

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
IS DETECTED. TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH
SWITCH 11 SET TO HELP SCOPING.
THEN IF THIS SWITCH IS
SET AND THE BELL OR ALARM SOUNDS IT MEANS THAT THE ERROR
IS PRESENT BUT IF THE BELL OR ALARM STOPS IT MEANS THAT
THE ERROR IS 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

EXECUTED ''SCOPE'‘' STATEMENT.

IF ON THE SECOND TIME

THROUGH AN ERROR IS FOUND IT WILL AGAIN LOOP BACK TO

THAT ‘‘SCOPE’' STATEMENT.
THIS LOOPING WILL CONTINUE AS LONG
AS THE ERROR IS PRESENT AND THIS SWITCH IS SET.
HOWEVER
IF THE ERROR IS NOT PRESENT AT ANY TIME THEN IT WILL
CONTINUE NORMALLY WITH THE PROGRAM.
EACH TIME THE ERROR

IS ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11
IS ALSO SET.

THAT SWITCH 11

NOTE:

DURING BEGUG, USING A SCOPE,
IS ALSO SET.

SEE SECTION 8.3

IT IS RECOMMENDED

SEQ 0006

CZRJJCO, RPO4L/5/6 FCTNL CTRLR2

CZRJJCO, RPO4/S/6 FCTNL CTRLR2

CZRJJC.PN

26=JuL~-78 10:07

MACY11 30A(1052)

27-JuL-78

12:32

PAGE 8

SWITCH 8 - LOOP ON TEST IN SWR <7:0>
THIS IS A SPECIAL SWITCH. WHEN SET SW.TCHES 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 TO 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 ITS NAME INDICATES.
FOR EXAMPLE SWITCH 7 IS "'STOP FURTHER COMPARES: THAT IS

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

DATA ERROR IS DETECTED NO FURTHER COMPARES WILL BE DONE.
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL THE WORDS ARE IN
ERROR THEM AFTER SEEING THE PRINTOUT FCR THE FIRST FEW
WORDS SETTING SWITCH 7 ONLY WILL STOP FURTHER PRINTOUTS
OF THIS ERROR AND GO ON WITH THE TEST RATHER THAN PRINT
ALL THE 256 WORDS.
HOWEVER IF THIS WAS DONE WITH SWITCH 11
THEN THE NEXT ERROR THAT THE PROGRAM DETECTS IN A_SUB-

SEQUENT TEST WILL ALSO BE LOST.

BUT WITH SWITCH 7, ONLY

THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT.

ANOTHER

EXAMPLE OF SWITCH 8 BEING LOW IS WITH SWITCH 6, WHICH

IS "ECC TEST-COMPARE END RESULT ONLY''.

THAT IS IF SWITCH

8 IS 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 ALL THE CLOCKS.

NOTE:

SEE SECTION 8.3

SWITCH 7 = STOP FURTHER COMPARES IF SWO8 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 NOT SET

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 SWO8 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

SEQ 0007

CZRJJCO, RPO4L/S5/6 FCTNL CTRLR2

(ZRJJC.PN

MACY11 30A(1052)

26=JuUL-78 10:07

27-JuL-78

12:32

PAGE 9

NOT SET AND THIS SWITCH IS SET THEN THE PROGRAM WILL DO
AS THE NAME INDICATES.
THAT IS ON FINDING AN ERROR INSTEAD
OF ONLY GIVING THE ERROR MESSAGE AND RELEVANT REGISTERS
AS WILL BE DONE IF SWITCH 11 IS NOT SET BUT WILL ALSO
GIVE ALL THE REGISTER CONTENTS (EXCEPT 'DATA BUFFER'' RHDB).
5.2

SUB-ROUTINE ABSTRACTS

SEE SECTION 9 ''SUBROUTINES''.
6.0

ERRORS

ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER

PERTINENT INFORMATION CONCERNIM3 THE PARTICULAR FAILURE.

THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RP04/5/6

REGISTERS OR GOOD/RECEIVED DATA.

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 THE CAUSE OF THE ERROR.

6.1

'FATAL'

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.
IT IS SUGGESTED THAT IF THIS HAPPENS, THE OPERATOR LOAD
ADDRESS 200 (210) AND RESTART THE PROGRAM AS A FIRST ATTEMPT
TO SOLVE THE PROBLEM.
IF THE FILURE CONTINUES TO OCCUR,
THERE ARE

TWO OPTIONS FOR THE OPERATOR:

1.
LOOK IN THE TEST LISTING FOR THE 'HALT'
INSTRUCTION AND REPLACE IT, 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

2.
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 IS 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 IT 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 IT TO BE SET WHEN USING AN
RH70,

THE PROGRAM CANNOT BE RUN IN CHAIN MODE WHEN USING THE

SEQ 0008

CZRJJCO, RPO4/S/6 FCTNL CTRLR2

CZRJJC.PN

26=-JUL-78 10:07

MACY11 30A(1052)

27-JuL-78

12:32

SEQ 0009

PAGE 10

SOF TWARE REGISTER FEATURE WHILE RUNNING ON AN RH70.

THIS IS

BECAUSE THE ROUTINE WHICH GETS SOFTWARL 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 IS INITIALLY SET TO 1000
8.3

OPERATOR SELECTABLE SCOPE LOOPS
HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS.
FOR INSTRUCTIONS REGARDING THE USAGE OF THIS TECHNIQUE, HIT *C
ANY TIME WHILE THE PROGRAM IS RUNNING.
ON HITTING AN ERROR

IF THE LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BA(CK =
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.
IT MUST BE WITHIN THE TEST UNDER CONSIDERATION

LOOP ON ERROR SWITCH MUST BE SET
2.
3.
THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION
IF 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

NORMAL OPERATION WILL CONTINUE.

THE LOOP SWITCH IS PUT DOWN THEN

8.4

PROGRAM REVISION HISTORY

9.0

PROGRAM DESCRIPTION

9.1

LOGIC DIVISION IN HARDWARE MODULES
REGISTER BOARD (RG)

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

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2

CZRJJC.PN

26=-JuL-78 10:07

MACY11 30A(1052)

27-JuL-78

12:32

PAGE 11

SEQ 0010

HANDL ING.

ERROR CORRECTION (EC) = ECC LOGIC ERROR REGISTER 2 & 3

MUX FOR ERROR REG. 2 & 3 LOOK AHEAD
REG. SECTOR COUNTER DATA FORMATION
RING COUNTER.

DUAL PORT (DP) =

9.2

DUAL PORT ARBITRATION ATTENTION LOGIC
EESAQEENO REGISTER MASS BUS REGISTER

DISK SURFACE USAGE
SYMBOLS USED
C = CYLINDER

T = TRACK
S = SECTOR
W = WRITE
R = READ
TT = TEST NUMBER

c0,

10, SO

TT22-W,R, TT23-R, TT24~W,R, TT25-W,R, TT26~W,R, TT35-W,R, TT37-W, TT50-wW, TT51-W,R, TT52-W,R, TT55-W.R
0, 10, $1
T127-W,R, TT37-W,R,

TT40-R, TT41-W,R,

0, 118, S21
TT30-wW, TT31-W.R

i, 10, SO
T730-W,R, TT31-W,R,
1,

TT53-W,R,

118, S21

TT31-w

c2, 10, SO
TT31-W.R
2, 118, S21
TT31-W

c3, 10, SO
TT31-W.R
(3. 118, S
TT31-W

c4, 70, SO
TT31-W.R
C4,

T18, S21

¢5,

10, SO

TT31-w

TT31-W.R

TT54-W.R

TT42-W,R, TT43-W,R

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PM

26=JuUL-78 10:07
S,

MACY11 30A(1052)

27-JuUL-78

12:32

PAGE 12

17, %

TT33-W.R, TT34=W.R
c5, T18, s21
TT31-w
c6, 10, SO
TT31-W.R

6, 118, S21
TT131-w

c7, 10, SO
TT31-W.R

c7, T18, S18
TT31-W
(8, 10, SO
TT31-W.R
(8, 118, S21
TT31-w

9, 10,
TT31-W

(9, 118, S21
TT31-wW, TT32-R
c10,

10, SO

TT31-W.R

€410, 118, S21
TT36-W,R, TT50-W.R
9.3

THE FOLLOWING SECTION DESCRIBES EACH TEST AND SUBROUTINES
IN DETAIL AND CAN BE USED AS AN INDEX TC THE LISTING.
THE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING

gHERE THAT

ITEM WILL BE FOUND.

SEQ 0011

czl
czl

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2
CZRJJC.PN

26=JuL-78 10:07

MACY11 30A(1052)

27-JuL-78

12:32

PAGE 13

603
604
605

;DRIVE MUST BE LOCKED ON PORT A OR PORT B

;*INTERNAL PROGRAM MACROS BEGIN HERE

"tfittfil'itttttt'ttttttttt.tfittfi*tttttt

:«NOTE: ALL MACRO CALLS BEGINNING WITH *'.$'* ARE SUPPLIED FROM AN
e
o

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

SEQ 0012

czl
czi

%%2JJE051$904/5/6 FCTNL CTRLR2
JJC.

26=JuL-78 10:07

MACY11 30A(1052)

27-JuUL-78

BASIC DEF INITIONS

12:32

PAGE 14

SEQ 0013

FUP

T VIR

SRR

628

CZRJJCO, RPO4/S/6 FCTNL CTRLRZ2
CZRJJC.P1T
26-JuL-78 10:07

629
630
631
632
633
634

000174
000176

000000
000000

000046
000052

032662
020000

000200
000210

000220

000200
000137
000137
000137
000220
000137

MACY11 30A(1052)

27-JuL-78

TRAP CATCHER

DISPREG:
SWREG:

.WORD
.WORD
$ENDAD
.WORD

004710
035236
004674

;;SOF TWARE DISPLAY REGISTER
;;SOFTWARE SWITCH REGISTER

20000

;21)SET LOC.46 TO ADDRESS OF S$ENDAD IN .SEOP
;:2)SET LOC.52 TO 20000

STARTING ADDRESS

RA:
ADDMOD:

JMP
JMP

004660

JMP
.=220
JMP

2
PAGE 15

0
0

.SBTTL

.=200

12:32

A#BEGIN
SMBASE
CH

AMBEGINS

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

aMBEGINT

;JUMP TO NO OPERATOR TESTS START

;*STARTING ADDRESS 200 FOR NORMAL STARTS
'THIS WILL TEST ALL RPO4'S ON THE SYSTEM A SINGLE DRIVE AT A TIME
'SYARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE

'STARTING ADDRESS 220 WILL JUMP OVER THE TESTS REQUIRING AN OPERATOR
;*AT

THE

DRIVE

SEQ 0014

CZRJJCO, RPO4/S/6 FCTNL CTRLR2
CZRJJC.PIT
652
653

26=JUL~-78 10:07

001110

MACY11 30A(1052)

27-JuL=78

12:32

PAGE 16

MEMORY MANAGEMENT DEF INITIONS

.=1110

SEQ 0015

.WORD
.BYTE
.BYTE
.WORD
.WORD
SWR:
DISPLAY: .WORD

$AUTOB:
$INTAG:

$TKS:
$TKB:
$TPS:
$TPB:

$NULL:
$FILLS:
$FILLC:

001160
001162
001164
001166
001170
001172
001174
001176
001200
001202
001204
001206
001210
001212
001214
001216
001222
001223
001224

000377

01
000012

177560
177562
177564
177566
.BYTE
.BYTE
.BYTE

$TPFLG: .BYTE
$REGAD: .WORD
$REGO:
.WORD
$REG1:
.WORD
$REG2:
.WORD
$REG3:
.WORD
$REG4:
.WORD
$REGS:
.WORD
$TMPO:
.WORD
$TMP1:
.WORD
.WORD
$TMP2:
$TMP3:
.WORD
$TMP4:
.WORD
$TMPS:
.WORD
$TIMES: 0
$ESCAPE:0
$BELL:
.ASCIZ
$QUES:
.ASCII
$CRLF:
.ASCII
$LF:
.ASCIZ

001130

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

[eleleloleleloleololeblelelelelelelole)

NNNN_._A_._a_ag
oSO ONVESNO

Iy
IR
I
I
G
S R
P

COMMON TAGS

$PASS:
$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
$ITEMB:
$ERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDPAT:
$8DDAT:

000000

27-JuL-78

DDISP

26-JuL-78 10:07

CZRJIJC.PI

MACY11 30A(1052)

(sleleleololelolelololelsle
el dN e

C7RJJCO, RPO4/S5/6 FCTNL CTRLR2

12:32

PAGE 17

SEQ 0016

;s CONTAINS PASS COUNT
;s CONTAINS THE TEST NUMBER
;:CONTAINS ERROR FLAG
;s CONTAINS SUBTEST ITERATION COUNT
;s CONTAINS SCOPE LOOP ADDRESS
;;CONTAINS SCOPE RETURN FOR ERRORS
;;CONTAINS TOTAL ERRORS DETECTED
;;CONTAINS ITEM CONTROL BYTE
;. CONTAINS MAX. ERRORS PER TEST
;;CONTAINS PC OF LAST ERROR INSTRUCTION
;;CONTAINS ADDRESS OF 'GOOD' DATA
; ;CONTAINS ADDRESS OF °'BAD' DATA
;;CONTAINS 'GOOD* DATA
;;CONTAINS 'BAD' DATA
; ;RESERVED=-NOT TO BE USED
;;AUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR

;;ADDRESS OF SWITCH REGISTER
; ;ADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS

;:TTY KBD BUFFER
;:TTY PRINTER STATUS REG. ADDRESS
::TTY PRINTER BUFFER REG. ADDRESS

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

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

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

::CONTAINS THE ADDRESS FROM
::CONTAINS ((SREGAD)+0)

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

((SREGAD)+2)
((SREGAD)+4)
< “%REGAD)+6)
(. $REGAD)+10)
((SREGAD)+12)

:2USER DEF INED
: JUSER DEF INED
: JUSER DEF INED
: 2USER DEF INED
;;USER DEF INED
:;USER DEF INED
;:MAX. NUMBER OF ITERATIONS
:;ESCAPE ON ERROR ADDRESS
<207><377><377> ;;CODE FOR BELL
12
:;QUESTION MARK
<15>
;;CARRIAGE RETURN
<12>
::LINE FEED

CZRJJCO, RPO4/5/6 FCTNL CTRLR2

CZRJJC.PI
702
703
704
705

706
707

708
709
710
711
712

713
714
;}2

717
718
719
720
721
722
723
724
725

726
;gg

729

730
731
732
733
734
735
736
737

;%g

740
741
742

26=JuUL-78 10:07

MACY11 30A(1052)

27-JUL-78

ERROR POINTER TABLE

;ITEMT

001226

042572

001230

057450

DH1

001232
001234

061720
062240

DT1
DF1

001236

042621

001240

057450

DH1

001242
001244

061720
062240

DT1
DF1

001246

042710

001250

057450

DH1

001252
001254

061720
062240

DT1
DF1

001256

042771

s ITEMZ2

JITEM3

;ITEMG

EM1

EM2

EM3

EM4

743

744
745
746
747
748

749
750
;g;

753
754
755
756

757

12:32

PAGE 18

SEQ 0017

;RP0O4 DID NOT INTERRUPT
;WAITED ON BIT DID NOT OCCUR
;PC
:WAT
;BIT
;REG
sREG

PC
WAITED
ADDRESS
CONTENTS

JRHCST CONTENTS
:$ERRPC ,WAITPC ,WAITBT ,WAITRE,$8DDAT,(S1
;0,0,0,0,0,0
;INTERRUPT ENABLE BIT DOWN BUT
;WAITED ON BIT DID NOT OCCUR
:PC
;WAT PC
;BIT WAITED
;REG ADDRESS
;REG CONTENTS
;RHCS1 CONTENTS

:$ERRPC ,WAITPC,WAITBT ,WAITRE,$8BDDAT,(CS1
;0,0,0,0,0,0
;RP0O4 DID NOT INTERRUPT WHEN
JWAITED ON BIT DID SET
:PC
JWAT PC
:BIT WAITED
;REG ADDRESS
JRHCS1 CONTENTS
:$ERRPC ,WAITPC ,WAITBT ,WAITRE ,$BDDAT ,(S1

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

;WAITED ON BIT DID SET BUT
;TIME IS IN ERROR

;TIME IS GIVEN IN 10 MICRO SEC.
001260

057630

001262
001264

061740
062247

001266

043102

001270

057771

DH4

DT4
DF4
; ITEMS

EMS
DH5

; (DECIMAL)
;PC
;WAT PC
:BIT WAITED
;REG ADDRESS

:TIME IN 10 MSEC
;$ERRPC ,WAITPC ,WAITBT ,WAITRE ,$BDDAT ,WAITIM
:0,0,0,0,0,1
;RHAS DOES NOT CLEAR BY
;MOVING IN ALL ONES
:PC

*REG. ADDR.

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2

767
768
769
770
771
772
773
774
775
776
707
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793

001300

060110

DH6

001302
001304

061776
062263

DT6
DF6

001306

043242

001310

060207

DH7

001312
001314

062010
062267

DT?7
DF7

001316

043312

001320

060247

001322
001324

062020
062272

001326

043361

001330

;REG ADDR
JRECEIVED DATA
:858R8C.REGADR.$BDDAT

:SPECIFIED REGISTER NONEXISTANT

EM7

:gg ABORT PROGRAM

*ADDR. OF REG.
*$ERRPC, TEMP1
.

001334

062020
062272

001336

043466
060247

EM10

;STOPED DRIVE HAS MOL BIT

DH10

:PC

:IN RHDST = 1

;TEST NO
;FAILING REG ADDR

;CONTENTS OF RHCS1
;CONTENTS OF RHCS?
;CONTENTS OF RHDS1
;CONTENTS OF RHER1
:$ERRPC ,$TSTNM, $BDADR,(CS1,CS2.DS1,ER1
;0,0,0,0,0,0,0
;ITEM1

;WITH SPINDLE POWERED DOWN
;RHCS2 SHOULD HAVE ONLY

:g?IT NUMBER AND IR HIGH

060247

001332

001340

.GOOD DATA
JRECEIVED DATA

;LOADING RHERT FOR ALL
JUNITS DID NOT SET ANY BITS
:é? RHAS=NO UNITS PRESENT

043154

;ITEM10

SEQ 0018

PAGE 19

EM6

001276

;ITEM?7

:3E8RSC6REGADR.SGDDAT,SBDDAT

061762
062256
; ITEM6

12:32

DTS
DF5

001272
001274

sTEST NO
JFAILING REG.

S ITEM12

_—

766

ERROR POINTER TABLE

o0
- -

758
759
760
761
762
763
764
765

26=JUL-78 10:07

27-JuL-78

CZRJJC.PN

MACY11 30A(1052)

EM12
DH10

ADR

;CONTENTS OF RHCS1
;CONTENTS OF RHCS?2
;CONTENTS OF RHDS1
;CONTENTS OF RHER1
:$ERRPC,$TSTNM, $BDADR,(CS1,CS2,DS1,ER1
;0,0,0,0,0,0,0

:AFTER A POWER UP WITH

*NO PACK ACKNOWLEDGE COMMAND

;2?051 SHOULD HAVE MOL=1, VV=0

*TEST NO

CZRJJC.PN

27-JuL-78

ERROR POINTER TABLE

12:32

SEQ 0019

PAGE 20

001346

043574

001350

;ITEM13

060247

062020
062272

—

001342
001344

sFAILING REGISTER ADDR.

oo
- —

814
815
816
817
818
819

26=JuL-78 10:07

MACY11 30A(1052)

EM13

DH10

;CONTENTS OF
;CONTENTS OF
;CONTETNS OF
;CONTENTS OF

RHCS1
RHCS2
RHDS1
RHER1

M,
(S1,(S2,DS1,ER1
,$TSTN
$8DADR,
s $ERRPC
:0,0,0,0,0,0,0
JAFTER A POWER UP WITHOUT
;ANY INIT RHCS1 SHOULD
;JHAVE GO=0, DVA=1, RDY=1

;1E=0, DISREGARD
;ALL OTHER BITS

:PC

;TEST NO

;FAILING REGISTER ADDR.

001352
001354

062020
062272

001356

043713

001360

057771

001362
001364

061762
062256

;CONTENTS
;CONTENTS
;CONTENTS
;CONTENTS

QF
OF
OF
OF

RHCS1
RHCS2
RHDS1
RHER1

:$ERRPC ,$TSTNM, $BDADR,(CS1,CS2,DS1.,ER1

;0,0,0,0,0,0,0
s ITEM14

;AFTER POWER UP RHCC

;SHOULD BE=0

;PC

;REG. ADDR.

;GOOD DATA
JRECEIVED DATA

:358R8C6REGADR.$GDDAT.SBDDAT

ala)

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2
CZRJJC.PN

849

853

26=JuL-78 10:07

001366

043765

MACY11 30A(1052)

27-JuL-78

ERROR POINTER TABLE

;ITEMIS

EM15

12:32

SEQ 0020

PAGE 21

;PACK ACKNOWLEDGE CAUSED
AN ERROR

*GOOD DATA IS BEFORE COMMAND
001370

DH5

057771

857
858

001372
001374

061762
062256

861

001376

044126

DTS5
DF5
;ITEM16

EM16

867

001400

057771

DH5

871
872

001402
001404

061762
062256

DTS5
DF5

875

001406

044254

881

001410

885
886

SJITEM17

:gECEIVED DATA IS AFTER COMMAND

‘REG. ADDR.

*GOOD DATA
‘RECEIVED DATA
R,
$GDDAT , $BDDAT
: $SERRPC ,REGAD
:0,0.0,0
;GIVING A NO-OP COMMAND CAUSED
;AN ERROR
;GOOD DATA GIVES REGISTER
;CONTENTS BEFORE COMMAND

JRECEIVED DATA GIVES REGISTER
;CONTENTS AFTER COMMAND

:PC

;REG. ADDR.
;GOOD DATA
JRECEIVED DATA

R,
$GDDAT , $8DDAT
: SERRPC ,REGAD

’

EM17

;DRIVE CLEAR COMMAND
; CAUSED AN ERROR
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT WAS

057771

DHS

:PC

001412
001414

061762
062256

DF5

;0,0,0,0

889

001416

044411

EM20

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

893

001420

057771

897
898

001422
001424

061762
062256

902

001426

044560

DTS

;ITEM20

DH5

DTS
DF5

JITEM 21

EM21

;THERE AFTER COMMAND

;REG. ADDR.
;GOOD DATA
;RECEIVED DATA

R,
$GDDAT , $8DDAT
:$ERRPC ,REGAD

;SETER COMMAND

*REG. ADDR.

*GOOD DATA
‘RECEIVED DATA

, $BDDAT
ADR,
$GDDAT
: SERRPC ,REG
:0,0,0,0

JRHCST1 CONTENTS DURING
;COMMAND WAS IN ERROR

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2
CZRJJC.P1M
904
905
889
908
909
910
911
912
g}z
915
916
917
918
919
920
921
922
923

924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939

940

941
942
943
944

945

946

947

948

26=JuL-78 10:07

001430
001432
001434

057771
061762
062256

001436

044633

001440
001442

057771
061762

001446

044706

001450
001452
001454

057771
061762
062256

001456

045055

001460
001462
001464

057771
061762
062256

001466

045220

001470
001472
001474

057771
061762
062256

001476

045402

001444

001500

MACY11 30A(1052)

27-JUL-78

ERROR POINTER TABLE

957

958
959

PAGE 22

DHS
DTS
DFS
JITEM 22

EM22
DHS
DTS

062256

;RHDS1 CONTENTS DURING
:COMM ANS WAS IN ERROR

DFS
;ITEM 23

EM23

DH5
DTS
DFS
SITEM 24

EM24

DHS
DTS
DFS
JITEM 25

EM25

DH5
DTS
DFS
JITEM 26

060426

EM26

DH26

949
950
951

952
953
954
ggg

12:32

;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
JAFTER AN OFFSET COMMAND

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

;THERE AFTER COMMAND

;500 OFFSETS CAUSED AN ERROR
:PC

;CONT. OF RHCS1

;CONT. OF RHCSZ2
;CONT. OF RHDS1
;CONT. OF RHER1

001502
001504

062040
062301

001506

045472

DT26
DF 26

JITEM 27

EM27

;CONT. OF RHERZ2
:CONT. OF RHER3
;$ERRPC,CS1,CS2,DS1,ERT,ER2,ER3
;0,0,0,0,0,0.0
:WRITE HEADER AND DATA
:CAUSED IMPROPER REGISTER CHANGE

SEQ 0021

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2
26=-JuL-78 10:07

CZRJJC.PN

27-JuL-78

MACY11 30A(1052)

ERROR POINTER TABLE

12:32

PAGE 23
;GOOD DATA GIVES WHAT
;SHOULD BE THERE
JRECEIVED DATA GIVES WHAT

001 10
001 12
001 14

057771
061762
062256

969

001516

045710

971

001520

060626

964
965
966

975
976

001522
001524

062062
062311

979

001526

045770

985
986
987

001530
001532
001534

057771
061762
062256

990

001536

046205

993
994
995

001540
001542
001544

060626
062062
062311

998

001546

046312

DH5
DTS
DF5S

;1TEM 30

EM30
DH30

DT30
DF 30

JITEM 3

EM31

DH5

;WAS THERE AFTER COMMAND

;WRITE HEADER AND DATA

:g?ANGED WRITE FROM BUFFER
;WORD NO

;GOOD DATA
;BAD DATA

:$ERRPC ,ERWORD , $GDDAT , $8DDAT
:0,0,0,0

;READ HEADER AND DATA CAUSED

; IMPROPER REGISTER CHANGE
;GOOD DATA HAS WHAT SHOULD
;BE THERE
JRECEIVED DATA G'VES WHAT
;WAS THERE AFTER COMMAND

DTS

DFS

JITEM 32

EM32
DH30
DT30
DF 30

;ITEM 33

EM33

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

;?mGgATA CAUSED IMPROPER REGISTER

1GOOD DATA GIVES WHAT SHOULD BE THERE

"RECEIVED DATA GIVES WHAT WAS THERE AFTER

1003
1004
1005

001550
001552
001554

057771
061762
062256

1008
1009

001556
001560
001562
001564

046514
060626
062062
062311

001566

046540

DH5

> COMMAND

DTS
DF5
SITEM 34

;ITEM 35

EM34
DH30
DT30
DF30

JREAD DATA INCORRECT

EM35

;WRITE DATA COMMAND CAUSED

; IMPROPER REGISTER CHANGE

SEQ 0022

g%:JJEO§1?P04/S/6 FCTNL CTRLR2
26=JUL-78 10:07

JJC.

1016
1017
1018
1019

1020
1021
1022

1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045

001570
001572
001574

057771
061762
062256

001576

046756

001600
001602
001604

060626
062062
062311

001606

047033

001610
001612
001614

057771
061762
062256

001616

047250

001620
001622
001624

057771
061762
062256

001626

047457

001630
001632
001634

057771
061762
062256

001636

047740

MACY11 30A(1052)

27-JUL-78

ERROR POINTER TABLE

DH5
DTS
DF5

JITEM 36

EM37

DH5
DTS
DF5

JITEM 40

EM4O

1046

1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060

1061

1062
1063
1064

1065
1066
1067
1068
1069
1070
1071

DH5
DTS5
DF5

JITEM 41

EM41

DH5
DTS
DF5
JITEM 42

PAGE 24
;GOOD DATA GIVES WHAT SHOULD BE THERE
sRECEIVED DATA GIVES REGISTER
;CONTENTS AFTER WRITE DATA

;WRITE DATA COMMAND CHANGED

DH30
DT30
DF 30

;ITEM 37

12:32

;WRITE FROM BUFFER

;SEEK COMMAND CAUSED AN
;ERROR
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
:RECEIVED DATA GIVES WHAT
;WAS THERE AFTER SEEK COMMAND

JWRITE CHECK CAUSED AN
; IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT WAS
;THERE AFTER COMMAND

:LOCKING OUT WRITES BY WRITE
;LOCK BUTTON CAUSED IMPROPER
;REGISTER CHANGE
: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
JREGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE

SEQ 0023

CZRJJICO, RPO4/5/6 FCTNL CTRLR2

CZRJJC.PI

26=JUL-78 10:07

MACY11 30A(1052)

27-JuL-78

ERROR POINTER TABLE

12:32

SEQ 0024

PAGE 25

JRECEIVED DATA GIVES WHAT WAS
001640
001642
001644

057771
061762
062256

001646

050216

DH5
DTS
DF5

JITEM 43

EM43

:THERE AFTER ATTEMPT

;WRITING WITH WRITE LOCKED

;OUT CHANGED DISK DATA
;GOOD DATA GIVES WHAT WAS
;ON DISK BEFORE WRITE WITH
;WRITE LOCK WAS ATTEMPTED

JRECEIVED DATA GIVES WHAT WAS
;READ BACK AFTER WRITE WITH

DH30
DT30
DF 30

001650
001652
001654
001656

;ITEM 44

EM44

001660
001662
001664

057771
061762
062256

001666

051046

DH5
DTS
DF5

;ITEM 45

EM45

D
D
)
)

s TRANSFERRING ON LAST BLOCK IE.

:410, SECTOR 21, TRACK 18

; CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT WAS

MNONIMNONUNONONDND
= = = = e e
e

;BUTTON ENABLED WRITES

s CAUSED IMPROPER REGISTER

)
)
e
D )
b
)
) e
D )
) )
e
) e
d
)
e
b
—
—

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

)
)

)
d D

) e
D ) )

eloleleolelolola)

1098

050554

;WRITE LOCK WAS ATTEMPTED

001670
001672
001674

057771
061762
062256

001676

051354

001700
001702
001704

062311

001706

051500

DH5
DTS
DF5
JITEM 46

EM46

DH30
DT30
DF30

JITEM 47

EM&7

;THERE AFTER TRANSFER

;DATA READ FROM LAST

;BLOCK IE. CYLINDER 410
;SECTOR 21, TRACK 18 IS IN
;ERROR

s TRANSFERRING FROM NONEXISTANT

;SECTOR CAUSED IMPROPER

CYLINDER

czl
czl

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PN

26-JuUL~78 10:07

27-JUL-78

MACY11 30A(1052)

ERROR POINTER TABLE

83
N NNNN
ooorOrONON
um-agomwom§d§33%$wgm%w%agomwombum-—noomwo\nbww—noomw

WWWNW
WA
—

—

- —J—l—l_‘_‘-‘—d—l_{—d—l—l—l—l—b-‘-‘-‘-‘_..—‘—l—l—-l—l-‘—‘—l—l—l
T T N YT Y YO SO Y
(N Y Y
- —————
P
R
R
g
g—
) D TR
)
)

DH5

057771
061762
062256
051762

001720
001722
001724

060626
062062
062311

001726

052201

DF5

;ITEM 50

EMSO

DH30
DT30
DF 30

;ITEM 51

EM51

s TRANSFERRING FROM NONEXISTANT

;SECTOR CAUSED DATA ERROR
;GOOD DATA GIVES WHAT
;SHOULD BE IN BUFFER
JRECEIVED DATA GIVES WHAT WAS
;IN BUFFER AFTER TRANSFER

;sGIVING ILLEGAL FUNCTION CAUSED
; IMPROPER REGISTER CHANGE
:?gggEDATA GIVES WHAT SHOULD BE
JRECEIVED DATA GIVES REGISTER

001730

060740

DH51

001732
001734

062076
062316

DT51
DF51

001736

052446

JITEM 52

EMS2

D
d

00000000

s TRANSFER

DTS

D e e
D
e

D ) )
e e

s THERE AFTER ATTEMPTED

D D D
) )
e
)
)
)
)
D D
e e
) d

PAGE 26
sJREGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
sRECEIVED DATA GIVES WHAT WAS

1128

—
—

12:32

;ggNTENTS AFTER ILLEGAL FUNCTION

;REG. ADDR.
;GOOD DATA
sRECEIVED DATA

sILLEGAL FUNCTION
:3ESR8C6RSGADR.SGDDAT.SBDDAT.ILLEGL

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

001740
001742
001744

057771
061762
062256

001746

052717

001750
001752
001754

060626
062062
062311

DH5
DTS
DF5

;ITEM 53

EM53
DH30
DT30
DF 30

JWRITE DATA

;READ HEADER AND DATA AFTER

;A SEARCH CAUSED AN ERROR

SEQ 0025

cZl
czi

CZRJJICO, RPO4/5/6 FCTNL CTRLR2
26=-JuL-78 10:07

001756

053005

001760
001762
001764

057771
061762
062256

001766

053252

001770
001772
001774

057771
061762
062256

001776

053540

27-JUL=-78

ERROR POINTER TABLE

;1TEM 54

EM54

88%

DH5
DT5
DF5

SITEM 55

EM55

DH5
DTS5
DF5

JITEM 56

EMS6

PAGE 27

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

;WRITING/READING WITH EXPECTED
;ADDRESS OVERFLOW ERROR CAUSED
: IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT
;WAS THERE AFTER OPERATION

;DATA READ WITH AN EXPECTED
;ADDRESS OVERFLOW ERROR IS

b cd

;BE READ

;WORD NOS 261 TO 265 SHOULD

b
b e
b

12:32

s INCORRECT
sWORD NO 1 TO 260 SHQULD

b cd

b b e

)

D cd cd

b B

—g—

—
LS TSTAS TS TS 1,8 ],8 ) e
oo
N DSLSTNTS
b e e e
b cnd i
b b =
O
000000000

3832382888888;—5

CZRJIJC.PT

MACY11 30A(1052)

002000
002002
002004

060626
062062
062311

002006

053750

DH30
DT30
DF30

JITEM 57

EMS7

;NOT CHANGE DUE TO READ

JATTEMPTING DATA COMMAND

;WITH WRONG FORMAT BIT CAUSED
; IMPROPER REGISTER CHANGE
:?SggEDATA GIVES WHAT SHOULD BE

JRECEIVED DATA GIVES WHAT WAS
;THERE AFTER ATTEMPTED DATA

002010
002012
002014

057771
061762
062256

002016

054242

DH5
DTS
DF5

;ITEM 60

EM60

s TRANSFER

JATTEMPTING TO MODIFY REGISTER
;DURING AN OPERATION CAUSED
; IMPROPER REGISTER CHANGE
:GOOD DATA GIVES WHAT SHOULD
;BE THERE

SEQ 0026

[ca

czi

E%gJJgofi1?P04/S/6 FCTNL CTRLR2
26-JuL-78 10:07

JJC.

1240
1241
1242

1243

1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282

1291

1292
1293
1294
1295

27-JuL-78

ERROR POINTER TABLE

12:32

PAGE 28

SEQ 0027

;RECEIVED DATA GIVES WHAT WAS
;THERE AFTER OPERATION

:gés COMPLETE

002020

061077

DH60

002022
002024

062114
062324

DT60
DF 60

:358R8C6R56ADR.SGDDAT.SBDDAT,SBDADR

EM61
DH6'

:gEVICE NOT AVAIBLE BEFOR COMMAND WAS TO BE GIVEN

002026
002030

054651
061234

002032
002034

062132
062332

002036
002040

054651
061326

002042
002044

062144
062336

002046

054735

002050
002052
002054

057771
061762
062256

002056

055010

SITEM 67

DT61
DF61

JITEM 62

;ITEM 63

EM61
DH62

sPC

;PC OF JSR

;RHDS1

;$ERRPC ,PCJSR, $BDADR

:gEVICE NOT AVAIBLE BEFOR COMMAND WAS TO BE GIVEN
;PC OF JSR

DT62
DF 62

JRHCS1 WAS
;$ERRPC ,PCJSR,$BDADR
;0,0,0

EM63

JRHDST

DHS
DTS
S
DF
;ITEM 64

:REG. ADDR.
;GOOD DATA
JRECEIVED DATA
:MODF ING REGISTER

EM64

CONTENTS DURING

;COMMAND WAS IN ERROR

:RECALIBRATE COMMAND CAUSED
*IMPROPER REGISTER CHANGE.
:?ngEDATA GIVES WHAT SHOULD BE

‘RECEIVED DATA GIVES WHAT WAS THERE
057771
061762
062256

1283

1284
1285
1286
1287
1288
1289
1290

MACY11 30A(1052)

DH5
DT5
DF5

"AFTER COMMAND

; ITEM6S
002066
002070

055227
061401

EM65
DH65

:é?rznnupr FAILING

“TEST NO

*CONTENTS OF RHCS1
*CONTENTS OF RHAS

“CONTENTS OF RHDS1

CZRJJCO, RPO4/S/6 FCTNL CTRLR2

CZRJJC.PN
1296
1297

002072
002074

062156
062342

002076

055251

27-JuL-78

ERROR POINTER TABLE

DT65
DF65
; 1TEM66

EM66

NSRS
=R
aaaa

H W N=0OVONO
VNI WNN—=0O0V0ON

wil) o il
i
b o
b
i
D ad
)
D
i
b
i

WN WWWWWWWWWWWWWW

= OV NOWNESWN

AR RRRRRRY

el wd wd

1341

12:32

SEQ 0028

PAGE 29
sSERRPC,TSTNM,(CS1,AS,DS1
k3

’

;HEADER AND DATA COMMAND
;FOR HEAD SELECTION TEST

;CAUSED AN ERROR

;RHDST GIVES WHAT TRACK

ilh il asd

1298
1299
1300
1301
1302

26=JUL-78 10:07

MACY11 30A(1052)

002100

DH66

061515

002102
002104

062172
062347

002106

055462

; ITEM67

DT66
DF 66

EM67

:WAS BEING WRITTEN ON CYLINDER O
JSECTOR O

:PC
JRHDST

;RHER1
:RHER2
;RHER3
;JRHCST
:RHCS?2

ST
,CS1,CS2
C,D
,ER1 ,ER2,ER3
;$ERRP
;READ HEADER AND DATA ERROR
;IN HEAD SELECTION TEST

;FIRST FOUR WORDS GIVE HEADER

sNEXT WORDS ARE DATA
;GOOD DATA WORDS GIVE
;THE

002110
002112
002114

060626
062062
062311

002116

055736

002120
002122
002124

060626
062062
062311

002126

056144

002130

057771

;1TEM70

DH30
DT30
DF 30

EM70

DH30
DT30
DF30

JITEM 71

EM71

TRACK NUMBER

;BITS 4,5,6,7.8

;READ HEADER AND DATA ERROR

;IN DIFFERENCE LINE TEST
sWORD NOS. 1-4 GIVE
sHEADER
;WORD NOS. 5-260 GIVE DATA
;sWHICH IS THE CYLINDER
sADDRESS

;FORCING OPI

061762
062256

CAUSED IMPROPER REGISTER

; CHANGE
;GOOD DATA GIVES WHAT SHOULD
sBE THERE

JRECEIVED DATA GIVES WHAT WAS
:;?ERE AFTER 3 INDEX PULSES
sREG.

ADDR.

2GOOD DATA

002132
002134

JRECEIVED DATA
:BESRSCGREGADR.SGDDAT,SBDDAT

CZRJJC.PN

1354

002136

26=JuL-78 10:07

056405

MACY11 30A(1052)

27-JuL-78

ERROR POINTER TABLE

;ITEM72

12:32

PAGE 30

. THERE WAS AN ERROR
;AFTER A WRITE HEADER

;AND DATA COMMAND
1358

002140

DH72

061613

:PC

;RHCS1

SIIEEEETE

002146

056653

002150
002152
002154

062214
062360

1381

002156

057023

1
1384
}

002160
(002162
002164

061613
062214
062360

i
i
D
b b
b
e
-

(o
Vo
NIV 0 W

062214
062360

002142
002144

WWWWW WWWW
NNNNY ~ NN

;RHCS2
;RHDS1

DT72
DF72

;ITEM73

EM73
DH72
DT72
DF72

061613

; ITEM74

EM74

DH72
DT72
DF72

:RHDST
;RHCA
;RHER1
;JRHWC

:$ERRPC,CS1,CS2,DS1,DST,CALERT,WC

;READING OVER 3 INDEX
;PULSES CAUSED SC

;READING OVER 3 INDEX

sPULSES CAUSED OPI

SEQ 0029

TMM

CZRJJCO, RPO4/S/6 FCTNL CTRLR2

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PN

26=JuL-78 10:07

1389

1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1474
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431

ERROR POINTER TABLE

12:32

PAGE 31

;RH11 REGISTER BITS

1387
1388

1390
1391
1392
1393
1394
1395
1396

27-JuUL-78

MACY11 30A(1052)

002166

000254

RPVEC:

254

;RP04 VECTOR ADDRESS

;WORD COUNT REGISTER (RHWC)

;EACH BIT IS CALLED BY BIT NUMBER

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

;CONTROL AND STATUS REGISTER 2 (RH(CS2)
000001
000002

uS1=
us2=
US4=
BAI=

UNIB=
CLR=
IR=
OR=

100000

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

DLT=

2
o
10
20
40
100
200
400
1000
2000
4000
10000
20000
40000
100000

JUNIT SELECT (BIT #0)

JUNIT SELECT (BIT #1)
JUNIT SELECT (BIT #2)
;BUS ADDRESS INCREMENT INHIBIT (BIT #3)
;UNIBUS B DC LO (BIT #4)
;CLEAR (BIT #5)
s INPUT READY (BIT #6)
;OUTPUT READY (BIT #7)
;MASS BUS PARITY ERROR (BIT #8)
;MISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #10)
;NON EXISTANT MEMORY (BIT #11)
JNON EXISTANT DRIVE (BIT #12)
JUNIBUS PARITY ERROR (BIT #13)
;WRITE CHECK ERROR (BIT #14)
;DATA LATE (BIT #15)

;DATA BUFFER REGISTER (RHDB)
JEACH BIT IS CALLED BY BIT NUMBER

SEQ 0030

1452
1453

PAGE 32

;CONTROL AND STATUS 1 REGISTER. (#00)
GO=

RDY=
A16=
A17=
PSEL=

200
490
1000
2000

TRE=

40000

IE=

DVA=
MCPE=
100000

SC=

;GO (BIT #0)

s INTERRUPT ENABLE (BIT #6)
JREADY (BIT #7)
;HIGH ORDER UNIBUS BITS (BIT #8)

100

4000
20000

JHIGH ORDER UNIBUS BITS (BIT #9)
:PORT SELECT (BIT #10)
;DEVICE AVAILABLE (BIT #11)
:MASSBUSS PARITY ERROR (BIT #13)

100000

:SPECIAL CONDITION (BIT #15)

s TRANSFER ERROR (BIT #14)

;STATUS REGISTER (RHDS1) (#01)
000001
000002

1454
1455
1456
1457
1458
1459
1460
1461

1462
1463
1464

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

;RP04 REGISTER BITS

1432
1433
1434
1435
1436
1437
1438
1439

1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451

12:32

DFF5=
DFF20=
DIGB=
GRV=
DL64=
DE1=
vv=
DRY=
DPR=
PROG=
LBT=
WRL=
MOL =
PIP=

1
2
4
10
20
40
100
200
400

ATA=

100000

ERR=

1000

2000
4000
10000
20000

40000

IE?DflR R%GISTER #01
LF=

ILR=

FER=
WCF=

20
40

RMR=
PAR=

ECH=

040000
100000

[
10

100

HCE=
HCRC=
AOE=

200
400
1000

WLE=
DTE=

4000
10000

IAE=

OPI=
UNS=
DCK=

(BIT #0)
;DRIVE FORWARD 5''/SEC.
(BIT #1)
;DRIVE FORWARD 20''/SEC.
;DRIVE TO INNER GAVRD BAND (BIT #2)
;GO REVERSE (BIT #3)
;DIFFERENCE LESS THAN 64 (BIT #4)
;DIFFERENCE EQUALS 1 (BIT #5)
:VOLUME VALID (BIT #6)
;DRIVE READY (BIT #7)
;DRIVE PRESENT (BIT #8)
:PROGRAMABLE (BIT #9)
;LAST SECTOR TRANSFERRED (BIT #10)
:WRITE LOCK (BIT #11)
:MEDIUM ON-LINE (BIT #12)
;POSITIONING OPERATION IN PROGRESS (BIT #13)
;COMPOSIT ERROR. (BIT #14)
:ATTENTION ACTIVE (BIT #15)

2000

20000
40000
100000

(RHER1)

(#02)
;ILLEGAL FUNCTION (BIT #0)
;JLLEGAL REGISTER (BIT #1)
*REGISTER MODIFICATION REFUSED (BIT #2)
;PARITY ERROR (BIT #3)
:FORMAT ERROR (BIT #4)
:WRITE CLOCK FAIL (BIT #5)
;ECC HARD ERROR (BIT #6)
:HEADER COMPARE ERROR (BIT #7)
JHEADER CRC ERROR (BIT #8)
:ADDRESS OVERFLOW ERROR (BIT #9)
s 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)

;MAINTAINABILITY REGISTER (RHMR) (#03)

SEQ 0031

s Yo ]

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ
26-JUL-78 10:07
CZRJJC.PN

27-JUL-78
MACY11 30A(1052)
ERROR POINTER TABLE

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2
CZRJJC.PN

1488
1489
1490
1491
1492
1493

}232

26=JuL-78 10:07

000001
000002
000004
000010
000020
000040

001000

1439

1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509

000001
000002
000004
000010
000020
000040
000100
000200

1512

MACY11 30A{1052)

27-JuL-78

ERROR POINTER TABLE

DMD=
MCLk=
MINX=
MSTCk=
MRD=
MWR=

DTSY=

12:32

1
2
4
10
20
40

1000

PAGE 33

SEQ 0032

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

:MAINTAINABILITY SYNC DETECTED (BIT #9)

sATTENTION SUMMARY PSEUDO-REGISTER (RHAS)

(#04)

ATO=
AT1=
AT2=
AT3=
AT4=
ATS=
AT6=
AT7=

(BIT #0)
(BIT #1)
(BIT #2)
(BIT #3)
(BIT #4)
(BIT #5)
(BIT #6)
(BIT #7)

1
2
4
10
20
40
100
200

:DEVICE
:DEVICE
:DEVICE
:DEVICE
:DEVICE
:DEVICE
:DEVICE
:DEVICE

0
1
2
3
4
5
6
7

:DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST)

:EACH BIT IS CALLED BY BIT NUMBER

}g}z

1515
1516
1517
1518

1519

:DRIVE TYPE REGISTER (RHDT)

(#1)

(#06)

:EACH BIT IS CALLED BY BIT NUMBER

}gg?
J

1522
1523
1524

1525

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

1259
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543

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

EXT1=
EXT2=
EXT4=
EXT10=
EXT20=
EXT40=
SC1=
SC2=
SC4=
SC10=
SC20=
TRK1=
TRK2=
TRK4=
TRK10=
TRK20=

1
2
4
10
20
40
100
200
400
1000
2000
4000
10000
20000
40000
100000

EXTENSION 1 (BIT #0)
:EXTENSION 2 (BIT #1)
EXTENSION 3 (BIT #2)
EXTENSION 4 (BIT #3)
CEXTENSION S5 (BIT #4)
:EXTENSION 6 (BIT #5)
:SECTOR COUNT FIELD O (BIT
:SECTOR COUNT FIELD 1 (BIT
:SECTOR COUNT FIELD 2 (BIT
:SECTOR COUNT FIELD 3 (BIT
:SECTOR COUNT FIELD 4 (BIT
:TRACK FIELD 1 (BIT #11)
:TRACK FIELD 2 (BIT #12)
:TRACK FIELD 3 (BIT #13)
:TRACK FIELD 4 (BIT #14)
:TRACK FIELD S5 (BIT #15)

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

CZRJJCO, RPO4/S/6 FCTNL CTRLR2

CZRJJC.PM

26=JuL~-78 10:07

1544
1545
1546
1547
1548
1549
1550
1551
1552

1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575

MACY11 30A(1052)

27-JuUL-78

ERROR POINTER TABLE

12:32

;ERROR REGISTER #2 (RHLR2)
wCU=
CSF=
WSU=
CSuU=
MSE=
TDF=
TUF=

FEN=
WRU=
MHS=
NHS=
IXE=
vu30=
PLU=
ACU=

PAGE 34

(#10)

1
2
“
10
20
40
100

sWRITE CURRENT UNSAFE (BIT #0)
sCURRENT SINK FAILURE (BIT #1)
JWRITE SELECT UNSAFE (BIT #2)
;CURRENT SWITCH UNSAFE (BIT #3)
;MOTOR SEQUENCE ERROR (BIT #4)
;TRANSITIONS DETECTOR FAILURE (BIT #5)
;TRANSITIONS UNSAFE (BIT_#6)

200
400
1000
2000
4000
10000
20000
100000

;OFFSET REGISTER (RHOF)

SEQ 0033

;FAILSAFE ENABLED (BIT #7)
;WRITE READY UNSAFE (BIT #8)
JMULTIPLE HEAD SELECT (BIT #9)

;NO HEAD SELECTION (BIT #10)
; INDEX ERROR (BIT #11)
;30VOLT UNSAFE (BIT #12)
;PLO UNSAFE (BIT #13)
;ACUNSAFE (BIT #15)

(#11)

000001
000002
000004
000010
000020
000040

OF25=
OF50=
OF100=
0F200=
0F400=
OF800=

1
2
4
10
20
40

;OFFSET
;OFFSET
;OFFSET
;OFFSET
JOFFSET
;OFFSET

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

000200
002000
004000
010000

OFREV=
HCI=
ECI=
FMT22=

200
2000
4000
10000

;OFFSET NEGATIVE (REVERSE) (BIT #5)
JHEADER COMPARE INHIBIT (BIT #10)
;ERROR CORRECTION CODE INHIBIT (BIT #11)
;FORMAT BIT (BIT #12

(#12)

;DESIRED CYLINDER ADDRESS (RHCA)

JEACH BIT IS CALLED BY BIT NUMBER.

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

;SERIAL NUMBER REGISTER (RHSN)
sEACH IS CALLED BY BIT NUMBER

1589
1591
1592
1593
1594
1595
1596
1597
1598
1599

(#14)

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

PSU=

VUF =
UWR=

1
2
10

;PACK SPEED UNSAFE

(BIT #0)
JVELOCITY UNSAFE (BIT #1)
JANY UNSAFE EXCEPT READ/WRITE

(BIT #3)

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.P1T
26-JuUL-78 10:07
1600
1601
1602
1603

1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616

000020
000040
000100
040000
100000

MACY11 30A(1052)
27-JUL-78
ERROR POINTER TABLE
PRE=

ACL=
DCL=
SKI=
oCyL=

40
100
40000
100000

1
12:32

3
PAGE 35
;DISK PACK ROTATION ERROR

;AC LOW (BIT #5)
;DC 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 (RHECZ) (#17)
;EACH BIT IS CALLED BY BIT NUMBER

SEQ 0034
(BIT #4)

CZRJJCO, RPO4/S/6 FCTINL CTRLR2
CZRJJC.P1

26-JuL-78 10:07

MACY11 30A(1052)

.SBTTL

1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628

27-JUL-78

12:32

SEQ 0035

PAGE 36

;RP04/5/6 DISK 1/0 REGISTERS LOCATED IN THE RH11 CONTROLLER
176722
176702
176704
176710

RHDB:
RHWC :
RHBA:

RHCS2:

176722
176702
176704

176710

;DATA BUFFER

sWORD COUNT
;BUS ADDRESS

;CONTROL AND STATUS 2

:RP04/5/6 DISK 1/0 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC

002232
002234
002236

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

RHCS1:
RHER1:
RHDST:
RHER2:
RHOF :

176700
176714
176706
176740
176732

RHER3:
RHAS :

176742
176716

RHCA:

RHMR :

RHDS1:
RHDT:
RHSN:
RHEC1:
RHEC2:
RHCC:
RHLA:

176734

176724

176712
176726
176730
176744
176746
176736
176720

;CONTROL AND STATUS 1
;ERROR #1

:DESIRED SECTOR/TRACK ADDRESS

:ERROR #2
JOFFSET
;DESIRED CYLINDER ADDRESS
:ERROR #3
JATTENTION SUMMARY

JMAINTAINABILITY
;DRIVE STATUS
;DRIVE TYPE
;SERIAL NUMBER
JECC POSITION
JECC PATTERN
;CURRENT CYLINDER ADDRESS
; LOOK~AHEAD

JADDITIONAL 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

172540

172542
172544

PCLCSR:

:
PCLBUF
PCLCTR:

172540
172542
172544

;CONTROL AND STATUS REGISTERS
;COUNT SET BUFFER
;COUNTER

(DCL)

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2
26=JUL-78 10:07

1660
1661
1662
1663
1664

1689

1690
1691

PAGE 37

;ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE

;FOR THE TIME JUST AFTER THE 'ERROR'' ERROR COMMAND

000000
000000
000000

000000
000000

DB:
wC:
BA:

(se:

CS1:
ER1:
DST:

ER2:

:
OF
:
CA

ER3:

AS:
MR:

DS1:
DT:
SN:

EC1:
EC2:
]
LA:

OOOO

1681
1682
1683
1684
1685
1686
1687
1688

12:32

:THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SAVES
JANY TIME THERE IS AN ERROR ALL THESE WILL BE FILLED

1665

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

27-JUL-78

;DATA BUFFER

olelelololelolalelslolololelele)

CZRJJC.PI

MACY11 30A(1052)

;CONTROL AND STATUS 1

;WORD COUNT
;BUS ADDRESS
;CONTROL AND STATUS 2

;ERROR #1

;DESIRED SECTOR/TRACK ADDRESS
:ERROR #2
:OFFSET
:DESIRED CYLINDER ADDRESS
;ERROR #3
JATTENTION SUMMARY
JMAINTAINABILITY
;DRIVE STATUS
;DRIVE TYPE
;SERIAL NUMBER
:ECC POSITION
;ECC PATTERN
;CURRENT CYLINDER ADDRESS
;LOOK-AHEAD

SEQ 0036

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRIJC.P1T

26=-JuL-78 10:07

MACY11 30A(1052)

27-JuL-78

12:32

PAGE 38

1692

SEQ 0037

cZl
;

1693

169
1695

1697

1698 002322

:FUNCTION EQUATES
;*TABLE OF FUNCTIONS FOR RHCS1 THEN ''GO'* BIT HAS TO BE SET

;
|
;
;
;
;
;
;

FUTABL :

1699
1700
1701
1702
1703

002322
002324
002326
002330
002332

000000
000002
000006
000010
000012

NOPERA:
UNLOAD:
RECALI:
DCLEAR:
RELEAS:

0
2
6
10
12

:NO OPERATION
UNLOAD (STAND BY)
:RECAL IBRATE
:DRIVE CLEAR
*RELEASE (DUAL=PORT OPERATION)

1707
1708
1709

002342
002344
002346

000060
000062
000070

WRIDAT: 60
WRIFOR: 62
READAT: 70

‘WRITE DATA
WRITE HEADER AND DATA (FORMAT)
:READ DATA

;

RETURNTO CENTERL INE

;

1704
1705
1706

1710
1711
1712

1713

1714
1715
1716

002334
002336
002340

002350
002352
002354

002356

002360
002362
002364

000030
000050
000052

000072
000004
000014

000016

000022
000020
000000

SERCH: 30
WRCHEK: 50
WRCHDT: 52

REFOR:
72
SEECOM: 4
OFSETC: 14

RETCL:

1720

~N
Y]

-b

1723
1724

:READ HEADER AND DATA
:SEEK_COMMAND
OFFSET COMMAND

PKACK:
22
READIN: 20
ILLEGL: .WORD

1718
1719
1721
1722

:SEARCH COMMAND
WRITE CHECK DATA
WRITE CHECK HEADER AND DATA

:PACK ACKNOWLEDGE
*READ IN
COMPUTED ILLEGAL FUNCTION

;*DATA BUFFER FOR RFAD WRITE

002370
003434

000422
000422

WRFROM:
REINTO:

.BLKW
.BLKW

274.
274.

:WRITE FROM THIS BUFFER
*READ INTO THIS BUFFER

;
.

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2
CZRJJC.P1T

26-JUL-78 10:07

27-JuL-78

MACY11 30A(1052)

1757

12:32

PAGE 39

SEQ 0038

;RESERVED LOCATIONS FOR FLAGS AND INTERNAL PROGRAM CONTROL WORDS

};%3

(4]
cz

§i

1730 004500 000000

REGADR: 0

;SAVE REGISTER ADDRESS HERE

};gg 004510 000000
1740
1741 004512 000024

OFSTVL: 0

;OFFSET VALUE USED IN OFFSET TEST

!
’
5

1731
1732
1733
1734
1735
};gg

004502
004504
004506

1742
1743

004562
004564

000000
000000
000000

ERWORD: 0
TSTNM: 0
RP4VEC: 0

SAVERE: .BLKW

000000
000000

FINALA: 0
FINACC: O

1745

1746
1747
1748

1749

1750
1751

1752
1753
1754

20.

:BLOCK TO SAVE REGISTERS

;SAVE LOOK AHEAD REGISTER AT END OF OPERATION
;SAVE CURRENT CYLINDER REGISTER AT END OF OPERATION

004566
004571
004574

001

010
100

002

020
200

004

040

ATABLE: .BYTE

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

;RESERVED LOCATIONS FOR UNIT SELECT
004576
004616
004620

000010
000000
000000

UNITS:
.BLKW
UNIT:
.WORD
NOUNIT: .WORD

8.
0
0

004622

000000

NUNIT:

004624

000000

NOPUSH: 0

004626
004630

000000
000000

SELECT: .WORD
UNITSL: .WORD

177

004632

000000

ERFLGS: 0

;ERROR FLAG

1772

004634

000000

FIRST:

:IF ZERO WILL TYPE HEADER

};;2

004636

000000

RPO6:

:DEVICE TYPE FLAG

1777
};;g

004640

000000

RH70:

:IF 1, PROGRAM IS RUNNING ON AN RH70
:IF 0, PROGRAM IS ON AN RH11

1780
1781

004642

000000

RUNCTR: .WORD

1768
1769

1?52

.WORD

0
0

:THIS IS FILLED WITH =1
;UNIT UNDER TEST
:NUMBER OF UNITS PRESENT
:USED TO KEEP TRACK OF UNIT UNDER TEST
;:USED TO DETERMIN IF THERE ARE MORE
: THAN ONE UNIT
:ALL ONES INDICATE NONE OF THE OPERATOR
: INTERVENTION TESTE WILL BE PERFORMED
;ALL ONES INDICATE UNIT TO BE SELECTED
;UNIT NO. SELECTED

:IF ONES WILL NOT TYPE HEADER

;
;
;
;
;
;

;
;

;TABLE FOR ATTENTION BITS
;ATTENTION TABLE

};%2
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766

:SAVE ERROR WORD NUMBER HERE
:TEST NUMBER
: CONTAINS ADDRESS OF LOCATION
WHERE AN RPQ4 INTERRUPT IS TO VECTOR TO
;THIS MUST BE MOVED INTO "RPVEC' TO BE
EFFECTIVE.

:'RUN' LINE DELAY COUNTER TO BE USED
sWHILE THE SILO IS FILLING

1
:
,

LA IA LAY
LA
A
LA
LA
TR LA
LA
LA
LA
tTALTA

; TEMP STORAGE
;TEMP STORAGE

.WORD

s LA LA

TMPS :

; TEMP STORAGE

O
0
0

WORD
.WORD
.WORD

TMPO :
TMP1 :
TMP4 :

000000
000000
000000
000000

SATTENTION BIT FOR PRESENT UNIT
;TOTAL ATTENTION BITS

CzZf
(W4

ATTENT: O
TOTALAT:

SEQ 0039

1787
1788
1789

000000
000000

PAGE 40

1785

1786

004644
004646

1784

12:32

1782
1783

26=JuL-78 10:07

27-JuUL=78

CZRJJC.PN

MACY11 30A(1052)

CZRJJCO, RPO4/5/6 FCTNL CTRLR2

(ZRJJCO, RPO4/5/6 FCTNL CTRLR 2
26~JuL-78 10:07
CZRJJC.PN

MACY11 30AC1052)

1790
1791
1792
1793

1795

1798
1799

1800
1801
1802
1803
1804
1805
1806
1807
1808
1809

1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836

1837
1838

}g;g

004660
004666

004672
004674
004702
004706
004710
004714
004720
004720

004722
004726
004730
004734
004736
004742
004750
004756
004764
004772
005000
005006
005014
005022
005026
005032
005040
005046
005054
005060
005066
005074
005102
005110
005112
005114
005120

005122
005130

005136

012737
005037

000412
012737
005037
000404
005037
005037

000005

177777
004626

004624

177777
004624

C04626

004626
004624

012706
005026
022706
001374
012706
012737
012737
012737
012737
012737
012737
012737
012737
005037
005037
112737
012737
012737
013746
012737
012737
012737
022777
001012
000403
012716

001100

012737
012737

000176
000174

001140
001142

012737
012737

000000
000200

177776
000036

000002

012637

001000
036402
000340
040600
000340
042324
000340
042410
000340
001212
001214
000001

005040
005046
000004
005114

177570
177570
177777

000020
000022
000030
000032
000034
000036
000024
000026
001115

001106
001110

000004
001140
001142
174030

005122

000004

64%:
65%:

66%$:

PAGE 41

.SBTTL

SETUP TESTS

BR
BEGIN2: MOV
CLR
BR
BEGIN:
(LR
CLR

001140

#x% DIGNOSTIC CODE %~

BEGIN1: MOV
CLR

START:

12:32

.SBTTL
LSBTTL
.SBTTL

1794

1797

27-JUL=78

RESET

#-1,a#NOPUSH
a#SELECT
START
#-1,a#SELECT
A#NOPUSH
START
a#SELECT
A#NOPUSH

;JUMP OVER OPERATOR REQUIRED TESTS
;DO NOT SELECT UNIT
sSELECT UNIT
;DO NOT JUMP OVER ANY TEST
;DO NOT SELECT UNIT
;DO NOT JUMP OVER ANY TEST
;NORMAL RUN

MOV
CLR
CMP
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
MOVB
MOV
MOV
MOV
MOV
MOV
MOV
CMP
BNE
BR
MOV

#$CMTAG,R6
;;FIRST LOCATION TO BE CLEARED
(R6) +
;;CLEAR MEMORY LOCATION
#SWR ,R6 ; ;DONE?
"9
;;LOOP BACK IF NO
#STACK,SP
;;SETUP THE STACK POINTER
#$SCOPE ,a#IOTVEC ;10T VECTOR FOR SCOPE ROUTINE
#340,a#I0TVEC+2 ;;LEVEL 7
#SERROR ,a#EMTVEC ;.EMT VECTOR FOR ERROR ROUTINE
#340 ,Q#EMTVEC+2 ;LEVEL 7
#STRAP
,a# TRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS
#340,a#TRAPVEC+2;LEVEL 7
#SPWRDN ,a#PWRVEC ;;POWER_FAILURE VECTOR
#340,a#PWRVEC+2 ;;LEVEL 7
$TIMES
s INITIALIZE NUMBER OF ITERATIONS
$ESCAPE
;:CLEAR THE ESCAPE ON ERROR ADDRESS
#1,SERMAX
;;ALLOW ONE ERROR PER TEST
#.,SLPADR
;s INITIALIZE THE LOOP ADDRESS FOR SCOPE
#.,SLPERR
;;SETUP THE ERROR LOOP ADDRESS
Q#ERRVEC,-(SP)
;;SAVE ERROR VECTOR
#64% ,#ERRVEC
;;SET UP ERROR VECTOR
#DSWR, SWR
;:SETUP FOR A HARDWARE SWICH REGISTER
#DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER
#-1,3SWR
::TRY TO REFERENCE HARDWARE SWR
66%
;;BRANCH IF NO TIMEOUT TRAP OCCURRED
65%
;;BRANCH IF NO TIMEOUT
#65%, (SP)
:.SET UP FOR TRAP RETURN

MOV
MOV

#SWREG, SWR
;;POINT TO SOFTWARE SWR
#DI1SPREG,DISPLAY

MOV
MOV

#0,PS
;SET PROCESSOR STATUS TO 0
#200,a#TRAPVEC+2 ;TRAP PRIORITY = 4

RTI

MOV

(SP)+,a#ERRVEC

;;RESTORE ERROR VECTOR

1841

1842
1843
1844
1845

005142
005150
005156
005162

013700
012720

002166
036312

MOV
MOV

a#RPVEC ,RO
#RPVECT,(RO)+

;GET RP VECTOR ADDRESS
;THIS IS FOR UNTIMELY INTERRUPTS

SEQ 0040

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ
CZRJJC.PI
26=-JUL-78 10:07
1846

1847

1848

1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859

27-JuL-78

12:32

INITIALIZE THE COMMON TAGS

PAGE 42

005166

012710

000340

MOV

#340, (RO)

sRPO4 INTERRUPT SERVICE ROUTINE
;PRIORITY = 7

005172
005176

004737
005737
001001
000402
000137

037340
004634

JSR
BNE

PC,a#STKINT
a#F IRST
1%

JINITIALIZE THE TTY KEYBOARD
;IS THIS FIRST TIME ROUND ?
;DO NOT GIVE HEADER IF NOT
;GIVE HEADER IF SO
;SKIP OVERALL PROGRAM HEADER

TYPE
BR
TYPE
BR

.68%
67%
.70%
69%

;sTYPE ASCIZ STRING
::GET OVER THE ASCIZ

TYPE
BR
TYPE
BR
TYPE
BR

713
749
73%
.76%
75%

.72%

;2TYPE ASCIZ STRING

.78%

.80%
79%

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

MOV

#=1,34F IRST

;NEXT TIME DO NOT GIVE HEADER

TST
BNE
CMP
BNE
GTSWR

a6l
648

;;ARE WE RUNNING UNDER XXDP/ACT?
s ;BRANCH IF YES
;. SOFTWARE SWITCH REG SELECTED?
; :BRANCH IF NO
;:GET SOFT-SWR SETTINGS

MOvB

#1,$AUTOB

;. SET AUTO-MODE INDICATOR

#SW12,aSWR

;LOOK TO SEE IF USING RH70
;IF SW12 = 0, SKIP NEXT
;IF SW12 = 1, CU IS AN RH70

TST

1%:

005774

2%:

005220

005320

1860
1861
1862
1863
1864

1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886

MACY11 30A(1052)

005356

005452
005546
104401
000430

005650

104401

005736

012737

177777

005737
001006
023727
001005

000042

000417

TYPE
BR
TYPE
BR

004634

SND1:

001140

000176

000001

001134

64%:

010000

173100

000001

004640

RH70CK: BIT
8EQ

104406

000403
112737

032777
001403
012737

BR
JMP

3%:

MOV

2%
Q#SND1

SWR ,#SWREG

65%
65%

#1,a#RH70

;:TYPE ASCIZ STRING

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

SEQ 0041

CZRJJC.PN

26=JuL-78 10:07

MACY11 30A(1052)

27-JUL-78

12:32

PAGE 43

GET VALUE FOR SOFTWARE SWITCH REGISTER

;*I1S THERE A P-CLOCK (KW11=P) ON THE SYSTEM ?
;«]F SO MAKE 'WAT'' TRAPS GO TO 'WAIT.P'
;*IF SO MAKE RPO4 INTERRUPTS GO TO 'TIME 1°'
;*IF NOT MAKE 'WAT' TRAPS GO TO "WAIT.T'

1887

1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906

;*IF 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#18,a#ERRVEC

;SET TIME-OUT VECTOR

Jgg

;DO NOT USE CLOCK

TST

a#PCLCSR

sREFERENCE P=CLOCK STATUS REGISTER

MOV

#WAIT.P,a#$TRPAD+20 ;THERE IS A P-CLOCK

MOV

1%:
006050
006056

012737
012737

033304
177777

006064
006070

005737
001442

004626

006076
006150
006152
006156
006162

000424

006170

104401

104412

042716
011637
012637
001403
013737

004506
040746

MOV

#TIME2 ,@#RP4LVEC ;MAKE RP04/5/6 INTERRUPTS GO TO 'TIME 2'
#-1,a4PRITEM

;CLEAR PREVIOUS ITEM NUMBER

TST

Q#SELECT

;WAS IT A 200 START

TYPE

,65%

;:TYPE ASCIZ STRING

MOV

TST1

;BRANCH IF STARTING FROM 200

648

BIC

#177770, (SP)

BEQ
MOV

TST1
;BRANCH IF STARTING FROM 200
QFUNITSL,QFUNIT ;SET UNIT NUMBER

MOV
MOV

004616

;VECTOR TO TIME1

#WAIT.T,a#$TRPAD+20 ;THERE IS NO P-CLOCK

RDOCT

177770
004616
004630

#TIME1,9#RP4VEC ;THERE IS A P CLOCK SO

MOV

BEQ

006100

004630

2%:

;ADDRESS = 172540

(SP) ,@#UNIT
(SP)+,@#UNITSL

;;GET OVER THE ASCIZ

;ONLY KEEP LAST 3 BITS

sSAVE UNIT TO BE TESTED
;SAVE UNIT TO BE TESTED

SEQ 0042

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2

CZRJJCO, RPO4/S5/6 FCINL CTRLR2
CZRJJC.PTT
1924

26=JuL-78 10:07

MACY11 30A(1052)

27-JUL-78

006176
006200
006206
006214
006220

000004
012737
012737
012706
012737

000001
000001
001000
040610

001212
004504
000030

SCOPE
MOV
MOV
MOV
MOV

}gg;

006226

012737

006254

000004

MOV

1933
1934
1935
1936
1937
1938
1939

006234
006240
006244
006246
006250
006252
006254

012700
012701
013102
005300
001375
000454
012737

000024
002170

000006

000004

MOV
MOV
MOV
DEC
BNE
BR
MOV

177776

001200

020000

172636

}gzg

006262
006264
006272
006274

006302

022626
016137
104007
032777

001036

1946

006304

006310

000427

104401

006312

1949

006370

012746

000204

1951
1952

006374
006376

104402
000000

000137

032574

1955
1956

006404
006412

012737
005037

006464
004640

1959
1960
1961
1962
1963
1964
1965
1966
}ggg

006426
006432
006462
006464
006466
006472
006522

104401
000413
000417
022626
104401
000413
012737

006434

}gzg

1950

13%2

1957
1958

006400

006416
006422

006530

005777
005237

012737

PAGE 44

GET VALUE FOR SOFTWARE SWITCH REGISTER

1925
1926
1927
1928
1929
1930

1940
1941
1942
1943

12:32

TST1:

1%:

2%:

CMP
MOV
ERROR
BIT
BNE
TYPE

4%:
000004

3$:

173616
004640

TRP:

040600

000030

000006

000004

RTN:

#2% ,a#ERRVEC

;SET UP FOR BUS TIMEOUT

#24 ,RO
;THERE ARE 24 REG TO TEST
#RHDB ,R1
;R1 NOW HAS ADDR OF ADDR OF FIRST REG.
a(R1)+, R2
;READ HARDWARE REG.
RO
s COUNT DOWN
1%
;BRANCH IF 24 NOT DONE
3%
;BRANCH IF 24 DONE
#ERRVEC+2 ,@#ERRVEC ;RESTORE TRAP CATCHER
(SP)+,(SP)+
-2(R1), $TMP1
7
#SW13,aSWR
4%

;CLEAN STACK
;STORE FAILING REG ADDR
JREGISTER NON EXISTANT
;INHIBIT ERROR PRINTOUT ?

;BRANCH IF YES

64%

.65%

;:TYPE ASCIZ STRING

MOV

#ADDMOD ,-(SP)

;GET READY TO TYPE STARTING ADDRESS

JMP

A¥SEOP

;GO TO END OF PROGRAM =========== >

MOV
CLR

#TRP ,a#4
RH70

sINITIALIZE VECTOR
JINIT RH INDICATOR ++ C.W

TYPE
BR
BR
CMP
TYPE
BR
MOV

.67%
;:TYPE ASCIZ STRING
66%
;.GET OVER THE ASCIZ
RTN
;GET ouT
(SP)+,(SP)+
;ADJUST THE STACK
,65%
;. TYPE ASCIZ STRING
64%
;.GET OVER THE ASCIZ
#$ERROR ,#EMTVEC;RESTORE ERROR VECTOR
;SO THAT REGISTERS ARE SAVED
#ERRVEC+2 ,a#ERRVEC ;RESTORE TRAP CATCHER

TYPOC
HALT

TST
INC

006474

#1,8TIMES
;:D0 1 ITERATION
#2=1,aNTSTNM
;THIS SAVES TEST NUMBER
#STACK, SP
;SET UP STACK POINTER
#REGSA1 ,a#EMTVEC;ERROR VECTOR SO THAT
sNO REGISTERS ARE SAVED

MOV

aRHBAE
RH70

;:GET OVER THE ASCIZ

;OF ''CHANGE OF BASE ADDRESS'' ROUTINE

;ADDRESS RPBAE (RH11/RH70?)
;FOUND AN RH70-SET MASK

SEQ 0043

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuL-78 10:07
1969
1970

1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983

006536
006540
006546

000004
012737
012706

000001
001000

006552
006556
006562
006564
006566
006572
006576

013701
012711

002216
177777

006602

105711

001407
011137
005037
010137
104005

001126
001124
004500

MACY11 3??(1052)

001212

TST2:

27=-JUL-78

12:32

SEQ 0044

PAGE 45

REFERENCE EACH REGISTER
SCOPE
MOV
MOV

#1,8TIMES
#STACK,SP

;.D0 1 ITERATION
;SET STACK POINTER

MOV
MOV

#-1,aR1

R1
@¥RHAS

;R1

aR1
1ST3
aR1,a#$BDDAT
A#SGDDAT

;TEST IT FOR ALL 0°'S

TSTB

BEQ

MOV
CLR
MOV
ERROR

g1,a#REGADR

HAS ADDRESS OF

RHAS

JWRITE ALL ONES INTO RHAS

;BRANCH IF GOOD
;BAD DATA
;GOOD DATA
;FAILING REG.

RHAS

;RHAS DOES NOT CLEAR BY WRITING ALL

;ONES INTO IT

CZRJJCO, RPO4/S5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuL-78 10:07
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001

2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019

000004

012737

000001

001212

012737
000005
004737

000003

004504

032777

020000

001026
104401
000423

007010

007054

007142

007146

007230
007234
007342

G &
30A(1052)
27=JUL-78 12:32 PAGE 46
PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT
T2
TST3:

037340
172302

002216
002176

111137

004646

105037
105711
001402

004647

000137

007346

032777

020000

SCOPE

MOV

#1,8TIMES

MOV
RESET
JSR

#4=1,8TSTNM

BIT
BNE

:§U13.QSUR

PC,a#$TKINT

4%:

000010
002202
177777

1%:

CLR

aR2

MOV
MOV
MOV

#8. RO
R4
@#RHERT
#-1,3R4

MOvB

aR1,a#TOTALAT

INC
DEC

2%:

007704

OF RHAS

;R4 HAS ADDR.

OF RHER1

;MOVE ERRORS INTO RHER1
; INCREMENT UNIT NO.
sCOUNT

;BRANCH IF 8 NOT DONE
;SAVE TOTAL ATTENTION
;USED IN DRIVE CLEAR TEST
;CLEAR UPPER BYTE
;TEST FOR ANY DRIVES PRESENT
;IF NONE THERE - SAY SO
;SOME THERE - LOAD TABLE
;INHIBIT ERROR TYPE OUT?
;BRANCH IF NO

L67%

;:TYPE ASCIZ STRING

SELTST

3%:

HAS ADDR.

#SW13,aSWR

007062

104401

007150

104401

007236

718
70%
.73%

000137

032574

a#$EOP

000442

:INHIBIT ERROR TYPEOUT?
;BRANCH IF YES

:R2 HAS ADDR. OF RHCS?2
;CLEAR RHCS2
s COUNT

104401

000430

JINITILIZE THE TTY KEYBOARD

;R1

007012

000430

TEST NUMBER

::GET OVER THE ASCIZ

MOV
MOV

104401

000421

;THIS SAVES

sSTART WITH AN INIT

Q¥ TOTALAT+1

172142

;:D0 1 ITERATION

;2TYPE ASCIZ STRING

TYPE

006646

013701
013702
005012
012700
013704
012714
005212
005300
001373

001402
000137

007004

MACY11

66%
,69%

68%

72%

;CHECK FOR SELECTED UNIT START AND LOAD
J"UNITS'" TABLE WITH DESIRED DRIVE IF SO

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

::GET OVER THE ASCIZ

;:TYPE ASCIZ STRING

::GET OVER THE ASCIZ

;*SET UP THE UNITS TABLE
007346
007346
007352

007356
007362
007366
007372

012700
012703
012723

000010
004576
177777
004576

XE2:
2%:
3%:

MOV
MOV

#8. RO
#UNITS,R3

#-1.(R%)+

#UNITS,R3
RS

;COUNTER
sPOINTER

;PRESET BLOCK TO ALL ONES
s COUNT
;BRANCH IF 8 NOT DONE
JPOINTER

SEQ 0045

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
26-JuL-78 10:07
CZRJJC.PN

MACY11

30A(1052)
T3

CLR
MOV

2040
2041
2042
2043
2044

007374
007400
007404
007410
007414

005037
012700
011137
006037
103120

004620
000010
001176
001176

2046
2047
2048
2049
2050

007416
007422
007430
007432
007440

010577
022777
001503
022777
001477

172554
024020

172574

020020

172564

2052
2053
2054
2055

007442
007450
007452
007460

022777
001473
022777
001467

024021

172554

020021

172544

2057
2058
2059
2060

007462
007470
007472
007500

022777
001463
022777
001457

024022

172534

020022

172524

2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073

007502
007506
007530
007532
007534
007540
007556
007562
007564
007570
007636

104401
000410
010546
104405
104401
000406
017746
104402
104401
000422
000407

007510

2075
2076
2077
2078
2079

007640
007642
007646
007650
007652

010523
104401
010546
104405
005237

2081

007656

005205

2085
2086
2087

007664
007672
007700

013737
013737
005337

004576
004620
004622

2090
2091
2092

007704
007710
007712

005737
001403
013737

004626

(%:

ROR

sNO. OF UNITS PRESENT
s COUNTER
; TEMPORARY STORAGE
;SET CARRY IF ONE IN 0 BIT

MOV
CMP
BEQ

R5,aRHCS2
#24020,aRHDT
6%

s INSERT UNIT NUMBER INTO UA BITS
;IS THIS A DUAL PORT RPO4 ?
;TYPE DRIVE NO. IF SO

BEQ

;TYPE NO.

MOV

BCC

#20021,aRHDT

;1S THIS A SINGLE PORT RPQS ?
SO

THE NO.

#20022,aRHDT
6%

;1S THIS A SINGLE PORT RPO6 ?
;TYPE DRIVE NO. IF SO

TYPOC

TYPE

;TYPE DRIVE NO.

,65%

;. TYPE ASCIZ STRING

,67%

;:TYPE ASCIZ STRING

.69%

;. TYPE ASCIZ STRING

64%
R5,-(SP)
66%
@RHDT,=(SP)

;.GET OVER THE ASCIZ
;GET READY TO TYPE UNIT NUMBER
;:GET OVER THE ASCIZ
;GET READY TO TYPE RHDT

BR
BR

68%
5%

MOV

RS, (R3)+

MOV

R5,-(SP)

INC

@#NOUNI T

INC
DEC
BNE

R5
RO
4%

MOV
MOV

QHUNITS,@#UNIT
;SET UNIT NO. TO FIRST ONE FOUND/OR O
Q#NOUNIT ,@#NUNIT ;SAVE NO. OF UNITS

AMNUNIT

sIF NUNIT = O THEN ONLY ONE UNIT
;IF NUNIT > O THEN MORE THAN ONE UNIT

TST

ANSELECT

;STARTING ADDRESS 200 ?

MOV

QFUNITSL ,@#UNIT ;SET UNIT NUMBER

TYPE

TYPDS

004616

;TYPE

CMP
BEQ

TYPE

DEC

SELTSY:

;1S THIS A DUAL PORT RPO6 ?

BR
MOV

004616
004622

;TYPE DRIVE NO.

zZ‘O??,SRHDT

TYPDS

5%:

CMP

TYPE

004620

IF SO

CMP

BEQ

6%:

;1S THIS A SINGLE PORT RPO4 ?
;1S THIS A DUAL PORT RPQO5 ?

BR
MOV

001223

#20020,aRHDT

;CHECK NEXT UNIT IF ONE NOT IN BIT O

#24021,aRHDT

BEQ

007572

(MP

BEQ

172442

@#NOUNIT
#8. .RO
aR1,a¥$TMPO
a#$TMPO

CMP

007542

004630

27=-JUL-78 12:32 PAGE 47
TEST FOR DRIVES PRESENT USING RHAS AND RH(SZ2

BEQ

;:GET OVER THE ASCIZ
;NO RP04/RPO5/RP0O6 FOUND SO INCR TABLE

.SCRLF

TST4

;TYPE

DRIVE NO.

sNUMBER OF DRIVES
sINCR UNIT NUMBER
sDECR NO. OF UNITS LOOKED AT
sTEST THE NEXT UNIT

;BRANCH IF STARTING FROM 200

SEQ 0046

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.P1T
26=JuUL-78 10:07

D
d
D
D

007720
007722
007730

000004

012737
012737

000001
010622

007736
007742
007750
007754

012706
012737
004737
005037

001000

007760
007764
007766
007772
007776
010000

005737
001107
012700

010004

001006

122710
001102

005737

&
1
30A(1052)
27=-JUL-78 12:32 PAGE 48
TEST FOR DRIVES PRESENT USING RHAS AND RH(CSZ2
T3

TST4:

d
D

—

SCOPE

#1,8$TIMES
#1%,$LPADR

;:D0 1 ITERATION
;:SET SCOPE LOOP ADDRESS

MOV

#STACK,SP
#4 ,QNTSTNM
PC,a#CLDISK

sRESET STACK
;SAVE TEST NUMBER
;SET R1-RHCS1, R2=-RH(CS2
;CLEAR UNIT UNDER TEST ATTENTION

004616

AFUNIT

000041
000011

#11,(RO)

;1S THE "UNIT'" = 0 ?
;I1F NOT, SKIP NEXT MODS
;IF SO, CHECK THE LOAD MEDIA LOCATION

004626

Q#SELECT

O —
oo

MOV
MOV

0012
0011

004504

MOV

JSR
CLR

Q#ATTENT

20%

BNE

20%

;WAS IT AN RP04/5/6 ?
;IF NOT, GO AHEAD AND TEST UNIT #0

19%

;(JE. 210 START ?)
;IF SO, CHANGE PACK

;WAS UNIT #0 SELECTED ?

;*INCREMENT THE UNITS TABLE TO NEXT DRIVE (IF ANY)
;*& DECREMENT "WOUNITS'' PRESENT TO BE TESTED

W= O

2094

MACY11

010006
010012

012700
005720

004576

010014
010020

022710
001065

177777

104401

010030

104401

010126

010022
010022
010026
010120
010124
010170
010172

000421
000000
000404

010174
010200

011037
005337

004616
004620

010204

013700

004616

010210
010214
010220
010226
010230

005037
010077
022777
001405

004636

010236
010240
010242

010250

0004 34

022777
001401
000403
012737

MOV
TST

BNE
19%:

#UNITS,RO
(RO)
+

#-1,(R0O)
18%

.65%
64%
,67%
66%

171756
024022

171776

020022

171766

177777

004636

sIF NOT, LOAD THE UNITS TABLE POINTER
sSELECT THE NEXT UNIT IN TABLE
; (DOUBLE INCREMENT THE POINTER, RO)

;1S THERE ANOTHER TABLE ENTRY PRESENT ?

;IF SO, USE NEXT DRIVE & DECR 'NOUNITS''
;IF NOT, CHANGE PACK ON UNIT #0
;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ
;2TYPE ASCIZ STRING

::GET OVER THE ASCIZ

20%

;CONTINUE, USING SCRATCH PACK ON UNIT #0

18%:

(RO) ,@#UNIT
A#NOUNITS

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

20%:

Q#UNIT RO

;RO NOW CONTAINS UNIT NO

a#RPO6
RO,@RHCS2
#24022 ,0RHDT
2%
#20022 ,aRHDT
2%
3%
#-1,d4#RPO6

;CLEAR RPO6 DEVICE TYPE FLAG
sSET UP UNIT ADDRESSING
;DUAL PORT RPO6 ?

3%:

;YES..SET FLAG

;SINGLE PORT RPO6 ?
JYES...SET FLAG
;DON'T SET RPO6 FLAG
;SET THE FLAG

;ASSUME THE NEXT UNIT IS AN RP04/RPQS

SEQ 0047

CZl
czi

SEQ 0048

CZF
CZF

AN afh S

Gdh. S

st Al

auh. sl

adb aulih AA

ol (S

MOV
TYPOC

.73%
72%
@dRHDT ,=(SP)

:2GET OVER THE ASCIZ
;:SAVE aRHSN FOR TYPEOUT
::GO TYPE--OCTAL ASCIICALL DIGITS)
;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ
::SAVE aRHDT FOR TYPEOUT
;GO TYPE=--OCTAL ASCIICALL DIGITS)

171614

MOV
TYPOC
TYPE

:TYPE
DRIVE NO.
::TYPE ASCIZ STRING

010364

718
70%
= (SP)
aRHSN,

104402

171652

MOV
TYPDS
TYPE

E ;SET APPROPRIATE ATTENTION BIT
(RO) ,@#ATTENT
ATABL
;:TYPE ASCIZ STRING
,69%
68%
::GET OVER THE ASCIZ
(SP)
A#UNIT,=
JUNIT NO. TO STACK

e T

104401

000410
017746

010330

MOvB
TYPE
BR

000410
017746
104402

004616

004644

104405
104401

004566
010264

116037
104401
000414
013746

2 S

010250
010256
010262
010314
010320
010322
010326
010350
010354
010356
010362
010404
010410

2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163

M. M. A

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PN
26=JUL~78 10:07

J &
A(1052)
27-JUL-78
12:32
PAGE 49
MACY11 30
4
TYPE
SERIAL
NUMBER
AND
DRIVE TYPE
T

104401

010500

104401

010536

104401

010574

2183

2184

000413
000435

2185

2186

000413
000416
000413

010622
010626
010632
010640

005777
005777
017737
017737

#20022 ,aRHDT
6%

;SINGLE PORT RPO6 ?

4%:

TYPE
BR
BR

.75%
74%
1%

;:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
;SKIP NEXT ONES

5%:

TYPE

BR
BR

7%
76%
1%

;sTYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;SKIP NEXT

6%:

TYPE
BR

78%

.79%

::TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

aRHSN
aRHDT

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

;TYPE

THE MESSAGE

;TYPE

THE MESSAGE

g W

o L

*SAVE TO CHECK IF DRIVE CLEAR CLEARS ANY BITS
JSAVE TO CHECK IF DRIVE CLEAR CLEARS ANY BITS

= Ml

a# SN
@RHSN,
aRHDT ,a#DT

ot T

MOV

002310
002306

TST
TST
MOV

1%:

010566
010572

;DUAL PORT RPO6 ?

O§'

171534

z§4022.8RHDT

9§V

020022

CMP
BEQ
CMP
BEQ

THE MESSAGE

171544

;TYPE

024022

THE MESSAGE

;SINGLE PORT RPQO5 ?

wevwy

022777
001442
022777
001436

BEQ

#20021,aRHDT

sTYPE

171554

gg4021.aauor

020021

010440
010442
010450

;DUAL PORT RPOS ?

CMP
BEQ
CMP

171564

sTYPE THE MESSAGE

024021

sTYPE ASCII HESSAGE ouT

ST WY

022777
001433
022777
001427

?
:SINGLE PORT RPQ4

010432

BEQ

#gOOZO+ORHDT

171574

;DUAL PORT RPO4 ?

020020

#24020 aRHDT

gorseerNrr

022777
001420

CMP

BEQ
CMP

171604

024020

001424

022777

010412
010420
010422
010430

2179
2180
2181
2182

2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201

;*TYPE OUT THE DRIVE TYPE IN ASCII

2166

€

2164

2165

2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178

CZF

SEQ 0049

(ZRJJCO, RPO4/5/6 FCTNL
26=-JUL-78
CZRJJC.PIN

&4
K
12:32
PAGE 50
TYPE SERIAL NUMBER AND DRIVE TYPE

27-JUL-78

o
~N

MACY11 30A(1052)

033072
010000

#6=1,9#TSTNM

;THIS SAVES TEST NUMBER

PC,a#CLDISK

;GIVE

,65%
64%

;sTYPE ASCIZ STRING
::GET OVER THE ASCIZ

)
~N

§°' ¥

004737
032713

SCOPE
MOV

004504

000005

4§

gy grey

grgur ey

ST gy

worwo

::GET OVER THE ASCIZ

;:TYPE ASCIZ STRING

70%

;CHECK MOL IN RHDS1
JWAIT IF MOL IS STILL LOW

,71%

;:GET OVER THE ASCIZ

#MOL ,aR3
1%

011120

1%:

;:TYPE ASCIZ STRING

010000

68%

:2GET OVER THE ASCIZ

,69%

011022

;2TYPE ASCIZ STRING

oo S

66%

,67%

010744

L LR

010676

INITILIZE

;CHECK MOL IN RHDS1
;BRANCH IF MOL HIGH

001144
104401

#MOL ,aR3
1ST6

000004
012737

K TR

2214
2215
2216
2217
2218
2219
2220
2221
2222
2223

010646
010650

2213

CZF

2211
2212

SEQ 0050

2202
2203
2204
2205
2206
2207
2208
2209
2210

L &
12:32 PAGE 51
TYPE SERIAL NUMBER AND DRIVE TYPE
27-JUL-78

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ
CZRJJC.P11
26=JUL-78 10:07

MACY11 30A(1052)

TST6:

011200

000004

011202
011210
011214

012737
012706
004737

000006
001000
033072

011220
011224
011230

013700
012720
012710

002166
011272
000340

011234
011242

012737
01271

000200
000300

017246
011254
011260

013737
005337
001375

033570
001200

011262

011264

011270

104065
012712
000407

011272
011274
011300
011302

022626
022711
001403
104065

011304

012712

#7<1,a#TSTNM

MOV
MOV
MOV

a#RPVEC
RO

177776

MOV
MOV

#200,PS

001200

MOV
DEC

AT IMCNT ,an$TMP1 ; COUNTER

1%:

000040

BNE

ERROR

000040

004200

SCOPE
MOV
MOV
JSR

004504

RPTRP1:

#STACK,SP
PC,a#CLDISK

#RPTRP1,
(RO) +
#340, (RO)
#RDY!IE ,aR1

?:$TMP1

#CLR,aR2
1ST17

CMP
CMP

#DVA'!RDY,aR1

MOV

BEQ
ERROR
MOV

(al

CZR

p o)

0:07

SEQ 0051

PAGE 52
27-JUL-78
MACY11 30A(1052/
HIGH
BE
TO
TS
CHECK MOL

O NN

TRLR2

(SP)+,(SP)+

TST7

#CLR,aR2

;THIS SAVES TEST NUMBER

sRESET STACK

;SET R1-RHCS1, R2-RH(S2
;sGET RP VECTOR ADDRESS
sTHIS IS FOR TIMELY INTERRUPTS
sRPO4 INTERRUPT SERVICE ROUTINE
;PRIORITY = 7
;SET PROCESSOR PRIORITY @ &
sRDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT

;WAIT FOR INTERRUPT
;BRANCH IF NOT ZERO

;BEFORE THIS IS ZERO INTERRUPT SHOULD OCCUR
s INTERRUPT DID NOT OCCUR
;CLEAR CONTROLLER VIA (S2
)
;BRANCH TO NEXT TEST
;RESTORE STACK
;1E SHOULD BE LOW
;CONTINUE IF GOOD
s INTERRUPT OCCURED BUT
;I1E FAILED TO RESET
;CLEAR CONTROLLER

)

.t AP AR AR AR AR AR AR AR AR LA LA AR A LA AAIRIAIA
YA IRIAIA AR IAIAIAI R AR AL A AN PO AL AL N AL AR NI P PR NI PO A PR NN

CZRJJCO, RPO4/5/6 FCTNL
CZRJJC.PN
26=JUL~78

12:32

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuL~-78 10:07

011310

000004

011312

012737
012706
004737

000007
001000
033072

313700

011320
011324

MACY11 30A(1052)

212720

012710

002166
011400
000340

011344
011352

012737
012711

000240
000300

177776

011356
011364
011370

013737
005337
001375

033570
001200

001200

011372
011376

012712
000404

000040

011400
011402

022626

PROGRAM INTERRUPT

TST7:

SCOPE

011404

012712

MOV
MOV
JSR
MOV
MOV
MOV

1%:

RPTRP2:

104065

000040

N
12:32

Té

004504

011330
011334
011340

27=JUL=78

&
PAGE 53

#10-1,a#TSTNM
#STACK ,SP

SEQ 0052

sTHIS SAVES TEST NUMBER

sRESET STACK

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(CS2

a#RPVEC
RO

;GET RP VECTOR ADDRESS

#RPTRPZ2,
(RO) +
#340, (RO)

sTHIS

IS FOR UNTIMELY

MOV
MOV

#240,PS

MOV
DEC
BNE

A#TIMCNT ,a#$TMP1 . COUNTER
?:STMP1
JWAIT FOR INTERRUPT

MOV
BR

#CLR,aR?2

#RDY!IE ,aR1

INTERRUPTS

;RPO4 INTERRUPT SERVICE ROUTINE
;PRIORITY = 7

;SET PROCESSOR PRIORITY = 5
sRDY, IE IN RHSC! WHOULD CAUSE INTERRUPT

JBRANCH IF NOT ZERO
;BEFORE THIS IS ZERO INTERRUPT WHOULD OCCUR

TST10

;CLEAR CONTROLLER
;NO INTERRUPT SO CONTINUE

(SP)+,(SP)+

sRESTORE STACK

CMP
ERROR

s INTERRUPT OCCURRED WITH

MOV

#CLR,aR2

;CLEAR CONTROLLER

;PROCESSOR PRIORITY

SAME

)

AS DISK

011410

000004

B 5
27=JUL=-78 12:32 PAGE 54
INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME

TST10:

SCOPE

304(1052)

;*IN CASE THERE IS ANY DRIVE ERRORS DURING POWER UP
011412
011414
011420

000005
004737
012737

011426
011432

012706
012737
004737
004737

011440
011444
011450

011454
011456

104401
000000
013777

:*OR POWER DOWN OR ANY PARITY ERRORS A RESET IS GIVEN

037340
000000
001000
000010
033072
033130
057176

002360

RESET

177776

MoV

JSR

PC,a#$TKINT

JINITILIZE TK

004504

MOV
MOV

#STACK,SP
#10,a#TSTNM

sJRESET STACK
;SAVE TEST NUMBER

170514

MOV

JSR
JSR
TYPE

HALT

#0,PS

PC,a#CLDISK
PC,a#CHECK
,CPHALT

Q#PKACK ,@RHCST

;SET R1-RHCS1, R2-RH(S2
;CHECK THAT DVA,RDY,MOL,DPR,DRY = 1
;CANNOT CONTINUE TESTS IF THEY DON'T
;STOP TESTING

;GET READY FOR PKACK

;*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE
011464
011470
011472
011474

004037
002172
004512
000022

033240

011476

013777

004506

011504
011510
011514
011520
011522

013746
052716
012677
011100
011305

002360

104413
002222
000100
000001
000001
013746

RSN
o~ oo
nN = =
H nNOVSO

wad el

wh cnb and aub aib and anb wad cub

052716
011637
022600
001405

626

170462

000001
170460

JSR
RHW(
SAVERE
8.

RO,a#SAVER

MOV

A#RP4LVEC ,QRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV
MOV
MOV

a#PKACK,=-(SP)
#GO, (SP)
(SP) +,@RH(ST
aR1,RO
aR3,R5

WAT

RHDS1
Vv
| &
1.
MOV
BIS
MOV
CMP
BEQ
MoV

002360
004200
001124

001126
004500
010700
001124
001126
004500
033762

64%:

MOV
ERROR
MOV
MOV
CMP
BEQ
MOV
MOV
ERROR
JSR
RHDS1
1
1

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

;GET READY TO MOVE COMMAND
.GET READY TO SET GO
;GO WITH
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION
;JWAIT FOR VV BIT TO SET

a#PKACK ,-(SP)
#DVA'!RDY,(SP)
(SP) ,a#$GDDAT
(SP)+,RO
648
RO, a#$BDDAT

;WAIT FOR RHDST REGISTER
;WAIT FOR VV BIT IN RHDS1 REGISTER
;ALLOW 10 MICRO SECONDS
;VV MUST SET BETWEEN
;SAVE COMMAND
;INCLUDE DVA'!RDY
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY DVA!RDY
;BRANCH IF GOOD
;BAD DATA

R1,a4REGADR
;FAILING REGISTER RHCS1
21
;DURING ABOVE OPERATION ONLY
#MOL !DPR!DRY!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,R5
;DURING ABOVE OPERATION ONLY MOL :DPR!DRY!VV
66%
;BRANCH IF GOOD
RS ,a#$BDDAT
;BAD DATA
R3,a#REGADR
;FAILING REGISTER RHDS1
63
;DURING ABOVE OPERATION ONLY
RO,a#CHREG
;CHANGE BITS IN SAVED REGISTER
;CHANGE RHDS1 REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF Vv IS 1

SEQ 0053

MACY11

CZRJJCO, RPOL/S5/6 FCTNL
CZRJJC.PI
26=JUL~78

CZRJJCO, RPO4/5/6 FCTNL CTRLR?
CZRJJC P11
26-JuL-78 10:07
011630

MACY11 30A(1052)
110

27-JUL=-78

£
12:32

SET Vv BIT #6 IN RHDS1

s CHANGE Vv BIT

000100

3
PAGE 55

;*NOW COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE

;*WITH AFTER PACK ACKNOWLEDGE
011632
011636
011640
011642
011644
011646

004037

011650
011652

104015
000207

011654

JSR
SAVERE
wC
18.
1%
2%

034070

011654
15

2%:

ERROR
RTS

RO, a#COMREG

;COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘'RHWC'
;18. REGISTERS TO BE COMPARED
JRETURN TO 1% ON ERROR
JRETURN TO 2% ON NO ERROR

;GIVING A PACK ACKNOWLEDGE

; CAUSED AN ERROR

sPACK ACKNOWLEDGE SHOULD
sSET VV IN RHDS1
; INTERRUPT SHOULD MAKE
JIE =0
;NO OTHER REGISTERS SHOULD
; CHANGE
:GOOD DATA GIVES CONTENTS
:OF REGISTER BEFORE COMMAND
;RECEIVED DATA GIVES CONTENTS
;OF REGISTER AFTER COMMAND

SEQ 0054

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.P1

26=JUL-78 10:07

MACY11 30A(1052)

2373
gg;g

2376
2377
2378
2379
ggg?

011654
011656

011662
011670

000004
012706

012737
004737

001000
000011

033072

011674
011700

005737
001412

004636

2382
2383
2384
2385
2386
2387
2388
2389
ggg?

011702
011706
011710
011712
011714
011716
011720
011722
011724

004037
002370
000005
011456
011025
000000
000000
065125
000411

032716

2392
2393
2394
2395
2396
2397
2398
2399

011726
011726
011732
011734
011736
011740
011742
011744

004037
002370
000005
010632
011025
000000
000000
065125

032716

2400
2401
2402

011746
011750

2405
2406
2607
2408

2409

PAGE 56

L.SBTTL

DATA TRANSFER RELATED ERRORS (USING MEDIA)

TST11:

SCOPE
MOV
MOV

004504

JSR

:#CHECK
:*WRITE
TST
BEQ

#STACK,SP
#11,a#TSTNM

PC,a#CLDISK

:RESET STACK
:SAVE TEST NUMBER

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

THE DRIVE TYPE AND THEN FILL THE
FROM BUFFER WITH APPROPRIATE HEADER

a#RPO6
11%

:TEST FOR RP0O6 DRIVE
:TREAT UNIT AS AN RPO4

:TREAT UNIT AS AN RP06

JSR
RO, a#F LHEAD
:SAVE HEADER DATA IN WRFROM
WRFROM
:LOCATION WHERE SAVED
5
:NUMBER OF WORDS SAVED
11456
:FIRST DATA WORD
<18.%400>'<21.>
:SECOND DATA WORD
0
:THIRD DATA WORD
0
:FOURTH DATA WORD
<26.%2000>'<18.%40>'<21.>
:FIFTH DATA WORD
BR
12%
:CONTINUE WITH SET UP
11%:

12%:

%282

12:32

DATA TRANSFER RELATED ERRORS (USING MEDIA)

%ggg
2370
2371
2372

27-JUL-78

JSR
RO, a#F LHEAD
:SAVE HEADER DATA IN WRFROM
WRF ROM
:LOCATION WHERE SAVED
5
:NUMBER OF WORDS SAVED
10632
:FIRST DATA WORD
<18.%400>!<21.>
:SECOND DATA WORD
0
:THIRD DATA WCRD
0
:FOURTH DATA WORD
<26.%2000>'<18.%40>'<21.>
:FIFTH DATA WORD

;*FILL READ INTO BUFFER WITH ALL ONES
011750
011754
011756
011760

004037
003434
000256
177777

032742

JSR
REINTO
256
-1

RO, a#CLAREA

:CLEAR 256 WORDS, FROM REINTO
:STARTING FROM REINTO
:256 WORDS
FILL WITH =1

SEQ 0055

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26~JuL-78 10:07

PAGE 57

‘

LAST BLOCK TRANSFERED-RHDS1 LBT

004636

TST
BEQ

a#RPO6

011770
011774
011776
011777

004037

035054

JSR

RO,a#RUN

814.
AVIE
.BYTE
=1-4

;TEST FOR RPO6 DRIVE

¢%.
18.

WRFROM

FMT22
WRIFOR

012010
012012
012014
012014
012020
012022

035054

(DATA) = 1

;16 BITS PER WORD FORMAT
;GET READY TO DO A WRIFOR

;CONTINUE WITH TEST

JSR
410.

RO, a#RUN

;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 410.

21.
18,

;SECTOR 21.
:TRACK 18.

;WORD COUNT

;BUS ADDRESS

8%:

;WORD COUNT

;DO NOT INHIBIT BUS ADDRESS INCREMENT

WRFROM

012030
012032
012034
012036

;CYLINDER 814.
;SECTOR 21.
:TRACK 18.

-1-4

012024
012026

;SETUP TO RUN FOR DATA COMMAND

SYIE
BYTE

012023

;TREAT UNIT AS RPO4

;BUS ADDRESS

(DATA)

= 1

;DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT22
WRIFOR

;16 BITS PER WORD FORMAT
;GET READY TO DO A WRIFOR

;*NOW SAVE REGISTERS FCR COMPARISON AFTER WRITE
012036

004037
002172
004512
000022

033240

JSR
RHW(
SAVERE
18.

RO,a#SAVER

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

004737

033152
057176

JSR

PC,a#CHECKT

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

104401

—D
—d —

—d —

004506
002344
000101
170074

MOV

,CPHALT

s CANNOT CONTINUE TESTING IF NOT
;STOP TEST

@#RPLVEC,ORPVEC ;SET RPO4 VECTOR ADDRESS
a#WRIFOR,-(SP)
;GET READY TO MOVE COMMAND
#GO!IE, (SP)
;GET READY TO SET GO AND

(SP)+,aRH(CS1

;GO WITH

WAT

;WAIT FOR LBT BIT TO SET

LBT
2500.
2500.

JWAIT FOR LBT BIT IN RHDS1 REGISTER
;ALLOW 25000 MICRO SECONDS
;LBT MUST SET BETWEEN

RHDS1

002222
002000
004704
004704
004037
002172

170076

TYPE
HALT
MOV
MOV
BIS

;*TIME IS NOT CRITICAL HERE

104413

—

—d —

000000
013777
013746
052716
012677

2438
2439
2440
2441
2442
2443
Jhbd
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465

12:32

005737
001412

—

2431
2432
2433
2434
2435
2436
2437

27-JuL-78

011762
011766

rnororRONOMN

2429
2430

30A (1052)

s*DRIVE TYPE 15 CHECKED AND THEN THE APPROPRIATE
;*WRITE HEADER AND DATA COMMAND IS LOADED

_—

2410
2611
2412
2413
24614
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428

MACY11

032774

;JWAIT FOR RHDS1 REGISTER

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
RO,a#F ILLRE
;MOV O INTO SAVED RHWC

JSR

RHW(

;SAVED REGISTER TO CHANGE

SEQ 0056

CZRJJICO, RPO4/S/6 FCTNL CTRLR2
CZRJJC.PN

26=-JuL-78 10:07

2466

012124

000000

2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481

012132
012134
012136
012142
012144
012146
012150
012152
012156
012160
012162
012164
012166
012172

002174
002402
004037
002222
000001
000001
002000
004037
002212
000001
000001
000001
004037
002204

2485
2486
2487
2488
2489
523?

012176
012202
012204
012206
012210
012212

004037
004512
002254
000021
012214
012220

2492

012214

2467

gzgg

2484

2493

2494
2495
2496
2497
2498
2499
2500

012126

012174

012216

004037

MACY11 30A(1052)
TM

032774

104045

12:32

PAGE 58

LAST BLOCK TRANSFERED=RHDS1 LBT
0

JSR

RO,a#F ILLRE

RHBA
WRFROM+<5%2>
RO,a#CHREG
JSR
RHDS1
1
1
LBT
RO,a#CHREG
JSR
RHCA
1
1
BITO
RO,a#F ILLRE
JSR
RHDST

033762

032774

000000

000207

27-JuL-78

;*COMPARE ALL REGISTERS

034070

1%:

;DATA

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

;SAVED REGISTER TO CHANGE
:DATA
;CHANGE BITS IN SAVED REGISTER
s CHANGE RHDS1 REGISTER
;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF LBT IS 1
s CHANGE LBT BIT
;CHANGE BITS IN SAVED REGISTER
;CHANGE RHCA REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF BITO IS 1
s CHANGE BITO BIT
MOV O INTO SAVED RHDST
;SAVED REGISTER TO CHANGE
:DATA

JSR
SAVERE
Wl
|
1%
2%

RO, a#COMREG

;COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
;17. REGISTERS TO Bt COMPARED
JRETURN TO 1% ON ERROR
JRETURN TO 2% ON NO ERROR

ERROR

sWRITING ON THE LAST BLOCK

RTS

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

SEQ 0057

CZRJJICO, RPO4L/S5/6 FCTNL CTRLRZ2
CZRJJC.PN
26-JuL-78 10:07

MACY11 30A(1052)
T

27=JUL-78

12:32

PAGE 59

SEQ 0058

LAST BLOCK TRANSFERED-RHDS1 LBT

2501
;*NOW A READ DATA WILL BE DONE ON SAME CYLINDER, SECTOR & TRACK
012220
012220

004737

033072

012224
012230
012232
012234
012236
012242
012244
012246

004037
002370
000001
065125
004037
002372
000400
000060

032716

2%:

;*CLZAR ANY PREVIOUS ERRORS

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2=RH(S2

s*FILL WRITE FROM BUFFER WITH EXPECTED DATA

JSR

WRFROM

RO, a#F LHEAD

;SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED

;NUMBER OF WORDS SAVED

032742

\'4

<26.%2000>!<18.+40>!<21.
;FIRST DATA WORD
JSR
RO,a#CLAREA
;CLEAR 256. WORDS, FROM WRFROM+Z2

WRFROM+?2
256.
0

;:256. WORDS
JFILL WITH O

:STARTING FROM WRFROM+?2

;*FIRST THE DRIVE TYPE

IS CHECKED AND THEN THE APPROPRIATE

;*READ COMMAND IS LOADED

012250
012254

005737
001412

004636

TST
BEQ

a#RP06
9%

012256
012262
012264
012265
012266
012270
012272
012274
012276
012300

004037

035054

JSR

RO, a#RUN

012302
012302
012306
012310
012311
012312
012314
012316
012320
012322
012324

012324
012330
012332
012334
012336
012342
012346
012350

814.
BYTE
.BYTE

-256.

;TEST FOR RP0O6 DRIVE
;TREAT UNIT AS RPO4

21.
18.

REINTO

9%:

035054

JSR
410.

BYVE
BYTE
=256.

;DO NOT INHIBIT BUS ADDRESS INCREMENT
216 BITS PER WORD FORMAT

108
RO, a#RUN

21.
18.

REINTO

004037
002172
004512
000022
004737
104401

000000
013777

10%:

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 410.

;SECTOR 21.
;TRACK 18.
;WORD COUNT = 256.

;DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT22
READAT

;16 BITS PER WORD FORMAT
;GET READY TO DO A READAT

;*SAVE REGISTERS FOR COMPARISON AFTER READ DATA

033240

JSR
RHW(
SAVERE
18

RO,a#SAVER

TYPE
HALT
MOV

,CPHALT

JSR

033152
057176

004506

;GET READY TO DO A READAT
sCONTINUE WITH TEST

;BUS ADDRESS

010000
002346

;WORD COUNT = 256.
;BUS ADDRESS

0
FMT2?2

READAT
BR

sSETUP TO RUN FOR DATA COMMAND

;CYLINDER 814.
;SECTOR 21.
;TRACK 18.

167610

PC,a#CHECKT

:SAVE REGISTERS
JRHWC IS THE FIRST REGISTER SAVED
sSTARTING ADDRES OF WHERE
sNUMBER OF REGISTERS

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

sCANNOT CONTINUE TESTING IF NOT
;STCP TEST
A#RPLVEC ,QRPVEC ;SET RPO4 VECTOR ADDRESS

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRIJC.PN
26=JUL~78 10:07

012356
012362
012366

013746
052716
012677

012372
012374
012376
012400
012402

104413

MACY11 30A(1052)
TM

002346
000101
167606

H 5
27=JUL-78 12:32 PAGE 60
LAST BLOCK TRANSFERED-RHDS1 LBT
MOV
BIS
MOV

@#READAT ,-(SP)
#GO!IE, (SP)
(SP) +,aRHCS1

;*TIME
WAT

IS NOT CRITICAL HERE
sWAIT FOR RDY BIT TO SET

RHCS1
RDY

002200
000200
001614
001502

SEQ 0059

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

sWAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER

908.
834.

JALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
012404
012410
012412
012414
012420
012422
012424

004037
002172
000000
004037
002174

JSR

RO,a#F ILLRE

sMOV O INTO SAVED RHWC

JSR

RO,a#F ILLRE

sMOV REINTO+<256.%2> INTO SAVED RHBA

JSR

RO,a#(CHREG

;CHANGE BITS IN SAVED REGISTER

SHUC

032774

RHBA
REINTO+<256.%2>

033762

012430
012432
012434
012436
012440
012444
012446
012450
012452
012454
012460
012462

RHDS1
1
1
LBT
JSR
RHCA

033762

RO, a#CHREG

1
BITO
JSR

032774

gHDST

;CHANGE RHDS1 REGISTER
;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF LBT IS 1
;CHANGE LBT BIT
;CHANGE BITS IN SAVED REGISTER
; CHANGE RHCA REGISTER

RO,a#F ILLRE

;NEW VALUE OF BITO IS 1
s CHANGE BITO BIT
;MOV O INTO SAVED RHDST

:g:¥£b REGISTER TO CHANGE

JSR

3%:

104045

;SAVED REGISTER TO CHANGE
:DATA

;1 BIT/BITS TO BE CHANGED

18.

;18. REGISTERS TO BE COMPARED

JRETURN TO 4% ON NO ERROR

000207

:g:¥iD REGISTER TO CHANGE

;*COMPARE ALL REGISTERS
RO, a#COMREG
s COMPARE SAVED REGISTERS WITH
SAVERE
;GOOD DATA SAVED IN 'SAVERE'
wC
sTEST DATA STARTING FROM "RHWC'

034070

012464
012470
012472
012474
012476
012500

012502
012504

032774

ERROR
RTS

RETURN TO 3% ON ERROR
45
PC

;READING ON LAST BLOCK IE.
;CYLINDER 410./814., SECTOR 21,

;CAUSED AN ERROR
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT
;WAS THERE AFTER READ

;FROM LAST BLOCK
012506
012506
012512
012514
012516

004037
002370
003434
000400

035120

4%:

;*READ DATA WILL BE COMPARED
JSR

WRFROM
REINTO

256.

RO,a#COMPAR

;COMPARE TWO BLOCKS OF MEMORY

2GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

;256., WORDS TO BE COMPARED

TRACK 18

2!
czi

(ZRJJCO, RPO4/5/6 FCTNL CTRLRZ

CZRJJC. P11

2613
2614

2615
2676
2617
2618
2619
2620
2621
2622

26=-JuL-78 10:07

012520
012522

012524
012530

012524
012526

000207

012530

104046

MA(CY11 30A§1052)

1 2
27-JUL-78 12:32 PAGE 61
LAST BLOCK TRANSFERED-RHDS1 LBT
;RETURN TO 5% ON ERROR
JRETURN TO 6% ON NO ERROR

5%
6%
5%:
6%:

ERROR
RTS

SEQ 0060

46
PC

;DATA READ FROM
;LAST BLOCK

IN ERROR

CZF
CZF

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
26=JUL-78 10:07
CZRJIJC.PN

MACY11 30A(1052)
TMm

TST12:

27=-JUL-78

SCOPE

000004
012706
012737

012550
012554
012560

004737
104401

033152
057176

012562

013777

004506

012570
012574
012600
012604
012606
012610
012612
012614

013746
052716
012677
104413
002222
000200
012740
012737

002326
000101

012616

004737

033072

JSR

032716

JSR
WRFROM

004737

000000

167374

#STACK,SP
#12 ,a#TSTNM

JRESET STACK
;SAVE TEST NUMBER

TYPE
HALT

LCPHALT

s CANNOT CONTINUE TESTING IF NOT
;STOP TEST

MOV

Q#RP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

I4RECALI,-(SP)
#GO!IE, (SP)
(SP)+ ,@RHCS1

JSR
PC,a#CLDISK
;SET R1-RH(CS1, R2-RH(SZ2
s*GET HEADS TO CYLINDER 0O
JSR
PC,a#CHECKT
;CHECKS DVA,RDY
,MOL ,DPR,DRY AND VV = 1

WAT

004037
002400
000400
000000

032742

012654

004037
003400
000004
010000
000001
000000
000000

032716

012700
012702
012704

004037
003410
000004
000001

032742

012706
012712

004037
003434

032742

:WAIT FOR RDY BIT TO SET

JALLOW 56000 MICRO SECONDS

5599.

012642
012646
012650
012652

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;GO WITH
;WAIT FOR AHDS1 REGISTER
sWAIT FOR RDY BIT IN RHDS1 REGISTER

5600.

004037
002370

012674

167376

MOV
MOV

RHDS1
RDY

012622
012626
012630
012632
012634
012636
012640

012672

004504

PAGE 62

LAST BLOCK TRANSFERED=-RHDS1 LBT

012530
012532
012536
012544

001000
000912
033072

12:32

;RDY MUST SET BETWEEN

PC.a#CLDISK

;SET R1-RHCS1, R2-RH(CS2

s*FILL WRITE FROM BUFFER WITH HEADER
RO, a#F LHEAD

B
10000

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

0
0
0

;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD

s*FILL WRITE FROM BUFFER WITH DATA
JSR
RO,a#CLAREA
;CLEAR 256. WORDS, FROM WRFROM+10
WRFROM+10
;STARTING FROM WRFROM+10

256.

:256. WORDS

SFILL WITH O

s*FILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER
RO, a#F LHEAD
;SAVE HEADER DATA IN WRFROM+<260.*2>

JSR

WRFROM+<260. x2>
4
10000
1

0
0

;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
sFIRST DATA WORD
:SECOND DATA WORD

;THIRD DATA WORD
;FOURTH DATA WORD

;*FILL WRITE FROM BUFFER WITH NEXT SECTOR DATA
JSR
RO,a#CLAREA
;CLEAR 4 WORDS, FROM WRFROM+<264
. %2>
WRFROM+<264 . x2>
;STARTING FROM WRFROM+<264.%2>
A

WORDS

SFILL WITH 1

;*CLEAR READ INTO BUFFER WITH DATA OTHER THAN EXPECTED DATA

JSR

REINTO

RO,a#CLAREA

;CLEAR 260. WORDS, FROM REINTO
;STARTING FROM REINTO

SEQ 0061

cz
| cz

012742
012746
012750
012752

004037
002172
004512
000022

033240

012754
012760
012764

004737
104401

033152
057176

012766

013777

004506

012774
013000
013004
013010
013012

013746
052716
012¢77

002344
000101
167170

013014
013016
013020
013022
013024

104413
002200
000200
001614
001507

013026
013032
013036

;*THE WRITE HEADER AND DATA WILL BE LOADED

035054

JSR
0

RO,a#RUN

BYTE
0
.BYTE
0
=264 .-4

;SETUP TO RUN FOR DATA (OMMAND
sCYLINDER 0
;SECTOR 0
sTRACK 0
sWORD COUNT (DATA) = 264. +

;DO NOT INHIBIT BUS ADDRESS INCREMENT

WRFROM

FMT22
WRIFOR

;BUS ADDRESS

;16 BITS PER WORD FORMAT
;GET READY TO DO A WRIFOR

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA

JSR
RHW(
SAVERE

RO,a#SAVER

JSR

PC,a#CHECKT

MOV

A¥RPLVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

MOV

a#WRIFOR,-(SP)

MOV

aR1,RO

18.

TYPE
HALT

167172

BIS
MOV
MoV

011305

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

LCPHALT

;CHECKS DVA,RDY
,MOL ,DPR,DRY AND VV = 1
sCANNOT CONTINUE
;STOP TEST

TESTING IF NOT

;GET READY TO MOVE

COMMAND

#GO!IE, (SP)
(SP) + ,@RHCS1

;GET READY TO SET GO AND
;GO WITH

aR3.R5

;SAVE RHDST DURING ABOVE OPERATION

;SAVE RHCS1 DURING ABOVE OPERATION

:*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC

WAT

RHCS1
RDY

013746
052716
011637
022600
001405
010037
010137

002344
004101
001124

012746
011637

010500
001124

104021

N LA

177364
002370
00000y
010000
002344

:260. WORDS
;FILL WITH 377

001126
004500

032774

sWAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER

908.
839.
MOV
BIS
MOV
CMP
8EQ
MOV

sALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN
a#WRIFOR,-(SP)
;SAVE COMMAND
#1E!DVA!GO,
(SP) ;INCLUDE IE!DVA!GO
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,RO
;DURING ABOVE OPERATION ONLY IE!DVAIGO
67%
;BRANCH IF GOOD
RO,a#$BDDAT
;BAD DATA

ERROR

MOV

67%:

;sWAIT FOR RDY BIT TO SET

MOV
MOV
CMP
BEQ
MOV
MOV
ERROR

R1,3a#REGADR

sFAILING REGISTER RH(S1

:DURING ABOVE OPERATION ONLY
#MOL !DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,R5
;DURING ABOVE OPERATION ONLY MOL !DPR!VV
69%
;BRANCH IF GOOD
RS ,a#$BDDAT
;BAD DATA
R3,a#REGADR
sFAILING REGISTER RHDS1
63
;DURING ABOVE OPERATION ONLY

;*NOW CHANGE SAVE REGISTERS TO EXPECTED VALUES

JSR

RO,a#F ILLRE

;MOV O INTO SAVED RHW(

N LN N

004037
000000
000
000

CZR
CZR

NN CNLANLNLA AN G

012720
012724
012726
012727
012730
012732
012734
012736
012740

SEQ 0062

alt alt alt Al AU

000404
000377

011100

PAGE 63

260.
377

012714
012716

000000

K
27=-JUL-78 12:32
MACY11 30A(1052)
T2
SEARCH COMMAND

taliaitastaltallalt

CZRJJCO, RPO4/5/6 FCTNL CTRLR?
CZRJJC LP1
26=JUL~78 10:07

002172
000000
004037
002174
003420
004037

032774
032774

RO,a#F ILLRE

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

JSR

RO,a#F ILLRE

;MOV 2 INTO SAVED RHDST

;SAVED REGISTER TO CHANGE
;DATA
:g:¥ED REGISTER TO CHANGE

;*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA
013136
013142
013144
013146
013150
013152

004037
004512
002254
000022
013154
013160

013154
013156

000207

;*WITH REGISTERS AFTER COMMAND

034070

104027

JSR

RO, a#COMREG

;COMPARE SAVED REGISTERS WITH
.,GOOD DATA SAVED IN °'SAVERE'
:TEST DATA STARTING FROM 'RHW(C'
:18. REGISTERS TO BE COMPARED
JRETURN TO 1$ ON ERROR
JRETURN TO 2% ON NO ERROR

ERROR

;WRITE HEADER AND DATA

SAVERE
w(C
18.
1%
2%
18:

RTS

;CAUSED IMPROPER REGISTER

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

:*NOW A SEARCH COMMAND WILL BE GIVEN
;*BUT BEFORE THAT ALL POSSIBLE REGISTERS
;*WILL BE FILLED FOR THE READ HEADER AND DATA SECTOR 1
;*AS THERE WILL NOT BE MUCH TIME BETWEEN THE
;*COMPLETION OF THE SEARCH AND THE SECTOR 1 COMING.

2765

2787
2788
2789
2790

JSR

SHDST

2764

2783

s*FILL FOR THE READ HEADER AND DATA COMMAND WHICH WILL NOT
;*BE EXECUTED TILL AFTER THE SEARCH
s*THE SEARCH WILL ONLY LEAVE RHCS1 AND RHDST
s*CHANGED ALL THE REST WILL BE UNCHANGED
013160
013160
013164
013170
013172
013173
013174
013176
013200
013202
013204

013206
013212
013214
013216

004737
004037

033072
035054

2%:

JSR

0
.BYTE
BYTE
-8.

PC,a#CLDISK
RO,a#RUN
0
O

REINTO

0
ECI!FMT22
SERCH

014000
002334

004037
002172
004512
000022

033240

;SET R1-RHCS1, R2-RH(CS2
;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 0
sSECTOR 0
:TRACK 0
;WORD COUNT = 8.
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;GET READY TO DO A SERCH

;*SAVE REGISTERS FOR COMPARISON NOT AFTER THE
;*SEARCH COMMAND BUT AFTER THE READ HEADER AND DATA

JSR
RHWC
SAVERE
18.

RO,a#SAVER

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

ol
o

~m *]

SEQ 0063

'3
PAGE 64
:g:¥£0 REGISTER TO CHANGE

RHBA
WRFROM+<268. *2>

2760

2784
2785
2786

SEARCH COMMAND
gHUC

2761
2762
2763

2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782

E
12:32

NN N N N AN N AN L ANUN

2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759

112

27=-JUL-78

Calt att atl all att adh alt atl afl ablalt atf alt ast alt att alladt ati adt arbad il Un CadtoadCad Und Ual Cad o ad Uad Gl UN AN UGN AN OO O AN O

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC P11
26=-JuL-78 10:07

MACY11 30A(1052)

PAGE 65

;*NOW SAVE VALUES FOR RHCS1 AND RHDST WHICH
;*WILL CHANGE AFTER THE SEARCH
013220
013224
013230
013234

013746
052716
012637
012737

002350
000101
004650
000001

@#REFOR,=(SP)
#1E !GO, (SP)
(SP) +,a#TMPO
#1,a4TMPS

MOV
BIS
MOV
MOV

004656

;SAVE READ HEADER AND DATA
s INTERRUPT ENABLE AND GO
;SAVE IN RO FOR RHCS1
;SAVE TRACK O SECTOR 1 FOR RHDST

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

MOV

#7% ,aRPVEC

sSET INTERRUPT VECTOR TO 2%

TYPE
HALT
MOV
BIS
MOV

,CPHALT

;CANNOT CONTINUE TESTING IF NOT
;STOP TEST
;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;GO WITH

013242
013230
013254
013260
013262
013266
013272

012777
004737

013276
013300
013302
013304
013306

104413

s*TIME
WAT

001614
001507

DRY
908.
&,

013310

012737

104401

000000
013746
052716
012677

013310
033152
057176

166716

JSR

002334
000101

166702

PC,a#CHECKT

a#SERCH,-(SP)
#GO!IE, (SP)
(SP) + ,8RHCS1

IS NOT CRITICAL THIS ONLY WAITS FOR SEARCH COMPLETION
;WAIT FOR DRY BIT TO SET
;WAIT FOR RHDS1 REGISTER

RHDS1

000000

177776

7%:

MOV

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

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

#0,PS

;SET PROSESSOR STATUS TO
;PRIORITY O IN CASE IT WAS

;TAKEN OUT OF WAT ROUTINE
;BEFORE RTI
;SET DESIRED SECTOR/TRACK

013316

013777

004656

166660

MOV

a#TMPS5 ,aRHDST

013324

013777

004506

166634

MOV

a#RP4VEC ,aRPVEC ;SET RP0O4 VECTOR ADDRESS

013332

013777

004650

166640

MOV

a#TMPO ,aRHCST

013356
013360
013362
013364
013366
013370
013372
013376

;FILL RHCS1 WITH READ COMMAND

:ngfggER WITH INTERRUPT ENABLE

;*TIME ALLOWED HERE IS CRITICAL ANY TIME ERROR
;*INDICATES WRONG SEARCH IN THE SEARCH COMMAND

WAT

013340
013342
013344
013346
013350
013352

sREGISTER TO SECTOR 1,TRACK 0

sWAIT FOR RDY BIT TO SET

RHCS1
RDY
149.
2.
032716

032742

sWAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 1490 MICRO SECONDS
;RDY MUST SET BETWEEN

;*WRITE FROM BUFFER WILL BE FILLED WITH EXPECTED DATA

JSR

WRFROM
i
10000
1

0
0

RO, a#F LHEAD

JSR
RO,a#CLAREA
WRFROM+<4 %2>

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

;THIRD DATA WORD
;FOURTH DATA WORD

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

SEQ 0064

CZR

SEARCH COMMAND

A N A NN N U U A N N A N N N AN (N N AN N (N N N AN AN AN AN A N N (NN (NN N N NN N N AN NN N N NN NN

12:32

1L L U U U U

T12

27=-JUL-78

)
~N

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC. PN
26=-JuL-78 10:07

MACY11 30A(1052)

013400
013402
013404
013410
013412
013414

N
12:32

SEARCH COMMAND
4

000004
000001
004037
002172
000000
004037
002174
003454
004037
002200
004272
004037

27-JUL-78

5
PAGE 66

SEQ 0065

:4 WORDS

SFILL

WITH 1

:«CHANGE SAVED REGISTERS TO EXPECTED VALUES

032774

JSR

RO, a4#F ILLRE

:MCV 0 INTO SAVED RHWC

JSR
RHBA

RO, a4F ILLRE

“MOV REINTO+<8.%2> INTO SAVED RHBA
“SAVED REGISTER TO CHANGE

JSR

RO, a#F ILLRE

gnuc

032774

RE INTO+<8. %2>

032774

RHCS1
4272

JSR

032774

guosr

RO, a4F ILLRE

:3:¥ED REGISTER TO CHANGE

-DATA

:MOV 4272 INTO SAVED RHCS1

“SAVED REGISTER TO CHANGE
*DATA

MOV 2 INTO SAVED RHDST

;g:¥io REGISTER TO CHANGE

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

034070

SAVERE
wC
18.
3%
3%:

ERROR
RTS

RO, a#COMREG

;COMPARE SAVED REGISTERS WITH

;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHW(C'
;18. REGISTERS TO BE COMPARED
JRETURN TO 3% ON ERROR
sRETURN TO 4% ON NO ERROR

;READ HEADER AND DATA CAUSED
; IMPROPER REGISTER CHANGE

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

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

013466
013466
013472
013474
013476
013500
013502

004037
002370
003434
000010
013504
013510

013504
013506

000207

013510

104053

035120

READ WAS GOOD

JSR
WRFROM
REINTO
8.

RO,a#COMPAR

ERROR
RTS

53
PC

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

5%
6$

5%:
6%:

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

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

CZR.
CZR.

ot Ll st adt al ot UadUad Ut Ual Lal Gad Ual Lal Ual U Ual Uad U N AU O N A O N N N N G LN N AN AN AN AN AN AN (N W AN N N AN N N N N N N NN VNN

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ
26~JUL-78 10:07
CZRJJC P11

MACY11 30A(1052)

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2
CZRJJC.PI
26-JUL~-78 10:07
2895
2896
2897

2898
2899

013510
013512
013516
013524

000004
012706
012737
004737

013530
013534
013540
013542
013550
013554
013556
013562
013566
013572
013574
013576
013600
013602

004737

033152
057176

013777
004037
000012
013746
052716
012677

004506
033042

013604
013610
013614
013616
013617
013620
013622
013624
013626
013630

104401
000000

104413

001000
000913
03307¢

MACY11 30A(1052)
112

TST13:

004504

000000
000
000
177770

TYPE
HALT

MoV
JSR
10.
MOV
BIS
MOV

166416

002352
000101

166406

#STACK,SP
#13,a4TSTNM

PC,a#CLDISK

wAT
RHDS1

.CPHALT

sALLOW 70000 MICRO SECONDS
;DRY MUST SET BETWEEN

JSR
0
.BYTE
BYTE
-8,

RO, a#RUN

0
O

0
ECI!FMT2?
SERCH

004737

033152
057176

013700
013704

052700
012705

014042

033022

002334
004301
010500

;CANNOT CONTINUE TESTING IF NOT
;STOP TEST

;WAIT FOR DRY BIT IN RHDS1 REGISTER

REINTO

013644
013650
013654
013656
013664
013670
013672
013673
013674

;SET R1-RHCS1, R2-RH(S2

;*FILL REGISTERS FOR READ HEADER AND DATA TO BE DONE AFTER SEARCH
JSR
PC,a#CLDISK
;SET R1-RH(CS1, R2-RH(CS2

033072
035054

033240

JRESET STACK
;SAVE TEST NUMBER

sWAIT FOR DRY BIT TO SET
;WAIT FOR RHDS1 REGISTER

7000.
35.

004037
002172
004512
000022

PAGE 67

@#RP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS
RO, a#SEEKCY
;SEEK FOR
;CYLINDER 10.
Q#SEECOM,-(SP)
;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
#GO!IE, (SP)
;GO WITH
(SP) + ,@RHCS1

DRY

013632
013636
013640
013642

104401

SCOPE

MOV
MOV

;*GET THE HEADS TO CYLINDER 10
;CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1
PC,a#CHECKT
JSR

003434
000000
014000
002334

000000
012777
004037
000000
000
000
013700

B
12:32

SEARCH COMMAND

JSR

002222
000200
015530
000043
004737
004037

27=JUL-78

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0
;SECTOR 0
;TRACK 0
;WORD COUNT = 8.
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;GET READY TO DO A SERCH

;*SAVE REGISTERS FOR COMPARISON AFTER SEARCH
;*AND READ HEADER AND DATA

JSR
RHWC
SAVERE
18.

RO,a#SAVER

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

;*NOW GIVE THE SEARCH COMMAND
JSR
PC,a#CHECKT
;CHECKS DVA,RDY,MOL ,DPR,DRY AND WV = 1
TYPE
HALT

MOV

166302

JSR

.BYTE
.BYTE

0
0
0
MOV

BIS

MOV

LCPHALT

#3% ,aRPVEC
RO,a#SRCH

a#SERCH,RO

;CANNOT CONTINUE TESTING IF NOT
;STOP TEST

:INTERRUPT VECTOR SET TO 3%
;SEARCH FOR

:CYLINDER O
:SECTOR 0
:TRACK 0
:EXPECTED CONTENTS OF RHCS1
; IMMEDIATELY AFTER GO

Y ;EXPECTED BITS IN RHCS1
' 1E'GO,RO
#DVA'RD
#MOL !DPR!VV,R5 ;EXPECTED BITS IN RHDS1
s IMMEDIATELY AFTER GO

SEQ 0066

(ZRJJICO, RPO4/5/6 FCTNL CTRLRZ
CZRIJC.P1
26~JuL-78 10:07
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960

013710
013714
013720
013724
013726
013730
013734
013740
013744
013752

013746
052716
012677
021100

2963

013754

000414

001413
011137
010037
010137
012737
104021

MACY11 30A(1052)
T13

002334
000101

BIS

MOV
(MP
BEQ
MOV
MOV
MOV
MoV
FRROR

000036

C
12:32

SEARC H COMMAND
MOV

1656254

001126
001124
004500
000340

27=JUL-78

6
PAGE 68

@#SERCH,=(SP)
#GO!IE, (SP)
(SP)+,aRHCS1
aR1,R0
1%

aR1,a¥$BDDAT
RO,a#$GDDAT

;GET READY TO MOVE COMMAND
:GET READY TO SET GO AND
:G0 WITH

;1S RHCS1 GOOD
;BRANCH IF GOOD
;BAD DATA FOR RHCS1

:GOOD DATA
;FAILING REGISTER RHCS1
#340,9#TRAPVEC+2; TRAP PRIORITY = 7
21
;DURING SEARCH COMMAND
;CONTENTS OF RHCS1 WAS
:NOT AS EXPECTED
2%
;IF LAST ERROR 21 OCCURRED
;THEN DO NOT CHECK RHDS1

R1,a#REGADR

;AS TOO MUCH TIME HAS
;PASSED

1%:

2969
2970
2971
2972
2973
2974

013756
013760
013762
013766
013772
013776
014004

021305
001412
011337
010537
010337
012737
104063

2978
2979
2980

014006
014014
014022

013737
052737
012737

2983
2984
2985
2986
2987

014030
014032
014034
014036
014040

104413

2989
2990
2991

014042
014050
014056

012737
012737
013777

000200
000000
004656

000036

2994
2995

014064
014072

013777
013711

004506
004650

166074

3001
3002
3003
3004
3005

014076
014100
014102
014104
014106

001126
001124
004500
000340

002350
000101
000001

000036

004650
004650
004656

2%:

CMP
BEQ
MOV
MOV
MOV
MOV
ERROR

aR3.R5
2$

;1S RHDS1 GOOD
;BRANCH IF GOOD

RS ,a#$GDDAT
R3,a#REGADR

:GOOD DATA

MOV
BIS
MOV

Q#REFOR,a#TMPO

;*THIS
WAT
RHDS1
RDY
7000.

IS ONLY A WAIT LOOP

aR3,a#SBDDAT

104413
002200
000200

000225

000002

3%:

MOV

sFAILING REGISTER RHDS1

#340,9#TRAPVEC+2 ;TRAP PRIORITY = 7
63
;DURING SEARCH COMMAND

;CONTENTS OF RHDS1 WAS
;IN CORRECT

#1E!GO,a#TMPO
#1,24TMPS

;SAVE READ HEADER AND DATA

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

sWAIT FOR RDY BIT TO SET

JWAIT FOR RHDS1 REGISTER
;WAIT FOR RDY BIT IN RHDS1 REGISTER
;ALLOW 70000 MICRO SECONDS

;RDY MUST SET BETWEEN

35.

177776
166120

;BAD DATA FOR RHDS1

#200,a#TRAPVEC+2 ;TRAP PRIORITY = 4

;SET PROSESSOR STATUS TO 0
;SET DESIRED SECTOR/TRACK
:REGISTER TO SECTOR 1, TRACK 0

MOV

#0,PS

MOV

a#RP4VEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS
a#TMPO,aR1
JFILL RHCST WITH READ COMMAND

MOV

a#TMP5 ,aRHDST

:ngfégER WITH INTERRUPT ENABLE

;*TIME ALLOWED HERE IS CRITICAL ANY TIME ERROR
s*INDICATES WRONG SEARCH IN THE SEARCH COMMAND
WAT
;WAIT FOR RDY BIT TO SET
RHCS1
RDY
149.

;WAIT FOR RHCS1 REGISTER

JWAIT FOR RDY BIT IN RHCS1 REGISTER
JALLOW 1490 MICRO SECONDS
JRDY MUST SET BETWEEN

SEQ 0067

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26-JuL-78 10:07
032716

014140

004037
002370
000004
010000
000001
000000
000000
004037
002400
000004
000001

014142
014146
014150
014152
014156
014160
014162
014166
014170
014172
014176
014200
014202
014206
014210

004037
002172
000000
004037
002174
003454
004037
002200
004272
004037
002204
000002
004037
002234
000000

032774

MACY11 30A(1052)
T13

27=-JUL-78

D
12:32

SEARCH COMMAND

SEQ 0068

PAGE 69

;*WRITE FROM BUFFER WILL BE FILLED WITH EXPECTED DATA

JSR
WRFROM
4
10000
1
0
0

032742

RO, a#F LHEAD

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

RO,a#CLAREA
JSR
WRFROM+<4 %2>

:FOURTH DATA WORD
;CLEAR & WORDS, FROM WRFROM+<4*2>
;STARTING FROM WRFROM+<4*2>

JFILL WITH 1

WORDS

:*CHANGE SAVED REGISTERS TO EXPECTED VALUES
JSR
RO,a#F ILLRE
;MOV O INTO SAVED RHWC

gfluc

032774

:g:¥ib REGISTER TO CHANGE

JSR

RO,a#F ILLRE

JMOV REINTO+<8.%*2> INTO SAVED RHBA

JSR

RO,a#F ILLRE

:MOV 4272 INTO SAVED RHCS1

JSR

RO,a#F ILLRE

JSR

RO,a#F ILLRE

RHBA
REINTO+<8. %2>

032774

RHCS1
4272

032774

SHDST

032774

SHCC

:SAVED REGISTER TO CHANGE
;DATA
:SAVED REGISTER TO CHANGE
:DATA

JMOV 2 INTO SAVED RHDST

:g:¥£0 REGISTER TO CHANGE

:MOV O INTO SAVED RHCC

;g:¥§0 REGISTER TO CHANGE

;*COMPARE REGISTER BEFORE READ HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND
014212
014216
014220
014222
014224

004037

014226

014234

014230
014232

104031
000207

034070

JSR
SAVERE
wC
18.
4%
5%
4%:

ERRCR

RTS

RO, a#COMREG

; COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'
sTEST DATA STARTING FROM 'RHWC'
;12. REGISTERS TO BE COMPARED
sRETURN TO 4% ON ERROR
JRETURN TO 5% ON NO ERROR

sREAD HEADER AND DATA CAUSED

: JMPROPER REGISTER CHANGE

.GOOD DATA GIVES WHAT SHOULD
;BE THERE

JRECEIVED DATA GIVES WHAT WAS
;THERE AFTER COMMAND

;*NOW READ INTO BUFFER WILL BE CHECKED TO SEE
014234
014234
014240
014242
014244
014246
014250

035120

014256

5%:

;*THE READ WAS GOOD

JSR

WRFROM
REINTO

8.
6%
7%

RO,a#COMPAR

;COMPARE TWO BLOCKS OF MEMORY

;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

:8., WORDS TO BE COMPARED
JRETURN TO 6% ON ERROR
JRETURN TO 7% ON NO ERROR

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2
CZRIJC.P11
3063

3064
3065
3066
3067

3068

3069
3070
3071

014252
014254
014256

26~JuL-78 10:07

104053
000207

MACY11 30A(1052)

27-JuL-78

T13

SEARCH COMMAND

6%:

ERROR
RTS

7%:

53
PC

12:3C

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

Sta 0069

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2
CZRIJC.P11

26=JuL-78 10:07

MACY11 30A(1052)
T13

3072

27=-JUL-78

12:32

SEARCH COMMAND

PAGE 71

3073

3076
3077
3078
3079
3080
3081
3082
3083
3084
3085

I
L
i
I
i
i*
o
i
i
I

THIS POINT ON TO THE TEST WHEN SECTOR
IF TESTING IS STOPPED WITH
1 1S REPLACED.
AN ERROR IN THE SECTION OF THE PROGRAM BE TWEEN
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
IS RECOMMENDED THAT AFTCR A PASS OF THIS
PROGRAM THE DISK BE REFORMATTED.

TST14:

SCOPE
MOV
MOV

3074
3075

I
i

3086
3087

THE NEXT TEST REMOVES SECTOR 1 ON CYLINDER 0

TRACKO AND PUTS SECTOR 0 THERE.
HENCE THE PACK IS UNFORMATTED FROM

3088
3089
3090

3091
3092

3093
3094

3095

3097
3098
3099
3100
3101
3102
3103
3104
g}gg

014256

014260
014264

014272
014276
014302
014304
014306
014310
014312
014314
014316

000004

012706
012737

001000
000014

004037
002370
000005
010000
000000
000000
000000
000001

032716

004737

033072

gggg

014320
014324

004037
003434

g}}g

014330

177777

3114

3115
3116
3117
3118
3119
3120
3121
3122
gggz

014326

014332
014336
014340
014341
014342
014344
014346
014350
014352

032742

000400

PC,a#CLDISK

;RESET STACK
:SAVE TEST NUMBER

:SET R1=-RHCS1, R2-RH(CS2

:*FILL WRITE FROM BUFFER WITH HEADER
JSR
RO, a#F LHEAD
:SAVE HEADER DATA IN WRFROM
WRFROM
:LOCATION WHERE SAVED
5
:NUMBER OF WORDS SAVED
10000
:FIRST DATA WORD
0
:SECOND DATA WORD
0
:THIRD DATA WORD
0
:FOURTH DATA WORD
1
:FIFTH DATA WORD

004037
000000
001
000
177773
002370
000000
010000
002344

JSR
REINTO

RO, a#CLAREA

256.

035054

:*WRITE
JSR
0.
.BYTE
.BYTE
-1=4
WRFROM
0
FMT22
WRIFOR

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

:256. WORDS

-1

SFILL WITH =1
HEADER AND DATA IS LOADED

RO, a#RUN

1.
0.

:SETUP TO RUN FOR DATA COMMAND
:CYLINDER 0.
:SECTOR 1.
:TRACK 0.
:WORD COUNT (DATA) =1 +
:BUS ADDRESS
;DO NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
:GET READY TO DO A WRIFOR

:*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE

%}gg
3127

JSR

#STACK,SP
#14 , a8 TSTNM

;*FILL READ INTO BUFFER WITH ALL ONES

3109
3110

3111

004504

014354

004037

033240

JSR

RO,a#SAVER

;SAVE REGISTERS

SEQ 0070

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ
CZRJJC.PN
26~JuL-78 10:07
3128
3129
3130
3131
3132
3133
3134
3135
3136
3137
3138
3139
2140
3141
3142

3143
3144
3145
3146
3147
3148
3149
3150
3151

3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162

3163

3164

3165
3166
3167
3168
2169
3170
3171

3172
3173
3174

002172
004512
000021

014366
014372
014376

004737

014400

013777

004506

014406
014412
014416

013746
052716
012677

002344
000101

014422
014424
014426
014430
014432

104413
002200
000200
004704
004704

014434
014440
014442
014444
014450
014452
014454
014460
014462

004037
002172
000000
004037
002174

000000

114

G 6
27-JUL-78 12:32 PAGE 72
HEADER COMPARE ERROR = RHER1 BIT #7 (HCE)

RHW(
SAVERE
.

014360
014362
014364

104401

MACY11 30A(1052)

JSR

033152

TYPE

057176

HALT

MoV

165560

MOV

PC,a#CHECKT
LCPHALT

A#WRIFOR,-(SP)

#GO!IE, (SP)

;*TIME

IS NOT

WAT
RHCS1

;CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1
;CANNOT CONTINUE TESTING IF NOT

;STOP TEST

A#RPLVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

BIS

MOV

165556

JRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE
;NUMBER OF REGISTERS

(SP) +,aRHCST
CRITICAL

RDY

;GET READY TO MOVE COMMAND

;GET READY TO SET GO AND

;GO WITH

JWAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER

;WAIT FOR RDY BIT IN RHCS1 REGISTER

2500.
2500.

JALLOW 25000 MICRO SECONDS

;RDY MUST SET BETWEEN

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
;MOV O INTO SAVED RHWC
RO,a#F ILLRE
JSR

032774

SHUC

JSR

032774

RHBA

:g:¥£0 REGISTER TO CHANGE

RO,a#F ILLRE

WRFROM+<5%2>

JSR

032774

SHDST

RO,a#F ILLRE

;MOV WRFROM+<5x%2> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE
;DATA

;MOV 2 INTO SAVED RHDST

:g:¥§0 REGISTER TO CHANGE

;*COMPARE ALL REGISTERS
014464
014470
014472
014474
014476
014500
014502
014504

JSR
SAVERE
wC
1§88

034070

RO, a#COMREG

000207

1%:

2%
g?gOR

s COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN °SAVERE'
;TEST DATA STARTING FROM ‘'RHW(C'
:17. REGISTERS TO BE COMPARED
JRETURN TO 1% ON ERROR

JRETURN TO 2% ON NO ERROR
;WRITING HEADER AND DATA CAUSED

; IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT
;SHOULD BE THERE
JRECEIVED DATA GIVES WHAT
;WAS THERE AFTER WRITE

SEQ 0071

(ZRJJCO, RPO4L/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JUL~78 10:07

3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185

3186
3187
3188
3189
3190

3191
3192
3193
3194
3195

3196

3197
3198

3199
3200

3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218

MACY11 30A(1052)
114

27=-JUL-78

12:32

PAGE 73

SEQ 0072

HEADER COMPARE ERROR - RHER1 BIT #7 (HCE)

:.?S:CA SEAD DATA WILL BE DONE ON CYLINDER=0, SECTOR=1,
I x

s*FILL WRITE FROM BUFFER WITH EXPECTED DATA
014506
014506
014512
014516
014520
014522

004737
004037
002370
000400

033072
032742

014524
014530
014532
014533
014534
014536
014540
014542
014544

004037
000000
001
000
177777
003434
000000
010000
002346

035054

2%:

JSR
JSR

WRFROM

PC,a#CLDISK
RO,a#CLAREA

256.

JFILL WITH =1

;*READ COMMAND IS LOADED

JSR
0
OYIE

BYTE

-1
REINTO

;STARTING FROM WRFROM

:256. WORDS

-1

177777

;SET R1-RH(CS1, R2=RH(S2
;CLEAR 256. WORDS, FROM WRFROM

RO, a#RUN

1.
O

;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 0
SSECTOR 1.

;TRACK O

;WORD COUNT =1
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT22
READAT

;16 BITS PER WORD FORMAT
;GET READY TO DO A READAT

;*SAVE REGISTERS FOR COMPARISON AFTER READ DATA

004037

033240

JSR
RHWC
SAVERE
18.

RO,a#SAVER

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

014560
014564
014570

004737
1044017

33152
057176

JSR

PC,a#CHECKT

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

014572

013777

004506

MOV

Q#RPLVEC ,QRPVEC ;SET RPO4 VECTOR ADDRESS

014600
014604
014610

013746
052716
012677

002346
000101
165364

MOV

Q#READAT ,-(SP)

014614
014616
014620
014622
014624

104413

014546
014552
014554
014556

014626
014632
014634
014636
014640
014642
014644
014646

002172
004512
000022

000000

165366

BIS
MOV

LCPHALT

#GO!IE, (SP)
(SP) +,aRHCS1

;*TIME IS NOT CRITICAL

WAT

RHCS1
RDY
4168.
834.

001502

004037

TYPE
HALT

033762

TESTING IF NOT

;GET READY TO MOVE COMMAND

;GET READY TO SET GO AND
;GO WITH
;WAIT FOR RDY BIT TO SET

;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 41680 MICRO SECONDS
;RDY MUST SET BETWEEN

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE

JSR
RHDS1
2
1

RO,a#CHREG

ATA
1

004037

;CANNOT CONTINUE
;STOP TEST

ERR
JSR

;CHANGE BITS IN SAVED REGISTER
:CHANGE RHDS1 REGISTER
;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA IS 1
;CHANGE ATA BIT
sNEW VALUE OF ERR IS 1

RO,a#CHREG

s CHANGE ERR BIT
;CHANGE BITS IN SAVED REGISTER

2z
2

(ZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRIIC.P11

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
3271
3272
3273
3274

26=JUL-78 10:07

MACY1T 30A(1052)

014672
014674
014676
014700
014702
014706
014710
014712
014720
014724
014726
014730
014732
014734
014736
014740

;CHANGE RHCS1 REGISTER
;2 BIT/BITS TO BE CHANGED
sNEW VALUE OF SC IS 1
;CHANGE SC BIT

RHCS1

014652
014654
014656
014660
014662
014664
014666

I 6
PAGE 74
12:32
27=JUL-78
HEADER COMPARE ERROR - RHER1 BIT #7 (HCE)
2
1

sNEW VALUE OF TRE IS 1

)

00403;

TRE

JSR

033762

RHER1

RO,a#(CHREG

;1 BIT/BITS TO BE CHANGED

00403Z
2

053737
004037
004512
002254
000022
014736
014742

HCE

032774
004644

JSR

RHDST

BIS

004536

;CHANGE TRE BIT
;CHANGE BITS IN SAVED REGISTER
;CHANGE RHER1 REGISTER

RO,a#F ILLRE

sNEW VALUE OF HCE IS 1
; CHANGE HCE BIT
sMOV 2 INTO SAVED RHDST
;SAVED REGISTER TO CHANGE
;DATA

QN#ATTENT ,@#SAVERE+24 :SET APPROPIATE 'ATA' BITS

;*COMPARE ALL REGISTERS
;COMPARE SAVED REGISTERS WITH
JSR
RO, a#COMREG

034070

;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'

SAVERE

:18. REGISTERS TO BE COMPARED
:RETURN TO 3% ON ERROR
3%:

104047

000207

ERROR

RTS

47
PC

JRETURN TO 4% ON NO ERROR
;READING ON NON EXISTANT SECTOR
s CAUSED AN ERROR
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE AFTER READ

;*READ DATA WILL BE COMPARED
014742
014742
014746

014750
014752
014754
014756
014760
014762
014764

004037
002370
003434

000400
014760
014764
104050
000207

035120

4%:

JSR

WRFROM
REINTO

5%:

6%:

256.
5%
6%
FRROR
RTS

RO, a#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
JRETURN TO 6% ON NO ERROR
;DATA READ FROM NON
JEXISTANT SECTOR CAUSED AN ERROR

SEQ 0073

czi
czi

C(ZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.P1T
26=JuUL~78 10:07

014764
014766
014772
015000

000004
012706
012737
004737

015004
015010
015012
015014
015016
015020
015022
015024
015026

004037
002370

001000
000015
033072

004504

27=JUL=78

J
12:32

6
PAGE 75

HEADER COMPARE ERROR = RHER1 BIT #7 (HCE)

TST15:

SCOPE
MOV

#STACK,SP

sRESET STACK

JSR

PC.a#CLDISK

;SET R1-RHCS1, R2-RH(CS2

MOV

#15,a4TSTNM

JSR

WRFROM

000006
010000
000000
000000
000000
000001
000001

RO, a#F LHEAD

6
10000

004037
003434
000400

032742

015042
015046
015050
015051
015052
015054
015056
015060
015062

004037
000000
001
000
177772
002370
000000
010000
002344

035054

sSAVE TEST NUMBER

;*FILL WRITE FROM BUFFER WITH HEADER AND DATA

032716

015030
015034
015036
015040

SEQ 0074

T15

;SAVE HEADER DATA IN WRFROM
;LOCATION WHERE

SAVED

;NUMBER OF WORDS SAVED
;FIRST DATA WORD

—_—=000

3275
3276
3277
3278
79
3280

MACY11 30A(1052)

:SECOND DATA WORD
:THIRD DATA WORD
;FOURTH DATA WORD

sFIFTH DATA WORD

;SIXTH DATA WORD

;*FILL READ INTO BUFFER WITH ALL ONES
JSR
RO,a#CLAREA
;CLEAR 256. WORDS, FROM REINTO

REINTO

;STARTING FROM REINTO

256.

177777

:256. WORDS

-1

SFILL WITH =1

;*WRITE HEADER AND DATA IS LOADED

JSR
0
ASYIE
BYTE
=2=4

RO, a#RUN
1}
0

WRFROM

sSETUP TO RUN FOR DATA COMMAND
sCYLINDER 0
;SECTOR 1
sTRACK 0
;WORD COUNT (DATA) = 2 +
:BUS ADDRESS

2DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT22

;16 BITS PER WORD FORMAT

WRIFOR

:GET READY

TO DO A WRIFOR

;*NOW SAVE REGISTERS FOR COMPARISON AFTER
;*WRITE HEADER AND DATA
015064
015070
015072
015074

004037
002172
004512
000021

033240

015076
015102
015106

004737

033152
057176

015110

013777

004506

013746
052716
012677

002344
000101

104401
000000

104413
002200
000200

004704

JSR

RHW(

RO,a#SAVER

SAVERE

165046

TYPE

HALT

165050

MOV

MOV
BIS
MOV

2500.

THE

FIRST REGISTER SAVED

;NUMBER OF REGISTERS
PC,a#CHECKT
LCPHALT

;CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1
sCANNOT

CONTINUE

;STOP TEST

TESTING

NOT

A#RPLVEC ,QRPVEC ;SET RPO4 VECTOR ADDRESS

A#WRIFOR,-(SP)

#GO!IE, (SP)
(SP)+,aRHCST

;*TIME IS NOT CRITICAL

WAT
RHCS1
RDY

;STARTING ADDRES OF WHERE

17.

JSR

;SAVE REGISTERS

JRHWC

;GET READY TO MOVE COMMAND

;GET READY
;GO WITH

TO SET GO AND

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

;ALLOW 25000 MICRO SECONDS

czZi
czi

;*COMPARE ALL REGISTERS
;COMPARE SAVED REGISTERS WITH
RO,a#(OMREG
JSR
SAVERE
;GOOD DATA SAVED IN 'SAVERE'
w(C
sTEST DATA STARTING FROM ‘RHWC'

;WAS THERE AFTER WRITE

;SHOULD BE THERE
JRECEIVED DATA GIVES WHAT

; IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT

e
5 i, -

RTS

JRETURN TO 2% ON NO ERROR
sWRITING HEADER AND DATA CAUSED

1%:

2%
ERROR

;17. REGISTERS TO BE COMPARED
JRETURN TO 1$ ON ERROR

.
1%

034070

032774

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

alt alt adl ot adt alt sl adt adt adiadtiadtadt adi sl

:MOV WRFROM+<6%2> INTO SAVED RHBA

104027

000207

RO,a#F ILLRE

004037
004512
002254
000021
015212
015216

JSR

RHBA
WRFROM+<6%2>
JSR
RO, a#F ILLRE
gHDST

015174
015200
015202
015204
015206
015210
015212
015214

sMOV 0 INTO SAVED RHWC
:g:¥£0 REGISTER TO CHANGE

032774

002174
002404
004037
002204
000002

RO, a#F ILLRE

004037

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE

JSR
SHUC

032774

004037
002172

CZR
CZR

mese

015144
015150
015152
015154
015160
015162
015164
015170
015172

SEQ 0075

004704

;RDY MUST SET BETWEEN

2500.

015142

000000

115

27=JUL=-78 12:32 PAGE 76
HEADER (OMPARE ERROR = RHER1 BIT #7 (HCE)

3331
3332
3333
3334
3335

MACY11 30A(1052)

C(ZRJJCO, RPO4/S5/6 FCTNL CTRLRZ2
CZRJIJC P11
26=JuUL-78 10:07

;t¥g:cA WRITE DATA WILL BE DONE ON SAME CYLINDER, SECTOR
K
TM

015216

;*FILL WRITE FROM BUFFER WITH DATA
JSR
RO,a#CLAREA
;CLEAR 70. WORDS, FROM WRFROM

015216
015222
015224
015226

004037
002370
000106

032742

015230
015234
015236
015237
015240
015242
015244
015246
015250

004037
000000
001
000
177672
002370
00C000
010000
002342

035054

015252
015256
015260
015262

004037
002172
004512
000022

033240

015264
015270
015274

004737

033152
057176

JSR

PC,a#CHECKT

015276

013777

004506

MOV

Q#RP4LVEC ,QRPVEC ;SET RPO4 VECTOR ADDRESS

015304

015310
015314

013746
052716
012677

002342
000101

MOV

a#WRIDAT,-(SP)

;GET READY TO MOVE COMMAND

MOV

(SP)+,aRHCS1

;G0 WITH

015320
015322
015324
015326
015330

104413
002200
000200
001614
001502

015332
015336

(005737
001421

004640

015340
015344
015346
015350
015354
015356
015360

004037
002172

032774

004037
002174
002410
004037

032774

177702

;STARTING FROM WRFROM

70.
177400

177400

104401
000000

WRFROM

:70. WORDS
;FILL WITH 177400

;*WRITE DATA COMMAND IS LOADED

JSR
0
AVEE
BYTE
-70.

RO,a#RUN

)
0

WRFROM

;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT22
WRIDAT

164660

;16 BITS PER WORD FORMAT
;GET READY TO DO A WRIDAT

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA
JSR
RO,a#SAVER
:SAVE REGISTERS
RHWC
JRHWC IS THE FIRST REGISTER SAVED
SAVERE
;STARTING ADDRES OF WHERE
18.
;NUMBER OF REGISTERS
TYPE
HALT

BIS

LCPHALT

#GO!'IE, (SP)

;*TIME IS NOT CRITICAL

WAT
RHCS1
RDY

908.
834.

033762

;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 0
;SECTOR 1
sTRACK 0
;WORD COUNT = 70.

s CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1

s CANNOT CONTINUE TESTING IF NOT
;STOP TEST

;GET READY TO SET GO AND

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

;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

;*NOW CHANGE REGISTERS TO EXPECTED VALUE
TST
a#RH70
RUNNING ON RH70 ?

BEQ

IF NOT, SKIP NEXT RH70 CODE

JSR

RO,a#F ILLRE

:MOV =62.

JSR

RO,a#F ILLRE

MOV WRFROM+<8.%2> INTO SAVED RHBA

JSR

RO,a#CHREG

RHWC
-62.

RHBA
WRFROM+<8, *2>

INTO SAVED RHWC

:SAVED REGISTER 70 CHANGE
;DATA

;SAVED REGISTER TO CHANGE
;DATA

:CHANGE BITS IN SAVED REGISTER

SEQ 0076

R BAADRNDNAAAAAMAAMAMRARAAARBANADLNNANAALADNDANARALADLNDLDDOLDEDLDEDDDEDDDDDDDDDDND
DD

PAGE 77

HEADER COMPARE ERROR = RHER1 BIT #7 (HCE)

nmAAAAA

12:32

26=JUL~-78 10:07

T15

27-JUL-78

MACY11 30A(1052)

CTRLRZ2
(ZRJJCO, RPO4/5/6 FCTINL
C

3414

002176
000002
000001
000200
000000

RHCS2
2
;

s CHANGE RHCS2 REGISTER
;2 BIT/BITS TO BE CHANGED

;CHANGE OR BIT

sNEW VALUE OF OR IS 1

9%:

108

JSR

RO,a#F ILLRE

RO,
a4F ILLRE

004037

032774

004037

032774

JSR

004037

033762

WRFROM+<66., *2>
JSR
RO,a#CHREG
RHCS2

RHW(

1
OR

015436
015436
015442
015444
015446
015450
015452
015454

015456

015462
015464
015466
015474
015500
015502
015504
015506
015510
015514
015516
015520
015522
015524
015526

015530
015534
015536
015540
015542
015544
015546

015550

004037

10%:

033762

JSR

RH(S1

RO, a#CHREG

1
SC
]

032774

000002
053737
004037

004644
033762

004037

TRE

JSR

RHDST

BIS

004536

JSR

RHER1
1
1
HCE

033762

JSR

gHDS1

RO,a#F ILLRE

RO, a#CHREG

;*COMPARE ALL REGISTERS

JSR

SAVERE

3%:

MOV WRFROM+<66.%2> INTO SAVED RHBA
s SAVED REgi?;ER TO CHANGE

; CHANGE éITS IN SAVED REGISTER
;CHANGE RHCS2 REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF OR IS 1

;CHANGE BITS IN SAVED REGISTER
;CHANGE RHCS1 REGISTER
;2 BIT/BITS TO BE CHANGED
sNEW VALUE OF SC IS 1
;CHANGE <C BIT
sNEW VALUE OF TRE IS 1
;CHANGE TRE BIT
sMOV 2 INTO SAVED RHDST
:g:¥§0 REGISTER TO CHANGE

;1 BIT/BITS TO BE CHANGED

ERR

034070

ANATTENT ,Q#SAVERE+24 ;SET APPROPIATE 'ATA' BITS
RO,a#CHREG
;CHANGE BITS IN SAVED REGISTER
; CHANGE RHER1 REGISTER

I;\TA

004037

;MOV =4. INTO SAVED RHW(C
:SA¥§D REGISTER TO CHANGE

;CHANGE OR BIT

004037

sNEW VALUE OF IR IS 0
;CHANGE IR BIT
;SKIP NEXT RH11 CODE

RO, a#COMREG

sNEW VALUE OF HCE IS 1
;CHANGE HCE BIT
sCHANGE BITS IN SAVED REGISTER
;CHANGE RHDS1 REGISTER
;2 BIT/BITS TO BE CHANGED
sNEW VALUE OF ATA IS 1
;CHANGE ATA BIT
sNEW VALUE OF ERR IS 1
; CHANGE ERR BIT
;COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'

sTEST DATA STARTING FROM 'RHWC'

;18. REGISTERS TO BE COMPARED
;RETURN TO 3% ON ERROR
;RETURN TO 4% ON NO ERROR
JWRITE DATA ON NON EXISTANT SECTOR
;CAUSED IMPROPER REGISTER CHANGE

SEQ 0077

CZR

T15

27-JUL=-78 12:32 PAGE 78
HEADER COMPARE ERROR = RHER1 BIT #7 (HCE)

oTM
~N

MACY11 30A(1052)

A AMAMAMAMAMRAMRAMDBLANAAMANAMDADADNLDAEDNDD
BB DDDDDDDDDDD02

(ZRJJCO, RPO4/5/6 FCTNL CTRLRZ
CZRJJC.PN
26=JuL-78 10:07

0
0
0

;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD

015640
015644
015646
015647
015650
015652
015654
015656
015660

004037
000000

035054

;FIRST DATA WORD

1
1

JSR
RO,a#CLAREA
WRFROM+<6%2>
198.
0

JSR

RO,a#CLAREA

WRFROM+<204 . *2>
50.
-1

;FIFTH DATA WORD
;SIXTH DATA WORD

;CLEAR 198. WORDS, FROM WRFROM+<6*2>
;STARTING FROM WRFROM+<6%2>
;198. WORDS
sFILL WITH O
;CLEAR 50. WORDS, FROM WRFROM+<204.*2>
;STARTING FROM WRFROM+<204.*2>
:50. WORDS
SFILL WITH -1

;*FILL READ INTO BUFFER WITH ALL ONES

JSR

REINTO

RO,a#CLAREA

256.
-1

;CLEAR 256. WORDS, FROM REINTO

;STARTING FROM REINTO

:256. WORDS
SFILL WITH -1

;*FILL REGISTERS WITH READ HEADER AND DATA COMMAND

JSR

RO,a#RUN

sSETUP TO RUN FOR DATA COMMAND

001
000
177464

0
.BYTE
1
BYTE
0
-200.-4

sCYLINDER 0
sSECTOR 1
sTRACK 0
;WORD COUNT (DATA) = 200. +

014000

0
ECI!FMT22

;DO NOT INHIBIT BUS ADDRESS INCREMENI
;16 BITS PER WORD FORMAT

003434
000000

REINTO

002350

REFOR

;GET READY TO DO A REFOR

;*SAVE REGISTERS FOR COMPARISON AFTER READ
;*HEADER AND DATA

004037
002172
004512
000022

033240

JSR
RHW(
SAVERE
18.

RO,a#SAVER

004737

033152
057176

JSR

PC,a#CHECKT

104401

;BUS ADDRESS

TYPE

LCPHALT

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

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

s CANNOT CONTINUE

TESTING IF NOT

N S S S S S S S S S

;NUMBER OF WORDS SAVED

NN S

032742

;LOCATION WHERE SAVED

004037
003434
0004 00
177777

032742 -

;SAVE HEADER DATA IN WRFROM

RO, a#F LHEAD

015626
015632
015634
015636

015674
015700

WRFROM

015624

000000
004037
003220
000062
177777

;SET R1-RHCS1, R2-RH(CS2

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA

JSR

10000

032742

015672

PC,a#CLDISK

032716

JSR

015556
015562
015564
015566
015570
015572
015574

;*WILL BE ATTEMPTED

NN N

033072

4%:

015552
015552

U N

;*READ HEADER AND DATA SECTOR 1, TRACK 0, CYLINDER O

N N

;AFTER COMMAND

sCYLINDER O0,SECTOR 1, TRACK 0
;GOOD DATA GIVES WHAT SHOULD BE THERE
JRECEIVED DATA GIVES.WHAT WAS THERE

SJATTEMPTED WRITE WAS ON

T SR A o aF oF F aF o o o 0P R o P o

SEQ 0078

PAGE 79

HEADER COMPARE ERROR = RHER1 BIT #7 (HCE)

12:32

T15

27-JUL-78

MACY11 30A(1052)

(ZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PTT
26=JuL~-78 10:07

000000

015706

013777

004506

015714
015720
015724

013746
052716
012677

002350
000101

015730
015732
015734
015736
015740

104413

016042

164252

164250

002174

MOV

@¥RPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

Q#REFOR,-(SP)
#GO!IE, (SP)
(SP) +,aRH(S1

;*TIME IS NOT CRITICAL

002200

004037

;STOP TEST

WAT
RHCS1

032774

JSR

032774

RHBA

RO,a#F ILLRE

REINTO+<204 . *2>

JSR

RO, a#CHREG

JSR

RO, a#CHREG

RHER1
1
1
HCE

033762

RHDS1
2
1
ATA

033762

004644

:DATA

:CHANGE BITS IN SAVED REGISTER

:CHANGE RHER1 REGISTER
:1 BIT/BITS TO BE CHANGED
:NEW VALUE OF HCE IS 1
:CHANGE HCE BIT

:CHANGE BITS IN SAVED REGISTER
:CHANGE RHDS1 REGISTER
:2 BIT/BITS TO BE CHANGED
:NEW VALUE OF ATA IS 1
:CHANGE ATA BIT

:CHANGE ERR BIT
:MOV 2 INTO SAVED RHDST
:32¥ED REGISTER TO CHANGE

JSR
RHCS1

RO,a#CHREG

:CHANGE BITS IN SAVED REGISTER
:CHANGE RHCS1 REGISTER

BIS

SHATTENT ,a#SAVERE+24 ;SET APPROPIATE 'ATA' BITS

1
1
SC!TRE

004536

:SAVED REGISTER TO CHANGE

RO,a#F ILLRE

ERR
JSR
gnosr

032774

*MOV REINT0+<204.%2> INTO SAVED RHBA

:NEW VALUE OF ERR IS 1

140000

JWAIT FOR RDY BIT TO SET
WAIT FOR RHCS1 REGISTER

;*CHANGE SAVED REGISTERS TO EXPECTED VALUE
JSR
RO,a#F ILLRE
;MOV O INTO SAVED RHWC
gHuc
;g:¥§o REGISTER TO CHANGE

033762

053737

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

;WAIT FOR RDY BIT IN RHCS1 REGISTER
sALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

RDY
908.
839.

000200
001614
001507
004037
002172
000000

HALT

015704

015742
015746
015750
015752
015756
015760
015762
015766
015770
015772
015774
015776
016002
016004
016006
016010
016012
016014
016016
016022
016024
016026

MACY11 30A(1052)
27-JUL-78 12:32 PAGE 80
HEADER COMPARE ERROR = RHER1 BIT #7 (HCE)
T15

:1 BIT/BITS TO BE CHANGED
:NEW VALUE OF SC'TRE IS 1
:CHANGE SC'TRE BIT

;*COMPARE REGISTERS BEFORE READ HEADER AND DATA
;*WITH AFTER

JSR

034070

016050

SAVERE
WC
18.
5%
6%

016072
016066
016070

104031
000207

5%:

ERROR
RTS

RC,a#COMREG

;COMPARE SAVED REGISTERS WITH

;READ HEADER AND DATA WITH

;GOOD DATA SAVED IN °SAVERE'
JTEST DATA STARTING FROM 'RHWC'
;18. REGISTERS TO BE COMPARED
;RETURN TO 5% ON ERROR
;RETURN TO 6% ON NO ERROR
;FORCED HEADER COMPARE ERROR

; CAUSED ERROR

SEQ 0079

‘el

CZR3JCO, RPO4L/5/6 FCTNL CTRLRZ
CZRJJC.PN
26-JUL~78 10:07

CZRJJICO, RPO4L/S/6 FCTNL CTRLR2
CZRJJC.PN

26=-JUL-78 10:07

¥
MACY11 30A(1052) 27-JuL-78 12:32 PAGE 81
715
HEADER COMPARE ERROR - RHER1 BIT #7 (HCE)

;GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT

3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598

;WAS THERE AFTER READ

;*NOW COMPARE READ DATA
;*THE COMMAND READ ONLY 204 WORDS, 4 HEADER WORDS
;*AND 200G DATA WORDS
004037
002370
003434
000400
016110
016114
104024

000207

035120

6%:

JSR

WRFROM

RO, a#COMPAR

REINTO

7%:

RTS

;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

256.

7$
8%
ERROR

; COMPARE TWO BLOCKS OF MEMORY
:256., WORDS TO BE COMPARED
sRETURN TO 7% ON ERROR

JRETURN TO 8% ON NO ERROR
;DATA READ FROM A FORCED
sHEADER COMPARE ERROR IS

s INCORRECT
;GOOD DATA GIVES WHAT

;THE READ HEADER AND DATA

;SHOULD HAVE READ
;BAD DATA GIVES WHAT

016114

8%:

;WAS IN BUFFER AFTER
;READ COMMAND

SEQ 0080

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ
26~JuL-78 10:07
CZRJJC.PN
016114
016116
016122

000004
012706
012737
004737

016134
016140

004737

016144

104401
000000

016146

013777

004506

016154
016160

016164
016170
016172

013746
052716
012677
011100
011305

002326
000101
164010

016174
016176
016200
016202
016204

002222
000200
012740
012737

016206

004737

016130

001000
000016
033072

MACY11 30A(1052)
T15

TST16:

004504

PC,a#CLDISK

164012

@#RPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV
MOV
mMov

a#RECALI,-(SP)
#GO!IE, (SP)
(SP)+,aRHCS1
aR1,R0
aR3,R5

JSR

033022

JSR

016234
016240
016244

004737
104401

033152
057176

016246

013777

004506

016254
016260
016264
016270
016272

013746
052716
012677
011100
011305

002334
000101

016274
016276
016300
016302

002222
000200
001614

;STOP TEST

GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;GO WITH
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION
;WAIT FOR DRY BIT TO SET
sWAIT FOR RHDS1 REGISTER

;WAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 56000 MICRO SECONDS
;DRY MUST SET BETWEEN

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(CS2

;*FILL REGISTERS FOR SEARCH

0
1
0

RO,a#SRCH

;SEARCH FOR

sCYLINDER 0
;SECTOR 1
;TRACK 0

;*SAVE REGISTERS FOR COMPARISON AFTER SEARCH

JSR
RHWC
SAVERE

RO,a#SAVER

JSR

PC,a#CHECKT

MOV

A#RP4LVEC ,QRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV
MOV
MOV

a#SERCH,-(SP)
#GO!IE, (SP)
(SP)+,@RHCS1
aR1,R0
aR3.R5

18.

163770

;CANNOT CONTINUE TESTING IF NOT

MOV

033072

033240

;SET R1-RH(CS1, R2-RH(S2

LCPHALT

DRY
5600.
5599.

004037
002172
004512
000022

JRESET STACK
;SAVE TEST NUMBER

TYPE

HALT

WAT
RHDS1

016222
016226
016230
016232

104413

#STACK,SP
#16,a#TSTNM

;*GET HEADS TO CYLINDER 0
;CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1
PC,a#CHECKT
JSR

033152
057176

.BYTE
.BYTE

000000

SCOPE

MOV
MOV

JSR

104413

016212
016216
016220
016221

D 7
27-JUL-78 12:32 PAGE 82
HEADER COMPARE ERROR = RHER1 BIT #7 (HCE)

TYPE
HALT
163712

WAT
RHDS1

DRY
908.

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

L,CPHALT

;CHECKS DVA,RDY
,MOL ,DPR.DRY AND VV = 1
s CANNOT CONTINUE TESTING IF NOT
:STOP TEST

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;GO WITH
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION
;JWAIT FOR DRY BIT TO SET
JWAIT FOR RHDS1 REGISTER

JWAIT FOR DRY BIT IN RHDS1 REGISTER
JALLOW 9080 MICRO SECONDS

SEQ 0081

CZRJJCO, RPO4/S/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuL-78 10:07
016304
016306
016312
016316
016322
016324
016326
016332

001507
013746

MACY11 30A(1052)
116

002334
004301
001124

001126
004500
67%:

010500
001124

104047

016444

000207

;SAVE FOR PRINTOUT

69%
RS ,a#$BDDAT

;BRANCH IF GOOD
;BAD DATA

#MOL !DPR!VV,=(SP)
(SP)+,R5

R3,a#REGADR
63

;SAVE BITS SET DURING OPERATION IN RHDS1

;DURING ABOVE OPERATION ONLY MOL !DPR:!VV

sFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

;*CHANGE SAVED REGISTERS TO EXPECTED VALUE
;CHANGE BITS IN SAVED REGISTER
RO, a#CHREG
JSR
RHCS1
;CHANGE RHCS1 REGISTER
1
;1 BIT/BITS TO BE CHANGED
1
sNEW VALUE OF SC IS 1
SC
s CHANGE SC BIT
;CHANGE BITS IN SAVED REGISTER
RO, a#CHREG
JSR
RHDS1
1
1
ATA

BIS

004536

;CHANGE RHDS1 REGISTER
;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF ATA IS 1
. CHANGE ATA BIT

QNATTENT ,@#SAVERE+24 ;SET APPROPIATE ‘ATA' BITS

;*COMPARE REGISTERS BEFORE SEARCH WITH AFTER SEARCH
; COMPARE SAVED REGISTERS WITH
RO,a#COMREG
JSR
SAVERE
;GOOD DATA SAVED IN 'SAVERE'
wC
sTEST DATA STARTING FROM "RHWC'
18.
;18. REGISTERS TO BE COMPARED

034070

016442

MOV

(SP) ,a#$GDDAT

MOV

MOV
ERROR

033762

016440

;DRY MUST SET BETWEEN
a#SERCH,=(SP)
;SAVE COMMAND
s INCLUDE IE!GO!DVA!RDY
#1E!GO!DVA!RDY, (SP)
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
;DURING ABOVE OPERATION ONLY IE!GO:DVAIRDY
(SP)+,RO
67%
;BRANCH IF GOOD
;BAD DATA
RO,a#$BDDAT
;FAILING REGISTER RHCS1
R1,3a#REGADR
:DURING ABCVE OPERATION ONLY
21

BEQ
MOV

033762

016446

SEQ 0082

839.
MOV
BIS
MOV
CMP
BEQ
MOV
MOV
ERROR

CMP

001126
004500

004644

E 7
27=-JUL-78 12:32 PAGE 83
HEADER COMPARE ERROR = RHER1 HCE

JRETURN TO 1% ON ERROR

;RETURN TO 2% ON NO ERROR

2%
1%:

ERROR

;SEARCH TO A NON-EXISTANT

RTS

;SECTOR CAUSED IMPROPER
:REGISTER CHANGE

:GOOD DATA GIVES WHAT SHOULD
:BE THERE
:RECEIVED DATA GIVES

;WHAT WAS THERE AFTER

016446

2%:

. SEARCH

CZRJJCO, RPO4/S/6 FCTNL CTRLR2
CZRJJC.P11

26=JUL~78 10:07

3719
3720
3721

016446
016450
016454

000004
012706
012737

3724
3725
3726
3727
3728
3729
3730
g;g;

016466
016472
016474
016475
016500
016502
016504

004037
002370
000004
010000
000001
000000
000000

032716

016506
016512

004037
002400

032742

g;g%

3733

3734
3735

3736
%;%g

016462

016514
016516

004737

001000
000017

033072

000400
000000

016520
016524
016526
016530
016532
016534
016536
016540

004037
003434
000004
010000
000001
000000
000000
004037

%;gg

016550

000000

016544
016546

003444
000400

032716

032742

035054

3762
3763
3764
%;22

004037
000000
001
000
177374
002370
000000
010000
002344

3767
3768
3769
3770
%;;}

016574
016600
016602
016604

004037
002172
004512
000021

033240

3773

016606

004737

033152

3774

PAGE 84

TST17:

SCOPE
MOV
MOV

JSR

#STACK,SP
#17 ,0#TSTNM

PC,a#CLDISK

:RESET STACK
:SAVE TEST NUMBER

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

:*FILL WRITE FROM BUFFER WITH HEADER
:SAVE HEADER DATA IN WRFROM
RO, a#F LHEAD
JSR
WRFROM
:LOCATION WHERE SAVED
4
:NUMBER OF WORDS SAVED
10000
;FIRST DATA WORD
1
;SECOND DATA WORD
0
:THIRD DATA WORD
0
:FOURTH DATA WORD
s«FILL WRITE FROM BUFFER WITH DATA

JSR
RO,a#CLAREA
WRFROM+10

016612

104401

JSR
REINTO
4
10000
1
0
0
JSR

RO, a#F LHEAD

RO,a#CLAREA
REINTO+10
256.
0

016552
016556
016560
016561
016562
016564
016566
016570
016572

3761

12:32

RESTORE SECTOR 1 CYLINDER 1 TRACK 1

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

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

3744
3745
3746
3747
3748
3749
3750
3751

3756
3757
3758
3759
3760

004504

27-JuUL-78

T17

256.
0

3739
3740
3741
%;2%

3752
3753

MACY11 30A(1052)

057176

:SAVE HEADER DATA IN REINTO
:LOCATION WHERE SAVED
:NUMBER OF WORDS SAVED
:FIRST DATA WORD
:SECOND DATA WORD
:THIRD DATA WORD
:FOURTH DATA WORD
:CLEAR 256. WORDS, FROM REINTO+10

:STARTING FROM REINTO+10
:256. WORDS
JFILL WITH O

:*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED
JSR
RO, a#RUN
:SETUP TO RUN FOR DATA COMMAND
0
;CYLINDER 0
.BYTE
1
:SECTOR 1
.BYTE
0
:TRACK 0
-256.=4
:WORD COUNT (DATA) = 256. +
WRFROM
;BUS ADDRESS
0
:DO NOT INHIBIT BUS ADDRESS INCREMENT
FMT22
:16 BITS PER WORD FORMAT
WRIFOR
:GET READY TO DO A WRIFOR
:*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA
JSR
RO, a#SAVER
:SAVE REGISTERS
RHW(
:RHWC IS THE FIRST REGISTER SAVED
SAVERE
:STARTING ADDRES OF WHERE
17.
:NUMBER OF REGISTERS

JSR

TYPE

PC,a#CHECKT
LCPHALT

:CHECKS DVA,RDY,MOL ,DPP,DRY AND VV = 1
sCANNOT CONTINUE TESTING IF NOT

SEQ 0083

CZRJJCO, RPO4/5/6 FCTNL
CZRJJC.PN
26-JuL-78

3775
3776
3777
3778

3779
3780
3781

3782
3783

TRLR2

0: 07

016616

000000

016620

013777

004506

016626
016632

013746
052716
012677
011100
011305

002344
000101

016636

016642
016644

016646
016650
016652

117

163340

002200
000200
001614
001507
013746
052716
011637
022600
001405
010037
010137

163336

002344

004101
001124

004037
002172
000000
004037
002174
003400
004037
002204
000002

032774

PAGE 85

TRACK 1

HALT

;STOP TEST

MOV

A#RPLVEC ,IRPVEC ;SET RPO4 VECTOR ADDRESS

64%:

:WAIT FOR RHCS1 REGISTER
JWAIT FOR RDY BIT IN RHCS1 REGISTER
sALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN
a#WRIFOR,-(SP)
;SAVE COMMAND
(SP) ;INCLUDE IE'!GO!DVA
#1E!GO!DVA,
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
;DURING ABOVE OPERATION ONLY IE!GO:DVA
(SP)+,RO
64$
;BRANCH IF GOOD

MOV
ERROR

R1,a#REGADR
21

MOV

MOV
CMP
BEQ
MOV

001126
004500

:WAIT FOR RDY BIT TO SET

RHCS1
RDY
908.
839.
MOV
BIS
MOV
CMP
BEQ
MOV

001126
004500

010500
001124

12:32

RESTORE SECTOR 1 CYLINDER 1

WAT

012746
011637
022605
001405
010537
010337
104063

27=-JUL=78

MOV
a#WRIFOR,-(SP)
;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
#GO'IE, (SP)
BIS
;GO WITH
+ ,aRH(CS1
(SP)
MOV
MOV
aR1,R0
;SAVE RHCS1 DURING ABOVE OPERATION
MoV
aR3,RS
:SAVE RHDS1 DURING ABOVE OPERATION
;*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC

104413

104021

016740
016744
016746
016750
016754
016756
016760
016764
016766

MACY11 30A(1052)

MOV
ERROR

RO,a#$BDDAT

;BAD DATA

sFAILING REGISTER RHCS1
:DURING ABOVE OPERATION ONLY

AMOL ! DPR ' WV, = (SP)

;SAVE BITS SET DURING OPERATION IN RHDS1

(SP) ,a#$GDDAT ~ ;SAVE FOR PRINTOUT
(SP)+,R5
;DURING ABOVE OPERATION ONLY MOL :DPR!VV
66%
;BRANCH IF GOOD
RS ,a#$BDDAT

R3,a#REGADR
63

;BAD DATA

sFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES

JSR

RO,a#F ILLRE

;MOV O INTO SAVED RHWC

JSR

RO,a#F ILLRE

;MOV WRFROM+<260.%*2> INTO SAVED RHBA

JSR

RO,a#F ILLRE

SHUC

032774

RHBA
WRFROM+<260. %2>

032774

SHDST

:32¥ED REGISTER TO CHANGE
;SAVED REGISTER TO CHANGE
;DATA

;MOV 2 INTO SAVED RHDST

:32¥§D REGISTER TO CHANGE

;*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND
016770
016774

017006
017010

004037
004512
002254
000021
017006
017012
104027
000207

JSR

034070

SAVERE
wC

RO, a#COMREG

L
1%

ERROR
RTS

2GOOD DATA SAVED IN ‘SAVERE'
;TEST DATA STARTING FROM 'RHWC'
;17. REGISTERS TO BE COMPARED
;RETURN TO 18 ON ERROR

2%
1%:

;COMPARE SAVED REGISTERS WITH

JRETURN TO 2% ON NO ERROR
27

;WRITE HEADER AND DATA

s CAUSED IMPROPER REGISTER
: CHANGE
.GOOD DATA GIVES WHAT SHOULD

SEQ 0084

CZRJJCO, RPO4/S5/6 FCTNL CTRLRZ
CZRJJC.P1T
26=JuL=7 8 10:07

MACY11 30A(1052)
117

27-JUL-78

12:32

PAGE 86

RESTORE SECTCR 1 CYLINDER 1

TRACK 1

;BE THERE
sRECEIVED DATA GIVES WHAT
;WAS THERE AFTER COMMAND

3831
3832
3833

;*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT
017012
017012
017016
017020
017022
017024
017026

017034

017030
017032

104030
000207

017034
017034
017040
017044
017046
017050

2%:

035120

;*NOTHER GOT CHANGED
JSR

REINTO
WRFROM

RO,a#COMPAR

260.
3%

(%:

ERROR
RTS

;GOOD DATA STARTS FROM REINTO
sTEST DATA STARTS FROM WRFROM

:260., WORDS TO BE COMPARED
;RETURN TO 3% ON ERROR

4%
3%:

;COMPARE TWO BLOCKS OF MEMORY

JRETURN TO 4% ON NO ERROR

;WRITE HEADER AND DATA

s CHANGED WRITE FROM BUFFER

;*NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN
;*READ INTO BUFFER IS FILLED WITH ONES
JSR
JSR

PC,a#CLDISK
RO,a#CLAREA

;SET R1-RH(CS1, R2-RH(CS2
;CLEAR 260. WORDS, FROM REINTO

004737
004037
003434
000404

033072
032742

035054

017060
017061
017062
017064
017066
017070
017072

004037
000C00
001
000
177374
0034 34
000000
014000
002350

017074
017100
017102
017104

004037
002172
004512
000022

033240

JSR
RHW(
SAVERE
18.

RO,a#SAVER

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

017106
017112
017116

004737

033152
057176

JSR

PC,a#CHECKT

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

017120

013777

004506

017126
017132
017136
017142

002350
000101

017144

013746
052716
012677
011100
011305

017146

104413

017052
017056

REINTO

260.

104401
000000

:260. WORDS

-1

177777

SFILL WITH =1

;*NOW FILL COMMAND
JSR
RO,a#RUN
0
1
.BYTE
.BYTE
0

-256.-4
REINTO

0
ECI!FMT22

REFOR

163036

;STARTING FROM REINTO

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0O
;SECTOR 1
:TRACK O

:WORD COUNT (DATA) = 256. +
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;GET READY TO DO A REFOR

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

TYPE

HALT
163040

LCPHALT

;CANNOT CONTINUE TESTING IF NOT

;STOP TEST

MOV

A#RPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

Q#REFOR,-(SP)
#GO!IE, (SP)
(SP) + ,aRHCS1

MOV
MOV
WAT

aR1.R0
aR3.R5

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;GO WITH
sSAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION
;WAIT FOR RDY BIT TO SET

SEQ 0085

CZl
w4

032774

JSR

RO,a#F ILLRE

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

JSR

RO,a#F ILLRE

004444
004037
002204
000002

RHBA
REINTO+<260.*2>

032774

gHDST

;SAVED REGISTER TO CHANGE
:DATA

;MOV 2 INTO SAVED RHDST

:32¥§D REGISTER TO CHANGE

;*COMPARE REGISTER BEFORE READ HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND
017270
017274
017276
017300
017302
017304

017306
017310

004037
004512

034070

017312
104031

5%:

000207

JSR
SAVERE
WC
18.
5%
6%

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN °SAVERE'
;TEST DATA STARTING FROM ‘'RHW(C'
;18. REGISTERS TO BE COMPARED
sRETURN TO 5% ON ERROR
;RETURN TO 6% ON NO ERROR

ERROR
RTS

31
PC

;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
017312
017312
017316
017320
017322

004037
002370
003434
000404

035120

6%:

JSR

WRFROM
REINTO

260.

RO,a#COMPAR

;*THE READ WAS GOOD

A AMRMAMAMAMAMAMAMAMARLNRLANDANARARAMNALAMDAANANADDAEDNDNDDDN

;MOV O INTO SAVED RHWC
:g:¥ib REGISTER TO CHANGE

oA dMAae

RO,a#F ILLRE

; *CHEANGE SAVED REGISTERS TO EXPECTED VALUES

JSR
SHUC

;DURING ABOVE OPERATION ONLY MOL :DPR!VV
;BRANCH IF GOOD
:BAD DATA
sFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

004037
002172
000000
004037
002174

032774

001126
004500

MOV

;SAVE FOR PRINTOUT

(SP)+,R5
69%
RS, a#$BDDAT
R3,a#REGADR
63

010500
001124

(SP) ,a#$GDDAT

CMP
BEQ
MOV
MOV
ERROR

012746
011637
022605
001405
010537
010337
104063

;DURING ABOVE OPERATION ONLY IE!GO:!DVA

67%
;BRANCH IF GOOD
RO,a#$BDDAT
;BAD DATA
R1,3#REGADR
;FAILING REGISTER RH(CS1
21
:DURING ABOVE OPERATION ONLY
#MOL !DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1

67%:

(SP)+,R0O

BEQ
MOV
MOV
ERROR
MOV

CMP

001126
004500

@#REFOR,-(SP)

#1E!GO!DVA,
(SP) ;INCLUDE IE!GO!DVA
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT

002350
004101
001124

sALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN
;SAVE COMMAND

908.

839.
MOV
BIS
MOV

JWAIT FOR RHCS1 REGISTER
sWAIT FOR RDY BIT IN RHCS1 REGISTER

;COMPARE TWO BLOCKS OF MEMORY

;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

:260., WORDS TO BE COMPARED

104021

RHCS1
RDY

SEQ 0086

017240
017244
017246
017250
017254
017256
017260
017264
017266

002200
000200
001614
001507
013746
052716
011637
022600
001405
010037
010137

0:07

4
-l
MACY11 30A(1052)
27-JUL=78 12:32 PAGE 87
RESTORE SECTOR 1 CYLINDER 1 TRA(K 1
T17

017150
017152
017154
017156
017160
017164
017170
017174
017176
017200
017204
017210
017212
017216
017222
017224
017226
017232
017236

TRLRZ2

CZRJJCO, RPO4/5/6 FCTNL
CZRJJC P11
26=JUL-78

3943
3944

017324
017326

017330
017334

017330
017332

000207

017334

104032

7%
108
7%:

10%:

12:32
PAGE 88
RESTORE SECTOR 1 CYLINDER 1 TRACK 1

ERROR

RTS

JRETURN TO 7% ON ERROR
JRETURN TO 108 ON NO ERROR

;WRITE HEADER AND DATA
;FOLLOWED BY A READ HEADER
sAND DATA GAVE A READ ERROR
;ERROR MAY BE IN READ OR WRITE

SEQ 0087

27=JUL-78

[alal

30A(1052)

MACY11

ARNAMAAARBNMAMAMAAAMAADBRNDANMAAMLAAAMARAMAALAADBNDAMAAANANAMARBLANAAADLNAANANADDEAEAANADDAEADNAAMAMAMAMDNAMAMDNADNAN

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRIJC.P11
26=JuL-78 10:07

3954
3955
3956
3957

26=JUL-78 10:07

017334
017336
017342

%ggg 017350

000004
012706
012737

004737

001000
000020

033072

117

TST20:
004504

27-JuL-78

:#CHECK THE DRIVE TYPE AND THEN FILL THE

4
4

005737
001411

004636

TST
BEQ

3968 017362
3969 017366
3970 017370
3971 017372
3972 017374
3973 017376
3974 017400
gg;z 017402

004037
002370
000004
011457
000000
000000
000000
000410

032716

JSR
WRFROM
4
11457
0
0
0
BR

017424
017430
017432
017434

004037
002400
000400
177777

032716

6%:
032742

JSR
WRFROM
4
10633
0
0
0

017436
017442

005737
001412

004636

RO, a#F LHEAD

TST
BEQ

a#RPO6
33
RO, a#RUN

017450
017452

001457
000

4006

017454

177374

-256.-4

4009

:TEST FOR RP06 DRIVE
:TREAT UNIT AS AN RPO4
:TREAT AS AN RP06
:SAVE HEADER DATA IN WRFROM
RO, a#F LHEAD
:LOCATION WHERE SAVED
:NUMBER OF WORDS SAVED
:FIRST DATA WORD
:SECOND DATA WORD
:THIRD DATA WORD
:FOURTH DATA WORD
6%
:CONTINUE WITH SET UP
a#RPO6
5%

JSR
RO,a#CLAREA
WRFROM+10

JSR
815.
BYTE

4008

:SET R1=-RHCS1, R2-RH(CSZ2

:CLEAR 256. WORDS, FROM WRFROM+10
:STARTING FROM WRFROM+10
:256. WORDS
SFILL WITH 0-1

:«THE DRIVE TYPE IS CHECKED AND THE APPROPRIATE
:*WRITE HEADER AND DATA COMMAND IS LOADED

4001 017444 004037 035054
4007

PC,a#CLDISK

:SAVE HEADER DATA IN WRFROM
:LOCATION WHERE SAVED
:NUMBER OF WORDS SAVED
:FIRST DATA WORD
:SECOND DATA WORD
:THIRD DATA WORD
:FOURTH DATA WORD
s CONT INUE
:*FILL WRITE FROM BUFFER WITH DATA

4002
4003
4004

4005

#STACK,SP
#20, a4 TSTNM

256.
0-1

gggg

3996
3997
3998
3999

5%:

017453

000

BYTE

017456

002370

WRFROM

017462

010000

FMT22

017460

000000

CZR

;RESET STACK
:SAVE TEST NUMBER

SCOPE
MOV
MOV

3964 017354
3965 017360
gggg

3977 017404
3978 017404 004037
3979 017410 002370
3980 017412 000004
3981 017414 010633
3982 017416 000000
3983 017420 000000
3984 017422 000000
3985 017424
3986

SEQ 0088

[
4
4
4

:*WRITE FROM BUFFER WITH APPROPRIATE HEADER

%32%

3987
3988
3989
3990
3991
3992
3993

PAGE 89

RESTORE SECTOR 1 CYLINDER 1 TRACK 1

JSR

3960
3961

12:32

CZRJJC.PN

MACY11 30A(1052)

~N
-

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2

:TEST FOR RPO6 DRIVE
:TREAT UNIT AS RP04
:TREAT UNIT AS RPO6
:SETUP TO RUN FOR DATA COMMAND
:CYLINDER 815.
:SECTOR 0

4
4
:
¢
¢
L
[/
[
[
L
:

L
¢
E
{
:
¢
¢
¢
:
[
[
L

d
:
[
:
:
:
{
‘
‘
:

1‘

{
i

:TRACK 0

:BUS ADDRESS

‘

:WORD COUNT (DATA) = 256. +
:DO NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT

‘

{
'

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 411.
sSECTOR 0
;TRACK 0
;WORD COUNT (DATA) = 256. +

;DO NOT INHIBIT BUS ADDRESS INCREMENT

WRFROM

4%:

;BUS ADDRESS

FMT22
WRIFOR

;16 BITS PER WORD FORMAT
;GET READY TO DO A WRIFOR

s CONT INUE

RO,a#SAVER

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

017524
017530
017534

004737

033152
057176

JSR

PC,a#CHECKT

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

017536

013777

004506

MOV

A#RP4LVEC ,QRPVEC ;SET RPO4 VECTOR ADDRESS

017544
017550
017554

013746
052716
012677

002344

MOV
BIS
MoV

a#WRIFOR,-(SP)
#GO!IE, (SP)

017560
017562
017564
017566
017570

104413
002202
002000
000011
000011

JSR
RHW(
SAVERE
18.

033240

004037
002172
004512
000022

s CANNOT CONTINUE TESTING IF NOT
;STOP TEST

LCPHALT

TYPE
HALT
162422

104401
000000

017512
017516
017520
017522

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

oV Yl ol ol P 2l ol ol oF 2P af aF uF P »

RO, a#RUN
JSR
411,
0
BYTE
BYTE
O
=256.=4

000
000
177374
002370
000000
010000
002344

;CONTINUE WITH TESTING

035054

;GET READY TO DO A WRIFOR

4035

4036
4037
4038
4039

004037
000633

3%:

000101
162420

(SP)+,@RHCS1

WAT
RHER1

;WAIT FOR IAE BIT TO SET
;WAIT FOR RHER1 REGISTER

;WAIT FOR IAE BIT IN RHER1 REGISTER

IAE

9.
9.

; *CHANGE

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

;ALLOW 90 MICRO SECONDS
;JAE MUST SET BETWEEN

THE SAVED REGISTERS TO EXPECTED VALUES

;*AS EXCEPTION IS ASSERTED BEFORE RUN IS LATCHED,
;*RHWC ,RHBA ,RHCS1 & RHCSZ CANNOT BE PREDETERMINED ;*THEY WILL VARY DEPENDING ON GATE DELAYS FOR DIFFERENT UNITS
017572

017737

162374

004512

MOV

@RHWC ,a#SAVERE

017600

017737

162370

004514

MoV

017606

017737

162364

004516

MOV

@RHBA , a#SAVERE+2;RHBA IS UNPREDICTABLE
;AS EXPLAINED ABOVE
@RHCS2,a#SAVERE
+4 ;RHCS2 IS UNPREDICTABLE

017614

017737

162360

004520

MOV

@RHCST,a#SAVERE+6;RHCST1

017622

004037

JSR

RO,a#CHREG

033762

;RHWC IS UNPREDICTABLE

;AS EXPLAINED ABOVE

:AS EXPLAINED ABOVE

IS UNPREDICTABLE

;AS EXPLAINED ABOVE
;CHANGE BITS IN SAVED REGISTER

4034

WRIFOR

002344
000411

SEQ 0089

4033

017464
017466
017470
017470
017474
017476
017477
017500
017502
017504
017506
017510
017512

120

e
27-JUL-78 12:32 PAGE 90
INVALID ADDRESS ERROR - RHER1 = 'IAE'

T S

4010
4011
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022
4023
4024
4025
4026
4027
4028
4029
4030
4031
4032

MACY11 30A(1052)

lalal

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PN
26=-JuL-78 10:07

4066

4067

4068
4069
4070
4071
4072
4073
4074
4075
4076
4077
4078
4079

017626
017630
017632
017634
017636
017640
017642
017646
017650
017652
017654

120

27-JUL-78 12:32 PAGE 91
INVALID ADDRESS ERROR = RHER1 = 'IAE'
RHDS1

;CHANGE RHDS1 REGISTER

ATA
1

;CHANGE ATA BIT
;NEW VALUE OF ERR IS 1

ERR
JSR
RHER1
1
1
1AE
BIS
MOV .

033762

004644
162314

017656
017664

004536
004524

4080

4081
4082
4083
4084
4085
4,086
4087
4088
4089
4090
4091
4092
4093
4094
4095

4096

4097
4098
4099
4100

;2 BIT/BITS TO BE CHANGED
sNEW VALUE OF ATA IS 1

2
1

; CHANGE ERR BIT
;CHANGE BITS IN SAVED REGISTER
;CHANGE RHER1 REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF IAE IS 1
; CHANGE IAE BIT
QNATTENT ,a#SAVERE+24 ;SET APPROPIATE 'ATA' BITS
QRHDST,a#SAVERE+12 ;RHDST IS INDETERMINATE
2SO IT IS NOT CHECKED

RO, a#CHREG

;*COMPARE REGISTERS BEFORE ATTEMPTED WRITE WITH
;*CONTENTS AFTER ATTEMPTED WRITE WITH AN 'IAE' ERROR
034070

017672
017676
017700
017702
017704
017706

017710
017714

017710
017712

000207

017714

104054

1%:

2%:

JSR
SAVERE
wC
18.
1%
2%

RO, a#COMREG

;COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN 'SAVERE'
sTEST DATA STARTING FROM 'RHWC'
;18. REGISTERS TO BE COMPARED
JRETURN TO 1$ ON ERROR
JRETURN TO 2% ON NO ERROR

ERROR
RTS

54
PC

sATTEMPTED OPERATION WITH
s 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 0090

CZR
CZR

AAAMAAAMAANARAAMRAMANARNARAAADNDEDLARANALNRALALALADLNDADDDDIDLIIIIYIIDIDD>>DD
DD
DD DD

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ
CZRJJC.PN
26~JuL-78 10:07

MACY11 30A(1052)

CZRJJCO, RPO4L/S/6 FCTNL CTRLR2
CZRJJC.P1
26~JUL~78 10:07

J 4102
4101 017714 000004
4103
4104

017716
017722

012706
012737

001000
000021

4107
4108
4109
4110
z}}g

01773«
017740
017742
017744

004037
002370
000400
000377

032742

4113
4114
4115
4116
4117
4118
4119
4120
4121
2}55

017746
017752
017754
017755
017756
017760
017762
017764

004037
000000
000
023
177400
002370
000000
010000

035054

004037
002172
004512
000022

033240

2}33

017770
017774
017776
020000

4130
4131
z;%g

020002
020006
020012

004737
104401
000000

033152
057176

2;35

020014

013777

004506

4136
4137
2};3

020022
020026
020032

013746
052716
012677

002342
000101
162142

4140
4141
4142
4143
2}22

020036
020040
020042
020044
020046

104413
002202
002000
000011
000011

2}82

4124
4125
4126
4127

017730

017766

004737

033072

MACY11 30A(1052) 27-JuL-78 12:32 PAGE 92
120
INVALID ADDRESS ERROR = RHER1 - 'JAE'
1ST21:
004504

002342

SCOPE
MOV
MOV

JSR

162144

#STACK,SP
#21,a8TSTNM

PC,a#CLDISK

4
&4

;*WRITE
JSR
0
.BYTE
.BYTE
-256.
WRFROM
0
FMT22

4
4
4
4
4
4
4
4
4
2

DATA COMMAND WILL BE FILLED
RO, a#RUN
:SETUP TO RUN FOR DATA COMMAND
:CYLINDER 0
0
:SECTOR 0
19.
:TRACK 19.
:WORD COUNT = 256.
:BUS ADDRESS
;DO NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
:GET READY TO DO A WRIDAT

:«SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE DATA
JSR
RO, a#SAVER
:SAVE REGISTERS
RHWC
:RHWC IS THE FIRST REGISTER SAVED
SAVERE
:STARTING ADDRES OF WHERE
18.
:NUMBER OF REGISTERS

4
4
4
4

JSR
TYPE
HALT

PC,a#CHECKT
LCPHALT

4
4
2

MOV

AHRPLVEC ,ARPVEC :SET RPO4 VECTOR ADDRESS

MOV
BIS
MoV

@HWRIDAT,=(SP)
#GO'IE, (SP)
(SP) +,aRHCS1

:;GET READY TO MOVE COMMAND
:GET READY TO SET GO AND
;G0 WITH

4
2

:WAIT FOR 1AE BIT TO SET
:WAIT FOR RHER1 REGISTER
:WAIT FOR IAE BIT IN RHER1 REGISTER
;ALLOW 90 MICRO SECONDS
:IAE MUST SET BFTWEEN

4
4
4
“
2

: *CHANGE

2}25

:SET R1-RHCS1, R2-RH(CS2

CZR
CZR.

4
4
4
4
24

WAT
RHER1
IA
9.
9.

4148
4149
4150
4151

:RESET STACK
:SAVE TEST NUMBER

SEQ 0091

:*FILL WRITE FROM BUFFER WITH DATA
JSR
RO,a#CLAREA
:CLEAR 256. WORDS, FROM WRFROM
WRFROM
:STARTING FROM WRFROM
256.
:256. WORDS
377
sFILL WITH 377

WRIDAT

2}29

4154
4155
4156

:CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1
:CANNOT CONTINUE TESTING IF NOT
:STOP TEST

SAVED REGISTERS TO EXPECTED VALUES

:*AS EXCEPTION IS ASSERTED BFFORE RUN IS LATCHED
:*RHWC ,RHBA ,RHCS1,RHCS2, CANNOT BE PEREDETERMINED

4
4
4
4

:*THEY WILL VARY DEPENDING ON GATE DELAYS ON DIFFRENT UNITS

2
4
4
4

020050

017737

162116

004512

MOV

020056

017737

162112

004514

MoV

@RHWC ,a#SAVERE

;RHWC IS UNPREDICTABLE
:AS EXPLAINED ABOVE
@RHBA , a#SAVERE+2;RHBA IS UNPREDICTABLE

C(ZRJJCO, RPO4L/5/6 FCTNL
CZRJJC.PIT
26-JUL~78
6157
4158
4159
4160
4161

4162
4163
4164

4165

4166

4167
4168
4169
4170
47N
4172

4173

4174
4175
4176
4177
4178
4179
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
419N
4192
4193
4194
4195

TRLR2

0:07

020064

017737

162106

020072

017737

162102

020100
020104
020106
020110
020112
020114
020116
020120

004037
002222

033762

017737

162060

020126
020132
020134
020136
020140
020142

004037
002202
000001
000001
002000
053737

033762

B 8
27-JUL-78 12:32 PAGE 93
INVALID ADDRESS ERROR - RHER1 (BIT #10)IAE

004516

MOV

004520

MOV

121

JSR

RHDS1

2
1

ATA

020150
020154
020156
020160
020162
020164

004037
004512
002254
000022

020166
020170

104054
000207

020172

MACY11 30A(1052)

1
ERR

004524

004536

; CHANGE ATA BIT

sNEW VALUE OF ERR IS 1
: CHANGE ERR BIT

MOV

@RHDST ,@#SAVERE+12 ;RHDST IS INDETERMINATE SO IT IS NOT CHECKED

JSR
RHER1

RO,a#CHREG

1AE
BIS

: CHANGE IAE BIT
QHATTENT ,@#SAVERE+24 ;SET APPROPIATE 'ATA' BITS

1
1

004644

;AS EXPLAINED ABOVE
RHCS2 ,a#SAVERE+4 ;RHCS2 IS UNPREDICTABLE
;AS EXPLAINED ABOVE
@RHCST1,a#SAVERE+6,RHCST IS UNPREDICTABLE
;AS EXPLAINED ABOVE
;CHANGE BITS IN SAVED REGISTER
RO,a#CHREG
;CHANGE RHDS1 REGISTER
;2 BIT/BITS TO BE CHANGED
sNEW VALUE OF ATA IS 1

;CHANGE BITS IN SAVED REGISTER
s CHANGE RHER1 REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF IAE IS 1

:*COMPARE REGISTERS BEFORE ATTEMPTED WRITE DATA
;*WITH AFTER ATTEMPT, IAE SHOULD BE SET

JSR

034070

SAVERE
w(

RO, a#COMREG

18.
1%
2%

020166

020172

1%:

2%:

ERROR
RTS

;COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘"RHWC'
;18. REGISTERS TO BE COMPARED
JRETURN TO 1$ ON ERROR
;RETURN TO 2% ON NO ERROR

54
PC

;ATTEMPTED WRITE DATA
;WITH INVALID ADDRESS

s CAUSED IMPROPER REGISTER
s CHANGE
;GOOD DATA GIVES WHAT
;SHOULD BE THERE
JRECEIVED DATA GIVES WHAT
;WAS THERE AFTER AFTER ATTEMPT

SEQ 0092

4196
4197
4198
4199
4200
4201
4202

4203
4204
4205

4206
4207
4208
4209
4210
4211
4212
4213
4214
4215
4216
4217
4218
4219

4220

4221
4222
4223
4224
4225
4226
4227
4228
4229
4230
4231
4232
4233
4234
4235
4236
4237
4238
4239
4240
4241
4242

4243

4244
4245
4246
4247
4248
4249
4250
4251

020172
020174
020200
020206

000004
012706

012737
004737

001000
000022
033072

MACY11 30A(1052)
21

TST22:

004504

Cc 8
27=-JUL=78 12:32 PAGE 94
INVALID ADDRESS ERROR - RHER1 (BIT #10)IAE
SCOPE

MOV
MOV

JSR

#STACK,SP
#22 ,aNTSTNM

PC,a#CLDISK

sJRESET STACK
;SAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(S2

;*GET THE HEADS TO CYLINDER 10
PC,a#CHECKT

MOV

A#RPLVEC ,QRPVEC ;SET RPO4 VECTOR ADDRESS

033042

JSR

RO,Q#SEEKCY

002352
000101

MOV

Q#SEECOM,-(SP)

;GET READY TO MOVE COMMAND

MOV

(SP)+,aRHCST

;GO WITH

004737
104401

033152
057176

020224

013777

004506

020232
020236

004037
000010

020240
020244
020250

013746
052716
012677

020254
020256
020260
020262
020264

104413
002222
000200
015530
015530

020266

004737

033072

JSR

020272
020276
020300
020302

004037
003434
000260

032742

JSR

020304
020310
020312
020313
020314
020316
020320
020322
020324

004037
000000
026
000
177374

035054

000000

161724

TYPE
HALT
161734

BIS

,CPHALT

#GO'!IE, (SP)

WAT
RHDS1

PC,a#CLDISK

;SET R1-RHCS1, R2-RHCSZ2

;*FILL READ INTO BUFFER WITH 125252

REINTO

RO,a#CLAREA

;CLEAR 260 WORDS, FROM REINTO
;STARTING FROM REINTO

;260 WORDS
sFILL WITH 125252

;*THE READ HEADER AND DATA COMMAND IS FILLED
RO,a#RUN
;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 0
2.
;SECTOR 22.
0
;TRACK 0
-256.-4
;WORD COUNT (DATA) = 256. +

JSR
0
e
BYTE

REINTO

0
FMT22'ECI
REFOR

;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
;GET READY TO DO A REFOR

;*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED READ

020326
020332
020334
020336

004037
002172
004512
000022

033240

JSR
RHW(
SAVERE
18.

RO,a#SAVER

020340
020344
020350

004737

033152
057176

JSR

PC,a#CHECKT

000000

;GET READY TO SET GO AND

;DRY MUST SET BETWEEN

260
125252

003434

;SEEK FOR

;CYLINDER 10

JWAIT FOR DRY BIT IN RHDST REGISTER
sALLOW 70000 MICRO SECONDS

7000.

000000
014000
002350

;CANNOT CONTINUE TESTING IF NOT
;STOP TEST

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

DRY
7000.

125252

104401

Y AND VV = 1
,MOL ,DPR,DRY
;CHECKS DVA,RD

JSR

020212
020216
020222

TYPE
HALT

LCPHALT

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

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

s CANNOT CONTINUE TESTING IF NOT
;STOP TEST

SEQ 0093

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.P1T
26=JuL-78 10:07

|
|

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PN
26=JuL-78 10:07
4252
4253
4254
4255

020352
020360
020364
020370

013777
013746
052716
012677

4257
4258

020374
020376

104413
002202
002000
000002
000002

004506
002350
000101

D 8
MACY11 30A(1052)
27=JUL-78 12:32 PAGE 95
122
INVALID ADDRESS ERROR RHER1 -BIT #10
MOV
MOV
BIS

161606

MOV

161604

SEQ 0094

@#RPLVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS
A#REFOR,-(SP)
;GET READY TO MOVE COMMAND
#GO!IE, (SP)
;GET READY TO SET GO AND

(SP) + ,aRH(CS1

WAT
RHER1

;GO WITH

;WAIT FOR IAE BIT TO SET
;WAIT FOR RHER1 REGISTER

IA
Qe

;WAIT FOR IAE BIT IN RHER1 REGISTER
sALLOW 20 MICRO SECONDS

;JAE MUST SET BETWEEN

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES

;*AS EXCEPTION IS ASSERTED BEFORE RUN IS LATCHED

; *RHWC ,RHBA ,RHCS1,RHCS2,
CANNOT BE PEREDETERMINED
;*THEY WILL VARY DEPENDING ON GATE DELAYS ON DIFFRENT UNITS

4271

020406

017737

161560

004512

MOV

aRHW( , a#SAVERE

4273

020414

017737

161554

004514

MOV

@RHBA , a#SAVERE +2

4275

020422

017737

161550

004516

MOV

dRHCS2 ,a# SAVERE +4

4277

020430

017737

161544

004520

MOV

dRHCS1 ,a#SAVERE +6

4279
4280

020436
020442

JSR
RHDS1
2
1

RO,a#CHREG

1
ERR
MOV

sNEW VALUE OF ERR IS 1
; CHANGE ERR BIT
@RHDST ,a#SAVERE+12
sRHDST IS INDETERMINATE SO IT IS NOT CHECKED

JSR

RO,a#CHREG

IAE
BIS

; CHANGE IAE BIT
Q#ATTENT ,a#SAVERE+24 ;SET APPROPIATE ‘'ATA' BITS

4281
4282

4283
4284
4285
4286

020444
020446
020450
020452
020454
020456

4288
4289
4290
4291
4292

020464
020470
020472
020474
020476

4293

020500

033762

ATA
IA

017737

161522

004037
002202

033762

000001
000001
002000
053737

4297
4298
4299
4300
4301
4302

020506
020512
020514
020516
020520
020522

004037
004512
002254
000022
020524
020530

4304
4305

020524
020526

000207

104054

004644

004524

RHER1
1
1

004536

sJRHWC IS UNPREDICTABLE

;AS EXPLAINED ABOVE
sRHBA IS UNPREDICTABLE
;AS EXPLAINED ABOVE
sRHCS2 IS UNPREDICTABLE
;AS EXPLAINED ABOVE
sRHCS1

IS UNPREDICTABLE

;AS EXPLAINED ABOVE

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER
;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA IS 1
s CHANGE ATA BIT

;CHANGE BITS IN SAVED REGISTER

; CHANGE RHER1 REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF IAE IS 1

;*COMPARE REGISTERS BEFORE ATTEMPTED READ HEADER
;*AND DATA WITH AFTER ATTEMPTED READ

034070

1%:

JSR
SAVERE

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH

ERROR

54
PC

;ATTEMPTED READ HEADER
sJAND DATA WITH INVALID

RTS

;GOOD DATA SAVED IN ‘SAVERE'
sTEST DATA STARTING FROM ‘RHWC'
:18. REGISTERS TO BE COMPARED
JRETURN TO 1$ ON ERROR
;RETURN TO 2% ON NO ERROR

sADDRESS CAUSED IMPROPER
JREGISTER CHANGE

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JUL~-78 10:07
4308
4309
4310
4311
4312
4313
6314
4315

E 8
:
MACYTT 3?A(1052)
27=JUL-78 12:32 PAGE 96
22
INVALID ADDRESS ERROR RHER1 -BIT #10
;GOOD DATA GIVES WHAT
;SHOULD BE THERE
;RECEIVED DATA GIVES
JREGISTER CONTENTS
:AFTER ATTEMPTED

020530

2%:

sREAD

SEQ 0095

—

m—

CZRJJCO, RPO4L/S5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuL-78 10:07
4316
4317
4318
4319
4320

4321
4322
4323

4324
4325
4326
4327
4328
4329
4330
4331
4332
4333
4334
4335
4336
4337
4338
4339
4340
4341
4342
4343
4344
4345
4346
4347
4348
4349
4350
4351
4352
4353
4354
4355
4356
4357
4358
4359
4360
4361
4362
4363
4364
4365
4366

4367
4368
4369
4370
4371

020530
020532
020536

000004

012706
012737
004737

001000
000923
033072

020550
020554
020556
020560

004037
003434

032742

020562
020566
020570
020571
020572
020574
020576
020600
020602

004037
000000
024
000

035054

020544

MACY11 30A(1052)
122

TST23:

004504

SCOPE

MOV
MOV

JSR

#STACK,SP
#23,aNTSTNM

PC,a#CLDISK

REINTO

RO,a#CLAREA

260
125252

177400

RO,a#RUN

20.
0

REINTO

;STARTING FROM REINTO

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER O
;SECTOR 20.
;TRACK 0
;WORD COUNT = 256.
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT
;18 BITS PER WORD FORMAT

0
ECI

;GET READY TO DO A READAT

;*SAVE REGISTERS FOR (OMPARISON AFTER ATTEMPTED READ

033240

JSR
RHWC
SAVERE
18.

RO,a#SAVER

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

JSR

PC,a#CHECKT

DY AND VV = 1
,MOL ,DPR,DRY
;CHECKS DVA,R

MOV

A#RP4LVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV

@#READAT ,-(SP)

020616
020622
020626

004737

033152
057176

020630

013777

004506

020636
020642
020646

013746
052716
012677

002346
000101

020652

104413
002202

TYPE
HALT
161330

BIS
MOV

161326

LCPHALT

#GO!IE, (SP)
(SP) +,aRHCS1

WAT
RHER1

;GET READY TO SET GO AND
;GO WITH

;WAIT FOR IAE BIT IN RHER1 REGISTER
sALLOW 20 MICRO SECONDS
s IAE MUST SET BETWEEN

RHCS1
2
1
SC
1

100000

033762

;GET READY TO MOVE COMMAND

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
;CHANGE BITS IN SAVED REGISTER
RO,a#CHREG
JSR

033762

161274

;CANNOT CONTINUE TESTING IF NOT
;STOP TEST

;WAIT FOR IAE BIT TO SET
sWAIT FOR RHER1 REGISTER

IA
g»
-8

002000
000002
000002

000001
040000
017737
004037
002222

;CLEAR 260 WORDS, FROM REINTO
;260 WORDS
JFILL WITH 125252

READAT

004037
002200
000002
000001

sSET R1-RHCS1, R2=-RH(SZ2

;*THE READ HEADER AND DATA COMMAND IS FILLED

JSR
0
.BYTE
BYTE
=256.

003434

104401
000000

JRESET STACK
;SAVE TEST NUMBER

;*FILL READ INTO BUFFER WITH 125252

JSR

000260
125252

020604
020610
020612
020614

020702
020704
020712
020716

27=-JUL=78 12:32 PAGE 97
INVALID ADDRESS ERROR RHER1 -BIT #10

004524

TRE

MOV

JSR

RHDS1

s CHANGE RHCS?! REGISTER
;2 BIT/BITS TO BE CHANGED
sNEW VALUE OF SC IS 1
;CHANGE SC BIT
sNEW VALUE OF TRE IS 1
:CHANGE TRE BIT

@RHDST ,a#SAVERE+12;RHDST IS UNPREDICTABLE

RO,a#CHREG

;CHANGE BITS IN SAVED REGISTER
;CHANGE RHDS1 REGISTER

SEQ 0096

CZRJJCO, RPO4/S5/6 FCTNL CTRLRZ2
CZRJJC. P11
26~=JuL-78 10:07
4372
4373
4374

4375
4376
4377
4378

4379
4380

4381
4382
4383
4384
4385
4386
4387
4388

4389

4390
439
4392
4393
4394
4395
4396
4397

020720
020722
020724
020726
020730
020732
020736
020740
020742
020744
020746

MACY11 30A(1052)
123

033762

002000
053737

;2 BIT/BITS TO BE CHANGED
sNEW VALUE OF ATA IS 1

ERR
JSR
RHER1

s CHANGE ERR BIT
;CHANGE BITS IN SAVED REGISTER
;CHANGE RHER1 REGISTER

;CHANGE ATA BIT
sNEW VALUE OF ERR IS 1

RO,a#CHREG

1
1

004644

IAE

BIS

004536

(BIT #10)IAE

2
1

ATA
1

;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF IAE IS 1

: CHANGE IAE BIT

QNATTENT ,a#SAVERE+24 ;SET APPROPIATE ‘'ATA' BITS

; *COMPARE REGISTERS BEFORE ATTEMPTED READ
020754
020760
020762
020764
020766
020770

004037
004512
002254
000022
020772
020776

020772
020774

104054

000207

;*DATA WITH AFTER ATTEMPTED READ DATA

JSR
SAVERE
w(

034070

RO, a#COMREG

18.
1%

1%:

ERROR
RTS

;COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'
sTEST DATA STARTING FROM ‘RHWC'
;18. REGISTERS TO BE COMPARED
JRETURN TO 1$ ON ERROR

JRETURN TO 2% ON NO ERROR
54

JATTEMPTED READ

;DATA WITH INVALID

;ADDRESS CAUSED IMPROPER
JREGISTER CHANGE
;GOOD DATA GIVES WHAT
;SHOULD BE

4398

4399
4400
4401
4402
4403
4404

G 8
27=-JUL-78 12:32 PAGE 98
INVALID ADDRESS ERROR = RHER1

THERE

JRECEIVED DATA GIVES
;REGISTERS CONTENTS
;AFTER ATTEMPTED

020776

2%:

;READ

SEQ 0097

CTRLR 2
(ZRJJCO, RPO4/5/6 FCTNL
C
CZRIJC.P1N
26=JUL~78 10:07

4405

4406
4407
4408
4409
4410
4611
4412

4613

4414

4475

4616

4617
4418
4419
4420
4421
4422

4423
4424
4425

020776
021000
021004
021012

000004
012706
012737
004737

021016
021022
021024
021026

004037
002370
000004

021032
021034

010000
000000
000000
000000

021036
021042
021044
021046

004037
002400
000400
000000

021030

001000
000024
033072

TST24:

004504

4453

4454
4455
4456
4457
4458
4459
4460

SCOPE
MOV

MOV
JSR

#STACK ,SP

#24 ,aXTSTNM
PC,a#CLDISK

021072
021076
021102

033152
057176

;THIRD DATA WORD
;FOURTH DATA WORD

RO,a#CLAREA

#2>
M+
WRF RO<4
856.

021112
021116
021122

013746
052716
012677

002344

021126
021130
021132
021134
021136
021140

104413
002200
000200
004704
004704
004737

000101
161052

TYPE
HALT

161054

;16 BITS PER WORD FORMAT

PC,a#CHECKT
LCPHALT

Y AND VV =
,DPR,DRY
,RD
;CHECKS DVAMOL

;CANNOT CONTINUE TESTING IF NOT

;STOP TEST

MOV

A#RPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

a#WRIFOR,~=(SP)
#GO!IE, (SP)
(SP) +,@RHCS1

RDY

JSR

;GET READY TO SET GO AND
;GO WITH

;WAIT FOR RHCS1 REGISTER
JWAIT FOR RDY BIT IN RHCS1 REGISTER

RHCS1

2500.
2500.

;GET READY TO MOVE COMMAND

;WAIT FOR RDY BIT TO SET

WAT

033072

:WORD COUNT (DATA) = 256. +

;BUS ADDRESS

:GET READY TO DO A WRIFOR

WRIFOR

JSR

;TRACK 0

;DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT2?2

004506

;CLEAR 256. WORDS, FROM WRFROM+<4#2>
;STARTING FROM WRFROM+<4*2>
2230 UORDS
JFILL WITH O

;*THE FIRST WRITE OPERATION IS DONE
s*FILL WRITE HEADER AND DATA COMMAND
6SR
RO, a#RUN
;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0O
.BYTE
0
;SECTOR O
gRFROM

013777

;SET R1-RHCS1, R2-RH(S2

;SECOND DATA WORD

O
.BYTE
-256.-4

021104

JRESET STACK
;SAVE TEST NUMBER

s*FILL WRITE FROM BUFFER WITH DATA

JSR

032742

035054

(BIT #10)IAE

;*FILL WRITE FROM BUFFER WITH HEADER
RO,a#F LHEAD
;SAVE HEADER DATA [N WRFROM
WRFROM
;LOCATION WHERE SAVED
4
;NUMBER OF WORDS SAVED
10000
;FIRST DATA WORD
0
0
0

021050
021054
021056
021057
021060
021062
021064
021066
021070

SEQ 0098

JSR

032716

4426

4427
4428
4429
4430
4431
4432
4433
4434
4435
4436
4437
4438
4439
4440
4441
4442
4443
Ll
4445
444k
4447
4448
4449
4450
4451
4452

MACY11 30A(1052) 27=JUL-78 12:32 PAGE 99
123
INVALID ADDRESS ERROR = RHER1

PC,a#CLDISK

;ALLOW 25000 MICRO SECONDS
;RDY MUST SET BETWEEN
;SET R1-RHCS1, R2-RH(CS2

;*CHECK THE DRIVE TYPE AND DO THE
;*APPROPRIATE SECOND WRITE OPERATION

;*FILL WRITE FROM BUFFER WITH HEADER

]

CZRJJCO, RPO4L/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuL-78 10:07
4461
4462

005737

4463

001411

446%

4465

4466
4467
4468

4469
4470
4471
4472
W73
447%
4475
4476
4477
4478
4479

4480
4481
4482

4483

4484
4485
4486
4487
4488
4489
4490
4491
4492
4493
4494
4495
4496
4497

4498
4499
4500
4501
4502
4503
4504
4505
4506
4507
4508
4509
4510
4511
4512
4513
4514
4515
4516

021152
021156
021160
021162
021164
021166
021170
021172
021174
021174
021200
021202
021204
021206
021210
021212
021214
021214
021220
021222
021224

004037

002370
000004
011456
011025
000000
000000
000410

1 8
27=-JUL-78 12:32 PAGE 100
MACYTT 3$A(1052)
ADDRESS OVERFLOW ERROR = RHER1
24

TST

004636

BEQ
JSR
WRFROM

032716

a#RPO6

15%

032716

004037

032742

15%:

(BIT#9) AOE

;TEST FOR RPO6 DRIVE

;TREAT DRIVE AS AN RP0O4
;TREAT AS AN RPO6

RO, a#F LHEAD

“
11456
<18.%400>!<21.>

004037
002370
000004
010632
011025
000000
000000

SEQ 0099

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

0
0
BR

1€%

;THIRD DATA WORD
;FOURTH DATA WORD
sCONTINUE WITH THE SECOND WRITE

JSR

RO, a#F LHEAD

;SAVE HEADER DATA IN WRFROM

WRFROM

;LOCATION WHERE SAVED

;NUMBER OF WORDS SAVED

10632

;FIRST DATA WORD

<18.%400>!<21.>

-SECOND DATA WORD

;THIRD DATA WORD

;FOURTH DATA WORD

;CONTINUE WRITE

16%:

;*FILL WRITE FROM BUFFER WITH DATA - 65125
JSR
RO,a#CLAREA
;CLEAR 256. WORDS, FROM WRFROM+<4#2>
WRFROM+<4 2>
;STARTING FROM WRFROM+<4x2>
256.

:256. WORDS

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

sFILL WITH <26.%2000>!<18.+40>!<

;*CHECK THE DRIVE TYPE AND

;*FILL WRITE FROM BUFFER WITH APPROPRIATE NEXT HEADER

;*THIS IS A NON EXISTANT HEADER AND SHOULD NOT BE WRITTEN

s*SINCE "AOE' SHOULD INHIBIT THE WRITE OPERATION

021226

021232

005737
001411

TST

004636

021234
021240
021242
021244
021246
021250
021252
021254

004037
003400
000004
011457
000000
000000
000000
000410

032716

021256
021256

004037

032716

BEQ

JSR

a#RP06

17%

TEST FOR RPO6 DRIVE

s TREAT AS AN RPO6

RO, a#F LHEAD

;SAVE HEADER DATA IN WRFROM+<260.%2>

0
0
0
BR

18%

;SECOND DATA WORD
;THIRD DATA WORD
sFOURTH DATA WORD
;CONTINUE WITH TEST

JSR

RO, a#F LHEAD

;SAVE HEADER DATA IN WRFROM+<260,
%2>

WRFROM+<260. %2>
“
11457

17%:

;TREAT UNIT AS AN RPO4

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

cZl
czi

CZRJJCO, RPO4L/5/6 FCTNL CTRLR2
CZRJJC.PIN
26-JUL~-78 10:07
4517
4518
4519
4520
4521
4522
4523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534
4535

021262
021264
021266
021270
021272
021274
021276

003400
000004
010633
000000
000000
000000

021276
021302
021304
021306

004037
003410

MACY11 30A(1052)
T24

18%:

;LOCATION WHERE SAVED

sNUMBER OF WORDS SAVED

10633
0
0
0

;FIRST DATA WORD
;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD

s CONT INUE

;*FILL WRITE FROM BUFFER WITH DATA FOR NEXT SECTOR

;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

s*FILL WRITE HEADER AND DATA COMMAND
004636

TST
BEQ

a#RP06
7%

035054

JSR
814.
.BYTE
.BYTE

RO, a#RUN

=257.-4

;TEST FOR RPO6 DRIVE
;TREAT UNIT AS AN RPQ4
;TREAT UNIT AS AN RPO6

21.
18.

WRFROM

FMT22
WRIFOR

7%:

035054

021346
021350
021351
021352
021354
021356
021360
021362
021364

JSR

RO, a#RUN

=257.=4

21.
18.

WRFROM

021364
021370
021372
021374

sSETUP TO RUN FOR DATA COMMAND

;CYLINDER 410.
;SECTOR 21.
:TRACK 18.

;WORD COUNT (DATA) = 257. +
;DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT22
WRIFOR

;16 BITS PER WORD FORMAT
;GET READY TO DO A WRIFOR

;*SAVE REGISTERS FOR COMPARISON AFTER WIRTE HEADER AND DATA

033240

JSR
RHWC
SAVERE
18.

RO,a#SAVER

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

JSR

PC,a#CHECKT

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

MOV

Q#RP4VEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

021376
021402
021406

004737
104401

033152
057176

021410

013777

004506

000000

;16 BITS PER WORD FORMAT
;GET READY TO DO A WRIFOR

;BUS ADDRESS

8%:

;WORD COUNT (DATA) = 257. +

;DO NOT INHIBIT BUS ADDRESS INCREMENT

410.
.BYTE
.BYTE

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 814.
;SECTOR 21.
;TRACK 18.
:BUS ADDRESS

4549

4563
4564
4565
4566
4567
4568
4569
4570
4571
4572

WRFROM+<260. *2>

JSR
RO,a#CLAREA
WRFROM+<264 . %2>
2
<27.%2000>

032742

4543
4544
4545
4546
4547
4548

4561
4562

(BIT#9) AOE

“

066000

4536
4537
4538
4539
4540
4541
4542

4550
4551
4552
4553
4554
4555
4556
4557
4558
4559
4560

J 8
27=JUL=78 12:32 PAGE 101
ADDRESS OVERFLOW ERROR - RHER1

TYPE
HALT

160550

LCPHALT

s CANNOT CONTINUE TESTING IF NOT
:STOP TEST

SEQ 0100

CZRJJCO,?POL/S/G FCTNL CTRLRZ2
CZRJJC.P
26=JUL~-78 10:07
4573
4574
4575
4576
4577
4578
4579

4580
4581
4582
4583

021416
021422
021426
021432
021434
021436
021440
021442

013746
052716
012677

T24

27-JUL=-78

BIS
MOV

000101
160546

12:32

PAGE 102

ADDRESS OVERFLOW ERROR = RHER1 (BIT#9) AOE
MOV

002344

A#WRIFOR,-(SP)
#GO!IE, (SP)
(SP) + ,@RHCS1

WAT
RHCS1
RDY

104413

002200

RHBA
WRFROM+<260. *2>+<1 %2>

;SAVED REGISTER TO CHANGE
:DATA

SHUC

:g:¥§0 REGISTER TO CHANGE

JSR

RO,a#F ILLRE

033762

JSR
RHCS1
2
1
SC
1

RO,a#CHREG

033762

JSR
RHCS?2
2

RO,a#CHREG

032774

021464

;ALLOW 25000 MICRG SECONDS
:RDY MUST SET BETWEEN

:*CHANGE SAVED REGISTERS TO EXPECTED VALUES
JSR
RO,a#F ILLRE
:MOV WRFROM+<260.%2>+<1.%2> INTO SAVED RHBA

032774

021454
021460
021462

TRE

OR
1
IR
JSR

032774

RHER1
AOE

033762

004644

004536

:MOV O INTO SAVED RHWC

:CHANGE BITS IN SAVED REGISTER
;CHANGE RHCS1 REGISTER
:2 BIT/BITS TO BE CHANGED
;NEW VALUE OF SC IS 1
;CHANGE SC BIT
JNEW VALUE OF TRE IS 1
;CHANGE TRE BIT

:CHANGE BITS IN SAVED REGISTER
:CHANGE RHCSZ2 REGISTER
:2 BIT/BITS TO BE CHANGED
JNEW VALUE OF OR IS 1

RO,a#F ILLRE

;CHANGE OR BIT
;NEW VALUE OF IR IS 1
;CHANGE IR BIT
;MOV AOE INTO SAVED RHER1

:SAVED REGISTER TO CHANGE
;DATA

;CHANGE BITS IN SAVED REGISTER
:CHANGE RHDS1 REGISTER
:3 BIT/BITS TO BE CHANGED
:NEW VALUE OF ATA IS 1

JSR
RHDS1
3
1

RO,a#CHREG

1
ERR
1
LBT
BIS

:NEW VALUE OF ERR IS 1
;CHANGE ERR BIT
:NEW VALUE OF LBT IS 1
;CHANGE LBT BIT
QMATTENT ,Q#SAVERE+24 ;SET APPROPIATE 'ATA' BITS

ATA

000
053737

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;GO WITH
;WAIT FOR RDY BIT TO SET
:WAIT FOR RHCS1 REGISTER
:WAIT FOR RDY BIT IN RHCS1 REGISTER

2500.
2500.

021444
021450
021452

021470
021472
021474
021476
021500
021502
021504
021510
021512
021514
021516
021520
021522
021524
021530
021532
021534
021540
021542
021544
021546
021550
021552
021554
021556
021560

MACY11 30A(1052)

;CHANGE ATA BIT

;*CHECK DEVICE TYPE BEFORE SETTING UP 'RHCA' & 'RHCC'
021566
021572

005737
001411

004636

021574
021600
021602
021604
021610

004037

032774

002234

032774

TST

a#RPO6

JSR

RO,a#F ILLRE

JSR
RHCC

RO,a#F ILLRE

BEQ

RHCA
815.

;TEST FOR RPO6 DRIVE

: TREAT AS RPO4
: TREAT AS RPO6
:MOV 815. INTO SAVED RHCA
:SAVED REGISTER TO CHANGE
:DATA
sMOV 814. INTO SAVED RHCC
;SAVED REGISTER TO CHANGE

SEQ 0101

cZl
czi

CZRJJCO,
RPO4/S5/6
FCTNL CTRLR2 MACY11 30A(1052)
27-JuL-78 12:35PAGE 103
CZRJJIC.P11
26=-JuL-78 10:07
124
ADDRESS OVERFLOW ERROR - RHER1 (BIT#9) AOE
4629
4630
4631
4632
4633
4634

021612
021614
021616
021616
021622
021624

001456
000410

4636
4637
4638
4639

021632
021634
021636

002234
000632

4635

021626

004037
002212
000633

004037

032774

9%:

032774
108 :

e
222% 021636 017737 160342 004524
4644

4645
4646

021644
021650

004032 034070
004512

zgg?

021660

021666

4647
4648
4649

4652
4653
4654
4655
4656
4657
4658
4659
2229

021652
021654
021656
021662
021664

JSR
RHCA
411.

108
RO, a4F ILLRE

:MOV 411. INTO SAVED RHCA
:SAVED REGISTER TO CHANGE
:DATA

MOV

ARHDST ,a#SAVERE+12 ;RHDST IS UNPREDICTABLE

:*COMPARE REGISTERS BEFORE WRITE HEADER AND DATA WITH AFTER

RO, a#COMREG

ERROR
RTS

55
PC

MOV 410. INTO SAVED RHCC

:
b
¢
b
p
¢

RO, a#4F ILLRE

wC
18.
1%
1%:

:DATA
:CONTINUE WITH TEST

C2ZF
CZF

JSR

RHCC
410.

JSR
SAVERE

002254
000022
021662

104055
000207

814.
BR

SEQ 0102

:SAVED REGISTER TO CHANGE
:DATA
:CONTINUE WITH TEST

:COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN °'SAVERE'

s
¢
¢
¢

“TEST DATA STARTING FROM 'RHWC'
:18. REGISTERS TO BE COMPARED
:RETURN TO 1$ ON ERROR

RETURN TO 2% ON NO ERROR

¢
{
'
1
:
;

:WRITING HEADER AND DATA WITH
:EXPECTED ADDRESS OVERFLOW ERROR
:CAUSED IMPROPER REGISTER
: CHANGE
:GOOD DATA GIVES WHAT SHOULD
:BE THERE
RECEIVED DATA GIVES WHAT
:WAS THERE AFTER WRITE
:HEADER AND DATA

:
!
‘
f
!
|
1
!
:

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2
CZRJJC.P1T

26=JUL-78 10:07

MACY11 30A(1052)
124

4,662
4663
222?

021666
021666

004737

033072

4671
4672
4673

021672
021676

005737
001411

004636

4676 021700
4677 021704
4678 021706
4679 021710
4680 021712
4681 021714
4682 021716
2222 021720

004037
002370
000004
011456
011025
000000
000000
000410

032716

4585
4686 021722
4687 021722
4688 021726
4689 021730
4690 021732
4691 021734
4692 021736
4693 021740
4694 021742
4695
4696
4697

004037
002370
000004
010632
011025
000000

021742

004037

2;85

021752

065125

4703

021746
021750

002400
000400

4704

021754

004037

4706

021762

000006

4705

2;8;
4709

021760
021764

032716

000000

4698

4699
4700

003400

2%:

PAGE 104

SEQ 0103

ADDRESS OVERFLOW ERROR = RHER1 (BIT#9) AOE

19%:

032742

:SET R1=-RHCS1, R2-RH(CS2

¢
¢
¢
;

;TEST FOR RP0O6 DRIVE
:TREAT UNIT AS AN RP04

‘
¢
‘

JSR

PC,a#CLDISK

TST
BEQ

a#RP06
19%

JSR
RO, a#F LHEAD
WRFROM
4
10632
<18.%400>'<21.>
0
0

:TREAT AS AN RP06

;

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

¢
¢
¢
‘
‘
!
¢
:

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

s«FILL WRITE FROM BUFFER WITH EXPECTED DATA

JSR

RO,a#CLAREA

WRFROM+<4 %2>
256.

:CLEAR 256. WORDS, FROM WRFROM+<4*2>
:STARTING FROM WRFROM+<4*2>
:256. WORDS

<26.%2000>'<18.%40>'<21.>

032742

RO, a#CLAREA

WRFROM+<260. *2>
6

000377

377

021766
021772
021774
021776

004037
003434
000412
000377

032742

2;}2

022000

004737

033072

sFILL WITH <26.%2000>'<18.%40>'<

s«FILL WRITE FROM BUFFER WITH 377 FROM WORDS 261 TO 266

JSR

CZF

ICZF

b
¢
;

:*CHECK THE DRIVE TYPE AND FILL
:*WRITE FROM BUFFER WITH APPROPRIATE EXPECTED HEADER

JSR
RO, a#F LHEAD
WRFROM
4
11456
<18.%400>'<21.>
0
0
B8R
208

20%:

4710
4711
4712
2;}2

4717

12:32

:*NOW PREPARE 7O DO A READ HEADER AND DATA
:*(THE FIRST READ OPERATION)

4666
4667
4668
2298

22;%

27-JUL=78

:CLEAR 6 WORDS, FROM WRFROM+<260.%2>
:6 WORDS

:STARTING FROM WRFROM+<260.*2>

SFILL WITH 377

:*CLEAR READ INTO BUFFER

JSR
REINTO
266.
377

RO, a#CLAREA

JSR

PC,a#CLDISK

:CLEAR 266. WORDS, FROM REINTC
:STARTING FROM REINTO
:266. WORDS

sFILL WITH 377

:SET R1-RHCS?, R2-RHC(CS2

1
{
¢
¢
‘
'
!
‘
!
!
!
!
|
|

‘
|

;*CHECK THE DRIVE TYPE AND DO THE APPROPRIATE

4718
4719

4720
4721
4722
4723
4724
4725
4726
4727
4728
4729
4730
4731
4732

SEQ 0104

(BIT#9) AOE

;*FILL READ HE/DER AND DATA COMMAND
022004
022010

005737
001412

004636

022012
022016
022020

004037

035054

TST

BEQ

a#RPO6

11%

;TEST FOR RPO6 DRIVE

JSR
RO,a#RUN
814.
.BYTE
21.
.BYTE
18.
-326.-4
REINTO

ECI'FMTZ22
REFOR

4733

4734
4735
4736
4737
4738
4739
4740
4741
4742
4743
4744
4745
4746
4747

11%:

035054

12%

JSR
410.

RO,a#RUN

.BYTE
2.
.BYTE
18.
-326.-4
REINTO

0
ECI'FMT22

002350

12%:

REFOR

:TREAT UNIT AS AN RPO4

;TREAT UNIT AS AN RPO6

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 814.
:SECTOR 21.
sTRACK 18.
:WORD COUNT (DATA) = 326. +
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT

;16 BITS PER WORD FORMAT

;GET READY TO DO A REFOR

2 CONT INUE

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 410.

:SECTOR 21.
;TRACK 18.
:WORD COUNT (DATA) = 326. +
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;GET READY TO DO A REFOR

;CONTINUE WITH TESTING

;*SAVE REGISTERS FOR COMPARISON AFTER
: *READ HEADER AND DATA

022060
022064
022066
022070

004037
002172
004512
000022

033240

JSR
RHW(
SAVERE
18.

RO,a#SAVER

;SAVE REGISTERS
JRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHI -~
;NUMBER OF REGISTERS

022072
022076
022102

004737
104401

033152
057176

JSR

PC,a#CHECKT

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

022104

013777

004506

MOV

Q#RP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

022112
022116
022122

013746
052716
012677

002350
000101

MOV
BIS
MOV

a#REFOR,-(SP)
#GO!IE, (SP)
(SP) +,aRHCS1

022126
022130
022132
022134
022136

104413
002200
000200
001614
001507

022140
022144
022146

004037
002174
004444

000000

160052

TYPE
HALT
160054

.CPHALT

WAT
RHCS1
RDY

908.
839.

032774

;CANNOT CONTINUE TESTING IF NOT
;STOP TEST

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;GO WITH
;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1

;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

; *CHANGE
SAVED REGISTERS TO EXPECTED VALUES
JSR
RO,a#F ILLRE
;MOV REINTO+<260.%2> INTO SAVED RHBA
RHBA
REINT0+<260. %2>

;SAVED REGISTER TO CHANGE
:DATA

CZR
CZR
wvVivivnunun

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuL-78 10:07

N 8
MACY11 30A(1052)
27=JUL-78 12:32 PAGE 105
ADDRESS OVERFLOW ERROR - RHER1
T24

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PN
26=JUL~78 10:07
4774

4775
4776
4777
4778
4779

02¢150

02¢ 154
022156

004037
002172

177672
00403~

B 9
30A(1052)
27=JUL-78
12:32
PAGE 106
MACY11
ADDRESS OVERFLOW ERROR = RHER1
124

032774

033762

4800
4801
4802
4803

-70.
JSR

RO,a#CHREG

2
;

SC
-

4783
4784
4785
4786
4787
4788
4789

4793
4794
4795
4796
4797
4798
4799

RO, a#F ILLRE

RHCS1

4780
4781
4782

4790
4791
4792

JSR

RHW(

TRE

033762

JSR
RHDS1

RO, a#CHREG

3
.

AlA
|

ERR
1
LBT
JSR
RHER1
AOE

032774

022224
022230
022232

(BIT#9) AOE

;MOV =70.

INTO SAVED RHW(C

:SQ¥ED REGISTER TO CHANGE
;CHANGE BITS IN SAVED REGISTER

s CHANGE RHCS1 REGISTER
;2 BIT/BITS TO BE CHANGED
sNEW VALUE OF SC IS 1
;CHANGE SC BIT
sNEW VALUE OF TRE IS 1
;CHANGE TRE BIT

;CHANGE BITS IN SAVED REGISTER

;CHANGE RHDS1 REGISTER
;3 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA IS 1
;CHANGE ATA BIT
sNEW VALUE OF ERR IS 1
s CHANGE ERR BIT
;NEW VALUE OF LBT IS 1

RO,a#F ILLRE

; CHANGE LBT BIT

;MOV AOE INTO SAVED RHER1

:g:¥§D REGISTER TO CHANGE

s *CHECK DRIVE TYPE BEFORE SETTING UP 'RHCA'
022234
022240

005737
001405

004636

TST
BEQ

022242
022246
022250
022252
022254
022254
022260
022262
022264

004037
002212
001457
000404

032774

JSR
RHCA

004037
002212
000633

032774

022264
022272

053737
017737

004644
157706

815.

13%:

14%:

004536
004524

a#RP06
13%

;TEST FOR RPO6 DRIVE
:TREAT UNIT AS AN RPO4
:TREAT UNIT AS AN RPO6
RO,a#F ILLRE
:MOV 815. INTO SAVED RHCA

:SAVED REGISTER TO CHANGE

14%

JSR

RO,a#F ILLRE

RHCA
411.

BIS
MOV

;DATA
; CONT INUE

;MOV 411.

INTO SAVED RHCA

:g:¥§0 REGISTER TO CHANGE

;CONTINUE WITH TEST
QHATTENT ,@#SAVERE+24 ;SET APPROPIATE ‘'ATA' BITS
@aRHDST ,a#SAVERE+12 ;RHDST IS UNPREDICTABLE

;*COMPARF REGISTERS BEFORE READ HEADER AND DATA WITH

4829

s*REGISTERS AFTER COMMAND

034070

022300
022304
022306
022310
022312
022314

022316
022322

022316
022320

000207

104055

3%:

JSR
SAVERE

RO,a#COMREG

ERROR

55
PC

RTS

;COMPARE SAVED REGISTERS WITH

;GOOD DATA SAVED IN ‘'SAVERE'
;TEST DATA STARTING FROM ‘RHWC'
;18. REGISTERS TO BE COMPARED
sRETURN TO 3% ON ERROR
;RETURN TO 4% ON NO ERROR
;READING HEADER AND DATA WITH
JEXPECTED ADDRESS OVERFLOW

;ERROR CAUSED IMPROPER
JREGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD

SEQ 0105

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ
CZRJJC.P11
26=-JuL-78 10:07

MA(CY1] 30A(1052) 27=-JUL=78 12:32 PAGE 107
ADDRESS OVERFLOW ERROR = RHER1 (BIT#9) AOE
124
;BE THERE

4830

JRECEIVED DATA GIVES WHAT
;WAS THERE AFTER COMMAND

4831
4,832

022322

004037
002370
003434

035120¢

(%:

104056
000207

022344
022344

004737

JSR

WRFROM
REINTO

RO, a#COMPAR

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

266.
5%
6%

022340
022344
022340
022342

;*NOW COMPARE THE DATA READ

5%:

033072

6%:

RTS

;DATA READ WITH AN EXPECTED

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(CSZ2

ERROR

;ADDRESS OVERFLOW ERROR
;1S INCORRECT
sWORD NO 1 TO 260 SHOULD
;BE READ CORRECTLY
;WORD NO 261 TO 266 SHOULD
;NOT CHANGE DUE TO THE READ

SEQ 0106

4853
4854
4855
4856
4857
4858
4859
4860

4861

SEQ 0107

(BIT#9) AOE

;*NOW PREPARE 7O READ CYLINDER 0, SECTOR 0, TRACK 0
;*TO SEE THAT NOTHING GOT WRITTEN ON THERE

;*WITH THE ADDRESS OVER FLOW BIT SET (AOE)
022350
022354

4862

4863

4864
4865
4,866
4867
4,868
4869
4870
4871
4872
4873
4L874
4875
4,876
4877
4878
4879
4880
4,881
4882
4883
4884
4885
4886

D 9
MACY11 30A(1052)
27=JUL-78 12:32 PAGE 108
124
ADDRESS OVERFLOW ERROR = RHER1

022402
022406
022410
022412

004037
002370
000004
010000
000000
000000
000000
004037
002400
000400
000000
004037
003434

s*FILL WRITE FROM BUFFER WITH EXPECTED HEADER

JSR

032716

WRFROM
“
10000

JSR
RO,a#CLAREA
WRFROM+<4 %2>
256.
0
JSR

REINTO

022420
022424
022426
022427
022430
022432
022434
022436
022440

004037
000000
000
000
177374
003434
000000
014000
002350

035054

022442
022446
022450
022452
022454
022460
022464

004037
002172
004512

033240

004737

033152
057176

022466

013777

004506

022474
022500
022504

013746
052716
012677

002350
000101

022510
022512
022514
022516

104413
002200
000200
004704

JSR

;CLEAR 260. WORDS, FROM REINTO
;STARTING FROM REINTO

;FILL WITH 377
PC,a#CLDISK

;SET R1-RHCS1, R2-RH(CS2

s*FILL COMMAND FOR READ HEADER AND DATA
JSR
RO, 3a#RUN
;SETUP TO RUN FOR DATA COMMAND
0
sCYLINDER 0
.BYTE
0
;SECTOR 0
BYTE
O
;TRACK 0
=-256.<4
;WORD COUNT (DATA) = 256. +
REINTO

;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT

REFOR

;GET READY TO DO A REFOR

ECI!FMTZ2?2

157470

;CLEAR 256. WORDS, FROM WRFROM+<4*2>
;STARTING FROM WRFROM+<4*2>
:256. WORDS
sFILL WITH O

:260. WORDS

377

033072

104401
000000

RO,a#CLAREA

260.

000377

004737

;FOURTH DATA WORD

;*FILL READ INTO BUFFER WITH 377

032742

022414

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

032742

;SAVE HEADER DATA IN WRFROM

;SECOND DATA WORD

000404

000021

RO, a#F LHEAD

;16 BITS PER WORD FORMAT

;*SAVE REGISTERS FOR COMPARISON AFTER READ

157472

JSR
RHW(
SAVERE
17.

RO,a#SAVER

TYPE
HALT

LCPHALT

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

JSR

PC,a#CHECKT

MOV

a#RP4LVEC,QRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MoV

@#REFOR,-(SP)
#GO!IE, (SP)
(SP) +,aRHCST

WAT
RHCS1
RDY

2500.

s CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1
s CANNOT CONTINUE
;STOP TEST

TESTING IF NOT

;GET READY TO MOVE COMMAND
sGET READY TO SET GO AND
;GO WITH
;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1

JALLOW 25000 MICRO SECONDS

TM~

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PI
26=-JUL~78 10:07

4909
4910
4911
4912

4913

4914
4915
4916
4917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927
4928
4929
4930
4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4944
4945
4946
4947
4948
4949
4950
4951
4952
4953
4954
4955
4956
4957
4958
4959
4960
4961
4962
4963
4964

T24

E ¥
27=JUL-78 12:32 PAGE 109
ADDRESS OVERFLOW ERROR - RHER1

;RDY MUST SET BETWEEN

2500.

022520

004704

022522

032774

JSR

RO,
a#F ILLRE

032774

0
JSR

RO,a#F ILLRE

022550

004037
002172
000000
004037
002174
004444
004037
002204
000001

022552
022552
022556
022560
022562
022564
022566

004037
004512
002254
000021
022570
022574

034070

022570
022572

104031
000207

; *CHANGE

RHW(
RHBA

REGISTERS TO EXPECTED VALUE
JMOV 0 INTO SAVED RHW(C
:SR¥ED REGISTER TO CHANGE

REINTO+<260.*2>

032774

JSR

?HDST

ST22A:

(BIT#9) AOE

RO,a#F ILLRE

MOV REINTO+<260.%2> INTO SAVED RHBA
:SAVED REGISTER TO CHANGE
sMOV 1

;DATA
INTO SAVED RHDST

:32¥ED REGISTER TO CHANGE

;COMPARE REGISTER BEFORE READ WITH AFTER
JSR
RO,a#COMREG
; COMPARE SAVED REGISTERS WITH

;GOOD DATA SAVED IN ‘'SAVERE'

SAVERE

;TEST DATA STARTING FROM ‘"RHWC'

:17. REGISTERS TO BE COMPARED

JRETURN TO 4% ON ERROR
JRETURN TO 18 ON NO ERROR
4%:

ERROR

RTS

;READ HEADER AND DATA ON

;CYLINDER O, SECTOR O

;TRACK O AFTER A FORCED

;ADDRESS OVER FLOW ERROR

; CAUSED IMPROPER REGISTER
; CHANGE
;GOOD DATA GIVES WHAT
;SHOULD BE THERE
sRECEIVED DATA GIVES WHAT
;WAS THERE AFTER READ
sHEADER AND DATA
;IF HEADER COMPARE ERROR
;IS FOUND AND THE DATA
;ERROR GIVES THE NEW
;HEADER TO

;CYLINDER 633/1457 (OCTAL)
;THEN 'AOE' OVER FLOWED
:INTO HERE
022574

022610

004037
002370
003434
000404
022612
022616

022612
022614

000207

104032

035120

1%:

; *COMPARE DATA/READ
JSR

WRFROM
REINTO

RO,a#COMPAR

:260., WORDS TO BE COMPARED

260.
2%
3%

2%:

ERROR

RTS

; COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
RETURN TO 2% ON ERROR

JRETURN TO 3% ON NO ERROR
32

;READ HEADER AND DATA
;ON CYLINDER O, TRACK 0
;SECTOR 0 AFTER A FORCED
;'AOE' ERROR CAUSED
;AN ERROR
;IF FIRST WORD IS
210633711457 (OCTAL) THEN

SEQ 0108

'alal

(ZRJJCO, RPO&/5/6 FCTNL CTRLRZ
CZRJJC.PN
26=JuL-78 10:07

MACY11 30A(1052)

CZRJJCO, RPO4L/S/6 FCTNL CTRLR2
CZRJJC.P1T

26=JuUL~78 10:07

MACY11 30A(1052)
T24

4965

6966
L4967
4568
L4969

27-JuL=78

12:32

PAGE 110

ADDRESS OVERFLOW ERROR - RHERT
;'AOE'

022616

3%:

SEQ 0109

(BIT#9) AOE
OVER

FLOWED

INTO HERE

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.P1
26=JuL-78 10:07
4970
4971
4972
4973
4974
4975
4976
4977
4978
4979
4980

4981
4982
4983

4984
4985
4986

4987

4988
4989
4990
4991
4992
4993
4994
4995
4996
4997
4998
4999

5000
5001
5002
5003
5004
5005
5006
5007
5008
5009
5010
5011
5012
5013
5014
5015
5016
5017
5018
5019
5020

022616
022620
022624
022632

000004
012706
012737
004737

001000
000925
033072

MACY11

TST2S:

004504

30A(1052)
27=JUL=78 12:32 PAGE 111
T24
ADDRESS OVERFLOW ERROR = RHER1

(BIT#9)

004037
002370
000004

#STACK,SP

sRESET STACK

JSR

PC,a#CLDISK

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

MOV

#25,KTSTNM

sSAVE TEST NUMBER

022656
022662
022664
022666

004037
002400
000400
000000

032742

022670
022674
022676
022677
022700
022702
022704
022706
022710

004037
000000
000
000
177374

035054

;*FILL WRITE FROM BUFFER WITH HEADER

032716

JSR

WRFROM
4

s*FILL COMMAND

;DO NOT INHIBIT BUS ADDRESS INCREMENT

022732
022736
022742

013746
052716
012677

002344
000101

022746
022750
022752
022754
022756

002200
000200
004704
004704

022760

004737

157232

104413

JSR

TYPE

;GET READY

PC,a#CHECKT
LCPHALT

TO DO A WRIFOR

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

s CANNOT

CONTINUE

TESTING

MOV

A#RPLVEC ,@RPVEC

;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

A#WRIFOR,-(SP)
#GO!IE, (SP)
(SP) +,aRHCS1

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

WAT

;WAIT

FOR RDY BIT

TO SET

RDY

;WAIT

FOR DY BIT

IN RHCS1

sWAIT FOR RHCS1

2500.
2500.

JSR

NOT

;STOP TEST

RHCS1

033072

;BUS ADDRESS

;16 BITS PER WORD FORMAT

HALT

157234

:256. WORDS
SFILL WITH O

WRIFOR

033152
057176

;CLEAR 256. WORDS, FROM WRFROM+<4#2>
:STARTING FROM WRFROM+<4*2>

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0
;SECTOR O
;TRACK O
;WORD COUNT (DATA) = 256. +

FMT22

004506

;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED

JSR
RO, a#RUN
0
.BYTE
O
BYTE
O
=256.-4

WRFROM

013777

:SAVE HEADER DATA IN WRFROM

s*FILL WRITE FROM BUFFER WITH DATA

000000
010000
002344

022724

SECTOR 0

:THIRD DATA WORD
:FOURTH DATA WORD

256.
0

004737

TRACK 0,

;FIRST DATA WORD
;SECOND DATA WORD

JSR
RO,a#CLAREA
WRFROM+<4 %2>

002370

104401
000000

RO, a#F LHEAD

10000
0
0
0

022712
022716
022722

SCOPE
MOV

;*FIRST WRITE HEADER AND DATA CYLINDER 0,

022636
022642
022644
022646
022650
02265¢
022654

SEQ 0110

AOE

;ALLOW 25000 MICRO SECONDS
;RDY MUST SET BETWEEN
PC,a#CLDISK

;SET R1-RH(CS1, R2-RH(CS2

CZRJJCO, RPO4/5/6 FCTINL CTRLRZ2
CZRJJC.PN
26=JuL-78 10:07

MACY11

5021

H 9
30A(1052)
27=jUL=78
12:32 PAGE 112
FORMAT ERROR = RHER1 (BIT #4)FMT
125

SEQ 011

;*NOW PREPARE "0 WRITE WITH WRONG FORMAT
022764
022770
022772
022774

004037
002370
000400
000377

032742

022776
023002

004037
000000
000
000

035054

;*FILL WRITE FROM BUFFER

JSR

WRFROM

RO,a#CLAREA

256.
377

=256.

177400

:256. WORDS
SFILL WITH 377
RO, a#RUN
0
©

WRFROM
)

033240

023032
023036
023042

004737
104401
000000

033152
057176

023044

013777

004506

023052
023056
023062

013746
052716
012677

002342
000101

023066
023070
023072
023074
023076

002200
000200
001522
001510

023100
023104

005737
001411

004640

023106
023112
023114
023116
023122
023124
023126

004037
002172
177410

032774

104413

;GET READY TO DO A WRIDAT

;*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE DATA
;*WITH WRONG FORMAT

JSR

RHW(

RO,a#SAVER

JSR

TYPE

PC,a#CHECKT
LCPHALT

HALT

157114

;SAVE REGISTERS

JRHWC

THE

FIRST REGISTER SAVED

;STARTING ADDRES OF WHERE
;NUMBER OF REGISTERS

;CHECKS DVA,RDY
_ MOL ,DPR,DRY AND VV =
sCANNOT

CONTINUE

TESTING

MoV

A#RP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS

A#WRIDAT ,-(SP)
#GO!IE, (SP)

MOV

NOT

;STOP TEST

(SP)+,aRH(CS1

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

;GO0 WITH

WAT

;WAIT FOR RDY BIT

TO SET

RDY

;WAIT

IN RHCS1

RHCS1

JWAIT FOR RHCS1

850.
840.

032774

;WORD COUNT = 256.

;18 BITS PER WORD FORMAT

SAVERE
18.

157112

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0
;SECTOR 0
;TRACK 0
;BUS ADDRESS
;DO NOT INHIBIT BUS ADDRESS INCREMENT

WRIDAT

004037
002172
004512
000022

;STARTING FROM WRFROM

;*FILL WRITE DATA COMMAND

JSR
0
BYTE
BYTE

002370
000000
000000
002342

023020
023024
023026
023030

;CLEAR 256. WORDS, FROM WRFROM

FOR RDY BIT

;JALLOW 8500 MICRO SECONDS
;RDY MUST SET BETWEEN

;*CHANGE SAVED REGISTERS TO EXPECTED VALUE
TST

@#RH70

;IF NOT, SKIP NEXT RH70 CODE

JSR

RO,a#F ILLRE

JMOV =248.

BEQ
RHWC

-248.
JSR

RHBA

RO,a#F ILLRE

WRFROM+<8 ., *2>

:RH70 CONTROLLER ?

INTO SAVED RHWC

;SAVED REGISTER

;DATA

TO CHANGE

:MOV WRFROM+<8.*2> INTO SAVED RHBA

;SAVED REGISTER

TO CHANGE

;SKIP NEXT RH11

CODE

:DATA

(ZRJJICO, RPOL/S/6 FCTNL CTRLRZ2
CZRJJC.P11T
26=-JUL-78 10:07

b
asb

38
WN=O
VNN

b
b

wil ad wn
aub

i add al) wxb
wud
i

il anlh cud ah anlh w

b anl

wvivio oo

5077
5078
5079
5080
5081
5082
5083
5084
5085
5086
5087
5088
5089
5090
5091
5092
5093
5094
5095
5096
5097
5098
5099

023130
023130
023134
023136
023140

004037

MACY11 30A(1052)
125
5

032774

RO,a#F ILLRE

JSR

RO,a#F ILLRE

JSR

RO,a#CHREG

RHBA
WRFROM+<66. *2>

8%:

033762

RHCS1
2
1
SC
1
TRE

JSR
RHCS2

033762

RO,a#CHREG

1
OR
JSR
RHDS1
2
i
ATA
1
ERR
JSR

033762

023222
023224
023230
023232
023234
023242
023246
023250
023252
023254
023256
023262
023266
023274

JSR

=190.

023146
023150
023150
023154
023156
023160
023162
023164
023166
023170
023174
023176

1
12:32

FORMAT ERROR = RHER1

RHW(

032774

023144

27=JUL=78

004037

002204
000001
053737
004037
002202
000001
000001
000020
017746
042716
042737
052637

032774
004644
033762

156714
177477

000300
004516

?HDST

BIS
JSR

004536

RHER1
1
1
FER

MOV
BIC
BIC
BIS

004516

023316
023322

023316
023320

104057
000207

SEQ 0112

(BIT #4)FMT

:MOV =190.

INTO SAVED RHW(C

:SAVED REGISTER TO CHANGE
:DATA

:MOV WRFROM+<66.%*2> INTO SAVED RHBA
:SAVED REGISTER TO CHANGE
;DATA

:CHANGE BITS IN SAVED REGISTER
:CHANGE RHCS1 REGISTER
:2 BIT/BITS TO BE CHANGED
JNEW VALUE OF SC IS 1
;CHANGE SC BIT
JNEW VALUE OF TRE IS 1
;CHANGE TRE BIT

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

RO,a#CHREG

RO,a#F ILLRE

JNEW VALUE OF OR IS 1
;CHANGE OR BIT
: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
;MOV 1 INTO SAVED RHDST
:32¥ED REGISTER TO CHANGE

QMATTENT ,Q#SAVERE+24 :SET APPROPIATE 'ATA' BITS
:CHANGE BITS IN SAVED REGISTER
RO,a#CHREG
:CHANGE RHER1 REGISTER
;1 BIT/BITS TO BE CHANGED
:NEW VALUE OF FER IS 1
;CHANGE FER BIT

@RHCS2,-(SP)
:GET RHCSZ2
#*C<IR!'OR>,(SP) ;KEEP IR AND OR
#IR!0OR,a#SAVERE+4;CLEAR SAVED IR OR
(SP) + ,a#SAVERE+4;SET OR IR AS REQUIRED

;*COMPARE REGISTERS BEFORE WRITE DATA WITH AFTER ATTEMPT

034070

023314

9
PAGE 113

JSR
SAVERE

1%:

RO, a#COMREG

57
PC

;COMPARE SAVED REGISTERS WITH

:GOOD DATA SAVED IN ‘SAVERE'
sTEST DATA STARTING FROM "RHWC'
:18. REGISTERS TO BE COMPARED
JRETURN TO 1% ON ERROR
;RETURN TO 2% ON NO ERROR
;ATTEMPTING TO WRITE DATA
;WITH WRONG FORMAT BIT CAUSED

; IMPROPER REGISTER CHANGE

CZRJJCO, RPO4/S/6 FCTNL CTRLRZ2
CZRJJC.PT
26=JUL-78 10:07

MACY11 30A(1052)
125

5143

5144
5145
5146
5147
5148
5149
5150
5151
5152
5153
5154
5155
5156

d
12:32

FORMAT ERROR = RHER1

9
PAGE 114

SEQ 0113

(BIT #4)FMT

;GOOD DATA GIVES WHAT SHOULD
sBE THERE

5133
5134
5135
5136
5137

5138
5139
5140
5141
5142

27=JUL=78

JRECEIVED DATA GIVES WHAT WAS
;THERE AFTER ATTEMPTED WRITE

;*NOW PREPARE TO READ WITH CORRECT FORMAT TO CHECK

023322
023322

004737

033072

;*THAT NOTHING GOT WRITTEN

JSR
PC,a#CLDISK
;SET R1-RHCS1, R2-RH(SZ2
;*FILL WRITE FROM BUFFER WITH EXPECTED DATA
JSR
RO,a#CLAREA
;CLEAR 256. WORDS, FROM WRFROM

023326
023332
023334
023336

004037
002370
000400

032742

000000

023340
023344
023346
023350

004037
003434
000400
125252

032742

023352
023356
023360
023361
023362
023364
023366
023370
023372

004037
000000
000
000

035054

023374
023400
023402
023404

004037
002172
004512
000022

033240

JSR
RHWC
SAVERE
18.

RO,a#SAVER

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

023406
023412
023416

004737
104401

033152
057176

JSR

PC.,a#CHECKT

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

023420

013777

004506

MOV

@#RPLVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

023426
023432
023436

013746
052716
012677

002346
000101
156536

MOV
BIS
MOV

@#READAT ,-(SP)
#GO!IE, (SP)
(SP)+ ,aRHCS1

023442
023444
023446
023450
023452

002200
000200
001614
001507

023454

004037

WRFROM

:256. WORDS
sFILL WITH O

;*FILL READ INTO BUFFER WITH 125252

JSR

REINTO

RO,a#CLAREA

256.
125252

003434
000000
014000
002346

REINTO

;BUS ADDRESS

FMT22!ECI
READAT

;16 BITS PER WORD FORMAT
;GET READY TO DO A READAT

;DO NOT INHIBIT BUS ADDRESS INCREMENT

;*SAVE REGISTERS FOR COMPARISON AFTER NORMAL READ

TYPE
HALT
156540

.CPHALT

;CANNOT CONTINUE TESTING IF
;STOP TEST

;WAIT FOR RDY BIT

908.
839.

;ALLOW 9080 MICRO SECONDS
JRDY MUST SET BETWEEN

TO SET

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

;*CHANGE SAVED REGISTERS TO EXPECTED VALUE

JSR

NOT

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

WAT

RHCS1
RDY

032774

;STARTING FROM REINTO

:256. WORDS
SFILL WITH 125252

104413

;CLEAR 256. WORDS, FROM REINTO

;*FILL COMMAND TO READ DATA
JSR
RO,a#RUN
;SETUP TO RUN FOR DATA COMMAND
0
;CYLINDER 0
.BYTE
0
;SECTOR 0
.BYTE
0
;TRACK 0
-256.
;WORD COUNT = 256.

177400

000000

;STARTING FROM WRFROM

256.
0

RO,a#F ILLRE

;MOV REINTO+<256.%2> INTO SAVED RHBA

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JUL~78 10:07
5189
5190
519N
5192
5193
5194
5195
5196
5197
5198
5199

002174
004434
004037
002172
000000
004037
002204
000001

MACY11

K 9
30A(1052)
27=-JUL=78 12:32 PAGE 115
FORMAT ERROR = RHER1 (BIT #4)FMT
125
RHBA

REINTO+<256.
%2

032774

023522

017746
042716
042737
052637

156466
177477
000300
004516

023526
023532
023534
023536
023540
023542

004037
004512
002254
000022
023544
023550

034070

023544
023546

000207

JSR

sMOV 1 INTO SAVED RHDST
;SAVED REGISTER TO CHANGE
;DATA
dRH(S2,=(SP)
sGET RHCS?2
(SP) KEEP IR AND OR
#*C<IR!OR>,

MOV
BIC
BIC
BIS

RO,a#F ILLRE

;SAVED REGISTER TO CHANGE
;DATA

#1R!0R,a#SAVERE+4;CLEAR SAVED IR OR
(SP) + ,a#SAVERE+4;SET OR IR AS REQUIRED

;*COMPARE REGISTERS BEFORE READ WITH AFTER
RO, a#COMREG
;COMPARE SAVED REGISTERS WITH
SAVERE
:GOOD DATA SAVED IN 'SAVERE'
sTEST DATA STARTING FROM °‘RHWC'
;18. REGISTERS TO BE COMPARED
JRETURN TO 3% ON ERROR
sRETURN TO 4$ ON NO ERROR

JSR

3%:

104033

RO,a#F ILLRE

?HDST

004516

;MOV 0 INTO SAVED RHWC

JSR

SHUC

032774

; SAVED REgi;;ER TO CHANGE

ERROR
RTS

;READ DATA AFTER AN

SJATTEMPTED WRITE WITH WRONG

; IMPROPER REGISTER CHANGE

;FORMAT CAUSED
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
sRECEIVED DATA GIVES WHAT
;WAS THERE AFTER READ

023550
023550
023554
023556
023560
023562
023564

004037
002370
003434
000400
023566
023572

023566
023570

000207

023572

104034

035120

4%:

;*COMPARE DATA READ AFTER ATTEMPTED WRITE WITH
;*WRONG FORMAT BIT
JSR

WRFROM
REINTO

RO,a#COMPAR

sTEST DATA STARTS FROM REINTO

;256., WORDS TO BE COMPARED
;RETURN TO 5% ON ERROR
sRETURN TO 6% ON NO ERROR

256.
5%
6%

5%:

6%:

ERROR
RTS

;COMPARE TWO BLOCKS OF MEMORY

;GOOD DATA STARTS FROM WRFROM

;DATA READ AFTER AN ATTEMPT
:TO WRITE WITH WRONG FORMAT
;WAS

INCORRECT

SEQ 0114

2zl
(w4

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ
26=JuL-78 10:07
CZRJJC.PI
5239
5240

023572

000004
012706

012737
004737
004037
002370

001000
000026
033072

MACY11 30A(1052)
126

TST26:

004504

27-JUL-78

12:32

FORMAT ERROR = RHER1
SCOPE

MOV
MOV

JSR

PAGE 116

(BIT #4)FMT

#STACK,SP
#26 ,A4TSTNM

PC.,a#CLDISK

JRESET STACK
sSAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(S2

;*FILL WRITE FROM BUFFER WITH 107070

JSR

032742

WRFROM

RO,a#CLAREA

256.
107070

000400
107070

;CLEAR 256. WORDS, FROM WRFROM
;STARTING FROM WRFROM

:256. WORDS
;FILL WITH 107070

;*FILL READ INTO BUFFER WITH 107070

JSR

032742

REINTO

RO,a#CLAREA

256.
107070

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

:256. WORDS
;FILL WITH 107070

;*FILL COMMAND TO READ WITH WRONG FORMAT

JSR
0
BYTE
BYTE
-256.

035054

RU,@#RUN

0
0

REINTO

;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT
;18 BITS PER WORD FORMAT
;GET READY TO DO A READAT

0
ECI
READAT

002346

;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 0
;SECTOR 0
;TRACK 0
;WORD COUNT = 256.

;*SAVE REGISTERS FOR COMPARAISON AFTER READ

004037
002172
004512
000022

033240

JSR
RHWC
SAVERE
18.

RO,a#SAVER

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

023672
023676
023702

004737

033152
057176

JSR

PC,a#CHECKT

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

023704

013777

004506

MOV

A#RP4LVEC,aRPVEC ;SET RPO4 VECTOR ADDRESS

023712
023716
023722

013746
052716
012677

002346
000101

MOV
BIS
MoV

Q#READAT ,-(SP)
#GO!IE, (SP)
(SP) +,aRHCS1

104401
000000

156252

TYPE
HALT
156254

LCPHALT

WAT
RHCS1
RDY

023726
023730
023732
023734
023736

sCANNOT CONTINUE TESTING IF NOT
;STOP TEST

;GET READY TO MOVE COMMAND
;GET READY TO SET GO AND
;GO WITH
;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER

850.
840.

;ALLOW 8500 MICRO SECONDS
sRDY MUST SET BETWEEN

; *CHANGE SAVED REGISTERS TO EXPECTED VALUE
023740
023744
023746
023750

004037
002200
000002
000001

033762

JSR
RHCS1
2
1

RO,a#CHREG

;CHANGE BITS IN SAVED REGISTER
;CHANGE RHCS1 REGISTER
;2 BIT/BITS TO BE CHANGED
JNEW VALUE OF SC IS 1

SEQ 0115

CZRJJCO, RPO4/5/6 FCTNL
26=JUL~78
CZRJJC.PN
5294
5295
5296

023752
023754
023756
023760
023764
023766
023770

TRLR2

0:07

M9
27-JUL=-78 12:32 PAGE 117
MACY11 30A(1052)
FORMAT ERROR = RHERT (BIT #4)FMT
126

SC
1
TRE
JSR
RHDS1
2
1

033762

ATA

1
ERR
JSR

032774

?HDST

033762

024050

024054
024060

042737
052637

004644
156140
177477
000300
004516

004037

034070

024070

004512
002254
000022
024072
024076

024072
024074

104057
000207

024062

024064
024066

RO,a#CHREG

004516

;CHANGE ATA BIT

RO,a#F ILLRE

;NEW VALUE OF ERR IS 1
s CHANGE ERR BIT
MOV 1 INTO SAVED RHDST

:32¥ED REGISTER TO CHANGE

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHER1 REGISTER
;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF FER IS 1

JSR
RHER1
1
1

RO,a#CHREG

BIS
MOV
BIC
BIC
BIS

Q#ATTENT ,@#SAVERE+24 ;SET APPROPIATE °ATA' BITS
@dRH(CS2,=(SP)
;GET RHCS2
#~C<IR!OR>,(SP) ;KEEP IR AND OR
#IR!0R,a#SAVERE+4;
CLEAR SAVED IR OR
(SP) + ,a#SAVERE+4;SET OR IR AS REQUIRED

FER

004536

;CHANGE SC BIT
sNEW VALUE OF TRE IS 1
s CHANGE TRE BIT
;CHANGE BITS IN SAVED REGISTER
;CHANGE RHDS1 REGISTER
;2 BIT/BITS TO BE CHANGED
sNEW VALUE OF ATA IS 1

; CHANGE FER BIT

;*COMPARE REGISTERS BEFORE WRITE DATA WITH AFTER ATTEMPT

JSR
SAVERE

RO, a#COMREG

WC
18.

;TEST DATA STARTING FROM 'RHWC'
:18. REGISTERS TO BE COMPARED

sRETURN TO 1$ ON ERROR

;RETURN TO 2% ON NO ERROR

2%
1%:

ERROR
RTS

;COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'

57
PC

SATTEMPTING TO READ DATA
;WITH WRONG FORMAT BIT CAUSED

IMPROPER REGISTER CHANGE

;crsgggEoArA GIVES WHAT SHOULD BE

*RECEIVED DATA GIVES WHAT WAS THERE
*AFTER READ DATA
024076
024076
024102
024104
024106
024110
024112
024114
024116

004037
002370
003434
000400

035120

2%:

RO,a#COMPAR

256.
3%

3%:

ERROR
RTS

;COMPARE TWO BLOCKS OF MEMORY

;GOOD DATA STARTS FROM WRFROM
sTEST DATA STARTS FROM REINTO

:256., WORDS TO BE COMPARED
;RETURN TO 3% ON ERROR

024120
104034

JSR

WRFROM
REINTO

024114

000207

;*COMPARE READ INTO BUFFER TO CHECK THAT NOTHING WAS READ

;RETURN TO 4$ ON NO ERROR

34
PC

sATTEMPT TO READ
;WITH WRONG FORMAT BIT

;CHANGED READ INTO BUFFER
;GOOD DATA GIVES WHAT SHOULD
;BE THERE

SEQ 0116

czi
czi

FORMAT ERROR = RHER1

(BIT A#4)FMT

;BAD DATA GIVES WHAT WAS

CZF
CZF

wWvw

papoWy TY
YW

Ny PN

UL
R ey
e

4%:

024120

;THERE AFTER READ DATA

SEQ 0117

N9
12:32 PAGE 118

5354

126

27=JUL-78

5350
5351
5352
5353

MACY11 30A(1052)

CZRJIJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PN
26=JuL-78 10:07

—

CZRJJCO, RPO4L/S5/6 FCTNL CTRLRZ2

CZRJJC.PT

26=JuL-78 10:07

024120
024122
024126
024134
024140
024146

(0004

012706
012737
004737
012737
012737

001000
000927
033072
002200
000007

MACY11 30A(1052)
126

TST127:

004504

27-JUL-78

FORMAT ERROR = RHER1

MOV
MOV

JSR

MOV

004650
004656

8 10

12:32

MOV

PAGE 119

(BIT #4)FMT

#STACK,SP
#27 QN TSTNM

PC,a#CLDISK
#RHCS1,a#TMPO
#7 ,XTMPS

sRESET STACK
;SAVE TEST NUMBER

;SET R1-RHCS1, R2=RH(CS2
;FIRST REGISTER TO BE TESTED
sNUMBER OF REGISTERS TO BE TESTED

;*PREPARE TO WRITE HEADER AND DATA CYLINDER 1, TRACK 0, SECTOR 0

;*FILL WRITE FROM BUFFER WITH HEADER
024154
024154
024160
024164
024166
024170
024172
024174
024176

004737
004037
002370
00000«
010001
000000
000000
000000

ST22:

033072
032716

WRFROM
&
10001

004037
002400
000400
002000

032742

024212
024216
024220
024221
024222
024224
024226
024230
024232

004037
000001
000
000

035054

024234
024240
024244

004737
104401

033152
057176

024246

013777

004506

024254
024260
024264

013746
052716
012677

002344
000101

024270
024272
024274
024276
024300

104413

JSR
1
ABYTE
BYIE

=200.-4

177464

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

;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD

RO,a#RUN

WRFROM

;SECTOR 0
;TRACK 0

;WORD COUNT (DATA) = 200. +
;BUS ADDRESS

FMT22
WRIFOR

;16 BITS PER WORD FORMAT
;GET READY TO DO A WRIFOR

JSR

PC,a#CHECKT

MOV

A#RPLVEC,aRPVEC ;SET RP0O4 VECTOR ADDRESS

MOV
BIS

A#WRIFOR,-(SP)
#GO!IE, (SP)

TYPE
HALT

155712

;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 1

;DO NOT INHIBIT BUS ADDRESS INCREMENT

155710

;SET R1-RHCS1, R2-RH(S2
;SAVE HEADER DATA IN WRFROM

;*FILL WRITE FROM BUFFER WITH DATA
;CLEAR 256. WORDS, FROM WRFROM+<4*2>
RO,a#CLAREA
JSR
;STARTING FROM WRFROM+<4#2>
WRFROM+<4 %2>
256.
:256. WORDS
2000
;FILL WITH 2000
s*FILL COMMAND

002370
000000
010000
002344

002200
000200
004704
004704

PC,a#CLDISK
RO, a#F LHEAD

0
0
0

024200
024204
024206
024210

000000

JSR
JSR

MOV

,CPHALT

(SP)+ ,@RHCS1

;*TIME IS NOT IMPORTANT

;CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1
;CANNOT CONTINUE TESTING IF NOT
;STOP TEST

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

WAT
RHCS1

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

2500.
2500.

;RDY MUST SET BETWEEN

RDY

JWAIT FOR RDY BIT IN RHCS1 REGISTER

;ALLOW 25000 MICRO SECONDS

:*NOW BRING THE HEADS TO CYLINDER 0

SEQ 0118

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuL~-78 10:07
5411
5412
5413
5414
5415
5416
5417
5418
5419
5420
5421
5422
5423
5424
5425

004737
104401

c 10
2)
PAGE 120
12:32
30A(105
27=-JUL-78
MACY11
REGISTER MODIFICATION REFUSED = RHER1(BIT #2) ,RMR
127

03315¢
057176

PC,a#CHECKT
LCPHALT

;CANNOT CONTINUE TESTING IF NOT
;STOP TEST

JSR
0

RO, a#SEEKCY

;SEEK FOR

MOV

A#RP4LVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS
a#SEECOM,-(SP)
#GO'IE, (SP)
(SP) +,3RHCS1

TYPE
HALT

024312

000000

024314
024320

004037
000000

024322

013777

024330
024334
024340

013746
052716
012677

MOV
BIS
MOV

024344
024346
024350
024352
024354

104413
002222
000200
002776
001502

WAT
RHDS1

033042
155636

sCYLINDER O

;GET READY TO MOVE COMMAND
;GET READY TO SE' GO AND
;GO WITH
;sWAIT FOR DRY BIT TO SET
sWAIT FOR RHDS1 REGISTER

JWAIT FOR_DRY BIT IN RHDST REGISTER
sALLOW 15340 MICRO SECONDS
;DRY MUST SET BETWEEN

DRY
1534.
834.
;*PREPARE

5456

Y AND VV = 1
,MOL ,DPR,DRY
;CHECKS DVA,RD

JSR

FOR A READ DATA

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA FROM READ

JSR

RO,a#CLAREA

;CLEAR 150. WORDS, FROM WRFROM

024356
024362
024364
024366
024370
024374
024376

032742

024400

004037
002370
000226
002000
004037
003044
000152
000077

024402
024406
024410
024412

004037
003434
000400
000077

032742

JSR

024414
024420
024422
024423
024424
024426
024430
024432
024434

004037
000001

035054

256.
:256. WORDS
77
;FILL WITH 77
;*FILL READ DATA COMMAND
JSR
RO,a#RUN
;SETUP TO RUN FOR DATA COMMAND

WRFROM

150.

032742

2000
JSR
RO,a#CLAREA
WRFROM+<150. %2>
106.
77

REINTO

RO,a#CLAREA

0
0

REINTO

003434
000000
014000
002346

:150. WORDS

sFILL WITH 2000
;CLEAR 106. WORDS, FROM WRFROM+<150.#*2>
:STARTING FROM WRFROM+<150.%*2>
:106. WORDS
SFILL WITH 77

;*FILL READ INTO BUFFER WITH DATA OTHER THAN WHAT IS EXPECTED

BYTE
.BYTE
-150.

000
000
177552

;STARTING FROM WRFROM

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

sCYLINDER 1

;SECTOR 0
:TRACK 0
JWORD COUNT = 150.
;BUS ADDRESS

ECI!FMTZ2?2
READAT

;DO NOT INHIBIT BUS ADDRESS INCREMENT

;16 BITS PER WORD FORMAT

;GET READY TO DO A READAT

;*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE
s*INTO A REGISTER WHILE THE READ IS GOING ON

004037
002172
004512
000022

033240

JSR
RHWC
SAVERE
18.

RO,a#SAVER

5463

024436
024442
024444
024446

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

5466

024450
024454

004737

033152
057176

JSR

PC,a#CHECKT

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

104401

TYPE

,CPHALT

sCANNOT CONTINUE TESTING IF NOT

SEQ 0119

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
26=JuL=- 78 10:07
CZRJJC.PI
5467

5468
5469

5470
5471
5472
5473
5474
5475
5476
5477
5478
5479

MACY11 30A(1052)
127

D 10
27=-JUL-78 12:32 PAGE 121
REGISTER MODIFICATION REFUSED = RHER1(BIT #2) ,RMR
HALT

024460

000000

024462

013777

004506

024470
024474
024500

013746
052716
012677

024504
024510
024514

;STOP TEST

MOV

@#RP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

002346
000101
155474

MOV

Q#READAT ,-(SP)

;GET READY TO MOVE COMMAND

MOV

(SP)+ ,aRHCST

;GO WITH

013700
012730

004650
002006

MOV
MoV

010037

004650

MoV

155476

BIS

#GO'!IE, (SP)

;GET READY TO SET GO AND

a#TMPO RO
;SET UP RO FOR WRITE
#BI1T1!BIT2!BIT10,a(RO)+ ;ATTEMPT TO WRITE INTO
sREGISTERS DURING IMPLIED SEEK
RO,a#TMPO
;SAVE OFF
RO

;*NOW RMR IS SET BUT THE COMPLETION OF READ MUST BE
;*WAITED ON
024520
024522
024524
024526
024530

024532
024536
024540
024542
024544
024546
024552
024554
024556
024560
024562

024566
024570
024572
024576
024600

WAT
RHCS1

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

1183.

sRDY MUST SET BETWEEN

;WAIT FOR RDY BIT IN RHCS1 REGISTER
JALLOW 11830 MICRO SECONDS

RDY
1183.

;*CHANGE SAVED REGISTERS TO EXPECTED VALUE
RO,a#CHREG
;CHANGE BITS IN SAVED REGISTER

033762

JSR

033762

1
BITO
JSR

RO,a#CHREG

sNEW VALUE OF BITO IS 1
;CHANGE BITO BIT
;CHANGE BITS IN SAVED REGISTER

032774

JSR

RO,a#F ILLRE

MOV 1 INTO SAVED RHDST

JSR
RHDS1
2
1

RO,a#CHREG

RHCC
1

RHCS1
1
1
SC
?HDST

033762

s CHANGE RHCC REGISTER
;1 BIT/BITS TO BE CHANGED

004644
033762

032774

024650
024652

032774

004536

:g:¥§0 REGISTER TO CHANGE

;CHANGE BITS IN SAVED REGISTER
;CHANGE RHDS1 REGISTER
;2 BIT/BITS TO BE CHANGED
sNEW VALUE OF ATA IS 1
;CHANGE ATA BIT
sNEW VALUE OF ERR IS 1
; CHANGE ERR BIT

ATA

1
ERR

s CHANGE RHCS1 REGISTER
:1 BIT/BITS TO BE CHANGED
sNEW VALUE OF SC IS 1
;CHANGE SC BIT

BIS
JSR
RHER1

QMATTENT ,@#SAVERE+24 ;SET APPROPIATE 'ATA' BITS
;CHANGE BITS IN SAVED REGISTER
RO,a#CHREG
s CHANGE RHER1 REGISTER

JSR
RHBA

RO, a#F ILLRE

JSR

RO, a#F ILLRE

1
1
RMR

REINTO+<150, %2>

SHUC

;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF RMR IS 1
; CHANGE RMR BIT

;MOV REINTO+<150.%2> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE
;DATA

;MOV O INTO SAVED RHWC

:32¥50 REGISTER TO CHANGE

SEQ 0120

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.P1
26=JUL-78 10:07

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
5550
5551
5552

5553
5554
5555
5556
5557
5558
5559

MACY11 30A(1052)
127

E 10
27-JUL-78 12:32 PAGE 122
REGISTER MODIFICATION REFUSED = RHER1(BIT #2) ,RMR

;*(COMPARE REGISTERS BEFORE READ DATA WITH REGISTERS
024654

024660

024662

024664
024666

024670
024672
024672
024674
024700
024704
024706
024710

004037
004512

;*AFTER READ AID ATTEMPTED MODIFICATION OF REGISTER

034070

002254
000022
024672
024712

010046
013700
014037
104060

2%:

004037
002370
003434
024726
024732

024726
024730

000207

024732
024736
024740
024744

005337
001002
000137
000137

035120

RO,a#COMREG

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

MOV

RO,=(SP)

;;PUSH RO ON STACK

RTS

;DURING A READ COMMAND CAUSED

MOV
MOV
ERROR
MOV

004650
001122

012600
000207

024712
024712
024716
024720
024722
024724

JSR
SAVERE
w(
18.
2%
3%

3%:

a#TMP0 RO
-(R0) ,a#$BDADR
60
(SP)+,RO

;*COMPARE DATA READ
JSR

WRFROM
REINTO
4%

RO,a#(OMPAR

004656

024750
024154

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

;COMPARE TWO BLOCKS OF MEMORY

;GOOD DATA STARTS FROM WRFROM
sTEST DATA STARTS FROM REINTO
;4%, WORDS TO BE COMPARED

;RETURN TO ST23 ON ERROR

ST23

104034

;GET REGISTER BEEING MODIFYED + 2 POINTER
;GET ADDRESS OF REGISTER BEING MODIFYED
;ATTEMPTING TO MODIFY REGISTER
;;POP STACK INTO RO

4%:

ERROR
RTS

;DATA READ WITH AN ATTEMPTED

$123:

DEC

a#TMP5

:DURING READ CAUSED ERROR
; COUNT DOWN

TST30

;JUMP TO NEXT TEST

1%:

BNE
JMP
JMP

a#sST22

sMODIFICATION OF REGISTER

sBRANCH IF 7 NOT DONE

;JUMP TO BEGINING OF TEST

SEQ 0121

CZRJJCO, RPO4/S5/6 FCTNL
CZRJJC.PN
26=JUL~78
5560
5561
5562
5563

024750
024752
024756
024764

000004
012706

024770
024776

T30

TS730:

012737
004737

001000
000030
033072

004504

012737
012737

002200
000007

004650
004656

27=JUL-78

F 10

12:32

PAGE 123

(BIT #2),'RMR’

MOV
MOV

#STACK,SP
#30,a4TSTNM

JRESET STACK
;SAVE TEST NUMBER

MOV

#RHCS1,a#TMPO

;FILL REGISTER TO BE MODIFIED

JSR

MOV

PC.,a#CLDISK
#7 ,8TMPS

;SET R1-RHCS1, R2=RH(S2
;NUMBER OF REGISTERS TO BE TESTED

;*PREPARE TO WRITE HEADER AND DATA
025004
025004

004737

025010
025014
025016
025020
025022
025024
025026

004037
002370
000004
010001
000000
000000
000000

032716

025030
025034
025036
025040

004037
002400
000400
070707

032742

025042
025046
025050
025052

004037
003400
000004
010001

032716

025054
025056
025060

033072

ST24:

JSR

PC,a#CLDISK

:*«FILL WRITE FROM BUFFER WITH HEADER
JSR
RO, a#F LHEAD
:SAVE HEADER DATA [N WRFROM
WRFROM
;LOCATION WHERE SAVED
4

;NUMBER OF WORDS SAVED

0
0
0

;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD

10001

000001
000000
000000

;FIRST DATA WORD

;*FILL WRITE FROM BUFFER WITH DATA
:CLEAR 256. WORDS, FROM WRFROM+<4*2>
RO,a#CLAREA
JSR
:STARTING FROM WRFROM+<4*2>
WRFROM+<4 %2>
;256. WORDS
256.
:FILL WITH 070707
070707

;*«FILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER
JSR
RO ,a#F LHEAD
:SAVE HEADER DATA IN WRFROM+<260.*2>

WRFROM+<260. *2>
“
10001
1
0

032742

025072

004037
003420
000004
070707

025074
025100
025102
025103
025104
025106
025110
025112
025114

004037
000001
000
000
177364
002370
000000
010000
002344

035054

025116

004737

033152

:SET R1=-RHCS1, R2-RH(SZ2

;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD
;SECOND DATA WORD
;THIRD DATA WORD

;FOURTH DATA WORD

;*FILL WRITE FROM BUFFER WITH WITH NEXT SECTOR DATA
;CLEAR 4 WORDS, FROM WRFROM+<268.*2>
RO,a#CLAREA
JSR
;STARTING FROM WRFROM+<268.*2>
WRFROM+<268. *2>
-

;4 WORDS

70707

;FILL WITH 70707

;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED

#SR

RO,a#RUN

BYTE
BYTE

@
O

=264 .4

WRFROM

;SECTOR 0
;TRACK 0

;WORD COUNT (DATA) = 264. +
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT

0
FMT2?2

WRIFOR

JSR

:gsT?zbgg ?UN FOR DATA COMMAND
CYL
s

;GET READY TO DO A WRIFOR

PC,a#CHECKT

;CHECKS DVA,RDY,MOL .DPR,DRY AND VV = 1

SEQ 0122

TMM

MACY11 30A(1052)

5616
5617
5618
5619

025122
025126

000000

104401

057176

025130

013777

004506

025136
025142

013746
052716
012677

002344
000101

025152
025154
025156
025160
025162

104413

025146

MACY11 30A(1052)
130

155030

155026

27=JUL=78

G 10
12:32 PAGE 124

SEQ 0123

(BIT #2),'RMR’

TYPE
HALT

LCPHALT

s CANNOT CONTINUE
;STOP TEST

TESTING

MOV

@¥RPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

A#WRIFOR,=(SP)
#GO!IE, (SP)
(SP)+ ,aRHCS1

NOT

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

:*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR=760 MICRO SEC

WAT
RHCS1
RDY
981.

002200
000200
001725
001502

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1
;ALLOW 9810 MICRO SECONDS

834.

;RDY MUST SET BETWEEN

;*NOW PREPARE FOR THE WRITE DATA COMMAND
025164
025170
025172
025174
025176
025202
025204
025206

004037
002370
000400
002000
004037
003370
000004
002001

032742

025210
025214
025216
025217
025220
025222
025224
025226
025230

004037
000001
000
000

035054

s*FILL WRITE FROM BUFFER WITH 256 OF 2000 AND 4 OF 2001

JSR

WRFROM

JSR

RO,a#RUN

;SETUP TO RUN FOR DATA COMMAND

BYTE
.BYTE
-256.

0
0

;SECTOR O
;TRACK 0
;WORD COUNT = 256.

;16 BITS PER WORD FORMAT

WRIDAT

033152
057176

025256

013777

004506

025264
025270
025274

013746
052716
012677

002342
000101
154700

;DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT2?2

004737

sCYLINDER

;BUS ADDRESS

025244
025250
025254

WORDS

sFILL WITH 2001

WRF ROM

033240

000000

SFILL WITH 2000
;CLEAR 4 WORDS, FROM WRFROM+<256.%*2>
;STARTING FROM WRFROM+<256.%2>

;*FILL WRITE DATA COMMAND

177400

004037
002172
004512
000022

;STARTING FROM WRFROM

:256. WORDS

2001

025232
025236
025240
025242

;CLEAR 256. WORDS, FROM WRFROM

256.

2000
JSR
RO,a#CLAREA
WRFROM+<256. %2>

032742

002370
000000
010000
002342

104401

RO,a#CLAREA

;GET READY

TO DO A WRIDAT

;*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED
s*REGISTER MODIFICATION DURING A WRITE DATA

JSR

RHW(

RO,a#SAVER

SAVERE

TYPE

THE

FIRST REGISTER SAVED

;NUMBER OF REGISTERS
PC,a#CHECKT
LCPHALT

HALT

154702

JRHWC

;STARTING ADDRES OF WHERE

18.

JSR

;SAVE REGISTERS

s CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1
sCANNOT

CONTINUE

TESTING

;STOP TEST

MOV

@#RP4VEC ,QRPVEC

;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

a#WRIDAT,-(SP)
#GO!IE, (SP)
(SP) + ,@RH(S1

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

NOT

TMTM

CZRJJCO, RPOL/S5/6 FCTNL CTRLR2
CZRJJC.P1
26=JUL~-78 10:0 7

CZRJJCO, RPO4L/S5/6 FCTNL CTRLRZ2
CZRJJC.P1T
26=-JuL-78 10:07
5672
5673
5674

MACY11 30A(1052)
T30

H 10

27=JUL-78 12:32 PAGE 125
REGISTER MODIFICATION REFUSED = RHER1

025300
025304

013700
012730

004650
002002

MOV
MOV

a#TMPO RO
#81T1!B1T10,a(RO)+

025310

010037

004550

MOV

RO,a#TMPO

(BIT #2),'RMR’

sSET RO TO REG ADDRESS
JATTEMPT TO WRITE INTO A REGISTER
;sDURING WRITE DATA
;SAVE OFF NEW REG ADDRESS

;*NOW RMR MUST BE SET BUT THE COMPLETION OF
;*WRITE DATA MUST BE WAITED ON
WAT
RHCS1

025314
025316
025320
025322
025324

sWAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER

JWAIT FOR RDY BIT IN RHCST REGISTER
sALLOW 9810 MICRO SECONDS
;RDY MUST SET BETWEEN

RDY
981.
834.

;*CHANGE SAVED REGISTERS TO EXPECTED VALUE
JSR
RO,a#CHREG
;CHANGE BITS IN SAVED REGISTER

033762

025326
025332
025334
025336

RHCC
1

1
BITO
JSR
RHCS1

033762

s CHANGE RHCC REGISTER
;1 BIT/BITS TO BE CHANGED

RO,a#CHREG

1
1

SC
JSR

033762

RHDS1
2
1

;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF SC IS 1

RO,a#CHREG

ATA

004644
033762

032774

032774
032774

025446

004536

1
ERR

BIS
JSR

RHER1
1
1
RMR
JSR
?HDST

;CHANGE SC BIT
;CHANGE BITS IN SAVED REGISTER
;CHANGE RHDS1 REGISTER
;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA IS 1
s CHANGE ATA BIT

;NEW VALUE OF ERR IS 1
; CHANGE ERR BIT

Q¥ATTENT ,@#SAVERE+24 ;SET APPROPIATE °'ATA' BITS
RO,a#CHREG
;CHANGE BITS IN SAVED REGISTER

RO,a#F ILLRE

JSR
RHBA

RO,a#F ILLRE

JSR

RO,a#F ILLRE

WRFROM+<256. %2>
SHUC

sNEW VALUE OF BITO IS 1
;CHANGE BITO BIT
;CHANGE BITS IN SAVED REGISTER
;CHANGE RHCS1 REGISTER

s CHANGE RHER1 REGISTER
;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF RMR IS 1
;CHANGE RMR BIT
MOV 1 INTO SAVED RHDST
:g:¥§b REGISTER TO CHANGE

;MOV WRFROM+<256.%2> INTO SAVED RHBA
:SAVED REGISTER TC CHANGE
:DATA

;MOV O INTO SAVED RHWC

:g:¥£b REGISTER TO CHANGE

;*COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS
025450
025454
025456
025460
025462
025464

004037
004512
002254
000022
025466
025506

034070

;*AFTER WRITE AND ATTEMPTED MODIFICATION OF REGISTER

JSR
SAVERE
wC
18.
2%
3%

RO, a#(COMREG

;COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'
sTEST DATA STARTING FROM ‘RHW(C'
;18. REGISTERS TO BE COMPARED
;RETURN TO 2% ON ERROR
;RETURN TO 3% ON NO ERROR

SEQ 0124

CZRJJCO, RPOL/S/6 FCTNL CTRLRZ
CZRIJC.P
5728
5729

5730
5731
5732
5733
5734
5735
5736
5737

26~JuL-78 10:07

025466

025466
025470
025474
025500
025502
025504

010046
013700
014037
104060
012600
000207

MACYT 30A(1052)
130

2%:

004550
001122

5738
5739
5740
5741
5742

g;zz

025506

004737

033072

5746

025512

004037

032742

5748
5749
5750
5751

025520
025522
025524
025530

000400
002000
004037
003370

g;gz

025534

002001

5745

5747

5752

5755
5756
5757
5758
5759

5760
5761

5762
5763
g;gg

025516

025532

002370

(35054

025560

025564
025566
025570

004037

033240

5772
5773

025572
025576

004737
104401

033152
057176

g;;g

025604

013777

004506

5778
5779

025612
025616

013746
052716

002346
000101

5780
5781
5782

5783

025622
025626
025630

012677
011100
011305

RO,=(SP)
a#TMPO RO
-(R0) ,a#$BDADR
60
(SP)+,RO
PC

;*CLEAR ALL ERROR FLAGS

JSR

PC,a#CLDISK

WRFROM

RO,a#CLAREA

256.
2000
JSR
RO,a#CLAREA
WRFROM+<256. %2>
2001

004037
000001
000
000
177374
003434
000000
014000
002346

000000

MOV
MOV
MOV
ERROR
MOV
RTS

“

025536
025542
025544
025545
025546
025550
025552
025554
025556

025602

PAGE 126

154352

;;PUSH RO ON STACK
;GET REGISTER BEEING MODIFYED + 2 POINTER
:GET ADDRESS OF REGISTER BEING MODIF YED
SATTEMPTING TO MODIFY REGISTER
;;POP STACK INTO RO
;DURING A WRITE COMMAND CAUSED
s IMPROPER REGISTER GIVES WHAT SHOULD
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT WAS
;THERE AFTER READ

;SET R1-RHCS1, R2-RH(S2

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA

000004

002172
004512
000022

I 10

12:32

JSR

032742

5766
5767
5768
5769
g;;?

g;;é

3%:

27=-JUL=78

;CLEAR 256. WORDS, FROM WRFROM
*STARTING FROM WRFROM

:256. WORDS
;FILL 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
JSR
RO,a#RUN
;SETUP TO RUN FOR DATA (COMMAND
1
sCYLINDER 1
BYTE
0
;SECTOR 0
.BYTE
0
;TRACK 0
=260.
:WORD COUNT
= 260.
REINTO
:BUS ADDRESS
0
:DO NOT INHIBIT BUS ADDRESS INCREMENT
ECI!FMT2?2
;16 BITS PER WORD FORMAT
READAT
;GET READY TO DO A READAT
;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND
JSR
RO,a#SAVER
;SAVE REGISTERS

RHW(
SAVERE
18.

JSR
TYPE

PC,a#CHECKT
LCPHALT

MOV

A#RP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS

Q#READAT ,-(SP)
#GO!IE, (SP)

HALT

154354

JRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE
sNUMBER OF REGISTERS

MOV
MOV
MOV

(SP) + ,aRH(CS1
aR1,R0
aR3.R5

;CHECKS DVA,RDY
,MOL ,DPR,DRY AND VV = 1
sCANNOT CONTINUE TESTING IF NOT
;STOP TEST

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

;GO0 WITH
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

SEQ 0125

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26-JUL~78 10:07
5784

025632
025634
025636
025640

J 10
27=JUL=78 12:32 PAGE 127
MACY11 30A(1052)
REGISTER MODIFICATION REFUSED = RHER1
T30

104413

002200
000200
002346
004101
001124

010500
001124

70%:

001126
004500

025722

WAT
RHCS1T
RDY
981.
834.
MOV
BIS
MOV
cMP

;WAIT FOR RDY BIT TO SET
sWAIT FOR RHCS1 REGISTER
sWAIT FOR RDY BIT IN RH(S1 REGISTER
JALLOW 9810 MICRO SECONDS
;RDY MUST SET BETWEEN
a#READAT ,-(SP)
;SAVE COMMAND
#1E!DVA!GO,
(SP) ;INCLUDE IE'!DVA!GO
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
(SP)+,RO
;DURING ABOVE OPERATION ONLY IE:!DVAIGO

MOV
MOV
ERROR

RO,a#$BDDAT
R1,a#REGADR
21

;BAD DATA
sFAILING REGISTER RHCS1
:DURING ABOVE OPERATION ONLY

MOV
CMP
BEQ
MOV

(SP) ,a#$GDDAT
(SP)+ RS
72%
RS ,a#$BDDAT

;SAVE FOR PRINTOUT
:DURING ABOVE OPERATION ONLY MOL !DPR!VV
;BRANCH IF GOOD
;BAD DATA

BEQ

001126
004500

(BIT #2),'RMR'

MOV

MOV
ERROR

708

;BRANCH IF GOOD

#MOL 'DPR!VV,=-(SP)

R3,a#REGADR
63

SEQ 0126

:SAVE BITS SET DURING OPERATION IN RHDS1

JFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES

025724
025730
025732

032774

JSR
RHWC
0

RO,a#F ILLRE

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

025734
025740
025742
025744
025750
025752

032774

JSR
RHBA

RO,a#F ILLRE

:MOV REINTO+<260.%2> INTO SAVED RHBA
:SAVED REGISTER TO CHANGE

JSR

RO,a#F ILLRE

RE INT0+<260. %2>

032774

gHDST

;DATA

:MOV 2 INTO SAVED RHDST

:gfi¥ib REGISTER TO CHANGE

;*NOW COMPARE REGISTERS BEFORE READ DATA WITH

025754
025760
025762
025764
025766
025770

004037
004512
002254
000022
025772
025776

025772
025774

104033
000207

034070

;*AFTER COMMAND
RO, a#COMREG
JSR

; COMPARE SAVED REGISTERS WITH

;RETURN TO 4$ ON ERROR

SAVERE
wC
18.
5%

4%:

ERROR
R7S

;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHW(C'
;18. REGISTERS TO BE COMPARED
;RETURN TO 5% ON NO ERROR

;READ DATA CAUSED IMPROPER REGISTER
s CHANGE

;GOOD DATA GIVES WHAT SHOULD BE THERE

JRECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND
:'cgg ggsg INTO BUFFER WILL BE CHECKED TO SEE THAT READ
. %

025776
025776
026002
026004
026006
026010
026012

004037
002370

003434

000400
026014
026020

035120

5%:

JSR

WRFROM
REINTO

256.
6%

$T28

RO,a#(COMPAR

;COMPARE TWO BLOCKS OF MEMORY

;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

:256., WORDS TO BE COMPARED
;RETURN TO 6% ON ERROR
;RETURN TO ST28 ON NO ERROR

(ZRJJCO, RPO4/S5/6 FCTNL CTRLRZ2

CZRJJC.PN

026014
026016

026020

026024
026026
026032

26=JuL-78 10:07
104034

000207
005337
001002
000137
000137

004656

026036
025004

730

K 10
27=JUL~78 12:32 PAGE 128
REGISTER MODIFICATION REFUSED = RHER1

6%:

ERROR

MACY11 30A(1052)

ST28:
18:

RTS

(BIT #2),'RMR’

;READ DATA ERROR AFTER A WRITE DATA
;WITH REGISTER MODIFICATION

;WITHIN THE WRITE DATA

s*IF ALLa; REgISTERS NOT COMPLETE THEN REPEAT

DEC

BNE

JMP

TST31

ST24

s COUNT DOWN

:BRANCH IF 7 NOT DONE
:JUMP TO NEXT TEST
;JUMP TO BEGINING OF TEST

SEQ 0127

C(ZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PI
26=JUL-78 10:07

026036
026040
026044
026052

000004
012706
012737
004737

001000
000931
033072

026056
026062
026064
026066

004037
002370

032742

026070
026074
026076
026100

004037
003434
000400

032742

026102
026106
026110
026111
026112
026114
026116
026120
026122

004037
000000
000

026124
026130
026132
026134

004037
002172
004512
000022

033240

026136
026142
026146

004737
104401

033152
057176

026150

013777

004506

026156
026162
026166
026172
026174

013746
052716
012677
011100
011305

002346
000101

026176

012777

177777

026204
026206
026210
026212
026214
026216
026222

L 10

27-JUL=-78 12:32 PAGE 129
MACY11 30A(1052)
T30
REGISTER MODIFICATION REFUSED = RHER1
TST31:

004504

;SET R1-RH(CS1, R2-RH(SZ2

;STARTING FROM WRFROM

256.
0

:256. WORDS
SFILL WITH O

REINTO

;STARTING FROM REINTO

-1

sFILL WITH =1

256.

:256. WORDS

;*NOW THE READ DATA COMMAND WILL BE FILLED

JSR
0
BYTE
.BYTE
=256.

035054

RO,a#RUN

0
0

REINTO

003434

0
ECI!FMT22

000000
014000
002346

READAT

;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 0
;SECTOR 0
;TRACK 0
;WORD COUNT = 256.
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;GET READY TO DO A READAT

;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND

JSR
RHWC

RO,a#SAVER

JSR

PC,a#CHECKT

MOV

@#RP4LVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS

@#READAT ,-(SP)
#GO!IE, (SP)

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

MOV
MoV

aR1,.R0
aR3.R5

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

MOV

#=1,3RHAS

;WRITE INTO RHAS THIS SHOULD
sNOT SET RMR

SAVERE
18.

TYPE
HALT
154010

MOV

154006

154012

WAT
RHCS1
RDY
1750.
125.
MOV

BIS

;SAVE REGISTERS
JRHWC IS THE FIRST REGISTER SAVED

;STARTING ADDRES OF WHERE
;NUMBER OF REGISTERS
LCPHALT

(SP) + ,@RHCS1

;*TIME IS NOT IMPORTANT

002346
004101

sRESET STACK
;SAVE TEST NUMBER

;*FILL READ INTM BUFFER WITH ALL ONES
JSR
RO.a#CLAREA
;CLEAR 256. WORDS, FROM REINTO

000
177400

013746
052716

PC.a#CLDISK

WRFROM

177777

104413
002200
000200
003326
000175

JSR

#STACK,SP
#31,a4TSTNM

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA
JSR
RO,a#CLAREA
;CLEAR 256. WORDS, FROM WRFROM

000400
000000

000000

SCOPE

MOV
MOV

(BIT #2),'RMR'

QH#READAT ,-(SP)

;CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1
;CANNOT CONTINUE TESTING IF NOT
;STOP TEST

;GO WITH

sWAIT FOR RDY BIT TO SET
sWAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 17500 MICRO SECONDS
sRDY MUST SET BETWEEN
;SAVE COMMAND

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

SEQ 0128

CZRJJCO, RPO4/S/6 FCTNL CTRLR2
CZRJJC.PN

26=JUL-78 10:07

5905
5906
5907
5908
5909
5910

026234
026236

026246

011637
022600
001405
010037
010137
104021

5912
5913
5914
5915
5916
gg}g

026254
026260
026262
026264
026270
026274

011637
022605
001405
010537
010337
104063

5911

5919
5920
5921
5922

5923

5924
5925
5926
5927
5928
5929
5930
gg%;

026226
026232

026242

026250

012746

001126

004500

010500
001124

032774

026306

004037

032774

026312
026314
026316
026322
026324
026326
026332
026334

002174
004434
004037
002204
000001
004037
002234

64%:

001126
004500

004037
002172
000000

001124

026276
026302
026304

MACY11 30A(1052)

026336
026342
026344
026346
026350
026352

5942

026354

5944
5945
5946
5947

(BIT #2)RMR

MOV
CMP
BEQ
MOV
MOV
ERROR

(SP) ,a#$GDDAT
(SP)+,R0
648
RO,a#$BDDAT
R1,a#REGADR
21

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY IE!DVA!GO

MOV
CMP
BEQ
MOV
MOV
ERROR

(SP) ,a#$GDDAT
(SP)+,R5
66%
RS ,a#$BDDAT
R3,a#REGADR
63

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY MOL !DPR!VV
;BRANCH IF GOOD
;BAD DATA
sFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

MOV

JSR

SEQ 0129

;BRANCH IF GOOD
;BAD DATA

RO,a#F ILLRE

032774
032774

026356

004037
004512
002254
000022
026354
026360
104033

026360
026364
026366
026370
026372
026374

004037
002370
003434
000400
026376
026402

5956
2325

026376
026400

104034
000207

5959

026402

JSR
SAVERE
wC
18.
1%
2%
1%:

000207

026360

;*AFTER COMMAND

034070

035120

2%:

3%:
4%:

ERROR

c2l
(W4

1
|
1
1

;FAILING REGISTER RHCS1

:DURING ABOVE OPERATION ONLY

#MOL !DPR!VV,=(SP)

RHBA
REINTO+<256. %2>
JSR
RO.,a#F ILLRE
RHDST
1
JSR
RO,Q#F ILLRE
RHCC

000000

5948

5949
5950
5951
5952
5953
ggg?

PAGE 130

;SAVE BITS SET DURING OPERATION IN RHDS1

:DATA

;MOV_REINTO+<256.%2> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE
;DATA
MOV 1 INTO SAVED RHDST
;SAVED REGISTER TO CHANGE
;DATA
sMOV 0 INTO SAVED RHCC
;SAVED REGISTER TO CHANGE
:DATA

;*NOW COMPARE REGISTERS BEFORE READ DATA WITH

5935
5936
5937
5938
5939
232?
5943

M 10

12:32

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES
JSR
RO,a#F ILLRE
;MOV O INTO SAVED RHWC
RHWC
;SAVED REGISTER TO CHANGE

5933
5934

27-JuL-78

RO, a#COMREG

;COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN ‘'SAVERE'
sTEST DATA STARTING FROM 'RHWC'
;18. REGISTERS TO BE COMPARED
sRETURN TO 1$ ON ERROR
;RETURN TO 2% ON NO ERROR

;READ DATA CAUSED IMPROPER REGISTER

RTS

s CHANGE

JSR
WRFROM
REINTO
256.
33
4%

RO,a#COMPAR

;COMPARE TWO BLOCKS OF MEMORY
2GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
:256., WORDS TO BE COMPARED
;RETURN TO 3$ ON ERROR
JRETURN TO 4% ON NO ERROR

ERROR
RTS

34
PC

;JREAD DATA ERROR AFTER WRITING INTO
;RHAS DURING READ

;GOOD DATA GIVES WHAT SHOULD BE THERE
sRECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND
;*NOW READ INTO BUFFER WILL BE CHECKED TO SEE THAT READ
;*WAS GOOD

1
|
|

TRLR

0:07

N 10
27-JUL-78 12:32 PAGE 131
MACY11 30A(1052)
REGISTER MODIFICATION REFUSED = RHER1
31

SEQ 0130

(BIT #2)RMR

czi
(W4

30%:

JMP

s *GENERATE ILLEGAL FUNCTION
001200
002322
000021

1%:

2%:

001200

000002

CLR

#2,a48TMP1
1%

001200

3%:
000100

026500
026502
026504
026510
026516

027230
001200
000002

001200

002364
001200

20%:
19%:

aNsTMP
#FUTABL ,RO
#17. ,R5
a#$TMP1,(RO)+
3%

JMP
MOV
ADD

;GET READY TO MAKE ILLEGAL FUNCTION
;GET POINTER TO BEGINNING OF COMMANDS
;COUNTER (17 GOOD FUNCTIONS)
;IS THIS A LEGAL FUNCTION
;BRANCH IF NOT LEGAL
;MAKE ANOTHER FUNCTION
;GET READY TO TEST NEW FUNCTION
sNOT LEGAL SO DECREMENT COUNTER

#100,a#8TMP1
20%

sBRANCH IF 17 NOT DONE
sALL BITS UP TO BIT #5 COMPARED?
;BRANCH OUT IF DONE

as7s

; DONE

19%

012737

026532

MoV

#2,a48TMP1

#4S ,a#SLPERR

;ERROR RETURN POINT

;*SAVE REGISTERS FOR COMPARISON AFTER GO

004737
005077
005077
023727

026554
026556

103014
012737

100000

026564

005037

027154

CLR a#128+12

026570
026574
026600
026604
026606
026614
026616

005037
005037
005037
000500
022737
001020
012737
012737
012737
012737
012737

027160
027170
027200

CLR
CLR

H128+16
a#158+6

MOV
MOV
MOV
MOV

#204 ,a4158+6
;RHBA SHOULD HAVE 204
#102,a416%+6
JRHWC SHOULD HAVE 102
#MXF 'OR,a#128+12;RHCS2 SHOULD HAVE MXF AND OR
#IR,a412%+16
;RHCS2 SHOULD HAVE IR CLEARED

000050

JSR
CLR
CLR
cMP

PC,a#CLDISK
aRHW(
aRHBA
Q¥ ILLEGL ,#50

027132

BHIS
MOV

13%
#SC,ax118+12

033072

153430
153426

002364

000064

002364

000100

027132
027170
027200
027154
027160

13%:

CLR
BR
CMP
BNE
MOV

;GET READY FOR NEW FUNCTION NEXT TIME

026532
026532
026536
026542
026546

4%:

a#$TMP1 ,a#ILLEGL ;AN ILLEGAL FUNCTION IS FOUND

;*IT IS IN "ILLEGL®

001110

;BRANCH TO CONTINUE

s*ILLEGAL FUNCTION HAS BEEN FOUND
026524

)

;RH70 CONTROLLER ?
;SKIP NEXT IF NOT = 1
;IF SO SKIP THIS TEST

A#RH70
308
TST33

sSAVE TEST NUMBER
;SET R1-RHCS1, R2-RH(S2

TST
BEQ

JSR

sRESET STACK

#32 ,a8TSTNM
PC,a#CLDISK

027230

#STACK,SP

004640

004504

SCOPE

MOV
MOV

SHLy

005737
001402
000137

TST32:

001000
000932
033072

012706
012737
004737

;SET R1-RHCS1, R2-RHCS2
;CLEAR WORD COUNT
;CLEAR BUS ADDRESS
250 AND HIGHER FUNCTIONS ARE DATA

sFUNCTIONS WHICH WILL SET MXF AND TRE
JBRANCH IF ILLEGL IS HIGHER THAN 50
;EXPECTED VALUE OF RHCS1 SHOULD HAVE
sONLY SC ADDED
JEXPECTED VALUE OF RHCSZ2 SHOULD HAVE
;NOTHING ADDED
sNO BITS TO BE CLEARED IN RH(CSZ2
;RHBA SHOULD BE 0

a#16$+6
;CLEAR SAVED RHWC
;BRANCH
14%
#64 ,a# ILLEGL
;1S FUNCTION 64
sBRANCH IF NOT
17%
#SC!TRE ,a#118+12; SAVED RHCS1 SHOULD HAVE SC AND TRE

000004

CZRJJCO, RPO4L/5/6 FCTNL
CZRJJC.PN
26=JUL-78

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2
CZRJJC.PN

26-JuUL-78 10:07

6016
6017
6018
6019
6020
6021
6022
6023
6024

026654
026656
026664
026666
026674
026702
026710
026716
026724

000454
022737
001030
012777
012777
012737
012737
012737
012737

6026

026736

012737

6031

6032

6033
6034
6035

026744
026746
026752
026756

026764

026770

026774
027002

027006

000420
005077
005077
012737

005037

027200

001000
(27160

6036
6037
6038
2823

027006
027012
027014
027016

004037
002172
004512
000022

033240

6041
6042

027020
027024

004737
104401

033152
057176

6043
6044
6045
6046
6047
6048

6049
6050
ggg}

6053

6054
6055
6056
6057
6058
6059
6060
6061
6062
6063
6064
6065
gggg

6068

6069

6070
6071

027030
027032
027036
027042
027044
027046

027050
027052
027054

027056
027062
027064
027066
027070
027072
027076
027100
027102
027104
027106
027110
027112
027120

027120
027124

000000
013746
052716
012611
104413
002200

027160

MOV

#IR,aN12%8+16

CLR

a#15%8+6

;RHBA

A#MXF ,a#128+12
a#128+16

;RHCS2
sRHCS2

17%:

CLR

18%:

027132

027154
14%:

MoV
CLR

w12$+16

#168+6

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

JSR
TYPE

PC,a#CHECKT
LCPHALT

;CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1
s CANNOT CONTINUE TESTING IF NOT

Q#ILLEGL,=(SP)
#GO!IE, (SP)
(SP)+,aR1

;STOP TEST
;GET ILLEGAL FUNCTION
;INCLUDE IE AND GO
;GO TO RHCST WITH ILLEGAL FUNCTION
sWAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER

;WAIT FOR RDY BIT IN RHCS1 REGISTER
sALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

s *CHANGE SAVED REGISTERS TO EXPECTED VALUE
JSR
RO,a#CHREG
;CHANGE BITS IN SAVED REGISTER
RHER1
;CHANGE RHER1 REGISTER
1
;1 BIT/BITS TO BE CHANGED
1
;NEW VALUE OF ILF IS 1
ILF
;CHANGE ILF BIT
JSR
RO,a#CHREG
;CHANGE BITS IN SAVED REGISTER
RHDS1
;CHANGE RHDS1 REGISTER
2
;2 BIT/BITS TO BE CHANGED
1
;NEW VALUE OF ATA IS 1
ATA
. CHANGE ATA BIT
1
sNEW VALUE OF ERR IS 1
ERR
; CHANGE ERR BIT
BIS
QNATTENT ,a#SAVERE+24 ;SET APPROPIATE ‘ATA' BITS

033762

:RHWC

RO,a#SAVER

907.

004644

:RHCS2 SHOULD HAVE IR CLEARED

14%
:BRANCH
aRHW(
;CLEAR RHWC
aRHBA
;CLEAR RHBA
#SC!TRE,a#118+12:RHCS1 SHOULD HAVE SC AND TRE

RDY
908.

033762

004536
11%:

SEQ 0131

;RHCS2

JSR
RHWC
SAVERE
18.

HALT
MOV
BIS
MOV
WAT
RHCS1

002364
000101

001613

004037
(002200

BR
CLR
CLR
MOV
CLR

000200
001614

004037
002202
000001
000001
000001
004037
002222
000002
000001
100000
000001
040000
053737

PAGE 132

ILLEGAL FUNCTION RHER1 = (BIT #0,ILF)

153276
153272
027132
027170
027200
027154

000100

027170

B N

12:32

14%
;BRANCH
#66,a4 (LLEGL
;1S FUNCTION 66
18%
sBRANCH_IF NOT
#-70. ,aRHWC
; MOVE 70 INTO RHWC
#WRFROM,QRHBA
FILL RHBA WITH WRFROM
#SC!TRE ,a#118+12;SAVED RHCS1
HURFROM=<66. %2>, 158+6; RHBA
#-4.,16%+6
;SAVED RHWC
#MXF IOR,a#128+12° ; SAVED RHCS2

177672
002370
140000
002164
177774
001200

153220
153216
140000

27-JuL-78

BR
CMP
BNE
MOV
MOV
MOV
MoV
MOV
MOV

002364

005037

012737
005037

132

000066

6025 026732 005037 027160
6027
6028
6029
6030

MACY11 30A(1052)

;*RHCST WILL HAVE SC AND TRE ADDED IF FUNCTION IS GREATER THAN 50
JSR
RHCS1

RO,a#CHREG

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS1 REGISTER

CZRJJCO, RPO4/S5/6 FCTNL CTRLRZ2

CZRIJC.P11
6072
6073
6074
6075

027126
027130
027132
027134

6078
6079
6080
6081
6082
6083

027142
027142
027146
027150
027152
027154

6084
6085
6086
6087
6088
6089
6090
6091
6092
6093

26=JuL-78 10:07

027156
027160
027162
027162
027166
027170
027172
027172
027176
027200

000001
000001
100000
053737

cn
MACY11 30A(1052)
27=JUL-78 12:32 PAGE 133
132
ILLEGAL FUNCTION RHER1 - (BIT #0,ILF)
1
1

002364

004037
002176
000002
000001
001000

033762

004037
002174
000000

032774

004037
002172
000000

032774

SC
BIS

004520
12%:

15%:

16%:

004037
004512
002254
000022
027220
027224

6103
6104

027220
027222

104051
000207

53:

000137

6%:
7%:

6113

027230

;*RHCS2 WILL HAVE NOTHING ADDED IF FUNCTION IS LESS THAN 50
JSR
RH(CSZ2
2
1

RO,a#CHREG

034070

sNEW VALUE OF IR IS O
;CHANGE IR BIT

JSR

RO,a#F ILLRE

JSR

RO,a#F ILLRE

RHBA
0

10%:

sMOV O INTO SAVED RHBA

;SAVED REGISTER TO CHANGE
;DATA

sMOV O INTO SAVED RHWC

:g:¥§D REGISTER TO CHANGE

;*NOW COMPARE REGISTERS
RO, a#COMREG
JSR
SAVERE
wC

AFTER GIVING AN ILLEGAL COMMAND
;COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN ‘SAVERE'
sTEST DATA STARTING FROM 'RHW(C'

5%
6%

;JRETURN TO 5% ON ERROR
JRETURN TO 6% ON NO ERROR

18.

026440

;CHANGE BITS IN SAVED REGISTER
;CHANGE RHCS2 REGISTER
;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF MxF IS 1
;CHANGE MXF BIT

0
IR

SHUC

027202
027206
027210
027212
027214
027216

027224
027230

; CHANGE SC BIT
a#ILLEGL,alSAVEREIS égggUbE ILLEGAL FUNCTION

MXF

000000
000100

6096
6097
6098
6099
6100
6101

6110
6111

;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF SC IS 1

ERROR

RTS

JMP

a#1$

;18. REGISTERS TO BE COMPARED

;GIVING ILLEGAL FUNCTION CAUSED
; IMPROPER REGISTER CHANGE

;GOOD DATA GIVES WHAT
;SHOULD BE THERE
JRECEIVED DATA GIVES REGISTER
;CONTENTS AFTER ILLEGAL
;FUNCTION WA GIVEN

;BRANCH FOR NEXT FUNCTION

SEQ 0132

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PN
26-JUL-78 10:07
6118
6119
6120
6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6137
6138
6139
6140
6141
6142

6143

6144
6145
6146
6147

6148
6149
6150
6151
6152
6153
6154

027230
027232
027236
027244

000004
012706
012737
004737

027250
027256
027262

012777
012700
010077

002370

027266

DN
MACY11 30A(1052)
27=-JUL=-78 12:32 PAGE 134
132
ILLEGAL FUNCTION RHER1 = (BIT #0,ILF)
TST33:

001000
000933
033072

004504

177374

152714

SCOPE

MOV

MOV
JSR

#STACK ,SP
#33,a4TSTNM
PC,a#CLDISK

SEQ 0133

JRESET STACK

;SAVE TEST NUMBER
;SET R1-RH(CS1, R2=-RH(S2

;*THESE ARE REGULAR SETUPS

152706

MOV
MoV
MOV

#-260. ,aRHWC
#WRFROM,RO
RO, aRHBA

012710

010000

MOV

#FMT22,(RO) ;

;256 DATA WORDS 4 HEADER WORDS
sTHESE TWO INSTRUCTIONS GETS
;ADDR. OF WRFROM BUFFER INTO RO AND
;BUS ADDRESS REGISTER
;FORMAT=16 BIT WORDS

027272
027276
027300
027302

012720
005020
005020
012705

000001

MOV
CLR
CLR
MOV

#1,(RO)+
(RO) +
(RO) +
#256. ,R5

s COUNTER

027306
027312
027314
027316
027324
027330
027334
027336

012720
005305
001374
012777
004737

177777

027342
027346
027354

005037
012777
005077

004632
010000

027360
027364
027366

004037
002172
004512
000023

033240

027370

104401

000000
013711

000400

000001
033152
057176

1%:

152660

152632

;*SETUP DATA, WRITE HEADER & DATA, AND FORMAT OF
ggg
:;1.(R0)*
;MOVE ALL ONES FOR DATA

BNE
MoV

152634

THE WRITE

JSR

1%
#1,3RHDST
PC,a#CHECKT

;BRANCH IF DATA NOT COMPLETE
;TRACK=0 SECTOR=1

MOV

a#WRIFOR,aR1

CLR
MOV
CLR

A#ERFLGS
H#FMT22 , aRHOF
aRHCA

;GET READY FOR WRITE HEADER AND
;DATA WITH 62 IN RHCS1
;CLEAR ERROR FLAG

TYPE
HALT

002344

s CYLINDER=0
;TRACK=0, SECTOR=1, KEYS=0
;KEY1=0
;KEY2=0

LCPHALT

;CHECKS DVA,RDY
,MOL ,DPR,DRY AND VV = 1
s CANNOT CONTINUE TESTING IF NOT
;STOP TEST

;FORMAT BIT=1
;CYLINDER =0

(16 BIT WORDS)

;*SAVE REGISTERS FOR COMPARISON AFTER READ

JSR

RHW(
SAVERE
19.

RO,a#SAVER

;SAVE REGISTERS

JRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRES OF WHERE
;NUMBER OF REGISTERS

733

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

EN
27=-JUL-78 12:32 PAGE 135
OPERATION INCOMPLETE - RHER1(BIT #13)0PI

;*GO TO WRITE HEADER AND DATA
;*BUT BEFORE GO, ONE INDEX PULSE IS GIVEN

;*TO CLEAR OUT THE SECTOR CLOCK COUNTER IN THE RH11
;%SO THAT NO SECTOR PULSES COME DURING THIS TEST
MOV

#RHMR , RO

sNOW RO HAS MAINTENANCE REG. ADDR.

BIS
BIC

AMINX , RO
AMINX , 3RO

sSET INDEX
;CLEAR INDEX THIS GIVES
;ONE INDEX PULSE

#GO,aRHCS1
#75.,94RUNCTR

;ISSUE THE 'GO' BIT TO THE RH11
;LOAD 'RUN' LINE DELAY COUNTER

027372
027376
027402
027406

013700
012710
052710
042710

002220
000001
000004
000004

027412
027420

052777
012737

000001
000113

027426
027432

005337
001375

004642

027434
027440

052710
042710

000004
000004

027444
027450

052710
042710

000004
000004

027454
027460

052710
042710

000004
000004

BIS

027464
027470
027472
027474
027476
027500

004037
002200

033762

JSR

027502
027504
027510
027512
027514
027516
027520
027522
027524
027530
027532
027534
027540
027542
027544
027546
027550

MOV

152560
004642

BIS

RUNWAT: MOV
1%:

DEC

BNE

#DMD ,aR0

a#RUNCTR

BIC

AMINX ,aRO

A#MINX ,aRO

;*SECOND INDEX PULSE
BIS
AMINX , 3RO
#MINX , aRO
BIC
;*THIRD

BIC

INDEX PULSE

A#MINX , ARO

#MINX , 3RO

sAND PROVIDES FOR TIME TO FILL THE SILO
;COUNT DOWN ONCE

;CONTINUE UNTIL = 0
;SET INDEX PULSE

JRESET INDEX

sSET INDEX
;CLEAR INDEX

;SET INDEX

;CLEAR INDEX

;*CHANGE SAVED REGISTERS TO EXPECTED VALUE
;CHANGE BITS IN SAVED REGISTER
RO,a#CHREG

RHCS1
2
1
SC
1
TRE
JSR
RHDS1

;CHANGE RHCS1 REGISTER
;2 BI"/BITS TO BE CHANGED
;NEW VALUE OF SC IS 1
;CHANGE SC BIT
;NEW VALUE OF TRE IS 1

RO,a#CHREG

1
ATA
ERR

032774

033762

RO,a#F ILLRE

JSR

RO, a#(CHREG

RHER1
1
004536

1
OP]

BIS

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER
;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA IS 1
sNEW VALUE OF ERR IS 1

JSR

SHDST

;CHANGE TRE BIT

;CHANGE ATA BIT

004644

;= APPROX 450 US ON 11/50 CPU WITH CORE

;*ISSUE THE FIRST DIAGNOSTIC INDEX PULSE

BIS

033762

020000
053737

;SET DIAGNOSTIC MODE

s CHANGE ERR BIT

;MOV 2 INTO SAVED RHDST

:32¥ED REGISTER TO CHANGE

;CHANGE BITS IN SAVED REGISTER
s CHANGE RHER1 REGISTER
;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF OPI IS 1
; CHANGE OPI BIT

Q#ATTENT ,@#SAVERE+24 ;SET APPROPIATE 'ATA' BITS

SEQ 0134

(ale]

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PN
26=JUL~78 10:07

MACY11 30A(1052)

———

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.P11
26=JuL-78 10:07

6211
6212
6213
6214
6215

027556
027562
027564

027566
027570

004037
002220
000001

30A(1052)
133

F1N

RHMR

RO, a#(CHREG

000001
000001

DMD

027572
027600
027606
027612
027616
027624

017737
017737
017746
042716
042737
052637

6228
6229
6230
6231
6232
6233

027630
027634
027636
027640
027642
027644

004037
004512
002254
000021
027646
027652

034070

6235
6236

027646
027650

000207

00451
00451

;CHANGE BITS IN SAVED REGISTER

s CHANGE RHMR REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF DMD IS 1
; CHANGE DMD BIT

;*RHWC ,RHBA AND OR AND IR BITS OF RH(CSZ2 WILL NOT BE CHECKED
aRHW(C ,a#SAVERE
;SAVED RHWC
@dRHBA , a#SAVERE
+2; SAVED RHBA

MOV
MOV
MCV

BIC
BIC
BIS

004516

@RH(CS2,=(SP)

;GET RHCS2

#*C<IR!OR>,(SP) GET "IR' & 'OR' STATES
#1R!OR,a#SAVERE+4;CLEAR 'IR' & 'OR' BITS

(SP)+ ,a#SAVERE+4;SET

'OR' & 'IR' AS REQUIRED

;*COMPARE REGISTERS BEFORE WRITE WITH RESULTS AFTER WRITE

JSR
SAVERE
W’
{8

RO, a#COMREG

2%:

ERROR

RTS

; COMPARE SAVED REGISTERS WITH

;GOOD DATA SAVED IN 'SAVERE'
sTEST DATA STARTING FROM ‘RHW(C®
:17. REGISTERS TO BE COMPARED
sRETURN TO 2% ON ERROR

2%
3%

104071

JRETURN TO 3% ON NO ERROR
71

sFORCING OP1

CAUSED

; IMPROPER REGISTER CHANGE

;GOOD DATA GIVES WHAT SHOULD BE THERE
JRECEIVED DATA GIVES WHAT WAS THERE
JAFTER 3 INDEX PULSES WERE

6242

027652

004737

033072

SEQ 0135

27=JUL-78 12:32 PAGE 136
OPERATION INCOMPLLTE = RHERT(BIT #13)0PI
JSR

033762

152374
152370
152364
177477
000300
004516

6219
6220
6221
6222
6223
6224

MACY11

Hro

3%:

JSR

PC,a#(LDISK

;CLEAR THE

'GO' BIT

ISSUED

CZRJJCO, RPO4/S/6 FCTNL CTRLR2
CZRJJC.PN
26=JuUL=-78 10:07
6243

027656

027712
027720
027720
027724
027726
027730
027732
027734
027736

027740
027740
027744
027746
027747
027750
027752
027754
027756
027760

6N
PAGE 137
12:32
8
MACY11 30A(1052)
27=JUL-7
733
OPERATION INCOMPLETE - RHER1(BIT #13)0PI]
TST3%4:

000004

012706
012737
004737
012737
012737
012737

004037
002370
000004
010000
000025
000000
000000

004037
000000
025
000

000034

004504

000025
000025
000056

027732
027746
004652

JRESET STACK
;SAVE TEST NUMBER

MOV
MOV

#21. ,a81%+12
#21. ,aH28+6

;SET UP TO START FROM
;SECTOR 21.

MOV

PC,a#CLDISK

#466. AN TMPT

JSR
WRFROM
b

RO, a#F LHEAD

035054

JSR

RO, a#RUN

1.
O

WRF ROM

104401

033152
057176

027774

013777

004506

030002
030006
030012
030016
030020

013746
052716
012677
011100
011305

002344
000101

030022
030024

104413
002200
000200

PC,a#CHECKT

MOV

A#RP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

MOV

BIS
MOV
MOV
MOV

152162

;GET READY TO DO A WRIFOR

JSR

TYPE
HALT

152164

sCYLINDER 0
;SECTOR 21.
;TRACK 0
;WORD COUNT (DATA) = 0 +
;BUS ADDRESS

WRIFOR

004737

;SETUP TO RUN FOR DATA COMMAND

;DO NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT

0
£MT2?2

027762
027766
027772

;SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED

;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE SETUP

0
JVIE
BYTE
-0=4

002370
000000
010000
002344

;46 SECTORS TO COVER 3 TRACKS

;NUMBER OF WORDS SAVED
;FIRST DATA WORD
;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD

21.
0
0
2%:

;SET R1-RHCS1, R2-RH(S2

;*FILL WRITE FROM BUFFER WITH THE HEADER

10000

177774

000000

#STACK,SP
#34 ,QNTSTNM

JSR

1%:

032716

SCOPE

MOV
MOV

LCPHALT

@#WRIFOR,-(SP)

#GO!IE, (SP)
(SP) + ,aRH(CS1
aR1,R0
aR3.R5

;CHECKS DVA,RDY
MOL ,DPR,DRY AND VV =

;CANNOT CONTINUE TESTING IF NOT
:STOP TEST

;GET READY TO MOVE COMMAND

;GET READY TO SET GO AND
;GO WITH
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

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

WAT
RHCS1

;WAIT FOR RDY BIT TO SET
sWAIT FOR RHCS1 REGISTER

RDY
1695.
845.

003237
001515

JWAIT FOR RDY BIT IN RHCS1 REGISTER
JALLOW 16950 MICRO SECONDS
JRDY MUST SET BETWEEN

;*NOW ONE MORE SECTOR HAS BEEN WRITTEN
;*'SC' WILL BE CHECKED TO MAKE SURE
;*NO ERRORS OCCURED

017737
032737

152140
100000

002262
002262

SEQ 0136

MOV

BIT

dRHCST,a#(S1T

#SC,ax(S1

;GET RH(CS1
;18 *SC° S8 2

(ZRJJCO, RPO4/S/6 FCTNL CTRLRZ2
CZRJJC.PTT
26=JuL-78 10:07
030050
030052
030056

001403
004737
104072

H 1

MACY11 30A(1052)
27=JUL-78 12:32 PAGE 138
T34
CONSECUTIVE SECTOR FORMATTING

BEQ
JSR

035014

ERROR

3%
PC,a#PUTREG
72

" SET
NOT
;BRANCH IF “'SPECIAL CONDITION'
JREAD & SAVE ALL RH11 8 RPO4 REGISTERS
;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.

030060
030060
030064
030070
030072
030076
030100
030104
030110

004737

033072
027732

122705

000026

013705
005205

001405
010537
010537
000410

3%:

027732
027746

PC.a#CLDISK

(MPB

#22..RS

105037
105237
105037
105237

027732
027733
027746
027747

(%:

030132
030136

005337
001270

004652

5%.

:SET R1-RHCS1, R2-RH(S2
FE; SECTOR TRACK WORD

YIS IT 22 SECTORS (WHOLE TRACK DONE) ?

4
RS,a#18+12

*YES...DO NEXT TRACK
sNO...RESTORE SECTOR TRACK FOR DATA

CLRB
INCB

ar1$+12
a#1$+13

;SET SECTOR = 0 FOR DATA WRITTEN
;INCR TRACK FOR DATA WRITTEN

DEC
BNE

a#TMP]
1%

JARE 46 SECTORS DONE ?
;CONTINUE FORMATTING IF NOT

CLRB
INCB

6£%:

:fsnwz.ns

BEQ
MOV

MOV
BR

030112
030116
030122
030126

030140

JSR

r?g\c/

RS, a#28+6
5%

ax2$+(
aNls+7

;RESTORE SECTOR TRACK FOR "RUN'‘ ROUTINE
;CHECK FOR 46 SECTORS COMPLETED

JSET SECTOR = 0 FOR '"RUN"' ROUT INE
;INCR TRACK FOR THE "RUN'' ROUTINE

;GO ON TO NEXT TEST IF SO

SEG 0137

CZRJJCO, RPO4L/S/6 FCTNL CTRLR2
CZRJJC.P1
6327
6328

6329
6330
6331

6332
6333
6334
gggg

030140
030142
030146

030154
030160
030166
030174

6337
6338
6339
6340
6341
6342
6343
6344
2%22

030202
030202
030206
030210
030212
030214
030216
030220

6347
6348
6349
6350

030222
030222
030226

6355
6356
gggg

030236
030240
030242

6351
6352
6353
6354

030230
030231
030232
030234

26=JUL~78 10:07

000004
012706
012737

004737
012737
012737
012737

004037
002370
000004
010000
000025

001000

000035
033072
000025
000025
000056

g%gz

030256

013777

004506

6365
6366
6367
6368
gggg

030264
030270
030274
030300
030302

013746
052716
012677
011100
011305

002344
000101
151700

030304

104413

151702

:RESET STACK

:SAVE TEST NUMBER
:SET R1-RHCS1, R2-RH(CS2
:SET UP TO START FROM
:SECTOR 21.
:46 SECTORS TO COVER 3 TRACKS

;*FILL WRITE FROM BUFFER WITH HEADER

JSR
WRFROM
4
10000
21.
0
0

RO, a4F LHEAD

: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 BE FILLED

JSR
0
BYTE
.BYTE
-0-4
WRFROM
0

RO, a#RUN

21.
0

:SETUP TO RUN FOR DATA COMMAND
:CYLINDER 0
:SECTOR 21.
:TRACK 0
:WORD COUNT (DATA) = 0 +
:BUS ADDRESS
:DO NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT

:GET READY TO DO A WRIFOR

JSR
TYPE
HALT

PC,a#CHECKT
LCPHALT

MOV

AMRP4LVEC ,ARPVEC ;SET RP0O4 VECTOR ADDRESS

MOV
BIS
MOV
MOV
MOV

AHWRIFOR,=(SP)
#GO'IE, (SP)
(SP)+,@RHCS1
aR1,R0
aR3,RS

:CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1
:CANNOT CONTINUE TESTING IF NOT
:STOP TEST

:GET READY TC MOVE COMMAND
:GET READY TO SET GO AND
;GO WITH
:SAVE RHCS1 DURING ABOVE OPERATION
:SAVE RHDS1 DURING ABOVE OPERATION

:*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR=760 MICRO SEC

WAT

002200
000200
003237
001515

:WAIT FOR RDY BIT TO SET

RHCS1
RDY
1695.
845.

6378
6379

:WAIT FOR RHCS1 REGISTER
*WAIT FOR RDY BIT IN RHCS1 REG..TER
;ALLOW 16950 MICRO SECONDS
:RDY MUST SET BETWEEN

:*NOW ONE MORE SECTOR HAS BEEN WRITTEN
:*'SC" WILL BE CHFCKED TO MAKE SURE

2;3?

6382

#35,a4TSTAM
PC,a#CLDISK
#21. ,a818+12
#21.,a42%+6
#46. , 8 TMP]

FMT22

033152
057176

030306
030310
030312
030314

#STACK,SP

WRIFOR

004737
104401
000000

6373
6374
6375
gg;g

MOV
JSR
MOV
MOV
MOV

2%:

002344

030244
030250
030254

6372

SCOPE
MOV

1%:

010000

PAGE 139

TST35:

030214
030230
004652

035054

INn

12:%2

CONSECUTIVE SECTUR FORMATTING

000000
000000

004037
000000
025
000
177774
002370
000000

27=JUL=-78

T34

004504

032716

6359
6360
ggg;

6371

MACY?1 30A(1052)

:*NO ERRORS OCCURED

030316

017737

151656

002262

MoV

aRHCST,a#CS1

sGET RHCST

SEQ 0138

CZRJSJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuUL-78 10:07

6383
6384
6385
6386
6387

6388
6389
6390
6391
6392
6393
6394
6395
6396
6397

030324
030332
030334
030340

032737
001405
004737

030342

000137

104072

100000

J 1
MACYT1 30A(1052)
27=-JUL=78 12:32 PAGE 140
T35
OPERATION INCOMPLETE - RHER1 (BIT #13)0PI

BIT

002262

#SC,axCST

035014

BEQ
JSR
ERROR

3%
PC,a#PUTREG
72

030576

JMP

TST36

;1S 'SC" SET ?

:BRANCH IF '‘SPECIAL CONDITION'' NOT SET
;READ & SAVE ALL RH11 & RPO4 REGISTERS
;THERE WAS AN UNDEF INED ERROR AFTER
:A WRITE HEADER AND DATA

THIS IS A SETUP ERROR AND 'OP1' TEST CAN'T CONTI

GO ON TO NEXT TEST

;*ONE SECTOR HAS BEEN FORMATTED NOW,
;*THE HARDWARE WILL BE CLEARED AND

;*CHANGES WILL BE MADE TO FORMAT NEXT SECTOR.

6398

6399
6400
6401
6402
6403
6404
6405
6406
6407
6408
6409
6410
6411
6412
6413

004737
013705
005205

033072
030214

010537
010537

030214
030230

105037
105237
105037
105237

030214
030215
030230
030231

0053237
001266

004652

122705
001405

000410

3%:

JSR
MOV

PC.a#CLDISK
a#18$+12,R5

;SET R1-RHCS1, R2-RH(CS2
GE} SECTOR TRACK WORD

CMPB
BEQ

#22. ,R5
4%

;IS IT 22 (WHOLE TRACK) ?
;YES...DO NEXT TRACK

INC

000026

MOV

RS5,a#18+12

:NO. . .RESTORE SECTOR TRACK FOR DATA WRITTEN

4%:

CLRB

a#18+12

aH1$+13
a#2$+6
ans+7

;SET SECTOR
= 0 FOR DATA WRITTEN

;INCR TRACK FOR THE 'RUN'" ROUTINE
:SET SECTOR = 0 FOR DATA WRITTEN
;INCR TRACK FOR THE "RUN'" ROUTINE

5%:

DEC
BNE

X TMP1
1%

;ARE 46 SECTORS DONE ?
;CONTINUE IF NOT

MOV
BR

6414

INCB
CLRB
INCB

RS, a#2%+6
5%

*RESTORE SECTOR TRACK FOR ‘RUN'‘ ROUTINE
;CHECK FOR 46 SECTORS COMPLETED

6415

;*NOW 46 SECTORS HAVE BEEN FORMATTED

6417

:*READ HEADER AND DATA FOR 46 SECTORS=11960 WCRDS

6416

;*WITH BUS ADDRESS INHIBITED

6418

030426

004737

JSR

033072

PC,a#CLDISK

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

;*FILL READ HEADER AND DATA COMMAND
030432
030436
030440
030441
030442
030444
030446

004037

035054

5SR

RO, a#RUN

sCYLINYER O
;SECTOR 21.
;TRACK 0
;WORD COUNT (DATA) = 11956. +

BAI

;INHIBIT BUS ADDRESS INCREMENT

000000
013777
013746
052716

FMT22'ECI
REFOR

033152
057176
004506
002350
000101

151472

sSETUP TO RUN FOR DATA COMMAND

BYTE
21,
.BYTE
0
-11956.-4
REINTO

;BUS ADDRESS

:16 BITS PER WORD FORMAT
;GET READY TO DO A REFOR

JSR

PC,a#CHECKT

MOV
MOV
BIS

@#RP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS
Q#REFOR,-(SP)
;GET READY TO MOVE COMMAND
#GO!'IE, (SP)
;GET READY TO SET GO AND

TYPE
HALT

,CPHALT

SEQ 0139

;CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1
s CANNOT CONTINUE TESTING IF NOT
:STOP TEST

94
€z

CZRJJCO, RPO4/S5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuL-78 10:07
6439
6440
6441
6442
6443
6464
6445
6446

6447
6448
6449
6450
6451
6452
6453
6454
6455
6456
6457
6458
6459

030504
030510
030512

030514
030516
030520
030522
030524

012677
011100
011305

MACY11 30A(1052)
T35

6464
6465
6466

6467
6468
6469

6470
6471
6472

K 1

12:32

PAGE 141

OPERATION INCOMPLETE - RHER1
MOV

151470

;GO WITH

aR3.R5

;SAVE RHDS1 DURING ABOVE OPERATION

aR1,R0

;*TIME

IS NOT

;WAIT FOR RDY BIT TO SET
sWAIT FOR RHCS1 REGISTER

JWAIT FOR RDY BIT IN RHCS1 REGISTER

RDY

41680.
41680.

121320
121320

;SAVE RHCS1 DURING ABOVE OPERATION

IMPORTANT

WAT
RHCS1

104413

002200
000200

(BIT #13)0PI]

(SP}+ ,@RHCST

MOV

;ALLOW 416800 MICRO SECONDS
;RDY MUST SET BETWEEN

;*NOW THAT ALL 11960 WORDS HAVE BEEN READ
;*"OP]" WILL BE CHECKED TO BE NOT SET
030526
030534

030542

030544
030550

017737
032737
001403
004737
104074

151450

020000

MOV
BIT
BEQ

002264
002264

JSR
ERROR

035014

6460
6461
6462

6463

27=-JUL=-78

aRHER1 ,a#ER1
#OP1 ,a#ER1
6%

PC,a#PUTREG
74

;GET RHER1
;18 *0P1° BV 7
sCHECK 'SC*' IF NOT

JREAD & SAVE ALL RH11 & RPO4 REGISTERS

;READ HEADER AND DATA

;OVER 3 INDEX PULSES
;CAUSED 'OPI' TO SET

;*"'SC' WILL BE CHECKED
030552
030560
030566
030570
030574

030576

017737
032737
001403
004737
104072

151422
100000

002262
002262

6%:

MOV

BIT

BEQ

JSR
ERROR

035014

7%:

@RHCS1,a#CS1

#SC,a#CSs1

7%
PC,a#PUTREG
72

;GET RHCS1

18 "' WMT 7

;CONTINUE TESTING IF NOT

JREAD & SAVE ALL RH11 & RPO4 REGISTERS

;READ HEADER AND DATA

;FOR 11960 WORDS, THAT IS OVER THREE
s INDEX PULSES, CAUSED AN UNDEF INED ERROR

JCONTINUE WITH THE NEXT TEST

SEQ 0140

2l
czl

CZRJIJCO, RPOL/S5/6 FCTNL
CZRJJC.P1
26=2UL-78

030576

000004
012706
012737
004737

TRLR2
0: 07

001900

000036
033072

005037
005037
005037

030724
030742
030752

012737

000023

MACY11 30A(1052)

27=JUL=78

L 99

12:32

PAGE 142

T35

OPERATION INCOMPLETE = RHER1

TST36:

SCOPE
MOV
MOV

004504

JSR

#STACK,SP
#36,a4TSTNM

PC,a#CLDISK

(BIT #13)0PI

sJRESET STACK
;SAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(SZ2

;*THE FOLLOWING CLEARS ARE TO INITIALIZE TEST FROM CYLINDER 0

CLR

ar1$+12

a#2%$+10
a#38+6

;START WITH DATA = 0
*START WITH O FOR COMMAND

MOV

#19. ,a48TMP1

;19 TRACKS TO BE WRITTEN

CLR
CLR
001200

;START WITH SECTOR/TRACK = 0

;*THIS GETS THE HEADS TO CYLINDER 0
030640
030644
030650

004737

033152
057176

030652

013777

004506

030660
030664
030670

013746
052716
012677

002326
000101
151304

030674
030676
030700
030702
030704

104413
002222
000200
060650
060650

030706

004737

104401
000000

030712
030712
030716
030720
030722
030724
030726
030730
030732
030732
030736
030740
030742
030744
030744
030750

JSR

PC,a#CHECKT

MoV

@#RP4LVEC ,QRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

Q#RECALI,-(SP)
#GO!IE, (SP)

TYPE
HALT
151306

,CPHALT

(SP)+,@RHCS1

WAT
RHDS1

032716

1%:

;DRY MUST SET BETWEEN

PC.a#CLDISK

JSR

RO, a#F LHEAD

<0*400>!0

0
0

032742

000000

004037
000000

035054

3%:

;SET R1-RHCS1, R2-RH(CS2

s*FILL WRITE FROM BUFFER WITH HEADER
WRFROM
i
10000

2%:

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

;WAIT FOR DRY BIT IN RHDS1 REGISTER
sALLOW 250000 MICRO SECONDS

25000.

JSR

sCANNOT CONTINUE TESTING IF NOT
;STOP TEST

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

DRY
25000.

033072

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

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

- SECOND DATA WORD

;THIRD DATA WORD
;FOURTH DATA WORD

s*FILL WRITE FROM BUFFER WITH DATA

JSR
RO,a#CLAREA
WRFROM+10
256.
<0.%2000>'<0.%40>'0

;CLEAR 256. WORDS, FROM WRFROM+10
:STARTING FROM WRFROM+10
:25%6. UORDS
sFILL WITH <0.%2000>!<0.+40>'0

;*THE WRITE HEADER AND DATA COMMAND WILL BE FILLED

JSR
0

RO,a#RUN

;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 0

SEQ 0141

6535
6536
6537
6538

004737

031006
031012
031016

;BUS ADDRESS

033152
057176

013777

004506

013746
052716
012677

002344

JSR

PC,a#CHECKT

MOV

A#RP4LVEC ,QRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

A#WRIFOR,-(SP)
#GO!IE, (SP)
(SP)+,aRHCS1

TYPE
HALT
151160

000101
151156

;16 BITS PER WORD FORMAT
;GET READY TO DO A WRIFOR

,CPHALT

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

s CANNOT CONTINUE TESTING IF NOT
;STOP TEST

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

;*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)
;*IF THERE IS A FAILURE HERE HALT PROGRAM AFTER ERROR WITH
;*SWITCH 15 AND SEE CURRENT CYLINDER REGISTER TO DETERMINE
;*WHAT CYLINDER

031022
031024
031026
031030
031032

I FAILING

WAT
RHCS1
RDY
1650.
890.

104413

002200
000200
003162
001572

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
JWAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 16500 MICRO SECONDS
JRDY MUST SET BETWEEN

;*NOW SECTOR O OF ONE TRACK HAS BEEN WRITTEN CHECK COMPOSIT
;*ERROR BIT TO BE SURE NO ERRORS HAPPENED
;*SAVE REGISTERS IN SAVE TABLE

031034

004737

035014

031040
031046
031050
031056

032737
001004
032737
001401

040000

002304

040000

002262

031060

104066

JSR

PC.,a#PUTREG

BIT
BNE

#ERR ,a#DS1
9%

;ANY DISK ERRORS
;BRANCH IF YES

BEQ

;BRANCH IF NO

BIT

9%:

ERROR

#TRE ,a#(CS1
66

;ANY RH ERRORS

;SOME ERRORS OCCURRED
sWHILE DOING WRITE HEADER
;AND DATA

;*THE FOLLOWING 3 ADDS SETS UP FOR NEXT TRACK WRITING
031062
031070
031076

062737
062737
062737

000400

031104
031110

005337
001300

001200

000040
000400

030724
030742
030752

4%:

ADD

#400,a419+12

sNEXT TRACK FOR HEADER

DEC

A#STMP1

;COUNT 19 TRACKS

ADD
ADD
BNE

#40,a4#2%+10
#400,a4#3%+6
1%

sNEXT TRACK FOR DATA
;NEXT TRACK FOR COMMAND

;*THE FOLLOWING CLEARS SETS UP FOR READ HEADER AND DATA

Slne. 4

;DO NOT INHIBIT BUS ADDRESS INCREMENT

Czi
czs

;SECTOR 0
sTRACK 0
;WORD COUNT (DATA) = 256. +

FMT22
WRIFOR

104401

000000

BYTE
0
BYTE
O
-256.<4

WRFROM

002370
000000
010000
002344

6534

6539
6540
6541
6542
6543
6544
6545
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

000
000
177374

HEAD SELECTION TEST ERR & TRE

SEQ 0142

030752
030753

PAGE 143

6530
6531
6532
6533

MmN

12:32

6529

136

27=-JUL-78

MACY11 30A(1052)

CZRJJCO, RPO4/5/6 FCTNL
CZRJJC.PN
26=JUL-78

6585
6586
6587
6588
6589
6590
6591
6592
6593
6594
6595
6596
6597
6598

MACY11 30A(1052)
136

031112
031116
031122

005037
005037
005037

031172
031210
031220

CLR
CLR
CLR

AHSST3+12
a#SST4 10
ANSSTS5+6

;START WITH SECTOR/TRACK = 0
;START WITH DATA = 0
;START WITH O FOR COMMAND

031126

004737

033072

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(CS2

000023

;*SET UP FOR READ HEADER AND DATA
MOV
#19. ., a#8TMP1
;19 TRACKS TO BE READ

031132
031140
031140
031144
031146
031150
031152

012737

004037
003434

0004 04
177777

013737

001200

SST1:

SST2:

032742

031200
031200
031204
031206
031210
031212
031212
031216
031220
031221
031222
031224
031226
031230
031232

004037
002370

JSR

REINTO
-1

MOV

001110

031160
031160
031164
031166
031170
031172
031174
031176

;*FILL READ INTO BUFFER WITH ALL ONES
RO,a#CLAREA

260.

031140

SST3:

032716

000000

004037

000000
000
000
177374

5875:

035054

003434
000000
014000
002350

SFILL WITH =1

Q#SST2 ,a#SLPERR ;SET LOOP POINT

JSR

RO,@4FLHEAD

104401

033152
057176

031246

013777

004506

031254
031260
031264

013746
052716

002350
000101

000000

012677

RO,a#CLAREA
JSR
WRFROM+<4 %2>
256.
<0.%2000>!<0%40>'!0

150710

;CLEAR 256. WORDS, FROM WRFROM+<4#2>
:STARTING FROM WRFROM+<&*2>
:256. WORDS
;FILL WITH <0.%2000>!<0%40>!0

;*FILL COMMAND FOR READ HEADER AND DATA
JSR
RO.,a#RUN
0
.BYTE
0
BYTE
0
=256.~4

;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 0
*SECTOR 0
:TRACK 0
*WORD COUNT (DATA) = 256. +

0
ECI'FMT22

*DO NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT

JSR

PC,#CHECKT

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

MOV

A#RP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

Q#REFOR,-(SP)
#GO!IE, (SP)
(SP)+,aRHCS1

TYPE
HALT
150712

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

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA

REFOR

004737

;SAVE HEADER DATA IN WRFROM

:SECOND DATA WORD
:THIRD DATA WORD
:FOURTH DATA WORD

REINTO

031234
031240
031244

;STARTING FROM REINTO

:260. WORDS

0
0
0

032742

;CLEAR 260. WORDS, FROM REINTO

;*FILL WRITE FROM BUFFER WITH EXPECTED HEADER
WRFROM
4
10000

SST4:

SEQ 0143

27-JUL=78 12:32 PAGE 144
HEAD SELECTION TEST ERR & TRE

LCPHALT

:BUS ADDRESS

;GET READY TO DO A REFOR

sCANNOT CONTINUE TESTING IF NOT
;STOP TEST

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

CZR
HCZF

e B e fe Se b b b bemlae teatealioleaicaicaisicaieainicaieaiwicaininicaialcaieiSisisisleal

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PI
26=-JUL~78 10:07

CZRJJC.PN

6641
6642
6643
6644
fig

26=JUL~-78 10:07

031270
031272
031274
031276
031300

MACY11 30A(1052)
736

104413
002200
000200
003162
001572

031302

004737

035014

6653

031306

032737

040000

002304

040000

002262

6669
6670
6671
6672
6673
22;2
6676
6677
6678

6679
6680
6681
6682
6683
6684
6685

031314
031316
031324
031326

001004
032737
001401
104066

BIT

#ERR,a#DS1

;ANY DISK ERRORS

ERROR

;SOME ERRORS OCCURRED
;WHILE DOING READ
;JHEADER AND DATA

BNE
BIT
BEQ
10%:

108
#TRE ,a#(CS1
11%

;BRANCH IF YES
;ANY RH ERRORS
;BRANCH IF NO

;*NOW THE READ DATA WILL BE COMPARED DATA IN EACH SECTOR
;*IS UNIQUE IF PROGRAM IS HALTED ON ERROR THEN LOOK AT
;*RHDST TO GET WHAT TRACK IS 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
031330

031330
031334
031336
031340
031342
031344

004C37
002370
003434
000404
031346
031352

031346
031350

104067
000207

11%:

035120

12%:

6687

JSR
WRFROM
REINTO
260.
12%
13%

RO, a#COMPAR

ERROR
RTS

67
PC

:COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
;260., WORDS TO BE COMPARED
JRETURN TO 12% ON ERROR
JRETURN TO 13% ON NG ERROR
;BITS 4,5,6,7.,8
;READ HEADER AND DATA
;ERROR

sHEAD 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

6689
6690
ggg}

031352
031360
031366

062737
062737
062737

000400
000040
000400

6693

031374

005337

001200

6696

031404

0007137

031140

6694
6695

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
sWAIT FOR RDY BIT IN RHCST REGISTER
JALLOW 16500 MICRO SECONDS
;RDY MUST SET BETWEEN

;*SAVE REGISTERS IN SAVE TABLE
JSR
PC.a#PUTREG

6662
6663
6664
6665
ggg?
6668

PAGE 145

HEAD SELECTION TEST ERR & TRE

;*NOW SECTOR O OF ONE TRACK HAS BEEN READ CHECK COMPOSIT
;*ERROR BIT TO BE SURE NO ERROR HAPPENED

6650
222;

6658
6659
%?

B 12

12:32

WAT
RHCS1T
RDY
1650.
890.

6647
%8

6654
6655
&29

27-JuL-78

031400
031402

001001
000402

031172
031210
031220

138%:

5%:

ADD
ADD
ADD

#400,a#SST3+12
#40,a#5ST4+10
#400,#SST5+6

;NEXT TRACK FOR HEADER
;NEXT TRACK FOR DATA
;NEXT TRACK FOR COMMAND

DEC

a#$TMP1

;COUNT 19 TRACKS

JMP

a#SST?2

BNE
BR

5%
TST37

;TO NEXT TEST

s JUMP BACK

SEQ 0144

CZRJJCO, RPOL/S/6 FCTNL CTRLR2

CZRJJCO, RPO4L/5/6 FCTNL CTRLRZ2
26~JuL-78 10:07
CZRJJC.P "
6697
6698
6699
6700
6701
6702
6703
6704
6705
6706
6707
6708
6709
6710
6711
6712
6713
6714
6715
6716
6717

031410
031412
031416
031424
031430
031434
031440

000004
012706
012737
004737
004737
104401

000000

001000

000937
033072
033152
057176

MACY11 30A(1052)
736

TST37:

004504

27-JUL=-78

¢ 12
12:32 PAGE 146

HEAD SELECTION TEST ERR & TRE
SCOPE

MOV
MOV

#STACK,SP
#37 ,a#TSTNM

JSR

PC,a#CHECKT

JSR

TYPE
HALT

PC,a#CLDISK
,CPHALT

;RESET STACK
;SAVE TEST NUMBER

SET R1=RHCS1, R2=RH(S2

:CHECKS DVA,RDY MOL ,DPR,DRY AND VV = 1

;s CANNOT CONTINUE TESTING IF NOT
;STOP TEST

:*SET UP TO INITIALIZE TEST FROM CYLINDER 0, TRACK 0,
037442
031450
031454

012737
005037
005037

031460

010000
031574
031602

031554

013777

004506

150500

031466
031472
031476

013746
052716
012677

002326
000101

031502
031504
031506
031510
031512

104413
002222
000200
060650
060650

;*SECTOR O

MOV

#10000,a#1%+10

;CYLINDER HEADER DATA

CLR

a#38+4

sCYLINDER COMMAND RHCA

CLR

a#2%$+10

;:DATA

;*THIS IS TO GET THE HEADS TO CYLINDER ZERO
a#RPLVEC,RPVEC ;SET RPO4 VECTOR ADDRESS

MOV

MOV
BIS
MOV

150476

a#RECALI,-(SP)
#GO!1E, (SP)
(SP)+ ,aRHCS1

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

WAT

;JWAIT FOR DRY BIT TO SET

25000.
25000.

sALLOW 250000 MICRO SECONDS
;DRY MUST SET BETWEEN

RHDS1
DRY

;WAIT FOR RHDS1 REGISTER
;WAIT FOR DRY BIT IN RHDST REGISTER

;*THE DRIVE

TYPE

IS CHECKED AND THE APPROPRIATE MAX.

s*CYLINDER DIFFERENCE IS SET UP
TST

031514
031520

005737
001404

004636

031522
031530

012737
000403

001001

001200

031532
031540

012737

000401

001200

031540

004737

033072

031544
031544
031550
031552
031554
031556
031560
031562

031564

004037
002370
000004
010000
000000
000000
000000

032716

BEQ

14%:

15%:

18:

14%

;TEST FOR RPO6 DRIVE

;TREAT UNIT AS AN RPO4
:TREAT AS AN RP0O6

MOV
BR

#513. ,a#8TMP1
15%

;513 CYLINDERS
s CONT INUE

MoV

#257. ,a#8TMP1

;257 CYLINDERS

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RHCS2

;CONTINUE WITH TEST

;*FILL WRITE FROM BUFFER WITH HEADER
JSR

WRFROM
B
10000

0
0
0

2%:

a#RP06

RO, a#F LHEAD

;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

SEQ 0145

‘

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PN
26=-JUL-78 10:0 7

6764
6765
6766
6767
6768
6769
6770
6771
6772

6773

6774
6775

6776
6777
6778

6779
6780
6781
6782
6783
6784
6785
6786
6787
6788
6789
6790
6791
6792
6793
6794
6795
6796
6797
6798

031564
031570
031572
031574

031576
031576
031602

031616

004037
002400
000400
000000

004037
000000
000

137

D 12

12:32

DIFFERENCE LINES

PAGE 147

RO,a#CLAREA

WRFROM+10
256.
0
3%:

035054

000
177374
002370
000000
010000
002344

031632

013777

004506

sSETUP TO RUN FOR DATA COMMAND

;DO NOT INHIBIT BUS ADDRESS INCREMENT

031640
031644
031650

013746
052716
012677

002344
000101
150324

sCYLINDER O
;SECTOR 0
;TRACK 0
;WORD COUNT (DATA) = 256. +
;BUS ADDRESS

;16 BITS PER WORD FORMAT
;GET READY TO DO A WRIFOR

JSR

PC,a#CHECKT

MOV

@#RP4LVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

a#WRIFOR,-(SP)
#GO!IE, (SP)
(SP) + ,@RHCS1

TYPE
HALT

150326

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

JSR
RO,a#RUN
0
BYTE
0
.BYTE
0
-256.-4
FMT22
WRIFOR

033152
057176

;CLEAR 256. WORDS, FROM WRFROM+10

;*THE WRITE HEADER AND DATA COMMAND WILL BE LOADED

WRFROM

004737
104401
000000

27-JUL=78

JSR

032742

031620
031624
031630

LCPHALT

;CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1
;CANNOT CONTINUE TESTING IF NOT
;STOP TEST

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

;*ONE REVOLUTION = 16670 MICRO SECONDS, ONE SECTOR = 760
;*MICRO SECONDS, ONE SEEK = 7000 MICRO SECONDS.
;*MAX TIME = 1 REVOLUTION + 1 SEEK + 2 SECTCRS
;*MIN TIME = 1 SECTOR
031654
031656
031660
031662
031664

104413

002200
000200
002354
002354

WAT
RHCS1

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

1260.
1260.

sALLOW 12600 MICRO SECONDS
;RDY MUST SET BETWEEN

RDY

sWAIT FOR RDY BIT IN RHCS1 REGISTER

;*NOW ONE SECTOR WRITE IS COMPLETE.
CHANGES WILL BE MADE
;*FOR THE NEXT SECTOR, THEN THE ABOVE WILL BE REPEATED
031666
031672
031676
031702
031706

005237
005237
005237
005337
001316

;*UNTIL CYLINDER 256./512. IS REACHED

INC
INC
INC
DEC

031554
031574
031602
001200

BNE

a#1$+10
a#2%+10
A 38+4
a#sTMP1

;CYLINDER HEADER DATA
;DATA
;CYLINDER COMMAND (RHCA)
;COUNT DOWN FOR 256./512. CYLINDERS

;DO NEXT WRITE IF 256./512. NOT DONE

s*NOW ALL 256./512. CYLINDERS HAVE CYLINDER NUMBER WRITTEN
;*AS DATA ON SECTOR O, TRACK O. NOW A RECALIBRATE, FOLLOWED
;*BY READ HEADER AND DATA, THEN A CHECK WILL BE DONE ON

;*CYLINDER 0,1,2,4.8,16,32,64,128,256,512, AND 0

03171
03171

6753
6754
6755
6756
6757
6758
6759
6760
6761
6762
6763

MACY11 30A(1052)

013737
005037

031740
001200

001110

MOV

CLR

a#4$ ,a#SLPERR

a#$TMP1

;LOOP ON ERROR

sCYLINDER COUNTER

SEQ 0146

CZRJJCO, RPO4L/5/6 FCTNL T RLR2
CZRJJC.PN

6807
6808
6809
6810
6811
6812
6813
6814
6815
6817

6816

26=JUL-78 10:07

MACY11

E 12
PAGE 148

30A(1052)
27=JUL-78 12:32
137
DIFFERENCE LINES

s*INITIALIZE, NECALIBRATE, AND READ CYLINDERS

031734
031740
031740

012737
005037
005037

010000
032042
032050

004737

033072

031744

013777

004506

031752
031756
031762

013746
052716
012677

002326
000101

031766
031770
031772
031774
031776

104413

031722
031730

032000
032004
032006
032010
032012
032012
032016
032020
032022
032024
032026
032030
032032

032032
032036
032040
032042
032044
032044
032050
032052
032055
032054
032056
032060
032062
032064

032066

;*SETUP FOR CYLINDER 0

032022
4%:
150214

150212

002222
000200
060650
060650

004037
003434

;CYLINDER HEADER (DATA)
;DATA
;CYLINDER COMMAND (RHCA)

JSR

PC,a#CLDISK

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

MoV

A#RPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

a#RECALI,-(SP)
#GO!IE, (SP)
(SP) +,aRHCS1

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

25000.

;ALLOW 250000 MICRO SECONDS

;WAIT FOR DRY BIT IN RHDS1 REGISTER
;DRY MUST SET BETWEEN

;*CLEAR READ INTO BUFFER WITH ALL ONES
JSR
RO,a#CILAREA
:CLEAR 260. WORDS, FROM REINTO

032742

REINTO

;STARTING FROM REINTO

JFILL WITH =1

260.

032716

004037

032742

5%:

;260. WORDS

s*FILL WRITE FROM BUFFER WITH EXPECTED HEADER
JSR

WRFROM

RO,a#F LHEAD

“

6%:

JSR

RO,a#CLAREA

JSR
0

RO,a#RUN

BYTE
0
BYTE
O
-256.-4

000000
014000

0
ECI!FMT22

REINTO

002350

004737

REFOR

033152

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

s*FILL READ HEADER AND DATA COMMAND

000
177374

003434

;LOCATION WHERE SAVED
;FIRST DATA WORD
;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD

WRFROM+10

7%:

:SAVE HEADER DATA IN WRFROM
;NUMBER OF WORDS SAVED

10000
0
0
0

256.
0

035054

;GET READY r0o MOVE COMMAND
:GET READY TO SET GO AND
;GO WITH

WAT
RHDS1

25000.

004037
002370
000004
010000
000000
000000
000000

004037
000000
000

#10000,a#5%+10
a#6$+10
AN7$+4

DRY

000404
177777

002400
000400
000000

MOV
CLR
CLR

JSR

PC,a#CHECKT

;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 0O

;SECTOR 0
;TRACK 0
;WORD COUNT (DATA) = 256. +
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;GET READY TO DO A REFOR

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

SEQ 0147

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRIJC.P11

26-JuL-78 10:07

6863
gggg

032072
032076

104401
000000

057176

2%29

032100

013777

004506

MA(CY11 30A(1052)
137

150060

6868
6869
6870
gg;;

F 12

12:32

DIFFERENCE LINES

PAGE 149
:CANNOT CONTINUE TESTING IF NOT
;STOP TEST

TYPE
HALT

LCPHALT

MOV

S#RPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

:*ONE SECTOR = 760 MICRO SECONDS, ONE REVOLUTION =
:*16670 MICRO SECONDS, MAX SEEK = 52000 MICRO SECONDS
:*MAX TIME = ONE REV + 1 SEEK + 1 SECTOR
:*MIN TIME = 1 SECTOR

6873
6874
gg;g

032106
032112
032116

6877

032122

6879
6880
ggg}

032126
032130
032132

6878

27=-JUL=-78

032124

013746
052716
012677

002350
000101
150056

MOV
BIS
MOV

QHREFOR,-(SP)
#GO!IE, (SP)
(SP) +,aRHCS1

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

104413

WAT

:WAIT FOR RDY BIT TO SET

000200
006620
006620

RDY
3472.
3472.

:WAIT FOR RDY BiT IN RHCS1 REGISTER
;ALLOW 34720 MICRO SECONDS
:RDY MUST SET BETWEEN

002200

RHCS1T

:WAIT FOR RHCS1 REGISTER

6883

:*CHECK READ WORDS AS ALL READ COMMANDS HAVE BEEN CHECKED

6885

;= (DATA ERRORS MAY IMPLY ‘'IMPLIED SEEK'' ERRORS)

6888
6889
6890
6891
6892
gggz

032134
032140
032142
032144
032146
032150

004037
002370
003434
000404
032152
032156

6895
2239

032152
032154

104070
000207

035120

8%:

6898
6899
238?
032156
032162

005737
001003

001200

005237
000416

001200

6907
6908
23?8

032172
032176

005737
001404

004636

6911
6912
6913

032200
032206
032210

022737
000403
022737

001000

001200

000400

001200

6916
6917
6918

032216
032220
032226

101421
063737
013737

001200
001200

001200
032042

gg}g

RO, a#COMPAR

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

ERROR
RTS

70
PC

:READ HEADER AND DATA ERROR
:DATA GIVES EXPECTED CYLINDER

:*NOW ONE CYLINDER HAS BEEN CHECKED.
CHANGES WILL BE MADE
:*TO READ THE NEXT CYLINDER AND THE ABOVE SECTOR READ WILL BE
:*REPEATED

6902
6903

6904
gggg

JSR
WRFROM
REINTO
260.
8%
¢S

032164
032170

032216

9%:

TST
BNE

arsTMP
10%

TST
BEQ

a#RPO6
16%

CMP
=R

CMP

#512..34#8TMP1
17%
#256. ,a#8TMP1

BLOS
ADD
MOV

12%
:YES, SO GO TO ZERO
a#$TMP1 ,a#8TMP1 ;DOUBLE THE CYLINDER
a#$TMP1 ,an6$+10 ;MAKE CYLINDER ADDRESS THE DATA

INC
EE
108 :

16%:

17%:
118%:

;IS IT ZERO ?
:BRANCH IF NOT ZERO

QS TMP
118

;ADD ONE IF = 0
:PUT ONE IN CYLINDER

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

;IS IT PASSED 512 CYLINDERS YET ?
CONTINUE
;IS IT PASSED 256 CYLINDERS YET ?

> CONT INUE

SEQ 0148

CZRJJCO, RPO4L/S5/6 FCTNL CTRLR2
ICZRJJC.P11
26=JuUL~-78 10:07

6919
6920
6927
6922

032234
032240
032244
032250

6925
6926
6927
6928
6929
6930
6931
6932
6933

6935
6936
6937

23%2

6934

6938
6939

032256

013746
052716
012637
013737

000137

001200
010000
032022
001200

032262
032266

005737
001405

004636

032270
032276
032300
032302
032310

022737
001421
000404
022737
001414

002000

032312
032320

063737
012737

001200
010000

032312

gg:?

032326
032332
032336

6942

032342

005037
005037

000137

031740

001000

MACY11

G 12
PAGE 150

30A(1052)
27=JUL=78
12:32
137
DIFFERENCE LINES
MOV

BIS
MOV
MOV
JMP

032C50
12%:

001200
001200

18%:
19%:

032042
032050

001200
032022

13%:

a#sTMP1 ,-(SP)

sGET CYLINDER NUMBER

a#STMP1 ,an78+4
axss

;CYLINDER COMMAND (RHCA)
JRETURN TO RECALIBRATE

#FMT22, (SP)
(SP)+,a#5%+10

s INCLUDE FORMAT BIT
;HEADER DATA (CYLINDER)

TST
BEQ

a#RPO6

(MP
BEQ
BR
CMP
BEQ

#1024. ,a#8TMPT
13%
19%
#512. ,a48TMP1
13%

;512 DONE
; OUT

ADD

a#$TMP1 ,a#$TMP1

;DOUBLE

JMP

a#63+10
ax’7%8+4
Y 78 3

:DATA
;CYLINDER COMMAND (RHCA)
JRETURN TO THE RECAL IBRATE

MOV
CLR
CLR

031740

SEQ 0149

18%

TEST FOR RPO6 DRIVE

#10000,a#5%+10

;TREAT UNIT AS AN RPO4

:TREAT AS AN RPO6

YET ?

* CONT INUE

1256 DONE YET ?
;ouT
s CONT INUE
THE CYLINDER

;CYLINDER HEADER DATA

JEND OF

TEST

cZl
czl

—

(ZRJJCO, RPOL/S5/6 FCTNL CTRLR?
CZRJJC.PN
26=JUL=78 10:07
6943

6964
6945
6346

032342

6947

000004
012737
012737
104401

6948
6949
6950

000425
013746

6952

000402
013746

104405
104401

6951

6953
6954
6955
6956
6957
6958
6959
6960

6961
6962
6963
6964
6965
6966
6967
6968
6969
6970
6971
6972

6973
6974
6975

6976
6977
6978

104405

009001
000200

032366

005237

013746

001100
032701
001100

000137

032676
007720

032532
032540
032544

012737
005337
001413
013700
012701
022100
001401
000775
011137
000137

032546
032552
032556
032560
032562
032564
032570

177776

177777

004620

004616
004576

004616

007720

;:D0O 1 ITERATION

BR
MOV

648
A#UNIT ,=(SP)

.65%

;;TYPE ASCIZ STRING
::GET OVER THE ASCIZ

BR
MCvV

663

CLR
CLR

ANSERTTL
ANSTSTNM

TYPDS

TST

BEQ
INC

TYPE
MOV
TYPDS
TYPE

1%:

2%:

#0,PS

.67%

A#SERTTL ,-(SP)

Q#SELECT

a#$PASS

. SENDMG

, - (SP)
a#$PASS

;REINSTATE PS TO O

:GE1 READY TO TYPE UNIT NUMBER

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ
:GET READY TO TYPE NUMBER OF ERRORS
;CLEAR TOTAL NUMBER OF ERRORS
;CLEAR TEST NUMBER
;STARTING FROM 200 ?
sTEST NEXT DRIVE

;CONTINUE TESTING THIS ONE IF NOT
s INCREASE PASS COUNT

;TYPE END PASS #

;GET PASS NO.
;TYPE

IT OUT

. SENULL
a#TST4

;JUMP TEST 4

MOV
DEC
BEQ
MOV
MOV
CMP
BEQ
BR

#-1,a#PRITEM

;CLEAR PREVIOUS ITEM NUMBER

a#UNIT
RO
#UNITS,R1

;TABLE

JMP

Q#TSTL

JMP

3%:

SEQ 0150

#1,8TIMES

TYPDS
TYPE

040746

PAGE 151

SCOPE
MOV
MOV
TYPE

001112

032504
032510
032514
032520
032522
032526

104405
104401

TST40:

032454

001112
001102
004626

104401

001212

004616

005037
005037
005737
001413

032502

H 12

MACY11 30A(1052)
27=JUL=78 12:32
137
DIFFERENCE LINES

MOV

A#NOUNITS
$EOP

(R1)+,R0
2%

1%
(R1) ,a#UNIT

-—>

:NO. OF UNITS PRESENT DECREMENTED
;BRANCH IF ALL DRIVES COMPLETE
JUNIT UNDER TEST
;IS THIS UNIT JUST TESTED ?
JCONTINUE IF YES
; INCREMENT IF NO
JTHIS IS NEXT UNIT

:TEST THE NEXT DRIVE ========ccccee-- >

(2!
cZl

140

27-JuL=78

END OF DRIVE

112
12:32 PAGE 152

SEQ 0151

CZF

=**SUBROUT
INE Sxnw

104401

013746
104405

7000
7001
7002
7003

104401

032666
032670
032672
032674
032676
032701
032706
032714

013700
001405
000005
004710
000240
000240
000240
000137
006176
377
015
050040
000043

100000

001100

$ENDCT:

032701
001100

MOV
.WORD

SEOPCT
TYPE

MOV

032676
000042

$GET42:

TYPDS
TYPE
MOV

BEQ

RESET

: JSR
$ENDAD
NOP

$DOAGN

sPC)*.B(PC)O

3:YES
;;RESTORE COUNTER

. SENDMG

::TYPE "END PASS #''

. SENULL
a#62 RO

;:TYPE A NULL

%PC)*

$PASS,=(SP)

$DOAGN

PC, (RO)

377
042412
051501

000
042116
020123

$RTNAD:

S$ENULL:
SENDMG:

BYTE

ASCIZ

;:SAVE $PASS FOR TYPEOUT

::GO TYPE--DECIMAL ASCII WITH SIGN
CHARACTER

;2GET MONITOR ADDRESS
;2BRANCH IF NO MONITOR
::CLEAR THE WORLD
;GO TO MONITOR
. :SAVE ROOM
::FOR

NOP

NOP
JMP

;;ZERC THE TEST NUMBER
;sZERO THE NUMBER OF ITERATIONS
;2 INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER
;:LOOP?

Bon

$TSTNM
$TIMES
$PASS
#100000, $PASS

SCOPE
CLR
CLR
INC
BIC
DEC
$EOPCT: .WORD
BGT

001102
001212
001100

005037
005037
005237
042737
005327
000001
003022
012737
000001
032622

000004

Q(PC)+
TST1

-1,-1,0

22ACTTH
:;RETURN
;sNULL CHARACTER STRING

<15><12>/END PASS #/

032574
032576

San B

Bsn Bin

.SBTTL
.SBTTL
.SBTTL

aomlo
e

6979
6980
6581
6982
6983
6984
6985
6986
6987
6988
6989
6990
6991
6992
6993
6994
6995
6996
6997
6998
6999

C(ZRJJCO, RPO4/S5/6 FCTNL CTRLR2
26=JUL~78 10:07
CZRJJC.P1T

:
MACY11 30A(1052)

CZRJJCO, RPO4/S/6 FCTNL CTRLR2
26=JuL-78 10:07

27-JuL-78

END OF PASS ROUTINE

J 12

12:32

SEQ 0152

PAGE 153

7026

032726
032730
032732
032734
032736
032740

012021
005302
001375
012602
012601
000200

1%:

MOV
DEC
BNE
MOV
MOV
RTS

*
:

(RO)+,(R1)+
R2
1%
(SP) +,R2
(SP)+,R1
RO

F
N

;SAVE DATA
;DECREMENT COUNT
;BRANCH IF

INCOMPLETE

;;POP STACK INTO R2
;;POP STACK INTO R1

;NUMBER OF WORDS
;DATA TO BE FILLED

‘R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED
;R2 WILL HAVE NUMBER OF WORDS

;R3 WILL HAVE DATA
032742
032742

032744
032746
032750
032752
032754
032756
032760
032762
032764
032766
032770

0710146
010246
010346
012001
012002
012003
010321
005302
001375
012603
012602
012601

CLAREA:

MOV

1%:

MOV
MOV
MOV
MOV

MOV
DEC
BNE
MOV
MOV
MOV

R1,-(SP)
R2,-(SP)
R3,-(SP)

(RO)+,R?
(RO) +,R2
(RO)+,R3
R3,(R1)+
R2
1%
(SP)+,R3
(SP)+,R2
(SP) +,R1

;;PUSH R2 ON STACK
;R1 HAS ADDRESS OF WHERE TO SAVE
;R2 HAS NUMBER OF WORDS

s Sl

;;PUSH R1 ON STACK

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

;THIS CLEARS ANY BLOCK OF MEMORY.
sFILLING IT WITH ANY DATA
;CALL IS
RO,a#CLAREA
JSR
H

7047

7059
7060
7061
7062
7063
7064
7065
7066
7067
7068
7069
7070
7071

MOV
MOV
MOV
MOV

;*NOW FILL DATA

7046

7048
7049
7050
7051
7052
7053
7054
7055
7056
7057
7058

FLHEAD:

::PUSH R1 ON STACK
;;PUSH R2 ON STACK

::PUSH R3 ON STACK
:FROM

s COUNT

;BRANCH IF NOT COMPLETE
::POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1

010146
010246
012001
012002

032716
032716
032720
032722
032724

7028

7030
7031
7032
7033
7034
7035
7036
7037
7038
7039
7040
7041
7042
7043
7044
7045

7027

Basiin

sUSED CHIEFLY FOR HEADER INFORMATION
;CALL IS
RO, a#F LHEAD
JSR
sFILL HEADER
:
LOC
;LOCATION WHERE SAVED
:
3
XN
sNUMBER OF WORDS
xD1
=
;DATA REPEATED XN TIMES
s
XD2
;DATA REPEATED XN TIMES

Bab. Ses. Sha

;THIS FILLS MEMORY WITH GIVEN DATA

Bl S

7016
7017
7018
7019
7020
7021
7022
7023
7024
7025

7029

CZF
CZF

Sun. Sasc: il

CZRJJC.PN

’

MACY11 30A(1052)

RTS

000200

JRETURN TO MAIN PROGRAM

NN
o po)

lalal

SEQ 0153

JRETURN TO MAIN PROGRAM

g Ty T % T preg v

;;POP STACK INTO R2
;.POP STACK INTO R1

N P e T

(SP)+,R2
(SP)+,R1

sOFSET
;DATA IS MOVED

R T

;DATA

#RHWC ,R1
R2,SAVERE (R1)

;ADDRESS OF ADDRESS OF REGISTER

I T

(RO)+,R2

(RO) +,R1

MOV
MOV
MOV
RTS

;;PUSH R1 ON STACK
;.PUSH R2 ON STACK

T T

SuB

R1,-(SP)
R2,=(SP)

002172
004512

MOV
MOV
MOV
MOV

010146
010246
012001
012002
162701
010261
012602
012601
000200

033020

FILLRE:

032774
032774
032776

S A

;DATA

JREGISTER NAME

RO,a#F ILLRE

JSR

RHXX

;CALL IS

TO FILL SAVED REGISTER LOCATION

;WITH GIVEN VALUE

P P

;THIS IS A SUBROUTINE

vy ey Ty T T

e © S

032772

PAGE 154

7072
7073
7074
7075
7076
7077
7078
7079
7080
7081
7082
7083
7084
7085
7086
7087
7088
7089
7090
7091
7092
7093
7094
7095
7096
7097
7098
7099

26=JuUL-78 10:07

END OF PASS ROUTINE

K 12

12:32

e DY DO

CZRJJC.PN

27-JuL=78

CZRJJCO, RPO4/S/6 FCTNL CTRLR2

MACY11 30A(1052)

147140

MOV

A#SERCH,aRHCST

RTS

;SET DESIRED CYLINDER ADDRESS
;SET DESIRED SECTOR/TRACK ADDRESS
;GET READY FOR SEARCH

:WITH 30 IN RHCS1

20 20

(RO) +,aRHCA
(RO) +,@RHDST

MOV
MOV

000200

SRCH:

033040

147164
147152
002334

s CYLINDER
;SECTOR
; TRACK

012077
012077
013777

RO,a#SRCH

C
S
T

JRETURN TO MAIN PROGRAM

N N N N N

:SET DESIRED CYLINDER ADDRESS
;MOV & INTO RHCS1

N Ny N B

RTS

(RO) +,aRHCA
a#SEECOM,aRHCST
RO

e e

SEEKCY: MOV
MOV

147124

147144
002352

e e e T

012077
013777
000200

RO ,a#SEEKCY
sCYLINDER

033042
033046
033054

JSR
L

:
4

SETS UP FOR SEEK COMMANDS

;THIS SUBROUTINE
sCALL IS

N N N N N

N N N

033022
033026
033032

JSR

:
sJOYIE
;.BYTE

;CALL

;THIS SUBROUTINE SETS UP FOR SEARCH

SEQ 0154

N N|

PAGE 155

ala

L 12

12:32

7100
7101
7102
7103
7104
7105
7106

MACY11 30A(1052)
27=JUL-78
END OF PASS ROUTINE

CZRJJCO, RPO4/S5/6 FCTNL CTRLRZ2
CZRJJC.PI
26=JuL-78 10:07

7128
7129

SEQ 0155

PAGE 156

;THIS SUBROUTINE SETS UP FOR OFFSET COMMANDS

sCALL IS

7130
7131

JSR

BIS

033056
033062
033070

052077
013777
000200

002354

033072
033076
033102
033106

013701
013702
013703
013704

002200
002176
002222
002202

CLDISK: MOV

033112
033116
033122
033124

012712
013712

000040
004616

MOV
MOV

005011
000207

147126

147110

OFSET:

MOV
RTS

MOV
MOV
MOV

CLR

RTS

RO,a#0F SET

;sMICRO INCHES OFFSET

(RO) +,@RHOF

;SET OFFSET REGISTER

sRETURN TO MAIN PROGRAM

@NRHCS1 ,R1
a#RH(CS2,R2
@#RHDS1,R3
A#RHER1 R4

;R1 WILL
;R2 WILL
;R3 WILL
;R4 WILL

#CLR,aR2

;CLEAR ALL REG.

2@1

;CLEAR FUNCTION BITS

@#OF SETC,ARHCST

Q#UNIT ,aR2

;MOV14 INTO RHCS1

BE
BE
BE
BE

CONTROL AND STATUSI
CONTROL AND STATUSZ
DISK STATUS REGISTER1
ERROR REGISTER #1

sREINSTATE UNIT NO.

CZR

po]

12:32

AU
SNISNISNSNISNISNISNSNSNISNSNISNISNSISNSNISNSNSNSNSNNYN

27-JUL-78

END OF PASS ROUTINE

MACY11 30A(1052)

M 12

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PN
26=JUL~-78 10:07

CZRJJCO, RPO4L/S/6 FCTNL CTRLR2
CZRJJC.P11

26=JUL-78 10:07

MACY11 30A(1052)

27=-JuL-78

END OF PASS ROUTINE

N 12

12:32

PAGE 157

SEQ 0156

7148
7149

7152

:THIS CHECKS DEVICE AVAILABLE (DVA) AND READY (RDY) IN RH(S1

;}gg

;1T MAY CHECK VOLUME VALID (VV) IN RHDS1, DEPENDING ON ENTRY POINT

;}gz

7157

:AND CHECKS MEDIUM ON LINE (MOL), DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDSI1

;}gg

033126

000000

7160

033130

011637

033126

7162
7163
;}gg

033142
033144
033150

011346
052716
000406

000100

7166

033152

011637

;}gg

033164

011346

7170

033166

011146

7172

033174

022726

7161

7167

7171

7173
7174

7175
7176
7177
7178
7179
7180
7181
7182
7183
7184
7185
;}gg
7188
7189

033134

033156

033170

162737

042716

000004

033126

000004

173577

001403

011137
104062

001122

033210
033214
033220

042716
022726
001404

102000
010700

033230

000207

033232
033236

062716
000207

033222
033226

011337
104061

033126

CHECK:

MOV

CHECKT: MOV

SuUB

MOV

CHECKC: MOV

BIC

CMP

:SAVE PC OF JSR+4

:GET PC OF JSR

(SP) ,a#PCJSR
#4 ,4PCJSR

:SAVE PC OF JSR+4

aR3,-(SP)
#VV, (SP)
CHECKC

:GET RHDS1
:DONT CHECK VvV BIT
:GOTO COMMON CHECK ROUTINE

:GET PC OF JSR

aR3,-(SP)

:GET RHDS1 & DO VV CHECK AT 3%

aR1,-(SP)

:GET CS1

#DVA'RDY, (SP)+

;RHCS1 SHOULD HAVE DEVICE AVAILABLE

#173577.(SP)

:CLEAR UNWANTED BITS

RTS

:BAD DATA REGISTER (RHCS1)
:RHCS1 DID NOT HAVE DEVICE
:AVAILABLE RIGHT AT THE START
:ALL OTHER BITS SHOULD BE 0
H#ATA'LBT,(SP)
;CLEAR UNWANTED BITS
#MOL 'DPR'DRY'VV,
(SP)+ ;RHDS1 SHOULD HAVE THESE SET
7%
:BRANCH IF GOOD
aR3,a#$BDADR
:BAD DATA IN REGISTER (RHDS1)
61
:RHDS1 HAS SOME BITS OTHER
:THAN MOL, DRY, DPR,VV SET
:ALL OTHER BITS SHOULD BE 0
PC
:RETURN TO TEST AND HALT

ADD
RTS

#6, (SP)
PC

:ADJUST STACK TO JUMP OVER HALT IN TEST
:RETURN TO TEST AND CONTINUE

BIC
CMP
BEQ

MOV
ERROR

7%:

(SP) ,a#PCJSR

#4 ,3#PCJSR

;AND BE READY
:BRANCH IF GOOD

MOV
ERROR

3%:

;PC OF JSR

BEQ

001122

000006

SuB

MOV
BIS
BR

004200

033200

033202
033206

033126

PCJSR:

aR1,a#$BDADR
62

CZRJJC.PN

26=JUL-78 10:07

;*THIS IS A SUBROUTINE TO SAVE REGISTERS

;*IN THE REGISTER TABLE TO ANY LOCATION
;*THE

;*JSR
o
I*

CALL

?O.QfiSAVER
;FROM
T

;1O

:NUMBER OF WORDS SAVED
N
o
RHCS1
BE
S
ALWAY
MUST
;*F
SAVRE
BE
ALWAYS
MUST
;*T

7201
7202
7203
7204

033240
033240
033242
033244

7206
7207

033250
033252

7209
7210
7211
7212
7213

033256
033260
033262
033264
033266

7208

27-JuL-78

END OF PASS ROUTINE

7190
79N
7192
7193
7194
7195
7196
7197
7198
7199

7205

B 13
12:32 PAGE 158

033246
033254

033270

SAVER:

010146
010246
010346
012001
012002
012003
013122
005303
001375
012603
012602
012601
000200

MOV
MOV
MOV

R1,-(SP)
R2.=(SP)
R3,-(SP)

;;PUSH R1 ON STACK
;;PUSH R2 ON STACK
;;PUSH R3 ON STACK

BNE
MOV
MOV

1%
(SP)+ ,R3
(SP) +,R2

;BRANCH IF NOT DONE
;;POP STACK INTO R3
;;POP STACK INTO RZ2

MOV
MOV
MOV
MOV
DEC

1%:

g?g

(RO) +,R1
(RO)+,R2
(RO)+,R3
a(R1)+,(R2)+
R3

égP)*,R1

;FROM
;70
sNUMBER
;SAVE REGISTER CONTENTS
s COUNT

;;POP STACK INTO R1

;WHEN AN EVENT IS TO BE TIMED THE RPO4 VECTORS TO ''TIME 1"’
;PRIORITY OF PROCESS OR IS 4
sPRIORITY OF TRAPS MUST BE 6
;PRIORITY OF RPO4 INTERRUPTS IS 7

033272
033276
033304
033312
033320

005077
017737
017737
017737
000002

146746
146746
146724
146720

033330
004564
004562

TIMET1:

TIME2:

CLR

aPCLCSR

;STOP THE CLOCK

MOV
MOV
RTI

@RHCC,a#F INACC
@dRHLA,a#F INALA

;GET CURRENT CYLINDER
;GET LOOK AHEAD
JRETURN TO WAIT P OR WAIT.T

MOV

aPCLCTR,Q#WAITTM ;GET TIME ON CLOCK

;THIS IS A WAIT LOOP WHEN AN EVENT IS TO BE TIMED

;THE

CALL

SEQ 0157

[alel

CZRJJCO, RPO4/5/6 FCTNL CTRLR2

;
MACY11 30A(1052)

CZRJJCO, RPO4L/S/6 FCTNL CTRLR?
CZRJJC.PN
26=JuUL~78 10:07
7246
7247
7248
7249
7250
7251
7252
7253
7254
7255
7256
7257
7258

7259

MACY11 30A(1052)
27=JUL-78
END OF PASS ROUTINE
WAT
B

TA
T0

c 13
12:32 PAGE 159

SEQ 0158

;ABSOLUTE REGISTER ADDRESS
;BIT WAITED FOR
sTIME ALLOWED GIVEN IN 10 MICROSEC

:TOLERANCE PLUS/MINUS IN 10 MICROSEC

R1-UILL HAVE TIME ALLOWED IN 10 MICRO SECONDS
;R2=-WILL HAVE TOLERANCE PLUS/MINUS IN 10 MICRQ SECONDS

:MINIMUM TIME THAT CAN BE MEASURED IS ABOUT 12 MICRO SECONDS
;FOR THE

033322
033324

7260
7261
7262

7263
7264
7265

7266
7267
7268
7269
7270
7271
7272
7273

7274
7275
7276

000000
000000
000000
000000
005037
005077
012777
010046
010146
010246
010346
016600
010037
162737
013037
012037
012001
012002
010066

sWAT FC

WAITPC:
WAITRE:
WAITBT:
WAITTM:
WAIT.P:

033330
146704
000021

SLOWEST PROCESSOR

sWAIT ON REGISTER ADDRESS
;WAIT ON BIT

ANWAITTM

aPCLBUF ;CLEAR COUNT SET BUFFER
#GO!BIT4,aPCLCSR ;COUNT UP, 100 KHZ, START CLOCK

146674

000010

033322

000002

033324
033326

033322

MOV
MOV

MOV

MOV
MOV

000010

;WAITED TIME
;CLEAR WAITED TIME

RO,=(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)
10(SP) ,RO
RO, a#WAITPC
#2 ,aMWAITPC
a(R0O)
+ ,a#WAI TRE
TBT
(RO) + ,a#WAI
(RO)+,R1
(RO) +,R2
RO,10(SP)

;;PUSH RO ON STACK

;:PUSH R1 ON STACK
::sPUSH R2 ON STACK

:;PUSH R3 ON STACK
;RO HAS ADDRESS OF NEXT LOCATION
;NOW WAITPC HAS WAT PC + 2
;WAT PC

IS IN WAITPC

;WAIT ON REGISTER ADDRESS
JWAIT ON BIT

;R1 HAS TIME IN 10 MSEC
:R2 HAS TOLERANCE IN 10 MSEC

;RESTORE RETURN ON STACK

;*THIS SECTION WAITS FOR BIT, THROUGH TWO COUNT DOWNS

7277
7278

7279
7280
7281

033500

013703
033777
001025
005303
001372
013703
033777
001015
005303
001372
017737
032777
001402
104001
000427
104002

033570
033326

177642

000100

177674

177654

1%:

2%:

001126

146506

3%:

MOV

;R3 IS A TEMPORARY COUNTER
A#WAITBT ,aWAITRE ;1S REQUIRED BIT THERE
43
;BRANCH IF YES
R3
;COUNT IF REQUIRED BIT NOT THERE

MOV

A#TIMCNT
,R3

BIT
BNE
DEC
BNE

BIT
BNE

DEC
BNE
MOV
BIT
BEQ
ERROR
BR
ERROR

a#TIMCNT
,R3

; TEMPORARY COUNTER
a#WAITBT ,aWAI TRE ;1S REQUIRED BIT THERE
4%
;BRANCH IF YES
R3
;COUNT IF REQUIRED BIT NOT THERE
2%
awAITRE ,a#$BDDAT ;REGISTER CONTENTS FOR TYPEOUT
#1E ,aRHCST
;DID ANY INTERRUPT OCCUR
3%
;BRANCH IF YES
;RPO4 DID NOT INTERRUPT
;

;0UT

*RP04 INTERRUPTED BUT WAITED
;ON BIT DID NOT OCCUR

*EVEN AFTER TWO COUNT DOWNS

033502

000425

033504

017737

177614

001126

4%:

;BS?H 177777 10 0

;*NOW TIME AND TOLERANCE WILL BE CHECKED
QWA TRE ,a#$BDDAT ;REGISTER CONTENTS FOR TYPEOQUT

MOV

CZRJJCO, RPO4L/S5/6 FCTNL CTRLRZ
CZRJJC.PN
26~JuL-78 10:07
7302

7303

;
MACY11 30A(1052)

27-JuL-78

END OF PASS ROUTINE
BIT
BEQ
ERROR

#1E,aRHCST
5%

BR
SuB
CMP

033512
033520
033522

032777

033524
033526
033530

000414

023701

033534
033536

103002
104004

BHIS
ERROR

033540

000406

033542
033544
033546

060202
060201
020137

033552
033554

103001
104004

033556
033556
033560
033562
033564
033566

012693
012602
012601
012600
000002

001402

00010 0

146460

104003

160201

5%:

03333 0

6£%:

03333 0

R2.R1
MWAITTM, R

SEQ 0159

;:DID ANY INTERRUPT OCCUR
;BRANCH IF YES

s INTERRUPT DID NOT OCCUR EVEN
;AFTER ONE BNE AND ONE MOV

;OF THE WAITED ON BIT SETTING
.0uT

*R1 NOW HAS LOWER LIMIT OF
*FOR GOOD RESULTS, WAITTM

*BRANCH IF GOOD

;0UT

ADD
ADD

R2.R2
R2.R1
R1,.4WAITTM

:DOUBLE TOLERANCE
*R1 NOW HAS UPPER LIMIT OF
;FOR GOOD RESULTS, WAITTM

BHIS
ERROR

;BRANCH IF GOOD

MOV

MOV
MOV

MOV
RTI

(SP)+ ,R3
(SP)+ ,R2
(SP)+,R1
(SP)+,RO

TIME

:¢gg} BE GREATER OR EQUAL

cMP

7%:

D13
12:32 PAGE 160

*BIT DID OCCUR BUT TIME
“TAKEN 1S BELOW LOWER LIMIT

TIME

;MUST BE LESS OR EQUAL TO R1
;BIT DID OCCUR BUT TIME TAKEN

;1S ABOVE UPPER LIMIT
:;POP
;;POP
;;POP
;;POP

STACK
STACK
STACK
STACK

INTO R3
INTO R2
INTO R1
INTO RO

JRETURN TO MAIN TEST

;THIS IS A WAIT LOOP WHEN NO P-CLOCK IS AVAILABLE

;NO TIMING IS DONE
;CALL IS
WAT

]

TA
TO

;ABSOLUTE REGISTER ADDRESS
;BIT WAITED FOR
;TIME-NOT USED HERE

: TIME-NOT USED HERE

*R3-1S A TEMPORARY COUNTER
033570
033572

000025

033574
033574
033576

010046
010346

033600
033604
033610
033616

177777

016600
010037
162737

013037

:
TIMCNT
RPTCTR:

WAIT.T:

033322

;COUNT FOR INTERRUPT WAIT (11/70 CPUW)

MOV

RO,-(SP)
R3,-(SP)

:;PUSH RO ON STACK
;;PUSH R3 ON STACK

MOV
MOV
SUB
MOV

4(SP) ,RO
RO,a#WAITPC

;RO HAS ADDRESS OF NEXT LOCATION
;WAT PC +2 IS IN WAITPC

MOV

000004
03332 2
00000 z
03332

;COUNT FOR WAIT LOOP

177777

#2,aMWAITPC

;WAT PC IS IN WAITPC

a(RO)+,a#WAITRE ;WAIT ON REGISTER ADDRESS

CZRJJCO, RPO4/S5/6 FCTNL CTRLRZ2
CZRJJC.PT
26~JuUL-78 10:07
012037
022020
010066

27-JuL-78
MACY11 30A(1052)
ROUTINE
PASS
END OF
MOV
CMP
MoV

033326
000004

E 13

12:32

SEQ 0160

PAGE 161

(RO)+,a#WAITBT
(RO)+, (RO)+
RO,4(SP)

;WAIT ON BIT
;DUMP NEXT TWO WORDS-TA, TO
sRESTORE RETURN ON STACK

;*THIS HAS THE TWO COUNT DOWNS FROM 177777
013703
033777
001025

005303
001372
013703
033777
001015
005303
001372

033570
033326

177456

177436

1%:

2%:

MOV

#TIMCNT R3

;R3 HAS TEMPORARY COUNT

ggg

;COUNT IF REQUIRED BIT NOT THERE

MOV

a#TIMCNT ,R3

;SECOND COUNT DOWN FROM 177777

gsg

;COUNT IF REQUIRED BIT NOT THERE

MOV
BIT

AWAITRE ,a#$BDDAT :REGISTER CONTENTS FOR TYPEOUT
#1E ,aRHCST
:DID ANY INTERRUPT OCCUR ?
3%

;BRANCH IF YES

BIT
BNE

AFWAITBT ,aWAITRE ;IS REQUIRED BIT THERE ?
;CHECK FOR THE INTERRUPT
4%

QNWAITBT ,aWAITRE ;IS REQUIRED BIT THERE ?
;CHECK FOR INTERRUPT
A3

7376

033710

017737
032777
001402

7378

033712

104001

ERROR

;RPO4 DID NOT INTERRUPT

7380

033714

000417

;0uT

7382

033716

104002

ERROR

;RP04 INTERRUPTED BUT

7386

033720

000415

*FROM 177777 T0 0
ouT

177424
000100

001126
146270

BEQ

3%:

;BIT DID NOT OCCUR

*WAITED ON BIT DID NOT OCCUR
*EVEN AFTER TWO COUNT DOWNS
il

;*BIT DID SET SO CHECK IF INTERRUPT OCCURRED

;*THE AMOUNT OF TIME ALLOWED CAN BE CHANGED BY ALTERING LOCATION
;*"RPTCTR"" ABOVE

7393
7394
7395

033722
033726
033730

013703
005303
001376

033572

7398
7399
7400
7401

033732
033740
033742
033750

032777
001405
017737

000100

146240

177356

001126

7404

033752

000400

76406
7407
7408
7409

033754
033754

033756
033760

104003

012603
012600
000002

6%:

MOV
DEC
BNE

@#RPTCTR,R3
R3
6%

;LOAD COUNTER WITH COUNT
;COUNT DOWN ONE
;DO AGAIN IF NOT ZERO YET

BIT

#1E,aRHCS1

;DID ANY INTERRUPT OCCUR ?

ERROR

s INTERRUPT DID NOT OCCUR
;EVEN AFTER ONE BNE OF
;THE WAITED ON BIT OCCURING

BEQ
MOV

5¢%:

5%
;BRANCH IF YES
aWwAI TRE ,a#$BDDAT ;REGISTER CONTENTS FOR TYPEOUT

J0UT ==e=ccccccccccee e e e m——

MOV
MOV

(SP)+,R3
(SP)+,R0

;;POP STACK INTO R3
;;POP STACK INTO RO

RTI

JRETURN TO MAIN TEST

CZRJJCO, RPOL/S/6 FCTNL CTRILR2
CZRJJC.PTT

26=JuL-78 10:07

7611
7412

7614

7422
7423

7424
7625
7426
74627
7428
7429
7430

7431
7432
7433

7434
7435
7436
7437
7438
7439
7440
7441
7442

033762
033762
033764
033766
033770
033772
033776
034000
034002
034006
034010
034014
034016
034020
034022
034024

010146
010246
012001
012002
162701

005720
001403
052061
000402

042061
005302
001367
012602
012601
000200

gSR

RO,a#CHREG

JREGISTER TO BE CHANGED
sNUMBER OF BITS TO BE CHANGED

sNEW VALUE OF BIT MUST BE O OR1
;POSITION OF BIT TC BE CHANGED

NEW

CHREG:

002172

1%:

TST

BEQ
BIS

004512
004512

MOV
MOV
MOV
MOV
SuB

2%:
3%:

BIC
DEC
BNE
MOV
MOV
RTS

TIMES

R1,=-(SP)
R2,=(SP)
(RO)+,R1
(RO)+,R2
#RHWC ,R1

:;PUSH R1 ON STACK
;;PUSH R2 ON STACK

(SP)+,R2
(SP)+ ,R1

;;POP STACK INTO R2
;.POP STACK INTO R1

+
(RO)

;R1

HAS ADDRESS OF

;R1

HAS OFSET OF

ADDRESS OF

;R2 HAS NUMBER OF CHANGES

REQUIRED REGISTER

;IS A BIC OR A BIS TO BE DONE
2%
;BRANCH IF A BIC IS REQUIRED
égO)*.SAVERE(R1) ;SET REQUIRED BIT
;BRANCH TO DECREMENT COUNT
(R1) :CLEAR REQUIRED BIT
(RO) +,SAVERE
R2
;DECREMENT NUMBER OF (HANGES
1%
;BRANCH IF NOT COMPLETE
RO

JRETURN TO MAIN PROGRAM

JTHIS FILLS A BLOCK WITH INCREMENTAL DATA
;CALL IS
5

#SR

:
b
010146

76462
7463

010321
060403
005302
001374
012604

7464
7465
7466

SEQ 0161

PAGE 162

JNEW AND P WILL BE REPEATED N NUMBER OF

7452
7453
7454
7455
7456
7457
7458
7459
7460
7461

7443

7444
7445
7446
74647
7448
7449
7450
7451

F 13

12:32

;THIS CHANGES REGISTER SAVED VALUE

;CALL IS

76413

7415
7416
7417
7618
7419
7420
74621

MACY11 30A(1052)
27-JuL-78
END OF PASS ROUTINE

FiLL:

010246
010346
010446
012001
012002
012003
012004

MOV
MOV

;FROM

;NUMBER OF WORDS
;STARTING VALUE OF DATA

S
I

; INCREMENT DATA BY

R1,-(SP)
R2,=(SP)

MOV

R3,-(SP)

MOV
MOV

(RO)+,R3
(RO)+,R4

MOV
MOV
MOV

1%:

RO,a#FILL

R4 ,~-(SP)
(RO)+,R1
(RO)+,R2

::PUSH R1

ON STACK

:;PUSH R2 ON STACK

;2PUSH R3 ON STACK
::PUSH R4 ON STACK
:R1 HAS ADDRESS WHERE DATA S TO GO

;R2 HAS NUMBER OF WORDS TO BE FILLED
;STARTING VALUE OF DATA
;R4 HAS INCREMENT

;*NOW DATA WILL BE FILLED

MOV

R3,(R1)+

MOV

(SP)+ ,R4

ADD
DEC
BNF

R4 ,R3
R2
1%

JFILL DATA
sGET NEXT VALUE OF DATA
sDECREMENT COUNT
JBRANCH IF ALL NOT DONE
;:POP STACK

INTO R4

CZRJJCO, RPO4/S/6 FCTNL CTRLR2

CZRJJC.P1

7467
7468

7469

7470

7471
7472
7473
7474
7475
7476

26=JUL=78 10:07

034060
034062
034064
034066

|
MACY11 30A(1052)

27-JuL-78

END OF PASS ROUTINE

012603
012602
012601
000200

MOV
MOV
MOV
RTS

7677
7478

;THIS

7481
7482
7483
7484
7485
7486
7487
7488
7489
7490
7491
7492

JSR

RHCS1

7504
7505
7506

7507
7508
7509
7510
7511
7512
7513
7514
7515
7516
7517
7518
7519
7520
7521
7522

SEQ 0162

(SP)+,R3
(SP)+,1n2

;;POP STACK INTO R3
;;POP STACK INTO R2

JRETURN TO MAIN PROGRAM

(SP)+,R1

IS A SUBROUTINE

;.POP STACK INTO R1

TO COMPARE REGISTERS

;GOOD DATA IS ALREADY SAVED IN °SAVERE'
;TEST DATA IS IN THE REGISTERS
;CALL IS

7479
7480

7493
7494
7495
7496
7497
7498
7499
7500
7501
7502
7503

G 13
12:32 PAGE 163

SAVERE

RO,a#COMREG

;GOOD DATA

;ADDRESS OF ADDRESS TEST DATA
;RETURN FOR ERROR
JRETURN FOR GOOD COMPARISON

N.
RG

:ON RETURN WITH ERROR 'SGDDAT' HAS GOOD DATA, ‘'SBDDAT' HAS BAD DATA
; "REGADR' HAS REGISTER ADDRESS
COMREG:

034070
034070
034072
034074
034076
034100
034102
034104
034106
034110
034112

010146
010246
010346
010446
010546
012001
012002
012003
012004
011000

034114
034120
034126

004737
113737
012705

035014
004537

034132
034136

062705
022122

000002

034140
034142
034146
034152
034160

001420
014137
014237
016537
004714

034162
034164
034170
034174
034200
034202
034204

022122
017746
042716
022726
001402
005303
001352

34206
034206

012605

MOV

R1,-(SP)

::PUSH R1 ON STACK

MOV

(RO)+,R1

;R1 HAS ADDRESS OF GOOD DATA

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

177776

001124
001126
002172

R2.,=(SP)
R3,-(SP)
R4 ,~-(SP)
RS5,-(SP)
(RO)+,R2
(RO)+,R3
(RO)+,R4
(RO) ,RO

;*NOW SAVE REGISTERS

002301
1%:

004500

144750
177177
000200

2%:

3%:

::PUSH
:2PUSH
::PUSH
.:PUSH

R2
R3
R4
R5

:R2
:R3
;R4
;RO

ADDRESS OF ADDRESS OF TEST DATA
NUMBER OF WORDS

HAS
HAS
HAS
HAS

ON
ON
ON
ON

STACK
STACK
STACK
STACK

RETURN FOR ERROR
RETURN ON NO ERROR

JSR

PC,a#PUTREG

;SAVE REGISTERS

ADD

#2 ,R5

; INCREMENT TO INDEX

CMP

(R1)+,(R2)+

MOVB
a#SAVERE +25,a#AS+1;MAKE UPPER BYTE OF RHAS SAME
MOV
#-2 RS
:PRESET RS TO =2
;*NO" COMPARES WILL MADE
CMP
BEQ
MOV
MOV
MOV
JSR

(R1)+,(R2)+
;COMPARE REGISTER CONTENTS
2%
;BRANCH IF GOOD
-(R1) ,a#$GDDAT
;SAVE GOOD DATA
-(R2) ,a#$BDDAT
;SAVE BAD DATA
RHWC (R5) ,a#REGADR
:SAVE ADDRESS OF FAILING REGISTER
PC.aR4
;RETURN TO MAIN PROGRAM

MOV

aSWR,-(SP)

MOV

(SP)+,RS

BIC
CMP
BEQ
DEC
BNE

#*C600, (SP)
#SWO7, (SP) +
3%
R3
1%

:TO PRINT ERROR

;UNDO =(R1) AND =(R2) FOR ERRORS
JGET SWITCH SETTING

;KEEP ONLY SWITCH 7 AND 8
;1S 7 SET AND 8 DOWN
;BRANCH QUT IF YES
;ARE ALL COMPARES DONE
;BRAN"'{ IF NOT COMPLETE
::;POP STACK INTO RS

(ZRJJCO, RPO4L/S/6 FCTNL CTRLR2
CZRJJC.P1
26=JuUL-78 10:07
7523

7524
7525
7526
7527
7528

034210

034212
034214
034216
034220
034222

MACY11

30A(1052)
27-JUL-78
END OF PASS ROUTINE

012604

012603
012602
012601
000200
000000

MOV

MOV
MOV
MOV
RTS
.WORD

H 13
12:32
PAGE 164

(SP)+ R4

(SP)+,n3
(SP)+,R2
(SP)+ ,R1
RO
0

;;POP STACK INTO R4

;;POP STACK INTO R3
;:POP STACK INTO R2
:.POP STACK INTO R1
JRETURN TO MAIN PROGRAM
; TEMP STORAGE

SEQ 0163

2
(W4
I

CZRJJCO, RPO4L/S/6 FCTNL CTRLR2
CZRJJC.PN
26=JUL~78 10:07

MACY1?

30A(1052)
27=JUL=78
END OF PASS ROUTINE

1 13

12:32

PAGE 165

SEQ 0164

7529

€2
c2l

7530

sHERE

7535
7536

;WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT
:THE PROGRAM GOES BACK TO CAN BE CHANGED.

{
{

7538
7539
7540
7541
7542
7543
7544

:1.
;2.

IT MUST BE WITHIN THE TEST UNDER CONSIDERATION
LOOP ON ERROR SWITCH MUST BE SET
;3.
THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION
:1F THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION
;THE PROGRAM WILL REVERT TO NORMAL OPERATION.
HOWEVER, IF LOOP ON
sTEST 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.

7547

:AFTER LOOPING FOR SOME

{

7532
;ggz

:THE RESTRICTIONS TO THE POINT WHERE

;222
;gzg

034224

000000

7552

034226

005037

177776

7554

034240

104401

034246

034226
034232

7555
7556
7557
7558
7559
7560
7561
7562
7563

034244
034310
034314
034316
034322
034354
034360
034362
034366

7565

034454

7564

7566

7567

7568

7569

7570
7571
7572
7573
7574

7575
7576
7577
7578

7579
7580
7581
7582
7583
7584

TIME

;NORMAL OPERATION WILL CONTINUE.

7550

7553

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.

7537

7551

IS A DETAILED EXPLAINATION OF

{

7531

034372

012737
000421
013746
104402
104401
000414
013746
104402
104401
104401

000430

001110
001223

034374

034530

000432

034616
034622
034626
034632
034672

062716
012637
104401
000417
104401

035012

034324

104401

034526

034676
035000
035002
035006

004504

034462

000420

034614

177777

104401

034460
034522

TESTAD:

104412

000440
104412
012637
013746

000002

000002
001106
034634

034700
001170
001106

OPERSEL :
040746

THE PROGRAM CAN GO ARE:

THE LOOP SWITCH IS PUT DOWN THEN
:FIRST ADDRESS OF

TEST

CLR

:MAKE PROCESSOR STATUS ZERO

TYPE

,65%

::TYPE ASCIZ STRING

MOV

BA
MOV
TYPOC
TYPE
BR
MOV
TYPOC
TYPE
TYPE

#-1,34PRITEM
A4S
@4TSTNM,-(SP)

,67%
66%
A¥SLPERR,-(SP)
,$CRLF

,69%

:CLEAR PREVIOUS ITEM NUMBER

::GET OVER THE ASCIZ
:GET READY TO TYPE TEST
:NUMBER
::TYPE ASCIZ STRING
::GET OVER THE ASCIZ
;GET READY TO TYPE LOOP BACK P(

::TYPE ASCIZ STRING

B3R

68%

::GET OVER THE ASCIZ

B8R

70%

::GET OVER THE ASCIZ

B8R

72%

::GET OVER THE ASCIZ

ADD
MOV
TYPE
BR
TYPE

#2,(SP)
(SP) +,a#SLPADR
,75%
74%
J77%

:GET LPADR

(SP)+,a#$LPERR
a#$LPADR,~(SP)

:GET LPERR

TYPE
TYPE

RDOCT

SR
RDOCT
MOV
MOV
RTI

,71%

,73%

76%

::TYPE ASCIZ STRING

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

a
f

{

{
{
{
{
{

}
{

{
{

{

{
{

(ZRJJCO, RPO4/S/6 FCTNL CTRLR2

END OF PASS ROUTINE

SEQ 0165

czZi

| CZi

THIS WILL MAKE

MOV
MOV
RTS

108

(SP)+,R2

;:POP

(SP)+,R1

::POP STACK INTO R1

(SP)+,R0O

SN
. s
s
e
M
S
S
S
.

REGISTERS

;STARTING ADDRESS OF

#WC ,R1
;STARTING ADDRESS OF SAVING LOCATIONS
#RHCC-RHW(C+2/2
,R2 ;NUMBER OF REG. INTO RZ2
aéRO)*,(R1)*
; SAVE HARDWARE REG.
STACK

INTO R2

:;POP STACK INTO RO

MOV

#RHWC ,RO

;;PUSH RO ON STACK
;;PUSH R1 ON STACK
;.PUSH R2 ON STA(CK

10%:

RO,=(SP)
R1,=(SP)
R2.-(SP)

012601
012600
000207

002172
002254
000022

MOV
MOV
MOV
MOV
MOV
MOV
DEC
BNE

005302
001375
012602

MOV

PUTREG:

010046
010146
010246
012700
012701
012702
013021

035014
035014
035016
035020
035022
035026
035032
035036
035040
035042
035044
035046
035050
035052

. S

;*ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT

;*AND NOT THE REGISTERS THEMSELVES.

;*IN MEMORY LOCATIONS TAGED FROM 'WC'' TO "EC2'’
;*THIS IS DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS

;*THIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS

7585
7586
7587
7588
7589
7590
7591
7592
7593
7594
7595
7596
7597
7598
7599
7600
7601

26=JuL=78 10:07

27-JuL=-78

J 13
12:32 PAGE 166

C(ZRJJC.P1

'
MACY11 30A(1052)

7625
7626
7627

7628
7629
7630
7631
7632

7633
7634
7635

035054
035060
035064
035070
035074
035100
035102
035106

012077
012077
012077
012077
013746
052016
012677
012077

035112
035116

013077
000200

7636
7637
7638
7639
7640
7641
7642
7643
7644
7645

MOV

004616

COM

s CYLINDER

MOV
MOV
MOV
MOV
BIS

(RO) +,@RHDST
(RO) +,aRHWC
(RO) +,aRHBA
a#UNIT,=(SP)
(RO)+, (SP)

;DESIRED SECTOR/TRACK
;WORD COUNT
;8US ADDRESS
sGET UNIT NO
;SET BUS ADDRESS INHIBIT

MOV

(RO) +,aRHOF

;FORMAT, ECC INHIBIT, HEADER

MOV
RTS

@(R0)+,aRHCST
RO

;COMMAND IN RH(S1
JRETURN TO MAIN PROGRAM

MCV

145070
145076

(RQ) +,aRHCA

;ECI = ECC CORRECTION INHIBIT
sHCI = HEADER COMPARE INHIBIT
; COMMAND ADDRESS

145062

(SP)+,3RHCS2

JUNIT NO AND BAI TO RH(CS?2
;COMPARE, IF THERE

;R1 HAS GOOD DATA BUFFER ADDRESS
;R2 HAS TEST DATA BUFFER ADDRESS
;R5 HAS ADDRESS OF RETURN ON ERROR

;R3 HAS NUMBER OF WORDS TO BE COMPARED

;R4 HAS ONE MORE THAN NUMBER OF WORDS TO BE COMPARED

sCALL IS

:
2
2
5
2
>

035120
035120
035122
035124
035126
035130
035132
035134
035136
035140
035142
035144

010146
010246
010346
010446
010546
012001
012002
012003
012005
011000
010304

COMPAR :

JSR
G
T
N
RE

RO,a#COMPAR
:ADDRESS OF GOOD DATA
:ADDRESS OF TEST DATA
:NUMBER OF WORDS TO BE COMPARED
;RETURN ON ERROR

MOV
MOV

R1,-(SP)
R2.=(SP)

MOV
MOV
MOV

R5,=(SP)
(RO) +,R1
(RO)+,R2

MOV
MOV

MOV
MOV
MOV
MOV

;RETURN ON NO ERROR

R3,-(SP)
R4 ,-(SP)

(RO)+,R3
(RO) +,RS
(RO) ,RO
R3,R4

::PUSH R1 ON STACK
;:PUSH R2 ON STACK
::PUSH R3 ON STACK
;:PUSH R4 ON STACK
:2PUSH R5 ON STACK
:;ADDRESS OF GOOD DATA BUFFER
;ADDRESS OF TEST DATA BUFFER
:NO OF WORDS TO BE COMPARED
;RETURN ON ERROR
:RETURN ON NO ERROR
:NO OF WORDS TO BE COMPARED

dhE

Sne. SRE.

Sae. S

Se. She. dbe. SRE

RUN:

;WORD COUNT

;BUS ADDRESS
;BUS ADDRESS INHIBIT
sFMT22=1 =16 BIT WORDS

B
BAI
FMT22'!ECI!HCI

s TRACK

-W

;SECTOR

:
H
3

:
:
:

s CYLINDER

;THIS IS A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY

7646

7647
7648
7649
7650
7651
7652
7653
7654
7655
7656
7657
7658

145132
145120
1457102
145100

RO, a#RUN

(COMMAND SETUP SUBROUTINE

CzZr
Czi

;THE CALL IS
JSR
:
C
;
;JOYIE §
T
;.BYTE

SEQ 0166

:THIS IS A DATA

7609
7610
7611
7612
7613
7614
7615
7616
7617
7618
7619

7620
7621
7622
7623
7624

END OF PASS ROUTINE

K 13
12:32 PAGE 167

26=JuL~78 10:07

27-JUL-78

. M. S

CZRJJC.PN

;
MACY11 30A(1052)

CZRJJCO, RPOL/5/6 FCTNL CTRLR2

035160
035164
035170
035174
035176
035200
035204
035210

014137
014237

035214
035216
035220
035222
035222
035224
035226

035230
035232
035234

160337

004715
022122
017746
042716
022726
001402
005303
001353

1%:

004502

MOV

R4
R4 ,a#ENWORD

BEQ

INC

001124
001126
004502

(R1)+,(R2)+

;FOR ERROR WORD NO
;COMPARE GOOD WITH TEST DATA
;BRANCH IF GOOD

=(R1) ,a#$GDDAT
=(R2) ,a#$BDDAT
R3,a#ERWORD

;GOOD DATA
;BAD DATA
;ERROR WORD NO.

#*C600, (SP)

:KEEP ONLY SWITCH 7 AND 8
;1S 7 SET AND 8 RESET
;BRANCH OUT IF YES

;RETURN TO PRINT ERROR
PC,aR5
(R1)+,(R2)+
;UNDO =(R1) AND =(R2) FOR ERRORS
(SP)
=R,
aSW
JGET SWITCH SETTING

143734
177177
000200

#SWO7, (SP) +
3%
R3

29:

3%:

012605
012604
012603
012602
012601
000200

(SP)+,RS
(SP)+ R4

; COUNT

;BRANCH IF ALL NOT DEVICE

;;POP STACK
;;POP STACK
;;POP STACK
;;POP STACK
:.POP STACK

INTO R5
INTO R4
INTO R3
INTO R2
INTO R1

(SP)+,R3
MOV
(SP)+,R2
MOV
(SP)+,R1
MOV
;RETURN TO MAIN PROGRAM
RO
RTS
THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE
ADDRESS FROM 176700 TO ANY TYPED VALUE

7705

7710

7715

7720

035236
035236
035242
035316
035322
035324
035330
035404
035410
035412
035416
035422
035430
035434
035436
035442
035446
035450
035452
035454
035454
035460
035520
035524
035526
035532
035632
035634
035640
035644

104401

000425
013746

104402
104401
000425

002200

037340

012700
012701
012737
021637
001407
005776

002170
000026
036226
002200

163716

061620
005301
001375
104401
000417
013746
104402
104401

000437
104412

012637
104401

000417

000000
002200

035462
002166

035534
002166
035646

649
a#RHCS1,-(SP)

BR
JSR

66%
PC,a#STKINT

RDOCT
MOV
MOV
MOV

000004

CMP
BEQ
TST

2%:
1%:

.65%

TYPE
BR
MOV

TYPOC
TYPE

035332

004737
104412

BASECH:

035244

SuB

ADD

DEC
BNE

;s TYPE ASCIZ STRING

;.GET OVER THE ASCIZ

;GET READY TO TYPE OLD BASE

.67%

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
sINITIALIZE THE TTY KEYBOARD

#RHDB RO
'22.:R1
#ADTIMO,a#4
?iP.BfiRHCST

;GET STARTING ADDRESS OF REGISTERS
;NUMBER OF REGISTERS
;SET UP TRAP CATCHER FOR TEST

a0(SP)
@#RHCS1,aSP
aSP, (RO) +
R1

;NEW ADDRESS

;NO, JUST OLD ONE RETYPED
;DO THE ADDRESS ACCESS
;GET THE ADDRESS OFFSET
sAND PLUG IT IN
;ONE LESS REGISTER TO DO
;BUT WE'RE NOT DONE YET!

,69%

MOV

68%
Q#RPVEC,-(SP)

;. TYPE ASCIZ STRING
:.GET OVER THE ASCIZ
;GET READY TO TYPE OLD VECTOR ADDRESS

/1%
708

;. TYPE ASCIZ STRING
;;GET OVER THE ASCIZ

(SP) +,a#RPVEC

sSETUP VECTOR ADDRESS
;:TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

TYPE

TYPOC
TYPE

RDOCT
MOV
TYPE

.73%

72%

O 0N A0 On On 00 On On 00 00 O 00 00 0o 00 00 0o N0 00 0o 00 00

7671
7672
7673
7674
7675

005204
010437
022122
001417

CZR
CZR

0 Y0 A Pn 0 O An On A0 0N An O

7667
7668
7669
7670

035146
035150
035154
035156

SEQ 0167

PAGE 168

7666

END OF PASS ROUTINE

12:32

Y P P

7665

26-JuL-78 10:07

27-JUL=78

YA P P

CZRJJC.PN

MACY11 30A(1052)

L 13

o P P P

CZRJJCO. RPO4/S/6 FCTNL CTRLR2

104402
104401

035720

BR
MOV

002166

TYPOC
TYPE
BR
TYPE
BR
TYPE
BR
TYPE
BR
MOV

035772
036036

036050
036126
000200

TYPOC
TYPE

036216
004710

036234

035236

ADTIMO:

BR
JMP

TYPE
BR
CMP
JMP

@#RHCS1,-(SP)

758
4%
Q#RPVEC,=(SP)

;:TYPE ASCIZ STRING
:2GET OVER THE ASCIZ

/7%
76%
.79%
78%
,81%
80%
,83%
82%

;sTYPE ASCIZ STRING

.85%
84%
A#BEGIN

;:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
;DO IT OVER AGAIN

.65%
648
(SP)+, (SP)+

;:TYPE ASCIZ STRING

#RA,=(SP)

Q#BASECH

::GET OVER THE ASCIZ
;sTYPE ASCIZ STRING

::GET OVER THE ASCIZ
:2TYPE ASCIZ STRING

::GET OVER THE ASCIZ

::GET OVER THE ASCIZ
JRESTORE STACK
;AND DO THE QUERY AGAIN!

CZR

0 0 A On 00 00 00 On O On O A0 On 00 On 00 On 00 00 00 00 00 00 00 00 00 00 00 00 00

000417
013746

MOV
TYPOC
TYPE

002200

CZR

Y P P

7727

104402
104401

SEQ 0168

Y P

7724
7725
7726

013746

PAGE 169

Y P

7723

035704
035710
035712
035716
035756
035762
035764

END OF PASS ROUTINE

M 13

12:32

YA P

7721
7722

26=-JuL-78 10:07

27-JUL=-78

o P P P P P P P P

CZRIJC.PN

MACY11 30A(1052)

— e o o P

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2

104401

000424

104402

012777
000000

RPVE(CT:

036320
036312

143566

TYPE

,65%

648

MOV

#RPVECT ,aRPVEC

TYPOC

HALT

SEQ 0169

PAGE 170
;s TYPE ASCIZ STRING

::GET OVER THE ASCIZ

;TYPE FROM PC

;RESTORE TRAP RP04 VECTOR
;CHANGE TO CONTINUE

CZR

N O An MO0 00 0N 00 00 00 On On 00 0o 00 00

036312
036312
036316
036370
036372
036400

END OF PASS ROUTINE

N 13

12:32

N A

7746
7747
7748
7749
7750
7751
7752
7753

26=-JuL-78 10:07

27-JuL-78

A An AN

CZRJJC.PII

MACY11 30A(1052)

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2

7754
7755
7756
7757
7758
7759
7760
7761
7762
7763
7764
7765

7766
7767
7768

7769
7770
7771
7772
7773
7774
7775
7776
7777
7778
7779
7780
7781
7782
7783
7784
7785
7786
7787
7788
7789

27-JUuL-78

SYSMAC LIBRARY ROUTINES

.SBTTL

040000
000004
036442

177060

1462526

1%:

000004

5%:

000004

000400

142460

142452

001102

001115

001103

001000

142422

001110

001106

001103
001212
142370

001100

000001

BIT
BNE

001104

001104
001212

MOV
MOV
TST
MOV
BR
CMP
MOV
BR

BIT
BEQ

2%:

001103

001104
001212

CKSWR

$XTSTR: BR

000004

004000

7%:

CMPB
BEQ

TSTB

BEQ
CMPB
BHI

BIT
BEQ

MOV
BR
4%:
CLRB
CLR
BR
3%:
BIT
BNE
TST
BEQ
INC
CMP
BGE
1%:
MOV
MOV
$SVLAD: INCB
MOV
MOV

001106

B 14
12:32 PAGE 171

001115
142276

$OVER:

CLR
MOVB
MOV

:
$MXCNT

MOV
RTI

SYSMAC LIBRARY ROUTINES

#BIT14 ,aSWR
$OVER
6%
a#ERRVEC,~(SP)
#5% ,a#ERRVEC

a#177060

(SP)+ ,@#ERRVEC
$SVLAD
(SP)+,(SP)+
(iP)*,ifiERRVEC
7

#BITO8,3SWR
2%

aSWR,$TSTNM
$OVER
$ERFLG
3%

gERHAX.SERFLG
#81709,aSWR
4%

$LPERR, $LPADR
$OVER
$ERFLG
$TIMES
1%

::TEST FOR CHANGE [N SOF T-SWR
;;LOOP ON PRESENT TEST?
;:YES IF SW14=1
::1F RUNNING ON THE “OR'' TESTER CHANGE
;sSAVE 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
;:LOOP ON SPEC. TEST?
;:BR IF NO
SWR<7:0>
;;ON THE RIGHT TEST?
;:BR IF YES
;;HAS AN ERROR OCCURRED?
;:BR IF NO
::MAX. ERRORS FOR THIS TEST OCCURRED?
;:;BR IF NO
;;LO0P ON ERROR?
;:BR IF NO

;:SET LOOP ADDRESS TO LAST SCOPE
;:ZERO THE ERROR FLAG

::CLEAR THE NUMBER OF ITERATIONS TO MAKE
:;ESCAPE TO THE NEXT TEST
#81T11,aSWR
;;INHIBIT ITERATIONS?
;:BR IF YES
::IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
23
$ICNT
: :INCREMENT ITERATION COUNT
$TIMES,SICNT
:;CHECK THE NUMBER OF ITERATIONS MADE
$OVER
::BR IF MORE ITERATION REQUIRED
#1,8I1CNT
;;REINITIALIZE THE ITERATION COUNTER
SMXCNT ,STIMES
;:SET NUMBER OF ITERATIONS TO DO
$TSTNM
;;COUNT TEST NUMBERS
(SP) ,$LPADR
;;SAVE SCOPE LOOP ADDRESS
(SP) ,$LPERR
:;SAVE ERROR LOOP ADDRESS
$ESCAPE
::CLEAR THE ESCAPE FROM ERROR ADDRESS
#1,SERMAX
:2ONLY ALLOW ONE(1) ERROR ON NEXT TEST
STSTNM,aDISPLAY ::DISPLAY TEST NUMBER
$LPADR, (SP)
::FUDGE RETURN ADDRESS
::FIXES PS

::MAX. NUMBER OF ITERATIONS

SEQ 0170

(alal

CZRJJCO, RPO4L/5/6 FCTNL CTRLRZ
CZRJJC.PI
26=-JuL-78 10:07

'
MACY11 30A(1052)

CZRJJCO, RPO4/5/6 FCTNL CTRLR?
CZRJJC. P11
26=JuL~ 78 10:07
010046
010146
010246
010346
010546
012746
016605
100004

005405

112766

005000
012703
112723
005002
016001
160105
002402
005202
000774
060105

C 14
27=JUL-78 12:32 PAGE 172
MACY11 30A(1052)
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

020200
000020

000055

000001

037070
000040

2%:

037060

3%:

4%:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG
MOvVB
CLR
MOV
mMovB
CLR
MOV
SuB

BLT
INC
BR
ADD
TST
BNE

RO,=(SP)
R1,=(SP)

R2,=(SP)
R3,-(SP)
R5,=(SP)
#20200,=(SP)
%g(SP),RS
#'-,1(SP)

:BR IF INPUT IS POS.
HAKE THE BINARY NUMBER POS.
JMAKE THE ASCII NUMBER NEG.

2 (R3)+

;:SET THE FIRST CHARACTER TO A BLANK

RO
#$DBLK ,R3
R2

$DTBL (RO) ,R1

R1.R

43
R2
3%
R1,RS

TSTB

5%:
000001
000060
000040

177777

7%:

TST

000010

CMP
BLT
BGT
MOV

8%:
177777

037070
000002

BMI
ASLB
BCC
mMovB
BIS
BIS
MOvVB

177776

9%:

BR
TSTB
BPL
MOvB
CLRB
MOV

6%
1(SP) ,=1(R3)

#'0,R2
#' R2

R2,(R3)+

(RO)
+
RO, #10

9%
=1(SP) ,=2(R3)
(R3)

(SP)+ RS
(SP)+ ,R3
(SP)+,R2
(SP)+,R1
(SP)+ R0

,$DBLK
2(SP) ,4(SP)

000004

(SP)+,(SP)

:
$DTBL

;;PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
:;PUSH R3 ON STACK
;;PUSH RS ON STACK
::SET BLANK SWITCH AND SIGN
::GEY THE INPUT NUMBER

::ZERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER
::;CLEAR THE BCD NUMBER
:2GET THE CONSTANT
,,FORM THIS BCD DIGIT
BR IF DONE

INCREASE THE BCD DIGIT BY 1

::ADD BACK THE CONSTANT

::CHECK IF BCD DIGIT=0
:2FALL THROUGH IF 0
;:STILL DOING LEADING 0'S?
;:BR IF YES
:<MSD?

2:BR IF NO

:;YES==SET THE SIGN
;:MAKE THE BCD DIGIT ASCII

::MAKE IT A SPACE IF NOT ALREADY A DIGIT
::PUT THIS CHARACTER IN THE OUTPUT BUFFER
;s JUST INCREMENTING
::CHECK THE TABLE INDEX
::G0 DO THE NEXT DIGIT
::G0 TO EXIT
::GET THE LSD
::GO0 CHANGE TO ASCII
::WAS THE LSD THE FIRST NON-ZERO?

;:BR IF NO

;:YES=-SET THE SIGN FOR TYPING
::SET THE TERMINATOR
:;POP STACK INTO RS
;:POP STACK INTO R3
::POP STACK INTO R2
;:POP STACK INTO R1
..POP STACK INTO RO
:NOW TYPE THE NUMBER

ADJUST THE STACK

;;RETURN TO USER

SEQ 0171

——

CZRJJCO, RPO4L/S/6 FCTNL CTRLR2

7876
7877

7878
7879
7880
7881
7882
7883
7884
7885
7886
7887
7888
7889
7890
7891
7892
7893
78%4
7895
7896
7897
7898
7899
7900
7901
7902

037172
037176
037200
037204
037210
037212
037216
037222
037224
037230
037234
037242
037244
037246
037250
037254

037256
037264
037272
037274

001157

TSTB

BPL
HALT

$TPFLG
1%

;;1S THERE A TERMINAL?

;:BR IF YES

;sHALT HERE IF NO TERMINAL
;s LEAVE
;SAVE RO
;GET ADDRESS OF ASCIZ STRING
;PUSH CHARACTER TO BE TYPED ONTO STACK
;BR IF IT ISN'T THE TERMINATOR

MOV

RO,=(SP)

2%:

MOVB

000002

60%:
3%:

MOV
ADD

(RO)+,-(SP)
48
+
(SP)
(SP)+,R0

#2,(SP)

000011

4%:

CMPB

#HT
, (SP)
#CRLF
, (SP)

::BRANCH IF NOT <CRLF>

+
(SP)

;:POP
<CR><LF> EQUIV
;:TYPE A CR AND LF

$CHARCNT

:;CLEAR CHARACTER COUNT
:;GET NEXT CHARACTER
;260 TYPE THIS CHARACTER
:2I1S IT TIME FOR FILLER CHARS.?
;oIF NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED
;;DOES A NULL NEED TO BE TYPED?
::BR IF NO=--GO POP THE NULL OFF OF STACK
;GO TYPE A NULL
;:DO NOT COUNT AS A COUNT
;. LOOP

000002

000200

5%:
6%:

037250
001156
001154
000001

7%:

JSR
CMPB
DECB

PC,STYPEC

S;ILLC.(SP)+

S$NULL ,-(SP)
1(SP)

PC,STYPEC

037250
037314

$CHARCNT

8%:

037314

141674

000002
000015

037314

000040
037250
000007

@2 (SP) ,RO

9%:

$TYPEC:

MOVB
JSR

BR
TSTB

$TYPEC

2(SP) ,a$TPB

1461666

000002

037314
000002

7%
#' ,(SP)
PC,STYPEC
#7 ,$CHARCNT

1%:

CMPB

BEQ
INCB
$CHARCNT
: . WORD
$TYPEX: RTS

#CR,2(SP)
1%
$CHARCNT
$TYPEX
#LF ,2(SP)
$TYPEX
(PC)+

1%:

000012

037316

$TYPE:

100002

105737

SEQ 0172

7858
7859
7860
7861
7862
7863
7864
7865
7866
7867
7868
7869
7870
7871
7872
7873
7874
7875

037100
037104
037106
037110
037112
037114
037120
037122
037124
037126
037130
037134
037136
037142
037144
037150
037152
037154
037156
037160
037164
037166

7856
7857

27-JuL=-78

TYPE ROUTINE

7855

26=JuL-78 10:07

D 14
12:32 PAGE 173

CZRJJC.PN

;
MACY11 30A(1052)

;IF TERMINATOR POP IT OFF THE STACK

;RESTORE RO

;ADJUST RETURN PC
;RETURN

;BRANCH IF <HT>

;sREPLACE

TAB WITH SPACE

;.;TYPE A SPACE

;;BRANCH IF NOT AT
;:TAB STOP
;;POP SPACE OFF STACK
::GET NEXT CHARACTER
::WAIT UNTIL PRINTER IS READY

;:LOAD CHAR TO BE TYPED INTO DATA REG.
;.1S CHARACTER A CARRIAGE RETURN?
; ;BRANCH IF NO
::E;?;-CLEAR CHARACTER COUNT
;1S CHARACTER A LINE FEED?
s ;BRANCH IF YES
;;COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

CZRJJCO, RPO4/S5/6 FCTNL CTRLRZ2
CZRJJC.PN
26~JuL~-78 10:07
7903
7904
7905

MACY11 30A(1052)

TTY INPUT ROUTINE

037320

037320
037326
037322
037410
000200

7906

7907
7908
7909

7910

141546
000100

7911
7912

7913

037322
037324
000060
000062
141536

141532
177600

7914
7915

27=JUL=78

$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKINT: CLR
MOV
MOV
MOV
MOV
TST
MOV
RTS
$TKSRY: MOVB

000003

7916

7917
7918
7919
7920
7921
7922
7923
7924
7925
7926
7927
7928
7929
7930
7931
7932
7933
7934
7935

1%:

001140

000011

037320

CMP

000023

3%:

CMP

31%:

TSTB

177600
000021

141374

037320
000140

32%:

INC
8LT

000175
4%:

MOVB

037337

037326

037322

000176

001140

5%:

$CKSWR:

RTI

CMP

TSTB
BPL

;:RETURN TO CALLER

;:PICKUP THE CHARACTER

(SP) ,#3

;:IS IT A CONTROL C?

#-C177,(SP)

OPERSEL
(SP) ,#7
2%

(SP) +
5%
(SP) ,#23

32%

(SP) +

28$TKS
31%

9$TKB,-(SP)
#~C177,(SP)
(SP)+ 421
31%
#100,9%8TKS

141416

;;ENABLE TTY KEYBOARD INIERRUPT

a$TKB,~(SP)

a$TKS

141422

100121

;sCLEAR DONE FLAG

#100,a8TKS

33
JSBELL

141430

141302

2% TkKB

;;QUEUE INTO THE INPUT & OUTPUT POINTERS.

#STKSRV,a#TKVEC ;;INITIALIZE THE KEYBOARD VECTOR
#200,3#TKVEC+2
;;'BR'" LEVEL 4

#SWREG, SWR
6%
#9. ,$TKCNT

001216

037322

;;NUMBER OF ITEMS IN QUEUE
;s INPUT POINTER
; sOUTPUT POINTER
;;CLEAR COUNT OF ITEMS IN QUEUE
;;MOVE THE STARTING ADDRESS OF THE

PC,$TKINT
(SP)+

000176

000040
177520
037322

0
0
0
$TKCNT
#$TKQSRT ,$TKQIN
$TKQIN,$TKQOUT

LSCNTLC

034226
000007

SEQ 0173

PAGE 174

040377
037340

000100

E 14

12:32

$TKCNT
(SP) #4140

(SP) #8175

4%
#40, (SP)

(SP)+,a$TKQIN
$TKQIN
$TKQIN,#$TKQEND
5%
#$TKQSRT,$TKQIN
#SWREG, SWR

15%
a$TKS
15%

S:STRIP THE JUNK
;:BRANCH IF NO

;:TYPE A CONTROL=C (*C)
;2INIT THE KEYBOARD
:2CLEAN UP STACK

;sCONTROL C RESTART
:2IS IT A CONTROL G?
; ;BRANCH IF NO

;1S SOFT-SWR SELECTED?
::G0 TO SWR CHANGE
;:1S THE QUEUE FULL?

:;BRANCH IF NO
;2RING THE TTY BELL

::CLEAN CHARACTER OFF OF
soEXIT

STACK

;21S IT A CONTROL=-S?
:;BRANCH IF NO

::DISABLE TTY KEYBOARD INTERRUPTS
::CLEAN CHAR OFF STACK

;;WAIT FOR A CHAR
::LOOP UNTIL ITS THERE

;:GET THE CHARACTER
;:MAKE IT 7-BIT ASCII
;:1S IT A CONTROL=-Q?
;:BRANCH IF NO
:REENABLE TTY KEYBOARD INTERRUPTS
; JRETURN

::COUNT THIS CHARACTER
;21S IT UPPER CASE?
::BRANCH IF

YES

:21S IT A SPECIAL CHAR?
::BRANCH IF YES
;;MAKE IT UPPER CASE

;;AND PUT IT IN QUEUE
:;UPDATE THE POINTER
;;GO OFF THE END?

;;BRANCH IF NO

;;RESET THE POINTER

;;RETURN
::1S THE SOFT=-SWR SELECTED
JJEXIT IF NOT

;1S A CHAR WAITING?
:21F NOT, EXIT

CZRJJCO, RPO4L/S5/6 FCTNL CTRLRZ
CZRJJC.P1T
26=JuL-78 10:07
7959

7960
7961
7962
7963

7964

7965
7966
7967
7968
7969
7970
7971
7972
7973
7974
7975
7976
7977
7978
7979
7980
7981
7982
7983
7984
7985
7986
7987

037644

037650
037654
037660
037662

037670

037672
037674
037700
037704
037712
037716
037722
037726
037730
037734
037736
037740
037744
037746
037752
037756
037762
037764
037770
037774
040002
040004
040012

117746

042716
021627
001300
123727

001674

MACY11

30A(1052)
TTY

INPUT ROUTINE

141276
177600

000007

001134

000001

6%:

037340

141240

000001
040411
040416
000176

001135
$GTSWR:

040427

27-JuL-78

MOvB
BIC
CMP
BNE
CMPB

BEQ
TST
JSR
CLR
MOvB

TYPE
TYPE
MOV

7%:

(SP) 43

LSCNTLC

#6,SP

000001

$INTAG,#1
8%

141132

#100,38TKS
OPERSEL

9%:

000015

10%:

(SP) 425
108

LSCNTLU
#6,SP

19%
(SP) ,#15
16%
4(SP)
11%

001403
8014

040146

006316
006316

141060

001223
001135

000001

000100

141036

000067
000060
000002

LSCNTLG

, SMSWR
SWREG,-(SP)

000004

021627
003015

a$TKS

#1,8INTAG

a$TKB,~(SP)

20%:

037250
000060

(SP)+
PC,S$TKINT

#~C177,(SP)

040404
000006

000002
000006

asTKS

000003

000100
034226
000025

2%
#1
$SAUTOB,

-(SP)
-(SP)

141174
177600

040377
000006
001135

as$TKR,=(SP)

#AC177,(SP)
(SP) 47

LSMNEW

19%:

141200

12:32

TYPE

2(SP) ,aSWwR
#6,SP
LSCRLF
$INTAG,#1
15%

#100,a8TKS

15%:

16%:

BLT
BGT

PC,$TYPEC
(SP) 460
18%
(SP) ,#67
18%
#60, (SP) +

2(SP)
17%

ASL

(SP)
(SP)
(SP)

PAGE

SEQ 0174

175

::YES
;;MAKE IT 7-BIT ASCII
;IS IT A CONTROL=G?
;2IF NOT, PUT IT IN THE TTY QUEUE
;sARE WE RUNNING IN AUTO-MODE?

; :BRANCH IF

YES

;:CLEAR CONTROL=-G OFF STACK
;;FLUSH THE TTY INPUT QUEUE
;:;DISABLE TTY KEYBOARD INTERRUPTS
;:SET INTERRUPT MODE INDICATOR
;;ECHO THE CONTROL-G (*G)

;:TYPE

CURRENT CONTENTS

;:SAVE SWREG FOR TYPEOUT
;.GO TYPE--OCTAL ASCII(ALL DIGITS)
;;PROMPT FOR NEW SWR
;:CLEAR COUNTER
;:THE NEW SWR
;;CHAR THERE?
;:IF NOT TRY AGAIN

;:PICK UP CHAR

:;MAKE IT 7-BIT ASCII
;2IS IT A CONTROL=C?
;JBRANCH IF NOT
;:YES, ECHO CONTROL=C (*C)
;.CLEAN UP STACK
s JREENABLE TTY KEYBOARD INTERRUPTS?
;;BRANCH IF NO
;:;ALLOW TTY KEYBOARD INTERRUPTS
;;CONTROL=-C RESTART
;1S IT A CONTROL=U?
;2BRANCH IF NOT
;:YES, ECHO CONTROL=-U (*U)
;s IGNORE PREVIOUS INPUT

;;LET'S TRY IT AGAIN
;IS IT A <CR>?
;;BRANCH IF NO
:2YES, IS IT THE FIRST CHAR?
;;BRANCH [F YES
. :SAVE NEW SWR
;:CLEAR UP STACK
;:ECHO <CR> AND <LF>
;;RE=-ENABLE TTY KBD INTERRUPTS?
. sBRANCH IF NOT
;JRE=-ENABLE TTY KBD INTERRUPTS

;;RETURN

;;ECHO CHAR

:;CHAR < 0?

;;BRANCH IF YES
::CHAR > 7?
; :BRANCH IF YES
;:STRIP-OFF ASCII
;:1S THIS THE FIRST CHAR
;;BRANCH IF YES
;iNO,

o3
23

SHIFT PRESENT

CHAR OVER TO MAKE
ROOM FOR NEW ONE.

CZRJJCO, RPO4L/5/6 FCTNL CTRLRZ2
C(ZRJJC.P1T
26=JUL~78 10:07

8015

8016
8017

8018
8019
8020
8021
8022
8023
8024

8025

8026

8027

8028
8029
8030
8031
8032
8033
8034
8035

040150
040154
040160

040162
040166
040170
040172
040200
040204
040206
040212
040214
040220
040222
040226
040234
040240
040246
040250
040256
040260
040262
040266
040272
040274
040276
040300
040304
040306
040312
040314
040320
040324
040330

040332
040336
040342
040344
040346
040354

040362
040364
040365
040377

040404
040411
040416
040424
040427

040434

005266
056616
000667

MACY1? Z0A(1052)
TTY

000002

17%:

001222

18%:

177776

000004
000004

000002

177072

037324
037324

037326

INC

000004

037337

TST

BEQ
DEC
MOVB
INC
CMP

BNE

MOV

RTI
2%:
$RDLIN: MOV

(SP)+,R3

3%:

BNE

TYPE

MOV

$CNTLC:

; :RETURN

MOV

040364
040364
000015

006503
005015
006507
053523
000
047040
000040

1%
$TKCNT
s ;DECREMENT THE COUNTER
,4 (SP)
a$TKQOUT
;;GET ONE CHARACTER
$TKQOUT
;sUPDATE THE POINTER
$TKQOUT ,#$TKQEND ;;DID IT GO OFF OF THE END?
2%
s ;BRANCH IF NO
#$TKQSRT,$TKQOUT ;.;RESET THE POINTER

#15,(R3)+
2%
-1(R3)

TYPE

9%:

STACK

::POP NEW PC AND PS
;;WAIT ON A CHARACTER

CMPB
BNE
CLRB

4%:

000002
000004

;:PUT NEW PC ON

:2CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER

001222

000004
040366

::GET READY FOR A CHARACTER
;:PUT NEW PS ON STACK

1%
(R3),9%

10%:

CMP
BLOS

RDCHR

177777

;:THE PS

BR
MOVB

000177

MOVB
CMPB

001224

$TKCNT

?2<CR><LF>

:;SIMULATE CONTROL=-U
;;PUSH DOWN THE PC AND

MOV

2%:

-(SP)
#64%,-(SP)

(CHAR

;:SET IN NEW CHAR
;;GET THE NEXT ONE

;2SAVE R3
::GET ADDRESS
;:BUFFER FULL?
;:BR IF YES
;:G0 READ ONE CHARACTER FROM THE TTY
::GET CHARACTER
;:I1S IT A RUBQUT
;:SKIP IF NOT

1%:

040366
040377

:2TYPE

20%
(SP) ,=(SP)
L(SP) ,2(SP)
4&(SP)

1%:

037324

,SQUES

2R
$RDCHR: MOV
MOV
CLR
RTI

SEQ 0175

176
;;KEEP COUNT OF

)
, (SP)
-2(SP
7%

TYPE

PAGE

2(SP)

BIS
8R

040214

037320

12:32

INPUT ROUTINE

CLR
MOV

037320

G 14

27=JuL~-78

R3,-(SP)

#STTYIN,R3

#STTYIN+9.
,R3
A3
(SP)+,(R3)
#177,(R3)
,SQUES

,9%

..ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT
-5

.ASCIZ

/*C/<15><12>

$CNTLU:
$CNTLG:
$MSWR:

.ASCIZ
.ASCIZ
L.ASCIZ

053505

$MNEW:

L.ASCIZ

::CLEAR RETURN (THE 15)

(SP) ,-(SP)

4(SP) ,2(SP)

BYTE

000012
000
000012
020122

:;CHECK FOR RETURN
;:LOOP IF NOT RETURN
;;TYPE A LINE

#STTYIN,4(SP)

.BYTE

*?°

LSLF

MOV

RTI

2:TYPE A

FEED

; JRETURN

;:STORAGE FOR ASCII CHAR. TO TYPE

/*U/<15><12>
/*G/<15><12>
<15><12>/SWR =
/

;RESTORE R3

;;TERMINATOR

::CONTROL ''C''
;:CONTROL 'V’
;2CONTROL "G’

NEW =
;FROM THE

TTY

CZRJJCO, RPOL/5/6 FCTNL CTRLR2
CZRJJC.PIT
26-JUL-78 10:07
8066
8067

040440
040442

011646
016666
010046
010146
010246

000004

000002

$RDOCT: MOV

040566
2%:

112046

000060

000067

CLR
CLR
MOVB
BEQ
CMPB
BGT
CMPB
BLT

BIC

ADD

3%:

(%:

001222

MOV
MOV
MOV
MOV
RDLIN
MOV
MOV

ASL
ROL
ASL
ROL
ASL
ROL

177770

000012
040576

H 14

12:32

PAGE 177

SEQ 017€

READ AN OCTAL NUMBER FROM THE TTY

1%:

104411

012600
010037
005001
005002

27-JuL-78

MACY11 30A(1052)

5%:
$HIOCT:

TST
MOV
MOV
MGV
MOV
MOV
RTI
TST

(SP) ,=(SP)

4(SP),2(SP)
RO,=(SP)
R1,=(SP)
R2,=(SP)

(SP)+,R0
RO,5%
R1
R2
(RO)+,=(SP)

#'0,(SP)

A3
#'7,(5P)
4%
R1
R2
R1
R2
R1
R2
#~C7,(SP)
(SP)+,R1

+
(SP)

R1,12(SP)
R2,.$HIOCT
(SP)+,R2
(SP)+ ,R1
(SP)+,R0O

CLRB

+
(SP)
(RO)

.WORD

BR
.WORD

TYPE

;;PROVIDE

SPACE FOR

THE

;2 INPUT NUMBER
;:PUSH RO ON STACK
::PUSH R1 ON STACK
;:PUSH R2 ON STACK
;sREAD AN ASCIZ LINE
::GET ADDRESS OF 1ST (HARACTER
;2AND SAVE IT
;:CLEAR DATA WORD
;;PICKUP THIS CHARACTER
1F ZERO GET OUT
;.
;sMAKE SURE THIS CHARA(CTER
;1S AN OCTAL DIGIT

si%2
L

;:*8
;:STRIP THE ASCII JUNK
:;;ADD IN THIS DIGIT

;. LOOP
;:CLEAN TERMINATOR FROM STACK
;:SAVE THE RESULT
:;POP STACK INTO R2
::POP STACK INTO R1

:;POP STACK INTO RO

: :RETURN

::CLEAN PARTIAL FROM STACK
:2SET A TERMINATOR

::TYPE UP THRU THE BAD (HAR.
IDCR.I&

llFl'

. $QUES

::ll?l.

;;HIGH ORDER BITS GO HERE

::TRY AGAIN

Z
4

032777

020000

004737

040750
001223

001004
104401

005777

100002
000000
104407

032777
001402
013716
005737
001402
013716
000002

001000
001110
001214

001214

2%:

140214

3%:
(%:

TYPE
TST
BPL
HALT

CKSWR
BIT
BEQ
MOV
TST

BEQ
MOV
RTI

#2 ,SERRP(

aSWR

;;HALT ON ERROR

#BIT13,aSWR
20%

LSCRLF

#B1T09,aSWwR
4%
$LPERR, (SP)
$ESCAPE

5%
$ESCAPE, (SP)

;:SKIP IF

CONTINUE

;sHALT ON ERROR!
;:TEST FOR CHANGE

IN SOFT-SWR

;:LO0OP ON ERROR SWITCH SET?
;:BR IF NO
;:FUDGE RETURN FOR LOOPING
;;CHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE

::FUDGE RETURN ADDRESS FOR ESCAPE

; sRETURN

S
i

PC,$ERRTYP

;;STRIP AND SAVE THE ERROR ITEM CODE
;:SKIP TYPEOUT IF SET
;:SKIP TYPEOUTS
;.G0 TO USER ERROR ROUTINE

@$ERRPC,SITEMB

SUB
MOVB
BIT
BNE
JSR

140246

140230

INC

MOV

001116
001114

TYPE

:+SET THE ERROR FLAG
s;DON'T LET THE FLAG GO TO ZERO
$TSTNM, aDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG
quTTO,GSUR
;;BELL ON ERROR?
;:NO = SKIP
L $BELL
;sRING BELL
$ERTTL
;sCOUNT THE NUMBER OF ERRORS
(SP) ,$ERRPC
;;GET ADDRESS OF ERROR INSTRUCTION
$ERFLG

140234

1%:

IN SOFT=SWR

001216
001112
001116
000002

BIT
BEQ

;SET ERROR FLAG

001102
002000

;. TEST FOR CHANGE

162737
117737

7%:

#-1,a#CRFLGS

104401

005237
011637

001103

CKSWR
mMCv
INCB
BEQ
MOV

cZ
czl

NOWNSWN=O

cdd ou
b so
ol cinl
ad w

il ond cad wisd wnll and wuld wald

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

8109

177777

SEQ 0177

PAGE 178

104407

012737
105237
001775
013777
032777
001402

1 14

MACY11 30A(1052)
27-JuL-78 12:32
ERROR MANDLER ROUTINE

CZRJJCO, RPO4L/S/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuL-78 10:07

CZRJJCO, RPO4/S/6 FCTNL CTRLR2
26=JuL-78 10:07

27-JuL=-78

ERROR HANDLER ROUTINE

J 14

12:32

PAGE 179

SEQ 0178

94
czl

.SBTTL

8137
8138
8139
8140
8141
8142
8143
8144

;*THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
;*ERROR IS TO BE REPORTED.
IT THEN OBTAINS, FROM THE 'ERROR TABLE'' (SERRTB),
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
;*IT IS A COPY OF THE SERRTYP SUBROUTINE FROM SYSMAC.
s*WITH ONLY MINOR CHANGES
s*FIRST IF SWITCH 6 IS SET AND SWITCH 8 RESET THEN
s*ALL REGISTER CONTENTS WILL BE TYPED BEFOR REPORTING THE ERROR
;*SECOND IF THE CURRENT ERROR HAS THE SAME ITEM NUMBER

g}zg

;*AND NOT THE ERROR MESSAGE AND HEADER.
040746

000000

PRITEM: 0

8150

040750

017746

140164

$ERRTYP: MOV

8152

040760

022726

000100

CMP

sPREVIOUS ITEM NO. LOCATION

8168
8169
8170
8171
8172
8173
8174
8175
8176
8177
8178
8179
8180
8181
8182
8183
8184
8185
8186
8187

040774
040774
041000
041016
041022
041024
041030
041046
041052
041054
041060

041076
041102
041104
041110
041126
041132
041134
041140
041156
041162
041164
041170
041206
041212
041214
041220
041236
041242
041244
041250

104401
000406
013746
104402
104401
000406
013746
104402
104401
000406

013746
104402
104401
000406
013746
104402
104401
000406
013746
104402
104401
000406
013746
104402
104401
000406
013746
104402
104401
000406

041002

002254
041032
002256
041062

002260
041112

002262
041142

002304
041172
002264

041222

002270
041252

1%:
2%:

;1S 6 SET AND 8 RESET

e
e

;IF NOT BRANCH

BNE

sKEEP ONLY SWITCH 8 AND 6

BR
JMP

2%
a#TYPERR

sBRANCH 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
MoV
TYPOC
TYPE
BR
MoV
TYPOC
TYPE
BR

.65%
64%
a#wC, - (SP)

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;GET READY TO TYPE RHWC CONTENTS

.67%
66%
a#BA, - (SP)

;:TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;JGET READY TO TYPE RHBA CONTENTS

.69%
68%

;;TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

718
70%

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

.73%
72%
a#DS1,-(SP)

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
;GET READY TO TYPE RHDS1

.75%

;. TYPE ASCIZ STRING

a#ER1,-(SP)

;JGET READY TO TYPE RHER1 CONTENTS

#SWO6, (SP) +

041710

sGET SWITCH SETTING

#~C500, (SP)

000402
000137

aSWR,=(SP)

BIC

8157
8158
8159
8160
8161
8162
8163
8164
8165
8166
8167

040766
040770

001001

177277

MOV
TYPOC
TYPE
BR
MOV
TYPOC
TYPE
BR
MOV
TYPOC
TYPE
BR
MOV
TYPOC
TYPE
BR
MOV
TYPOC
TYPE
B8R

a#(S2,-(SP)

a#(Ss1,-(SP)

74$%

;GET READY TO TYPE RHCS2 CONTENTS

sGET READY TO TYPE RHCS1 CONTENTS

CONTENTS

;.GET OVER THE ASCIZ

/7%
76$
A#ER2,-(SP)

;:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
;GET READY TO TYPE RHERZ2 CONTENTS

.79%
78%

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

8154
8155
8156

040764

042716

8153

040754

8151

g}:g

;*AS THE PREVIOUS ERROR THEN ONLY THE DATA WILL BE TYPED

8145

ERROR MESSAGE TYPEOUT ROUTINE

g}gg

8134

L 3322222232222ttt

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

8132

8133

M. S

CZRJJC.P11

MACY11 30A(1052)

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PIT
26=JuL~78 10:07
8188
8189
8190
81N
8192
8193
8194
8195
8196
8197
8198
8199
8200

8201

8202

8203
8204

8205

8206

8207

8208
8209
8210
8211
8212

8213

8214
8215
8216
8217
8218
8219
8220
8221
8222
8223

8224
8225
8226
8227
8228
8229
8230
8231
8232
8233
8234
8235
8236
8237
8238
8239
8240
8241
8242

8243

041266

041272

041274
041300
041316
041322
041324
041330
041346
041352
041354
041360
041376
041402
041404
041410
041426
041432
041434
041440
041456
041462
041464
041470
041506
041512
041514
041520
041536
041542
041544
041550
041566
041572
041574
041600
041616
041622
041624
041630
041646
041652
041654
041660
041676
041702
041704

013746

104402
104401

000406
013746
104402
104401

000406
013746
104402
104401
000406

013746

104402
104401

000406
013746
104402
104401

000406
013746

104402
104401
000406
013746
104402
104401
000406

013746
104402
104401

000406
013746

104402
104401
000406

27-JUL-78

MACY11 30A(1052)

K 14

12:32

SEQ 0179

PAGE 1¢0

ERROR MESSAGE TYPEOUT ROUTINE

002276
041302

MOV
TYPOC
TYPE

a#ER3,-(SP)

;JGET READY TO TYPE RHER3 CONTENTS

MOV
TYPOC

,81%
80%

a#DST,=(SP)

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;GET READY TO TYPE RHDST CONTENTS

,83%
82%

;;TYPE ASCIZ STRING
::GET OVER THE ASCIZ

.85%

;sTYPE ASCIZ STRING

002266

TYPE

041332
002274

BR
MOV

a#(CA,~(SP)

BR
MOV

84$
a#AS,-(SP)

,87%

MOV

86%
Q#OF ,-(SP)

;. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
;GET READY TO TYPE RHOF CONTENTS

MOV

.89%
88%
(SP)
-R,
a#M

;s TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;GET READY TO TYPE RHMR CONTENTS

BR
MOV

918
90%
,
- (SP)
LA

;:TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;GET READY TO TYPE RHLA CONTENTS
;:TYPE ASCIZ STRING

MOV

.93%
92%
a#CC,=-(SP)
.95%
948
a#ECT,-(SP)

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

TYPOC
TYPE

041362
002300

TYPOC
TYPE
BR

041412
002272

TYPOC
TYPE
BR

041442

002302

TYPOC
TYPE

041472
002320

TYPOC
TYPE
BR

041522

002316

TYPOC
TYPE

041552

002312

MOV
TYPOC
TYPE

:GET READY TO TYPE RHCA CONTENTS
::GET OVER THE ASCIZ
;GET READY TO TYPE RHAS CONTENTS

;:GET OVER THE ASCIZ
:GET READY TO TYPE RHCC CONTENTS

:GET READY TO TYPE RHEC1 CONTENTS

BR
MOV

.97%
96%

a#EC2,-(SP)

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;GET READY TO TYPE RHEC2 CONTENTS

BR
MOV

,99%
98%
a#DT,~-(SP)

;:TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
JGET READY TO TYPE RHDT CONTENTS

.101%

002310

BR
MOV

100%
(SP)
4SS=N,

;. TYPE ASCIZ STRING
:.GET OVER THE ASCIZ
;JGET READY TO TYPE RHSN CONTENTS

005037

040746

CLR

Q#PRITEM

;CLEAR PREVIOUS ERROR ITEM

104401

001223

.SCRLF

:"'CARRIAGE RETURN'' & "LINE FEED''
;SAVE RO

013746
104402
104401

000406
013746
104402
104401

000406
013746

104402

041710
041710
041714
041716
041720
041724

001004

041726

013746

041602

002314

TYPOC
TYPE

041632

002306

TYPOC
TYPE

041662

TYPOC

TYPERR:

TYPE
MoV

001114

CLR
BISB
BNE

001116

MOV

gO.-(SP)
0
A#SITEMB,RO

;PICKUP THE ITEM INDEX

;IF ITEM NUMBER IS ZERO, JUST

$ERRPC,~(SP)

;SAVE SERRPC FOR TYPEOUT

;TYPE

THE PC GF

THE

ERROR

2l
czl

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2
CZRJIJC.P11
26~JUL=-78 10:07
8244
8245
8246
8247
8248
8249
8250
8251
8252
8253
8254
8255
8256
8257
8258
8259
8260
8261
8262
8263
64
8265
8266
8267
8268
8269
8270
8271
8272
8273

8274
8275
8276
8277
8278
8279
8280
8281
gggg

041732
041734
041736
041740
041742
041744
041746
041752
041756
041760
041762
041764
041770
041774
041776
042000
042002
042006
042012
042014
042016
042020
042024
042026
042030
042032
042034
042036
042040

104402
000454
005300
006300
006300
006300
062700 001226
020037 040746
001002
022020
000420
010037 040746
012037 042000
001404
104401
000000
104401 001223
012037 042016
001404
104401
000000
104401 001223
010146
012001
001415
012000
105720
001003
013146

042042 104402
042044 000402
042046
042046 013146
042050 104405
042052 005711
042054 001403
042056 104401
042062 000764

8284
8285

042064
042066

012601
012600

8287
8288

042072

020040
042076

8286 042070 000207

L 14

MACY11 30A(1052) 27-JuUL=-78 12:32 PAGE 181
ERROR MESSAGE TYPEOUT ROUTINE

1%:

13%:
2%:
3%:
4%:

5%:
6%:

7%:

TYPOC
BR

108
RO
RO
RO
RO
#$ERRTB,RO
RO,a#PRITEM
13%
(RO)+, (RO) +
5%
RO,a#PRITEM
(RO)+,2%
3s

0
LS$CRLF
(RO)+,4%
5%
O
L$CRLF
R1,-(SP)
(RO)+,R1
9%
(RO)+,R0O
(RO) +
7%
a(R1)+,-(5P)

: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"'
:PICKUP 'DATA HEADER'' POINTER
:SKIP TYPEOUT IF 0
:TYPE THE 'DATA HEADER''
“'DATA HEADER'' POINTER GOES HERE
“*'CARRIAGE RETURN'' & 'LINE FEED''
*SAVE R1
:PICKUP 'DATA TABLE'' POINTER
:BR IF NO DATA TO BE TYPED
:PICKUP 'DATA FORMAT'' POINTER
:"'OCTAL'' OR 'DECIMAL"’
:BR IF DECIMAL
:SAVE @(R1)+ FOR TYPEOUT
:GO TYPE--OCTAL ASCII(ALL DIGITS)

(R1)
9%
L118
6%

:SAVE @a(R1)+ FOR TYPEOUT
:GO TYPE--DECIMAL ASCII WITH SIGN
:1S THERE ANOTHER NUMBER?
:BR IF NO
:TYPE TWO(2) SPACES
:LOOP

9% :
10%:

MOV
MOV

(SP)+,R1
(SP)+,R0

:RESTORE R1
:"'CARRIAGE RETURN'' & ''LINE FEED''

11%:

ASCIY
.EVEN

RTS

PC
&

g
8
g
i
E
g
§
K
E
E
§
§
5
§
§
¢
§
§
§
§
§§
§{

:FORM TABLE POINTER
:WAS PREVIOUS ERROR SAME
:BRANCH IF NOT
:POP RO OVER EM AND DH

a(R1)+,-(SP)

042072

CZR
CZFR

:ERROR ADDRESS
:GO TYPE=-=-OCTAL ASCII(ALL DIGITS)
:GET out
“ADJUST THE INDEX SO THAT IT WILL
:
WORK FOR THE ERROR TABLE

MOV
TYPDS
TST
BEQ
TYPE
5R

8%:

000

TYPOC
BR
DEC
ASL
ASL
ASL
ADD
CMP
BNE
CMP
BR
MOV
MOV
BEQ
TYPE
LWORD
TYPE
MOV
BEQ
TYPE
LWORD
TYPE
MOV
MOV
BEQ
MOV
TSTR
BNE
MOV

SEQ 0180

*RETURN

“TWO(2) SPACES

¢
§
§§

§§
¢¢

|§

{
{{
j
{
{{
{
i
{

{
{

{
a

{
{
{
{
{

1%:

2%:

3%:

042322
177770

4%:

000060
000040
042316
042316
042320

5%:
7%:

6%:

000002

000004
8%:

CLR

R4 ,=(SP)
RS,=(SP)

$OMODE+1,R4

R4
#6,R4
R4 , SOMODE

$OF ILL R4
12(SP) ,RS

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

;:SUBTRACT IT FOR MAX. ALLOWED

::SAVE IT FOR USE
;:GET THE ZERO FILL SWITCH
;;PICKUP THE INPUT NUMBER
;sCLEAR THE OUTPUT WORD
: :ROTATE MSB INTO '‘C*'

ROL
BR

;:G0 DO MSB

ROL

;:FORM THIS DIGIT

ROL

;:GET LSB OF THIS DIGIT

ROL
ROL
MOV

DECB
BPL
BIC
BNE
TST
BEQ
INC
BIS
BIS
MOVB
TYPE
DECB
BGT
BLT
INC
BR
MOV
MOV
MOV
MOV
MOV
RTI

.BYTE
.BYTE
.BYTE
.BYTE

$OCNT:
$OFILL:
$OMODE: .WORD

::TYPE

THIS DIGIT?

;:BR IF NO
;:GET RID OF JUNK

;:TEST FOR 0O
; ;SUPPRESS THIS 0?
::BR IF YES
:;DON'T SUPPRESS ANYMORE 0'S
:;MAKE THIS DIGIT ASCII

;2MAKE ASCII IF NOT ALREADY

;:SAVE FOR TYPING

(SP)+,R5

(SP)+,R4

(SP)+,R3

2(SP) ,4(SP)
(SP)+,(SP)

;:GO0 TYPE THIS DIGIT
;sCOUNT BY 1
;:BR IF MORE TO DO
;:BR IF DONE
;2 INSURE LAST DIGIT ISN'T A BLANK
;G0 DO THE LAST DIGIT
:;RESTORE RS
;;RESTORE R4
:;RESTORE R3
::SET THE STACK FOR RETURNING
; JRETURN

;:STORAGE FOR ASCII DIGIT

::TERMINATOR FOR TYPE ROUTINE

;;OCTAL DIGIT COUNTER
;+ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE

oTM

0D 00 00 N

00 0N 0N 00N 0N A 00 00 00 00 00 00 An 00 00 00 00 00 00 00 O

000006
042322
042321
000012

R3,-(SP)

::SET THE
;:SET FOR
;2SET THE
::SAVE R3
;:SAVE R4
::SAVE RS
:2GET THE

042323

#1,80FILL
#6,$OMODE
+1
#5,80CNT

O OO0 OO0 00 O

MOV
MOV
MOV
MOVB
NEG
ADD
MOVB
MOVB
MOV

(SP)+,$OMODE
+1
#2,(SP)
$TYPON

;;PICKUP THE MODE
;sLOAD ZERO FILL SWITCH
;sNUMBER OF DIGITS TO TYPE
;;ADJUST RETURN ADDRESS

BR
$TYPOC: MOVB
MOVB
$TYPON: MOVB

1(SP),$OFILL

N DN DN e O

042321
042323
042320

ADD

a(SP),--(SP)

000001
000006
000005

$TYPOS: MOV
MOVB
MOVB

105337
100016

042321

O L

006105
006105
010503
006103

000001
042323
000002

L L

113704
016605
005003
006105
000404
006105

000000

AL A

017646
116637
112637
062716
000406
112737
112737
112737
010346
010446
010546
113704

CZR

042076
042102
042110
042114
042120
042122
042130
042136
042144
042146
042150
042152
042156

SEQ 0181

8289
8290
8291
8292
8293

M 14

MACY11 30A(1052)
27-JuL-78 12:32 PAGE 182
ERROR MESSAGE TYPEOUT ROUTINE

lelelelels)

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.P1
26=-JuL~-78 10:07

011646
016666
000002

042346
037100

04040
033574

000004

000002

MOV

4(SP) ,2(SP)

$TRPAD:

. WORD
$TYPE
$TYPOC
$TYPOS

$TRAP2

RTI

$TYPON
$TYPDS
$GTSWR
$CKSWR
$RDCHR
$RDLIN
$RDOCT
WAIT.T

(SP) ,-(SP)

;s CALL=TYPE
s sCALL=TYPOC
s sCALL=TYPOS

2 sCALL=TYPON

s sCALL=TYPDS

;s CALL=GTSWR

s s CALL=CKSWR
22 CALL=RDCHR
s sCALL=RDLIN
+sCALL=RDOCT
;s CALL=WAT

TTY TYPEOUT ROUTINE
TRAP+1(104401)
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TRAP+2(104402)
TRAP+3(104403)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TRAP+4(104404)
TRAP+5(104405)
TYPE DECIMAL NUMBER (WITH SIGN)
6)
TRAP+6(10440
GET SOF T-SWR SETTING
TEST FOR CHANGE IN SOF T-SWR
TRAP+7(104407)
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 ABOVE THIS TRAP

RTS

$TRAPZ: MOV

;:SAVE RO
;.GET TRAP ADDRESS
;JBACKUP BY 2
;:GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;s INDEX TO TABLE
::GO TO ROUTINE
;;MOVE THE PC DOWN
;;MOVE THE PSW DOWN
;;RESTORE THE PSW

CZR
CZR

OO N0

042360

111000

RO,=(SP)
2(SP) RO
-(R0O)
(RO) ,RO
RO
$TRPAD
(RO) ,RO
RO

MOV
MOV
TST
MOvB
ASL
MOV

SEQ 0182

AOOD OO OO

006300
016000
000200

$TRAP:

183

NN NN DO N

000002

TRAP DECODER

N 14
12:32 PAGE

NANO

010046
016600
005740

27=JUL-78

AAANAAAANANANAN. AN

042324

MACY11 30A(1052)

PAAAAAAANA ANAAAANAA A

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.P
26=JuL-78 10:07

CZRJJCO, RPOL/5/6 FCTNL CTRLRZ
26=-JuUL~78 10:07
CZRJJC P11
8364
8365
8366
8367
8368
8369
8370
8371
8372
8373
8374
8375
8376
8377
8378
8379
8380
8381
8382
8383
8384
8385
8386
8387
8388
8389
8390
8391
8392
8393
8394
8395
8396
8397
8398
8399
8400
8401

042410
042416
062424
042426
042430

012737
012737
010046
010146
010246
010346

010446
010546
017746
010637

012737

000000
000776

012737
013706

042554
000340

136474
042560
042462

042554
042560
042560
042560

B 15
27-JUL=78 12:32 PAGE 184
POWER DOWN AND UP ROUTINES

MACY11 30A(1052)
000024
000026

000024
00002¢

136426

042410
000340

000024
000026

$PWRDN: MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
HALT
BR
$PWRUP: MOV
MOV
CLR
1%:
INC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
$PWRMG:

TYPE

. WORD
MOV
: .WORD
$PWRAD
RTI

$ILLUP: HALT
000000
005015
000122

047520

042527

$SAVR6: 0
$POWER:

.ASCIZ

#SILLUP,#PWRVEC ; SET FOR FAST UP
#340,3-/PWRVEC+2 ;;PRIO:7
RO,=(SP)
;;PUSH RO ON STACK
;;PUSH R1 ON STA(K
R1,=(SP)
R2,=(SP)
;;PUSH R2 ON STACK

R3,=(SP)

;;PUSH R3 ON STACK

aSwR,-(SP)
SP,$SAVR6

:;PUSH @SWR ON STACK
:;SAVE SP

R4 ,=(SP)
R5,=(SP)

#$PWRUP ,a#PWRVEC

;;PUSH R4 ON STA(CK
;;PUSH RS ON STACK
;;SET UP VECTOR

; s HANG uP
“g
#SILLUP,@#PWRVEC :;SET FOR FAST DUWN
$SAVR6,SP
$SAVR6
$SAVR6

::GET SP
;:WAIT LOOP FOR THE TTY

(SP)+,aSWR

;:WAIT FOR THE INC
;:0F
WORD
;:POP STACK INTO aSwR

(SP)+ R4

;:POP STACK INTO R4

(SP)+,RS

(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0O

:;POP STACK INTO RS
::POP
;;POP
::POP
:POP

STACK INTO R3
STACK INTO R2
STACK INTO R1
STACKINTO RO
#SPWRDN,a#PWRVEC : ;SET UP THE POWER DOWN VECTOR
#340,4PWRVEC+2 ; :PRIO:7

$POWER
(PC)+,(SP)
BEGIN

;REPORT THE POWER FAILURE

;;POWER FAIL MESSAGE POINTER
;;RESTART AT BEGIN
; ;RESTART ADDRESS
,,THE POWER UP SEQUENCE WAS STARTED

BEFORE THE POWER DOWN WAS COMPLETE

::PUT THE SP HERE
<15><12>' POWER"" ~

SEQ 0183

CZRJJCO, RPOL/5/6 FCTNL CTRLRZ
CZRJJC.P1T
26~JuUL-78 10:07

MACY11

:
30A(1052)

27-JuUL-78

c 15
12:32 PAGE 185

SEQ 0184

POWER DOWN AND UP ROUTINES
;"."t.""."....'t'

(2223222222223 2322 2222222222222ttt

"ERROR AND MESSAGE TABLE CONDIMENTS
.

22 ze FRETERER

o [0 “ENTe AV, FoYWV,
s

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

8423

050122
042111
044440
052522
m

052522
040516
044502
047127
042440
042524
020124
047516
000124
050122
0421M
044440
052522
042510

042520
041040
042111
000
105
042524
020124

042523
020124
044440
042440

053117
047111
047440
047514
020107
020061

032060
047040
052116
052120
052116
052120

042040

052117
051105
000
051105
042440
020105
047504
052125
041505
044502

EM1:

LASCIZ

/RPO4 DID NOT INTERRUPT/

EMZ:

.ASCIZ

/INTERRUPT ENABLE BIT DOWN BUT EXPECTED BIT DID NOT SET/

020124

020104
042523

032060
047040
052116
052120
020116
052103
052111
051440

042040
052117
051105
053440
054105
042105
042040
052105

EM3:

LASCIZ

/RPQO4 DID NOT INTERRUPT WHEN EXPECTED BIT DID SET/

050130
020104
044504
020124
044524
020123
051122
052040
047111
044515
041505
044503

041505
044502
020104
052502
042515
047111
051117
046511
030440
051103
020056
040515

EMS4:

.ASCIZ

/EXPECTED BIT DID SET BUT TIME IS IN ERROR = TIME IN 10 MICROSEC. DECIMA

051501
020123
046103
054502
047111
040440
042516
042101
044122
047506

042040
047516
040505
046440
020107
046114
000123
047111
051105
020122

EMS:

LASCIZ

/RHAS DOES NOT CLEAR BY MOVING IN AlLL ONES/

EMé6:

LASCIZ

/LOADING RHER1

FOR ALL UNITS DID NOT SET ANY RHAS BITS/

CZRJJCO, RPO4/S5/6 FCTNL CTRLRZ2
26~JuL-78 10:07
CZRJJC.P
043176
043204
043212
043220
043226
043234
043242

046101
052111

020114
020123
047516
020124
044122
052111
020116

042524
047522
040440
042105
052123
020104
020105
047515
020124
042110
052105
127

050123
020105
042522
047127
031123
046125
054514

042105
044440
044514
044122
044123
044040
047507
053104

MACY11 30A(1052)

27-JuUL=78

POWER DOWN AND UP ROUTIN

047125
044504
020124
047101
051501
000123
054105
052116
051511

0 15

12:%5

PAGE 186

SEQ 0185

EM7:

LASCIZ

/NON EXISTENT REGISTER, PROGRAM ABORTED./

042520
053111
020123
044502
051040
051440

EM10:

LASCIZ

/STOPPED DRIVE HAS MOL BIT IN RHDST SET/

020110
046104
042527
047504
041510
047510
047117
053101
052111
040440
020122

EM11:

LASCIZ

/WITH SPINDLE POWERED DOWN RH(S2 SHOULD ONLY HAVE UNIT NO: AND [R SET/

020122
046104
042527
050125
050040
041501
044122
044123
044040
047515
053040

EM12:

.ASCIZ

/AFTER SFINDLE POWERED UP, NO PACK ACKN. RHDS1 SHOULD HAVE MOL=1, vv=0/

051440
042514
051105
047516
040511
020054
020061
042114
020105
020054
026061

EM13:

.ASCIZ

/WITH SPINDLE POWERED, NO INTIALIZE, RHCS1 SHOULD HAVE GO=0, DVA=1, RDY=

050040
046501
052122

052111
047111
047520
020104
051040
051440
020104
044040
047125
035117
044440
000124
042524
047111
047520
020104
047516
020113
020056
020061
042114
020105

036501

LCZRJJC.P11
8514
8515
8516
8517
8518
8519
8520
8521
8522
8523
8524

26=JuL~ 78 10:07

27-JUL-78

E 15

12:32

POWER DOWN AND UP ROUTINES

PAGE 187

SEQ 0186

054504
042511

030475
030075

101

052106
044520

051105
042116
053517
052440
041503
046125
030075

EM14:

LASCIZ

/AFTER SPINDLE POWERED UP RHCC SHOULD BE=0/

120

041501
047113
043504
046515
040503
040440
047522

020113
053517
020105
047101
051525

EM1S5:

LASCII

/PACK ACKNOWLEDGE COMMAND CAUSED AN ERROR/<15><12>

047517
040524
042502
041440
042116
020103
044440
042524
046515

020104

LASCIZ

/GOOD DATA IS BEFORE

047455
046515
040503
040440
047522

020120
047101

LASCII

/NO-OP COMMAND CAUSED AN ERROR/<15><12>

047517
040524
042502
041440
042116
020103
044440
042524
046515

020104
044440
047506
046517
020054
040504
020123
020122
047101

.ASCIZ

/GOOD DATA 1S BEFORE COMMAND, REC DATA IS AFTER COMMAND/

053111
040505

LASCII

/DRIVE CLEAR COMMAND CAUSED AN ERROR/<15><12>

046515
040503
040440
047522

020105
020122
047101
051525
020116
006522

047517
040524
051505
046125

020104
043440
051440
020104

LASCIZ

/GOOD DATA GIVES SHOULD BE., REC DATA GIVES AFTER COMMAND/

051040
020054
000
051440
042514
051105
020120
051440
020104
000
041501
042514
047503

047510

020116
006522

044440
047506
046517
020054
040504
020123

COMMAND, REC DATA IS AFTER COMMAND/

020122
047101

EM16:

051525
020116
006522

EMi17:

CZRJJCO, RPO4/S/6 FCTNL CTRLRZ2

MACY11 30A(1052)

8570
8571
8572
8573
8574
8575
8576
8577
8578
8579
8580
8581
8582
8583
8584
8585
8586
8587
8588
8589
8590
8591

044350
044356
044364
044372

044400
044406

044411
044416
064424
044432
044440
044446
044452

044460
044466
0464474
044502
044510

044516
044524
044532
044540
044546
044554

044560
044566
044574
044602
044610
044616
044624
044632
044633
044640
044646
044654
044662
044670
044676
044704
044706
0464714
044722

044730
044736
044744
044746
044754
044762
044770
064776
045004
045012
045020
045026

042502
020103
043440
040440
041440
042116

042522
051105

F 15
30A(1052)
27-JuL=78
12:32
PAGE 188
POWER DOWN AND UP ROUTINES

SEQ 0187

042522
040524
051505
051105
040515

122
047111
040515
052501
047101
051117
047507
052101
042526
052517
026105
042040
044507
042522
047117
020123
020122
047101

044122
047503
051524
047111
046515
040527
042440

MACY11

026504
046517
041440
020104
051122

EM20:

042040
044507
044123
041040
041505
020101
020123
041440
052116
042524
046515

LASCII

/READ=IN COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA GIVES SHOULD B%,

REC

DATA GIVES REG.

EM21:

.ASCIZ

/RHCST

CONTENTS DURING COMMAND WAS

[N ERROR/

020123
051122

020061
047105
051125
047503
020104
047111
051117

042110
047117
020123
043516
040515
051501
051105

030523
042524
052504
041440
042116
044440
047522

EM22:

.ASCIZ

/RHDST

CONTENTS DURING COMMAND WAS

IN ERROR/

047514
046517
041440
020104
051122

042101
040515
052501
047101
051117

EM23:

LASCII

/UNLOAD COMMAND CAUSED AN ERROR/<15><12>

042117
020101
020123
042114
051040
052101
042526
044507
041440

042040
044507
044123
041040
041505
020101
020123
052123
047117

LASCIZ

/GOOD DATA GIVES

SHOULD BE,

REC

DATA GIVES

CONTENTS AFTER COMMAND/

CONT.

AFTER COMMAND/

oTM

CZRJJCO, RPO4L/S/6 FCTNL CTRLRZ2
CZRJJC.P1T
26-JuL-78 10:07

027124
051105

040515

040440
041440

040504
053111
047510
042502
020103

043440
051440

045472
045500
045506
045514
045522

000

042523
046515
040503
040440
047522

045312
045320
045326
045334
045342
045350
045356
045364
045372
045400
045402
045410
045416
045424
045432
045440
045446
045454
045462
045470

051525

SEQ 0188

052106
046517

117
020124
047101
051525
020116
006522

EM24:

020104

107

PAGE 189

LASCII

/OFFSET COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/

LASCII

/RETURN TO CENTER LINE COMMAND CAUSED AN ERROR/<15><12>

.ASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/

020104
042522
040524
051505
020056
020056
020122
047101

EM2S:

052524
020117
051105
020105
047101
051525
020116
006522
047517
040524
051505
046125
020054
040504
053111
043505
052116
042524
046515

047122
042503

020060
052105
040515
047117
042524
020105
020122
042105
051105

043117
041440

EM26:

LASCIZ

/500 OFFSET COMMANDS ONE AFTER THE OTHER CAUSED AN ERROR/

042116
020105
020122
052117
040503
040440
047522

052111
042101
042116
020101
042105

020105
051105
042040
040503
044440

EM27:

.ASCII

/WRITE HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12>

046040
047503
020104
042105
051105
012
020104
043440
051440
020104
042522

040524
051505
020056
020056
020122
047101

alel

CZRJJCO, RPO4/S/6 FCTNL CTRLRZ2
CZRJJC.PI
26=JUL~78 10:07

G 15

27=JUL=-78 12:32
MACY11 30A(1052)
AND UP ROUTIN ES
DOWN
POWER

CZRJJCO, RPO&L/S5/6 FCTNL CTRLRZ
CZRJJC.PI
26=-JUL-78 10:07
8682
8683
8685

045530
045536
045544
045552
045560

050115
020122
052123
040510
012

107
040504

053111
040510
052517
020105
006505
122

042526

040524
051505
020124
044124
043101
047503
000104
051127
042510
040440
052101
047101
051127
051106
043125
045770
045776
046004
046012
046020
046026
046034
046042
046050
046056
046064
046072
046100
046106
046114
046122
046124
046132
046140
046146
046154
046162
046170
046176
046204
046205

0425.2
040505
047101
040524
042523
051120
051040
042524
047101
047507
052101
042526
052101
046125
052040
005015
042522
042105
020101
020123
053440
042510
052106
046517
000
127

MACY11 30A(1052)

27-JuL-78

H 15

12:32

POWER DOWN AND UP ROUTINES

PAGE 190

SEQ 0189

047522
042522
051105
043516

042520
044507
041440
006505

047517
040524
051505
020124
042114
044124
012
041505
020104
043440
053440
040527
051105
042524
046515

020704
043440
053440
044123
041040
051105

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

044505
040504
053111
040510
020123
020105
020122
047101

LASCIZ

/RECEIVED DATA GIVES WHAT WAS

052111
042101
042116
020101
042507
052111
046517
042506

020105
051105
042040
044103
020104
020105
041040
000122

EM30:

LASCIZ

/WRITE HEADER AND DATA (HANGED WRITE FROM BUFFER/

042101
042504
020104
041440
020104
050117
043505
020122
042507
042117
020101
020123
051440
020104
042510

044040
020122
040504
052501
046511
051105
051511
044103
005015
042040
044507
044127
047510
042502
042522

EM31:

LASCII

/READ HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12>

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042503
042040
044507
044127
051501
042522
051105
040515

053111
052101
042526
052101
052040
040440
041440
042116

LASCIZ

/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/

044522

042524

LASCIZ

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

EM32:

THERE AFTER COMMAND/

MACY11

040505

042504

8738
8739
8740
8741
8742

8743

8744
8745
8746
8747
8748
8749
8750
8751
8752
8753
8754
8755
8756
8757
8758
8759
8760
8761
8762
8763
8764
8765
8766
8767
8768
8769

046212
046220
046226
046234
046242
046250
046256
046264
046272
046300
046306
046312
046320
046326
046334
046342
046350
046356
046364
046365
046372
046400
046406
046414
046422
046430
046433
046440

044040

046454
046462
046470
046476
046504
046512
046514
046522
046530
046536
046540
046546
046554
046562
046570
046576
046604
046612
046620
046624

051505
020124
044124
043101
047503
000104
042522
052101
047503
000124
051127
040504

046446

040505
042101
042116
020101
042105
020101

040524
047514
054502
020104
051105
042040
040503
042040
051105

051105
043516

042040
040503
044440
042520
044507
041440
006505

047517
040524
051505
020124
042114
044124

020104

052101
051525
050115
020122
052123
040510
012
107
040504.
053111
040510
052517
020105
006505
122
042526
040524

046517

041440
020104
050117
043505

020122
042507
047507
052101
042526
052101
046125
052040
005015
042522

115
12:32 PAGE 191

27-JUL-78

LASCII

/READ DATA CAUSED IMPROPER REGXSTEQ CHANGE /<15><12>

020104
043440
053440
044123
041040
051105

.ASCII

/GOOD DATA GIVES WHAT SHOULD BE

041505
020104
043440
053440
040527
051105
042524
046515

044505
040504
053111
040510
020123
020105
020122
047101

LASCIZ

/RECEIVED DATA GIVES WHAT WAS

042101
020101
051122

042040
047111
041505

EM34:

LASCIZ

/READ DATA INCORRECT/

052111
040524
040515
052501
046511
051105
051511
044103
005015
042117
020101
020123
051440
020104
042510

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

042503

053111

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

012

EM33:

SEQ 0190

POWER DOWN AND UP ROUTINES

30A(1052)

THERE/<15><12>

THERE AFTER COMMAND/

THERE/<15><12>

(ZRJJCO, RPO4L/5/6 FCTNL CTRLRZ2
CZRJJC.P1
26=JuL-78 10:07

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2
CZRJJC.P1T
26=JUL~-78 10:07
8794
8795
8796
8797
8798
8800

046700
046706
046714
046722
046730
046736
046744

046752
046756

042105
020101

020123
052123
047117
020123
020122
047101
051127
040504
046517
041440

042105
042524
020115
051105
123
047503
020104
042105
047522
042522
051105
043516
107
040504
053111
040510
052517
020105
006505
122
042526
040524
051505
051511
047503
051524
051105
020113
047101
051127
044103
040503
044440
042520

044507
041440
006505
107
040504
053111
040510
052517
020105
006505

042040
044507
042522
051105
042524
043107
047503

000104
052111
040524
040515
040510
053440
043040
052502
000
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
052111
041505
051525
050115
020122
052123
040510
072
047517
040524
051505
020124
042114
044124
012

MACY11

30A(1052)

27-JuUL-78

J 15

12:32

POWER DOWN AND UP ROUTINES

PAGE

192

SEQ 0191

052101
042526
044507
041440
052116
042524
046515

020105
041440

EM36:

LASCIZ

/WRITE

020113
047101
051525
050115
020122
052123
040510
012
020104
043440
053440
044123
041040
051105

EM37:

LASCII

/SEEK

LASCII

/GOOD DATA GIVES WHAT

LASCIZ

/RECEIVED DATA GIVES

LASCII

/WRITE

.ASCII

/GOOD DATA GIVES WHAT SHOULD BE

DATA COMMAND

(HANGED WRITE

FROM BUFFER/

042116
043516
044522
047522
043106

044505
040504
053111
043505
020122
047105
052106
042505
046515

020105
020113
042105
047522
042522

EM4O:

COMMAND

CAUSED

CHECK CAUSED

IMPROPER REGISTER

SHOULD BE

CHANGE/<15><12>

THERE/<15><12>

CONTENTS

AFTER

SEEK

IMPROPER REGISTER CHANGE/<15><12>

051105

043516
020104
043440
053440
044123
041040
051105

COMMAND/

THERE/<15><12>

I(l

(ZRJJCO, RPO4/5/6 FCTNL CTRLRZ
CZRJJC.P1T
26=JuL-78 10:07

047373
047400

047406
047414
047422
047430
047436
047444
047452

047457
047464

047472

047500
047506
047514

047522
047530
047536
047544
047552
047560
047566
047567
047574

047602
047610
047616
047624
047632
047635
047642
047650
047656
047664
047672
047700
047706
047714
047722
047730
047736
047740
047746
047754
047762
047770
047776
050004
050012
050020

122
042526
040524
051505
051511
047503
051524
051105
040515

041505

020104

043440

051040
042524
052116
040440
041440
042116

MACY11 30A(1052)

27-JuUL=-78

K 15

12:32

POWER DOWN AND UP ROUTINES

044505
040504
053111
043505
020122
047105
052106
046517
000
EM4T:

PAGE 193

SEQ 0192

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

LASCI1

/LOCKING OUT WRITE BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE/

041517
047440
044522
020131
020105
041040
020116
042105
047522
042522
051105

044513
052125
042524

043516

051127
047514
052125
040503
044440
042520
044507
041440
006505

107

047517
040524
051505
020124
042114
044124

020104
043440
053440
044123
041040
051105

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

122

041505
020104
043440
051040
042524
052116
040440
053440
020123
046040
020104

044505
040504
053111
043505
020122
047105

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITES WERE LOCKED OUT/

042524
043516
051127
044527
044522
047514
047440
052501
046511
051105
051511
044103
005015
042117

050115
052040
052111
044124
042524
045503
052125
042523
051120
051040
042524
047101

LASCII

/ATTEMPTING TO WRITE WITH WRITES LOCKED OUT CAUSED IMPROPER REGISTER (HA

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

114

043516
053440
041040
052111
045503
047524
051525
050115
020122
052123
040510
012
040504
05311
040510
052517
020105
006505
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

012

052106
044522

042527
041517
052517

042040

EM4L2:

CZRJJCO, RPO4L/S5/6 FCTNL CTRLRZ
CZRJJC.PTT
26=-JUL~78 10:07
8906
8907
8908
8909
8910
8911
8912
8913
8914
8915
8916
8917
8918
8919
8920
8921
8922

8923
8924
8925
8926
8927
8928
8929
8930
8931
8932
8933
8934
8935
8936
8937
8938
8939
8940
8941
8942
8943
8944
8945
8946
8947
8948
8949
8950
8951

8952
8953
8954
8955
8956
8957
8958
8959
8960
8961

050062
050070
050076
050104
050112
050120
050122
050130
050136
050144
050152
050160

050166
050174
050202
050210
050216
050224
050232
050240
050246
050254
050262
050270
050276
050300
050306
050314
050322
050330
050336
050344
050352
050360

050470
050476
050504
050510
050516
050524

050532
050540
050546
050554

052101
042526
052101
046125
052040
005015
042522
042105
020101
020123
052123
047117
020123
020122
050115
051127
051127
020107
053440
020123
042105
041440
042105
020113

005015
047507
052101
042526
052101
047440

045523
051117
052111
044124
042524
042513
006524

127
052124
042105
042522
042105
020101
020123
053440
040505
045503
051105
042524
044527
044522
041517
052517
020123
050115
047105

MACY11 30A(1052)

044507
044127
047510
042502
042522

042503
042040
044507
042522
051105
042524
043101
052101
042524
052111
052111
044527
044522
047514
047440

053111
052101
042526
044507
041440
052116
042524
042524
020104
000105
047111
044124
042524
045503
052125

042117
020101
020123
053440
020116
041040
020105
020105
053440
046040
020104
012
051501
046505
005015

PAGE 194

SEQ 0193

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE/

LASCII

/WRITING WITH WRITES LOCKED OUT CHANGED DISK DATA/<15><12>

042040
044507
044127
051501
044504
043105
051127
044527
044522
041517
052517

.ASCII

/GOOD DATA GIVES WHAT WAS ON DISK BEFORE WRITE WITH WRITE LOCKED OUT/<15

040440
052120

LASCII

/WAS ATTEMPTED/<15><12>

053111
052101
042526
052101
051040
040502
052106
044522

LASCII

/RECEIVED DATA GIVES WHAT WAS READ BACK AFTER WRITE/<15><12>

053440

LASCIZ

/WITH WRITE LOCKED OUT WAS ATTEMPTED/

LASCII

/ENABLING WRITES BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE /<1

EM43:

043516
051511
040524

046040

041101

L 15

12:32

POWER DOWN AND UP ROUTIN ES

020101
020123
051440
020104
042510

040510

27=JUL=78

020104
040527
042524
000104
044514

EM44:

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuL-78 10:07
8962
8963
8964

8965

8966
8967
8968
8969
8970
8971

8972
8973
8974
8975
8976
8977
8978
8979
8980
8981

050562
050570
050576
050604
050612
050620
050626
050634
050642
050650
050656
050662
050670
050676
050704
050712
050720
050726
050730
050736
050744
050752
050760
050766
050774
051002
051010
051016
051024
051027
051034
051042

043516
042524

051250

040510
052517

27-JuUL-78

M 15

12:32

POWER DOWN AND UP ROUTINES

PAGE 195

SEQ 0194

053440
020123
044522
041517
052124
052501
046511
051105
05151
044103
005015
042117

044522
054502
042524
020113
047117
042523
051120
051040
042524
047101
042040
044507
044127
047510
042502
042522

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042503
042040
044507
042522
051105
042524
043101
051127
047514
052125
012
040516
053440
000123
047101
044522
020116
041040
026440
047111
030464
034040
051440
020122
005015
041501
020054
042105
047522
042522
051105
043516

053111
052101
042526
044507

LASCII

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITE LOCK BUTTON/<15><12>

LASCIZ

/ENABLED WRITES/

.ASCII

/TRANSFERRING ON LAST BLOCK = CYLINDER 410. - 814., SECTOR 21, /<15><12>

020113
040503
044440
042520
044507
041440
006505

LASCII

/TRACK 18, CAUSED IMPROPER REGISTER CHANGE/<15><12>

047517
040524
051505
021124
042114

020104
043440
053440
044123
041040

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

020101
020123
051440
020104
042510

051046

MACY11 30A(1052)

041440
052116

042524
052111
045503
047524

046102
044522
043123
043516
040514
047514

EM4S:

041440

042504
027060
032061
041505
030462

051256
051264
051267
051274
051302
051310
051316
051324
051332
051340
051346
051354
051362
051370
051376
051404

051412
051420
051426
051434
051442
051450
051452
051460
051466
051474
051500
051506
051514
051522

051530
051536
051544
051552

051560
051566

051574
051602
051610
051616
051624

051632
051640
051646
051654
051662
051663
051670
051676
051704
051712
051720
051726
051734
051742
051750

020105
006505

044124

051511
047503
051524
051105
046505
052040

POWER DOWN AND UP ROUTINES

031040
041501
020054

PAGE 196

SEQ 0195

051105

044505
040504
053111
043505
020122
047105

122

042526
040524
051505
05151
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
0405C3
044440
042520
042522
051105
043516
047517
040524
051505
020124
042114

MACY11 30A(1052)

N 15

12:32

052106
040522
000122
051040
051106
051501
041517
054503
051105
020056
027064
052103
026061

EM4L6E:

020113
051511
051105
043123
043516
020101
047040
051511
051440
020122
042105
047522
005015
052123

040510

051105

043440
040504
053111
040510
052517
020105
006505

041505
020104
043440
051040
042524
052116
040440
040440
052120
040522

044505
040504
053111
043505
020122
047105
052106
052124
042105
051516

EM4G7:

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER TRANSFER/

LASCII

/DATA READ FROM LAST BLOCK = CYLINDER 410. - 814., SECTOR 21,/<15><12>

LASCIZ

/TRACK

LASCII

/TRANSFERRING DATA FROM NONEXISTANT SECTOR CAUSED IMPROPER /<15><12>

LASCII

/REGISTER CHANGE, GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED TRANSFER/

18,

IN ERROR/

NIC‘D""‘“O"‘\WZZ"’RL'-'IC\""'“OHWZIr‘RL—-IO""‘"OfiWZIf'flh—ioflmofimZIr—flk——'IO“mOfiw

C(ZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuL-78 10:07

27-JuL=78

CZRJJCO, RPOL/S/6 FCINL CTRLRZ
CZRJJC.PN
26-JuL-78 10:07
9074
9075
9076

9085
9086
9087

9088
9089
9090
9091
9092
9093
9094
9095

051756
051762
051770

052052
052060
052066

000122
047101
044522
047522
042516
047101
052103
052501
040504
051122

043123
043516
020115
044530
020124
051117
042523
040524
051117

047507
052101
042526
052101
046125
052040
005015

042117
020101
020123
051440
020104
042510
020104
043440
053440
040527

020104
042440
005015

9096
9097
9098
9099
9102

052201

053111

052222

044524
052501
046511
051105
051511
044103
005015
042117
020101
020123
051440
020104
042510

9103
9104

9105

052230

9108
9109
9110

052244
052252
052260

9129

046111
020114

052206
052214

9106

9107

043123

052200

052236

052434

042105
020101
020123
052123
047117
020123
020122
040507
041516
044440

042503
042040
044507
042522
051105
042524
043101
046111
020114
044524
020123

27-JuL=-78

B 16

12:32

POWER DOWN AND UP ROUTINES

042506
051124
051105
043040
047516
052123
042523
041440

052074
052102
052110
052116
052120
052126
052134
052142
052150
052156
052164
052172

9100

MACY11 30A(1052)

PAGE 197

SEQ 0196

LASCII

/TRANSTERRING FROM NONEXISTANT SECTOR CAUSED DATA ERROR/<15><12>

042040
044507
044127
047510
042502
042522

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

040504
053111
040510
020123
043125
043101
051124
051105

LASCIZ

/BAD DATA GIVES WHAT WAS [N BUFFER AFTER TRANSFER/

LASCII

/GIVING ILLEGAL FUNCTION CAUSED IMPROPER REGISTER CHANGE/<15><12>

042040
044507
044127
047510
042502
042522

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

053111
052101
042526
044507
041440
052116
042524
042514
052506
047117
044507

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ILLEGAL FUNCTION IS GIVEN/

047111
042514
052506
047117
042523
051120
051040
042524
047101

EMSO:

EMS1:

CZRJJICO, RPOL/5/6 FCTNL CTRLRZ
CZRJJC.PT
26~JuL~-78 10:07
9130
9131
9132
9133
9134

9135
9136
9137
9138
9139
9140
9141
9142
9143

052442
052446
052454
052462
052470
052476
052504
052512

042526

9144

9145

9146
9147
9148
9149

042503
042040
044507
042522
051105
042524
043101

9150
9151
9152
9153
9154
9155
9156
9157
9158
9159

052101
042524
052111
040524
040505

9160
9161

042101
042116
020101
020122

9162
9163

9164

051101
052501
040504

9165
9166
9167
9168

9169
9170
9171
9172
9173
9174
9175
9176
91779178
9179
9180
9181
9182
9183
9184
9185

000116
052111
040524
047516
052123
042523
041440
020104
050117
043505
020122
042507
042117
020101
020123
051440
020104
042510

051122

053114
053116
053124
053132

044440
042111
042522
052501
046511
051105
051511
044103
005015
047507
052101
042526

MACYT1 30A(1052)

27-JuL-78

C 16

12:32

POWER DOWN AND UP ROUTINES

020105
047440
042516
047101
052103
052501
046511
051105
051511

053111
052101
042526
044507
041440
052116
042524
042524
020104
020105
000
020104
051105
042040
043101
020101
044103
042523
040524
051117

052124
047111
046515
044527
053116
040440
051523

045505
020107
047101
044124
046101
042104
041440
020104
050117
043505
020122
042507

042117
020101
020123

042040
044507
044127

PAGE 198

SEQ 0197

LASCII

/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/

EMS3:

.ASCIZ

/READ HEADER AND DATA AFTER A SEARCH CAUSED DATA ERROR/

EMS4:

LASCII

/ATTEMPTING COMMAND WITH INVALID ADDRESS CAUSED IMPROPER REGISTER CHANGE

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

EMS2:

CZRJJCO, RPO4L/S5/5 FCTNL CTRLRZ
C(ZRJJC.PT
26-JuL-78 10:07
9186
9187
9188
9189
9190
9191
9192
9193
9194

9195

9196

053140
053146
053154
053162
053164
053172

—

052101
046125
052040
005015
042522
042105
020101
020123
052123
047117

9197

9198
9199

051440
020104
042510

042522
051105
042524
043101
050117
047511
052111
051117
044504
052111
042520
051523
043122
051105

012

27-JuL=-78

s —

0 16

12:32

POWER DOWN AND UP ROUTINES

PAGE 199

SEQ 0198

047510
042502
042522

053111

040440

052103

MACY11 30A(1052)

052101
042526
044507
041440
052116
042524
051105
000116
04711
051040
043516
020110
052103
042104
047440
047514
047522

EMSS:

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/

JASCII

/WRITING OR READING WITH EXPECTED ADDRESS OVERFLOW ERROR/<15><12>

052501
046511
051105
051511
044103
005015
042117
020101
020123
051440
020104
042510

042523
051120

LASCII

/CAU'SED IMPROPER REGISTER CHANGE/<15><12>

042040
044507
044127
047510
042502
042522

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042503
042040
044507
042522
051105
042524
043101
050117
047511
040524
020104
040440
042520
040440
051523
043122
051105
051511
051117
005015

053111
052101
042526
044507

.ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/

LASCII

/DATA READ WITH AN EXPECTED ADDRESS OVERFLOW ERROR IS INCORRECT/<15><12>

051040
042524
047101

041440
052116

042524
051105

000116
051040
044527
020116

052103
042104
047440
047514
047522
044440
042522

EMS6:

i ot

(ZRJJCO, RPO4/S5/6 FCTNL CTRLRZ2
CZRJJC.PT
26~JuUL-78 10:07
1

9242

9243

9244
9245
9246
9247
9248
9249
9250
9251
9252
9253
9254
9255
9256
9257
9258
9259

053640
053646
053654
053662
053670
053676
053704
053712
053720
053726
053734
053735
053742
053750
053756
053764
053772
054000
054006
054014
054022
054030
054036
054044
054052
054060
054066
054070
054076
054104
054112
054120
054126
054134
054136
054144
054152
054160

047527
027117
020117
044123
041040
042101

054210
054216
054224
054232
054240
054242
054250
054256
054264
054272
054300
054306
054314
054322
054330

020116
042105

3 16

PAGE 200

SEQ 0199

042122
030440

047040
052040
020060
042114
042522
047527
020117
047524
051440
006504

LASCII

/WORD NO. 1 TO 260 SHOULD BE READ, WORD NO 261 TO 266 SHOULD/<15><12>

220105
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

.ASCIZ

/BE

LASCII

/ATTEMPTING DATA COMMAND WITH WRONG FORMAT BITM CAUSED/<15><12>

LASCII

/IMPROPER REGISTER CHANGE/<15><12>

042117
020101
020123
051440
020104
042510

042040
044507

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042503

.ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED DATA TRANSFER/

042524

043101
052101
042524
040524
051516

053111
052101
042526
044507
041440
052116
042524
042524
020104
052040
042506

042524
043516
047575
051040
042524
044522
020116
052101
040503
044440

050115
052040
044504
043505
020122
043516
050117
047511
051525
050115

LASCII

/ATTEMPTING TO MODIFY REGISTER DURING AN OPERATION CAUSED IMPROPER/<15><

042040
044507
042522
051105

054166
054174
054202

MACY11 30A(105¢)
27-JuL=78 12:3%
POWER DOWN AND UP ROUT INE

EMS7:

CHANGED/

044127
047510
042502
042522

EM60:

CZRJJCO, RPO4L/S5/6 FCTNL CTRLRZ2
CZRJJC.P1T
26=JuL~78 10:07

054336
054344
054345
054352
054360
054366
054374
054402
054410
054416
054424
054432
054434

054442
054450
054456
054464
054472
054500
054506
054514
054522
054530
054536
054541
054546
054554
054562
054570
054576
054604
054612
054620
054626
054634
054642
054650

054651
054656
054664
054672
054700
054706
054714
054722
054730
054735
054742
054750
054756
054764
054772
055000
055006
055010

006522

043505
020122
042507
042117
020101
020123
051440
020104
042510

051511
044103

115

104
020105
053101
046102
047506

051122

F 16
12:32 PAGE 201

/REGISTER CHANGE. GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

053111
052101
042526
044507
041440
052116
042524
051105
020116
052101
042524

LASCI1

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION WAS ATTEMPTED/<15

044506
043505
051505
042522
020106
052123
044505
042117
020104
020110
042105
051117

.ASCIZ

/MODFING REG GIVES ADDRESS OF REGISTER BEING MODIFIED WHICH CAUSED ERROR

042522

EM61:

.ASCIZ

/DEVICE NOT AVAILABLE BEFORE COMMAND WAS TO BE GIVEN/

EM63:

LASCIZ

/RHDS1

051105

030523
042524
052504
041440
042116
044440
047522

040503

044514

EM64:

LASCI1

/RECALIBRATE COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

122

SEQ 0200

LASCII

041511
020124
040514
042502
041440
042116
052040
043440
000

053105
047516
044501

046517
053440
020117
053111
041440
052116
044522
046517
053440
020116
000122
042522

27-JuL-78

POWER DOWN AND UP ROUTINES

042520

020123
020122
052101
040527
042524
006504
043516
043440
040440
051523
042522
051105
043516
043111
044127
040503
042440
000

'
MACY11 30A(1052)

CONTENTS DURING COMMAND WAS IN ERROR/

CZRJJCO, RPO4/S5/6 FCTNL CTRLRZ2
CZRJJC.PN
26~-JuL-78 10:07
9354
9355
9356
9357
9358
9359
9360
9361
9362
9363
9364
9365
9366
9367
9368
9369
9370
9371
9372
9373
9374
9375
9376
9377
9378
9379
9380
9381
9382
9383
9384
9385

055016
055024
055032
055040
055046
055054
055062
055070
055075
055102
055110
055116
055124
055132
055140
055143
055150
055156
055164
055172
055200
055206
055214

051102
047503
020104
042105
047522
042522
051105
043516

055227
055234
055242

107
040504

053111

040510
052517
020105
006505
122

055222

042526
040524
051505
051511
047503
051524
051105
040515

055250

052522
044501
000

055251
055256
055264
055272
055300
055306
055314
055322
055330
055332
055340
055346
055350
055356

055406
055414
055422
055430
055432
055440
055446
055454
055462
055470
055476

110

020122
040504

052101
046515
040503
044440
042520
044507
041440
006505
047517

6 16

27=JUL=-78 12:32
MACY11 30A(1052)
POWER DOWN AND UP ROUTINES

PAGE 202

SEQ 0201

020105
047101
051525
050115
020122

052123
040510
012
020104

LASCII

/GOOD DATA GIVES WHAT SHOULD BE

.ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

EM6S:

.ASCIZ

/INTERRUPT

EM66:

.ASCII

/HEADER AND DATA COMMAND FOR HEAD SELECTION TEST/<15><12>

042105
051117

LASCII

/CAUSED ERROR/<15><12>

051504
042526
052101
045503
041040
053440
047105
042522

020124
020123
052040

.ASCII

/RHDST GIVES WHAT TRACK WAS BEING WRITTEN OR READ/<15><12>

041440
042504
051440
020122
042101
042504
020104

046131
020122
041505
000060
044040
020122
040504

LASCIZ

/ON CYLINDER O,

LASCII

/READ MEADER AND DATA ERROR IN HEAD SELECTION TEST/<12><15>

040524
051505
020124
042114
044124
012
041505
020104
043440
051040
042524
052116
040440
041440
042116
052116
052120
044514

043440
053440
044123

040505
047101
040524
040515
051117
020104
052103
042524

042504
020104
041440
042116
044040
042523
047511
052123

051525

051122

047101

THERE/<15><12>

041040
051105

044505
040504
053111
043505
020122
047105

052106
046517
000
051105
043040

FAILING/

043516

053440
044505
044522
047440
042101

:
EM67

SECTOR 0/

CZRJJCO, RPO4/S5/6 FLTNL CTRLRZ
ICZRJJC.P‘H
26=JUL~78 10:07
9410
9411
9412

9413
9414

9415
9416
9417
9418
9419

055504
055512
055520
055526
055534
055542
055545
055552

055560
055566

055574

055602
055610
055611
055616
055624
055632
055640
055646
055654
055657
055664
055672

055700
055706
055714
055722
055730
055736
055744
055752
055760
055766
055774
055775
056002
056010
056016
056023
056030
056036
056044
056052
056055
056062
056070
056076
056104
056112
056120
056126
056134
056142
056144
056152

040524
051117
042510
046105
047117
005124
106

043040
047527
046525
040440
040505
015
127
052516
020123
031040
042522
020101
005123

MACY11 30A(1052)
051122

051117
041115

020116
051440
044524
051505

/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>

040504
051117
052111
026065

LASCIZ

/IN DATA WORDS BITS 4,5,6,7,8 GIVE

LASCII

/READ HEADER AND DATA ERROR IN/<15><12>

042506
020105
052040
012
020104
026461
042526
042504

LASCII

/DIFFERENCE LINE

LASCII

/WORD NOS 1-4 GIVE HEADER/<15><12>

LASCIZ

/WORD NOS 5-260 GIVE DATA WHICH IS THE CYLINDER ADDRESS/

042504
051104

020104
026465
044507
052101
041511
052040
046131
020122
051505

041522
050117

047111
020111

LASCII

/FORCING OP] BY 3 INDEX PULSES/<15><12>

052123

020122
047040

051522

044040
005122

046525

020070
052040
047040
000122

042522
040505
047101
040524
051117

044040
020122
040504
051122
006516

000123

047506
020107

SEQ@ 0202

PAGE 203

LASCII

042522
044514
051505
127
047516
020064
044040
006522
127
047516
033062
042526
020101
020110
042510
047111
042101

H 16

12:32

POWER DOWN AND UP ROUTINES

042440
044440
042101
041505
052040
015
05111
052517
042122
042502
042522
042504

040524
051504
020123

012
104

27-JuL=78

044440

043111
041516

042516
006524
051117
020123
044507

040505

012

051117
020123
020060
042040
044127
051511
041440

EM70:

EM71:

TRACK NUMBER/

TEST/<15><12>

(ZRJJCO, RPO4L/5/6 FCTNL CTRLRZ
26=JUL~-78 10:07
CZRJJC.PN
9466
9467

9468

9469
9470
9471
9472
9473
9474
9475

9476

9477
94,78
9479
9480
9481
9482
9483
9484
9485
9486
9487
9488
9489
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

056160

056166
056174
056202

056203
056210
056216
056224
056232
056240
056244

056252
056260
056266
056274
056302
056310
056312
056320
056326
056334
056342
056350
056356

054502
042116

MACY11 30A(1052)

27=JUL=78

116

12:32

POWER DOWN AND UP ROUTINES

PAGE 204

031440
054105
042523

044440
050040
006523

052501
046511
051105
051511
044103
005015
042117
020101
020123
051440

042523
051120

LASCII

/CAUSED IMPROPER REGISTER CHANGE/<15><12>

042040
044507
044127
047510
042502
042522

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042503
042040
044507
042522
051105
042524
043101
020063
020130
051505
042510
051501
052105
051122
051125
052515
042514
042524
042101
042116
020101
047101
051505
043516
047101
052122
052040
047447
042524
006412
020117
046102
047517
052524
047522

053111
052101
042526
044507
041440
052116
042524
047111
052520
000
042522
040440
050125
051117
047111
052114
053440
005015
051105
042040
047503
051504
046125
044440
040440
005015
044510
044520
052123
012
051124
020105
020124
020120
026122
020120
044510
052123

LASCIZ

/RECE]VED DATA GIVES REGISTER CONTENTS AFTER 3 INDEX PULSES/

LASCII

/THERE WAS A SETUP ERROR DURING MULTIPLE WRITE/<15><12>

LASCI1

/HEADER AND DATA COMMANDS RESULTING IN AN ABORT/<15><12>

LASCII

/OF

LASCIZ

/TO TROUBLE SHOOT SETUP ERROR, LOOP ON THIS TEST/

020104
042510

047517
052040
042524

051040
042524
047101

EM72:

THIS 'OPI'

TEST./<15><12><15><12>

SEQ 0203

CZRJJCO, RPO4L/S5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuUL-78 10:07
9522

9523

9524

9525
9526
9527
9528
9529
9530
9531
9532
9533
9534
9535
9536
9537
9538
9539
9540
9541
9542
9543
9544
9545
9546
9547
9548
9549
9550
9551

056653

056660
056666
056674
056702
056710
056716
056722
056730
056736
056744
056747
056754
056762
056770

122

042510
040440
052101

J 16

12:32

PAGE 205

LASCII

/READ HEADER AND DATA FOR 11960 WORDS /<15><1¢Z>

064440
051440
051522

LASCII

/THAT

1S 46 SECTORS /<15><12>

040510
047440
020063
020130
051505
042523
042440

020124
042526
047111
052520

LASCIZ

/THAT

IS OVER 3 INDEX PULSES CAUSED AN ERROR/

040505
042101

020104
051105
042040
047506
033071
042122

.ASCII

/READ HEADER AND DATA FOR 11960 WORDS /<15><12>

044440
051440
051522
052101
053117
044440
006440

LASCII

/THAT

042523
051525
044520
042523

LASCIZ

/PULSES CAUSED OPI

020104
051105
042040
047506
033071
042122

012

042116
020101
030461

047527
005015
052101
033064
047524
044124
020123
031440
054105

000124

27-JUL-78

POWER DOWN AND UP ROUTINES

040505
042101
042116
020101
030461
047527
005015
052101
033064
047524

000

057174

MACY11 30A(1052)

046125
040503
047440
020117

EM73:

041440
020104

051122
EM74:

IS 46 SECTORS, THAT IS OVER 3 INDEX /<15><12>

TO SET/

SEQ 0204

MACY11 30A(1052)

CZRJJCO, RPO4/5/6 FCTNL
CZRJJC.PT
26=JuL-78
9561
9562
9563
9564
9565
9566
9567
9568
9569
9570
9571
9572
9573
9574
9575
9576
9577
9578
9579
9580
9581
9582
9583
9584
9585
9586
9587
9588
9589
9590
9591
9592
9593
9594

9595
9596
9597

057176
057204
057212
057220
057226
057234
057242
057250
057256
057264
057272
057300
057306
057314
057322
057330
057336
057337
057344
057352

057434
057442

057450
057456
057464
057472
057500
057506
057514
057522
057530
057536
057537
057544
057552
057560
057566
057574
057602
057610
057616
057624
057630
057636

040506
051105
020055
047504
052116
044524
006440

177607

044124
052116
051105
042504
044040
047117
046106
046040

27-JuUL=-78

K 16

12:32

POWER DOWN AND UP ROUTINES

103412
103777

020105
047522
047440
044526

020114
020122
020105
042515
051511
005015
177777

(PHALT:

177777

047503

046114
020122

PAGE 206

SEQ 0205

LASCII

/FATAL ERROR = SEE DOCUMENT LISTING/<15><12>

LASCII

/ 7€15><12><207><377><377><207><377><377><207><377><377>

LASCII

/THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<15><12>

042503
043440
043117
026105

051501
020105
047111
051517

006524

042522
020054
042515
040526
042514
044040
040524
044502

042101
042502
052440
046111
020054
051501
052524
051524

LASCII

/'READY", BECOME UNAVAILABLE.

020110
052117
046103
000104

LASCIZ

/WHICH CANNOT BE

CLEARED/

040505

041511
047116
020105
042522

041520

020040

020040
052123
040527
020040
020040
020107
042522
020040
006461

LASCII

TEST

WAIT

BIT

REG

020040
020117
050040
020040
052103
042104
041440
052116
042524

LASCIZ

EXPCTD

ADDRESS CONTENT CONTENT

020040

020040
047040
020040
020040
050130
040440
051523
042524
047117
000011
020040
042524

LASCII

/PC

TEST

WAIT

BIT

REG

042524
020040
020040
020124
042522
020040
020040
051503

020040
052123

DH1:

:
DH4

OR HAS STATUS BITS/<15><12>

REG

TIME

RH(S1/<15><12>

IN/<15><12>

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
C(ZRJJC.P1T
26=JuUL~78 10:07
9617

057644
057652
057660
057666
057674
057702
057710
057711
057716
057724
057732
057740
057746
057754
057762
057770
057771
057776
060004
060012
060020
060026
060034
060042
060043
060050
060056

060247
060254
060262
060270
060276
060304
060312

27-JUL=78

L 16

12:32

POWER DOWN AND UP ROUTINES

PAGE 207

SEQ 0206

040527

020040

044440
LASCIZ

020040

060064
060072
060100
060106
060110
060116
060124

060132
060140
060146
060152
060160
060166
060174
060202
060207
060214
060222
060230
060236
060244

MACY11 30A(1052)

051515

041505

020103
052040
020040
020040
047517
051040
042526

020040
051505
051040
020040
020104
041505
006504

020040
047040
020040
042522
052101
042040

020040
020117
040440
051523
020101
052101

020040
042524
020040
020040
042503
005015
020040
047516
020040
051505
040524
020103
052040
020040

020040
052123
042522
020040
05311

020103
052040

020040
051505

040440
051523
120

020040
020124
044501
041440
052116
042524

020040

044514
047117
041440
052116

020040
020040
042101
020123
000
020040
051505
051040
020040
042522

043040
043516
042524
047117
041440

DHS:

LASCII

/PC

LASCIZ

DH6:

LASCII

/PC

.ASCIZ

EXPCTD

ADDRESS 10 MSEC/

TEST

REG

GOOD

RECEIVED/<15><12>

ADDRESS DATA

TEST

REG

ADDRESS DATA/

DATA/

RECEIVED/<15><12>

ADDRESS/

DH7:

.ASCIZ

/PC

TEST

REG

DH10:

.ASCII

/PC

TEST

FAILING CONTENT CONTENT CONTENT CONTENT/<15><12>

CZRJJCO, RPO4/S5/6 FCTNL CTRLRZ2
CZRJJC P11
26=JuL-78 10:07
9673
9674
9675
9676

047117
041440

052116
020040
020040
020040
£27107
044122
020040
020062

042524
047117
505715

MACY11 30A(1052)

27-JuL=78

M 16

12:32

POWER DOWN AND UP ROUTINES

SEQ 0207

PAGE 208

052116
042524

020040
020040

LASCIZ

RHCST

RH(CSZ2

RHDST

RHER1/

REG.

TEST

CONT OF CONT OF CONT OF CONT OF CONT OF CONT OF /7<15><12

RHCS1

RHCS2

RHDS1

TEST

WORD

GOOD

BAD/<15><12>

DATA

DATA/

TEST

REG

GOOD

REC/D

051105

DHZ26:

020040
042524
020040
047440
052116
047503
020106

LASCII

/PC

047440

052116
047503
LASCIZ

RHER1

RHER2

020040
031522
041520

020040
020040

020117
042040
020040
000101

041520

9728

042524

020040
052123
047527
020040
020040
006504

DH30:

020040
020117
047040
020040
020101
052101

020040
052123
042522
020040
020040

LASCII

/PC

LASCIZ

DHS51:

LASCII

/P(

ILLEGL/<15><12>

RHER3

061202
061210
061216
061224
061232
061234
061242

TEST

REG

GOOD

RECVD

LASCIZ

ADDRESS DATA

DATA

.ASCII

/PC

TEST

PC OF

RHDS1/<15><12>

LASCIZ

JSR

WAS/

.ASCII

/PC

PC OF

RHCS1/<15><12>

LASCIZ

JSR

WAS/

.ASCII

/PC

TEST

CONT

CONT/<15><12>

LASCIZ

RHCS1T

RHAS

RHDS1/

MODF ING/<15><12>

020040
042524

020040
052123
041520
051040
005015
020040
020040
051512
020040

DH61:

020040
047440
044122
012
020040
051123
053440

DH62:

020040
051505
041440
020040
020124
047117

DH65:

REG/

020040
020040
042101
020123
020040
040524
042522

020040
020117

/PC

020040
047516
020040

051505
040524
040504
020040

.ASCII

FUNCTN/

047517
051040
020040
044506

ADDRESS DATA

9753
9754
9755
9756
9757
9758
9759

061160
061166
061174

020040

DH60:

9750
9751
9752

061120

020040
051505
051040
020040
020104
041505
046440
043516

061126
061134
061142
061150
061156

9744

020103
052040
020040

047124

DATA

LASCIZ

9745
9746
9747
9748
9749

120
020040
020124
043505
043440
020040
042126
042117
005015
020040
020040
020040
051104
040504
020040
020040
000107
041520
020040

041516

053103
046111
005015
020040
020040
042101
020123
020040
040524
052506
000

061077
061104
061112

061072

042522
020040
044107
020040
047516
020040
051505
04052
040504
020040

SEQ 0208

9741
9742
9743

739

040504
020040
020040

POWER DOWN AND UP ROUTINES

1
PAGE 209

020040
020104
042514
020040
020040
020040
051104

B
12:32

9736
9737
9738

060776
061004
061012
061020
061026
061034
061042
061050
061056
061064

27-JUL-78

9729
9730
9731
9732
9733
9734
9735

MACY11 30A(1052)

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JUL-78 10:07

9785
9786
9787
9788

061462
061470
061476
061504

9790

061515

061522

020040

9800

061610

031123

9802

061613

061620
061626
061634
061642
061650
061656
061664

020040
020124
041510
051040
020040
030523
042110

9812

061706

9791

9803
9804
9805
9806
9807
9808
9809

MACY11 30A(1052)

12:32

PAGE 210

SEQ 0209

020040
041510
051040
020040

020040
030523
040510
051888

051040
020040
020123
042110

120

020103

020040

DH66:

.ASCIZ

/PC

TEST

RHDST

RHER1

RHER2

RHER3

RHCS1

RH(CS2/

120

020103

020040

DH72:

.ASCIZ

/PC

TEST

RHCSI

RHCS2

RHDST

RHCA

RHERT

030522

020040

051040

052040

052040
020040
044523
041510
051040
020040
052123

051505

051505
051040
020040
031123
042110
051040
020040

9814
9815
gg}g

.EVEN

9818
9819

061720
061726

001116
033326

9821

061740

001116

9824
9825
9826
9827
9828
9829
9830
9831

061762
061770
061776
062004
062010
062016
062020
062026

001116
001124
001116
001126
001116
000000
001116
002262

9822
9823

27-JuL-78

POWER DOWN AND UP ROUTINES

061746
061754

033322
001126

004504
033324
000000

033322
001126

DT1:

.WORD

004504

DTé:

.WORD

S$ERRPC,TSTNM,TSTNM,WAITPC
,WAITBT ,WAITRE ,$BDDAT ,WAITTM,O

004504
001126
004504
000000
004504

004500
000000
004500

DT5:

.WORD

$ERRPC,TSTNM,REGADR,$GDDAT,$BDDAT
.0

DT6:

.WORD

001200

DT7:

.WORD

SERRP(C,TSTNM,REGADR,$BDDAT,0
S$ERRP(C,TSTNM,$TMP1,0

004504
885588

001122
002304

DT10:

.WORD

$ERRPC,TSTNM,$BDADR,(S1,(S2,DS1,ER1,0

033326
033330

033324
000000

RHWC/

——

26=JuL-78 10:07

ek ek

CZRJJC.PN

B BEIAREARIRIAIAIAIAIAIAIAIAIAIAIAIAINIAIAIAIALA
P
LA

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2

$ERRPC,TSTNM,WAITPC,WAITBT ,WAITRE,$BDDAT,(S1,0

9833

062040

001116

004504

002262

DT26:

.WORD

S$ERRPC,TSTNM,(S1,(S2.DS1,ER1,ER2,ER3.,0

9836

062062

001116

004504

004502

DT30:

.WORD

$ERRPC,TSTNM,ERWORD,$GDDAT,$BDDAT,0

9838
9839

062076
062104

001116
001124

004504
001126

004500
002364

DTS51:

.WORD

$ERRPC,TSTNM,REGADR,$GDDAT,$BDDAT,ILLEGL,0

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PN
26-JUL-78 10:07
001116
001124
000000
001116
001122
001116
001122

MACY11 30A(1052)

27-JuL-78

D
12:32

POWER DOWN AND UP ROUTINES

1
PAGE 211

004504
001126

004500
001122

DT60:

.WORD

SERRPC,TSTNM,REGADR,$GDDAT,$BDDAT,$BDADR,0

004504

033126

DT61:

.WORD

S$ERRPC,TSTNM,PCJSR,S$BDADR,0

033126

DT62:

.WORD

SERRPC,TSTNM,PCJSR,$BDADR,0

DT65:

.WORD

SERRPC,TSTNM,(CS1,AS,DS1,0

DT66:

.WORD

SERRPC,TSTNM,DST,ER1,ER2,ER3,(S1,(S2.0

DT72:

.WORD

$ERRP(C,TSTNM,(S1,(S2,DS1,DST,CA,ER1,WC,0

002264

002262
000000
002266
002276
000000
002262
002266
002254

000
000

DF1:

.BYTE

0,0,0,0,0,0.0

000
000

000
001

DF&:

.BYTE

0,0,0,0,0,1.0

000
000
000

000
000

DF6:

.BYTE

0,0.0.0

000
000
000

DF10:

.BYTE

0.0.0

000
000
000

000
000

DF26:

.BYTE

0,0,0,0,0,0,0,0

000
000

000

DF30:

.BYTE

0,0,0,0,0

000
000

DF51:

.BYTE

0.0.0.0.0.0

000

000
000
000

DF60:

.BYTE

0,0,0,0,0,0

DF61:

.BYTE

0,0,0.0

000

DF62:

.BYTE

0,0,0,0

000

DF65:

.BYTE

0,0,0,0.0

000

DF66:

.BYTE

0,0,0,0,0,0,0,0,0

000
000

DF72:

.BYTE

0,0,0,0,0,0,0.0,0

000
000

DF7:

0,0,0,0,0.0.0

SEQ 0210

000

062366

9899

062372

9901

000001

9900

000

POWER DOWN AND UP ROUTINES

000
.EVEN
.END

PAGE 212

SEQ 0211
P~~~
p—p— p—

9897

9898

12:32

26=JuL-78 10:07

27-JuL-78

CZRJJC.PN

MACY11 30A(1052)

CZRJJCO, RPO4/5/6 FCTNL CTRLR2

BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 000010
BIT4 = 000020
BITS = 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000
BPTVEC= 000014
002274
CA
cC
002316

639
638
642
640
6284
6284
6284
6284
6284
6284

s
Ll
AR
L8
LB
AR

4069

4166

4283

4374

4611

4788

5103

5301

2151+
5510

3245
5704

3447
6066

3568
6210

3698

4077

4176

4293

4382

4616

4813

7744
7739

8394

2585

5494

8125
5673
5673

8110

AL
LB
AS
LD AR AD
Al

7179

3697

9848
3557
6199

8164
6430

76914
1804#
17984
1801#

2479

5691

BA
002256
BAI
= 000010
BASECH 035236
BEGIN
004710
BEGIN1
004660
BEGINZ 004674
BITO = 000001
BITOO = 000001
BITO1 = 000002
BIT02 = 000004
BITO3 = 000010
BITO4 = 000020
BITOS = 000040
BITO6 = 000100
BITO7 = 000200
BITO8 = 000400
BITO9 = 001000
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000

14984
14994
15004
15014
1502#
15034
1504#
15054
14414
14424
16694
14094

8200
3457
6063

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

4795

=
=
=
=
=
=
=
=
=
=

7502+

004566
004644

5507
17494
1783#
5109

3227
5701
2151
2102+
5312

16804
146664

ATS

AT6
AT7
A16
A17

100000

1478#%

1949
77404
4606

ATO
AT1
AT2
AT3
AT4

000204
036226
001000
002300

16014
15614
5394
7792

7769
7777

5476
5476
7784

8117
7758

5476
7263

9853

ATABLE
ATTENT

000040
100000

SEQ 0212

ACL
=
ACU
=
ADDMOD
ADTIMO
AOE
=
A%
ATA
=

E-3

MACY11 30A(1052) 27-JuUL-78 12:32 PAGE 214
CROSS REFERENCE TABLE == USER SYMBOLS

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=JuL-78 10:07

CZRJJCO, RPO4/S/6 FCTNL CTRLR2

CZRJIJC.PI
CHECK
CHECKC
CHECKT

CHREG

26=-JuL-78 10:07

033130
033166
033152

033762

2294
7164

2448
3654
5048
6359
2334
3548
4377
5490

CKSWR = 104407
CLAREA
032742

6195

7757

2405
3502

4710
5584

CLDISK

033072

= 000040
CLR
035120
COMPAR
COMREG

CPHALT

034070

057176

CR
CRLF
CSF
CSU
cs1

000015
000200
000002
000010
002262

cs2

002260
002252

DCK
DCL
DCLEAR
DDISP

DE1
DFF20
DFF5
DF1

DF10
DF 26
DF 30

4454
5743
6589
164114
2609
5949
2344
3921
5819

71604
7170#

2553
2773
5171
6433
2470
3553
4590
5495

6205
8105
2514
3734

4866
5599
70594

2208
3278

4669
5853

6701
2243
2883
6669
2485
4085

5935
2449
3655
5049
6360
7894
7869

2629
3874
5272
6489
2475
3563
4597
5503
6211
8124
2656
3751

27-JuL-78

2699
4033
5392
6537
2576
3688
4607
5511

74214

83594
2671
3852

2803

4130
5611

6631
2581
3693

4777
5687

5635

4987
5639

2677
3987
5025
5746

2229
3480

2258
3618

2293
3639

4,872

4715
5964

6739
2251
3057
6888
25N
4180

6096
2554
3774
5172
6434

4851
5995
6815
2271

3265

76534

2746

4297
6228

12:

4877

6122

7135

2902
4204
5465
6702
3223
4065

2937

5615
6770
3230

3132
4345
5662
6862
3237

5697

5094
5705

4248

4784

4072
5087

2845

3015

5692

4108

5143
5750

2374
3722

4974

6242

SEQ 0213

4226

5149
5856

4162

3109
4323
5244
5861

3205
4439
5772
71664
3413
4171
5099
6054

3183

4421

5250
6520
2644

3316

4567
5881

3429
4279
5110
6059
3292
4488
5377
6596

3386

4754

6041

3437

4288

6070

3364

4525

5433
6614
2899

3524
4895
6141

3448

4362
5297
6079

3492

4698

5437

6753
2918

3621
6274

3453

4370
5307
6188

3496

4704

5443
6830
3095

5019
6247

2627
3958
5141
6309

4105
5241

4200
5359

4320

4409

6397

4223
5367
6420

2507
3851

6332

2773

5563
6478

5571
6505

2277
3592

7144

3838

3939

4836

4951

5225

5338

5546

5833

2867
4386

3040
4645

4818

3162

3248
4923

3345
5123

3462
5206

3572
5321

3701
5525

3820
5722

3206

2630
3875
5273
6490

74894
2700
4034
5393
6538

413
5412
6632

6382+

6383

%
6464

9833

9850

9853

2804

5466

4249
5616

4440

3317
4568
5882

3387
4755
6042

4896

6771

4346
5663
6863

6465

6568

6655

8172

9818

9830

9833

2903
4205
6703

2938

3133

5773
95624

3525

6142

7903

6297
9850
8168

100000
000100

002330
177570

1831

062272

820

98694

101

1089

1123

1147

1183

1219

1326

1337

98774

886

898
1076

906
1101

913
1114

%3
1136

932
1176

1195

943

966
1207

000040
000002
000001
062240

738

062301
062311

DF5

062247
062256

DF51

062316

DF&

6845
2101
3182

2:32 PAGE 215
27=JuL
CROSS REFERENCE TABLE == USER SYMBCLS

MACY11 30A(1052)

858

1039

1162

1351

1064

987
1232

CZRJJCO, RPO4/S/6 FCTNL CTRLR2
CZRJJC.PN

DF6
DF60
DF61
DF62
DF 65
DF 66
DF7
DF 72
DH1
DH10
DH26
DH30
DH4
DHS

062263
062324
062332
062336
062342
062347
062267
062360
057450
060247
060426
060626
057630
057771

DH51
DH6
DH60
DH61
DH62
DH65
DH66
DH7
DH72

060740
060110
061077
061234
061326
061401
061515
060207
061613

DIGB

DLT
DL64
DMD
DPR
DRY
DST
DSWR
DS1
DT
DTE
DTSY
DT
DT10
DT26
DT30
DT4
DTS

=
=
=
=
=

DT51
DT6
DT60
DT61
DT62
DT65
DT66
D17
D172

26=JuL-78 10:07

MACY11 30A(1052)

12:32

SEQ 0214

PAGE 216

CROSS REFERENCE TABLE == USER SYMBOLS

771

1385
732
812

98954
95954
828

96664

1009

1026

1087

853

1037
1346

867

1048
96334

881

1062

1145

1181

1217

1324

1335

97094

1074

893

904
1099

911
1112

921
1134

930
1174

941
1193

1205

5911

7180

964

985

1230

98024

100000
000020
000001
000400
000200

002266
= 177570
002304
002306
= 010000
= 001000
061720
062020
062040
062062
061740
061762
062076
061776
062114
062132
062144
062156
062172
062010
062214

27-JuL-78

7798+

8109+

2948
2913
9853

3679
3635

3798
3668

3899
4219

5797
5426

8176

9830

9833

9848

9853

98184

1384

6501

6722

6825

7180

835

98304

1027

1088

1122

1146

1182

1218

1325

1336

98364

871
1049
98244

885
1063

897
1075

905
1100

912
1113

922
1135

931
1175

942
1194

965
1206

98534

986
1231

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ
CZRJIJC.PN
26~JuL~78 10:07
= 004000
= 000100
= 004000

EC]
EC2
EMTVEC=
EM1
EM10
EM11
EM12
EM13
EM14
EM15
EM16
EM17
EM2
EM20
EM21
EM22
EM23
EM24
EM25
EM26
EM27
EM3
EM30
EM31
EM32
EM33
EM34
EM35
EM36
EM37

002312
002314
000030
042572
043312
043361
043466
043574
043713
043765
044126
044254
042621
044411
044560
044633
044706
045055
045220
045402
045472
042710
045710
045770
046205
046312
046514
046540
046756
047033

EM4O

047250
047457
047740
050216
050554
051046
051354

%N—"OWVOM\NV\N—'OO
OO OOV

d
b
b
b
b

amaanNy =)

d
d

051500
043102

EM4L7
EMS5

1079

27-JUL-78

12:32

SEQ 0215

PAGE 217

CROSS REFERENCE TABLE == USER SYMBOLS

2247

2425

042771

EM41
EM42
EM43
EM44
EM4S
EM46

15744
3378
4437

—d

EM&4

1444k
14754

DVA
ECH
ECI

MACY11 30A(1052)

89614
90294
90444

90754

9102#
91314
91604
91704
91994
92314
92554

84554

2947

3672

3791

2691
3866
4742
5613
6768

4010
4743
5653

2781

6859

3892

2782

4021
4887

5763
6860

5790

5904

7172

2926

2927
4239

4240

4122
4888
5764

5001

5873

3123
5039
5874

3306
4337
5163

6357

CZRJJCO, RPO4/S5/6 FCTNL CTRLR2

MACY11 30A(1052)

EM60
EM6]
EM63
EMES

054242
054651
054735
055010

EM66
EME7
EM7
EM70

055251
055462
043242
055736

EM72
EM73
EM74
ERFLGS
ERR
=

056405
056653
057023
004632
040000

92884
1260
93454
93534
93784
93824
94074
84644
94394
94644
94934
95224
95414
6146%
3229
6065
1828
7666*
6454%
8184
8188

CZRJJC.PN

EMES

EM71

26~JUL-78 10:07

055227

056144

ERRVEC= 000004
ERWORD 004502
ER1
002264
ER2
002270
ER3
002276

EXT1
= 000001
EXT10 = 000010
EXT2 = 000002
EXT20 = 000020
EXT4 = 000004
EXT40 = 000040
FEN
= 000200
FER
= 000020
FILL
034026
FILLRE 032774

1235
1252
1269
1277
1290
1301
1317
774
1328
1340
1354
1374
1381
17704
14654
5703
6284
17314
16748
16764
16794
15284
15314
15294
15324
15304
15334
15544
14734

74514
2464

5519

27-JuUL-78

12:32

SEQ 0216

PAGE 218

CROSS REFERENCE TABLE == USER SYMBOLS

93364

8106+

3459
6201
1829

7672«
6455
9833
9833

5114

5311

2467

2480

5509

2854
3337
3908
4802

2857

2860

3911
4807

5929

6087

3914
4912
5516
6091

4071
6653
1931+

4168

4285

4376

4613

4790

5105

1939+

1967«

7761

7762+

7764

7767%

8180
9850
9850

9830

9833

9850

9853

2570

2573

2586

2734

9836

2740

5923

70874
7238«
7239
1850
2393

5713

5716

5806

5810

5813

004564
004562
004634
032716

6202
17434
17420
1772#
2382

1873«
2510

2647

2662

2838

3008

3968
5590

FMT22 = 010000

15754

2424

2425

2436

2437

2532

2533

2782

FINACC
FINALA
FIRST
FLHEAD

5710

5303

3559
6566
1839

3764
4436

5763
6535
FUTABL
002322
GNS
= wwwwxx |

1698#

629

5974

1858

1860

1863

1865

1867

1870

1996

2186
7569
7739
8200

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26=-JuL-78 10:07

= 000001

= 000010
GRV
GTSWR = 104406

HCE
HCI

HCRC
HT
HT.

IAE
IE

= 000200
= 002000

8208
8359
2309
3212
4214
5472
6544

14764

83584
3241

15734

SEQ 0217

MACY11 30A(1052) 27-JUL-78 12:32 PAGE 219
CROSS REFERENCE TABLE == USER SYMBOLS

8204
8358
14384
3139
4137
5421
6496

14540
1879

8224
8363

8216
8361

3628
4574
5790
6820

2691
4240
5456

8228

8232

8353

8355

8356

8357

2718
3661

2795

7263

2947
3881
5178
6281

2952
3892
5279
6366

2979
4040
5399

6874

2807
3780
5010
6045

3123
4547
5764

3306
4732

3378
4743
6357

27124
3148
3785#
4360
51814
5685

28114
3221
38864

2816
33274
3891
45774
5287
5898#
6559

28314
3332

4761
5889

2782

4337
5613

= 000400
= 000011
= 015440

6272

4454
52824

5789
65544

= 002000
= 000100

= 000001
ILF_
ILLEGL 002364
ILR
= 000002
IOTVEC= 000020
IR
= 000100

IXE

= 004000

LA
LBT
LF

002320
= 002
= 000012

5315

14614

6284

8212
2459
7898

2474

7903

2580

4615

4792

7179

6015

6438

3515

4888

6432

40434
4582
54034
5903
66414

2909
379N
5055
6281
7398

2947

3881
5178
6366

2952
3892
5279
6438

6026

6085

6222

CZRJJCO, RPO4/5/76 FCTNL CTRLRZ
CZRJJC.PN
26-JuL~78 10:07
LY.

MCLK
MCPE
MHS

MINX

= 000000

2314m
2836
33974
4048
L7648
5408

MACY11 30A(1052)
2319

2457H

MMVEC = 000250

010000
00
002302
000020
000020
000010
000040
001000
010000
004000
002000
002322
004624
004620

NUNIT
004622
ocyL
= 100000
OF
002272
OFREV = 000200

OFSET
OFSETC
OFSTVL

033056

002354
004510
OF 100 = 000004
0F200 = 000010
OF25 = 000001
0F400 = 000020
OF50 = 000002
0F800 = 000040
OPERSE 034226
= 020000
OPI
OR
= 000200
PAR
=
PCJSR
PCLBUF
PCLCSR
PCLCTR

000010
033126
002246
002244
002250

PGE
= 002000
PIP
= 020000
PIRQ = 177772
PIRQVE= 000240
PKACK
002360
PLU
= 020000
PRE
= 000020

L
12:32

1
PAGE 220

SEQ 0218

CROSS REFERENCE TABLE == USER SYMBOLS

= 000002
= 020000
= 001000

MOL
=
MPE
=
MR
MRD
=
MSE
=
MSTCK =
MWR
=
MxF
=
NED
=
NEM
=
NHS
=
NOPERA
NOPUSH
NOUNIT

27-JUL-78

25624
2

5018
56264

6
67854

6377
68234

6175

6179

2327

2948

6014

6024

6033

6083

1798«
2040
2086*

1802+

1805«
2086

2132«

6969+

2079
2087

2816
33274
3891
45774
5287
5898#
6559

2717
32164
3790
L4494
5186
5784m
6504

2567
30014
3638
42574

5797

5911

7180

5314

5315

6014

28314
3232
40434
4582
54034
5903
66414

8204

7135

7921

7987

6209
3417
6223

6455
3433

4601

5098

5116

5117

7160«
7262
7236
7237

7161~

7166%

7167%

9844

9846

2297

2308

7263«

2319

5198

5199

6024

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRIIC.P1
26-JuL-78 10:07
PRITEM

PROG
PRO
PR1
PR2
PR3
PRG
PRS
PR6
PR?
PS
PSEL
PSU

=
=
=
=
=
=
=
=
=
=
=
=

040746

001000
000000
000040
000100
000140
000200
000240
000300
000340
177776
002000
1

PSW
= 177776
PUTREG 035014
PWRVEC= 000024

RDCHR
ROLIN
RDOCT
RDY

=
=
=
=

000200

104410
104411
104412
000200

READAT

002346

READIN
RECALI
REFOR

002362
002326
002350

REGADR

004500

REGSAV
REGSAT
REINTO

040602
040610
003434

RELEAS
RESVEC=
RETCL
RHAS
RHBA

002332
000010
002356

RHBAE
RHCA
RHCC
RHCS1

002240
002212
002234
002200

SEQ 0219

MACY11 30A(1052) 27-JuL-78 12:32 PAGE 221
CROSS REFERENCE TABLE == USER SYMBOLS
6968+

7553

81484

8234+

8252

8256+

2289+

2817«

2990

6946+

7552+

6564
8365«

6651
8374+

7501
8377x%

75954
8389«

8390+

7717

2320
3672
5628

83624
2564
3787
5682

2640
3888
5786

2833

4579
6049

4766
6289

4907

6374

3003
5015
6447

3145
5060
6556

3197
5874

3211
5888

4337
5903

5163

5177

5264

5278

5456

6716

6819

3811
5811

3912
5924

2832
3394«
4041+
4591
5280+
5670+

2858
3398

3530
6629
2723«
5916«
2575
3503
4324
5190
5871

6637
2730«

7510%

2611
3512
5227
5925

2947

2985

3880
6860
2958«

4732

2678
3547
4711
5251
5951

2924
3839
4838
5453
6671

3796+

9824

002216

002174

4575+

5179*
5623«

4762+
5283
5681

CZRJJCO, RPO4/S/6 FCTNL CTRLR2
CZRJJC.PN

26-JuUL-78 10:07

5693
6373

9;5;.

RMCS2

002176

16278

RHCS3
RHDB

002242
002170

1651#
16244

RHDS1

002222

RHDT

002224

RHEC1
RHEC2

002230
002232

RHER2
RHER3
RHLA
RHMR
RHOF
RHSN

002206
002214
002236
002220
002210
002226

RH70

004640

RMR
=
RPTCTR
RPTRP1
RPTRP2

RPVECT

RHDST

RHER1

RHWC

RH70CK

RPVEC

RPO6

RP4LVEC

RTN

12:32

MACY11 30A(1052)

27-JUuL-78

PAGE 222

SEQ 0220

5780%
6382

5785
6439%

5890«
6446

5899
6464

6048
6497+

6071
6545%

6167«
6555

6189
6639+

6282+
6642

6288
6718«

6297
6778+

6367+
6786

1997

2046%

2140*

3414

3430

4061

4158

4275

4598

5095

5115

5197

CROSS REFERENCE TABLE == USER SYMBOLS

gggg'

995?

7139

7290

7302

7375

7398

7631«

7694

1633¢
3814

2481
3915

2587
4078

2741
4169

2821+
4286

2861
4369

2991+
4642

3031
4814

3157
4919

3243
5107

3341
5195

3445
5305

3561
5501

16640
3634
5504
16414
2173

2315
3667
5698
2047
2175

2335
3694
6060
2949
2178

2458
4066
6196
2052
2180

2471
4163
6500
2054
2199

2577
4218
6721
2057
2201

2639
4280
6824
2059

2812
4371
7141
2069

2912
4608

2984
4785

3224
5100

3454
5298

3554
5425

2141

2143

2162

2168

2170

16324
4605

2000
4794

3238
5111

3449
5308

3549
5512

4044
5706

4073
6055

4141
6206

4172
6454

4258
7142

4289

4356

4378

7239
6161
6147%
2158

6212
7134
2198

7629%
2200

2465
3335
4126
5080
6019+

2550
3382
4154
5167
6028+

2571
3408
4244
5192
6037

2695
3424
4271
5268
6092

2735
3520
4341
5461
6125«

2787
3543
4563
5520
6152

2852
3649
4588
5658
6219

2932
3769
4750
5717
7092

3022
3808
4775
5768
7426

3128
3870
4892
5807
7510

17774

1885«

1956+

1958+

3404

5065

5966

000004
033572
011272
011400

14714
7347#
2232
2261

5515
7393
22464
22744

5709

2451%
3528+
4B99*
6363

2556%
3625+
5007%
6436

2633«
3658+
5052%
6493*

2703x
3777«
5175«
6541%

2802+
3878+
5276*
6635«

2823+
4037+«
5396*
6714*

2905«
4134«
5418x
67764+

2940+
4208+
5469+
6817+

036312

1845

2306*
3390%
4758+
6278+
7750%

2414

2522

3964

3997

4463

4501

4535

4620

4672

002202

002172

006032

002166

004636

004506

006522

RUN

035054

RUNCTR

004642

5711

16434
16444
16344
16374
16464
1639#
16354
1642¢

1625#
3151
3909
4913
5877
18834

13904
299%*
4252%
5619+
6866

5814

2302
3201
4029
5044
5921

7700

5927

2444
3312
4057
5069
5996+

6140%

1844
3136%
4349%
5666*
7713

2231
3209*
4443x
5776%
7718«

2260
3320
4571x
5885%
7725

17754

2139+«

2146+

2378

17334
3390
4758
6278

1910
3528
4899
6363

2306
3625
5007
6436

2451
3658
5052
6493

4721

1961

2417
3858
5031
6621
17804

77468

4799

19654

2429
4002
5155
6760
6168+

7750

6729

2525
4013
5256
6852
6171«

7628

7135«

6080
1934

7140

7126%

5313

002204

6221

7109«

6203

7108+

7623%

6907

6925

2556
3777
5175
6541

2633
3878
5276
6635

2703
4037
5396
6714

2823
4134
5418
6774

2905
4208
5469
6817

2994
4252
5619
6866

3136
4349
5666

3209
4443
5776

3320
4571
5885

2537
4114
5382
76224

2683
4232
5448

2774
4329
5605

2919
4429
5645

3115
4539
5756

3189
4550
5866

3298
4724
6264

3370
4735
6349

3507
4880
6424

3757
4993
6527

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRIJC.PN
26=JuUL-78 10:07
RUNWAT
SAVER

027420
033240

SAVERE

004512

2
PAGE 223
CROSS REFERENCE TABLE == USER SYMBOLS

MACY11 30A(1052)

61684
2301
3869
5767

2549
6036
2345
3202
3702
4127

17614

= 100000

sC1_
SC10
sC2
sC20
SC4

=
=
=
=
=

pary

=
=
=
=

002334
040000
002310
005774
033022
177572
177574
177576
172516

o
o

]

(%]

—

SERCH
SKI
SN
SND1
SRCH
SRO
SR1
SR2
SR3

000100
001000
000200
002000
000400

6524
6524
65924
65954
6585
6586+
6587%
6284
3616
6120
1800

6284
53664

ST28
SWR

026020
001140

SWREG
swO0
Sw00
Sw01
Sw02

000176
000001
000001
000002
000004

=
=
=
=

4286+

49224
5550
55704
5838

6734

7769

8382+
6304
6284
6284
6284
6284

SEQ 0221

3311
5043

3381

3519
5267

3648
5460

3758
5657

2486
3249
3821
4156
4298
4893
5315«
6038

2747
3447
4057+

2788
3463

4176*
4387
5117«
5510+

4059+
4181
4564
5118«
5526

2868
3521
4061+
4245

2933
3568+
4063+

6210%

4616
5124
5659
6219%

3041
3573
4077+
4273

3692
6192

5091

5294

72014

2931

4562

3127
4749

6153

76431%

6224

14474
6011
15344
15374
15354
1538#
15364
17114
2906
17654
2014
17044
16034
1684#
1853
2941
6524
6524

B
12:32

2786
4340

4125

4078+
4275«
4751
5200%
5769
SC

27-JuUL-78

2908
4210
1799«

2090#
2782

4213

5420

5415

1801~

71254
1804

2806

5166

4271*
4642+
5168
*
5704

4646

6220+

5199+
5723
6223*

5499

5696

6001

2625
5357

2897
5561

3093

2012
8121

7514

7126

1913

2090

2109

6957

2927

2945

2951

3660

3671

7109

2291

2372
5239

2200+
18734
3642

8232

6600
66034
66134
66204
1814
3720
6245
1803

6696
6689+
6690
6691«
1928
3956
6330

1972
4103
6476

4198
6699

2099

2228
4318

4407

1812

7771

1830«
7777

1832
7784

1837
7924

1877
7955

1883
7997

1837

1877

7924

7955

7971

71074

1808#

2257

4972

5851

3276

5962

5558

55554
5847
58444

8125

7675

8150

7758

8372

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.P1N
26=-JuL-78 10:07
Sw03

SW04
SW0S
Sw0é6
Sw07
SW08
SW09
SW1
SW10
SW11
SWw12

SW13
SW14
SW15
SW2
Sw3
SWé
SWS
Sw6
SW7
Sw8
SW9

SEQ 0222

MACY11 30A(1052)
27=-JUL=78 12:32 PAGE 224
CROSS REFERENCE TABLE == USER SYMBOLS

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

7677

1992

2012

TBITVE= 000014
TDF
= 000040

TESTAD
TIMCNT
TIME1
TIME2
TKVEC =
TMPO

034224
033570
033272
033304
000060
004650

2825

TTMP1

004652

6323

= 000037

2821
22914
3617

TTMMP4
TTMMPS

7279

7910+

004654
004656

49724
TOTALA
TPVEC =
TRAPVE=
TRE
=

004646
000064
000034
040000

TRK1
=
TRK10 =
TRK2 =
TRK20 =
TRK4
=
TRP
TRTVEC=
TSTNM

004000
040000
010000
100000
020000
006464
000014
004504

TST1
TST10

006176
011410

6121
2007

7364

7369

2995

5360«

5475

5478«

5361
2373
39564
5240
63304

5555+
26254
3957
53574
6331

5566
2626
41034
5358
64764

5844
28974

4104

55614
6477

41984
5562
66994

58514
6700

5093

5296

6011

2292+

2373«
5240«
9824

2626
5358+
9826

2973«

1820«

3443

459¢

2989+

4783

5534

5565

5672

5675%

2898

30934

3094
43184
5852

32764
4319
59624

6021

6030

6194

2898+
5562+
9828

3094«
5852+
9830

3277
5963+

19624

1927%
3721%
6246%
9838
1921

22834

1988+

3957
6331

9841
19254

2100+

4104+

6477

9844
7010

2204*
4199+
6700«
9846

2227
4319«
7556
9848

2256%

4408«
9818
9850

4973
9821
9853

9833

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRIJC.PN

26=JuUL-78 10:07

011654
012530
013510
014256
014764
016114
016446

23714
26244
28964
3092#
32754
36154
37154

T1ST20
017334
TST21
017714
TST22
020172
TST23
020530
TST24
020776
TST25
022616
IST26
023572
TST27
024120
TST3
006604
TST30
024750
TST31
026036
TST32
026402
TST33
027230
TST34
027656
TST35
030140
1ST36
030576
TST37
031410
TST4
007720
TST40
032342
TSTS
010646
TST6
011200
TST7
011310
TUF
= 000100
TYPDS = 104405

3955#

TST11
TST12
TST13
TST14
TST1S
TST16
TST17

1ST12

TYPE

006536

= 104401

MACY11 30A(1052)

27-JUL-78

12:32

CROSS REFERENCE TABLE == USER SYMBOLS

1970#

L1024

41974
43174

6977

6964
1868
2071
2219

3525

4896
6142

TYPERR 041710
TYPOC = 104402
TYPON = 104404
TYPOS = 104403

UNIB

= 000020
004616

UNITS
UNITSL

004576
004630
002324

UNIT

UNLOAD

SEQ 0223

PAGE 225

6965
7711
7918
8102
8198
8266
7561

8278

1915
2124
2449
3655
5049
6360
7001
7719
7969
8120
8206
8325
7714

1959

2152
2630
3875
5273
7558
7727
7973
8162
8214
8391
7726

8181
8233

8189
8274

8197

2104

2134

6949

6972

6971

6976+

7145

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
26=-JuL-78 10:07
CZRJJC.PN
040000
020000
009001
000002
000004
000010
000002
010000
000100
033326
033322
033324
033330
033332
033574

UNS
UPE

us1
us2
usé

UWR
VUF

vu30

A
WAITBT
WAITPC
WAITRE
WAITTM
WAIT.P
WAIT.T
= 104413
WAT

002254

WCE
WCF
wCU

2316

7272*
7269*
7271
72604

8363
2457
3535
4905
6287
2346
3923
5821

2327

7280
7270
7280
7261

2562
3633
5013
6372
2487
4087
5937

2338
7285

7355«
7285
7309

7358«
7356%
7289
7319

2638
3666
5058
6445
2593

2712
3785
5181
6499
2748

6098

6230

4182

3679

2725

7370
9821
7357%

2831

4043
5403
6641
3042
4647
8160

4299

SEQ 0224

3798

5797

5911

7163

7180

7365

7374

7400

9818

9821

2911

3001
4257
5626

3143
4355
5680
6877
3464
5208

9818

4140
5424
6720
3164
4820
9853

6823
3347
5125

3216

4449

5784

83634
3574
5323

3327

4577
5898

3703
5527

nmnnn

14834
14194
16064
14074
14084
15994
15984
15594
14574
7254

E €
MACY11 30A(1052) 27-JUL-78 12:32 PAGE 226
CROSS REFERENCE TABLE == USER SYMBOLS

WRCHDT
WRCHEK
WRFROM

2469
3009
3412
3979

2394
2839
3339
3840

4517
4979
5387
5747
6521

4479
4860

5339

WRIDAT
WRIFOR

002342
002344

XE2
$AUTOB
$BDADR
$BDDAT

004000
000400
000004
007346
001134
001122
001126

$BELL
$CHARC
$CKSWR
$CMTAG
=
$CM1

001216
037314
037626
001100
000006

WRL
WRU
wSU

5640
6340
6889
3392

5039
2705

2437
4021
6144

7963

5732
2324
5801+
9836
8058
7887

1817

6864

7182«

2722*
5915«
9841

6532

5054
2717

4445

4547

9830
2729+
7289+

9841

6357

6365

2956+
7301~

8132

79014

1824

6884

6894

2657
3155
3593

2511
3016
3428
3988
4526
4988
5434
5751

6904

9844
2970«
7374

9846

3676+
7400%

3683«
7509

2663
3184
3726

2672
3735

4119
4677
5073
5585
6020
6744

4413
4688

6022
6754

4422
4699
5144
5600
6126
6765

3322
5009
6776

3765
5390

3779
5398

3795+«
7671+

5591

3802+

9818

3896+

9821

CZRJJCO, RPO4/5/6 FCTNL CTRLR2
CZRJJC.PI
26=JuL-78 10:07
$CM2
=
$CM3 =
=
M4
SCNTLC
SCNTLG
SCNTLU
SCRLF
$DBLK
$DOAGN
$OTBL
SENDAD
SENDCT
$ENDMG
SENULL
$EOP
SEOPCT
$ERFLG
$SERMAX
$ERROR
$ERRPC

000014
000006
000006

040377

040411
040404

001223
037070
032672
037060
032662
032630
032701
032676
032574
032622
001103
001115
040600

6344
6834
5904

7918
7969
7990
7004
7813
6994

040576
001104
042554
001135
001114
001224
001106
001110

8093«
6574

SMNEW
SMSWR
SMXCNT
SNULL
SNWTST=
SOCNT
$OMODE
SOVER
$PASS
SPOWER
$PWRAD
$PWRDN

040427
040416
036652
001154
000001

042320
042322
036636
001100
042562
042550
042410

6884

6894

6904

6924
80584

6934

694

6954

6964

7562
78554

7873

7903

7999

8058

8105

7781«
7802

7802

8107«

8132

8115«

8132
9846

8243

9818
9850

6955«

8132
8130

8132

2321«
5798«

2719+

2726+

2957

7789

7801

8120

8132

8237

8261

8266

9821
9853

9824

9826

9828

9830

9833

7670

2971~

9824

3673«
9836

3680«
9838

3792+

9841

3799+

3893«

7799
7779

7801
7795

7801

8127

26244
53564

28964
55604

3092#
58504

32754
59614

70094

9841

7002#
79704

wwwnnw

6874

7773
7775
81054

032652
037716

80604
80594

6864

6970

$GET42
$GTSWR

SMAIL

7982

001116

= 000000

SEQ 0225

70124
70114

001226
040750
001112
001214
001156
001155
001120
001124

$HIOCT
S$ICNT
SILLUP
$INTAG
$SITEMB
$LF
$LPADR
$LPERR

6854
684
6914

7816

$ERRI13
$ERRTY
$ERTTL
$ESCAP
$FILLC
$FILLS
$GDCADR
$GDDAT

$HD

MACY11 30A(1052)
27-JUL-78 12:32 PAGE 227
CROSS REFERENCE TABLE == USER SYMBOLS

7796%
7903

6714
6614
6594

674

19254
36154
61194

8297«
8292+
7759

6544
8392
83944
1821

7508«

8065

7014

1840
7973
7970
7792

5912«

9848

8105
7578
6805+
8121

8132

7779
7560

7794
7577

22034

41974

44064

22834

66984

22254
43174
69444

49714

23714
52384

8315+

83414

6991+

6999

7011

7786

7802

80614
19704
37194

62444
8326+
8296+
7772

6961+
83994

83644

77984

22544

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
CZRJJC.PN
26-JuL~-78 10:07
$SPWRMG
$PWRUP
$QUES
$RDCHR
$RDDEC=
$RDL IN
$RDOCT
$RDSZ =
$REGAD

042544
042462
001222
040170

8392#
8374
4994

G 2
MACY11 30A(1052)
27-JuUL=78 12:32 PAGE 228
CROSS REFERENCE TABLE == USER SYMBOLS
83774

7903

8360

8018

8043

8058

8379%

8380«

83984

1817

1819

SEQ 0226

8102

8105

8132

1823

1824

1826

1875

6988

7757

7922

7926

1826

1926

1971

1986
3956

2096
4103

7757
7801

1827
3276
5962
7758
8105

6989+

LA 2 222

040260
040440
000011
001160
001162
001164
001166
001170
001172
001174
032674

8361
8362

LA 3 2224
2 2
L222

8378

77574
1815
8065

167770

=
$SWRMK
$TIMES
$TKB
$TKCNT
STKINT
$TKQEN=
$TKQIN
$TKQOU
$TKQSR
$TKS
$TKSRV
$TMPO

$TMP1

000000
001212
001146
037320

037340
037337
037322
037324
037326
001144
037410
001176
001200

001202
$TMP3
001204
$TMP4
001206
$TMPS
001210
= 000041
$IN
$TMP2

77934
634

627
2226

4318
6945
7775
8395
7757
1823%
7903
7906*
1990
7951
7907
7908+«
7907
7903
79144

6922

1914

20964
2272
32764

4406

8105

696
2255

4407
6987
7782
7771
1926+
7911
7926
2288
8031
7908
8029
7953
7912+

6929

1921

2099
2283
3615

44074

8124

1821

8131

698

2372
5239

1824

2897
5561

7004
7784

7011
7798

1986+
7937

6945~

8026
79064

7978

3093
5851

3616
6120

3720
6245

6330

8110

8117

8121

7782+

7789

7792«

7801

7768

7769

7966

7950«

7953

7935

7957

7967+

7976

7986+

8002+

2267
6736%
6936+

5973«
6806+

5976
6902

5978«
6904«

5982
6911

5986
6913

8031

1964

22044
2291
3719

49724

19864

2248
28974
6197
5560

7770

7773

8125

CZRJJCO, RPO4/5/6 FCTNL CTRLRZ2
26=JuL-78 10:07
CZRJJC.PN

$TPB
$TPFLG
$TPS
$TRAP
$TRAP2
$TRP =
$TRPAD
$TSTNM
STTYIN
STYPBN=
$TYPDS
$TYPE
$TYPEC
$STYPEX
$TYPOC
STYPON
$TYPOS
$XTSTR
$$GET4=
SOFILL
$4L0CAT=
.
=

001152
001157
001150
042324
042346
000014
042360
001102
040366
xxwuxx |
036654
037100
037250
037316
042122
042136
042076
036414
000000
042321
sxswnn |
062372

062372

ERRORS DETECTED:

SEQ 0227

59624
66994

5968
6944

6119
69454

61204

6244

62454

6329

63304

6389

83554

83564

83574

83584

83594

83604

83614

83624

83634

83644

6988+
8054

7757
80584

7771

7793«

7798

7802

8109

8132

7891#

7892

8004

6374
18604
21544
75744

6414
18654
21864
77138
8105
8376

6534
1867#
21904
77218
8132
8397

6544
19614
21944
7725
81604
98954

702
19654
22154
77294
81644

17224
19964

17234
20204
22214

20224
69494

20264
69534

82044

82084

58514
6695
7893«

20654

20694

20734

82124

7903
82164

79064

17574

5961
6698
7903
7903
7903

5850
64764
5784
6824
6774
1819
83494
8352#
8347
6554
8036
8358
7802#
78554
7876
7897
82954
8294
82904
77604
70044
8291+
7758
6294

7011
78554

. ABS.

MACY11 30A(1052) 27-JUL-78 12:32 PAGE 229
CROSS REFERENCE TABLE == USER SYMBOLS

8295+

8305
6334
1826

75654

8228#

83404

634H

1827
21284
75694
80584

82324

8065
8288#

000
O

TOC :MC : ME : CND=SYSMAC.SML[400,1066],CZRJJC.P11[400,1424]
: /SOL/NL
CZRJJC,DSKW:CZRJJC.SEQ
RUN-TIME: 42 47 2 SECONDS
RUN-TIME RATIO: 256/93=2.7
CORE USED:
37k
(73 PAGES)

DOCUMENT PAGES:

227

6475

22174
77354

81964

77494
82004

17244

7801

17414

7802