Digital PDFs

AH-9220C-MC

July 1978

258 pages

Original

149MB

view download

OCR Version

230MB

view download

Document:	CZRJIC0 RP04-5-6 FUNCTIONAL CONTROLLER 1 DEC 1978 bw
Order Number:	AH-9220C-MC
Revision:	000
Pages:	258
Original Filename:	CZRJIC0__RP04-5-6__FUNCTIONAL_CONTROLLER_1__AH-9220C-MC__DEC_1978_gray.pdf

OCR Text

RP04/5/6

FICHE 1 OF
2

MADE IN USA

RP04/5/6

N SS

FICHE2 OF 2.

MADE IN USA

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05

MACY11 30A(1052)

27-JuL-78

13:06

SEQ 0001

PAGE 2

.REM a

IDENTIFICATION
PRODUCT CODE:

AC-9218C-MC

PRODUCT NAME:

CZRJICO RP04/5/6 FUNCTIONAL CONTROLLER TEST PART I

DATE CREATED:

MAY 1976

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

PETE BLACKSTONE

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

mSIBILUY FOR ANY ERRORS THAT MAY APPEAR IN THIS
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED
TO THE PURCHASER UNDER A LICENSE FOR USE OHN A SINGLE

COMPUTER SYSTEMM AND CAN BE COPIED (WITH INCLUSION OF
DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
SYSTEM, EXCEPT AS MAY OTHERWISE SBE PROVIDED IN
WRITING BY DIGITAL.

DIGITA EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.

DIGITAL
DEC

PDP

DECUS

UNIBUS

DECTAPE

MAS SBUS

(ZRJICO, RPO4L/5/6 FCTNL CTLRI
CZRJIC.PN
27-JuL-78 13:05

MACY11 30A(1052)

27-JuL-78

CONTENTS
ABSTRACT
REQUIREMENTS

EQUIPMENT
STORAGE
PREL IMINARY PROGRAMS

LOADING PROCEDURE
ME THOD

STARTING PROCEDURE
4.1

CONTROL SWITCH SETTINGS

4.2

STARTING ADDRESS OR ADDRESSES

4.3

PROGRAM AND/OR OPERATOR ACTION

OPERATING PROCEDURE

5.1

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

13:06

PAGE 3

SEQ 0002

smnes

CZRJICO, RPO4/S5/6 FCTNL CTLR1
CZRJIC.PN

MACY11 30A(1052)

27-JUL~-78 13:05

27-JuL-78

13:06

PAGE 4

‘

1.0

ABSTRACT

THIS DIAGNOSTIC IS USED TO TEST RP04/5/6 DEVICE CONTROL LOGIC

CONNECTED TO 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 PROGRAMS
DZRJGA AND DZRJHA HAVE BEEN RUN SUCCESSFULLY.
2.0

REQUIREMENTS

2.1

EQUIPMENT

PDP-11 COMPUTER WITH CONSOLE TELETYPE, AND A RP04/5/6 DISK
SYSTEM.
THE RP04/5/6 DISK SYSTEM WILL CONSIST_OF AN RH11

CONTROLLER, A DISK CONTROL LOGIC (DCL), A DEC 733 DISK

DRIVE, AND ITS APPROPRIATE DISK PACK.
THE DISK PACK NEED
NOT BE FORMATTED.
USED SECTION OF THE DISK SURFACE SHALL
BE GOOD (HOLE FREE).
THE SURFACE FOR THE FOLLOWING SECTORS
MUST BE GOOD, THAT IS, FREE OF ANY HOLES OR SURFACE
}fi?ELGEJL.G?FEITY BEFORE ANY DATA ERROR CAN BE ATTRIBUTED TO

CYLINDER 00,
CYLINDER 00,
CYLINDER 00,
CYLINDER 01,
CYLINDER 02,
CYLINDER 03,
CYLINDER 04,
CYLINDER 05,
CYLINDER 05.
CYLINDER 06.
CYLINDER 07.
CYLINDER 08.
CYLINDER 09,

TRACK 00,
TRACK 00,
TRACK 18,
TRACK 00,
TRACK 00,
TRACK 00 .
TRACK 00 00,
TRACK 00 00,
TRACK 07 07.
TRACK 00.
TRACK 00.
TRACK 00.
TRACK 18,

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

00
01
21
00
00

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

00
00
04
00
00
00
21

SECTOR 00

CYLINDER 410,TRACK 18, SECTOR 21

2.2

STORAGE
THIS PROGRAM REQUIRES 16K WORDS OF MEMORY

2.3

PREL IMINARY PROGRAMS

AND IT ASSUMES THAT MAINDEC-11-DZRJH-(LATEST
REV)

HAS BEEN RUN WITHOUT ERRORS.

SEQ 0003

JICO, RPO4/5/6 FCTNL CTLR1

CZRJIC.PM

27-JuUL~-78 13:05
3.0

MACY11 30A(1052)

27-JuL-78

13:06

PAGE 5

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 DESIRES.
SEE
PNERQAGIT!?!;: 5.1 FOR A DESCRIPTION OF SOF TWARE SWITCH REGISTER
OP!
.
4.1

CONTROL SWITCH SETTINGS

SEE SECTION 5.1
4.2

STARTING ADDRESS

START AT ADDRESS 200-=<FOR NORMAL RUN

START AT ADDRESS 204---TO SELECT NON-DEFAULT ADDRESSES
START AT ADDRESS 210--=FOR UNIT SELECTION
START AT ADDRESS 220--=FOR NO MANUAL INTERVENTION

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 START 200 WITH THE FOLLOWING EXCEPTION:
THE
PROGRAM WILL INTERROGATE THE OPERATOR FOR A NON-STANDARD
C.S.R AND VECTOR ADDRESS BEFORE STARTING.
ONCE THE
QUESTIONS HAVE BEEN CORRECTLY ANSWERED, AND IT IS ALSO

NECESSARY TO SELECT A PARTICULAR UNIT FOR TEST (TYPICAL
PROGRAM EXECUTION FROM ADDRESS 210), OR IT IS NECESSARY

TO RUN THE PROGRAM WITHOUT MANUAL INTERVENTION (TYPICAL
PROGRAM EXECUTION FROM ADDRESS 220), THE PROCESSOR MAY
BE HALTED AND RESTARTED FROM THE DESIRED RESTART ADDRESS.

IF ALL UNITS ARE TO BE CHECKED, THE PROCESSOR NEED NOT BE

TOUCHED.

THE PROGRAM WILL AUTOMATICALLY RESTART AT ADDRESS

200 AFTER RECEIVING THE NEW DEVICE PARAMETERS.
210 START

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN.
WITH THIS
STARTING ADDRESS THE CONSOLE TELETYPE WILL ASK FOR THE UNIT
NUMBER TO BE TESTED.
THEN ONLY THAT UNIT WILL BE TESTED
FOR EACH PASS OF THE PROGRAM.

220 START

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS STARTING
ADDRESS THE PROGRAM WILL NOT RUN THOSE TESTS THAT NEED

SEQ 0004

CZRJICO, RPO4/S/6 FCTNL CTLR1
CZRJIC.PN

27-JuL-78 13:05

MACY11 30A(1052)

27-JuL-78

13:06

PAGE 6

MANUAL INTERVENTION.
THIS IS RECOMMENDED ONLY FOR
DEBUGGING WHERE THE ERROR IS NOT IN A TEST THAT REQUIRES MANUAL
INTERVENTION
4.3

PROGRAM AND/OR OPERATOR ACTION
1.

LOAD THE PROGRAM INTO MEMORY.

SET STARTING ADDRESS ON THE SWITCH REGISTER

PRESS "LOAD ADDRESS''.

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

WORST CASE IS ALL SWITCHES DOWN.

PRESS "'START'.

FOR THE FIRST PASS EACH TEST WILL BE EXECUTED ONCE
ON THE DRIVES PRESENT OR DRIVE SELECTED BEFORE ‘END
PASS'' 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 BEIDNG RUN ON A SWITCHLES PROCESSOR (I. E.
AN 11/34) IT WILL DETERMINE THAT A HARWARE SWITCH REGISTER IS

NOT PRESENT, AND WILL USE ‘‘SOF TWARE'' SWITCH REGISTER.
THE
SETTINGS OF THE SWITCHES ARE CONTROLLED THROUGH A KEYBOARD
ROUTINE WHICH IS CALED BY TYPING A 'COBNTROL G'.
THE PROGRAM
WILL RECOGNIZE A °CONTROL G' AT ANY TIME EXCEPT WHEN IT IS AR

A HIGHER PRIORITY PROCESSING AN RP04/5/6 INTERRUPT.
THE
‘'SOF TWARE'' SWITCH VALUE S ARE ENTERED AS AN OCTAL NUMBER
IN RESPONSE TO PROMPTING FROM THE SWITCH ENTRY ROUTINE:
"SWR = NNNNNN

NEW ='

EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH
REGISTER IMAGE MUST BE ENTERED.

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 REGISTER, THE ‘'SOF TWARE''
SWITCH REGISTER MAY ALSO BE USED.
16 SWITCHES IN THE

IF THE PROGRAM FINDS ALL

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

SEQ 0005

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRIIC.PN

27-JuL-78 13:05

MACY11 30A(1052)

27-JuL-78

13:06

PAGE 7

SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 '‘OPERATIONAL
S\EJ‘IQECH 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

ON THE CURRENT TEST BEING EXECUTED.
FOR EXAMPLE IF THIS
SWITCH IS SET WHEN THE PROGRAM IS IN TEST 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
3
THIS SWITCH MUST BE SET AT THE:START OF THE PROGRAM WHEN THE

DISK DRIVES TO BE 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
&EERE:IE‘Y“ EACH TEST FOUR TIMES BUT WILL DO EACH TEST

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

SEQ 0006

czl
czl

CZRJICO, RPO4/5/6 FCTNL CTLR1

CZRJIC.PN

27-JuUL-78 13:05

MACY11 30A(1052)

27-JuL-78

13:06

PAGE 8

HOWEVER
AS THE ERROR IS PRESENT AND THIS SWITCH IS SET.
IF THE ERROR IS NOT PRESENT AT ANY TIML THEN IT WILL
CONTINUE NORMALLY WITH THE PROGRAM. EACH TIME THE ERROR

IS ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11
IS ALSO SET. DURING BEGUG, USING A SCOPE, IT IS RECOMMENDED

THAT SWITCH 11

IS ALSO SET.

NOTE: SEE SECTION 8.3

SWITCH & - LOOP ON TEST IN SWR <7:0>
THIS IS A SPECIAL SWITCH.
WHEN SET SWITCHES O THRU 7
HAVE ONE MEANING AND WHEN RESET SWITCHES O THRU 7 HAVE

ANOTHER MEANING.
THIS MEANS THAT ANY SETTING OF SWITCH
0 THRU 7 MUST BE DONE WITH SWITCH 8 IN THE APPROPIATE

POSITION.

WHEN THIS SWITCH IS SET THEN SWITCHES O THRU

7 GIVE THE TEST NUMBER TO BE LOOPED ON.

FOR EXAMPLE

WITH SWITCH 8 SET AND SWITCH 3 SET THE PROGRAM WILL LOOP
ON TEST 10.
HOWEVER THIS SETTING MUST BE DONE AT THE

BEGINNING OF THE PROGRAM THEN ALL THE TESTS FROM 1 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 THEN AFTER SEEING THE PRINTOUT FOR 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

SEQ 0007

CZF
CzF

CZRJICO, RPO4/S5/6 FCTNL CTLR1

CZRJIC.PN

27-JuL-78 13:05

MACY11 30A(1052)

NAME INDICATES.

27-JuL-78

13:06

SEQ 0008

PAGE 9

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

NOT SET AND THIS SWITCH IS SET THEN THE PROGRAM WILL DO
AS THE NAME INDICATES.
THAT IS ON FINDING AN ERROR INSTEAD

OF ONLY GIVING THE ERROR MESSAGE AND RELEVANT REGISTERS
AS WILL BE DONE IF SWITCH 11 IS NOT SET BUT WILL ALSO

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

5.2

SUB-ROUTINE ABSTRACTS

SEE SECTION 9 "'SUBROUTINES''.
6.0

ERRORS

ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER

PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE.

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

REGISTERS OR GOOD/RECEIVED DATA.

IF THE ERROR OCCURRED IN A

SUBROUTINE, THE ADDRESS OF THE SUBROUTINE CALL IS ALSO
GIVEN.
REFER TO THE PROGRAM LISTING AT THE STATED
ADDRESS TO DETERMINE THE CAUSE OF THE ERROR.

6.1

IN THE EVENT THAT THE DISK DRIVE BECOMES UNAVAILABLE TO THE
CONTROLLER, POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS
CANNOT BE CLEARED PRIOR TO THE START OF A TEST SEQUENCE -

THIS INFORMATION WILL BE COMMUNICATED TO THE OPERATIOR.
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 OPEN TO 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 INITIATED
FOR THE

TEST IN QUESTION.

GO BACK AND RERUN DZRPS, AS IT IS QUITE POSSIBLE

THAT A HARD FAILURE HAS OCCURRED
HARDWARE REGISTERS.

IT IS ALSO POSSIBLE TO CONTINUE FROM THE

IN ONE OF

THE

"HALT' POINT, BUT

THIS IS NOT RECOMMENDED AS ALL FOLLOWISNG TESTS WILL EXHIBIT
THE SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS.

CZF
CZF

CZRJICO, RPO4/S5/6 FCTNL CTLR1
CZRJIC.PN

27=JUL-78 13:05
7.0

MACY11 30A(1052)

27-JuL-78

13:06

SEQ 0009

PAGE 10

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

SOF TWARE SWITCH REGISTER FEATURE WHILE ON AN RH70.
THIS IS
BECAUSE THE ROUTINE WHICH GETS ‘'SOF TWARE'' SWITCH SETTINGS IS
NOT OPERABLE WHEN IN CHAIN MODE.

MISCELLANEOUS

EXECUTION TIME

THE FIRST PASS OF THE PROGRAM WILL TAKE APPROXIMATELY 1
MINUTES PROVIDED AN OPERATOR IS PRESENT TO CARRY OUT THE
TYPED INSTRUCTIONS IMMEDIATELY.
SUBSEQUENT PASSES WILL TAKE
30 SECONDS WHETHER AN OPERATOR IS THERE OR NOT.
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 BACK USUALLY BACK TO THE BEGINNING OF THE TEST.
WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT
THE PROGRAM GOES BACK TO CAN BE CHANGED.

THE
1.
2.
3.

RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE:
4T MUST BE WITHIN THE TEST UNDER CONSIDERATION
LOOP ON ERROR SWITCH MUST BE SET
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.

8.4

PROGRAM REVISION HISTORY

THE LOOP SWITCH IS PUT DOWN THEN

CZR
CZR

CZRJICO, RPO4/5/6 FCTNL CTLR1

27-JUL-78 13:05

27-JuL-78

9.0

PROGRAM DESCRIPTION

9.1

LOGIC DIVISION IN HARDWARE MODULES
REGISTER BOARD (RG) =

13:06

PAGE 11

SEQ 0010

CZR

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

REG. SECTOR COUNTER DATA FORMATION
RING COUNTER.

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

SYMBOLS USED
C = CYLINDER

——— i

T = TRACK

S = SECTOR

TT41-W,R,

€0, T18, 521
TT30-w, TT31-W.R
1.

10, 80

c1,

118, s21

70, s$D

TT30-w.R, TT31-W.R., TT53-W.R, TTS4-W.R

TT31-w

TT31-wW.R

TT42-W,R,

TT43-W.R

T YO YN

TT40-R,

QO YO Y

T122-W,R, TT23-R, TT24-W,R, TT25-W,R, TT26~W,R, TT35-W,R, TT37-W, TT50-W, TT51-W,R, TT52-W,R, TT55-W.R

ST YU (P

c0, 10, SO

T YO Y

g— R

W = WRITE
R = READ
TT = TEST NUMBER

c0, 10, S1
T127-W,R, TT37-W,R,

DISK SURFACE USAGE

€2, 118, &1
TT31-wW

9.2

T SO WO S

DUAL PORT (DP) =

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

SEEK LOGIC SEARCH LOGIC HEADER

HANDL ING.

SEEK AND SEARCH (SS) =

L P

SYNC. BYTE DETECT.

€3, 10, SO

CZRJIC.PM

MACY11 30A(1052)

TT31-W.R

€3,

T18, S21

C4,

TO, SO

C4,

T18, S21

¢S5,

10, SO

€5,

17, S4

CZR

TT31-wW.R

TT31-w

SEQ 0011

p o

-3

PAGE 12

13:06

27-JuL-78 13:05

27-JuL-78

TT33-w.R, TT34-W.R

¢S5, T18, S21
TT31-w

6, 10, SO
TT31-W.R

TT31-w

€9,

T0, SO

TT31-w

9, 118, S21

TT31-W, TT32-R

€10, 10, SO
TT31-W.R

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

THE FOLLOWING SECTION DESCRIBES EACH TEST AND SUBROUTINES
IN DETAIL AND CAN BE USED AS AN INDEX TO THE LISTING.
THE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING
gHERE THAT ITEM WILL BE FOUND.

T YO YT

c8, 118, S21

T T ST ST O Y

10, SO

TT31-W.R

c8,

T YO YT ST YO YU

c7, T18, S18
TT31-W

WP W

£7, 10, SO
TT31-W.R

6, 118, s21
TT31-w

p———————

TT31-W.R

- PP P

TT31-u

CZRJIC.PN

MACY11 30A(1052)

al
~N

CZRJICO, RPO4/5/6 FCTNL CTLR1

CZRJIC.PM

27-JuL-78 13:05

MACY11 30A(1052)

27-JuL-78

13:06

PAGE 13

609

;*DRIVE MUST BE LOCKED ON PORT A OR PORT B

;*INTERNAL PROGRAM MACROS BEGIN HERE

.'tttttttlt'tt.tt't'it!it.ttt'tt'ittt

* kW

;**NOTE :
:®
:®
*

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

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

SEQ 0012

CZR
CZR

—D—‘—A—A—l—l—l-‘d—l—.-fl—l—l-‘-‘-‘—‘—d—ld—l—l—l—l—l—l—b—l—b—‘d—l—l—l—ld—‘-d—l-d—ld—.-‘—d—fld—d—‘.—l—b—‘—l-‘—‘.

CZRJICO, RPO4/5/6 FCTNL CTLR1T

CZRJIC.PN
628

27-JuL-78 13:05

MACY11 30A(1052)

27-JuUL-78

13:06

OPERATIONAL SWITCH SETTINGS

PAGE 14

SEQ 0013

CZR

_1_1_A_A_A_I—I—A_A—D_A_L_t—a_l_l_l—l—l—‘d-d_l..A—D—I—b—l—l-‘—A-j—i—l—b—i-fi-fl-fl—l—l-‘—i-‘d—l-‘_‘-—l-—‘-fl-‘_fl—‘—l—l

CZRJICO, RPO4/5/6 FCTNL CTLR1

m——-—————-————“
—

CZRJICO, RPO4/S5/6 FCTNL CTLR1T
CZRIIC.P1T
27-JUL-78 13:05

629

—

MACY11 30A(1052) 27-JuL-78
BASIC DEFINITIONS

13:06

PAGE 15

SEQ 0014

€2
¢

CZRJICO, RPO4/5/6 FCTNL CTLR]
CZRIIC.PN
27-JuL~-78 13:05

630
631
632
633
634

000174
000176

000000
000000

000046
000052

041072
002000

000200

000210
000220

000200
000137
000137
000137
000220
000137

MACY11 30A(1052)

27-JuL-78

TRAP CATCHER

DISPREG:
SWREG:

.WORD
.WORD
$ENDAD

.WORD

005012
043612
004776
004762

13:06

; ;SOF TWARE DISPLAY REGISTER
; ;SOF TWARE SWITCH REGISTER

2000

:21)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP
;:2)SET LOC.52 TO 2000

STARTING ADDRESSES

RA:

.=200
JMP

a#BEGIN

JMP

PAGE 16

0
0

.SBTTL

ADDMOD: JMP

AMBASECH

aMBEGINZ

;NORMAL START
;START FOR ADDRESS=MODIFICATION
;JUMP TO SELECT DRIVE START

aMBEGINT

;JUMP TO NO OPERATOR TESTS START

;*STARTING ADDRESS 200 FOR NORMAL STARTS

;*THIS WILL TEST ALL DRIVES ON THE SYSTEM A SINGLE DRIVE AT A TIME

;*STARTING ADDRESS 204 FOR NON-DEFAULT ADDRESS PARAMETERS

;*AUTO RESTART AT ADDRESS 200 AFTER LOADING PARAMETERS

;*STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE

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

SEQ 0015

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JUL-78 13:05
658

001110

MACY11 30A(1052)

27-JUL-78

13:06

PAGE 17

MEMORY MANAGEMENT DEF INITIONS

.=1110

SEG 0016

663
664
665
666
667
668
669
670

001106
001110
001112
001114
001115
001116
001120
001122

000000
000000
000000
000
001
000000
000000
000000

$PASS:
$TSTNM:
SERFLG:
$ICNT:
$LPADR:
SLPERR:
$ERTTL:
$ITEMB:
SERMAX:
$SERRPC:

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

$8DDAT:

.WORD

$GDADR:
$8DADR:
$GDDAT:

$AUTOB:
$INTAG:

SWR:

DISPLAY:

000000
17760;

706 001224 000012

000377

.WORD

177560
177562
177564
177566

$REGO:
$REG1:
$REG2:
$REG3:
$REG4:
$REGS5:
$TMPO:
$TMP1:
$TMP2:
$TMP3:

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

$TMP4:

001216

.WORD
.WORD
.BYTE
.BYTE
.WORD

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

$NULL:
$FILLS:
$FILLC:
$TPFLG:
$REGAD:

703

.WORD
.WORD
.WORD

.BYTE
.BYTE
.BYTE
.BYTE
.WORD

.WORD

$TMPS:
.WORD
$TIMES: 0
$ESCAPE:0
$BELL:
.ASCIZ
$QUES:
.ASCII
$CRLF:
$LF:

L.ASCII
LASCIZ

000000

COMMON TAGS

eoleloleleleololeleleblelelelelelele
s

001100

27-JuL-78

DDISP

E
13:06

2
PAGE 18
; :CONTAINS PASS COUNT
:;CONTAINS THE TEST NUMBER
;;CONTAINS ERROR FLAG
:;CONTAINS SUBTEST ITERATION COUNT
: ;CONTAINS SCOPE LOOP ADDRESS
;:CONTAINS SCOPE RETURN FOR ERRORS
; ;CONTAINS TOTAL ERRORS DETECTED
; ;CONTAINS ITEM CONTROL BYTE
; ;CONTAINS MAX. ERRORS PER TEST
; sCONTAINS PC OF LAST ERROR INSTRUCTION
2 sCONTAINS ADDRESS OF °'GOOD' DATA
; :CONTAINS ADDRESS OF °'BAD' DATA
; sCONTAINS 'GOOD* DATA
;;CONTAINS 'BAD' DATA
; sRESERVED--NOT TO BE USED

;;AUTOMATIC MODE INDICATOR
; 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

:2CONTAINS NULL CHARACTER FOR FILLS
;;CONTAINS # OF FILLER CHARACTERS REQUIRED
;2 INSERT FILL CHARS. AFTER A "LINE FEED''
;2 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;;CONTAINS THE ADDRESS FROM
:;CONTAINS ((SREGAD)+0)
; :CONTAINS ((SREGAD)+2)
:2CONTAINS ((SREGAD)+4)
;;CONTAINS ((SREGAD)+6)
::CONTAINS ((SREGAD)+10)
;;CONTAINS ((SREGAD)+12)
;JUSER DEF INED
;JUSER DEF INED
; 2USER DEF INED
:JUSER DEF INED
;JUSER DEF INED
:;USER DEF INED
::MAX. NUMBER OF ITERATIONS
:;ESCAPE ON ERROR ADDRESS
<207><377><377> ::CODE FOR BELL
P4
;2QUESTION MARK
<15>
: :CARRIAGE RETURN
<12>
;:LINE FEED
n

659
660

MACY11 30A(1052)

lelelelolelololeloleleolole
el
le)

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JUL-78 13:05

SEQ 0017

czl
czl

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05

MACY11 30A(1052)

27-JuL-78

ERROR POINTER TABLE

13:06

PAGE 19

SEQ 0018

707

708

709

710
711

712
713
714
715

716
717
718
719

720
721

722

723
724
725
726
727
728
729
730
731
732
733
734
735
736
737

738

739

740
741
742
743
744
745
746
747
748
749

001226

051120

001230

067160

TEMI

EM1
DH1

:RP0O4 DID NOT

INTERRUPT

:g?ITED ON BIT DID NOT OCCUR
JWAT PC

;BIT WAITED
;REG ADDRESS
JREG CONTENTS
001232
001234

071506
072014

001236

051147

001240

067160

DT
1
DF

s*ITEM2

EM2

DH1

;RHCS1 CONTENTS

:$ERRPC ,WAITPC ,WAITBT ,WwAITRE , $BDDAT,(CS1

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

s INTERRUPT ENABLE BIT DOWN BUT
:g?ITED ON BIT DID NOT OCCUR
;WAT PC

;BIT WAITED
;REG ADDRESS
JREG CONTENTS

001242
001244

071506
072014

001246

051236

001250

067160

DT1
DF1

;*]TEM3

EM3
DH1

sRHCS1

CONTENTS

;$ERRPC ,WAITPC ,WAITBT ,WAITRE ,$8DDAT,(CS1

:0,0,0,0.0,0

;RPO4 DID NOT INTERRUPT WHEN
:géITED ON BIT DID SET
;WAT PC

;BIT WAITED
;REG ADDRESS

EM4

;WAITED ON BIT DID SET BUT

001256

051317

001260

067337

DH4

001262
001264

071526
072023

DT4
DF4

001266

051430

;*x]TEMS

CONTENTS

s$ERRPC ,WAITPC ,WAITBT ,WAITRE ,$8DDAT,CS1
:0,0,0,0,0,0

071506
072014

;*ITEMS

;RHCS1

DT1
DF1

001252
001254

EM5

;TIME IS IN ERROR
;TIME IS GIVEN IN 10 MICRO SEC.
;s (DECIMAL)
:PC

JWAT PC
;BIT WAITED
;REG ADDRESS

;TIME IN 10 MSEC

;$SERRPC ,WAITPC ,WAITBT ,WAITRE ,$BDDAT ,WAITIM

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

;RHAS DOES NOT CLEAR BY

;MOVING IN ALL ONES

czl
czl

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05
763
764
765

001270

767

001272
001274

766

768
769
770
771
772

773
774
775
776
777
778
779

780
781
782
783

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

DH5

067500

13:06

SEQ 0019

PAGE 20
;PC

;REG. ADDR.

.GOOD DATA
JRECEIVED DATA
:gEgRgcéREGADR,SGDDAT,SBDDAT

071546
072032
:*ITEM6

EM6

001276

051502

001300

067617

DH6

001302
001304

071562
072037

DT6

001306

051570

001310

DF6

;*x]TEM7

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

;REG ADDR
JRECEIVED DATA

;$ERRPC ,REGADR, $8DDAT

EM7

sSPECIFIED REGISTER NONEXISTANT

067716

DH7

001312
001314

071574
072043

DT7

;PC
;ADDR.

001316

051640

001320

067756

001322
001324

071604
072046

001326

051707

001330

067756

001332
001334

071604
072046

001336

052014

DF7

J*ITEM10

EM1
DH10

;SO ABORT PROGRAM
OF

REG.

;$ERRPC,TEMP1
;0,0

;STOPED DRIVE HAS MOL BIT
;IN RHDST =1

;PC
sTEST NO
sFAILING REG ADDR

sCONTENTS OF RHCS1
;CONTENTS OF RH(CS2
;CONTENTS OF RHDS1
;CONTENTS OF RHER1
s $ERRPC ,$TSTNM,$BDADR,(S1,(S2,DS1,ER1

;*ITEMI

EM11
DH10

DT10
DF10

;*]TEM12

EM12

;WITH SPINDLE POWERED DOWN

sRHCS2 SHOULD HAVE ONLY

."L)'&UT NUMBER AND IR HIGH
;TEST NO
;FAILING REG.

ADR

;CONTENTS OF RHCS1
;CONTENTS OF RHCS?
;CONTENTS OF RHDS1
;CONTENTS OF RHER1
;SERRPC ,$TSTNM, $BDADR,(S1,(S2,DS1,ER1

JAFTER A POWER UP WITH

sNO PACK ACKNOWLEDGE COMMAND

;RHDS1 SHOULD HAVE MOL=1, vv=0

czi
czi

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

H
13:06

PAGE 21

SEQ 0020

CZR
CZR

JANY INIT RHCS1 SHOULD
JHAVE GO=0, DVA=1, RDY=1

;1E=0, DISREGARD

001350

DH10

067756

:Q%L OTHER BITS

;TEST NO

sFAILING REGISTER ADDR.

;CONTENTS OF RHCS1
;CONTENTS OF RHCSZ2
;CONTENTS OF RHDS1
001352
001354

071604
072046

001356

052244

001360

;CONTENTS OF RHER1

s$ERRPC ,$TSTNM,$BDADR,(S1,(S2,DS1,ER1
:0,0,0,0,0,0,0

;*ITEM14

EM14

;AFTER POWER UP RHCC

067500

DH5

:PC

001362
001364

071546
072032

DTS
DF5

001366

052317

001370

067500

001372
001374

071546
072032

001376

052460

001400

067500

;*«]TEM15

EM15

;SHOULD BE=0

;REG. ADDR.
;GOOD DATA
JRECEIVED DATA

;PACK ACKNOWLEDGE CAUSED
;AN ERROR

;GOOD DATA IS BEFORE COMMAND
:gECEIVED DATA IS AFTER COMMAND
;REG. ADDR.
;GOOD DATA
JRECEIVED DATA

:3E8R8C6REGADR.SGDDAT.SBDDAT
J*]TEM16

EM16

DH5

- P

:3E8R8C6REGADR.SGDDAT.SBDDAT

" " ——" ———

;AFTER A POWER UP WITHOUT

EM13

;*ITEM13

052122

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

SO ST ST YU SN SN ST ST YR ONNT ST YU QO ST W

001346

DT10
DF10

sFAILING REGISTER ADDR.
;CONTENTS OF RHCS1
;CONTENTS OF RHCS2
;CONTETNS OF RHDS1
;CONTENTS OF RHER1
:$ERRPC,$TSTNM,$BDADR,(CS1,CS2,DS1,ER1

071604
072046

JTEST NO

;GIVING A NO-OP COMMAND CAUSED
;AN ERROR
;GOOD DATA GIVES REGISTER
;CONTENTS BEFORE COMMAND
;RECEIVED DATA GIVES REGISTER
;g?NTENTS AFTER COMMAND

001342
001344

:PC

DH10

067756

001340

)

CZRJICO, RPO4/5/6 FCTNL CTLRI1
CZRIIC.PN
27-JUL-78 13:05

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.P1
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891

892

27-JUL-78 13:05

919
35(1)

922
923
924
925
926
927

928
929
930

27-JuL-78

ERROR POINTER TABLE

001402
001404

071546
072032

001406

052606

001410

067500

DHS

001412

071546

DTS

893 001414
894
895
89 001416
897
898
899
900 001420
901
902
903
904 001422
905 001424
906
907
908
909 001426
910
911 001430
912 001432
g}% 001434
915
916
917
918

MACY11 30A(1052)

DTS
DFS
s*]TEM17

072032

052743

EM17

DFS
:*1TEM20

EM20

067500

DHS

071546
072032

DTS
DFS

053107

*]1TEM 21
EM21

067500
071546
072032

DHS
DTS
DFS

001436

053162

*]TEM 22
EM2?2

001440

067500

DHS

001442

001444

071546
072032

001446

053235

001450
001452
001454

067500
071546
072032

13:06

PAGE 22
:REG. ADDR.
:GOOD DATA
:RECEIVED DATA
s $ERRPC ,REGADR, $GDDAT , $BDDAT
;0,0,0,0

:DRIVE CLEAR COMMAND
:CAUSED AN ERROR
:GOOD DATA GIVES WHAT SHOULD
:BE THERE
:RECEIVED DATA GIVES WHAT WAS
:THERE AFTER COMMAND

:PC
:REG. ADDR.
:GOOD DATA
:RECEIVED DATA

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

:READ-IN “OMMAND GAVE AN ERROR
:GOOD DATA HAS WHAT SHOULD BE THERE
:RECEIVED DATA HAS WHAT WAS
:AFTER COMMAND
:PC
:REG. ADDR.
;GOOD DATA
:RECEIVED DATA
:SERRPC ,REGADR, $GDDAT , $BDDAT
:0,0,0,0
:RHCS1 CONTENTS DURING
:COMMAND WAS IN ERROR

:RHDS1 CONTENTS DURING
:COMM ANS WAS IN ERROR

DTS

SEQ 0021

CZR
CZR

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

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

DF5

;*]TEM 23
EM23

DHS
DTS
DFS

:UNLOAD COMMAND GAVE AN ERROR
:GOOD DATA GIVES WHAT SHOULD
:BE THERE
:RECEIVED DATA GIVES WHAT WAS
:THERE AFTER COMMAND

1
1
!

964
965
966
967
968
969
970
971
972
973
974

975
976
977
978

979
980
981
982
ggz
985
986

070135

;*ITEM 26

[alal

EM26

;500 OFFSETS CAUSED AN ERROR

;CONT. OF RHDS1
;CONT. OF RHER1
:CONT. OF RHERZ2
:CONT. OF RHER3
;$ERRPC,(CS1,CS2,DS1,ERT
,ER2 ,ER3
:0,0,0,0,0,0,0

DHZ26

;PC
;CONT. OF RHCS1
;CONT. OF RHCS2

001502
001504

071624
072055

DT26
DF26

001506

054015

J*]TEM 27
EM27

001510
001512
007514

067500
071546
072032

001516

054233

J*ITEM 30
EM30

001520

070334

DH30

001522
001524

071646
072065

DT30
DF 30

;WORD NO
;GOOD DATA
;BAD DATA
:$ERRPC ,ERWORD , $GDDAT , $BDDAT
:0,0,0,0

001526

054313

J*ITEM 31
EM31

:READ HEADER AND DATA CAUSED

DH5
DTS
DFS

053725

e G

001476

DH5
DTS
DFS

067500
071546
072032

GSIT R QT W

001470

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

Ut WIS WS WIS ISy W

001472
001474

:RETURN TO CENTER LINE COMMAND

SND WY G G

;*]TEM 25
EM2S

GRS S

053543

D WIS G W

001466

CUNRT QI

DHS
DTS
DFS

067500
071546
072032

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

N O G

001460
001462
001464

001500

EM24

957
958
959
960
961
gg%

053400

:WRITE HEADER AND DATA

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

SN G

954
955
956

;*1TEM 24

001456

953

SEQ 0022

952

PAGE 23

941
942
943
944
945
946
947
948
949
gg?

13:06

939

940

27-JUuL-78

ERROR POINTER TABLE

PPy

933
934
935
936
937
938

MACY11 30A(1052)

:WRITE HEADER AND DATA
;CHANGED WRITE FROM BUFFER
;PC

PR
S
S

931
932

27=-JUL-78 13:05

CZRJIC.PMN

bol
o]

CZRJICO, RPO4/5/6 FCTNL CTLR1T

elo RNTe NV, P VIV E J o)

b
b
b

D and

b aub
b

b wb
b and
b

i ab b

)

elelele] elelelelele]

b ceid

1009

001540
001542
001544

070334
071646
072065

DH30
DT30
DF30

001546

054637

;*ITEM 33
EM33

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

:?EAbchTA CAUSED IMPROPER REGISTER
s

CHAN

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

DH5
DTS

001552

001554

067500
071546
072032

001556
001560
001562
001564

055041
070334
071646
072065

s*ITEM 34
EM34
DH30
DT30
DF30

001566

055065

J*ITEM 35
EM35

001570
001572
001574

067500
071546
072032

DH5
DTS
DF5

001576

055303

001600
001602
001604

070334
071646
072065

DH30
DT30
DF 30

001606

055360

J*1TEM 37
EM37

001550

; COMMAND

DF5

;*ITEM 36

EM36

;*]TEM 32
EM32

CZR

054530

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

SEQ 0023

001536

PAGE 24

;READ DATA INCORRECT

;WRITE DATA COMMAND CAUSED

; IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD BE THERE
;RECEIVED DATA GIVES REGISTER
;CONTENTS AFTER WRITE DATA

JWRITE DATA COMMAND CHANGED
JWRITE FROM BUFFER

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

D e

067500
071546
072032

DH5
DT5
DF5

001530
001532
001534

K
13:06

e e e e e

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

CZRJIICO, RPO4/5/6 FCTNL CTLRI
CZRIIC.PM
27-JuL-78 13:05

s*ITEM 41
EM41

B
£

;WAS THERE AFTER WRITES

067500
071546
072032

001636

056265

001640
001642
001644

067500
071546

001646

056543

J*ITEM 43
EM43

001650
001652
001654

070334
071646
072065

DH30
DT30
DF 30

072032

J*ITEM 42

EM42

DH5
DTS
DF5

J*ITEM 44

P
P
ST U S

DH5
DT5
DF5

001630
001632
001634

;WERE LOCKED OUT BY
;BUTTON

;LOCKING OUT WRITES BY WRITE
;LOCK BUTTON CAUSED IMPROPER
JREGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT

———————— - J—

056004

001626

DH5
DTS
DF5

;sWRITE CHECK CAUSED AN
s IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT WAS
;THERE AFTER COMMAND

067500
071546
072032

;WAS THERE AFTER SEEK COMMAND

JATTEMPTING TO WRITE WITH WRITE

;LOCKED OUT CAUSED IMPROPER
sREGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT WAS
;THERE AFTER ATTEMPT

JWRITING WITH WRITE LOCKED
;OUT CHANGED DISK DATA
;GOOD DATA GIVES WHAT WAS
sON DISK BEFORE WRITE WITH
JWRITE LOUK WAS ATTEMPTED
JRECEIVED DATA GIVES WHAT WAS
sJREAD BACK AFTER WRITE WITH
JWRITE LOCK WAS ATTEMPTED

T SO U

001620
001622
001624

CZR
CZR

T SO S

J*ITEM 40
EM4O

SEQ 0024

055575

DH5
DTS
DF5

13:06 PAGE 25

067500
071546
072032

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

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05

001676

057673

J*ITEM 46
EM46

001700
001702
001704

070334
071646
072065

DH30
DT30
DF 30

001706

060006

s*I1TEM 47
EM4G7

067500
071546
072032

;GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT WAS
;THERE AFTCR TRANSFER

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

s TRANSFERRING FROM NONEXISTANT
;SECTOR CAUSED IMPROPER
JREGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE

D D i cd d b

JRECEIVED DATA GIVES WHAT WAS
;THERE AFTER ATTEMPTED

067500
071546
072032

;*ITEM 50
EMSO

b e

060270

DH5
DT5
DF5

001720
001722
001724

070334
071646
072065

DH30
DT30
DF 30

B
R
P
R

CYLINDER

e
-—b
e

DH5
DTS
DF5

001670
001672
001674

i i cd

Vi I
R
e NS IR T

:410, SECTOR 21, TRACK 18

e PR e p—-e

D d D D

; TRANSFERRING ON LAST BLOCK IE.

;s CAUSED IMPROPER REGISTER
s CHANGE

D D b
D D
D D D D e
D D e wd D
D cnd D D cd

g——

s*ITEM 45
EM&S

001666

057377

DH5
DTS
DF5

———

067500
071546
072032

;BUTTON ENABLED WRITES

(P S

001660
001662
001664

b D

sTHERE AFTER WRITE LOCK

i
i
i
-

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

CZR
CZR

EM&4

SEQ 0025

PAGE 26

T T U W

057105

13:06

; TRANSFER

s TRANSFERRING FROM NONEXISTANT

;SECTOR CAUSED DATA ERROR

;GOOD DATA GIVES WHAT
;SHOULD BE IN BUFFER
JRECEIVED DATA GIVES WHAT WAS
sIN BUFFER AFTER TRANSFER

T T SO SO O

001656

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

D i

T T

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRIIC.PM
27-JuL-78 13:05

RPO4/5/6 FCTNL CTLRI]
27-JuL-78 13:05
P1

060507

30A(1052)
27-JuL-78
ERROR POINTER TABLE

;*ITEM 51
EMS1T

070450

DH51

001732
001734

071662
072072

DT51
DF51

001736

060754

s*ITEM 52
EMS2

sGIVING ILLEGAL FUNCTION CAUSED
: IMPROPER REGISTER CHANGE

;ggNTENYS AFTER

ILLEGAL

FUNCTION

sREG. ADDR.
.GOOD DATA
JRECEIVED DATA
s ILLEGAL FUNCTION

:BESRscéRSGADR.SGDDAT.SBDDAT.ILLEGL

001750
001752
001754

070334
071646
072065

DF 30

001756

061317

J*ITEM 54
EM54

—d
e
—d

P, B, S

. S
.

D e

)

P
P

061231

001746

DH30
DT30

;READ HEADER AND DATA AFTER

;A SEARCH CAUSED AN ERROR

;ATTEMPTED OPERATION WITH
s INVALID ADDRESS CAUSED
; IMPROPER REGISTER CHANGE

:GOOD DATA GIVES WHAT SHOULD

001760
001762
001764

067500
071546
072032

001766

061564

DH5
DTS
DF5

J*ITEM 55
EMSS

sBE THERE
JRECEIVED DATA GIVES WHAT WAS
;THERE AFTER OPERATION

sWRITING/READING WITH EXPECTED

sADDRESS OVERFLOW ERROR CAUSED
: IMPROPER REGISTER CHANGE
:GOOD DATA GIVES WHAT SHOULD
;BE THERE

JRECEIVED DATA GIVES WHAT

EMS3

—

J*ITEM 53

DH5
DTS
DF5

sREGISTER CHANGE
:GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT
;WAS THERE AFTER ATTEMPTED
;WRITE DATA

067500
071546
072032

DATA ON NONEXISTANT

;SECTOR CAUSED IMPROPER

001740
001742
001744

;WRITE

D e

R
R

B8R YRR RN 28 B R IR

SEQ 0026

001730

R
Y Y
e T SO Y
T Y
R R i
e R
R

2
PAGE 27

JRECEIVED DATA GIVES REGISTER

B e
P

eT T
eR
e
e S R
e e eR e e
R

N
13:06

:?gggEDATA GIVES WHAT SHOULD BE

S
R

R
i Y
R
e R O
S

TR TR I O
e e I

RAR 2B IIINANANIITEIERR

SO S S
s R

YU Y S
iS

001726

MACY11

—

pol
o]
€ &

s
e

€2
4

)
e
e
) e
)
—

001770
001772
001774
001776

067500
071546
072032
062052

DH5
DTS
DF5

s*ITEM 56

EM56

2
1223

B
13:06

3
PAGE 28

SEQ 0027

;WAS THERE AFTER OPERATION

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

—

e
d

d e

D e

e o

BNNNNNNNNNNN
S o lo aNTo QW Py W N EE

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRIIC.PN
27-JuL-78 13:05

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

002000
002002
002004

070334
071646
072065

DH30
DT30
DF30

002006

062262

;*ITEM 57
EM57

;WORD NOS 261 TO 266 SHOULD
;NOT CHANGE DUE TO READ

;ATTEMPTING DATA COMMAND
;WITH WRONG FORMAT BIT CAUSED
; IMPROPER REGISTER CHANGE

;ggggEDATA GIVES WHAT SHOULD BE

JRECEIVED DATA GIVES WHAT WAS

;THERE AFTER ATTEMPTED DATA

002010
002012

002014

067500
071546
072032

002016

062554

002020

070607

DH5
DTS
DF5
;*ITEM 60
EM60

DH60

002022
002024

071700
072100

DT60
DF60

002026
002030

063165
070744

;*ITEM 61
EM61
DH61

002032
002034

071716
072106

DT61
DF61

; TRANSFER

JATTEMPTING TO MODIFY REGISTER

;DURING AN OPERATION CAUSED

; IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
sRECEIVED DATA GIVES WHAT WAS
;THERE AFTER OPERATION
:gés COMPLETE
;REG. ADDR.

;GOOD DATA
sRECEIVED DATA
;MODF ING REGISTER
:3E8RSC6RSGADR.SGDDAT.SBDDAT.SBDADR

:gEVICE NOT AVAILBLE BEFORE COMMAND WAS TO BE GIVEN

;PC
JTEST NO.

;PC OF JSR
JRHCS1 CONTENTS
$BDADR
;SERRPC ,$TSTNM,PCJSR,
.

’

[aln

0, RPO4/5/6 FCTNL CTLRI]
P11
27-JuUL-78 13:05

MACY11 30A(1052)

27-JuL-78

ERROR POINTER TABLE

;*1TEM 62
EM62
DH62

002036
002040

063246
071037

002042
002044

071730
072112

002046

063327

J*]TEM 63
EM63

002050
002052
002054

067500
071546
072032

DHS
DTS
DFS

002056

063403

DT62

;*ITEM 64

C
13:06

3
PAGE 29

SEQ 0028

:2?051 HAS STATUS BITS STUCK AT ONE
:

;TEST NO.
;PC OF JSR
;RHDS1

CONTENTS

sSERRPC ,$TSTNM,PCJSR,
$BDADR

;RHDS1 CONTENTS DURING

;COMMAND WAS IN ERROR

;RECALIBRATE COMMAND CAUSED
; IMPROPER REGISTER CHANGE.
:?gggEDATA GIVES WHAT SHOULD BE

:RECEIVED DATA GIVES WHAT WAS THERE
002060
002062
002064

071742
072116

002076

063644

) -

002072
002074

D
D

amaaaaaa—-

N=O0O0VONOWNSWN=O

)
)
—
)
— —
)

;* ] TEM66

;g@TERRUPT FAILING
3
;TEST NO

DT65
DF 65

:;CONTENTS OF RHCS1
;CONTENTS OF RHAS
:CONTENTS OF RHDS1
:$ERRPC,TSTNM,CS1,AS,DS1
;0,0,0,0,0

EM66

;HEADER AND DATA COMMAND

)

gngg
H

063622
071132

002066
002070

—

;AFTER COMMAND

;*x]1TEM6S

WWWWWWWWWWWWW

1298

DHS
DTS
DF5S

067500
071546
072032

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

002100

071255

DH66

:WAS BEING WRITTEN ON CYLINDER O
;SECTOR O
:PC

JRHDST
;RHER1
:RHERZ2

;RHER3

;RHCS1
JRHCS2

CZRJIICO, RPO4/5/6 FCTNL CTLR]
CZRJIC.PN
e7-JuL-78 13:05
1323
1324
1325
1326

002102
002104

071756
072123

002106

064036

MACY11 30A(1052)

27-JuUL-78

ERROR POINTER TABLE

;*1TEM67

13:06

SEQ 0029

PAGE 30

DT66
DF 66

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

EM67

;READ HEADER AND DATA ERROR
;IN HEAD SELECTION TEST

;FIRST FOUR WORDS GIVE HEADER

sNEXT WORDS ARE DATA
;GOOD DATA WORDS GIVE
;THE TRACK NUMBER IN

DH30
DT30
DF 30

002110
002112
002114

070334
071646
072065

002116

064326

002120
002122
002124

070334
071646
072065

DH30
DT30
DF30

002126

064534

J*ITEM 71
EM71

;*ITEM70

EM70

AV AV AV LV AV, L)

002130

067500

DH5

002132
002134

071546
072032

DT5
DF5

002136

065277

A
L A AR

b
b
- ad

WW
N

;READ HEADER AND DATA ERROR
;IN DIFFERENCE LINE TEST
;WORD NOS. 1-4 GIVE
sHEADER
;WORD NOS. 5-260 GIVE DATA
JWHICH IS THE CYLINDER
;ADDRESS

;FORCING OPI CAUSED IMPROPER REGISTER
; CHANGE
;GOOD DATA GIVES WHAT SHOULD

;BE THERE
JRECEIVED DATA GIVES WHAT WAS

;*I1TEM 74
EM74

;THERE AFTER 3 INDEX PULSES

;PC

;REG. ADDR.
;GOOD DATA

;JRECEIVED DATA
R,
$GDDAT , $8DDAT
: SERRPC ,REGAD

:0,0.0,0

sWHILE USING UNIBUS B

;READ DATA CAUSED IMPROPER REGISTER

: CHANGE
;GOOD DATA GIVES WHAT SHOULD BE THERE
:?ECEIVED DATA GIVES WHAT WAS THERE AFTER

D cd

il wnd

)

b b

EEREREREE WWWWWWWWWW% Py

W
NVONO
NS WN=0O0 cCoONONVES

1342

;BITS 4,5,6,7.8

002140
002142
002144

067500
071546
072032

002146

065225

002150
002152
002154

070334
071646
072065

DH5
DTS
DF5

;*ITEM 73

EM73
DH30
DT30
DF 30

;WHILE USING UNIBUS B

JREAD DATA INCORRECT

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRIIC.P1T
27-JuL-78 13:05

—I—J—I—.G—I—I—I_I—A_J—I—J—J
R WN=0O0V~NONWN

FEeg g SRy

1379

MACY11 30A(1052) 27-JuUL-78
ERROR POINTER TABLE
J*ITEM 74
EM74

002156

065277

002160
002162
002164

067500
071546
072032

002166

065543

J*ITEM 75
EM7S

002170
002172
002174

070334
071646
072065

DH30
DT30
DF 30

002176

065646

J*ITEM 76
EM76

DH5
DTS

13:06

3
PAGE 31

SEQ 0030

;WHILE USING UNIBUS B
;WRITE DATA COMMAND CAUSED
; IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD BE THERE
sRECEIVED DATA GIVES REGISTER
;CONTENTS AFTER WRITE DATA

DF5

;WHILE USING UNIBUS B

;WRITE DATA COMMAND CHANGED
sWRITE FROM BUFFER

;sWHILE USING UNIBUS B
sWRITE CHECK CAUSED AN

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

002200
002202
002204
002206
002210

067500
071546
072032
066103
071353

DH5
DTS
DF5
J*I1TEM 77
EM77
DH77

; THERE AFTER COMMAND

:gURRENT CYLINDER DOES NOT REFLECT DESIRED 'RHCC’
;PC

;PC OF JSR

;REGISTER ADDRESS

1433
1434

DT77
DF77

002212
002214

071776
072133

002216
002220

066326
067500

002222
002224

071546
072032

002226

066410

;*ITEM 107
EM101

002230

070135

DH26

;*ITEM 100

EM100
DH5

DT5
DF5

.GOOD DATA
;BAD DATA

, $BDDAT
$GDDATADR,
:$ERRPC ,PCJSR,REG
;0,0,0,0,0

;ERROR AFTER ADDRESS PLUG CHANGE
PC

;REGISTER ADDRESS
;GOOD DATA
JRECEIVED DATA
:3E8R8C6REGADR.SGDDAT,SBDDAT

:UNIT DID NOT GO OFFLINE WHEN ADDR
;;%uc WAS REMOVED

“CONT OF RHCS1

*CONT OF RHCS2

CZRJICO, RPO4/5/6 FCTNL CTLRI1
CZRJIC.PN
27-JuUL-78 13:05

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

1436

002232
002234

071624
072055

DT26
DF 26

1441
1442

002236

066472

;*ITEM 102
EM102

1444

002240

070135

DH26

1446
1447
1448
1449
1450
1451

002242
002244

071624
072055

DT26
DF 26

1443

1445

1452
1453
1454
1455
1456
1457
1458
1459

1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472

1473
1474
1475

1476

PAGE 32

;CONT OF RHDS1
;CONT OF RHERZ2

1435

1437
1438
1439
1440

13:06

J*ITEM

103

cM103

002246

066551

002250

070135

DH26

002252
002254

071624
072055

DT26
DF 26

002256

066635

002260

070135

J*]TEM

104

EM104

DH26

;CONT OF RHER3

s$ERRPC,(CS1,(S2.DS1,ER2,ER3
:0,0,0,0,0,0,0
JUNIT DID NOT COME BACK ONLINE WHEN
;égDR PLUG WAS REPLACED

;CONT OF RHCS1
:CONT OF RHCSZ2
;CONT OF RHDS1
:CONT OF RHERZ2
;CONT OF RHER3
:$ERRPC,(CS1,(S2.DS1,ER2,ER3
;0,0,0,0,0,0,0
JREGISTER CONTENTS INCORRECT BEFORE A
:géAGNOSTIC SEEK

;CONT OF RHCS1
sCONT OF RHCS2
sCONT OF RHDS1
;CONT OF RHER2
;CONT OF RHER3
;$ERRPC,CS1,CS2,DS1,ER2,ER3

JREGISTER CONTENTS INCORRECT AFTER A
;géAGNOSTIC SEEK

;CONT OF RHCS1
sCONT OF RHCSZ2

;CONT OF RHDS1
002262
002264

071624

072055

DT26
DF 26

;CONT OF RHERZ2
;CONT OF RHER3

;$ERRPC,(CS1,CS2,DS1,ER2,ER3

SEQ 0031

czl
czl

CZRJICO, RPO4/S/6 FCTNL CTLR1T
CZRIIC.PN

27-JuUL-78 13:05

1477
1478
1479

1480

12%}

MACY11 30A(1052)

27-JUL-78

ERROR POINTER TABLE

13:06

SEQ 0032

PAGE 33

;*RH11 REGISTERS

002266

000254

1483
1484

RPVEC:

254

;RP0O4 VECTOR ADDRESS

1485
1486

;*WORD COUNT REGISTER (RHWC)
s*EACH BIT IS CALLED BY BIT NUMBER

1490
1491

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

}232

;*CONTROL AND STATUS REGISTER 2 (RHCS2)

1487
1488
1489
1492
1493
1494

1497
1498
1499
1500

000001
000002
000004
000010

usS1=
us2=
US4=
BAI=

1
2
&

JUNIT SELECT
JUNIT SELECT
JUNIT SELECT
;BUS ADDRESS

1502
1503
1504
1505
1506
1507
1508
09

000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

CLR=
[R=
CR=
MPL =
MXF =
PGE =
NEM=
NED=
UPE=
WCE=
DLT=

40
100
200
400
1000
2000
4000
10000
20000
40000
100000

;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)
;UNIBUS PARITY ERROR (BIT #13)
;WRITE CHECK ERROR (BIT #14)
;DATA LATE (BIT #15)

il and and endh
il
s
il
il

NOWVMEBWN=O

b and
b
i cd
e

(AR RV AN AV LV AV, AV AV

1501

000020

UNIB=

(BIT #0)
(BIT #1)
(BIT #2)
INCREMENT INHIBIT (BIT #3)

;UNIBUS B DC LO (BIT #4)

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

czl
czi

PAGE 34

;*RP0O4 REGISTERS

;*CONTROL AND STATUS 1 REGISTER.

(#00)

GO=
IE=
RDY=
A16=
Al17=
PSEL=
DVA=
MCPE=

1
100
200
400
1000
2000
4000
20000

;GO (BIT #0)
; INTERRUPT ENABLE (BIT #6)
;READY (BIT #7)
;HIGH ORDER UNIBUS BITS (BIT #8)
sHIGH ORDER UNIBUS BITS (BIT #9)
sPORT SELECT (BIT #10)
;DEVICE AVAILABLE (BIT #11)
;MASSBUSS PARITY ERROR (BIT #13)

SC=

100000

;SPECIAL CONDITION (BIT #15)

TRE=

40000

;TRANSFER ERROR (BIT #14)

;*STATUS REGISTER (RHDS1) (#01)
DFF5=
DFF20=
DIGB=
GRV=
DL64=
DE1=
vv=

DRY=
DPR=

PROG=

LBT=
WRL=
MOL =
PIP=
ERR=
ATA=

1
2
&
10
20
40
100
200
400

1000
2000
4000
10000
20000
40000
100000

;:DRIVE FORWARD 5'‘/SEC.
(BIT #0)
;DRIVE FORWARD 20'/SEC.
(BIT #1)
;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)
JMEDIUM ON-LINE (BIT #12)
;POSITIONING OPERATION IN PROGRESS (BIT #13)
;COMPOSIT ERROR. (BIT #14)
SATTENTION ACTIVE (BIT #15)

;*ERROR REGISTER #01 (RHER1) (#02)

1561
1563
1565

1567

1573

ILF=
ILR=
RMR=
PAR=
FER=
WCF=
ECH=
HCE=
HCRC=
AOE =
IAE=
WLE=
DTE=
OPl=
UNS=
DCK=

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

;ILLEGAL FUNCTION (BIT #0)
;ILLEGAL REGISTER (BIT #1)
JREGISTER MODIFICATION REFUSED (BIT #2)
;PARITY ERROR (BIT #3)
;FORMAT ERROR (BIT #4)
JWRITE CLOCK FAIL (BIT #5)
;ECC HARD ERROR (BIT #6)
JHEADER COMPARE ERROR (BIT #7)
;HEADER CRC ERROR (BIT #8)
;ADDRESS OVERFLOW ERROR (BIT #9)
; INVALID ADDRESS ERROR (BIT #10)
;WRITE LOCK ERROR (BIT #11)
;DRIVE TIMING ERROR (BIT #12)
JOPERATION INCOMPLETE (BIT #13)
;DRIVE UNSAFE (BIT #14)
;DATA CHECK ERROR (BIT 15)

;*MAINTAINABILITY REGISTER (RHMR) (#03)

SEQ 0033

CZF

ERROR POINTER TABLE

13:06

27-JUL-78

A IAIAIAIA IR IAIA AR IAIAIA)Y

MACY11 30A(1052)

ArsAaIRIA

NUE

—

—p———

ViV
g
NN
= —

ONOWVSWN-=0O
V0o

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.P1
27-JuL-78 13:05

1594

1595
1596

;DIAGINOSTIC MODE (BIT #0)
SJMAINTAINABILITY CLOCK (BIT #1)
JMAINTAINABILITY INDEX (BIT #2)
;MAINTAINABILITY SECTOR CLOCK (BIT #3)
JMAINTAINABILITY READ (BIT #4)
JMAINTAINABILITY WRITE (BIT #5)
JMAINTAINABILITY SYNC DETECTED (BIT #9)

;*ATTENTION SUMMARY PSEUDO-REGISTER (RHAS)
000001
000002
000004
000010
000020
000040
000100
000200

ATO=
AT1=
AT2=
AT3=
AT4=

ATS=
AT6=
AT7=

1
2
4
10
20
40
100

200

;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE

C
1
2
3
&
5
6

(#04)
(BIT
(BIT
(BIT
(BIT
(BIT
(BIT
(BIT

#0)
#1)
#2)
#3)
#4)
#5)
#6)

o
~N

AD NOND PORO N NI N N N

1
2
4
10
20
40
1000

CZR

NI NN

DMD=

MCLK=
MINX=
MSTCK=
MRD=
MWR=
DTSY=

SEQ 0034

1584
1585
1586
1587
1588
1589
1590
1591
1592
1593

000001
000002
000004
000010
000020
000040
001000

3
PAGE 35

1574
1575
1576
1577
1578
1579
1580
1581
1582
1583

27-JUL-78 13:05

I
13:06

;DEVICE 7 (BIT #7)

CZRJIC.PN

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

;*DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (#1)
;*EACH BIT IS CALLED BY BIT NUMBER

CZRJICO, RPO4/5/6 FCTNL CTLRI

;*DRIVE TYPE REGISTER (RHDT)

(406)

;*EACH BIT IS CALLED BY BIT NUMBER

;*LOOK-AHEAD REGISTER (RHLA) (#07)
b and and ach wcb
b
b
b

ONOWVNESWN=O

b
o
b
b
b

oco-ooororOrOAMONOM

b ad cd wsd

1609

EXT1=

EXT2=
EXT4=
EXT10=
EXT20=
EXT40=
SC1=
SC2=
SCé=
SC10=
$C20=
TRK1=
TRK2=
TRK4=

TRK10=

TRK20=

2
4
10
20
40
100
200
400
1000
2000
4000

10000
20000
40000
100000

;*ERROR REGISTER #2 (RHER2)
wCU=
CSF=

1
2

SJEXTENSION 1

(BIT #0)

;EXTENSION 2 (BIT #1)
JEXTENSION 3 (BIT #2)
JEXTENSION &4 (BIT #3)
;EXTENSION 5 (BIT #4)
;EXTENSION 6 (BIT #5)
sSECTOR COUNT FIELD O
sSECTOR COUNT FIELD 1
sSECTOR COUNT FIELD 2
sSECTOR COUNT FIELD 3
sSECTOR COUNT FIELD 4
;TRACK FIELD 1

;TRACK
;TRACK
sTRACK
JTRACK

FIELD
FIELD
FIELD
FIELD

2
3
4
5

(BIT

(BIT
(BIT
(BIT
(BIT

(BIT
(BIT
(BIT
(BIT
(BIT
#11)
#12)
#13)
#14)
#15)

#6)
#7)
#8)

#9)

#10)

(#10)
;WRITE CURRENT UNSAFE (BIT #0)
sCURRENT SINK FAILURE (BIT #1)

A LA LA LA CALAIAIA LA IAIA LA LA IALALA LA ITALAIALALRAIA LA LA LA IAIRIA LA IA AR

1597

1598
1599
1600
1601
1602

1666

1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684

1685

ACU=

40
100

200

400
1000

2000

4000
10000
20000
100000

JWRITE SELECT UNSAFE (BIT #2)
;CURRENT SWITCH UNSAFE (BIT #3)
;MOTOR SEQUENCE ERROR (BIT #4)
sTRANSITIONS DETECTOR FAILURE (BIT #5)
;TRANSITIONS UNSAFE (BIT _#6)

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

(BIT #15)

;*OFFSET REGISTER (RHOF) (#11)
OF 25=
OF 50=
0F100=
OF 200=

0F 400=
OF 800=

010000

OFREV=
HCI=
ECI=
FMT22=

10
20

200
2000

4000
10000

;OFFSET 25 MICRO INCHES (BIT #0)

sOFFSET 50 MICRO INCHES (BIT #1)
;OFFSET 100 MICRO INCHES (BIT #2)
;OFFSET 200 MICRO INCHES (BIT #3)
JOFFSET 400 MICRO INCHES (BIT #4)
JOFFSET 800 MICRO INCHES (BIT #5)
;OFFSET NEGATIVE (REVERSE) (BIT #5)
JHEADER COMPARE INHIBIT (BIT #10)
;ERROR CORRECTION CODE INHIBIT (BIT #11)
;FORMAT BIT (BIT #12

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

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

;*SERIAL NUMBER REGISTER (RHSN) (#14)
;*EACH IS CALLED BY BIT NUMBER

;*ERROR REGISTER #03 (RHER3) (#15)
PSU=

=
VUF
UWR=

PRE=
ACL=

DCL=

40
100

SKI=

40000

ACE=

20000

;PACK SPEED UNSAFE

CZR
CZR
AOIAODIRODIAODI RONO RONONONO)ND [a91,%]

vu30=

PLU=

SEQ 0035

AOIADI N

NHS=
IXE=

PAGE 36

(BIT #0)

sVELOCITY UNSAFE (BIT #1)
JANY UNSAFE EXCEPT READ/WRITE (BIT #3)
;DISK PACK ROTATION ERROR (BIT #4)
;AC LOW (BIT #5)
;DC LOW (BIT #6)

sADDRESS CHANGE ERROR (BIT #13)
;SEEK INCOMPLETE (BIT #14)

MHS=

1639

1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665

WSU=
CSU=
MSE=
TDF
=
TUF=
FEN=
WRU=

ORI A

1637
1638

ERROR POINTER TABLE

13:06

AL AR

000094
000010
000020
000040
000100

27-JuL-78

SN —

1630
1631
1632
1633
1634
1635
1636

MACY11 30A(1052)

A LA LA LA LA LA LALA LACALRIALAR LA LCAIA LA IA LA YTAITAIA LA YA AT AYAIRI ARG RO A

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIIC.PM
27-JuL~-78 13:05

CZRJICO, RPO4/5/6 FCTNL CTLR1

CZRJIC.PT
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697

1698
1699
1700
1701
1702

1703
1704
1705
1706

27-JuL-78 13:05

100000

MACY11 30A(1052)

27-JuL-78

ERROR POINTER TABLE

ocyL=

100000

13:06

PAGE 37
;OFF CYLINDER (BIT #15)

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

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

SEQ 0036

(ZR
CZR

MACY11 30A(1052)

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JuUL-78 13:05

27-JUL-78

A3
13:06 PAGE 38

SEQ 0037

CZR
CZR

CONO
NS WO

;*RP04/5/6 DISK 1/0 REGISTER LOCATED IN THE RH11 CONTROLLER

i
i

176722
176702
176704
176710

RHDB :

176722

;DATA BUFFER

RH(CS2:

176710

;CONTROL AND STATUS 2

RHWC :
RHBA :

176702
176704

JWORD COUNT
;BUS ADDRESS

—

:*RP04/5/6 DISK 1/0 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC
176700
176714
176706

-d

—

d i

)

V%VV\IN\IV\JVVV

1709

176740
176732
176734
176742

176716
176724
176712
176726
176730
176744
176746
176736
176720

RHCS1:
RHER1:

176700
176714

;CONTROL AND STATUS 1
;ERROR #1

RHERZ2:
RHOF :
RHCA:
RHER3:
RHAS :

176740
176732
176734
176742
176716

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

RHDST:

RHMR :
RHDS1:

RHDT :

RHSN:
RHEC1:
RHEC2:
RHCC:
RHLA:

176706

;DESIRED SECTOR/TRACK ADDRESS

176724
176712

JMAINTAINABILITY
;DRIVE STATUS

176726

;DRIVE TYPE

176730
176744
176746
176736
176720

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

;«ADDITIONAL /0 REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC
176750
176752

RHBAE:

RHCS3:

176750

;*P-CLOCK (KW11-P)
002344

002350

172540
172542
172544

:BUS ADDRESS EXTENSION REGISTER

176752

PCLCSR: 172540
PCLBUF: 172542
PCLCTR: 172544

:CONTROL AND STATUS REGISTER #3

1/0 REGISTERS
-

;CONTROL AND STATUS REGISTER
sCOUNT SET BUFFER
s COUNTER

(DCL)

AUALIALAL AL AL AR AL AL

.SBTTL

AL AL AL AL AL AL AL AL AL AL AL AL AL N AL AL AL AL A AL N AU AL A A RN A AL N AL NI AN AL AN N AN NI NN AN

MACY11 30A(1052)

27-JuL-78

13:06

PAGE 39

1752

;*THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SNAPSHOTS

1755
1756

;*ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE
;*FOR THE TIME JUST AFTER THE 'ERROR'' ERROR COMMAND

1759
1760
1761

;*THIS ASSUMES THAT A REGISTER SNAPSHOT HAS BEEN TAKEN WHICH IS NOT
;*ALWAYS THE CASE = IF QUESTIONABLE CONTENTS APPEAR IN THE REGISTER
;*PRINTOUTS, CHECK THE INLINE TEST CODE TO SEE IF THE REGISTER SNAPSHOT

};gz

;*ANY TIME THERE IS AN ERROR ALL THESE WILL BE FILLED

};g%

1764

;*REFLECTS THE CURRENT STATE OF THE MACHINE

1765

002352

000000

1767

002356

1766
};gg

1770

002354

002360

DB:

000000

BA:

000000

WwC:

000000

(Se:

0
0

;DATA BUFFER
.

;WORD COUNT

;BUS ADDRESS

:CONTROL AND STATUS 2

1771
1772
1773
1774
1775

002362
002364
002366
002370
002372

000000
000000
000000
000000
000000

CS1:
ER1:
DST:
ERZ:
OF :

0
0
0
0
0

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

1777
1778

002376
00240C

000000
000000

ER3:
AS:

0
0

;ERROR #3
;ATTENTION SUMMARY

1776

1779
1780
1781
1782
1783
1784
1785
1786

1787

002374

002402
002404
002406
002410
002412
002414
002416
002420

000000

000000
000000
000000
000000
000000
000000
000000
000000

CA:

MR:
DS1:
DT:
SN:
ECT:
EC2:
cC:
LA:

0
0
0
0
0
0
0
0
0

;DESIRED CYLINDER ADDRESS
sMAINTAINABILITY
:DRIVE STATUS
:DRIVE TYPE
;SERIAL NUMBER
;ECC POSITION
;ECC PATTERN
s CURRENT CYLINDER ADDRESS
; LOOK~-AHEAD

SEQ 0038

b o

27-JuL-78 13:05

ale)
NN

CZRJICO, RPO4/S5/6 FCTNL CTLR1

CZRJIIC.PN

CZRJICO, RPO4/5/6 FCTNL CTLR?
CZRJIC.PT
27=JuL-78 13:05

30A(1052)

N
13:06

27-JUL-78

3
PAGE 40

580 0039

SERCH:

WRCHEK:

WRCHDT: S

WRIDAT:
WRIFOR:
READAT:
RFFOR:
SEECOM:
OFSETC:
RETCL:
PKACK:
READIN:
ILLEGL:

60
62
70
72
4
14
16
22
20
.WORD

JWRITE HEADER AND DATA (FORMAT)
;READ DATA
;READ HEADER AND DATA
;SEEK COMMAND
;OFFSET COMMAND
JRETURNTO CENTERL INE

;PACK ACKNOWLEDGE
sREAD IN

;sCOMPUTED ILLEGAL FUNCTION

;*DATA BUFFERS FOR READ/WRITE
002470
003534

000422
000422

WRFROM:
REINTO:

.BLKW
.BLKW

274.
274.

;WRITE FROM THIS BUFFER

JREAD INTO THIS BUFFER

SET

TO BE

;NO OPERATION
JUNLOAD (STAND BY)
JRECAL IBRATE
;DRIVE CLEAR
JRELEASE (DUAL=PORT OPERATION)
;SEARCH COMMAND
;WRITE CHECK DATA
;WRITE CHECK HEADER AND DATA
JWRITE DATA

RECALI: 6

DCLEAR:

THEN ''GO'' BIT HAS

RN AN NN

:
:

8
5

S
5

FUNCTIONS FOR RHCS1

NOPERA: 0
UNLOAD: 2
RELEAS:

:
:

;*TABLE OF

FUTABL
:

SEoRs
SRRRR

;*FUNCTION EQUATES

RN NN RN AR AN R RN

b
d

OVONOWVSWN=O

b
d
D
D

d
D
)

—

0o 00 0o 0o 00 0o 0o 0o 0o 0O

D —d

- LR 3 23833323

1789
1790
1791
1792

MACY11

CZRJICO, RPO4/S5/6 FCTNL CTLR1
CIRJIC.P11
27-JUL~78 13:05

MACY11 30A(1052)
27-JUL-78
REGISTER ADDRESSES

1821
1832

1823
004600
004602
004604
004606

000000
000000
000000
000000

}ggz

004610

000000

OFSTVL: O

004612

000024

SAVERE:

004662
004664

000000
000000

FINALA: 0
FINACC: O

REGADR:
ERWORD:
TSTAM:
RPLVEC:

1845
1844

1849

0
0
0
0

SEQ 0040

.BLKW

:SAVE REGISTER ADDRESS HERE
“SAVE ERROR WORD NUMBER HERE
‘TEST NUMBER
*CONTAINS ADDRESS OF LOCATION
“WHERE AN RPO4 INTERRUPT IS TO VECTOR TO
“THIS MUST BE MOVED INTO *RPVEC' TO BE
EFFECTIVE.

JOFFSET VALUE USED IN OFFSET TEST
20.

:BLOCK TO SAVE REGISTERS FOR PRETEST
“HARDWARE REGISTER SNAPSHOTS - THESE
“ARE USUALLY THEN CHANGED TO REFLECT
“EXPECTED CONDITIONS AFTER THE TEST
SAVE LOOK AHEAD REGISTER AT END OF OPERATION
“SAVE CURRENT CYLINDER REGISTER AT END OF OPERATION

+TABLE FOR ATTENTION BITS

}&2

1847
1848

PAGE 41

:*RESERVED CORE LOCATIONS

1835
1826
1857
1838
1899
1830
1831

1835
1836
1837
1838
1839
1840
1841

B 4

13:06

;*ATTENTION TABLE
004666
004671

004674

001
010

100

002
020

200

004
040

ATABLE:

.BYTE

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

3
¢

CZRJICO, RPO4/5/6 FCINL CT LRT
CZRJIC.P1
27-JUL-78 13:05
1851
1852

1%22

MACY11 30A(1052)

27-JuL-78

13:06

PAGE 42

:*FLAGS AND INTERNAL PROGRAM CONTROL WORDS

1855

004676

000010

UNITS:

.BLkw

;THIS IS FILLED WITH =1

1857
1858
1859

004720

000000

NOUNIT:

.WORD

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

1856

004716

000000

UNIT:

L.WORD

000000

NUNIT:

1861

004724

000000

NOPUSH: 0

1863
1864
1865

004726
004730
004732

000000
000000
000000

SELECT: .WORD
UNITSL: .WORD
uBuUSB:
0

1867
1868

004734
004736

000000
000000

ERFLGS: O
FIRST:
O

1871

004740

000000

ATTENT: 0O

:ATTENTION BIT FOR PRESENT UNIT

1874
1875

004744
004746

000000
000000

RPO6:
RPOS:

O
O

:RP06 DEVICE TYPE FLAG LOCATION
:MEMOREX RP04 DEVICE TYPE FLAG

1878

004752

000000

INUNIT: O

;INITIAL UNIT NO. - USED DURING

1881
1882
1883
1884
1885
1886
1887

004754
004756
004760

000000
000000
000000

TMPO:
TMP1:
TMP4:

1862

1866
1293
}g;%

1876
1877
}%8.7?

004742

004750

000000

JUNIT UNDER TEST

004722

1860

.WORD

:ALL ONES INDICATE NONE OF THE OPERATOR

O
O

:ALL ONES INDICATE UNIT TO BE SELECTED
JUNIT NO. SELECTED
;IF ZERO UNIBUS PRESENT
;ERROR FLAG
:IF ZERO WILL TYPE HEADER

;IF ONES WILL NOT TYPE HEADER
:TOTAL ATTENTION BITS

.WORD
.WORD
.WORD

:INTERVENTION TESTS WILL BE PERFORMED

:IF ONES NO UNIBUS B

TOTALAT:0

RH70:

;THAN ONE UNIT

:IF = 1, PROGRAM IS RUNNING ON RWPQ4 SYSTEM
:IF = 0, PROGRAM IS RUNNING ON RJPO4
:CHECKING ALL ADDRESS PLUG ADDRESSES

O
O
O

:TEMP STORAGE
:TEMP STORAGE

SEQ 0041

MACY11 30A(1052)

CZRJICO, RPO4/5/6 FCTNL
CZRIIC.PN
27-JuL~78

.SBTTL
.SBTTL
.SBTTL

1888
1889
1890

27-JUL-78

o P |
P
o P
e
b

bl cnl) i

NOOWVESWN=O

ah
b

00 000000

012737
005037
000412
012737
005037
000404
005037
005037

177777

004724

BEGIN1: MOV

177777
004724

004726

BEGINZ: MOV

004726

004726
004724

CLR
BR

BEGIN:

PAGE 43

*«DJAGNOSTIC CODE**

.SBTTL

004762

13:06

CLR
BR
CLR
CLR

SETUP TESTS
#-1,a#NOPUSH
a#SELECT
START

;JUMP OVER OPERATOR REQUIRED TESTS
;DO NOT SELECT UNIT

2:xg¢USH

;DO NOT JUMP OVER ANY TEST

#-1,a#SELECT

sSELECT UNIT

a#SELECT
a#NOPUSH

;DO NOT SELECT UNIT
;DO NOT JUMP OVER ANY OPERATOR

s INTERVENTION TESTS = NORMAL RUN

START:

000005
012706

#$CMTAG,R6
;2FIRST LOCATION TO BE CLEARED
(R6)+
;3CLEAR MEMORY LOCATION
#SWR,R6 ;;DONE?
.~6
;.LO0P BACK IF NO
#STACK,SP
;:SETUP THE STACK POINTER
#$SCOPE ,a#IOTVEC ;:IO0T 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
;o INITIALIZE THE LOOP ADDRESS FOR SCOPE
#.,SLPERR
;;SETUP THE ERROR LOOP ADDRESS
@#ERRVEC,=(SP)
;;SAVE ERROR VECTOR
#64$ ,Q#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

012737
012737
012737

1918
1919

112737

001115
001106
001110

012737

177777

000004
001140
001142
173726

005224
000176
000174
000004

001140
001142

000000
000200
002266

177776
000036

64%:

MOV

66%
65%
#65$, (SP)

65%:

MOV

#SWREG, SWR

;;POINT TO SOF TWARE SWR

66%:

MOV

(SP)+ ,@#ERRVEC

;;RESTORE ERROR VECTOR

#0,P

;SET PROCESSOR STATUS TO 0

aWRPVEC ,RO

;GET RP VECTOR ADDRESS

#D]1SPREG,DISPLAY

;;BRANCH IF NO TIMEOUT TRAP OCCURRED
; sBRANCH IF NO TIMEOUT
;:SET UP FOR TRAP RETURN

#200 ATRAPVEC+2: TRAP PRIORITY = 4

SEQ 0042

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PM
27-JUL-78 13:05
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975

E
MACY11 30A(1052)
27-JUL-78 13:06
INITIALIZE THE COMMON TAGS

&
PAGE 44

005264
005270

012720
012710

044666
000340

MOV
MoV

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

005274
005300
005304
005306
005310

004737
005737
001001
000402
000137

045666
004736

JSR
TST
BNE
BR
JMP

PC,a#$TKINT

104401

005322

104401

005422

104401

005466

005314
005314
005320
005414
005420
005460
005464
005560
005564
005654
005660

000435

000417

1%:

006110

2%:

005566

005754
005760
006036
006042
012737

177777

005737
001006
023727
001005

000042
001140

004736

TYPE
BR

;:TYPE ASCIZ STRING

SND1:

000176

032777
001403
012737

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

;:GET OVER THE ASCIZ

79%

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

#-1,a4F IRST

sNEXT TIME DO NOT GIVE HEADER

G2
64%

;;ARE WE RUNNING UNDER XXDP/ACT?
s sBRANCH IF YES

65%

; ;BRANCH IF NO

SWR ,#SWREG

104406

000403
112737

sINITIALIZE THE TTY KEYBOARD
;1S THIS FIRST TIME ROUND ?
;DON'T GIVE HEADER IF NOT
JHEADER 1ST TIME THROUGH
;NO HEADER

;s TYPE ASCIZ STRING

TYPE
BR

006044

;PRIORITY = 7

;:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

BR
TYPE
BR

005762

sTHIS IS FOR UNTIMELY INTERRUPTS
sDRIVE INTERRUPT SERVICE ROUTINE

TYPE
BR
TYPE
BR

TYPE

005662

SEQ 0043

65%

;;SOFTWARE SWITCH REG SELECTED?

*“GET SOFT-SWR SETTINGS

000001

001134

64%:

#1,$AUTOB

::SET AUTO-MODE INDICATOR

010000

172764

RH70CK:

#SW12,aSWR

:LOOK TO SEE IF USING RH70

000001

004750

#1,a4RH70

3%:

:1F SwW12
;IF SwW12

0., SKIP NEXT
1, CU IS AN RH70

;*1S THERE A P-CLOCK (KW11=P) ON THE SYSTEM
;*IF 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'
;*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#1$,a#ERRVEC

;SET TIME-OUT VECTOR

JMP

axs

;DO NOT USE CLOCK

NOP

CZRJICO, RPO4/5/6 FCTNL CTLR1

CZRJIC.P11

27-JUL-78 13:05

MACY11 30A(1052)
:

2003
2004
2005

:
3
:

2001
2002

s
:

MOV
MOV

a#PCLCSR

:REFERENCE P-CLOCK STATUS REGISTER

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

#TIME2 ,a#RP4LVEC :RP04/5/6 INTERRUPTS GO TO 'TIME 2'
#-1,34PRITEM

:CLEAR PREVIOUS ITEM NUMBER

006214

TST
BEQ
TYPE

Q#SELECT
TST1
:
,65%

;WAS IT A 200 START
BRANCH IF STARTING FROM 200
;:TYPE ASCIZ STRING

177770

BIC

#177770, (SP)

:ONLY KEEP LAST 3 BITS

TST1

BRANCH IF STARTING FROM 200

012737

041670

2016
2017
2018

006200
006204
006206

005737
001442
104401

004726

2021

006266

042716

006302

001403

012737

TST

MOV

:18:

006172

PAGE 45

006164

58};

#TIME1,9#RP4VEC ;THERE IS A P CLOCK SO
:VECTOR TO TIME1
2%

%889

2005

13:06

GET VALUE FOR SOFTWARE SWITCH REGISTER

2000

2010

27-JUL-78

177777

004606
047274

2%:

MOV

HWAIT.T,a#8TRPAD+20 ;THERE IS NO P=CLOCK

2013

2014
2015

2019
2020
2022
5852

2025
2026

2027

2028

006212
006264

006272
006276

006304

000424
104412

011637
012637

013737

BR
RDOCT

004716
004730

004730

MOV
MOV

004716

BEQ

MOV

64%

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

::GET OVER THE ASCIZ

:SAVE UNIT TO BE TESTED
;SAVE UNIT TO BE TESTED

@FUNITSL,@#UNIT ;SET UNIT NUMBER

SEQ 0044

CZRJICO, RPO4/5/6 FCTNL CTLRT
CZRJIC.PN
27-JUL-78 13:05
2030
2031

2032

2033
2034
2035
2036
gg%g

2039
2040
2041
2042
2043
2044

2045
2046
2047
2048
2049
ggg?

006312

000004

006322
006330
006334

012737
012706
012737

006314

012737

000001

000001
001000
047136

006342

012737

006370

006350
006354
006360
006362
006364
006366

012700
012701
013102
005300
001375
000454

000024
002270

006370
006376
006400
006406
006410
006416

MACY11 30A(1052) 27-JUL-78 13:06 PAGE 46
GET VALUE FOR SOFTWARE SWITCH REGISTER
001212

TST1:

004604

SCOPE

MOV

#1,8$TIMES

2:D0 1 ITERATION

000030
000004

MOV

#2<1,a4TSTNM
;THIS SAVES TEST NUMBER
#STACK, SP
;SET UP STACK POINTER
#REGSA1 ,a#EMTVEC;ERROR VECTOR SO THAT
sNO REGISTERS ARE SAVED
#2% ,QHERRVEC
;SET UP FOR BUS TIMEOUT

MOV
MOV
MOV
DEC
BNE
BR

#24 ,RO
#RHDB,R1
a(R1)+,R2
RO
1%
3%

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

012737
022626
016137
104007
032777
001036

000006
;
177776

000004

020000

172522

2%:

001200

MOV
CMP
MOV
ERROR
BIT
BNE

#ERRVEC+2 ,a#ERRVEC ;RESTORE TRAP CATCHER
(SP)+,(SP)+
;CLEAN STACK
=2(R1) ,$TMP1
;STORE FAILING REG _ADDR
7
JREGISTER NON EXISTANT
#SW13,aSWR
s INHIBIT ERROR PRINTOUT ?
4%
;BRANCH IF YES

2052
5822

006420
006424

104401
000427

006426

TYPE
BR

.65%
64%

;s TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

2055

006504

012746

000204

MoV

#ADDMOD ,-(SP)

;GET READY TO TYPE STARTING ADDRESS

2057

006510

104402

HALT
JMP

a#$EOP

;STOP TO FORCE THE CORRECT RESTART
;GO TO END OF PROGRAM
>

MOV
CLR

#TRP ,a#4
RH70

JINITIALIZE VECTOR
INIT RH INDICATOR ++ C.W

TYPE
BR
BR
TST
TST
TYPE
BR
MoV

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

2056

TYPOC

2058
5823

006512
006514

000C00
000137

041004

2061
2062

006520
006526

012737
005037

006600
004750

2065
2066
2067
2068
2069
2070
2071
2072
2073
Sg;g

006542
006546
006576
006600
006602
006604
006610
006640

104401
000413
000420
005726
005726
104401
000413
012737

2063
2064

006532
006536

006646

005777
005237

012737

4%:

000004

3%:

173602
004750
006550

TST
INC

TRP:

006612
047126

000030

000006

000004

RTN:

MOV

CZl
z
|

MOV
MOV
MOV

1%:

SEQ 0045

aRHBAE
RH70

;OF "'CHANGE OF BASE ADDRESS'' ROUTINE

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

CZRJICO, RPO4/5/6 FCTNL CTLR1

CZRJIC. P11

2076
2077
2078

27-JuL~-78 13:05

006670

000004
012737
012706
012737

006676
006702
006706
006710
006712
006716
006722

013701
01271
105711
001407
011137
005037
010137

006726

104005

006654
006656
006664

000901
001000
000002

002316
177777

001126
001124
004600

MACY11 3??(1052)

001212
004604

151

27-JUL-78

13:06

PAGE 47

SEQ 0046

REFERENCE EACH REGISTER

SCOPE

MOV

MOV
MOV
MOV
MOV
TSTB

BEQ

MOV
CLR
MOV

ERROR

#1,8TIMES
#STACK,
SP
#3-1,a#TSTNM

;:DO 1

@#RHAS ,R1
#-1,aR1
aR1
TST3
:
oR1,a#$BDDAT
a#$GDDAT

;R1 HAS ADDRESS OF RHAS

R1,a#REGADR

ITERATION

;SET STACK POINTER
sTHIS SAVES

TEST NUMBER

;THIS WRITES ALL ONES

;TEST RHAS FOR ALL 0°'S

INTO RHAS

BRANCH IF GOOD

;BAD DATA
. GOOD DATA

JFAILING REG.

(RHAS)

;RHAS DOES NOT CLEAR BY WRITING
JALL ONES INTO IT

CZRJICO, RPO4/S/6 FCTNL CTLR1
CZRJIC.P11

2094
2095
2096

27=JUL-78 13:05

006730
006732

000004
012737

000001

001212

2097 006740 012737 000003 004604
2098
g?gg

006746
006750

000005
004737

2101
2102
2103

006754
006762
006764

032777
001026
104401

2104
2105
2106
2107
2108

2109
2110
2111
2112
5}}2

2115

2116
2117
2118

2119
S}S?

2122
2123
2124

g}gg

2127

006770
007040
007044
007050
007052

006772

002302
177777

007074

111137

004742

007100
007104

105037
105711

004743

007106
007110

001402
000137

007114
007122
007124

032777
001402
000137

020000

007130

PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT

TST3:

SCOPE
MOV

4%:

1$:

2%:

010020

007130
007134
007176
007202
007264
007270
007352
007356

104401
000420
104401
000430
104401
000430
104401
000437

007136

g}gg

007456

000137

041004

3$:

007204
007272

007360

2139
2140

2141
2142
2143
2144

2145

007466

012700
012703

007476

005300

007502

012703

2146 007472 012723
2147

2148

2149

PC,a#STKINT

SSTART WITH AN INIT
“INITIALIZE TTY KEYBOARD

BIT
BNE
TYPE

#SW13,aSWR
48
,65%

:INHIBIT ERROR TYPEOUT?
:BRANCH IF YES
::TYPE ASCIZ STRING

;
3
.

MOV

A¥RHAS ,R1

:R1 HAS ADDR. OF RHAS

B8R

#1,$TIMES

#4=1,34TSTNM

648

MOV
CLR

MRHCS2 ,R2
aR2

MOV
MOV
INC
DEC
BNE

A¥RHER1,R4
#-1,aR4
aR2
RO
1%

007500

001374

000010
004676

177777

004676

XE2:
2% :

3$:

:THIS SAVES TEST NUMBER

::GET OVER THE ASCIZ

*R2 HAS ADDR. OF RH(CS2
:CLEAR RHCS2

:
p:

#8. RO

: COUNT

:R4 HAS ADDR. OF RHER1
:MOVE ERRORS INTO RHER1
= INCREMENT UNIT NO.
*COUNT DOWN DRIVE COUNTER
:DO NEXT UNIT IF 8 NOT DONE

:
‘
H
:
;

MOVB

aR1,a4TOTALAT

;SAVE TOTAL ATTENTION

;

CLRB
ISTB

AHTOTALAT+1
@R1

SUSED IN DRIVE CLEAR TEST
:CLEAR UPPER BYTE
STEST *RHAS' FOR ANY DRIVES PRESENT

*NONE RESPONDING = TYPE THE MESSAGE
©SOME THERE - GO FILL "UNITS'® TABLE

.
‘

BIT
BEQ
JMP

#SW13,aSWR
3$
SELTST

:INHIBIT ERROR TYPE OUT?
:*NO DRIVES'' MESSAGE IF NOT
“CHECK FOR SELECTED UNIT START AND LOAD

TYPE
BR
TYPE
BR
TYPE
BR
TYPE
BR

,67%
66%
,69%
68%
718
70%
,73%
72%

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ
::TYPE ASCIZ STRING
“:GET OVER THE ASCIZ
::TYPE ASCIZ STRING
::GET OVER THE ASCIZ
::TYPE ASCIZ STRING
©:GET OVER THE ASCIZ

JMP

ANSEOP

160 QUT=====meimmmme

2%
XE2

SUNITS'' TABLE WITH SELECTED ONE IF SO

;*SET UP UNITS TABLE
007462
007462

CZF

:
;

BEQ
JMP
172016

lczs

;:DO 1 ITERATION

MOV

007462

2128
2129
2130
2131
2132
2133
2134
g}gg

SEQ 0047

P
p
;

RESET
JSR

172156

000423
013701 002316
013702 002276
005012
012700 000010
013704
012714
005212
005300
001373

007056
007062
007066
007070
007072

045666
020000

MACY11 30A(1052) 27-JuL=78 13:06 PAGE 48

MOV
MOV

#8. RO
#UNITS,R3

: COUNTER
;POINTER

DEC

: COUNT

MOV

#UNITS,R3

:POINTER

MOV
BNE

#-1,(R3)+
3$

“PRESET BLOCK TO ALL CNES
*BRANCH IF 8 NOT DONE

—mm e >

;
‘
‘

007506
007510
007514
007520
007524
007530

005005
005037
012700
011137
006037
103120

010577
022777
001503
022777
001477

2160
2161
2162

2163
2164

2165

2166
2167
2168
2169
2170
217
2172
2173
2174

004720
000010
001176

001176
172540

A ¥

024020

172560

020020

172550

022777
001473
022777
001467

024021

172540

020021

172530

022777
001463
022777
001457

024022

172520

020022

172510

CLR
CLR
MOV
MOV

RS
AMNOUN:T
#8. .RO
aR1,a#$TMPO

SINITIALIZE UNIT NO. TO O
;NO. OF UNITS PRESENT
s COUNTER
; TEMPORARY STORAGE
.

ROR

a#$TMPO

sCHECK NEXT UNIT IF ONE NOT IN BIT O

MOV
CMP
8EQ
CMP
BEQ

R5,aRHCS2
#24020,aRHDT
6%
#20020,aRHDT
6%

;INSERT UNIT NUMBER INTO RHCSZ UA BITS
;1S THIS A DUAL PORT RPO4 ?
sTYPE THE UNIT NO. IF YES
;1S THIS A SINGLE PORT RPO4 ?
;TYPE UNIT NO. IF YES

(MP
CMP

#24021,3RHDT
6%
#20021 ,aRHDT

;DUAL PORT RPOS ?
sTYPE UNIT NO. IF SO
;SINGLE PORT RPOS ?

CMP
BEQ
CMP
BEQ

#24022 ,aRHDT
6%
#20022,aRHDT
6%

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

BCC

BEQ

;SET CARRY IF ONE IN

;TYPE UNIT NO.

O BIT

IF SO

J*NO...IT'S NOT AN RP0O4/RP05/RP06 DEVICE SO TYPE
;*0UT THE DEVICE TYPE

2175
2176
2177
2178
2179

104401

000410
010546
104405
104401
0004 06

2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192

017746
104402
104401

000422
000407
010523

104401
010546
104405

2193
2194
2195
2196
2197
2198

005237

TYPE

007624

?OXDS
Y

TYPE

007656
172426

BR
?0;

007706

TYPE

YPOC

6%:

5%:

001252

010020
010024

013737
013737
005337

004676
004720
004722

005737
001403

004726

004716
004722

SELTST:

RS5,-(SP)

;GET READY TO TYPE UNIT NUMBER

64%

;:GET OVER THE ASCIZ

,67%

;:TYPE ASCIZ STRING

,69%

;3TYPE ASCIZ STRING

66%
aRHDT,-(SP)

::GET OVER THE ASCIZ
;GET READY TO TYPE RHDT

68%

::GET OVER THE ASCIZ
:NO RPO4/RPOS5/RP06 FOUND SO TEST NEXT UNIT

MOV

RS, (R3)+

;LOAD TABLE POSITION AND INCR IT

MOV

R5,=(SP)

;PUT DRIVE NO. ON STACK

INC

@#NOUNI T

sINCR THE TOTAL NO. OF UNITS

DEC

INC

BNE

RS
RO
4%

MOV
MOV
DEC

@FUNITS ,@#UNIT
;SET UNIT NO. TO FIRST ONE FOUND OR 0
D#NOUNIT ,@#NUNIT;SAVE NO. OF UNITS
@ANUNI T
sIF NUNIT = O THEN ONLY ONE UNIT

TST

a#SELECT

TYPE

TYPDS

004720

;sTYPE ASCIZ STRING

BR
001223

,65%

BEQ

.SCRLF

:TYPE DRIVE NO.

;'RHCS2' UNIT ADDRESS
;DRIVE COUNTER DOWN ONE
sTEST AND DO NEXT UNIT IF 8 NOT DONE

;1F NUNIT > O THEN MORE THAN ONE UNIT

TST4

;STARTING ADDRESS 200

SKIP NEXT [F STARTING FROM 200

CZF

SEQ 0048

(@)

27-JUL-78 13:06 PAGE 49
TEST FOR DRIVES PRESENT USING RHAS AND RH(SZ

LacAacAatALAIAIALTAAIAIAITAIAIAIAIAIRAIAIAIA (AIA A IAIAIAIAIAIAY

2150
2151
2152
2153
2154
2155
2156
2157
2158
2159

MACYTT 3??(1052)

A La

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JUL-78 13:05

o
~

A lALATAlAsALTALALTALIATALTALTALATALTALAIAVAIA
LA LA LA LAIALTAIAIAIAIAIAIAIANY
im
i MAMim
imim cAmsAlAsA LA
LS
B A

QNUNITSL ,@#UNIT ;CHANGE UNIT NUMBER TO SELECTED ONE

MOV

im ie

004716

004730

CZF

013737

SEQ 0049

010026

2206

MACY11 30A(1052) 27=JUL-78 13:06 PAGE 50
TEST FOR DRIVES PRESENT USING RHAS AND RH(CSZ2
T3

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05

2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222

010034
010036
010044
010052
010056
010064
010070

000004
012737
012737
012706
012737
004737
005037

010074
010100
010102
010106
010112

005737
001107
012700
122710

000041
000011

010114

005737

004726

010120

001006

001102

000001
010776
001000
000004
041456
004740

L &
27-JUL-78 13:06 PAGE 51
MACY11 30A(1052)
TEST FOR DRIVES PRESENT USING RHAS AND RH(SZ2
T3

001212
001106

TST4:

#1,8TIMES
#1$,SLPADR
#STACK,SP
#6 ,QNTSTNM
PC,a#CLDISK

004604

QNATTENT

a#UNIT
9%
#41,R0

004716

#11,(RO)

a#SELECT
BNE

12%

;:D0 1 ITERATION
;;SET SCOPE LOOP ADDRESS
JRESET STACK

;SAVE TEST NUMBER

JSET R1=-RHCS1, R2-RH(CSZ2
;CLEAR

;1S "UNIT 0'' NEXT IN THE UNITS TABLE ?
s1F NOT TEST THIS UNIT
;IF SO, CHECK THE LOAD MEDIA LOCATION
JWAS IT AN RP04/5/6 ?
;NO - GO AHEAD WITH TESTING UNIT #0
;WAS UNIT #0 SELECTED ?
sJ(IE. WAS IT A 210 START ?)
;IF SO, CHANGE PACKS

;*INCREMENT THE UNITS TABLE TO NEXT DRIVE (IF ANY)
;*& DECREMENT THE 'NOUNITS'' PRESENT (TO BE TESTED)
;LOAD UNITS TABLE POINTER
sSELECT THE NEXT UNIT IN THE TABLE
; (DOUBLE INCREMENT THE POINTER, RO)
;1S THERE ANOTHER TABLE ENTRY PRESENT ?

010122
010126

012700
005720

004676

MOV
TST

#UNITS,RO

010130
010134

022710
001065

177777

(MP
BNE

#-1,(R0O)
11%

104401

010144

TYPE

104401

010242

,65%
649
,67%
66%

;:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

;CONTINUE, USING SCRATCH PACK ON UNIT #0

010136
010136
010142
010234
010240
010304
010306

0004 34
000421
000000
000404

12%:

TYPE

BR
HALT
BR

+
(RO)

;IF SO, USE THE NEXT DRIVE & DEC 'NOUNITS'
sIF NOT, MUST USE DRIVE #0 & CHANGE PACK

;2TYPE ASCIZ STRING

::GET OVER THE ASCIZ

010310
010314

011037
005337

004716
004720

11%:

MOV
DEC

(RO) ,Q#UNIT
TS
A#NOUNI

;SET UP TO BE THE UNIT UNDER TEST
;DECREMENT BECAUSE UNIT #0 WON'T BE TESTED

010320

013700

004716

9%:

MOV

RO
a#UNIT

;RO CONTAINS UNIT UNDER TEST

010324
010330

010334
010342
010344
010352
010354
010356
010364

005037
010077
022777
001405
022777
001401
000404
012737
000416

004744
171742
024022

171762

a#RPO6
RO,@RH(S2

020022

171752

;CLEAR RPO6 DEVICE TYPE FLAG
sSET UP UNIT ADDRESSING
;1S IT A DUAL PORT RPO6 ?
;YES...SET THE FLAG
;1S IT A SINGLE PORT RPO6 ?
JYES...SET FLAG

010366

005037

004746

177777

004744

#24022 ,aRHDT
2%
#20022,aRHDT

2%
3%

;DON'T SET FLAG = CHECK FOR RPO4

’%:

#-1,34RP06

sSET THE FLAG
sDON'T CHECK FOR RPO4, IT WAS RPO6

3s:

A#RPOS

;CLEAR MEMOREX RPO4 DEVICE FLAG

SEQ 0050
AIaAIAYAIAIAIRIAIRIAIAIAIN)

(ZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JuL-78 13:05

010422

022777
001405
022777
001401
000403
012737

116037
104401

000414
013746
010474
010500
010522
010526
010530
010534
010556
010562

104405
104401

000410
017746
104402
104401

000410
017746
104402

024021

171724

020021

171714

177777

004746

004666
010436

004740

004716

010502
171600

010536
171542

7%:
8%:

TYPE

#24021 ,aRHDT
7%
#20021 ,aRHDT
7%

;1S IT A DUAL PORT MEMOREX RP0O4 ?
JYES..SET THE FLAG FOR ADDR PLUG TESTS
;1S IT A SINGLE PORT MEMOREX RPO4 ?
;YES..SET THE FLAG FOR ADDR PLUG TESTS

MOV

#-1,a4RPO5

;SET THE FLAG

MOvVB
TYPE

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

CMP
BEQ
CMP
BEQ
BR

MOV
TYPDS
TYPE

MOV
TYPOC
TYPE
MOV
TYPOC

718

;DON'T SET FLAG = NOT MEMOREX DRIVE
;ASSUME THE NEXT UNIT IS AN RPO4

;TYPE
DRIVE NO.
;s TYPE ASCIZ STRING

70%
@RHSN, = (SP)

;:GET OVER THE ASCIZ
:;SAVE @RHSN FOR TYPEOUT

.73%
72%
aRHDT ,=(SP)

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;sSAVE aRHDT FOR TYPEOUT

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

;;G0 TYPE--OCTAL ASCII(ALL DIGITS)

SEQ 0051

PAGE 52

pol
o)

13:06

SERIAL NUMBER AND DRIVE

A A LA LA LA LA LA LA A LA LA LA LA LA LA LA LA IAIAIAIAIAIAIAIAIAIRIAIAIAIAIAIAIAIAIAIRAIAIAIAI
AN AN AL PPN NP PN N PN N

010372
010400
010402
010410
010412
010414

27-JUL-78

TYPE

—

2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286

MACY11 30A(1052)

[alal

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRIIC.PN
27-JuL-78 13:05

2287
2288
2289
2290
2291
2292
2293
2294
2295

2297
2298
2299
2300
2301
2302

TYPE

022777
001425
022777
001421

024020

171532

020020

171522

010604
010612
010614
010622

022777
001453
022777
001447

024021

171512

020021

171502

010624
010632
010634
010642

022777

024022

171472

020022

171462

010644

001424
022777
001420
000454

(MP
BEQ
(MP
BEQ

&
PAGE 53

SERIAL NUMBER AND DRIVE

;TYPE OUT

010564
010572
010574
010602

N
13:06

THE DRIVE

z%kO?O,aRHDT
#20020,aRHDT
4%

(MP
BEQ
(MP
BEQ

gi4021.3RHDI

(MP
BEQ
CMP
BEQ
BR

g§4022.3RHD¥

#20021 ,aRHDT

#20022,aRHDT
5%
%

TYPE

SEQ 0052

TYPE

IN ASCII

;DUAL PORT RPO4 ?
sTYPE ASCII MSG OUT
;SINGLE PORT RPO4 ?
;TYPE

THE MESSAGE

;DUAL PORT RPQOS5 ?

: TYPE

THE MESSAGE

:TYPE

THE MESSAGE

sSINGLE PORT RPOS ?
;DUAL PORT RPO6 ?

:TYPE

THE MESSAGE

: TYPE

THE MESSAGE

;SINGLE PORT RPO6 ?

;DRIVE IS NOT AN RPO4/RP05/RP06
;DON'T TYPE ASCII MESSAGE OUT
;=SHOULD NEVER HAPPEN AT THIS POINT
JUNLESS DRIVE GOT SICK WHILE TESTING
;WAS

010646
010646
010652
010702
010704
010704
010710
010740
010742
010742
010746

010776
011002

011006

011014

104401

010654

104401

010712

104401

010750

000413
000435

000413
000416
000413

005777
005777
017737
017737

A ¥

5%:

6%:

1%:
002410
002406

TST
TST
MOV
MoV

IN PROGRESS

.75%
743
%

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
< SKIP NEXT MESSAGE

7%
6%
1%

;s TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;SKIP NEXT MESSAGE

.79%
78%

;:TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

aRHSN
aRHDT
@RHSN,a#SN
aRHDT ,a#DT

;READ SERIAL NO. AND DRIVE TYPE
;THESE

TWO ARE

TO HELP SCOPE LOOPS

;SAVE TO CHECK IF DRIVE CLEAR CLEARS ANY BITS
;SAVE TO CHECK IF DRIVE CLEAR CLEARS ANY BITS

bol
o)

27-JUL-78

‘ale)

30A(1052)

MACY11

AORALADALRLAL
AL AN AL AL PL AL
N PO NU N

——

(ZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05

CZRJICO, RPO4L/S/6 FCTNL CTLR1
CZRIIC.PN

27-JuUL~-78 13:05

MACY11 30A(1052)
T4

27-JUL-78

13:06

PAGE 54

TYPE SERIAL NUMBER AND DRIVE TYPE

2330

2331
2332
2333

2334

011022

2339

011044

2335
2336
2337
2338
2340
2341

2342
2343
2344
2345

2346
2347
2348

011024
011032
011036
011042

000004

012737
004737
032713
001151
104401

011052

104401

011120

011050

000420

011116
011170
011174
011260

000424
104401
000431
032713

011112

011264
011266
011272

000005
041456
010000

001775
104401
000435

004604

TST5:

011274

#6=1,a4TSTNM
PC,a#CLDISK
#MOL ,aR3
1ST6
H

;THIS SAVES TEST NUMBER
;GIVE INITIALIZE
;CHECK MOL IN RHDS1
BRANCH IF MOL HIGH

648

;:GET OVER THE ASCIZ

BR
TYPE
BR
BIT

66$
,69%
68%
#MOL ,aR3

TYPE
TYPE

011176
010000

SCOPE

MOV
JSR
BIT
BNE

1$:

BEQ
TYPE
BR

658
,67%

1%
718
708

;:TYPE ASCIZ STRING

s TYPE ASCIZ STRING

;:GET OVER THE ASCIZ
;:TYPE ASCIZ STRING
:;GET OVER THE ASCIZ
sCHECK MOL IN RHDS1

;BRANCH IF MOL IS HIGH
::TYPE ASCIZ STRING
;;GET OVER THE ASCIZ

SEQ 0053

012737

N —'—‘8 o

TST6:

27-JUL-78

P o

o S
P

ababead

cbabal

OO0

abab

OO0

wbad
-l

011442
011446

013700
012720
012710

SCOPE
MOV
MOV

#7<1,HTSTNM
#STACK , SP

;THIS SAVES TEST NUMBER
*RESET STACK

002266
011460
000340

MOV
MoV
MOV

SMRPVEC ,RO
#RPTRPT.(RO)+
#340, (RO)

:GET RP VECTOR ADDRESS
:THIS IS FOR TIMELY INTERRUPTS
*RP04 INTERRUPT SERVICE ROUTINE

#200,PS

“SET PROCESSOR PRIORITY @ 4 (DISK @ 5)

JSR

000200
000300

177776

013737

042154
001200

001200

MOV
MOV

1%:

000040

011466
011470
011472

012712

PAGE 55

000006
001000
041456

012737
01271

022626
022711
001403
104065

13:06

CHECK MOL TO BE HIGH

wbab

011370
s

000004

wobab

011366

MACY11 3??(1052)

004200

000040

RPTRP1:

PC,a#CLDISK

#RDY ! 1E,aR1

*SET R1-RHCS1, R2-RHCS2

*PRIORITY = 7

“RDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT

MOV
DEC
BNE

aN#TIMCNT ,a#$TMP1 ; COUNTER

ERROR
MOV
BR

65
#40,3R2

NSTMPY
1%

SWAIT FOR INTERRUPT

*BRANCH IF NOT ZERO

:BEFORE THIS IS ZERO INTERRUPT SHOULD OCCUR
*INTERRUPT DID NOT OCCUR
*CLEAR CONTROLLER VIA €S2 CLR BIT

1sT7

BRANCH TO NEXT TEST

(SP)+,(SP)+

sRESTORE STACK

CMP
cMP
BEQ
ERROR

#DVA!RDY ,aR1
1817
:
65

;1E _SHOULD BE LOW AS RUPT OCCURRED
CONTINUE IF GOOD
s INTERRUPT OCCURED BUT

MOV

#40,3R2

;CLEAR CONTROLLER VIA CS2 CLR BIT

;1E FAILED TO RESET

SEQ 0054

alal

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PM
27-JuL~-78 13:05

2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404

2405
2406
2407

011476

000004

011500
011506
011512

012737
012706
004737

000007

011516
011522
011526

013700
012720
012710

002266
011566
000340

27-JUL=78

D
13:06

PROGRAM INTERRUPT

TST17:

SCOPE
MOV
MOV

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

;THIS SAVES TEST NUMBER
JRESET STACK

MOV
MOV
MOV

a#RPVEC RO
#RPTRP2,(RO)+
#340, (RO)

;GET RP VECTOR ADDRESS
;THIS IS FOR UNTIMELY INTERRUPTS
sRPO4 INTERRUPT SERVICE ROUTINE
;SET PROCESSOR PRIORITY @ 5
sRDY, IE IN RHSC1 WHOULD CAUSE INTERRUPT

JSR

041456

5
PAGE 56

PC,a#CLDISK

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

;PRIORITY = 7

011532
011540

012737
01271

000240
000300

177776

MOV
MoV

#240,PS
#RDY ! 1E,aR1

011544
011552
011556

013737
005337
001375

042154
001200

001200

MOV
DEC

A#TIMCNT ,a#$TMP1; COUNTER

011560
011564

012712
000404

000040

011566
011570

022626
104065

011572

012712

1%:

BNE

MOV
BR

RPTRP2: CMP
ERROR

000040

MOV

assSTMP1
1%

sWAIT FOR INTERRUPT

;BRANCH IF NOT ZERO

:g%{gf THIS 1S ZERO INTERRUPT WHOULD

#40,3R2
TST10

;CLEAR THE CONTROLLER VIA (S2 CLR BIT
NO INTERRUPT SO CONTINUE

(SP)+,(SP)+

;RESTORE STACK

#40,3R2

s INTERRUPT OCCURRED WITH PROCESSOR

;PROCESSOR STATUS SAME AS DISK

;CLEAR THE CONTROLLER VIA (S2 CLR BIT

SEQ 0055

(alal

MACY11 30A(1052)

CZRJICO, RPO4/5/6 FCTNL
CZRJIC.PN
27-JuUL-78

2409 011576
2410
2611
2412
2613
2414
2415
2416
2617
2418

000004
012706
012737
004737
012737

001000
000010
041456
000000

MACY11 30A(1052)
110

T1ST10:

004604
177776

004724

001100

001122

011760
011764
011770

013746
052716
022¢12

004716
000100

011772
011774
012000

001403
010237
104011

104010

012002

3%:

4%:

J\O&Ngl\NOJ\O

WWMNON)
= - -

) e
—d e

F oW oN

b
ab cd wd
b
b
b
b cud
b

oo
NON

eolelelelelelelelels)

TST
BNE

a#SPASS
1%

TYPE

,65%

649

A#UNIT ,=(SP)

)

::GET OVER THE ASCIZ
JGET UNIT UNDER TEST

BIT
BEQ
MOV
ERROR

#MOL , 3R3
3%
R3,a#$BDADR
10

MOV
BIS
CMP

a#UNIT,-(SP)
#IR, (SP)
(SP)+,aR2

sMOL IN RHDS1 SHOULD BE = 0
;BRANCH IF MOL=0
sFAILING REGISTER ADDRESS~RHDS1
;ON SPINPLE POWERED DOWN
;MOL SHOULD BE 0
sUNIT NUMBER

BEQ
MOV
ERROR

43
R2,a#$BDADR
1

JSR
TYPE

PC,a#CLDISK
,69%

68%

A#UNIT,=-(SP)
71%

708

BIT
BEQ
BIT
BEQ
BIT
BEQ
BIT
BEQ
MOV
ERROR

#MOL ,aR3
5%
#DPR,aR3
5%
#DRY,aR3
5%
#VV,aR3
6%
R3,a#$BDADR
12

HALT

5%:

;sTYPE ASCIZ STRING
;:GET OVER THE ASCIZ

TYPDS

000100

2%
TST1

;FIRST PASS ?
;SKIP THIS TEST IF NOT
;CONTINUE WITH THIS TEST
JUMP TO NEXT TEST
;:TYPE ASCIZ STRING

LE7%

TYPE

000200

60%

MOV

000400

010000

001122

w62

HALT

012046

104012

TST

;1S THIS A 220 START ?
;SKIP THIS TEST IF SO
:MONITOR (ACT 11) RETURN ADDRESS ?
;SKIP THIS TEST

TYPE

004716

012106

a#NOPUSH

TYPDS

001122

041456
012014

TST

MOV

010000

010337

JRESET STACK
;SAVE TEST NUMBER
;SET R1-RHCS1, R2-RH(CS2
;SET PROCESSER STATUS TO 0

011714

SEQ 0056

#STACK,SP
#10,a#TSTANM
PC,a#CLDISK
#0,PS

BR
JMP

004716

PAGE 57

SCOPE
MOV
MOV
JSR
MOV

BNE

012356
011662

011756

13:06
PACK ACKNOWLEDGE

BNE

000042

27=JUL-78

s INCLUDE IR
sONLY UNIT NO. AND IR SHOULD BE
sHIGH IN RH(CS2

;BRANCH IF RHCS2 GOOD
sFAILING REGISTER ADDRESS=RHCSZ
;WITH SPINDLE POWERED DOWN
:STEL UNIT NO. AND IR SHOULD BE

;SET R1-RHCS1, R2-RH(CS2
::TYPE ASCIZ STRING

;.GET OVER THE ASCIZ
;GET UNIT UNDER TEST

;:TYPE ASCIZ STRING
;;GET OVER THE ASCIZ

;MOL IN RHDS1 SHOULD BE
JBRANCH IF MOL = 0
;:DPR IN RHDS1 SHOULD BE
;BRANCH IF DPR = 0
1
;DRY IN RHDS1 SHOULD BE
;BRANCH IF DRY =0
;VV IN RHDS1 SHOULD BE = 0
;BRANCH IF vv = 0 (GOOD)
sFAILING REGISTER ADDRESS = RHDS1
;

;WITH SPINDLE POWERED UP

;RHDS1 SHOULD HAVE Vv = 0, MOL = 1

(aTm]

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05

2465

2466

2467

2468
2469

2470
2471
24,72
2473
2474
24,75
2476
2477
2478
2479

2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492

MACY11 30A(1052)

2495
2496
2497
2498
2499
2500
2501
2502

2503
2504
2505
2506
2507
2508
2509

13:06

110

PACK ACKNOWLEDGE

6%:

MOV

aR1,RO

PAGE 58
;GET RHCS1 CONTENTS

012146
012150

011100
042700

160076

012154

022700

004200

#DVA'!RDY ,RO

012160
012162
012166

001403
010137

001122

BEQ
MOV
ERROR

7%
R1,a#$BDADR

JAFTER A POWER UP WITHOUT ANY

012170
012174
012176
012204
012210
012216

005777

170140

TST

aRHCC

013737
005037
017737

002334

sTEST RHCC, IT SHOULD = 0
sBRANCH IF RHCC = 0

012220
012220
012224
012230
012234
012236

104013

001411

104014

004737
004737
104401
000000
013777

001124
170120

7%:

004600
001126

10%:

041456
041514
066720
002460

170034

BIC

#SC!TRE !MCPE ! 76, R0 ;CLEAR SC,TRE ,MCPE AND
;ALL FUNCTION BITS

:RHCS1 SHOULD HAVE

;G0 = 0, DVA = 1, RDY = 1

;BRANCH IF RHCS1 IS GOOD
;FAILING REGISTER RHCS1

sINIT RHCS1 SHOULD HAVE
;60 =0, DVA =1, RDY =1, IE = 0
;DISREGARD ALL OTHER BITS

BEQ
MOV
CLR
MOV
ERROR

108
a#RHCC ,a#REGADR
a#$GDDAT
aRHCC,a#$BDDAT
14

JSR
JSR

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

;SET R1-RHCS1, R2-RH(CS2
;CHECK THAT DVA,_RDY,MOL,DPR,DRY = 1
g?ggOT CONTINUE TESTS IF THEY AREN'T

MOV

MPKACK ,aRHCS1T

:GET READY FOR PKACK

TYPE
HALT

sFAILING REGISTER RHCC
sRHCC SHOULD BE = 0
;BAD DATA
;AFTER POWER UP RHCC

;SHOULD BE 0

;*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE

2493

249%

27=JUL-78

012244

012250
012252
012254

004037
002272

041624

JSR

RHWC

RO,a#SAVER

SAVERE
18.

004612
000022

012256

013777

004606

012264
012270
012274

013746
052716
012677

002460
000001
170000

170002

MOV

A¥RPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

a#PKACK ,=(SP)
#GO, (SP)
(SP)+ ,aRHCS1T

000001
000100

;GET READY TO SET GO
;GO WITH

sWAIT FOR RHDS1 REGISTER
:WAIT FOR VV BIT IN RHDS1 REGISTER
sALLOW 10 MICRO SECONDS

000100
000001
000001

004037
002322
000001

;GET READY TO MOVE COMMAND

;WAIT FOR VvV BIT TO SET

104413

012312
012316
012320
012322
012324

JRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE

;NUMBER OF REGISTERS

002322
012310

;SAVE REGISTERS

*VV MUST SET BETWEEN

042336

JSR

RO,a#CHREG

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

;*NOW COMPARE REGISTERS SO THAT NO REGISTERS
;*CHANGED EXCEPT VV IN RHDS1 AND IE IN RHCS1

SEQ 0057

(alel

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.P1
27=-JuL~78 13:05

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRIIC.PM
27-JuL~-78 13:05

012326
012332
012334
012336
012340
012342

004037
004612
002354
000022

012344
012346

104015

MACY11 3??(()1052)

042444

27-JUL-78

G
13:06

PACK ACKNOWLEDGE

JSR
SAVERE

5
PAGE 59

RO,a#COMREG

Wl
18.

012344

128
11%:

000207

ERROR

RTS

;GOOD DATA SAVED IN 'SAVERE'
sTEST DATA STARTING FROM ‘RHW(C'

:18. REGISTERS TO BE COMPARED
sRETURN TO 118 ON ERROR
;RETURN TO 128 ON NO ERROR

118

012350

;COMPARE SAVED REGISTERS WITH

;GIVING A PACK ACKNOWLEDGE
s CAUSED AN ERROR
sPACK ACKNOWLEDGE SHOULD

sSET VV IN RHDS1
s INTERRUPT SHOULD MAKE

;IE = 0

;NO OTHER REGISTERS SHOULD
; CHANGE
;GCOD DATA GIVES
;CONTENTS OF REGISTER BEFORE
;PACK ACKNOWLEDGE
;RECEIVED DATA GIVES
;CONTENTS OF REGISTER
;AFTER PACK ACKNOWLEDGE

012350

012737

177777

047274

12%:

MOV

#-1,a4PRITEM

;CLEAR PREVIOUS ITEM NUMBER

SEQ 0058

—

-==

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN

2545
25646
2547
2548

27-JuL-78 13:05

MACY11 30A(1052)

012356

012416

13:06

T10

PACK ACKNOWLEDGE

TST11:

SCOPE

PAGE 60

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

012360
012362
012366
012372
012400
012404
012410
012414

27-JUL-78

RESET

045666

000000
013777

001000
000011
041456
041514
066720

002460

004604

JSR

PC,a#STKINT

MOV
MOV
JSR
JSR

#STACK,SP

TYPE
HALT
MOV

167654

JINITILIZE TK
sJRESET STACK

#11,a4TSTNM
PC,a#CLDISK
PC,a#CHECK

;SAVE TEST NUMBER
;SET R1-RHCS1, R2-RH(S2
;CHECK THAT DVA,RDY,MOL ,DPR,DRY = 1

SPKACK,@RHCS1

:GET READY FOR PKACK

LCPHALT

:g?ggOT CONTINUE TESTS IF THEY AREN'T

;*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE
012424
012430
012432
012434

004037
002272
004612
000022

041624

012436

013777

004606

012444
012450
012454
012460
012462

013746
052716
012677
011100
011305

002460
000001
167620

012464
012466
012470
012472
012474
012476
012502

104413
002322
000100
000001
000001
013746
052716
011637
022600
001405
010037
010137
104021
012746
011637

012506
012512
012514
012516
012522
012526
012530
012534
012540
012542
012544
012550
012554
012556
012562

RO.a#SAVER

SAVERE
18.

167622

002460
004200
001124

010700
001124

042336

MOV

a#RP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS

a#PKACK,-(SP)
#GO, (SP)
(SP) + ,aRHCS1
aR1,RO
aR3.R5

(SP)+,RO
648
RO,a#$BDDAT

64%:

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

sNUMBER OF REGISTERS

A#PKACK ,=(5P)
#DVA!RDY,(SP)
(SP) ,a#$GDDAT

001126
004600

002322

JSR
RHW(

_R1,a#REGADR
21

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

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

;WAIT FOR VvV BIT TO SET
;WAIT FOR RHDS1 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

;FAILING REGISTER RHCS1
;DURING ABOVE OPERATION ONLY

#MOL !DPR!DRY!VV,-(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+ RS
;DURING ABOVE OPERATION ONLY MOL !DPR:DRY!VV
66%
;BRANCH IF GOOD
RS ,a#$BDDAT
;BAD DATA
R3.a#REGADR
;FAILING REGISTER RHDS1
63
sDURING ABOVE OPERATION ONLY
RO,a#CHREG
;CHANGE BITS IN SAVED REGISTER

;CHANGE RHDS1 REGISTER

SEQ 0059

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PM
27=JUL-78 13:05
2601
2602
2603

012564
012566
012570

MACY11 30A(1052)
TM

1 5
PAGE 61
13:06
27=JUL=78
RHDS1
IN
#6
BIT
SET vv
1
1
v

000001
000001
000100

;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF vv IS 1
s CHANGE vv BIT

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

012572
012576
012600
012602
012604
012606

004037
004612
002354
000022
012610
012614

012610
012612

104015
000207

JSR
SAVERE

042444

RO,a#COMREG

wC
18.

sTEST DATA STARTING FROM ‘RHWC'
;18. REGISTERS TO BE COMPARED

;RETURN TO 18 ON ERROR

2%
1%:

ERROR

RTS

; COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN ‘'SAVERE'

JRETURN TO 2% ON NO ERROR
15

sGIVING A PACK ACKNOWLEDGE
; CAUSED AN ERROR

;PACK ACKNOWLEDGE SHOULD

sSET VV IN RHDS1

:INTERSUPT SHOULD MAKE
;IE =

012614

2%:

;NO OTHER REGISTERS SHOULD
; CHANGE
;GOOD DATA GIVES CONTENTS
;OF REGISTER BEFORE COMMAND
JRECEIVED DATA GIVES CONTENTS
;OF REGISTER AFTER COMMAND

SEQ 0060

| CZRJICO, RPO4/S5/6 FCTNL CTLR1
CZRJIC.PN
27=JUL-78 13:05
2629
2630
2631
2632
2633

012614
012620
012622
012626
012630

012634
012634
012640
012640
012642
012646
012654
012660
012666
012672

005737
001005
005737
001004
000137
000137

000004
012706

MACY11

30A(1052)
TM

004744

TST

BNE

004746

014754
3%:

012700

001000
000012
041456
000001
0461126

012674

012734

012700
012702
012706
012714
012720
012726
012732

001000
000013
041456
000001
041126

d 5
27-JUL-78 13:06 PAGE 62
SET VvV BIT #6 IN RHDS1

4%:

TST12:

004604
167432

JMP

IsT13

004604
167372

i
;

MOV
MOV
JSR
MOV
JSR

#STACK,SP

JMP

IST14

377

TST13:

a#RPOS

4%
IST16

SCOPE

OR RPO6 DRIVE
DO ‘MAKECYL'' 777
OR RPO5 DRIVE

A#RPO6
3%

TST
BNE
JMP

SCOPE
MOV
MOV
JSR
MOV
JSR

777

SEQ 0061

#13-1,a#TSTNM
PC,a#CLDISK
#DMD
, aRHMR

RO, a#MAKECYL

;

#STACK,SP

#14=1,a#TSTNM
PC,a#CLDISK
#DMD
, aRHMR

RO, a#MAKECYL

= 1 DO "MAKECYL'' 377
BOTH = 0, DON'T DO EITHER "MAKECYL''
THE ADDRESS PLUG TESTS

DO "MAKECYL'' 777 -==

sJRESET STACK
;THIS SAVES TEST NUMBER
;INIT DRIVE
;SET DIAGNOSTIC MODE
sSUBROUTINE TO GIVE A SEEK
SKIP NEXT "MAKECYL'' ==========c=mceaaus

JRESET STACK
;THIS SAVES TEST NUMBER
;INIT DRIVE
;SET DIAGNOSTIC MODE
;SUBROUTINE TO GIVE A SEEK

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691

2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705

012734
012736

000004
012737

012744
012750
012752
012756

005737
001005
005737
001002

004744

012760
012764

000137

013746

012764
012770
012776
013002
013006
013012
013014
013020
013022
013026
013030
013034
013036
013040

012706
012737
004737
004737

001000
000014
041456
041536
066720

104401
000000
005737
001007
005737
001004
005737
001001
000402
000137

000001

SCOPE
MOV

001212

TST

4%:

004604

004724
000042

001100
013746

SEQ 0062

30A(1052)
27=-JUL-78 13:06 PAGE_63
T13
MAKE CURRENT CYLINDER = 777

004746

#1,8TIMES

::D0 1 ITERATION

a#RPO6

;TEST FOR RPO6 DRIVE

BNE
TST
BNE

JMP

TST15

MOV
MOV
JSR
JSR
TYPE
HALT
TST
BNE
TST
BNE
TST
BNE
BR
JMP

#STACK,SP
#14 ,QNTSTNM
PC,a#CLDISK
PC,a#CHECKT

a#RPOS
43

LCPHALT

TST15

;IF =1, DO THIS TEST
;TEST FOR MEMOREX RPO4
;IF = 1, DO THIS TEST
;IF NEITHER FLAG IS UP, ASSUME THE
;DRIVE IS AN ISS RPO4 AND SKIP TEST
)
JUMP TO NEXT TEST
sRESET STACK
;SAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(CS2

DY = 1
,MOL ,DPR,DRY,VV
;CHECK DVA_R

s CANNOT CONTINUE TESTING IF ANY OF
;STOP

;IS THIS A 220 START ?
;SKIP THIS TEST IF SO
;MONITOR (ACT 11) RETURN ADDRESS ?
;SKIP THIS TEST
;FIRST PASS ?
JSKIP THIS TEST IF NOT
;CONTINUE WITH THIS TEST

JUMP TO NEXT TEST

)

s*SET DIAGNOSTIC MODE TO ENABLE A COMMAND ACTIVE WHILE
;*THE PLUG IS PULLED
013044

052777

000001

167246

BIS

#DMD
, aRHMR

;SET UP DIAGNOSTIC MODE

s*TAKE AN INITIAL REGISTER SNAPSHOT
013052
013056
013060
013062

004037
002272
004612

041624

JSR

RHW(
SAVERE

RO,a#SAVER

;SAVE REGISTERS

JRHWC IS THE FIRST REGISTER SAVED

;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS

18.

000022

;*]SSUE A COMMAND AND THE 'GO' BIT (NOT POSITIONING COMMAND)
;*TO VERIFY COMMAND ABORT IF PLUG IS PULLED

2706

2707
2708
2709
2710
2711
2712
2713
2714
2715

MACY11

;*ISSUE SOME CLOCKS TO GET THE COMMAND STARTED
;*(USE "'SEARCH'' WITH "DTETST'' FLAG UP TO STOP CLOCKING ?)

013064
013070
013132
013136

104401
000420
013746
104405

013072
004716

TYPE
BR
MOV

TYPDS

,65%

64%
A#UNIT,-(SP)

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
sGET THE UNIT NO. UNDER TEST
sTYPE

IT OUT

94
€z

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PM
27-JuL-78 13:05
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729

013140
013144
013200

104401
000415
000000

MACY11 30A(1052)
T14

27=JUL=78

¥
PAGE 64

ADDRESS PLUG CHANGE ERROR

TYPE
BR
HALT

013146

£
13:06

.67%
66%

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
sWAIT FOR OPERATOR PLUG CHANGE

;*CHECK THAT THE UNIT NO. UNDER TEST HAS GONE OFFLINE
013202
013206
013212
013220

017700
004737
032737
001001

013222

104101

013224

167076

043370
010000

002360

7%:

MOV
JSR
BIT
BNE

aRHDST RO
PC,a#PUTREG
#NED ,a#(S2
7$

;ATTEMPT TO ADDRESS THE DRIVE
;TAKE REGISTER SNAPSHOTS
;TEST FOR NON EXISTENT DRIVE
;CONTINUE IF 'NED' BIT SET (UNIT

ERROR

101

JUNIT DID NOT GO OFFLINE WHEN ADDRESS

;1S OFFLINE AS IT SHOULD BE)
;PLUG WAS REMOVED

SEQ 0063

czl
czl

2760

013224
013230
013272

104401

000420
013746

SEQ 0064

ADDRESS PLUG CHANGE ERROR

104405
104401
000416

TYPE
BR
MOV
TYPDS

013232
004716

013306

TYPE
BR
HALT

,69%
68%

;sTYPE ASCIZ STRING
::GET OVER THE ASCIZ

A#UNIT,=-(SP)

JGET THE UNIT UNDER TEST

718
70%

;;GET OVER THE ASCIZ

JTYPE IT OUT
;:TYPE ASCIZ STRING

JWAIT FOR OPERATOR PLUG REPLACEMENT

; *CHECK THAT THE ORIGINAL UNIT HAS COME BACK ON LINE
004737
032737
001411
032737
001405
032737
001401

043370
000400

002404

004000

002362

000200

002404
9%:

104102

000137

013746
8%:

042336

JSR
BIT
BEQ
BIT
BEQ
BIT
BEQ
BR
ERROR

PC ,a#PUTREG
#DPR,a#DS1

s TAKE NEW REGISTER SNAPSHOTS
sTEST THAT ‘DPR' = 1

;A=0K:

JMP

11y

9%
#DVA ,a#(S1
9%
#DRY ,a4#DS1
9%
102

JSR
RHCS1

RO,a#CHREG

MCPE
JSR

RHDS1

RO, a#(CHREG

3
1

ATA
1

ERR
0

042336

;ADDRESS PLUG WAS REPLACED

JUMP TO NEXT TEST

JSR
?HCSZ
1
NED
JSR

RHER3

;CHANGE BITS IN SAVED REGISTER

s CHANGE RHCS1 REGISTER
;4 BIT/BITS TO BE CHANGED
s CHANGE RDY BIT

SC
1
TRE

042336

'DVA' = 1, & 'DRY" =1

sNEW VALUE OF RDY IS 1

2765

'DPR' = 1,

JUNIT NOT AVAILABLE AFTER

;*AFTER THE PLUG CHANGE

1
RDY

2766

;ERROR = DRIVE SHOULD BE PRESENT
sTEST THAT DEVICE IS NOW AVAILABLE
;ERROR = 'DVA' SHOULD = 1
;TEST THAT DRIVE READY IS =1
;ERROR = °'DRY' SHOULD = 1

——)

; CHANGE THE INITIAL REGISTER SNAPSHOT TO EXPECTED VALUES

2764

2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785

L
13:06 PAGE 65

;*NOW REPLACE THE ADDRESS PLUG

2761
2762
2763

2767
2768
2769
2770
2771
2772

27-JUL-78

RO, a#(CHREG

RO,a#(HREG

CZF
(Wi

ald als als alh als

2730
2731
2732
2733
2734
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

MACY11 3?A(1052)

odd ad

CZRJICO, RPO4/5/6 FCTNL CTLR1
27=JuUL-78 13:05
i(ZRJlC.P11

sNEW VALUE OF SC IS 1
s CHANGE SC BIT
sNEW VALUE OF TRE IS 1
;CHANGE TRE BIT
sNEW VALUE OF MCPE IS 1
; CHANGE MCPE BIT

s CHANGE BITS IN SAVED REGISTER

;CHANGE RHDS1 REGISTER
;3 BIT/BITS TO BE CHANGED
sNEW VALUE OF ATA IS 1
;CHANGE ATA BIT
;NEW VALUE OF ERR IS 1
; CHANGE ERR BIT
sNEW VALUE OF vv IS 0
s CHANGE Vv BIT

;CHANGE BITS IN SAVED REGISTER

; CHANGE RHCSZ2 REGISTER
;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF NED IS 1

s CHANGE NED BIT
sCHANGE BITS IN SAVED REGISTER

;CHANGE RHER3 REGISTER

(ZRJICO, RPO4/5/6 FCTINL CTLRI
CZRJIC.PM
27=JuL-78 13:05
2786

013506
013510
013512

000001
000001
0206C0

013514
013522

053757
005037

MACYT1

1
1
ACE

004740
004654

004636

BIS

CLR
;*TAKE

;1 BIT/BITS TO BE
;NEW VALUE OF ACE
s CHANGE ACE BIT

——

013534
013536
013540
013542

004037
004612
002354
000022
013544
013550

013544

104100

013546

000207

042444

(HANGED
IS 1

¥ SAVERE +4¢2

sSET RHCC REGISTER IMAGE TO ALL 0°S

A NEW REGISTER SNAPSHOT AND

THE REGISTER CONTENTS WITH EXPECTED VALUES

JSR

RO, a#(OMRE G

ERROR

100

;ADDRESS PLUG (HANGE CAUSED SOME

RTS

;GO0 BACK AND (HECK

SAVERE
w(
18.
5%
6%
5%:

SEQ 0065

QNATTENT ,a#SAVERE+24 ;SET UNIT UNDER TEST ATTENTION

;*(OMPARE
013526
013532

30A(1052)
27=JUL=78
13:06 PAGE 66
114
ADDRESS PLUG CHANGE ERROR

; COMPARE SAVED REGISTERS WITH

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

;REGISTER ERROR

THE

NEXT REGISTER

JUNTIL ALL 18. HAVE BEEN DONE

RPO4L/S/6 FCTNL CTLR1

CZRJIC.P1T

27-JuL-78 13:05

MACY11 30A(1052)

T14

2807
2808

sgqg
2811

013550

68:

5%1'%

JSR

2817

013560

002300

RHCS1

2819
2820
2821
2822
2823
2824
2825
2826

013564
013566
013570
013572
013574
013576
013600
013604

000000
100000
000000
040000
000000
020000
004037
002322

0
SC
0
TRE
0
MCPE
JSR
RHDS1

2828
2829
2830
2831

013610
013612
013614
013616

000000
100000
000000
040000

0
ATA
0
ERR

2833
2834
2835

013624
013626
013630

002276
000001
000000

RHCS2
1
0

013634
013640

004037
002314

2818 013562 000003

042336

2836

013632

2839
2840
2841

013642
013644
013646

010000

JSR

NED

042336

000001
000000
020000

013660

000001

013664

043737

RO,a#CHREG

;SET R1-RHCS1, R2-RHCS2

RO, @#CHREG

RO,a#CHREG

JSR
RHMR

RO, a4 CHREG

004636

BIC

2850
2851

*CHANGE RHMCS1 REGISTER

*NEW VALUE OF SC IS 0
*CHANGE SC BIT
*NEW VALUE OF TRE IS 0
:CHANGE TRE BIT
*NEW VALUE OF MCPE IS 0
:CHANGE MCPE BIT
;CHANGE BITS IN SAVED REGISTER
CHANGE RHDS1 REGISTER
*NEW VALUE OF ATA IS 0
*CHANGE ATA BIT
*NEW VALUE OF ERR IS 0
:CHANGE ERR BIT

. CHANGE BITS IN SAVED REGISTER
:CHANGE RHCS2 REGISTER
21 BIT/BITS TO BE CHANGED
*NEW VALUE OF NED IS 0
:CHANGE NED BIT

;CHANGE BITS IN SAVED REGISTER
*CHANGE RHER3 REGISTER
:1 BIT/BITS TO BE CHANGED
*NEW VALUE OF ACE IS 0
*CHANGE ACE BIT

*CHANGE BITS IN SAVED REGISTER
*CHANGE RHMR REGISTER
*NEW VALUE OF DMD IS 0

:CHANGE DMD BIT

ANATTENT ,a#SAVERE+24 ;UNIT UNDER TEST ATTENTION BIT

:#TAKE ANOTHER REGISTER SNAPSHOT AND COMPARE RESULTS

ggg

“*WITH THE EXPECTED VALUES

2854 013672 004037 042444

JSR

2855
2856

013676
013700

004612
002354

SAVERE
we

2858
ggzg

013704
013706

013710
013714

108
118

2861
2862

013710
013712

104100
000207

2857 013702 000022

RO, a#COMREG

18.

108:

ERROR
RTS

*1 BIT/BITS TO BE CHANGED

DMD
004740

;CHANGE BITS IN SAVED REGISTER

22 BIT/BITS TO BE CHANGED

1
0

000000

5329 013662 000001
33’23

SEQ 0066

:3 BIT/BITS TO BE CHANGED

JSR
RHER3
1
0
ACE

2842 013650 004037 042336
2843 013654 002320
013656

RO, a#CHREG

2832 013620 004037 042336

2845

PC,a#CLDISK

2827 013606 000002

2844

PAGE 67

:#CHANGE THE REGISTER SNAPSHOT TO EXPECTED VALUES AFTER THE CLEAR

2816 013554 004037 042336

2837
2838

13:06

ADDRESS PLUG CHANGE ERROR

;*NOW CLEAR OUT THE CONTROLLER AND DRIVE

%g}g 013550 004737 041456

27-JUL-78

;COMPARE SAVED REGISTERS WITH

*GOOD DATA SAVED IN *SAVERE'
STEST DATA STARTING FROM 'RHWC'

*18. REGISTERS TO BE COMPARED
*RETURN TO 108 ON ERROR
*RETURN TO 118 ON NO ERROR

100
PC

:ADDRESS PLUG CHANGE CAUSED SOME
*INCORRECT REGISTER RESULT

CZRJICO,

CZRJICO, RPO4/5/6 FCTNL CTLRI
27-JuL~78 13:05

CZRIIC.PN

2863

013714

MACYTT 3??(1052)
&

27-JUL-78

13:06

PAGE 68

ADDRESS PLUG CHANGE ERROR

118:

;*(USE NED METHOD TO VERIFY

2866

;*THAT ATTENTION BIT COMES UP IN THE PROPER LOCATION ??)

;*SET "VV' IN RHDS1 AFTER RESET FROM THE RECALIBRATE

;*CAUSED BY PULLING THE PLUG
013714
013720
013724
013730
013732
013734
013736
013740
013742
013744

013746
052716
012677
011100
011305
104413
002322
000100
000001
000001

002460
000001

166350

MOV

BIS
MOV
MOV
MOV
WAT

RHDS1
vV
1.
1.

A#PKACK ,~(SP)

#GO, (SP)
(SP)+ ,aRHCS1
aR1,RO
@R3,R5

;GET READY TO MOVE COMMAND

;GET READY TO SET GO
;GO WITH
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION
;WAIT FOR Vv BIT TO SET
;WAIT FOR RHDS1 REGISTER
sWAIT FOR VV BIT IN RHDS1 REGISTER
;ALLOW 10 MICRO SECONDS
:VV MUST SET BETWEEN

SEQ 0067

TMTM

m—————

013746
013750

000004
012737

013756

000001

MACYT1 30A (1052)
m4

001212

sT 5:

004744

013772
013776

SCOPE

014754

4%:

SEQ 0068

MOV

#1,STIMES

::D0 1

TST

MNPO6

;TEST FOR RPO6 DRIVE

TST
BNE

A¥RPO5
3

;TEST FOR MEMOREX RPO4
:IF =1, OK TO DO THIS TEST

BNE

004746

013770

D 6
27-JUL-78
13:06 PAGE 69
ADDRESS PLUG CHANGE ERROR

JMP

sT16

ITERATION

;IF =1, OK TO DO THIS TEST

;

;NOT AN RP0O6 OR MEMOREX RP0O4 SO
;ASSUME AN ISS RP04 AND SKIP TEST
JUMP TO NEXT TEST

s*CHECK TO SEE IF THIS TEST HAS BEEN SELECTED WITH SW5
013776
014004
014006

000040

014012
014016
014020
014024
014026
014032
014034
014036
014042
014046
014054
014060
014064
014070

004724

014754

014012

014072

165134
5%:

JMP

001100

004604

TST
BNE
TST

anel
1%
ANSPASS

MOV

;
#STACK,SP

JSR
JSR

PC,a#CLDISK
PC,a#CHECKT

MOV

TYPE

HALT

104401

014100

104401

014162

013737

004716

014076
014154
014160

000417

014220

TYPE

;TEST THE SWITCH
;IF 0, TEST HAS NOT BEEN SELECTED

JUMP TO NEXT TEST
sTEST SELECTED,

CONTINUE

;1S THIS A 220 START ?

;SKIP THIS TEST IF SO

1%
2%
s11é

:SKIP THIS TEST IF NOT
;CONTINUE WITH THIS TEST
JUMP TO NEXT TEST

sMONITOR (ACT 11) RETURN ADDRESS ?
:SKIP THIS TEST
sFIRST PASS ?

#15,a4TSTNM

sRESET STACK
;SAVE TEST NUMBER

.CPHALT

DY =1
,MOL ,DPR,DRY,VV
sCHECK DVA,R
:C?NNOT CONTINUE TESTING IF AN Y OF

.65%

;:TYPE ASCIZ STRING

,67%

::TYPE ASCIZ STRING

;SET R1-RHCS1, R2-RHCS2

;STOP

648

66%

MOV

QFUNIT
Q¥ INUNIT ;MAKE

TYPE

004752

TST16

A#NOPUSH

BNE
BR
JMP

014754

#SW5,aSWR
5%

TST

BNE

000042

000015

BIT
BNE

;:GET OVER THE ASCIZ

THE

INITIAL UNIT NO.

= "UNIT"

oTM

CZRJICO, RPO4L/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC PN
27-JuL~-78 13:05

E 6
MACY11 30A(1052)
27-JUL-78 13:06 PAGE 70
]15
CHECK ALL ADDRESS PLUG ADDRESSES

2933
34

;*CHANGE ADDRESS PLUG ON THE UNIT UNDER TEST
014226
014226
014232

6%:

014234

TYPE

BR
MOV

004716

TYPDS
TYPE

014310

718

JTYPE IT OUT
;sTYPE ASCIZ STRING

708

728

HALT

014416

;:TYPE ASCIZ STRING

TYPE

014360

698

688
SMUNIT,=(SP)
73s

;:GET OVER THE ASCIZ
;GET THE UNIT UNDER TEST
:2GET OVER THE ASCIZ
;:TYPE ASCIZ STRING
:2GET OVER THE ASCIZ

; *HOUSEKEEPING
014420
014424
014430
014436

047274
004716
177770
041456

004716

CLR
INC

SIPRITEM
SNUNIT

;CLEAR THE PREVIOUS ERROR NUMBER
;ADD ONE TO THE UNIT NO.

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RHCS2

BIC

#AC7,QMUNIT

;TRUNCATE TO LOW ORDER 3 BITS

;*ATTEMPT TO ADDRESS THE NEW UNIT NUMBER

014442
014446
014452
014460

165636

043370
010000

014462
014464
014470
014510
014514
014516
014522

014472
004716

014524

002360

MOV
JSR
BIT
BEQ

@RHDST RO

;ATTEMPT TO ADDRESS THE NEW DRIVE NO.

;geo.awcsz

;TEST FOR NON EXISTENT DRIVE

ERROR

102

TYPE

PC,a#PUTREG

75$%

748

;TAKE REG. SNAPSHOT IN CASE OF ERROR

;CONTINUE IF °NED' IS NOT SET = DRIVE
;SHOULD BE EXISTENT ON THE BUSS
JUNIT NOT AVAILABLE AFTER ADDRESS
;PLUG REPLACED
::TYPE ASCIZ STRING

BR
MOV

QHUNIT,=(SP)

;.GET OVER THE ASCIZ
;GET THE BAD UNIT NUMBER

7%
76%

;;GET OVER THE ASCIZ

TYPDS
TYPE

sTYPE IT OUT
;:TYPE ASCIZ STRING

SEQ 0069

aln)

CZRJICO, RPO4/S5/6 FCTNL CTLRT

CZRJIC.PN

27=-JuUL-78 13:05

MACY11 30A(1052)
T15

014530

023737

014536

001233

27-JuL-78

13:06

PAGE 71

CHECK ALL ADDRESS PLUG ADDRESSES

;*CHECK IF ALL UNIT NUMBERS HAVE BEEN TRIED
004716

004752

7%:

CMP
BNE

SFUNIT,@#INUNIT ;HAVE WE INCREMENTED BACK TO THE
;ORIGINAL UNIT NO. YET ?
6%
sNO..DO NEXT ADDRESS PLUG
;YES..CONTINUE WITH TESTS

;*SET "VV'IN RHDS1 AFTER RESET FROM THE RECALIBRATE
;*CAUSED BY PULLING THE ADDRESS PLUGS OUT
014540
014544
014550
014554
014556
014560
014562
014564
014566
014570

014572

014576
014674
014700

013746
052716
012677
011100
011305

002460
000001
165524

104413

002322
000100
000001
000001

104401

014702

TYPE

BR
TYPE
BR

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

JWAIT FOR VV BIT IN RHDS1 REGISTER
sALLOW 10 MICRO SECONDS

014600

000425

ANPKACK ,-(SP)
#G0, (SP)
(SP) + ,aRHCS1
aR1,RO
aR3.R5

Vv
1.

104401

000436

MOV
BIS
MOV
MOV
MOV
WAT
RHDS1

;VV MUST SET BETWEEN

,82%

81%:
,848%
83%

;:TYPE ASCIZ STRING

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

SEQ 0070

CZRJICO, RPO4/S5/6 FCTNL CTLRI
CZRIIC.P11
27=-JuUL-78 13:05

G 6
13:06
PAGE 72
8
30A(1052)
MACY11
27=-JUL-7
T15
CHECK ALL ADDRESS PLUG ADDRESSES

.SBTTL
.SBTTL
.SBTTL

014754
014756
014762
014770
014774
015000
015004
015006

**DRIVE COMMAND TESTS*+

TST16:

#STACK,SP

JRESET STACK

PC,a#CLDISK

#16 ,a4TSTNM

004604

165264

;SAVE TEST NUMBER

JSR

PC,a#CHECKT

;SET R1-RH(CS1, R2-RH(S2
;CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1

MOV

A#NOPERA ,aRHCS1

;GET READY FOR NOPERA

TYPE
HALT

013777

SEQ 0071

LCPHALT

;gWT CONTINUE

TESTING IF ANY OF

;*NOW SAVE REGISTERS FOR COMPARISON AFTER NO OPERATION
015014
015020
015022
015024

004037
002272
004612
000022

015026

013777

015034
015040
015044

013746
052716
012677

JSR

RHWC

SAVERE
18.

165232

165230

A#RPSLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV

,
- (SP)
A#NOPERA

MOV

(SP)+ ,aRHCST

104016

000207

;GET READY TO MOVE COMMAND
:GET READY TO SET GO
;GO WITH
;WAIT FOR RDY BIT TO SET

RDY
1.
1.

;WAIT FOR RDY BIT IN RHCS1 REGISTER

;WAIT FOR RHCS1 REGISTER
;ALLOW 10 MICRO SECONDS
;RDY MUST SET BETWEEN

;*NOW COMPARE REGISTERS BEFORE NO-OP COMMAND
;*WITH AFTER NO-OP COMMAND
RO,a#COMREG
JSR
; COMPARE SAVED REGISTERS WITH
SAVERE
;GOOD DATA SAVED IN ‘'SAVERE'
;TEST DATA STARTING FROM °"RHWC('
;18. REGISTERS TO BE COMPARED

042444

015100
015102

#G0, (SP)

WAT

RHCS1

015104

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

MOV

BIS

015050
015052
015054
015056
015060

015076

RO,a#SAVER

JRETURN TO 1$ ON ERROR

;RETURN TO 2% ON NO ERROR
1%:

;GIVING A NO-OP COMMAND
;CAUSED AN ERROR
;NO REGISTERS SHOULD CHANGE
;GOOD DATA GIVES REGISTER
;CONTENTS BEFORE COMMAND
*RECEIVED DATA GIVES REGISTER
;CONTENTS AFTER COMMAND

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PM
27-JuL-78 13:05

MACY'1 30A(1052)
T16

27-JuL-78

13:06

PAGE 73

NO OPERATION FUNCTION TEST

SEQ 0072

—

FCTINL CTLR]
|CZRJI(0. RPO4/5/6
27=-JuL-78 13:05
CZRJIIC.PN

MACY11 30A(1052)
T16

SEQ 0073

27-JUL-78 13:06 PAGE 74
NO OPERATION FUNCTION TEST

;*NOW REPEAT TLST BY MOVING IN ALL POSSIBLE ONES

BRERERERIRSRR

D
=
D
D
D
D
D
d
D
D
d
—

olelelele]

b ad ab ab ab

—

e d

md e

SOOOOOOO

vivvwvhhnewnh Vi

3058

2%:

041456
002272
177777

87%:

177777

015236
015242
015246
015250

88%:

177776

000000
013777

041536
066720
002422

:LOAD 177777 INTO RHWC

MOV

#177777.,8(R0)+

:LOAD 177777 INTO RHDST

MOV

000010

165022

:SET R1-RHCS1, R2-RH(S2
:ADDR. OF ADDR OF RHWC IN RO

#177777.8(RO)+

MOV

004742

PC,a#CLDISK
#RHWC ,RO

MOV

MOV
BIS
MOV
MOV

177777
043010
001400
000000
177777
000000
177777
177777
000000

015230
015232

JSR
MOV

#177777.3(R0)+
#43010,8(R0O)+
#1400,8(R0O)+
+
#0,3(R0)
#0,3(R0)
+

#177777,8(R0)+

:LOAD 177777 INTO RHBA
:LOAD 43010 INTO RHCS2
:LOAD 1400 INTO RHCS1
SLOAD 0 INTO RHER1
:LOAD 0 INTO RHER2

:LOAD 177777 INTO RHOF

MOV
MOV
MOV
MOV
MOV
MOV
CLR

#177777.3(R0)+
#0,3(RO) +
RO,=(SP)
aR4 ,~(SP)
aR2,-(SP)
STOTALAT,RO
aR2

:LOAD 177777 INTO RHCA
:LOAD O INTO RHER3
;:PUSH RO ON STACK
*SAVE RHER1 TO REINSTATE LATER
“SAVE RHCS2 TO BE REINSTATED
:GET DRIVES PRESENT
;CLEAR RHCS2 AND CARRY

BCC
MOV
INC
DEC
BNE
MOV
MOV
MOV
TST
MOV

88%
#-1,3R4
aR2
R5
87%
(SP)+,aR2
(SP)+,aR4
(SP)+,RO
(RO) +
#177776.a(R0O)+

;BRANCH IF NO UNIT ON THIS BIT
sMOVE INTO ERROR REGISTER
s INCREMENT RHCS2 TO NEXT UNIT
s COUNT
;BRANCH IF 8 NOT DONE
SJREINSTATE RHCS2
SJREINSTATE RHER1
;;POP STACK INTO RO
;GET OVER_PHAS IN RO
;LOAD 177776 INTO RHMR

JSR

PC,a#CHECKT

MOV

A#NOPERA ,BRHCST ;GET READY FOR NOPERA

MOV
ROR

TYPE
HALT

#8. .R5
RO

LCPHALT

s COUNTER
;GET BIT INTO CARRY

:CHECK DVA,RDY,MOL,DPR,DRY,VV = 1

;CANNOT CONTINUE TESTING IF ANY OF
;STOP

:*NOW SAVE REGISTERS FOR COMPARISON AFTER A NO-OP
015256
015262
015264
015266

004037
002272
004612
000022

041624

015270

013777

004606

015276
015302
015306

013746
052716
012677

002422
000001
164766

015312
015314
015316
015320

104413

164770

JSR
RHW(
SAVERE
18.

RO, a#SAVER

MOV

AH#RP4LVEC ,QRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

@#NOPERA,-(SP)
#GO, (SP)
(SP) +,aRHCS1

WAT
RHCS1
RDY
.

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

;GET READY TO MOVE COMMAND
;GET READY TO SET GO
;GO WITH
;WAIT FOR
JWAIT FOR
;WAIT FOR
;ALLOW 10

RDY BIT TO SET
RHCS1 REGISTER
RDY BIT IN RHCS1 REGISTER
MICRO SECONDS

€z
w4

b
b
sl cnll e
b

Lg
OV
NONV S W

WWWWWWW W

(ZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PM
27-JuL-78 13:05
015322

MACY11 30A(1052)
T16

000001

015324

005737
001406
005737
001003
042737

004750

100000

004620

043737
004037
002322
000001

004740
042336

004636

3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151

TST
BEQ

A#RH70
5%

;RUNNING ON AN RH70 ?
;IF NOT, SKIP NEXT

BNE
BIC

5%
#SC,a#SAVERE+6

;SKIP NEXT IF SO
;CLEAR °'SC' IN RHCS1

TST

004722

BIC
JSR
RHDS?
1

AUNUNIT

sTESTING MORE THAN ONE DRIVE ?

QHATTENT ,a#SAVERE +24
:CLEAR APPROPIATE ATA BITS
RO, a#CHREG
;CHANGE BITS IN SAVED REGISTER
s CHANGE RHDS1 REGISTER
;1 BIT/BITS TO BE CHANGED

sNEW VALUE OF ATA IS 0

ATA

100000

3134

;RDY MUST SET BETWEEN

;*CHANGE REGISTERS TO EXPECTED VALUES

000000

3135

J 6
27-JUL=78 13:06 PAGE 75
NO OPERATION FUNCTION TEST

s CHANGE ATA BIT

;*NOW COMPARE REGISTERS BEFORE NO-OP WITH
;*AFTER NO-OP COMMAND

015370 004037
015374
015376
015400
015402
015404

015412

015406
015410

104016
000207

015412

042444

JSR
SAVERE
wC
18.
3%

RO, a#COMREG

3%:

4%:

ERROR
RTS

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

;RETURN TO 4$ ON NO ERROR

;GIVING A NO-OP COMMAND
; CAUSED AN ERROR

;NO REGISTERS SHOULD CHANGE
;GOOD DATA GIVES REGISTER
;CONTENTS BEFORE COMMAND
sRECEIVED DATA GIVES REGISTER
;CONTENTS AFTER COMMAND

SEQ 0074

CZ
cZl

CZRJICO, RPO4/5/6 FCTNL CTLR1

| CZRIIC.P1T

3152
3153
3154
3155
3156
3157
g}gg

27-JuL=78 13:05

015412
015414
015420
015426
015432
015436
015442

000004
012706
012737
004737
004737
104401
000000

001000
000017
041456
041536
066720

MACY11 30A(1052)

27-JUL-78

T17

DRIVE CLEAR

TST17:

SCOPE
MOV
MOV
JSR
JSR
TYPE
HALT

004604

%}2?

13:06

PAGE 76

#STACK , SP
217, 38TSTNM
PC,a#CLDISK
PC.a#CHECKT
LCPHALT

:RESET STACK
*SAVE TEST NUMBER
*SET R1-RHCS1, R2=-RH(S2
*CHECK DVA,RDY,MOL ,DPR,DRY, WV = 1
:CANNOT CONTINUE TESTING IF ANY OF
:STOP

;*WRITE ALL WRITABLE REGISTER BITS

3162

015444

012700

002272

MOV

#RHWC ,RO

;ADDR. OF ADDR. OF RHWC IN RO

3164
3165
3166
3167

015454
015460
0156464
015470

012730
052730
012730
012730

177776
043010
001400
000000

MOV
BIS
MOV
MOV

#177776.3(R0)+
#43010,3(RO)+
#1400,a(R0)+
#0,3(R0)+

:LOAD 177776 INTO RHBA
:LOAD 43010 INTO RHCS2
:LOAD 1400 INTO RHCS1
:LOAD 0 INTO RHER1

3169

015500

012730

000000

3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184,
3185
3186
3187
3188
g}gg

015510
015514
015520
015522
015524
015526
015532
015534
015540
015542
015544
015550
015552
015554
015556
015560
015562
015564
015566

012730
012730
010046
011446
011246
013700
005012
012705
006000
103002
012714
005212
005305
001371
012612
012614
012600
005720
012730

177777
000000

3191
g}gg

015572
015600

017737
013777

164536
004606

3194

015606

013746

g}gg

015616

012677

3163 015450 012730 177777
3168 015474 012730

3170 015504 012730

3195

3198
3199
3200

3201
;ggg

015612

015622
015624
015626

015630
015632

052716

177777

MOV

177777

MOV

#177777.,a(R0)+
#177777 ,8(RO)+
#0,3(R0)
+

#177777.,8(R0)+

:LOAD 177777 INTO RHWC

:LOAD 177777 INTO RHDST
:LOAD 0 INTO RHER2

:LOAD 177777 INTO RHOF

MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOV
ROR
BCC
MOV
INC
DEC
BNE
MOV
MOV
MOV
TST
MOV

#177777.3(R0)+
#0,3(R0) +
RO,=(SP)
aRé ,=(SP)
aR2,=(SP)
QMTOTALAT,RO
aR2
#8. RS
RO
85$
#-1,3R4
aR2
RS
84$
(SP) +,aR2
(SP)+.aR4
(SP)+.RO
(RO) +
#177776.,8(R0)+

MOV
MOV

@RHCC,a#SAVERE+42 ;SAVE RHCC IN SAVERE TABLE
HRP4LVEC ,aRPVEC ;SET RP0O4 VECTOR ADDRESS

002430

MOV

MDCLEAR,-(SP)

:GET READY TO MOVE COMMAND

164456

MOV

(SP)+,@RHCS1

26O WITH

004742
000010

84%:

177777

85%:

177776

000001

104413
002300
000200
000001
000001

004654
164460

BIS

#GO, (SP)

WAT
RHCS1
RDY

:LOAD 177777 INTO RHCA
:LOAD 0 INTO RHER3
*;PUSH RO ON STACK
*SAVE RHER1 TO REINSTATE LATER
*SAVE RHCS2 TO BE REINSTATED
:GET DRIVES PRESENT
SCLEAR RHCS2 AND CARRY
: COUNTER
SGET BIT INTO CARRY
*BRANCH IF NO UNIT ON THIS BIT
“MOVE INTO ERROR REGISTER
*INCREMENT RHCS2 TO NEXT UNIT
: COUNT
*BRANCH IF 8 NOT DONE
*REINSTATE RHCS2
*REINSTATE RHER1
::POP STACK INTO RO
*GET OVER PHAS IN RO
:LOAD 177776 INTO RHMR

*GET READY TO SET GO

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

1.
b

gggg
3206
3207

MOV

*ALLOW 10 MICRO SECONDS
*RDY MUST SET BETWEEN

-«NOW LOAD 'SAVERE' REGISTER SNAPSHOT WITH EXPECTED VALUES
015634
015640

004037
002272

041360

JSR

RHWC

RO, a4F ILLRE

:MOV 177777 INTO SAVED RHW(
*SAVED REGISTER TO CHANGE

SEQ 0075

CZRJICO, RPO4/5/6 FCTNL CTLR1T
CZRJIC.P1N

27-JuL-78 13:05

3208
3209
3210
3211
2212
%g}g

015642
015644
015650
015652
015654
015660

177777
004037

041360

005037
053737

004616
004716

3215
~§§}9

015666
015672

005737
001021

3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230

015674
015700
015702
015704
015706
015710
015712
015714
015716
015720
015724
015726
015730

004037
002276
000003
000001
000100
000001
000010
000001
001000
004037
002300
000001
000001

%gg%

015734

3231

015732

3234

015736

3239
3240
3241
3242
3243
3244
3245
3246
3247
3248

015750
015752
015754
015756
015762
015764
015772
015772
015776
016000

3235
3236
3237
3238

3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263

MACY11 30A(1052)

015736
015742
015744
015746

016002
016006
016010
016012
016016
016020
016022
016026
016030
016032
016036
016040
016042
016046
016050

002274
177776

117

000100
000001
000010
005737
001003
042737

004037
002302
000000
004037
002304
017437
004037

002306
000000

004037
002310
116000
004037
002312
001777
004037
002314
000000

DRIVE CLEAR

177777
JSR

13:06

PAGE 77

CLR
BIS

;DATA
sMOV 177776 INTO SAVED RHBA
;SAVED REGISTER TO CHANGE
;DATA
a#SAVERE +4
;CLEAR LOCATION FOR RH(CSZ
SNUNIT ,a#SAVERE+4;PUT UNIT # BACK IN THE SAVED RH(CSZ2

004750

TST
BNE

a#RH70
8$

JRUNNING ON AN RH70 CONTROLLER ?
;IF SO SKIP NEXT RH11 (CODE

042336

JSR
RHCS2
3
1
IR
1
BAI
1
MXF
JSR
RHCS1
1
1

RO,a#CHREG

;CHANGE BITS IN SAVED REGISTER
s CHANGE RHCSZ REGISTER
;3 BIT/BITS TO BE CHANGED
;NEW VALUE OF IR IS 1
; CHANGE IR BIT
;NEW VALUE OF BAI IS 1
;CHANGE BAI BIT
sNEW VALUE OF MXF IS 1
;CHANGE MXF BIT
;CHANGE BITS IN SAVED REGISTER
;CHANGE RHCS1 REGISTER
;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF SC IS 1

RHBA
177776

004616

042336
:

100000
000416

004037
002276
000002
000001

27-JuL-78

SC
BR

8%:

042336

004722
100000
041360

041360
041360
041360

041360
041360

004620

9%:

JSR
RHCS2
2
1

IR
1
BAI
TST
BNE
BIC

JSR
RHER1
0

RO,a#F ILLRE

RO, a#CHREG

RO, a#(CHREG

QANUNIT
9%
#SC,a#SAVERE+6
RO,a#F ILLRE

JSR

RO,a#F ILLRE

JSR
RHERZ2
0
JSR
RHOF
116000
JSR
RHCA
1777
JSR
RHER3
0

RO,a#F ILLRE

RHDST
17437

SEQ 0076

RO,a#F ILLRE

RO,a#F ILLRE
RO,a#F ILLRE

s CHANGE SC BIT

;SKIP NEXT RH70 CODE

;CHANGE BITS IN SAVED REGISTER
: CHANGE RHCS2 REGISTER
;2 BIT/BITS TO BE CHANGED
;NEW VALUE OF IR IS 1
;CHANGE IR BIT
;NEW VALUE OF BAI IS 1
;CHANGE BAI BIT
sTESTING MORE THAN ONE DRIVE ?
;SKIP NEXT IF SO
;CLEAR °'SC' IF NOT

;MOV O INTO SAVED RHER1
;SAVED REGISTER TO CHANGE
;DATA
sMOV 17437 INTO SAVED RHDST
;SAVED REGISTER TO CHANGE
;DATA
MOV O INTO SAVED RHERZ2

;SAVED REGISTER TO CHANGE

;DATA

;MOV 116000 INTO SAVED RHOF
;SAVED REGISTER TO CHANGE
:DATA
;MOV 1777 INTO SAVED RH(CA
;SAVED REGISTER TO CHANGE
;DATA
;MOV O INTO SAVED RHER3
sSAVED REGISTER TO CHANGE
;DATA

CZRJICO, RPO4/S5/6 FCTNL CTLRT
CZRJIC.PN

27-JUL-78 13:05

MACY11 30A(1052)
T17

27-JuL-78

DRIVE CLEAR

13:06

PAGE 78

gsgg

016052

013746

004742

MOV

SNTOTALAT,=(SP) ;?sraakg BITS OF DRIVE & PRESENT

3266
3267
3268
3269

016056
016062
016066
016072

043716
012637
004037
002320

004740
004536
041360

BIC
MOV
JSR
RHMR

QNATTENT,(SP)
;CLEAR WORKING DRIVE BIT
(SP)+,a#SAVERE+24 :MOVE THIS INTO RHAS POSITION
RO,a#F ILLRE
:MOV 400 INTO SAVED RHMR
:SAVED REGISTER TO CHANGE

3272
3273
3274

016076

016076
016102

004037
002322

041360

JSR

RO, @#F ILLRE

3277
3278

016106

013737

002406

004644

3279

016114

013737

002410

004646

3282
3283

016122
016126

004037
002330

041360

3285

016132

004037

041360

3287

016140

000000

gg;?

%gg?

3284

3286

3288
3289

3290
3291

gggg

016074

016104

016130

016136

000400

000000

002332

004037
002300

016152

000001

016154

3%:

RHDS1

010700

016142
016146

016150

400

:POSITION OF SAVERE TABLE

RO, @a4F ILLRE

JSR
RHCS1

000001

A¥SN, IW¥SAVERE+34 ;MOVE SERIAL NUMBER INTO RHSN

JSR

042336

a#DT ,a#SAVERE+32 :MOVE DRIVE TYPE INTO RHDT
:POSITION OF SAVRE TABLE

RO, a#F ILLRE

RHE(C2

RO, a#CHREG

:MOV O INTO SAVED RHEC1
:SAVED REGISTER TO CHANGE
:DATA

:MOV 0 INTO SAVED RHE(C2

:SAVED REGISTER TO CHANGE

:DATA

:CHANGE BITS IN SAVED REGISTER
:CHANGE RHCS1 REGISTER

:1 BIT/BITS TO BE CHANGED

000010

:MOV 10700 INTO SAVED RHDS1
:SAVED REGISTER TO CHANGE

:DATA

JSR
RHEC1
0

:NEW VALUE OF PAR IS 1

PAR

:CHANGE PAR BIT

:*NOW THAT SAVERE TABLE HAS BEEN LOADED WITH
:*EXPECTED VALUES, THE REGISTERS WILL BE COMPARED

gggg

:*WITH SAVERE TABLE

3298

016156

004037

3305
3306
3307
3308
3309
3310

016174
016176

104017
000207

3311
3312

MOV

3294
3295

3299
3300
3301
3302
;;82

:DATA

10700

4$:

016162
016164
016166
016170
016172

3313 - 016200
3314

004612
002354
000022
016174
016200

042444

JSR

RO, a#COMREG

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

ERROR
RTS

17
PC

:DRIVE CLEAR COMMAND
:GAVE AN ERROR
:GOOD DATA HAS WHAT SHOULD
:BE IN REGISTER AFTER A
:DRIVE CLEAR
:RECEIVED DATA HAS WHAT

SAVERE
wC
18.
5%
6%
5%:

6%:

SEQ 0077

:THE REGISTER ACTUALLY
:CONTAINED

|
!

CZRJICO, RPO4/S5/6 FCINL CTLRI1
CZRJIC.PN

3315

27-JUL-78 13:05

3316
3317

016200
016202

000004
012706

001000

3319
3320
3321

016214
016220
0162264

004737
005737
001007

041456
004724
-

3323
3324
33205
3326
3327
3308
gggg

016232
01623&
016240
016242
016244
016250
016254

001004
005737
001001
000402
000137
104401
000407

3331

016274

013746

MACY11 30A(1052)

%ggz

016312

104405
104401
032713

001375

SCOPE
MOV

#STACK,SP

JRESET STACK

JSR
ST
BNE

PC,a#CLDISK
SNOPUSH
1%

“SET R1=RHCS1, R2=-RH(S2
“1S THIS A 220 START ?
“SKIP THIS TEST IF SO

MOV

004716

016314
016320

000406

104401

016322

3340
3341
ggz%

016336
016342
016344

013746
104405
104401

004716

3344
3345

016350
016354

032713
001775

010000

33,9
%gg?

016372
016374

000000
012700

3346
3347
3348

016356
016362
016366

004?37
004737
104401

016744
016256

3337
gggg

3$:

002272

3352

figz

A ¥

#20,34TSTNM
Y 7¥,

SSAVE TEST NUMBER

“MONITOR (ACT 11) RETURN ADDRESS ?

BNE
ST
BNE
BR
JMP
TYPE
BR

1%
ANBPASS
%
2%
TST21
,65%
648

SSKIP THIS TEST
*FIRST PASS ?
SSKIP THIS TEST IF NOT
SCONTINUE WITH THIS TEST
JUMP TO NEXT TEST ===eecccccccccc=- )
::TYPE ASCIZ STRING
“:GET OVER THE ASCIZ

MOV

a¥UNIT,=-(SP)

;GET UNIT UNDER TEST

TYPDS
TYPE
BIT

BNE

TYPE

001223

041456
041514
066720

PAGE 79

157T20:

001100

001223
010000

DRIVE CLEAR

3322 016226 005737 000042

016300
016302
016306

13:06

3318 016206 012737 000020 004604

3332
3333
333,

27=JUL=78

L$CRLF
AMOL , aR3

STYPE IT ouT

:MOL WILL BE HIGH TILL STOP IS HIT
JWAIT TILL STOP IS HIT

66%

,67%

;:TYPE ASCIZ STRING
S GET OVER THE ASCIZ

MOV
TYPDS
TYPE

a#UNIT,-(SP)

J;GET UNIT UNDER TEST
JTYPE IT

BIT
BEQ

#MOL ,aR3
A 3

HAL T
MOV

#RHWC ,RO

JSR
JSR
TYPE

,$CRLF

PC,a#CLDISK
PC,a#(CHECK
JCPHALT

;MOL WILL BE LOW TILL FILE READY
WAIT TILL FILE READY

:SET R1-RHCS1, R2=-RH(CSZ2
:CHECK THAT DVA,RDY,MOL ,DPR,DRY = 1
;CANNOT CONTINUE TESTS IF THEY AREN'T

:STOP

;ADDR. OF ADDR. OF RHWC IN RO

:*NOW INITIALIZE ALL THE REGISTERS

3355
3356
3357

016400
016404
016410

012730
012730
052730

177777
177777
043010

MOV
MOV
BIS

#177777.8(R0O)+
#177777.8(R0O)+
#43010,8(R0)+

;LOAD 177777 INTO RHWC
:LOAD 177777 INTO RHBA
:LOAD 43010 INTO RHCS2

3359

016420

012730

000000

MOV

#0,3(R0)+

SLOAD O INTO RHER1

3358

016414

3360 016424

3361

016430

3363
2364
3365
3366
3367
3368
3369
3370

016440
016444
016450
016452
016454
016456
016462
016464

3362

016434

012730

001400

177777

012730

000000

012730
012730
010046
011446
011246
013700
005012
012705

177777
000000

012730

177777

004742

000010

MOV

MOV
MOV

MOV

MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOV

#1400,3(R0) +

#177777 ,8(RO)+
#0,3(RO)
+

#177777.8(R0)+
#177777.3(R0O)+
#0,3(R0) +
RO.=(SP)
aR4 ,~-(SP)
aR2,-(SP)
Q#TOTALAT,RO
aR2
#8. RS

:LOAD 1400 INTO RHCS?

:LOAD 177777 INTO RHDST
:LOAD 0 INTO RHER2

:LOAD 177777 INTO RHOF

:LOAD 177777 INTO RHCA
:LOAD O INTO RHER3
::PUSH RO ON STACK
;SAVE RHER1 TO REINSTATE LATER
:SAVE RHCS2 TO BE REINSTATED
:GET DRIVES PRESENT
:CLEAR RHCS2 AND CARRY
*COUNTER

SEQ 0078

CZRJICO, RPO4L/5/6 FCTNL C;LS;
CZRJIC. 11
27=-JUuL-78
1

3371

MACY11 30A(1052)
120

88%:

016470
177777

89%:

27-JUL-78

READ=IN-PRESET

;GET BIT INTO CARRY

MOV

#-1,3R4

:MOVE INTO ERROR REGISTER

013777
013777

89%

INC

aR2

BNE

88$

DEC

MoV

16522
016530

7
PAGE 80

ROR

BCC

MOV
MOV
016516

8
13:06

TST

sBRANCH IF NO UNIT ON THIS BIT
s INCREMENT RHCS2 TO NEXT UNIT
: COUNT

:BRANCH IF 8 NOT DONE

(SP)+,aR2
(SP)+,3R4

JREINSTATE RHCS2
:REINSTATE RHER1

(RO)+

;GET OVER_PHAS IN RO

(SP)+,RO

:;POP STACK INTO RO

177776

MOV

#177776,3(R0)+

:LOAD 177776 INTO RHMR

004740
002462

MOV
MOV

GNATTENT ,@RHAS ;CLEAR WORKING DRIVE °ATA’
@#READIN,@RHCST ;GET READY FOR READIN

;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ-IN COMMAND

EELEERLEY

[els (RNTe AV, BN WILN P

3410

016536
016542
016544
016546

004037
002272
004612
000022

041624

016550

013777

004606

016556
016562
016564
016570
016574
016600
016602
016604

005737
001411
013746
052716
012677
011100
011305
000406

004750

016606
016606
016612
016616

013746
052716
012677

JSR

RHW(
SAVERE

RO,a#SAVER

18.

163510

002462
163500

7%:

8%:

104413

:NUMBER OF REGISTERS

Q#RPLVEC ,QRPVEC ;SET RPO4 VECTOR ADDRESS

TST
BEQ
MOV
BIS
MOV
MOV
MOV

aN#RH70
7$

sRUNNING ON AN RH70 CONTROLLER ?
;SKIP NEXT FOR RH70 IF NOT

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

:GET READY TO SET GO
;GO WITH

aR3,R5
8s

MOV

@#READIN,-(SP)

SHREADIN,=(SP)
aR1.R0

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

:GET READY TO MOVE COMMAND

;SAVE RHCS1 DURING ABOVE OPERATION

;SAVE RHDS1 DURING ABOVE OPERATION
;SKIP NEXT FOR RH11
;GET READY TO MOVE COMMAND

;GET READY TO SET 'GO' AND
;GO WITH

WAT

;WAIT FOR VvV BIT TO SET

;VV MUST SET BETWEEN

RHDS1
v
1.

002322
000100
000001
000001

:RMWC IS THE FIRST REGISTER SAVED
:STARTING ADDRESS OF WHERE

MOV

BIS
MOV

163456

:SAVE REGISTERS

;WAIT FOR RHDS1 REGISTER
;WAIT FOR VV BIT IN RHDS1 REGISTER
;ALLOW 10 MICRO SECONDS

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
004037
002312
000000
004037
002304
000000
004037
002310
000003

JSR

RO,a#F ILLRE

;MOV 0 INTO SAVED RHCA

041360

JSR

RO,a#F ILLRE

;MOV O INTO SAVED RHDST

042336

JSR

RO,a#CHREG

:CHANGE BITS IN SAVED REGISTER

041360

SHCA
SHDST
RHOF

'[S):\T,;D REGISTER TO CHANGE
.g:\{ib REGISTER TO CHANGE
s CHANGE RHOF REGISTER

:3 BIT/BITS TO BE CHANGED

SEQ 0079

——

CZRJICO, RPO4/5/6 FCTNL CTLRI
27-JuUL-78 13:05
| CzRUIC.P11
3427
3428

016664
6666

016710
016712

000000
010000
000000
004000
000000
002000
004037
002322
000001
000001
000100

p—

c
MACY11 30A(1052) 27-JUL-78 13:06
READ=IN-PRESET
120

7
PAGE 81
sNEW VALUE
OF FMT22 IS 0

0
FMT22
0
ECI
0
HCI

JSR

042336

?HDS1

;CHANGE FMT22 BIT
:NEW VALUE OF ECI IS 0
;CHANGE ECI BIT

:NEW VALUE OF WCI IS 0

RO, a#CHREG

sCHANGE HCI BIT

:CHANGE BITS IN SAVED REGISTER
;CHANGE RHDS1 REGISTER
;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF wv IS 1
;CHANGE Vv BIT

;*NOW THAT SAVERE TABLE WITH SAVED REGISTERS HAVE
s*THE EXPECTED VALUE AFTER A READ-IN COMMAND
;*COMPARISONS ARE MADE
016714
016720
016722
016724
016726
016730

004037
004612
002354
000022
016732
016736

016732
016734

104020
000207

JSR

042444

RO,a#COMREG

;COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN *SAVERE'
;TEST DATA STARTING FROM ‘'RHWC®

:18. REGISTERS TO BE COMPARED

:RETURN TO 58 ON ERROR

;RETURN TO 6% ON NO ERROR

5%:

ERROR

RTS

;READ IN COMMAND GAVE AN
;ERROR
;GOOD DATA HAS WHAT SHOULD
;BE IN REGISTER AFTER A
;READ=IN COMMAND
sRECEIVED DATA HAS WHAT
sTHE REGISTER ACTUALLY CONTAINED
:THE FOLLOWING SHOULD

;BE THE REGISTER CONTENTS

:RHCA=0, RHDST = 0

:RHOF SHOULD HAVE FMT22
= 0.
:HCI = 0, ECI = 0,
= 1
RHDS1 SHOULD HAVE v
016736

012737

177777

047274

6%:

MOV

#-1,a4PRITEM

;ALL OTHER BITS SHOULD
;BE UNCHANGED

:CLEAR PREVIOUS ITEM NUMBER

SEQ 0080

—

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27=-JUL-78 13:05

D
MACY11 30A(1052)
27-JUL-78 13:06
READ=IN-PRESET
120

1ST121:

016744
016746
016752
016760
016764
016770
016774
016776

7
PAGE 82

#STACK,SP
#21 ,aNTSTNM
PC.,a#CLDISK
PC,a#CHECK

004604

sRESET STACK
;SAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(S2

;CHECK THAT DVA,RDY,MOL ,DPR,DRY = 1

.CPHALT

:gWT CONTINUE TESTS IF THEY AREN'T

#RHWC ,RO

*ADDR. OF ADDR. OF RHWC IN RO

s*INITIALIZE ALL THE REGISTERS

017046
017052
017056

043010
001400
000000
177777
000000
177777
177777
000000
177777
177776

017062
017070

013777
013777

004740
002462

#177776.,3(RO)+

;LOAD 177777 INTO RHWC
;LOAD 177777 INTO RHBA
;LOAD 43010 INTO RHCSZ2
;LOAD 1400 INTO RHCS1
;LOAD O_INTO RHER1
;LOAD 177777 INTO RHDST
;LOAD O_INTO RHER2
;LOAD 177777 INTO RHOF
;LOAD 177777 INTO_RHCA
;LOAD O INTO RHER3
;CLEAR ALL BITS OF RHAS
;LOAD 177776 INTO RHMR

ANATTENT ,aRHAS
@#READIN,IRHCS1

;CLEAR WORKING DRIVE 'ATA'
;GET READY FOR READIN

#177777 ,8(RO) +
#177777.3(R0)
+
#43010,3(R0)+
#1400,3(R0)
+

177777
177777

012730
012730
052730
012730
012730
012730
012730
012730
012730
012730
012730
012730

#0,a(R0O)+

#177777 ,8(R0O)+

#0,3(R0)+

#177777 ,8(R0) +

#177777.3(R0)
+
#0,3(RO)+
#-1,3(RO)+

163226
163202

;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ-IN COMMAND
017076
017102
017104
017106

004037
002272
004612

041624

017110

013777

004606

017116
017122
017124
017130
017134
017140
017142
017144

005737
001411
013746
052716
012677
011100
011305
000406

004750

017146
017146
017152
017156

013746
052716
012677

017162
017162
017164

104413

002300

JSR
RHWC

RO,a#SAVER

SAVERE
18.

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

a#RP4LVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

163150

, S#RH70
9%
a#READIN,~(SP)

002462
000001
163140

#GO, (SP)

(SP)+,@RHCS1
aR1,R0
aR3,R5
108

9%:

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

163116
108:

:RUNNING ON AN RH70 CONTROLLER ?
;SKIP NEXT IF NOT
;GET READY TO MOVE COMMAND
;GET READY TO SET GO
;GO WITH

;SAVE RHCS1 DURING ABOVE OPERATION

;SAVE RHDS1 DURING ABOVE OPERATION
:SKIP NEXT RH11 CODE
;GET READY TO MOVE COMMAND
;GET READY TO SET 'GO' AND
;GO WITH

;WAIT FOR RDY BIT TO SET

;WAIT FOR RHCS1 REGISTER

SEQ 0081

—

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIIC.PN
27-JuL-78 13:05
3522
3523
3526

017166
017170
017172

MACY11 30A(1052)
121

27-JUL-78

E
13:06

READ=IN-PRESET

7
PAGE 83

JWAIT FOR RDY BIT IN RHCST REGISTER
sALLOW 10 MICRO SECONDS
sRDY MUST SET BETWEEN

RDY
1.
1.

000200 .
000001
000001

SEQ 0082

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
3528
3529

017174
017200

004037
002312

041360

3531
3532

017204
017210

004037
002304

041360

3534
3535

017214
0:7220

004037
002310
000003

042336

000000

JSR

RO,a#F ILLRE

JSR

RO,a#F ILLRE

JSR

RO,a#CHREG

gHCA
SHDST
RHOF

3
0

FMT22

0
ECI
0
3543

017240

004037

3547

017252

000100

HCI

JSR

042336

RHDS1
1
1
v

RO,a#CHREG

;sMOV 0 INTO SAVED RHCA

.‘g:\TIED REGISTER TO CHANGE

sMOV O INTO SAVED RHDST

.g:\{ib REGISTER TO CHANGE

:CHANGE BITS IN SAVED REGISTER

; CHANGE RHOF REGISTER

;3 BIT/BITS TO BE_CHANGED
sNEW VALUE OF FMT22 IS 0
;CHANGE FMTZ22 BIT
sNEW VALUE OF ECI IS 0
;CHANGE ECI BIT
sNEW VALUE OF HCI IS O
s CHANGE HCI BIT
;CHANGE BITS IN SAVED REGISTER
s CHANGE RHDS1 REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF wv IS 1
;CHANGE Vv BIT

;*NOW THAT SAVERE TABLE WITH SAVED REGISTERS HAVE
;*THE EXPECTED VALUE AFTER A READ-IN COMMAND
;*COMPARISONS ARE MADE
3553
3554
3555
3556
3557
3558

017254
017260
017262
017264
017266
017270

004037
004612
002354
000022
017272
017276

3560
3561

017272
017274

104020
000207

042444

JSR
SAVERE
w(

RO,a#COMREG

ERROR

18.
5%
6%

5%:

RTS

;COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'
sTEST DATA STARTING FROM ‘RHWC'
:18. REGISTERS TO BE COMPARED
sRETURN TO 58 ON ERROR
;RETURN TO 6% ON NO ERROR

;READ=IN COMMAND GAVE AN
s ERROR

;GOOD DATA HAS WHAT SHOULD
;BE IN REGISTER AFTER A
;READ=IN COMMAND

JRECEIVED DATA HAS WHAT
;THE REGISTER ACTUALLY CONTAINE
;THE FOLLOWING SHOULD
;BE THE REGISTER CONTENTS
;RHCA = 0, RHDST = 0

;RHOF SHOULD HAVE FMT22 = 0,
;HCI = 0, ECI = 0,
;RHDS1

3575

017276

6%:

SHOULD HAVE WV = 1

;ALL OTHER BITS SHOULD
;BE UNCHANGED

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27=-JuL~78 13:05

3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590

017276
017302
017304
017306
017312

005737

001401
000402
000137

30A(1052)
27=JUL-78 13:06
READ=IN-PRESET
T21

004744
-

017352

017312
017314
017320
017326
017332
017340
017344
017346
017352
017352
017354
017360
017366
017372
017400
017404

MACY11

8$:
TST22:

004604

DOG:

TST23:

004604
162720

a¥RPO6

JMP

a#D0G

SCOPE
MOV

SEQ 0083

;TEST FOR RPO6 DRIVE

7$
8$

:IF = 0, TREAT DRIVE AS AN RPO4
;TREAT AS RPO6 = DO NEXT 'MAKECL''

W#STACK,SP

sRESET STACK

;DO SECOND FOLLOWING "MAKECL''

MOV

#23<1,a4TSTNM
PC,a#CLDISK
#DMD
, aRHMR
RO, a#MAKECYL

;THIS SAVES TEST NUMBER
sINIT DRIVE
;SET DIAGNOSTIC MODE
sSUBROUTINE TO GIVE A SEEK

JMP

a#f ISH

;DON'T DO NEXT "MAKECL''

SCOPE
MOV

#STACK,SP

;RESET STACK

JSR
MOV
%;g

PC,a#CLDISK
#DMD
, aRHMR
RO, a#MAKECYL

sINIT DRIVE
sSET DIAGNOSTIC MODE
:SUBROUTINE TO GIVE A SEEK

JSR
MOV
JSR
777

162760

001000
000023
041456
000001
041126

TST

BEQ
BR

PAGE 84

MOV

#246=1 ,aNTSTNM

;THIS SAVES

TEST NUMBER

=—

CZRJIICO, RPO4/5/6 FCTNL CTLR1

CZRIIC.P1

27-JUL-78 13:05

MACY11 30A(1052)
123

27-JuL-78

13:06

PAGE 85

SEQ 0084

MAKE CURRENT CYLINDER = 377

3603

3604
3605

3606
3607

3608

017406
017406

017410

000004
012706

001000

017422
017426
017432

004737
004737
104401

041456
041536
066720

FISH:
1ST24:

3609 017414 012737 000024 004604
3610
3611
2612

3613
3614
3615
3616
2617
3618
3619

017436
017440
017444
017450
017454
017460
017464

000000
012700
012730
012730
052730
012730
012730

MOV

JSR
JSR
TYPE

HALT
MOV
MOV
MOV
BIS
MOV
MOV

002272

177777
177776
000010
001400
000000

MOV

017470 012730 177777
3620
3621 017474 012730 000000

MOV

3622 017500 012730 177777
3623

017504

012730

2625
3626
2627
3628
2629

017514
017516
017520
017522
017526

010046
011446
011246
013700
005012

MOV

177777

MOV

3624 017510 012730 000000

3630
3631
2632
3633
2634
3635
3636

017530
017534
017536
017540

017544

017546

012705
006000
103002
012714

005212

MOV
MOV
MOV
MOV
CLR

000010

84%:

177777

85%:

005305

3638
3639

001371
012612
012614
012600

;gz;

017562

012730

177776

ggzz

017566

013777

002426

3637

MOV

004742

017550
017552
017554
017556

3640 017560 005720

MOV
ROR
BCC
MOV

INC

DEC

BNE
MOV
MOV
MOV
.
162504

#STACK, SP

;RESET STACK

PC,a#CLDISK
PC.a#CHECKT
LCPHALT

“SET R1-RHCS1, R2-RHCS2
*CHECK DVA,RDY,MOL,DPR,DRY,VV = 1

#24 ,INTSTNM

*SAVE TEST NUMBER

*CANNOT CONTINUE TESTING IF ANY OF

#177777 ,8(RO)+
#177776.3(R0)+
#010,a(R0) +
51400 a(RO)+
a(RO)+

:STOP
*ADDR. OF ADDR. OF RHWC IN RO
:LOAD 177777 INTO RHWC
:LOAD 177776 INTO RHBA
*LOAD 010 INTO RHCS2
:LOAD 1400 INTO RHCS1
“LOAD O INTO RHER1

#0,3(R0)+

:LOAD O INTO RHER2

#177777.3(R0)+

:LOAD 177777 INTO RHCA

#RHWC ,RO

01?7777 a(RO)+ :LOAD 177777 INTO RHDST
#177777.,8(RO)+

#0,3(R0) +

RO.=(SP)
aRé ,=(SP)
aR2.-(SP)
#TOTALAT,RO
aR2
#8. RS
RO
85$
#-1,3R4

aR2
RS

84$
(SP)+,aR2
(SP) +.aR4
(SP)+.R0

(RO) +

:LOAD 177777 INTO RHOF

SLOAD O INTO RHER3

2;PUSH RO ON STACK
*SAVE RHER1 TO REINSTATE LATER
“SAVE RHCS2 TO BE REINSTATED
:GET DRIVES PRESENT
SCLEAR RHCS2 AND CARRY
:COUNTER
:GET BIT INTO CARRY
*BRANCH IF NO UNIT ON THIS BIT
“MOVE INTO ERROR REGISTER

*INCREMENT RHCS2 TO NEXT UNIT
COUNT

*BRANCH IF 8 NOT DONE
*REINSTATE RHCS2
*REINSTATE RHER1
::POP STACK INTO RO

*GET OVER PHAS IN RO

MOV

#177776.,3(R0)+

:LOAD 177776 INTO RHMR

MOV

@H#RECALI,@RHCS1 ;GET READY FOR RECAL!

:*NOW SAVE REGISTERS FOR COMPARISON AFTER RECAL IBRATE

;gzg
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658

SCOPE
MOV

017574
017600
017602
017604
017606
017614
017620
017624
017630
017632
017634
017636

004037
002272
004612
000022
013777
013746
052716
012677
011100
011305
104413
002322

041624

004606
002426
000101
162450

162452

JSR
RHWC
SAVERE
18.
MOV
MOV
BIS
MOV
MOV
MOV
WAT
RHDS1

RO, a#SAVER

:SAVE REGISTERS
“RHWC IS THE FIRST REGISTER SAVED
*STARTING ADDRESS OF WHERE
*NUMBER OF RSGISTERS
AH#RP4LVEC ,aRPVEC :SET RP0O4 VECTOR ADDRESS
AMRECALI.-(SP)
:GET READY TO MOVE COMMAND
#GO'IE, (SP)
*GET READY TO SET 'GO' AND
(SP)+,aRHCS1
26O WITH
aR1,R0
*SAVE RHCS1 DURING ABOVE OPERATION
aR3,RS
*SAVE RHDS1 DURING ABOVE OPERATION
“WAIT FOR DRY BIT TO SET
:WAIT FOR RHDS1 REGISTER

;

BIS
BIS

MOV
CMP
BEQ

88%:

MOV
MOV
ERROR
MOV
MOV

CMP
BEQ
MOV
MOV
ERROR

;CLEAR IE IN GOOD DATA

aNTMPS, (SP)
;GET IE AS IS
;SET _SC IN RHCS1
#SC, (SP)
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
;DURING ABOVE OPERATION ONLY DVA!GO!IE:!RDY
(SP)+,RO
88$
;BRANCH IF GOOD
;BAD DATA
RO,a#$BDDAT
R1,a#REGADR
sFAILING REGISTER RHCS1
:DURING ABOVE OPERATION ONLY
21
#MOL 'DPR!VV'PIP,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1
:SAVE FOR PRINTOUT
(SP) .a#$GDDAT
:DURING ABOVE OPERATION ONLY MOL !DPR!VV!PIP
(SP)+,R5
90%
:BRANCH IF GOOD
:BAD DATA
RS ,a#$BDDAT

R3,a#REGADR
63

;FAILING REGISTER RHDS1

*DURING ABOVE OPERATION ONLY

:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES
017762
017766
017770
017772
017776
020000
020002
020010
020014
020016
020020
020024
020026

041360
041360
004740
041360

JSR

RO, @4F ILLRE

:MOV 0 INTO SAVED RHCC

JSR

RO, a#F ILLRE

MOV 116377 INTO SAVED RHOF

BIS

QNATTENT ,@#SAVERE +24

8““
RHOF
116377

004636

JSR

RHCS1

104206

JSR

041360

RHDS1
110700

:g:\rlib REGISTER TO CHANGE
*SAVED REGISTER TO CHANGE
*DATA

;SET APPROPRIATE 'ATA' BITS

RO, a#F ILLRE

sMOV 104206 INTO SAVED RHCS1

RO,a#F ILLRE

;MOV 110700 INTO SAVED RHDS1

;SAVED REGISTER TO CHANGE
;DATA

;*NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND
JSR
SAVERE
WC

042444

RO,a#COMREG

18.
1%
2%
1%:

ERROR
RTS

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

:RETURN TO 1$ ON ERROR
:RETURN TO 2$ ON NO ERROR
64
PC

sRECALIBRATE COMMAND CAUSED
;AN ERROR

;GOOD DATA GIVES WHAT SHOULD
:BE THERE

#1E, (SP)

;BRANCH IF ONLY ONE UNIT
;GET RHCS1
;KEEP IE BIT

004760

89%
RO, a#TMP4
#*CIE ,aNTMPS

BIC

BEQ
MOV
BIC

@NRECALI
,-(SP)
;SAVE COMMAND
; INCLUDE DVA!GO!IE:RDY
#DVA!GO!IE'!RDY, (SP)
ANUNIT
;ARE THERE MORE THAN ONE UNIT

MOV
BIS
TST

042737

JWAIT FOR DRY BIT IN RHDST REGISTER
JALLOW 319990 MICRO SECONDS
;DRY MUST SET BETWEEN

| ¢z

DRY
31999.
24001.

000200
076377
056701
013746
052716
005737
001413
010037

SEQ 0085

RECAL IBRATE COMMAND

PAGE 86

017640
017642
017644

13:06

3659

T24

27=JUL-78

MACY11 30A(1052)

CZRJICO, RPO4/5/6 FCTNL
CZRIIC.P1
27=JuUL~-78

el bl

2%:

3718 020052

;THERE AFTER COMMAND

;RECEIVED DATA GIVES WHAT WAS

g;}g

cZi
$1

2715

SEQ 0086

MACY1I BCT)A('IOSZ) 27-JUL-78 13:06 PAGE 87
24
RECAL IBRATE COMMAND

CZRJICO, RPO4/5/6 FCTNL CTLRT
LCRIIC.P1T
27-JUL-78 13:05

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRIIC.PM
27=JuL~78 13:05

|
|

020052
020056

005737
001401
000402
000137

d 7
MACY11 30A(1052)
27-JUL-78 13:06 PAGE 88
RECALIBRATE COMMAND
T24

004744
3%:

020126

A ¥

1ST25:

020066

020074
020102
020106
020114
020120
020122
020126
020126
020130
020134
020142
020146
020154
020160

004604
162204

TST
BEQ
BR

A#RPOG
3%
4$

;TEST FOR RPO6 DRIVE

SCOPE
MOV
MOV
JSR
MOV
JSR

#STACK,SP
#26=1,a4TSTNM
PC,a#CLDISK
#DMD
, 3RHMR

RO, a#MAKECYL

JRESET STACK
;THIS SAVES TEST NUMBER
sINIT DRIVE
;SET DIAGNOSTIC MODE
;SUBROUTINE TO GIVE A SEEK

JMP

a#BIRD

;DON'T DO NEXT "MAKECL''

#STACK,SP
#27=1,INTSTNM
PC,a#CLDISK
#DMD
, 3RHMR

sJRESET STACK
;THIS SAVES TEST NUMBER
;INIT DRIVE
;SET DIAGNOSTIC MODE
;SUBROUTINE TO GIVE A SEEK

JMP

777

CAT:
TST26:

004604
162144

000377

SCOPE

MOV
MOV

JSR

MOV
JSR

377

a#CAT

RO, a#MAKECYL

;IF = 0, TREAT DRIVE AS AN RP0O4

;TREAT AS RPO6 - DO NEXT 'MAKECL'

;DO SECOND FOLLOWING "MAKECL''

SEQ 0087

MOV

#RHWC RO

;ADDR. OF ADDR OF RHWC IN RO

MOV
MOV
BIS
MoV
MOV

#0,3(R0O)+
#0,a(R0O) +
#0,3(RO) +
#0,3(R0O) +
#0,3(R0O) +

;LOAD 0
;LOAD O
;LOAD O
sLOAD O
;LOAD O

MOV
MOV

#0,a(R0O) +
#0,a(RO) +

;LOAD O INTO RHERZ2
;LOAD O INTO RHOF

#0,3(R0) +
#-1,3(RO)+
#0,a(R0O) +

;LOAD O INTO RHER3
;CLEAR ALL BITS OF RHAS
;LOAD O INTO RHMR

TYPE
HALT

MOV

012730
012730
012730
012730
012730
013777

MOV

177777
000000
002426

MOV
MOV
MOV

161772

MOV

JCPHALT

#0,a(RO) +
#0.a(RO)+

;CANNOT CONTINUE TESTING IF ANY OF
;STOP

INTO RHWC
INTO RHBA
INTO RHCS2
INTO RHCS1
INTO RHER1

;LOAD O INTO RHDST
;LOAD O INTO RHCA

@#RECALI ,aRHCST1 ;GET READY FOR RECALI

;*NOW SAVE REGISTERS FOR COMPARISON AFTER RECALIBRATE
004037
002272
004612
000022
013777
013746
052716
012677
011100
011305
104413
002322
000200
076377
056701
013746

JSR
RHWC
SAVERE
18

041624

004606
002426
000101
161736

161740

RO,a#SAVER

MOV
MOV
BIS

@#RP4LVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS
a#RECALI,-(SP)
;GET READY TO MOVE COMMAND
#GO!IE, (SP)
;GET READY TO SET 'GO' AND

MOV
MOV

aR1,RO
aR3.R5

MOV
WAT

(SP) +,aRHCS1

RHDS1

DRY
31999.
24001.

MOV

002426
004301
001124
001126
004600

030500
001124

88%:

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

;GO WITH

;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION
;WAIT FOR DRY BIT TO SET

;WAIT FOR RHDS1 REGISTER

a#RECALI,-(SP)

;WAIT FOR DRY BIT IN RHDS1 REGISTER
sALLOW 319990 MICRO SECONDS
;DRY MUST SET BETWEEN
;SAVE COMMAND

BIS
MOV
CMP
BEQ
MOV
MOV
ERROR

#DVA!GO! IE !RDY, (SP)
: INCLUDE DVA!GO'!IE!RDY
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,R0
;DURING ABOVE OPERATION ONLY DVA!GO!IE!RDY
88%
;BRANCH IF GOOD
RO,a#$BDDAT
;BAD DATA
R1,a#REGADR
;FAILING REGISTER RHCS1
21
;DURING ABOVE OPERATION ONLY

BEQ

90%

Mov
MOV
CMP

#MOL !DPR!VV!PIP,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDSI1
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,R5
;DURING ABOVE OPERATION ONLY MOL !DPR!VVIPIP
;BRANCH IF GOOD

A S MAMDNADNAAMADNMAMARMAMBAMANBRNAAMAMADBRNRBADBANDBANDBNADNBADLDNANBANDLDDEDDDLD
DD DD

JRESET STACK
;SAVE TEST NUMBER
;SET R1-RHCS1, R2-RH(S2
;CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1

#STACK,SP
#27 ,aNTSTNM
PC,a#CLDISK
PC,a#CHECKT

AAA

MOV
MOV
JSR
JSR

004604

CZR
CZR

A A

BIRD:
1S127:

020162

SEQ 0088

CZRJIC.PN

27=JUL~78 13:05

K 7
MACY11 30A(1052)
27-JUL-78 13:06 PAGE_89
126
MAKE CURRENT CYLINDER = 377

F CZRJICO, RPO4/5/6 FCTNL CTLRY

020440
020444
020446
020450
020456

004037
002334
000000

041360

004740
042336

MOV
MOV

RS ,a#$BDDAT
R3,a#RCGADR

;BAD DATA
sFAILING REGISTER RHDS1

JSR

RO, a#F ILLRE

sMOV 0 INTO SAVED RHCC

BIS

QFATTENT ,a#SAVERE +24

:DURING ABOVE OPERATION ONLY
63
ERROR
;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES

SHCC

004636

JSR
RHDS1
1
1
ATA

JSR
RHCS1T

042336

RO,a#CHREG

RO, a#(CHREG

1
1
SC

020502
020504

:g:¥iD REGISTER TO CHANGE

:SET APPROPRIATE ‘'ATA' BITS

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

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

;CHANGE SC BIT

;*NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND
020506
020512
020514
020516
020520
020522

004037
004612
002354
000022
020524
020530

020524
020526

000207

020530

104064

0462444

JSR
SAVERE
w(
18.

RO, a#COMREG

JRETURN TO 1% ON ERROR

2%
1%:

2%:

ERROR
RTS

;COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'
:TEST DATA STARTING FROM 'RHW(C'
:18. REGISTERS TO BE COMPARED

JRETURN TO 2% ON NO ERROR
64
PC

JRECAL IBRATE COMMAND CAUSED
;AN ERROR

;GOOD DATA GIVES WHAT SHOULD BE

: THERE
JRECEIVED DATA GIVES WHAT WAS
;THERE AFTER A RECALIBRATE

()
~N
o

A sadbAAMABMAMAMAMRNAMAMAMRAMRAMAMAANDLNRBAAMARLANANADLNNBANANDBRDBANDNDRNDDDDIDDDDDDDDDDDDDD

001126
004600

010537
010337
1046063

SEQ 0089

020426
020432
020436

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRIIC.PN
27-JuL-78 13:05

MACYT1 30A(1052)
27-JUL-78 13:06 PAGE 90
RECAL
IBRATE COMMAND
127

M7
27-JUL-78 13:06 PAGE 91
MACY11 30A(1052)
T30
UNLOAD COMMAND
1ST130:

020530

SCOPE
TST

020532
020536
020540
020544

BNE

TST
BNE

TST

BNE

BR
JMP
MOV
MOV
JSR
JSR

004604

SEQ 0090

TYPE

HALT

1ST31

#STACK, SP
#30,a4TSTNM
PC,@#CLDISK
PC,a#CHECKT

LCPHALT

;1S THIS A 220 START ?
;SKIP THIS TEST IF SO
JMONITOR (ACT 11) RETURN ADDRESS ?
;SKIP THIS TEST
sFIRST PASS ?
;SKIP THIS TEST IF NOT
sCONTINUE WITH THIS TEST

AP 10 NEXT TEST ommecansamtamsan )

SJRESET STACK
;SAVE TEST NUMBER
;SET R1-RHCS1, R2-RH(S2
;CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1
:g?ggOT CONTINUE TESTING IF ANY OF

;*THIS SETTING OF Vv IS FOR LOOP ON ERROR ONLY
s *WHERE UNLOAD TAKES EFFECT AND CYCLE UP BRINGS VV DOWN
017746
042716

161504
167677

010100
020636
020722

020772

020774

041456
041514
066720

021000
021004
021010

MOV
BIC
(MP
BEQ
TYPE
BR
TYPE
BR
HALT

aRHDS1,~(SP)

JSR
JSR
TYPE
HALT

PC,a#CLDISK
PC,a#(CHECK

#167677, (SP)

#VV'MOL, (SP)+

6%
.65%
64%
,67%
66%

LCPHALT

;PUSH RHDST1 ONTO STACK
;CLEAR EVERYTHING EXCEPT VV AND MOL
;ARE VV AND MOL SET ?
JCONTINUE IF YES
;:TYPE ASCIZ STRING

::GET OVER THE ASCIZ
;:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
;WAIT FOR CONTINUE
;SET R1-RHCS1, R2-RH(CS?2
;CHECK THAT DVA,_RDY,MOL ,DPR,DRY = 1
g?GQOT CONTINUE TESTS IF THEY AREN'T

;*SET VV IN RHDS1 WITH PACK ACKNOWLEDGE
021012
021016
021022

013746
052716
012677

021026
021030
021032
021034
021036

002322
000100
000001
000001

002460
000001
161252

MOV
BIS
MOV

104413

, = (SP)
a#PKACK

#G0, (SP)

(SP) +,@RH(CS1

WAT
RHDS1

;WAIT FOR Vv BIT TO SET

%
1.

;ALLOW 10 MICRO SECONDS
;VV MUST SET BETWEEN

;WAIT FOR RHDS1 REGISTER
;WAIT FOR VV BIT IN RHDS1 REGISTER

021040
021040
021044
021046
021050

004737
000240
000240

041536

021052

012700

002272

000240

6%:

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

JSR
NOP
NOP
NOP

PC,a#CHECKT

MOV

#RHWC ,RO

;CHECK DVA,RDY ,MOL,DPR & VV = 1
;CHECK THAT ALL OTHER BITS
= 0
*UNLIKE THE OTHER STATUS BIT TESTS,
;THERE

IS NO HALT

IT FAILS = IT

;ADDR. OF ADDR OF RHWC IN RO

;*LOAD ALL POSSIBLE REGISTERS WITH ONES

AAAAAAMAMARAAARDNRAMAARNMAARANRNBNDNBADLNABRNDNDNDADNBRNDNDDEDDDDDDDDDDDDDIDDDDDODEDIDD

CZRJICO, RPO4/5/6 FCTNL
CZRJIC.PN
27-JuL~-78

103002

021160
021162
021164
021166
021170
021172
021174
021200

012714
005212
005305
001371
012612
012614
012600
005720
012730
013777

#0,3(RO)
+

*LOAD O INTO RHER1

91%:
92%:

aRé ,=(SP)
aR2,-(SP)
NTOTALAT,RO
aR?
#8. .R5
RO
92%
#-1,aR4

BNE
MOV
MOV
MOV
MOV

#177776,a(R0O)+

MOV

(RO) +

@#UNLOAD ,aRH(CST

*;PUSH RO ON STACK

“SAVE RHER1 TO REINSTATE LATER
*SAVE RHCS2 TO BE REINSTATED
:GET DRIVES PRESENT
;CLEAR RHCS2 AND CARRY
s COUNTER
;GET BIT INTO CARRY
JBRANCH IF NO UNIT ON THIS BIT
sMOVE INTO ERROR REGISTER

s INCREMENT RHCSZ2 TO NEXT UNIT
s COUNT
JBRANCH IF 8 NOT DONE
JREINSTATE RHCSZ2
JREINSTATE RHER1
;;POP STACK INTO RO
;GET OVER PHAS

IN RO

LOAD 177776 INTO RHMR
;GET READY FOR UNLOAD

;*NOW SAVE REGISTERS FOR COMPARISON AFTER UNLOAD
041624

021206
021212
021214
021216

004037

021220

013777

004606

021226
021232

013746
052716
012677
011100
011305

002424
000001

021236
021242
021244
021246

021250
021252
021254
021256

002272

JSR
RHW(

SAVERE

004612
000021

104413
002300
000200
000001
000001

RO, a#SAVER

161036

161040

;SAVE REGISTERS
JRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF

¥,

;NUMBER OF REGISTERS

WHERE

MOV

A#RPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV

a#UNLOAD ,-(SP)

MOV

aR3.R5

BIS
MOV
MOV

#G0, (SP)
(SP) + ,@RH(S1
aR1,R0

;GET READY TO MOVE COMMAND

;GET READY TO SET GO
;G0 WITH
;SAVE RHCS1 DURING ABOVE OPERATION

;SAVE RHDS1 DURING ABOVE OPERATION

WAT

;WAIT FOR BIT

RDY

:'RDY* BIT

RHCS1T

1.
-¥

)

TMTM

:LOAD 0 INTO RHER3

:LOAD 177777 INTO RHCA

RO,=-(SP)

aR?
RS
91%
(SP) +,aR2
(SP)+,aR4
(SP)+,RO

INC

DEC

161072

#0,3(R0O) +

:LOAD 177777 INTO RHOF

TO SET

;IN RHCS1 REGISTER

;ALLOW 10 MICRO SECONDS
SANOTHER 10 - "RDY' MUST SET BETWEEN
;00 AND 20 MICRO SECONDS

MOV
MOV
MOV
CLR
MOV
ROR
B8CC
MOV

#177777.3(R0)+

*LOAD O INTO RHER2

MOV

#177777.,8(RO)+

:LOAD 177777 INTO RHDST

MOV

#0,a(RO)
+

MOV

#177777.3(RO)+

:LOAD 1400 INTO RHCS1

MOV

#1400,3(R0)+

af ol

MOV

Tk a

;LOAD 177777 INTO RHW(C
;LOAD 177777 INTO RHBA
;LOAD 10 INTO RH(CS?

MOV

177777

002424

#17777” ,8(RO)+
#177777 ,8(R0O)+
#10,8(RO)+

MOV

000010

177776

MOV
MOV
BIS

MOV

004742

SEQ 0091

000010
001400
000000
177777
000000
177777
177777
000000

UNLOAD (COMMAND

7
PAGE 92

012730
012730
012730
010046
011446
011246
013700
005012
012705
006000

177777
177777

N
13:06

012730

130

27=JUL-78

3893
3894
3895
3896
3897
3898
3899
3900
3901
3902

MACY11 30A(1052)

(ZRJICO, RPO4/S5/6 FCTNL CTLRI
CZRIIC.PN
27-JuL-78 13:05

CZRJICO, RPO4/5/6 FCTNL CTLR1

|csz1c.P11

27=JUL-78 13:05

MACY11 30A(1052)

130

3944

3945

27-JuL-78

13:06 PAGE 93

UNLOAD COMMAND

:*COMPARE CONTCNTS OF RHCS1 AND RHMDS1, WHICH WERE SAVED

:*DURING THE UNLOAD COMMAND, WITH THE EXPECTED RESULTS

%gzg

3948 021260 013746 002424

MOV

SFUNLOAD ,=(SP)

;PUSH COMMAND ON STACK

3950
3951
3952
3953
3954
3955
%355?
3958
3959
2960
3961
3962
3963

ST
BEQ
MOV
BIC
BIC
BIS
BIS
MOV
CMP
BEQ
MOV
MOV

SINUNI T
9s
RO, ANTMPS
#~CIE,aNTMP
#1E,(SP)
NTMPG, (SP)
#SC, (SP)
(SP) ,a#$GDDAT
(SP)+,R0
108
RO, a#$BDDAT
R1.34#REGADR

:1S THERE MORE THAN ONE UNIT ?
“SKIP NEXT IF ONLY ONE UNIT
:PUT SAVED RHCS1 INTO TMP4
*MASK ALL BUT THE 'IE®' BIT IN RHCS1
SCLEAR *IE' IN EXPECTED DATA
:SET 'IE' STATE FROM ACTUAL RHCS1 DATA
SSET *SC' IN RHCS1 SAVED DATA
:SAVE EXPECTED DATA FOR PRINTOUT
:COMPARE EXPECTED DATA WITH SAVED
:RHCS1 DATA AND RESET THE STACK
:CHECK NEXT BITS IF THESE OK
*RHCS1 IS BAD = PRINT IT OUT
*REGISTER ADDRESS

3049

3964

3965

021264

021270
021274
021276
021302
021310
021314
021320
021324
021330
021332
021334
021340
021344

052716

005737
001413
010037
042737
042716
053716
052716
011637
022600
001405
010037
010137
104021

004201

004722
004760
177677 004760
000100
004760
100000
001124
9s:
001126
004600

BIS

ERROR

#DVA'GO'RDY,(SP) ;INCLUDE THESE BITS SET

S'DVA', 'GO', 'RDY' AND COMMAND BITS

:SHOULD BE SET

;ggg
|

:DURING ABOVE OPERATION ONLY THE

3968 021346 012746 020400
3969 021352 010537 004760

MOV
MOV

#PIP'DPR,-(SP)
RS, ¥ TMP4

:PUT SOME EXPECTED RHDS1 BITS ON STACK
“PUT SAVED RHDS1 INTO TMP4

BIC
BIS

#MOL 'VV, (SP)
aFTMPL, (SP)

0213764 011637 001124
021400 022605

MOV
CMP

(SP) ,a#$GDDAT
(SP)+,RS

SCLEAR 'MOL' & 'VV' IN EXPECTED RHDS1
:SET EXPECTED 'MOL' & °'VV' BIT STATES
:FROM THE ACTUAL DATA (DON'T CARE)
:SAVE EXPECTED DATA FOR PRINTOUT
:COMPARE EXPECTED DATA WITH SAVED

021402

001405

BEQ

118

:RHDS1 DATA AND RESET THE STACK
SCONTINUE IF EXPECTED=SAVED

3980

021414

104063

ERROR

:DURING THE ABOVE OPERATION, ONLY ‘PIP

;ggz

021416

3985

021416

,96%

::TYPE ASCIZ STRING

3970

3971
3972
3973
3974
3975

3976
3977

021356

042737

167677

021364 042716 010100
021370 053716 004760

108:
004760

BIC

3978 021404 010537 001126
3979 021410 010337 004600
3981
3982

RS, a#$8DDAT
R3.a#REGADR

11$:

104401

3086 021422 000425
gggg

MOV
MOV

#*C<MOL 'VV>,a#TMP4 :MASK ALL BUT *MOL' & 'VV' IN RHDS1

021424

TYPE

95%

:RHDS1 IS BAD = PRINT IT OUT
:REGISTER ADDRESS

:AND 'DPR' SHOULD BE SET
S'MOL' & 'VV' ARE DON'T CARES

::GET OVER THE ASCIZ

:THIS PROVIDES A 1 SECOND ‘'STALL''

SEQ 0092

CZRJICO, RPO4/5/6 FCTNL CTLRI
27-JUL-78 13:05
CZRIIC.PN

MACY11 30A(1052)
730

27-JUL-78

C
13:06

UNLOAD COMMAND

8
PAGE 94

SEQ 0093

;*NOW CHANGE REGISTERS SAVED BEFORE UNLOAD COMMAND
;*TO EXPECTED VALUES AFTER UNLOAD COMMAND
;% = AGAIN 'MOL' $ 'VV' ARE DON'T CARES

021476
021502
021510
021516
021522

012746
017737
042737
042716
053716

004760
004760

021526
021532

042716
012637

021536
021542
021544
021546
021550

004037
002300
000001

021552
021556
021560
021564
021566
021570
021572
021574
021574

005737
001006
004037
002300
000001
000000

004722

043737

004740

BIC
BIS

;SET EXPECTED FINAL RHDS1 BITS
:GET PRESENT ACTUAL RWSl.C('N!sc!S
#-C<MOL
!VV> ,a#TMP4 ;MASK OUT ALL BUT "MOL
! VYV, (SP)
#MOL
;CLEAR 'MOL' & "VV' IN EXPECTED RHDS1
NTMPS, (SP)
sSET EXPECTED 'MOL' & 'VV' STATES

BIC

#ATA!DRY, (SP)

#PIP!DPR,=(SP)
@RHDS1,a#TMPS

MoV
MOV

BIC

:CLEAR THESE ADDITIONAL RHDS1 BITS
(SP) + ,@#SAVERE + 30 ;CHANGE THE SAVED RHMDS1 REGISTER

MOV

;AND ADJUST THE STACK

JSR

RO,a#CHREG

I;HCS1
1
GO

000001
000001

TST

ANUNIT

JSR

RO,a#CHREG

F1?HC51

0
SC

100000

;1S THERE MORE THAN ONE UNIT ?
sSKIP NEXT IF MORE THAN ONE UNIT
;CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS1 REGISTER
;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF SC IS 0
;CHANGE SC BIT

QNATTENT ,@#SAVERE +24

BIC

004636

;CHANGE BITS IN SAVED REGISTER
;CHANGE RHCS1 REGISTER
;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF GO IS 1
;CHANGE GO BIT

BNE

042336

;FROM THE ACTUAL (DON'T CARE COND.)

;CLEAR APPROPIATE ATA BITS

;*NOW COMPARE REGISTERS AFTER THE UNLOAD COMMAND
;*WITH EXPECTED VALUES
042444

021616

021624

021620
021622

104023
000207

JSR

SAVERE

3%:

ERROR
RTS

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
;17. REGISTERS TO BE COMPARED
;RETURN TO 38 ON ERROR
RETURN TO 4$ ON NO ERROR

;UNLOAD COMMAND GAVE
;AN ERROR
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
:RECEIVED DATA GIVES WHAT WAS

;THERE AFTER UNLOAD COMMAND

021624
021624
021630
021646
021652

104401

021632

013746

004716

000406
104405

4%:

ko .

MOV

TYPDS

HUNIT,=(SP)

;s TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
sGET UNIT UNDER TEST

021654
021660
021772

104401

021662

005037
000000
004737
000240
000240
000240

047274

000444

041514

TYPE

CLR
HALT
JSR

NOP
NOP
NOP

100%

998

;:TYPE ASCIZ STRING

“:GET OVER THE ASCIZ

QNPRITEM

;CLEAR PREVIOUS ERROR NUMBER

PC,a#CHECK

;CHECKS THAT DVA,RDY,MOL & DPR = 1

:WAIT FOR CONTINUE

;CHECKS THAT ALL OTHER BITS = 0
sTHERE IS NO HALT IF IT FAILS = IT

;1S USED IN THE MIDDLE OF A TEST

;*SET VW IN RHDS1 AFTER RESET FROM ACTUATING
;*THE STANDBY SWITCH AND CYCLING UP (MOL = 1)
013746
052716
012677
011100

002460
000001
160252

a#PKACK,-(SP)

;GET READY TO MOVE COMMAND

(SP) +,3RHCS1

;GO WITH

#GO, (SP)

aR1,R0

aR3.R5

;GET READY TO SET GO

;SAVE R-CS1 DURING ABOVE OPERATION

;SAVE RiDS1 DURING ABOVE OPERATION
sWAII FOR Vv BIT TO SET
;WAIT FOR RHDS1 REGISTER
sWAIT FOR Vv BIT IN RHDST1 REGISTER

;ALLOW 10 MICRO SECONDS
;VV MUST SET BETWEEN

SEQ 0094

PAGE 95

(alel |

CZRJICO, RPO4L/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05

D
MACY11 30A(1052)
27-JUL-78 13:06
T30
UNLOAD COMMAND

CZRJICO, RPO4/5/6 FCTNL CTLR]
CZRIIC.P1
27-JUL-78 13:05
022120
000

E 8
MACY11 30A(1052) 27=-JUL-78 13:06 PAGE 96
31
OFFSET AND RETURN TO CENTER LINE COMMAND
001106

TST31:

#1$,SLPADR
#STACK,SP

JSR

PC,a#CHECK
.CPHALT

:SET R1-RHCS1, R2-RHCS2
*CHECK THAT DVA,RDY,MOL,DPR,DRY = 1
gmw T CONTINUE TESTS IF THEY AREN'T

MOvB
MovB

#1,280FSTVL
#34 ,QHCFSTVL+T

JSET OFFSET VALUE TO 1
; $ET HCILECI,FMT22

JSR
JSR

PC.,a#CLDISK
PC,a#CHECKT

;SET R1-RH(S1, R2-RH(S2
;CHECK DVA,_RDY,MOL.DPR & VV =
;CHECK THAT ALL OTHER BITS = 0

MOV
JSR

004604

TYPE

004610
004611

022112

1%:

022120

b wd
b

22 2L 2k 2

b wb
_ b

s F ol ol o o8 2

VW) —h b b b b cnd b b b wd
—-O VNV
WN=O

4109

022172

012730

022176

013730

004610

MOV

022202
022206
022212
022214
022216
022220
022224
022226
022232
022234
022236
022242
022244
022246
022250
022252
022254
022256
022260
022264

012730
012730
010046
011446
011246
013700
005012
012705
006000
103002
012714
005212
005305
001371
012612

177777
000000

MOV

004742

MOV
CLR
MOV

013777

#31 ,a4TSTNM
PC.,a#CLDISK

sRESET STACK

;SAVE TEST NUMBER

sUMLIKE THE OTHER STATUS BIT TESTS,
;THERE IS NO HALT IF IT FAILS - IT IS
:ADOR. OF ADDR OF RHWC IN RO
MOV
#RHWC ,RO
#177777 .9(RO)+ ;LOAD 177777 INTO RHWC
MOV
MOV
#177777.3(R0)
+ sLOAD 177777 INTO RHBA
+
#10,3(R0)
:LOAD 10 INTO RHCS2
BIS
#1400,3(RO)+
MOV
;LOAD 1400 INTO RHCS1
#0,3(R0)+
MOV
;LOAL O_INTO RHER1
#177777.,3(RO)+ LOAD 177777 INTO RHDST
MOV
LOAD O INTO RHERZ
#0, a(R0)+
MOV
;*THE OFFSET REGISTER UILL BE INCREMENTED FROM 0 TO 377

002272
177777
177777
000010
001400
000000
177777
000000

000010

82%:

177777

177776
002454

;;SET _SCOPE LOOP ADDRESS

MOV
MOV

83%:

#177777 ,a(R0O) +

MOV
MOV
MOV
MOV

+
#0,3(RO)
RO,=(SP)
aR4,-(SP)
aR2 -(SP)

ROR

BCC
MOV
INC
DEC
BNE
MOV
MOV
MOV
TST

160006

ANOFSTVL ,a(RO) + ;SET OFFSET REGISTER

MOV
MOV

a#TOTALAT
RO
aR2
#8. .R5

:LOAD 177777 INTO RHCA
;LOAD 0 INTO RHER3
;:PUSH RO ON STACK
;SAVE RHER1 TO REINSTATE LATER
:SAVE RHCS2 TO BE .EINSTATED
;GET DRIVES PRESENT
;CLEAR RHCSZ2 AND CARRY

;s COUNTER
;GET BIT INTO CARRY
83s
;BRANCH IF NO UNIT ON THIS BIT
#-1,3R4
:MOVE INTO ERROR REGISTER
aR2
; INCREMENT RHCSZ2 TO NEXT UNIT
R5
s COUNT
82%
BRANCH IF 8 NOT DONE
:REINSTATE RHCSZ2
(SP) +,aR2
(SP) +,aR4
REINSTATE RHER1
(SP)+,R0
:;POP STACK INTO RO
(RO)
+
GET OVER PHAS IN RO
+
#177776,8(R0O)
;LOAD 177776 INTO RHMR
a#0F
SETC ,aRHCS1 GET READY FOR OFSETC

;*NOW SAVE REGISTERS FOR COMPARISON AFTER OFFSET
022272
022276
022300

004037
002272
004612

041624

JSR

RHWC

SAVERE

RO,a#SAVER

;SAVE REGISTERS

sRHWC IS THE FIRST REGISTER SAVED

;STARTING ADDRESS OF WHERE

SEQ 0095

2z
Zz

CZRJICO, RPO4/5/6 FCTNL CTLRT
CZRIIC.PN
27-JUL-78 13:05

z}gg;

022302

000022

2}%3

022304

013777

004606

4130
4131
4132

022312
022316
022322

013746
052716
012677

002454
000101
157752

fl%’;

022330

4133

022326

F
8
MACY11 30A(1052)
27-JuL-78 13:06 PAGE 97
3
OFFSET AND RETURN TO CENTER LINE COMMAND

18.
MoV

SRPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

SNOFSETC,~(SP)
#GO'IE, (SP)
(SP)+ ,aRHCS1

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

011305

MOV

aR3,RS

;SAVE RHDS1 DURING ABOVE OPERATION

011100

157754

;sNUMBER OF REGISTERS

MOV

aRr1,RO

:SAVE RHCS1 DURING ABOVE OPERATION

4136

022332

104413

WAT

:WAIT FOR DRY BIT TO SET

4138
4139

022336
022340

000200
001750

DRY
1000.

:WAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 10000 MICRO SECONDS

4141

022344

013746

4137 02233 002322
4140

4142
4143
4144
4145
4146
4147
4148
4149
4150
4151
4152
4153

4154

4155
4156
4157
4158

4159
4160
4161
z}gg

022342

000454

022350
022354
022360
022362
022366
022374
022400
022404
022410
022414
022416
022420

052716
005737
001413
010037
042737
042716
053716
052716
011637
022600
001405
010037

022430
022432
022436
022442

104021
012746
011637
022605

022424

022444
022446
022452
022456

010137

001405
010537
010337
104063

RHDS1
300.

002454

MOV

004301
004722
004760
177677
000100
004760
100000
001124

004760

001126

004600
86%:

2}2?
4166
4167
4168

4169
4170
4171
4172
4173
4174
4175

2};9

:SAVE COMMAND

ERROR
MOV
MOV
CMP

21
;DURING ABOVE OPERATION ONLY
#PIP'MOL'DPR'VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,RS
;DURING ABOVE OPERATION ONLY PIP'MOL 'DPR!'VV

R1,3a4REGADR

sFAILING REGISTER RHCS1

88%
RS, a#$BDDAT
R3,a4REGADR
63

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

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES
022460
022464
022466

022470
022472
022474
022500
022502
022504
022506

022510

004037
002300
000001

000001
100000
004037
002322
000001
000001
100000

053737

042336

004740

2};3
4180
4181

:DRY MUST SET BETWEEN

#DVA'GO! IE'RDY, (SP)
;INCLUDE DVA'GO'IE'RDY
SNUNI T
:ARE THERE MORE THAN ONE UNIT
87%
;BRANCH IF ONLY ONE UNIT
RO, Q¥ TMP4
:GET RHCS1
#°CIE,aNTMP4
:KEEP IE BIT
#1E, (SP)
:CLEAR IE IN GOOD DATA
TMPS, (SP)
;GET IE AS IS
#SC,(SP)
;SET SC IN RHCS1
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,R0
;DURING ABOVE OPERATION ONLY DVA'!GO!'IE'RDY
863
:BRANCH IF GOOD
RO, a#$BDDAT
:BAD DATA

BEQ
MOV
MOV
ERROR

001126
004600

SNOFSETC,~(SP)

BIS
TST
BEQ
MOV
BIC
BIC
BIS
BIS
MOV
CMP
BEQ
MOV

MoV

030500
001124

:WAIT FOR RHDS1 REGISTER

004636

JSR
RHCS1
1
1
SC
JSR
RHDS1
1
1
ATA

BIS

RO, a#CHREG

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

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

QN¥ATTENT ,a#SAVERE +24

:SET APPROPRIATE ‘ATA' BITS

;*NOW COMPARE REGISTERS AFTER AN OFSET COMMAND
022516
022522

004037
004612

042444

JSR
SAVERE

RO, a#COMREG

;COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'

SEQ 0096

4220

4221
4222
4223
4224

ERROR
RTS

;OFFSET COMMAND CAUSED AN ERROR

;GOOD DATA IS WHAT SHOULD BE THERE

;RECEIVED DATA GIVES WHAT WAS THERE
JAFTER AN OFFSET COMMAND

013777

004740

157550

3%:

MOV

DFATTENT ,aRHAS

(! EAR WORKING DRIVE ATTENTION

MOV

Q#RETCL ,ARHCST

;GET READY FOR RETCL

022566
022572
022574
022576

004037
002272
004612
000022

041624

022600

013777

004606

022606
022612
022616
022622
022624

013746
052716
012677
011100

002456
000101

022626

104413
002322
000200
001750
001750
013746
052716

4225
4226
4227
4228
4229
4230

RHW(

157460

MOV

BIS

Q#RETCL,-(SP)
#GO!IE, (SP)

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

MOV
MOV

aR1,RO
aR3,R5

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

(SP)+,aRHCS1

177677

100000

001124

001126

004760

;GO WITH

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

sWAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 10000 MICRO SECONDS

DRY
1000.

004760

1000.
MOV

Q#RETCL,-(SP)

;DRY MUST SET BETWEEN
;SAVE COMMAND

MOV

RO,a#$BDDAT

;BAD DATA

BIS
TST
BEQ
MOV
BIC
BIC
BIS
BIS
MOV
CMP
BEQ

;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS

JRHWC ‘IS THE FIRST REGISTER SAVED

AH#RPLVEC ,@RPVEC ;SET RP0O4 VECTOR ADDRESS

WAT
RHDS1

002456
004301
004722

;SAVE REGISTERS

MOV

157456

000100
004760

010037

RO,a#SAVER

SAVERE
18.

011305

005737
001413

022714

JSR

;*NOW REGISTERS ARE SAVED FOR COMPARISON AFTER COMMAND

157512

;CHECK DVA,RDY,MOL,.DPR & VV = 1
;CHECK THAT ALL OTHER BITS = 0
JUNLIKE THE OTHER STATUS BIT TESTS,
;THERE IS NO HALT IF IT FAILS = IT IS

002456

PC,a#CHECKT

013777

JSR
NOP
NOP
NOP

041536

; INCLUDE DVA!GO!IE'!RDY
#DVA!GO! IE!RDY, (SP)
AANUNI T
;ARE THERE MORE THAN ONE UNIT
;BRANCH IF ONLY ONE UNIT
90%
RO, a#TMP4
sGET RHCS1
#*CIE ,a#TMP4
;KEEP IE BIT
;CLEAR IE IN GOOD DATA
#1E, (SP)
ak#TMPS, (SP)
;GET IE AS IS
#SC, (SP)
;SET SC IN RHCS1
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
ABOVE OPERATION ONLY DVA!GO!IE:RDY
;DURING
(SP)+,R0
89%
;BRANCH IF GOOD

004737
000240

022546
022552
022554
022556
022560

;*NOW A RETURN TO CENTER LINE COMMAND WILL BE GIVEN

AR vl

022540

;RETURN TO 2% ON ERROR
;RETURN TO 3% ON NO ERROR

;18. REGISTERS TO BE COMPARED

2%:

104024

4196

4197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208
4209
4210
4211
4212
4213
4214
4215
4216
4217
4218
4219

2%
3%

000207

;TEST DATA STARTING FROM ‘RHW(C®

18.

022534
022536

SEQ 0097

002354
000022
022534
022540

G 8
27-JUL-78 13:06 PAGE 98
MACY11 30A(1052)
OFFSET AND RETURN TO CENTER LINE COMMAND
31

022524
022526
022530
022532

LR1
05

4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194
4195

-y

CZRJICO, RPO4/5/6 FCTNL
CZRIIC.PN
27=JuL~78

022746
022752

010137
104021
012746
011637
022605
001405
010537
010337
104063

004600

MOV

89%:

030500
001124
001126
CC4600

ERROR

MOV
MOV
CMP
BEQ
MOV
MOV

ERROR

sFAILING REGISTER RHCS1

R1,a#REGADR

;DURING ABOVE OPERATION ONLY
#PIP!MOL !DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1
:
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,RS
;DURING ABOVE OPERATION ONLY PIP!MOL !DPR:!VV
91$%
;BRANCH IF GOOD
RS ,a#SBDDAT
;BAD DATA
gg.a#REGADR
sFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY
21

;*NOW CHANGE SAVED REGISTER TO EXPECTED VALUE
022754
022760
022762
022764
022766
022770
022774
022776

004037

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS1 REGISTER
;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF SC IS 1
s CHANGE SC BIT
RO,a#CHREG
;CHANGE BITS IN SAVED REGISTER
s CHANGE RHDS1 REGISTER
:1 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA IS 1
ATA
: CHANGE ATA BIT
QHATTENT
,a#SAVERE
+24
BIS
;SET APPROPRIATE ‘'ATA' BITS
RO,a#F
ILLRE
JSR
sMOV BIT15!HCI!ECI!FMT22 INTO SAVED RHOF
RHOF
;SAVED REGISTER TgAggANGE
BIT15!HCI!ECI!FMT22

042336

JSR
RHCS1
1
1
SC
JSR
?HDS1

042336

RO,a#CHREG

004740
041360

004636

;*NOW COMPARE REGISTERS AFTER RETURN-TO-CENTER-LINE
RO,a#COMREG
; COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN °SAVERE'
;TEST DATA STARTING FROM 'RHWC'
:18. REGISTERS TO BE COMPARED

042444

JSR
SAVERE

sRETURN TO 4% ON ERROR

;RETURN TO 5% ON NO ERROR
JRETURN TO CENTER-LINE

4%:

;COMMAND CAUSED AN ERROR
;GOOD DATA HAS WHAT SHOULD
;BE THERE

JRECEIVED DATA HAS WHAT WAS
;THERE AFTER COMMAND

004737
105237
132737
001403
062737
105737
023076
023100
023102

001001
000402

000137

041456
004610
000100
000100
004610

022120

5%:
004610
004610

JSR
INCB
BITB
BEQ

PC,a#CLDISK
a#OF STVL

;100.3‘0FSTVL

7$:

ADD
TSTB

#100,a#0F STVL
a#OFSTVL
6%

6%:

BNE
BR
JMP

TS132
a#s

sSET R1-RHCS1, R2-RHCS2

sGET NEXT OFFSET VALUE
;SEE IF UNUSED BIT 6 IS ON
:NO SO DO SOME MORE
;YES SO BY-PASS IT
;IF ZERO ALL COMBINATICNS ARE
;COMPLETE

;BRANCH IF 377 NOT DONE

BRANCH TO NEXT_TEST

;JUMP BECAUSE 377 NOT DONE

lala
NN
D

DD DD DD DDDD DD

022720
022724

SEQ 0098

A DD

4238
4239
4240
4241
4242
4243
4244
4245
4246
4247
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259

H 8
MACY11 30A(1052)
27-JUL-78 13:06 PAGE 99
31
OFFSET AND RETURN TO CENTER LINE COMMAND

DDA

CZRJIICO, RPO4/5/6 FCTNL CTLR]
CZRJIC.PN
27=JuL~ 78 13:05

000004
012737
012706
012737
004737

000764
001900

004756

TST32:

s COUNTER

MOV

#STACK,SP

sRESET STACK

JSR
JSR

PC,a#CLDISK
PC,a#CHECKT

;SET R1-RHCS1, R2-RH(S2
;CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1

HALT

JSR

260
MOV

002454
000101
157110

BIS
MOV
WAT

#32,a4TSTNM
JCPHALT

RO,a#0F SET

a#0FSETC,=(SP)
#GO!IE, (SP)
(SP) +,aRH(CS1

RHDS1
DRY

350.
350.
BIT
BEQ
ERROR

157112

SCOPE
JSR
MOV
BIS
MOV
WAT
RHDS1
DRY

041456
002426
000101
157042

001401
000717

# 500.,a#TMP1

TYPE

" 040000

023254
023256

MOV
MOV

004604

004737

104401
000000
004037
000260
013746
052716
012677
104413

SCOPE

004756

2%:

25000
25000.
DEC
BEQ
BR

;SAVE TEST NUMBER

s CANNOT CONTINUE TESTING IF ANY OF

:STOP

sOFSET
;260 IN OFSET REGISTER
;GET READY TO MOVE COMMAND
;GET READY TO SET 'GO' AND
;GO WITH
sWAIT FOR DRY BIT TO SET
sWAIT FOR RHDS1 REGISTER
;WAIT FOR DRY BIT IN RHDS1 REGISTER

;ALLOW 3500 MICRO SECONDS

#ERR,aRHDS1
2%
26
PC,a#CLDISK
a#RECALI,-(SP)

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

;DRY MUST SET BETWEEN
;1S ERR SET?
:NO

sREPEATED OFFSETS CAUSED AN ERROR

;SET R1-RHCS1, R2-RH(CS2
;GET READY TO MOVE COMMAND
;GET READY TO SET °'GO' AND

;GO WITH
;WAIT FOR DRY BIT TO SET
;WAIT FOR RHDS1 REGISTER
;WAIT FOR DRY BIT IN RHDS1 REGISTER

;ALLOW 250000 MICRO SECONDS
a#TMP1
TST33
1%

;DRY MUST SET BETWEEN
: COUNT DOWN

BRANCH IF DONE

;GO BACK AND DO IT AGIEN

SEQ 0099

(alal

8
PAGE 100

BB DDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDEDDEDDDDDDDDDDDDIDDDND

4291

4292
4293
4294
4295

I
MACY11 30A(1052)
27=JUL-78 13:06
132
OFFSET COMMAND

NN
ol
o

CZRJICO, RPO&4/5/6 FCTNL CTLR1
CZRIIC.PM
27=JUL-78 13:05

000004
012706
012737
004737

001000
000033
041456

13:06

.SBTTL
TST33:

READ/WRITE TESTS USING MEDIA
SCOPE

MOV

#STACK, SP

JSR

PC.a#CLDISK

MOV

004604

PAGE 101

#33 ,QNTSTNM

JRESET STACK

;SAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(CS2

s*FILL WRITE FROM BUFFER WITH HEADER
023300

023316

004037
002470
000004
010000
000000
000000
000000

JSR

041302

WRFROM
“
10000
0
0
0

RO, a#F LHEAD

;SAVE HEADER DPATA 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
023320
023324
023326
023330

004037
002500

JSR
RO,a#CLAREA
WRFROM+10

041326

256.
0

;CLEAR 256. WORDS, FROM WRFROM+10
;STARTING FROM WRFROM+10
;256. WORDS
sFILL 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

JSR

041302

023332
023336
023340
023342
023344
023346
023350
023352
023356
023360
023362

REINTO
4
10000
0
0

RO, a#F LHEAD

JSR
RO,a#CLAREA
REINTO+10
256.
0

041326

: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
SFILL WITH O

;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED
043430

JSR
.BYTE
.BYTE

0
0
0
=256.-4

RO, a#RUN

WRFROM

;SETUP TO RUN FOR DATA COMMAND

;CYLINDER O
;SECTOR 0
;TRACK 0
;WORD COUNT (DATA) = 256. +
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT22
WRIFOR

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

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

041624

JSR
RHWC

RO,a#SAVER

;SAVE REGISTERS
;RHWC IS THE FIRST REGISTER SAVED

SEQ 0100

]
023260
023262
023266
023274

27-JuL-78

READ/WRITE TESTS USING MEDIA

iRl mi AL ALALALALALALALALALALALALALALALALALALALALALALALALALALALALALALAWNIUAWVILAWNMWND
DN D DD DD D DD DD

4327

4328
4329
4330
4331

MACY11 30A(1052)

sla
NN

CZRJICO, RPO4/5/6 FCTNL CTLRY
27=-JuL~78 13:05

CZRIIC.PN

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JUL~-78 13:05

4424

4425

4426

4427
4428
4429
4430
4431
4432
4433
4434
4435

4436
4437
4438

023420
023424
023430

004737

023432

013777

023440
023444
023450
023454
023456

013746
052716
012677
011100
011305

SAVERE
17.

JSR

Lng

104401

000000

156626

;STARTING ADDRESS OF WHERE
sNUMBER OF REGISTERS

PC,a#CHECKT
,CPHALT

;CHECK DVA,RDY,MOL ,DPR,DRY, VWV = 1

:g?ggOT CONTINUE TESTING IF ANY OF
:

MOV

A#RPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV

@#WRIFOR,-(SP)

BIS
MOV
MOV
MOV

#GO!IE, (SP)
(SP) +,aRHCS1
aR1,R0
aR3.R5

;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
023460
023462
023464
023466

104413
002300
000200
001614
001507
013746
052716
011637
022600
001405
010037
010137
104021

023540
023544
023550

012746
011637
022605
001405
010537
010337
104063

WAT
RHCS1
RDY

002444
004101
001124
001126
004600

010500
001124
001126
004600

64%:

908.
839.
MOV
BIS
MOV
CMP
BEQ
MOV
MOV
ERROR
MOV
MOV
CMP
BEQ
MOV
MOV
ERROR

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

;ALLOW 9080 MICRO SECONDS
sRDY MUST SET BETWEEN
@#WRIFOR,-(SP)
;SAVE COMMAND
#1E!GO!DVA,(SP) ;INCLUDE IE'!GO!DVA
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,RO
;DURING ABOVE OPERATION ONLY IE'!GO!DVA
64$
;BRANCH IF GOOD
RO, a#$BDDAT
;BAD DATA
R1,a#REGADR
;FAILING REGISTER RHCS1
21
: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
66%
;BRANCH IF GOOD
RS ,a#$BDDAT
:BAD DATA
R3,a#REGADR
sFAILING REGISTER RHDS1
63
;DURING ABOVE OPERATION ONLY

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES
023552

004037
002272
000000

041360

041360
041360

JSR

RO,a#F ILLRE

JSR

RO,a#F ILLRE

;MOV_WRFROM+<260.*2> INTO SAVED RHBA

JSR

RO,a#F ILLRE

;MOV 1 INTO SAVED RHDST

SHUC

RHBA
WRFROM+<260. *2>
?HDST

;MOV 0 INTO SAVED RHWC

:gfi¥ib REGISTER TO CHANGE
;SAVED REGISTER TO CHANGE
:DATA
:g:¥ib REGISTER TO CHANGE

;*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND
004037
004612
002354

042444

JSR

SAVERE
wC

RO, a#COMREG

; COMPARE SAVED REGISTERS WITH

;GOOD DATA SAVED IN ‘SAVERE'
sTEST DATA STARTING FROM 'RHWC'

VL IV IV LV IV IV IV TV IV IV IV IV IV IV IV IV LV IV TV TV LV, IV, IV [V, IV, IV, ]

4423

004612
000021

LY I IV

4399
4400
4601
4402
4403
4404
4405
4406
4407
4408
4409
4410
4411
44612
4413
4474
4415
4416
4617
4418
4419
4420
4421
4422

023414
023416

SEQ 0101

W I

4383
4384
4385
4386
4387
4388
4389
4390
4391
4392
4393
4394
4395
4396
4397
4398

K 8
MACY11 30A(1052)
27-JUL-78 13:06 PAGE 102
WRITE/READ HEADER AND DATA (0'S)
733

4439
4440

023612
023614
023616

000021
023620
023624

4443

023620
023622

000207

4441
4442
L4bh

4445

17,
1%
2%
1%:

104027

4446
4447
4448
4449
4450
4451
4452

4453
4454
4455
4456
4457
4458
4459
4460
4461
4462
4463

446k
4465
4466

4467
4468
4469
4470
4471
4472

4473
4474
4475

4476
4477
4478
4479
4480
4481
4482
4483
4484
4485
4486
4487
4488
4489
4490
4491
4492

4493
4494

ERROR
RTS

:17. REGISTERS TO BE COMPARED
JRETURN TO 1% ON ERROR
;RETURN TO 2% ON NO ERROR
27

JWRITE HEADER AND DATA

;CAUSED IMPROPER REGISTER

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

;*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT
;*NOTHING GOT CHANGED
023624
023624
023630
023632
023634
023636
023640
023642
023644

004037
003534
002470

043474

2%:

JSR

REINTO
WRFROM
260.

RO, a#COMPAR

3%
4%

023642
023646
3%:

104030
000207

ERROR
RTS

;COMPARE TWO BLOCKS OF MEMORY

;GOOD DATA STARTS FROM REINTO
sTEST DATA STARTS FROM WRFROM
;260. WORDS TO BE COMPARED

JRETURN TO 3% ON ERROR
sRETURN TO 4% ON NO ERROR

sWRITE HEADER AND DATA

;CHANGED WRITE FROM BUFFER

;*NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN
;*READ INTO BUFFER IS FILLED WITH ONES
023646
023646
023652
023656
023660

023662

004737
004037
003534
000404
177777

041456
041326

4%:

JSR
JSR

REINTO

PC,a#CLDISK
RO,a#CLAREA

260.
|

;SET R1-RHCS1, R2-RHCS2
;CLEAR 260. WORDS, FROM REINTO
;STARTING FROM REINTO

:260. WORDS
sFILL WITH -1

;*NOW FILL COMMAND

023664
023670
023672
023673
023674
023676
023700
023702
023704

004037
000000
000
000
177374
003534
000000
014000
002450

6SR

043430
.BYTE
.BYTE

RO, a#RUN

0
0

;SETUP TO RUN FOR DATA COMMAND

;CYLINDER 0
;SECTOR O
;TRACK 0

=-256.-4

;WORD COUNT (DATA) = 256. +

REINTO

0
ECI'FMT22
REFOR

;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
023706
023712
023714
023716

004037
002272
004612
000022

041624

JSR
RHW(
SAVERE
18.

RO,a#SAVER

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

023720

004737

041536

JSR

PC,a#CHECKT

;CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1

SEQ 0102

LALALALALALALALALALALALALALALA
WA LALALALALALA W W LA W U LA LA LA LA LA W WA W LW LWL W
WO v
A A
A A AN

RPO4/5/6 FCTNL CTLRI
27-JuL-78 13:05

CZRJIC.PN

ale

CZRJICO,

27-JUL-78 13:06 PAGE 103
MACY11 30A(1052)
WRITE/READ HEADER AND DATA (0'S)
133

4495
4496
4497
4498
4499
4500
4501
4502

4503
4504
4505
4506
4507
4508
4509
4510

4511
4512
4513
4514
4515
4516
4517
4518
4519

4520
4521
4522
4523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537
4538
4539
4540
4541
4542
4543
4544
4545
4546
4547
4548
4549
4550

023724
023730

104401
000000

066720

023732

013777

004606

023740
023744
023750
023754
023756

013746
052716
012677
011100
011305

002450
000101

023760
023762
023764
023766
023770
023772
023776
024002

156324

001614

001507
013746
052716
011637
022600
001405

022605
001405
010537
010337
104063

L,CPHALT

MOV

A#RPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV
MOV
MOV

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

WAT
RHCS1

104413

011637

024050

156326

002450
004101
001124

010500
001124

67%:

;STOP

;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 RDY BIT TO SET
SWAIT FOR RHCS1 REGISTER

sWAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN
@#REFOR,~(SP)
;SAVE COMMAND
#1E!GO!DVA,(SP) ;INCLUDE IE!GO!DVA
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT

BEQ
MOV
MOV
ERROR

67%
RO,a#$BDDAT
R1,a#REGADR
21

MOV

(SP) ,a#$GDDAT

MOV

(MP
BEQ
MOV
MOV
ERROR

001126
004600

;CANNOT CONTINUE TESTING IF ANY OF

RDY
908.
839.
MOV
BIS
MOV

(MP

001126
004600

SEQ 0103

TYPE

HALT

002300
000200

010037
010137
104021
012746

024044

m 8
27=JUL-78 13:06 PAGE 104
MACY11 30A(1052)
WRITE/READ HEADER AND DATA (0'S)
133

(SP)+,R0O

;DURING ABOVE OPERATION ONLY IE:!GO:DVA
;BRANCH IF GOOD
;BAD DATA
sFAILING REGISTER RHCS1
;DURING ABOVE OPERATION ONLY

#MOL !DPR!VV,=(SP)
(SP)+,R5
69%
RS, a#$BDDAT
R3,a#REGADR
63

:SAVE BITS SET DURING OPERATION IN RHDS1

;SAVE FOR PRINTOUT

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

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
024052
024056

004037
002272
000000
004037
002274
004544
004037
002304
000001

041360

JSR

RO,a#F ILLRE

;MOV O INTO SAVED RHWC

041360

JSR

RO, a#F ILLRE

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

JSR

RO, a#F ILLRE

;MOV 1

SHUC

RHBA
REINTO+<260.*2>

041360

?HDST

:g:¥§0 REGISTER TO CHANGE
;SAVED REGISTER TO CHANGE
:DATA

INTO SAVED RHDST

:g:¥ib REGISTER TO CHANGE

;*COMPARE REGISTER BEFORE READ HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND
024102
024106
024110
024112
024114
024116

004037
004612
002354
000022
024120
024124

024120
024122

104031
000207

JSR

042444

SAVERE
WC
18.
5%
6%
5%:

ERROR

RTS

RO,a#COMREG

;COMPARE SAVED REGISTERS WITH

JREAD HEADER AND DATA CAUSED

;GOOD DATA SAVED IN ‘SAVERE'
sTEST DATA STARTING FROM ‘RHW(C'
;18. REGISTERS TO BE COMPARED
;RETURN TO 5% ON ERROR
RETURN TO 6% ON NO ERROR
; IMPROPER REGISTER CHANGE

Vivoanaun

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIIC.PN
27=JuL~ 78 13:05

024124

026124
024130
026132
024134
024136

024140

004037
002470
003534
000404
024142

043474

6%:

024146

7% :

4571

108 :

024144

024146

000207

RO, 34 OMPAR

108

4567 026142 104032
4568
4569
4570

JSR
WRF ROM
RE INTO
260.
7%

ERROR
RTS

:COMPARE TWO BLOCKS OF MEMORY
GOOD DATA STARTS FROM WRFROM
“TEST DATA STARTS FROM REINTO
1260. WORDS TO BE COMPARED
“RETURN TO 7$ ON ERROR

*RETURN TO 108 ON NO ERROR

:WRITE HEADER AND DATA

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

A AN WAL

A AT A AN N A

“«THE READ WAS GOOD

2222

:«NOW READ INTO BUFFER WILL BE CHECKED TO SEE

CZR

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

4556

4560
4561
4562
4563
4564

SEG 0104

4551
4552
4553
2222
4557
4558
4559

PAGE 105

13:06

WA WL

27-JUL-78

WRITE/READ HEADER AND DATA (0'S)

LA W LA LA

MACYT] 3??§1052)

CALALALALA LA LA LA LA LA LA LA LA LA A LA LA LA WA WU

27-JuL-78 13:05

CZRJIC.PN

(ZRJICO, RPO4/S5/6 FCTINL CTLRT

CZRJICO, RPO4/5/6 FCTNL CTILRY
CZRJIC.PM
27-JuL~78 13:05
026146
024150
024154
024162

012706
012737
004737

B 9
MACY11 30A(1052) 27-JUL-78 13:06 PAGE 106
WRITE/READ HEADER AND DATA (0'S)
133
T1ST34:

001000
000034
041456

SCOPE

MOV

MOV
JSR

#STACK,SP

#34 ,NTSTNM
PC,a#CLDISK

sRESET STACK

;SAVE TEST NUMBER
;SET R1-RHCS1, R2-RH(S2

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA
024166
026172

024174
024176

004037
002470

JSR
WRFROM
256.
0

041326

RO,a#CLAREA

;CLEAR 256. WORDS, FROM WRFROM
;STARTING FROM WRFROM
;256. WORDS
;FILL WITH O

;*NOW THE READ DATA COMMAND WILL BE FILLED
043430

024200
024204
024206
024207
024210
024212
024214
024216
024220

.BYTE
.BYTE

JSR
0
0
0
-256.

RO,a#RUN

REINTO

0
ECI'FMT22
READAT

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 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
024222

041624

JSR

RO,a#SAVER

JSR
LXC;

PC ,a#CHECKT
.CPHALT

MoV

AN#RP4LVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

RHWC
SAVERE
18.

024232

024234
024240
024244

;SAVE REGISTERS

sRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS

;CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1
:g?g,lfl CONTINUE TESTING IF ANY OF

024246

013777

024254

013746
052716
012677
011100
011305

MOV

@#READAT ,-(SP)

104413

WAT
RHCS1
RDY
908.
839.
MOV
BIS
MOV
cMP
BEQ
MOV
MOV

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS
sRDY MUST SET BETWEEN
@#READAT ,-(SP)
;SAVE COMMAND
(SP) ;INCLUDE IE!GO!DVA
#1E!GO!DVA,
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
(SP)+,R0
;DURING ABOVE OPERATION ONLY IE!GO:!DVA
64%
;BRANCH IF GOOD
RO, a#$BDDAT
;BAD DATA
R1,a#REGADR
;FAILING REGISTER RHCS1

024272

024274

024332

002300
000200
001614
001507
013746
052716

010137

156012

BIS
MOV
MOV
MOV

#GO!IE, (SP)
(SP)+ ,aRHCS1
aR1,R0
@R3.R5

;GET READY TO MOVE COMMAND

;GET READY TO SET 'GO' AND
;GO WITH
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

SEQ 0105

S
o
e

CZRJICO, RPO4/5/6 FCTNL CTLR1

CZRIIC.P1

27-JuL~-78 13:05

4629

024336

104021

4631

024344

011637

4633
4634
4635
22%9

024352
024354
024360
024364

001405
010537
010337
104063

4630 024340 012746 010590

4632 024350 022605

001124

MACY11 30A(1052)

648:

MOV

004037
002272

041360

4643
L6446

024376
024402

004037
002274

041360

024406
024412

004037
002304

041360

024374

024404

024414

000000

004534

cMP

SEQ 0106

DURING ABOVE OPERATION ONLY

;SAVE BITS SET DURING OPERATION IN RHDS1

(SP) ,a#$GDDAT ~ ;SAVE FOR PRINTOUT

(SP)+,RS

66%
RS ,a#$BDDAT
R3,a#REGADR
63

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

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

:MOV REINT0+<256.%2> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE
;DATA

;MOV 1 INTO SAVED RHDST
;SAVED REGISTER TO CHANGE
;DATA

;*NOW COMPARE REGISTERS BEFORE READ DATA WITH
;*AFTER COMMAND

024416
024422
024424

004037
004612
002354

4660
4661
4662
4663
4664
4665

024434
024436

104033
000207

4667

024440

4670
4671
4672
fi;}o

024446
024450
024452
024454

4668
4669

#MOL !DPR!VV, -(SPS

JSR
RO,a#F ILLRE
RHW(
0
JSR
RO,a#F ILLRE
RHBA
REINTO+<256. %2>
JSR
RO,a#F ILLRE
RHDST
1

000001

4653
4654
4655

4666

MOV

BEQ
MOV
MOV
ERROR

4650
22;5

4656
4657
ggg

ERROR

PAGE 107

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES
024366
024372

4646
4647

13:06

READ DATA (0'S)

001126
004600

4640
4641

4645

27-JUL-78

T34

22%8
4642

024426
024430
024432

042444

000022
024434
024440

024440
024444

004037
002470

4675
22;9

024456
024460

104034
000207

4678

024462

JSR
SAVERE
wC

RO,a#COMREG

ERROR
RTS

33
PC

JSR
WRFROM
REINTO
256.
3%
3

RO,a#COMPAR

;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
:RETURN TO 4$ ON NO ERROR

ERROR
RTS

34
<

;READ DATA COMMAND
sREAD INCORRECTLY

18.
1%
2%

1$:

043474

2%:

003534
000400
024456
024462
3%:
4%:

;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 28 ON NO ERROR

;READ 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 THAT READ
; *WAS GOOD

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.P1
27-JUL~78 13:05
4679

4680
4681

024462
024464
024470
024476

D
27-JUL-78 13:06
MACY11 30A(1052)
READ DATA (0'S)
T34
TST35:

000004
012706
012737
004737

SCOPE

MOV

MOV
JSR

SEQ 0107

PAGE 108

#STACK,SP

#35,a4TSTNM
PC,a#CLDISK

sJRESET STACK

;SAVE TEST NUMBER
:SET R1-RHCS1, R2-RH(S2

;*NOW FILL WRITE FROM BUFFER =200 OF 1'S AND 56 OF 125252
024502

JSR
WRFROM
200

004037

RO,a#CLAREA

JSR
RO, a#CLAREA
WRFROM+<200. *2>
56.

125252

024524

;CLEAR 200. WORDS, FROM WRFROM
sSTARTING FROM WRFROM
;200. WORDS
sFILL WITH -1

“CLEAR 56. WORDS, FROM WRFROM+<200.%2>
56,
START!NG FROM WRFROM+<200.*2>

SFILL HITH 125252

;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS
;*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS
;*CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER
024526
024532
024534
024536
024540
024544
024546
024550

041326

JSR

041326

200.
-1
JSR
RO,a#CLAREA
RE INT0+<200. *2>
56.
125252

REINTO

125252

RO,a#CLAREA

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

:200. WORDS
sFILL WITH =1
;CLEAR 56. WORDS, FROM REINT0+<200.%*2>
;STARTING FROM REINT0+<200. %2>
;56. WORDS
;FILL WITH 125252

;*NOW WRITE DATA COMMAND WILL BE LOADED
024552

024556
024560
024561
024562
024564
024566

024570
024572

004037
000000
000
000
177470
002470
000000
010000
002442

3SR

043430
.BYTE
.BYTE

RO,a#RUN

;SETUP TO RUN FOR DATA COMMAND

0
0
-200.

;CYLINDER 0
;SECTOR 0
;TRACK 0
:WORD COUNT
= 200.

:DO NOT INHIBIT BUS ADDRESS INCREMENT

WRFROM

:BUS ADDRESS

FMT22
WRIDAT

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

;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA

4731
4734

024606
024612
024616

041624

JSR
RHWC
SAVERE
18.

RO,a#SAVER

;SAVE REGISTERS
sRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS

041536
066720

JSR

PC,a#CHECKT

;CHECK DVA,RDY,MOL ,DPR,DRY,V

MOV

a#RP4LVEC ,aRPVEC ;SET RP0O4 VECTOR ADDRESS

MOV

A#WRIDAT,-(SP)

024620

013777

004606

024626

013746

002442

TYPE
HALT
155440

,CPHALT

;CANNOT CONTINUE TESTING IF
;STOP

;GET READY TO MOVE COMMAND

o—l

004037

<ll

024574
024600
024602
024604

€2
Q2

CZRJICO, RPO4/S5/6 FCTNL CTLR1
CZRJIC.PN
27-JUL=78 13:05

4735

024632

052716

4737

024642

011100

4736

2;%3

024636

024644

012677

000101

155436

011305

#GO!IE, (SP)

;GET READY TO SET 'GO' AND

MOV

ar1,R0

;SAVE RHCS1 DURING ABOVE OPERATION

MOV

024646
024650
024652

104413
002300
000200

WAT
RHCS1
RDY

4746

024656

001507

839.

4747

4748
|
4749
1 4750
4751
4752

4753

4754
4755
4756
4757
4758
4759
4760

2;2}

024654

024660

001614

4767
4768
4769
4770
4771
4772

2;;2

013746

024664
024670
024674
024676
024700

052716
011637
022600
001405
010037

024710
024712
024716
024722
024724
024726
024732

104021
012746
011637
022605
001405
010537
010337

024704

024736

010137

104063

002442
004101
001124
.

024740
024744

024746
024750
024754
024756
024760
024764

024766

004037
002272

000000
004037
002274
003310
004037
002304

001126

004600
010500
001124

64%:

001126
004600

4782

025002

025006

4789
4790

MOV

R1,a4#REGADR

ERROR
MOV
MOV
cMP
BEQ
MOV
MOV

#1E!GO'DVA,
(SP)
(SP) ,a#$GDDAT
(SP)+,R0
64$
RO,a#$BDDAT

;RDY MUST SET BETWEEN

:SAVE COMMAND

;INCLUDE IE!GO!DVA
;SAVE FOR PRINTOUT
:DURING ABOVE OPERATION ONLY IE'GO!'DVA
:BRANCH IF GOOD
:BAD DATA

;FAILING REGISTER RHCS1

21
:DURING ABOVE OPERATION ONLY
#MOL 'DPR'VV,~(SP)
:SAVE BITS SET DURING OPERATION IN RHDS1
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,RS
;DURING ABOVE OPERATION ONLY MOL 'DPR'VV
66$
;BRANCH IF GOOD
RS,a#$BDDAT
:BAD DATA
R3,a4REGADR
;FAILING REGISTER RHDS1

;DURING ABOVE OPERATION ONLY

041360

JSR
RHWC

0
JSR

041360

RO, a#F ILLRE

RO,a#F ILLRE

RHBA
WRFROM+<200. *2>
JSR
RO,a#F ILLRE
RHDST

041360

:MOV 0 INTO SAVED RHWC
:SAVED REGISTER TO CHANGE

:DATA
;MOV WRFROM+<200.%*2> INTO SAVED RHBA
:SAVED REGISTER TO CHANGE
:DATA

:MOV 1

INTO SAVED RHDST

:SAVED REGISTER TO CHANGE

:DATA

;*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS
;*AFTER COMMAND
004037
004612
002354

2;3;

;ALLOW 9080 MICRO SECONDS

SMWRIDAT ,-(SP)

ERROR

000001

024770
024774
024776

4785
4786

;SAVE RHDS1 DURING ABOVE OPERATION

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE

4778
4779
4780

2;32

:GO WITH

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

MOV
BIS
MOV
CMP
BEQ
MOV

4775
2;;9

4781

aR3,RS

908.

2;22
4765
4766

(SP)+ ,QRHCS1

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

4742
4743
4744
4745

SEQ 0108

BIS

MOV

2;2?

MACY11 30A(1052)
27=JuUL-78 13:06 PAGE 109
T35
WRITE/READ DATA (1'S & 125252)

025000
025004

025006
025010

042444

JSR
SAVERE
wC

000022

18. -

:RETURN TO 1$ ON ERROR

2%
1$:

ERROR
RTS

;COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN 'SAVERE'
:TEST DATA STARTING FROM 'RHWC'

:18. REGISTERS TO BE COMPARED

025012

104035
000207

RO, a#COMREG

;RETURN TO 2% ON NO ERROR
35
PC

;WRITE DATA COMMAND CAUSED
; IMPROPER REGISTER CHANGE

:ggoo DATA GIVES WHAT SHOULD
;RECEIVED DATA GIVES WHAT WAS
:THERE AFTER COMMAND

CZRJICO, RPO4/5/6 FCTNL CTLRI
27-JuL-78 13:05
ICZRJIC.P11
79
4792
4793
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805

MACYT1 30A(1052)
T35

27=-JUL-78

13:06

PAGE 110

WRITE/READ DATA (1'S § 125252)

;*NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE
025012

043474

2%:

025026
3%:

025030
025032

JSR
REINTO
WRF ROM
256.
3%
4%

RO,a#COMPAR

;COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM REINTO
;TEST DATA STARTS FROM WRFROM
;256. WORDS TO BE COMPARED
;RETURN TO 3$ ON ERROR
JRETURN TO 4$ ON NO ERROR

ERROR

;WRITE DATA COMMAND CHANGED

RTS

;WRITE FROM BUFFER

;*NOW A READ DATA COMMAND WILL BE GIVEN

;*FILL READ INTO BUFFER WITH 200 ZEROS AND 56 OF 377
041456
041326

4%:

JSR
JSR

REINTO

PC,a#CLDISK
RO,a#CLAREA

200.
0

JSR
RO,a#CLAREA
REINTO+<200. %2>
56.
377

041326

;SET R1-RHCS1, R2-RH(S2
;CLEAR 200. WORDS, FROM REINTO
;STARTING FROM REINTO

:200. WORDS
A
;FILL WITH O
;CLEAR 56. WORDS, FROM REINT0+<200.*2>
:STARTING FROM REINTO+<200.*2>
:56. WORDS
SFILL WITH 377

:«FILL WRITE FROM BUFFER WITH 200 ONES AND 56 OF 377
JSR

041326

WRFROM

RO,a#CLAREA

200.
-1

RO,a#CLAREA
JSR
WRFROM+<200. *x2>
56.
377

041326

:CLEAR 200. WORDS, FROM WRFROM
;STARTING FROM WRFROM

;200. WORDS
JFILL WITH -1

:CLEAR 56. WORDS, FROM WRFROM+<200.*2>
:STARTING FROM WRFROM+<200.*2>

;56. WORDS
JFILL WITH 377

;*NOW FILL COMMAND
JSR

043430
.BYTE
.BYTE

177470

003534
000000

0
0
0
-200.

RO,a#RUN

REINTO

0
ECI'FMT22
READAT

014000
002446

;SETUP TO RUN FOR DATA COMMAND

;CYLINDER O
:SECTOR 0
:TRACK 0
JWORD COUNT = 200.
;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
025132
025136

004037
002272

041624

JSR
RHW(

RO,a#SAVER

;SAVE REGISTERS
:RHWC IS THE FIRST REGISTER SAVED

SEQ 0109

G 9
MACY11 30A(1052)
27=JUL-78 13:06 PAGE 1 1
T35
WRITE/READ DATA (1'S & 125252)

CZRJICO, RPOL/S5/6 FCTNL
CZRJIC.PMN

27=-JuL-78

6847

025140
025142

004612
000022

SAVERE
18.

025144
025150
025154

004737

JSR

000000

HALT

025156

013777

025164
025170

013746
052716
012677
011100
011305

4848
4849
4850
4851

TYPE

104401

155102

;STARTING ADDRESS OF WHERE
:NUMBER OF REGISTERS

PC,a#CHECKT
LCPHALT

001126
004600

025274

Q#READAT ,=(SP)

;GET READY TO MOVE COMMAND

MOV

(SP) +,aRHCS1

;G0 WITH

#GO!'IE, (SP)
aR1,.R0O
aR3,RS

WAT
RHCS1
RDY

;GET READY TO SET 'GO' AND
;SAVE RHCS1 DURING ABOVE OPERATION

;SAVE RHDS1 DURING ABOVE OPERATION

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

908.
839.
MOV
BIS

a#READAT ,-(SP)
#IE!GO!DVA,(SP)

;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN
;SAVE COMMAND
;INCLUDE IE'!'GO'DVA

CMP
BEQ

(SP)+,R0
67%

;DURING ABOVE OPERATION ONLY IE'GO'DVA
;BRANCH IF GOOD

MOV
ERROR
MOV
MOV
CMP
BEQ

R1,a#REGADR
sFAILING REGISTER RHCS1
21
;DURING ABOVE OPERATION ONLY
#MOL 'DPR!'VV,=(SP)
:SAVE BITS SET DURING OPERATION IN RHDS1
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+ RS
;DURING ABOVE OPERATION ONLY MOL 'DPR!'VV
69%
;BRANCH IF GOOD

MOV
MOV

67%:

;STOP

MOV

010500
001124

;CANNOT CONTINUE TESTING IF ANY OF

a#RP4LVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV

001126
004600

;:CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1

MOV

BIS

002446
004101
001124

SEQ 0110

MOV

MoV
ERROR

(SP) ,a#$GDDAT

RO,a#$BDDAT

RS ,a#$BDDAT

R3,a#REGADR
63

;SAVE FOR PRINTOUT
;BAD DATA

;BAD DATA

;FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
JSR

RO,a#F ILLRE

041360

JSR

RO,a#F ILLRE

041360

REINTO0+<200. *2>
JSR
RO,a#F ILLRE

041360

025276

025324

gHuc
RHBA

RHDST
|

sMOV O INTO SAVED RHWC

:g:¥ib REGISTER TO CHANGE

MOV REINTO0+<200.*2> INTO SAVED RHBA

;SAVED REGISTER TO CHANGE

;MOV 1

;DATA

INTO SAVED RHDST

;SAVED REGISTER TO CHANGE
;DATA

;*COMPARE REGISTERS BEFORE READ DATA COMMAND
;*WITH REGISTERS AFTER COMMAND
042444

025326

4902

025344

JSR
SAVERE

w(
18.

RO, a#COMREG

; COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'
sTEST DATA STARTING FROM "RHWC'
;18. REGISTERS TO BE COMPARED
;RETURN TO 5% ON ERROR

2%‘)3

025342

025350

4905
4906
4907

025344
025346

104033
000207

ERROR
RTS

;RETURN TO 6% ON NO ERROR
33
PC

4908

sRECEIVED DATA GIVES WHAT WAS THERE

23?8

;AFTER COMMAND

;*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ

23}12
4913

025350

4917
4918
23}8

025360
025362
025364

4914
4915
4916

4921
4922
4923
L4924

4925
4926
4927

;READ DATA CAUSED IMPROPER
sREGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD BE THERE

025350
025354
025356

004037
002470
003534

025366
025370

104034
000207

025372

043474

6%:

000400
025366
025372
7%:
108:

JSR
WRFROM
REINTC
256.
7%
108

RO,a#(COMPAR

ERROR
RTS

34
PC

;COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
;256. WORDS TO BE COMPARED
JRETURN TO 7% ON ERROR
JRETURN TO 108 ON NO ERROR
; INCORRECT DATA AFTER
sWRITE DATA FOLLOWED BY A
;READ DATA

SEQ 0111

CZR

WRITE/READ DATA (1'S & 125252)
2

5%:

PAGE 112

T35

27-JuL~-78 132:05

13:06

AL ALALALALALVALALALALALALALA
WAL

|CZRJIC.F11

27-JuL-78

e e e e e e Eme Em. s et Bm. Em. i ml M. . e M. ML i mIML
A LA R Rl AL AL AL RLALALRALALAL

CZRJICO, RPO4/S5/6 FCTNL CTLR1T

MACY11 30A(1052)

000004
012706
012737
004737

TST36:

SCOPE
MOV

#STACK,SP

JRESET STACK

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RHCS2

MOV

004604

#36,a4TSTNM

:SAVE TEST NUMBER

;*NOW FILL WRITE FROM BUFFER - 256 OF 125252
025412
025416
025420
025422

004037
002470
000400
125252

JSR

WRFROM

RO,a#CLAREA

256.

;CLEAR 25&. WORDS, FROM WRFROM
;STARTING FROM WRFROM

:256. WORDS

125252

sFILL WITH 125252

:*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS
;*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS
;*CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER
025424
025430
025432
025434

004037
003534
000400
125252

041326

JSR

REINTO

RO,a#CLAREA

256.

;CLEAR 256. WORDS, FROM REINTO

;STARTING FROM REINTO

:256. WORDS

125252

sFILL WITH 125252

;*NOW WRITE DATA COMMAND WILL BE LOADED
025436
025442
025444
025445
025446
025450
025452
025454
025456

043430
.BYTE
.BYTE

JSR
0
0
0

=256.

WRFROM

0
FMT22

RO,a#RUN

WRIDAT

;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 0
JSECTOR O
;TRACK 0

;WORD COUNT = 256.
;BUS ADDRESS

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

;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA
025460
025464
025466
025470

041624

025472
025476
025502

041536
066720

025504

013777

004606

025512
025516
025522
025526
025530

013746
052716
012677
011100
011305

002442
000101

154552

JSR

RO,a#SAVER

JSR
LXE;

PC,a#CHECKT
LCPHALT

MOV

a#RP4VEC ,@RPVEC ;SET RP0O4 VECTOR ADDRESS

MOV

A#WRIDAT ,-(SP)

;GET READY TO MOVE COMMAND

MOV

(SP) + ,aRH(CS1

;GO WITH

RHW(
SAVERE
18.

154554

BIS

MOV
MOV

#GO!IE, (SP)

aR1,R0
aR3,R5

s SAVE REGISTERS

sJRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS

;CHECK DVA,RDY
,MOL ,DPR,DRY,VV = 1
;g?ggOT CONTINUE TESTING IF ANY OF

;GET READY TO SET

'GO'

AND

:SAVE RHCS1 DURING ABOVE OPERATION
:SAVE RHDS1 DURING ABOVE OPERATION

;*ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=760 MICROSEC
025532
025534

104413

002300

WAT

RHCS1

;WAIT FOR RDY BIT

TO SET

;WAIT FOR RHCS1 REGISTER

b
ol
o)

(alal

SEQ 0112

LALALALALALALALALALALALALALA L ALALALALALALALAM L ALALALALALALALALALVALALALALALALALALALA
LA LAY ILALALALALALALALAULA

025372
025374
025400
025406

MACY11 30A(1052)
27-JUL-78 13:06 PAGE 113
136
WRITE/READ DATA (125252)

CZRJICO, RPO4/5/6 FCTNL
CZRJIC.PN
27=JUL-78

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.P1T
27-JUL-78 13:05
4984
4985
4986
4987
4988

025536
025540
025542
025544
025550

4993

025570

4989
4990
4991
4992
4994
4995
4996
4997
4998

4999
5000
288;

000200
001614
001507
013746
052716

025554
025560
025562
025564

011637
022600
001405
010037

025574
025576
025602
025606
025610

104021
012746
011637
022605
001405

025612

025616
025622

010137

010537

010337
104063

Jd 9
MACY11 30A(1052)
27-JuL-78 13:06_PAGE 114
136
WRITE/READ DATA (125252)

002442
004101
001124

648:

001126

025624
025630
025632
025634
025640
025642
025644
025650

025652

004037
002272
000000
004037
002274
003470
004037
002304

041360
041360
041360

000001

MOV
ERROR

R3,@#REGADR
63

025654
025660
025662
025664
025666

004037
004612
002354
000022
025672

5025
5026

025672
025674

104035
000207

025670

042444

025676

5036
5037
5038
5039

:MOV 0 INTO SAVED RHWC
;SAVED REGISTER TO CHANGE
:DATA
:MOV_WRFROM+<256.#*2> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE
:DATA
:MOV_1 INTO SAVED RHDST
;SAVED REGISTER TO CHANGE

:DATA

025702
025704
025706
025710

004037
003534
002470
000400
025714

043474

28:

p
g

b
p
:
:
:
:
:
:
:

RO, a#COMREG

: COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
:18. REGISTERS TO BE COMPARED
;RETURN TO 18 ON ERROR

p
:
p
p
:

ERROR
RTS

35
PC

:WRITE DATA COMMAND CAUSED
: IMPROPER REGISTER CHANGE

:
p

;RECEIVED DATA GIVES WHAT WAS

:RETURN TO 2% ON NO ERROR

:ggoo DATA GIVES WHAT SHOULD
:THERE AFTER COMMAND

025676
025676

JSR
SAVERE
wC
18.
1$

ggg?

5034
5035

;BAD DATA

5029

ggg%

p
p
p
d
p

;*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS

1$:

;FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

: *AFTER COMMAND

5018
5019
5020
5021
5022

p
p
§
p

;FAILING REGISTER RHCS1

21
:DURING ABOVE OPERATION ONLY
#MOL !DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1
(SP) ,a#$GDDAT ~ ;SAVE FOR PRINTOUT
(SP)+,RS
:DURING ABOVE OPERATION ONLY MOL !DPR!VWV
66$
;BRANCH IF GOOD

RS, a4#$BDDAT

p
p
p
p
p

;SAVE FOR PRINTOUT
:DURING ABOVE OPERATION ONLY IE!GO!DVA
:BRANCH IF GOOD
:BAD DATA

ERROR
MOV
MOV
(MP
BEQ

JSR
RO, a#F ILLRE
RHWC
0
JSR
RO, @#F ILLRE
RHBA
WRFROM+<256. %2>
JSR
RO, a#F ILLRE
RHDST

gg}g

gggg

R1,@#REGADR

(SP) ,a#$GDDAT
(SP)+,R0
64$
RO, a#$BDDAT

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE

5015

2852

MOV

004600

2882
5005
5006
5007
5008
5009
5010
5011
5012

:WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN
SMWRIDAT,=(SP)
;SAVE COMMAND
#1E!GO!DVA,
(SP) ;INCLUDE IE!GO!DVA

MOV
(MP
BEQ
MOV

001126
004600
010500
001124

RDY
908.
839.
MOV
BIS

SEQ 0113

;
:

;*NOW WRITE FROM BUFFER WILL CHECKED FOR NO CHANGE

JSR

p
:

REINTO
WRF ROM
256.
38

RO, @4#COMPAR

; COMPARE TWO BLOCKS OF MEMORY

:GOOD DATA STARTS FROM REINTO
:TEST DATA STARTS FROM WRFROM
:256. WORDS TO BE COMPARED
:RETURN TO 3$ ON ERROR

:
:
:
3

CZRJICO, RPO4/5/6 FCTNL CTLRI]
CZRIIC.P1
27-JUL-78 13:05
025712

025720

025714
025716

104036
000207

MACY11 30A(1052)
136

4%
3%:

SEQ 0114

27=JUL-78 13:06_ PAGE 115
WRITE/READ DATA (125252)
JRETURN TO 4$ ON NO ERROR

ERROR
RTS

36
PC

;WRITE DATA COMMAND CHANGED
;sWRITE FROM BUFFER

;*NOW A READ DATA COMMAND WILL BE GIVEN

:«FILL READ INTO BUFFER WITH 256 ZEROS
025720
025720
025724
025730
025732
025734

004737
004037
003534

4%:

041456
041326

JSR
JSR

PC,a#CLDISK
RO,a#CLAREA

REINTO

256.
0

000400
000000

;SET R1-RHCS1, R2-RH(S2
;CLEAR 256. WORDS, FROM REINTO
;STARTING FROM REINTO

:256. WORDS
;FILL WITH O

;*FILL WRITE FROM BUFFER WITH 256 OF 125252
025736
025742
025744
025746

004037
002470
000400

RO,a#CLAREA

JSR

041326

WRFROM

256.
125252

125252

;CLEAR 256. WORDS, FROM WRFROM
STARTING FROM WRFROM

:256.
oF HLL UITH 125252

;*NOW FILL COMMAND
025750
025754
025756
025757
025760
025762
025764
025766
025770

004037
000000
000
000

6SR

043430
.BYTE
.BYTE

177400

RO, a#RUN

0
0
-256.

sSETUP TO RUN FOR DATA COMMAND
sCYLINDER 0
;SECTOR 0
;TRACK 0
:WORD COUNT
= 256.

0
ECI!FMT2?2

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

REINTO

003534
000000
014000

READAT

002446

:BUS ADDRESS

;GET READY TO DO A READAT

;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND
041624

JSR
RHW(

RO,a#SAVER

JSR

PC,a#CHECKT

SAVERE
18.

041536
066720

026004
026010
026014

026016

013777

004606

026024
026030
026034
026040
026042

013746
052716
012677
011100
011305

002446
000101
154240

026044
026046
026050

104413

;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS

TYPE

LCPHALT

HALT

154242

MOV
MOV
BIS
MOV
MOV
MOV
WAT
RHCS1

RDY

;SAVE REGISTERS
JRHWC IS THE FIRST REGISTER SA VED

s CHECK DVA_RDY,MOL ,DPR,DRY,V

: CANNOT CONTINUE TESTING IF

'<“

004037

o-l

025772
025776
026000
026002

:STOP

@4#RP4VEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

A#READAT ,-(SP)
#GO!IE, (SP)
(SP)+,aRHCS1
aR1,R0
aR3.R5

;GET READY TO MOVE COMMAND
;GET READY TO SET 'GO' AND
;GO WITH
;SAVE RHCS1 DURING ABOVE OPERA TION
;SAVE RHDS1 DURING ABOVE OPERA TION
;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER

;WAIT FOR RDY BIT IN RHCS1 REG ISTER

CZR
CZR

CZRJICO, RPO4/5/6 FCTNL CTLR1

arvan&wunthfiB

b
)
b
b

——Y
Y

026052
026054
026056
026062
026066
026072
026074
026076
026102
026106
026110
026114
026120
026122
026124
026130
026134

001614
001507
013746

136

L 9
27-JUL-78 13:06_ PAGE 116
WRITE/READ DATA (125252)

908.

839.

SEQ 0115

;ALLOW 9080 MICRO SECONDS
sRDY MUST SET BETWEEN

002446
004101
001124

MOV
BIS
MOV

a#READAT ,~(SP)
;SAVE COMMAND
#1E!GO!DVA,
(SP) ;INCLUDE IE':!GO!DVA
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT

001126
004600

MOV

R1,a#REGADR

010500
001124

CMP
BEQ
MOV
67%:

ERROR
MOV
MOV

CMP
BEQ
MOV
MOV
ERROR

001126
004600

D cnd

27-JUL-78 13:05

(SP)+,RO
67%
RO,a#$BDDAT

;DURING ABOVE OPERATION ONLY IE:!GO:!DVA
;BRANCH IF GOOD
;BAD DATA
;FAILING REGISTER RHCS1

21
:DURING ABOVE OPERATION ONLY
#MOL !DPR!VV,=(SP)
:SAVE BITS SET DURING OPERATION IN RHDS1
(SP) ,a#$GDDAT

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

;SAVE FOR PRINTOUT

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

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES

Y
Y

b and
i
-d
b
bb

Vi Vi

RN non [ NN
S W -0 O

CZRJIC.PN

MACY11 30A(1052)

026136

041360

026142
026144
026146
026152
026154
026156
026162
026164

JSR

RO,a#F ILLRE

;MOV O INTO SAVED RHWC

JSR

RO,a#F ILLRE

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

8ch

041360

RHBA

REINTO+<256 *2>
JSR
RO, 3#F ILLRE

041360

?HDST

:S:¥§D REGISTER TO CHANGE

;SAVED REGISTER TO CHANGE

;MOV 1

;DATA
.
INTO SAVED RHDST

:g:¥ib REGISTER TO CHANGE

;*COMPARE REGISTERS BEFORE READ DATA COMMAND
;*WITH REGISTERS AFTER COMMAND
026166
026172
026174
026176
026200
026202

026204
026210

026204
026206

104033
000207

042444

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

ERROR
RTS

RO, a#COMREG

; COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
:18. REGISTERS TO BE COMPARED
;RETURN TO 5% ON ERROR
;RETURN TO 6% ON NO ERROR

;READ DATA CAUSED IMPROPER

sREGISTER CHANGE

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

;*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ
026210
026210
026214
026216
026220
026222
026224

004037
002470
003534
000400
026226
026232

043474

6%:

JSR

WRFROM
REINTO

256.
7$
108

RO,a#COMPAR

;COMPARE TWO BLOCKS OF MEMORY

;GOOD DATA STARTS FROM WRFROM
sTEST DATA STARTS FROM REINTO

;256. WORDS_TO BE COMPARED
;RETURN TO 7$ ON ERROR
;RETURN TO 10$ ON NO ERROR

CZR
CZR

s INCORRECT DATA AFTER
sWRITE DATA FOLLOWED BY A
sREAD DATA

LA LAL AAL WA

108:

34
PC

A A

ERROR
RTS

A AL

7$:

SEQ 0116

WL AW

WRITE/READ DATA (125252)

026232

104034
000207

PAGE 117

136

LWL WA

5156

026226
026230

13:06_

LA LA W LWL W LA VLA LA LA WYL

5152
5153
5154
5155

27-JuL-78 13:05

27-JuL-78

CZRJIC.PN

MACY11 30A(1052)

LALALALALALALALALALALALALA LA LA

CZRJICO, RPO4/5/6 FCTNL CTLR1

5197
5198
5199
5200
5201
5202
5203
5204
5205
5206
5207
5208
5209
5210
5211
5212

SCOPE
MOV

MOV
JSR

004604

#STACK,SP

#37 ,QNTSTNM
PC.,a#CLDISK

JRESET STACK

;SAVE TEST NUMBER
;SET R1-RHCS1, R2-RH(CS2

;*NOW FILL WRITE FROM BUFFER-200 OF 52525 AND 56 OF 377
026252
026256

004037
002470
000310

JSR

041326

WRFROM

200.
52525

JSR

041326

RO,a#CLAREA

WRFROM+<200. *2>
56.

377

026274

;CLEAR 200. WORDS, FROM WRFROM
;STARTING FROM WRFROM

:200. WORDS
SFILL WITH 52525

;CLEAR 56. WORDS, FROM WRFROM+<200.*2>
;STARTING FROM WRFROM+<200.*2>
:56. WORDS
;FILL WITH 377

;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS
;*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS
;*CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER
026276
026302
026304

026306
026310
026314
026316
026320

004037
003534
000310
052525
004037
004354
000070
000377

JSR

041326

REINTO

RO,a#CLAREA

200.

52525
JSR
RO,a#(Cl AREA
REINT0+<200.*2>
56.
377

041326

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

;200. WORDS

SFILL WITH 52525
;CLEAR 56. WORDS, FROM REINTO+<200.*2>
;STARTING FROM REINTO+<200.*2>
:56. WORDS
SFILL WITH 377

;*NOW WRITE DATA COMMAND WILL BE LOADED
026322

026326
026330

026331
026332
026334
026336
026340
026342

004037
000000
000
000
177470
002470
000000
010000
002442

JSR

043430
.BYTE
.BYTE

0
0
0
-200.

RO, a#RUN

WRFROM

;SETUP TO RUN FOR DATA COMMAND

sCYLINDER 0
;SECTOR O
:TRACK 0
sWORD COUNT = 200.
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT22
WRIDAT

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

;*NOW SAVE REGISTER FOR COMPARISON AFTER WRITE DATA
026344
026350
026352
026354

004037
002272
004612
000022

041624

026356
026362
026366

004737

041536
066720

026370

013777

004606

026376
026402

013746
052716

002442
000101

104401
000000

JSR
RHW(

RO,a#SAVER

JSR

PC,a#CHECKT

MOv

Q#RP4LVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS

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

SAVERE
18.

LXPg
.
HAL

153670

;SAVE REGISTERS
JRHWC IS THE FIRST REGISTER SAVED

;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS
LCPHALT

;CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1
;g?ggOT CONTINUE
:

TESTING IF ANY OF

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

WTA N AN WA LWAVIWAW

TST37:

LA WD DA WA AN DA

012737
004737

001000
000037
041456

VLA

5165
5166
5167
5168
5169
5170
517N
5172
5173
5174
5175
5176
5177
5178
5179
5180
5181
5182
5183
5184
5185
5186
5187
5188
5189
5190
5191
5192
5193
5194
5195
5196

000004
012706

A VLA

5164

026232
026234
026240
026246

SEQ 0117

LA LA VLA A VU A W WA A VAL VLA A

5157
5158
5159
5160
5161
5162
5163

N 9
MACY11 30A(1052)
27-JUL-78 13:06 PAGE 118
WRITE/READ DATA (052525)
137

CZRJICO, RPO4/5/6 FCTNL CTLR]
CZRJIC.PN
27-JuL-78 13:05

026406
026412
026414

012677
011100
011305

8 10

SEQ 0118

MACY11 30A(1052) 27-JUL-78 13:06 PAGE 119
WRITE/READ DATA (052525)
137

MOV
MOV
MOV

153666

;*ONE

(SP)+,@RHCS1
aR1.R0
aR3.RS

;GO WITH
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

REVOLUTION=16670 MICROSEC,

ONE SECTOR=760 MICROSEC

;WAIT FOR RDY BIT TO SET

WAT
R HCS1

sWAIT FOR RHCS1 REGISTER

;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS

MOV
IS
MOV
CMP
BEQ
MOV
MOV

002442
004101
001124
001126
004600
010500
001124

:
649

MOV

cMP

MOV

001126
004600

MOV

@MWRIDAT ,~(SP)
(SP)
#1E!GO!DVA,
(SP) ,a#$GDDAT
(SP)+ RO
648
RO, a#$BDDAT
g}.O#REGADR

;RDY MUST SET BETWEEN
: SAVE COMMAND

s INCLUDE IE!GO!DVA
:SAVE FOR PRINTOUT
:DURING ABOVE OPERATION ONLY IE!GO!DVA
:BRANCH IF GOOD
:BAD DATA
;FAILING REGISTER RHCS1
:DURING ABOVE OPERATION ONLY

#MOL 'DPR ! WV, =(SP)
(SP).,a#$GDDAT

(SP)+,RS

66%
RS ,a#$BDDAT

2% .G#REGADR

;SAVE BITS SET DURING OPERATION IN RHDS1

;SAVE FOR PRINTOUT
:DURING ABOVE OPERATION ONLY MOL!DPR!VWV

;BRANCH IF GOOD
;BAD DATA
;FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
026510
026514

041360

J SR
RHW(

RO,a#F ILLRE

J SR
RHBA

RO,a#F ILLRE

041360

WRFROM+<200. *2>
J SR
RO,a#F ILLRE

041360

I;HDS T

:MOV O INTO SAVED RHWC
:g:}/io REGISTER TO CHANGE

MOV WRFROM+<200.#2> INTO SAVED RHBA

*SAVED REGISTER TO CHANGE
;DATA
SAVED RHDST
INTO
1
;MOV
TO CHANGE
REGISTER
g:}lib

;*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS
;*AFTER COMMAND

026540
026544
026546
026550
026552
026554

004037
004612
002354
000022
026556
026562

026556
026560

104035
000207

042444

J SR

SAVERE

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 28 ON NO ERROR
1%:

ERROR

R TS

;WRITE DATA COMMAND CAUSED
; IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE

JRECEIVED DATA GIVES WHAT WAS
:THERE AFTER COMMAND

CZRJICO, RPO4L/5/6 FCTNL CTLRI
CZRIIC.P11
27-JuL-78 13:05

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRIIC.P11
27=-JUL-78 13:05

¢ 10

MACY11 30A(1052)
27=JUL-78 13:06__PAGE 120
DATA (052525)
WRITE/READ
137

;*NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE
043474

2%:

JSR

REINTO
WRFROM

RO,a#COMPAR

256.
38

026576

sRETURN TO 38 ON ERROR

sRETURN TO 4$ ON NO ERROR

3%:

026600
026602

ERROR

RTS

;COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM REINTO
sTEST DATA STARTS FROM WRFROM
:256. WORDS TO BE COMPARED

;WRITE DATA COMMAND CHANGED
;WRITE FROM BUFFER

;*NOW A READ DATA COMMAND WILL BE GIVEN

;*FILL READ INTO BUFFER WITH 200 ZEROS AND 56 OF ALL ONES
041456
041326

(%:

JSR

REINTO

PC,a#CLDISK

RO,a#CLAREA

200

0
RO,a#CLAREA
JSR
RE INT0+<200. *2>
56.
377

041326

;SET R1-RHCS1, R2-RH(CS2
;CLEAR 200. WORDS, FROM REINTO
;STARTING FROM REINTO
;200. WORDS
;FILL WITH O

;CLEAR 56. WORDS, FROM REINT0+<200.*2>
STARTING FROM REINTO0+<200.*2>
:56. WOR
UL UITH 377

;*FILL WRITE FROM BUFFER WITH 200 OF 52525 AND 56 OF 0
041326

JSR

WRFROM

RO,a#CLAREA

200.
52525
JSR

041326

RO,a#CLAREA
WRFROM+<200. *2>
56.

377

;CLEAR 200. WORDS, FROM WRFROM
:STARTING FROM WRFROM
;200. WORDS
FILL WITH 52525
:CLEAR 56. WORDS., FROM WRFROM+<200.*2>
.56 gTARTING FROM WRFROM+<200.
%2>

niL
WITH 377

;*NOW FILL COMMAND

EJ)SR

043430
.BYTE
.BYTE

RO,a#RUN

0
0
-200.

:TRACK 0

REINTO

0
ECI!FMT22

026700

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER O
;SECTOR O

READAT

;WORD COUNT = 200.
;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
026702
026706
026710

041624

JSR

RHW(
SAVERE

RO,a#SAVER

;SAVE REGISTERS
sRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE

SEQ 0119

CZRJIC.PN

27-JuUL-78 13:05

233%2

026712

000022

5327
5328
gg?}g

026714
026720
026724

004737
104401
000000

041536
066720

g%%%

026726

013777

004606

5333
5334

026734
026740

013746
052716

002446
000101

5336

026750

011100

5339
5340
5341
5342

026754
026756
026760
026762

104413
002300
000200

5344
5345
5346
5347
5348
5349
5350
5351
5352
5353

026766
026772
026776
027002
027004
027006
027012
027016
027020
027026

013746
052716
011637
022600
001405
010037
010137
104021
012746
011637

5335

ggg

5343

5354
5355
5356
5357

g%gg

026744

026752

026764

027030
027032
027034
027040
027044

012677

153330

001507

022605
001405
010537
010337
104063

D10

13:06

010500
001124

001126
004600

67%:

;NUMBER OF REGISTERS

PC,a#CHECKT
LCPHALT

MOV

SNRPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS

@#READAT ,~-(SP)
#GO!IE, (SP)

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

MOV

aR1,R0

;SAVE RHCS1 DURING ABOVE OPERATION

WAT
RHCS1
RDY
908.

001126
004600

JSR
TYPE
HALT

MOV

002446
004101
001124

PAGE 121

WRITE/READ DATA (052525)

MOV

001614

(SP) +,3RHCS1

@R3.R5

;CHECK DVA,RDY
,MOL ,DPR,DRY, WV = 1
;CANNOT CONTINUE TESTING IF ANY OF
;STOP

;GO WITH

;SAVE RHDS1 DURING ABOVE OPERATION
;WAIT FOR RDY BIT TO SET
sWAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS

839.
MOV
BIS
MOV
cMP
BEQ
MOV
MOV
ERROR
MOV
MOV

;RDY MUST SET BETWEEN
@#READAT ,~(SP)
;SAVE COMMAND
#1E!GO!DVA,
(SP) ;INCLUDE IE!GO!DVA
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,RO
;DURING ABOVE OPERATION ONLY IE!GO!DVA
67%
;BRANCH IF GOOD
RO, a#$BDDAT
;BAD DATA
R1,a#REGADR
sFAILING REGISTER RHCS1
21
;DURING ABOVE OPERATION ONLY
#MOL !DPR'!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDSI1
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT

ERROR

cMP
BEQ
MOV
MOV

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

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

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
027046

004037

5364

027054

000000

027052

5365
5366
5367

027056
027062
027064

5369
gg;?

027072
027074

027066

002272

004037
002274
004354

004037
002304
000001

041360

5372

JSR

RHW(

RO,a#F ILLRE

JSR
RO,a#F ILLRE
RHBA
REINT0+<200.*2>

JSR

RHDST
1

RO,a#4F ILLRE

;MOV O INTO SAVED RHWC

;SAVED REGISTER TO CHANGE
;DATA

;MOV _REINTO0+<200.*2> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE
:DATA

;MOV 1 INTO SAVED RHDST

;SAVED REGISTER TO CHANGE
;DATA

;*COMPARE REGISTERS BEFORE READ DATA COMMAND

gg;z

5375
5376
5377
5378
5379
5380

153332

011305

5362

5368

137

27-JuL-78

18.

g%?
5363

MACY11 30A(1052)

;*WITH REGISTERS AFTER COMMAND

027076
027102
027104
027106
027110
027112

004037
004612
002354
000022
027114
027120

042444

JSR
SAVERE
w(
18.
5%
6%

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN ‘'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
:18. REGISTERS TO BE COMPARED
;RETURN TO 5% ON ERROR
;RETURN TO 6% ON NO ERROR

SEQ 0120

(Tl

CZRJICO, RPO4L/S/6 FCTNL CTLRT

———

CZRJICO, RPO4L/5/6 FCTNL CTLRI
CZRIIC.PN
27=-JuL-78 13:05
027114
027116

E 10
MACY11 30A(1052) 27=JUL-78 13:06 PAGE 122
WRITE/READ DATA (052525)
137
5%:

104033

000207

ERROR
RTS

;READ DATA CAUSED IMPROPER
;REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD BE THE

sRECEIVED DATA GIVES WHAT WAS ThERE
;AFTER COMMAND

;*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ
027120
027120
027124
027126
027130
027132
027134
027136
027140
027142

004037
002470
003534

043474

6%:

104034

RO,a#COMPAR

:256. WORDS TO BE COMPARED

7%
108

7%:
10%:

ERROR
RTS

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

256.

000400
027136
027142

000207

JSR

WRF ROM
REINTO

sRETURN TO 7$ ON ERROR
;RETURN TO 108 ON NO ERROR

s INCORRECT DATA AFTER

sWRITE DATA FOLLOWED BY A

;READ DATA

SEQ 0121

—

CZRJICO, RPOL/S/6 FCTNL CTLR1
CZRJIC.P11
27-JuL~78 13:05
5406

5407
5,08
5409
5410
5411
5412
552}2
552}2

027142

027144
027152
027156
027164
027170
027174
027176
027202

012737
012706
012737
004737
005737
001402
000137
005037

F 10

000001 001212
001000
000040 004604
041456
004750
030312
004732

1ST40:

SCOPE

MOV
MOV
MOV
JSR
ST
BEQ
JMP
CLR

#1,8TINES
#STACK, SP
260, 4TSTAM
PC,a#CLDISK
RH70
308
IST41
NUBUSB

::D0 1 ITERATION
*RESET STACK
*SAVE TEST NUMBER
SSET R1-RHCS1, R2-RH(CS2
*TEST FOR RH70 CONTROLLER
“IF FLAG = 1, THIS TEST IS SKIPPED
JUMP TO NEXT TEST
;:CLEAR UNIBUS INDICATOR

;#NOW FILL WRITE FROM BUFFER-200 OF 52525 AND 56 OF 377

552};

5419
5420
5421
5422
5423
5424

027206
027212
027214
027216
027220
027224

004037 041326
002470
000310
052525
004037 041326
003310

JSR
RO, 3#CLAREA
WRF ROM
200.
§2525
JSR
RO, a#CLAREA
WRFROM+<200. *2>

:CLEAR 200. WORDS, FROM WRFROM
*STARTING FROM WRFROM
:200. WORDS
SFILL WITH 52525
“CLEAR 56. WORDS, FROM WRFROM+<200.*2>
:STARTING FROM WRFROM+<200.
%2>

55259

027230

000377

377

SFILL WITH 377

|
J

5425

027226

000070

56.

:56. WORDS

5428
5429

;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS
“«WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS

5432 027232 004037 041326
5433 027236 003534
5434 027240 000210

RE INTO

ssg?

5435
5436
5437

5438
552433

“«CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER

027242
027244
027250
027252
027254

052525
004037
004354

JSR
200.

5449
5450
5451

RO, a4CLAREA

52525
JSR
RO,a#CLAREA
RE INT0+<200. *2>

0641326

000070
000377

56,
377

:CLEAR 200. WORDS, FROM REINTO
“STARTING FROM REINTO
:200. WORDS

SFILL WITH 52525
:CLEAR 56. WORDS, FROM REINT0+<200.*2>
-STARTING FROM RE INT0+<200. %2>
:56. WORDS
SFILL WITH 377

:*NOW WRITE DATA COMMAND WILL BE LOADED

55244}

5443
5444
5445
5446
5447
5448

027256 004037 043430
027262 000000
027264
000
027265
000
027266 177470
027270 002470
027272
027274
027276

000000
010000
002442

5452 027300 052777 002000

gzgz

SEQ 0122

MACY11 30A(1052) 27=JUL-78 13:06 PAGE 123
140
WRITE/READ DATA USING UNIBUS B

BYTE
BYTE

152772

JSR
RO, a#RUN
0
0
-200.
WRFROM
0

0
FMT22
WRIDAT

BIS

#PSEL ,@RHCS1

:SETUP TO RUN FOR DATA COMMAND
*CYLINDER O
*SECTOR 0
*TRACK 0
*WORD COUNT
= 200.
*BUS ADDRESS

DO NOT INHIBIT BUS ADDRESS INCREMENT
216 BITS PER WORD FORMAT
:GET READY TO DO A WRIDAT

*SET PORT B

:THAT IS UNIBUS B

gzgg

:*NOW SAVE REGISTER FOR COMPARISON AFTER WRITE DATA

5457 027306 004037 041624
5458 027312 002272
5459 027314 004612
222? 027316 000022

JSR
RO, a#SAVER
RHW(C
SAVERE
18.

:SAVE REGISTERS
“RHWC IS THE FIRST REGISTER SAVED
*STARTING ADDRESS OF WHERE
*NUMBER OF REGISTERS

)

—

Am—

CZRJICO, RPO4L/S5/6 FCTNL CTLRI
CZRJIC.PN

5462

5463

5464

27-JuL~-78 13:05

027320
027324
027330

004737

027332
027340
027344
027350
027354
027356

013777
013746
052716
012677
011100
011305

104401

000000

MACYT1 3?261052)

041536
066720
004606
002442
002101

152726

27=JUL=78

PAGE 124

WRITE/READ DATA USING UNIBUS B

;CHECK DVA,RDY,MOL ,DPR,DRY, WV = 1
:g?ggOT CONTINUE TESTING IF ANY OF

JSR
LX{?

PC,a#CHECKT
LCPHALT

MOV
MOV

S#RPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS
a#WRIDAT ,-(SP)
;GET READY TO MOVE COMMAND

MOV
MOV

aR1,RO
aR3,R5

BIS
MOV

152724

G 10

13:06

;GET READY TO SET 'GO' AND
#GO! IE!PSEL, (SP)
;GO WITH
(SP)+ ,@RH(CS1

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

;*ONE REVOLUT Jun=16670 MICROSEC, ONE SECTOR=760 MICROSEC
027360
027362
027364
027366
027370
027372
027376
027402
027406
027410
027412
027416
027422
027424
027430
027434
027436
027440
02744
027450

002442
006101
001124

WAT
RHCS1
RDY
908.
839.
MOV

@MWRIDAT ,~(SP)

;WAIT FOR RDY BIT TO SET
JWAIT FOR RHCS1 REGISTER
JWAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS
sRDY MUST SET BETWEEN
;SAVE COMMAND

BEQ
MOV

649
RO, a#$BDDAT

;BRANCH IF GOOD
;BAD DATA

BIS
MOV
cMP

001126
004600
64%:

010500
001124
001126
004600

MOV
ERROR
MOV
MOV
{MP
BEQ
MOV
MOV
ERROR

#1E!GO!DVA!PSEL, (SP)
s INCLUDE IE!GO:!DVA!PSEL
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
(SP)+,RO
;DURING ABOVE OPERATION ONLY IE!GO!DVA!PSEL
sFAILING REGISTER RHCS1
R1,3#REGADR
;DURING ABOVE OPERATION ONLY
21
;SAVE BITS SET DURING OPERATION IN RHDS1
#MOL !DPR!VV,=(SP)
PRINTOUT
FOR
;SAVE
(SP) ,a#$GDDAT
(SP)+,RS
;DURING ABOVE OPERATION ONLY MOL :DPR!VV
66$
;BRANCH IF GOOD
;BAD DATA
RS ,a#$BDDAT
R3,a#REGADR
;FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY
63

;*CHECK IF NEM NON EXISTANT MEMORY IS SET
s*IF SET IT MEANS UNIBUS B IS NOT CONNECTED
;%SO THIS TEST IS NOT PERFORMED
027452
027460
027462
027470
027474
027550
027554
027560
027564
027564
027570
027642
027646

032777
001441
012737

004000

152616

177777

004732

104401

027476

104401
104401

000137

001223
001223
030312

104401

027572

104401
104401

001223
001223

000425

000424

BIT

BEQ
MoV

TYPE

1%
#-1,a#UBUSB
,68%

TYPE

.SCRLF

TYPE

11%:

#NEM,aRH(CS2

JMP

TYPE

TYPE
TYPE

67%

.SCRLF

a’10$
.70%

69%

.SCRLF
.$CRLF

;TEST NEM

;BRANCH IF UNIBUS B THERE
sUNIBUS B NOT THERE
;:TYPE ASCIZ STRING

;.GET OVER THE ASCIZ

;JUMP TO NEXT TEST = NO UNIBUS B
;:TYPE ASCIZ STRING

;.GET OVER THE ASCIZ

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
027652

004037

041360

JSR

RO,a#F ILLRE

;MOV 0 INTO SAVED RHW(

SEQ@ 0123

€2
2

—

CZRJICO, RPO4/S/6 FCTNL CTLRT
CZRJIC.PN

SS18
5519

027656
027660

27=JUL~78 13:05

002272
000000

5520

027662

004037

5522
5523
5524
gggz

027670
027672
027676
027700

003310
004037
002304
000001

5521

027666

MACY11 30A(1052)

002274

140

041360

JSR

RHRA

027702 004037
027706 004612
027710 002354
027712 000022

gggg

027714

027716

027720

5537

027720

104074

027722

000207

222?

RO,a#F ILLRE

WRFROM+<200, *2>
JSR
RO,a#F ILLRE
RHDST
1

041360

042444

JSR
SAVERE
wC
18.

RO, a#COMREG

027724

§555
5556
ggg;

1%:

]

5573

:COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN ‘'SAVERE'
:TEST DATA STARTING FROM 'RHW(C'
:18. REGISTERS TO BE COMPARED

ERROR

RTS

:WHILE USING UNIBUS B

:WRITE DATA COMMAND CAUSED
: IMPROPER REGISTER CHANGE

:ggoo DATA GIVES WHAT SHOULD

027724
027724
027730
027732
027734
027736
027740

004037
003534
002470
000400

043474

2%:

JSR
REINTO
WRFROM
256.

027742

104075

027744

000207

027774

004737
004037
003534
000310
000000
004037
004354
000070

3%:

000377

041456
041326

041326

|
'

4%:

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

~
027746
027746
027752
027756
027760
027762
027764
027770
027772

:
RO, a#COMPAR

027746

027742

;*NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE

222?

gg;}

:DATA
MOV 1 INTO SAVED RHDST
:SAVED REGISTER TO CHANGE
;DATA

:THERE AFTER COMMAND

5559

5562
5563
5564
5565
5566
5567
5568
5569
§570

:SAVED REGISTER TO CHANGE

RECEIVED DATA GIVES WHAT WAS

ggzz

5552

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

sRETURN TO 2% ON NO ERROR

ggzz

gggz

:SAVED REGISTER TO CHANGE
:DATA

*RETURN TO 18 ON ERROR

5542

5547
5548
5549
5550
5551

SEQ 0124

:*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS
:*AFTER COMMAND

5530
5531
5532
5533

5538
5539

H 10
13:06 PAGE 125

WRITE/READ DATA USING UNIBUS B

RHW(
0

5527
gggg

5534,

27-JuUL=-78

:RETURN TO 4$ ON NO ERROR

ERROR

RTS

;WHILE USING UNIBUS B
;WRITE DATA COMMAND CHANGED
:WRITE FROM BUFFER

;*NOW A READ DATA COMMAND WILL BE GIVEN

:;*FILL READ INTO BUFFER WITH 200 ZEROS AND 56 OF ALL ONES
JSR
PC,a#CLDISK
JSR
RO,a#CLAREA
REINTO
200.
0
JSR
RO, a#CLAREA
REINT0+<200. *2>
56.
377

;SET R1-RHCS1, R2-RHCS2
;CLEAR 200. WORDS, FROM REINTO
:STARTING FROM REINTO
:200. WORDS
FILL WITH O
:CLEAR 56. WORDS, FROM REINT0+<200.*2>
:STARTING FROM REINTO+<200.*2>
:56. WORDS

|
|

sFILL WITH 377

;*FILL WRITE FROM BUFFER WITH 200 OF 52525 AND 56 OF 0

CZRJICO, RPO4/S/6 FCTNL CTLR1
CZRJIC.P1

557

5575
5576
§577
5578
5579
5580
5581
ggg%

27=JUL~78 13:05

027776
030002
030004
030006
030010
030014
030016
030020

004037
002470
000310
052525
004037
003310
000070
000377

MACY11 30A(1052)
140

041326

5595

gggg

1 10

13:06 PAGE 126

WRITE/READ DATA USING UNIBUS B

JSR
WRF ROM
200.
52525

RO,a#CLAREA

JSR
RO,a#CLAREA
WRFROM+<200. *2>
56.

;CLEAR 200. WORDS, FROM WRFROM
:STARTING FROM WRFROM
:200. WORDS
JFILL WITH 52525

:CLEAR 56. WORDS, FROM WRFROM+<200.*2>
:STARTING FROM WRFROM+<200.*2>
;56. WORDS

FILL WITH 377

377
:*NOW FILL COMMAND

gggg
5586
5587
5588
5589
SS90
5591
5592
5593
5594

27-JUL=78

030022
030026
030030
030031
030032
030034
030036
030040
030042

030044

004037
000
000
177470
003534
000000
014000
002446

052777

043430
.BYTE
.BYTE

002000

152226

JSR
RO, a#RUN
0
0
0
-200.
REINTO
0
ECI'FMT22
READAT

BIS

#PSEL ,@RHCS1T

:SETUP TO RUN FOR DATA COMMAND
-2CYLINDER O
;SECTOR O
;TRACK 0
:WORD COUNT = 200.
;BUS ADDRESS
:DO NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
:GET READY TO DO A READAT

:SET PORT B

:THAT IS UNIBUS B

:*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND

gggg
5600
5601
5602
2282

030052
030056
030060
030062

004037
002272
004€12
000022

041624

JSR
RHWC
SAVERE
18.

RO, a#SAVER

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

5605
5606

030064
030070

004737
104401

041536
066720

JSR
TYPE

PC,a#CHECKT
LCPHALT

:CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1
:CANNOT CONTINUE TESTING IF ANY OF

5609
5610
5611
5612
5613

030076
030104
030110
030114
030120

013777
013746
052716
012677
011100

004606
002446
002101
152160

MOV
MOV
BIS
MOV
MOV

@#RP4LVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS
@#READAT,-(SP)
:GET READY TO MOVE COMMAND
#GO'IE'PSEL, (SP)
:GET READY TO SET 'GO' AND
(SP)+,3RHCS1
:GO WITH
aR1,R0
:SAVE RHCS1 DURING ABOVE OPERATION

5616
5617
56'8
5619

030124
030126
030130
030132

104413
002300
000200
001614

5621

030136

013746

002446

MOV

001405
010037

001126

BEQ
MOV

gggg

gg}g

5620

5622
5623
5624
5625
5626

5627
5628
5629

030074

030122

030134

030142
030146
030152
030154
030156

030162
030166
030170

(000000

HALT

152162

011305

001507

052716
011637
022600

010137
104021
012746

MOV

aR3,.RS

WAT
RHCS1
RDY
908.

839.

006101
001124

004600

010500

71%:

;STOP

:SAVE RHDS1 DURING ABOVE OPERATION

:WAIT FOR RDY BIT TO SET
:WAIT FOR RHCS1 REGISTER
:WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS
A#READAT ,-(SP)

;RDY MUST SET BETWEEN
;SAVE COMMAND

BIS
MOV
CMP

#1E'GO'DVA'PSEL, (SP)
:INCLUDE IE'GO!DVA'PSEL
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,R0
:DURING ABOVE OPERATION ONLY IE'GO'DVA'!PSEL

MOV
ERROR
MOV

R1,a#REGADR
:FAILING REGISTER RHCS1
21
:DURING ABOVE OPERATION ONLY
#MOL ' DPR!VV,=(SP)
- :SAVE BITS SET DURING OPERATION IN RHDS1

718
RO,a#$BDDAT

:BRANCH IF GOOD
;BAD DATA

SEQ 0125

CZRJICO, RPO4/5/6 FCTINL CTLRI
CZRJIC.PM

27-JuL~-78 13:05
011637
022605
001405
010537
010337

5630
5631
5632
5633
5634

104063

MACYT1 30A(1052)
140

27=JUL-78

001126
004600

SEQ 0126

PAGE 127

WRITE/READ DATA USING UNIBUS B

MOV
CMP
BEQ
MOV

001124

J 10

13:06

MOV
ERROR

(SP) ,a#$GDDAT
(SP)+,R5
73%
RS ,a#$BDDAT

R3.,a#REGADR
63

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY MOL !DPR!VV
;BRANCH IF GOOD
;BAD DATA

sFAILING REGISTER RHDSI1
;DURING ABOVE OPERATION ONLY

;*CHANGE SAVED REGISTERS TQO EXPECTED VALUES
004037
002272
000000
004037
002274
004354
004037
002304
000001

041360
041360

JSR
SHUC

RO,a#F ILLRE

sMOV O INTO SAVED RHWC
:g:¥ED REGISTER TO CHANGE

JSR

RO, a#F ILLRE

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

RHBA

REINTO+<2C0. *2>

JSR
?HDST

041360

RO, a#F ILLRE

;SAVED REGISTER TO CHANGE
;DATA

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

;*COMPARE REGISTERS BEFORE READ DATA COMMAND
;*WITH REGISTERS AFTER COMMAND
004037
004612
002354
000022
030264
030270

042444

5%:

104072

000207

JSR
SAVERE
w(
18.
5%
6%

RO,a#COMREG

;COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
:18. REGISTERS TO BE COMPARED
;RETURN TC 5% ON ERROR
;RETURN TO 6% ON NO ERROR

ERROR

;WHILE USING UNIBUS B

RTS

;READ DATA CAUSED IMPROPER
;REGISTER CHANGE

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

;*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ
030270
030270
030274
030276
030300
030302
030304

004037
002470
003534
000400
030306
030312

030306

104073

030310

000207

030312

043474

6%:

JSR

WRFROM
REINTO

RO,a#COMPAR

256.

:256. WORDS TO BE COMPARED

;RETURN TO 7$ ON ERROR

108

7%:

10%:

;COMPARE TWO BLOCKS OF MEMORY

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

RETURN TO 108 ON NO ERROR

ERROR

RTS

;WHILE USING UNIBUS B
; INCORRECT DATA AFTER

sWRITE DATA FOLLOWED BY A

;READ DATA

SEuth.

. dB. o

,.,

(W4

SEG 0127

PAGE 128

13:06

27-JuUL-78

WRITE/READ DATA USING UNIBUS B

140

5686

MACY11 30A(1052)

27=JuL-78 13:05

CZRJIC.P11

)

CZRJICO, RPO4/S/6 FCTNL CTLRT

K 10

004037
003500
000004

041326

;*FILL WRITE FROM BUFFER WITH DATA

RO,a#CLAREA
JSR
WRFROM+10
(2)56.

041302

sFILL WITH O

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

;NUMBER OF WORDS SAVED

;FIRST DATA WORD

‘1| 0000

;SECOND DATA WORD
;THIRD DATA WORD

0
0

004037
003510

041326

000001

;CLEAR 256. WORDS, FROM WRFROM+10
;STARTING FROM WRFROM+10
S
WORD
;256.

;FOURTH DATA WORD

;*FILL WRITE FROM BUFFER WITH NEXT SECTOR DATA
RO,a#CLAREA
;CLEAR 2 WORDS, FROM WRFROM+<264.*2>
\gRF ROM+<264 . %2>
;STARTING FROM WRFROM+<264.*2>
;2 WORDS
1
SFILL WITH 1

004037
003544
00
000000
004037
004544
000004
010000

041302

JSR

REINTO

RO, a#F LHEAD

10000

041326

0
0
0
RO,34#CLAREA
JSR
REINTO+10

256.

041302

YNY.T.8

VYV

JSR

;*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.
004037
003534
000004
010000

;THIRD DATA WORD
;FOURTH DATA WORD

0
0
0

10000

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

RO,a#F LHEAD

oYY

JSR

WRFROM

004037
002500

;SAVE TEST NUMBER
;SET R1-RH(CS1, R2-RH(S2

;*FILL WRITE FROM BUFFER WITH HEADER

000004
010000
000000
000000
000000

JRESET STACK

041302

#STACK,SP
#41 ,INTSTNM
PC,a#CLDISK

041456

004604

SCOPE

MOV
MOV
JSR

000041

TST&1:

004037
002470

001000

CZF
CZF

5697

000004
012706
012737
004737

SEQ 0128

5696

030312

WRITE/READ DATA USING UNIBUS B

0
JSR
RO,a#F LHEAD
REINTO+<260.
%2>
4

10000

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

;FOURTH DATA WORD
;CLEAR 256. WORDS, FROM REINTO+10
:STARTING FROM REINTO+10
:256. WORDS

sFILL WITH O
:SAVE HEADER DATA IN REINT0+<260.*2>
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD

5687
5688
5689
5690
5691
5692
5693
5694
5695

140

27=-JUL-78

L 10
13:06 PAGE 129

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PT
27=-JuL-78 13:05

MACYT1 30A(1052)

JSR

PC,a#CHECKT

MOV

@#RPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV

@MWRIFOR,-(SP)
#GO!IE, (SP)
(SP)+,aRHCS1
aR1,RO
aR3,R5

18.

TYP$
HAL

151510

BIS
MOV
MOV
MoV

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

:NUMBER OF REGISTERS
JCPHALT

;CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1

;g?ggOT CONTINUE TESTING IF ANY OF
-

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

WAT

RHCS1
RDY
1025.
875.
MOV
BIS
MOV
CMP
BEQ
MOV

002300
000200
002444
004101
001124

001126
004600

022605

010500
001124

64%:

;WAIT FOR RDY BIT TO SET

AHWRIFOR,=(SP)

#1E!GO!DVA,(SP)
(SP) ,a#$GDDAT
(SP)+,RO

V. .N
V. V. V. V. V. ¥,
N

;SAVE COMMAND

;INCLUDE IE!GO!DVA

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY IE!GC!DVA

MOV
ERROR
MOV
CMP

(SP) +,R5

(SP) ,a#$GDDAT

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

649
;BRANCH IF GOOD
RO,a#$8DDAT
:BAD DATA
R1,a#REGADR
;FAILING REGISTER RHCS1
21
:DURING ABOVE OPERATION ONLY
#MOL !DPR!VV,=(SP)
:SAVE BITS SET DURING OPERATION IN RHDS1

MOV

002444
000101
151506

RO,a#SAVER

013746
052716
012677
011100
011305

:*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DAT1

JSR
RHW(
SAVERE

004606

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

013777

;DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT22
WRIFOR

000022

000000

;BUS ADDRESS

041536
066720

WRFROM

104401

;SECTOR 0
:TRACK 0
:WORD COUNT (DATA) = 262. +

004737

0
0
-262.~4

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER O

041624

.BYTE
.BYTE

RO, a#RUN

004037
002272
004612

EJ)Sl"(

043430

004037
000000
000
000
177366
002470
000000
010000
002444

;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED

SFILL WITH 1

;CLEAR 2 WORDS, FROM REINTO+<264.%2>
;STARTING FROM REINTO+<264.%2>
;2 WORDS

041326

s THIRD DATA WORD
;FOURTH DATA WORD

RO,a#CLAREA
JSR
REINTO+<264.%2>
2

0
0

;SECOND DATA WORD

CZF
CZF

SEQ 0129

IMPLIED SEARCH

PAGE 130

5747
5748
5749

13:06

5746

000001
000000
000000
004037
004554
000002
000001

27-JUL-78

5743
5744
5745

T41

M 10

;SAVE FOR PRINTOUT

;DURING ABOVE OPERATION ONLY MOL !DPR!VV

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JuL-78 13:05

MACY11 30A(1052)

5799
5800
5801
5802
5803

030654
030656
030662
030666

5806
5807
5808
5809
5810
5811

030670
030674
030676
030700
030704
030706

001405
010537
010337
104063

MACY11 30A(1052)
T41

27=-JUL-78

IMPLIED SEARCH

BEQ
MOV
MOV

001126
004600

N 10

13:06

ERROR

SEQ 0130

PAGE 131

66%
RS ,a#SODDAT
R3,a#REGADR
63

;BRANCH IF GOOD
;BAD DATA
sFAILING REGISTER RHDS1

sDURING ABOVE OPERATION ONLY

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES
004037
002272

041360

JSR
8’“‘

RO,a#F ILLRE

sMOV O INTO SAVED RHWC
;g:¥io REGISTER TO CHANGE

004037
002274
003514
004037
002304

041360

JSR
RHBA

RO, @4F ILLRE

“MOV WRFROM+<266.%2> INTO SAVED RHBA
*SAVED REGISTER TO CHANGE

JSR

RO,a#F ILLRE

000000

WRFROM+<266. *2>

041360

gHDST

000002

;DATA

;MOV 2 INTO SAVED RHDST

.g:¥ib REGISTER TO CHANGE

;*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND
004037
004612
002354
000022
030736
030742

JSR
SAVERE
w(

042644

RO, a#COMREG

18.

;18. REGISTERS TO BE COMPARED

sRETURN TO 1$ ON ERROR

;RETURN TO 2% ON NO ERROR

2%
1%:

104027

000207

ERROR
RTS

;COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN ‘'SAVERE'
sTEST DATA STARTING FROM 'RHWC'

;sWRITE HEADER AND DATA

;CAUSED IMPROPER REGISTER

: CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE

sRECEIVED DATA GIVES WHAT
;WAS THERE AFTER COMMANT

;*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT
;*NOTHING GOT CHANGED
5837
5838
5839
5840
5841
5842
5843

030742
030742
030746
030750
030752
030754
030756

004037
003534
002470
000412
030760
030764

5845
5846

030760
030762

104030
000207

043474

2%:

JSR

REINTO

RO,a#COMPAR

WRFROM
266.
3%
ERROR

RTS

;GOOD DATA STARTS FROM REINTO

sTEST DATA STARTS FROM WRFROM
;266. WORDS TO BE COMPARED
sRETURN TO 3$ ON ERROR

3%:

;COMPARE TWO BLOCKS OF MEMORY

JRETURN TO 4% ON NO ERROR

JWRITE HEADER AND DATA

;CHANGED WRITE FROM BUFFER

;*NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN
;*FOR SECTOR 1, 256 WORDS

5851
5852
5853
5854

030764
030764
030770
030774

004737
004037
003534

041456
041326

4%:

;*READ INTO BUFFER IS FILLED WITH ONES
JSR
JSR

REINTO

PC,a#CLD]ISK
RO,a#CLAREA

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

N
. T . L
L L
T T T . T e 7. Y. Y. Y. Y. Y. Y. e 0.9 996949696 .90

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JuL-78 13:05

5855
5856
5857
5858
5859

030776
031000

MACY11 30A(1052)
T41

27-JUL-78

B 1

13:06

IMPLIED SEARCH

PAGE 132
:260.

260.
377

000404
000377

SFILL UITH 377

;*WRITE FROM BUFFER IS FILLED WITH EXPECTED DATA
004037
002470
000006

5860

5861

JSR

041302

WRFROM
6

RO,
a#F LHEAD

}0000

0
0

}

JSR

041326

RO,a#CLAREA

WRFROM+<6, *2>
(2)51.

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

;CLEAR 254 WORDS, FROM WRFROM+<6.%*2>
%2>
:STARTING FROM WRFROM+<6.

;254 WORDS

JFILL WITH O

;*NOW FILL COMMAND

3SR

043430
.BYTE
.BYTE

RO, a#RUN

0
-256.<4
SE INTO

ECI!FMT22

REFOR

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

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

041624

RHW(

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

PC,a#CHECKT

;CHECK DVA_RDY,MOL ,DPR,DRY,VV =1
gAg,OT CONTINUE TESTING IF ANY OF

SAVERE

031072
031074
031100
031104

041536
066720

031106

013777

031114

013746
052716
012677
011100

031132

RO,a#SAVER

11305

004606

JSR

TYPE

HALT

151152

MOV

MOV
151150

BIS
MOV

MOV
MOV

LCPHALT

S#RP4LVEC ,aRPVEC( ;SET RPO4 VECTOR ADDRESS

a#REFOR,-(SP)

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

aR1,R0
@R3,R5

;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 SECONDS
031134
031136
031140
031142

104413
002300
000200
001614

WAT

RHCS1
RDY

908.

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS

SEQ 0131

TMS

CZRJICO, RPO4L/5/6 FCTNL CTLRY
CZRJIC.P
27=JuL~ 78 13:05

PINES
S AN N

b cod cd cod cd

CZRJICO, RPO4/5/6 FCTNL CTLRI
27-JuL-78 13:05
CZRJIC.PN

MACY11 30A(1052)
T41

27-JUL-78

67%:

13:06

IMPLIED SEARCH

839.
MOV
BIS
MOV
CMP

001507
013746

PAGE 133

SEQ 0132

;RDY MUST SET BETWEEN
GWREFOR,~(SP)
;SAVE COMMAND
#1E!GO!DVA,(SP) ;INCLUDE IE!GO!DVA
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
(SP)+,RO
;DURING ABOVE OPERATION ONLY IE!GO!DVA

BEQ
MOV
MOV
ERROR
MOV

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

cMP
BEQ
MOV

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

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY MOL !DPR!VV
;BRANCH IF GOOD
;BAD DATA

ERROR

;DURING ABOVE OPERATION ONLY

MOV

(SP) ,a#$GDDAT

R3,a#REGADR

;FAILING REGISTER RHDS1

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
041360
041360

RO,a#F ILLRE

;MOV O INTO SAVED RHWC

JSR

RO,a#F ILLRE

:MOV REINT0+<260.#2> INTO SAVED RHBA

RHBA

REINTO+<260. %2>

JSR

041360

031252
031254

JSR

SHUC

SHDST

RO,a#F ILLRE

.g:\r’ib REGISTER TO CHANGE

;SAVED REGISTER TO CHANGE
:DATA

:MOV 2 INTO SAVED RHDST

:g:\rlib REGISTER TO CHANGE

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

004037
004612

JSR
SAVERE
wC
18.
5%
6%

042444

002354

031272

031274
031300

031274
031276

104031
000207

5%:

ERROR

RTS

RO, a#COMREG

;COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN ‘'SAVERE'
sTEST DATA STARTING FROM 'RHWC'
;18. REGISTERS TO BE COMPARED
;RETURN TO 5% ON ERROR
;RETURN TO 6$ ON NO ERROR

;READ HEADER AND DATA CAUSED

; IMPROPER REGISTER CHANGE

;GOOD DATA GIVES WHAT SHOULD
;BE THERE

“RECEIVED DATA GIVES WHAT WAS
*THERE AFTER COMMAND

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

031312

004037
002470
003534
000404
031316

043474

6%:

JSR
WRFROM
REINTO
260.
’$

RO,a#COMPAR

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

;260. WORDS _TO BE COMPARED
;RETURN TO 7% ON ERROR

(alal

—

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JuL~-78 13:05
5967
5968
5969
5970
5971
5972
5973
5974

031314

031322

031316
031320

104032
000207

031322

MACY1] 3?2%1052)

27=JUL=78

IMPLIED SEARCH

10%:

ERROR
RTS

PAGE 134
sRETURN TO 108 ON NO ERROR

10%

7%:

13:06

;WRITE HEADER AND DATA
;FOLLOWED BY A READ HEADER

;AND DATA GAVE A READ ERROR

;ERROR MAY BE IN READ OR WRITE

SEQ 0133

—

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRIIC.PM
27=JuL- 78 13:05
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985

031322
031324

000004
012706
012737
004737

004037
002470

001000
041456
041302

000004
010000
011025
000000
000000

004037
031372

002500
000400

004037
003500
000004
010001

031414
031420
031422
031424

004037
003510
000002
002000

T41

TST42:

004604

27=JUL-78

13:06

IMPLIED SEARCH
SCOPE

MOV
MOV
JSR

#STACK,SP
#462 ,INTSTNM
PC,a#CLDISK

041326

RO, a#F LHEAD

WRFROM+<260. *2>
10001
0
0
0

041326

;SET R1-RHCS1, R2-RH(S2

;FIRST DATA WORD

:SECOND DATA WORD

;THIRD DATA WORD
;FOURTH DATA WORD

;CLEAR 256. WORDS, FROM WRFROM+10
256
STARTING FROM WRFROM+10
FILL WITH <18.%40>!21.

;*FILL WRITE FROM BUFFER WITH NEXT TRACK HEADER

JSR

000C00

sRESET STACK

;SAVE TEST NUMBER

;*FILL WRITE FROM BUFFER WITH DATA

RO,a#CLAREA
JSR
WRFROM+10
256.
<18.%40>!21.

041302

SEQ 0134

PAGE 135

;*FILL WRITE FROM BUFFER WITH HEADER
JSR
RO, a#F LHEAD
;SAVE HEADER DATA IN WRFROM
ZRF ROM
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
10000
618.'400>!<21.>

001125

031374
031400
031402
031404
031406
031410
031412

MACY11 30A(1052)

;SAVE HEADER DATA IN WRFROM+<260.*2>
;LOCATION WHERE SAVED
:NUMBER OF WORDS SAVED
;FIRST DATA WORD
;SECOND DATA WORD

;THIRD DATA WORD

;FOURTH DATA WORD

s*FILL WRITE FROM BUFFER WITH NEXT TRACK DATA

JSR

RO,a#CLAREA

WRFROM+
<264 . x2>
2

2000

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

;*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.
031426
031432
031434
031436
031440
031442
031444
031446
031452
031454
031456
031460
031464
031466
031470

041302

JSR

251NTO

RO,
a#F LHEAD

10000

<18.%400>!<21.>

041326

RO,a#CLAREA
JSR
REINTO+10

256.
041302

<18.%40>!21.
JSR
RO,
a#F LHEAD
REINTO+<260.
%2>
4

10001

;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
;FILL WITH <18.%40>'21,

:SAVE HEADER DATA IN REINTO+<260.%2>
;LOCATION WHERE SAVED

;NUMBER OF WORDS SAVED
sFIRST DATA WORD

—

| CZRJICO, RPO4/S/6 FCTNL CTLRI
CZRJIC.PM

6031
6032
6033
603,
6035
6036
6037

27-JUL-78 13:05

031472
031474
031476
031500
031504
031506
031510

000000
000000
000000
004037
004554
000002
002000

MACY11 30A(1052)

SEEK TESTS

27=JUuL-78

F1N

13:06

0
0
0

JSR
RO,a#CLAREA
RE INTO+<264 . %2>
P
2000

041326

SEQ 0135

PAGE 136
;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD

:CLEAR 2 WORDS, FROM RE INTO+<264.%2>
:STARTING FROM RE INTO+<264.*2>
;2 WORDS
sFILL WITH 2000

:*NOW THE WRITE HMEADER AND DATA COMMAND WILL BE FILLED
6041
6042
6043
6044
6045

6049

031512
031516
031520
031521
031522

031532

004037
000000
025

043430

.BYTE
.BYTE

022
177366
002470
000000
010000
002444

RO,a#RUN
JSR
0
21.
18.
~262.+4

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0O
;SECTOR 21.
;TRACK 18.
:WORD COUNT (DATA) = 262. +

;DO NOT INHIBIT BUS ADDRESS INCREMENT

WRFROM
FMT22
WRIFOR

;BUS ADDRESS

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

:*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA1
6053
6054
6055
6056

031534
031540
031542
031544

004037
002272
004612
000022

041624

JSR
RHWC
SAVERE
18.

RO,a#SAVER

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

6058
6059
6060

031546
031552
031556

004737

041536
066720

JSR

PC,a#CHECKT

;CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1

6062

031560

013777

004606

MOV

a#RP4LVEC ,aRPVEC ;SET RP0O4 VECTOR ADDRESS

6064
6065
6066
6067
6068

031566
031572
031576
031602
031604

013746
052716
012677
011100
011305

002444
000101

MOV

A#WRIFOR,-(SP)

;GET READY TO MOVE COMMAND

MOV

(SP) + ,@RHCS1

;GO WITH

104401
000000

TYPE
HALT

150500

BIS

150476

MOV
MOV

LCPHALT

#GO!IE, (SP)
aR1,R0
aR3.R5

;CANNOT CONTINUE TESTING IF ANY OF
;STOP

;GET READY TO SET 'GO' AND

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

= 760 MICRO1 SEC
;*ONE REVOLUTION = 16670 MICRO1 SEC, ONE SECTOR
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086

031606
031610
031612
031614
031616
031620
031624
031630
031634
031636
031640
031644
031650
031652
031656

WAT
RHCS1

002444
004101
001124

010037
010137
104021
012746

011637

001126
004600
010500
001124

64%:

;WAIT FOR RDY BIT TO SET
sWAIT FOR RHCS1 REGISTER

RDY
1695.
845.
MOV
BIS
MOV
CMP
BEQ
MOV
MOV
tRROR

JWAIT FOR RDY BIT IN RHCS1 REGISTER
JALLOW 16950 MICRO SECONDS
sRDY MUST SET BETWEEN
A#WRIFOR,-(SP)
;SAVE COMMAND
(SP) ;INCLUDE IE'!GO!DVA
#1E!GO!DVA,
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
(SP)+,RO
;DURING ABOVE OPERATION ONLY IE:GO:DVA
649
;BRANCH IF GOOD
;BAD DATA
RO,a#$BDDAT
R1,a#REGADR
sFAILING REGISTER RHCS1
21
:DURING ABOVE OPERATION ONLY

MOV

(SP) ,a#$GDDAT

MOV

#MOL !DPR!VV,=(SP)

;SAVE BITS SET DURING OPERATION IN RHDSI1

;SAVE FOR PRINTOUT

Gl
G

CZRJICO, RPO4/S/6 FCTNL CTLR1
CZRJIC.PN

27-JuL~-78 13:05

031662
031664

031666

031672
031676

022605
001405
010537
010337

104063

'
MACY11 30A(1052)

SEEK TESTS

27-JuL-78

CMP

BEQ
MOV

001126
004500

MOV
ERROR

G 11
13:06 PAGE 137

SEQ 0136

;DURING ABOVE OPERATION ONLY MOL !DPR:VV

(SP)+,RS

66%
RS ,a#$BDDAT

;BRANCH IF GOOD
;BAD DATA

R3,a#REGADR
63

;FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

031700
031704
031706
031710
031714
031716
031720
031724
031726
031730
031734
031736
031740
031744
031746

004037
002272
000000
004037

041360

RO,a#F ILLRE

JSR

RO, @4F ILLRE

;MOV 0 INTO SAVED RHWC
:g:¥io REGISTER TO CHANGE

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

~ SAVED REGISTER TO CHANGE

WRFROM+<266. *2>

041360

RO, a#F ILLRE

:MOV 1 INTO SAVED RHCA

JSR

RO, a#F ILLRE

“MOV 1 INTO SAVED RHCC

JSR

RO, a4F ILLRE

MOV 1 INTO SAVED RHDST

?HCC

041360

:DATA

JSR

?HCA

fiuosr

:g:¥io REGISTER TO CHANGE

:g:¥§o REGISTER TO CHANGE
:g:¥§o REGISTER TO CHANGE

;*NOW COMARE REGISTERS BEFORE WRITE HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND

i
b
b
b
b
b
b

JSR
SH”C
RHBA

oONOWVSWN—=O

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES

031750
031754
031756
031760
031762
031764

004037

031766
031770

104027
000207

004€12
002354
000022
031766
031772

JSR

042444

SAVERE

;COMPARE SAVED REGISTERS WITH

RO, a#COMREG

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

WC
18.
1%

;18. REGISTERS TO BE COMPARED
sRETURN TO 1$ ON ERROR

1%:

ERROR
RTS

;RETURN TO 2% ON NO ERROR
27

;WRITE HEADER AND DATA

;CAUSED IMPROPER REGISTER

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

;*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT
;*NOTHING GOT CHANGED
031772
031772
031776
032000

032010
032012

004037
003534
002470
000412
032010
032014
104030
000207

043474

2%:

JSR

REINTO
WRFROM

266.
3%
- 49
3%:

ERROR
RTS

;COMPARE TWO BLOCKS OF MEMORY

RO,a#COMPAR

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

;266. WORDS TO BE COMPARED
;RETURN TO 3$ ON ERROR
JRETURN TO 4$ ON NO ERROR
;WRITE HEADER AND DATA

;CHANGED WRITE FROM BUFFER

—_—

CZRJICO, RPO4/5/6 FCTNL CTLR1

CZRJIC.PN

27=JuL-78 13:05

'
MACY11 30A(1052)

SEEK TESTS

6143

;*NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN

6146

032014

6148
6149
6150
g}g}

032020
032024
032026
032030

48:

032014

004737

041456
041326

JSR
REINTO
260.
-1

032032
032036
032040
032042
032044
032046
032050
032052
032054

004037
002470
000006
010001
000000
00C000
000000
002000
002000

041302

004037
002504
000376
000000

041326

JSR
WRF ROM
6
10001
0
0
0
2000
2000

6169
6170
6171
6172
6173

032070
032074
032076
032077
032100

004037
000001
C00
000
177374

043430

6175
6176
2};;

032104
032106
032110

6153

6154
6155
6156
6157
6158
6159
6160
6161
6162

6163
6164
6165
g}gg
6168

6174

H 11
13:06 PAGE 138

s*READ INTO BUrFER IS FILLED WITH ONES

g}zg

6147

27=-JuL-78

032056
032062
032064
032066

032102

004037
003534
000404
177777

JSR

PC,a#CLDISK

RO,a#CLAREA

;SET R1-RHCS1, R2-RH(S2

;CLEAR 260. WORDS, FROM REINTO
;STARTING FROM REINTO
:260. WORDS
sFILL WITH -1

;*WRITE FROM BUFFER IS FILLED WITH 10001,0,0,0,2000,2000, AND 254 OF 0
RO, a#F LHEAD

JSR
RO,a#CLAREA
WRFROM+<6%2>
2564.
0
;*NOW FILL COMMAND

BYTE
BYTE

003534

;CLEAR 254. WORDS, FROM WRFROM+<6*2>
;STARTING FROM WRFROM+<6%2>
;254. WORDS
;FILL WITH O

JSR
RO, a#RUN
1
0
0
=-256.<4

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 1
;SECTOR 0
;TRACK 0
JWORD COUNT (DATA) = 256. +

0
ECI!FMT22
REFOR

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

REINTO

014000
002450

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

;BUS ADDRESS

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

g}gg
6181
6182
6183
g}gg

032112
032116
032120
032122

004037
002272
004612
000022

041624

JSR
RHW(
SAVERE
18.

RO,a#SAVER

;SAVE REGISTERS
sRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS

6186
6187

032124
032130

004737
104401

041536
066720

JSR
TYPE

PC,a#CHECKT
LCPHALT

;CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1
;CANNOT CONTINUE TESTING IF ANY OF

2}3?

032136

013777

004606

MOV

A#RP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

6192
6193
6194
6195
g}gg

032144
032150
032154
032160
032162

013746
052716
012677
011100
011305

002450
000101
150120

MOV
BIS
MOV
MOV
MOov

Q4REFOR,-(SP)
#GO!IE, (SP)
(SP)+,aRH(CS1
aR1,R0
aR3,R5

6198

032164

104413

g}gg

032134

000000

HALT

150122

WAT

;STOP

;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 RDY BIT TO SET

SEQ 0137

CZRJICO, RPO4/5/6 FCTNL CTLR]
CZRJIC.PN
27-JUL~-78 13:05
032166
032170
032172
032174
032176

002300
000200
001614
001507
013746

MACY11 30A(1052)
27-JUL-78
SEEK TESTS

908.

002450
004101
001124

010500
001124

032256
032262
032264
032266
032272
032274
032276
032302
032304

67%:

032324
032326

000207

MOV
MOV

CMP

001126
004600

041360

JSR

ERROR

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

;ALLOW 9080 MICRO SECONDS

sRDY MUST SET BETWEEN
@#REFOR,-(SP)
;SAVE COMMAND
#1E!GO!DVA,
(SP) ;INCLUDE IE!GO!DVA
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
(SP)+,RO
;DURING ABOVE OPERATION ONLY IE:!GO:!DVA
67%
;BRANCH IF GOOD
RO,a#$BDDAT
;BAD DATA
R1,3#REGADR
sFAILING REGISTER RHCS1
21
;DURING ABOVE OPERATION ONLY
#MOL !DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1
;SAVE FOR PRINTOUT
(SP) ,@#$GDDAT
(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

SHUC

JSR

RHBA

:g:¥£0 REGISTER TO CHANGE

RO,a#F ILLRE

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

REINTO+<260. %2>

JSR

?HDST

RO,a#F ILLRE

;MOV 1

:DATA

INTO SAVED RHDST

:82¥ED REGISTER TO CHANGE

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

042444

JSR

RO, a#COMREG

ERROR
RTS

31
PC

SAVERE
wC
18.
5%
6%
5%:

104031

SEQ 0138

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES
RO,a#F ILLRE
;MOV O INTO SAVED RHW(

041360

004037
004612
002354
000022
032324
032330

839.
MOV
BIS
MOV
CMP
BEQ
MOV
MOV
ERROR

BEQ
MOV
MOV

041360

032306
032312
032314
032316
032320
032322

PAGE 139

RHCS1
RDY

001126
004600

032240
032242
032244
032250
032254

13:06

; COMPARE SAVED REGISTERS WITH

:GOOD DATA SAVED IN ‘'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
;18. REGISTERS TO BE COMPARED
:RETURN TO 5% ON ERROR
JRETURN TO 6% 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
:*THAT READ WAS GOOD

032330
032330
032334
032336
032340

004037
002470
003534
000404

043474

6%:

JSR
WRFROM
REINTO

260.

RO,a#COMPAR

;COMPARE TWOC BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WR.ROM
;TEST DATA STARTS FROM REINTO

2260. WORDS TO BE COMPARED

2zl
cZl

CZRJICO, RPO4/5/6 FCTNL CTL 1
CZRJIC.PT

27-JuL-78 13:05

6255
6256
6257
6258
6259
6260
6261

032342
032344

032346
032352

032346
032350

104032
000207

6263

032352

6262

6264

MACY11 30A(1052)

SEEK TESTS

27-JuL-78

;RETURN TO 7$ ON ERROR

7%
0%

7%:

10%:

ERROR

RTS

J "
13:06 PAGE 140

sRETURN TO 108 ON NO ERROR
32
PC

;WRITE HEADER AND DATA
;FOLLOWED BY A READ HEADER

;AND DATA GAVE A READ ERROR

;ERRCR MAY BE IN READ OR WRITE

SEQ 0139

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PI
27-JuL-78 13:05
6265
6266
6267
62

6270
6271
6272
6273
6274
6275
6276
6277
6278

032352
032354

000004
012706
012737
004737

001000
000043
041456

MACY11 30A(1052)
27-JuL=78
SEEK TESTS
TST43:

SEQ 0140

PAGE 141

SCOPE
MOV

#STACK,SP

sRESET STACK

JSR

PC.,a#CLDISK

;SET R1-RHCS1, R2-RH(S2

MOV

004604

K 11

13:06

#43 ,ANTSTNM

;SAVE TEST NUMBER

:'EvflzggkoglNG MOVES ARE TO INITIALIZE TEST FROM
. %

;*THESE LOCATIONS ARE CHANGED DURING TEST TO ENASBLE

;*GOING TO NEXT CYLINDER

032372
032400
032406
032414
032422
032430
032436
032444
032452
032460

012737
012737
012737
012737
012737
012737
012737
012737
012737
012737

MOV
MOV

032550
032570
032602
032622
032630
033040
033050
033132
033152
033172

#10000,a#ST1+10
#<<18.%40>'21.>,a#5T72+10

MOV
MOV
MOV

#10001,a#ST73+10
#2000,a#ST4+10
#0,a4STS5+4

MOV
MOV
MOV

#10001,a#ST9+10
#2000,a#ST10+10
#1,a4S5T11+4

MOV
MOV

#1,a4ST6+6
#1,a45T6+16

;*THIS IS TO GET THE HEADS TO CYLINDER 0
032466
032474
032500
032504
032510
032512
032514
032516
032520
032522
032524
032526
032534
032540
032540
032544
032546
032550
032552
032554

032556

032560
032560
032564
032566
032570

013777
013746
052716
012677
011100
011305
104413
002322
000200
076377
056701
012737
004737

004037
002470
000004
010000

004606
002426
000101
147570

147572

a#RP4LVEC ,@RPVEC
a#RECALI,-(SP)
#GO!IE, (SP)
(SP)+,aRHCS1

;SET RPO4 VECTOR ADDRESS
;GET READY TO MOVE COMMAND
;GET READY TO SET 'GO"' AND
;GO WITH

MOV

aR3.R5

;SAVE RHDS1 DURING ABOVE OPERATION

MOV
WAT

aR1,RO

RHDS1

000012
041456

041302

DRY
31999.
24001.
MOV
JSR

001200

$T1:

#10. ,a#$TMP1
PC,a#CLDISK

041326

;WAIT FOR DRY BIT TO SET

;WAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 319990 MICRO SECONDS
;DRY MUST SET BETWEEN
sTEN COUNT TO GET TO CYLINDER 10
;SET R1-RHCS1, R2-RHCS2

s*FILL WRITE FROM BUFFER WITH HEADER
JSR

RO,a#F LHEAD

£12

;SAVE RHCS1 DURING ABOVE OPERATION

;WAIT FOR RHDS1 REGISTER

WRFROM
4
10000
<18.%400>!21.
0

811025
00000
000000

004037
002500
000400
001125

MOV
MOV
BIS
MOV

;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
JSR
RO,a#CLAREA
U?FROM+1O
256.
<0.%2000>!<18.*40>'21.

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

sFILL WITH <0.%2000>!<18.+40>!21.

;*FILL WRITE FROM BUFFER WITH NEXT TRACK HEADER

czl

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05
6321

6322
6323
63246
6325
6326
6327
gggg

6330
6331

032572

032572
032576
032600
032602
032604
032606
032610
032612

004037
003500

032612
032616

004037
003510

g%gg

032622

002000

6337
6338

032624

6339

6340
6341
6342
6343
6344
6345

6346

g%zg

032620

032624

032630
032632
032633
032634
032636
032640

032642

032644

ST3:

041302

000004
010001
000000
000000
000000

6332
6333
6334

MACY11 30A(1052) 27-JuL=78 13:06 PAGE 142
T43
SEEK & WRT TEST (CyL = 0-10)

b
10001
0
0
0

ST4:

041326

000002

004037

000000
025
022
177366
002470

STS:

043430

BYTE
.BYTE

000000

004037
002272

041624

6356

032660

004737

041536

gggg

£22670

000000

2332?

032672

013777

004606

6302
6363

032700
032704

013746
052716

002444
000101

032654
032656

032664

032710
032714
032716

004612
000022

104401

012677
011100
011305

6368
6369

;*THE WRITE HEADER AND DATA COMMAND WILL BE FILLED

JSR

0
21.
18.
-262.-4
WRFROM

RO . a#RUN

;SETUP TO RUN FOR DATA COMMAND

sCYLINDER 0
;SECTOR 21.
;TRACK 18.
;WORD COUNT (DATA) = 262. +
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT

;16 BITS PER WORD FORMAT

;GET READY TO DO A WRIFOR

JSR
RHWC

RO,a#SAVER

JSR

PC,a#CHECKT

SAVERE
18.

066720

147364

TYPE

HALT

147366

;SAVE REGISTERS
JRHWC IS THE FIRST REGISTER SAVED

;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS

LCPHALT

;CHECK DVA_RDY,MOL ,DPR,DRY,VV = 1

;CANNOT CONTINUE TESTING IF ANY OF
;STOP

MOV

QHRP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS

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

MOV
MOV
MOV

(SP)+,aRHCS1
aR1,R0
@R3,R5

;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 SECONDS, ONE SECTOR = 760 MICRO SEC.
;*MAX TIME ALLOWED = ONE REVOLUTION + SEEK + 2 SECTORS

2;;?

6372
6373
6374
6375
6376

;FILL WITH 1.+2000

;2 WORDS

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA
032646
032652

6364
6365
23329

1.%2000

WRIFOR

6351
6352

6357

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

FMT22

002444

;NUMBER OF WORDS SAVED
;FIRST DATA WORD
;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD

JSR
RO,a#CLAREA
WRFROM+<264 . x2>

010000

;SAVE HEADER DATA IN WRFROM+<260.*2>
;LOCATION WHERE SAVED

;*FILL WRITE FROM BUFFER WITH NEXT TRACK DATA

2_%3

6353
gggg

JSR
RO, a#F LHEAD
WRFROM+<260. %2>

;*MIN TIME ALLOWED = 2 SECTORS + SEEK

032720
032722
032724
032726
032730

104413
002300
000200
003237
001515

SEQ 0141

WAT
RHCS1
RDY
1695.
845.

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

|
‘
|

sFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

;*NOW CHANGES SAVED REGISTERS TO EXPECTED VALUES
sMOV 0 INTO SAVED RHWC
:g:¥§0 REGISTER TO CHANGE

JSR

RO,a#F ILLRE

:MOV WRFROM+<266.%2> INTO SAVED RHBA

JSR
qucc

RO, a4F ILLRE

:MOV 1 INTO SAVED RHCC
;§2¥§° REGISTER TO CHANGE

JSR

RO, @4F ILLRE

*MOV 1 INTO SAVED RHCA

JSR

RO, @4F ILLRE

MOV 1 INTO SAVED RHDST

7HcA

041360

?HDST

6411

"SAVED REGISTER TO CHANGE
:DATA

;g:¥io REGISTER TO CHANGE
:g:¥§o REGISTER TO CHANGE

;*COMPARE REGISTERS BEFORE WRITE HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND
004037
004612
002354

033102

JSR

042444

033100
033104
104027
000207

SAVERE
WC

ST7:

18.
ST7
ST8
ERROR
RTS

RO,a#COMREG

;COMPARE SAVED REGISTERS WITH

27
PC

:18. REGISTERS TO BE COMPARED
;RETURN TO ST7 ON ERROR
;RETURN TO ST8 ON NO ERROR
sWRITE HEADER AND DATA CAUSED
: IMPROPER REGISTER CHANGE

;GOOD DATA SAVED IN 'SAVERE'
sTEST DATA STARTING FROM °"RHWC'

:$gggEDATA GIVES WHAT SHOULD BE

;RECEIVED DATA GIVES WHAT WAS BE
;THERE AFTER COMMAND

;*SETUP TO READ HEADER AND DATA FOR NEXT TRACK
s*FILL READ INTO BUFFER WITH ALL ONES
033104
033104

004737

041456

ST8:

JSR

PC.,a#CLDISK

;SET R1-RHCS1, R2-RH(S2

an. A

RHBA
WRFROM+<266. *2>

ST6:

RO,a#F ILLRE

041360

JSR
SHHC

041360

R3,a#REGADR
63

;DURING ABOVE OPERATION ONLY MOL !DPR!VV

(SP)+,RS

;SAVE BITS SET DURING OPERATION IN RHDS1

#MOL !DPR!VV,=(SP)

MOV
ERROR

3004
033010

;FAILING REGISTER RHCS1

:DURING ABOVE OPERATION ONLY

;BRANCH IF GOOD
;BAD DATA

;BAD DATA

66%
RS ,a#$BDDAT

;DURING ABOVE OPERATION ONLY IE!GO:!DVA
;BRANCH IF GOOD

;SAVE FOR PRINTOUT

;INCLUDE IE'!GO!DVA
;SAVE FOR PRINTOUT

MOV

(SP) ,a#$GDDAT

MOV
BEQ
MOV

041360

WN=O Nele RNTe NV, PJWILN]

;SAVE COMMAND

CMP

041360

£228 RELRZRRL

@#WRIFOR,=(SP)
(SP)
#1E!GO.DVA,
,a#$GDDAT
(SP)
(SP)+,RO
64%
RO,a#$BDDAT
R1,a#REGADR
21

64%:

BIS
MOV
CMP
BEQ
MOV
MOV
ERROR

MOV

013746

6389
6390
6391
6392
6393
6394
6395
6396
6397
6398

032732
032736
032742
032746
032750
032752
032756
032762
032764
032770
032774
032776
3000

czf
czi

6377
6378
6379
6380
6381
6382
6383
6384
6385
6386
6387
6388

SEQ 0142

27=JUL-78 13:06 PAGE 143
MACY11 30A(1052)
T43
SEEK & WRT TEST (CyL = 0-10)

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRIIC.PN
27-JUL-78 13:05

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRIIC.PN
27-JuL-78 13:05

6433
6434
6435
6436

033110
4

004037

003534
000404
177777

N1
27-JUL-78 13:06 PAGE 144
MACY11 30A(1052)
T43
SEEK & WRT TEST (CyL = 0-10)
JSR

041326

REINTO

RO,a#CLAREA

2?0.

SEQ 0143

;CLEAR 260. WORDS, FROM REINTO
sSTARTING FROM REINTO
:260. WORDS
sFILL WITH =1

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA
ST9:

041302

JSR

2RFROH

ST10:

041326

RO,
a#F LHEAD

;FIRST DATA WORD

10001
0
0
0

JSR

;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD
RO,a#CLAREA

gRFROH+<4t2>

1+2000

JSR

041326

RO,a#CLAREA

WRFROM+<6%2>
554.

ST11:

043430

.BYTE

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

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

:STARTING FROM WRFROM+<4*2>
;2 WORDS
JFILL WITH 1+2000
;CLEAR 254. WORDS, FROM WRFROM+<6%2>
:STARTING FROM WRFROM+<6*2>

;254. WORDS
sFILL WITH O

s*FILL COMMAND INTO REGISTERS
#SR

RO,a#RUN

0
0
-256.-4

;SETUP TO RUN FOR DATA COMMAND
sCYLINDER 1
;SECTOR 0

:TRACK 0

SEINTO

ECI!FMT22

REFOR

;WORD COUNT (DATA) = 256. +
;BUS ADDRESS
;DO NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;GET READY TO DO A REFOR

;*SAVE REGISTERS FOR COMPARISON AFTER READ HEADER
s *AND DATA
033210
033214
033216
033220

041624

033222
033226
033232

041536
066720

RO,a#SAVER

:SAVE REGISTERS
sRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS

JSR

PC,a#CHE
CKT

V = 1
Y
,DPR,DRY,V
,RD
,MOL
;CHECK DVA
ANY OF
IF
TESTING
:g?ggOT CONTINUE

MOV

a#RP4VEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV

a#REFOR,=(SP)

JSR

RHWC
SAVERE

16.

033234

013777

004606

033242
033246
033252
033256
033260

013746
052716
012677
011100
011305

002450
000101
147022

TYPE
HALT

147024

BIS

MOV
MOV

MOV

.CPHALT

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

aR1,RO
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

f—

CZRJICO, RPO4L/5/6 FCTNL CTLRI
CZRIIC.P1
27=JuL-78
113:05

MACY11 30A(1052)
143

8 12
27-JUL-78 13:06 PAGE 145
= 0-10)
SEEK & WRT TEST (CvyL
;WAIT FOR RDY BIT TO SET
:WAIT FOR RHCS1 REGISTER
:WAIT FOR RDY BIT IN RHCS1 REGISTER

WAT
RHCS1
RDY

104413
002300
000200
001614
001507

908.

013746
052716
011637

64%:

:ALLOW 9080 MICRO SECONDS

839.
MOV
BIS
MOV
cMP
BEQ
MOV
MOV
ERROR

;RDY MUST SET BETWEEN
@REFOR,~(SP)
:SAVE COMMAND
(SP) ;INCLUDE IE!GO!DVA
#1E!GO!DVA,
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY IE!GO!DVA
(SP)+,RO
648
;BRANCH IF GOOD
:BAD DATA
RO,a#$BDDAT
R1,3#REGADR
sFAILING REGISTER RHCS1
:DURING ABOVE OPERATION ONLY
21

MOV

(SP) ,a#SGDDAT

MOV

cMP
BEQ
MOV
MOV

ERROR

033352

SEQ 0144

#MOL ! DPR' WV, = (SP)
(SP)+ RS
66$
RS ,a#SBDDAT
R3,a#REGADR
63

;SAVE BITS SET DURING OPERATION IN RHDS1

;SAVE FOR PRINTOUT

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

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
033354

041360

JSR

RO,a#F ILLRE

;MOV 0 INTO SAVED RHWC

JSR

RO,a#F ILLRE

nov REINTO+<260.%2> INTO SAVED RHBA

SHUC

041360

RHBA

RE INTO+<260., *2>

JSR

041360

?HDST

RO,a#F ILLRE

g:\{ib REGISTER TO CHANGE
:SAVED REGISTER TO CHANGE
;DATA

;MOV 1 INTO SAVED RHDST

:g:\{ib REGISTER TO CHANGE

;*COMPARE REGISTERS BEFORE READ HEADER AND DATA WITH
;*REGISTERS AFTER COMMAND
004037
004612
002354

JSR
SAVERE
WC

042444

18.

033426
sT12:

104031
000207

004037
002470
003534

043474

ST13:

ERROR
RTS

;COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN 'SAVERE'
sTEST DATA STARTING FROM 'RHWC'

:18. REGISTERS TO BE COMPARED

ST12
ST13

033422

033426
033426
033432
033434

RO,a#COMREG

:RETURN TO ST12 ON ERROR
:RETURN TO ST13 ON NO ERROR
31

;READ HEADER AND DATA CAUSED
; IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
sRECEIVED DATA GIVES WHAT
;WAS THERE AFTER COMMAND

;*READ INTO BUFFER IS CHECKED FOR PROPER READ
JSR

WRFROM
REINTO

RO,a#COMPAR

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

033436
033440
033442

000404

033444
033446

104032
000207

T43

C 12
27=JUL-78 13:06 P GE 146
SEEK & WRT TEST (CyL = 0-10)

260.

;260. WORDS TO BE COMPARED

ST15

sRETURN TO ST15 ON NO ERROR

ST14

033444
033450
ST14:

ERROR
RTS

JRETURN TO ST14 ON ERROR

;WRITE HEADER AND DATA
sWITH AN IMPLIED SEEK
;FOLLOWED BY A READ
sHEADER AND DATA ON THE
sNEXT TRACK GAVE A
;READ ERROR
;ERROR MAY BE READL OR WRITE

:';?EKHEADS HAVE ADVANCED ONE CYLINDER BY AN IMPLIED
cw

;*CHANGES WILL BE MADE TO ENABLE GOING TO THE NEXT
;*CYLINDER AND THEN THE ABOVE WILL BE REPEATED
s*TILL CYLINDER 10 IS REACHED
032550
002000
032602
002000
032630
033040
033050
033132
002000
033172
001200

032570
032622

INC
ADD
INC
ADD
INC

a#ST1+410
#<1.%2000>,a#5T72+10
a#sST3+10
#<1.%2000>,a#5T4+10
STS5+4

INC
INC
ADD
INC
DEC
BNE
BR
JMP

a#STE+16
a#ST9+10
#<1,%2000>,a#ST10+10
a#ST11+4
assTMPI
;COUNT FOR TEN TIMES

INC

033152

ST16:

032540

a#STE+6

ST16
ST17
ST1

;BRANCH IF 10 NOT DONE
;10 COMPLETED SO CONTINUE
;JUMP AS 10 NOT DONE

;*THE HEADS ARE NOW AT CYLINDER 10
;*ALL REGISTERS WILL BE SAVED AND A SEEK WILL BE GIVEN
;*TO CYLINDER O
s*FILL REGISTERS FOR A SEEK COMMAND
ST17:

033542
033542
033546
033552

JSR
JSR

PC,a#CLDISK
RO, a#SEEKCY

;SET R1-RHCS1, R2-RHCS2
;SEEK FOR

;CYLINDER 0

;*SAVE REGISTERS FOR COMPARISON AFTER SEEK COMMAND

033554

013777

004606

013746
052716
012677
011100
011305

002452
000101
146470

146472

JSR
RHWC
SAVERE
18.

RO,a#SAVER

MOV

a#RP4VEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV

a#SEECOM,-(SP)

;GET READY TO MOVE COMMAND

MOV

(SP) +,aRHCS1

;GO WITH

BIS

MOV
MOV

#GO!IE, (SP)
aR1.RO
aR3.R5

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

;GET READY TO SET 'GO' AND

sSAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

SEQ 0145

CZRJICO, RPO4L/5/6 FCTNL CTLRI
27-JuL-78 13:05
CZRJIIC.PN

MACY11 30A(1052)

D12

27-JUL-78 13:06 PAGE 147
MACY11 30A(1052)
T43
SEEK & WRT TEST (CvL
= 0=10)

;*SEEK FOR ONE CYLINDER=7MILI SEC., FOR TEN=70 MILI SEC

104413

002322
000200
015530
000043
013746

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

WAT
RHDS1

:WAIT FOR DRY BIT IN RHDS1 REGISTER
sALLOW 70000 MICRO SECONDS

;DRY MUST SET BETWEEN

002452
001124

001126
004600
64%:

030500
001124

MOV
cMP
BEQ
MOV
MOV
ERROR
MOV
CMP

MOV
MOV
ERROR

001126
004600

; SAVE COMMAND
a#SEECOM,~(SP)
#DVA!GO!
1€ 'RDY, (5P)
: INCLUDE DVA!GO!IE'RDY
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
(SP)+,RO
:DURING ABOVE OPERATION ONLY DVA!GO!IE'RDY
648
;BRANCH IF GOOD
RO,a#$SBDDAT
;BAD DATA
sFAILING REGISTER RHCS.
R1,a#REGADR
21
;DURING ABOVE OPERATION ONLY
#PIP!MOL !DPR!VV, ~(SP)

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

;SAVE BITS SET DURING OPERATION IN RHDS1
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY PIP!MOL!DPR!VV
;BRANCH IF GOOD
;BAD DATA
;FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
041360
004740
042336

033724
033730
033732
033734
033736
033740
033744
033746
033750
033752

033772
033774

104037
000207

QNATTENT ,a#SAVERE +24
;SET APPROPRIATE °ATA' BITS
RO,a#CHREG
;CHANGE BITS IN SAVED REGISTER

1
1
ATA

JSR

RHCS1
1
1
SC

:g:\TIED REGISTER TO CHANGE

;CHANGE RHDS1 REGISTER

RO,a#CHREG

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

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

;*COMPARE REGISTERS AFTER A SEEK COMMAND

042444

033776

BIS
JSR

RHDS1

042336

033754
033760
033762
033764
033766
033770

RO,a#F ILLRE

8HCC
004636

;MOV 0 INTO SAVED RHCC

JSR

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH

:GOOD DATA SAVED IN ‘SAVERE'
sTEST DATA STARTING FROM ‘RHWC'
:18. REGISTERS TO BE COMPARED

:RETURN TO ST18 ON ERROR
JRETURN TO ST19 ON NO ERROR
ST18:

ERROR
RTS

AN
;SEEK COMMAND CAUSED

;ERROR

;GOOD DATA GIVES WHAT SHOULD
:BE THERE

:RECEIVED DATA GIVES WHAT WAS
;THERE AFTER A SEEK COMMAND

;*AT THIS POINT THE CURRENT CYLINDER IS GOOD AND THERE ARE

SEQ 0146

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRIIC.P1
27-JuL-78 13:05

SEQ 0147

6657

;*NO ERROR BITS

6660
6661

:*FOR 10 WORDS
:'CLEAR READ INTO BUFFER WITH ALL ONES

6658
6659

:*A READ HEADER AND DATA WILL BE DONE ON CYLINDER O
tSECTOR 21 TRACK 18, EXPECTED DATA IS 1125

6663

033776

6665
6666
6667

034002
034004
034006

033776

004037

041326

6670

034010

004037

041302

6674

034022

011025

6664

6669

6671
6672
6673

6675
6676

034014
034016
034020

034024
034026

003534
000404
177777

002470
000004
010000
000000
000000

6677
6678

034030
034034

004037
002500

6680
6681
6682

034040
034042
034046

001125
004037
002524

66866845

034052

177777

034054

004037

ST19:

REINTO
260.
-1

WRFROM
4
10000

6692

6693
6694
zgg

034066

034070
034072
034074

000000
025
022
177762

RO, a#F LHEAD

<18.%400>'<21.>

246.
-1

BYTE
.BYTE

003534

034110 013777

004606

6703
6704
2;82

034116
034122
034126

013746
052716
012677

002450
000101
146146

6707
6708
6709
6710
g;};

034132
034134
034136
034140
034142

104413
002300
000200
001614
001507

:CLEAR 10. WORDS, FROM WRFROM+<4 %2>
STARTING FROM WRFROM+<4 *2>
sFILL WITH <18.%40>!'<21.>
;CLEAR 246. WORDS, FROM WRFROM+<14. %2>
:STARTING FROM WRFROM+<14.*2>

;246. WORDS

JFILL WITH =1

0
21.
18.
=10.-4

;CYLINDER O
;SECTOR 21.
;TRACK 18.
:WORD COUNT (DATA) = 10. +

0
ECI'FMT22
REFOR

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

REINTO

000000
014000
002450

2;812

;SECOND DATA WORD

:*FILL READ HEADER AND DATA COMMAND FOR 10 WORDS
JSR
RO, a#RUN
:SETUP TO RUN FOR DATA COMMAND

043430

041536
066720

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

:10. WORDS

041326

004737
104401
000000

:SAVE HEADER DATA IN WRFROM

10.

<18.%40>!<21.>
JSR
RO,a#CLAREA
WRFROM+<14 ., %2>

034076
034102
034106

;STARTING FROM REINTO
;260. WORDS
JFILL WITH =1

:THIRD DATA WORD
*FOURTH DATA WORD

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

6697
6698
2938

;CLEAR 260. WORDS, FROM REINTO

0
0

041326

6683 034050 000366

034060
034062
034063
034064

RO,a#CLAREA

:*FILL WRITE FROM BUFFER WITH EXPECTED DATA

JSR

6679 034036 000012

6686
6687
6688
6689
6690
6691

JSR

146150

;BUS ADDRESS

JSR
TYPE
HALT

PC,a#CHECKT
LCPHALT

MOV

A#RP4LVEC ,aRPVEC ;SET RP0O4 VECTOR ADDRESS

MOV
BIS
MOV

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

WAT
RHCS1
RDY
908.
839.

:CHECK DVA,RDY,MOL,DPR,DRY,VV = 1
:CANNOT CONTINUE TESTING IF ANY OF
:STOP
;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 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

WCZI-!JICO
RP04/5/6
FCTNL CTLR1 MACY11 30A(1052)
27-JuL-78 13:06 P GE 148
SEEK & WRT TEST (CyL = 0=10)
143
27=JUL-78 13:05
CZRJIC.P11
E 12

—

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JuL~-78 13:05
|
l

6713
6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6725
6726

6727

034144
034150
034152
034154
034156
034160

004037
002470
003534
000404
034162
034166

034162
034164

104032
000207

034166

F 12
MACY11 30A(1052)
27=JUL=-78 13:06 PAGE 149
T43
SEEK & WRT TEST (CvL = 0-10)

;*CHECK READ WORDS
RO,3#(COMPAR

043474

JSR

WRFROM
REINTO

260.
ST26
ST127

ST26:

S127:

ERROR

RTS

; COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
:260. WORDS TO BE COMPARED
;RETURN TO ST26 ON ERROR

;RETURN TO ST27 ON NO ERROR
32

;READ HEADER AND DATA

JFOLLOWING A SEEK TO CYLINDER O

;FROM CYLINDER 10 GAVE AN
;ERROR

SEQ 0148

034166
034170
034174
034202

013777

034214

013746
052716
012677
011100
011305

T43

TST44:

000004
012706
012737
004737

034206

MACYT1 30A(1052)

004604

27=JuL=78 1 3:06
SEEK €& WRT TES T

SCOPE

MOV
MOV
JSR

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

SEQ 0149

sJRESET STACK
;SAVE TEST NUMBER
;SET R1-RH(CS1, R2-RH(S2

;*THIS GETS HEADS TO CYLINDER 0

146052

146050

MOV

@#RPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV
MOV
MOV

Q#RECALI ,~(SP)
#GO!IE, (SP)

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

aR1,RO
aR3.R5

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

(SP)+ ,aRHCS1

;GO WITH

104413

WAT

;WAIT FOR DRY BIT TO SET

000200
076377
056701

31999.
24001,

sALLOW 319990 MICRO SECONDS

002322

004037
000012

041426

004037
002272
004612
000022

041624

013777

004606

013746
052716
012677
011100
011305

002452
000101
145770

;DRY MUST SET BETWEEN

s*FILL REGISTERS FOR A SEEK COMMAND
RO, a#SEEKCY
;SEEK FOR
;CYLINDER 10.

JSR
10.

;*SAVE REGISTERS FOR COMPARISON AFTER SEEK COMMAND
RO,a#SAVER
:SAVE REGISTERS
RHW(
JRHWC IS THE FIRST REGISTER SAVED
SAVERE
;STARTING ADDRESS OF WHERE
18.
;NUMBER OF REGISTERS
JSR

145772

MOV

a#RP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV
MOV
MOV

A#SEECOM,-(SP)
#GO!IE, (SP)
(SP)+,aRHCS1

aR1,RO
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

;*SEEK FOR ONE CYLINDER=7 MILI SEC., FOR _TEN=70 MILI SEC

104413

002322
000200
015530
000043
013746
052716
011637
022600
001405
010037
010137
104021
012746
011637

;WAIT FOR RHDS1 REGISTER
;WAIT FOR DRY BIT IN RHDS1 REGISTER

RHDS1
DRY

WAT

RHDS1
DRY
7000.

35.

002452
004301
001124
001126
004600

030500
001124

67%:

MOV
BIS
MV
CMP
BEQ
MOV
MOV
ERROR
MOV
MOV

;WAIT FOR DRY BIT TO SET
;WAIT FOR RHDS1 REGISTER
;WAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 70000 MICRO SECONDS
;DRY MUST SET BETWEEN
A#SEECOM,-(SP)
: SAVE COMMAND
#DVA'!GO!
IE !RDY, (SP)
: INCLUDE DVA!GO!IE'!RDY
(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

RO,a#$BDDAT

;BAD DATA

(SP)+,RO
67%

R1,a#REGADR
21

;DURING ABOVE OPERATION ONLY DVA!GO!:IE:RDY
;BRANCH IF GOOD
;FAILING REGISTER RHCS1
;DURING ABOVE OPERATION ONLY

#PIP!MOL !DPR!VV,=(SP)
;SAVE BITS
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT

SET DURING OPERATION IN RHDS1

(alal

CZRJICO, RPO4/5/6 FCTNL CTLRI
27=JuL-78 13:05
CZRIIC.PN

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN

6784

034370
034372
034374
034400
034404

27-JuL-78 13:05
022605
001405
010537
010337

104063

MACY11 30A(1052)
T44

H 12
27=-JUL-78 13:06 PAGE 151
SEEK & READ TEST (CvL = 009)

CMP
BEQ
MOV
MOV
ERROR

001126
004500

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

SEQ 0150

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

;DURING ABOVE OPERATION ONLY

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
034406
034412
034414

004037
002334
0000
053737
004037

041360

004740
042336

004636

RO,a#F ILLRE

BIS

+24
SMATTENT , a#SAVERE

JSR

RHDS1
1

RO,a#CHREG

004037

ATA

042336

JSR

RHCS1

RO, a#CHREG

004037
004612
002354
000022
034472
034476

:SET APPROPRIATE ‘ATA' BITS
IN SAVED REGISTER
BITS
;CHANGE
REGISTER
RHDS1
;CHANGE
BE CHANGED
TO
;1 BIT/BITS
IS 1
ATA
OF
VALUE
sNEW
BIT
ATA
GE
;CHAN
;CHANGE BITS IN SAVED REGISTER
s CHANGE RHCS1 REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF SC IS 1
;CHANGE SC BIT

;*COMPARE REGISTERS AFTER A SEEK COMMAND
RO, a#COMREG
; COMPARE SAVED REGISTERS WITH

042444

JSR
SAVERE

;GOOD DATA SAVED IN ‘SAVERE'
;TEST DATA STARTING FROM ‘RHWC'
;18. REGISTERS TO BE COMPARED

18.

sRETURN TO 1$ ON ERROR
JRETURN TO 2% ON NO ERROR

104037
000207

;MOV 10. INTO SAVED RHCC
:g:¥ib REGISTER TO CHANGE

JSR

1%:

ERROR

RTS

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

;*AT THIS POINT THE CURRENT CYLINDER IS GOOD AND THERE ARE

;*NO ERROR BITS

:*A READ HEADER AND DATA WILL BE DONE ON CYLINDER 9
;*SECTOR 21 TRACK 18, EXPECTED DATA IS 23125
;*FOR 20 WORDS
;*CLEAR READ INTO BUFFER WITH ALL ONES
004737
004037
003534
000404

041456
041326

177777

004037
002470

2%:

JSR
JSR
REINTO
260.

PC,a#CLDISK
RO,a#CLAREA

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

;260. WORDS

041302

;SET R1-RHCS1, R2-RH(CS2

JFILL

WITH

-1

s*FILL

WRITE FPOM BUFFER WITH EXPECTED DATA

JSR
WRFROM

RO, a#F LHEAD

;SAVE HEADER DATA IN WRFROM
;LOCATION WHERE SAVED

CZRJICO, RPO4/S5/6 FCTNL CTLRI
'CZRJlC.PH
27=-JUL-78 13:05
034522
034524

MACY11 30A(1052)
T44

000004
010011

011025
000000
000000
004037

27=JUL-78

I 12
13:06 PAGE 152

SEEK & READ TEST (CyL = 009)
4
10011
<18.%400>!<21.>

;sNUMBER OF WORDS SAVED
;FIRST DATA WORD
- SECOND DATA WORD

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

;CLEAR 20. WORDS, FROM WRFROM+<4,
%2>
;STARTING FROM WRFROM+<4.
%2>

0
0

041326

20.

250.

:250. WORDS

SFILL WITH =1

;*FILL READ HEADER AND DATA COMMAND FOR 10 WORDS

JSR

043430
.BYTE
.BYTE

RO, a#RUN

F4 B

013746
052716
012677

002450
000101

145444

:WORD COUNT (DATA) = 20. +

104413
002300
000200
001614
001507

004037
002470
003534
000404
034666
034672
104032
000207

MOV

Q#RP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS

a#REFOR,-(SP)
#GO!IE, (SP)
(SP) + ,@RH(S1

;GET READY TO MOVE COMMAND
:GET READY TO SET 'GO' AND
;GO WITH
;WAIT FOR RDY BIT TO SET

839.

;RDY MUST SET BETWEEN

sWAIT FOR RHCS1 REGISTER
sWAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS

; *CHECK READ WORDS

WRFROM

RO,a#COMPAR

REINTO

ERROR
RTS

;COMPARE TWO BLOCKS OF MEMORY

;GOOD DATA STARTS FROM WRFROM

sTEST DATA STARTS FROM REINTO

260.
3%
4%

4%:

;CHECK DVA,RDY,MOL ,DPR,DRY,V v =1
;CANNOT CONTINUE TESTING IF ANY OF
;STOP

WAT

JSR

3%:

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

PC,a#CHECKT
LCPHALT

RHCS1
RDY
908.

043474

;BUS ADDRESS

JSR
TYPE
HALT

MOV

145442

;CYLINDER 9.
;TRACK 18.

=20.=4

0
ECI'FMT22
REFOR
041536
066720

;SETUP TO RUN FOR DATA COMMAND
;SECTOR 21.

18.

REINTO

004606

;THIRD DATA WORD
;FOURTH DATA WORD

;20. WORDS
<9.+%2000>'<18.%40>!<21.>
sFILL WITH <9.+2000>!<18.+40>!<2
JSR
RO,a#CLAREA
:CLEAR 250. WORDS, FROM WRFROM+<24,
*2>
WRFROM+<24 . 2>
;STARTING FROM WRFROM+<24
. %2>

041326

013777

SEQ 0151

:260. WORDS TO BE COMPARED
;RETURN TO 3% ON ERROR
;RETURN TO 4$ ON NO ERROR
32
PC

;READ HEADER AND DATA
;FOLLOWING A SEEK TO CYLINDER 9

:ES%RCYUNDER 0 GAVE AN

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27=JuL-78 13:05
6896
6897

MACY11 30A(1052)
T44

J 12
27=JUL-78 13:06 PAGE 153
SEEK €& READ TEST (CvL = 009)

SEQ 0152

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27=-JuUL-78 13:05
6898
6899

K 12
MACYT1 30A(1052)
27-JuUL=78 13:06 PAGE 154
WRITE CHECK DATA & WRITE PROTECT TESTS
.SBTTL

WRITE CHECK DATA § WRITE PROTECT TESTS

SEQ 0153

CZRJICO, RPO4/S5/6 FCTNL CTLRT
CZRJIC.PN

27-JuL-78 13:05

6900
6901
6902

034672
034674
034700

000004
012706
012737

238?

034722

000000

6903
6904
6905

034706
034712
034716

004737
004737
104401

001000
000045

041456
041536
066720

6908
6909
gg}?

0347246
034730

004037
000005

041426

23;%

034732

013777

004606

6914
6915
6916
6917
gg}g

034740
034744
034750
034754
034756

013746
052716
012677
011100
011305

002452
000101
145324

6920
6921
6922
6923
6924

034760
034762
034764
034766
034770

034772

104413
002322
000200
015530
000043
004737

6927
6928
6929
6930
6931
6932
6933
23%2

034776
035002
035004
035006
035010
035012
035014

004037
002470
000004
010005
003404
000000
000000

gggg

041456
041302

6936

035016
035022

004037
002500

6942
6943
6944

035026
035030
035034

6947
6948

035042
035046

6949
6950
6951
6952
6953
6954
6955

13:06

PAGE 155

WRITE CHECK HEADER AND DATA

TST45:

SCOPE
MOV
MOV

JSR
JSR
TYPE

HALT

#STACK,SP
#45,XTSTNM

PC,a#CLDISK
PC,a#CHECKT
LCPHALT

JRESET STACK
;SAVE TEST NUMBER

sSET R1-RHCS1, R2-RH(CS2
;CHECK DVA,RDY
,MOL ,DPR,DRY,VV = 1
;CANNOT CONTINUE TESTING IF ANY OF
;STOP

;*GET HEADS TO CYLINDER 5
JSR
RO,a#SEEKCY
;SEEK FOR
5
sCYLINDER 5
145326

MOV

A#RPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV
MOV
MOV

Q#SEECOM,-(SP)
#GO!IE, (SP)
(SP)+,aRHCS1
aR1,R0
aR3.R5

WAT
RHDS1
DRY
7000.
35.

JSR

PC,a#CLDISK

;GET READY TO MOVE COMMAND
;GET READY TO SET 'GO' AND
;GO WITH
;SAVE RHCS1 DURING ABOVE OPERATICN
;SAVE RHDS1 DURING ABOVE OPERATION

sWAIT FOR DRY BIT TO SET
sWAIT FOR RHDS1 REGISTER
;WAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 70000 MICRO SECONDS
;DRY MUST SET BETWEEN

;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
o
;NUMBER OF WORDS SAVED
10005
;FIRST DATA WORD
<7%400>!4
:SECOND DATA WORD
0
;THIRD DATA WORD
0
;FOURTH DATA WORD
;*10 WORDS OF OF THE FOLLOWING DATA

6939
6940

6945
6946

004604

27-JuL-78

T45

;% 12344,17777,0,52525,125252

gggg
6941

MACY11 30A(1052)

L 12

035024

035036
035040

035050
035052
035054
035060
035062
035064
035066

041326

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

;CLEAR 10. WORDS, FROM WRFROM+<4*2>
:STARTING FROM WRFROM+<4*2>

012344
004037
002524

041326

<5%2000>!<7*%40>'4
JSR
RO,a#CLAREA
WRFROM+<14 ., %2>

sFILL WITH <5%2000>!<7%40>!4
;CLEAR 10. WORDS, FROM WRFROM+<14.%2>
:STARTING FROM WRFROM+<14.
%2>

004037
002550

041326

000012

000012
177777

000012
000000
004037
002574
000012
052525
004037

10.

041326
041326

10.
-1

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

10.
0
JSR
RO,a#CLAREA
WRFROM+<34, %2>
10,
52525
JSR
RO,a#CLAREA

:10. WORDS

:10. WORDS
;FILL WITH -1

;CLEAR 10. WORDS, FROM WRFROM+<24.%*2>
:STARTING FROM WRFROM+<24
. %2>

:10. WORDS
JFILL WITH O
;CLEAR 10. WORDS, FROM WRFROM+<34.
%2>
:STARTING FROM WRFROM+<34
. %2>
:10. WORDS
JFILL WITH 52525
;CLEAR 10. WORDS, FROM WRFROM+<&44
%2>

SEQ 0154

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRIIC.PN
27=JUL~-78 13:05
6956
6957
6958
6959
6960
6961
6962
6963
6964
6965

035072
035074
035076

6973

27-JUL-78

Mm12
13:06 PAGE 156

SEQ 0155

WRITE CHECK HEADER AND DATA

WRFROM+<44 . 2>
10.
125252

;STARTING FROM WRFROM+<44
. *2>

;10. WORDS
SFILL WITH 125252

%2>
;*FILL LEFT ROTATING ZEROS FROM WRFROM+<54.
035100

010146

6966

6974
6975
6976
6977
6978
6979
6980
6981
6982
6983
6984
6985
6986
6987
6988
6989
6990
6991

T45

002620
000012
125252

177776
000020
002644

6967

6968
6969
6970
6971
6972

MACY11 30A(1052)

1%:

MOV
MOV
MOV
ggg

;;PUSH R1 ON STACK
R1,=(SP)
;DATA
#177776,R0
s COUNT
#16. ,R5
#WRFROM+<54
.%2> ,R1 ;WHERE DATA GOES

MOV
ROL

RO, (R1)+
RO

DEC
BNE

035124
035126

R5
1%

;STORE DATA
;GET ZERO ONE BIT LEFT

;COUNT 16
;BRANCH IF 16 NOT DONE

;*FILL LEFT ROTATING ONE INTO WRFROM+<65.%2>
035130
035132
035136
035140
035142
035144

000241
012700
010021
006300

000001

CLC

2%:

103375

MOV
MOV
ASL
B8CC

MOV

012601

#1,R0
RO, (R1)+
RO
2%

(SP) +,R1

;;POP STACK INTO R1

;s*FILL REST OF DATA
035146
035152
035154
035156
035160
035164
035166
035170
035172
035174
035176
035200
035204
035206
035210

035212
035216
035220
035222

035224
035230
035232

035233

JSR
RO,a#CLAREA
WRFROM+<86.*2>
174.
377
JSR
RO, a#F LHEAD

041326

041302

WRFROM+<260. %2>
i
10005
<7%400>!5

0
0

JSR

041326

RO,a#CLAREA

. x2>
+<264
WRFROM
>

<5%2000>!<7%40>!'5

;CLEAR 174. WORDS, FROM WRFROM+<86.*2>
;STARTING FROM WRFROM+<86.%2>

:174. WORDS
JFILL WITH 377
;SAVE HEADER DATA IN WRFROM+<260.*2>
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD
s SECOND DATA WORD

;THIRD DATA WORD
;FOURTH DATA WORD

;CLEAR 2 WORDS, FROM WRFROM+<264
. %2>
;2 WORDS

:STARTING FROM WRFROM+<264.%*2>
sFILL WITH <5%2000>!<7%40>!'5

;*READ INTO BUFFER WILL BE CLEARED
JSR
RO,a#CLAREA
;CLEAR 266. WORDS, FROM REINTO

041326

REINTO

;STARTING FROM REINTO

266.
177400

:266. WORDS
JFILL WITH 177400

;*THE WRITE HEADER AND DATA COMMAND WILL BE LOADED

JSR

043430
.BYTE
.BYTE

RO, a#RUN

sSETUP TO RUN FOR DATA COMMAND

;CYLINDER 5
;SECTOR 4
;TRACK 7

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN

7012

035234

7014
7015
;8}?

035240
035242
035244

7013

27-JUL-78 13:05

035236

MACY11 30A(1052)
145

177366

002470

N 12

13:06 PAGE 157

WRITE CHECK HEADER AND DATA

-262.-4

:WORD COUNT (DATA) = 262. +

0
FMT22
WRIFOR

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

WRFROM

000000
010000
002444

7020

035246

004037

7022
;852

035254
035256

004612
000022

035252

002272

041624

JSR

RHW(C

SAVERE
18.

7025 035260 004737 041536

:BUS ADDRESS

RO,a#SAVER

:SAVE REGISTERS

:RHWC IS THE FIRST REGISTER SAVED
:STARTING ADDRESS OF WHERE
:NUMBER OF REGISTERS

JSR

PC.B#CHECKT

;853 035272 013777 004606 144766

MOV

AN¥RP4LVEC ,aRPVEC ;SET RP0O4 VECTOR ADDRESS

7031

035300

013746

002444

MOV

SMWRIFOR,-(SP)

:;GET READY TO MOVE COMMAND

;852

035310

012677

144764

MOV

(SP)+,aRHCS1

:GO WITH

7026
;8§g

035264
035270

104401
000000

066720

7032

035304

052716

035314
035316
035320
035322
035324

104413
002300
000200
001732
001502

7041
7042
7043
7044

035326
035332

004037
002272

041360

035344
035346
035352
035354

004037
002274

041360

7047
7048
7049
;82?

035336
035342

035334

000000

003514
004037
002304
003406

TYPE
HALT

000101

7035
7036
7037
7038
;828

7045
7046

BIS

:CANNOT CONTINUE TESTING [F ANY OF
:STOP

:GET READY TO SET 'GO' AND
:WAIT FOR RDY BIT TO SET
:WAIT FOR RHCS1 REGISTER
:WAIT FOR RDY BIT IN RHCS1 REGISTER
:ALLOW 9860 MICRO SECONDS
:RDY MUST SET BETWEEN

JSR
RHBA

RO,a#F ILLRE

WRFROM+<266. *2>
JSR
RO, a#F ILLRE
RHDST
3406

041360

:DATA

:MOV WRFROM+<266.%*2> INTO SAVED RHBA
:SAVED REGISTER TO CHANGE
:DATA
:MOV 3406 INTO SAVED RHDST
:SAVED REGISTER TO CHANGE
:DATA

:*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA

:*WITH REGISTERS AFTER COMMAND

7055
7056

035356
035362

004037
004612

7058
7059

035366
035370

000022
035374

035374
035376

104027
000207

7062
7063
7064
7065
7066
7067

#GO!'IE, (SP)

:CHECK DVA,RDY.MOL,DPR,DRY,VV = 1

:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES
JSR
RO,a#F ILLRE
:MOV 0 INTO SAVED RHWC
RHWC
:SAVED REGISTER TO CHANGE

;822

;82?

LCPHALT

WAT
RHCS1
RDY
986.
834.

7052

7057

SEQ 0156

:%«NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA

;8}3

7021

27-JuL-78

035364

035372

042444

JSR
SAVERE

002354

RO, a#COMREG

WwC

:TEST DATA STARTING FROM 'RHWC'

18.
3%

035400

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

43
3$:

ERROR
RTS

:COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN ‘SAVERE'

:RETURN TO 4$ ON NO ERROR

27
PC

:WRITE HEADER AND DATA
:CAUSED IMPROPER REGISTER
: CHANGE
:GOOD DATA GIVES WHAT SHOULD
:BE THERE
:RECEIVED DATA GIVES WHAT

CZRJICO, RPO4/5/6 FCTNL CTLRI
27-JuL-78 13:05
I CZRIIC.P1

MACY11 30A(1052)
145

27=JUL-78

8 13
13:06 PAGE 158

SEQ@ 0157

WRITE CHECK HEADER AND DATA

;WAS THERE AFTER COMMANT
;*NOW FILL COMMAND FOR READ
4%:

JSR

gSR
.BYTE
.BYTE

PC,a#CLDISK
RO, a#RUN

sTRACK 7

;WORD COUNT (DATA) = 262.

-262.~4

:BUS ADDRESS

SE INTO

ECI'FMT22

REFOR

035424

;SET R1-RH(CST, R2-RHCS2
;sSETUP TO RUN FOR DATA COMMAND
;CYLINDER 5
;SECTOR_&

;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
035426
035432
035434
035436

JSR

041624

RHW(C

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

PC,a#CHECKT

;CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1
:gwr CONTINUE TESTING IF ANY OF

SAVERE
18.

000022

035440
035444
035450

004737

035452

013777

004606

035460
035464
035470

013746
052716
012677

002450
000101
144604

035474
035476
035500
035502
035504

104413
002300
000200
001732
001502

104401
000000

RO,a#SAVER

JSR

041536
066720

TYPE

HALT

144606

JCPHALT

MOV

a#RP4LVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS

a#REFOR,~-(SP)
#GO!IE, (SP)

MOV

(SP) +,aRHCS1

;GET READY TO MOVE COMMAND
;GET READY TO SET 'GO' AND
;GO WITH
;sWAIT FOR RDY BIT TO SET
:WAIT FOR RHCS1 REGISTER

WAT

RHCS1
RDY

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

834.

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
035506
035512
035514
035516
035522
035524
035526

035532
035534

004037
002272
000000
004037
002274
004560
004037
002304

041360
041360

041360

JSR

RO,a#F ILLRE

;MOV 0 INTO SAVED RHWC
g:\]{ib REGISTER TO CHANGE

JSR

RO,a#F ILLRE

:MOV REINT0+<266.%2> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE

SHUC
RHBA

REINTO+<266.%2>
JSR
RO,a#F ILLRE
RHDST

3406

;DATA

:MOV 3406 INTO SAVED RHDST
;SAVED REGISTER TO CHANGE
:DATA

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

004037

042444

JSR

RO,a#COMREG

;COMPARE SAVED REGISTERS WITH

7124
7125
7126
7127
7128
7129
7130
7131
7132
7133
7134
7135
7136
7137
7138
7139
7140
7141
7142
7143
7144
7145
7146
7147

035552

004612
002354
000022
035554
035560

035554
035556

000207

C 13

MACY11 30A(1052)
27=JUL-78 13:06 PAGE 159
T45
WRITE CHECK HEADER AND DATA

SAVERE
il
18.
5%
6%
5%:

104031

ERROR
RTS

;GOOD DATA SAVED IN 'SAVERE'
sTEST DATA STARTING FROM ‘RHWC'
;18. REGISTERS TO BE COMPARED
sRETURN TO 5% ON ERROR
;RETURN TO 6% ON NO ERROR
31

;READ HEADER AND DATA CAUSED
; IMPROPER REGISTER CHANGE

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

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

035560
035560
035564
035566
035570
035572
035574

004037
002470
003534
0004
035576
035602

035576
035600

104032
000207

043474

6%:

7%:

JSR
WRFROM
REINTO
266.
7%
108

RO,a#COMPAR

;COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
;266. WORDS_TO BE COMPARED
sRETURN TO 7% ON ERROR
JRETURN TO 108 ON NO ERROR

ERROR

;WRITE HEADER AND DATA

RTS

;FOLLOWED BY A READ HEADER

;AND DATA GAVE A READ ERROR

;ERROR MAY BE IN READ OR WRITE

;%A WRITE ,READ HAS BEEN SUCCESSFULLY COMPLETED
;*NOW A WRITE CHECK HEADER AND DATA WILL BE GIVEN
s*FILL THE WRITE CHECK HEADER AND DATA
041456
043430

10%:

.BYTE
.BYTE

JSR
JSR
5

PC,a#CLDISK
RO, a#RUN

;SECTOR_4

;TRACK 7

=262.-4

;WORD COUNT (DATA) = 262. +

WRFROM

0
ECI!FMT22
WRCHDT

035626

;SET R1-RHCS1, R2-RH(S2
;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 5

;BUS ADDRESS

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

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK
035630

041624

041536

ST25:

JSR
RHWC
SAVERE
18.

RO,a#SAVER

;SAVE REGISTERS
sRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS

JSR

PC,a#CHECKT

;CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1

SEQ@ 0158

TMM

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRIIC.PN
27-JUL-78 13:05

7180

035646

035652

000000

104401

066720

;]‘gz

035654

013777

004606

7185
7186
7187
7188

035662
035666
035672
035676

013746
052716
012677
011100

002440
000101
144402

7191
7192
7193
7194

035702
035704
035706
035710

002440
004101
001124

035732
035734
035740
035744

104413
002300
000200
001732
001502
013746
052716
011637
022600
001405
010037
010137
104021

035762

010537

001126

;:‘l g}

;}g

7195
7196
7197
7198
7199
7200
7201
7202
7203

7204
7205
7206
7207
7208

7209
;S}(])

035700

035712
035714
035720
035724
035730

035746
035752
035756
035760
035766
035772

D13

MACY11 30A(1052) 27-JuL-78 13:06 PAGE 160
WRITE CHECK HEADER AND DATA
T45

011305

001126
004600

012746
011637
022605
001405

010500
001124

010337
104063

004600

S¥RPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV
MOV

@MWRCHDT ,-(SP)
#GO'IE, (SP)
(SP) +,aRHCST
aR1,RO

aR3,R5

64%:

834.
MOV
BIS
MOV
cMP
BEQ
MOV
MOV
ERROR

;CANNOT CONTINUE TESTING IF ANY OF
;STOP

;GET READY TO MOVE COMMAND
;GET READY TO SET 'GO' AND
;GO WITH
;SAVE RHCST DURING ABOVE OPERATION

;SAVE RHDS1 DURING ABOVE OPERATION
;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9860 MICRO SECONDS

ANWRCHDT ,-(SP)
#1E!DVA!GO,
(SP)
(SP) ,a#SGDDAT
(SP)+ RO
648
RO,a#$SBDDAT
R1,3a#REGADR
21

;RDY MUST SET BETWEEN
;SAVE COMMAND
;INCLUDE IE:!DVA!GO
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY IE!DVA!GO

;BRANCH IF GOOD
;BAD DATA
sFAILING REGISTER RHCS1

:DURING ABOVE OPERATION ONLY

Mov
MOV
CMP
BEQ

#MOL 'DPR
' VWV, = (SP)
;SAVE BITS SET DURING OPERATION IN RHDSI1
(SP) ,a#$GDDAT
:SAVE FOR PRINTOUT
(SP)+,R5
;DURING ABOVE OPERATION ONLY MOL !DPR!VV
66%
;BRANCH IF GOOD

MOV
ERROR

R3,a#REGADR
63

MOV

RS ,a#$BDDAT

;BAD DATA

sFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
035774
036000

004037
002272

041360

7217
7218

036004
036010

004037
002274

041360

7220
7221

036014
036020

004037
002304

041360

;gg%

MoV

WAT
RHCS1
RDY
986.

7214
7215

7219

+CPHALT

MOV

;S}g

7216

TYPE

HALT

144404

SEQ 0159

036002

036012

036022

000000
003514

JSR
RHWC

RO,a#F ILLRE

JSR
RHBA

RO,a#F ILLRE

JSR
RHDST

RO,a#F ILLRE

WRFROM+<266. *2>

003406

3406

7224

;sMOV 0 INTO SAVED RHWC
;SAVED REGISTER TO CHANGE

;DATA

:MOV_WRFROM+<266.%2> INTO SAVED RHBA
; SAVED REGISTER TO CHANGE
DATA

H
3406 INTO SAVED RHDST
:SAVED REGISTER TO CHANGE

:DATA

;*COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA

;ggg

;*WITH REGISTERS AFTER COMMAND

7227
7228
7229
7230
7231
;g%%

036024
036030
036032
036034
036036
036040

004037
004612
002354
000022
036042
036046

7234
7235

036042
036044

000207

104040

042444

8%:

JSR
SAVERE
w(
18.
8$
9%

RO,a#COMREG

;COMPARE SAVFD REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
:18. REGISTERS TO BE COMPARED
:RETURN TO 8% ON ERROR
;RETURN TO 9% ON NO ERROR

ERROR

40
PC

;WRITE CHECK CAUSED
;AN IMPROPER REGISTER

RTS

TMTM

CZRJICO, RPO4/S5/6 FCTNL CTLR1
27-JUL-78 13:05
JCZRJICP11

me—

CZRJICO, RPO4/ 5/6 FCINL CTLRT
ICZRJI(.P11
27-JuL-78 13:05

MACY11

E 13

30A(1052)
27-JuL-78
13:06 PAGE 161
T45
WRITE CHECK HEADER AND DATA

7236

|
T

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

7237
7238

7239

7240
7241
7262
7263

036046

9%:

SEQ 0160

CZRJICO, RPO4L/5/6 FCTNL CTLR1

CZRJIC.PIN
7244
7245
7246
7247
7248
7249
7250
7251

27-JuL-78 13:05

036046
036050
036054
036062
036066
036072
036076

000004
012706

012737
004737
004737

001000

MACYT1 30A(1052)
145

TST46:

004604

104401

000000

27-JUL-78

F13

13:06

PAGE 162

WRITE CHECK HEADER AND DATA
SCOPE

MOY
MOV

#STACK ,SP
#66,a8TSTNM

JRESET STACK
;SAVE TEST NUMBER

TYP$

LCPHALT

:2?8201 CONTINUE TESTING IF ANY OF

JSR
JSR

PC,a#CLDISK
PC,a#CHECKT

HAL

;SET R1-RHCS1, R2-RH(S2
DY = 1
MOL ,DPR,DRY,VV
;CHECK DVA,R
-

;*GET HEADS TO CYLINDER 5
004037

7255
7256

036100
036104

000005

7258

036106

013777

7260
7261
7262

036114
036120
036124

013746
052716
012677

7264
7265
7266
7267
7268

036130
036132
036134
036136
036140

104413

7270

036142

RO,Q#SEEKCY

MOV

A#RP4LVEC ,QRPVEC ;SET RP0O4 VECTOR ADDRESS

MOV

a#SEECOM,-(SP)

;GET READY TO MOVE COMMAND

MOV

(SP) +,aRHCS1

;GO WITH

144152

144150

BIS

#GO'IE, (SP)

;GET READY TO SET 'GO' AND
;WAIT FOR DRY BIT TO SET

DRY
2500.

JWAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 25000 MICRO SECONDS

SWAIT FOR RHDS1 REGISTER

2500.
041456

sCYLINDER 5

WAT

RHDS1

002322

;SEEK FOR

JSR

;DRY MUST SET BETWEEN

PC.,a#CLDISK

:SET R1-RHCS1, R2-RHCS?2

:#10 WORDS OF EACH 12344,17777.0,52525,125252
041326

JSR

WRFROM

RO,a#CLAREA

10.

041326

<5%2000>!<7%40>!4
JSR
RO,a#CLAREA
WRFROM+<10. %2>
10.
-1

JSR
RO,a#CLAREA
WRFROM+<20. *2>
10.

041326

0
JSR
RO,a#CLAREA
WRFROM+<30, *2>
10.
52525
JSR
RO,a#CLAREA
WRFROM+<40, *x2>
10.

125252

;CLEAR 10. WORDS, FROM WRFROM
;STARTING FROM WRFROM

;10. WORDS

SFILL WITH <5%2000>!<7%40>!4
;CLEAR 10. WORDS, FROM WRFROM+<10.%2>
:STARTING FROM WRFROM+<10.%*2>
;10. WORDS
JFILL WITH =1

:CLEAR 10. WORDS, FROM WRFROM+<20.*2>
:STARTING FROM WRFROM+<20,*2>
;10. WORDS

;FILL WITH O
:CLEAR 10. WORDS, FROM WRFROM+<30.*2>
:STARTING FROM WRFROM+<30.%*2>
;10. WORDS
:FILL WITH 52525
:CLEAR 10. WORDS, FROM WRFROM+<40.*2>
:STARTING FROM WRFROM+<40.%2>
:10. WORDS

sFILL WITH 125252

;*FILL LEFT ROTATING ZEROS FROM WRFROM+<50.*2>
177776

000020

MOV
MOV
MOV

R1,-(SP)
#177776.R0
#16. RS

::PUSH R1 ON STACK
*DATA
> COUNT

SEQ 0161

012701
000261
010021
006100
005305
001374

T46

002634
1%:

27=JUL=78

G 13

13:06

WRITE CHECK DATA

PAGE 163

SEQ 0162

MOV

#IRFROM+<50.%2>
,R1 ;WHERE DATA GOES

MOV

RO, (R1)+

;STORE DATA

DEC
BNE

RS
%

;COUNT 16
;BRANCH IF 16 NOT DONE

SEC

ROL

;GET ZERO ONE BIT LEFT

;*FILL LEFT ROTATING ONE INTO WRFROM+<65.%2>
000241
012700
010021
006300

CLC

000001

2%:

103375

012601

MOV

RO, (R1)+

MOV

2%
(SP)+,R1

ASL
BCC

;;POP STACK INTO R1

s*FILL REST OF DATA
004037
002734
000256
000377

JSR

041326

RO,a#CLAREA

WRFROM+<82. %2>
174.
7

JSR
RO,a#CLAREA
WRFROM+<256. %2>
2
<5%2000>!<7%40>!5

041326

.BYTE
.BYTE

:TRACK 7

;SECTOR 4

-256.

;JWORD COUNT = 256.

ECI!'FMT22

RHWC
SAVERE
18.

000022

JSR

041536
066720
004606

013746
052716
012677
011100
011305

002436
000101

143666

;BUS ADDRESS
;DO NOT INHIBIT BUS ADDRESS INCREMENT

:16 BITS PER WORD FORMAT

;GET READY TO DO A WRCHEK

:*SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK
RO,a#SAVER
;SAVE REGISTERS

JSR

041624

013777

sFILL WITH <5%2000>!<7%40>!5

;CYLINDER 5

WRCHEK

000000

;CLEAR 2 WORDS, FROM WRFROM+<256.*2>
;STARTING FROM WRFROM+<256.%*2>
;2 WORDS

WRFROM
0

104401

:174. WORDS
sFILL WITH 377

;s*FILL THE WRITE CHECK HEADER AND DATA
JSR
RO,a#RUN
;SETUP TO RUN FOR DATA COMMAND

043430

004737

;CLEAR 174. WORDS, FROM WRFROM+<82.%*2>
;STARTING FROM WRFROM+<82.%2>

LXPg

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

PC,a#CHECKT
,CPHALT

143670

MoV
MOV

BIS

MOV
MOV

MOV

;CHECK DVA,RDY,MOL ,DPR,DRY,VWV = 1

:g?ggOT CONTINUE TESTING IF ANY OF
:

A#RP4LVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS
a#WRCHEK ,=(SP)

;GET READY TO MOVE

(SP)+,aRHCS1
aR1,RO
aR3.R5

;GO WITH
;SAVE RHCS1 DURING ABOVE OPERATION

#GO'!IE, (SP)

COMMAND

;GET READY TO SET 'GO' AND

;SAVE RHDS1 DURING ABOVE OPERATION

MACYT1 30A(1052)

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRIIC.PT
27-JuL-78 13:05

(ZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JUL-78 13:05
7356
7357

7358
7359
7360

7361

7362

7363
7364
7365
7366
7367
7368
7369
7370
7371
7372
7373
7374
7375
7376
7377
7378
7379
7380
7381
7382
7383
7384
7385
7386
7387
7388
7389
7390
7391
7392
7393
7394
7395
7396
7397
7398
7399
7400
7401
7402
7403
7404
7405
7406

7407
7408

036416
036420
036422
036424
036426
036430
036434
036440

MACY11 30A(1052)
T46

022600

001405
010037
010137
104021

012746
011637
022605
001405
010537
010337
104063

H 13
13:06 PAGE 164

002436
004101
001124

001126
004600
010500
001124

67%:

001126
00460C

SEQ 0163

WRITE CHECK DATA

;WAIT FOR RDY BIT TO SET
sWAIT FOR RHCS1 REGISTER

WAT
RHCS1
RDY
986.

104413

002300
000200
001732
001502
013746
052716
011637

27=-JUL=-78

834.
MOV
BIS
MOV
CMP
BEQ
MOV
MOV
ERROR
MOV
MOV
CMP
BEQ
MOV
MOV
ERROR

JWAIT FOR RDY BIT IN RHCS1 REGISTER

;ALLOW 9860 MICRO SECONDS
;RDY MUST SET BETWEEN

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

(SP)+,RO
67%

;DURING ABOVE OPERATION ONLY IE:DVA!GOC
;BRANCH IF GOOD
;BAD DATA
sFAILING REGISTER RHCS1
:DURING ABOVE OPERATION ONLY

RO,a#$BDDAT
R1,3#REGADR
21
#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
sFAILING REGISTER RHDS1
R3,a#REGADR
63
;DURING ABOVE OPERATION ONLY

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
004037
002272
000000
004037
002274
003470
004037
002304
003405

JSR

RO,a#F ILLRE

041360

0
JSR

:MOV O INTO SAVED RHWC
:g:\{io REGISTER TO CHANGE

RO,a#F ILLRE

041360

WRFROM+<256.
*2>
JSR
RO,a#F ILLRE

‘MOV WRFROM+<256.#%2> INTO SAVED RHBA
“SAVED REGISTER TO CHANGE

041360

RHW(C

RHBA

RHDST

3405

-DATA

:MOV 3405 INTO SAVED RHDST

:gfi\rlib REGISTER TO CHANGE

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

042444

SAVERE

RO,a#COMREG

;COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN 'SAVERE'

;TEST DATA STARTING FROM 'RHWC'

:18. REGISTERS TO BE COMPARED
;RETURN TO 8% ON ERROR
8%:

:RETURN TO 9% ON NO ERROR
:WRITE CHECK CAUSED
;AN IMPROPER REGISTER
: CHANGE

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

:WAS THERE AFTER COMMANDS

036562

9%:

€2
€

CZRJICO, RPO4/5/6 FCTNL CTLR1
| CZRIIC.P1N
27=JuL~-78 13:05
7409
7410
76411
7412
76413
7414
7415
7416
7617
76418
7419
7420
7421
7422
7423
7424

7425
7426
7427
7428

7429

7430
7431
7432
7433
7434
7435
7436
7437
7438

000004
012706
012737
004737
005737
001402
000137
004737
104401
000000

005737
001402
000137

001000
000047
041456
004750

7461
7462
7463
7464

T46

TST47:

27-JUL=78

#STACK,SP

sJRESET STACK

JSR
TST

gséaggLDlSK

;SET R1-RHCS1, R2-RH(CS2
;TEST FOR RH70 CONTROLLER

#47 ,INTSTNM

;SAVE TEST NUMBER

308
TSTS0

:IF FLAG = 1, THIS TEST IS SKIPPED
JUMP TO NEXT TEST

LCPHALT

:g?ggOT CONTINUE TESTING IF ANY OF

JSR

PC,a#CHECKT

TST
BEQ
JMP

a#uUBUSB
1%
as9%

LXE;

037330

SEQ 0164

MOV

BEQ
JMP

004732

I 13
13:06 PAGE 165

WRITE CHECK DATA

MOV

004604

037330
041536
066720

;CHECK DVA,RDY
MOL ,DPR,DRY,VV = 1

;1S UNIBUS B THERE
;JUNIBUS B THERE SO CONTINUE
;NO UNIBUS B, GO TO NEXT TEST

;*GET HEADS TO CYLINDER 5
004037
000005

041426

013777

004606

013746
052716
012677

002452
000101
143410

104413

11%:

143412

JSR
5

RO,Q#SEEKCY

:SEEK FOR
sCYLINDER 5

MoV

A#RPLVEC ,aRPVEC

;SET RPO4 VECTOR ADDRESS

a#SEECOM,-(SP)

;GET READY TO MOVE COMMAND

MOV
BIS
MOV

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

WAT

RHDS1
DRY

7439
7440

7441
7442
7443
7444
7445
7446
7447
7448
7449
7450
7651
7452
7453
7454
7455
7456
7457
7458
7459

MACY11 30A(1052)

JSR

°'GO'

AND

;WAIT FOR DRY BIT

TO SET

;WAIT FOR RHDS1 REGISTER
;WAIT FOR DRY BIT IN RHDS1

2500.
2500.
041456

;GET READY TO SET
;GO WITH

;ALLOW 25000 MICRO SECONDS
;DRY MUST SET BETWEEN

PC.,a#CLDISK

;SET R1-RHCS1, R2-RHCS2

:*10 WORDS OF EACH 12344,17777,0,52525.,125252

004037
002470
000012
012344
004037
002514
000012

041326

004037
002540
000012
000000
004037
002564
000012
052525
004037
002610

041328

177777

JSR

WRFROM

RO,a#CLAREA

10.

041326

<5%2000>!<7*40>!4

JSR
RO,a#CLAREA
WRFROM+<10. %2>
10.
-1
JSR
RO,a#CLAREA
WRFROM+<20. %2>
10.

0
JSR
RO,a#CLAREA
WRFROM+<30, *2>
10.
52525
JSR
RO,a#CLAREA

WRFROM+<40., x2>

;CLEAR 10. WORDS, FROM WRFROM
;STARTING FROM WRFROM

:10. WORDS

sFILL WITH <5%2000>!<7+40>!4

;CLEAR 10. WORDS,
;STARTING
:10. WORDS
SFILL WITH -1
;CLEAR 10. WORDS,
:STARTING
:10. WORDS

FROM WRFROM+<10Q.*2>
FROM WRFROM+<10.#*2>

FROM WRFROM+<20.*2>

FROM WRFROM+<20.%*2>

sFILL WITH O
;CLEAR 10. WORDS, FROM WRFROM+<30.*2>
:STARTING FROM WRFROM+<30.*2>
:10. WORDS
SFILL WITH 52525
;CLEAR 10. WORDS, FROM WRFROM+<40,*2>

;STARTING FROM WRFROM+<40.*2>

7465
76466
76467
7468
7469
7470
7471
76472
76473
7674
7475
7476
7477
7478
7479
7480
7481
7482
7483
7484
7485
7486
7487
7488
7489
7490
7491
7492
7493
7494
7495
749
7497
7498
7499
7500
7501
7502
7503
7504
7505
7506
7507
7508
7509
7510
7511
7512

7513
7514
7515
7516
7517
7518
7519
7520

27=-JuL~-78 13:05

036764
036766

1
SEQ 0165

10,
125252

000012
125252

:10. WORDS
sFILL WITH 125252

;*FILL LEFT ROTATING ZEROS FROM WRFROM+<50.#2>
036770
036772
036776
037002
037006
037010
037012
037014
037016

0 010146
012700
012705
012701
000261
010021
006100

MOV

177776
000020
002634

005305
001374

;;PUSH R1 ON STACK

:DATA

#177776.R0

"?g

#WRFROM+<50.%2>,R1

MOV
1%:

R1,-(SP)

MOV
S

#16. RS

:COUNT

;WHERE DATA GOES

MOV

RO, (R1)+

:STORE DATA

DEC

“COUNT 16

ROL

BNE

RO
1%

*GET ZERO ONE BIT LEFT
*BRANCH IF

16 NOT DONE

s*FILL LEFT ROTATING ONE INTO WRFROM+<65.#*2>
037020
037022
037026
037030
037032

000241
012700
010021
006300
103375

037036
037042
037044
037046
037050
037054
037056
037060

004037
002734
000256
000377
004037
003470
000002
012345

041326

037062
037066
037070
037071
037072
037074
037076
037100
037102

004037
000005
004
007
177400
002470
000000
014000
002436

043430

037104

052777

002000

037112
037116
037120
037122

004037
002272
004612
000022

041624

037124

004737

041536

037034

cLe

000001

2%:

012601

MOV
MOV

#1,R0
RO. (R1)+

BCC
MOV

2%
(SP) +,R1

ASL

s*FILL REST OF DATA
JSR
RO,a#CLAREA
WRFROM+<82. %2>

;CLEAR 174. WORDS, FROM WRFROM+<82.%*2>
;STARTING FROM WRFROM+<82.%2>

377
JSR
RO,a#CLAREA
WRFROM+<256. %2>
2
<5+2000>!<7%40>'5

sFILL WITH 377
;CLEAR 2 WORDS, FROM WRFROM+<256.*2>
;STARTING FROM WRFROM+<256.%2>
;2 WORDS
sFILL WITH <5+2000>!<7%40>!5

174.

041326

::POP STACK INTO R1

;174. WORDS

;*FILL THE WRITE CHECK HEADER AND DATA
JSR
RO.,a#RUN
;SETUP TO RUN FOR DATA COMMAND
.BYTE
.BYTE

;CYLINDER S

-256.

;WORD COUNT = 256.

4
7

;SECTOR_4
:TRACK 7

WRFROM
0

ECI!FMT2?2

WRCHEK

143166

BIS

#PSEL ,@RHCS1

;BUS ADDRESS
;DO NOT INHIBIT BUS ADDRESS INCREMENT

;16 BITS PER WORD FORMAT

;GET READY TO DO A WRCHEK

;SET PORT B

;THAT

IS UNIBUS B

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK

JSR

RHWC

RO,a#SAVER

SAVERE
18.

JSR

;SAVE REGISTERS

sRHWC IS THE FIRST REGISTER SAVED

;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS

PC,a#CHECKT

;CHECK DVA,RDY,MOL,DPR,DRY,VV = 1

ala

CZRJIC.PM

J 13

MACY11 30A(1052)
27=-JUL-78 13:06 PAGE 166
WRITE CHECK DATA USING UNIBUS B
147

CZRJICO, RPO4/5/6 FCTNL CTLRI

7521
7522
7523
7524
7525
7526
7527
7528
7529
7530
7531
7532
7533
7534
7535
7536
7537
7538

037130
037134

104401
000000

066720

037136

013777

004506

037144
037150
037154
037160
037162

013746
052716
012677

002436

037164
037166
037170
037172
037174
037176
037202
037206
037212
037214
037216
037222
037226
037230
037234
037240
037242
037244
037250
037254

104413

011100
011305

002300
000200
001732
001502
013746
052716
011637

MACY11 30A(1052)
147

27-JUL-78

LCPHALT

MOV

a#RPSLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

;*SET PORT SELECT

, = (SP)
@MWRCHEK

#GO!IE!PSEL,(SP)

(SP)+ ,@RHCS1
aR1,RO
aR3,R5

002436
006101
001124

;ALLOW 9860 MICRO SECONDS
A#WRCHEK ,=(SP)

;RDY MUST SET BETWEEN

: SAVE COMMAND

#1E!DVA!PSEL
!GO, (SP)

(SP) ,a#$GDDAT
(SP)+,RO

67%

RO,a#$BDDAT
g}.a#REGADR

001126
004600
010500
001124

;GET READY TO MOVE COMMAND
;GET READY TO SET 'GO' AND
H
;GO WIT
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

;WAIT FOR RDY BIT IN RHCST REGISTER

986.

834.

;STOP

;WAIT FOR RDY BIT TO SET
sWAIT FOR RHCS1 REGISTER

WAT
RHCS1
RDY

: INCLUDE IE!DVA!PSEL
!GO

;SAVE FOR PRINTOUT
L
!GO
;DURING ABOVE OPERATION ONLY IE:DVA!PSE
GOOD
;BRANCH IF
:BAD DATA
sFAILING REGISTER RHCS1
;DURING ABOVE OPERATION ONLY

#MOL !DPR!VV,=(SP)
:SAVE BITS
(SP) ,a#$GDDAT
:SAVE FOR PRINTOUT

67%:

(SP)+,R5
69%
RS ,a#$BDDAT
2§,afiREGADR

001126
004600

SET DURING OPERATION IN RHDS1

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

sFAILING REGISTER RHDS1

;DURING ABOVE OPERATION ONLY

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
041360

037256
037262
037264
037266
037272
037274
037276

RO,a#F ILLRE

:MOV O INTO SAVED RHWC
:g:\rlio REGISTER TO CHANGE

JSR
RHBA

RO,a#F ILLRE

‘MOV WRFROM+<256.#%2> INTO SAVED RHBA
*SAVED REGISTER TO CHANGE

JSR
RHDST

RO,a#F ILLRE

WRFROM+<256.
%2>

041360

037302
037304

JSR
RHW(C

041360

3405

037306
037312
037314
037316
037320
037322

004037
004612
002354
000022
037324
037330

037324

104076

‘DATA

:MOV 3405 INTO SAVED RHDST

:SQ\T/ED REGISTER TO CHANGE

;*COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA
;*WITH REGISTER AFTER COMMAND
RO,a#COMREG
JSR
;COMPARE SAVED REGISTERS WITH
SAVERE
;GOOD DATA SAVED IN 'SAVERE'
sTEST DATA STARTING FROM ‘RHWC'
:18. REGISTERS TO BE COMPARED

042444

;RETURN TO 8% ON ERROR

;RETURN TO 9% ON NO ERROR

8%:

;CANNOT CONTINUE TESTING 1F ANY OF

TYPE

MOV
BIS
MOV
MOV
MoV

002101
143120

SEQ 0166

WRITE CHECK DATA USING UNIBUS B
HALT

143122

K 13
13:06 PAGE 167

sWHILE USING UNIBUS B
;WRITE CHECK CAUSED

——

CZRJICO, RPO4/S/6 FCTNL CTLR1
er-AL~ 78 13:05
CZRJIC.PN

CZRJICO, RPO4/S/6 FCTNL CTLR1
CZRJIIC.PN
7577
7578
7579
7580
7581
;gg%

037326

7584

037330

7585

7586
7587

7588

7589

27-JuL-78 13:05

MACY11 30A(1052)
147

000207

27-JuL=78

PAGE 168

WRITE CHECK DATA USING UNIBUS B
RTS

9%:

L 13

13:06

SEQ 0167

;AN IMPROPER REGISTER
; CHANGE
;GOOD DATA GIVES WHAT
;SHOULD BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE AFTER COMMANDS

|
|

MACY11 30A(1052)

CZRJICO, RPO4/5/6 FCTNL
CZRJIC.PI
27=JuL~78
7590
7591
7592
7593
759
7595
759
7597
7598
7599
7600
7601

7602
7603
7604
7605
7606
7607
7608
7609
7610
7611
7612

7613

7614
76i5
7616
7617
7618

037330

000004

037332
037336
037340
037344
037346
037352
037354
037356

005737
001007
005737
001004
005737
001001
000402
000137
012706
012737
004737

037374

040554
001000
000050
041456

27-JUL-78

Mm13
13:06 PAGE 169

T47

WRITE CHECK DATA USING UNIBUS B

TSTS0:

SCOPE

TST
BNE
TST
BNE
TST
BNE
BR
JMP
MOV
MOV

004604

JSR

S#NOPUSH
1$
N2
1%
AN#BPASS
1%
2%
ST
#STACK,SP
#50 ,a#TSTNM

PC,a#CLDISK

;1S THIS A 220 START ?
;SKIP THIS TEST IF SO
JMONITOR (ACT 11) RETURN ADDRESS ?
;SKIP THIS TEST
sFIRST PASS ?
;SKIP THIS TEST IF NOT
;CONTINUE WITH THIS TEST
)
JUMP TO NEXT TEST
sRESET STACK
;SAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(CS2

s*FILL SECTOR O, TRACK O, CYL O WITH ONES

037400
037404
037406
037410

004037
002470

041326

037412
037416
037420
037421

004037
000000
000
000

043430

037424
037426
057430
03743¢

002470
000000
010000
002442

037434
037440
037444

004737
104401

041536
066720

037446

013777

004606

037454
03746C
037464

013746
052716
012677

002442
000101

037470
037472
037474
037476
037500

104413
002300
000200
004704
004704

037422

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

WRFROM

.BYTE
.BYTE

177400

000000

;STARTING FROM WRFROM

256.
-1

000400
177777

:256. WORDS
SFILL WITH -1

s*FILL WRITE DATA COMMAND
JSR
RO, a#RUN
;SETUP TO RUN FOR DATA COMMAND
0
;CYLINDER 0
0
0

;SECTOR 0
:TRACK 0

WRFROM

;BUS ADDRESS

=256.

;WORD COUNT = 256.

;DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT22
WRIDAT

142610

;CHECK DVA,RDY,MOL ,DPR,DRY,V V=1
;CANNOT CONTINUE TESTING IF ANY OF

JSR
TYPE

PC,a#CHECKT
.CPHALT

MOV

A#RP4LVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV

a#WRIDAT,-(SP)

;GET READY TO MOVE COMMAND

MoV

(SP) +,aRHCS1

;GO WITH

HALT
142612

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

BIS

#GO!IE, (SP)

:*;IME IS NOT CRITICAL

;STOP

;GET READY TO SET 'GO' AND

WA
RHCS1

;WAIT FOR RDY BIT TO SET
sWAIT FOR RHCS1 REGISTER

2500.
2500.

;ALLOW 25000 MICRO SECONDS
;RDY MUST SET BETWEEN

RDY

;WAIT FOR RDY BIT IN RHCS1 REGISTER

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE PROTECT
;*BUTTON HAS BEEN HIT
037502
037506
037510

004037
002272
004612

041624

JSR
RHW(

SAVERE

RO,a#SAVER

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

SEQ 0168

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27=JUL~78 13:05
7646

7647
7648
7649

7650
76351
7652
7653

7654
7655

7656
7657
7658
7659
7660
7661
7662
7663
7664
7665
7666

7667
7668

7669
7670
7671
7672
7673
7674
7675
7676
7677
7678
7679
7680
7681
7682
7683
7684
7685
7686

7687
7688
7689
7690
7691
7692
7693
7694

7695
7696
7697

037512

000022

037514
037520
037540
037544
037546
037552
037660

104401
000407
013746
104405
104401

000442

MACY11 30A(1052)
150

27=-JUL-78

N 13
13:06 PAGE 170

SEQ 0169

WRITE PROTECT OPERATION

18.

:NUMBER OF REGISTERS
,68%

67%
a#UNIT,=(SP)

;:TYPE ASCIZ STRING

004716

BR
?OXDS

TYPE

037554

TYPE

,70%
69%

;:TYPE ASCIZ STRING

037522

a:LT

::GET OVER THE ASCIZ
;GET UNIT UNDER TEST
;;GET OVER THE ASCIZ

:'Tcs ONLY REGISTER THAT SHOULD
.

JSR
RHDS1
1
1
WRL

042336

037674

RO,a#CHREG

CHANGE IS RHDS1 - BIT #11

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

;*COMPARE ALL REGISTERS BEFORE WRITE WAS LOCKED

037676
037702
037704
037706
037710
037712

004037
004612
002354
000022
037714
037720

037714
037716

000207

;*0UT WITH REGISTER VALUES AFTER WRITE WAS LOCKED OUT
JSR
RO,a#COMREG
;COMPARE SAVED REGISTERS WITH

042444

SAVERE
wC
18.
3$

;GOOD DATA SAVED IN ‘'SAVERE'
sTEST DATA STARTING FROM 'RHWC'
;18. REGISTERS TO BE COMPARED

sRETURN TO 3% ON ERROR

3%:

104041

ERROR
RTS

JRETURN TO 4$ ON NO ERROR

41
PC

;LOCKING OUT WRITE BY
;WRITE LOCK BUTTON CAUSED

; IMPROPER REGISTER CHANGE

;GOOD DATA GIVES WHAT SHOULD
;BE THERE

sRECEIVED DATA GIVES WHAT
;WAS THERE AFTER WRITE
;WAS LOCKED OUT BY BUTTON

s*NOW A WRITE WILL BE ATTEMPTED WITH WRITE LOCKED
;*0UT BY BUTTON

;*FILL WRITE FROM BUFFER WITH 377
037720

013737

037720

037726
037732
037736
037740
037742

041456
041326

037744
037750
037752
037753
037754
037756
037760
037762

043430

001110

48%:

MOV

a#4S ,a¥SLPERR

;SCOPE LOOP STARTS FROM HERE

JSR
JSR

PC,a#CLDISK
RO,a#CLAREA

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

WRFROM

.BYTE
.BYTE

sSTARTING FROM WRFROM

256.
377

:256. WORDS
;FILL WITH 377

;*TRY A ONE WORD WRITE
6SR
RO,a#RUN

;SETUP TO RUN FOR DATA COMMAND

0
0
-1.
WRFROM
0
FMT22

sCYLINDER 0
JSECTOR O
;TRACK 0
JWORD COUNT = 1.
:BUS ADDRESS
;DO NOT INHIBIT BUS ADDRESS INCREMENT
216 BITS PER WORD FORMAT

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRIIC.P1
27-JUL-78 13:05
7702
7703
7704
7705
7706
7707

B 14
27=JUL-78 13:06 PAGE 171
MACYTT 30A(1052)
WRITE PROTECT OPERATION
750

;GET READY TO DO A WRIDAT

WRIDAT

037764

002442
004037
002272
004612
000022

041624

7708

037766
037772
037774
037776

7710

040000

013777

004606

7712

040006

002442

7714

040016

013746
052716
012677

;*SAVE REGISTERS

JSR
RHW(

RO,a#SAVER

SAVERE

:NUMBER OF REGISTERS

MoV

@NRPSLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS

@MWRIDAT ,~(SP)
#GO!IE, (SP)

MOV
(SP) + ,aRHCS1
;*TIME IS NOT CRITICAL
WAT

142256

;SAVE REGISTERS
SRHWC IS THE FIRST REGISTER SAVED

:STARTING ADDRESS OF WHERE

18.

142260

SEQ 0170

RHCS1
RDY

2500.
2500.

;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 25000 MICRO SECONDS

:RDY MUST SET BETWEEN

;*CHANGE SAVED REGISTERS TO EXPECTED VALUE

7728
7729

7740

040060
040066

040122

017737
017737
017746
042716
042737
052637
004037

142232
142226

142222
177477
000300
004616
042336

004612
004614

004616

MOV
MOV
MOV

BRHWC ,a¥#SAVERE :RMWC IS UNPREDICTABLE
SRHBA a#SAVERE +2:RHBA 1S UNPREDICTABLE
BRHCS2,-(SP)
:GET RHCS2

JSR

RO, a#CHREG

BIC
BIC
BIS

RHCS1

#~C<IRTOR>, (SP) :KEEP IR AND OR
#IR'OR,INSAVERE+4;CLEAR SAVED IR OR
(SP)+,a#SAVERE+4;SET OR IR AS REQUIRED

2
1
SC
1

040000
004037

041360

00000
004037

042336

004000
004037

042336

TRE

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

JSR

RO,a#F ILLRE

JSR

RO,a#CHREG

JSR
RHDS1
2
1

RO,a#CHREG

?HDST

RHER1
1
1
WLE

ATA

053737

004740

004636

1
ERR

BIS

*CHANGE BITS IN SAVED REGISTER

;CHANGE RHCS1 REGISTER

;CHANGE TRE BIT

;MOV 1 INTO SAVED RHDST

:g:\TIED REGISTER TO CHANGE

;CHANGE BITS IN SAVED REGISTER

;CHANGE RHER1 REGISTER
;1 BIT/BITS TO BE CHANGED
sNEW VALUE OF WLE IS 1
;CHANGE WLE 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

NEU VALUE
OF ERR IS 1
CHANGE ERR BIT

QFATTENT, NSAVERE*Z‘

;SET APPROPRIATE 'ATA' BITS

;*COMPARE REGISTERS BEFORE WRITE WAS ATTEMPTED
;*WITH REGISTERS AFTER ATTEMPT
7757

040164

004037

042444

JSR

RO,a#COMREG

;COMPARE SAVED REGISTERS WITH

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JUL-78 13:05
7758
7759
7760
7761
7762
7763
7764
7765

7766
7767

040170
040172
040174
040176
040200

C 14
30A(1052)
MACY11
27-JUL-78 13:06 PAGE 172
WRITE PROTECT OPERATION
750
‘S‘eVERE

004612
002354
0000

;GOOD DATA SAVED IN ‘'SAVERE'

sTEST DATA STARTING FROM ‘RHW(C'

18.
5%
6%
5%:

040202
040204

ERROR
RTS

;18. REGISTERS TO BE COMPARED
sRETURN TO 58 ON ERROR
SRETURN TO 6% ON NO ERROR
42
PC

SATTEMPTING TO WRITE WITH
;WRITE LOCKED OUT

;CAUSED IMPROPER REGISTER
; CHANGE

;GOOD DATA GIVES WHAT SHOULD
:BE THERE

*RECEIVED DATA GIVES WHAT WAS
*THERE AFTER ATTEMPT

;*NOW A READ WILL BE DONE TO DETERMIN THAT
;*READS CAN BE DONE WITH WRITE LOCKED OUT AND
;*THAT NO DATA ON DISK GOT CHANGED, BUT FIRST CLEAR ERROR
004737

041456

004037
003534
000400
000000

041326

004037
002470
000400
177777

041326

004037
000000

043430

6%:

040312

PC,a#CLDISK

REINTO

;STARTING FROM REINTO

256.
0

:256. WORDS
;FILL WITH O

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA FRCM READ
JSR
RO,a#CLAREA
;CLEAR 256. WORDS, FROM WRFROM

WRFROM
256.

;STARTING FROM WRFROM
:256. WORDS

-1

sFILL WITH =1

s*FILL COMMAND

.(J)SR
.BYTE
.BYTE

RO, a#RUN

0
0
-256.

0
ECI'FMT22
READAT

004606

013746
052716
012677

002446
000101
141776

142000

;SETUP TO RUN FOR DATA COMMAND
JCYLINDER O
:SECTOR O
;TRACK 0
:WORD COUNT = 256.

REINTO

013777

;SET R1-RHCS1, R2-RH(CS2

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

000
000
177400
003534
000000
014000
002446

104413
002300
000200
001614
001507

JSR

;BUS ADDRESS

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

MOov

A#RPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV

@#READAT ,-(SP)

BIS
MOV

WAT
RHCS1
RDY
908.
839.

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

;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 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

SEQ 0171

7815

004037
002470
003534
000400
040332
040334

MACY11 30A(1052)
750

27=JUL=78

D 14

13:06

WRITE PROTECT OPERATION

;*COMPARE READ DATA
RO, a#COMPAR
JSR
WRFROM

043474

REINTO

256.
7$
8%

7%:

104043

PAGE 173

ERROR

;COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
;256. WORDS TO BE COMPARED
sRETURN TO 7$ ON ERROR

sRETURN TO 8% ON NO ERROR
43

;WRITING WITH WRITE
;LOCKED CHANGED DISK
;GOOD DATA GIVES WHAT WAS
;ON DISK BEFORE WRITE WITH
;WRITE LOCK WAS ATTEPTED

“RECEIVED DATA GIVES WHAT

‘WAS READ BACK AFTER WRITE

‘WITH WRITE LOCKED WAS ATTEPTED

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE LOCK HAS BEEN
; *UNLOCKED

004037
002272
004612
000022

041624

104401

040354

013746

004716

104405
104401
000440

004037
002322
000001

8%:

JSR

RHWC
SAVERE
18.
ST20:

TYPE

BR
MOV

TYPDS

TYPE

040406

HALT

RO,a#SAVER

;SAVE REGISTERS

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

.65%

;:;TYPE ASCIZ STRING

,67%

;:TYPE ASCIZ STRING

64%
@#UNIT,-(SP)
66%

;.GET OVER THE ASCIZ
;GET UNIT UNDER TEST
;.GET OVER THE ASCIZ

;*THE ONLY BIT THAT SHOULD CHANGE IS WRL-BIT #11 IN RHDS1

JSR

042336

RHDS1
1

RO,a#CHREG

s CHANGE RHDS1 REGISTER
;1 BIT/BITS TO BE CHANGED

sNEW VALUE OF WRL IS 0
;CHANGE WRL BIT

WRL

004000

;CHANGE BITS IN SAVED REGISTER

;*COMPARE ALL REGISTERS BEFORE WRITE LOCK WAS UNLOCKED
;*WITH REGISTERS AFTER WRITE WAS UNLOCKED
004037
004612
002354

JSR
SAVERE
WC

042444

18.
9%
108

040542
040546
104044

000207

RO,a#COMREG

9%:

ERROR

RTS

;COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN ‘'SAVERE'
sTEST DATA STARTING FROM ‘'RHWC'
;18. REGISTERS TO BE COMPARED
;RETURN TO 9% ON ERROR

sRETURN TO 108 ON NO ERROR
44
PC

JUNLOCKING WRITES BY WRITE

;LOCK BUTTON CAUSED AN ERROR

SEQ 0172

e Xan ]

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuUL-78 13:05

CZRJIC.PN

I
|

27=JUL-78 13:05

MACYT1 30A(1052)
150

27-JuL-78

E 14

13:06

PAGE 174

WRITE PROTECT OPERATION

7870

;GOOD DATA GIVES WHAT SHOULD

7873

;THERE AFTER WRITES WERE

7871
7872

;BE THERE
sRECEIVED DATA GIVES WHAT WAS

7874

sUNLOCKED

7875
7876

7877
7878

;ON THIS ERROR NO LOOPING IS RECOMMENDED
;JUST A HALT ON ERROR WILL DO THE SAME
040546

012737

177777

047274

108:

MOV

#-1,a4PRITEM

;THING AS ONLY THE REGISTERS ARE READ
;CLEAR PREVIOUS ITEM NUMBER

SEQ 0173

CZRJICO, RPO4/S5/6 FCTNL CTLR1

MACY11 30A(1052)

27=JUL=78

F 14

13:06

SEQ 0174

PAGE 175

750

WRITE PROTECT OPERATION

TSTS51:

SCOPE
MOV
MOV

7879

7880
7881
7882
7883
7884
7885

040554
040556
040564

000004
012737
012737

000901
000000

040572
040576
040650

000424
013746

104401

040600

040654
040656
040662
040670
040674
040676
040702
040706
040712
040714
040720

104405
104401

000402
073746
104405

7916

001112

005237

013746

001100
041111
001100

000137

041106
010034

012737
005237
001413
013700
012701
022100
001401
000775
011137
000137

TYPDS
TYPE

040664

001112
001102
004726

104405
104401

TYPE
BR
MOV

004716

005037
005037
005737
001413

104401

001212
177776

177777

004720
004716
004676

004716
010034

1%:

2%:

,65%

;:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
;GET READY TO TYPE UNIT NUMBER

648
AFUNIT,=(SP)

66%
A#SERTTL,-(SP)

,67%

;:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
:GET READY TO TYPE NUMBER OF ERRORS

CLR
CLR
TST
BEQ

A¥SERTTL
a#STSTAM

;CLEAR TOTAL NUMBER OF ERRORS
;CLEAR TEST NUMBER

INC

a#SPASS
. SENDMG
- (SP)
a#$PASS

TYPE
MOV
TYPDS
TYPE
JMP

3%:

;;D0 1 ITERATION
SREINSTATE PS TO O

#0,PS

MOV
TYPDS

047274

#1,STIMES

MOV

DEC
BEQ
MOV
MOV
CMP
BEQ
BR
MOV
JMP

QNSELECT

. SENULL

;STARTING FROM 200 ?
;CHECK NEXT DRIVE IF SO
;CONTINUE WITH THIS ONE IF NOT
; INCREASE PASS COUNT
;TYPE "END PASS #''

a#TSTS

;JUMP TEST 4

#-1,24PRITEM

. CLEAR PREVIOUS ITEM NUMBER
sNO. OF UNITS PRESENT

A#NOUNITS
$EOP

a#UNIT,RO
#UNITS,R1
(R1)+,R0
2%

1%
(R1) ,@#UNIT
A#TSTS

;BRANCH IF ALL DRIVES COMPLETE
sUNIT UNDER TEST
;TABLE POINTER
;1S THIS UNIT JUST TESTED ?
;BRANCH IF YES
;BRANCH IF NO

sMAKE THIS NEXT UNIT
sTESYT NE MEXT DRIVE =vveeeenvsnens

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PM
27=JUL.-78 13:05

CZRJICO, RPO4/S5/6 FCTNL CTLR1
CZRJIC.PMN
27=-JuL-78 13:05

MACY11 30A(1052)

27=JUL-78
SBTTL
LSBTTL
LSBTTL
SCOPE

000004

005037

CLR
CLR
INC
BIC

DEC
$EOPCT: .WORD
BGT
MOV
$ENDCT: .WORD
$EOPCT
TYPE
MOV
TYPDS
TYPE

REEFTEES

377
042412
051501

000
042116

$TSTNM
$TIMES
$PASS
#100000, $PASS
(PC)+
1
$DOAGN
(PC)+,a(PC)+
1
, SENDMG
$PASS ,~(SP)
LSENULL

$ENDAD: JSR
NOP
NOP

PC, (RO)

$SRTNAD:

S$ENULL:
SENDMG:

. WORD

BYTE
. ASCIZ

PAGE 176

*«SUBROUTINES*+

a#642.R0O
$DOAGN

NOP
JMP

G 14

13:06

$GET42: MOV
BEQ

RESET

RRRRRRVLR

a(PC)+

;;ZERO THE TEST NUMBER
;:ZERO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER
;:LOOP?
3:V¢S
; ;RESTORE COUNTER
::TYPE "END PASS #''

:;SAVE SPASS FOR TYPEOUT
;:G0 TYPE--DECIMAL ASCII WITH SIGN
;sTYPE A NULL CHARACTER
;2GET MONITOR ADDRESS
;:;BRANCH IF NO MONITOR
::CLEAR THE WORLD
;GO TO MONITOR
:;SAVE ROOM
;;FOR
2:ACTN
; sRETURN

TST1
=1,-1,0
;sNULL CHARACTER STRING
<15><12>/END PAS S #/

SEQ 0175

r
CZRJICO, RPO4/5/6 FCTNL CTLRI1
CZRJIC.P1
27=JuL= 78 13:05

MACY11 30A(1052)

27-JuL-78

END OF PASS ROUTINE

.SBTTL

H 14

13:06

PAGE 177

SEQ 0176

JAM CURRENT CYLINDER ROUTINE

;*THIS ROUTINE WILL CHANGE THE CURRENT CYLINDER REGISTER = "RHCC'

;*BY GIVING A 'SEEK' COMMAND FOLLOWED BY AN INIT WHICH WILL LOAD
;*'RHCC' WITH THE DESIRED CYLINDER VALUE.
;*THAT THE LOADED VALUE

IS CORRECT.

THE ROUTINE THEN CHECKS

s*CALL IS:

S
ah cn

e e

141142
141130
002452
000001

141116
141130

004737
032737
001401

043370
040000

002404

052777
000240
000240
000240
000240

000001

141064

004737
032737

043370
040000

002404

004737
017737
020537
001406
010537
013737

041456

RRRR RRRRR

ONYN

cnd cd

041512

e e

041512
000004

b
i

010037

:
MAKECYL

PUND
= =

010546

LSS 1,8

RRRR RRRRRRRRR

e ed d —d
nono
Onne
s

:. %
:®

162737

012005
010577
005077
013777
012777

104103

001401
104104

104077

012605
000200

141062

001126

001124
002334

004600

001126

2%:

3%:

JSR
XC

MOV
MOV
SuB
MOV
MOV
CLR
MOV
MOV

RO,a#MAKECYL

R5,=(SP)

RO,a#PCJSR

;DESIRED VALUE OF CURRENT CYLINDER
:;PUSH RS ON STACK

;PC OF JSR+4

#4 ,#PCJSR
(RO) +,RS
RS,aRHCA
aRHDST
a#SEECOM,aRHCST
#DMD , aRHMR

;SAVE PC OF JSR
:GETTING READY TO FILL DESIRED CYLINDER
:FILL DESIRED CYLINDER REGISTER
:MAKE SURE DESIRED SECTOR TRACK iS NOT ILLEGAL
;FILL SEEK COMMAND
;SET DIAGNOSTIC MODE

JSR
BIT
BEQ
ERROR

PC,a#PUTREG
#ERR ,a#DS1
2%
103

JTAKE A REGISTER SNAPSHOT
JCHECK FOR COMPOSITE ERROR
;NOT = 1, A-OK
;REGISTER CONTENTS INCORRECT BEFORE A
;DIAGNOSTIC SEEK

BIS
NOP
NOP
NOP
NOP

#GO ,aRH(CST

;ISSUE
;ALLOW
:ALLOW
;ALLOW
;ALLOW

JSR
BIT
BEQ
ERROR

PC,a# U TREG
#ERR,a#0S1
3%
104

;TAKE A 2ND REGISTER SNAPSHOT
;CHECK FOR ERRORS
JNOT = 1, A-OK
:REGISTER CONTENTS INCORRECT AFTER
;A DIAGNOSTIC SEEK

JSR
MOV
CMP
BEQ
MOV
MOV
ERROR

PC,a#CLDISK
aRHCC ,a#$BDDAT
?g.&"BDDAT

MOV
RTS

'GO' TO SEEK COMMAND
FOR SEEK TO HANG UP
FOR SEEK TO HANG UP
FOR SEEK TO HANG UP
FOR SEEK TO HANG UP

TIME
TIME
TIME
TIME

:GIVE INIT TO FORCE THE TRANSFER
;TEST DATA
;COMPARE CURRENT CYLINDER
;BRANCH IF GOOD
RS ,a#$GDDAT
;GOOD VALUE OF RHCC
O#RHCC,a#REGADR ;FAILING REGISTER ADDRESS
sCURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER
77

JREGISTER AFTER A SEEK AND AN INIT

(SP)+,RS

;;POP STACK INTO RS

CZRJICO, RPO4/S/6 FCTNL CTLR1
CZRJIC.PN

27=-JUL~-78 13:05

MACY11 30A(1052)

27-JuL-78

I 14

13:06

JAM CURRENT CYLINDER ROUTINE

PAGE 178

8003
8004
8005

:*THIS FILLS MEMORY WITH GIVEN DATA
:*USED CHIEFLY FOR HEADER INFORMATION

8007
8008
8009
8010
8011

v
i
i*
i*
i*

8006

;*CALL IS

8017
8018
8019
ggg?

041302

041302
041304
041306
041310

010146
010246
012001
012002

FLHEAD:

ggg%
8024
8025
8026

8027
8028
8029
8030
8031
8032
8033
8034

041312
041314
041316

041320
041322
041324

012021
005302
001375

MOV
MOV
MOV
MOV

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

::PUSH R1 ON STACK
::PUSH R2 ON STACK
:R1 HAS ADDRESS OF WHERE TO SAVE
:R2 HAS NUMBER OF WORDS

MOV
DEC
BNE

MOV
MOV
RTS

(RO)+,(R1)+
R2
1%
(SP)+,R2
(SP)+,R1
RO

;SAVE DATA
;DECREMENT COUNT
:BRANCH IF INCOMPLETE

::POP STACK INTO R2
::POP STACK INTO R1

:*THIS CLEARS ANY B.OCK OF MEMORY.
s«FILLING IT WITH ANY DATA
;*CALL IS
i*
JSR
RO,a#CLAREA
i
F
:FROM
%
N
: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

8047
8048
8049

041326
041326
041330
041332
041334

010146
010246
010346
012001

8051
8052
8053
8054

041340
041342
041344
041346

012003
010321
005302
001375

8055
8056
8057

1%:

012602
012601
000200

ggzg

8050

;FILL HEADER
;LOCATION WHERE SAVED
:NUMBER OF WORDS
:DATA REPEATED XN TIMES
:DATA REPEATED XN TIMES

:*NOW FILL DATA

8035
8036
8037
8038

8041
8042
8043
8044
8045
8046

RO, a4F LHEAD

8013
8015
8016

JSR
LOC
XN
XD1
XD2

041336

041350
041352
82}354
356

CLAREA:

012002

012603
012602
012601

000200

MOV
MOV
MOV
MOV

R1,-(SP)
R2,=(SP)
R3,-(SP)
(RO)+,R1

::PUSH R1 ON STACK
::PUSH R2 ON STACK
:;PUSH R3 ON STACK
;FROM

MOV
MOV
DEC
BNE

(RO)+,R3
R3, (R1)+
R2
1%

;DATA
:MOVE DATA
;COUNT
;BRANCH IF NOT COMPLETE

RTS

JRETURN TO MAIN PROGRAM

MOV
1%:

MOV
MOV
MOV

(RO)+,R2

(SP)+ ,R3
(SP)+,R2
(SP) +,R1

:NUMBER

:;POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1

SEQ 0177

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIIC.P1T
27-JuL-78 13:05

MACY11

30A(1052)

27-JuL=-78

J 14
13:06 PAGE 179

JAM CURRENT CYLINDER ROUTINE

8059

;*THIS

IS A SUBROUTINE

TO FILL

SAVED REGISTER LOCATION

;*WITH GIVEN VALUE
s*CALL | S
"
RO
a#F ILLRE
JSR
,
RHXX
;REGISTER NAME
D
;DATA
.

SEEEs

RRRRL

370

041374
041400
041402
041404

010146
010246
012001
012002
162701
010261
012602
012601
000200

FILLRE:

002272
004612

MOV
MOV
MOV
MOV
SUB
MOV
MOV
MOV
RTS

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

;:PUSH R1 ON STACK
;:PUSH R2 ON STACK
;ADDRESS OF ADDRESS OF REGISTER

(RO)+,R2

;DATA

R2,SAVERE (R1)
(SP)+,R2
(SP)+ ,R1
RO

;sPOP STACK INTO R2
;:POP STACK INTO R1
;RETURN TO MAIN PROGRAM

#RHWC ,R1

;OFSET
;DATA IS MOVED IN

SEQ 0178

L
CZRJICO, RPO4/S5/6 FCTNL CTLRI1
CZRJIC.PN
27-JuL-78 13:05

8036
8087
8('88
8089
8090
8091
8092

8093

8095

K 14

MACY11 30A(1052)
27-JuL-78 13:06 PAGE 180
JAM CURRENT CYLINDER ROUTINE

:*THIS SUBROUTINE SETS UP FOR SEARCH

;*CALL IS
JSR
:®

RO,a#SRCH

s CYLINDER
;SECTOR

;*.BYTE S

; TRACK

s*.BYTE T

041406
041412
041416
041424

012077
012077
013777

140700
140666
002434

SRCH:
140654

000200

MOV
MOV

(RO) +,3RHCA
(RO) + ,@RHDST

MOV

a#SERCH,aRHCST1

RTS

;SET DESIRED CYLINDER ADDRESS
;SET DESIRED SECTOR/TRACK ADDRESS

;GET READY FOR SEARCH

;WITH 30 IN RHCS1

;*THIS SUBROUTINE SETS UP FOR SEEK (OMMANDS
;*CALL IS
RO,#SEEKCY
JSR
i
;CYLINDER
C
A
. %

041426
041432
041440

012077
013777
000200

140660
002452

140640

SEEKCY: MOV
MOV
RTS

{RO) +,aRHCA
;SET DESIRED CYLINDER ADDRESS
Q#SEECOM,aARHCST MOV & INTO RHCSI1
RO

;RETURN TO MAIN PROGRAM

SEQ 0179

WN—

0, RP04/5/6 FCTNL
P11
27=JUL~78

L 14
MACY11 30A(1052) 27-JuL-78 13:06 PAGE 181
JAM CURRENT CYLINDER ROUTINE

SEQ 0180

;*THIS SUBROUTINE SETS UP FOR OFFSET COMMANDS

s*CALL 1 )
I

. %

OFSET:

JSR
0

RO, a#0F SE T

;MICRO INCHES OFSET

(RO) +,aRHOF

;SET OFSET REGISTER

0461442
041446
041454

052077
013777
000200

002454

041456
041462
041466
041472

013701
013702
013703
013704

002300
002276
002322
002302

CLDISK: MOV

@#RHCST,
IHRH(CS2,
a#RHDST,
a#RHERT,

R1
R2
R3
R4

041476
041502
041506
041510

012712
013712
005011

000040
004716

MOV
MOV

#CLR,aR2

RTS

;CLEAR ALL REG.
UNIT NO.
TE
JREINSTA
;CLEAR FUNCTION BITS

000207

160642

140624

BIS
MOV
RTS

MOV
MOV
MOV

CLR

gzOFSETC.ORHCS1 ;MOV14 INTO RHCS1

JRETURN TO MAIN PROGRAM

A#UNIT,aR2
aR1

;R1 WILL
;R2 WILL
;R3 WILL
;R4 WILL

BE
BE
BE
BE

CONTROL AND STATUSI
CONTROL AND STATUS?Z
DISK STATUS REGISTER1
ERROR REGISTER #1

€2

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRIIC.PN
27-JuL-78 13:05

8161
8162
8163
8164

8165
8166
8167
8168
8169
8170
8171
8172
8173
8174
8175
8176
8177
8178

8179

8180

SEQ 0181

PAGE 182

;*THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 = 1
;*AND CHECKS MEDIUM ON LINE (MOL), DEVICE PRESENT (DPR), DEVICE READY
IN RHDS1 = 1

;* (DRY)

8141

8160

M 14

13:06

JAM CURRENT CYLINDER ROUTINE

8134
8135
8136
8137
8138
8139
8140
8142
8143
8144
8145
8146
8147
8148
8149
8150
8151
8152
8153
8154
8155
8156
8157
8158
8159

27-JuL-78

MACY11 30A(1052)

;*IT ALSO CHECKS THAT THERE ARE NO BITS STUCK AT 1 IN RHDS1
041512

000000

041514
041520
041526
041530
041534

011637

041536
041542
041550

011637
162737
011346

041552
041554
041560

011146
042716
022726

041564
041566
041572

001403
011137
104061

162737

011346
052716
000406

041512
000004

041512

PCJSR:

CHECK:

MOV
SuB
MOV
BIS
BR

000100
041512
000004

173577
004200

041512

CHECKT: MOV
SuB
MOV
CHECKC: MOV
BIC
MP
BEQ
MOV
ERROR

001122

:PC OF JSR
(SP) ,@#PCJSR

;SAVE PC OF JSR+4

ar3,-(SP)

“GET RHDS1

CHECKC

*GOTO COMMON CHECK ROUT INE

#4,a#PCJSR
#VV. (SP)

‘GET PC OF JSR

*DONT CHECK VV BIT

(SP) ,@4PCJSR

:SAVE PC OF JSR+4

ar3,-(SP)

“GET RHDS1 & DO VV CHECK AT 3%

#4 ,a#PCJSR

*GET PC OF JSR

ar1,-(SP)

:GET (S1

#DVA'RDY,(SP)+

-RHCS1

#173577,(SP)
3%

aR1,a#$BDADR
61

*CLEAR UNWANTED BITS

SHOULD HAVE DEVICE AVAILABLE

;AND BE READY
;BRANCH IF

IT DOES

;BAD DATA REGISTER (RHCS1)
sRHCS1 DID NOT HAVE DEVICE
JAVAILABLE RIGHT AT THE START

;ALL OTHER BITS SHOULD BE 0

041574
041600
041604
041606
041612

042716
022726
001404
011337
104062

041614

000207

102000

010700

3%:

001122

BIC
CMP
BEQ
MOV
ERROR

#ATA!LBT,(SP)

;CLEAR UNWANTED BITS

aR3,a#$BDADR
62

;BAD DATA IN REGISTER (RHDS1)
;RHDS1 HAS SOME BITS OTHER

RTS

#MOL !DPR!DRY!VV,(SP)+ ;RHDS1 SHOULD HAVE THESE SET
7$
;BRANCH IF GOOD
;THAN MOL, DRY, DPR,VV SET

;ALL OTHER BITS SHOULD BE 0

JRETURN TO TEST AND HALT/CONTINUE

;DEPENDING ON WHETHER THIS IS A
;"FATAL'" ERROR

041616
041622

062716
000207

000006

7%:

ADD
RTS

#6, (SP)
PC

;ADJUST STACK TO JUMP OVER HALT IN TEST
JRETURN TO THE TEST AND CONTINUE

CZRJICO, RPO4/S5/6 FCTNL CTLR1
27-JuUL-78 13:05
CZRJIC.PI

MACY11 30A(1052)

27-JuL-78

N 14

13:06

JAM CURRENT CYLINDER ROUTINE

SEQ 0182

PAGE 183

;*THIS IS A SUBROUTINE TO SAVE REGISTERS
;*IN THE REGISTER TABLE TO ANY LOCATION
. *

Z =

;*THE CALL IS
RO,a#SAVER
; *JSR
;FROM
;710

MOV
MOV
MOV

R1,-(SP)
R2,=(SP)
R3,-(SP)

;;PUSH R1 ON STA(K
;;PUSH R2 ON STACK
:;PUSH R3 ON STA(CK

MOV
MOV
DEC

(RO)+,R3
a(R1)+,(R2)+
R3

:NUMBER
;SAVE REGISTER CONTENTS
s COUNT

RTS

;NUMBER OF WORDS SAVED
s¥
RH(SI
BE
S
ALWAY
MUST
;*F
SAVRE
BE
ALWAYS
MUST
;*T

SAVER:

010146
010246
010346
012001
012002

MOV
MOV

012003
013122

1%:

005303
001375
012603
012602
012601
000200

BNE
MOV
MOV
MOV

(RO)+ ,R1
(RO) +,R2

1%
(SP)+,R3
(SP) + ,R2
(SP)+ ,R1

;FROM
;10

;BRANCH IF NOT DONE
;;POP STACK INTO R3
;:POP STACK INTO R2
;;POP STACK INTO R1

;*WHEN AN EVENT IS TO BE TIMED THE RPO4 VECTORS TO "‘TIME 1"
s*PRIORITY OF
;*PRIORITY OF

PROCESS OR IS 4
TRAPS MUST BE 6

;*PRIORITY OF RPO4 INTERRUPTS IS 7
. %

041656
041662
041670
041676
041704

005077
017737
017737
017737
000002

140462
140462
140440
140434

041714
004664
004662

TIMET:

TIMEZ2:

CLR

MOV
MOV
MOV
RTI

aPCLCSR

:STOP THE CLOCK

aPCLCTR,@#WAITTM ;GET TIME ON CLOCK
aRHCC ,a#F INACC
sGET CURRENT CYLINDER
aRHLA,a#F INALA
;GET LOOK AHEAD
JRETURN TO WAIT P OR WAIT.T

;*THIS IS A WAIT LOOP WHEN AN EVENT IS TO BE TIMED
;*THE CALL IS

CZRJICO, RPO4L/5/6 FCTNL CTLR1
CZRJIC.P1

27-JuL~-78 13:0

MACY11 30A(1052)

8237
8238
8239

i
:*
i

WAT
A
8

32225

8243
8244
8245

04170¢
0417:0
041712
041714

000000
000000
000000
000000

8253

041722

005077

041716
041726
041734
041736
041740
041742
041744
041750
041754
041762
041766
041772
041774
041776

005037

041714

012777
010046
010146
010246
010346
016600
010037
162737
013037
012037
012001
012002
010066

000021

140420

WAITPC:
WAITRE:
WAITBT:
WAITTM:

O
0
0
O

WAIT.P: CLR

CLR

000010

MOV
MOV
MOV
MOV
MOV
MOV
MOV
SuB
MOV
MOV
MOV
MOV
MoV

8269 042002

013703 042154

MOV

8274

013703

8268

8270
8271
8272
8273

042006
042014
042016
042020

8275
8276
8277
8278
8279
8280
8281
8282
8283
8284
8285
8286
8287

042026
042034
042036
042040
042042
042050
042056
042060
042062
042064

042022

140410

000010

041706
000002
041710
041712

033777
001025
005303
001372

041712

033777
001015
005303
001372
017737
032777
001402
104001
000427
104002

041706

;ABSOLUTE REGISTER ADDRESS
;BIT WAITED FOR
sTIME ALLOWED GIVEN IN 10 MICROSEC
:TOLERANCE PLUS/MINUS IN 10 MICROSEC

177674

1$:

041712

177654

2%:

177642
000100

001126
140222

042154

3%:

8290
8291 042070 017737 177614 001126 4%:
042076

032777

000100

MAITTM

;WAT PC
;WAIT ON REGISTER ADDRESS
;WAIT ON BIT
SWAITED TIME

;CLEAR WAITED TIME

aPCLBUF ;CLEAR COUNT SET BUFFER

#GO'BIT4,aPCLCSR ;COUNT UP, 100 KHZ, START CLOCK
RO,=(SP)
;:PUSH RO ON STACK
R1,-(SP)
;;PUSH R1 ON STACK
R2.=(SP)
:;PUSH R2 ON STACK
R3,-(SP)
;;PUSH R3 ON STACK
10(SP) ,RO
;RO HAS ADDRESS OF NEXT LOCATION
RO, aMWAITPC
:NOW WAITPC HAS WAT PC + 2
#2,aMAITPC
sWAT PC IS IN WAITPC
@(RO)+ AMWAITRE ;WAIT ON REGISTER ADDRESS
(RO)+,a#WAITBT WAIT ON BIT
(RO) + R1
;R1 HAS TIME IN 10 MSEC
(RO)+,R2
;R2 HAS TOLERANCE IN 10 MSEC
RO,10(SP)
sRESTORE RETURN ON STACK

;*THIS SECTION WAITS FOR BIT, THROUGH TWO COUNT DOWNS

32238 042066 000425
8292

SEQ@ 0183

:#FOR THE SLOWEST PROCESSOR

8248
8249
8250
8251

8254
8255
8256
8257
8258
8259
8260
8261
8262
8263
8264
8265
ggg

PAGE 184

'R1-H1LL HAVE TIME ALLOWED IN 10 MICRO SECONDS
:#R2-WILL HAVE TOLERANCE PLUS/MINUS IN 10 MICRO SECONDS
:«MINIMUM TIME THAT CAN BE MEASURED IS ABOUT 12 MICRO SECONDS

529

8252

13:06

JAM CURRENT CYLINDER ROUTINE

8240

27-JuL-78

B 15

140174

a#TIMCNT ,R3

:R3 IS A TEMPORARY COUNTER

a#TIMCNT ,R3

: TEMPORARY COUNTER

;0UT

#1E,ARHCS

:DID ANY INTERRUPT OCCUR

BIT
BNE
DEC
BNE

SMWAITBT .aWAITRE ;1S REQUIRED BIT THERE
4%
;BRANCH IF YES
R3
;COUNT IF REQUIRED BIT NOT THERE
1%

BIT
BNE
DEC
BNE
MOov
BIT
BEQ
ERROR
BR
ERROR

A#WAITBT ,aWwAITRE ;IS REQUIRED BIT THERE
43
;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
1
;RPO4 DID NOT INTERRUPT
7$
Ho
2
:RP04 INTERRUPTED BUT WAITED
;ON BIT DID NOT OCCUR
;EVEN AFTER_TWO COUNT DOWNS
;FROM 177777 T0 0

MOV

;*NOW TIMEAWAITRE
AND TOLERANCE
WILL BE CHECKED
,a#$BDDAT ;REGISTER CONTENTS FOR TYPEOUT

MoV
BIT

CZRJICO, RPO4/S/6 FCTNL CTLR1
CZRJIC.PM

8293

27-JuL-78 13:05

'
MACY11 30A(1052)

27-JuL-78

c15
13:06 PAGE 185

JAM CURRENT CYI .NDER ROUTINE

BEQ
ERROR

5%
3

BR
sus
cMP

R2.R1
SFWAITTM, R

103002
104004

BHIS

000406

ADD
ADD
cMP

R2.R1
R1,a4WAITTM

001402
104003
000414
160201
023701

060202
060201
020137

5%:

041714

ERROR

6%:
041714

BHIS

103001
104004

7%:

012603
012602
012601
012600
000002

R2.R2

ERROR

MOV
MOV
MOV
MOV

(SP)+,R3
(SP)+,R2
(SP)+ ,R1
(SP)+ R0

;BRANCH IF YES
s INTERRUPT DID NOT OCCUR EVEN
;AFTER ONE BNE AND ONE MOV
;&Fnflf WAITED ON BIT SETTING

;R1 NOW HAS LOWER LIMIT OF TIME

;FOR GOOD RESULTS, WAITTM
'T‘(J)Si} BE GREATER OR EQUAL

;BRANCH IF GOOD
;BIT DID OCCUR BUT TIME
.'TN;EN IS BELOW LOWER LIMIT
;DOUBLE TOLERANCE

sR1 NOW HAS UPPER LIMIT OF TIME

;FOR GOOD RESULTS, WAITTM
;MUST BE LESS OR EQUAL TO R1
;BRANCH IF GOOD
;BIT DID OCCUR BUT TIME TAKEN
;1S ABOVE UPPER LIMIT

;POP STACK INTO R3
POP STACK INTO R2
POP STACK INTO R1

:;POP STACK INTO RO

:RETURN TO MAIN TEST

;*THIS IS A WAIT LOOP WHEN NO P-CLOCK IS AVAILABLE

;*NO TIMING IS DONE
s*CALL IS
WAT
;"

:®
o
*

8
TA

;ABSOLUTE REGISTER ADDRESS
;BIT WAITE) FOR
s TIME-NOT USED HERE
; TIME-NOT USED HERE

:*R3-1S A_TEMPORARY COUNTER

TIMCNT:

177777

010046
010346
016600
010037
162737
013037
012037
022020
010066

WAIT.T:

000004
041706

041710
041712

000004

041706

177777

MOV
MOV
MOV
MOV
SuB
MOV
MOV
CMP
MOV

RO,=(SP)
R3,-(SP)
4(SP) ,RO
RO.a#WAITPC
#2,aMWAI TPC
@(R0O) +,a#WAI TRE
(RO) +,a#WAITBT
(RO)+, (RO) +
RO,4(SP)

;COUNT FOR WAIT LOOP

;;PUSH RO ON STACK
::PUSH R3 ON STACK

:RO HAS ADDRESS OF NEXT LOCATION
:WAT PC +2 IS IN WAITPC
:WAT PC IS IN WAITPC

JWAIT ON REGISTER ADDRESS
;WAIT ON BIT
:DUMP NEXT TWO WORDS-TA, TO
:RESTORE RETURN ON STACK

;*THIS HAS THE TWO COUNT DOWNS FROM 177777

SEQ 0184

013703
033777
001025
005303
001372
013703
033777
001015
005303
001372
017737
032777
001402

177460

177440

1%:

2%:

001126

104001

3%:

104002

000412

000240
032777
001405
017737
104003

000400

012603
012600
000002

000100

137764

177366

001126

S#TIMCNT R3

:R3 HAS TEMPORARY COUNT

BNE
DEC
BNE

:BRANCH IF YES

a#TIMCNT ,R3

:SECOND COUNT DOWN FROM 177777

BIT

MOV

BIT
BNE
DEC
BNE

(%:

SMAITOT ,AWAITRE ;IS REQUIRED BIT THERE

!1!2

:COUNT IF REQUIRED BIT NOT THERE

SNWAITBT ,AWAITRE ;IS REQUIRED BIT THERE
43

:BRANCH IF YES

:COUNT IF REQUIRED BIT NOOT THERE

MOV

aWAITRE ,a#$8DDAT ;REGISTER CONTENTS FOR TYPEOUT

ERROR

33
1

BIT
BEQ

140006

000414

MOV

#1E,aRHCST

BR
ERROR

:DID ANY INTERRUPT OCCUR

;BRANCH IF YES
:RP0O4 DID NOT INTERRUPT

;BIT DID NOT OCCUR
;0uUT

;RPO4 INTERRUPTED BUT

:WAITED ON BIT DID NOT OCCUR
;EVEN AFTER TWO COUNT DOWNS
:FROM 177777 T0 0
;0UT

&5317 DID SET SO CHECK IF INTERRUPT OCCURED
#1E ,ARHCST
5%

;sALLOW TIME FOR INTERRUPT
;DID ANY INTERRUPT OCCUR
;BRANCH IF YES

aWwAITRE ,a#$BDDAT ;REGISTER CONTENTS FOR TYPEOUT
3
s INTERRUPT DID NOT OCCUR

5%:

(SP)+,R3
(SP)+ R0

;EVEN AFTER ONE BNE OF
:THE WAITED ON BIT OCCURING
;0uUT

::POP STACK INTO R3
;:POP STACK INTO RO
;RETURN TO MAIN TEST

SEQ 0185

TMS

CZRJICO, RPO4/5/6 FCTNL CTLR]
CZRJIC.PN
27-JUL~-78 13:05

D15

MACY11 30A(1052)
27=-JUL-78 13:06 PAGE 186
JAM CURRENT CYLINDER ROUTINE

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRIIC.P11
27-JuL-78 13:05

E 15

SEQ 0186

MACY11 30A(1052)
27=JUL-78 13:06 PAGE 187
JAM CURRENT CYLINDER ROUTINE

;*THIS CHANGES REGISTER SAVED VALUE

8384
8385

;=CALL IS

o
)
o*

JSR

R
N

sREGISTER TO BE CHANGED
sNUMBER OF BITS TO BE CHANGED

;NEW VALUE OF BIT MUST BE 0 OR1

NEU

;POSITION OF BIT TO BE CHANGED

.'NEU AND o WILL BE REPEATED N NUMBER OF
CHREG:

010146
010246
002272

1%:

004612
004612

2%:
3%:

MOV
MoV
MOV
MOV
SuB
TST
BEQ
BIS
BR

BIC
DEC
BNE
MOV
MOV
RTS

RR RRREERE
NS W
3o co~NO

RO,a#CHREG

TIMES

R1,-(SP)
;;PUSH R1 ON STACK
R2.,-(SP)
;:PUSH R2 ON STACK
(RO)+.,R1
;R1 HAS ADDRESS OF ADDRESS OF REGISTER
:R2 HAS NUMBER OF CHANGES
(RO)+ ,R2
:R1 HAS OFSET OF REQUIRED REGISTER
#RHWC ,R1
(RO)+
;1S A BIC OR A BIS TO BE DONE
BRANCH IF A BIC IS REQUIRED
2%
§20)*.SAVERE(R1) ;SET REQUIRED BIT
:BRANCH TO DECREMENT COUNT
(R1)
(RO) +,SAVERE ;CLEAR REQUIRED BIT
R2

1%
(SP)+,R2
(SP)+ ,R1

;DECREMENT NUMBER OF CHANGES
;BRANCH IF NOT COMPLETE
;;POP STACK INTO R2
:;POP STACK INTO R1
JRETURN TO MAIN PROGRAM

;*THIS FILLS A BLOCK WITH INCREMENTAL DATA

;*CALL IS

gSR

i
H

8421
010146
010246
010346
010446
012001
012002
012003
012004

010321
060403
005302
001374
012604
012603
012602
012601

FILL:

;FROM

;NUMBER OF WORDS
;STARTING VALUE OF DATA
; INCREMENT DATA BY

S
I

MOV
MOV

R1,-(SP)
R2,=(SP)

::PUSH R1 ON STACK
::PUSH R2 ON STACK

MOV
MOV

R4 ,-(SP)
(RO)+,R1

;;PUSH R4 ON STACK

MOV

MOV
MOV
MOV
1%:

RO, a#FILL

R3,-(SP)

::PUSH R3 ON STACK
;R1

HAS ADDRESS WHERE DATA IS TO GO

(RO)+,R2
(RO)+,R3
(RO)+,R4

;R2 HAS NUMBER OF WORDS TO BE FILLED
;STARTING VALUE OF DATA
;R4 HAS INCREMENT

R4 ,R3
R2

;GET NEXT VALUE OF DATA
;DECREMENT COUNT
;BRANCH IF ALL NOT DONE
::POP STACK INTO R4

;*NOW DATA WILL BE FILLED
MoV
R3,(R1)+
;FILL DATA

ADD
DEC

BNE
MOV
MOV
MOV
MOV

1%
+ R4
(SP)
(SP)+ ,R3
(SP)+ ,R2
(SP) +,R1

;;POP STACK INTO R3
. ;POP STACK INTO R2
;;POP STACK INTO R1

TMTM

8440
8441
8442
8443

042442

000200

MACY11 30A(1052)

27-JuL-78

13:06

JAM CURRENT CYLINDER ROUTINE
RTS

PAGE 188
JRETURN TO MAIN PROGRAM

SEQ 0187

(Tl

CZRJICO, RPO4/S5/6 FCTNL CTLR1
CZRJIC.PN
27=-JuUL-78 13:05

F 15

CZRJIC.PN

27=JuL-78 13:05

MACY11 30A(1052)

27-JuL-78

G 15

13:06

JAM CURRENT CYLINDER ROUTINE

PAGE 189

8444
8445

8446

8447
8448
8449
8450
8451
8452
8453
8454
8455
8456
gzgg
8459

8460
8461
8462
8463
8464
8465
8466
8467
8468
8469

;*THIS IS A SUBROUTINE TO COMPARE REGISTERS
;*GOOD DATA IS ALREADY SAVED IN 'SAVERE'
;*TEST DATA IS IN THE REGISTERS
;*CALL IS
i
JSR
RO,a#COMREG
i
SAVERE
;GOOD DATA
i
RHCS1
;ADDRESS OF ADDRESS TEST DATA
:®
N.
sRETURN FOR ERROR
A
RG
sRETURN FOR GOOD COMPARISON
;*ON RETURN WITH ERROR 'SGDDAT' HAS GOOD DATA, 'SBDDAT' HAS BAD DATA
;*"REGADR' HAS REGISTER ADDRESS
042444

COMREG:

042444
042446
042450
042452
042454
042456
042460
042462
042464
042466

010146
010246
010346
010446
010546
012001
012002
012003
012004
011000

042470
042474
042502

004737
113737
012705

043370
004637
177776

062705
022122
001420
014137
014237
016537
004714

000002

8480
8481

042506
042512
042514
042516
042522
042526
042534

8483
8484
8485
8486

042536
042540
042544
042550

022122
017746
042716
022726

8470
8471
8472
8473
8474
8475
8476
8477
8478
8479

8482

8487
8488
gzgg

042554
042556
042560

8491

042562

8498

042576

8492
8493
8494
8495
8496
8497

042562
042564
042566
042570
042572
042574

001402
005303
001352

012605
012604
012603
012602
012601
000200

000000

001124
001126

002272

002401
1%:

004600

136374
177177
000200
2%:
3%:

4%:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

R1,-(SP)
R2,=(SP)
R3,-(SP)
R4 ,-(SP)
R5,=(SP)
(RO)+,R1
(RO) +,R2
(RO)+,R3
(RO)+,R4
(RO) ,RO

;;PUSH R1 ON STACK
;;PUSH R2 ON STACK
:;PUSH R3 ON STACK
;;PUSH R4 ON STACK
;;PUSH R5 ON STACK
;R1 HAS ADDRESS OF GOOD DATA
;R2 HAS ADDRESS OF ADDRESS OF TEST DATA
;R3 HAS NUMBER OF WORDS
;R4 HAS RETURN FOR ERROR
;RO HAS RETURN ON NO ERROR

MoV
JSR

RHWC (R5) ,a#REGADR
;SAVE ADDRESS OF FAILING REGISTER
PC,aR4
JRETURN TO MAIN PROGRAM

CMP
MOV
BIC
(MP

(R1)+,(R2)+
aSWR,=(SP)
#0600, (SP)
#SW07, (SP) +

MOV
MOV
MOV
MOV
MOV
RTS

(SP)+ ,R5
(SP) +,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
RO

;*NOW SAVE REGISTERS
JSR
PC ,a#PUTREG
:SAVE REGISTERS
MovB
a#SAVERE
+25 ,a#AS+1 ;MAKE UPPER BYTE OF RHAS SAME
MOV
#-2 R5
;PRESET RS TO =2
;*NOW COMPARES WILL MADE
ADD
#2 ,R5
s INCREMENT TO INDEX
CMP
(R1)+,(R2)+
;COMPARE REGISTER CONTENTS
BEQ
2%
;BRANCH IF GOOD
MOV
-(R1) ,a#$GDDAT ;SAVE GOOD DATA
MOV
=(R2) ,a#$BDDAT
;SAVE BAD DATA

BEQ
DEC
BNE

.WORD

3%
R3
1%

:TO PRINT ERROR

;UNDO -(R1) AND -(R2) FOR ERRORS
;GET SWITCH SETTING
sKEEP ONLY SWITCH 7 AND 8
;1S 7 SET AND 8 DOWN
;BRANCH OUT IF YES
;ARE ALL COMPARES DONE
;BRANCH IF NOT COMPLETE

;;POP STACK INTO RS
;:POP STACK INTO R4
;;POP STACK INTO R3
;;POP STACK INTO R2
;;POP STACK INTO R1
;RETURN TO MAIN PROGRAM
; TEMP STORAGE

SEQ 0188

CZRJICO, RPO4/S5/6 FCTNL CTLR1

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.P11
27-JUL=-78 13:05

MACY11

H 15
30A(1052)
27-JuL-78
13:06 PAGE 190
JAM CURRENT CYLINDER ROUTINE

SEQ 0189

8499

8301

8502
8503

;*HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS.
:*ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE

8506

;*WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT

8508
8509

“«THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: i1, IT MUST BE WITHIN THE TEST UNDER CONSIDERATION

gggg

:*PROGRAM GOES BACK = USUALLY BACK TO THE BEGINNING OF

8507

i%2.
LOOP ON ERROR SWITCH MUST BE SET
:«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.

gg}?

- %

8518

:«AFTER LOOPING FOR SOME TIME IF

gg;g

;*NORMAL OPERATION WILL CONTINUE.

8521
8522
8523

042600
042602
042602

005037

8526

042620

000421

8527

8528
8529

8530
8531

042606
042614
042664

042670
042672

042676
042730

8532
8533
8534

042734
042736
042742

8536

043030

8535

8537
8538

8539

004604

104402
104401

000414
013746

8545

043246

104401

043036

104401

043124

104412
062716

000002

104401

043210

104401

043254

012637

043206

000417

043252

000440

043362

013746

8547
8548

043354
043356

ggg?

043366

001110
001223
042750

000422

043176

042700

104402
104401
104401

043122

043202

8549

013746

000430

8543

8546

177777
042622

043034

043116

177776

012737
104401

000430

043170
043172

8544

000000

042746

8540
8541

8542

TEST.

:«THE PROGRAM GOES BACK TO CAN BE CHANGED.

8510
8511
8512
8513
8514
8515

8524
8525

THE

104412
012637
000002

001106

001110

001106

047274

TESTAD: 0
OPERSEL
:
CLR

;FIRST ADDRESS OF

;MAKE PROCESSOR STATUS ZERO

64%

::GET OVER THE ASCIZ

#-1,24PRITEM
,658%

MOV

SMTSTNM,-(SP)

TYPOC
TYPE

BR
MOV

TYPOC
TYPE
TYPE

,67%

;:TYPE ASCIZ STRING

718

::TYPE ASCIZ STRING

708

72%

MOV

TYPE

,73%

#2,(SP)

(SP) +,a#$LPADR

::TYPE ASCIZ STRING

::GET OVER THE ASCIZ
:GET LPADR

,77%

S:TYPE ASCIZ STRING

76%

MOV

H#SLPADR,
- (SP)

RT]

::GET OVER THE ASCIZ

::TYPE ASCIZ STRING

743

RDOCT
MOV

2:GET OVER THE ASCIZ

75%

TYPE

*NUMBER
::TYPE ASCIZ STRING

L$CRLF
"69%

RDOCT
ADD

:GET READY TO TYPE TEST
S GET OVER THE ASCIZ
:GET READY TO TYPE LOOP BACK PC

68%

TYPE

:CLEAR PREVIOUS ITEM NUMBER
::TYPE ASCIZ STRING

66$
a#SLPERR,-(SP)

TYPE

TEST

MOV
TYPE
BR

THE LOOP SWITCH IS PUT DOWN THEN

(SP)+,a#SLPERR

2 GET OVER THE ASCIZ

2 GET OVER THE ASCIZ
:GET LPERR

CZRJICO, RPO4/S5/6 FCTNL CTLR1
27-JuL~-78 13:05
ICZRJIC.P11

27-JuL=-78

MACY11 30A(1052)

J AM CURRENT

I 15
13:06 PAGE 191

CYLINDER ROUTINE

8553
;*THIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS

;*IN MEMORY LOCATIONS TAGED FROM "WC'' TO "EC2"

;*THIS IS DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS

;*AND NOT THE REGISTERS THEMSELVES.
THIS WIiLL MAKE
;*ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT

010046
010146
010246
012700
012701
012702
013021
005302
001375
012602
012601
012600
000207

PUTREG:

002272
002354
000022

RO,=(SP)
R1,-(SP)
R2,=(SP)
#RHWC ,RO
#WC R

MOV
MOV
MOV
MOV
MOV

MOV
MOV
DEC
BNE
MOV
MOV
M?g

0%:

*
*
* .BYTE
;*.BYTE
*
*

*
*

136656
136644
136626
136624
004716

043466
043472

013077
000200

136606

136674
136622

o LN

043440
043444
043450
043454
043456
043462

012077
012077
012077
012077
013746
052016
012677
012077

043430

*
*
UN

JSR
C
S
T
-W
B

;STARTING ADDRESS OF REG
;STARTING ADDRESS OF WERE SAVED

*THIS IS A DATA
CALL

“;:PUSH R1 ON STACK
;:PUSH R2 ON STACK

#RHCC=-RHWC+2/2,R2 ;NUMBER OF REG. INTO RZ2
a(RO)+,(R1)+
:SAVE HARDWARE REG.
R2
108
(SP) +,R2
;;POP STACK INTO R2
(SP)+,R1
;;POP STACK INTO R1
;SP)*,RO
;;POP STACK INTO RO

*THE

. 23PUSH RO ON STACK

(OMMAND SETUP SUBROUTINE

RO, a#RUN

s CYLINDER
;SECTOR

: TRACK
;WORD COUNT

BAI
FMT22'ECI !HCI

;BUS ADDRESS
;BUS ADDRESS INHIBIT
;FMT22=1 =16 BIT WORDS

COM
MOV
MOV

sHCI = HEADER COMPARE INHIBIT
; COMMAND ADDRESS
s CYLINDER
;DESIRED SECTOR/TRACK

BIS

(RO) +,3RHCA
(RO) +,@RHDST
(RO) +,aRHWC
(RO) +,3RHBA
A#UNIT,-(SP)
(RO +, (SP)

MOV

(RO) +,aRHOF

MoV
MOV
MOV

MOV
MOV
RTS

(SP)+,aRH(S2

@(R0)+,aRHCST
RO

;ECI = ECC CORRECTION INHIBIT

;WORD COUNT
;BUS ADDRESS
sGET UNIT NO

;SET BUS ADDRESS INHIBIT

JUNIT NO AND BAI TO RHCS?2

sFORMAT, ECC INHIBIT, HEADER
:COMPARE, IF THERE
;COMMAND IN RHCS1
;RETURN TO MAIN PROGRAM

SEQ 0190

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PNM
27=JuL-78 13:05

J 15
MACY11 30A(1052)
27=JUL-78 13:06 PAGE 192
JAM CURRENT CYLINDER ROUTINE

SEQ 019

;*THIS IS A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY
;*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
CALL

;*R4& HAS ONE MORE

010146
010246
010346
010446
010546
012001
012002
012003
012005
011000
010304
005204
010437

022122
001417

014137
014237
160337
043550004715
043552 022122
017746
042716
022726
001402
005303
001353
012605
012604
012603
012602
012601
000200

IS:
JSR
G

THAN NUMBER OF WORDS TO BE

RO, a#COMPAR

T
N
RE

COMPAR:

R1,-(SP)
R2,=(SP)
R3,-(SP)
R4 ,-(SP)
RS,-(SP)
(RO) +,R1

(RO)+,R2
(RO)+,R3
(RO) +,RS
(RO) ,RO
R3.R4
004602

1%:

MOV

001124
001126
004602

R4
R4 ,a#ERWORD
(R1)+,(R2)+

3%:

DEC

;:PUSH R1 ON STACK

;;PUSH R2 ON STACK
;:PUSH R3 ON STACK
;:PUSH R4 ON STACK

;;PUSH RS ON STACK
;ADDRESS OF GOOD DATA BUFFER
;ADDRESS OF TEST DATA BUFFER
;NO OF WORDS TO BE COMPARED

JRETURN ON ERROR

JRETURN ON NO ERROR
JNO OF WORDS TO BE COMPARED

=(R1) ,a#$GDDAT

.GOOD DATA

#C600, (SP)

2%:

;ADDRESS OF GOOD DATA
;ADDRESS OF TEST DATA
:NUMBER OF WORDS TO BE COMPARED
sRETURN ON ERROR
JRETURN ON NO ERROR

:FOR ERROR WORD NO
;COMPARE GOOD WITH TEST DATA
;BRANCH IF GOOD

-(R2) ,a#$BDDAT
R3,a#ERWORD
PC,aR5
(R1)+,(R2)+
aSWR,-(SP)

135360
177177
000200

COMPARED

#SW07, (SP) +
3%
R3
1%

(SP)+,RS
+ ,R4
(SP)
(SP)+,R3
(SP)+,R2
(SP) +,R1
RO

;BAD DATA
;ERROR WORD NO.

JRETURN TO PRINT ERROR

;UNDO =(R1) AND =(R2) FOR ERRORS
JGET SWITCH SETTING

;KEEP ONLY SWITCH 7 AND 8
;IS 7 SET AND 8 RESET
;BRANCH OUT IF YES
s COUNT
;BRANCH IF ALL NOT DEVICE
::POP STACK INTO RS
;;POP STACK

INTO R4

;;POP STACK INTO R3

;;POP STACK INTO R2

;:POP STACK INTO R1
JRETURN TO MAIN PROGRAM

CZRJICO, RPO4/S5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05

MACY11 30A(1052)

27-JuL-78

K 15

13:06

JAM CURRENT CYLINDER ROUTINE

PAGE 193

SEQ 0192

THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE
ADDRESS FROM 176700 TO ANY TYPED VALUE

043620

TYPE

BR
MOV

002300

TYPOC
TYPE

043706

004737

104412
012700
012701
012737
021637

001407
005776
163716

061620
005301
001375
104401
000417

013746
104402
104401

000437
104412

012637
104401

000416
013746
104402
104401
000416
013746
104402
104401
000417
104401
000402

044560
044564
044572
044576
044576

045666
002270
000026
044576
002300
000000
002300

044036

1%:

044272

002266
044342
044406

044476

;GET STARTING ADDRESS OF REGISTERS
sNUMBER OF REGISTERS
;SET TRAP CATCHER TO CHECK THIS ADDRESS

#ADTIMO ,a#4
?iP.afiRHCS1

TYPE

.69%
68%
@#RPVEC,-(SP)

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ
;GET READY TO TYPE OLD VECTOR ADDRESS

/1%
70%

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

(SP)+ ,@#RPVEC
.73%
72%
@#RHCS1,-(SP)

:SETUP VECTOR ADDRESS
;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

.75%
74%

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

ADD
DEC
BNE

BR
TYPE
BR

MOV
TYPOC
TYPE

044566

044604

#RHDB RO

a#RPVEC,~(SP)

;s TYPE ASCIZ STRING

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

TYPE

000200

005012

;sTYPE ASCIZ STRING
::GET OVER THE ASCIZ
JINITIALIZE THE TTY KEYBOARD

a0(SP)
a#RHCS1,aSP
asP, (RO) +
R1
2%

TYPOC
TYPE
BR
RDOCT
MOV
TYPE
BR
MOV
TYPOC
TYPE
BR
MOV
TYPOC
TYPE
BR
TYPE
BR

002300

A7%
66%
PC,a#$TKINT

ADTIMO:

;:GET OVER THE ASCIZ
:GET READY TO TYPE OLD BASE

TST
SuB

BR
MOV

002266
044222

104401

2%:

::;TYPE ASCIZ STRING

;NEW ADDRESS?
;NO, OLD ONE JUST RETYPED.
sOK, SO ACCESS THIS NEW ADDRESS
;GET THE ADDRESS OFFSET
;AND PLUG IT IN.
;ONE LESS REGISTER TO GO
;BUT WE'RE NOT DONE YET.

BEQ

044110

044420

000426
012746
104402
104401
000402
000137

000004

002266

104401

000424

BR
JSR
RDOCT
MOV
MOV
MOV
CMP

,65%
649
A#RHCST,=(SP)

BR
JMP

TYPE

::TYPE ASCIZ STRING

#RA ,=(SP)

::GET OVER THE ASCIZ

,85%
84%

;:TYPE ASCIZ STRING

,65%

;:TYPE ASCIZ STRING

a#BEGIN

::GET OVER THE ASCIZ
;RESTART,

TO RUN ALL DRIVES

CZRJI1CO, RPO4/S5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05
8719
8720
8721
8722
8723

044602
044660
044662

000426
022626
000137

043612

L 15
MACY11 30A(1052)
27-JuL-78 13:06 PAGE 194
JAM CURRENT CYLINDER ROUTINE
BR
CMP
JMP

SEQ 0193

649

;:GET OVER THE ASCIZ

a#BASECH

JAND DO THE WHOLE

(SP)+,
. SP)+

JRESTORE

THE

STA(CK

THING AGAIN!

8724
8725
8726

044666
044666
044672
044716

044720
044726

104401
000411
104402

012777

000000

RPVECT:

044674

044666

135340

TYPE
BR

,65%
649

MOV

#RPVECT ,aRPVE(

TYPOC

HALT

SEQ 0194

;s TYPE ASCIZ STRING

;:GET OVER THE ASCIZ
;TYPE

FROM PC

;RESTORE TRAP RP0O4 VECTOR
;CHANGE

TO CONT INUE

(alel

M15
MACY11 30A(1052)
27-JuL-78 13:06 PAGE 195
JAM CURRENT CYLINDER ROUTINE

~NN

CZRJICO, RPO4/S/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05

8736
8737
8738

8739

8740
8741
8742
8743
8744
8745

8746

8747
8748
8749
8750
8751

044730

044732
064740
044742
044744
044750
044756
044762
044766
044770
044772

044776

8768

8769
8770
8771
8772
8773
8774
8775
8776
8777
8778
8779

040000

013746
012737
005737
012637
000463
022626
012637
000423
032777

000004
044770

001N
000416

001404
127737
001462
105737
001421
123737

8752
8753

8754
8755
8756
8757
8758
8759
8760
8761
8762
8763
8764
8765
8766
8767

104407

032777

101015

045112
045122
045130

045142
045146
045152
045156
045164
045172
045176
045200

032777
001404
013737
000443
105037
005037
000415
032777
0011
005737
001406
005237
023737
002021
012737
013737
105237
011637
011637
005037
112737

013777
013716

000002
000004

177060
000004

134200

1%:

134132

134124

001102

001115

001103

001000

134074

001110

001106

001103
001212

PAGE

#MBIT14,a5WR
$OVER
63

QFERRVEC ,=(SP)
#5% ,S¥ERRVE
C

MOV
Fk

;2”) +,a#ERRVE(

(MP

BEQ
(MPR
BEQ
1518

177060

(SP)+, #ERRVE(

$SVLAD

(SP)+, (SP)+

'2]708. aSWR
ASWR,$TSTNM
$OVER
$ERFLG
3%

ggRHAX.SERfLG
#31T09,aSWR

‘s

7%:

$LPERR, $LPADR
$OVER
$SERFLG
$TIMES
%
#81T11,aSWR

4%:
134042

N 15

13:06

MOV
MOV
3
MOV
BR

BIT

2%:

001103

(KSWR

BIT

BNE
$XTSTR: BK

5%:

000400

27=JuL-78

SCOPE HANDLER ROUT INE

000004

004000

30A(1052)

i%:

001100
001104
001212

000001
045200
001102
001106
001110

001104
1%:

$SVLAD:

001214

000001
001102
001106

$OVER:
:
$MXCNT

BGE
MOV
MOV
INCB
MOV
MOV
CLR
MOVB
MOV
MOV
RTI
4

$ICNT
$TIMES ,$SICNT
$OVER

#1,81CNT

SMXCNT ,$TIMES
$TSTNM
(SP) ,$LPADR
(SP) ,$LPERR

SEQ 0195

196

;.TEST FOR (CHANGE IN SOF T=SWR
;:LO00P ON PRESENT TEST?

JJYES IF SW14=1

JoIF RUNNING ON THE "XOR'' TESTER (MANGE

;.SAVE THE CONTENTS OF THE ERROR VECTOR
;.SET FOR TIMEOUT
;.TIME OUT ON XOR?
;;RESTORE THE ERROR VECTOR
;:G0 TO THE NEXT TEST
;;CLEAR THE STACK AFTER A TIME ouTt
;.RESTORE

THE ERROR VECTOR

;:LO0P ON THE PRESENT TEST
;:;LOOP ON SPEC. TEST?
;:BR IF NO
SWR<7:0>
;.ON THE RIGHT TEST?
.:BR

YES

;sHAS AN ERROR OCCURRED?
;:BR IF NO
;:MAX.

ERRORS FOR

THIS

TEST OCCURRED?

s.BR IF NO
;:LO0P ON ERROR?
.:BR [F NO
;.SET LOOP ADDRESS TO LAST SCOPE

;. JERO THE ERROR FLAG
;:;CLEAR THE NUMBER OF JTERATIONS TO MAKE
;ESCAPE TO THE NEXT TEST
;o INHIBIT ITERATIONS?
;.BR IF YES
..IF
:

FIRST PASS OF PROGRAM
INHIBIT ITERATIONS

..INCREHENT ITERATION COUNT
;sCHECK THE NUMBER OF ITERATIONS MADE
;2BR IF MORE ITERATION REQUIRED
JoREINITIALIZE THE ITERATION COUNTER
;+SET NUMBER OF ITERATIONS TO DO
;. COUNT TEST NUMBERS
;2SAVE SCOPE LOOP ADDRESS

;;SAVE ERROR LOOP ADDRESS

;sCLEAR THE ESCAPE FROM ERROR ADDRESS
JJONLY ALLOW ONE(1) ERROR ON NEXT TEST
$7STNM,aD
I SPLAY ;:DISPLAY TEST NUMBER
$LPADR, (SP)
. sFUDGE RETURN ADDRESS
$ESCAPE

#1, SERMAX

;.FIXES PS

J:MAX. NUMBER OF

ITERATIONS

"= OO"MONREZR
TM RC—=IOMOD@

8735

MACYT1

—~IOMMONDZ
BT R C =TI O MNP 2R X =T OO"MONEZ R

(ZRJICO, RPO&L/S/76 TCTNL C(TLR)
CZRIIC.PN
27=JuL-78 13:05

CZRJICO, RPO4L/5/6 FCTNL CTLR1

CZRJIC.P1T

8780
8781
8782
8783
8784
8785
8786
8787
8788

8789
8790

8791
8792
8793
8794
8795
8796
8797
8798
8799
8800
8801
8802
8803

8804
8805
8806
8807

8808
8809
8810

8811

8812
8813

27-JuL~-78 13:0

045202
045204
045206
045210
045212
045214
045220
045226
045226

045230
045236

045240
045244
045250
045252
045256
045260
045262
045264
045266
045270
045272
045274
045276

045300
045302
045304
045312

045316
045322
045324

010046
010146
010246
010346
010546
012746 020200
016605 000020
100004
005405
112766
005000

106316
103003
116663
052702

052702
110223
005720

000001

18:
28:

3$:
48:

5%:

177777

6$:
7%:

045326 020027 000010
045332
045334

8818
8819

045346
045354

8828
8829
8830

045404
045406
045410

8831

000001
000060
000040

045356
045360
045362
045364
045366
045370
045374
045402
045412

177776

012605
012603
012602
012601
012600
104401 045416
016666 000002 000004
012616
000002
023420
001750
000144

PAGE 197

RO, =(SP)
Ri.=(SP)
R2.=(SP)
R3.=(SP)
RS .=(SP)
#20200,~(5P)
20(sm RS
RS

::PUSH RO ON STACK
“:PUSH R1 ON STACK
2:PUSH R2 N STACK
*:PUSH R3 ON STACK
::PUSH RS ON STACK
::SET BLANK SWITCH AND SIGN
SGET THE INPUT NUMBER
S:BR IF INPUT IS POS.
“MAKE THE BINARY NUMBER POS.

MOV
MOVB
CLR
MOV
SUB
BLT
INC
B8R
ADD
ST
BNE
ISTB
BMI

#$DBLK ,R3
#' ,(R$)+
R2
SDTBL(RO)
,R1
R1,R5
4$
R2
3s
R1.RS
R2
5$
(SP)
78

S:SETUP THE OUTPUT POINTER
“:SET THE FIRST CHARACTER TO A BLANK
::CLEAR THE BCD NUMBER
::GET THE CONSTANT
:;FORM THIS BCD DIGIT
*BR IF DONE

MOVB
CLR

ASLB
BCC
MOVB
BIS

BIS
MOVB
ST
BLT
8GT

8s:
177777

13:06

MOV
MOV
MOV
MOV
MOV
MOV
MOV
8PL
NEG

cMP

002746
003002

116663
105013

27=JUL-78

B 16

CONVERT SINARY TO DECIMAL AND TYPE ROUTINE

012703 045416
112723 000040
005002
016001 045406
160105
002402
005202
000774
060105
005702
001002
105716
100407

8814 045336 010502
8815 045340 000764
8816 045342 105726
8817 045344 100003
8820
8821
8822
8823
8824
8825
8826
8827

000055

MACYTT 30“1052)

—

9% :

$DTBL:

MOV
BR
TSTB
BPL

MOVB
CLRB

MOV
MOV
MOV
MOV
MOV
TYPE
MOV
MOV

RTI
10000.
1000.
100

#'=,1(SP)
RO

(SP)
6$
1(SP).-1(R3)
#'0,R2

#' .R2
R2,(R3)+
(RO) +

RO, #10

S:MAKE THE ASCII NUMBER NEG.
::ZERO THE CONSTANTS INDEX

> INCREASE THE BCD DIGIT BY 1

::ADD BACK THE CONSTANT
“:CHECK IF BCD DIGIT=0
“:FALL THROUGH IF 0
2:STILL DOING LEADING 0°S?
..aR IF YES
)
MSD?
“:BR IF NO
:-YES==SET THE SIGN
“:MAKE THE BCD DIGIT ASCII

“IMAKE IT A SPACE IF NOT ALREADY A DIGIT*
*:PUT THIS CHARACTER IN THE OUTPUT BUFFER
2:JUST INCREMENTING

::CHECK THE TABLE INDEX

2s
8%

*GO DO THE NEXT DIGIT
2360 TO EXIT

=1(SP).-2(R3)
(R3)

::YES==SET THE SIGN FOR TYPING
“:SET THE TERMINATOR

RS.R2
X3
(SP)+
9%

(SP)+,RS
(SP)+.R3
(SP)+.R2
(SP)+.R1
(SP)+.RO
,$DBLK
2(SP) ,4(SP)
(SP)+, (SP)

*:GET THE LSD
1:GO CHANGE TO ASCII
“:WAS THE LSD THE FIRST NON-ZERQ?
*:BR IF NO
*:POP STACK INTO RS
1:POP STACK INTO R3
::POP STACK INTO R2
*POP STACK INTO R1
“:POP STACK INTO RO
“INOW TYPE THE NUMBER
*:ADJUST THE STACK
::RETURN TO USER

SEQ 0196

—

RPO4/5/6 FCTNL CTLR]
CZRJIC.P11
27-JuL-78 13:05

CZRJICO,

8833

045426

105737
100002

000000
000407
010046
017600

MACY11 30A(1052)

27-JUL-78

TYPE ROUTINE

C 16
13:06 PAGE 198

SEQ 0197

1%:

MOV

RO,=(SP)

2%:

MOVB

000002

60%:
3%:

ADD

(RO)+,=-(SP)
43
(SP)+
(SP)+ RO
#2,(SP)

000011

4%:

CMPB

#HT, (SP)

;:1S THERE A TERMINAL?
;:BR IF YES
JJHALT HERE IF NO TERMINAL
s ;LEAVE
s :SAVE RO
;:GET ADDRESS OF ASCIZ STRING
;:PUSH CHARACTER TO BE TYPED ONTO STACK
:2BR IF IT ISN'T THE TERMINATOR
;:1F TERMINATOR POP IT OFF THE STACK
;;RESTORE RO
;;ADJUST RETURN PC
: ;RETURN
;:BRANCH IF <HT>

, (SP)
#CRLF

;;BRANCH IF NOT <CRLF>

001157

$TPFLG

$TYPE:

000002

000200

045576
001156

5%:
6%:

JSR
(MPB

001154
000001

7$:

DECB

045576
045642

045642

8%:
9%:

MOVB
JSR

133340
000002

000002

$CHARCNT
2%

PC,STYPEC

S;ILLC.(SP)*
2
SNULL ,~(SP)
1(SP)
63

PC,STYPEC
$CHARCNT
7%
#' ,(SP)

PC,STYPEC
#7 ,$CHARCNT
9%
(SP)+
as$TPS
$STYPEC

2(SP) ,a$TPB
1§R.2(SP)

045642
000012

$TYPEC:

133346

000002
000015

@2(SP) ,RO

5%
(SP)+

045642

000040
045576
000007

1%:

CMPB

INCB
$CHARCNT
: . WORD
$TYPEX: RTS

$CHARCNT
$TYPEX
#LF ,2(SP)
STYPEX
(PC)+

;:POP

<CR><LF> EQUIV

::TYPE A CR AND LF

;;CLEAR CHARACTER COUNT
;:GET NEXT CHARACTER
::G0 TYPE THIS CHARACTER
;IS IT TIME FOR FILLER CHARS.?
;:IF 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

::G0 TYPE A NULL
..DgogOT COUNT AS A COUNT
: REPLACE TAB WITH SPACE

::TYPE A SPACE
;;BRANCH IF NOT AT
::TAB STOP
::POP SPACE OFF STACK
;sGET NEXT CHARACTER
;:WAIT UNTIL PRINTER IS READY

;:LOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
;JBRANCH IF NO
::EE?;-CLEAR CHARACTER COUNT
::1S CHARACTER A LINE FEED?
;:BRANCH IF YES
;sCOUNT THE CHARACTER
;sCHARACTER COUNT STORAGE

CZRJICO, RPO4/5/6 FCTNL CTLRI

CZRJIC.PN

27-JuL~-78 13:05

045646
045650
045652
045666
045672
045700
045706
045714

000000
000000
000000
005037
012737
013737

045646
045654
045650
045736
000200
133220
000100

:
MACY11 30A(1052)

27-JuL=78

TTY INPUT ROUTINE

045650
045652
000060
000062

$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKINT: CLR
MOV

[

$TKSRY: MOvVB

#°C177,(SP)

(SP) 43

LSCNTLC

PC.STKINT
(SP)+

042602
000007

1%:

000176

001140

000011

045646

CMP

OPERSEL
(SP) A7
2%

#SWREG, SWR

#9. STKCNT

LSBELL

001216

+
(SP)

000023

3%:

CMP

133102

133074

31%:

TSTB

133070
177600
000021

5%
(SP) ,#23

328

asTKS
(SP)+
asTKS
31s
as$TKB,-(SP)

#°C177.(SP)
(SP)+ 421
318

#100,38TKS

133046

045646
000140

32%:

INC

4%:

MOvB

5%:

RTI

000175
000040
177520
045650
045650

045665

045654

045650

000176

001140

132754

asTkB,~(SP)
1%

046725
045666

000100

::NUMBER OF ITEMS IN QUEUE
;2 INPUT POINTER
;;0UTPUT POINTER
STKCNT
::CLEAR COUNT OF ITEMS IN QUEUE
#STKQSRT ,STKQIN ;2MOVE THE STARTING ADDRESS OF THE
$TKQIN, $TKQOUT
;;QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRV ,a#TKVEC ;INITIALIZE THE KEYBOARD VECTOR
0
0
0

#200,#TKVEC+2
as$TkB
0200.33"5

133210

133204
177600
000003

D 16
13:06 PAGE 199

$CKSWR:

CMP

;:"BR"" LEVEL 4

::CLEAR DONE FLAG
;ENABLE TTY KEYBOARD INTERRUPT
;2RETURN TO CALLER
;:PICKUP THE CHARACTER
::STRIP THE JUNK
;21S IT A CONTROL C?
:2BRANCH IF NO
22TYPE A CONTROL-C (*C)
;2INIT THE KEYBOARD
;;CLEAN UP STACK
;;CONTROL C RESTART
::1S IT A CONTROL G?
;2BRANCH IF NO
::1S SOFT-SWR SELECTED?
;:G0 TO SWR CHANGE
;:1S THE QUEUE FULL?
:;BRANCH IF NO
:2RING THE TTY BELL
.E’L‘E?N CHARACTER OFF OF STACK
:2IS IT A CONTROL=-S?
::BRANCH IF NO
::DISABLE TTY KEYBOARD INTERRUPTS
::CLEAN CHAR OFF STACK
;:WAIT FOR A CHAR

::LO0P UNTIL ITS THERE
;;GET THE CHARACTER

;:MAKE IT 7-BIT ASCII

::1S IT A CONTROL-Q?
;:BRANCH IF NO
:;REENABLE TTY KEYBOARD INTERRUPTS
; :RETURN

;2COUNT THIS CHARACTER
::1S IT UPPER CASE?
43
;;BRANCH IF YES
(SP) ,#175
;:1S IT A SPECIAL CHAR?
48
::BRANCH IF YES
#40, (SP)
::MAKE IT UPPER CASE
(SP)+,a$TKQIN
J2AND PUT IT IN QUEUE
$TKQIN
::UPDATE THE POINTER
g;KQIN.”TKQEND ::G0 OFF THE END?
::BRANCH IF NO
#STKQSRT ,$TKQIN ::RESET THE POINTER
STKCNT

(SP) ,#140

#SWREG, SWR

15%
a$TkKS
15%

: :RETURN

::1S THE SOFT-SWR SELECTED

J2EXIT IF NOT

::1S A CHAR WAITING?
::IF NOT, EXIT

SEQ 0198

MACY11 30A(1052)

CZRJICO, RPO4/S5/6 FCTNL CTLR1
8937
38

27=-JuL-78 13:05
117746

132750
177600
000007

123727

001134

042716
021627
001300

001674

PAGE 200

asTKB, = (SP)

2:Y8S

2%
SAUTOB,#1
2%

::IF NOT, PUT IT IN THE TTY QUEUE
:;ARE WE RUNNING IN AUTO-MODE?
;;BRANCH IF YES
::CLEAR CONTROL=G OFF STACK

TTY INPUT ROUTINE

045666
132712
00000
046737
046744
000176
-

CZRJIC.PN

mMovB
BIC
CMP

000001

6%:

asTKS

001135

#1,8INTAG

.SCNTLG

$GTSWR:

. SMSWR
SWRFG,=(SP)

19%:

Z(SP)

7%:

132652
132646
177600
000003

,SMNEW

-(SP)

as$TKS
7
as$TKB, - (SP)

#°C177,(SP)
(SP) 43
98

LSCNTLC

046725
000006
001135

000001

000100

132604

8%:
9%:

046732
000006

20%:

000015

108:

000004

000002
000006

#°C177,(SP)
)
(SP47
(SP)+
PC,STKINT

046755

042602
000025

E 16

13:06

27-JuL-78

132532

001223
001135

000001

000100

132510

#6,SP
$INTAG,#1
8s
#100,3$TKS
OPERSEL
(SP) ,425
108

LSCNTLU

19%

(SP) ,#15

16%
4(SP)
11$%

2(SP) ,aSWwR

#6,SP

LSCRLF

$INTAG,#1
15%

#100,38TKS

045576
000060

PC,$TYPEC

000067

(SP) ,#67
18%
#60, (SP) +
2(SP)
17%

000060
000002

(SP) ,#60

18%

(SP)
(SP)
(SP)

;:2MAKE IT 7-BIT ASCII
;1S IT A CONTROL=-G?

:2FLUSH THE TTY INPUT QUEUE
;:DISABLE TTY KEYBOARD INTERRUPTS
;2SET INTERRUPT MODE INDICATOR
:2ECHO THE CONTROL=-G (*G)
;:TYPE CURRENT CONTENTS

;:SAVE SWREG FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)
: ;PROMPT FOR NEW SWR
;:CLEAR COUNTER

;:THE NEW SWR
;:CHAR THERE?
;:1F NOT TRY AGAIN
;;PICK UP CHAR
::MAKE IT 7-BIT ASCII
:21S IT A CONTROL-C?
;;BRANCH IF NOT
::YES, ECHO CONTROL=-C (*C)
;;CLEAN UP STALK
:;REENABLE TTY KEYBOARD INTERRUPTS?
::BRANCH IF NO
;:ALLOW TTY KEYBOARD INTERRUPTS
2 sCONTROL=C RESTART
::1S IT A CONTROL=-U?
; :BRANCH IF NOT
::YES, ECHO CONTROL-U (*UW)

::IGNORE PREVIOUS INPUT
::LET'S TRY IT AGAIN
;1S IT A <CR>?
:;BRANCH IF NO
::YES, IS IT THE FIRST (CHAR?
;sBRANCH IF YES
;2SAVE NEW SWR
::CLEAR UP STACK
::ECHO <CR> AND <LF>
::RE-ENABLE TTY KBD INTERRUPTS?
;:BRANCH IF NOT
;;RE-ENABLE TTY KBD INTERRUPTS
: ;RETURN
;;ECHO CHAR
;:CHAR < 0?

; ;BRANCH [F YES
::CHAR > 7?7
;;BRANCH IF YES
::STRIP=-OFF ASCII
::1S THIS THE FIRST CHAR
:;BRANCH IF YES
::NO, SHIFT PRESENT
CHAR OVER TO MAKE
33
ROOM FOR NEW ONE.
35

SEQ 0199

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JUL~-78 13:05

046476
046502
046506
046510
046514
046516

005266
056616
000667

MACY11 30A(1052)
17%:

001222

18%:

177776

000002

045646
177072

045652
045652

045654

TYPE

MOV

CLR
CLR

1%:

000004

045665
045652

INC
BIS
BR

BR
$RDCHR: MOV

046542

045646

27=-JUL=78

TTY INPUT ROUTINE

000002

000004
000004

F 16

13:06

MOV
RTI
TST
BEQ
DEC
MOvB
INC
CMP

2%:

SRDLIN

046714
046725

25:

;iKEEP COUNT OF CHAR
::SET IN NEW CHAR

$QUES

;2TYPE 7<CR><LF>

208

(SP) ,=(SP)

S:PUT NEW PC ON STACK

%xcm

STKCNT
@$TKQOUT ,4(SP)

$TKQOUT

046712
046712
000015

3%:

(gi).9$

006503
005015

#15,(R3)+
2%
=1(R3)
JSLF

000012
000
000012
020122

$CNTLC:
$CNTLU:
$CNTLG:
$MSWR:

.BYTE
LASCIZ
LASCIZ
LASCIZ
.ASCIZ

053505

SMNEW:

.ASCIZ

*:GET READY FOR A CHARACTER
“:PUT NEW PS ON STACK

*1POP NEW PC AND PS

S:WAIT ON A CHARACTER

: :DECREMENT THE COUNTER
::GET ONE CHARACTER

*:UPDATE THE POINTER

$TKQOUT ,#$TKQEND ..DID IT GO OFF OF THE END?
2%
; sBRANCH IF NO
#STKGSRT,$TKQOUT ;;RESET THE POINTER
: ;RETURN
R3,-(SP)
;;SAVE R3
#STTYIN,R3
::GET ADDRESS
#STTYIN+9.
,R3
;:BUFFER FULL?
4%
;:BR IF YES

4%:

RTI

*:PUSH DOWN THE PC AND

#648,-(SP)

4(SP)
-(SP)

001222

:
9%

S:SIMULATE CONTROL=U
LITHE PS

10%:

000002
000004

2:GET THE NEXT ONE

4(SP),2(5P)

000177

177777
001224

SEQ 0200

2(SP)
-2(SP) ,(SP)

(SP)+,(R3)
#177,(R3)
3s
,SQUES

000004
046714

PAGE 201

(SP)+ ,R3
(SP) ,-(SP)
4(SP) ,2(SP)
#STTYIN,4(SP)

:2:G0 READ ONE CHARACTER FROM THE TTY
;:GET CHARACTER
;:1S IT A RUBOUT
;:SKIP IF NOT
::TYPE A '?°

;.CLEAR THE BUFFER AND LOOP

;:ECHO THE CHARACTER

;:CHECK FOR RETURN
;:LO0OP IF NOT RETURN
;2CLEAR RETURN (THE 15)
;sTYPE A LINE FEED

:;RESTORE R3
::ADJUST THE STACK AND PUT ADDRESS OF
22
FIRST ASCII CHARACTER ON IT

0
0

2 :RETURN
:2STORAGE FOR ASCII CHAR. TO TYPE
;s TERMINATOR

/*2U/<15><12>

::CONTROL 'V

/*C/<15><12>

/*G/<15><12>

<15><12>/SWR =

::CONTROL ''C*'

::CONTROL 'G"’

NEW =
sFROM THE

TTY

THE

CZRJICO, RPO4/S5/6 FCTNL CTLRI
CZRJIC.PN
27-JUL-78 13:05
011646
016666
010046
010146
010246

000004

G 16
PAGE 202

13:06

READ AN OCTAL NUMBER FROM THE

000002

$RDOCT: MOV

MOV
MOV

1%:

104411

012600
010037
005001
005002
112046
001420

27=JUL-78

(SP) ,=(SP)

4(SP) ,C(SP)

RO,=(SP)
R1,-(SP)
R2,=(SP)

(SP) +,R0O
RO,5%
R1
R2
(RO) +,-(SP)
3%
#'0,(SP)

047114
2%:
000060

&H
L

046766
046770
046776

MACY11 30A(1052)

000067

SEQ 0201

TTY

;:PROVIDE SPACE FOR THE
;s INPUT NUMBER
:;PUSH RO ON STACK
;:PUSH R1 ON STACK
;:PUSH R2 ON STACK
;sREAD AN ASCIZ LINE
:;GET ADDRESS OF 1ST CHARACTER
;;AND SAVE IT
;;CLEAR DATA WORD
;;PICKUP THIS CHARACTER

;:1F ZERO GET OUT
s sMAKE SURE THIS CHARACTER
;:1S AN OCTAL DIGIT
so%2
L

R2
#~C7,(SP)
(SP)+.R1

177770

000012
047124

4%:

001222

3%:

+
(SP)

R1,12(SP)
R2.$HIOCT
(SP)+,R2
(SP)+ ,R1
(SP)+,R0
CLRB

TYPE
. WORD
TYPE
BR
$HIOCT: .WORD

5%:

+
(SP)
(RO)

;:%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
;:SET A TERMINATOR

::TYPE UP THRU THE BAD C(HAR.

0
. SQUES

::.l?.'

;;HIGH ORDER BITS GO HERE

IICRIC

;:TRY AGAIN

IIFIJ

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PT
27-JUL-78 13:05

104401

005777
100002

131770
131760

-2

— —a

N =

131706

020000

1%:
oron

001216
001112
001116
000002

7%:

047276
001223

104407

131702

9105
9107
9110

001000
001110
001214

001214

INCB
BEQ
MOV
BIT
BEQ
TYPE

#=1,34CRFLGS

$ERFLG

131666

:2IT10.GSUR

LSBELL

SERTTL
(SP) ,$ERRPC
#2 ,$ERRP(
@S$ERRPC,SITEMB

.SCRLF

2%:

aSWR

3%:

z§1709.35UR

(%:

;TEST FOR CHANGE

SEY ERROR FLAG

SEQ 0202
IN SOF T=SWR

..SET THE ERROR FLAG

7%
;DON'T LET THE FLAG GO TO ZERO
$TSTNM,aDISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG

P(,$ERRTYP

000000

032777
001402
013716
005737
001402
013716
000002

CKSWR
MOV

#B1T13,aSWR
208

117737

032777
001004
004737

001102
002000

(@]

104401

005237
011637
162737

004734

—d
b —d

105237

001775
013777
032777
001402

177777
001103

—

047152
047160

104407

012737

047126
047130
047136
047142
047144

H 16
PAGE 203

27=JUL-78
13:06
MACY11 30A(1052)
ERROR HANDLER ROUTINE

$LPERR, (SP)
$ESCAPE
5%
$ESCAPE, (SP)

;:BELL ON ERROR?

= SKIP
::NO

::RING BELL
;s COUNT THE NUMBER OF ERRORS
;:GET ADDRESS OF ERROR INSTRUCTION
;:STRIP AND SAVE THE ERROR ITEM CODE
::SKIP TYPEOUT IF

SET

;:SKIP TYPEOUTS
::G0 TO USER ERROR ROUT INE
;sHALT ON ERROR
;:SKIP IF CONTINUE
;sHALT ON ERROR!
ssTEST FOR CHANGE IN SOFT=-SWR
..ggO?FONERROR SWITCH SET?
.,FUDGE RETURN FOR LOOPING

;sCHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE
;:FUDGE RETURN ADDRESS FOR ESCAPE
s JRETURN

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRIIC.P1T

27=JUL-78 13:05

|
MACY11 30A(1052)

27-JuL-78

ERROR HANDLER ROUTINE
:"' 1223333322323 22222222

.SBTTL

I 16
13:06 PAGE 204

222iRidddldd)

ERROR MESSAGE TYPEOUT ROUTINE

;*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.
:«WITH ONLY MINOR CHANGES
;*FIRST IF SWITCH 6 IS SET AND SWITCH 8 RESET THEN

;*ALL REGISTER CONTENTS WILL BE TYPED BEFOR REPORTING THE ERROR
;*SECOND IF THE CURRENT ERROR HAS THE SAME ITEM NUMBER
:»AS THE PREVIOUS ERROR THEN ONLY THE DATA WILL BE TYPED

;*AND NOT THE ERROR MESSAGE AND HEADER.

PRITEM: 0

000000
017746
042716
022726
001001
000402
000137

131636
177277
000100

104401
000406
013746
104402
104401
000406
013746
104402

047330

104401

000406
013746
104402
104401
000406

013746
104402
104401

000406
013746

9159

9165

9166

047516

104402
104401

000406
013746

047546

104402
104401
0004 06

047572
047576

104402
104401
000406

013746

050236

:PREVIOUS ITEM NO. LOCATION

$SERRTYP: MOV
BIC
CMP
BNE

1$:

JMP

TYPE

002354

BR
?Og

047360

TYPE

002356
047410

002360
047440

YPOC

BR
nox

TYPOC

TYPE

?Ogo

YPOC

TYPE

002362

BR
?OXOC

047470

TYPE

a@SWR,=(SP)
#~500, (SP)
#SW06, (SP)+

:GET SWITCH SETTING
“KEEP ONLY SWITCH 8 AND 6
“IS 6 SET AND 8 RESET

*BRANCH IF SW 6 IS SET AND 8 RESET

M TYPERR

*IF NOT BRANCH

SJUMP IF SW 8 IS SET

“OR IF SW 8 IS RESET AND SW 6 IS RESET

,65%

::TYPE ASCIZ STRING

,67%

::TYPE ASCIZ STRING

,69%

::TYPE ASCIZ STRING

a#CS2,=(SP)

“GET READY TO TYPE RHCS2 CONTENTS

64
W, ~(SP)
66$
Q4BA, = (SP)
68%

718

708
a#Cs1,=(SP)
,73%

72%

“:GET OVER THE ASCIZ
“GET READY TO TYPE RHWC CONTENTS
“:GET OVER THE ASCIZ
‘GET READY TO TYPE RHBA CONTENTS
“:GET OVER THE ASCIZ
::TYPE ASCIZ STRING

“:GET OVER THE ASCIZ
“GET READY TO TYPE RHMCS1 CONTENTS
:TYPE ASCIZ STRING

..GET OVER THE ASCIZ

002404

?ogoc

auDS1,~(SP)

“GET READY TO TYPE RHMDS1 CONTENTS

047520

TYPE
BR

,75%
74%

::TYPE ASCIZ STRING
“:GET OVER THE ASCIZ

77%

::TYPE ASCIZ STRING

MER2,=(SP)

“GET READY TO TYPE RHER2 CONTENTS

002364

047550

002370
047600

¢og

YPOC

TYPE

?ogo

YPOC

TYPE

AMERT,=(SP)
76%

,79%

78%

“GET READY TO TYPE RHER1 CONTENTS
“:GET OVER THE ASCIZ
::TYPE ASCIZ STRING

;.GET OVER THE ASCIZ

SEQ 0203

CZRJICO, RPO4/S/6 FCTNL CTLR1T

CZRJIC.PM
9167
9168
9169
9170

9171
9172
9173
9174
9175
9176
9177

27-JUL-78 13:05

047614
047620
047622
047626
047644
047650
047652
047656
047674
047700
047702
047706
047724
047730
047732
047736
047754
047760
047762
047766
050004
050010
050012
050016
050034
050040
050042
050046

013746
104402
104401

000406
013746
104402
104401

000406
013746
104402
104401
000406

013746
104402
104401
000406

013746
104402
104401

000406
013746
104402

104401
0004 06

013746
104402
104401
0004 06
013746
104402
104401

0004 06
013746
104402
104401

0004 06
013746
104402
104401
000406
013746
104402
104401
000406
013746
104402

:
MACY11 30A(1052)

002366

002374

002400

002372

047770

050050

002416

,85%
84%
a#AS ,-(SP)

;. TYP: ASCIZ STRING

.87%
86%

a#0F ,~(SP)

;;TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;GET READY TO TYPE RHOF CONTENTS

.89%
88%
(SP)
a#M-R,

;2TYPE ASCIZ STRING
::GET OVER THE ASCIZ
:GET READY TO TYPE RHMR CONTENTS

,91%
90%
a#LA,~-(SP)

::GET OVER THE ASCIZ
:GET READY TO TYPE RHLA CONTENTS

a#CC,-(SP)

,95%
94$

;:TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

,97%
96%

awEC2,~(SP)

;:TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;GET READY TO TYPE RHECZ CONTENTS

.99%
98%
a#DT,-(SP)

;:TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;GET READY TO TYPE RHDT CONTENTS

BR
MOV

(SP)
a#S=N,

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ
:GET READY TO TYPE RHSN CONTENTS

CLR

A#PRITEM

;CLEAR PREVIOUS ERROR ITEM

TYPE
MOV
CLR

RO,=(SP)
RO

.SCRLF

:"'CARRJAGE RETURN'®' & "LINE FEED''

TYPOC
TYPE
BR
MOV

TYPOC
TYPE

050210
002410

TYPOC

TYPERR:

::TYPE ASCIZ STRING

::TYPE ASCIZ STRING
;2GET OVER THE ASCIZ
:GET READY TO TYPE RHCC CONTENTS

TYPE

002406

;:GET OVER THE ASCIZ
;GET READY TO TYPE RHAS (ONTENTS

,93%
92%

" BR
MOV

050160

001116

TYPE
BR
MOV

BR
MOV
TYPOC

002412

013746

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ
;GET READY TO TYPE RHCA CONTENTS

TYPOC
TYPE

050100

050254

,83%
82%
a#(A,=(SP)

BR
MOV
TYPOC
TYPE
BR
MOV

002420

001114

BR
MOV

TYPOC
TYPE

050020

050246
050252

a#DST,~(SP)

;:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
:GET READY TO TYPE RHDST CONTENTS

BR
MOV

002402

001223

.81%

TYPOC
TYPE
BR
MOV
TYPOC
TYPE

047740

104401
010046
005000
153700
001004

80%

TYPOC

047710

047274

;JGET READY TO TYPE RHER3 CONTENTS

TYPE

047660

005037

a#ER3,-(SP)

MOV
TYPOC
TYPE
BR
MOV
TYPOC

047630

002414

SEQ 0204

ERROR MESSAGE TYPEOUT ROUTINE

002376

050130

27-JuL=-78

J 16
13:06 PAGE 205

BISB
BNE
MOV

awECT,-(SP)

RO
a#$I1TEMB

;GET READY TO TYPE RHEC1 CONTENTS

;SAVE RO
;PICKUP THE ITEM INDEX

;IF ITEM NUMBER IS ZERO, JUST

$ERRPC ,=(SP)

;SAVE SERRPC FOR TYPEOUT

;TYPE

THE PC OF

;ERROR ADDRESS

THE ERROR

CZRJICO, RPO4/5/6 FCTNL CTLRI]
CZRJIC.PI
27=-JUL-78 13:05

K 16

'gg YBGE"OCYAL ASCIICALL DIGITS)

TYPOC

050260
050262

1%:

001223
050344

001223

BR
DEC
ASL

ASL
ASL
ADD

001226
047274

047274
050326

13%:

CMP
BNE
CMP
BR
MOV
MOV

BEQ

2%:
3%:

(%:

5%:

TYPE

.WORD
TYPE
MOV

6%:

7%:

104405

005711
001403
104401
000764
012601
012600
000207
020040
050424

8%:

050420
9%:
10%:

000

11%:

;ADJUST THE INDEX SO THAT |T WiLL

#SERRTB
RO
RO,a#PRITEM

13$
(RO)+,(RO)+
5%
RO,a#PRITEM
(RO)+,2%
3s

0
LSCRLF

BEQ

(RO)+,4%
5%

.WORD

TYPE

TYPE
MOV
MOV

BEQ

013146

SEQ 0205

27=-JuUL-78 13:06 PAGE 206
MACY11 30A(1052)
ERROR MESSAGE TYPEOUT ROUTINE

MOV
TSTB
BNE
MOV
TYPOC
BR

LSCRLF

R1,-(SP)

(RO) +,R1
5%
(RO)+,RO
+
(RO)
7%
a(R1)+,-(SP)
8%

MoV

a(R1)+,=(SP)

TST
BEQ
TYPE
BR

(R1)
9%
118

TYPDS

MOV
MOV
RTS

.ASCIZ

(SP)+ ,R1
(SP)+,R0O

PC
F

WORK FOR THE ERROR TABLE

;FORM TABLE POINTER

;WAS PREVIOUS ERROR SAME
;BRANCH IF NOT
;POP RO OVER EM AND DH

;SAVE NEW ERROR ITEM
:PICKUP 'ERROR MESSAGE'' POINTER
;SKIP TYPEOUT IF NO POINTER
;TYPE THE 'ERROR MESSAGE'’

:"ERROR MESSAGE' POINTER GOES HERE
"CARRIAGE RETURN'® & "LINE FEED''
:PICKUP ‘DATA HEADER'® POINTER
;SKIP TYPEOUT IF 0
;TYPE THE 'DATA HEADER''
:"DATA HEADER'® POINTER GOES HERE

& 'LINE FEED''
:"'CARRIAGE RETURN''
;SAVE R1
;PICKUP 'DATA TABLE'' POINTER
:BR _IF NO DATA TO BE TYPED
:PICKUP 'DATA FORMAT'' POINTER
:OCTAL'*
OR ‘DECIMAL''
:BR IF DECIHAL
;SAVE @(R1)+ FOR TYPEOUT
;GO TYPE--OCTAL ASCII(ALL DIGITS)
;SAVE @(R1)+ FOR TYPEOUT
;GO TYPE--DECIMAL ASCII WITH SIGN
;1S THERE ANOTHER NUMBER?
:BR IF NO
;TYPE TWO(2)
:LOOP

SPACES

;RESTORE R1

;"'CARRIAGE RETURN''
& "LINE FEED"
*RETURN

:TWO(2) SPACES

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05
9268
9269
9270
9271
9272
9273
9274
9275

050424
050430
050436
050442
050446
050450
050456
050464
050472
050474
050476

050500
050504
050506
050512
050516

050522

050526

050530
050532
050534
050536
050540

050542
050544
050546
050552
050554

050560

050562
050564
050566
050570
050574
050600
050604
050610
050614
050616
050620
050622
050624
050626

050630
050632
050640
050642
050644
050645
050646
050647
050650

017646
116637
112637
062716
000406

112737
112737
112737
010346
010446
010546
113704

005404
062704
110437
113704

016605
005003
006105
000404
006105
006105
006105
010503
006103
105337

000000
000001
050651
000002

000001
000006
000005

L 16
MACY11 30A(1052)
27-JuL-78 13:06 PAGE 207
ERROR MESSAGE TYPEOUT ROUTINE

050647

050647
050651
050646

$TYPOS: MOV
MOvB
MOvB
ADD
BR
$TYPOC: MOVB
MOvB
$TYPON: MOVB
MOV
MOV

MOV
MOvB

050651

NEG
ADD
MOvB
MOVB

000006
050650
050647
000012
1%:

2%:

3%:

050650

ROL

000060
000040
050644
050644
050646

5%:
7%:

6%:
000004
8%:
$OCNT:
$OFILL:
$OMODE:

;;PICKUP THE MODE
;;LOAD ZERO FILL SWITCH
: sNUMBER OF DIGITS TO TYPE
;;ADJUST RETURN ADDRESS

R5,=(SP)
$OMODE +1,R4

;:SAVE RS
:;GET THE NUMBER OF DIGITS TO TYPE

R4 ,=(SP)

R&
#6 R4
R4 , $SOMODE
$OFILL ,R4

12(SP) ,RS
R3
RS

BR
ROL

33
RS

ROL
MOV
ROL
DECB
BPL

RS
RS5.R3
R3
$OMODE
7%

ROL

BIC

177770

000002

MOV
CLR

a(SP) ,--(SP)
1(SP) ,SOF ILL
+1
(SP)+,$OMODE
#2,(SP)
$TYPON
#1,80FILL
#6,SOMODE
+1
#5,80CNT
R3,-(SP)

BNE
TST
BEQ
INC

#177770,R3
4
R4
5%
R4

BIS

#'0,R3

TYPE
DECB

,8%
$OCNT

BIS
MOVB

#' _R3
R3,8%

:2SET THE ZERO FILL SWITCH
;2SET FOR SIX(6) DIGITS
;SET THE ITERATION COUNT
::SAVE R3
;:SAVE R4

;sSUBTRACT IT FOR MAX. ALLOWED
;;SAVE IT FOR USE
;;GET THE ZERO FILL SWITCH
;;PICKUP THE INPUT NUMBER
;;CLEAR THE OUTPUT WORD

; ;ROTATE MSB INTO "¢’
;:G0 DO MsSB
;;FORM THIS DIGIT

;;GET LSB OF THIS DIGIT
;:TYPE THIS DIGIT?
;:BR IF NO

;:GET RID OF JUNK

:sTEST FOR O
; ;SUPPRESS THIS 0?
;:BR IF YES
;;DON'T SUPPRESS ANYMORE 0°'S
;JMAKE THIS DIGIT ASCII
;sMAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING
;;GO TYPE THIS DIGIT
::COUNT BY 1
;:BR IF MORE TO DO
;:BR IF DONE
;2 INSURE LAST DIGIT ISN'T A BLANK
;:GO DO THE LAST DIGIT
;;RESTORE RS

BGT
BLT

2%
6%

MOV
MOV
MOV

(SP)+ ,R3
2(SP) ,4(SP)
(SP)+,(SP)

;;RESTORE R3

BYTE

.BYTE
.BYTE
.WORD

0
0
O

;:STORAGE FOR ASCII DIGIT
::TERMINATOR FOR TYPE ROUTINE
;;OCTAL DIGIT COUNTER
;.ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE

INC
BR
MOV
MOV

RTI

BYTE

R4
2%
(SP) +,RS
+ R4
(SP)

;:RESTORE R4

:2SET THE STACK FOR RETURNING
; sRETURN

SEQ 0206

CZRJICO, RPO4/5/6 FCINL CTLRT
CZRJIC.PN

27=JuL-78 13:05

9321
9322
9323
9324
9325
9326
9327
9328
9329
9330
9331
9332

050652
050654
050660
050662
050664
050666
050672
050674
050676
050704
050706
050710

010046
016600
005740
111000
006300
016000
000200
011646
016666
000002
050674
045426

9338
9339
9340
9341
9342

050724
050726
050730
050732
050734

046154
046516
046606
046766
042156

9333
9334
9335
9336
9337

050712
050714
050716
050720
050722

050450
050424
050464
045202
046244

MACY11 30A(1052)

TRAP DECODER

$TRAP:

000002

050706
000004

27-JuL=78

000002

MOV
MOV
TST
MOvB
ASL
MOV
RTS
$TRAPZ2: MOV
MOV
RTI
$TRPAD: .WORD
$TYPE

$TYPOC
$TYPOS
$TYPON
$TYPDS
$GTSWR

M 16

13:06

PAGE 208

RO,=(SP)
2(SP) ,r0
-(RO)
(RO) ,RO
RO
$TRPAD(RO)
,RO
RO
(SP) ,-(SP)
4(SP) ,2(SP)
$TRAP?2

;. CALL=TYPE

;. CALL=TYPOC
;.CALL=TYPOS
;. CALL=TYPON
;:CALL=TYPDS
;. CALL=GTSWR

$CKSWR ;. CALL=CKSWR
$RDCHR ;; CALL=RDCHR
$RDLIN ;. CALL=RDLIN
$RDOCT ;. CALL=RDOCT
WAIT.T ;.CALL=WAT

SEQ 0207

;:SAVE RO
;.GET TRAP ADDRESS
; ;BACKUP BY 2
;;GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;;INDEX TO TABLE
::G0 TO ROUTINE
;;MOVE THE PC DOWN
;:MOVE THE PSW DOWN
;;RESTORE THE PSW

TRAP+1(104401)

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)

TTY TYPEOUT ROUTINE

TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST (ALL)
TYPE DECIMAL NUMBER (WITH SIGN)
GET SOF T-SWR SETTING
TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUT INE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
DONT ADD ABOVE THIS TRAP

C2RJiL0, RPUG/S/6 FCTNL CTLRT
CIRJIC.PIT

27=JuL=78 13:05

934
9345

056736
050744

012737
012737

9347
9348

050754
050756

010146
010246

9350
9351
9352
9353
9354

050762
050764
050766
050772
050776

0710446
010546
0177646
010637
012737

9346 050752 010046

939

050760

9356
9357
9358
9359
9360
9361

051006
051010
051016
051022
051026
051032

000776
012737
013706
005037
005237
001375

9363

051040

012605

9364

9365
9366
9367
9368
9369
9370
9371
9372

9373
9374
9375

9376
9377
9378
9379
9380

05103&

051042

051044
051046
051050
051052
051054
051062
051070
051072

051074
051076
051100

051102
051104
051106
051110
051116

012677

000024
000026

S$PWRDN: MOV
MOV

130146
051106
051010

051102
051106
051106
051106

000024

012716
005012

000002

000000
000776
000000
005015
000122

MOV

R3.=(SP)

*PUSH R3 ON STACK

HALT

BR
$PWRUP: MOV
MOV
CLR
18:
INC
BNF

047520

042527

R1.=(SP)
R2.=(SP)

*PUSH R1 ON STACK
“*PUSH R2 ON STACK

R& .= (SP)
*PUSH R4 ON STACK
RS . =(SP)
“PUSH RS ON STACK
aSWR, = (SP)
““PUSH aSWR ON STACK
SP. $SAVR6
*SAVE SP
#SPURUP
, a#PWRVEC ::SET UP VECTOR

MOV

2
; ;HANG UP
#SILLUP,3#PWRVEC ::SET FOR FAST DOWN
$SAVRG , SP
:GET sP
$SAVRE
“'WAIT LOOP FOR THE TTY
$SAVRE
“‘WAIT FOR THE INC
18
“0F
WORD
(SP)+,aSWR
*POP STACK INTO @SWR

MOV

(SP)+.Ré

MOV
MOV
MOV
MOV
MOV
MOV
TYPE
$PWRMG: .WORD
$PWRAD:

#SILLUP,@#PWRVEC ;:SET FOR FAST UP
#340,
3 PURVEC+o ; -PRIO:7

*PUSH
RO ON STACK

MOV

000024
000026

PAGE 209

RO, =(SP)

MOV
MOV
MOV
MOV
MOV

000024

130100

050736
000340

13:06

MOV

MOV
MOV

012604

012603
012602
012601
012600
012737
012737
104401
051110

27-JuL-78

POWER DOWN AND UP ROUTINES

010346

9355 051004 000000

9362

051102
000340

MACY11 30A(1052)

MOV
.WORD
RTI

$ILLUP: HALT
BR
$SAVR6: 0
S$POWER: .ASCIZ

(SP)+ RS

::POP STACK INTO RS

(PC)+, (SP)
BEGIN

RESTART AT BEGIN
**RESTART ADDRESS

-3

::THE POWER UP SEQUENCE WAS STARTED
"% BEFORE THE POWER DOWN WAS COMPLETE
“PUT THE SP HERE

*POP STACK INTO Ré4
(SP)+.R3
*“POP STACK INTO R3
(SP)+.R2
POP STACK INTO R2
(SP)+-R1
*POP STACK INTO R1
(SP)+ R0
::POP STACK INTO RO
#SPWRDN
, a#PWRVEC - :SET UP THE POWER DOWN VECTOR
#340, APWRVEC+2 ; -PRIO:7
REPORT THE POWER FAILURE
SPOWER
*:POWER FAIL MESSAGE POINTER

<15><12>' POWER"’

SEQ 0208

CZRJICO, RPO4/5/6 FCTNL CTLRY
CZRJIC.PN
27=JuL~78 13:05

MACY11 30A(1052)

27-JUL-78

13:06

POWER DOWN AND UP ROUTINES

9381

PAGE 210

SEQ 0209

:"Q'tt"....'t.'ttfi..""'.fi..'.t..

9382
9383
9384
9385
9386

;*ERROR AND MESSAGE TABLE CONDIMENTS
.

:t"'."..'.'....QQ.Q.Q"'.'Q.Q..Q‘.t

9387

050122
042111
044440
052522
11

052522

EM1:

LASCIZ

/RP0O4 DID NOT INTERRUPT/

EM2:

LASCIZ

/INTERRUPT ENABLE BIT DOWN BUT EXPECTED BIT DID NOT SET/

EM3:

.ASCIZ

/RP0O4 DID NOT INTERRUPT WHEN EXPECTED BIT DID SET/

040516
044502
047127

020124
(32060
047040
052116
052120
020116
052103
052111
051440

051236
051244

051252
051260
051266
051274
051302
051310
051316
051317
051324
051332
051340
051346
051354
051362
051370
051376
051404
051412
051420
051426
051430
051436
051444
051452
051460
051466
051474
051502
051510
051516
051524

024040
044440
046440
042523
041505
000051
044122
042517
020124
020122

053117
047111
047440
047514
020107
020061
046101

042040
052105

050130
020104
044504
020124
044524
020123
051122

041505
044502
020104
052502
042515
047111
051117
042515
030061
047522
042040
046101

EM4:

LASCIZ

/EXPECTED BIT DID SET BUT TIME IS IN ERROR (TIME IN 10 MICROSEC, DECIMAL

051501
020123
046103
054502
047111
040440

042040
047516
040505
046440
020107
046114
000123
047111
051105
020122
047125

EMS:

LASCIZ

/RHAS DOES NOT CLEAR BY MOVING IN ALL ONES/

EM6:

.ASCIZ

/LOADING RHERT FOR ALL UNITS DID NOT SET ANY RHAS BITS/

020114

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PM
27-JuL~-78 13:05

051532
051540
051546
051554
051562
051570
051576
051604

052111

051640
051646
051654
051662
051670
051676
051704
051707
051714
051722
051730
051736
051744
051752
051760

052123
020104

020123
047516
020124
044122
052111
020116
042524

044504
020124
047101
051501
000123
054105
052116
051511
050040
046501
052122

050117
051104
040510
020114
047111
030523
052111
047111
047520
020104
051040
051440
020104
044040
047125
027117
044440
000124
042524
047111
047520

051612
051620
051626
051634

020105
047515
020124
042110
052105
127
050123
020105
042522
047127
031123
046125
054514
020105
047040
042116

042523
043101
050123
020105
042522
020054
041501
047113
051504
052517
053101
036514
036526
044527

052144
052152
052160
052166
052174
052202
052210
052216
052224

030475

POWER D

000

-3

OWN AND UP ROUTINES

MACY11 30A(1052 )

27-JuL-78

13:06

PAGE 211

021

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 RHCS2 SHOULD ONLY HAVE UNIT NO. AND IR SET/

020122
046104
042527
050125
050040
041501
044122
044123
044040
047515
053040

EM12:

.ASCIZ

/AFTER SPINDLE POWERED UP, NO PACK ACKN. RHDS1 SHOULD HAVE MOL=1, vv=0/

EM13:

LASCIZ

/WITH SPINDLE POWERED UP, NO INTIALIZE, RHCS1 SHOULD HAVE GO=0, DVA=1, R

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

052232
052240
052244
052252
052260

026061
000060
042526
047111
047520
020104
044122
047510
042502

040440
047522

052702

POWER DOWN AND UP ROU

R
}?:06
NES

3
PAGE 212

044440

020122

EMI4:

LASCIZ

/AFTER SPINDLE POWERED UP, RHCC SHOULD BE=0/

020113
053517
020105
047101
051525

EM1S:

LASCII

/PACK ACKNOWLEDGE COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND/

.ASCII

/NO-OP COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND/

LASCII

/DRIVE CLEAR COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES AFTER COMMAND/

020116
006522

047517
040524
042502
041440
042116
020103
044440
042524
046515

020104
044440
047506
046517
020054
040504
020123
020122
047101

047455
046515
040503
040440
047522

020120
047101
051525
020116
006522

047517
040524
042502
041440
042116
020103
044440
042524
046515

020104
044440
047506
046517
020054
040504
020123
020122
047101

053111
040505
046515
040503
040440
047522

020105
020122
047101
051525
020116
006522

047517

020104
043440
051440
020104
042522

040524
051505
046125
020054

27=JuL=78

EM16:

EM17:

SEQ 0211

MACY11 30A(1052)

CZRJICO, RPO4L/5/6 FCTNL CTLRY
CZRJIC.PN
27-JUL-78 13:05

MACY11 30A(105 2)

POWER DOWN AND UP ROU

052710
052716
052724
052732
052740

020103
043440
040440
041440
042116

040504
053111
052106
046517
000

040524
051505
051105
040515

052743

122

040505

026504
046517
041440
020104
051122

052750
052756

047111
040515
052501
047101
051117
047507

041440
042116

042523
042440
005015
042117

NES

SEQ@ 0212

LASCII

/READ=-IN COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/

051040
052101
042526
027107
027124
051105
040515
041510
047117
020123
043516
040515
051501
051105

030523
042524
052504
041440
042116
044440
047522

EM21:

LASCIZ

/RHCS1

CONTENTS DURING COMMAND WAS IN ERROR/

051504
052116
042040
020107
047101
020123
051122

020061
047105
051125
047503
020104
047111
051117

EM22:

.ASCIZ

/RHDS1

CONTENTS DURING COMMAND WAS IN ERROR/

046116

040517
046515
040503
040440
047522

EM23:

LASCII

/UNLOAD COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/

047503
020104
042105
051105

043101

EM20:

}?:06

042040
044507
044123
041040
041505
020101
020123
041440
040440
041440
042116

020101

020123
042114

053354
053362

27-JUL-78

PAGE 213

012
047517
040524
051505
046125
020054
040504
053111
043505
052116
042524

020104
043440
051440
020104
042522
040524
051505
020056
020056
020122

CZRJICO, RPO4/5/6 FCTNL CTLR]
CZRJIC.PI
27=JuL= 78 13:05

g
.

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27=-JUL-78 13:05
9605

9606

053370

9607

9608
9609
9610
9611
9612
9613

047503
000104
043117
041440
042116
042523

046515

047101

051506
046517
041440
020104
051122

052105
040515
052501
047101
051117

042117
020101
020123
042114
051040

042049
044507
044123
041040
041505
020101
020123
041440
040440
041440
042116

052105
047524
042524
042516
040515
052501
047101
051117
042117
020101
020123
042114
051040
052101
042526
027107
027124
051105
040515

051125
041440
020122
041440
042116
042523
042440
005015
042040
044507
044123
041040
041505
020101
020123

030060
042523
046515
047440
052106
042510
051105

047440
020124
047101
042516
051105
047440
041440
020104
051122
042524
042504
020104
041440
020104
050117

052101
042526
027107
027124
051105
040515

054052

044124
052501
047101
051117
127
044040
020122
040504
052501
046511

G
27=-JUL-78 13:06
MACY11 30A(1052)
POWER DOWN AND UP ROUTINES

042523
042440
000
044522
040505
047101
040524
042523
051120

PAGE 214

SEQ 0213

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>

LASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/

EM26:

LASCIZ

/500 OFFSET COMMANDS ONE AFTER THE OTHER CAUSED ANERROR/

EM27:

LASCII

/WRITE HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12>

EM24:

EM2S:

041440
040440
041440

042116

27-JUL-78 13:06
MACY11 30A(1 05 2)
POWE R DOWN AND UP ROUTINES

CZRJICO, RPO4/5/6 FCTNL
CZRJIC.PM
27=-JUL-78
054060
054066
054074
054102
054104
054112
054120
054126

054134

054142
054150
054152
054160
054166
054174
054202
054210
054216
054224
054232

054233
054240
054246
054254
054262
054270
054276
054304
054312
054313
054320
054326
054334
054342
054350
054356
054364
054372
054400
054401
054406
054414
054422
054430
054436
054444
054447
054454
054462
054470
054476
054504
054512
054520
054526

043505
020122
042507

051105
051511
044103
005015
047507
052101
042526
052101
046125
052040
005015
042522

042105
020101
020123
053440
042510
052106
046517

000104

PAGE 215

051501
042522
051105
040515

042040
044507
044127
047510
042502
042522

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

053111
052101
042526
052101
052040
040440
041440
042116

LASCIZ

/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/

EM30:

LASCIZ

/WRITE HEADER AND DATA CHANGED WRITE FROM BUFFER/

EM31:

LASCII

/READ HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12>

044522
040505
047101
040524
043516
044522
047522
043106

042524
042504
020104

040505
042101
042116
020101
042105
047522
042522
051105
043516

020104
051105
042040
040503
044440
042520
044507
041440
006505

047517
040524
051505
020124
042114
044124
012
041505
020104
043440

020104
043440
053440
044123
041040
051105

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

044505
040504
053111
040510
020123
020105
020122
047101

.ASCIZ

/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/

053440
040527
051105
042524
046515

041440

042105
042524
020115
051105

SEQ 0214

9717
9718
9719

9720
9721

9722
9723
9724
9725

9726
9727
9728
9729
9730
9731

9732

054530
054536
054544
054552
054560
054566
054574
054602
054610

054616
054624
054632
054637
054644
054652
054660
054666
054674
054702
054710
054712
054720
054726

054734
054742
054750
054756

054760
054766
054774
055002

- 055010
055016

055024
055032
055040
055041
055046
055054
055062
055065
055072
055100
055106
055114
055122
055130
055136
055144
055151
055156
055164

055172
055200
055206
055214

051127

052111
042101
052101
046117
020104
040505
042101
042116
026101
042523
040524
051117

i
13:06

POWER DOWN AND UP ROUTINES

MACY11 30A(1052)

020105
051105
026101
047514
054502

27-JUL-78

3
PAGE 216

EM32:

LASCIZ

/WRITE HEADER DATA, FOLLOWED BY READ HEADER AND DATA, CAUSED DATA ERROR/

EM3_:

LASCII

/READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12>

047101

020104
051105
042040
041440
020104
042440
000
020104
041440
020104
050117
043505
020122
042507

042117
020101
020123
051440
020104
042510

042040
044507
044127
047510
042502
042522

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/

040505
040524
051117
000
044522
052101
046515
040503
044440
042520

020104
044440
042522

EM34:

LASCIZ

/READ DATA INCORRECT/

042524
020101
047101
051525
050115
020122
052123
040510
012
020104
043440
053440
044123
041040
051105

EM35:

LASCII

/WRITE DATA COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

044507
041440
006505
047517
040524
051505
020124
042114
044124
012

CZRJICO, RPQ4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05

9773

9774
9775

9776
9777
9778
9779
9780
9781

055217
055224
055232
055240
055246
055254
055262
055270
055276
055303

055575

055602

055610
055616
055624
055632

055674
055702

13:06

042526
040524
051505
05151
047503
051524
051105
040515
127

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

EM36:

LASCIZ

/WRITE DATA COMMAND (HANGED WRITE FROM BUFFER/

EM37:

.ASCII

/SEEK COMMAND 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
045505
040515

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER SEEK COMMAND/

.ASCI1I

/WRITE CHECK CAUSED IMPROPER REGISTER CHANGE/<15><12>

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

000
042524
020101
047101
047101
051127
051106
043125

0431017
042523
046517
000

044522
042510
052501
046511
051105
051571
044103
005015
042117
020101
020123
051440
020104

PAGE 217

LASCIZ

044505
040504
053111
043505
020122
047105
052106
046517

122

041440
042116
042523
051120
051040
042524
047101

055572

27-JuL-78

POWER DOWN AND UP ROUTINES

CZRJIC.PN

042524

EM4O:

042524
047101
042040
044507
044127
047510
042502

SEQ 0216

MACY11 30A(1052)

CZRJICO, RPO4/5/6 FCTNL
27-JuL-78

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PM
27-JuL-78 13:05

055710
055716

052040
005015
042522
042105
020101
020123
052123
047117
020123
020122
047101
047514
020107
051127
054502
042524
020113
047117
042523
051120
051040
042524
047101
047507

052101
042526
052101
046125
052040
005015
042522
042105
020101
020123
052123
047117
020123

020122
051505
020105
042105
000
101

052120
047524
042524
020110
051505
042513

042510

MACY11 30A(1052)

27-JuL-78

13:06

POWER DOWN AND UP ROUTINES

PAGE 218

SEQ 0217

042522
053111
052101
042526
044507
041440
052116
042524
046515
047111
020124
020105
044522
041517
052124
052501
046511
051105
051511
044103
005015
042040
044507
044127

EM4T:

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

LASCII

/LOCKING OUT WRITE BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE/

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITES WERE LOCKED OUT/

LASCII

/ATTEMPTING TO WRITE WITH WRITES LOCKED OUT CAUSED IMPROPER REGISTER CHA

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

047510
042502
042522

044507
042522
051105
042524
043101
051127
053440
047514
047440

052124

047517

053111
052101
042526
044507
041440
052116
042524
052111
051105
045503

052125

046505
020107
044522
52111
52111
041517
052517

051525
050115
020122
052123
040510
012
020104

EM42:

CZRJICO, RPO4/5/6 FCTNL CTLR1

ICZRJIC.P11
9885

27=JUL-78 13:05

056406

040504

020105

043440
053440
044123
041040
051105

122

041505

044505

044524

056414
056422
056430

053111
040510
052517

9890

056444

006505

056454
056462
056470
056476
056504
056512
056520
056526
056534

042526
040524
051505
051511
047503
051524
051105
046505
053888

9891

9892
9893
9894
9895
9896
9897
9898
9899
9900

056436

056447

012

020104
043440
051040
042524
052116
040440
040440
052120
044522

27-JuL-78

-3

13:06

POWER DOWN AND UP ROUTINES

040526
051505
0201246
042114
044124

9886
9887
9888

9889

MACY11 30A(1052)

040504
053111
043505
020122
047105
052106
052124
042105
042524

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE/

_ASCII

/WRITING WITH WRITES LOCKED OUT CHANGED DISK DATA/<'5><12>

SEQ 0218

9902

056543

056550
056556
056564
056572
056600
056606
056614

043516
020110
051505
042513
020124
042507
045523

127

044522

9911

056625

107

047517

020104

.ASCII

/GOOD DATA GIVES WHAT WAS ON DISK BEFORE WRITE (WITH WRITE LOCKED OUT)/<

9923
9924
9925

056734
056742
056750

040527
042524
006504

020123
050115
012

052101
042524

LASCII

/WAS ATTEMPTED/<15><12>

041505

044505

LASCII

/RECEIVED DATA GIVES WHAT WAS READ BACK AFTER WRITE/<15><12>

040527
042101
020113
020122
006505
044527
044522
041517
052517
051501
046505

020123
041040
043101
051127
012

LASCIZ

/(WITH WRITE LOCKED QUT) WAS ATTEMPTED/

9903
9904
9905
9906
9907
9908
9909
9912
9913
9914
9915
9916
9917
9918
9919
9920
9921
9922

9926

9927

9930
9931
9932
9933
9934
9935
9936
9937
9938
9939
9940

056632
056640
056646
056654
056662
056670
056676
056704
056712
056720
056726

056753

040504
053111
040510
020123
051511
047506
044522
044527
044522
041517
052517

122

056760

042526

057002
057010
057016
057024
057032
057037
057044
057052
057060
057066
057074

020124
042522
041501
042524
052111

050
053440
046040
020104
053440
052124

053440
051127
046040
020104
044103
020104
042040
0

040524
051505
020124
047117
020113
042522
042524
044124
042524
042513
024524

020104

052111
052111
041517
052517
047101
044504
052101
043440
053440
040527
042040
042502
053440
024040
053440
046040
020104
005015

040504

044124
042524
042513
024524
040440
052120

EM&3:

PAGE 219

057102

042105
105
047111

000
040516
020107
051505
051127

MACY11 30A(1052)

13:06

POWER DOWN AND UP ROUTINES

PAGE 220

SEQ 0219

LASCII

/ENABL
NG WRITES BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE/<1

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

044505

LASCII

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITE LOCK BUTTON/<15><12>

042514
052111

LASCIZ

/ENABLED WRITES/

LASCII

/TRANSFERRING ON LAST BLOCK - CYLINDER 410, SECTOR 21, TRACK 18/<15><12>

.ASCI1

/CAUSED IMPROPER REGISTER CHANGE/<15><12>

.ASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

046102

EM4S:

051105
040504
053111
043505
020122
047105
052106
044522
041517
052124

051516
047111
046040

057570

046125

020104

042040
044507
044127
047510
042502

EM4S:

st1

CZRJICO, RPO4/5/6 FCTNL CTLR
27=JuL-78 13:05
| CZRJIC.P1Y

27-JuL-78

057576

052040
005015

042510

d
b
d
d
-

r&§z8388ww§883;

PAGE 221

SEQ 0220

042522
053111
052101
042526
044507
041440
052116
042524
047101
000

NOWVSWN=O

ss3s3sasssassasas 88888888

wd
e
e
e
—

13:06

POWER D OWN AND UP ROUTINES

9997
9998
9999
10000
10001
10002
10003
10004
10005
10006
10007
10008

27-JUL-78

EM46:

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER TRANSFER/

LASCI]

/DATA READ FROM LAST BLOCK = CYLINDER 410, SECTOR 21, TRACK 18/<15><12>

LASCIZ

/1S

.ASCII

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

020054
020113

047101
044522
052101
046517
054105
052116
047524
051525
050115
020122
044507
041440
026105
020104
043440
053440
044123
041040
051105

041505
020104
043440

000122

020116
000122
043123
043516
020101

044505
040504
053111
043505
020122
047105
052106
052124
042105
051516

EM47:

IN ERROR/

[ la

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIIC.PN
27=JuL- 78 13:05

MACY11 30A(1052 )

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27=JuL~ 78 13:05
10053
10054
10055
10056
10057
10058
10059
10060

10061
10062
10063
10064
10065
10066
10067
10068
10069
10070
10071
10072

10073

060270
060276
060304
060312
060320

051124
051105
043040
047516
052123
042523
041440
020104
042440
005015
047507
052101
042526
052101
046125
052040
005015
040502
040524
051505
020124
047111
042506
042524
047101
000

051127

047101
044522
047522
042516
047101
052103
052501
040504
051122

B
13:06

POWER DOWN AND UP ROUTINES

MACY11 3CA(1052)

043123
043516
020115
044530
020124

EM50:

27-JUL-78

2
PAGE 222

LASCII

/TRANSFERRING FROM NONEXISTANT SECTOR CAUSED DATA ERROR/<15><12>

SEQ 0221

051117

042523
040524
051117

042117
020101
020123
051440
020104
042510

042040
044507
044127
047510
042502
042522

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

020104

040504
053111

LASCIZ

/BAD DATA GIVES WHAT WAS IN BUFFER AFTER TRANSFER/

LASCII

/GIVING ILLEGAL FUNCTION CAUSED IMPROPER REGISTER CHANGE/<15><12>

040510

041040
020122
020122
043123

020123
043125
043101
051124
051105

EMS1:

053111
046111
020114
044524
052501
046511
051105
051511
044103
005015
042117
020101
020123
051440
020104
042510

047111
042514
052506
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
046111
020114
044524
020123
000116
052111

053111
052101
042526
044507
041440
052116
042524
042514
052506
047117
044507

.ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ILLEGAL FUNCTION IS GIVEN/

LASCII

/WRITE DATA COMMAND ON NONEXISTANT SECTOR CAUSED IMPROPER REG. CHANGE/<1

020105

EM5S2:

—-—-

0“‘[0\."4‘0"\)—‘08
-

s
cild
b a

il csld el

el cll

i
i

il a

i
b

b cud

b
b

[eleolelolololelelolels]

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRIIC.PN
27=JuL~78 13:05
060762
060770
060776
061004
061012

040504
046517
047440
042516
047101
052103
052501
046511
051105
020056
042507
047507
052101
042526
052101
046125
052040
005015
042522
042105
020101
020123
052123
047117
020123
020122
050115
051127
040504
122

042510
040440
052101
042524
042523

052101

040524
040515
020116
044530
020124
051117
042523
051120
051040
044103
005015
042117
020101
020123
051440

MACY11 30A(1052)

27-JuL-78

13:06

POWER DOWN AND UP ROUTINES

€

PAGE 223

SEQ 0222

041440
042116
047516
052123
042523
041440
020104
050117
043505
047101
LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

020104
042510

042040
044507
044127
047510
042502
042522

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE DATA/

042522
051105
042524
043101
052101
042524
052111
040524
040505
042101
042116
020101
020122
051101
052501
040504
051122

053111
052101
042526
044507
041440
052116
042524
042524
020104
020105
000
020104
051105
042040
043101
020101
044103
042523
040524
051117

EMS53:

LASCIZ

/READ HEADER AND DATA AFTER A SEARCH CAUSED DATA ERROR/

052124
047111
046515
044527
053116
040440
051523
042523
051120
051040
042524
047101

046505
020107
047101
044124
046101
042104
041440
020104
050117
043505
020122
042507

EMS4:

LASCII

/ATTEMPTING COMMAND WITH INVALID ADDRESS CAUSED IMPROPER REGISTER CHANGE

042117
020101
020123
051440

042040
044507
044127
047510

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuUL-78 13:05
046125
052040
005015
042522
042105
020101
020123
052123
047117
020123
020122

042502
042522

042503
042040
044507
042522
051105
042524
043101
050117
04751
052111
051117
044504
052111
042520

053111
052101
042526
044507
041440
052116
042524
051105

D
i
e
i

oo
O

10190

062140
062146
062152

052101
046125
052040
005015
042522
042105
020101
020123
052123
047117
020123
020122
052101
040504
040505
044124
054105
042105
042522
042526
020127
020122
041516
052103
047527

042503
042040
044507
042522
051105
042524
043101
050117
047511
040524

051511
051117
005015
042122

27-JUL-78

13:06

POWER DOWN AND UP ROUTINES

020104
042510

lh o

BIRRRAR2BI ;VO‘

061460
061466
061474
061476
061504
061512
061520

il
il

il sl

i ailh nll i

il ooy i -l

o
(olelelolololololelololsls]
b

10165
10166
10167
10168
10169
10170
10171
10172
10173
10174
10175

MACY11 30A(1052)

PAGE 224

SEQ 0223

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/

LASCII

/WRITING OR READING WITH EXPECTED ADDRESS OVERFLOW ERROR/<15><12>

042523
051120
051040
042524
047101

LASCII

/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
051105
000116
051040
044527
020116
052103
042104
047440
047514
047522
044440
042522

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/

LASCII

/DATA READ WITH AN EXPECTED ADDRESS OVERFLOW ERROR IS INCORRECT/<15><12>

LASCII

/WORD NO. 1 TO 260 SHOULD BE READ, WORD NO 261 TO 266 SHOULD/<15><12>

000116
047111
051040
043516
020110
052103
042104
047440
047514
047522

047040

EMSS:

EMS6:

CZRJICO, RPO4/5/6 FCTNL CTLR1T

MACY11 30A(1052)

10221
10222
10223
10224
10225
10226
10227

062160
062166
062174
062202
062210
062216
062224
062232
062240

027117
020117
044123
041040
042101
042122
033062
031040
047510

030440
033062
052517
020105
020054
047040
020061

033066
046125

052040
020060
042114
042522
047527
020117
047524
051440
006504

10231
10232

062247
062254

102
047101

020105
042507

044103
000104

044524
052101
046515
044527
047522
051117
044502
051525

043516
020101
047101
0441246
043516
040515
020124
042105

042040
047503
020104
053440
043040
020124
040503
005015

CZRJIC.PMN

10228
10229

27-JUL-78 13:05

10233

062262

052101

10242

062350

046511

10234
10235
10236
10237
10238
10239
10240
10241
10243
10244
10245
10246

10247

10248
10249
10250
10251
10252
10253

10254

10255
10256
10257
10258
10259
10260
10261
10262
10263
10264
10265

10267

10268
10269
10270
10271
10272
10273
10274
10275
10276

062270
062276
062304
062312
062320
062326
062334
062342
062356
062364
062372
062400

062402

062410
062416
062424
062432
062440
062446

062450

062456
062464
062472
062500
062506
062514
062522
062530
062536
062544
062552

062554

062562
062570
062576
062604
062612
062620
062626
062634
062642

051105
051511
044103
005015

042524

051120

051040
042524
047101

27-JuL-78

13:06

POWER DOWN AND UP ROUTINES

PAGE 225

.ASCIZ

/BE CHANGED/

.ASCII

/ATTEMPTING DATA COMMAND WITH WRONG FORMAT BIT CAUSED/<15><12>

050117

LASCII

/IMPROPER REGISTER CHANGE/<15><12>

050115

EMS7:

043505
020122
042507

SEQ 0224

047507

042117

042040

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042522

042503

053111

.ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED DATA TRANSFER/

042524

050115

.ASCII

/ATTEMPTING TO MODIFY REGISTER DURING AN OPERATION CAUSED IMPROPER/<15><

052101
042526
052101
046125
052040
005015

042105
020101
020123
052123
047117
020123
020122
050115
040504
040522
009122

052101

044524
020117
054506
051511
052504
040440
051105
020116
042105

020101
020123
051440
020104
042510

042040
044507
042522
051105
042524
043101
052101
042524
040524
051516

043516
047575
051040
042524
044522
020116
052101
040503
044440

044507
044127
047510
042502
042522

052101
042526
044507
041440
052116
042524
042524
020104
052040
042506

052040
044504
043505
020122
043516
050117
047511
051525
050115

EM60:

C(ZRJICO, RPO4/5/6 FCTNL CTLRY
CZRJIC.PN
27-JuUL-78 13:05
10277
10278

13:06

POWER DOWN AND UP ROUTINES

042520

006522

043505
020122
042507
042117
020101
020123
051440
020104
042510

05151
044103

042503

053111
052101
042526
044507
041440
052116
042524
051105

SEQ 0225

PAGE 226

LASCII

/REGISTER CHANGE. GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

LASCII

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION WAS ATTEMPTED/<15

LASCIZ

/MODIFYING REG GIVES ADDRESS OF REGISTER BEING MODIFIED WHICH CAUSED ERR

042522

020116
052101

042524

04311

051040
053111
042104

.ASCIZ

/RHDS1

HAS SOME

INCORRECT STATUS BITS

122

042110

030523

EM63:

LASCIZ

/RHDS1

CONTENTS DURING COMMAND WERE

042515
051117
051440

052123

041040

020075

o
o

020061
047523
041516
052103
052524
051524
020054
030040

EM62:

020123
036440
051117

051504
020123
044440
042522
040524
044502
030440
036440

020124
051525
020123
047440
000060
044122
040510

INCORRECT STATUS BITS

HAS SOME

/RHCS1

LASCIZ

EM61:

020122

030523
051440
047111
041505
052101
052111
026061
020075

046517

10332

000
041510
051501
020105
051122

051117

047440
044507
041040
046440
042511
041511
051525
051122

27-JuL-78

—b

MACY11 30A(1052)

IN ERROR/

047117
030040
051124

047522
044122
044507
051124
042502
051127
020116
040505
041440
020054
030040

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

.ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

EM6S:

.ASCIZ

/INTERRUPT FAILING/

EM66:

LASCII

/HEADER AND DATA COMMAND FOR HEAD SELECTION TEST CAUSED/<15><12>

LASCII

/ERROR = RHDST GIVES TRACK BEING WRITTEN OR READ ON CYL 0, SCTR 0/<15><1

041440

020122
051504
042526
041501
047111
052111
051117
020104
046131

041523
005015

051122
040506
000107
051105
042040
047503
020104
042510
046105
047117
020124
042105

052116
042524
046515

BDambBbDBDDBDDDDDEDn

/RECALIBRATE COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

042116
020101
047101
020122
051440
044524
051505
051525

LASCII

EM64:

R MR SR

05311
052101
042526
044507

SEQ 0226

042503
042040
044507
042522
051105
042524
043101
047503
000104
042524
020124

046101
042524
040515
052501
046511
051105
051511
044103
005015
042040
044507
044127
047510
042502
042522

PAGE 227

042524
052504
041440
042116
020105
051122

IMMmmIMImMMmMMmMMmMMmMMmMMmMMmMMmMMmMMMIT
RS
eSS

POWER DOWN AND UP ROUTINES

047117
020123
043516
040515
051105
042440
000
041505
040522
046517
041440
020104
050117
043505
020122
042507
042117
020101
020123
051440
020104
042510

047111
042101

13:06

L SR

042105
020101
020123
052123
047117
020123
020122
047101
047111
050125
046111
042510
040440
052101
046515
047506
042101
041505
052040
040503
005015
051105
020055
020124
020123
020113
020107
042524
051040

27-JUL-78

FEA

10333

MACY11 30A(1052)

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JuUL-78 13:05

064200

047111

020124
05344C
05251¢
020123
044124
042101
015
020104
051105
047524
040440
052101
042122

LASCII

/FIRST FOUR WORD NUMBERS ARE THE HEADER./<12><15>

LASCII

/WORD NUMBERS 5 TO 260 ARE DATA WORDS,/<12><15>

047111
020101
020123
032040
033454
053111
041501
041115

LASCIZ

/AND IN DATA WORDS BITS 4,5,6,7,8 GIVE

LASCII

/READ HEADER AND DATA ERROR IN/<15><12>

(mle

TRACK NUMBER./

EM70:

044040
020122
040504
051122
006516

043111
041516
042516
006524
051117
020123
044507
040505
012
051137
020123
020060
042040
044127
051511
041440
042504

042506
020105
052040
012
020104
026461
042526
042504

LASCII

/DIFFERENCE LINE TEST/<15><12>

LASCII

/WORD NOS 1-4 GIVE HEADER/<15><12>

020104
026465
044507
052101
041511
052040
046131
020122

LASCIZ

/WORD NOS 5-260 GIVE DATA WHICH IS THE CYLINDER ADDRESS/

042101
042504
020104
042440

044440

OO M

/READ HEADER AND DATA ERROR IN HEAD SELECTION TEST./<12><15>

EM67:

Rae Nae Ran W o

104

042522
044514
051505

LASCII

044040
020122
040504
051122
020116
051440
044524
051505

o N

042522
040505
047101
040524
051117
012

051124
052516
000056

SEQ 0227

PAGE 228

lal el e

034054
020105
020113
051105

042040
047527
006412
020104
052101
042122
051524
033054
043440

POWER DOWN AND UP ROUTINES

OTM

042101
042504
020104
042440
044440
042101
041505
052040

13:06

RRSRVEENRE 3 SURFENG

064066
064074
064102
064110

042522
040505
047101
040524
051117
042510
046105
047117
027124
044506

27-JuL-78

064036
064044
064052
064060

33 REERREE

10389
10390
10391
10392
10393
10394
10395
10396
10397
10398
10399
10400
10401
10402
10403
10404
10405
10406
10407
10408
10409
10410
10411

MACY11 30A(1052)

(ZRJICO, RPO4/5/6 FCTNL CTLRI
27-JuL~-78 13:05
CZRJIC.PM

047111
020111
044440
050040
006523

052501
046511
051105
05151
044103
005015
042117
020101
020123
051440
020104
042510

064630
064634
064642
064650
064656
064664
064672
064700
064702
064710
064716
064724
064732
064740
064746
064754
064762
064770
064775
065002
065010
065016
065023

LASCII

/FORCING OPI BY 3 INDEX PULSES/<15><12>

042523
051120
051040
042524
047101

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
044510
044523
044516
006502
040505
040524
042523
051120
051040
042524
047101

053111
052101
042526
044507
041440
052116
042524
047111
052520
000
042514
043516
052502
012
020104
041440
020104
050117
043505
020122
042507

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER 3 INDEX PULSES/

.ASCI1

/WHILE USING UNIBUS B/<15><12>

LASCII

/READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12>

042117
020101

042040
044507
044127
047510
042502
042522

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042503

053111
052101
042526
052101
052040
040440

.ASCIZ

/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/

020123
051440
020104
042570

042510

051501
042522

EM71:

EM72:

law

10461
10462
10463
10464
10465
10466
10467
10468
10469
10470
10471
10472
10473
10474
10475
10476
10477
10478
10479

064614
064622

SEQ 0228

POWER DOWN AND UP ROUTINES

lvlviBvivivivilelviviviviloleololy

041522
050117
031440
054105
042523

042101
000123
047506
020107
054502

£
13:06 PAGE 229

ofelvivivivlivivivivivivlvlvilivivie)

051505

064524
064532
064534
064542
064550
064556
064564
064572
064573
064600
064606

27-JUL-78

slelelevlelelelelele]

051104

10445
10446
10447
10448
10449
10450
10451
10452
10453
10454
10455
10456
10457
10458
10459
10460

30A(1052)

TMM

CZRJICO, RPO4/S5/6 FCTNL CILRI
27-JuL-78 13:05
| rZRIIC.PN

MACY11

052106
046517
000
127
052440
052440
020123

041440
042116

044510

042514
043516
052502
012
020104
044440
042522

EM73:

042514
043516
052502

EM74:

122

012

042524
020101
047101
051525
050115
020122
052123
040510

012
020104
043440
053440
044123
041040
051105

044505
040504
053111
043505
020122
047105
052106
046517
000
042514
043516
052502
012
042524
020101
047101
047101
051127
051106
043125

122
042526
040524
051505
051511

047503

051524
051105
040515
127
052440

052440
020123
127
042040
047503

041040

046111
047111
041111
005015

020105
020107
051525

PAGE 230

LASCII

/WHILE USING UNIBUS B/<15><12>

LASCIZ

/READ DATA INCORRECT/

.ASCII

/WHILE USING UNIBUS B/<15><12>

LASCII

/WRJTE DATA COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

.ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

LASCII

/WHILE USING UNIBUS B/<15><12>

.ASCIZ

/WRITE DATA COMMAND CHANGED WRITE FROM BUFFER/

LASCII

/WHILE USING UNIBUS B/<15><12>

SEQ 0229

[Tl

POWER DOWN AND UP ROUTINES

051105
040515

040504
041516
052103
127
052440
052440
020123
127
042040
047503
020104
042105
047522
042522
051105
043516
107
040504
053111
040510
052517
020105
006505

J
13:06

(vlvivlvlioivivlolele)

065210
065216
065224
065225
065232
065240
065246

27-JuL-78

10501

MACY11 30A(1052)

EM75:

EM76:

mmmMmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm

CZRJICO, RPO4/5/6 FCTNL CTLR1
27-JuL-78 13:05
CZRJIC.PN

10557
10558
10559
10560
10561
10562
10563

065674
065702
065710
065716
065724
065732
065740
065746
065751
065756

051127
044103
040503
044440
042520
044507
041440

052111
041505
051525
050115

MACY11 30A(1052)

27-JuUL-78

13:06

POWER DOWN AND UP ROUTINES

PAGE 231

SEQ 0230

020105
020113
042105
047522
042522
051105
043516

LASCII

/WRITE CHECK CAUSED IMPROPER REGISTER CHANGE/<15><12>

020104
043440

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

044505
040504
053111
043505
020122
047105
052106
046517
000
047514
020107
023503
051117
047504
042516
051505

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

LASCII

/PRELOADING 'RHCC' PRIOR TO DOING NEXT TEST DOES NOT PRODUCE CORRECT RES

.ASCIZ

/THEREFORE NEXT TEST RESULTS ARE SUSPECT WITH REGARD TO "RHCC® CONTENTS/

LASCIZ

/ADDRESS PLUG CHANGE RESULTED IN BAD REGISTER DATA/

053440
044123
041040
051105

020116

041440
052176

041510
047117
000123

051104
046120
040510
042522
042105
040502

051505
043525
043516
052523
044440
020104

EM77:

EM100:

"M TIMMmMMMmMMmMMmMMmMMmMMmMmmMmMmMmMmmMmMmmMmMmmMmmMmMmMmmmMmmMmMmMmmMmMmmmmmmmmmm

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27=JuL-78 13:05

044507
042040

052123
052101

052111
047040
020117
047111
047105
042522
052514
047515

042040
052117
043117
020105
040440
051523
020107
042526

EM101:

LASCIZ

/UNIT DID NOT GO OFFLINE WHEN ADDRESS PLUG REMOVED/

052111
040440
041101

047040
040526
042514
051105
042522

EM102:

.ASCIZ

/UNIT NOT AVAILABLE AFTER ADDRESS PLUG REPLACED/

EM103:

LASCIZ

/REGISTER CONTENTS INCORRECT BEFORE A DIAG MODE SEEK/

EM104:

.ASCIZ

/REGISTER CONTENTS INCORRECT AFTER A DIAG MODE SEEK/

052514
046120
000
051511
047503
051524
051117
041040
020105
043501
020105
000

051511
047503
051524
051117

042505

000113

040440
040440
020107
051440

SEQ 0231

PAGE 232

MMM

10617
10618
10619
10620
10621
10622

POWER DOWN AND UP ROUTINES

10616

13:06

oTM

10615

042522
051105

27-JuL-78

TTom

10613

10614

MACY11 30A(1052)

rTrT

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27=JUL-78 13:05

13:06

POWER DOWN AND UP ROUTINES

020114

040506
051105
020055

27-JUL-78

CPHALT:

PAGE 233

SEQ 0232

LASCII

/FATAL ERROR = SEE DOCUMENT LISTING/<15><12><15><12>

LASCII

/THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<15><12>

005015
020105
047522
047440
044526
051501
020105
047111
051517

047503

042522
020054
042515

042101
042502
052440
046111
020054

LASCII

/'READY', BECOME UNAVAILABLE, OR HAS STATUS BITS/<15><12>

020110
052117
046103
000104

LASCIZ

/WHICH CANNOT BE CLEARED/

LASCII

/PC

TEST

WAT

BIT

REG

.ASCIZ

EXPECT

ADDRESS CONTENT CONTENT/

LASCII

/PC

TEST

WAT

BIT

REG

046114
020122
042503
043440

043117

026105
006524

051501
052524
051524

RHCS1/<15><12>

REG

DH1:

e B

020040

020040
051503
020040
047040
020040
020040
050130
040440

042524

020040

—

051523
042524
047117
000
020103

DHé4:

TIME IN/<15><12>

mMmPePIITOIFPFOETRRRTRRR

066720
066726
066734
066742

MACY11 30A(1052)

2K 2K 2 2K 7% 2K 2K 7K K K 7K 7K 7K 7K 7% 7K bt et bt it

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27=JuL=78 13:05

070022
070030

PAGE 234

SEQ 0233

LASCIZ

020040
052123
042522
020040
020040
042503
005015
020040
020040
042101
020123
020040
040524

DH5:

020040
051505
051040
020040
044505
012
020040
020117
040440
051523

DH6:

051104

051505

020040

020040
052123

040506
020107
047105
052116

047105

047503
020124

LASCII

/PC

.ASCIZ

.ASCII

/PC

.ASCIZ

EXPECT

ADDRESS 10 MSEC/

TEST

REG

GOOD

RECEIVED/<15><12>

ADDRESS DATA

TEST

REG

ADDRESS DATA/

DATA/

RECEIVED/<15><12>

DH7:

LASCIZ

/PC

TEST

REG

DH10:

.ASCII

/PC

TEST

FAILING CONTENT CONTENT CONTENT CONTENT/<15><12>

I I

ADDRESS/

MO ITTMT UV OOV TUT UV T TTM OOV DUV VUV OUVVVVOVOVO0000000000000

POWER DOWN AND UP ROUTINES

051505
053440

020040
020124
052101
041040

052116

13:06

10711
10712
10713
10714
10715
10716
10717
10718
10719
10720
10721
10722
10723
10724
10725
10726
10727
10728
10729
10730
10731
10732
-10733
10734
10735
10736
10737
10738
10739
10740
10741
10742
10743
10744
10745

067344
067352
067360
067366
067374
067402
067410
067416

27-JUL-78

10707
10708
10709
10710

MACY11 30A(1052)

T
m

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRIIC.PN
27-JUL~-78 13:05

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PM
27=-JUL-78 13:05
10763

10764
10765
10766

10767
10768
10769
10770
10771
10772
10773
10774
10775
10776
10777
10778
10779
10780
10781
10782
10783
10784
10785
10786
10787
10788
10789
10790
10791
10792
10793
10794
10795
10796
10797
10798
10799
10800
10801
10802
10803
10804
10805
10806
10807
10808
10809
10810
10811
10812
10813
10814
10815
10816
10817
10818

070036

047503
006524

MACY11 30A(1052)
047105

020040
047040
020040
020056
041510

020040

020103
052040
020040
020124
047117
041440
043117
020124
047117
041440
043117

020040
051505
041440
043117
020124
047117
041440
043117
020124
047117
005015
020040
020040
044122
020040
020062
051504
044122
020040
020062
051105

DHZ26:

020040
052123
047527
020040
020040
006504

DH30:

051040
020040
030523
042510

020061
051503
044122
020040
020061
051105
044122

020040

040502
020040
047040

13:06

POWER DOWN AND UP ROUTINES

052116
012

27-JuL-78

LASCIZ

020117
051040
020040
030523
041510
051040
020040
030522

LASCII

/PC

LASCIZ

020040

LASCII

/PC

LASCIZ

020117
047040

PAGE 235

SEQ 0234

RHCST

RHCS1T

RHDS1

RHER1/

REG.

TEST

CONT OF CONT OF CONT OF CONT OF CONT OF CONT OF /<15><12

RHCST

RHCS2

RHDS1

TEST

WORD

GOOD

BAD/<15><12>

DATA

DATA/<15><12>

TEST

REG

GOOD

RECVD

RHERT

RHER2

020040
020101
052101

070514

020104

020040

020040
052123
042522
020040
020040
053103
046111

DHS51:

LASCII

/PC

ILLEGL/<15><12>

RHER3/

CZRJICO, RPO4/S5/6 FCTNL CTLR1
CZRJIIC.PN
10819

070522

10821
10822

070536
070544

10820

27-JUL-78 13:05
042514

046107

020040
020040

047516
020040

070530

020040

10823
10824
10825
10826
}gggg

070552
070560
070566
070574
070602

051104
040504
020040
020040
041516

10829

070607

10838

070670

10830
10831
10832
10833
10834
10835
10836
10837
10839
10840

10841
10842
10843

10844
10845

10846

10847
10848
10849
10850
10851
10852
10853
10854
10855
10856

10857

10858
10859
10860
10861
10862
10863
10864
10865
10866
10867

10868

10869
10870
10871
10872
10873
10874

020040

051104
040504

051505
040524

020123
020040

020040

020040
000107

070752
070760
070766
070774
071002
071003
071010
071016
071024
071032

020040
020040
047440
044122
012
040
020040
020040
051123
053440

041520

120

071044
071052
071060
071066
071074
071076
071104
071112
071120
071126

020040
020124
020103
051040
005015
020040
020040
020040
020122
040527

071140
071146
071154
071162
071170
071176

020040
020040
052116
047503
020040
020040

071132

020123
020040
040524
052506
000

020040

070734
070742

071037

051505
040524
040504
020040
047124

020040
042101

020040

020040
020040

070744

020040

070676
070704
070726

005015

020040

020103

020040
020124
043505
043440
020040
042126
042117
005015

041520

052040
020040
020040
047517
051040
020040
044506
047516
020040
040504

020040

051505
051040
020040
020104
041505
046440
043516

020040
020117
045040
020040

020103

020040

020040
047516
020040
020040
00012

020040
020040
051512
020040

042524
020040
020040
052116
047503
020040

052123
047503
020040
020040
052116
005015

020040

PAGE 236

SEQ 0235

JAKIL

[

ADDRESS DATA

DATA

.ASCII

/PC

TEST

REG

GOOD

RECVD

LASCIZ

ADDRESS DATA

DATA

.ASCII

/PC

TEST

PC OF

RHCS1/<15><12>

LASCIZ

JSR

WAS/

.ASCII

/PC

TEST

PC OF

RHDS1/<15><12>

LASCIZ

JSR

WAS/

.ASCII

/PC

TEST

CONT

FUNCTN/

MODF ING/<15><12>

REG/

042522

020040
047040
020040
020040
052040
020040
043117
042110

13:06

040524

020040

051501

DH60:

020040
042101

020040
042524
020040
020106
051503

27-JuL-78

POWER DOWN AND UP ROUTINES

120

070614
070622
070630
070636
070644
070652
070660
070666

070712
070720

MACY11 30A(1052)

052123
041520
020040
006461

000

051505
050040
020040
030523

020040

DH61:

DH62:

DH65:

CONT

/<15><12>

CZRJICO, RPO4/5/6 FCTNL CTLR
CZRJIC.PN
27-JUL~78 13:05

MACY11 30A(1052)

10875
10876
10877
10878
10879
10880
10881
10882
10883
10884
10885

020040
020040
044122
020040
020040
051504
000
020040
051505
051040
020040
030522
042510

10889
10890
10891
10892

10893
10894

10895

071353
071360
071366
071374
071402
071410
071416
071424
071430
071436

031122

042510
051040
020040
031123
120
020040
020124
020103
051040

041510
051040
000

020103
052040

071444
071452
071460
071466
071474
071502

13:06

POWER DOWN AND UP ROUTINES

SEQ 0236

PAGE 237

.ASCIZ

RHCS1

RHAS

RHDS1

DH66:

LASCIZ

/PC

TEST

RHDST

RHER1

RHERZ2

RHER3

DH77:

LASCII

/PC

TEST

PC OF

REG.

GOOD

BAD/<15><12>

LASCIZ

JSR

ADDR

DATA

DATA/

RHCS1

051040
020040
030523
041510

020040
051505
050040
020040
020056
047517
041040
020040
020040
051512
020040
020040
040524
040504

.EVEN

071506
071514
071522
071526
071534
071542
071546
071554
071562
071570
071574
071602

071604
071612
071620
071624
071632

004604
041710
000000
004604
041710
000000
004604
001126

10886
10887
10888

071204
071212
071220
071226
071234
071242
071250
071255
071262
071270
071276
071304
071312
071320
071326
071334
071342
071350

27-JuL-78

004604
002404

041706
001126

DT1:

.WORD

$ERRP(, TSTNM,WAITPC ,WAITBT ,WAITRE ,$8DDAT,(S1,0

041706
001126

DT4:

.WORD

$ERRPC,TSTNM,WAITPC
,WAITBT ,WAITRE ,$BDDAT ,WAITTM,0

004600
000000
004600

DTS:

.WORD

$ERRPC, TSTNM,REGADR,
$GDDAT , $8DDAT ,0

DT6:

.WORD

$ERRPC, TSTNM,REGADR,
$BDDAT, 0

001200

DT7:

.WORD

$ERRPC,TSTNM,$TMP1,0

001122
002404

DT10:

.WORD

$ERRP(C, TSTNM, $BDADR,(S1,(S2,DS1,ER1,0

002362
002364

DT26:

.WORD

$ERRP(C,TSTNM,(S1,(S2,DS1,ERT
ER2,ER3,0

RH(CS2/

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PI
27-JuL-78 13:05
071640
071646
071654

002370

071662
071670
071676

001116
001124
000000

001116
001124

071700
071706
071714
071716
071724
071730
071736
071742
071750
071756
071764
071772

10983

10985
10986

MACY11 30A(1052)

27-JUL-78

£
13:06

POWER DOWN AND UP ROUTINES

002376
004604

001126

000000
004602
000000

004604
001126

3
PAGE 238

DT30:

.WORD

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

004600
002464

DTS51:

.WORD

$ERRPC, TSTNM,REGADR,
$GDDAT , $8DDAT , ILLEGL ,0

004604
001126

004600
001122

DT60:

.WORD

$ERRPC, TSTNM,REGADR,
$GDDAT , $8DDAT , $BDADR, 0

004604
000000

041512

DT61:

.WORD

$ERRPC,TSTNM,PCJSR,
$BDADR, 0

041512

DT62:

.WORD

$ERRPC,TSTNM,PCJSR,
$BDADR, 0

002362
000000
002364
002362

DT65:

.WORD

$ERRPC,TSTNM,(S1,AS,DS1,0

DT66:

.WORD

$ERRPC, TSTNM,ER1,ER2 ,ER3,(S1,(S2.0

DT77:

.WORD

$ERRPC, TSTNM,PCJSR,REGADR,
$GDDAT , $BDDAT, 0

000000

071776
072004
072012

001116
004600
000000

004604
001124

041512
001126

072014
072017
072022
072023
072026
072031
072032
072035
072037
072042
072043

000
000
000
000
000
000
000
000
000
000
000

000
000

DF1:

000
000

000
001

DFé4:

.BYTE

0.0,0.0,0,1,0

000
000
000

000

DF5:

.BYTE

0.0,0.0.0

000

DF6:

.BYTE

0.0,0.0

000

DF7:

.BYTE

0.0.,0

072046
072051
072054

000
000
000

000
000

000

DF10:

.BYTE

0,0,0,0,0,0.,0

072055
072060
072063

000
000
000

000
000

DF26:

.BYTE

0.0,0,0,0,0,0.,0

072065
072070

000

000
000

000

DF30:

.BYTE

0.0,0,0,0

072072
072075

000
000

DF51:

.BYTE

0,0,0,0.,0.0

072100
072103
072106
072111
072112

000
000
000

DF60:

.BYTE

0,0.0,0.0,0

DF61:

.BYTE

0.0.,0.0

000

DF62:

.BYTE

0.0.0,0

0.0,0,0,0,0,0

SEQ 0237

CZRJI1CO, RPO4/5/6 FCTNL CTLR1
27-JuL-78 13:05
CZRJIC.P1
10987
10988
10989
10990
10991
10992

072115
072116
072121
072123
072126
072131

10994
10995
10996
10997
10998
10999

072133
072136

10993

11000

000
000

MACY11 30A(1052)

27-JuL=78

13:06

POWER DOWN AND UP ROUTINES

PAGE 239

000
000
000
000
000

000

DF65:

.BYTE

0,0,0,0,0

000
000

DF66:

.BY1¢

0,0,0,0,0,0,0,0

000
000

pDF77:

.BYTE

0,0,0,0,0,0

072142

.EVEN

000001

.END

SEQ 0238

ATABLE

004666

ATTENT
ATO
AT1
AT2
AT3
AT4
ATS
AT6
AT7
A16
A17

004740
=
=
=
=
=
=
=
=
=
=

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

BA
002356
= 000010
BAI
BASECH 043612

BEGIN
BEGIN1
BEGINZ
BIRD
BITO =
BITOO =
BITO1 =
BITO2 =
BITO3
BITO4
BITOS
BITO6
BITO7
BITO8

=
=
=
=
=
=
BITO9 =
=
BIT1
BIT10 =
BIT11 =
BIT12 =
BIT13 =
BIT14 =

005012
004762
004776
020162
000001
000001
000002
000004

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

BIT15 = 100000
BIT2
BIT3
BIT4
BITS

=
=
=
=

BIT6 =
BIT7 =
BIT8 =
BIT9 =
BPTVEC=
CA

000004
000010
000020
000040

000100

000200
000400
001000
000014

002374

8472«

18474

2273

18714

15844
15854
15864
15874
1588#
15894
15904
15914
15274
1528#

17674
15004
640

639
643
641
3734
6294
6294
6294
6294

6294
6294
6294
6294
6294
6294
6294
6294
629#
629%
6294
6294
629%

6294

6294
6294
629%
6294

6294
6294
6294
6294
6294
17764

g
g

2055
8717#

1778%

4192

T 55 G

155248

002400

2841

¥ g

= 100000

2788

9179

10946

3129

3814

4003

6175

4259

6634

6800

7749

8167

2216

2273

2790

2848

3124

3266

3383

3493

3693

3809

4021

9143
3224
86684

3241
8721

B747
B755

9103

2774

4260

2829
6629

6795

7752

ATA

SEQ 0239

4176
o

001000

100000
000204
044576

PAGE 241

CROSS REFERENCE TABLE == USER SYMBOLS

16844

16824
16424
6504
8679
15644

= 020000
000040

=
ACL
ACU
=
ADDMOD
ADTIMO
AOE
=

13:06

ol ol

ACE

27=-JuL-78 13:05

27-JUL-78

[ ul

CZRJIC.PN

MACY11 30A(1052)

1902#
18964
18994
37484

9088
8762
9095
8736

4263
B254

9175

8716

9374
-—-—a
" «
=
=

CZRJICO, RPO4/5/6 FCTNL CTLR1

CLDISK

041456

7282
7688

2215
2953
3849
5049

6733
CLR
= 000040
COMPAR 043474
COMREG

CPHALT

042444

066720

7992
1502#

4455
6133
2521
4266
5943
7757

2489
4076

5770

=
CR
CRLF
=
CSF
=
CSU
=
(S1
(S2
DB
DCK
=
DCL_
=
DCLEAR
DDISP =
DE1__
=
DFF20 =
DFF5 =
DF1
DF10
DF 26
DF 30

000015
000200
000002
000010
002362
002360
002352
100000
000100
002430
177570
000040
000002
000001
072014
072046
072055
072065

DF4

072023

7345

6294
6294

16294
16314
17714
1768#
17654
15704

16834
17974

6294

15424
15384
15374
722

109764
758

7286
7781

2336
3014
3867
5160
6830
81254
8130
4560
6251
2609
4436
6114
7861
2560
4298
5894
7418
8872
8847

2747
2724

3194
679

1439
1002
109594

81474

3156

2837

2842
4015
7852

4166
83924

4171

4815
5299
5746
6453
6995
7463

4822

5303
5853
6664

4826

5419
'5869
6677

4935
5423
5991
6681
7278
7607

2655
3610

2676
3730
4683
6301

2812
3741
4810
6432

7687

4931
6584
7778

4968
6865

3611
5081
6904

3753
5205

3850
5327

3885
5462

2759

2770
3424
6635
93384

2779
3433
6796

2784
3534
6801

2816

2825

2832

3815
7740

4007
7745

4687

4691

4700
5181
5703

4704
5288

4811

6478

3288
6630
9102
4470
5057
5564
6034
6849
7290
7787

3091

6697

4581
5164

5568
6148
6939

2354
3061

7322

2412
3319

4280

4074

5563
7073

5287
6903

4914

4668

6882
3042

6542
2796
4542
6232
84594
2678

4778

6526
3016

4606

4387

6059

5168
5575
6163
6943

6357

5177
5579
6315
6947
7447

2446
3346

7025

3543

7657

6332
6951

5718
6433
6955
7455

2487
3471

2558
3587

2644
3598

7451

4314

7160

7248

5035

7142

3135

4898

6642

3092

3810
7730

5852

5145
7816
3298
5018
6808

3157

6147
7413

5272
86284

5391

5548

5669

5838

5962

3443
5129
7055

3553
5255
7123

3704
5375

3823
5530

4026
5652

4180
5819
7665

3348

3473
5082
6905

3612
5206

7026

3754
5328

3851
5463

7180

3869
5606
7250

1226

1335

1346

1377

1396

7270

4969
6866

7521

106534

9151

10913
9147

10926
10926

10929
10929

10946
10948

10948

109684
1475
1096

109724
1130

1154

1190

2960

2918
3752

4577
6269
7443

7624

8881
8881

7274
7494

3218

4469

4851

6698

7002
7490

3125

7520

4331
5979

4729

6479

7179

5292
5735
6449
6984
7459

4296

5691

7091

4386
6058

4199
5769
7344

4850

3015

4297
5893
76417

4084
5605
7249

4728

7227

7603

7392

7092

7568

1929

734

813

4075

109564

843
1463
1035

([l

AR AARAAAN
AN A

5050
5436
6023
6845

4050

LA LALA R A AR A AR A A A

6006
6831

4362

3868

MBIB LB LB LA A LR L

4944
5432

3472

ASASASASAS
LD LS LS L

8735
4345

3347

4250

2559
8157#
2919
4605
6356
81534
2599
3235
4255
9083

6186
7623
2512
3227

37374

9195

(KSWR = 1044C.
CLAREA 041326

4494

SEQ 0240

042336

2488
8151
2677

CHREG

041536

3723

1785#

CHECKT

020126
002416
041514
041552

—

CAT
cC
CHECK
CHECKC

MACY11 30A(1052)
27-JUL-78 13:06 PAGE 242
CROSS REFERENCE TABLE == USER SYMBOLS

OO~
P2
LAV B o
00— ~NwW

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PM
27-JuL-78 13:05

30A(1052)

768
1012
1282
1169
778
1256
1265
1274
1306
1324

853

865

879
1057
1370

739
819

106864

DH51
DH6
DH60
DH61
DH62
DH65
DH66
DH7
DH77
DIGB =
DISPLA
DISPRE
DLT
=
DL64 =
DMD
=
DOG
DPR

070450
067617
070607
070744
071037
071132
071255
067716
071353
000004
001142
000174
100000
000020
000001
017352
000400

DRY

= 000200

DST
DSWR
DS1
DT
DTE
DTSY
DT1
DT10
D126
DT30

002366
= 177570
002404
002406
= 010000
= 001000
071506
071604
071624
071646

DT4
DTS

071526
071546

1444
1016

107064

848

757
767

101

950
1202

973
1214

994
1239

860

835

1456
1033

107554
1468
1094

107754
1128

1152

1188

1224

1333

1344

1375

1394

874

937

948
1200

971
1212

992
1237

888

900

1181

1929+
1936

8776

9087

2645
35944
2456

2692

2846

3588

3599

3731

3742

7972

2745
5106

3677
5232

3797
5352

3997
5629

4156

5796

4240
5920

4413
6085

4519
6211

4630

2458
6771

2749

3968
5488
8168
4003

4138

4222

4307

4320

6297

6605

2745
2329+

7975
9207

10926

10929

10946

733
812
1438
1001

109134
842
1462
1034

1189

1225

1334

1345

1376

1395

919
1120

1142

929

938
1182

949
1201

972
1213

1238

9171
678

109324

939

1069

4875
6616

961
982

1183

1055
1368

1026
1292
10812#
107374
108294
108464
108574
108684
108824
107484
10894#

72
798

930
1143

e Rsaksal

067337
067500

1432
1000

805

920
1121
109624

109164

852
1027

1044
1355

7204

7266

878

1056

1386

1081

1406

7369
3659
7439

7546
3786
8168

7987

9155

109264
1474
1095

10929#
1129

892

1070

904

1082

6385

993

L 4 Ll Ll Ll Ll Ll Ll Ll bl Ll s Gl G G G G s G 4R WA A A A

DH4
DH5

786

1418

913
1108
1427

AMLmimimam

072072
072037
072100
072106
072112
072116
072123
072043
072133
067160
067756
070135
070334

1046
1360

905
1083
1408

PR
S
S

DF 51
DF6
DF60
DF61
DF 62
DF 65
DF 66
DF7
DF 77
DH1
DH10
DH26
DH30

1028
1294
109794
109644
109824
109844
109864
109884
109904
109664
109944
727

893
1071
1388

~Nno

072032

-0

DFS

SEQ 0241

MACY11

(e ak:aksel

3
I
27=JUL=78 13:06 PAGE 243
CROSS REFERENCE TABLE == USER SYMBOLS

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRIIC.PN
27=-JuL-78 13:05

EM104
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
EM4
EM4O

066635
051707
052014
052122
052244
052317
052460
052606
051147
052743
053107
053162
053235
053400
053543
053725
054015
051236
054233
054313
054530
054637
055041
055065
055303
055360
051317
055575

106164
10625#

106334
106424
94574

946954
94814
94954
95034
95214
95374
93944
95554
95734
95814
95894

96074

96254
96454
96554
94044
96824
96914
97174
972

97534

97574
97824
97904
94134
98164
98404

4512

4623

4485

4595
5594

4596
5761

4840
5884
7082

4841
6049
7168

7508

4719
5883
7081

4959

5317
6468

4377
5318
6694
7621

2035+«

2072«

3540
5196
6467

4263

1916«

7507

5099
7197

5225
7362

5593
6862
7800

6863
7801

M
AAARAAAAN

4406

5789

7016

5913

6078

6204

6378

6176
7169
R LA

002412
002414
000030
051120
051640
066326
066410
066472
066551

4226

EC1
EC2
EMTVEC=
EM1
EM10
EMI100
EM101T
EM102
EM103

7335

4142

6177

3430
5072
6347
7336
9199
9203
1915«
93904
94504
106074

3949
5622

2585

16554
5071

3790
5481
8159

2469
4988
6775

1407

s &

15614

6609

2747

1387

Ll G

= 000100
= 004000

4868

109194

1369

ECH
ECI

2372

1426

1359

071776
= 004000

071574

1264

1273
1305
1323
785
1417
15304
4748
6496

1293
109354
109214
109394
109424
109444
109464
109484
109234
109524

bl G

D77
DVA

DT?7

1281
1168
777
1255

Ll Ll Ll

071662
071562
071700
071716
071730
071742
071756

SEQ 0242

ALl Al Ll Ll

DT51
D16
DT60
DT61
DT62
DT6S
DT66

J
3
MACY11 30A(1052) 27-JUL=78 13:06 PAGE 244
CROSS REFERENCE TABLE == USER SYMBOLS

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JuUL-78 13:05

056265
EM&2
EM43
056543
EM4S
057105
EM4S
057377
EM46
057673
EML7
060006
EMS5
051430
EMS0
060270
060507
EMS1
060754
EMS2
EMS3
061231
EMS4
061317
EMSS5
061564
062052
EMS56
EMS7
062262
051502
EM6
EM60
062554
063165
EM61
EM62
063246
EM63
063327
EM64
063403
EM6S
063622
EM66
063644
EM67
064036
051570
EM?7
EM70
064326
064534
EM71
EM72
064775
EM73
065225
EM74
065277
065543
EM75
065646
EM76
066103
EM77
ERFLGS 004734
= 040000
ERR
ERRVEC= 000004
ERWORD 004602
002364
ER1
002370
ER2
002376
ER3
= 000001
EXT1
EXT10 = 000010
EXT2 = 000002
EXT20 = 000020
EXT4 = 000004
EXT40 = 000040
FEN
= 000200
FER
= 000020
FILL
042402
FILLRE 041360

1074
1086
1099
1111
1124
1133
761
1146
1157
1173
1186
1193
1205
1217
1229
771
1242
1259
1268
1278
1286
1299
1310
1326
781
1337
1349
104764
1373
1362
1391
1399
1411
18674
15514
6294
18264
17724
17744
17774
16054
16124
16104
16134
16114
16144
16354

15594
84224
3206
3421
4532
5011
5639
6107
6792

MACY11 30A(1052)

27-JUL-78

13:06

SEQ 0243

PAGE 245

CROSS REFERENCE TABLE == USER SYMBOLS

98714
99024
99424
99754
100084

105044
1380
105414
105534
105814

9084*
2776
1926

8641«
9159
9163
9167

105124

2831
1927«
8647%

10926
10929
10929

4310
1937«
10932
10929
10948
10948

7751

2037+

7975

2045«

7987

2074

8739

8740«

8742+

8745+

10948

3255
3694

3285
4429

5245
5812
6398

5520
6101
6519

4765

7112

7382

‘aial

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PM
27-JuL-78 13:05

CZRJICO, RPO4/5/6 FCTNL CTLR1
27-JuL-78 13:05
CZRJIC.PIN
FINACC
FINALA

004664
004662

FISH
FLHEAD

017406
041302

FIRST

004736

FMT22 = 010000

7556
18414
18404
18684

3591
4335
6322

16564
4841
5760

6695

FUTABL

GNS

002422

= AANRRR U

7620

17934
630
2130

2318
2740
3865
8531

= 000001

8708
9167
9333

15244

3663

4316
5088

5913
6739

= 000010
GRV
GTSWR = 104406
HCE
= 000200
HCI

HCRC
HT
HT.

= 002000

= 000400
= 000011
= 003323

7528
15404
1978
15624
16544

5451
7336
15634
624

25064

3
PAGE 246
CROSS REFERENCE TABLE == USER SYMBOLS

MACY11 30A(1052)

27-JUL-78

7737

L
13:06

SEQ 0244

80734

7559

7562

1949

1972«

4355
6441
3428
4958
5761

5694
6670
3538

5982

5997

6154

4485

4595

4719

6863

7168

7169

7507

1959

1971

2020

8229+
8230«

4959
5883
7701

2134
2341
2928
4043
8538
8712

7891

8702

9159
9211

3516

2574
3790

4406

3542
5761

2072
2718
3339

9175
9335

5212
6078
6775
7630

5593
6468

7186

7197

4226
4975
5789
6609
7362

5318

7169

7621

31984

4069

L6174
5344
62954
6774
73564

IAE
IE

= 002000
= 000100

3954
4501

5225
6193
6872
7713

= 000001
ILF
ILLEGL 002464
000002
ILR

CZRJICO, RPO4/S5/6 FCTNL CTLR1
CZRIIC.PN

27-JuUL-78 13:05

MACY11 30A(1052)

18784
629#
1503#

2931+
1913«
2436

2975
1914~
3222

LA
LBT
LF

1786#
1547#
629#

9191
B167
8876

8881

L1368
4622
54754

4141
L7428
5480

42208
4747
56164

LT.

002420
= 002000
= 000012

= 000105

16394
6584
6584
6584
6584
6584
6584
6584
6584
6584
6584
6584
6584
6584
6584
6584
6584

2506#
3203

6300
68754

MAKECY

041126

MCLK
MCPE
MHS
MINX
MMVEC

=
=
=
=
=

000250

15754
15314
16374
15764
6584

MPE

= 000400

15054

MRD

= 000020

15784

MOL

000002
020000
001000

7361

2646

= 010000

002402

MSE
= 000020
MSTCK = 000010
MJR
= 000040

MXF

= 001000
NED
= 010000
NEM
= 004000
NHS
= 002000
NOPERA 002422

NOPUSH

004724

NUNIT

004722

NOUNIT

004720

15494
3999
5488

1779#

16324
15774
15794

15064

1509
15084
16384
17944

18614

18574

18594

13:06

PAGE 247

SEQ 0245

CROSS REFERENCE TABLE == USER SYMBOLS

INUNIT 004752
IOTVEC= 000020
IR
= 000100

= 004000
IXE
KIPARO= 172340
KIPAR1= 172342
KIPAR2= 172344
KIPAR3= 172346
KIPAR4= 172350
KIPARS= 172352
KIPARG= 172354
KIPAR?7= 172356
KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDR3= 172306
KIPDR4= 172310
KIPDRS= 172312
KIPDR6= 172314
KIPDR7= 172316

27-JUL=78

2511
34104
63724
6880

74378

3239

7727

7728

25794
3415

2584
35204

28804
3525

2885
36574

6377
69204

64904
6925

6495
70354

7442

4225
48624
5621
75334
3600

43054
4867
57834

4310
49824
5788

7538

76344

2657

3589

3732

2467

2769

2824

2337
4000
5629

2345
4156
5796

2430
4240
5920

2454
4413
6085

3226
2724
5501

2783

2836

2960

3019

3030

3094

2151«

2193+«

2200

66034
7040

29904
3662

2995
37844

30344
3789

3039
38784

2200«

1900+

2201+

3105

3859
5106
7204

3970
5232
7369

3971
5352
7546

44004
5098
60724

4405
52194
6077

45064
5224
61984

7639

771648

7721

78094

7814

6608
71014

67074
7106

6712
71914

67448
7196

3743

79644

2592
4519
6211

3334
4630
6385

3344
4755
6503

3677
4875
6616

3797
4995
6782

2415

2680

2908

3320

3839

7593

3119

3242

3664

3950

4013

4143

4227

7907+

31984
4069
46174
5344
62954
6774
73564

4323
5093#
5912

1903«

2246%

6749
72644

3114
40644
4511
5339#
6203
67698
7269

43184
4987
59074

9187

1896+

31094
3883

CZRJICO, RPO4/5/6 FCTNL CTLR1

MACY11 30A(1052)

OF
002372
OFREV = 000200
041442
OFSET

17754
16534
4300

9183

OF 100 =
0F200 =
OF25 =
0F400 =
OF50 =
OF800 =

16484
16454
16464
16504
16474
16514

CZRJIC.PN

OFSETC
OFSTVL

27-JUL-78 13:05

81204

4119
4078+

4130
4079+

OPERSE 042602
oPI
= 020000
OR
= 000200

8522#
1568#
1504

8899

8965

7727

7728

PCJSR

7966%

7967+

B145#

PCLBUF
PCLCSR
PCLCTR

PGE
PIP

000004
000010
000001
000020
000002
000040

= 000010

041512

002346
002344
002350

15584

17474
17464
17484

= 002000
= 020000

1507#
15504

002460

047274

PIRQ = 177772
PIRQVE= 000240

PKACK

13:06

PAGE 248

SEQ 0246

CROSS REFERENCE TABLE == USER SYMBOLS

18074
18334

PAR

002454
004610

27-JUL=78

3292

8253«
8227+
8228

4141
4098

4302
4281

8121
4282

4284x

4285

8147+

8148+

8153«

B154x

10942

10944

8254+

3677

3797

3968

3997

4156

4240

6616

6782

18094

2491

2502

2562

2573

2584

2875

2985

3874

4059

2011*

2543%

2950%

3465«

4048+

7878+

7906*

8524

91274

9213+

7539

6294
6294

PLU
PRE

= 020000
= 000020

PROG
PRO
PR1
PR2
PR3
PR4
PRS
PR6
PR7

= 001000
= 000000
= 000040
= 000100
= 000140
= 000200
= 000240
= 000300
= 000340

PSEL

= 002000

15294

5452

1941x

2360%

2389

2413«

7883«

8523+

5622

7511

7528

PUTREG 043370
PWRVEC= 000024

2723
629%

2744
1919%

2959
1920%

7974
9344x

7986
9345+

8471
9354«

85654
9357x

9369+

9370«

RDY

15264
3940
5477

2361
3949
5618

8547

8676

8694

93414

2585
4508
6200

2763
4619
6374

3036
4744
6492

31
4864
6609

5072

4315
6177

PRITEM

PSU
PSW

= 177776

= 000001
= 177776

RA
000200
RDCHR = 104410
RDLIN = 104411
RDOCT = 104412

= 000200

10952

16414
16814
15464
6294
6294
6294
629%
6294
6294
6294
6294

6294

16784
6294

639%#
9017
9049
2020

7103

8712
93394
93404
8540

7193

5468

5481

2372
4142
5785

2390
4226
5909

7358

7535

5595

2469
4402
6074
7636

5611

7718

7811

READAT

002446

1804#

4596

4611

4622

4841

4856

4867

READIN
RECALI
REFOR

002462
002426
002450

18104
17964
1805#

3384
3643
4485

3397
3652
4500

3405
3662
4511

3494
3770
5884

3507
3779
5899

3515
3789
5912

5594

5610

5621

7801

7805

8159

9230

9234

3200
4984
6709

3522
5095 .
6775/

3663
5221
6877

3790
5341
7037

5087

5098

5318

5333

5344

6290
6192

6738
6203

6468

6484

6495

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JUL-78 13:05
REGADR

REGSAV
REGSA1
REINTO

004600

047130
047136
003534

RELEAS
RESVEC=
RETCL
RHAS
RHBA

002432
000010
002456
002316
002274

RHBAE
RHCA
RHCC

002340
002312
002334

RHCST

002300

18254
4238«
5000«
5918«
6787
10952

B 4
27-JUL=78 13:06 PAGE 249
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

2590%
4418%
5230
6090*
7367%

2597«
4517«
5237«
6209+
7374%

4456

4471

5273
5671
6035
6832

4363
4816
5289
5729
6134
6860

5736
6149
6884

5740
6174
7003

4203

4214

4225

2089+

2480*

5925«

6083

4245%
5104+

7202+

90854
4356
4812

2083
3210
5934
2063
3259

4411%
5111+
7209+

4,838
5293

002322

RHDT

002324

RHEC1
RHEC2
RHER1
RHERZ2
RHER3
RHLA

002330
002332
002302
002306
002314
002336

RHOF
RHSN

00231
002326

RHMR
RHW(C

002320
002272

6508+

6780+
10939

6544

4701
5147
5569
6017
6665

4705
5178
5591
6024
6692

4670
5121
5565
5964

4645
5069
5549

6225

5393
5839
6253

4593
5051
5437
5881

6465
7782

5935
6518
7798

4889
7046

5009
7113

5120
7218

5246
7383

7560

5366

5521

7725

5643
8598+

6793

7993

7997

3032«
3509+«

3035
3517«

4016
4507

3094+
3521
4061+
4613%

7980+

6194+
6802
7435
8095+

4534
4945

7079

7114

7144

6102
3191

6406
3688

7969*

8093«
6105

8111«
6403

8595«
6627

2562%
3199
3770«

2575«
3228
3781«

2760
3289
3816
4251
4976%
5617
6491

2817
3384«
3876~

2877

2987
3407«
3934«

3019
3494
3939

7635

4161+
4093+
*
5801

4562
5036
5433
5854
6434

4482
4916
5367
5747

3529
2482

5612«
6486*
7036

4154
4880+

5794
6621*
10935

10921

3419
2480

4216+
4863

3979«
4873«
5634+
6614

10919

6099

7099«
7714

3807

4304~
4983
5777«
6598+
7102
7717

8373
3219

3399«
3921%
4317~
5089«
5784
6636
7187%

4394
5094
5901«

4401

7192
7807*

5213«
5908
6708
7262%
7810

5501

7726

6705«

7731
8604*
3236

8671

8680

7818

4008
4502+

5220
6066+
6740~
7352+
7971«
8683
8126

5335+
6073
6764
7357
8698
8601«

8280
2253«

8292
2780

8360
2833

3250
5646

3422
5813

4430
6108

4536

4647

6409

4772
6520

4892

7049

7116

5012

5123
7221

2600
3811
6604

3532
5937
8596
2771
3857
6631

2826
3879
6745

2881

3998
6770

299N
4065
6797

3126
4137
6921

3274
4172
7265

3411
4221
7438

3434
4256
7658

2163
2297

2165
2300

2168
2302

2170
2327

2183
2329

2254

2256

2263

2265

2284

7741

8128

2843
3691

3269
4262

3588+
8120+

3599«
8602+

3731«

3742+

7972+

3024

3062

3099

3162

3207

3350

3389

3475

3499

7970«

17344
17224
17244
17274
17364
17294
17254
17324
17154

7997

5493+
6501+
8480+

3963«

4760
5627*

4192+
4769
6517

2580
3785
6296
17314

7551«

6390+

3802+

4753«

3493«
4644
6399

7631«

RHDST

5357«
6383«

3795+«

4635+
5486%

3383«
4533
6224

5595«
6373
7033«

002276
002342
002270
002304

7544>

3682+
4628+

4427

2105

4203%
4858

RHCS2
RHCS3
RHDB
RHDST

4890
5315

3675«

4524~
5350
6216*

SEQ 0247

8094+

6227

3262
2692+«
3535
2328
2697

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JUL-78 13:05

C &
27=JUL=78 13:06 PAGE 250
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

3648

4641
5458

6396
RH70
RH70CK
RMR
=
RPTRP1
RPTRP2
RPVEC

004750
006146
000004
011460
011566
002266

7516
1984+

3756
4724
5518
6474
7557
2062+

3775
4766
5601
6514
7644
2064

3890
4846
5640
6590
7706
3117

2356

2385
4390%
6062*

2500
4498+
6190«

2632
2630
2571
4609
6289

2667
2665
3028
4732
6360

4212+

5897+
7095+

RPVECT
RPOS
RPO6
RP4VEC

RTN

8729
2268+
2259%
2500

044666
004746
004744
004606

4498
6190
7258

006640

7183x

7348

3192«

4972%

7348«

7431+

7627+

7724

3215

2571

6289+

2894
2892
3103

5077
5931
7087

5611

3395

6594+

6360+

3576
3192

3503

4854

4972

7524

7627

6701
7710

6736

6482

6594

5209

7803

6096

8480

8569

8597+

3393«
5085+
6701

3503«
5209+
6736%

3651+
5331«
6760*
8690

6869+
8695+

3651
5331
6760

3778

5466
6869

3930
5609
6912

4128
5773
7029

7110

7414

7710

7340

7175

7803«

3778«
5466+

6460

7074

5188

5310

5443
7328

7500

5586

5753
7613

5876
7694

2696
4723
6473

3023
4845

6589

3098
4963

6755

3388
5076
7020

3498
5200

3647
5322

3774
5457

3925
5600
7515

4123
5764
7643

4207
5858
7705

4381
6053
7837

2522
3124+
3554

2568
3136
3649

2610
3191~
3693«

3043

8079«
2765
6639

8400«
2820
6805

B402«
3121
7734

7707

7022
7724+

2848
3277«
3927
4543
5324
6233

3025
3299

5890
6757

2791«
3244
3809
4437
5202
6115

2855
3279

5820
6643

2790
3213«
3776
4383
5130
6055
6809

2797
3267
3824

5766
6629%

2698
3212«
3705
4267
5078
5944
6795+

3231

3244

3670

6596
6751
1897

6608
6909

6762

6774

6914
81114
2204

7260

7433

1899+

7255
1902«

2224

7895

2328+
19724

3279

9211

SAVER

041624

6339

004612

4181
4899

7517

= 100000

177572

4609+

3028+
4732

5765
6756

4424
5201

5064
7008

471

SRO

8397

4886

4530
174
6221

4382
5117
6054

4951

4588

= 000100
sC1_
SC10 = 001000
sc2
= 000200
SC20 = 002000
SC4
= 000400
SEECOM 002452
SEEKCY 041426
SELECT 004726
SELTST 010020
002434
SERCH
= 040000
SKI
SN
002410
006110
SND1
SRCH
041406

4208

4833

043430

7431

4088
4964
5807
7021
7838

3926

6687

RUN

SAVERE

7258«

SEQ 0248

22044
8095

4209
4965
7569

4260*
5019
7645

7428
2016

6855

7666
8472

7086

7174

7161

7339

4027
4725
5531

7728+

7124
7729+

4021+
4654
5459
6416
7176
7752+

3819

3956

4019

4149

4170

7971

8112

4491
5256

6183

7056
7725«

7088

4004+
4602
5376

6353

6475

7228
7758

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JUL-78 13:05
SR1
SR2
SR3

= 177574
= 177576
= 172516

STACK = 001000

START
005022
STKLMT= 177774
ST
032540

sST10

033142

033166
033422
033426
033444

ST
ST12
ST13
ST14

ST15
ST16
ST17

ST2
ST20
ST25
ST26

033450
033536
033542
033772
033776
032560
040346
035630
034162

ST3
ST4
ST5
STé
ST7
ST8
ST9
SWR

032572
032612
032624
033032
033100
033104
033122
001140

ST18
ST19

4329
7601
1898

6294
6276
6284+
6285+
6530
6531
6546
6547
6574
6575

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

4681

1901

1906#

63044
64484
64594
65334
65414
65494
65634
65764
65834

6563
6571«

63144

6564~

66494
66634

1935

=
=
=
=
=
=
=
=
=
=
=
=
=
=

9131

8486

1982

2049

6294

2034
3317

1912
3153
4575

67214
67264
63214
63314
63384
6282+
64214
64314
64404
1910
8747
9362+

034166

ST127

SWREG
Sw0
Sw00
Sw01
Sw02
Sw03
Sw04
SW05
Swoé6
Sw07
Sw08
Sw09
w1
Sw10
SW11
Sw12
Sw13
Sw14
Sw15
Sw2
Sw3

6584
6584
558#
6294
3012

SEQ 0249

27=JUL-78 13:06 PAGE 251
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

2080
3469
4929

2213
3585

5158

2353
3596

5408

2674

2916
4294
7411

8484

8650
9129

2382
3608

2410
3728
5977

2556
3739
6267

2642
3750
6731

2653

3847
6901

4072
7246

1982

2049
8975

2101

2122

2903
9099

9103

5689

6576

6572+

6565+
6566+
6567+
64014

6570
1928+

6568+

1930

6569+

1935«

1976

8749

8755

8762

8902

1976

8902

8933

8949

8652

2101

2122

8933

9088

9095

CZRJICO, RPO4/5/6 FCTNL CTLRI
27-JuUL-78 13:05
CZRJIC.PIN
SW4é
SWS
Sw6
Sw?
Sw8
Sw9

=
=
=
=
=
=

TBITVE=
TOF
=
TESTAD
TIMCNT
TIMET
TIME2
TKVEC =
TMPO
TMP]
TMP4
N

000020
000040
000100
000200
000400
001000

000014
000040
042600
042154
041656
041670
000060
004754
004756
004760

= 000050

TOTALA

004742

TRAPVE=
TRE
=
TRK1
=
TRK10 =
TRk2
=
TRK20 =
TRK4
=
TRP
TRTVEC=
TSTNM

000034
040000
004000
040000
010000
100000
020000
006600
000014
004604

TPVEC =

ST
TST1I0
TST11
TST12
TST13

IST14
TST1S

TST16

TST17

TST2
1ST20
TST21
TST22
TST23
T1ST24
TST2S
1ST26
1ST27

006312
011576
012356
012640
012700
012734
013746
014754
015412
006654

016200
016744
017312
017352
017400
020066
020126
020162

6294
6294
5294
6294
6294
6294
6294
16334
8521#
2363
82274
2010
6294
1885#

1886#
1887#
4145

22134
3154

42944
5409
76114
18724

6294
6294

E &
27=-JUL=78 13:06 PAGE 252
CROSS REFERENCE TABLE == USER SYMBOLS

2903

2392

8269

82294
8887+

8888+

4292+
3666+
4146~

2214
33174

8274

4323«
3667%
4148
24104
3318

83354

25564
3470

5690

2115«

2117+

3176

1917«

1918+

2467

18274

2033+

4295+
7412+
10942

7602+
10944

2061
6294

20684

2917«

3013~
4330

2027

24094
25484

26524
26624
2687
2898

34684

43294

76014

2767

2081+
3154+

8349

3952«
4230«

45754
5978

4295
56894
7412

15324
16204
16234
1621#
16244
16224

2017

SEQ 0250

MACY11 30A(1052)

8354

3955

3969+

3970«

3972

3998+

26744
3609

2675
37504

29164
3751

2917
38474

3012#
3848
51584
6902

L6814

4682

49294

6732

4930
69014

3368

3628

3907

4105

2352+
3597«

2381+
3609+
5690+

2411+
3729+

2557+
3740+
62 68+

6268

67314

3999+

3013

40724

5159

72464

4001

31534

4073
5408#
7247

7736

2097+
3318«

4576
8527
10946

20314

4682+
10913
10948
7945

2754
2905

2885#
2915

2214+
3470
4930«

10916
10952

30114

2335+
3586+
5159«

10919

5409+

10921

10923

5978+

10926

10929

2643+
3751~
6732«

10932

2654
3848+
6902+

10935

2675+

4073+
7247
10939

CZRJICO, RPO4/S/6 FCTNL CTLRI
CZRJIC.PN
27-JuL-78 13:05
TST3

TST30
TST31
TST32
TST33
TST34
TST3S
TST36
TST37

TST4
TST40
TST41
TST42

TST43
TST4L

006730

020530
022044
023106
023260
024146
024462
025372
026232

010034
027142
030312
031322

032352
034166

TST4S
034672
TST46
036046
TST47
036562
TSTS
011022
TSTSO
037330
040554
TSTS1
1ST6
011366
1ST7
011476
| TUF
= 000100
TYPDS = 104405

!TVPE = 104401

2086
38374
3846

4288
4324
45744
46804
49284
5157#

2205
54064
5413
59764
62664
6730#
69004

MACY11 30A(1052)
20954
40704
42914
4L328#%

22104

7904

TYPON = 104404
TYPOS = 104403

UBUSB
004732
1 UNIB = 000020
004716
UNIT
UNITS
UNITSL
UNLOAD
=
UNS

004676
004730
002424
040000

7915

5688#

23344
7416
7600

75914
78814

2338
2369

23504
2373

2180

2192

2130
2316
2712
2998
3861

2132
2320
2716
3016
3863

16344
7846
1955

2715

2737

2941

3332

2190
2423
2926
3337

2018
2238
2427
2938
3342

2065
2274
2451
2944
3473

7888
1957

9256
1967

93364
1969

5082

4045
5504

7843

4076
5506
6866
7847

9141
9193
9371

9157
9209

9021
9161
9215

9144
9196

9160
9212

8532

8672

2022+

2218
2967

2145
2023
3921

7910

2185
2347
2924
3333

6059

6698

7521

8538
8714

8951

050236

SEQ 0251

PAGE 253

CROSS REFERENCE TABLE == USER SYMBOLS

8529

TYPOC = 104402

13:06

72454
74104

4969
5894

| TYPERR

27-JuL=-78

Fog

92144
2184

4298

5507
6905
7885

4495

5512

7092
7900

8545
8726

8673
8850

9165
9237

9173
9242

9164

9223

8691
9168
9252

8703
9176

2245+
2975

2248
3213

2425
3340

8543
8718

9024

5415+«

2931

2
3932

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JuL=-78 13:05
UPE
us1
us2
US4

UWR
VUF

020000
000001
000002
000004
000010

vu30
A"

16994

16794
16404
15434

8228+
82524
83374
2506
4064

5339
6769
93424

WRCHDT
WRCHEK
WRF ROM

2460
3797
4755

6503
8263+
8260+
8262+
82514
9342
2579
4136
5475
6875

17664
4182

2523

7667
15114
15604
1628#
15664
18014
18004
1818#
4797

7759

5821

WCE
WCF
wCU

2508
3859

4875
6616
8270
8261+
8270
8252+

2880

2592
3971
5232

8344~
8342+
8279
8309

8350
10913
8291

2990

3034
4318
5907
7101

4220
5616

4305

2611
4438
6116
7863

2798

6920

5783
7035

8570

WRIFOR

002444

4392

WRL
WRU

004000

7856

21434
1980+

2432+
2087«
4244

5103+
5924+

8941
2440
2482

4410+
5110+

6082+

2856

9043

2462+
2589+

4417
5229+
6089+

7369

10916

3109

4400

6072
719

3044

2603

5920

3437
44613
6085

4519

8359

8375

10913

10916

3784

3878
5093
6707

3938
5219
6744

3825
5532

4028

4153+
4879+
5793

4160
4992+

8350

8355

3198

3410
4617

4742

7356

7437

6490
7533

3445
5131

3555
5257

4506
6198
7264

6295

3137

7508
4428
4936
5392
5758

7527
4457
4956
5420
5811
6164
6678

7538
4561
5010
5424
5840

3520

6372

7057

3657

4862

7125

3412

4982

6603
7634

3706
5377
7229

6715
6989

4987

5196

5451

5775

5788

6049

6347

8162+
3674

8170~
3681+~
4627+
5356+
6382+

10926

6965
7291
7495

4959

4974

5761

2472~
2596+

4523+
5349+

6215+

5037
5448
5861
6306

7394

7809

5654

7570

7384
7689

7319
7561

3794+
4634+
5485+
6389+

7716

6211

4692

4582

5165
5576
5983
6333
6850
7047

6252
6682
6985
7300
7505

5236+
6208+

4240

8343«

5629
8168

3547

4156
5796

2992

10916

4900
6644

6516+

2882

4066

8150
10913

4780

6528

2778

4000
5488

3999
5352
7546
8355

4655
6417
9139

7287
7491

4734
7702

002442

7204

6155
6671
6956

7464

WRIDAT

001134
001122
001126

2581
3970
5106

4827
5300
5710
6100
6454
6948
7279

7219
7456

000004
007462

2516
3880
4995
6782
8275
8341~
8275
8299

7185
7350
4346

5247
5695
6007
6442
6940

XE2
$AUTOB
$8DADR
$8DDAT

SEQ 0252

16804

3677

WAITRE
WAITTM
WAIT.P
WAIT.T
=
WAT

15104
14974
14984

4630
6385
82504
82484
82494

WAITBT
WAITPC

27=JUL=78 13:06 PAGE 254
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

10939

3801«
4752+
5492+
6500+

10942

10944

4759«
5626+
6507+

6613+

3962+

3978+
4872+
5633+

6620+

5800+
6779

CZRJICO, RPO4/5/6 FCTNL CTLR]
27=-JuL-78 13:05
CZRJIC.PN

$BELL
$CHARC
$CKSWR
$CMTAG
$CM1
$CM2
$CM3
$CM4
SCNTLC
$CNTLG
$CNTLUY
$CRLF

001216
045642
046154
001100
000006

$EOP
SEOPCT
$ERFLG
SERMAX
$ERROR
$SERRPC

$GET42

$ILLUP

$INTAG
SITEMB

$LPADR

SLPERR

7201+
8646+

8906
8861+
9338
1908

6904
6904
689

7543
10921

7550
10932

6934
6934

6944
6944

6954
6954

6984

6954

7004

7014

3342

5506
9239

7208+
10913
9036
8865

7366+
10916
9090
8874

7373
10919
9110

1915
6914
6914

1921

1922

6974

90364

3333

9110

88334

SEQ 0253

6924
6924

9215

7993+
10935

10939

10952

8279+

8291+

8359«

8375+

8533

8851

8881

8977

9036

10919

10921

10923

10926

10929

3974

4150+

5630
6610+

4876+

5790«
6617+

4157+
4989+

10932

10935

7994

88794

5507

5512

5513

9244

D
D —d

79474
79464
7908

8759+
8780

8780

9085+

9110

9094
10942

9110
10944

9221
10946

10913
10948

10916

7893«

9091«
9106

9110
9108

9110

2481

2586+

2593~

3671%

6079+
7205+

5226+
6086+
7363«

8767

8769+

8779

8978
9218
9036
4071
8531

9043

8774
8881

4407+
5107+

041062
046244
000000
047124

001104

051102

001135
001114

001224
001106
001110

SMAIL = LA L B2 2
046755
SMNEW
046744
SMSWR

79224

8753
8775+

8751
8753
90834
9093

10939

$ERRTB
$SERRTY
SERTTL
$ESCAP
$FILLC
$FILLS
$GDADR
$GDDAT

$GTSWR
$HD
=
$SHIOCT
$ICNT

6894
6894
6884
6954
8896
8947
8968

79444

d —d

SENDMG
SENULL

8852+
89334
6594

7054

—

SENDCT

7034

9083

$DBLK
$DOAGN
$DTBL

$SENDAD

6786%
8479+

MACY11 30A(1052) 27-JUL-78 13:06 PAGE 255
CROSS REFERENCE TABLE == USER SYMBOLS

92764
8962
9110

2212+
7685+

8772

4414

8839

4513
5233«
6205+
7370+

9083

8542+
8548+
9099

5353«
6379+

3791«
4631«
5482+
6386+

3798«
4749
5489+
6497«

8757+
8773

8772+
8779

9105

3678+

4520+
5346+

4624

7540+

7547+

6212+

9110
8549

8757

10952

7996+

3958«

4756+

8478+

5623+
6504+
8645+

8777

8779

4B69*
10919

5797+
6776+

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JuL-78 13:05
SMXCNT
045200
$NULL
001154
NWTST= 000001

SOCNT
$OMODE
$OVER
$PASS

050646
050650
045164
001100

$SPOWER
$PWRAD
$PWRDN
$SPWRMG
$SPWRUP
$QUES
$RDCHR
$RDDEC=
$RDL IN
$RDOCT
$RDSZ =
$REGAD
$REGO
$REG1
$REG2

051110
051076
050736
051072
051010
001222
046516

$REG3
$REG4

$REGS

$SRTNAD

$SR2A

Le 2 2224

046606

046766

000011
001160
001162
001164
001166

001170
001172
001174
041104
AR

ERE

x
$SAVRE= Ak
$SAVR6
051106
$SCOPE
044730
$SETUP= 000117

$5S1

$STUP
$SVLAD
$SVPC

$SWR

000000
177777
045136
000200
167770

8770
6844
20314
30114

87794
8857
20784
3152#

8737
6594
8764

9305+
9275+
8750
2419
8780

43284
75914
9276+
9271+

9372
93744
1919
93724
9354
7044

8998#

9342
90134
#
9044
90134
6884
6894
6904
6914
6924
6934
694H
79454
9342
9342
9353«
1913
19074
8933

19404
19074

8743
6334

L5744
78814

8881
20954
33164

$TkB
$TKCNT
STKINT
$TKQEN=
$TKQIN

$TKQOU
$TKQSR

001146
045646
045666

045665
045650
045652
045654

SEQ 0254

56884

24094
37274
59764

25484
3738#
62664

26414
3749#
67304

26524
38374
69004

40704
72454

42914
74104

3843

7597

7899+

7901

7925+

7926+

7934

7946

9080

9083

9110

1919
9109

1921

1922

1924

1974

7923

8735

8900

8904

703

1921

1924

1925

2079
3153

2096
3317

2211
3469

23344
35844

23504
35954
54064

9283+

9294«
87764

93204

3324

9021

9036

9359«

9360+

93784

1915
9083

1917
9102

701

702

L6804

49284

8768
2912

28894

23794
36074

22104
34684

51574

26624

937594

9344k
93574
8881
9339
9340
9341

2410
3728
5977
8735
8779

2549
3739
6267
8736

2642
3750
6731

9083

8746
9088

2079

2096+

2211«

8889
8904

8892
8921+

8915

8937
9006+
8897

8886

8927+

8928+

2380
3608
5689
7946

= 000009
$SWRMK
$TIMES
001212

13:06 PAGE 256
27=JUL-78
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

8776
8749
2032+

2553
9007

8931

8675

9008+
9011

9004

88844
9009

8929

9011«

2663

2890

8753

7922

8760

4929
7924

7924+

8760+

8767

4292
7411

4575
7882

9099

9103

9375

2890+

5407+

407
7246

8748

8751

8761

MACY11 30A(1052) 27-JuL=78 13:0% PAGE 257
4

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05
$TKS
$TKSRV
$TMPO
$TMP
$TMP2

CROSS REFERENCE TABLE == USER SYMBOLS

6804
8887
5954

001144

045736
001176
001200
001202
$TMP3
001204
$TMP4
001206
$TMPS
001210
= 000052
$TN

8881
88924

2153+
2047

6264

6974
6984

8890+

8911+

8913

8919«

8935

8954

2154~
2363«

2364

2392«

2393«

6300+

10923

001152
001157
001150
$TRAP
050652
$TRAP2 050674
$TRP = 000014
$TRPAD
050706
$TPB

001102

046714

8980+

2086

2352
2634
2687
33174
37284

4574
568954
7416

40714
4928
62674
7601

4072
49294
6730

20964
2373
2641
2889
3468
3738

2097
2379
26424
28904
34694
37394

6900

69014

4291
51584

7881

42924

93344

93354

93364

93404

93414

7923«
9032

8735

8749

9087

9110

88694

8870

707
20544
23434

18174

90364

93424

93434

18184

1819#

LA 2 2324

045202
045426
045576
045644
050450
050464
050424
044742
000000
050647
LA R

9332
8864
88804

9284

6344

072142

. ABS.

8982

9335

1924

86504
91394
109114

9377

ERRORS DETECTED:

109974

6428
19644
23144
40474
87204
91794

6594

19714

23224
76504
8780
91874

000

z J%gnngzbcggJécsg%g‘ggL/NL.TOC.HC.HE.CND-SVSHAC.SHL[400.1066),CZRJIC.P11(400.1424]
R

8964+

8881
8881

2187#
29984

2081
23514
2556
2674
3316
3727

20324
2334
24104
2654
3011
35964
38384

$TPFLG
$TPS

$TSTNM
$TTYIN
$TYPBN=
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
$XTSTR
$SGE T4=
$OF ILL
$40CAT=

SEQ 0255

RUN-TIME RATIO: 267/102=2.6

76544

88334
91914

18364

20674
23454

20724
23494

21304
24294

21324
29264

8881
91954

88844
92074

9211#

92664

78454

78914

7946

7950

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN

27-JuL-78 13:05

CORE USED:

38k

DOCUMENT PAGES:

(75 PAGES)
256

MACY11 30A(1052)

27-JuL=78

13:06

PAGE 258

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0256