Digital PDFs

AH-9220C-MC

July 1978

258 pages

Original

13MB

view download

OCR Version

11MB

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_bw.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, RPOL/S5/6 FCINL CTLR1
CZRIIC.PT
27-JuL-78 13:05

MACY1T1 30A(1052)

27-JuL-78

B
13:06

1
PAGE 2

SEQ 0001

.REM @

IDENTIFICATION
PRODUCT

(ODE:

AC-9218(C-MC

PRODUCT NAME:

CZRJICO RPO4/5/6 FUNCTIONAL CONTROLLER TEST PART

DATE CREATED:

MAY 1976

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

PETE BLACKSTONE

THE INFORMATION IN THIS DOCUMENT 1S SUBJECT TO CHANGE
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A

COMMITTMENT BY DIGITAL EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR [N THIS

MANUAL
.

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.

1974,1978 DIGITAL EQUIPMENT CORPORATION

THE FOLLOWING ARE

DIGITAL
DEC

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION

PDP

DECUS

UNIBUS

DECTAPE

MASSBUS

CZRJIICO, RPOL/S/6 FCINL CTLRY
CZRJIC.P1
27-JUL-78 13:05

MACY11

30A(1052)

27-JuL-78

CONTENTS
ABSTRA(CT

REQUIREMENTS

2.1

EQUIPMENT

2.2

STORAGE

2.3

PREL IMINARY PROGRAMS

LOADING PROCEDURE
ME THOD

STARTING PROCEDURE

CONTROL SWITCH SETTINGS
STARTING ADDRESS OR ADDRESSES
PROGRAM AND/OR OPERATOR ACTION

OPERATING PROCEDURE

OPERATIONAL SWITCH SETTINGS
SUB=ROUTINE ABSTRA(CTS
ERRORS
'FATAL'

ERRORS

RESTRICTIONS

MISCELLANEOUS

HOOWwW
N

EXECUTION TIME

STACK POINTER
OPERATOR SELECTABLE

SCOPE

PROGRAM REVISION HISTORY
PROGRAM DESCRIPTION

LOOPS

13:06

PAGE

SEQ 0002

CZRJICO, RPO4L/5/6 FCTNL CTLRY
CZRJIC.P1

27-JuL-78 13:05
1.0

MACY11 30A(1052)

27-JuL-78

)

13:06

PAGE 4

ABSTRA(CT

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 DJAGNOSTICS.
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
%ZEEGgé??ITY BEFORE ANY DATA ERROR CAN BE ATTRIBUTED TO
L

CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER

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

TRACK
TRACK
TRACK
TRACK
TRACK
TRACK
TRACK
TRACK
TRACK
TRACK
TRACK
TRACK
TRACK

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

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

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

CYLINDER 410,TRACK 18, SECTOR 21

2.2

STORAGE
THIS PROGRAM REQUIRES 16K WORDS OF MEMORY

2.3

PREL IMINARY PROGRAMS

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

REV) HAS BEEN RUN WITHOUT ERRORS.
AND [T ASSUMES THAT MAINDEC-11-DZRJH-(LATEST
REV) HAS BEEN RUN WITHOUT ERRORS.

SEQ 0003

CIRJICO, RPO4L/S/6 FCTINL CTLR1
CZRJIC.PI

MACY11 30A(1052)

27-JuL~78 13:05
3.0

27-JuL-78

13:06

SEQ 0004

PAGE 5

LOADING PROCEDURE

USE STANDARD PROCEDURE FOR LOADING .ABS TAPES
STARTING PROCEDURE

SWITCH 12 MUST BE SET WHEN THIS
IT CAN BE SET
SOF TWARE SWITCH REGISTER IF THE
PARAGRAPH 5.1 FOR A DESCRIPTION

RH70 CONTROLLER.
OPERATION.

4.1

PROGRAM IS TO BE RUN USING AN
AT THE FRONT PANEL, OR IN THE
OPERATOR SO DESIRES.
SEE
OF SOF TWARE SWITCH REGISTER

CONTROL SWITCH SETTINGS

SEE SECTION 5.1
4.2

STARTING ADDRESS

START
START
START
START

AT
AT
AT
AT

ADDRESS
ADDRESS
ADDRESS
ADDRESS

200~~-FOR NORMAL RUN
204---TO SELECT NON-DEFAULT ADDRESSES
210--~FOR UNIT SELECTION
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
TESTING WILL START WITH THE
THAT 1S POWERED UP (THAT IS
THAT RESPONDS)THEN GO ON TO
THAT

IS POWERED UP.

'END PASS'' IS PRINTED OUT.
LOWEST UNIT NUMBER DRIVE

THE LOWEST UNIT NUMBER RHAS REGISTER
THE NEXT HIGHER UNIT NUMBER

204 RESTART
SAME AS START 200 WITH THE FOLLOWING EXCEPTION:
PROGRAM WILL

INTERROGATE

THE

THE OPERATOR FOR A NON=-STANDARD

C.S.R AND VECTOR ADDRESS BEFORE STARTING.

QUESTIONS HAVE BEEN CORRECTLY ANSWERED,

AND

ONCE THE
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,
TOUCHED.

THE PROCESSOR NEED NOT BE

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.

FOR EACH PASS OF

220 START

THEN ONLY THAT UNIT WILL BE

THE PROGRAM.

TESTED

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

CZRJICO, RPO4/S/6 FCTNL CTLRT

27-JUL-78 13:05

27-JuL-78

13:06

SEQ 0005

PAGE 6

MANUAL INTERVENTION.

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

PROGRAM AND/OR OPERATOR ACTION

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
\¥,]

CZRJIC.P1T

MACY11 30A(1052)

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 (1. E.
AN 11/34) 1T 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

‘'UP'

THE PROGRAM FINDS ALL

POSITION WHEN IT

IS STARTED,

ALL

SWITCH REGISTER REFERENCES WILL BE TO THE ''SOF TWARE®' REGISTER

AND

THE PROCEDURES DESCRIBED ABOVE MUST BE

FOLLOWED.

CZRJICO, RPO4/S5/6 FCINL CTLR1
CZRJIC.PT

27-JUL-78 13:05

MACY11 30A(1052)

27-JuL-78

13:06

SEQ 0006

PAGE 7

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

HERE.

SWITCH 15 = HALT ON ERROR

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR
THEN THE APPROPIATE INFORMATION WILL BE PRINTED OUT

AND THEN THE PROGRAM WILL HALT.
AFTER THIS HALT, PRESSING
"'CONTINUE'* WILL CONTINUE WITH THE PROGRAM 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
THIS SWITCH MUST BE SET AT THE® START OF THE PROGRAM WHEN THE
DISK DRIVES TO BE TESTED ARE CONNECTED TO AN RH/70
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
NOEEREPEAT EACH TEST FOUR TIMES BUT W.LL DO EACH TEST
ONCE

ONLY.

SWITCH 10 - BELL ON ERROR

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR
THE 'BELL'' OR ''ALARM'' 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.
THROUGH AN ERROR

IS FOUND

THAT *'SCOPE'" STATEMENT.

IF ON THE SECOND TIME

IT WILL AGAIN LOOP BACK

THIS LOOPING WILL CONTINUE AS LONG

cZ!
2l

CZRJICO, RPO4/S5/6 FCINL CTLR1T

CZRJIC.PIT

27-JUL~-78 13:05

MACY11 30A(1052)

27-JuL-78

13:06

SEQ 0007

PAGE 8

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

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

THAT

NOTE:

SWITCH 11

SEF

IS ALSO SET.

SECTION 8.3

SWITCH & ~ LOOP ON TEST IN SWR <7:0>
THIS IS A SPECIAL SWITCH.
WHEN SET SWITCHES O THRU 7
HAVE ONE MLANING AND WHEN RESET SWITCHES 0 THRU 7 HAVE
ANOTHER MEANING.
THIS MEANS THAT ANY SETTING OF SWIT(H
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

T0 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.
THIS GROUP OF

BUT WITH SWITCH 7, ONLY

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 1S SET THEN ON ECC TESTS (TEST
120 THRU TEST 134)

INSTEAD OF

COMPARING CONTENTS OF

POSITION REGISTER AND PATTERN REGISTER AFTER EVERY

THE

CLOCK,

COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS.

NOTE.

SEE SECTION 8.3

SWITCH 7 - STOP FURTHER COMPARES IF SWO08 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

CZF
CZF

CZRJICO, RPO4L/S5/6 FCINL CTLR1

CZRJIC.P1T

MACY11 30A(1052)

27-JuL-78 13:05

NAME INDICATES.
THE WORDS ARE

27-JuL-78

13:06

SEQ 0008

PAGE 9

FOR EXAMPLE IN A 256 WORD BUFFER IF ALL

IN ERROR THEN AFTER SEEING THE _ERROR PRINTOUTS

FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWIT(H 8
NOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT wliLL
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 ABSTRA(CTS

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.

THE ERROR OCCURRED

ADDRESS TO DETERMINE

THE ERROR.

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

IN A

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.

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

THAT A HARD FAILURE HAS OCCURRED
HARDWARE REGISTERS.

IT IS ALSO POSSIBLE TO CONTINUE FROM THE

IS QUITE POSSIBLE

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/S/6 FCINL CTLR1
CZRJIC.PT

27-JuUL-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 8 BUT
MUST NEVER LEAVE IT IN THE PROGRAMMABLE STATE.

SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND
1T 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 F]RST PASS OF THE PROGRAM WILL TAKE APPROXIMATELY 1
MINUTES PROVIDED AN OPERATOR IS PRESENT TO CARRY OUT THE
TYPED

INSTRUCTIONS

IMMEDIATELY.

SUBSEGQUENT PASSES WILL

30 SECONDS WHETHER AN OPERATOR IS THERE OR NOT.

8.2

TAKE

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.

2.
3.
IF

LOOP ON ERROR SWITCH MUST BE SET
THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION
THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION

THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE:
1.
1T MUST BE 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

NORMAL OPERATION WILL

8.4

TIME

CONTINUE.

PROGRAM REVISION HISTORY

THE LOOP SWITCH IS PUT DOWN THEN

CZR
CZR

CZRJICO, RPO4/S5/6 FCINL CTLRT

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
CZR

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

COMMANDS

SYNC. DATA BOARD (SN) - DATA CONTROL PARALLEL TO SERIAL
SEEK LOGIC SEARCH LOGIC HEADER

HANDL ING.

ERROR CORRECTION (EC} - ECC LOGIC ERROR REGISTER 2 & 3
MUX FOR ERROR REG. 2 € 3 LOOK AHEAD
REG. SECTOR COUNTER DATA FORMATION
RING COUNTER.

DUAL PORT ARBITRATION ATTENTION LOGIC
SERJAL NO REGISTER MASS BUS REGISTER

D d D

DISK SURFACE USAGE

)

TRACK

b D e

10,

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
€0, 10, $1
TT27-W.R, TT37-W.R,

TT40-R,

TT41-W.R,

€0, 118, S21
TT30-w, TT31-W.R
1,

70,

TT30-w.R, TT31-W,R, TT53-W,R, TTS54-W.R
c1, 118, S21
TT31-w

(2, 10, SO
TT31-W,R

2, 118,
TT31-w

S21

c3, 10, SO

TT42-W,R,

TT43-W.R

c0,

W = WRITE
R = READ
TT = TEST NUMBER

d e

S = SECTOR

D d ad

SYMBOLS USED
C - CYLINDER

b e

9.2

STORAGE

(DP) -

b emd e amd md b e

DUAL PORT

b wnd

SEEK AND SEARCH (SS) =

b e anh =D D b wd —d b

SYNC. BYTE DETECT.

kb ek d

CZRJIC.P1

MACY11 30A(1052)

PAGE 12

SEQ 0011

CZR
CZR

13:06

c3,

118, S21

C4,

TO, SO

D d

T731-W.R

TT81-w

TT$1-w.R

(4, T18, S

TT31-w

5, 10, SO

b d d

TT31-W,R

10, SO

D e e

118, S21

(5, 17, S4
TT33-W,R, TT34-W.R

(5,

T731-w

TT31-W,R

e e

(6, T18, S21
T731-w

D d

c7, 10, SO
TT31-W.R

c’7, 718, S18
T131-w

D d d e

8, 10, SO
T731-W.R

(8,

118, S21

D e

TT31-w

b b mred

9, 10, SO
TT31-w

A A A 3 ek

9, 118, S21
TT31-W, TT32-R
10, 19, SO
T731-W.R
€410, 118, S21
TT36-W,R, TT50-W.R
9.3

THE FOLLOWING SECTION DESCRIBES EACH TEST AND SUBROUTINES
IN DETAIL AND CAN BE USED AS AN INDEX TO THE LISTING.

THE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE
gHERE THAT ITEM WILL BE FOUND.

D e

27-JuUL-78 13:05

27-JuL-78

CZRJIC.P1T

MACY11 30A(1052)

LISTING

— e h e e h ko

CZRJICO, RPO4/S/6 FCTINL CTLR1

CZRJIC.PN

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 MA(CROS BEGIN HERE

.'ttttttt.ttttifitfi"tt'ttttfitititfitti

. W

:*«NOTE :
.
o

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

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

SEQ 0012

CZR
CZR

—l—l—l—i—l—b—h_‘—.—i—l-A—l—I-&-.A-d-J-‘-J—‘-J—ld—l-l—‘-‘dddddd—‘—.dd—ldd—ld—‘dd-fl-‘—l-J_J—J—.-J—J—'

CZRJICO, RPO4/S5/6 FCTNL CTLRT

CZRJIC.P1T
628

27-JUL~78 13:05

MACY11 30A(1052)

27-JuL-78

13:06

OPERATIONAL SWITCH SETTINGS

PAGE 14

SEQ 0013

[ CZR

CZR

—_—a A _._.__._n_n_.n_a_a_a_a_a_n_n_.l_a—t—l-‘d-‘—l—b—l—l—b-fi—i—a—.—b—-\_&—b-b-a—i—l—D—l-)d—b—ldd-.—l—d—l—l—b—‘—l—l

CZRJICO, RPO4/S/6 FCINL CTLR1

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

629

MACY11 30A(1052)

27-JuL-78

BASIC DEFINITIONS

13:06

PAGE 15

SEQ 0014

630
631
632
633
634
635
636
637
638

27-JuL-78 13:05

000174
000176

000000
000000

000046
000052

041072
002000

000200
000204
000210

000220

000200
000137
000137
000137
000220
000137

27-JuL-78

TRAP CATCHER

DISPREG:
SWREG:

.WORD
.WORD

$ENDAD
.WORD

005012

043612
004776

13:06

0
0

2000

.SBTTL

STARTING ADDRESSES

RA:
ADDMOD:

JMP
JMP

.=200

;. SOFTWARE DISPLAY REGISTER
;. SOF TWARE SWITCH REGISTER
;21)SET LOC.46 TO ADDRESS OF S$ENDAD IN .SEOP

2:2)SET LOC.52 TO 2000

a#BEGIN
CH
SMBASE

;NORMAL START

AMBEGINT

;JUMP TO NO OPERATOR TESTS START

AMBEGINZ

004762

PAGE

;START FOR ADDRESS-MODIFICATION

;JUMP TO SELECT DRIVE 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

r~N

CZRJIC.P1

MACY11 30A(1052)

~eo I

(ZRJICO, RPO&L/S5/6 FCTNL CTLRI

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

658

27-JuUL-78 13:05

001110

MACYT1 30A(1052)

27-JUL-78

13:06

PAGE 17

MEMORY MANAGEMENT DEF INITIONS

=110

SEG 0016

CZRJIICO, RP0O4/S5/6 FCTNL CTLRI

27-JuL-78 13:05

d e
D

Gnr Qe Gnrd

—d b —d b
PONI A =

D
D
nd
d
d

28232838388

— Jour Qhnsr Qaner Qe G

—

001

CZRJIC.P1

001224

MACY11

30A(1052 )

COMMON TAGS

PAGE

SEQ 0017

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

0
O
0
0
0
0
O
O
1
O

;s CONTAINS
;s CONTAINS
;. CONTAINS
;- CONTAINS
;;CONTAINS
;. CONTAINS
;. CONTAINS
;. CONTAINS
;. CONTAINS
;. CONTAINS

0
O
0
8

; JRESERVED--NOT 7O BE USED

$AUTOB:
$INTAG:

.WORD
.WORD
.BYTE
.BY;E

.WORD
.WORD
.WORD
.WORD

.WO

0
O
O
O

;;CONTAINS
;s CONTAINS
;. CONTAINS
;. CONTAINS

PASS COUNT
THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERRGCR INSTRUCTION

ADDRESS OF °'GOOD' DATA
ADDRESS OF ‘BAD' DATA
'GOOD’ DATA
'BAD' DATA

;;AUTOMATIC MODE INDICATOR
;. INTERRUPT MODE INDICATOR

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

DSWR
DDISP

O
2

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

$REGAD:

;2 CONTAINS THE ADDRESS FROM

$FILLC: .BYTE
$TPFLG: .BYTE
$REGO:
$REG1:
$REG2:
$REG3:
$REG4:
$REGS:

000377

13:06

$PASS:
$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
S$ERTTL:
$ITEMB:
$ERMAX:
$ERRP(:

$GDADR:
$8DADR:
$GDDAT:
$8DDAT:

000
002
012
000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
177607
077
015
000012

27-JUL-78

.WORD

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

$TMPO:
.WORD
$TMP1:
.WORD
$TMP2:
_WORD
$TMP3:
_WORD
$TMP4:
_WORD
$TMPS5:
,WORD
$TIMES: 0
$ESCAPE:0

12
O
0
O
0
O
O
0

O
O
O
0
O
0

;;INSERT FILL CHARS. AFTER A 'LINE FEED''
;. TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;. CONTAINS
;;CONTAINS
;. CONTAINS
;. CONTAINS
;;CONTAINS
s CONTAINS

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

;sUSER DEF INED
2 ;USER DEF INED
2 ;USER DEF INED
;- USER DEF INED
2 ;USER DEF INED
;-USER DEF INED
;:MAX. NUMBER OF ITERATIONS
;.ESCAPE ON ERROR ADDRESS

$BELL:

.ASCIZ

<207><377><377> ;;CODE FOR BELL

$CRLF:
$LF:

LASCII
LASCIZ

<15>
12>

$QUES:

.ASCII

/?%/

2;QUESTION MARK

;. CARRIAGE RETURN
;. LINE FEED

cZl
cz

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.P1T
27-JuL-78 13:05
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
750
751
752

753
754
755

756
757

758
759
760
761
762

001226

051120

001230

067160

MACY11 30A(1052)

27-JUL-78

ERROR POINTER TABLE

;] TEMT

EM1
DH1

13:06

PAGE 19

SEQ 0018

:RPO4 DID NOT

INTERRUPT

:g?ITED ON BIT DID NOT OCCUR
;WAT PC

;BIT WAITED

;REG ADDRESS
JREG CONTENTS
001232
001234

071506
072014

001236

051147

001240

06760

DT
DF1

;] TEM?2

EM?

DH1

JRHCST

CONTENTS

;SERRPC ,WAITPC ,WAITBT ,WAITRE , $BDDAT,(S1

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

;INTERRUPT ENABLE BIT DOWN BUT
;wéITED ON BIT DID NOT OCCUR
;P

JWAT PC

:BIT WAITED

JREG ADDRESS

JREG CONTENTS

001242
001244

071506
072014

001246

051236

001250

067160

DT
DF1

s*]TEM3

EM3
DH1

CONTENTS

JRHCS1

TPC
,WAITRE ,$8DDAT,(S1
PC,WAI
,WAITBT
:$SERR

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

:RPO4 DID NOT

INTERRUPT WHEN

:g?ITED ON BIT DID SET
JWAT PC

;BIT WAITED
;REG ADDRESS

001252
001254

071506
072014

001256

051317

;RHCS1

CONTENTS

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

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

;*]TEMG

EM4

JWAITED ON BIT DID SET BUT

;TIME 1S IN ERROR

;TIME IS GIVEN IN 10 MICRO SEC.
001260

067337

DH4

;(DECIMAL)

;PC
JWAT PC

;BIT WAITED

;REG ADDRESS
001262
001264

071526
072023

001266

051430

DT4
4
DF

;=] TEMS

EMS

;TIME

IN 10 MSEC

;$ERRPC ,WAITPC ,WAITRT ,WA]ITRE ,$BDDAT ,WAITIM
;0,0,0,0,0.1
JRHAS DOES NOT

CLEAR BY

JMOVING IN ALL ONES

Czi
€z

CZRJICO, RPO4L/S5/6 FCTINL CTLRI
CZRJIC.P1M
27-JuL-78 13:05
763

764

765
766

767
;gg

001270

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

067500

DH5S

001272
001274

071546
072032

771
772
773

001276

051502

001300

067617

DH6

777
;;g

001302
001304

071562
072037

DT6
DF6

780
781

001306

051570

001310

067716

DH7

001312
001314

071574
072043

D17
DF7

001316

051640

001320

067756

770

774
775
776

782
783
784

785
;gg

788
789
790
791
792
793
794

DTS
DFS
;*]TEM6

Jx]TEM?7

J*1TEMI0

EM6

EM7

EM10

DH10

795
796

797

798
ggg
801

802
803
804
805
806
807

808
809
810
811
812
g}z
815
816
817

818

13:06

PAGE 20

071604
072046

001326

051707

001330

067756

001332
001334

071604
072046

001336

052014

DT10
DF10
;x]TEM11

EM11
DH10

DT10
DF10
:«]TEMI2

EM12

CZi
CZl

:PC

)

:GOOD DATA
JRECEIVED DATA

‘
)

REG. ADDR.

:$ERRPC ,REGADR,$GDDAT ,$RDDAT
;0,0,0,0
;LOADING RHER1 FOR ALL
JUNITS DID NOT SET ANY BITS
:IN RHAS=NO UNITS PRESENT
;PC
;REG ADDR
JRECEIVED DATA

;$ERRPC ,REGADR, $8DDAT
;0,0,0
JSPECIFIED REGISTER NONEXISTANT
. SO ABORT PROGRAM
;PC
;ADDR. OF REG.

;$ERRPC,TEMP]
;0,0

:STOPED DRIVE HAS MOL BIT
JIN RHDST =1
;PC
;TEST NO
JFAILING REG ADDR
;CONTENTS OF RHCS1

:CONTENTS OF RHCS?
:CONTENTS OF RHDS1
001322
001324

SEQ 0019

;CONTENTS OF RHER1

:$ERRPC ,$TSTNM, $8DADR,(S1,(S2.DS1,ERT
;0,0,0,0,0,0,0
:WITH SPINDLE POWERED DOWN
;RHCSZ SHOULD HAVE ONLY
JUNIT NUMBER AND IR HIGH
;PC
;TEST NO
JFAILING REG. ADR

;CONTENTS OF RHCST
:CONTENTS OF RHC(CS?Z
;CONTENTS OF RHDS1
;CONTENTS OF RHER1
:$ERRPC ,$TSTNM, $8DADR, (S1,(S2.DS1,ER1
;0,0,0,0,0,0,0
JAFTER A POWER UP WITH
;NO PACK ACKNOWLEDGE COMMAND

;RHDS1 SHOULD HAVE MOL-1, wv-0

‘

SEQ 0020

;FAILING REGISTER ADDR.

001352
001354

071604
072046

001356

052244

001360

067500

DT10

;CONTENTS OF RHCS1
;CONTENTS OF RHCS?
:CONTENTS OF RHDS1
:CONTENTS OF RHER1
:$ERRPC ,$TSTNM,$BDADR,(CS1,(S2.,DS1,ER

EM14

;AFTER POWER UP RHCC

DH5

:PC
JREG. ADDR.

DF10
J*]JTEMISG

DTS
DF5
EM15

;PACK ACKNOWLEDGE CAUSED

071546
072032

001366

052317

001370

067500

DH5

001372
001374

071546
072032

DTS

001376

052460

DFS

;*]TEMI6

;SHOULD BE=0

;GOOD DATA
JRECEIVED DATA
s $ERRPC ,REGADR,
$GDDAT , $BDDAT
:0,0,0.0

001362
001364

;*]TEMIS

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

EM16

;AN ERROR
;GOOD DATA IS BEFORE COMMAND
JRECEIVED DATA IS AFTER COMMAND
:PC

JREG. ADDR.
. GOOD DATA

JRECEIVED DATA

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

:GIVING A NO-OP COMMAND CAUSED
;AN ERROR

;GOOD DATA GIVES REGISTER
;CONTENTS BEFORE COMMAND
001400

067500

DHS
H

:RECEIVED DATA GIVES REGISTER
;g?NTENTS AFTER COMMAND
J

D vd —=d e cad

aod d d d

D e

D e e

JTEST NO

;PC

d d ed

:1E=0, DISREGARD
:ALL OTHER BITS

d ed

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

hah mh e h e h

DH10

067756

JAFTER A POWER UP WITHOUT

EM13

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

001350

J*]TEMI3

;SERRPC ,$TSTNM, $8DADR,(CS1,(S2,DS1,ER1

052122

DF10

001346

DT10

RHC(C31
RHCS?
RHDS1
RHER1

071604
072046

OF
OF
OF
OF

JFAILING REGISTER ADDR.

001342
001344

CZR

;PC
;TEST NO

;CONTENTS
;CONTENTS
;CONTETNS
;CONTENTS

CZR

PAGE 21

DH10

067756

13:06

001340

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

(ZRJICO, RPO4/S5/6 FCINL CTLRI
CZRJIC.PT
27-JuL-78 13:05

067500

EM20

JREAD-IN “OMMAND GAVE AN ERROR
;GOOD DATA HAS WHAT SHOULD BE THERE
JRECEIVED DATA HAS WHAT WAS

DH5

JPC

071546
072032

DTS
DF5

001426

053107

J*]TEM 21
EmM21

001430
001432
001434

067500
071546
072032

001422
001424

001436

053162

001440
001442
001444

067500
071546
072032

001446

053235

DH5
DTS

;AFTER

COMMAND

;REG. ADDR.
.GOOD DATA

JRECEIVED DATA

, $8DDAT
$GDDATDR,
. $ERRPC ,REGA

:0,0,0.0

DH5
DT5
DFS

J*]TEM 23
EM23

DH5
DTS

DF5

d ad
e
e
d e
d
b
d
D

;RHDST

CONTENTS DURING

;COMM ANS WAS [N ERROR

JUNLOAD COMMAND GAVE AN ERROR
;GOOD DATA GIVES WHAT SHOULD

JRECEIVED DATA GIVES WHAT WAS

067500
071546
072032

d e

CONTENTS DURING

;BE THERE
001450
001452
001454

;COMMAND WAS N ERROR

DF5

JrJTEM 22
EM22

JRHCST

001420

;*]TEM20

;0,0,0,0

052743

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

001416

DTS
DF5

071546
072032

001412
001414

:GO0D DATA

"RECEIVED DATA

)l e

*REG. ADDR.

JRECEIVED DATA GIVES WHAT WAS
;;?ERE AFTER COMMAND

DH5

067500

;DRIVE CLEAR COMMAND
s CAUSED AN ERROR
:GOOD DATA GIVES WHAT SHOULD
;BE THERE

EM17

.0,0,0.0

001410

Jx]TEMI7

$8DDAT
;$ERRPC ,REGADR,$GDDAT,

052606

JREG. ADDR.
.GOOD DATA
JRECEIVED DATA

CZR
CZR

001406

DTS
5
DF

SEQ 0021

PAGE 22

md wd ad md

071546
072032

d e

001402
001404

13:06

875
876
877
878
879

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

ek e

(ZRJICO, RPO4/S5/6 FCTNL CTLRI
CZRJIC.PI1
27-JUL-78 13:05

s THERE

AFTER COMMAND

13:06

SEQ 0022

PAGE 23

CZR
CZR

054015

J*]TEM 27
EM27

067500
071546
072032

DHS
DTS
DF5

001516

054233

;*]1TEM 30
EM30

001520

070334

DH30

071646
072065

DT30
DF 30

001526

054313

J*ITEM 31
EM31

;WRITE HEADER AND DATA

;CAUSED IMPROPER REGISTER CHANGE

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

WRITE HEADER AND DATA
;g?ANGED WRITE FROM BUFFER
;WORD NO

;GOOD DATA

001522
001524

ke
b

001506

,ERZ,ER3
;$ERRPC,(CS1,0S2,DS1,ERT
:0.,0.0,0,0,0,0

DT26
DF 26

071624
072055

OF RHER1

;CONT. OF RHERZ2
;CONT. OF RHER3

001502
001504

ed e
h e h e

JCONT, OF RHDS1

;. CONT.

ke h

;CONT. OF RHCSZ2

;CONT. OF RHCS1

;500 OFFSETS CAUSED AN ERROR

.PC

;*ITEM 26
EM26
DH26

053725
070135

;THERE AFTER COMMAND

001476
001500

DH5
DTS
DFS

067500
071546
072032

001470
001472
001474

D e
d

JRECEIVED DATA GIVES WHAT WAS

d e

; THERE

d o

COMMAND

;CAUSED AN ERROR
;GOOD DATA GIVES WHAT SHOULD BE

JRETURN TO CENTER LINE

053543

J*ITEM 25
EM25

067500

JAFTER AN OFFSET COMMAND

A _a_a_a

001466

071546
072032

DHS
DT5
DF5S

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

;RAD DATA

;$ERRPC ,ERWORD,
$GDDAT, $BDDAT
;0,0,0,0
;READ HEADER AND DATA CAUSED

a_a_a2_

001460
001462
001464

053400

001456

JITEM 24
EM24

931
932
933
934
935
936
937
938
939

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

CZRJICO, RPO4/S5/6 FCINL CTLRI
CZRJIC.P11
27-JUL =78 13:05

MACY11

CZRJICO, RPO4L/S/6 FCTNL CTLRYT
CZRJIC.P1

987
988
989
990
red
992
993
994

995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007

27-JuL-78 13:05

001530
001532
001534

MACY11 30A(1052)

27-JUL-78

ERROR POINTER TABLE

067500
071546
072032

DH5S
DTS
DFS

001536

054530

J*ITEM 32
EM32

001540
001542
001544

070334
071646
072065

DH30
D730
DF 30

001546

054637

;*ITEM 33
EM33

1008

1009
1010
1011
1012
1013
1014

1015

1016
1017
1018
1019

1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1037
1032
1033
1034
1035

1036
1037

1038
1039
1040
1041
1042

13:06

PAGE 24
; IMPROPER REGISTER CHANGE
;GO0OD DATA HAS WHAT SHOULD
sBE THERE
JRECEIVED DATA GIVES WHAT
;WAS THERE AFTER COMMAND

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

JREAD DATA CAUSED IMPROPER REGISTER
s CHANGE
;GOOD DATA GIVES WHAT SHOULD BE THERE

JRECEIVED DATA GIVES WHAT WAS THERE AFTER

001550
001552
001554

067500
071546
072032

001556

055C41

001566

055065

;*ITEM 35
EM35

001570
001572
001574

067500
071546
072032

DH5
DTS
DFS

001576

055303

J*ITEM 36
EM36

001600
001602
001604

070334
071646
072065

DH30
DT30
DF 30

055360

J*I1TEM 37
EM37

001560
001562
001564

001606

070334
071646
072065

DH5
DTS
DFS
J*ITEM 34

EM34

DH30
DT30
DF 30

; COMMAND

JREAD DATA INCORRECT

;WRITE DATA COMMAND CAUSED

s IMPROPER REGISTER CHANGE
;GO0D DATA GIVES WHAT SHOULD BE THERE
JRECEIVED DATA GIVES REGISTER
;CONTENTS AFTER WRITE DATA

sWRITE DATA COMMAND (HANGED
;JWRITE FROM BUFFER

JSEEK COMMAND CAUSED AN
;ERROR
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT

SEQ 0023
1
]
1
1
1
1
1
1

1
)
1
1
1
1
1
1
1
1
1
1
1

27-JuL-78 13:05

CZRJIC.PI

001612
001614

067500
071546
072032

001616

055575

MACY11 30A(1052)

27-JuL-78

ERROR POINTER TABLE

DHS
DT5
DF5
J*1TEM 40
EM4O

13:06

SEQ 0024

PAGE 25
;WAS

THERE AFTER SEEK COMMAND

JWRITE

CHECK CAUSED AN

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

JRECEIVED DATA GIVES WHAT WAS

001620
001622
001624

067500
071546
072032

DH5
DTS
DF5

001626

056004

J*ITEM 41
EM4T

;THERE AFTER COMMAND

JLOCKING OUT WRITES BY WRITE
;LOCK BUTTON CAUSED IMPROPER
JREGISTER CHANGE
;GO0OD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT
;WAS THERE AFTER WRITES

1098

001630
001632
001634

067500
071546
072032

001636

056265

001640
001642
001644

067500
071546

001646

056543

001650
001652
001654

070334
071646
072065

072032

DHS
DTS
DF5

;*]ITEM &2

EM4?

DHS
DTS
DF5

J*ITEM 43
EM4S

DH30
DT30
DF 30
J*ITEM 44

;WERE LOCKED OUT BY
JBUTTON

JATTEMPTING TO WRITE WITH WRITE

;LOCKED OUT CAUSED IMPROPER
JREGISTER 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
;ON DISK BEFORE WRITE WITH
JWRITE LOLK WAS ATTEMPTED
JRECEIVED DATA GIVES WHAT WAS
JREAD BACK AFTER WRITE WITH
JWRITE LOCK WAS ATTEMPTED

CZR
CZR

b nd cad = atd e v cad ) T cud D b wmd D b b D D D wd b wd wd D and b wd b cad D md wrd b e e cnd b D cd b od

CZRJICO, RPO4/S5/6 FCINL CTLR1

067500
071546
072032

DH5
DTS
DFS

001666

057377

J*ITEM 45
EM4S

= 2 D D D D

IE.

;GOOD DATA GIVES WHAT SHOULD
;BE THERE

JRECEIVED DATA GIVES WHAT WAS

DH5
DTS
DFS

001670
001672
001674

067500
071546
072032

001676

057673

J*ITEM 46
EM&L6

001700
001702
001704

070334
071646
072065

DH30
DT30
DF 30

001706

060006

JYITEM 47
EM4L7

WWWWIWWWWWWNIND

NN NN

:410, SECTOR 21, TRACK 18
. CHANGE

b d e d ed D D b D ) D ed b d D D wed wd d d ) D
b e D md wmd ot D md D b e d b e D e b d e ) D b

; TRANSFERRING ON LAST BLOCK

;CAUSED IMPROPER REGISTER

;THERE AFTCR TRANSFER

;DATA READ FROM LAST
;BLOCK [E. CYLINDER 410
;JSECTOR 21, TRACK 18 IS IN
:ERROR

s TRANSFERRING FROM NONEXISTANT

;SECTOR CAUSED IMPROPER
JREGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT WAS

d —d i
——d omd e

;THERE AFTER ATTEMPTED

067500
071546
072032

D b b e e

J*]TEM 50
EMSO

060270

DH5
DTS
DFS

D e
b
b

001720
001722
001724

070334
071646
072065

DH30
DT30
DF 30

d =D d nd D b —d

LOCK

;JBUTTON ENABLED WRITES

s TRANSFER

; TRANSFERRING FROM NONEXISTANT

;SECTOR CAUSED DATA ERROR
.GOOD DATA GIVES WHAT
sSHOULD BE IN BUFFER

JRECEIVED DATA GIVES WHAT WAS
;IN BUFFER AFTER TRANSFER

CYLINDER

D md D D b b D b D D wd wd D wd R wd e

001660
001662
001664

D e
b d

L0000

D e
e el D D e
) d e
D D ek e e

sTHERE AFTER WRITE

142

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

D wmd D b

EMG4

SEQ 0025

PAGE 26

b d b amd d weh v

057105

13:06

b e

001656

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

0000000

d D
D b D
b D D e D D

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

e
—

[ Y

2
PAGE 27

SEQ 0026

070450

DH51

001732
001734

071662
072072

DT51
DF 51

001736

060754

s*ITEM 52
EM5?2

001740
001742

001744

067500
071546
072C32

001746

061231

JITEM 53
EM53

001750
001752
001754

070334
071646
072065

DH30
DT30
DF 30

001756

061317

S*ITEM 54
EM54

DH5
DTS
DF5

ILLEGAL

FUNCTION

;REG. ADDR.
. GOOD DATA
JRECEIVED DATA
sILLEGAL FUNCTION
;358R8C6RSGADR.SGDDAT.SBDDAT.ILLEGL

;WRITE

DATA ON NONEXISTANT

;SECTOR CAUSED IMPROPER
+REGISTER CHANGE
:GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT
JWAS THERE AFTER ATTEMPTED
JWRITE DATA

JREAD HEADER AND DATA AFTER
;A SEARCH CAUSED AN ERROR

JATTEMPTED OPERATION WITH

s INVALID ADDRESS CAUSED
; IMPROPER REGISTER CHANGE

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

001760
001762
001764

071546
072032

001766

061564

067500

DHS
DTS
DF5

J*ITEM 55

EMS55

;THERE

AFTER OPERATION

JWRITING/READING WITH EXPECTED

;ADDRESS OVERFLOW ERROR CAUSED
; IMPROPER REGISTER CHANGE
.GOOD DATA GIVES WHAT SHOULD
;BE THERE
JRECEIVED DATA GIVES WHAT

s
’

d =D and wd
D

s
a

;g?NTENTS AFTER

JRECEIVED DATA GIVES REGISTER

s IMPRUPER REGISTER CHANGE

JGIVING JLLEGAL FUNCTION CAUSED

ek d

CZR.

:?ngEDATA GIVES WHAT SHOULD BE

001730

CZR.

b ad wnd cmd wd wnd wed

EMST

N
13:06

[0
YoYo JU, IV, IV, IV.IV,|
O
O O O O P 00 00 00

00000000 NN NN NVUNNNVOOROON

888X mx\uw—agogwgm?wm—-ozm\m«mbwmaoogwgm%amagomwom

i e
d
D e
d
d
d
d e
)
ed
e
d e
D
b wsd —h
b
d
b and e
d
b
D
b
D
D
d
e cd
b
b
b
D
d

;*1TEM 51

g— Y

060507

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

md mmd wd

001726

MACY11

—d nd

CZRJICO, RPO4/5/6 FCTINL C
CZRJIC.P11
27-JUL-78 1

NN =

iy Sihr S-S

067500
071546
072032

001776

062052

;*1TEM 56
EMS6

8
13:06

3
PAGE 28

SEQ 0027

;WAS THERE AFTER OPERATION

;DATA READ WITH AN EXPECTED
;ADDRESS OVERFLOW ERROR IS
s INCORRECT

i g

QOO0 NN

001770
001772
001774

DH5
DT5
DF5

JWORD NO 1 TO 260 SHOULD

[

[N
U S W Y S e

AIPNDALNININONININON

ihry

CZRJICO, RPO4L/5/6 FCINL CTLRI
CZRJIC.P1
27-JuL~78 13:05

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

;BE READ

1221

JWORD NOS 261 TO 266 SHOULD
070334
071646

002000
002002
002004

072065

DH30
D730
DF 30

002006

062262

vITEM 57
EMS7

sNOT CHANGE DUE

TO READ

;JATTEMPTING DATA COMMAND

;WITH WRONG FORMAT BIT CAUSED

; IMPROPER REGISTER CHANGE

:GOOD DATA GIVES WHAT SHOULD BE

; THERE

JRECEIVED DATA GIVES WHAT WAS
;THERE AFTER ATTEMPTED DATA

002010
002012
002014

067500
071546
072C3¢2

002016

062554

DH5
DTS
DFS

J*ITEM 60

EM60

. TRANSFER

JATTEMPTING TO MODIFY REGISTER

;DURING AN OPERATION CAUSED
; IMPROPER REGISTER CHANGE
;GO0D DATA GIVES WHAT SHOULD
:BE THERE
JRECEIVED DATA GIVES WHAT WAS
:THERE AFTER OPERATION

1263
1266

002020

070607

DH60

002022
002024

071700
072100

DT60
DF 60

002026
002030

063165
070744

J*]TEM 61
EM6
DH61

002032
002034

071716
072106

DT61
DF61

;WAS COMPLETE

:PC

JREG. ADDR.
;GO0OD DATA
;RECEIVED DATA

;MODF ING REGISTER
:3ESR8C6RSGADR.SGDDAT,SBDDAT,SBDADR

:gEVICE NOT AVAILBLE BEFORE COMMAND WAS TO BE GIVEN
;TEST NO.
;PC OF JSR

;RHCST CONTENTS
:$ERRP(C,$TSTNM, PCJSR, $BDADR

;0,0,0,0

CZRJICO, RPO4L/S5/6 FCTNL CTLRI
CZRJIC.PN
27-JuUL-78 13:05
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291

002036
002040

063246
071037

MACY11 30A(1052)
27-JuL-78
ERROR POINTER TABLE
Jx]TEM 62
EM62
DH62

13:06

SEQ 0028

PAGE 29

:2?051 HAS STATUS BITS STUCK AT ONE
JTEST NO.

;PC OF JSR

002042
002044

071730
072112

DT62
DF 62

002046

063327

J*ITEM 63
EM63

002050
002052
002054

067500
071546
072032

002056

063403

DHS
DTS5
DF5
JITEM 64
EM64

;JRHDS1

CONTENTS

sRHDS1

CONTENTS DURING

:3E8R8C6$TSTNM.PCJSR,$BDADR

;COMMAND WAS [N ERROR

JRECALIBRATE COMMAND CAUSED
; IMPROPER REGISTER CHANGE.
:?OggEDATA GIVES WHAT SHOULD BE
:TH

JRECEIVED DATA GIVES WHAT WAS THERE

002060
002062
002064

DHS
DTS
DF5

067500
071546
072032

;AFTER COMMAND

002066
002070

EM6S
DH65

063622
071132

000NN

b —d
e

N=OVONOAWVNEWNN

b
) md
b ed
b
D
b
b
b el wd
—

W N W NN NWNN NN NN N

b wed ad

)

SEEaaa

WN
=

J*ITEM6S

002072
002074

071742
072116

002076

063644

DT65
DF 65
s *I1TEM66

EM66

;A?TERRUPT FAILING
;TEST NO

;CONTENTS OF RHCS1
;CONTENTS Of RHAS
;CONTENTS OF RHDS1

;SERRPC,TSTNM,(S1,AS,DS1
;0,0,0,0.0

;HEADER AND DATA COMMAND
;FOR HEAD SELECTION TEST

;CAUSED AN ERROR
;RHDST GIVES WHAT TRACK

002100

071255

DH66

;WAS BEING WRITTEN ON CYLINDER O
JSECTOR O

:PC

;RHDST

:RHER1

;RHERZ
;RHER3
:RHCS1
JRHCS2

CZRJICO, RPO4/S/6 FCINL CTLR1
CZRJIC.P1T

1323

1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339

¢7-JuL-78 13:05

002102

002104

MACY11 30A(1052)

ERROR POINTER TABLE

071756

072123

002106

064036

002110
002112
002114

070334
071646
072065

002116

064326

27-JUL-78

TEM67

;*1TEM70

1344
1345
1346

002120
002122
002124

070334
071646
072065

1349

002126

064534

1347
1348

1250

EMG7

JREAD HEADER AND DATA ERROR
;IN HEAD SELECTION TEST
;FIRST FOUR WORDS GIVE HEADER
JNEXT WORDS ARE DATA
;GOOD DATA WORDS GIVE
s THE TRACK NUMBER IN
;BITS 4,5,6,7,8

DH30
DT30
DF 30
EM70

DH30
D130
DF 30
J*ITEM 71

EM71

DH5

002132
002134

071546
072032

DTS
DFS

002136

065277

1368
1369
}%;?

002140
002142
002144

067500
071546
072032

1372
1373
1374

002146

065225

J*]TEM 73
EM73

002150
002152
002154

070334
071646
072065

DH30
D730
DF 30

1362

1363
1364
1365
1366

1367

1375
1376
1377

JREAD HEADER AND DATA ERROR
;IN DIFFERENCE LINE TEST
;WORD NOS. 1-4 GIVE
JHEADER

JWORD NOS. 5-260 GIVE DATA
JWHICH IS THE CYLINDER
;ADDRESS

JFORCING OP1 CAUSED IMPROPER REGISTER
;

CHANGE

;BE THERE
JRECEIVED DATA GIVES WHAT WAS
067500

1358
1359
1360
1361

;0,0,0,0,0.0,0

;GO0OD DATA GIVES WHAT SHOULD

002130

1356
1357

PAGE 30
;SERRPC ,DST ,ER1 ,ERZ ,ER3,(S1,(S2

DF 66

1351

1352
1353
1354
1355

DT66

1340

1341
1342
1343

13:06

J*ITEM 74

EM7¢4

DH5
DTS
DF5

;THERE AFTER 3 INDEX PULSES
:PC
JREG. ADDR.
2GOOD DATA
JRECEIVED DATA

;$ERRPC ,REGADR,
$GDDAT , $8DDAT
:0,0,0,0

;WHILE USING UNIBUS B

;READ DATA CAUSED IMPROPER REGISTER
; CHANGE
;GOOD DATA GIVES WHAT SHOULD BE THERE
;RECEIVED DATA GIVES WHAT WAS THERE AFTER

- COMMAND

;WHILE USING UNIBUS B
JREAD DATA INCORRECT

SEQ 0029

CZRJIICO, RPO4L/S5/6 FCTNL CTLR1
CZRJIC.P11
27-JUL-78 13:05
065277

J*ITEM 74
EM74

O
S98eEese n
=
Rt
OV~
£RE
SEBIRKRE

D
—d ed
e
e
b —d b
b
d
b
b
b

002156

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

DH5
DTS
DF5

002160
002162
002164

067500

002166

065543

002170
002172
002174

070334

071646
072065

DH30
D130
DF 30

002176

065646

J=ITEM 76
EM76

071546
072032

JxITEM 75
EM?7S

1403

1407
1408

1409
1410
1411
1412
1413
1414

1415
1416
1417
1418
1419
1420
1421
1422
1423
14624
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434

PAGE 31

SEQ 0030

;WHILE USING UNIBUS B

;WRITE DATA COMMAND CAUSED

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

;WHILE USING UNIBUS B
JWRITE DATA COMMAND CHANGED
JWRITE FROM BUFFER

;WHILE USING UNIBUS B

JWRITE CHECK CAUSED AN

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

1401
1402

1404
1405
1406

13:06

002200
002202
002204

002206
002210

067500
071546
072032
066103

071353

DHS
DTS
DFS
JCITEM 77
EM77
DH77

;THERE AFTER COMMAND

;CURRENT CYLINDER DOES NOT REFLECT DESIRED ‘RHCC'

;PC

JPC OF JSR

JREGISTER ADDRESS

002212
002214

071776
072133

D177
DF77

002216
002220

066326
067500

J*]ITEM 100
EM100
DH5

.GOOD DATA
;BAD DATA

R,
, $8BDDAT
EGAD
$GDDAT
:$ERRPC ,PCJSR,R
0,0,0
;0,0,
JERROR AFTER ADDRESS PLUG CHANGE

;PC
JREGISTER ADDRESS

;GOOD DATA

DTS
5
DF

002222
002224

071546
072032

002226

066410

JITEM 101
EM101

002230

070135

DH26

JRECEIVED DATA

:8E8R8C6REGADR,$GDDAT,SBDDAT

JUNIT DID NOT GO OFFLINE WHEN ADDR
JPLUG WAS REMOVED

:PC

;CONT OF RHCS1
;CONT OF RH(CSZ

€2
4

CZRJICO, RPO4/S5/6 FCTNL C LRT
CZRJIC.P1N
27-JuUL-78 1 3 :05
.

1435
1436
1437
1438
1439
1440

1441
1442
1643
1444
1445
1446
1447
1448
1449
1450
1451
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

MACY11 30A(1052)

27-JuL-78

ERROR POINTER TABLE

DT26
DF 26

002232
002234

071624
072055

002236

066472

JITEM 102
EM102

002240

070135

DH26

13:06

PAGE

SEQ 0031

;CONT OF RHDS1
;CONT OF RHERZ
JCONT OF RHER3
:$ERRPC,CS1,(S2.DS1,ER2,ER3

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

JUNIT DID NOT COME BACK ONLINE WHEN

. ADDR PLUG WAS REPLACED
:PC

s CONT OF RHCS1
;CONT OF RH(CSZ2

;CONT OF RHDS1

002242
002244

071624
072055

002246

066551

002250

DT26
DF 26
J*]TEM

103

[M103
DHZ26

070135

. CONT OF RHERZ
JCONT OF RHER3
;$ERRPC,CS1,0S2.DS1,ER2.ER3

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

JREGISTER CONTENTS INCORRECT BEFORE A
;géAGNOSTIC SEEK

2 CONT OF RHCS]

;CONT OF RH(CSZ2

;CONT OF RHDS1

002252
002254

071624

002256

066635

002260

070135

002262
002264

DT26
DF 26

072055

071624
072055

J*]TEM

104

EM104

DHZ26

DT26
DF 26

;CONT OF RHERZ2
;CONT OF RHER3
;$ERRPC,(S1,CS2.DS1,ER2,ER3
:0.0,0,0,0.0,0
JREGISTER CONTENTS INCORRECT AFTER A
;géAGNOSTIC

SEEK

;CONT OF RHCS1
;CONT OF RH(CSZ2
;CONT OF RHDS1

;CONT OF RHERZ
;CONT OF RHER3

J$ERRP(C,(S1,(S2,DS1,ERZ
,ER3

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

CZRJICO, RPO4/5/6 FCINL CTLRI
CZRJIC.PN
27-JUL-78 13:05
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486

1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501

g
gl Qi S S
S
Y o o0
NOWVMS
W =200 oo~

———d b
ed
d
v
e
e
—d

Vi \Yai¥a)

1502
1503
1504
1505
1506

MACY11 30A(1052)

ERROR POINTER TABLE
:*RH11

002266

000254

27-JUL-78

RPVEC:

G
13:06

SEQ 0032

PAGE 33

REGISTERS

254

JRPO4 VECTOR ADDRESS

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

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

;*CONTROL AND STATUS REGISTER 2 (RH(CSZ)
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000

ust
usSe=
US4=
BAIUNIBCLR
[R=
(R=
MPL MXF =
PGE=
NEM=
NED=
UPE =

1
2
4
10
20
40
100
200
400

100000

DLT=

100000

040000

WCE-

1000
2000
4000
110000
20000

40000

JUNIT SELECT (BIT #0)
JUNIT SELECT (BIT #1)
JUNIT SELECT (BIT #2)
;BUS ADDRESS INCREMENT INHIBIT (BIT #3)
;UNIBUS B DC LO (BIT #44)
;CLEAR (BIT #5)
; INPUT READY (BIT #6)
;OUTPUT READY (BIT #7)
;MASS BUS PARITY ERROR (BIT #8)
JMISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #10)
JNON EXISTANT MEMORY (BIT #11)

JNON EXISTANT DRIVE (BIT #12)
JUNIBUS PARITY ERROR (BIT #13)
JWRITE CHECK ERROR

;DATA LATE

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

(BIT #14)

(BIT #15)

czl
cz

PAGE 34

SEQ 0033

100000

GO=
IE=
RDY=
A16=
A17=
PSEL=
DVA=
MCPE=
TRE=
SC=

;GO (BIT #0)
s INTERRUPT ENABLE (BIT #6)
;READY (BIT #7)
;HIGH ORDER UNIBUS BITS (BIT #8)
JHIGH ORDER UNIBUS BITS (BIT #9)
;PORT SELECT (BIT #10)
;DEVICE AVAILABLE (BIT #11)
;MASSBUSS PARITY ERROR (BIT #13)
;TRANSFER ERROR (BIT #14)
;SPECIAL CONDITION (BIT #15)

1
100
200
400
1000
2000
4000
20000
40000
100000

;*STATUS REGISTER (RHDS1)
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000
000001
000002
000004
000010
000020
000040
000100
00200
000400
001000
002000
004000
010000
020000
040000
100000

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

40000
100000

4
10

WCF ECH=
HCE=
HCRC=
AOE -

40
100
200
400
1000

IAE=

WLE=

DTE=
OPl=
UNS=
DCK=

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

4000
10000
20000

RMR=
PAR=

FER=

(#01)

1
2
&
10
20
40
100
200
400
1000
2000

;*ERROR REGISTER #01
ILF
1
2
ILR=
20

2000

4000

10000
20000
40000
100000

AYA

000001
000100
000200
000400
001000
002000
004000
020000
060000

(RHER1)

CZF

(@)
~

ERROR POINTER TABLE

13:06

AMACYCAIARYAIAIAIAIAIAIAYAR INIAIA)

=2 OO 00
W

gwwww
WN - OV~ AWV

27-JUL-78

;*CONTROL AND STATUS 1 REGISTER. (#400)

[V,

d
D
D
b ad
D
d e
D
D
)
d
D md e
od
e
b o

MACY11 30A(1052)

;*RP0O4 REGISTERS

mwmmmm&\nwmmwmmwmmwwmmmmw
AONINAININININ
AN = —

CZRJICO, RPO4L/S5/6 FCTNL CTLRI
CZRJIC.P1
27-JuUL-78 13:05

(402)
;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)
JECC HARD ERROR (BIT #6)
;HEADER COMPARE ERROR (BIT #7)
;HEADER CRC ERROR (BIT #8)
;ADDRESS OVERFLOW ERROR (BIT #9)

; INVALID ADDRESS ERROR (BIT #10)
JWRITE LOCK ERROR (BIT #11)

;DRIVE TIMING ERROR (BIT #12)
JOPERATION INCOMPLETE (BIT #13)
;DRIVE UNSAFE (BIT #14)
;DATA (HECK ERROR (BIT 15)

J*MAINTAINABILITY REGISTER (RHMR) (#03)

1592
1593
1594
1595
1596

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

40
1000

PAGE

;DIAGINOSTIC MODE (BIT #0)
JMAINTAINABILITY CLOCK (BIT #1)
;MAINTAINABILITY 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

SEQ 0034

(#04)

JDEVICE C (BIT #40)
;DEVICE 1 (BIT #1)

AT0=
AT1=
AT2=
AT3AT4=
ATS=
AT6=
AT7=

JDEVICE 2 (BIT #2)
;DEVICE 3 (BIT 43)
;DEVICE &

(BIT #4)

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

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

1597
1598

1599
1600

;*DRIVE TYPE REGISTER (RHDT) (406)
J*EACH BIT IS CALLED BY BIT NUMBER

1601

1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624

1625

1626
1627
1628
1629

; *LOOK~-AHEAD REGISTER (RHLA)
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

JEXTENSION 1 (BIT #0)
JEXTENSION 2 (BIT M1 )
SJEXTENSION 3 (BIT #2)
JEXTENSION & (BIT #3)
JEXTENSION 5 (BIT #4)
JEXTENSION 6 (BIT #5)
;SECTOR COUNT FIELD
JSECTOR COUNT FIELD
;SECTOR COUNT FIELD
JSECTOR COUNT FIELD
;SECTOR COUNT FIELD
;TRACK FIELD 1 (BIT

EXT1EXT2EXT4EXT10-

EXT20=
EXT40=
SC1=
SC2=
SCé4=

SC10=
$C20=
TRK1=
TRK?2=

;TRACK FIELD 2
;TRACK FIELD 3

TRK4=

TRK10=
TRK20=

(#07)

100000

JTRACK FIFLD 4
;TRACK FIELD S

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

(BIT
(BIT

;*ERROR REGISTER #2 (RHERZ) (#10)
000001
000002

wCu=
CSF=

;WRITE CURRENT UNSAF E (BIV #0)
;CURRENT SINK FAILURE (BIT 1)

CZR

AIRIAINIAIRNIMAOI
AN RO AININAIRNI AN AN AN NN NN D

1585

1586
1587
1588
1589
1590
1591

ERROR POINTER TABLE

I
13:06

ACALAIACAIAIA LA LR IAIATAITALIALAIAIAIAIAIAIACAIRIAIAIALIA

1584

000001
000002
000004
000010
000020
000040
001000

27-JUL-78

AR LA

1574
1575
1576
1577
1578
1579
1580
1581
1582
1583

MACY11 30A(1052)

(ZRJICO, RPO4/5/6 FCTINL C
CZRJIC.P1
27-JuL-78 13:

1630
1631

000004
000010

1634
1635
1636
1637
1638
1639
1640
1641
}22%

000100

1632
1633

000020
000040

000200
000400
001000
002000
004000
010000
020000
100000

}gfig

MACY11 30A(1052)

27-JUL-78

ERROR POINTER TABLE

WSU=
CSu=

MSE=
TDF=
TUF =
FEN=
WRU=
MHS=
NHS=
IXE=
vu30PLU=
ACU=

20
40

OF25=
0F50=
OF100-

0F200OF400=
OF800=

4
10
20
40

1653
1654
1655
}ggg

000200
002000
004000
010000

OFREV=
HCI=
ECI
FMT22=

200
2000
4000
10000

1659
1660

1664

1665

1666

;OFFSET 25 MICRO INCHES (BIT #0)
JOFFSET 50 MICRO INCHES (BIT #1)
JOFFSET 100 MICRO INCHES (BIT #2)

JOFFSET 200 MICRO INCHES (BIT #3)
JOFFSET 400 MICRO INCHES (BIT #4)
;OFFSET 800 MICRO INCHES (BIT #5)

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

;*DESIRED CYLINDER ADDRESS (RHCA)

(#12)

;*CURRENT CYLINDER ADDRESS (RHCC)

(#13)

s*EACH BIT

1667
1668
1669
1670
1671
1672
1673
1674
1675

(#11)

1
2

;*EACH BIT

1661
1662
1663

;JMOTOR SEQUENCE ERROR (BIT #4)
;TRANSITIONS DETECTOR FAILURE (BIT #5)
; TRANSITIONS UNSAFE (BIT #6)
;FAILSAFE ENABLED (BIT #7)
;WRITE READY UNSAFE (BIT #8)
JMULTIPLE HEAD SELECT (BIT #9)
;NO HEAD SELECTION (BIT #10)
;INDEX ERROR (BIT #11)
;30VOLT UNSAFE (BIT #12)
;PLO UNSAFE (BIT #13)
JACUNSAFE (BIT #15)

100
200
400
1000
2000
4000
10000
20000
100000

000001
000002
000004

1658

IS CALLED BY BIT NUMBER.

IS CALLED BY BIT NUMBER

;*SERJAL NUMBER REGISTER (RHSN)
J*EACH IS CALLED BY BIT NUMBER

}g;g

SEQ 0035

;WRITE SELECT UNSAFE (BIT #2)
;CURRENT SWITCH UNSAFE (BIT #3)

s*OFFSET REGISTER (RHOF)

000010
000020
000040

PAGE 36

4
10

1646
1647
1648

1649
1650
}22;

13:06

;*ERROR REGISTER #03 (RHER3)

(414)

(#15)

1678
1679

000001
000002

PSU=
VUF =

1
2

;PACK SPEED UNSAFE (BIT #0)
;VELOCITY UNSAFE (BIT #1)

1681
1682
1683

000020
000040
000100

PRE =
ACL=
DCL=

20
40
100

;DISK PACK ROTATION ERROR (BIT #4)
JAC LOW (BIT #5)
:DC LOW (BIT #6)

1680

1684
1685

000010

020000
040000

UWR=

ACE=
SKl=

20000
40000

JANY UNSAFE EXCEPT READ/WRITE

(BIT #3)

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

AMATRLALA A TALRIAIA
A IRAIALAIAAAIATAIACAIAIRIIAIAIRIRNIAIAOCRIAIASIAIAIAINIAIAIADI
AR AR
AR AN NI
NN

27-JuL-78 13:05

CZRJIC.P1N

CZRJICO, RPO4/S5/6 FCTNL CTLR1

CZRJICO, RPO4/S5/6 FCTINL CTLR1T

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

1699
1700
1701

170¢
1703
1704
1765
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)
;*EACH BIT IS CALLED BY BIT NUMBER

;*ECC PATTERN REGISTER (RHECZ2) (#17)
;*EACY BIT 1S CALLED BY BIT NUMBER

SEQ 0036

(ZR
CZR

MACY11 30A(1052)

C(ZRJICO, RPO4/S5/6 FCTNL CTLRI
CZRJIC.PIN
27-JUL-78 13:05

27-JUL-78

L
13:06

3
PAGE 38

SEQ 0037

RHDB:
RHWC :
RHBA :

RHCS2:

176722
176702
176704

;DATA BUFFER
JWORD COUNT
;BUS ADDRESS

176710

;CONTROL AND STATUS 2

;*RP04/5/6 DISK 1/0 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC
002300
002302
002304
002306
002310
002312
002314
002316
002320
002322
002324
002326
002330

002332
002334
002336

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

RH(S1:

176700

;CONTROL AND STATUS 1

RHERZ:
RHOF :
RHCA:
RHER3:
RHAS :

176740
176732
176734
176742
176716

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

RHERY:
RHDST:

RHMR :
RHDS1:
RHDT :
RHSN:
RHEC1:
RHE(2:

RHCC:

RHLA:

176714
176706

JERROR #1
;DESIRED SECTOR/TRACK ADDRESS

176724
176712
176726
176730
176744
176746

JMAINTAINABILITY
;DRIVE STATUS
;DRIVE TYPE
s SERIAL NUMBER
JECC POSITION
JECC PATTERN

176736

s CURRENT CYLINDER ADDRESS

176720

. LOOK=-AHEAD

;*ADDITIONAL I1/0 REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC
02340
002342

176750

176752

RHBAE:

RHCS3:

176750

;*P-CLOCK (KW11-P)
002344
002346
002350

172540
172542
172544

;BUS ADDRESS EXTENSION REGISTER

176752

PCLCSR: 172540
PCLBUF: 172542
PCLCTR: 172544

;CONTROL AND STATUS REGISTER #3

1/G REGISTERS
;CONTROL AND STATUS REGISTER
sCOUNT SET BUFFER
s COUNTER

(DCL)

AL AL N RN A AL AL AL A AU NI N AU NI AL N AL N AU AU AU NI NN AU AL AU AU AV

176722
176702
176704
176710

A AL A AL

002270
00227¢2
002274
002276

(ONTROLLER

ALALALALAIALRLALAI AN A AR

NSWO
NO

1721

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

—

—d ad and amd awd

b pd

~ NANNNNWVNNNY
-l
b
b
A=l
D D b =

.SBTTL

N NI NN A

’

1750
1751
1752
1753
1754
1755
1756

SEQ 0038

PAGE 39

;*ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE
;«FOR THE

1758

TIME JUST AFTER THE "ERROR'' ERROR COMMAND

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

000000

000000
000000
000000
000000
000000
000000

DB:

WwC:
BA:

(Sé:

(S1:

ER1:
DST:
ER2:

:
OF
CA:

ER3:

AS:
MR:

DS1:
DT:
SN:

ECi:
EC2:
000000

CC:
LA:

OQOOOOCOOOOOOOCOO0OOO

000000
000000

OCOOO

;*REFLECTS

1778
1779
1780

1781
1782
1783
1784
1785
17
1787

13:06

;*THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SNAPSHOTS
J*ANY TIME THERE IS AN ERROR ALL THESE WILL BE FILLED

1757

1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777

27-JUL-78

THE

CURRENT

STATE OF

THE MACHINE

;DATA BUFFER

;JWORD COUNT

;BUS ADDRESS

;CONTROL AND STATUS 2

;CONTROL AND STATUS 1

JERROR M1

;DESIRED SECTOR/TRACK ADDRESS
JERROR #¢
sJOFFSET
sDESIRED CYLINDER ADDRESS
;ERROR #3
JATTENTION SUMMARY

JMAINTAINABILITY
;DRIVE STATUS
;DRIVE TYPE
;SERIAL NUMBER
JECC POSITION
JECC PATTERN
s CURRENT

CYLINDER ADDRESS

;LOOK-AHEAD

AUMNOAUNDNIRAD NN NI AU NI AN NN NN NN NN N NUN)

(2RJICO, RPO4/S/6 FCTNL CTLRI
CZRJIC.PI
27-JuL-78 13:05

MACY11 30A(1052)

CZRJICO, RPO4L/5/6 FCTNL CTLRY
CZRJIIC.PII
27-JuL-78 13:05

30A(1052)

27-JuL-78

13:06

580 0039

PAGE 40

;*FUNCTION EQUATES
002422
0026422
002424
002426
002430
002432
002434
002436
002440
002442
0026444
002446
002450
002452
002454
002456
002460
002462
002464

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

:
FUTABL

;*TABLE

NOPERA:

RECALI:

RELEAS:

FUNCTIONS FOR RHCS1

SERCH:

WRCHEK:
WRCHDT:
WRIDAT:
WRIFOR:
READAT:
RFFQR:
SEECOM:
OFSETC:
RETCL:
PKACK:
READIN:
JLLEGL:

50
52
60
62
70
72
4
14
16
22
20
.WORD

000422
000422

WRFROM:
REINTO:

.BLKW
.BLKW

SET

;SEARCH COMMAND

JWRITE CHECK DATA
JWRITE CHECK HEADER AND DATA
;WRITE DATA
;WRITE HEADER AND DATA

;READ DATA
;READ HEADER AND DATA
;SEEK COMMAND
;OFFSET COMMAND
JRETURNTO CENTERLINE
O

JPACK ACKNOWLEDGE
cREAD IN

274.
274.

(FORMAT)

;COMPUTED ILLEGAL FUNCTION

. *DATA BUFFERS FOR READ/WRITE
002470
003534

TO BE

;NO OPERATION
JUNLOAD (STAND BY)
JRECALIBRATE
:DRIVE CLEAR
JRELEASE (DUAL-PORT OPERATION)

UNLOAD: 2
DCLEAR:

THEN “'GO'* BIT HAS

JWRITE FROM THIS BUFFER
JREAD INTO THIS BUFFER

MONUAONLNI NN AN AL PRI RO AU NU RO NNV AL NU NN AU N AN NI NS N

OVBNOWNEWN—=O

NP
3

b
od
id
D
D
b ad
D
d
—t

)

el awd el wd

D ad ——d

il md

—d wmd =

CEERELE
LR PR 3R 3

1789
1790
1791
1792

MACY11

1821
1822
1823
1824
1825
1826

1827

1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850

MACY11 30A(1052)

27-JuL-78

13:06

PAGE 41

SEQ 0040

;*RESERVED CORE LOCATIONS
004600
004602

004606

000000
000000
000000
000000

REGADR:
ERWORD:
TSTNM:
RP4LVEC:

0
0
0
O

;SAVE REGISTER ADDRESS HERE
:SAVE ERROR WORD NUMBER HERE
;TEST NUMBER

;CONTAINS ADDRESS OF LOCATION
sWHERE AN RPO4 INTERRUPT IS TO VECTOR TO
sTHIS MUST BE MOVED

JEFFECTIVE.
004610

000000

OFSTVL:

004612

000024

SAVERE:

.BLkW

INTO

°'RPVEC'

TO BE

;OFFSET VALUE USED IN OFFSET TEST
20.

;BLOCK TO SAVE REGISTERS FOR PRETEST
;HARDWARE REGISTER SNAPSHOTS - THESE

JARE USUALLY THEN CHANGED TO REFLECT
004662
004664

000000
000000

FINALA:
FINACC:

JEXPECTED CONDITIONS AFTER THE TEST

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

O
O

;*TABLE FOR ATTENTION BITS
;*ATTENTION TABLE
004666
004671
004674

001

010
100

002
020
200

004
040

ATABLE:

.BYTE

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

CZRJICO, RPO4/S5/6 FCINL CTLRI
27-JuL-78 13:05

CZRJIC.P1

CZIRJICO, RPO4/S5/6 FCTNL CTLRT
CZRJIC.PIT

27-JUL-78 13:05

1851
1852

1322

1855
1856
1857
1858
1859

MACY11 30A(1052)

27-JUL-78

13:06

PAGE 42

SEQ 0041

;*FLAGS AND INTERNAL PROGRAM CONTROL WORDS

004676
004716
004720

000010
000000
000000

UNITS:
UNIT:
NOUNIT:

.BLKW
WORD
.WORD

8
O
O

004722

000000

NUNIT:

.WORD

004724

000000

NOPUSH: 0

004726

000000

000000
000000

UNITSL:
UBUSB:

004734
004736

000000
000000

ERFLGS: O
FIRST:
O

:THAN ONE UNIT
;ALL ONES INDICATE NONE OF THE OPERATOR
;INTERVENTION TESTS WILL BE PERFORMED
;ALL ONES INDICATE UNIT TO BE SELECTED
JUNIT NO. SELECTED
:IF ZERO UNIBUS PRESENT
:IF ONES NO UNIBUS B
;ERROR FLAG
:IF ZERO WILL TYPE HEADER

1871

004740

000000

ATTENT:

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:

SINITIAL UNIT NO.

1881
1882
1883
1884
1885
1886

004754
004756

000000
050000

TMPO:
TMP1:

.WORD
_WORD

1860
1861
1862
1863
1864
1865
1866
1867
1868

1298
13;%

1876
1877

1%;8

1887

004730
004732

004742

004750

004760

000000

SELECT:

.WORD

.WORD
0

;IF ONES WILL NOT TYPE HEADER

TOTALAT:0

RH70:

TMP4 :

:TOTAL ATTENTION GITS

.WORD

;THIS IS FILLED WITH -1
JUNIT UNDER TEST
;NUMBER OF UNITS PRESENT
:USED TO KEEP TRACK OF UNIT UNDER TEST
:USED TO DETERMIN IF THERE ARE MORE

:IF = 1, PROGRAM IS RUNNING ON RwWP04 SYSTEM
:1F = 0, PROGRAM IS RUNNING ON RJPO4
- USED DURING

:CHECKING ALL ADDRESS PLUG ADDRESSES

O
O

:TEMP STORAGE

s TEMP STORAGE

CZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PI
27-JuUL-78 13:05
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902

3
Do 0aaa05a94

VONOWVNETMWN=O

G
W
P QI
P O

00 0V O V0000

30A(1052)
.SBTTL
.SBTTL
.SBTTL

27-JuUL-78

004762
004770
004774
004776
005004
005010
005012
005016

005024
005030
005032
005036
005040
005044
005052
005060
005066
005074
005102
005110
005116
005124
005130
005134
005142
005150
005156
005162
005170
005176
005204
005212
005214
005216
005222
005224
005232
005240

005244
005252
005260

012737
005037

005037

000005
012706
005026
022706
001374
012706

012737
012737
012737
012737
012737
012737
012737
012737
005037
005037

112737

012737
012737
013746
012737
012737
012737
022777
001012
000403
012716
000002
012737

SEQ 0042

SETUP TESTS

CLR

§¢X2¢USH

;DO NOT JUMP OVER ANY TEST

(LR

@#SELECT
IHNOPUSH

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

BEGIN1: MOV

177777
004724

004726

BEGIN2: MOV

CLR
BR

BEGIN:

PAGE 43

;JUMP OVER OPERATOR REQUIRED TESTS
;DO NOT SELECT UNIT

004724

004726
004724

#=1 ,34#NOPUSH
a#SELECT

177777

004726

13:06

«+DJAGNOSTIC CODE*+

.SBTTL

005022
005022

MACY11

START
#-1,QASELECT

JSELECT UNIT

JINTERVENTION TESTS - NORMAL RUN

START:

#$CMTAG.R6
;:FIRST LOCATION TO BE CLEARED
(R6)+
;2CLEAR MEMORY LOCATION
#SWR,R6 ; ;DONE?
=6
;;LOOP BACK IF NO
#STACK,SP
;:SETUP THE STACK POINTER
#$SCOPE ,a#I0OTVEC ;10T VECTOR FOR SCOPE ROUTINE
#?/0,a#I0TVEC+2 ;;LEVEL 7
H#SERROR ,a#EMTVEC . ;EMT VECTOR FOR ERROR ROUTINE

001100

001140

001000
044730
000340
047126
000340
050652
000340

050736

000340
001212
001214
000001
005142
005150
000004
005216
177570

177570

177777

000020
000022
000030

#3460, NEMTVEC+2 ;.LEVEL 7

000032

000034
000036
000024
000026

001140
001142

012737
012737
013700

000000
000200
002266

177776
000036

. ;POWER_FAILURE

VECTOR

#1,S$ERMAX

;;ALLOW ONE ERROR PER TEST

H#DSWR, SWR

;;SETUP FOR A HARDWARE SWICH REGISTER

#.,$LPADR
#.,SLPERR
SHERRVEC,~(SP)
H64S ,NERRVEC
H#DDISP,DISPLAY
#-1,3SWR

173726

000176
000174
000004

#$SPWRDN
, a#PWRVEC

#340,a4PWRVEC+2 ;;LEVEL 7
$TIMES
;s INITIALIZE NUMBER OF ITERATIONS
$ESCAPE
;;CLEAR THE ESCAPE ON ERROR ADDRESS

000004
001140
001142

012737
012637

,,TRAP VECTOR FOR TRAP CALLS

#340, ¥ TRAPVEC+2;
LEVEL 7

001115
001106
001110

005224

HSTRAP ,a#TRAPVEC

;o INITIALIZE THE LOOP ADDRESS FOR SCOPE
;.SETUP THE ERROR LOOP ADDRESS
;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
;;AND A HARDWARE DISPLAY REGISTER
;;TRY TO REFERENCE HARDWARE SWR

64%:

MOV

66%
65%
#65%, (SP)

65%:

MOV

#SWREG, SWR

;.POINT TO SOF TWARE SWR

66%:

MOV

(SP)+,a#ERRVEC

;,RESTORE ERROR VECTOR

MOV
MOV
MOV

#D1SPREG,DISPLAY

;oBRANCH IF NO TIMEOUT TRAP OCCURRED
;;BRANCH IF NO TIMEOUT
;2SET UP FOR TRAP RETURN

#0,PS
;SET PROCESSOR STATUS 10 0
#200, a4 TRAPVEC+2;
TRAP PRIORITY = 4
a#RPVEC RO
JGET RP VECTOR ADDRESS

CZRJICO, RPO4/5/6 FCINL CTLRI
CZRJIC.PN
27-JuL-78 13:05
1944
1945
1946
1947
1948
1949
1950
1951

044666
000340

MOV
Mov

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

;THIS IS FOR UNTIMELY INTERRUPTS
:DRIVE INTERRUPT SERVICE ROUTINE

005274
005300
005304
005306
005310

004737
005737
001001

045666
004736

JSR

PC,a#$TKINT

;INITIALIZE THE TTY KEYBOARD

BNE
B8R

1%
2%

;DON'T GIVE HEADER IF NOT
;HEADER 1ST TIME THROUGH

,68%

;s TYPE ASCIZ STRING

,70%

;s TYPE ASCIZ STRING

104401

005322

104401

005422

104401

005466

104401

005566

104401

005662

104401
000426
104401
000422

005762

1969
1970

005754
005760
006036
006042

1972

006110

012737

177777

006116
006122
006124
006132
006134
006136
006140

005737
001006
023727
001005

000042

006146
006154
006156
006164

032777
001403
012737

1971

1973
1974
1975
1976
1977
1978
1979
1980
1981
1982

1983

1984
1985
1986
1987
1988
1989
1990

1991
1992
1993
1994
1995
1996
1997
1998
1999

4
PAGE 44

012720
012710

006110

1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968

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

005264
005270

000402
000137

1952
1953
1954
1955
1956
1957

MACY11

005314
005314

005320
005414
005420

005460
005464
005560
005564
005654
005660

000435
000417

000435
000433
000435

TST

1%:
2%:

TYPE

67%

69%

TYPE

.NO HEADER

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

748

;2 TYPE ASCIZ STRING

71%

73%

TYPE

,78%

TYPE
BR

;IS THIS FIRST TIME ROUND ?

L72%

TYPE

:;GET OVER THE ASCIZ
::GET OVER THE ASCIZ

,76%
75%

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

B8R

77%

;:GET OVER THE ASCIZ

79%

::GET OVER THE ASCIZ

SND1:

MOV

#-1,a#F IRST

JNEXT TIME DO NOT GIVE HEADER

BNE
CMP
BNE
GTSWR
BR
MOvVB

TST

Y 1%,

:;ARE WE RUNNING UNDER XXDP/ACT?

65%
#1,$AUTOB

;sSET AUTO-MODE INDICATOR

TYPE

006044

004736

A4SND1

B8R

TYPE

001140

000176

000001

001134

64%:

010000

172764

RH70CK: BIT

000001

004750

104406

000403
112737

JMP

o#F IRST

;PRIORITY = 7

B8EQ
MoV

.80%

;oTYPE ASCIZ STRING

64%
SWR,#SWREG
65%

#SW12,aSWR

3%
#1,34#RH70

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

:LOOK TO SEE IF USING RH70

JIF SW12 = 0, SKIP NEXT
;IF SW12 = 1, CU IS AN RH70

;*1S THERE A P-CLOCK (KW11-P) ON THE SYSTEM
;*IF SO MAKE

'WAT'' TRAPS GO TO

;*IF NOT MAKE

'WAT'

'WAIT.P'

;*IF SO MAKE RPO4 INTERRUPTS GO TO 'TIME 1°'
TRAPS GO TO 'WAIT.T'

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

;

MOV

A48, AMERRVEC

;SET TIME-OUT VECTOR

JMP

.DO NOT USF (CLOCK

NOP

SEQ 0043

2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029

012737
012737

041670

005737
001442

004726

006276

104401
000424
104412
042716
011637
012637

006302
006304

001403
013737

SEQ 0044

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

CZRJICO, RPO4/S5/6 FCTNL
CZRJIC.PIN
27-JuL-78

177777

004606

047274

006214

a#PCLCSR

MOV
MOV

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

004730

004716

JREFERENCE P-CLOCK STATUS REGISTER
;ADDRESS = 172540

JVECTOR TO TIME1

MOV

HWAIT.T ,Q#8TRPAD+20 ;THERE

MOV
MoV

#TIME2 ,Q#RPLVEC ;RP04/5/6 INTERRUPTS GO TO

TST
BEQ
TYPE

a¥SELECT

RDOCT

177770
004716

004730

2%:

TST

#-1,34PRITEM

TST1
.65%
648

;

IS NO P-CLOCK

;CLEAR PREVIOUS

ITEM NUMBER

;WAS IT A 200 START

BRANCH IF STARTING FROM 200
;. TYPE ASCIZ STRING
;;GET OVER THE ASCIZ

BIC

4177770, (SP)

MOV
MOV

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

BEQ

TST1
:
BRANCH IF STARTING FROM 200
SNUNITSL,INUNIT ;SET UNIT NUMBER

MOV

JONLY KEEP LAST 3 BITS
sSAVE UNIT TO BE
;SAVE UNIT TO BE

TESTED
TESTED

‘'TIME 2'

CZRJICO, RPO4/S5/6 FCTNL CTLR1
CZRJIC. P11
27-JuL-78 13:05
2030
2031

006312
006314
006322
006330
006334

000004
012737

MACY11

TST1:

000004

MOV

#2% ,SHERRVEC

MOV
MOV
MOV
DEC

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

MOV

CMP

#ERRVEC+2 ,@#ERRVEC ;RESTORE TRAP CATCHER
(SP)+,(SP)+
s CLEAN STACK

ERROR
BIT
BNE

7
#SW13,aSWR
4%

012737

006370

006350
006354

012700
012701
013102
005300
001375
000454
012737
022626
016137

000024
002270

1%:

000006

000004

177776

001200

032777
001036

020000

172522

104401

006426

012746

2%:

104401

000413
000420
005726
005726
104401

000413
012737
012737

BNE
BR

MOV

-2(R1) ,$TMP]

sNO REGISTERS ARE SAVED
JSET UP FOR BUS

TIMEOUT

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

FIRST REG.

:BRANCH IF 24 DONE

;STORE FAILING REG ADDR
JREGISTER NON EXISTANT
;INHIBIT ERROR PRINTOUT
JBRANCH IF YES

64%

.65%

;. TYPE ASCIZ STRING

000204

MOV

#ADDMOD , -~ (SP)

JGET READY TO TYPE STARTING ADDRESS

041004

TYPOC
HALT
JMP

¥ SEOP

3%:

MOV

TYPE

104402

012737
005037
005777
005237

SCOPE

000030

006342

000C00
000137

SEQ 0045

#1,8TIMES
2.D0 1 ITERATION
#2-1,a4TSTNM
JTHIS SAVES TEST NUMBER
#STACK, SP
;SET UP STACK POINTER
H#REGSA1,a#EMTVEC;ERROR VECTOR SO THAT

012737
012706
012737

001212
004604

000427

MOV
MOV
MOV
MOV

009001
000901
001000
047136

104007

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

006600
004750
173602
004750
006550

000004

CLR
TST
INC

TYPE

TRP:

006612

BR
BR
TST
TST

TYPE

047126

000030

000006

000004

RTN:

MOV

#TRP ,a#4
RH70

;:GET OVER THE ASCIZ

;OF ''CHANGE OF BASE ADDRESS'' ROUTINE

;STOP TO FORCE THE CORRECT RESTART

;GO TO END OF PROGRAM ===-e—=oe——== >
JINITIALIZE VECTOR
JINIT RH INDICATOR ++

(C.W

aRHBAE

;ADDRESS RPBAE (RH11/RH70?)

RTN
(SP)+
(SP) +

;AND GET QuT

RH70
L67%
66%

,65%
64%

:FOUND AN RH70-~SET MASK
;s TYPE ASCIZ STRING
:;GET OVER THE ASCIZ
;RESTORE

THE STACK

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

#$ERROR ,a#EMTVEC;RESTORE ERROR VECTOR
;SO THAT REGISTERS ARE SAVED
HERRVEC+2 ,a#ERRVEC ;RESTORE TRAP (AT(HER

006726

104005

105711

001407
011137
005037
010137

002316

177777

001126
001124
004600

004604

TST2:

SCOPE

Mov

MOV
Mov
MOV
0}
TSTB

#1,S$TIMES

;.D0 1

#3-1,a4TSTNM

;THIS SAVES

#STACK,
SP

®#RHAS ,R1

#-1,aR1

MOV

aR1
TST3
;
aR1,a4$BDDAT
a#$GDDAT
R1,3#REGADR

ERROR

BEQ

MoV

CLR

ITERATION

;SET STACK POINTER

TEST NUMBER

JR1 HAS ADDRESS OF RHAS
sTHIS WRITES ALL ONES INTO RHAS
;TEST RHAS FOR ALL 0°S
BRANCH IF GOOD

;BAD DATA
. GOOD DATA

JFAILING REG.

CZf
Czi
ALAIALNALA
LA

013701
012711

001212

REFERENCE EACH REGISTER

ctm
e

006676
006702
006706
006710
006712
006716
006722

000001
001000
000002

SEQ 0046

PAGE 47

000004
012737
012706
012737

006654
006656
006664
006670

13:06

2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093

27-JUL-78

(RHAS)

2076
2077

MACY11 30A(1052)

CZRJICO, RPO4/S5/6 FCTINL CTLRY
CZRJIC.P1T
27-JuL-78 13:05

;RHAS DOES NOT CLEAR BY WRITING
JALL ONES INTO IT

007114
007122
007124

4%:

000010
002302
177777

#SW13,RSWR
43

;INHIBIT ERROR TYPEQUT?
:BRANCH IF YES

648
S
SRHAR

::GET OVER THE ASCIZ

TYPE
BR
MOV
MOV
CLR

MOV
MOV
MoV

,658

SRHCS2 ,R2

aRZ
#8. ,RO

;:;TYPE ASCIZ STRING
:R1

HAS ADDR.

RHAS

:R2 HAS ADDR. OF RH(SZ
:CLEAR RH(CS?2
; COUNT

OF RHER1

SHRHERT,R4

INC
DEC
BNE

#-1,3R4
aR2
RO
18

;R4 HAS ADDR.

004742

MovB

oR1,a#TOTALAT

105037
105711
001402

004743

CLRB

000137

007462

¥ TOTALAT+1
aR1
2%
XE2

;SAVE TOTAL ATTENTION
;USED IN DRIVE CLEAR TEST
. CLEAR UPPER BYTE

032777

020000

001402
000137

000420
104401
000430
104401
000430
104401

007360

007456

000137

041004

000437

ISTR

BEQ

JMP

172016

2%:

010020

007130
007130
007134
007176
007202
007264
007270
007352
007356

104401

1%:

007136

BIT
BEQ

JMP

3%:

TYPE

007204

TYPE

007272

TYPE

;TEST

'RHAS'

FOR ANY DRIVES PRESENT

;NONE RESPONDING - TYPE THE MESSAGE
;SOME THERE - GO FILL "UNITS'' TABLE

#5W13,3SWR
3$
SELTST

JINHIBIT ERROR TYPE OUT?

.67%

;:TYPE ASCIZ STRING

718
70%

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

66%
.69%
68%

.73%
72%

JMP

SN SEOP

TYPE

:MOVE ERRORS INTO RHER1
: INCREMENT UNIT NO.
;COUNT DOWN DRIVE COUNTER
;DO NEXT UNIT IF 8 NOT DONE

:"NO DRIVES'' MESSAGE

IF NOT

;CHECK FOR SELECTED UNIT START AND LOAD
;"UNITS'" TABLE WITH SELECTED ONE [F SO

::GET OVER THE ASCIZ

::TYPE ASCIZ STRING

::GET OVER THE ASCIZ

J*SET UP UNITS TABLE
007462
007462
007466
007472

007476
007500
007502

012700
012703
012723
005300
001374
012703

000010
004676
177777

004676

XE2:

2%:

3%:

MOV
MOV
MOV

DEC
BNE
MoV

#8. R0
#UNITS,R3
#-1,(R3)+
RO

3s
NUNITS,R3

;COUNTER
JPOINTER

;PRESET BLOCK

s COUNT

TO ALL CNES

:BRANCH [F 8 NOT DONE
JPOINTER

-y

IALIAINIIAIAIAIANAIAIA
LA IA Y

007100
007104
007106
007110

002316
002276

BIT
BNE

111137

006772

PC.3#$TKINT

007074

104401

000423
013701
013702
005012
012700
013704
012714
005212
005300
001373

172156

JSR

;.DO 1 ITERATION
;THIS SAVES TEST NUMBER
JSTART WITH AN INIT
JINITIALIZE TTY KEYBOARD

#1,STIMES
#6=1,ANTSTNM

LAVA

020000

045666

SCOPE

MOV
MOV
RESET

032777
001026

TST3:

006754
006762
006764
006770
007040
007044
007050
007052
007056
007062
007066
007070
007072

001212
004604

CZF

002001
000003

SEQ 0047

012737
012737
000005
004737

000004

27-JuL-78 13:06 PAGE 48
PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT

006730
006732
006740
006746
006750

30A(1052)

b
b

OO NN
WA —

d
ek e
b

b md cd

—

—d

il e

LSV i 51,12 %1, ST,¥ 1,97, ¥]

e —h

2094

MACY11

CZRJICO, RPO4/S5/6 FCTNL CTLRI]
CZRJIC.PY
27-JUL-78 13:05

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

2193
2194
2195

2196

2197
2198
2199
2200
2201
2202
2203
2204
2205

007532
007536
007544
007546
007554

010577
022777
001503
022777
001477

007556
007564
007566
007574
007576

007604
007606
007614

172540

JINITIALIZE UNIT NO. TO O

RS,8RH(S?2
#26020,aRHDT
6%
#20020,3RHDT
6%

;INSERT UNIT NUMBER INTO RHCSZ UA BITS
;IS THIS A DUAL PORT RPO4 ?

024020

172560

020020

172550

022777
001473
022777
001467

024021

172540

(MP
BEQ

224021.3RHDT

;DUAL PORT RPOS ?

020021

172530

‘MP

#20021 ,3RHDT

BEQ

:SINGLE PORT RPO5 ?

022777
001463
022777
001457

0264022

172520

(MP
BEQ
CMP
BEQ

zg«ozz.annor

;IS THIS A DUAL PORT RPO6 ?

020022

172510

#20022 ,aRHDT
6%

;IS THIS A SINGLE PORT RPO6 ?

MOV
MOV
ROR

BCC

MOV

cMP
8EQ
(Mp
BEQ

;NO. OF UNITS PRESENT
sCOUNTER
; TEMPORARY STORAGE

;SET CARRY IF ONE IN O BIT
;CHECK NEXT UNIT IF ONE NOT IN BIT O

;TYPE

THE UNIT NO.

sTYPE

UNIT NO.

YES

;1S THIS A SINGLE PORT RP0O4 ?

;TYPE

YES

UNIT NO.

sTYPE UNIT NO.

JTYPE

THE

UNIT NO.

;TYPE UNIT NO.

;*NO...IT'S NOT AN RPO4/RPOS/RPO6 DEVICE SO TYPE

000410

010546
104405
104401
000406
017746
104402
1064601
000422

007624

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;GET READY TO TYPE UNIT NUMBER

L67%

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

.69%
68%
5%

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

;NO RPO4/RPOS5S/RPO6 FOUND SO TEST NEXT UNIT

R5,(R3)+

;LOAD TABLE POSITION AND INCR IT

RS5.-(SP)

;PUT DRIVE NO. ON STA(K

INC

T
S#NOUN]

;INCR THE TOTAL NO. OF UNITS

INC
DEC
BNE

RS
RO
4%

MOV
MOV

DEC

AFUNITS ,QFUNIT
JSET UNIT NO. TO FIRST ONE FOUND
SANOUNIT ,@#NUNIT ;SAVE NO. OF UNITS
FINUNTT
JIF NUNIT = O THEN ONLY ONE UNIT

TST

a#SELECT

MOV
TYPDS
TYPE

007656

172426

MOV
TYPOC
TYPE
BR

007706

000407

007754
007756
007762
007764
007766

010523

007772
007774
007776

005205
005300
001252

010000
010006
010014

013737
013737
005337

004676
004720
004722

010020
010024

005737
001403

004726

104401
010546
104405
005237

,65%
64%
R5,-(SP)

TYPE

6%:

001223

004720
5%:

004716
004722

SELTST:

MOV
TYPE
MOV
TYPDS

BEQ

“ry

[en]

. a

104401

miéa

;*0UT THE DEVICE TYPE
007616
007622
007644
007646
007650
007654
007672
007676
007700
007704
007752

CZF

.AIAIAIAIALIAIAIAIAL

103120

RS
T
SUNOUN.
#8. RO
aR1,a4$TMPO
?:SYMPO

CLR

A ¥

SEQ 0048

PAGE 49

AAIAAIAIALAIAIAIAIAIA

007524
007530

TEST FOR DRIVES PRESENT USING RHAS AND RH(SZ

CLR

004720
000010
001176
001176

J
13:06

2178
2179

007510
007514
007520

005005
005037
012700
011137
006037

27-JUL-78

2159
2160
2161
2182
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177

007506

30A(1052)

2150
2151
2152
2153
2154
2155
2156
2157
2158

MACY11

AIAVALA

CZRJICO, RPO4/5/6 FCTNL CTLR]
CZRJIC.PI
27-JuUL-78 13:05

663
aRHDT,=(SP)

LSCRLF

;TYPE

DRIVE

NO.

J'RHCS2' UNIT ADDRESS
;DRIVE COUNTER DOWN ONE
JTEST AND DO NEXT UNIT

8 NOT DONE

OR O

;1F NUNIT > O THEN MORE THAN ONE UNIT

T1ST4

;STARTING ADDRESS 200

SKIP NEXT [F STARTING FROM 200

004730

004716

PAGE S0

TEST FOR DRIVES PRESENT USING RHAS AND RH(SZ2
MOV

QFUNITSL ,Q#UNIT ;CHANGE UNIT NUMBER TO SELECTED ONE

SEQ 0049

CZF

CZF
MArarmsasflAtarfAlasAarAcAiArAtSArArAlAcrasAacsAatAIAIANIAvALAVAIAITAIAIAIAAIAIAIAY

013737

010026

13:06

2206

27-JUL-78 13.05

27-JUL-78

CZRJIC.PI

MACY11 30A(1052)

M imia

CZRJICO, RPO4L/S/6 FCTNL CTLRT

2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262

010034
010036
010044
010052
010056
010064
010070

000004
012737
012737
012706

010074
010100
010102
010106
010112

005737
001107
012700
122710

000041
000011

010114

005737

004726

010120

001006

012737
004737

005037

001102

009001
010776
001000
000004
041456
004740

MACY11 30A(1052)
T3

001212
001106

TST4:

L &
27-JUL-78 13:06 PAGE 51
TEST FOR DRIVES PRESENT USING RHAS AND RH(CS?2

SCOPE
MOV
MOV

QNATTENT

;;D0 1 ITERATION
;.SET SCOPE LOOP ADDRESS
JRESET STACK
;SAVE TEST NUMBER
JSET R1-RHCS1, R2-RH(CS2
;CLEAR

a#UNIT
9%
#41,R0

;IS "UNIT O'' NEXT IN THE UNITS TABLE ?
;IF NOT TEST THIS UNIT
;1F SO, CHECK THE LOAD MEDIA LOCATION

BNE

:NO - GO AHEAD WITH TESTING UNIT #0

TST

SHSELECT

BNE

12%

MOV
MOV

004604

JSR
CLR

TST
BNE

004716

MOV
(MPB

#1,$TIMES

#1$,SLPADR

#STACK,SP
6 ,NTSTNM
PC,a#(LDISK

#11,(RO)

JWAS IT AN RP04/5/6 ?

;WAS UNIT #0 SELECTED ?
J(JE. WAS IT A 210 START ?)

;IF SO, CHANGE PA(CKS

:*INCREMENT THE UNITS TABLE TO NEXT DRIVE (IF ANY)
;*8 DECREMENT THE "NOUNITS'' PRESENT (TO BE TESTED)
010122

012700
005720

004676

010130

022710
001065

177777

104401

010144

104401

010242

010126

010134

010136
010136
010142
010234
010240
010304
010306

000434
000421
000000
000404

MOV
TST

#UNITS,RO
¢
(RO)

#-1,(RO)
1%
12%:

;LOAD UNITS TABLE POINTER
JSELECT THE NEXT UNIT IN THE TABLE
; (DOUBLE INCREMENT THE POINTER, RO)
;1S THERE ANOTHER TABLE ENTRY PRESENT ?

;1F SO, USE THE NEXT DRIVE & DEC "NOUNITS''

;IF NOT, MUST USE DRIVE #0 & CHANGE PACK

,65%
648
.67%
66%

;s TYPE ASCIZ STRING
:;GET OVER THE ASCIZ

;CONTINUE, USING SCRATCH PACK ON UNIT #0

;sTYPE ASCIZ STRING

::GET OVER THE ASCIZ

010310
010314

011037
005337

004716
004720

11%:

(RO) ,a#UNIT
SNOUNITS

JSET UP TO BE THE UNIT UNDER TEST

010320

013700

004716

9%:

I#UNIT RO

RO CONTAINS UNIT UNDER TEST

010324
010330

004744
171742
024022

171762

020022

171752

177777

004744

CLR
MOV
(Mp
BEQ
(MP
BEQ
BR
MOV
BR

a¥RPO6
RO,aRH(S2
#24022 ,3RHDT
2%
#20022,aRHDT
2%
3%
#-1,34RP06
8%

;CLEAR RPO6 DEVICE TYPE FLAG
sSET UP UNIT ADDRESSING

010344
010352
010354
010356
010364

005037
010077
022777
001405
022777
001401
000404
012737
000416

010366

005037

004746

(LR

a#RPOS

;CLEAR MEMOREX RPO4 DEVICE FLAG

010334
010342

2%:
3.

;DECREMENT BECAUSE UNIT #0 WON'T BE TESTED

;1S IT A DUAL PORT RPO6 ?
JYES...SET THE FLAG
;1S 1T A SINGLE PORT RPO6 ?
JYES...SET FLAG

;DON'T SET FLAG - CHECK FOR RPO4

JSET THE FLAG

;DON'T CHECK FOR RPO4, IT WAS RPO6

SEQ 0050
MAIAIAIAIAIAIAIRNIAIAIAIAIAIND

(ZRJICO, RPO4/5/6 FCTNL CTLR]
CZRJIC.PIY
27-JuUL-78 13:05

2263
2264
2265

2266
2267
2268
ssgg

010372
010400
010402

010410
010412
010414
010422

27-JuL-78 13:05
022777
001405
022777
001401
000403
012737

2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283

010422
010430
010434
010466
010472
010474
010500
010522
010526
010530
010534

116037
104401
000414
013746
104405
104401
000410
017746
104402
104401
000410

Sggg

010562

104402

2284

010556

017746

MACY11 30A(1052)
T4

0264021

171724

020021

171714

177777

004746

004666
010436

004740

004716
010502

171600
010536
171542

7%:
8%:

27-JUL-78

13:06

PAGE 52

TYPE SERIAL NUMBER AND DRIVE TYPE
(MP
BEQ
C(MP
BEQ
BR
MoV

#24021,aRHDT
’$
#20021,aRHDT

MOVB
TYPE
BR
MOV
TYPDS
TYPE
B8R
MOV
TYPOC
TYPE
BR

ATABLE
(RO) ,a#ATTENT ,SET APFROPRIATE ATTENTION BIT
.69%
;. TYPE ASCIZ STRING
68%
;.GET OVER THE ASCIZ
AFUNIT,~(SP)
JUNIT NO. TO STACK
;TYPE
DRIVE NO.
718
;. TYPE ASCIZ STRING
70%
;cGET OVER THE ASCIZ
@RHSN, - (SP)
;o SAVE @RHSN FOR TYPEOUT
;.60 TYPE--OCTAL ASCII(ALL DIGITS)
.73%
;. TYPE ASCIZ STRING
72%
;.GET OVER THE ASCIZ

TYPOC

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

MoV

7%
8%
#-1,a4RPOS

aRHDT ,-(SP)

;IS 1T A DUAL PORT MEMOREX RPO4 ?
JYES..SET THE FLAG FOR ADDR PLUG TESTS
;IS IT A SINGLE PORT MEMOREX RPQ4 ?
JYES..SET THE FLAG FOR ADDR PLUG TESTS
sDON'T SET FLAG ~ NOT MEMOREX DRIVE
;SET THE FLAG
;ASSUME THE NEXT UNIT IS AN RPO4

;. SAVE @RHDT FOR TYPEOUT

SEQ 0051

CZR
CZR

IR IAIAIAIAIAIAIAITAIAIAIAIAIAIAIAIAIAIAIAIAIRAIAI
AN
NI A NI NI AN A AN N NONI N

CZrRJIC.PN

A AR AR AALRAAALAIAIRIAIALAIAIAIA

CZRJICO, RP04/S5/6 FCTNL CTLRT

27-JUL-78

TYPE

022777
001425
022777
001421

0246020

171532

020020

171522

010604
010612
010614
010622

022777
001453
022777
001447

024021

171512

020021

171502

010624
010632
010634
610642

022777

024022

171472

020022

171462

010644

001424
022777
001420
000454

PAGE 53

SERIAL NUMBER AND DRIVE

;TYPE OUT

010564
010572
010574
010602

13:06

THE

DRIVE

(MP
B8EQ
(MP
8tQ

zgaozo,annor

(MP
BtQ
(MP
BEQ

z€4021.3RHDT

G
BEQ
(Mp
BEQ
BR

giaozz.anuor

#20020,3RHDT
43

#20021,3RHDT

#20022,aRHDT
5%
1%

TYPE

SEQ 0052

TYPE

IN ASCII

;DUAL PORT RPO4 ?

sTYPE

ASCII

MSG OuT

;TYPE

THE MESSAGE

;SINGLE PORT RPO4 7
;DUAL PORT RPQ5 ?

;TYPE

THE MESSAGE

:TYPE

THE MESSAGE

.SINGLE PORT RPQO5 °

;DUAL PORT RPO6 ?

;TYPE

THE MESSAGE

. TYPE

THE MESSAGE

;SINGLE PORT RPO6 ?

;DRIVE IS NOT AN RP0O4/RP05/RP0O6
;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

1044017

010712

104401

010750

000413
000435
000413
000416
000413

005777
005777
017737
017737

A ¥

5%:

:
6%

1%:

002410
002406

TST
TST
MOV
MoV

[N PROGRESS

.75%
748
18

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

773
76$
13

;2 TYPE ASCIZ STRING
;JGET OVER THE ASCIZ
JSKIP NEXT MESSAGE

.79%
78%

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

aRHSN
aRHDT
aRHSN,
a# SN
aRHDT ,a#DT

JREAD SERJAL NO. AND DRIVE TYPE
;THESE TWO ARE TO HELP SCOPE LOOPS
sSAVE TO CHECK IF DRIVE CLEAR CLEARS ANY BITS
JSAVE TO (HECK IF DRIVE CLEAR CLEARS ANY BITS

(IR
(IR
PO PO NI NI AN

30A(1052)

AUNIAL NI AN N AN

2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329

MACY11

AN AL

C(ZRJICO, RPO4/5/6 FCTNL CTLRY
(ZRJIC.PI
27-JuL-78 13:05

(ZRJICO, RPO4/S5/6 FCINL CTLRY1
CZRJIC.P1T
27-JuL-78 13:05

MACY11 30A(1052)

27-JUL-78

TYPE

1ST5:

SCOPE

13:06

PAGE 5S4

SERIAL NUMBER AND DRIVE

SEQ 0053

TYPE

2330

2331
2332
2333
2334
2335

11022

000005
0461456
010000

004604

JSR
BIT

011052

TYPE

TYPE
BR
TYPE

011120

011176
010000

011274

1%:

BIT
8EQ

TYPE

#6=1,aN4TSTNM
PC,a#CLDISK
#MOL ,aR3

;THIS SAVES

TEST NUMBER

;GIVE INITIALIZE

;CHECK MOL IN RHDS1

BRANCH IF MOL HIGH

;:TYPE ASCIZ STRING

;:GET OVER THE ASCI2Z
JsTYPE ASCIZ STRING
;;GET OVER THE ASCIZ
;sTYPE ASCIZ STRING

:;GET OVER THE ASCIZ
JCHECK MOL IN RHDS1

;BRANCH IF MOL IS HIGH
;s TYPE ASCIZ STRING

::GET OVER THE ASCIZ

2350
2351

MACY11 3??(1052)

TST6:

000004

012737

000306
001000
041456

004604

002266
011460
000340

000200
000300

177776

042154
001200

001200

1%:

000040

011470
011472

022626
022711
001403

004200

012712

000040

104065

RPTRP1:

27-JUL-78

CHECK MOL

13:06

TO BE HIGH

SEQ 0054

PAGE 55

SCOPE
MOV
MOV
JSR

#7-1,aNTSTNM

;THIS SAVES TEST NUMBER

PC.,a#CLDISK

SSET R1-RHCS1, R2-RHCS2

MOV
MoV
MOV

MRPVEC ,RO

;GET RP VECTOR ADDRESS

#340, (RO)

‘RPO4 INTERRUPT SERVICE ROUTINE

MOV
MoV

#200.PS
#RDY ' IE,aR1

MOV
DEC

; COUNTER
SHTIMCNT,a#8$TMP1
NSTMPT
SWAIT FOR INTERRUPT
18

*BRANCH IF NOT ZERO

ERROR

MOV
BR

65
#40,3R2
1817

*INTERRUPT DID NOT OCCUR
*CLEAR CONTROLLER VIA €S2 CLR BIT
BRANCH TO NEXT TEST ———mmemmeeceeeee- )

CMP
CMP

(SP)+,(SP)+
#DVA'RDY ,aR1

;RESTORE STACK
S1E SHOULD BE LOW AS RUPT OCCURRED

MOV

#40,3R2

BNE

BEQ
ERROR

#STACK, SP

#RPTRPT,(RO)+

1S17
65

CRESET

STACK

:THIS IS FOR TIMELY INTERRUPTS

*PRIORITY = 7

‘SET PROCESSOR PRIORITY @ 4 (DISK @ 5)
*RDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT

*BEFORE THIS IS ZERO INTERRUPT SHOULD OCCUR

;

CONTINUE IF GOOD =——--———=====mm==== )
- INTERRUPT OCCURED BUT

;1E FAILED TO RESET

;CLEAR CONTROLLER VIA CS2 CLR BIT

(Y]

C(ZRJICO, RPO4/S5/6 FCTNL CTLR
CZRJIC.P1
27-JUL-78 13:05

2377
2378
2379

MACY11 30A(1052)

011476

000004

011500
011506
011512

012737
012706
004737

000007
001000
041456

011516
011522
011526

013700
012720
012710

002266
011566
000340

011532
011540

012737
01271

000240
000300

177776

011544
011552
011556

013737
005337
001375

042154
001200

001200

011560
011564

012712
000404

000040

011566
011570

022626

011572

012712

PROGRAM INTERRUPT

1S17:

SCOPE

004604

000040

SEQ 0055

PAGE 56

MOV
MOV

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

[ THIS SAVES TEST NUMBER
JRESET STACK

MoV
MOV
MOV

a#RPVEC RO

;GET RP VECTOR ADDRESS

#3460, (RO)

:RPO4 INTERRUPT SERVICE ROUTINE

MOV
10}

#240,PS

MOV
DEC

ST IMCNT ,a#$TMP1; COUNTER
;WAIT FOR INTERRUPT
INSTMP]

JSR

1%:

13:06

RPTRPZ:

104065

27-JUL-78

BNE

PC,a#CLDISK

#RPTRPZ, (RO) +

#RDY']E ,aR1

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

IS FOR UNTIMELY

INTERRUPTS

;PRIORITY = 7

;SET PROCESSOR PRIORITY @ 5
JRDY,

IN RHSC1

WHOULD CAUSE

INTERRUPT

;BRANCH [F NOT 2ERO

;BEFSQE THIS 1S ZERO INTERRUPT WHOULD
.0CC
;CLEAR THE CONTROLLER VIA (S2 CLR BIT

MOV
BR

#40,a3R2
TST10
:

NO INTERRUPT SO CONTINUE ==========mcee—e—-—- )

(MP
ERROR

(SP)+,(SP)+

JRESTORE

MOV

#40,aR2

STACK

JINTERRUPT OCCURRED WITH PROCESSOR
;PROCESSOR STATUS

;CLEAR THE

SAME

AS DISK

CONTROLLER VIA (S2 CLR BIT

(ale]

CZRJI1CO, RPO4/5/6 FCTNL CTLRY
CZRJIC.P1
27-JUL-78 13:05

CZRJICO, RPO4L/5/6 FCTNL Y LR1
CZRJIC.P1
27-JuUL-78 13:05

011576

011600
011604
011612
011616

000004
012706

012737
004737
012737

001000
000010
041456
000000

011624
011630
011632
011636
011640
011644
011646
011650
011654
011660
011700
011704
011706
011712
011742
011744
011750
011752
011756

005737
001007
005737
001004
005737
001001

004724

000137

012356
(11662

011760
011764
011770

013746

011772
011774
012000

001403
010237
104011

000402
104401

000407
013746
104405
104401

000413
000000
032713
001403
010337

104010

052716
022€12

710

TST10:

004604
177776

13-06
PACK ACKNOWLEDGE
SCOPE

MOV

SEQ 0056

JRESET STA(CK

TEST NUMBER

#10,a#TSTAM
PC.,a#CLD]SK
#0,PS

;SAVE

TST

AAMNOPUSH

TST

YIy,

;IS THIS A 220 START ?
;SKIP THIS TEST IF SO

TST

aHSPASS

;SKIP THIS TEST

BNE

001100

#STACK,SP

PAGE

MOV
JSR
MOV

BNE

000042

27-JUL-78

BNE
BR
JMP
TYPE

1%
2%
ST
L659%

;SET R1-RHCS1, R2-RH(CSZ2
;SET PROCESSER STATUS TO 0

JMONITOR (ACT 11) RETURN ADDRESS ?
;FIRST PASS ?

;SKIP THIS TEST IF NOT
;CONTINUE WITH THIS TEST

JUMP TO NEXT TEST
;:TYPE ASCIZ

STRING

MOV

HUNIT,-(SP)

::GET OVER THE ASClZ
;GET UNIT UNDER TEST

011714

TYPE
BR

LE7%
66%

;sTYPE ASCIZ STRING
;;GET OVER THE ASCIZ

010000

BIT

#MOL ,aR3

MOV
BIS
(MP

S¥UNIT,=(SP)
#IR,(SP)
(SP)+,aR2

;MOL IN RHDST SHOULD BE = 0
JBRANCH IF MOL=0
JFAILING REGISTER ADDRESS-~RHDS1
;ON SPINPLE POWERFD DOWN
;MOL SHOULD BE 0

BEQ
MOV
ERROR

4%
R2,a#$BDADR
11

B8R

004716

TYPDS

HALT

8EQ
MOV
ERROR

001122
004716
000100

001122

643

33
R3,a#$BDADR
10

SUNIT NUMBER
INCLUDE IR
;ONLY UNIT NO. AND IR SHOULD BE
JHIGH IN RHCSZ2

;BRANCH IF RHCSZ2 GOOD

;FAJILING REGISTER ADDRESS-RH(CS/Z
JWITH SPINDLE POWERED DOWN

:OTEY UNIT NO. AND IR SHOULD BE
JHIGH

012002

004737
104401

000407
013746
104405

NOONNO
OO

S-Sl
S Sihr G

BB NNWNNNIN)
= 2 =

- Sihr i

P
Phur
Gins Phu
Gitar Qhur Qi

ESHSLNLNLSLNT
ST NT, ST,

elelelolelelelelals)

104401

Pour G

2409
2410
2411
2412
2413
2414
2415
2416
2617
2418
2419
2420
2621
2422
2423
2424
2425
24,26
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464

MACY11 30A(1052)

000420
000000
032713
001411
032713
001406
032713
001403
032713
001403
010337
104012

041456
012014

¥
A

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(S2

68%

;.GET OVER THE ASCIZ
;GET UNIT UNDER TEST

TYPE

004716

MOV

TYPDS

012046

000200

000100
5%

SHUNIT ,-(SP)

;. TYPE ASCIZ STRING

70%

/18

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

BIT
BEQ
BIT
BEQ
BIT
BEQ
BIT

#MOL ,aR3
5%
#DPR,aR3
5%
#DRY,aR3
5%
#VV,3R3

;MOL IN RHDS1 SHOULD BE
JBRANCH IF MOL = 0

HALT

000400

TYPE

010000

001122

JSR

8EQ
MOV
ERROR

6%
R3,a#$8DADR

;DPR IN RHDS1

SHOULD BE

1
1

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

JFAILING REGISTER ADDRESS - RHDS1

JWITH SPINDLE POWERED UP
;RHDS1 SHOULD HAVE vv = 0, MOL

2465

2466

2467
2468
2469
2470
2471
2472
2473
24,74
2475
2476
2477
2478
2479

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

MACY11 30A(1052)

2513
2514
2515
2516
2517
2518
2519
2520

PACK ACKNOWLEDGE

6%:

MOV

011100
042700

160076

012154

022700

004200

. MP

012160
012162
012166

001403
010137

001122

BEQ
MOV

012170

012174
012176
012204
012210
012216

012220
012220
012224
012230
012234
012236

104013

005777

170140

013737
005037
017737

002334
001124

00141

104014

004737
004737
104401
000000

013777

170120

ERROR

7%:

004600

SEQ 0057

PAGE 58

aR1,R0

JGET RHCS1

CONTENTS

#DVA!RDY ,RO

JRHCS1 SHOULD HAVE
;60 = 0, DVA = 1, RDY =1

#SC.TRE'MCPE!76,RO ;CLEAR SC,TRE MCPE AND
JALL FUNCTION BITS
7%
R1,a#$8BDADR
13

aRHCC

108

;JBRANCH IF RHCS! IS GOOD
JFAILING REGISTER RHCS1

JAFTER A POWER UP WITHOUT ANY

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

STEST RHCC,

IT SHOULD - O
;BRANCH [F RHCC = 0

MOV

&FRHCC ,a#REGADR ;FAILING REGISTER RHCC

MOV

aRHCC,a#$BDDAT

a#$GDDAT

JRHCC SHOULD BE = 0O

JAFTER POWER UP RH(CC

JSR
JSR
TYPE

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

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

MOV

B4PKACK ,aRHCST

;GET READY FOR PKACK

ERROR

10%:

170034

TST
BEQ

CLR

001126

041456
041514
066720
002460

BIC

13:06

110

012146
012150

HALT

;BAD DATA

;SHOULD BE O

;STOP

;*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE

2493

2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512

27-JUL-78

012244

012250
012252
012254

004037
002272
004612
000022

041624

012256

013777

004606

012264
012270
012274

013746
052716
012677

002460
000001
170000

012300
012302
012304
012306
012310

002322
000100
000001
000001

012312
012316
012320
012322
012324

004037
002322
000001
000001
000100

170002

JSR
RHWC
SAVERE
18.

RO, a#SAVER

Mov

IHRPLVEC ,3RPVEC ;SET RPO4 VECTOR ADDRESS

MoV
BIS

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

MoV

(SP)+,3RHCS1T

WAT

104413

1
vv

;GO WITH

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

v
1.

JSR
RHDS1

;GET READY TO MOVE COMMAND
;GET READY TO SET GO
;WAIT FOR Vv BIT TO SET

RHDS1

042336

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

;VV MUST SET BETWEEN

RO,a#CHREG

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

;NEW VALUE OF VvV IS 1
;CHANGE Vv BIT

;*NOW COMPARE REGISTERS SO THAT NO REGISTERS

;*CHANGED EXCEPT VV IN RHDS1 AND [E IN RH(S1T

'eaNen]

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

CZRJICO, RPOL/S5/6 FCINL CTLRT
CZRJIC.P1N

2521
2522
2523
2524
2525
2526
2527

2528
2529

2530
2531
2532
2533
2534
2535

2536
2537
2538
2539
2540
2541
2542
2543
2544

012326

012332
012334
012336
012340
012342

012344
012346

27-JUL-78 13:05

004037
004612
002354

MACY11 30A(1052)
710

042444

27-JuL-78

PACK ACKNOWLEDGE

JSR

SAVERE
W

000022
012344
012350

13:06

RO, a#COMREG

118:

ERROR
RTS

SEQ 0058

; COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED [N 'SAVERE'

;TEST DATA STARTING FROM 'RHW('
;18. REGISTERS TO BE (OMPARED

18.
118
12%

104015
000207

PAGE 59

JRETURN TO 118 ON ERROR
JRETURN TO 128 ON NO ERROR
15
PC

;GIVING A PACK ACKNOWLEDGE
; CAUSED AN ERROR
sPACK ACKNOWLEDGE

SHOULD

;SET VV IN RHDS1
:}gTERSUPT SHOULD MAKE

;NO OTHER REGISTERS SHOULD
; CHANGE
;GCOD DATA GIVES

;CONTENTS OF REGISTER BEFORE
JPACK ACKNOWLEDGE
JRECEIVED DATA GIVES

;CONTENTS OF REGISTER

JAFTER PACK ACKNOWLEDGE

012350

012737

177777

047274

12%:

MOov

#-1,34PRITEM

;CLEAR PREVIOUS ITEM NUMBER

CZRJICO, RPO&L/5/6 FCTNL CTLRI
CZRJIC.PT
27-JUL-78 13:05
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564

2565

2566
2567
2568
2569
2570
2571
2572
2573

2574
2575
2576
2577
2578
2579
2580
2581

2582
2583
2584

2585
2586
2587
2588

2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600

012356

MACY11 30A(1052)

000004

27-JuL-78

13:06

710

PACK ACKNOWLEDGE

IST11:

SCOPE

PAGE 60

SEQ 0059

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

012360
012362

000005
004737

012366
012372
012400
012404
012410
012414

012706
012737
004737
004737

012616

104401

000000
013777

;-Q?TPOUER DOWN OR ANY PARITY ERRORS A RESET
RES

JSR

045666
001000
000011
041456
041514
066720

002460

MOV

004604

JSR
JSR
TYPE

HAL T

MOV

167654

PC.,a#STKINT
#STACK,SP

IS GIVEN

JINITILIZE TK
;RESET STACK

#11,a¥TSTNM

;SAVE TEST NUMBER

LCPHALT

;CANNOT CONTINUE TESTS IF

a#PKACK ,dRH(S1

;GET READY FOR PKACK

PC,a#CLD]ISK
PC.,a#(CHECK

;SET R1=-RH(CS1, RZ2=-RH(CS?Z
Y
_ MOL ,DPR,DRY
;CHECK THAT DVA,RD
;STOP

THEY AREN'T

;*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE

012424
012430

041624

012432
012434

004037
002272
004612
000022

012436

013777

004606

012444
012450
012454
012460
012462

013746
052716
012677

002460

012464
012466
012470
012472
012474
012476
012502
012506
012512
012516
012516
012522
012526
012530
012534
012540
012542

104413
002322
000100
000001
000001
013746
052716
011637
022600
001405
010037

012544
012550
012554
012556
012562

011100
011305

010137
104021

012746
011637
022605
001405
010537
010337
104063
004037
002322

JSKR

RO.a#SAVER

MOV

a#RPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS

aH#PKACK ,-(SP)
#GO, (SP)

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

MoV

aR3.R5

;SAVE RHDS1

RHW(
SAVERE
18.
167622

000001

167620

MOV
MOV

(SP) +,aRHCS1
aR1,R0

WAT

042336

DURING ABOVE OPERATION

;WAIT FOR Vv BIT TO SET

MOV
CMP
BEQ

(SP) ,a#$GDDAT
(SP)+,R0
648

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY DVA!RDY
;BRANCH IF GOOD

MOV

001126
004600

DURING ABOVE OPERATION

a#PKACK, = (5P)

001126

64%:

;GO WITH
;SAVE RHCS1

;WAIT FOR RHDS1 REGISTER
JWAIT FOR VV BIT IN RHDS1
JALLOW 10 MICRO SECONDS
;VV MUST SET BETWEEN
; SAVE COMMAND

BIS

010700
001124

JRHWC 1S THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS

RHDS1
Vv
1.
1.
MOV

002460
004200
001124

004600

;SAVE REGISTERS

H#DVA!RDY, (SP)

RO, a#S$BDDAT

MOV
ERROR

_R1,8#REGADR
21

MoV
CMP
BEQ
MOV

(SP) ,a#$GDDAT
(SP)+,RS
66$
RS,a#$8DDAT

MOV

MOV
ERROR
JSR
RHDS1

2 INCLUDE DVA!RDY

;BAD DATA

;FAILING REGISTER RH(CS1
;DURING ABOVE OPERATION ONLY

AMOL !DPR!DRY!VV,=~(SP)

R3.a#REGADR
63
RO, a#CHREG

:SAVE BITS SET DURING OPERATION IN RHDS1

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY MOL !DPR.DRY.VV
;BRANCH IF GOOD
.BAD DATA

JFAILING REGISTER RHDS1
;DUF ING ABOVE OPERATION ONLY
;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1

Ci
i

(ZRJJCO, RPO&L/S5/6 FCINL (TLRI
CZRJIC.P1T
27-JuL-78 13:05

2601

012564
012566
012570

MACY11

30A(1052)
T

27-JuL-78

13:06

SEQ 0060

SET VV BIT #6 IN RHDS?
1
1
vv

000001
000001
00100

PAGE 61
;1 BIT/BITS TO BE (HANGED
;NEW VALUE OF vv IS 1
s CHANGE Vv 8IT

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

012572

012610
012612

004037
004612
002354
000022
012610
012614
104015

000207

JSR

042444

SAVERE
w(
18.

RO,a#(COMREG

ERROR
RTS

;GOOD DATA SAVED IN 'SAVERE'

;TEST DATA STARTING FROM 'RHWC'
;18. REGISTERS TO BE COMPARED
JRETURN TO 1% ON ERROR

2%
1%:

; COMPARE SAVED REGISTERS WITH

JRETURN TO 2% ON NO ERROR
15

;GIVING A PACK ACKNOWLEDGE
s CAUSED AN ERROR
JPACK ACKNOWLEDGE

JSET VvV IN RHDS1

SHOULD

:{gTERSUPT SHOULD MAKE

;NO OTHER REGISTERS SHOULD
s CHANGE
;GO0D DATA GIVES CONTENTS

;OF REGISTER BEFORE COMMAND

012614

2%:

JRECEIVED DATA GIVES CONTENTS
;OF REGISTER AFTER COMMAND

CZRJICO, RPO4/S/6 FCINL CTLR1
(ZRJIC.P1
27-JuL-78 13:05

2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
26462

2643
2644

2645
2646
2647

2648
2649

2650
2651
2652
2653
2654
2655
2656
2657
2658
2659

012614
012620
012622
012626
012630
012634
012634
012640

005737
001005
005737
001004
000137
000137

TST

BNE
JMP

014754
3%:

012700

012674

000137

012734

012700
012702
012706
012714
012720
012726

000004
012706
012737
004737
012777
004C37
000777

001000
000013
041456
000001
041126

001000
000012
0461456
000001
041126

5
J
27-JUL-78
13:06 PAGE 62
SET vv BIT #6 IN RHDS1
TST
BNE

004746

000004
012706
012737

012732

30A(1052)

004744

012640
012647
012646
012654
012660
012666
012672

004737
012777
004037
000377

MACY11

T1ST12:

004604
167432

JMP

SCOPE
MOV
MOV
JSR
MOV
JSR

377

JMP

TST13:
004604
167372

SCOPE

MOV
MOV

JSR
MOV
JSR

777

SEQ 0061

;TEST FOR RPO6 DRIVE
JIF = 1 DO "MAKECYL'' 777

A¥RPO6
3%
a#RPOS

;TEST FOR RPOS DRIVE

43
1ST16

;

JIF = 1 DO "MAKECYL'' 377
IF BOTH = 0, DON'T DO EITHER "MAKECYL'' ====-==

TST13

;

DO "MAKECYL'' 777 ===m=m=m=m=m—mememmmoe—eeee

#STA(CK,
SP

#13-1,a#TSTNM
PC,a#CLD]SK
#DMD
, 3RHMR

RO, #MAKECYL

TST14

;

#STACK,SP

#14-1,4TSTNM
PC,a#CLD]SK
#DMD
, 3RHMR

RO, a#MAKECYL

;OR THE ADDRESS PLUG TESTS

SJRESET

STACK

;THIS SAVES TEST NUMBER
JINIT DRIVE
;SET DIAGNOSTIC MODE
;SUBROUTINE TO GIVE A SEEK
SKIP NEXT "MAKECYL'' ==============m—=—m—ooua-

JRESET STACK
JTHIS SAVES TEST NUMBER
JINIT DRIVE
.SET DIAGNOSTIC MODE
;SUBROUTINE TO GIVE A SEEK

(ZRJICO, RPO4L/S5/6 FCTNL CTLR]
CZRJIC.P1T
27-JuL-78 13:05
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677

012734
012736

000004
012737

012744
012750
012752
012756

005737
001005
005737
001002

004744

012760
012764

000137

013746

012764
012770
012776
013002
013006

012706
012737
004737
004737
104401
000000
005737
001007
005737
001004
005737
001001
000402
000137

001000
000014
041456
041536
066720

013012
013014

013020
013022
013026
013030
013034
013036
013040

000901

MACY11

001212

T14:

004746

SCOPE

#1,$TIMES

;D0 1 ITERATION

TST

a#RPO6
48

;TEST FOR RPO6 DRIVE

JIF =1, DO THIS TEST
;IF NEITHER FLAG IS UP, ASSUME THE
;DRIVE IS AN 1SS RPO4 AND SKIP TEST

TST
BNE

4%:

004724

000042

001100
013746

SEQ 0062

MoV

BNE

004604

30A(1052)
27-JUL-78 13:06 PAGE 63
113
MAKE CURRENT CYLINDER = 777

JIF =1, DO THIS TEST

;TEST FOR MEMOREX RPO4

MRPOS

JMP

IST15

MOV
MOV

HSTACK,SP
#14 ,QXTSTNM
PC,a#CLDISK
PC,a#CHECKT

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

LCPHALT

JUMP TO NEXT TEST =====-<s=cce====- )

JRESET STACK
JSAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(CS?
Y - 1
RY,VV
,RD
, MOL,DPR,D
;CHECK DVA
:g?gNOT CONTINUE TESTING IF ANY OF
:

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

a#NOPUSH

;FIRST PASS

JSKIP THIS TEST IF NOT

TST15

;

;CONTINUE WITH THIS TEST

JUMP TO NEXT TEST ~=—=-e———mmemeee )

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

013044

052777

000001

167246

8IS

, 3RHMR
#DMD

JSET UP DIAGNOSTIC MODE

s*TAKE AN INITIAL REGISTER SNAPSHOT
013052
013056
013060
013062

004037
002272
004612
000022

041624

JSR

RHW(

RO.a#SAVER

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

SAVERE
18.

;NUMBER OF REGISTERS

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

;*]SSUE SOME CLOCKS TO GET THE COMMAND STARTED

;*(USE "'SEARCH'' WITH "DTETST'' FLAG UP TO STOP CLOCKING ?)

2715

013064
013070
013132
013136

104401

000420
013746
104405

013072
004716

TYPE

BR
MOV
TYPDS

,65%
64%
INUNIT,-(SP)

;. TYPE ASCIZ STRING

;.GET OVER THE ASCIZ
JGET THE UNIT NO. UNDER TEST
JTYPE

IT OUT

94
94

CZRJICO, RPO4/S5/6 FCINL CTLRI
CZRJIC.P1
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

013202
013206
013212
013220

017700
004737
032737
001001

013222

104101

013224

MACY11

30A(1052)
T14

013146

167076

043370
010000

002360

7%:

27-JUL=-78

L
13:06

5
PAGE 64

SEQ 0063

ADDRESS PLUG CHANGE ERROR

,67%

;oTYPE ASCIZ STRING

TYPE
BR
HALT

663

;*CHECK

THAT

MOV
JSR
BIT
BNE

aRHDST ,RO

;ATTEMPT TO ADDRESS THE DRIVE

4 3

JCONTINUE

ERROR

101

JUNIT DID NOT GO OFFLINE WHEN ADDRESS

:;GET OVER THE ASCIZ

:WAIT FOR OPERATOR PLUG CHANGE

THE UNIT NO.

PC,a#PUTREG
ANED ,a#(S2

UNDER TEST HAS GONE OFFLINE

s TAKE REGISTER SNAPSHOTS
;TEST FOR NON EXISTENT DRIVE

°NED' BIT SET

(UNIT

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

czi
c2l

MACY11 30A(1052)
T14

m
13:06

27-JUL-78

S
PAGE 65

SEQ 0064

ADDRESS PLUG CHANGE ERROR

CZF
CZs

2730
2731

ads

CZRJICO, RPOL/S5/6 FCTNL CTLRT
CZRJIC.P1T
27-JuL-78 13:05

013224
013230
013272
013276
013300
013304
013342

104401
000420
013746
104405
104401
000416
000000

013232

TYPE
BR

004716

MOV
TYPDS
TYPE
BR
HALT

013306

.69%
68%
aWUNIT - (SP)
718
703

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
JGET THE UNIT UNDER TEST
JTYPE IT OUT
;s TYPE ASCIZ STRING

;;GET OVER THE ASCIZ
JWAIT FOR OPERATOR PLUG REPLACEMENT

s *CHE(K THAT THE ORIGINAL UNIT HAS COME BACK ON LINE

013344
013350
013356
013360
013366
013370
013376
013400
013402

004737
032737
001411
032737
001405
032737
00160
000403

043370
000400

002404

004000

002362

000200

002404

013404

000137

013746

9%:

106102

013420
013422
013424

004037
002300
000004

042336

2783
2785

;TAKE NEW REGISTER SNAPSHOTS
sTEST THAT °‘DPR' = 1

;A-0K:

9%
HDVA ,a#(S1
9%
ADRY ,a#DS1
9%
102

IsT15

; CHANGE THE
:*AFTER THE

JSR
RHCS1

RO,a#CHREG

ERR

042336

NED
JSR

RHER3

;CHANGE BITS IN SAVED REGISTER

; CHANGE RHCS1 REGISTER
TO BE

;NEW VALUE OF TRE
; CHANGE TRE BIT

ATA

JSR
RHCS?2

TEST ==<====c=cce=-- )

CHANGED

;NEW VALUE OF RDY IS 1
; CHANGE RDY BIT
JNEW VALUE OF SC IS 1
;CHANGE SC BIT

;ADDRESS PLUG WAS REPLACED

JUMP TO NEXT

;4 BIT/BITS

TRE

042336

'DVA' = 1, & 'DRY’

INITIAL REGISTER SNAPSHOT TO EXPECTED VALUES

SC
1

042336

°'DPR' = 1,

PLUG CHANGE

MCPE
JSR
RHDS1

;ERROR =~ DRIVE SHOULD BE PRESENT
sTEST THAT DEVICE IS NOW AVAILABLE
JERROR - °'DVA' SHOULD = 1
;TEST THAT DRIVE READY IS - 1
;ERROR - °'DRY' SHOULD = 1
JUNIT NOT AVAILABLE AFTER

1
RDY

040000

000000
000100
004037
002276

PC,a#PUTREG
#DPR,a#DS1

000001
000200
000001
100000
000001
040000
000001

020000
004037
002322
000003
000001
100000
000001

2779

JMP

8%:

013410
013410
013414
0134616

JSR

BIT
BEQ
BIT
BEQ
BIT
BEQ
BR
ERROR

RO, a#(HREG

IS 1

sNEW VALUE OF MCPE IS 1
; CHANGE MCPE BIT
;CHANGE BITS

IN SAVED REGISTER

; CHANGE RHDS1 REGISTER
;3 BIT/BITS TO BE CHANGED
JNEW VALUE OF ATA IS 1
;CHANGE ATA BIT
;NEW VALUE OF ERR IS 1
; CHANGE ERR BIT
JNEW VALUE OF vv IS O

s CHANGE VvV BIT
;CHANGE BITS IN SAVED REGISTER

s CHANGE RHCSZ REGISTER

;1 BIT/BITS TO BE CHANGED
RO, a#(HREG

;NEW VALUE OF NED IS 1
s CHANGE NED BIT
s CHANGE BITS

IN SAVED REGISTER

: CHANGE RHER3 REGISTER

ali

oad

;*NOW REPLACE “HE ADDRESS PLUG

CZRJICO, RPO4L/S/6 FCTNL CTLRI
CZRJIC.PN
27-Ju-78 13:05

2786

013506
013510
013512

000001
000001
0200C0

013514
013522

053737
005037

MACY11

30A(1052)
T14

27=JUL-78

N
13:06

004636

SEQ 0065

ADDRESS PLUG CHANGE ERROR

1
1
ACE

004740
004654

S
PAGE 66

8IS

(LR

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

(HANGED
IS 1

SNATTENT ,@#SAVERE +24 ;SET UNIT UNDER TEST ATTENTION

SN SAVERE +4/2

;SET RHCC REGISTER IMAGE TO ALL 0°'S

;*TAKE A NEW REGISTER SNAPSHOT AND
s*COMPARE THE REGISTER CONTENTS WITH EXPECTED VALUES
013526

013532
013534
013536
013540
013542

0040%7

042644

JSR

SAVERE

RO, a#(OMRE G

013544

104100

013546

000207

5%:

.GOOD DATA SAVED
;TEST

18.
5%
6%

013550

; COMPARE SAVED REGISTERS WITH
I[N

°'SAVERE'

DATA STARTING FROM

'RHW('

;18. REGISTERS TO BE COMPARED
JRETURN TO 5% ON ERROR
JRETURN TO 6% ON NO ERROR

ERROR

100

RTS

;ADDRESS PLUG CHANGE

;REGISTER ERROR
;GO BACK AND (HECK

JUNTIL ALL

CAUSED SOME

THE

18. HAVE BEEN DONE

CZRJICO, RPO4/S5/6 FCTNL CTLRY
CZRJIC.P1I
27-JuL-78 13:05

MACYT 3$A(1052)
14

2807
2808
2809
2810
2811
2812

2813
2814
2815
2816

27-JUL-78

B
13:06

PAGE 67

SEQ 0066

ADDRESS PLUG CHANGE ERROR

;*NOW CLEAR OQUT THE CONTROLLER AMD DRIVE
013550
013550

6%:

61456

JSR

PC,a#CLDISK

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

;*CHANGE THE REGISTER SNAPSHOT TO EXPECTED VALUES AFTER THE CLEAR

JSR

042336

013554
013560
013562
013564
013566

RHCS1

RO, a#(CHREG

3
0

s CHANGE SC BIT
;NEW VALUE OF TRE IS 0

TRE

;CHANGE

MCPE

JSR
RHDS1
2
0

RO,a#CHREG

JSR

RHCS2
1

JSR
RHER3

042336

RO,a#(CHREG

RO,a#CHREG

042336

BIC

s CHANGE RHCSZ2 REGISTER
;1 BIT/BITS TO BE CHANGED
s CHANGE NED BIT

sCHANGE BITS IN SAVED PEGISTER
;CHANGE RHER3 REGISTER
;NEW VALUE OF ACE IS O

RO,a#CHREG

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

;NEW VALUE OF DMD IS O

DMD
004636

;CHANGE BITS IN SAVED REGISTER

;1 BIT/BITS TO BE CHANGED

004740

; CHANGE ERR BIT

;NEW VALUE OF NED IS O

ACE
JSR
RHMR
1

;CHANGE BITS IN SAVED REGISTER
;CHANGE RHDS1 REGISTER
;2 BIT/BITS TO BE CHANGED
;NEV' VALUE OF ATA IS O

;NEW VALUE OF ERR IS O

NED

;CHANGE MCPE BIT

;CHANGE ATA BIT

ERR

TRE BIT

sNEW VALUE OF MCPE IS O

ATA

042336

;CHANGE RHCS! REGISTER

;3 BIT/BITS TO BE CHANGED
;NEW VALUE OF SC IS O

SC
0

042336

s CHANGE BITS IN SAVED REGISTER

;CHANGE DMD BIT

DNATTENT ,3#SAVERE+24 ;UNIT UNDER TEST ATTENTION BIT

;*TAKE ANOTHER REGISTER SNAPSHOT AND COMPARE RESULTS

J*WITH THE EXPECTED VALUES

013672
013676
013700
013702
013704
013706

000022
013710
013714

013710
013712

000207

JSR
SAVERE
WC
18.
10%
11$%

042444

104100

10%:

ERROR
RTS

RO,a#COMREG

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

100

;ADDRESS PLUG CHANGE CAUSED SOME

s INCORRECT REGISTER RESULT

CZRJIC.P1

2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885

27-JuL~78 13:05

013714

MACY11

30A(1052)
114

27-JUL-78

13:06

SEQ 0067

PAGE 68

ADDRESS PLUG CHANGE ERROR

118:

;*(USE NED METHOD TO VERIFY
;*THAT ATTENTION BIT

;*SET

'Vvv'

COMES UP IN THE PROPER LOCATION ??)

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

¥PKACK ,~(SP)

;GET READY TO MOVE COMMAND

MOV
MOV
MOV
WAT

(SP)+,@RH(ST
aR” R0
aR3.RS

;GO WITH
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION
JWAIT FOR Vv BIT TO SET
;WAIT FOR RHDS1 REGISTER
;JWAIT FOR VvV BIT IN RHDS1 REGISTER
JALLOW 10 MICRO SECONDS

BIS

RHDS1
A

1.
1.

#GO, (SP)

;GET READY

TO SET GO

JVV MUST SET BETWEEN

CZRJICO, RPO4/S/6 FCTNL CTLR1

MACY11

30A (1052)
T14

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

SEQ 0068

2886

2887
2888

2889
2890
2891
2892

2893
2894
2895
2896

2897
2898
2899

013746
013750

000004
012737

013756
013762
013764
013770

005737
001005
005737
001002

004744

013772
013776

000137

014754

000001

001212

TS T15:

SCOPE
MOV

#,STIMES

;D0 1

TST

HRPO6

;TEST FOR RPO6 DRIVE

HRPOS

;TEST FOR MEMOREX RPO4

BNE
TST
BNE

004746

4%:

JMP

013776

014004
014006
014012

014012
014016
014020
014024
014026
014032
014034
014036

014042
014046
014054
014060
014064
014070

014072
014076
014154
014160

014220

032777
001002
000137

000040

005737
001007
005737
001004
005737
001001
000402
000137
012706
012737
004737
004737

004724

104401

000000

014754

014754
001000
000015
041456

041536
066720

104401

014162

013737

004716

;IF

=1,

OK TO DO THIS TEST

JUMP TO NEXT TEST ===m=m—mmeemmceeeeeIF

THIS TEST HAS BEEN SELECTED WITH SWS
JTEST THE SWITCH

TST16

JUMP TO NEXT TEST =~ecccmcccccccccaa- )

TST

S#NOPUSH

;1S THIS A 220 START ?

TST

W62

JMONITOR (ACT 11) RETURN ADDRESS ?

TST
BNE
BR
JMP
MoV
MOV
JSR
JSR
TYPE
HALT

¥ SPASS

;

JTEST SELECTED, CONTINUE IT
;SKIP THIS TEST

;SKIP THIS

TEST

;SKIP THIS

TEST

;FIRST PASS ?

’$
TST16

JIF O, TEST HAS NOT BEEN SELECTED

;

#STACK,SP

#15,a4#TSTNM
PC,a#CLDISK
PC,a#CHECKT

LCPHALT

[F NOT

;CONTINUE WITH THIS TEST
JUMP TO NEXT TEST ==eemmemccccce—- )
JRESET STACK

;SAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(CSZ
;CHECK DVA,RDY _MOL,DPR,DRY,VV =
;STOP

,65%
649

;o TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

66%

::GET OVER THE ASCI2

MOV

SNUNIT,
Q¥ INUNIT

,67%

;CANNOT CONTINUE TESTING IF ANY OF

TYPE
BR
TYPE

004752

OK TO DO THIS TEST

#SW5 ,aSWR

BNE

004604

=1,

BIT
BNE
JMP

BNE

001100

014100

000417

5%:

000042

104401

000426

165134

;IF

:NOT AN RPO6 OR MEMOREX RP04 SO
:ASSUME AN ISS RPO4 AND SKIP TEST

IST16

; *CHECK TO SEE

ITERATION

;:TYPE ASCIZ STRING

MAKE

THE

INITIAL UNIT NO.

"UNIT''

[an Xai

CZRJICO, RPO4/S/6 FCINL CTLRY
CZRJIC.P1
27-JuL-78 13:05

CZRJICO, RPO4/S/6 FCTNL CTLRI
CZRJIC.PII
27-JUL~-78 13:05
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942

MACY11 30A(1052)
T15

27-JuL-78

13:06

PAGE 70

SEQ 0069

CHECK ALL ADDRESS PLUG ADDRESSES

:*CHANGE ADDRESS PLUG ON THE UNIT UNDER TEST
014226
014226
014232
014274
014300
014302
014306
014352
014356
014416

104401

000420
013746
104405

004716

104401

014310

104401

014360

000421
000417
000000

:
6%

014234

TYPE
BR
MOV

,69%
é8$
SMUNIT .= (SP)

708

728

TYPDS
TYPE
TYPE

HALT

71%

;:TYPE ASCIZ STRING
* GET OVER THE ASCIZ
SGET THE UNIT UNDER TEST
STYPE IT OUT
;:TYPE ASCIZ STRING

LiGET OVER THE ASCIZ

,73%

SSTYPE ASCIZ STRING

LiGET OVER THE ASCIZ

: *HOUSEKEEPING
014420
0144264
014430
014436

005037
005237
042737
004737

047274
004716
177770

041456

004716

CLR

aNPRITEM

;:CLEAR THE PREVIOUS ERROR NUMBER

BIC

#AC7

*TRUNCATE TO LOW ORDER 3 BITS

INC

JSR

SHUNTT

PC.,a#CLDISK

;*ATTEMPT

014442
014446
014452
014460

017700
004737
032737
001423

014462

104102

014464
014470

104401

014510
014514
014516
014522

000407
013746
104405
104401
000402

165636

043370
010000

014472

004716

014524

002360

NUNIT

TO ADDRESS

*ADD ONE

TO THE UNIT NO.

*SET R1-RHCS1, R2-RHCS2
THE NEW UNIT NUMBER

MOV
JSR

aRHDST RO
PC,a#PUTREG

JATTEMPT TO ADDRESS THE NEW DRIVE NO.
;TAKE REG. SNAPSHOT IN CASE OF ERROR

BEQ

;CONTINUE IF °NED' IS NOT SET - DRIVE
;SHOULD BE EXISTENT ON THE BUSS
JUNIT NOT AVAILABLE AFTER ADDRESS
;PLUG REPLACED

BIT

ANED ,a#(S?2

ERROR

102

TYPE

.75%

B8R

74%

MOV
TYPDS

SHUNIT,-(SP)

76%

TYPE

;TEST FOR NON EXISTENT DRIVE

;. TYPE ASCIZ STRING

;:GET OVER THE ASCIZ

;GET THE BAD UNIT NUMBER
JTYPE IT OUT
;. TYPE ASCIZ STRING

;:GET OVER THE ASCIZ

(2RJICO, RPO4/S5/6 FCTNL C(TLRI
CZRJIC.PIY
27-)uUL-78 13:05

MACY11 30?§1052)
T

2972

2973
2974
2975
2976
2977
2978
2979
2980

27-JUuL-78

13:06

PAGE 71

CHECK ALL ADDRESS PLUG ADDRESSES

;*CHECK IF ALL UNIT NUMBERS HAVE BEEN TRIED
014530
014536

023737

004716

001233

004752

7%:

CMP

SNUNIT,I¥INUNIT ;HAVE WE INCREMENTED BACK TO THE

BNE

;ORIGINAL UNIT NO. YET ?
;NO..DO NEXT ADDRESS PLUG
JYES..CONTINUE WITH TESTS

;*SET "VV'IN RHDST 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

WAT
RHDS1

104413

002322

014600

104401

014702

TYPE

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

;VV MUST SET BETWEEN

,82%

;;TYPE ASCIZ STRING

.88

::TYPE ASCIZ STRING

81%

83$

TYPE

;GET READY TO MOVE COMMAND
;GET READY TO SET GO
;G0 WITH
:SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

JWAIT FOR VV BIT IN RHDS1 REGISTER
SALLOW 10 MICRO SECONDS

104401

000425

a#PKACK ,-(SP)
#GO, (SP)
(SP) +,aRH(CS1
aR1.R0O
aR3,RS

Vv
1.

000100
000001
000001

000436

MOV
BIS
MOV
MOV
MOV

;:GET OVER THE ASCIZ
;.GET OVER THE ASCIZ

SEQ 0070

(ZRJIICO, RPOL/S/6 FCINL CTLRY
CZrRJIC.PN
27-JuUL-78 13:05

MACY11

3000
3001
3002
3003

G 6
30A(1052)
27-JUL-78
13:06 PAGE 7?2
T1S
CHECK ALL ADDRESS PLUG ADDRESSES

.SBTTL
.SBTTL
.SBTTL

014754
014756
014762
014770
014774
015000
015004

000004
012706

104401

001000
000016
041456
041536
066720

015006

013777

002422

012737
004737

004737

000000

TST16:

004604

~«DRIVE

COMMAND

SCOPE
MOV
MOV

#STACK,SP
#16,a4TSTNM

;RESET STACK
;SAVE TEST NUMBER

LCPHALT

;CANNOT
;STOP

JSR
JSR

TYPE
HALT

MOV

165264

SEQ 0071

TESTS*»

PC,a#CLDISK
PC,a#(CHECKT

SMNOPERA ,aRHCS1

:SET R1=-RH(CST, RZ2-RH(CS?
;CHECK DVA,RDY
, MOL ,DPR,DRY,VV
CONTINUE

TESTING

ANY OF

;GET READY FOR NOPERA

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

004037
002272
004612
000022

041624

015026

013777

004606

015034
015040
015044

013746
052716
012677

002422
000001

015050
015052
015054
015056
015060

104413
002300
000200
000001
000001

015062
015066

015070
015072
015074
015076

015100
012102

004037
004612
002354
000022
015100
015104
104016

000207

JSR

RHWC

RO,a#SAVER

SAVERE
18.

165232

IS THE FIRST REGISTER SAVED

;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS

MOV

a#RP4LVEC ,ORPVEC ;SET RPO4 VECTOR ADDRESS

MOV

a#NOPERA ,-(SP)

BIS
MOV

165230

;SAVE REGISTERS

JRHWC

#GO, (SP)
(SP)+,3RHCST

;GET READY TO MOVE

COMMAND

;GET READY TO SET GO
;GO WITH

WAT
RHCS1

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

JRDY MUST SET BETWEEN

RDY
1.

JWAIT FOR RDY BIT IN RHCS1
JALLOW 10 MICRO SECONDS

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

042444

JSR

SAVERE

RO,a#COMREG

WC
18.
1%

ERROR
RTS

;GOOD DATA SAVED IN 'SAVERE'

JTEST DATA STARTING FROM ‘'RHW('
218. REGISTERS TO BE COMPARED
JRETURN TO 1% ON ERROR

1%:

;COMPARE SAVED REGISTERS WITH

JRETURN TO 2% ON NO ERROR
16
PC

;GIVING A NO-OP COMMAND
s CAUSED AN ERROR

sNO REGISTERS SHOULD CHANGE
;GOOD DATA GIVES REGISTER
;CONTENTS BEFORE COMMAND
JRECEIVED DATA GIVES REGISTER
;CONTENTS AFTER COMMAND

CZRJICO, RPO&L/5/6 FCINL (TLRI
(ZrRJiC.P1
27-JuL-78 13:05
30%6

MACYT1

30A (1052)
T

27-JuL-78

13:06

PAGE 73

NO OPERATION FUNCTION TEST

SEQ 0072

CZRJICO, RPO&L/5/6 FCINL CTLR1

CZRJIC.P1T
3057
3058
3059
3060

3061
3062
3063
3064
3065

3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3091
3092
3093
3094

27-JuL-78 13:05

MACYT1

30A(1052)
116

27-JUL-78

13:06

SEQ 0073

PAGE 74

NO OPERATION FUNCTION TEST

,*NOW REPEAT TLST BY MOVING IN ALL POSSIBIE ONES
(15104

015104
015110
035114
015120
015126
015130
015134
015140
015144
015150
015154
015160

015164
015166
015170
015172
015176
015200
015204
015206
015210
015214
015216
015220
015222
015224

015226

015230
015232

015236
015242
015246
015250

004757
012700
012730
012730
052730
012730
012730
012730
01273C
012730
012730
012730

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

2%:

061456
002272
177777
177777
043010
001400
000000
177777
000000
177777
177777
000000

004737
104401
000000
013777

PC.,a#CLDISK

MOV

#177777.3(RO)+

BIS

#43010,3(RO)+

MOV

MOV
MOV
MOV
MOV
MOV
MOV

MOV
MOV

87%:

177777

88%:

041536
066720
002422

:LOAD 177777 INTO RHBA

#1400,3(RO) +

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

:LOAD 177777 INTO RHWC

-LOAD 43010 INTO RHCS2
:LOAD 1400 INTO RHCS?

;LOAD
;LOAD
;LOAD
;LOAD
;LOAD
JLOAD

O _INTO RHER1
177777 INTO RHDST
O_INTO RHERZ2
177777 INTO RHOF
177777 INTO_RHCA
O INTO RHER3

88%

;BRANCH IF NO UNIT ON THIS BIT

aR?2

s INCREMENT RHCS2 TO NEXT UNIT

#8. ,R5
RO

MoV

#-1,3R4

DEC

INC

87%
(SP)+,3R2

MOV
MOV
TST
Mov

(SP) +,3R4
(SP)+,RO
(RO) +
#177776,a(R0O)+

JSR

PC,a#(CHECKT

TYPE

165022

#177777.3(R0O)+

B8CC

MOV
ROR

BNE
MoV

177776

“ADDR. OF ADDR OF RHWC IN RO

CLR

MOV

000010

;SET R1-RHCS1, R2-RH(S2

#RAWC , RO

RO,-(SP)
aR4,-(SP)
aR2,-(SP)
a#TOTALAT RO
aR?

MOV

004742

012600
005720
012730

JSR

MOV

HALT

MOV

LCPHALT

NOPERA ,&RHLST

;.PUSH RO ON STACK
;SAVE RHER1 TO REINSTATE LATER
;SAVE RHCS2 TO BE REINSTATED
;GET DRIVES PRESENT
;CLEAR RHCSZ AND CARRY
2 COUNTER
;JGET BIT INTO CARRY
;MOVE

INTO ERROR REGISTER

s COUNT

;BRANCH IF 8 NOT DONE
JREINSTATE RH(CSZ2

JREINSTATE RHER1
;.POP STACK INTO RO
;GET OVER PHAS IN RO
LOAD 177776 INTO RHMR

;CHECK DVA,RDY,MOL ,DPR,DRY,VV - 1
;CANNOT CONTINUE
:STOP

TESTING IF ANY OF

;GET READY FOR NOPERA

;*NOW SAVE REGISTERS YOR COMPARISON AFTER A NO-OP
3098
3099

015256
015262

004037
002272

3101

015266

000022

3100

015264

041624

004612

3103

015270

013777

004606

3105
3106
3107

015276
015302
015306

013746
052716
012677

002422
000001
164766

3109
3110
3111
3112

015312
015314
015316
015320

104413
002300
000200
000001

164770

JSR
RHW(
SAVERE
18.

RO, a#SAVER

MOV

AH#RPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

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

WAT
RHCS1
RDY
1.

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

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

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

(ZRJ1CO, RPO&/5/6 FCTNL CTLRI
CZRJIC.P1N
27-JuL-78 13:05
015322

MACY11

30A(1052)
116

27-JUL-78

J
13:06

6
PAGE 75

NO OPERATION FUNCTION TEST
1.

000001

SEQ 0074

JRDY MUST SET BETWEEN

;*CHANGE REGISTERS TO EXPECTED VALUES
015324
015330
015332
015336
015340

015346
015346
015354
015360
015362
015364
015366

TST
BEQ

005737
001406
005737
001003
042737

004750

100000

004620

043737
004037

004740
042336

004636

002322
000001
000000

TST
BNE
BIC

004722

BIC
JSR

RHDS?

a#RH70
5%

JRUNNING ON AN RH70 ?
;IF NOT, SKIP NEXT

#SC,w#SAVERE+6

;CLEAR 'SC'

aNUNITT
5%

IN RH(CS1

QXATTENT ,a#SA/ERE +24
:CLEAR APPROPIATE ATA BITS
RO, a#CHREG
;CHANGE BITS IN SAVED REGISTER
s CHANGE RHDS1 REGISTER

BIT/BITS

TO BE CHANGED

;NEW VALUE OF ATA IS O

ATA

100000

;TESTING MORE THAN ONE DRIVE
;SKIP NEXT IF SO

;CHANGE ATA BIT

;*NOW COMPARE REGISTERS BEFURE NO-OP WITH
;*AFTER NO-OP (OMMAND

015370
015374

015376
015400
015402
015404

004037
004612
002354
000022
015406
015412

015406
015410

000207

015412

104016

042444

JSR
SAVERE
w(
18.

RO, a#COMREG

;RETURN TO 3$ ON ERROR

3%:

ERROR
RTS

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

"6
PC

;GIVING A NO-OP COMMAND
;CAUSED AN ERROR

sNO REGISTERS SHOULD CHANGE
;GOOD DATA GIVES REGISTER
;CONTENTS BEFORE COMMAND
RECEIVED DATA GIVES REGISTER
;CONTENTS AFTER COMMAND

2
2z

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.P1
27-JUL-78 13:05
3152
3153
3154

3155
3156

3157
3158
3159

015412
015414
015420
015426
015432
015436

000004
012706
012737

015442

001000
000017
041456
041536
066720

MACY11

30A(1052)
27=-JuL~-78
DRIVE CLEAR
117
TST17:

3164
3165
3166
3167
3168
3169
3170
317
3172
3173
3174

3175
3176
3177
3178
3179

SEQ 0075

#STACK,SP

JRESET

JSR
JSR
TYPE

PC,a#CLDISK
PC,a#(HECKT
JCPHALT

;SET R1-RHCS1, R2-RH(S2

HALT

”17,3NTSTNM

STA(K

;SAVE TEST NUMBER

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

:g?NgOT CONTINUE TESTING IF ANY OF
:STO

J*WRITE ALL WRITABLF REGISTER BITS

3160

3161
3162
3163

6
PAGE 76

SCOPE
MOV

MOV

004604

K
13:06

015444
015450
015454
015460
015464
015470
015474
015500
015504
015510
015514
015520
015522
015524
015526
015532
015534
015540
015542
015544
015550
015552
015554
015556
015560
015562
015564
015566

012700
012730
012730
052730
012730
012730
012730
012730
012730
012730
012730
010046
011446
011246
013700
005012
012705
006000
103C02
012714
005212
005305
001371
012612
012614
012600
005720
012730

002272
177777
177776
043010
001400
000000
177777
000000
177777
177777
000000

015572
015600

017737
013777

164536
004606

015606
015612
015616

013746

002430
000001

015622
015624
015626

104413
002300
000200
000001
000001

015630
015632

052716
012677

MOV

#RHWC RO

BIS
MOV

#43010,a(RO)+
#1400,a(RO)
+

MOV
MOV

004742
000010

84%:

177777

85%:

MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOV
ROR
8CC
MOV

INC
DEC
BNE
MOV
MOV

177776

164456

004654
164460

#177777 ,8(R0) +
#177776,8(R0)
+
#0, a(RO)*
#177777.3(RO)
+
#0, a(R0)+
#177777.3(R0)+
8177777 .8(RO) +
#0.3(RO)+
RO,-(SP)
- (SP)
aR4
aR2,-(SP)
SMTOTALAT
RO
aR?
#8. ,R5
RO
85%
#-1,3R4

AR
RS
84%
(SP)+,aR?
(SP)+,aR4

;ADDR. OF ADDR. OF RHWC IN RO
;LOAD 177777 INTO RHWC
;LOAD 177776 INTO RHBA
;LOAD 43010 INTO RHCS?
;LOAD 1400 INTO RHCS1
;LOAD O_INTO RHER1
;LOAD 177777 INTO RHDST
;LOAD
sLOAD
;LOAD
;LOAD

O_INTO RHER?

177777 INTO RHOF
177777 INTO _RHCA
O INTO RHER3

.';PUSH RO ON STA(K
JSAVE RHER1 TO REINSTATE LATER
;SAVE RHCSZ TO BE REINSTATED
JGET DRIVES PRESENT
;CLEAR RHCSZ2 AND CARRY
;COUNTER
JGET BIT INTO CARRY
;BRANCH IF NO UNIT ON THIS BIT
;MOVE INTO ERROR REGISTER
:INCREMENT RHCSZ TO NEXT UNIT
;COUNT

:BRANCH IF 8 NOT DONE
SREINSTATE RHCSZ
JREINSTATE RHER1

;:POP STACK INTO RO
;GET OVER PHAS IN RO
:LOAD 177776 INTO RHMR

MOV
TST
MOV

(SP)+ R0
+
(RO)
#177776.,a(R0O)
+

MOV
MOV

dRHCC ,a#SAVERE +42 ;SAVE RHCC IN SAVERE TABLE
A#RP4LVEC ,a8RPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS

a#DCLEAR,~(SP)
#G0, (SP)

MOV

(SP) +,3RHCS1

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

WAT

;WAIT FOR RDY BIT

TO SET

RDY
1.
1.

;ALLOW 10 MICRO SECONDS
JRDY MUST SET BETWEEN

JWAIT FOR RDY BIT

IN RHCS1

;WAIT FOR RHCS1 REGISTER

RHCST

;*NOW LOAD 'SAVERE' REGISTER SNAPSHOT WITH EXPECTED VALUES
015634
015640

004037
002272

041360

JSR

RHW(

RO,a#F ILLRE

;MOV 177777 INTO SAVED RHW(
;SAVED REGISTER TO CHANGE

€z
2

(ZRJIICO, RPO4/5/6 FCINL CTLRI
CZRJIC.P1T
27-JUL-78 13:05
3208
3209
3210
3211
12
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263

177777

015642
015644
015650
015652
015654
015660

004037
002274
177776
005037
053737

041360

015666
015672

005737
001021

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

015736
015736
015742
015744
015746
015750
015752
015754
015756
015762
015764
015772
015772
015776
016000
016002
016006
016010
016012
016016
016020
016022
016026
016030
016032
016036
016040
016042
016046
016050

MACY11 30A(1052)
117

27-JuL-78

DRIVE CLEAR

177777
JSR

RHBA

L
13:06

6
PAGE 77

RO,
a#F [LLRE

SEQ 0076

;DATA

MOV 177776 INTO SAVED RHBA
;SAVED REGISTER TO (HANGE

;DATA

177776
CLR
8IS

E
¥ SAVER+4

004750

TST
BNE

SMRH70
8%

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

004037
002276
000003
000001
000100
000001

042336

JSR
RH(CS?2
3

RO,a#(HREG

;CHANGE BITS IN SAVED REGISTER

004037
002300
000001

042336

000010
000001
001000

004616
004716

004616

1
IR

BAl
1

JSR
RHCS1

000001
100000
000416

004037
002276
000002
000001
000100
000001
000010
005737
001003
042737

042336

004037
002302

041360

000000
004037

002304
017437
004037
002306
000000

004722
100000

041360
041360

004037
002310

041360

004037
002312
001777
004037
002314
000000

041360

116000

8%:

041360

004620

RO, a#CHREG

RO,a#F ILLRE

JSR
RHDST
17437
JSR
RHERZ

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

JSR

RO,a#F ILLRE

116000
JSR
RHCA

RO,a#F ILLRE

JSR
RHER3

CHANGED

BIT/BITS

TO BE

;CHANGE BITS IN SAVED REGISTER

JSR
RHER1

17277

RO, a#(HREG

#SC.,a#SAVERE
+6

RHOFf

IS 1

; CHANGE BA] BIT
;NEW VALUE OF MxF IS 1
s CHANGE MXF BIT
;CHANGE BITS IN SAVED REGISTER
;CHANGE RHCS1 REGISTER

BIC

;NEW VALUE OF BAI

JNEW VALUE OF SC IS 1
;CHANGE SC BIT
;SKIP NEXT RH70 CODE

A#NUNIT
9%

9%:

;CHANGE RHCSZ REGISTER
;3 BIT/BITS TO BE CHANGED
;NEW VALUE OF IR IS 1
;CHANGE IR BIT

MXF

;CLEAR LOCATION FOR RH(CSZ2

DFUNIT ,a#SAVERE+4,PUT UNIT # BACK IN THE SAVED RH(CSZ

RO, a#F ILLRE

s CHANGE RHCS2 REGISTER
;2 BIT/BITS TO BE CHANGED
sNEW VALUE OF IR IS 1
;CHANGE IR BIT
;NEW VALUE OF BAI IS 1
s CHANGE BAI BIT
;TESTING MORE THAN ONE DRIVE ?
;SKIP NEXT IF SO
;CLEAR 'SC' IF NOT

;MOV O INTO SAVED RHER1
;SAVED REGISTER TO CHANGE

:DATA

;MOV 17437 INTO SAVED RHDST
;SAVED REGISTER TO CHANGE
:DATA

;MOV O INTO SAVED RHERZ?
;SAVED REGISTER TO CHANGE

:DATA

:MOV 116000 INTO SAVED RHOf
:SAVED REGISTER TO CHANGE
;DATA
;MOV 1777 INTO SAVED RHCA

;SAVED REGISTER TO (CHANGE

;DATA

:MOV O INTO SAVED RHER3

:SA¥£D REGISTER TO CHANGE
;DA

czl
c2

(ZRJ1CO, RPO4/5/6 FCINL CTLRI
CZRJIC.PN

3264
3265

3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305

27-JUL-78 13:05

MACY11

30A(1052)
117

27-JUL-78

DRIVE

CLEAR

13:06

SEQ 0077

PAGE 78

016052

013746

004742

MOV

aN#TOTALAT ,=(SP)

016056
016062
016066
016072
016074

043716
012637
004037
002320
000400

004740
0045636
041360

8IC

a#ATTENT, (SP)

;GET AL% BITS OF DRIVE & PRESENT
:IN RHA
;CLEAR WORKING DRIVE BIT

JSR

RO,a#F ILLRE

;MOV 400 INTO SAVED RHMR

016076
016076
016102
016104

004037
002322
010700

041360

JSR

RO,a#F ILLRE

:MOV 10700 INTO SAVED RHDS]

016106

013737

002406

0046644

MOV

016114

013737

002410

004646

a#DT ,a#SAVERE+32 ;MOVE DRIVE TYPE INTO RHDT
:POSITION OF SAVRE TABLE
S#SN,a¥SAVERE
+34 ;MOVE SERIAL NUMBER INTO RHSN
;POSITION OF SAVERE TABLE

016122
016126
016130
016132
016136
016140
016142
016146

004037
002330
000000
004037
002332
000000
004037
002300
000001
000001
000010

041360

016150
016152
016154

MOV
RHMR
400

RHDS1
10700

MOV

INTO RHAS POSITION

;SAVED REGISTER TO CHANGE
:DATA

;SAVED REGISTER TO CHANGE
;DATA

RO,a#F JLLRE

;MOV O INTO SAVED RHEC1

JSR

RO.a#F ILLRE

;MOV O INTO SAVED RHEC?

SHECZ

JSR

042336

THIS

JSR

RHEC1
0

041360

(SP)+ ,a#SAVERE+24 ;MOVE

RHCS1

RO, a#(CHREG

1
1
PAR

;SAVED REGISTER TO CHANGE
;DATA

:gA¥ED REGISTER TO CHANGE

.DA

;CHANGE BITS IN SAVED REGISTER
;CHANGE RHCS1 REGISTER

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

;*NOW THAT SAVERE TABLE HAS BEEN LOADED WITH
J*EXPECTED VALUES, THE REGISTERS WILL BE COMPARED
;*WITH SAVERE TABLE
016156
016162
016164
016166
016170
016172

004037
004612
002354
000022
016174
016200

016174
016176

104017
000207

042644

JSR

SAVERE
w(

RO, a#(OMREG

18.
5%
6%

5%:

ERROR
RTS

; COMPARE SAVED REGISTERS WITH

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

;DRIVE CLEAR COMMAND
;GAVE AN ERROR

:GOOD DATA HAS WHAT SHOULD

;BE IN REGISTER AFTER A
;DRIVE CLEAR

016200

6%:

JRECEIVED DATA HAS WHAT
JTHE REGISTER ACTUALLY
;CONTAINED

c2i
czl

(ZRJIICO, RPO4L/5/6 FCINL CTLR1
CZRJIC.PN
27-JuL-78 13:05

3315
3316
3317
3318

016200
016202
016206
016214
016220
016224
016226
016232
016234
016240
016242

000004
012706
012737
004737
005737

104401

032712
001375

15720:

SCOPE
MoV
MoV
JSR

#STACK,SP
#20,a4TSTNM
PC,a#CLD]ISK

BNE
TST
BNE

18
ane?2
1%

004604

TST

004716

001223
010000

104401

016322

016336
016342
016344

013746

004716

016350
016354
016356
016362
016366
016372
016374

032713
001775
004737
004737

000406
104405
104401

104401
000000
012700

041456
041514
066720

002272

IT
- (SP)
aW#UN

BIT

#MOL ,aR3

JRESET STACK

;SAVE TEST NUMBER

JSET R1-RHCS1, RZ=-RH(CS?

;1S THIS A 220 START ?

;

LSCRLF

:MONITOR (ACT 11) RETURN ADDRESS ?
:SKIP THIS TEST
JFIRST PASS ?
;SKIP THIS TEST If NOT
;CONTINUE WITH THIS TEST

JUMP TO NEXT TEST ==ecccccccccanea- )
;:TYPE ASCIZ STRING

;:GET OVER THE ASCIZ
;GET UNIT UNDER TEST
STYPE IT OUuT

JMOL WILL BE HIGH TILL STOP IS HIT

JWAIT

TILL STOP IS HIT

B8R

66%

.67%

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

MOV

aNUNIT,-(SP)

JGET UNIT UNDER TEST
JTYPE IT

TYPDS
TYPE

4%:

INSPASS

MOV

BNE

SEQ 0078

PAGE 79

:SKIP THIS TEST IF SO

1%
2%
TST21
.65%
648

TYPDS
TYPE

a#NOPUSH

BNE
BR
JMP
TYPE
B8R

TYPE

001223

010000

N
13:06

DRIVE CLEAR

016744
016256

013746
104405

27-JUL-78

001100

016254

016314
016320

30A(1052)

000042

016244
016250

016274
016300
016302
016306
016312

001000
000020
041456
004724

MACY11

BIT

8tQ
JSR
JSR

TYPE
HALT

MoV

.$CRLF

#MOL ,3R3

JMOL WILL BE LOW TILL FILE READY

LCPHALT

:SET R1-RHCS1, RZ2-RH(CS?
;CHECK THAT DVA,RDY,MOL,DPR,DRY = 1
JCANNOT CONTINUE TESTS IF THEY AREN'T

43
PC,a#CLDISK
PC,a#(HECK
#RHW( ,RO

JWAIT

;STOP

;ADDR.

TILL

FILE READY

OF ADDR. OF

RHW(

IN RO

;*NOW INITIAL JZE ALL THE REGISTERS
016400
016404
016410
016414
016420
016424

016430
016434
016440
016444
016450
016452
016454
016456
016462
0164064

012730
012730
052730
012730
012730
012730
012730
012730
012730
012730
010046
011446
011246
013700
005012
012705

177777
177777

043010
001400
000000
177777
000000
1772777

177777

000000

004742

000010

MOV
MOV

BIS

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

(LR
MOV

#177777.3(RO)+
#177777.3(R0O)+
#43010,8(RO)
+
#1400,3(RO)+
#0,a(RO)
¢

#177777.3(RO)+
#0,3(RO)+

+
#177777.8(RO)
#177777.3(R0O)
+
#0,a(R0)+
RO.=-(SP)

aRé ,~(SP)
aR2.-(SP)
a#TOTALAT,RO
aR2
#8. .RS

;LOAD 177777 INTO RHW(
:LOAD 177777 INTO RHBA
;LOAD 43010 INTO RH(CS?
;LOAD 1400 INTO RHCS1
:LOAD O INTO RHER1
:LOAD 177777 INTO RHDST
;LOAD O INTO RHERZ
:LOAD 177777 INTO RHOF
;LOAD 177777 INTO RHCA
:LOAD 0 INTO RHER3
::PUSH RO ON STA(CK
:SAVE RHER1 TO REINSTATE LATER
:SAVE RH(CS2 TO BE REINSTATED
JGET DRIVES PRESENT
:CLEAR RH(SZ AND CARRY
JCOUNTER

2
2

CZRJIICO, RPO4L/5/6 FCTNL cY LR1
CZRJIC.PTI
27-JuUL-78 13:05

33N
3372
3373
3374
3375
3376
3377

3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398

FELLLEReR

(e le (R NTo NV, PNV,
N L

RURERY

3420

120

88$:

016470
016472
016474
016500
016502
016504
016506
016510
016512
016514
016516

006000
103002
012714
005212

005720
012730

177776

076522
016530

013777
013777

004740
002462

177777

89%:

27-JUL-78

READ~-IN-PRESET

7
PAGE 80

ROR

MoV

#-1,aR4

DEC
BNE

RS
88$

s COUNT
JBRANCH IF 8 NOT DONE

(SP)+,R0

;.POP STACK INTO RO

BC(

INC

MOV
MOV
MOV
TST

163566
163542

8
13:06

89%

aR?2

(SP)+,aR?2
(SP) +,a3R4
(RO) +

MOV

#177776,8(R0O)+

MOV
MOV

SFATTENT ,@RHAS
@#READIN,3RHCS1

JGET BIT INTO CARRY

;BRANCH IF NO UNIT ON THIS BIT
;MOVE INTO ERROR REGISTER

; INCREMENT RHCSZ TO NEXT UNIT
JREINSTATE RH(CS2
JREINSTATE RHER1

;GET OVER PHAS IN RO

;LOAD 177776 INTO RHMR
;CLEAR WORKING DRIVE °ATA'
;GET READY FOR READIN

;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ-IN COMMAND
016536
016542
016544
016546

004037
002272
004612
000022

061624

016550

013777

004606

016556
016562
016564
016570
016574
016600

005737
001411
013746
052716
012¢77
011100

004750

016606
016606
016612
016616

013746
052716
012677

002462
000101
163456

016602
016604

3410

MACY11 30A(1052)

016622
016622
016624
016626
016630
016632

163510

JSR
RHW(
SAVERE
18.

RO,a#SAVER

MOV

@¥RPLVEC ,BRPVEC ;SET RPO4 VECTOR ADDRESS

TST

a#RH70

JRUNNING ON AN RH70 CONTROLLER ?

MOV
BIS

a#READIN,~(SP)
#G0, (SP)

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

MOV

aR1,RO

MOV
BIS
MOV

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

BEQ

002462
000001
163500

MOV

011305
000406

MOV
BR
7%:

8%:

104413

sSKIP NEXT FOR RH70 IF NOT

(SP) + ,8RH(CS1

;GO WITH

aR3,R5
8%

;SAVE RHDS1 DURING ABOVE OPERATION
;SKIP NEXT FOR RH11

(SP)+,3RHCS1

;SAVE RHCS1 DURING ABOVE OPERATION

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

WAT

JWAIT FOR VV BIT TO SET

;VV MUST SET BETWEEN

RHDS1
A
1.

002322
000100
000001
000001

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

JWAIT FOR RHDS1 REGISTER
JWAIT FOR VV BIT IN RHDS1 REGISTER
JALLOW 10 MICRO SECONDS

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

041360

041360
042336

JSR

RO,a#F ILLRE

;MOV 0 INTO SAVED RHCA

JSR

RO,a4F ILLRE

:MOV 0 INTO SAVED RHDST

JSR

RO,a#CHREG

:CHANGE BITS IN SAVED REGISTER

SHCA
SHDST
RHOF

:g:¥iD REGISTER TO CHANGE
:82¥ED REGISTER TO CHANGE
s CHANGE RHOF REGISTER

;3 BIT/BITS TO BE CHANGED

SEQ 0079

CZRJICO, RPO4L/S5/6 FCINL CTLRI
CZRJIC.PN
27-JuL-78 13:05
3427

3428
3429
3430
poX)
3432

3433
3434
3435
3436
3437
3438
3439

016664
016666

016670
016672
016674
016676
016700
016704
016706
016710
016712

000000
010000
000000
004000
000000
002000

004037
002322

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

7
PAGE 81

JEW VALUE OF FMT22 IS O
;CHANGE FMT22 BIT

0
FMT22
0
ECI
0
HCI

JSR

042336

?HDS1

000001
000001
000100

SEQ 0080

JNEW VALUE OF ECI

RO, #CHREG

1
Vv

IS O

:CHANGE ECI BIT
JNEW 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 Vv IS 1
; CHANGE vV BIT

;*NOW THAT SAVERE TABLE WITH SAVED REGISTERS HAVE
;*THE EXPECTED VALUE AFTER A READ-~IN COMMAND

3440

;*COMPARISONS ARE MADE
016714
016720
016722
016724
016726
016730

004037
004612
002354
000022
016732
016736

016732
016734

000207

JSR

042444

SAVERE

RO, a#COMREG

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

;TEST DATA STARTING FROM ‘'RHW(C'

;18. REGISIERS TO BE COMPARED
JRETURN TO 5% ON ERROR
JRETURN TO 6% ON NO ERROR

5%:

104020

ERROR

RTS

JREAD IN COMMAND GAVE AN

;ERROR

:GOOD DATA HAS WHAT SHOULD

;BE IN REGISTER AFTER A
;READ~IN COMMAND
;RECEIVED DATA HAS WHAT
:THE REGISTER ACTUALLY CONTAINED
;THE FOLLOWING SHOULD

:BE THE REGISTER CONTENTS
;RHCA=0, RHDST = 0

;RHOF SHOULD HAVE FMT2?2 = 0,
JHCI = 0, ECI =0,
;RHDS1 SHOULD HAVE VvV =1
016736

012737

177777

047274

6$:

MOV

#-1 ,aWPRITEM

;ALL OTHER BITS SHOULD
;BE UNCHANGED
;CLEAR PREVIOUS ITEM NUMBER

MACY11

CZRJIICO, RPO4L/S5/6 FCTNL
CZRJIC.PN
27-JuL~78

016744
016746
016752
016760
016764
016770
016774
016776

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

TST21:

000004
012706
012737
004737
004737

004604

104401

012700

002272

SCOPE
MOV
MOV
JSR
JSR
TYPE
HALT
MoV

PAGE 82

SEQ 0081

#2171 ,aNTSTNM

JRESET STACK
;SAVE TEST NUMBER

LCPHALT

:g?ggOT CONTINUE TESTS IF THEY AREN'T

#RHWC ,RO

;ADDR. OF ADDR. OF RHWC IN RO

#STACK,SP

PC,a#CLDISK
PC.,a#CHECK

sSET R1-RHCS1, R2-RH(S2

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

;*INITIALIZE ALL THE REGISTERS
017002
017006
017012
017016
017022
017026
017032
017036
017042
017046
017052
017056

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

017062
017070

013777
013777

177777
177777

%
MOV
BIS
MOV
MoV
MOV
MOV

043010

001400
000000
177777
000000
177777
177777
000000
177777
177776
004740
002462

MOV
MOV
MOV
MOV

MOV

163226
163202

MOV
Mov

#177776.3(RO)
+

;LOAD 177777 INTO RHW(
;LOAD 177777 INTO RHBA
;LOAD 43010 INTO RH(CS2
;LOAD 1400 INTO RHCS1
;LOAD OQ_INTO RHER1
;LOAD 177777 INTO RHDST
;LOAD O_INTO RHERZ2
sLOAD 177777 INTO RHOF
JLOAD 177777 INTO RHCA
;LOAD O INTO RHER3
sCLEAR ALL BITS OF RHAS
JLOAD 177776 INTO RHMR

SHATTENT ,aRHAS
@#READIN,3RHCS1

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

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

#177777.3(RO)+

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

#-1,3(R0)+

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

004037
002272
004612
000022

041624

017110

013777

004606

017116
017122
017124

004750

017130
017134
017140
017142
017144

005737
001411
013746
052716
012677
011100
011305
000406

017146
017146
017152
017156

013746
052716
012677

002462
000101
163116

017162
017162
017164

104413
002300

JSR
RHW(

RO,a#SAVER

;SET RPO4 VECTOR ADDRESS

TST

a#RH70
9%

JRUNNING ON AN RH70 CONTROLLER ?

10%

;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

MOV
BIS
MoV

@¥READIN,-(SP)
#GO!IE, (SP)
(SP)+,aRHCST

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

BIS

MOV
MOV
MOV

10%:

REGISTERS

a#RP4VE(C ,aRPVE(

MOV

:
9%

;NUMBER OF

MOV

BEQ

002462
000001
163140

1S THE FIRST REGISTER SAVED

;STARTING ADDRESS OF WHERE

SAVERE
18.

163150

;SAVE REGISTERS

JRHWC

WAT

RHCS1

a#READIN,-(SP)
#G0, (SP)
(SP) +,aRH(S1T

aR1,R0

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

CZRJICO, RPO4/5/6 FCTNL CTLR1
27-JUL-78 13:05
CZRJIC.P1T
352¢
3523
3524
3525

017166
017170
017172

MACY11 30A(1052)
121

27-JUL-78

E
13:06

READ-IN-PRESET

000001
000001

SEQ 0082

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

RDY
1.
1.

000200

7
PAGE 83

:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
017174
017200
017202
017204
017210
017212
017214
07220
017222
017224
017226
017230
017232
017234
017236
017240
017244
017246
017250
017252

004037
002312
000000
004037
002304
000000

041360

JSR

RO,a#F ILLRE

;MOV O INTO SAVED RHCA

JSR

RO,a#F JILLRE

;MOV O INTO SAVED RHDST

JSR

RO,a#CHREG

RHCA
0

041360

SHDST

042336

RHOF

JSR

042336

RHDS1
1
1
vV

:CHANGE BITS IN SAVED REGISTER
:CHANGE RHOF REGISTER

;NEW VALUE OF FMT22 IS O

FMTZ22
0
EC!
0

HCI

;SA¥ED REGISTER TO CHANGE
DA

:3 BIT/BITS TO BE CHANGED

000000
002000
004037
002322
000001
000001
000100

;SAVED REGISTER TO CHANGE
:DATA

:CHANGE FMTZ2?2 BIT

;NEW VALUE OF ECI IS O

;CHANGE ECI BIT

:NEW VALUE OF HCI IS O

RO,a#(CHREG

;CHANGE HCI BIT

;CHANGE BITS IN SAVED REGISTER
:CHANGE RHDS1 REGISTER
:1 BIT/BITS TO BE CHANGED
;NEW VALUE OF vv 1S 1
;CHANGE Vv BIT

;*NOW THAT SAVERE TABLE WITH SAVED REGISTERS HAVE
;*THE EXPECTED VALUE AFTER A READ-IN COMMAND
;*COMPARISONS ARE MADE
017254
017260
017262
017264
017266
017270

004037
004612
002354
000022
017272
017276

017272
017274

104020
000207

JSR
SAVERE
Ww(

042444

RO, a#COMREG

18.
5%

:18. REGISTERS TO BE COMPARED
JRETURN TO 5% ON ERROR

6%
5%:

ERROR

RTS

; COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHW('

JRETURN TO 6% ON NO ERROR

20
PC

JREAD-IN COMMAND GAVE AN
. ERROR

;GOOD DATA HAS WHAT SHOULD

:BE IN REGISTER AFTER A
;READ-IN COMMAND
:RECEIVED DATA HAS WHAT

;THE REGISTER ACTUALLY CONTAINE
;THE FOLLOWING SHOULD
:BE THE REGISTER CONTENTS
;RHCA = 0, RHDST = 0
:RHOF SHOULD HAVE FMT?2?2
JHCI = 0, ECI =0,
;RHDS1

017276

6%:

SHOULD HAVE Vv =1

;ALL OTHER BITS SHOULD
;BE UNCHANGED

CZRJICO, RPO4L/S/6 FCTNL CTLR1
CZRJIC.P11
27-JuL-78 13:05
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602

017276
017302
017304
017306
017312

005737
001401
000402
000137

017312
017314
017320
017326
017332
017340
017344
017346

000004
012706
012737
004737
012777
004037
000777
000137

017352
017352
017354
017360
017366
017372
017400
017404

000004
012706
012737
004737
012777
004037
00037/

MACY11

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

004744
017352

001000
000022
041456
000001
041126

8$:
TST22:

SCOPE

MOV

004604

MOV

162760

MOV

JSR

JSR
777

017406

JMP

DOG:

001000
000023
041456
000001
041126

TST
BEQ
BR
JMP

TST23:

004604
162720

SCOPE

MoV
MOV

JSR
MOV
JSR

377

PAGE 84

SEQ 0083

a#RPO6

;TEST FOR RPO6 DRIVE

;TREAT AS RPO6 - DO NEXT '‘MAKECL''

:IF = 0,

TREAT DRIVE AS AN RPO4

a#D0G

;DO SECOND FOLLOWING "MAKECL'’

#STACK,SP
#23-1,a#TSTNM
PC,a#CLD]SK

JRESET STA(K
;THIS SAVES TEST NUMBER

RO, a#MAKECYL

JINIT DRIVE
sSET DIAGNOSTIC MODE
;SUBROUTINE TO GIVE A SEEK

I SH
a#f

;DON'T DO NEXT "MAKECL"'

#STACK,SP

JRESET STACK

#DMD
, aRHMR

#26~1,aNTSTNM
PC,a#CLDISK
#DMD
, aRHMR

RO, a#MAKECYL

;THIS

SAVES

TEST NUMBER

JINIT DRIVE
;SET DIAGNOSTIC MODE
sSUBROUTINE TO GIVE A SEEK

€2
4

(ZR1CO, RPO4/S/6 FCTINL C(TLR]
CZRJIC.PIN
27-JuL-78 13:05

3603
3604
3605
3606
3607
3608
3609
3610
3611
3612

017406
017406
0174610
017414
017422
017426
017632
017436
017440
0174644

017450
017454
017460
017464
017470
017474
017500
017504
017510
017514
017516
017520
017522
017526
017530
017534
017536

017540
017544
017546
017550
017552

MACYT1

G 7
30A(1052)
27=-JuL-78 13:06 PAGE 85
MAKE CURRENT CYLINDER = 377
123

FISH:

000006
012706
012737
004737

004737
1046401

000000
012700
012730
012730
052730
012730
012730
012730
012730
012730
012730
012730
010046
011446
011246
013700
005012
012705
006C00
103002

012714

017554
017556
017560
017562

005212
005305
001371
012612
012614
012600
005720
012730

017566

013777

001000
00C024
041456

TST264:

004604

SCOPE

MOV

JSR
JSR

041536
066720

TYPE

HALT

002272
177777
177776
000010
001400
000000

MOV
MOV
MOV

BIS

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

177777

000000

177777
177777
000000

004742

000010

84%:

177777

85%:

002426

CPHALT

;g?ggor CONTINUE TESTING IF ANY OF

#RHWC ,RO
#177777.3(RO)+

"ADDR. OF ADDR. OF RHWC IN RO
:LOAD 177777 INTO RHWC

#010,8(R0O) +

;LOAD 010 INTO RH(CSZ

#177776.3(R0O)+
#1600,3(RO) +

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

:LOAD 177776 INTO RHBA
;LOAD 1400 INTO RHCS1

#0,3(RO)+
#177777 ,a(RO)+
#177777 ,8(RO)+
#0,3(RO)+
RO,-(SP)
aR4 ,~(SP)

"LOAD O _INTO RHER1
,LOAD 177777 INTO RHDST
;LOAD O_INTO RHERZ?
LOAD 177777 INTO RHOF
;LOAD 177777 INTO_RHCA
;LOAD O INTO RHER3
;:PUSH RO ON STACK
:SAVE RHER1 TO REINSTATE LATER

a#TOTALAT RO

;GET DRIVES PRESENT

#8. RS
RO

; COUNTER
;GET BIT INTO CARRY

aR2,~-(SP)

;SAVE RHCSZ TO BE REINSTATED
:CLEAR RHCSZ AND CARRY

aR2

B8CC

85%
#-1,3R4

JBRANCH IF NO UNIT ON THIS BIT
;MOVE INTO ERROR REGISTER

;COUNT

MoV
ROR

MOV

INC

DEC
BNE

aR2

84%

: INCREMENT RHCSZ2 TO NEXT UNIT
;BRANCH IF 8 NOT DONE

JREINSTATE RHCS?
:REINSTATE RHERI1

MOV

(SP)+,aR2
(SP)+,aR4
(SP)+,R0O
(RO) +
#177776.,8(R0O)+

MCv

S¥RECALI,aRHCS1

;GET READY FOR RECAL!

TST

162504

JRESET STA(CK
;SAVE TEST NUMBER
'SET R1-RHCS1, R2-RHCS2
‘CHECK DVA,RDY,MOL.DPR.DRY,
WV = 1

CLR

MOV
MOV
MOV

177776

N#STACK,SP
#24 ,aNTSTNM
PC,a#CLDISK
PC . a#CHECKT

SEQ 0084

::POP STACK INTO RO
:GET OVER PHAS IN RO

;LOAD 177776 INTO RHMR

;*NOW SAVE REGISTERS FOR COMPARISON AFTER RECALIBRATE
017574
017600
017602
017604
017606
017614
017620
017624
017630
017632
017634
017636

004037
002272
004612
000022
013777
013746
052716
01677
011100
011305
104413

002322

JSR

041624

004606
002426
000101

162450

RHW(

162452

SAVERE
18.
MOV
MOV
BIS
MOV
MoV
MOV
WAT
RHDS1

RO,a#SAVER

;SAVE REGISTERS

@#RECALI,-(SP)
#GO!IE, (SP)

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

JRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;NUMBER OF RSEGISTERS
a#RPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS
(SP) +,aRHCS1

aR1,R0
aR3,RS

;GO WITH

;SAVE RH(CS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION
;WAIT FOR DRY BIT

TO SET

JWAIT FOR RHDS1 REGISTER

3674

3675
3676

3677
3678

104063

004760

MOV

(MP
BEQ

001126
004600
88%:

030500
0C1124

(SP)+,R0O
88$%

:DURING ABOVE OPERATION ONLY DVA.GO!'IE.RDY
;BRANCH IF GOOD

(SP) ,a#$GDDAT

:SAVE FOR PRINTOUT

RO, a#$BDDAT

MOV

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

90%

JBRANCH IF GOOD

MOV
ERROR
MOV
BEQ

MOV
MOV
ERROR

;BAD DATA

R1,a#REGADR
;FAILING REGISTER RH(CS1
:DURING ABOVE OPERATION ONLY
21
#MOL 'DPR!'VV.PIP,=-(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1

(SP)+,R5S

RS5,a#$BDDAT
R3,a#REGADR
63

:DURING ABOVE OPERATION ONLY MOL !DPR!'VV.PIP
;BAD DATA
;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

004037
002334
000000
004037
002310

041360

053737
004037
002300

004740
041360

116377

104206
004037
00232¢

JSR

RO.,a#F ILLRE

JSR

RO,a#F ILLRE

RHCC
0

041360

RHOF

116377

004636

;MOV 116377 INTO SAVED RHOF

:SAVED REGISTER TO CHANGE
:DATA

ANATTENT ,a#SAVERE +24
:SET APPROPRIATE 'ATA' BITS
RO.,a#F ILLRE
:MOV 104206 INTO SAVED RH(CS1

JSR

RO,a#F ILLRE

RHDS1
110700

110700

:SAVED REGISTER TO CHANGE
;DATA

BiS
JSR

RHCS1
104206

041360

;MOV 0 INTO SAVED RHCC

:SAVED REGISTER TO CHANGE
:DATA

MOV 110700 INTO SAVED RHDS1
:SAVED REGISTER TO CHANGE
:DATA

;*NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND
020030

004037
004612
002354
000022
020046
020052

020046
020050

104064

000207

042444

JSR

RO, a#COMREG

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

ERROR

;RECAL IBRATE COMMAND CAUSED

SAVERE
W
18.
1%
2%
1%:

RTS

;AN ERROR

;GOOD DATA GIVES WHAT SHOULD
;BE THERE

o om

#S(C, (SP)

;ARE THERE MORE THAN ONE UNIT
;BRANCH [F ONLY ONE UNIT
;GET RHCS1
JKEEP 1E BIT
JCLEAR IE IN GOOD DATA
;GET IE AS IS
JSET SC IN RHCS1

SNUN]T
89%
RO, a#TMPS
#°CIE,aNTMPS
#1E,(SP)
¥ TMPS, (SP)

:INCLUDE DVA!GO!IE'!RDY

MOV

C(MP

001126
004600

;SAVE COMMAND

TST
BEQ
MOV
BIC
BIC
BIS
BIS

a#RECALI,~(SP)

#DVA!GO!IE!'RDY, (SP)

004760
177677
000100
004760
100000
001124

BIS

JWAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 319990 MICRO SECONDS
;DRY MUST SET BETWEEN

CZzt
czi

010037
042737
0462716
053716
052716
011637
022600
001405
010037
010137
104021
012746
011637
022605
001405
010537
010337

MOV

002426
004301
004722

SEQ 0085

001413

DRY
31999,
24001,

COMMAND

PAGE 86

000200
076377
056701
013746
052716
005737

RECAL IBRATE

13:06

3666
3667
3668
3669
3670
3671
3672
3673

017640
017642
017644
017646
017652
017656
017662
017664
017670
017676
017702
017706
017712
017716
017720
017722
017726
017732
017734
017740
017744
017746
017750
017754
017760

T24

27-JUL-78

3659
3660
3661
3662
3663
3664
3665

MACY11 30A(1052)

L
(ZRJICO, RPOL/S5/6 FCINL CTLR]
27-JuL-78 13.05
CZRJIIC.PI

MACYT 3CT)A(1052) 27-JUL-78 13:06 PAGE 87
24
RECAL IBRATE COMMAND

3715

JRECEIVED DATA GIVES WHAT WAS

g;}g

3718

;THERE AFTER COMMAND
020052

2%:

SEQ 0086

CZ
czi

o
W
" S

CZRJICO, RPO4/S/6 FCTINL CTLRT
CZRJIC.PN
27-JuL-78 13:05

CZRJICO, RPO4L/5/6 FCTINL CTLRI
(ZRJIC.PN
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728

3729
3730
3731

3732

3733

27-JuUL-78 13:05

020052
020056
020060

005737
0014C1
000602

020066

000004

020074
020102

012737
004737

020062
020066

020070

000137

0064744
020126

012706

001000

020106

012777

0000017

020120

000777

020114

004037

041126

3736
3737
3738
3739

020126
020126
020130

000004
012706

001000

37641
3742

020142
020146

004737
012777

0416456
000001

3744

020134

020154

020160

000137

000025
061456

020122

3743

124

27-JuL-78

13:06

RECAL IBRATE COMMAND

PAGE 88

SEQ 0087

W4}
CZi

{

%;%g

3740

MACY11 30A(1052)

012737

004037
000377

3%:
4%:

TST2S:
004604

041126

a¥RPO6
3%
4%

JTEST FOR RPO6 DRIVE
:IF = 0, TREAT DRIVE AS AN RP0O4
;TREAT AS RP06 - DO NEXT 'MAKECL''

MOV

#STACK,SP

JRESET STACK

MOV

#DMD , aRHMR

;SET DIAGNOSTIC MODE

JMP

SCOPE

MOV
JSR

162204

JSR

777

020162

000026

TST
BEQ
B8R

JMP

CAT:
TST26:

004604
162144

a#(CAT

#26-1,3#TSTNM
PC,a#CLD]ISK
RO, a#MAKECYL
a#BIRD

;DO SECOND FOLLOWING "MAKECL"'

;THIS SAVES TEST NUMBER
;INIT DRIVE
;SUBROUTINE TO GIVE A SEEK
;DON'T DO NEXT "MAKECL''

¢
¢
¢

¢
[
¢
[
¢
{
¢
{
{
¢
[

{

SCOPE
MOV

#STACK,SP

;RESET STACK

{
[
‘
‘

JSR
MOV

PC,a#CLDISK
#DMD , 3RHMR

JINIT DRIVE
;SET DIAGNOSTIC MODE

‘
‘

MOV

JSR

377

#27-~1,a#TSTNM
RO ,a#MAKECYL

;THIS SAVES TEST NUMBER
;SUBROUTINE TO GIVE A SEEK

3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797

3798
3799
3800

JSR
JSR

TYPE
HALT

#STACK,SP
#27 ,NTSTNM

;RESET STACK
;SAVE TEST NUMBER

,CPHALT

:CANNOT CONTINUE TESTING IF ANY OfF
;STOP

PC.,a#CLDISK
PC.,a#CHECKT

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

002272

MoV

#RHW(C RO

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
177777
000000
002426

MOV

#0,3(R0O)+

JLOAD 0 INTO RHWC

BIS

#0,a(RO)+

:LOAD 0O INTO RHCS?

MOV
MOV
MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV

161772

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

#0.3(R0O)+
#0,a(R0O)+
#-1,3(R0O)+
#0,3(R0O) +

@¥RECALI,3RHCS1

;ADDR. OF ADDR OF RMWC IN RO
;LOAD O INTO RHBA
;LOAD
;LOAD
;LOAD
:LOAD
JLOAD

O
O
O
O
O

INTO
INTO
INTO
INTO
INTO

RHC(CS1
RHER1
RHDST
RHER?
RHOF

;LOAD O INTO RHCA
;LOAD O INTO RHER3
;CLEAR ALL BI7S OF RHAS
JLOAD O INTO RHMR
;GET READY FOR RECALI

;*NOW SAVE REGISTERS FOR COMPARISON AFTER RECALIBRATE
020306
020312
020314
020316
020320
020326
020332
020336
020342
020344

020346

020350
020352

020354
020356
020360
020364

020370
020374
020376
020400
020404
020410
020412
020416
020422
020424

004037
002272
004612
000022
013777
013746
052716
012677
011100
011305
104413
002322
000200
076377
056701
013746
052716
011637
022600
001405
010037

010137
104021

012746
011637
022605
001405

041624

004606
002426
000101
161736

161740

RO,a#SAVER

MOV
MOV
MOV
WAT
RHDS1

(SP) +,3RHCS1
aR1.R0
aR3,R5

BIS

DRY
31999.
24001.

002426
004301
001124

#GO!IE, (SP)

;GET READY TO SET

;WAIT FOR DRY BIT IN RHDS| REGISTER
JALLOW 319990 MICRO SECONDS
;DRY MUST SET BETWEEN

MOV

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

BEQ
MOV

88%
RO, a#$BDDAT

;BRANCH IF GOOD
;BAD DATA

MOV
CMP
BEQ

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

MOV
ERROR
MoV

;SAVE COMMAND

#DVA'!GO!IE.RDY, (SP)
(SP)+,RO

'GO' AND

;GO WITH
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION
:WAIT FOR DRY BIT TO SET
;JWAIT FOR RHDS1 REGISTER

a#RECALI ,-(SP)

CMP

88%:

;SAVE REGISTERS
JRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS
S¥RP4LVEC ,8RPVEC ;SET RPO4 VECTOR ADDRESS
a¥RECALI,-(SP)
;GET READY TO MOVE COMMAND

MOV

BIS

001126
004600

030500
001124

JSR
RHWC
SAVERE
18
MOV
MOV

< INCLUDE DVAI!GO.IE!RDY

;DURING ABOVE OPERATION ONLY DVA.GO.IE:RDY

R1.,a#REGADR
JFAILING REGISTER RHCS1
21
;DURING ABOVE OPERATION ONLY
#MOL 'DPR!VV!PIP,~(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY MOL !DPR!VV.PIP
;BRANCH IF GOOD

R ARMAMRMARMARAMRNMAMAMAMAAMARMAMMAMAMAMARNANDLANNANANDNDNDEDNDNEANDNDENDDND
SN
DSISS

3766
3767
3768
3769

012730
012730
052730
012730
012730
012730
012730
012730
012730
012730
012730
012730
013777

041456
041536
066720

004604

SCOPE
MOV
MOV

MMM

3764

3765

104401

000000
012700

001000
000027

BIRD:
18T127:

AAA

3763

020220
020224
020230
020234
020240
020244
020250
020254
020260
020264
020270
020274
020300

000004
012706
012737
004737
004737

3760
3761
3762

020162
020162
020164
020170
020176
020202
020206
020212
020214

SEQ 0088

3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759

K 7
30A(1052)
27-JUL-78 13:06 PAGE 89
MAKE CURRENT CYLINDER = 377
726

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

MACY11

3801
3802
3803

026426
020432
020436

010537
010337
104063

001126
004600

3806
3807
3808
3809
3810

020440
020444
020446
020450
020456

004037
002334
000000
053737
004037

041360
004740
042336

127

27-JuL-78

RECAL IBRATE

RS ,a#$BDDAT

MOV
MOV

gg.awnchoR

JSR

RO,a#F [LLRE

ERROR
;*NOW CHANGE

RHCC

0
BIS
JSR
RHDS1

004636

13:06

COMMAND

020472

004037

JSR
RHCS1

042336

;MOV 0 INTO SAVED RHCC
;SAVED REGISTER TO (HANGE
;DATA

QFATTENT ,Q#SAVERE +26
RO,a#CHREG

3815

;BAD DATA
JFAILING REGISTER RHDS1

:DURING ABOVE OPERATION ONLY
SAVED REGISTERS TO EXPECTED VALUES

ATA

SEQ 0089

RO, a#(HREG

1
1
SC

;SET APPROPRIATE

'ATA' BITS

;CHANGE BITS IN SAVED REGISTER
;CHANGE RHDST REGISTER
;1 BIT/BITS TO BE CHANGED
;JNEW VALUE OF ATA S 1
;CHANGE ATA BIT
;CHANGE BITS IN SAVED REGISTER
s CHANGE RH(CS1 REGISTER
BIT/BITS

TO BE

CHANGED

JNEW VALUE OF SC IS 1
;CHANGE SC BIT

;*NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND
3823
3824
3825
3826
3827
3828

020506
020512
020514
020516
020520
020522

004037
004612
002354
000022
020524
020530

3830
3831

020524
020526

104064
000207

3835

020530

042444

JSR

1%:

RO, a#(COMREG

;COMPARE SAVED REGISTERS WITH

;RECAL IBRATE COMMAND CAUSED

2 ¥

;GOOD DATA SAVED IN ‘'SAVERE'
JTEST DATA STARTING FROM 'RHW(C'
:18. REGISTERS TO BE COMPARED
JRETURN TO 1% ON ERROR
JRETURN TO 28 ON NO ERROR
;AN ERROR

:GOOD DATA GIVES WHAT SHOULD BF

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

CZR
CZR

A AARNMAMARAMRMAMRMAMRMANAMENAAMNRMNAMAMAMNANRAMAALANRNANDLNANANNANANNANANDLDDEDANEASNIDSDSIDNIDNDSDISDSISSS PtV
o

27-JuUL-78 13:05

MACY11

PAGE

CZRJIC.P1

CTLRI

(ZRJICO, RPOL/S/6 FCINL

30A(1052)

020530

000004

020532
020536
020540

005737
001007
005737

020544
020546
020552
020554
020556
020562
020566
020574
020600
020604
020610

001004

000042

012737
004737

022064
001000
000030
041456
041536
066720

104401
000000

004604

SEQ 0090

SCOPE
TST
BNE
TST
BNE
TST
BNE
BR
JMP
MoV

004724

001100

004737

L
13:06 PAGE 91
30A(1052)
27-JuL-78
130
UNLOAD COMMAND
T1ST30:

005737

001001
000402
000137
012706

MACY11

MOV

JSR
JSR

TYPE
HALT

;1S THIS A 220 START ?

a4NOPUSH

JSKIP THIS TEST If SO

JMONITOR (ACT 11) RETURN ADDRES. ?

JSKIP THIS TEST

sFIRST PASS

1ST31

;

#STACK,SP

#30,34TSTANM
PC,a#CLDISK
PC,a#CHECKT

LCPHALT

JSKIP THIS TEST IF NOT
sCONTINUE WITH THIS TEST

JUMP TO NEXT TEST e=--esc==cco---- )

cRESET STACK
;SAVE TEST NUMBER

JSET R1-RHCS1, R2-RH(SZ2

1
OF
ANY
IF
TESTING
:g?ggOT CONTINUE
DY
,MOL ,DPR,DRY,VV
;CHECK DVA,R

J*THIS SETTING OF VvV IS FOR LOOP ON ERROR ONLY
J*WHERE UNLOAD TAKES EFFECT AND CYCLE UP BRINGS VV DOWN

020612
020616

020622
020626
020630
020634
020714
020720
020772
020774
021000
021004
021010

017746
042716
022726
001504

161504
167677

010100

104401

020636

104401

020722

000427
000424
000000
004737
004737
104401

000000

MOV
BIC
(MP

aRHDS1,~(SP)
8167677, (SP)

TYPE
BR
TYPE
BR

,65%
648

BEQ

HALT

061456
061514
066720

JSR
JSR
TYPE
HALT

;PUSH RHDS1

ONTO STACK

66%

;CLEAR EVERYTHING EXCEPT VvV AND MOL
JARE VV AND MOL SET ?
;CONTINUE IF YES
;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
;:TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

PC,a#CLD]SK
PC,a#(HECK

DY
MOL ,DPR,DRY
;CHECK THAT DVA,R

#VVIMOL, (SP)+

,67%

LCPHALT

;WAIT FOR CONTINUE

;SET R1-RH(CS1, R2-RHCS?2

:C?NNOT CONTINUE TESTS IF THEY AREN'T
.

STOP

J*SET VV IN RHDS1 WITH PACK ACKNOWLEDGF
021012
021016
021022

013746
052716
012677

021026
021030
021032
021034
021036

002322
000100
000001
000001

021040
021040
021044

002460
000001
161252

MOV

BIS
MOV

104413

004737

021046
021050

000240
000240
000240

021052

012700

- (SP)
A#PKA(K,

#GO, (SP)

(SP)
+ ,3RH(CST

JWAIT FOR VvV BIT TO SET

WAT
RHDS1

JWAIT FOR RHDS1 REGISTER
;WAIT FOR VV BIT IN RHDS1

¥V

JALLOW 10 MICRO SECONDS
;VV MUST SET BETWEEN

’-

041536

002272

6%:

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

JSR
NOP
NOP
NOP

PC.,a#CHECKT

MOV

#RHW( ,RO

,MOL ,DPR & VV = 1
;CHECK DVA,RDY
;CHECK THAT ALL OTHER BITS - 0

JUNLIKE THE OTHER STATUS BIT TESTS,
;THERE

IS NO HALT

IT FAILS =

;ADDR. OF ADDR OF RHW( IN RO

;*LOAD ALL POSSIBLE REGISTERS WITH ONES

ARAAAMAAAAMAARNAMAMRAMAMAMAMRAMAMAAMARNANRNDNRANDENANARNMNENANDNNENDLEDNDNDNDNDDNIDLEDNEDDNEDNDDIEIDNDDIDSDS2D

(ZRJICO, RPO4L/S5/6 FCTNL CTLR]
CZRJIC.P1N
27-JUL-78 13:05

021056
021062

012730
012730
052730
012730
012730
012730
012730
012730
012730
012730
010046
011446

011246
013700
005012
012705

006000
103002
012714
005212
005305
001371
012612
012614
012600
005720
012730

013777

177777
17777/
0009010
001400
000000
177777
000000
177777
177777
000000

#177777 ,@(RO)+
#177777 ,8(RO)+
#10,a(R0)+

;LOAD 177777 INTO RHW(
;LOAD 177777 INTO RHBA
SLOAD 10 INTO RH(S?2

MOV

#0,3(RO)
¢+

SLOAD O INTO RHER1

MOV

MOV
MOV

MOV

(LR

000010

91%:

1772777

92%:

MOV
ROR
B8((
MoV

INC

DEC

BNE

Mov
MOV
MOV

177776

002424

161072

SEQ 0091

MOV
MOV
8IS

MOV

004742

7
PAGE 92

MOV

MoV

#1400,3(RO)+

#1977777.3(RO)+
#0,3(R0)+

2177777 ,8(RO)+
#177777.3(R0O)+
#0,3(R0) ¢
RO,=(SP)
aR4 ,-(SP)

aR2,~(SP)

a#TOTALAT RO

:LOAD 1400 INTO RHCS?

:LOAD 177777 INTO RHDST
SLOAD O INTO RHER2

:LOAD 177777 INTO RHOF

:LOAD 177777 INTO RHCA
:LOAD O INTO RHER3

;.PUSH RO ON STACK
;SAVE RHER1 TO REINSTATE LATER

JSAVE RHCSZ2 TO BE REINSTATED
;GET DRIVES PRESENT

aR/?

;CLEAR RHCSZ AND CARRY

aR?

; INCREMENT RHCS2 TO NEXT UNIT

#8. RS
RO
92%
#-1,aR6
RS

91%

(SP) + ,aR?2
(SP) ¢+ ,aRé
(SP)+ RO
(RO) +

#177776,8(R0O)+

@#UNLOAD ,aRHCST

;COUNTER
JGET BIT INTO CARRY
JBRANCH IF NO UNIT ON THIS BIT
;sMOVE INTO ERROR REGISTER
s COUNT

;JBRANCH [F 8 NOT DONE

JREINSTATE RHCSZ2
SJREINSTATE RHER1

;.POP STACK INTO RO
;GET OVER PHAS

[N RO

;LOAD 177776 INTO RHMR
;GET READY FOR UNLOAD

;*NOW SAVE REGISTERS FOR (OMPARISON AFTER UNLOAD
021206
021212
021214
021216

004037
00272
004612
000021

041624

021220

013777

004606

021226
021232
021236
021242
021244

013746
052716
012677
011100
011305

002424
000001

021246
021250
021252
021254
021256

104413

002300
000200
000001
000001

161036

161040

JSR
RHW(
SAVERE
17.

RO, a#SAVER

MOV

S#RPLVEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS

MOV

aW#UNLOAD ,-(SP)

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

.GET READY

TO MOVE

COMMAND

BIS

#G0, (SP)

;GET READY TO SET GO

MOV
MOV

aR1,R0O
aR3.RS

;SAVE RH(S1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

MOV

(SP)+ @RH(S1

;G0 WITH

wAT
RH(S1
RDY

JWAIT FOR BIT TO SET
;IN RHCS1 REGISTER
;'RDY* BIT

SANOTHER

JALLOW 10 MICRO SECONDS
10 -

°‘RDY'

MUST

;00 AND 20 MI(CRO SECONDS

SET BETWEEN

30A(1052)
27-JUL-78
13:06
130
UNLOAD (OMMAND

3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903

27-JuL-78 13:05

MACY11

(ZRJIC.PN

TLR1
(TLR

N P

(ZRJICO, RPO4L/S5/6 FCTNL

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

MACY11

30A(1052)
T30

3944
3945

3953
3954
3955
3956

13:06

UNLOAD COMMAND

PAGE 93

SEQ 0092

;~COMPARE CONTINTS OF RHCS1 AND RHDS1, WHICH WERE SAVED
;*DURING THE UNLOAD COMMAND, WITH THE EXPECTED RESULTS

3946

3947
3948
3949
3950
3951
3952

27~JUL-78

021260
021264
021270
021274
021276
021302
021310
021314
021320

013746
05¢716
005737
001413

002424
004201
004722

042737
042716
053716

177677
000100
004760
100000

021324
021330

011637
022600

021332
021334
021340
021344

001405
010037
010137

010037

052716

104021

004760

MOV
8IS
TST
BEQ
MOV

004760

9%:

;1S THERE MORE THAN ONE UNIT ?

9%
RO, aNTMP4

;SKIP NEXT IF ONLY ONE UNIT
;PUT SAVED RHCS1 INTO TMP4

#SC, (SP)

sSET 'SC'

sMASK ALL BUT THE ‘IE' BIT IN RH(S1
JCLEAR '1E' IN EXPECTED DATA
JSET 'IE' STATE FROM ACTUAL RHCS! DATA

N#-CIE ,aNTMPL
#I1E,(SP)
N TMP4, (SP)

MOV
MP

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

;SAVE EXPECTED DATA FOR PRINTOUT
;COMPARE EXPECTED DATA WITH SAVED

BEQ

108

;CHECK NEXT BITS If THESE OK

MOV
MOV
ERROR

001126
004600

SINUNI T

BIC
BIC
BIS
BIS

001124

SNMUNLOAD,-(SP)
;PUSH COMMAND ON STACK
(SP) ,INCLUDE THESE BITS SET
#DVA!GO!RDY,

RO,a#$BDDAT
R1,a#REGADR
21

IN RHCS1 SAVED DATA

JRHCS1 DATA AND RESET THE STACK

JRHCS1 IS BAD = PRINT IT OUT
JREGISTER ADDRESS
;DURING ABOVE OPERATION ONLY THE

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

;SHOULD BE SET
021346
021352
021356
021364
021370

012746
010537
042737
042716
053716

020400
004760

021374

011637
022605

001124

021402
021404
021410
0214614

001405
010537
010337

021400

104063

167677
010100
004760

004760

001126
004600

MoV

MOV
8IC

#PIP!DPR,-(SP)

104401

000425

021424

;PUT SOME EXPECTED RHDS1 BITS ON STACK

BIC
BIS

RS, TMP4
;PUT SAVED RHDS1 INTO TMP4
#°C<MOL
!VV> ,a¥TMP4 ;MASK ALL BUT 'MOL' & 'VV' IN RHDS1
#MOL !VV, (SP)
JCLEAR 'MOL® & °'VV' IN EXPECTED RHDS1
M TMPS, (SP)
;SET EXPECTED 'MOL' & ‘VV' BIT STATES

MOV
(MP

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

BEQ
MOV
MOV

118
RS ,a#$BDDAT
R3,a#REGADR

ERROR

;JFROM THE ACTUAL DATA (DON'T CARE)

;SAVE EXPECTED DATA FOR PRINTOUT
;COMPARE EXPECTED DATA WITH SAVED
;RHDS1 DATA AND RESET THE STACK
;CONTINUE IF EXPECTED=SAVED
;RHDS1 IS BAD - PRINT IT OUT
JREGISTER ADDRESS

;DURING THE ABOVE OPERATION, ONLY °‘PIP
JAND 'DPR'

SHOULD BE SET

J'MOL' & °'VV' ARE DON'T CARES

118

021416

021416
021422

10%:

TYPE

,96%

95%

:;TYPE ASCIZ STRING

::GET OVER THE ASCI2
;THIS PROVIDES A 1 SECOND ''STALL''

(ZRJICO, RPOL/5/6 FCTNL CTLR
CZRJIC.P1T
27-JuL-78 13:05
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999
4000
4001
4002
4003

MACY11 30A(1052)
130

27-JUL-78

c
13:06

UNLOAD COMMAND

SEQ 0093

PAGE 94

;*NOW CHANGE REGISTERS SAVED BEFORE UNLOAD (OMMAND

;70 EXPECTED VALUES AFTER UNLOAD COMMAND

;* = AGAIN 'MOL' $ 'VV' ARE DON'T CARES
012746
017737
042737
042716
053716

020400

021526
021532

042716
012637

100200

004642

021536
021542
021544
021546
021550

004037

042336

021552
021556
021560
021564
021566
021570
021572
021574
021574

005737

021476
021502
021510
021516
021522

002300
000001
000001
000001
001006
004037
002300
000001
000000
100000

043737

160614

167677
010100
004760

MOV
MOV
8IC
BIC
BIS

004760
004760

BIC
MOV

JSR
RHCS1

#PIP!DPR,-(SP)

@RHDST ,a#TMP4
#MOL ! VYV, (SP)
NTMPS, (SP)

;AND ADJUST THE STACK

RO, a#(HREG

GO
TST

042336

RHCS1
1

ANUNIT
7$
RO, a#CHREG

004740

004636

7%:

S¢C

BIC

'MOL' & 'Vv'

;JCLEAR 'MOL' & °'VV' IN EXPECTED RHDS1
;SET EXPECTED 'MOL' & ‘'VV' STATES

JFROM THE ACTUAL (DON'T CARE COND.)
W#ATA!DRY,(SP)
;CLEAR THESE ADDITIONAL RHDS1 BITS
(SP)+ ,a#SAVERE+30 ;CHANGE THE SAVED RHDS1 REGISTER

BNE
JSR

GET PRESENT ACTUAL RHDS1 CONTENTS

#AC<MOL
' VV>,3NTMPL ;MASK OUT ALL BUT

004722

;SET EXPECTED FINAL RHDS1 BITS

;CHANGE BITS IN SAVED REGISTER

; CHANGE RHCS1 REGISTER
;1 BIT/BITS TO BE CHANGED
JNEW VALUE OF GO IS 1
; CHANGE GO BIT

;1S THERE MORE THAN ONE UNIT ?
;SKIP NEXT IF MORE THAN ONE UNIT
;CHANGE BITS IN SAVED REGISTER

; CHANGE RHCS1 REGISTER
;1 BIT/BITS TO BE CHANGED
JNEW VALUE OF SC IS O
s CHANGE SC BIT

QNATTENT ,a#SAVERE +24

;CLEAR APPROPIATE ATA BITS

;*NOW COMPARE REGISTERS AFTER THE UNLOAD COMMAND
J*WITH EXPECTED VALUES
021602
021606
021610
021612
021614
021616

004037
004612
002354
000021
021620
021624

021620
021622

104023
000207

042444

JSR
SAVERE

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH

;GOOD DATA SAVED IN ‘'SAVERE'

;TEST DATA STARTING FROM 'RHWC’

;17. REGISTERS TO BE COMPARED
JRETURN TO 3% ON ERROR
JRETURN TO 4% ON NO ERROR
3%:

;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

000406
013746
104405

021632
004716

4%:

TYPE

MoV
TYPDS

,28%

97%
SHUNIT, - (SP)

2. TYPE ASCIZ STRING

;.GET OVER THE ASCIZ
;GET UNIT UNDER TEST

CZRJICO, RPO4L/S5/6 FCTNL CTLRI
CZRJIC.P1

60465
6046
4047
4048
4049
4050
4051

27~-JuL-78 13:05

021654
021660

104401

000444

021662

021772
021776
022000
022004
022006
022010

005037
000000
004737
000240
000240
000240

047274
061514

MACYTT

30A61052)

27-JUL-78

D
13:06

UNLOAD COMMAND
TYPE

SEQ 0094

PAGE 95

993

.100%

;. TYPE ASCIZ STRING

CLR

IMPRITEM

;CLEAR PREVIOUS ERROR NUMBER

JSR

PC.,a#(CHECK

HALT

NOP
NOP

NOP

;.GET OVER THE ASCIZ
JWAIT FOR CONTINUE

s CHECKS THAT DVA,RDY MOL & DPR = 1

;CHECKS THAT ALL OTHER BITS - 0
;THERE IS NO HALT IF IT FAILS = IT
;1S USED IN THE MIDDLE OF

A TEST

;*SET VV IN RHDS1 AFTER RESET FROM ACTUATING

;*THE STANDBY SWITCH AND CYCLING UP (MOL = 1)

022012
022016
022022
022026
0223530
022032
022034
022036
022040
022042

013746
052716
012677
011100
011305
104413
002322
000100
000001
000001

002460
000001
160252

MOV
BIS
MOV
MOV
MoV

WAT
RHDS1

v
1.
1.

HPKACK , = (SP)
#G0, (SP)
(SP)+,aRHCST
aR1,R0
aR3.R5

;GET READY TO MOVE COMMAND
;GET RE-DY TO SET GO
;GO WIT
:SAVE R-CS1 DURING ABOVE OPERATION
;SAVE R/.DS1 DURING ABOVE OPERATION
JwWALl FUR VvV BIT TO SET
JWAIT FOR RHDS1 REGISTER

JWAIT FOR VvV BIT IN RHDS1 REGISTER
JALLOW 10 MICRO SECONDS
JVV MUST SET BETWEEN

(ZRJI1CO, RPO4/5/6 FCTNL CTLRY
CZRJIC.PI
27-JuL-78 13:05
4070
4071

4072
4073
4074
4075
407¢
4077
4078
4079
4080

4081
4082
4083

4084
4085
4086
4087
4088
4089
4090
4091
4092

NaYo oNTe NV, P NVI] V]

b
b
e

e
b
b
b

ek —d

)

4093
4094
4095
4096
4097
4098
4099
4100

022044
022046
022054

000004
012737
012706
012737
004737
004737
104401

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

022120
001000
000031
041456
041514
066720

001106

000001
000034

004610
004611

TST31:

004604

SCOPE

Mov
MOV
MoV

JSR
JSR
TYPE
HALT
MovB
movB

#1$ ,SLPADR
#STACK,SP
#31,34TSTNM

;. SET SCOPE LOOP ADDRESS
JRESET STACK
;SAVE TEST NUMBER

LCPHALT

:g?ggOT CONTINUE TESTS IF THEY AREN'T

PC,a#CLDISK
PC,a#CHECK

JSET R1-RHCS1, R2-RH(CS2
;CHECK THAT DVA,RDY,MOL,DPR,DRY = 1

022104
022112

000000
112737
112737

022120
022120
022124
022130
022132
022134
322136
022142
022146
022152
022156
022162
022166
022172

004737
004737
000240
000240
000240
012700
012730
012730
052730
012730
012730
012730
012730

041456
041536

002272
177777
177777
000010
001400
000000
177777
000000

MOV
MOv
MOV

022176

013730

004610

MoV

S#OFSTVL ,a8(RO)+ ;SET OFFSET REGISTER

022202

012730
012730
010046

177777
000000

MOV

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

;LOAD 177777 INTO_RHCA
;LOAD O INTO RHER3
;;PUSH RO ON STACK

a#T. TALAT RO

JGET DRIVES PRESENI

#8. RS
RO

;COUNTER
;GET BIT INTO CARRY

022206
022212
022214
022216
022220
022224
022226

022232
022234
022236
022242

022244
022246
022250
022252
022254
022256
022260
022264

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

012614
012600
005720
012730
013777

1%:

BIS
MOV

MOV
MOV
MOV

PC,a#CLDISK
PC.a#CHECKT

#RHWC RO
¥#177777 ,8(RO)+
#177777 ,8(RO)+
#10,a(RO) +

#1400,3(R0O)+
#0,3(R0O)+

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

,SET OFFSET VALUE TO 1
;SET HCILECI,FMT22

;SET R1-RH(S1, R2-RHCSZ2
;CHECK DVA,RDY MOL.DPR & VV = 1
;CHECK THAT ALL OTHER BITS = 0
JUMLIKE THE OTHER STATUS BIT TESTS,
sTRERE IS NO HALT IF IT FAILS =~ IT IS
;ADOR. OF ADDR OF RHW(C IN RO
;LOAD 177777 INTO RHWC
;LOAD 177777 INTO RHBA
sLOAD 10 INTO RHCSZ2

;LOAD 1400 INTO RHCS1
;LCAL O_INTO RHER1

;LOAD 177777 INTO RHDST
;LOAD O INTO RHERZ2

;*THE OFFSET REGISTER WILL BE INCREMENTED FROM O TO 377

MoV
MOV
MOV
MOV
MOV

004742
000010

82%:

177777

177776
002454

JSR
JSR
NOP
NOP
NOP

#1, 807 STVL
#34 RHCFSTVL+T

83%:

160006

CLR
MoV
ROR

B8CC
MOV
INC
DEC
BNE

MOV
MOV
MOV
TST
MOV
MoV

@8R4 ,~(SP)
aR2 -(SP)
aR?2

83%

#-1,3R4

;SAVE RHER1 TO REINSTATE LATER
:SAVE RHCSZ TO BE
EINSTATED
:CLEAR RH(CSZ2 AND CARRY
;BRANCH IF NQ UNIT ON THIS BIT

;MOVE

INTO ERROR REGISTER

aR?2

:INCREMENT RHCS2 TO NEXT UNIT

82%
(SP) +,aR?
(SP)+,aR4
(SP)+ R0
(RO) +

;BRANCH IF 8 NOT DONE
;REINSTATE RHCSZ
;REINSTATE RHER1
;;POP STACK INTO RO
:GET OVER PHAS IN RO

#177776,8(R0O)+
A#OF SETC,aRHCS1

; COUNT

;LOAD 177776 INTO RHMR
;GET READY FOR OF SETC

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

004037
002272
004612

041624

JSR

RHW(

SAVERE

RO, a#SAVER

;SAVE REGISTERS
JRHWC IS THE FIRST REGISTER SAVED

;STARTING ADDRESS OF WHERE

SEQ 0095

4141

41462
4143

L1464
4145
4146
4147
4148
4149
4150
4151

022302

000022

022304

013777

004606

022312
022316

013746
052716
012677
011100
011305

002454
000101
157752

022332
022334
022336
022340
022342
022344
022350
022354
022360

106413
002322
000200
001750
000454
013746
052716
005737
001413
010037
042737
042716
053716
052716
011637
022600
001405
010037
010137
104021

4173
4174
4175
4176
4177
4178

4179
4180
4181

JNUMBER OF REGISTERS

[ Xeal

18.

SEQ 0096

157754

MOV

a#RP4LVEC ,RPVEC

;SET RPO4 VECTOR ADDRESS

MoV
BIS
MOV
MOV
MoV

a#0FSETC,~(SP)
#GO!IE, (SP)
(SP)+,aRHCS1
aR1.RO
3R3,R5

;GET READY TO MOVE (OMMAND
;GET READY TO SET 'GO' AND
;G0 WITH
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

022322
022326
022330

4152
4153
4154
4155
4156
4157
4158

4159
4160
4161
4162
4163
4164
4165
4166
4167
4168
4169
4170
4171
4172

F
8
30A(1052)
27-JUL-78
13:06 F~AGE 97
131
OFFSET AND RETURN TO CENTER LINE COMMAND

012746

022456

011637
022605
001405
010537
010337
104063

WAT

;JWAIT

1000.

JALLOW 10000 MICRO SECONDS

RHDS1
DRY

300.

002454
004301
004722
004760
177677
000100
004760
100000
001124

MOV

a#0FSETC,-(SP)

TST

SNUNT T

BIS

BEQ
MOV

004760

BIS

¥ TMP4, (SP)

cMp
BEQ
MOV

001126
004600

MOV

86%:

030500
001124

ERROR

MOV

MOV
CMP

BEQ

MoV

001126
004600

87%
RO, a#TMP4

#*CIE,QNTMPL

BIS
MOV

MOV
ERROR

TO SET

;SAVE COMMAND
;ARE

; INCLUDE DVA!GO!IE !RDY

THERE MORE

THAN ONE UNIT

JBRANCH IF ONLY ONE UNIT
JGET RHCS1
JKEEP IE BIT

#I1E, (SP)

;CLEAR IE IN GOOD DATA

#5C,(SP)
(SP) ,a#$GDDAT

SSET SC IN RHCST
;SAVE FOR PRINTOUT

R1,#REGADR

JFAILING REGISTER RHCS1

(SP)+,RO
86$
RO,a#$BDDAT
21

;DRY MUST SET BETWEEN

#DVA!GO!IE!RDY, (SP)

BIC

FOR DRY BIT

JWAIT FOR RHDS1 REGISTER
JWAIT FOR DRY BIT IN RHDS1

;GET

IE AS

;DURING ABOVE OPERATION ONLY DVA.GO!IE.RDY
;BRANCH IF GOOD
;BAD DATA
;DURING ABOVE OPERATION ONLY

H#PIP!MOL 'DPR!VV,=(SP)

:SAVE BITS SET DURING OPERATION [N RHDS1

(SP) ,a#$CDDAT
(SP)+,R5

;SAVE FOR PRINTOUT
.DURING ABOVE OPERATION ONLY PIP!MOL !DPR.VV

RS.,a#$BDDAT

;BAD DATA

88%

R3,a4REGADR
63

;BRANCH IF GOOD

JFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

;*NOW (HANGE SAVED REGISTERS TO EXPECTED VALUES
022460
022464
022466
022470
022472
022474
022500
022502
022504
022506
022510

004037
002300
000001

012336

JSR
RHCS1
1
1
SC

042336

100000

053737

004740

004636

RO,3#CHREG

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

JSR

RO, a#(CHREG

BIS

QHATTENT ,Q#SAVERE +24

RHDS1
1
1
ATA

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

;SET APPROPRIATE

'ATA'

;*NOW COMPARE REGISTERS AFTER AN OF SET COMMAND
022516
0c2522

004037
004612

042444

JSR
SAVERE

RO,a#COMREG

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

BITS

6126
6127
4128
4129
4130
G
6132
6133
4134
4135
4136
6137
4138
4139
4140

MACY11

CZRJICO, RPO4/S/6 FCTINL CTL
TLR]
CZRIIC.P1Y
27-JUL-78 13:05

2%:

104024

000207

ERROR
RTS

;18. REGISTERS TO BE (OMPARED

;OFFSET COMMAND CAUSED AN ERROR
;GOOD DATA IS WHAT SHOULD BE
JAFTER AN OFFSET

013777

004740

157550

3%:

MOV

QHATTENT ,aRHAS

COMMAND

;( EAR WORKING DRIVE ATTENTION

002456

157512

NOP
NOP
MOV

@#RETCL,aRHCST

JUNLIKE THE OTHER STATUS BIT TESTS,
JTHERE IS NO HALT IF IT FAILS = IT IS
GET READY FOR RETCL

;*NOW REGISTERS ARE SAVED FOR COMPARISON AFTER COMMAND

022566
022572
022574
022576

004037
002272
004612
000022

041624

022600

013777

004606

022606
022612
022616
022622
022624

013746
052716
012677
011100
011305

002456
000101
157456

022626
022630
022632
022634
022636

104413
002322
000200
001750
001750

022710
022712
022714

013746
052716
005737
001413
010037
042737
042716
05377
052716
011637
022600
001405
010037

157460

JSR
RHW(
SAVERE
18.

RO,a#SAVER

MoV

MMRPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV

BIS
MOV
MOV
MOV

SHRETCL,=(SP)

#GO!IE, (SP)
(SP)+,3RHCS1T
aR1.RO
aR3.RS

WAT

1000.

004760
177677
000100
004760
100000
001124

001126

BIS

004760

TST
BEQ
MOV
BIC
BIC
BIS
BIS
MOV
CMP
BEQ

MoV

:SAVE RHDS1 DURING ABOVE OPERATION

;WAIT FOR RHDS1 REGISTER
JWAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 10000 MICRO SECONDS

DRY
1000.

MOV

;GET READY TO MOVE COMMAND

:GET READY TO SET 'GO' AND
;G0 WITH
;SAVE RHCS1 DURING ABOVE OPERATION
;WAIT FOR DRY BIT TO SET

RHDS1

002456
004301
004722

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

QHRETCL ,-(SP)

;DRY MUST SET BETWEEN
: SAVE COMMAND

#DVA!GO!IE.RDY, (SP)
SUNUNT T
90%
RO, ¥ TMP4
R CIE,INTMPS
#1E,(SP)
INTMPS , (SP)

#SC,(SP)

(SP) ,a#$GDDAT

(SP)+,R0

89%
RO, a#$BDDAT

< INCLUDE DVA.GO!IE'RDY

JARE THERE MORE THAN ONE UNIT
JBRANCH IF ONLY ONE UNIT
;GET RHCS1
JKEEP IE BIT
;CLEAR IE IN GOOD DATA
;GET IE AS IS
;SET SC IN RHCSI1
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY DVA.GO:IE.RDY
JBRANCH IF GOOD
;BAD DATA

Y & VV = 1
MOL ,DPR
;CHECK DVA,RD
;CHECK THAT ALL OTHER BITS - 0

PC,a#CHECKT

000240
000240
000240
013777

JSR
NOP

041536

004737

022546
022552
022554
022556
022560

;*NOW A RETURN TO CENTER | INE COMMAND WILL BE GIVEN

Maom

022540

THERE

JRECEIVED DATA GIVES WHAT WAS THERE

JRETURN TO 2% ON ERROR
JRETURN TO 3% ON NO ERROR

2%
3%

;TEST DATA STARTING FROM 'RHW('

4194
4195
4196
6197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208
4209
4210

18.

000022
022534
022540

CZF
4

4192
4193

022534
022536

002354

SEQ 0097

4184
4185
4186
4187
4188
4189
4190
LI

022524
022526
022530
022532

G 8
30A(1052)
27-JUL-78 13:06 PAGE 98
OFFSET AND RETURN TO CENTER LINE COMMAND
3

6182
4183

MACY11

CZRJICO, RPO&L/5/6 FCTNL CTLRI
CZRJIC.PI
27-JuL-78 13:05

1
gg.a#REGADR

JFAILING REGISTER RHDS1

;DURING ABOVE OPERATION ONLY

:*NOW CHANGE SAVED REGISTER TO EXPECTED VALUE
022754
022760
022762
022764
022766
022770
022774
022776
023000
023002
023004
023012
023016
023020

004037
002300
000001

023022
023026
023030
023032
023034
023036
023040
023042

004037
004612
002354
000022
023040
023044

042336

JSR
RHCS1
1
1
SC
JSR
?HDS1

042336

RO,a#CHREG

004740
041360

004636

; CHANGE RHCS1 REGISTER

;1 BIT/BITS TO BE (HANGED

RO, a#(CHREG

IS 1

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

;NEW VALUE OF ATA IS 1
:CHANGE ATA BIT

ATA
BIS
JSR
RHOF

;CHANGE BITS IN SAVED REGISTER

JNEW VALUE OF SC

;SET APPROPRIATE 'ATA' BITS
SNATTENT ,@#SAVERE+24
RO,a#F ILLRE
JMOV BITIS!HCI!ECI!FMT22 INTO SAVED RHOF
;SAVED REGISTER TgAggANGE

BIT1S!HCI!'ECI!FMT22

116000

;*NOW COMPARE REGISTERS AFTER RETURN-TO-CENTER-LINE
RO, a#COMREG
s COMPARE SAVED REGISTERS WITH

042444

JSR
SAVERE

104025
000207

;GOOD DATA SAVED IN °SAVERE'
;TEST DATA STARTING FROM ‘'RHW('
:18. REGISTERS TO BE COMPARED
JRETURN TO 4% ON ERROR
JRETURN TO 5% 9N NO ERROR

JRETURN TO CENTER-LINE
; COMMAND CAUSED AN ERROR
;GO0OD DATA HAS WHAT SHOULD
;BE THERE

JRECEIVED DATA HAS WHAT WAS

;THERE AFTER COMMAND
023044
023044
023050
023054
023062
023064
023072
023076
023100
023102

004737

105237
132737
001403

062737
105737

001001
000402
000137

041456
004610
000100
000100
004610

022120

5%:

004610

7%:

6%:

JSR
INCB
BITB
BEQ
ADD
1STB

PC,a#CLDISK
a#OF STVL

BNE
BR

6%
TST32
sy

JMP

;;OO.Q#OFSTVL
#100,a#0F STVL
a#0FSTVL

;

;SET R1-RHCS1, R2-RH(CS?
JGET NEXT OFFSET VALUE

;SEE IF UNUSED BIT 6
sNO SO DO SOME MORE

IS ON

JYES SO BY-PASS 1T
;IF ZERO ALL COMBINATICNS ARE
;COMPLETE

;BRANCH [F 377 NOT DONE

BRANCH TO NEXT

TEST

~
on

;BAD DATA

MOV
ERROR

RS, a#$BDDAT

MOV

LN SN

001126
CC4600

{MP
BEQ

MOV
MOV

JFAILING REGISTER RH(CS1
;DURING ABOVE OPERATION ONLY
#P]P .MOL .DPR!VV,~(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP) +,RS
;:DURING ABOVE OPERATION CNLY PIP!MOL.DPR.VV
Q1S
;BRANCH IF GOOD
R1,a#REGADR

89%:

ERROR

MOV

OFFSET AND RETURN TO CENTER LINE COMMAND

CZR

030500
001124

SEQ 0098

PAGE 99

012746
011637
022605
001405
010537
010337
104063

022740
022742
022746
022752

004600

104021

H
13:06

022736

010137

27-JuL-78

022720
022724
022726
022732

30A(1052)

4238
4239
4240
4261
4262
4243
4264
4245
4246
42467
4248
4269
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266
4267
4268
4269
4270
4271
4272
4273
4274
4275
4276
4277
4278
4279
4280
4281
4282
4283
4284
4285
4286
4287
4288
4289
4290

MACYT1

;JUMP BECAUSE 377 NOT DONE

Il oW JO

C(ZRJICO, RP04/5/6 FCTNL CTLR1
27-JuL-78 13:05
CZRJIC.PTT

350.
350.

157112

BIT
BEQ
ERROR
SCOPE
JSR

041456
002426
000101

MOV

BIS

157042

MOV
WAT
RHDS1

23242
023244

001401
000717

004756

2%:

DEC
BEQ
BR

#ERR,aRHDS1

2%
26

PC,a#CLDISK

a#RECALI,-(SP)
#GO.1E, (SP)
(SP)+,3RH(CS1T

o
o F oW L
P

;DRY MUST SET BETWEEN

:fig ERR SET?

JREPEATED OFFSETS CAUSED AN ERROR

;SET R1-RHCS1, R2-RH(SZ2
;GET READY TO MOVE COMMAND
;GET READY TO SET 'GO' AND
;GO WITH
;WAIT

FOR DRY BIT

TO SET

;JWAIT FOR RHDS1 REGISTER
;WAIT FOR DRY BIT IN RHDS1 REGISTER

;ALLOW 250000 MICRO SECONDS

a4 TMP1
TST33
1%

X
S
S
3
S
o
S

FOR DRY BIT 70 SET
FOR RHDS1 REGISTER
FOR DRY BIT IN RHDS1

JALLOW 3500 MICRO SECONDS

DRY

25000.
25000.

;WAIT
JWAIT
JWAIT

;DRY MUST SET BETWEEN

. COUNT DOWN

BRANCH IF

DONE

.GO BACK AND DO IT AGIEN

DRY

.GO WITH

(SP)+ ,@RH(ST

V2T 2V oW ol ol

MOV
WAT

2260 IN OFSET REGISTER
;GET READY TO MOVE COMMAND
;GET READY TO SET 'GO' AND

#GO!IE, (SP)

a#0F SETC,~(SP)

SOFSET

BIS

MoV

JSTOP

RO,a#0F SET

;CANNOT CONTINUE TESTING IF ANY OF

JSR
260

;CHECK DVA,RDY,MOL,DPR,DRY,VV -

LCPHALT

PC,a#CLDISK
PC,a#CHECKT

RHDS1

23240

023246
023250
023254
023256

JRESET STACK
.SAVE TEST NUMBER
JSET R1=-RH(CS1, RZ2-RH(CSZ

157110

#STACK,SP

#32,aNTSTNM

SN o

002454
000101

s COUNTER

SO N

4324
4325
4326

104413
002322

041442

# 500.,3#TMP1

4321
4322
4323

052716
012677

004604

CZR
CZR

4318
4319
4320

000000
004037
000260
013746

MOV
MOV
JSR
JSR
TYPE
HALT

SEQ 0099

AV 2 F o ¥ o

64317

001000
000032
041456
041536
066720

100

4308
4309
4310
3N
4312
4313
4314
4315
4316

012706
012737
004737
004737
104401

SCOPE
MOV

004756

PAGE

SN N

4307

023160
023164
023170
023172
023174
023176
023200
023202
023210
023212
023214
023216
023222
023226
023232
023236

000764

4297
4298
4299
4300
430
4302
4303
4304
4305
4306

023116
023116
023122
023130
023134
023140
023144
023146
023152
023154

000004
012737

132

13:06
OFFSET COMMAND

27-JuL-78

4294
4295
4296

023106

023110

30A(1052)

4291

4292
4293

MACY11

ol SN SN

CZRJICO, RPO4/5/6 FCTINL CTLRI
CZRJIC.P1T
27-JuUL~78 13:05

012706
012737
004737

001000
000033
041456

.SBTTL
TST33:

SCOPE
MOV

#STACK, SP

JRESET STACK

JSR

PC,a#CLDISK

JSET R1-RHCS1, R2-RHCSZ2

#33

NTSTNM

;SAVE TEST NUMBER

J*FILL WRITT FROM BUFFER WITH HEADER
023300
023304
023306
023310
023312
023314
023316

004037
002470
000004

JSR
WRFROM
4
10000
0
0
0

041302

010000
000000
000000
000000

RO, a#F LHEAD

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

;*FILL WRITE FROM BUFFER WITH DATA
023320
023324
023326
023330

004037
002500
000400
000000

JSR
RO,a#CLAREA
WRFROM+10

041326

256.
0

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

;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA
;*AS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS

;*CAN BE MADE TO MAKE SURE THAT WRITE DID NOT
;*CHANGE WRITE FROM BUFFER
023332
023336
023340
023342
023344
023346
023350
023352
023356
023360
023362

004037
003534
000004
010000
000000
000000
000000
004037
003544
000400
000000

JSR
REINTO
4
10000
0
0
0

041302

RO, Q#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
JFILL WITH O

p 2

SEQ 0100

READ/WRITE TESTS USING MEDIA

MOV

004604

PAGE 101

AILALALAALALAUVIMWA NNV WNIAWNWNES SN DN SN0

000004

TESTS USING MEDIA

AL AU

023260
023262
023266
023274

13:06

;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED
023364
023370
023372
023373
023374
023376
023400
023402
023404

004037

043430

JSR

.BYTE
.BYTE

0
0
0
-256.-4

RO, a#RUN

WRFROM

;CYLINDER O
;SECTOR O
;TRACK 0
;WORD COUNT (DATA) = 256.
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT22
WRIFOR

010000
002444

;SETUP TO RUN FOR DATA COMMAND

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

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

004037
002272

41624

JSR
RHW(

RO, a#SAVER

;SAVE REGISTERS
JRHWC IS THE FIRST REGISTER SAVED

AL ML AL RLALALALALALALALALALALALALALALAL

(327
(328
4329
4330
4331
(332
(333
4334
4335
4336
4337
4338
4339
4340
4341
4342
4343
4344
4345
4346
4347
4348
4349
4350
4351
4352
4353
4354
4355
4356
4357
4358
4359
4360
4361
4362
4363
4364
4365
4366
4367
4368
£369
4370
4371
4372
4373
4374
4375
4376
4377
4378
4379
4380
4381
4,382

27-JuUL-78 13:05

READ/WRITE

27-JuL-78

ala

CZRJIC.PN

MACY11 30A(1052)

CZRJIICO, RPO4L/5/6 FCINL CTLRI

4413

4414
4415
4416
4417
4418
4419
4420
46421
4422

4423
L4424
4425
4426
4427
4428
4429
4430
4631
4432
4433

041536
066720

023432

013777

004606

023440
023444
023450
023454
023456

013746
052716
012677
011100
011305

002444
000101

PC,a#CHECKT

MoV

HRP4LVEC ,8RPVEC ;SET RPO4 VECTOR ADDRESS

MOV

Q#WRIFOR,-(SP)

,GET READY TO MOVE

MOV
MOV

(SP) +,aRHCS1
aR1,RO
aR3,R5

;GO WITH
.SAVE RHCS1

TYPE
HALT

156626

BIS

156624

MOV

LCPHALT

#GO!IE, (SP)

;CHECK DVA,RDY
,MOL ,DPR,DRY,VV - 1
;CANNOT CONTINUE
;STOP

:GET READY TO SET

TESTING IF ANY OF

COMMAND

'GO' AND

DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

;*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC
023460
023462
023464
023466
023470
023472
023476
023502
023506
023510
023512
023516
023522

023524
023530

023534
023536
023540
023544
023550

104413
002300
000200
001614
001507

013746
052716
011637
022600
001405
010037
010137
104021
012746
011637
022605
001405
010537
010337
104063

WAT

RHCS1
RDY
908.
839.

002444
004101
001124
001126
004600

010500

001124

001126
004600

64%:

;WAIT FOR RDY BIT TO SET

;JWAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN R]HCS1
;ALLOW 9080 MICRO SECONDS
JRDY MUST SET BETWEEN

MOV

d#WRIFOR,-(SP)

MOV

#MOL 'DPR'VV,-(SP)

BIS
MOV
CMP
BEQ
MOV
MOV
ERROR
MoV
CMP
BEQ

MOV

MOV
ERROR

#1E!GO!DVA,
(SP)
(SP) ,@#$GDDAT
(SP)+ RO
64%
RO, a#$8DDAT
R1,3#REGADR
21

;SAVE

COMMAND

;INCLUDE IE!GO!DVA
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY IE.GO!DVA
;BRANCH IF GOOD
;BAD DATA
;FAILING REGISTER RH(CS1
;DURING ABOVE OPERATION ONLY

:SAVE BITS SET DURING OPERATION IN RHDS1

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

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY MOL!DPR!vVV
;BRANCH IF GOOD

R3,a#REGADR
63

JFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

RS5,a#$8DDAT

;BAD DATA

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES
023552
023556
023560
023562
023566
023570
023572
023576
023600

004037
002272
000000
004037
002274
003500
004037
002304
000001

041360

JSR

RO,a#F ILLRE

:MOV O INTO SAVED RHWC

041360

JSR

RO,a#FILLRE

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

041360

JSR
?HDST

RO,a#F JLLRE

;MOV 1 INTO SAVED RHDST
:32¥;D REGISTER TO CHANGE

SHUC

RHBA
WRFROM+<260, 2>

;SQ¥ED REGISTER TO CHANGE

:SAVED REGISTER TO CHANGE
:DATA

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

4434

4435
4436
4437
4438

JSR

023602
023606
023610

004037
004612
002354

042444

JSR
SAVERE
wC

RO, a#COMREG

s COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN °SAVERE'
;TEST DATA STARTING FROM 'RHWC®

LA N VTN NN N AW

104601

AN N AN N

004737

JNUMBER OF REGISTERS

A DTN A

023420
023424
023430

;STARTING ADDRESS OF WHERE

17.

CZR

004612
000021

SEQ 0101

LY LA U VT A LA LU VT

4406
4407
4408
4409
4410
4411
4412

SAVERE

023414
023416

000000

K
8
30A(1052)
27-JuL-78 13:06 PAGE 102
WRITE/READ HEADER AND DATA (0'S)
733

LA LA LA LA LA WA LA W LA LA LA VT

4383
4384
4385
4386
4387
4388
4389
4390
(391
4392
4393
4394
4395
4396
4397
4398
4399
4400
46
4402
4403
4404
4405

MACY11

LALA

C(ZRJICO, RPO4/S/6 FCTNL (TLRI
CZRJIC.PI
27-JuL-78 13:05

4439
4440

4461
4442
4443
4444
4445

023612
023614
023616

000021

023620
023622

104027
000207

MACY11 30A(1052)
133

8
PAGE 103
WRITE/REAL HEADER AND DATA (0'S)

27-JUL-78

L
13:06

17.

;17.

JRETURN TO 2% ON NO ERROR

023620
023624
1%:

ERROR

RTS

4452
4453
4454
4455

4456
4457
4458
4459
4460
4461
4462

4463

4464
4465
4466

4467
4468
4469
4470
4471
4472
4473
4474
4475
4676
4477
4478
4479
4480
4481
4482
4483
4484
4485
4486
4487
4488
4489
4490
4491
4492
4493
4494

REGISTERS TO BE COMPARED

JRETURN TO 1% ON ERROR

27
PC

4446

L4467
4448
4449
4450
4451

SEQ 0102

;WRITE HEADER AND DATA
;CAUSED

IMPROPER REGISTER

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

;*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE

s *NOTHING GOT CHANGED
023624
023624

023630
023632
023634
023636
023640

004037
003534
002470
000404
023642
023646

023642
023644

104030
000207

043474

2%:

JSR
REINTO

RO, a#COMPAR

WRFROM

ERROR

RTS

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

;TEST DATA STARTS FROM WRFROM

260.
3%
4%

3%:

THAT

;260. WORDS TO BE COMPARED
JRETURN TO 3% ON ERROR
JRETURN TO 4% ON NO ERROR

JWRITE 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

0461456
0461326

JSR

REINTO

PC,a#CLDISK

RO.,a#CLAREA

260.
-1

177777

;SET R1-RHCS1, R2-RHCS?2

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

;260. WORDS
JFILL WITH -1

:*NOW FILL COMMAND
023664
023670
023672
023673
023674
023676
023700
023702
023704

004037

043430

JSR
.BYTE
BYTE

0
0
0
-256.-4

RO, a#RUN

REINTO

0
ECI'FMT2?

014000
002450

REFOR

;SETUP TO RUN FOR DATA COMMAND

JCYLINDER O
;SECTOR O
;TRACK O
;WORD COUNT (DATA) = 256.
;BUS ADDRESS

;DO NOT INMIBIT 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(C
SAVERE
18.

RO,a#SAVER

;SAVE REGISTERS
JRHWC 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

LALALALALALALAWUALAWUILALALALALALA
LA LA LA LA LA LAV LA LA VLA LA LA LY LU VT U
D LA LU AN AN NN N NN AW

CZRJ1CO, RP04/S5/6 FCTNL CTLRI
CZRIIC.PN
27-JuL-78 13:05

6495

023724
023730

104401
000000

066720

4498
4499
4500
4501
4502
4503
4504
4505
4506
4507
4508
4509
4510
45N
4512
4513
4514
4515
4516
6517
4518
4519
4520
4521
4522
4523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537

023732

013777

004606

023740
023744
023750
023754
023756

013746
052716
012677
011100
011305

002450
000101

4496
4497

4538

4539
4540
4541
4542
4543
4544
4545
4546

4547
4548
4549
4550

023760
023762
023764
023766
023770
023772
023776
024002
024006
024010
024012
024016
024022
024024
024030
024034
024036
024040
024044
024050

156326

156324

010137
104021

012746
011637
022605
001405
010537
010337
104063

;CANNOT CONTINUE TESTING IF ANY OF

,CPHALT

MOV

H#RPLVEC ,3RPVEC ;SET RPO4 VECTOR ADDRESS

MOV

a#REFOR,~(SP)
#GO!IE, (SP)

MOV
MOV
MOV

104413

SEQ 0103

TYPE
HALT

BIS

(SP)+,@RHCS1
aR1,RO
aR3,RS

;GET READY TO MOVE (OMMAND
;GE1 READY TO SET °'GO' AND
;GO WITH
;SAVE RHCS1

DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

JWAIT FOR RDY BIT IN RH(CS1 REGISTER
JALLOW 9080 MICRO SECONDS

RDY
908.

839.

;STOP

JWAIT FOR RDY BIT TO SET
JWAIT FOR RHCS1 REGISTER

WAT
RHCS1

002300
000200

001614
001507
013746
052716
011637
022600
001405
010037

JRDY MUST SET BETWEEN

002450
004101
001124

MOV

a¥REFOR,~(SP)

MOV

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

001126
004600

MOV
MOV

RO, a#$BDDAT

;BAD DATA

010500
001124

BIS

(Mp
BEQ

67%:

001126
004600

ERROR

MOV
MOV

#1E!GO!DVA,
(SP)

(SP)+,R0O
67%

;INCLUDE

IE!GO!DVA

;DURING ABOVE OPERATION ONLY IE.GO!DVA
;BRANCH [F GOOD

R1,3#REGADR
JFAILING REGISTER RH(CS1
21
;DURING ABOVE OPERATION ONLY
#MOL !DPR!VV,=-(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1
(SP) ,a#$GDDAT
(SP)+,RS

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY MOL !DPR!VV

RS, a#$BDDAT

;BAD DATA

(MP
8EQ

69%

ERROR

R3,a#REGADR
63

MOV
MOV

; SAVE COMMAND

;BRANCH IF GOOD

;FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

;*(CHANGE SAVED REGISTERS TO EXPECTED VALUES
024052
024056
024060
024062
024066
024070
02407°2
024076
024100

004037
002272
000000
004037
002274
004544
004037
002304
000001

041360

JSR
SHHC

RO,a#F ILLRE

041360

JSR

RO,a#F ILLRE

JSR

RO,Q#F ILLRE

041360

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

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

RHBA
REINTO+<260.%2>

;SAVED REGISTER TO CHANGE
.DATA

?HDST

:g:¥ib REGISTER TO CHANGE

JMOV 1

INTO SAVED RHDST

;*COMPARE REGISTER BEFORE READ HEADER AND DATA
s*WITH REGISTERS AFTER (OMMAND
042444

024102
024106
024110

JSR
SAVERE

RO, a#COMREG

024112
024114
024116

024120
024122

JRETURN TO 6% ON NO ERROR

024124
104031

000207

;COMPARE SAVED REGISTERS WITH

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

5%:

ERROR
RTS

31
PC

JREAD HEADER AND DATA CAUSED
; IMPROPER REGISTER CHANGE

27-JUL-78 13:05

30A(1052)
27=-JUL-78 13:06 PAGE 104
WRITE/READ HEADER AND DATA (0'S)
r33

[SA RV, IV, RV, LV,)

(ZRJIC.P1

MACY11

(ZRJICO, RPO4L/S/6 FCTNL CTLRI

|
024146

104032

JSR
WRF ROM
REINTO

RO, a#(OMPAR

260.

;260. WORDS TO BE COMPARED

79
108

’$:

10%:

ERROR
RTS

;COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
JRETURN TO 7% ON ERROR
JRETURN TO 10% ON NO ERROR

;WRITE HEADER AND DATA

,FOLLOWED BY A READ HEADER
JAND DATA GAVE A READ ERROR
;ERROR MAY BE [N READ OR WRI'E

NN AN N AR NN AN

000207

6%:

026142
024144

024130
024132
026413
024136

043474

024140

004037
002470
003534
000404
024142
024146

024124
024124

CHECKED TO SEE

AN A

INTO BUFFER WILL BE

;*THE READ WAS GOOD

4568
4569
4570
4571
4572

AFTER COMMAND

LY A LAY U LY LT

4567

;*NOW READ

;THERE

CIR

4563

4564
4565
4566

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

SEQ 0104

LA LA LA LA

4560
4561
4562

CALALAWAULA LA LA

4551
4552
6553
4556
4555
6556
4557
4558
4559

30A(1052)
27-JUL-78
13:06 PAGE 105
WRITE/READ HEADER AND DATA (0'S)
133

(ZRJICO, RPO4/5/6 FCTNL CTLRI1
CZRJIC.PIN
27-JuUL-78 13:05

MACYT1

CZRJICO, RPO4/S5/6 FCTINL CTLRY
CZRJIC.P1
27-JuL-78 13:05
4573
4574
6575
4576
4577
4578
4579
4580
4581
4582
4583
4584
4585
4586
4587
4588
4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600
4601
4602
4603

024146
024150
024154
024162

00004

012706
012737
004737

001000
000034
0461456

8 9
MACY11 30A(1052)
27-JUL-78 13:06 PAGE 106
WRITE/READ HEADER AND DATA (0°'S)
133
TST34:
004604

SCOPE

MOV
MOV

JSR

#STACK,SP
#34 ,ANTSTNM

PC,a#CLDISK

SEQ 0105

JRESET STACK
;SAVE TEST NUMBER

JSET R1-RHCST, R2-RH(S2

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA
024166
0264172
024174
024176

004037
002470

JSR

041326

WRF ROM

RO,a#CLAREA

256.
0

000000

;CLEAR 256. WORDS, FROM WRFROM
;STARTING FROM WRFROM

;256. WORDS
SFILL WITH O

;*NOW THE READ DATA (OMMAND WILL BE FILLED
043430

024209
024204
024206
024207
0264210
024212
024214
024216
024220

.BYTE

JSR
0
0
0

RO, 3#RUN

-256.

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER O
;SECTOR O
;TRACK O

:WORD COUNT = 256.

REINTO

0
ECI'FMT22
READAT

;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
024226
024230
024232

041624

JSR
RHW(C
SAVERE
18.

RO,a#SAVER

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

024234
024240
024244

041536
066720

JSR

PC,a#CHECKT

;CHECK DVA,RDY,MOL.DPR,DRY,VV = 1

024246

013777

004606

024254
024260
024264
024270
024272

013746
052716

002446
000101
156010

024274

024312
024316
024322
024324
024326
024332

012677
011100
011305

HALT

156012

Mov

MOV

BIS
MOV
MOV
MOV

,CPHALT

002446
0041017
001124

001126
004600

908.
839.

;STOP

TESTING IF ANY OF

MREADAT ,-(SP)

;GET READY TO MOVE COMMAND

aR1,RO
aR3,R5

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

#GO!IE, (SP)
(SP)+,3RH(CS1

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

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

MOV
BIS
MOV
cMP
8EQ

@#READAT ,-(SP)
#1E!GO!DVA,
(SP)
(SP) ,a#$GDDAT
(SP)+,RO
64%

MOV

R1,3#REGADR

MOV

;CANNOT CONTINUE

A#RP4LVEC ,RPVEC ;SET RPO4 VECTOR ADDRESS

WAT
RHCS1
RDY

104413

002300
000200
001614
001507
013746
052716
011637
022600
001405
010037
010137

TYPE

RO, a#$BDDAT

;ALLOW 9080 MICRO SECONDS
JRDY MUST SET BETWEEN

;SAVE COMMAND
;INCLUDE IE!GO!DVA
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY I[E.GO!DVA
;BRANCH IF GOOD
;BAD DATA

;FAILING REGISTER RH(CS1

CZRJICO, RPO4/S5/6 FCTNL CTLRY
27-JUL~78 13:05
CZRJIC.P1
4629
4630
4631
4632
4633
4634

4635

4636
4637
4638
4639
4640
4641
4642
4643
4644

4645

4646

Leu7
4648

4649
4650
4651
4652
4653
4654

4655

4656
4657
4658
4659
4660
4661
4662
4663
4664
4665
4666

4667

4668
4669
4670
4671
4672
4673
4674
4675
4676
4677
4678

024336
024340
024344
024350
026352
024354
024360
024364

104021

012746
011637
022605
001405
010537
010337
104063

010590
001124

MACY11 30A(1052)

27-JUL-78

T34

READ DATA

:
648

MOV

ERROR

MOV

(MP

BEQ
MOV
MoV

001126
004600

ERROR

c
13:06

(0°'S)

9
PAGE 107

SEQ 0106

;DURING ABOVE OPERATION ONLY

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

66%
RS ,a#$BDDAT
R3,a#REGADR

;BRANCH IF GOOD

;SAVE BITS SET DURING OPERATION IN RHDS1

#MMOL 'DPR!VV,-(SP)
(SP)+,R5

;DURING ABOVE OPERATION ONLY MOL.DPR'vVV
;BAD DATA

JFAILING REGISTER RHDS1

;DURING ABOVE OPERATION ONLY

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES
024366
024372
024374
024376
024402
026404
024406
024412
024414

004037

002272
000000
004037
002274
004534
004037
002304
000001

0461360

JSR

RO,a#F ILLRE

;MOV 0 INTO SAVED RHW(

0461360

JSR

RO,a#F ILLRE

;MOV REINTO+<256.%2> iNTO SAVED RHBA

SHUC

RHBA

REINTO+<256. %2>

JSR

041360

?HDST

RO,a#F ILLRE

:g:¥ED REGISTER TO CHANGE

;SAVED REGISTER TO CHANGE
;DATA

INTO SAVED RHDST

JMOV 1

:SA¥§D REGISTER TO CHANGE
.DA

;*NOW COMPARE REGISTERS BEFORE READ DATA WITH
;*AFTER COMMAND

024416
024422
024424
024426
024430
024432

004037
004612
002354
000022
024434
024440

024434
024436

104033
000207

JSR

042444

SAVERE
w(
18.

RO,a#COMREG

JRETURN TO 18 ON ERROR

JRETURN TO 2% ON NO ERROR

2%
1%:

ERROR
RTS

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

;READ DATA CAUSED IMPROPER REGISTER
; CHANGE

:GO0OD DATA GIVES WHAT SHOULD BE THERE

JRECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND
:*Ngg 2538 INTO BUFFER WILL BE CHECKED TO SEE THAT READ
S *W

024440
024440
024444
024446
024450
024452
024454

004037
002470
003534
000400
024456
024462

024456
024460

000207

024462

104034

043474

2%:

JSR

WRFROM
REINTO

RO, a#COMPAR

256.
3%

A ¥

ERROR

RTS

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

:256. WORDS TO BE COMPARED
JRETURN TO 3$ ON ERROR

4%
3%:

;COMPARE TWO BLOCKS OF MEMORY

JRETURN TO 4$ ON NO ERROR

;READ DATA COMMAND
JREAD

INCORRECTLY

(ZRJICO, RPO4/5/6 FCINL CTLRI
CZRJIC.P1
27-JUL-78 13:05
4679
4680
4681
4682
4683
4684
4685
4686
4687
4688
4689
4690
46N
4692
4693
4694
4695
4696
4697
4698
4699
4700

4701
4702
4703

4704
4705
4706
4707
4708

4709
4710
4711
4712
4713
4714
4715

4716
4717

4718
4719
4720
4721
4722
4723
4724
4725
4726
4727
4728
4729
4730
4731
4732
4733
4734

024462
024464
024470
024476

000004
012706
012737
004737

001000
000035
041456

MACY 1]

D
27-JuUL-78 13:06
3?A (1052)
READ DATA (0'S)
34
TST35:

004604

SCOPE

MOV
MOV

JSR

PAGE 108

#STACK, SP
#35,a#TSTNM

PC.a#CLDISK

SEQ 0107

JRESET STACK
;SAVE TEST NUMBER

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

;*NOW FILL WRITE FROM RUFFER -200 OF 1'S AND 56 OF 125252
024502
026506
024510
024512
024514
024520
024522
024524

004037

JSR

041326

WRF ROM

RO,a#CLAREA

200.

;STARTING FROM WRFROM

2200. WORDS

-1

JSR
RO, a#CLAREA
WRFROM+<200. *2>

041326

;CLEAR 200. WORDS, FROM WRFROM

56.
125252

JFILL WITH <1

;CLEAR 56. WORDS, FROM WRFROM+<200.*2>
;STARTING FROM WRFROM+<200.*2>
;56. WORDS
JFILL 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
024526
024532
024534
024536
024540
024544
024546
024550

JSR

041326

REINTO

RO,a#CLAREA

200.
-1

JSR
RO,a#CLAREA
REINT0+<200. %2>

041326

56.
125252

125252

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

2200. WORDS
SFILL WITH =1

;CLEAR 56. WORDS, FROM REINTO+<200.*2>
;STARTING FROM REINTO+<200.*2>
.56. WORDS
JFILL 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

043430
.BYTE
.BYTE

JSR
0
0
0
-200.

RO, 34RUN

WRFROM

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER O
;SECTOR O
;TRACK O
JWORD COUNT = 200.
;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT22
WRIDAT

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

;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA
;SAVE REGISTERS
JRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;JNUMBER OF REGISTERS

024574
024600
024602
024604

004037
002272
004612

041624

JSR
RHWC
SAVERE
18.

RO, a#SAVER

024606
024612
024616

004737
104401

041536
066720

JSR

PC,a#CHECKT

024620

013777

004606

MOV

a#RPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

024626

013746

002442

MOV

d#WRIDAT ,-(SP)

000022

000000

TYPE
HALT
155440

LCPHALT

;CHECK DVA,RDY,MOL ,DPR,DRY,V v =1

;CANNOT CONTINUE
;STOP

TESTING IF ANY OF

;GET READY TO MOVE COMMAND

CZRJICO, RPOL/S5/6 FCTNL CTLR]
CZRJIC.PIY
27-JUL-78 13:05
4735
4736
w737
4738
4739
4740
4741
4742
4743
4744
4745
4746
6747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764

4765

4766
4767
4768
4769
4770
4771
4772

4773
4774
4775
4776
4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790

024632
024636
024642
0246644

052716
012677
011100
011305

MACY11

30A(105
T35

000101
155436

27=JUL-78

E
13:06

9
PAGE 109

SEQ 0108

WRITE/READ DATA (1'S & 125252)
BIS

#GO!IE, (SP)

:GET READY TO SET

MOV
MOV

aR1,R0
@R3 RS

sSAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

MOV

(SP) + ,QRH(CS1

;GO WITH

‘GO’

AND

;*ONE REVOLUTION = 16670 MICRO SEC, ONE SECTOR=760 MICRO SEC
024646
024650
0264652
024654
024656
024660
024664
024670
024674
026676
024700
024704
024710
024712
024716
024722
024724
024726
024732
024736

104413

002300
000200
007614
001507
013746
052716
011637
022600
001405
010037
010137

104021
012746
011637
022605
001405
010537
010337
104063

WAT

;WAIT FOR RDY BIT

TO SET

RDY

JWAIT FOR RDY BIT

IN RHCS1

RHCS1

908.
839.

002442
004101
001124

MOV
BIS
MOV
CMP

001126
004600
010500
001124

64%:

001126
004600

JWAIT FOR RHCS1

A#WRIDAT ,~(SP)
#1E!GO.DVA,(SP)
(SP) ,a#$GDDAT
(SP)+,RO

JALLOW 9080 MICRO SECONDS
sRDY MUST SET BETWEEN

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

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

CMP
BEQ
MOV

(SP) + ,R5
66%
RS .a#$BDDAT

;DURING ABOVE OPERATION ONLY MOL .DPR'vVV
;BRANCH [F GOOD
;BAD DATA

;DURING ABOVE OPERATION ONLY

MOV
MoV

MOV

ERROR

;BRANCH IF GOOD
.BAD DATA
JFAILING REGISTER RH(CS1
;DURING ABOVE OPERATION ONLY

IE!GO.DVA

BEQ
MOV
MOV
ERROR

MOL 'DPR!VV,-(SP)
(SP) ,a#$GDDAT
;SAVE

R3.,a#REGADR

JSAVE BITS SET DURING OPERATION IN RHDS1
FOR PRINTOUT

JFAILING REGISTER RHDS1

;*NOW (HANGE SAVED REGISTERS TO EXPECTED VALUE

024740
024744
024746
024750
024754
024756
024760
024764
024766

004037
002272
000000
004037
002274
003310
004037
002304
000001

041360

JSR

SHUC

041360

JSR

RHBA

RO,a4F ILLRE
RO,a4F ILLRE

WRFROM+<200. *2>
JSR
RO,a#F ILLRE

041360

?HDST

MOV 0 INTO SAVED RHWC
:§Q¥§D REGISTER

TO CHANGE

MOV WRFROM+<200.%2>
;SAVED REGISTER

;MOV 1

INTO SAVED RHBA

TO CHANGE

;DATA
INTO SAVED RHDST

;g:¥ED REGISTER

TO CHANGE

;*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS
024770
024774
024776
025000
025002
025004

004037
004612
002354
000022
025006
025012

025006
025010

104035
000207

042444

s *AFTER

COMMAND

JSR

RO, a#COMREG

SAVERE
W(

18.
1%
2%

1%:

ERROR
RTS

s COMPARE SAVED REGISTERS WITH

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

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

JWRITE DATA COMMAND CAUSED
; IMPROPER REGISTER

CHANGE

:8200 DATA GIVES WHAT SHOULD
JRECEIVED DATA GIVES WHAT WAS

;THERE

AFTER COMMAND

(791
4792
(793
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804

025012
025012
025016
025020
025022
025024
025026

004037
003534
002470
000400
025030
025034

025030
025032

104036
000207

T35

27-JuL-78 13:06 PAGE 110
WRITE/READ DATA (1°'S & 125252)

043474

2%:

JSR

REINTO
WRF ROM

RO,a#(OMPAR

ERROR

RTS

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

2256. WORDS TO BE COMPARED
;RETURN TO 38 ON ERROR
JRETURN TO 4$ ON NO ERROR

256.
b3
4 3
3%:

;COMPARE TWO BLOCKS OF MEMORY

JWRITE DATA COMMAND (HANGED
;WRITE FROM BUFFER

;*NOW A READ DATA COMMAND WILL BE GIVEN

;*FILL READ INTO BUFFER WITH 200 ZEROS AND 56 OF 377
004737
004037

4810
4811
4812
4813
4814
4815

003534
000310
000000
004037
004354
000070
000377

4816

4817
4818
4819
4820

0461456
0461326

JSR

REINTO

200.
0

JSR

041326

PC,a#CLDISK

RO,a#CLAREA

;SET R1-RHCS1, R2-RH(CS2

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

2200. WORDS
JFILL WITH O

REINT0+<200. *2>

;CLEAR 56. WORDS, FROM REINTO+<200.*2>
;STARTING FROM REINTO+<20C.*2>

377

JFILL WITH 377

56.

;56. WORDS

;*FILL WRITE FROM BUFFER WITH 200 ONES AND 56 OF 377

4821

004037
002470
000310

4822
4823

4824
4825

4845
4846

30A(1052)

;*NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO (HANGE

4805
4806
4807
4808
4809

4826
4827
4828
4829
4830
4831
4832
4833
4834
4835
4836
4837
4838
4,839
4840
4841
4,842
4843
4844

MACY11

177777

004037
003310
000070
000377

JSR

041326

WRFROM

RO,a#CLAREA

;STARTING FROM WRFROM

200.

;200. WORDS

RO, a#CLAREA
JSR
WRFROM+<200.*2>

:CLEAR 56. WORDS, FROM WRFROM+<200.*2>
:STARTING FROM WRFROM+<200.*2>

-1

041326

:CLEAR 200. WORDS, FROM WRFROM

56.

JFILL WITH =1
:56. WORDS

JFILL WITH 377

377
;*NOW FILL COMMAND

025126
025130

004037
000000
000
000
177470
003534
000000
014000
002446

JSR

043430
.BYTE
.BYTE

0
0
0

RO, a#RUN

-200.

JSETUP TO RUN FOR DATA (OMMAND

;CYLINDER O
;SECTOR O
:TRACK 0O

JWORD COUNT = 200.

REINTO

0
ECI.FMT22
READAT

;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
JRHW(C IS THE FIRST REGISTER SAVED

SEQ 0109

C(ZRJICO, RPO4/S5/6 FCTINL CTLRI
CZRJIC.P1T
27-JuUL-78 13:05

(ZRJICO, RPO4/5/6 FCINL CTLRI

CZRJIC.PN

6847
6848
4849

4850

4851
4852
4853
4854
4855
4856
4857
4858
4859
4860
4861
4862
4863
4864
4865
4866
4867
4868
4869
4870
4871
4872
4873
4874
4875
4876
4877

27-JuL~78 13:05
004612
000022

025144
025150
025154

004737

025156

013777

004606

025164
025170
025174
025200
025202

013746
052716
012677
011100
011305

002446
000101
155100

025204
025206
025210
025212
025214
025216
025222
025226

104413
002300
000200
001614
001507
013746
052716
011637
022600
001405
010037
010137

025232
025234
025236
025242
025246

025250
025254
025260
025262
025264
025270
025274

000000

104021

012746
011637
022605
001405
010537
010337
104063

T35

27-JuL-78

13:06

PAGE 111

JSR

041536
066720

TYPE

HALT

MOV

155102

MOV

8IS
MOV

MOV
MOV

;STARTING ADDRESS OF WHERE
JNUMBER OF REGISTERS

PC,a#CHECKT
LCPHALT

908.
839,

MOV

010500
001124
001126
004600

67%:

;CANNOT CONTINUE
:STOP

TESTING IF ANY OF
-

a#READAT ,-(SP)

#GO!1E, (SP)
(SP) + ,a8RH(CST
aR1.R0
aR3.RS

;GET READY

TO MOVE

;SAVE RHCS!1
:SAVE RHDS1

DURING ABOVE OPERATION
DURING ABOVE OPERATION

;GET READY TO SET
;60 WITH

(OMMAND

"GO’ AND

;WAIT FOR RDY BIT TO SET
:WAIT FOR RHCS1 REGISTER
JWAIT FOR RDY BIT IN RHCS1
S#READAT ,-(SP)

JALLOW 9080 MICRO SECONDS
JRDY MUST SET BETWEEN
;SAVE

COMMAND

BIS

#1E'GO.DVA,(SP)

CMP
BEQ
MOV
MOV
ERROR
MOV

(SP)+ RO
:DURING ABOVE OPERATION ONLY IE.GO.DVA
67%
:BRANCH IF GOOD
RO, a#$8BDDAT
;BAD DATA
R1,a#REGADR
JFAILING REGISTER RH(CS1
21
;DURING ABOVE OPERATION ONLY
AMOL 'DPR.VV,-(SP)
;SAVE BITS SET DURING OPERATION IN RHDSI1

CMP
BEQ

(SP)+ RS
69%

MOV

001126
004600

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

S#RP4LVEC ,a3RPVEC ;SET RPO4& VECTOR ADDRESS

WAT
RH(S1
RDY

002446
004101
001124

SEQ 0110

WRITE/READ DATA (1'S & 125252)
SAVERE
18.

025140
025742

104401

MACY11 30A(1052)

MOV

MoV
MoV
ERROR

(SP) ,a#$GDDAT

;INCLUDE

IE'!'GO!'DVA

;SAVE FOR PRINTOUT

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

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

.BAD DATA
JFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

:DURING ABOVE OPERATION ONLY MOL .DPR.VV
;BRANCH IF GOOD

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
025276
025302
025304
025306
025312
025314
025316
025322
025324

004037
002272
000000
004037
002274
004354
0C4037
002304
000001

041360

041360
041360

JSR

RO,a#F ILLRE

JSR

RO,a#FILLRE

JSR

RO.a#F JLLRE

gch

;MOV O INTO SAVED RHW(C

;g:¥ib REGISTER TO CHANGE

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

RHBA
REINTO+<200.*2>

;SAVED REGISTER TO CHANGE
:DATA

?HDST

;SA¥ED REGISTER TO CHANGE

:MOV 1

INTO SAVED RHDST

.DA

; *COMPARE REGISTERS BEFORE READ DATA COMMAND
;*WITH REGISTERS AFTER COMMAND

4902

025326
025332
025334
025336
025340

004037
004612
002354
000022
025344

042444

JSR
SAVERE
w(
18.
5%

RO,a#COMREG

;COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED [N °'SAVERE'
JTEST DATA STARTING FROM 'RHW(C'
;18. REGISTERS TO BE COMPARED
;RETURN TO 5% ON ERROR

004037
002470
003534
000400
025366
025372

025366
025370

104034
000207

025372

043474

6%:

JSR
wRFROM
REINTC

RO.a#(OMPAR

;JTEST DATA STARTS FROM REINTO

256.

;256. WORDS TO BE COMPARED

10%

JRETURN TO 10% ON NO ERROR

7%:
10%:

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

ERROR

RTS

JRETURN TO 78 ON ERROR

s INCORRECT DATA AFTER

JWRITE DATA FOLLOWED BY A

JREAD DATA

~NN
n>O

ALACRALALALRALRALAVAVALARIVALALVALNALA
A NALA WD

025350
025350
025354
025356
025360
025362
025364

;*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ

A O MLIRLRLA

;JAFTER COMMAND

OEmi

;GOOD DATA GIVFS WHAT SHOU.D BE THERE
JRECEIVED DATA GIVES WHAT WAS THERE

JREAD DATA CAUSED IMPROPER

JREGISTER CHANGE

miPN

RTS

000207

ERROR

5%:

104033

4906
4907
4908
4909
4910
N
4912
4913
4914
4915
4916
917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927

025344
025346

4904

4905

JRETURN TO 6% ON NO ERROR

025350

SEQ 0111

025342

H
9
30A(1052)
27=-JUL-78 13:06 PAGE 112
WRITE/READ DATA (1°'S € 125252)
T35

4903

MACY11

CZRJICO, RPO4L/S/6 FCINL CTLRI
CZRJIIC.FIT
27-JuL~-78 12:05

4933
4934
4935

4936
4937
4938
4939
4940
4941
4942
4943
4944

4945

4946
4947
4948
4949
4950
4951
4952
4953
4954
4955
4956
4957

025372
025374
025400
025406

000004
012706
012737

004737

001000
000036
041456

TST36:

SEQ 0112

SCOPE
MOV

#STACK,SP

RESLT

JSR

PC,a#(LDISK

;SET R1-RH(CS1, RZ-RH(CS2

MOV

004604

113

#36,34TSTNM

STA(K

sSAVE TEST NUMBER

;*NOW FILL WRITE FROM BUFFER - 256 OF 125252
025412
025416
025420
025422

004037
002470
000400

041326

JSR

WRFROM

RO,a#CLAREA

256.

125252

;CLEAR 25£. WORDS,

FROM WRFROM

STARTING FROM WRFROM

2256. WORDS

125252

JFIL. WITH 125252

;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS
J*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPAR]SONS

;*CAN BE MADE TO DETERM'NE THAT WRITE DID NOT CHANGE BUFFER

025424
025430
025432
025434

004037
003534
000400

041326

JSR

REINTO

RO,a#CLAREA

256.

125252

025452

025454

025456

004037
000000
000
000

043430
.BYTE
.BYTE

177400

002470
000000
010000
002442

JSR
0
0
0
-256.

FROM REINTO

;STARTING FROM REINTO

:256. WORDS

125252

JFILL WITH 125252

;*NOW WRITE

025436
025442
025444
025445
025446
025450

;CLEAR 256. WORDS,

DATA COMMAND WILL BE LOADED

RO, a#RUN

;sSETUP TO RUN FOR DATA (OMMAND
JCYLINDER O
;SECTOR 0
;TRACK 0
JWORD COUNT = 256.

WRFROM

;BUS ADDRESS

FMTZ2?

216 BITS PER WORD FORMAT

;DO NOT INHIBIT BUS ADDRESS

WRIDAT

;GET READY

INCREMENT

TO DO A WRIDAT

;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA
025460
025464
025466
025470

004037
002272
004612
000022

041624

025472
025476
025502

004737
104401

041536
066720

025504

013777

004606

025512
025516
025522
025526
025530

013746
052716
012677
011100
011305

002442
000101
154552

000000

JSR
RHWC
SAVERE

RO,a#SAVER

JSR

PC,a#CHECKT
LCPHALT

s CANNOT
:STOP

MOV

@#RP4VEC ,3RPVEC

;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV

a#WRIDAT ,-(SP)
#GO!IE, (SP)
(SP)+,aRHCS1

;GET READY TO MOVE (OMMAND
;GET READY TO SET 'GO' AND
;GO WITH
sSAVE RHCS1 DURING ABOVE OPERATION

;STARTING ADDRESS OF

18.

TYPE
HALT

154554

MOV
MOV

;SAVE REGISTERS
sRHWC IS THE FIRST REGISTER SAVED

sNUMBER OF REGISTERS

aR1,RO
aR3,R5

WHERE

;CHECK DVA,RDY,MOL ,DPR,DRY,VV
CONTINUE

;SAVE RHDS1

TESTING

DURING ABOVE OPERATION

;*ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=760 MICROSEC
4983

025532
025534

1046413

002300

WAT
RHCS1

ANY OF

JWAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER

CZR
~

p o

30A(1052)
27-JUL~-78
13:06 PAGE
136
WRITE/READ DATA (125252)

\ALAVALALALMALALMAUALALAMALA L ALALMUALALAVALA LA ALALALALALALALAWNLALNAUALALALALALALAUMAWNWNA
AL
LALALR N LALWLANLA

4928
4929
4930
4931
4932

MACY11

(@)

CZRJICO, RPO4/5/6 FCINL CTLRI
CZRJIC.PIT
27-JUL-78 13:05

4995
4996
4997
4998
4999

5000
5001
5002
5003
5004
5005
5006
5007
5008
5009
5010
5011
5012
5013

5014
5015
5016
5017
5018
5019
5020
5021
5022
5023
5024
5025
5026
5027
5028
5029
5030
5031
5032
5033
5034
5035
5036
5037
5038
5039

025610

025612
025616
025622

000200
001614
001507
013746
052716
011637
022600
001405
010037
010137
104021

012746
011637
022605
001405
010537
010337
104063

RDY

839.

001126
004600
010500
001124

64%:

FOR RDY BIT

MOV
MOV

AMOL !DPR!VV,=(SP)
(SP) ,a#$GDDAT
;SAVE

ERROR

JRDY MUST SET BETWEEN

S#WRIDAT ,-(SP)
;SAVE COMMAND
#I1E!GO!DVA,
(SP) ;INCLUDE IE!GO!DVA
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT

CMP
BEQ
MOV
MOV
ERROR

IN RHCS1

JALLOW 9080 MICRC SECONDS

MOV
BIS
MOV

CMP
BEQ
MOV
MOV

001126
004600

(SP)+,R0
64%
RO, a#$8DDAT
R1,a4REGADR
21

;DURING ABOVE OPERATION ONLY IE.GO!DVA
;BRANCH [F GOOD
;BAD DATA
sFAILING REGISTER RH(S1

(SP) +,R5
66%
RS, a4$8DDAT
R3,a#REGADR

;DURING ABOVE OPERATION ONLY MOL.DPR VvV
;BRANCH IF GOOD
;BAD DATA
;FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

;DURING ABOVE OPERATION ONLY

:SAVE BITS SET DURING OPERATION IN RHDS1
FOR PRINTOUT

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
025624
025630

025632
025634
025640
025642
025644
025650
025652

004037
002272
000000
004037
002274
003470
004037
002204
000001

041360

JSR

RO, a#F ILLRE

;MOV O INTO SAVED RHWC

041360

JSR

RO, a#F ILLRE

;MOV_WRFROM+<256.%2> INTO SAVED RHBA

041360

WRFROM+<256. %2>
JSR
RO,a#F ILLRE

SHUC

RHBA

?HDST

:g:¥ED REGISTER

;SAVED REGISTER

;JMOV 1

TO CHANGE

:DATA
INTO SAVED RHDST

:g:¥iD REGISTER

TO CHANGE

;*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS
:*AFTER COMMAND
025654
025660
025662
025664
025666

004037
004612

042444

JSR
SAVERE

002354

025670

025672
025676

025672
025674

000207

000022

RO,a#COMREG

104035

1%:

ERROR
RTS

; COMPARE SAVED REGISTERS WITH
.GOOD DATA SAVED IN °'SAVERE'
;TEST

18.
1%

DATA STARTING FROM

‘RHWC'

;18. REGISTERS TO BE COMPARED
JRETURN TO 1% ON ERROR

JRETURN TO 2% ON NO ERROR
35

;WRITE DATA COMMAND CAUSED

; IMPROPER REGISTER

CHANGE

:ggOD DATA GIVES WHAT SHOULD
JRECEIVED DATA GIVES WHAT WAS

s THERE AFTER COMMAND
;*NOW WRITE

025676
025676
025702
025704
025706
025710

004037
003534
002470
000400
025714

0463474

2%:

JSR

REINTO
WRFROM

256.
3%

FROM BUFFER WILL

RO, a#COMPAR

CZFk

»n

SEQ 0113

SWAIT

908.

002442
004101
001124

114

LA LALARALALAWUAI
A AR LA/
AR ALRALAL AL LAVALALALALALRLALA

4994

025536
025540
025542
025544
025550
025554
025560
025562
025564
025570
025574
025576
025602
025606

CHECKED FOR NO CHANGE

;COMPARE TWO BLOCKS OF MEMORY

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

2256. WORDS TO BE COMPARED
JRETURN TO 3% ON ERROR

AAANUALVALAL LA AL RLRLALALALALALAIARLALALRVALAIL AL LALLM ALRAVRLAR

4984
4985
4986
4987
4988
49589
4990
4991
4992
4993

27-JuL-78 13:05

30A(1052)
27-JUL-78
13:06 PAGE
136
WRITE/READ DATA (125252)

CZRJIC.P11

MACY11

(ZRJICO, RPO&L/5/6 FCTNL CTLRI
R

(ZRJI1CO, RPO4/S/6 FCINL CTLRI]
CZRJIC.P1N
27-JuL-78 13:05
5040
5041
5042
5043
5044
5045
5046
5047
5048
5049
5050
5051
5052
5053
5054
5055

025712

025720

025714

104036
000207

025716

MACY11 30A(1052)
136

27=-JuL-78

13:06

PAGE 115

WRITE/READ DATA (125252)

JRETURN TO 4% ON NO ERROR

48
3%:

ERROR
RTS

SEQ 0114

36
PC

JWRITE DATA COMMAND (HANGED
JWRITE 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
000400
000000

L%:

041456
041326

JSR
JSR

REINTO

PC,a#CLD]ISK
RO,a#CLAREA

256.
0

;SET R1-RH(CS1, R2-RH(CS?
;CLEAR 256. WORDS, FROM REINTO
;STARTING FROM REINTO

:256. WORDS
JFILL WITH O

s«FILL WRITE FROM BUFFER WITH 256 OF 125252
025736
025742
025744
025746

004037
002470
000400

JSR

041326

WRFROM

RO,a#CLAREA

256.
125252

125252

;CLEAR 256. WORDS, FROM WRFROM
;STARTING FROM WRFROM

:256. WORDS
SFILL WITH 125252

;*NOW FILL COMMAND
025750
025754
025756
025757
025760
025762
025764
025766
025770

004037
000000
000
000

043430
.BYTE
.BYTE

177400

003534
000000
014000

JSR
0
0
0

RO, a#RUN

-256.

JWORD COUNT = 256.

REINTO

0
ECI.FMT2?2

READAT

002446

;SETUP TO RUN FOR DATA COMMAND
:CYLINDER O
;SECTOR O
;TRACK O
.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
025772
025776
026000
026002

004037
002272
004612
000022

041624

026004
026010
026014

004737
104401

041536
066720

026016

013777

004606

026024
026030
026034
026040
026042

013746
052716
012677
011100
011305

0024456
000101
154240

026044
026046
026050

104413
002300
000200

000000

JSR
RHW(C

RO,a#SAVER

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

JSR

PC,a#CHECKT

:CHECK DVA,RDY.,.MOL.DPR.,DRY,VV - 1

SAVERE
18.
TYPE

HALT

154242

LCPHALT

;CANNOT CONTINUE TESTING IF ANY OF
;STOP

MOV

AMRP4LVEC,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV

®¥READAT ,-(SP)

BIS
MOV
MOV
Mov
WAT
RHCS1
RDY

#GO!IE, (SP)
(SP) +,aRH(CS1
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
JWAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
JWAIT FOR RDY BIT IN RHCS1 REGISTER

CZR
CZR

oomwombwmdoggwg
o

)
v
)
et

012746
011637
022605
001405
010537
010337

) D

) cod i
md

104021

104063

b b D

)
D
d
)
— e

N =t ed d md

(W10, IV RV, LV, RV, LV, LV, RV, IV, [V RV, 1V, IV, IV, |

5105

001614
001507
013746
052716
011637
022600
001405
010037
010137

3: 05

L 9
MACY11 3?A(1052)
27-JUL-78
13:06 PAGE 116
WRITE/READ DATA (125252)
36
908.
839.

SEQ@ 0115

JALLOW 9080 MICRO SECONDS
JRDY 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

RO,a#$BDDAT

010500
001124

CMP
BEQ

MOV
67%:

ERROR
MOV
MOV
CMP

BEQ
MOov
MOV
ERROR

001126
004600

(SP)+ RO
67%

;DURING ABOVE OPERATION ONLY IE.GO.DVA
;BRANCH IF GOOD

R1.,3#REGADR

JFAILING REGISTER RHCS1

;BAD DATA

21
;DURING ABOVE OPERATION ONLY
AMOL '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%
RS ,a#$BDDAT
R3,a#REGADR
63

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

:*CHANGE SAVED REGISTERS TO EXPECTED VALUES
026136
026142
026144
026146
026152
026154
026156
026162
026164

004037
002272
000000
004037
002274
004534
004037
002304
000001

JSR

RO,a#F ILLRE

JMOV O INTO SAVED RHWC

041360

JSR

RO.a#F ILLRE

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

041360

REINTO+<256 =2>
JSR
RO, 3#FILLRE

041360

SHNC

RHBA

?HDST

:S:¥ED REGISTER TO CHANGE

;SAVED REGISTER TO CHANGE

;MOV 1

;DATA
INTO SAVED RHDST

;gA¥ED REGISTER TO CHANGE
;DA

:*COMPARE RECISTERS BEFORE READ DATA COMMAND
J*WITH REGISTERS AFTER COMMAND
026166
026172
026174
026176
026200
026202

004037
004612
002354
000022
026204
026210

026204
026206

104033
000207

042444

JSR
SAVERE

RO, a#COMREG

wW(

;TEST DATA STARTING FROM °'RHWC'

18.
5%
6%

5%:

ERROR
RTS

; COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN 'SAVERE'
;18. REGISTERS TO BE COMPARED
;RETURN TO 5% ON ERROR
JRETURN TO 6% ON NO ERROR

;READ DATA CAUSED IMPROPER
JREGISTER 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
026210
026210
026214
026216
026220
026222
026224

004037
002470

043474

6%:

JSR

003534

WRFROM
REINTO

026232

7%
108

000400
026226

256.

RO,a#COMPAR

;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 10$ ON NO ERROR

VL VL RV, TV, RV, VL RV SV, SV, TV RV RV, RV, RV SV RV, RV LV SV, RV, SV RV, TV, RV LV RV RV, IV, L9, |

026052
026054
026056

TL R1

IV TV IV LV TV TV SV TV RV TV RO AL RV SV RV T RV S TV TV RV, R T

5097

Y
)

CZRJIICO, RPO4/S/6 FCTNL
CZRJIC.PIT
27-JUL-78

5156

026226
026230
026232

104034
000207

7%:
10%:

27-JUL-78

13:06_

PAGE 117

WRITE/READ DATA (125252)
ERROR

RTS

;INCORRECT DATA AFTER

JWRITE DATA FOLLOWED BY A
JREAD DATA

SEQ 0116

AN A NN N AT AT A BTN

5152
5153
5154
5155

MACYTT 3?§é1052)

LALALALALALALALALA LA LA LA LA LA LA U LA VLA LA T LA LA DT LA WD LA LA LA DT LN UL VN VAU A

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

C(IRJICO, RPOL/5/6 FCTNL CTLRI
CZRJIC.P1I
27-JuL-78 13:05

5164

9165
5166
5167
5168
5169
5170
5171
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
5197
5198
5199
5200
5201
5202
5203
5204
5205
5206
5207
5208
5209

5210

5211
5212

026232
026234
026240
026246

000004
012706

012737
004737

001000
000037
041456

T1S137:

SCOPE
MOV

#STACK,SP

JSR

PC.,a#CLDISK

MOV

004604

#37 ,aNTSTNM

SEa 0117

JRESET STA(CK

sSAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(SZ2

;J*NOW FILL WRITE FROM BUFFER-200 OF 52525 AND 56 OF 377
026252
026256
026260
026262
026264
026270
026272
026274

004037
002470
000310
052525
004037
003310
000070
000377

JSR

041326

WRF ROM

RO,a#CLAREA

200.

;STARTING FROM WRFROM

2200. WORDS

72525

JSR
RO,a#CLAREA
WRFROM+<200. *2>
56.
377

041326

;CLEAR 200. WORDS, FROM WRFROM
JFILL WITH 52525

;CLEAR 56. WORDS, FROM WRFROM+<200.+*2>
;STARTING FROM WRFROM+<200.+2>
;56. WORDS
SFILL WITH 377

;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS
J*WRITE FROM BUFFER SO THAT AFTER A WRITE (OMPARISONS

;*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
REINTO+<200. %2>
56.
377

041326

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

;200.

WORDS

JFILL WITH 52525
;CLEAR 56. WORDS, FROM REINTO0+<200.
%2>
:STARTING FROM REINTO+<200.+2>
:56. WORDS
JFILL 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

0463430
.BYTE
.BYTE

JSR
0
0
0

RO, a#RUN

-200.

;SETUP TO RUN FOR DATA COMMAND
JCYLINDER O
JSECTOR O
;TRACK O

;WORD COUNT = 200.

WRFROM

;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

JSR
RHWC
SAVERE
18.

RO,a#SAVER

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

026356
026362
026366

004737

041536
066720

JSR

PC.,a#(CHECKT

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

026370

013777

004606

MOV

ANRPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

026376
026402

013746
052716

002442
000101

MOV

a#WRIDAT ,-(SP)

104401
000000

TYPE
HALT

153670

BIS

,CPHALT

#GO'IE, (SP)

JCANNOT
;STOP

CONTINUE

TESTING

;GET READY TO MOVE

;GET READY TO SET

COMMAND

'GO' AND

ANY OF

VA IV AV TV A TV IV RV LV RV S RV RO SV AV RV, [V T RV, SV, RV RV, TV RV RV RV, VL RV, LV, RV RV, TV, RV, L RV RV LA RV oV RO R AV IV,

5157
5158
5159
5160
5161
5162
5163

N 9
MACY11 30A(1052)
27-JUL-78 13:06 PAGE 118
WRITE/READ DATA (052525)
137

CZRJIICO, RPOL/S5/6 FCTNL CTLR]
CZRJIC.PN
27-Jn-78 13:05

5213
5214
5215
5216
5217
5218
5219
5220

026406
026412
026416

012677
011100
011305

8 10
MACY11 30A(1052)
27-JuL-78 13:06 PAGE 119
WRITE/REAC DATA (052525)
137

153666

MOV
MOV
MOV

+ ,@8RH(CST
(SP)

aR1.R0
aR3.RS

SEQ 0118

;GO WITH

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

;*ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=760 MICROSEC
026416
026420

104413
002300
000200
001614
001507
013746
052716
011637
022600
001405
010037
010137
104021

012746
011637
022605
001405
016537
010337
104063

;sWAIT FOR RDY BIT TO SET
JWAIT FOR RHCS1 REGISTER

WAT
RHCS1
RDY
908.

002442
004101
001124
001126
004600
010500
001124

:
648

839.
MOV
BIS
MOV
CMP
BEQ
MOV
MOV
ERROR
MOV
MOV

@NWRIDAT ,-(SP)
: SAVE COMMAND
(SP) s INCLUDE [E!GO!DVA
#1E!GO!DVA,
(SP) ,a#S$GDDAT
;SAVE FOR PRINTOUT
(SP)+ RO
;DURING ABOVE OPERATION ONLY IE!GO!DVA
:BRANTH IF GOOD
648
RO, a#$8DDAT
:BAD DATA
;FAILING REGISTER RH(CS1
R1,a#REGADR
21
;DURING ABOVE OPERATION ONLY
#MOL !DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT

BEQ
MOV
MOV

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

cMP

001126
004600

JWAIT FOR RDY BIT IN RHCS1 REGISTER

JALLOW 9080 MICRO SECONDS

ERROR

JRDY MUST SET BETWEEN

(SP)+,RS

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

;FAILING REGISTER RHDS1

;DURING ABOVE OPERATION ONLY

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
026510
026514
026516
026520
026524
026526
026530
026534
026536

004037
002272
000000
004037
002274
003310
004037
002304

041360

JSR

RO,a#F ILLRE

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

JSR

RO,
a#F ILLRE

;MOV WRFROM+<200.*2> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE

SHUC

041360

RHBA

WRFROM+<200.
%2>
JSR
RO,a#F ILLRE

041360

RHDST

000001

:DATA

JMOV 1 INTO SAVED RHDST
:82¥ED REGISTER TO CHANGE

;*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS
;*AFTER COMMAND
026540
026544
026546
026550
026552
026554

004037

026556
026560

104035
000207

004612

042444

JSR

SAVERE
wC
18.
1%

002354
000022
026556
026562

RO, a#COMREG

ERROR

RTS

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

1%:

; COMPARE SAVED REGISTERS WITH

:WRITE DATA COMMAND CAUSED
*IMPROPER REGISTER CHANGE
: ggoo DATA GIVES WHAT SHOULD

*RECEIVED DATA GIVES WHAT WAS
"THERE AFTER COMMAND

5269
5270
5271
5272
5273
5274
5275
5276
9277
5278
5279
5280
5281
5282

MACY11

c 10

30A(1052)
27-JUL-78 13:06 PAGE 120
WRITE/READ DATA (052525)
137

SEQ 0119

;*NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE
026562
026562
026566
026570
026572
026574
026576
026600
026602

004037
003534
002470

043474

2$:

JSR

REINTO
WRFROM

RO, a#COMPAR

256.
33

026600
026604
3s:

ERROR
RTS

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

;256. WORDS TO BE COMPARED
JRETURN TO 38 ON ERROR

104036
000207

;COMPARE TWO BLOCKS OF MEMORY

JRETURN TO 4% ON NO ERROR

JWRITE DATA COMMAND CHANGED
JWRITE

FROM BUFFER

;*NOW A READ DATA COMMAND WILL BE GIVEN

;*FILL READ INTO BUFFER WITH 200 ZEROS AND 56 OF ALL ONES
041456
0461326

JSR
JSR

REINTO

200.
0

JSR

041326

PC,a#CLDISK
RO,a#CLAREA

RO,a#CLAREA

REINTO+<200. %2>
56.
377

:SET R1-RHCS1, R2-RHC(CS?
;CLEAR 200. WORDS. FROM REINTO
;STARTING FROM REINTO

;200. WORDS
SFILL WITH O

;CLEAR 56. WORDS, FROM REINTO+<200.%2>
;STARTING FROM REINT0+<200.+2>
:56. WORDS
JFILL WITH 377

;*FILL WRITE FROM BUFFER WITH 200 OF 52525 AND 56 OF O
041326

JSR

WRFROM

RO,a#CLAREA

200.

52525
JSR

041326

:CLEAR 200. WORDS, FROM WRFROM
;STARTING FROM WRFROM

;200. WORDS

RO,a#CLAREA

WRFROM+<200. %2>
56.

377

“FILL WITH 52525
;CLEAR 56. WORDS, FROM WRFROM+<200.*2>

;STARTING FROM WRFROM+<200.,
%2>
;56. WORDS
JFILL WITH 377

J*NOW FILL COMMAND
043430
.BYTE
.BYTE

177470

003534
026700

JSR

0
0
0
-200.

RO, a#RUN

REINTO

000000
014000
002446

;SETUP TO RUN FOR DATA COMMAND

:CYLINDER O
;SECTOR O
;TRACK 0O
;WORD COUNT = 200.
;BUS ADDRESS

ECI'FMT2?2

READAT

;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

004037
002272
004612

041624

JSR

RHWC

SAVERE

RO.,a#SAVER

;SAVE REGISTERS
sRHWC

IS THE

FIRST REGISTER SAVED

;STARTING ADDRESS OF WHERE

([l

(ZRJIICO, RPO4L/S5/6 FCTNL (TLRI
CZRJIC.P1N
27-JUL~-78 13:05

5325
5326

5327
5328
5329

5330
5331
5332
5333

0D 10
30A(1052)
27-JUL-78 13:06 PAGE 121
WRITE/READ DATA (052525)
137

SEQ 0120

026712

000022

18.

026714
026720
026724

004737

JSR

PC,a#CHECKT

026726

013777

004606

MOV

a#RPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

026734
026740
026744
026750
026752

013746
052716
012677
011100
011305

002446
000101
153330

MOV

a#READAT ,-(SP)

026754
026756
026760
026762
026764
026766
026772
026776
027002
027004
027006
027012
027016
027020
027024
027030
027032
027034
027040
027044

TYPE
HALT

104401

000000
153332

BIS
MOV
MOV
MOV

104021

908.
839.

002446
004101
001124

MOV

001126
004600

MOV

012746
011€37
022605
001405

010500
001124

010337
104063

004600

010537

LCPHALT

#GO!IE, (SP)
(SP)+,aRH(CS1
aR1,R0
aR3,RS

WAT
RHCS1
RDY

104413

002300
000200
001614
001507
013746
052716
011637
022600
001405
010037
010137

;NUMBER OF REGISTERS

001126

67%:

ANREADAT ,~(SP)

#1E!GO!DVA,
(SP)
(SP) ,a#$GDDAT
(SP)+ R0
67%

MOV
ERROR

R1,a#REGADR
21

8EQ

MOV
MOV

ERROR

:CANNOT (ONTINUE TESTING IF ANY OF
;STOP

;GET READY TO MOVE COMMAND

;GET READY TO SET 'GO' AND
;GO WITH
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION
JWAIT FOR RDY BIT TO SET
JWAIT FOR RHCS1 REGISTER
;JWAIT FOR RDY BIT IN RH(CS1

BIS
MOV
0,
BEQ

MOV
MOV
CMP

;CHECK DVA,RDY
. MOL ,DPR,DRY, VV = 1

RO, a#SBDDAT

sALLOW 9080 MICRO SECONDS
JRDY MUST SET BETWEEN

;SAVE COMMAND

;INCLUDE IE!GO!DVA
;SAVE FOR PRINTOUT
:DURING ABOVE OPERATION ONLY IE!GO.DVA
JBRANCH IF GOOD
;BAD DATA

JFAILING REGISTER RH(CS1
;DURING ABOVE OPERATION ONLY

#MMOL 'DPR!VV,=-(SP)
:SAVE BITS SET DURING OPERATION IN RHDS1
(SP) ,a#S$GDDAT
;SAVE FOR PRINTOUT
(SP)+,RS
;DURING ABOVE OPERATION ONLY MOL.DPR.VV
69%

;BRANCH IF GOOD

;DURING ABOVE OPERAT]ON ONLY

RS .,a#$BDDAT
R3.,a#REGADR

;BAD DATA
;FAILING REGISTER RHDS1

:*CHANGE SAVED REGISTERS TO EXPECTED VALUES
027046
027052
027054
027056
027062
027064
027066
027072
027074

004037
002272
000000
004037
002274

004354
004037
002304
000001

041360
041360
041360

JSR

RO,a#F JLLRE

JMOV O INTO SAVED RHW(

JSR

RO,a#F ILLRE

;MOV REINTO0+<200.%2> INTO SAVED RHBA

JSR

RO,a#F JLLRE

;MOV 1

SHwC

RHBA
REINT0+<200. *2>
?HDST

:g:¥§0 REGISTER TO CHANGE

;SAVED REGISTER TO CHANGE
.DATA

INTO SAVED RHDST

;SA¥§D REGISTER TO CHANGE
;DA

;*COMPARE REGISTERS BEFORE READ DATA COMMAND
;*WITH REGISTERS AFTER COMMAND
027076
027102
027104
027106
027110
027112

042444

027120

JSR

SAVERE
W(
18.
5%
6%

RO, a#COMREG

;COMPARE SAVED REGISTERS WITH

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

MACY11

CZRJICO, RPOL/S/6 FCTINL
CZRJIC.PT
27-JuL-78

CZRJICO, RPO4/S5/6 FCINL CTLRI
CZRIIC.P1
27-JUL-78 13:05
5381
5382
5383
5384
5385
5386
5387
5388
5389
5390
5391
5392
5393
5394
5395
5396
5397
5398
5399
5400
5401
5402
5403
5404
540%

027114
027116

104033

000207

137

E 10
27-JUL-78 13:06 PAGE 122
WRITE/READ DATA (052525)

5%:

ERROR

MACY11 30A(1052)

RTS

SEQ 0121

JREAD DATA CAUSED IMPROPER
JREGISTER CHANGE

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

COMMAND

;*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ
027120
027120
027124
027126
027130
027132
02713

027136
027140
027142

004037
002470
003534

043474

69:

RO, a#COMPAR

7%
108

7%:

10%:

ERROR

RTS

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

:256. WORDS TO BE COMPARED

256.

000400
027136
027142
1064034
00C207

JSR
WRF ROM
REINTO

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

;INCORRECT DATA AFTER

JWRITE DATA FOLLOWED BY A

JREAD DATA

5606
5407

5408
5409

5410
e
54172
5413
5414
5615
5616
5617
5418
5419
5620
5621
5422
5423
5424

5425

5626
5427
5428
5429
5430
5431
5432
5433
5434
5435
5436
5437
5438
5439
5440
5441
5442
5443
5444
5445
5446

5447

5448
5449

5450
5451
5452
5453
5454
5455
5456
5457
5458
5459
5460
5461

027142
027164
027152
027156
027164
027170
027174
027176

000004
012737
012706
012737
004737
005737
001402
000137

027202

005037

000001
001000
000040
061456
004750

MACYT1

001212

F 10
30A(1052)
27-JUL-78 13:06 PAGE 123
140
WRITE/READ DATA USING UNIBUS B
1ST4C:

SCOPE

MOV

#,STINES

JSR

P{,a#(CLD]ISK

MOV
MOV

004604

TST

030312

8EQ
JMP

004732

CLR

;.00 1

SEQ 0122

ITERATION

#STACK,SP
#40,aNTSTNM

JRESET STACK
;SAVE TEST NUMBER

a¥RH70

;TEST FOR RH70 CONTROLLER

308
TST41

asuBUSB

;SET R1-RH(S1, R2-RH(SZ

;IF FLAG = 1, THIS TEST IS SKIPPED

JUMP TO NEXT TEST =======ccco—csce~—-- )
;CLEAR UNIBUS INDICATOR

;*NOW FILL WRITE FROM BUFFER-200 OF 52525 AND 56 OF 377
027206
0c7212
027214
027216
027220
027224
027226
027230

004037
002470
000310
052525
004037
003310
000070
000377

JSR

061326

WRF ROM
200.

RO,a#CLAREA

52525
RO,a#(CLAREA
JSR
WRF ROM+<200. *2>
56.
377

0461326

;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
JFILL WITH 377

;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS
J*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS

;«CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER

027240
027242

004037
003534
000210
052525

027250
027252
027254

000070
000377

027232
027236
027244

004037
004354

JSR

041326

REINTO

RO,a#CLAREA

200.
041326

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

52525
JSR
RO,a#CLAREA
REINTO+<200.*2>

;200. WORDS
JFILL WITH 52525
;CLEAR 56. WORDS, FROM REINTQ+<200.%2>
;STARTING FROM REINTO+<200.+2>

377

SEFILL WITH 377

56.

;56. WORDS

;*NOW WRITE DATA COMMAND WILL BE LOADED
027256
027262
027264
027265
027266
027270
027272
027274
027276
027300

004037
000000

JSR

043430

000
000
177470

002470
000000
010000
002442
052777

BYTE
BYTE

0
0
0
-200.
WwRFROM
0

RO, a#RUN

FMT22

002000

152772

WR]DAT
BIS

;SETUP TO RUN FOR DATA (COMMAND

;CYLINDER O
;SECTOR O
;TRACK O
:WORD COUNT = 200.
;BUS ADDRESS
;DO NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT

#PSEL ,aRH(ST

;GET READY TO DO A WRIDAT
;SET PORT B

;THAT

IS UNIBUS B

;*NOW SAVE REGISTER FOR COMPARISON AFTER WRITE DATA
027306
027312
027314
027316

004037
002272
004612
000022

041624

JSR
RHW(
SAVERE
18.

RO, a#SAVER

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

CZRJICO, RPOL/S/6 FCINL (TLRY
CZRJIC.P1M
27-JuL-78 1 3:05

CZRJICO, RPO4L/S/6 FCTNL CTLRT
CZRJIC.PY

27-JUL-78 13:05

5662
56463

027320
027326

004737
104401

0461536
066720

5666
56467
5468
56469
5670
22;;

027332
027340
02734
027350
02735
027356

013777
013746
052716
012677
011100
011305

004606
002642
002101
152724

222?

027330

000000

WMACY11 30A(1052)
140

152726

5491
5492
5493
gzgg

027360
027362
027364
027366
027370
027372
027376
027402
027406
027410
027412
027416
027422
027424
027430
027434

027436
027440

027444
027450

104413
002300
000200
001614

001507
013746
052716
011637

022600

001405
010037
010137
104021

012746

011637
022€05
001405
010537
010337
104063

002642
006101
001126
001126
004600

010500

649%:

001124

PC,a#CHECKT
LCPHALTM

MOV
MOV
BIS
MOV
MOV
MOV

@#RPLVE( ,aRPVEC ;SET RPO4 VECTOR ADDRESS
a#WRIDAT ,-(SP)
;GET READY TO MOVE COMMAND
#GO!IE!PSEL, (SP)
;GET READY TO SET 'GO' AND
(SP) + ,@RH(S1
;GO WITH
aR1,R0
;SAVE RHCS1 DURING ABOVE OPERATION
aR3,RS
;SAVE RHDS1 DURING ABOVE OPERATION

;STOP

WAT
RHCS1
RDY
908.
839.
MOV
BIS
MOV
(MP
BEQ
MOV
MOV
ERROR
MOV
MoV
MP

;JWAJT FOR RDY BIT TO SET
JWAIT FOR RHCS1 REGISTER
JWAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS
JRDY MUST SET BETWEEN
a#WRIDAT ,-(SP)
;SAVE COMMAND
#1E!GO!DVA!PSEL, (SP)
o INCLUDE IE!GO!DVA!PSEL
(SP) ,a#SGDDAT
;SAVE FOR PRINTOUT
(SP>+,RO
;DURING ABOVE OPERATION ONLY IE!GO!DVA!PSEL
648
;BRANCH [F GOOD
RO, a#$BDDAT
:BAD DATA
R1,a#REGADR
SJFAILING REGISTER RHCS1
21
:DURING ABOVE OPERATION ONLY
#MOL 'DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDSI
(SP) ,a#SGDDAT
;SAVE FOR PRINTOUT
(SP)+,R5
;DURING ABOVE OPERATION ONLY MOL !DPR.VV

MOV
ERROR

R3,3#REGADR
63

663
RS ,a#$BDDAT

;BRANCH [F GOOD
;BAD DATA

JFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

J*CHECK IF NEM NON EX]STANT MEMORY IS SET
;*IF SET IT MEANS UNIBUS B IS NOT CONNECTED
;%SO THIS TEST IS NOT PERFORMED

5501
5502
5503
5504
5505
5506
5507

027452
027460
027462
027470
027474
027550
027554

5509

027564

027560
027564
027570
027642
027646

032777
001441
012737
104401
000425
104401
104401

000137
104401
000424
104401
104401

004000

152616

177777
027476

004732

001223
001223

030312

027572
001223
001223

22}2

5517

1
;CHECK DVA,RDY ,MOL,DPR,DRY,VV
;CANNOT CONTINUE TESTING IF ANY OF

JSR
TYPE

8tQ
MOV

00112¢
004600

5496

5510
5511
5512
22}2

PAGE 126

;*ONE REVOLUTIu~-16670 MICROSEC, ONE SECTOR=760 MICROSEC

5497
5498
gggg

5508

G 10

13:06

WRITE/READ DATA USING UNIBUS B

HALT

22;2
5475
5476
5477
5478
5679
56480
5481
5482
5483
5484
5485
56486
5487
5488
5489
5490

27-JuL-78

11$%:

BIT
BEQ
MOV
TYPE
BR
TYPE
TYPE

#NEM,BRHCS?
11%
#-1,3#UBUSB
.68%
67%
.SCRLF
.SCRLF

JTEST NEM
JBRANCH IF UNIBUS B THERE
JUNIBUS B NOT THERE
2. TYPE ASCIZ STRING
;.GET OVER THE AS(CIZ

a#’10$

;JUMP TO NEXT TEST = NO UNIBUS B

TYPE
B8R
TYPE
TYPE

.70%
69%
.SCRLF
.SCRLF

2. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

JMP

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE

027652

004037

041360

JSR

RO,a4F ILLRE

;MOV O INTO SAVED RHW(C

SEQ 0123

5518
5519
5520
5521
5522
5523
5524
5525
5526
5527
5528
5529

5530
553
5532
5533
5534
5535
5536
5537
5538
5539
5540
5541
5542
5543
5544
5545
5546
5547

5548
5549
5550

5551
5552
5553
5554
5555
5556
5557

027656

27-JuL~-78 13:05
002272
000000
004037
002274
003310
004037
002304
000001

MACYT1

H 10

SEQ 0124

30A(1052)
27-JuL-78
PAGE 125
13:06
140
WRITE/READ DATA USING UNIBUS B

:g:¥§b REGISTER TO [HANGE

SHUC

041360

JSR

RHBA

RO,
a#F ILLRE

WRFROM+<200.
*2>
JSR
RO,
a#F JLLRE

041360

RHDST
!

JMOV WRFROM+<200.+2> INTO SAVED RHBA
:SAVED REGISTER TO CHANGE
;DATA

;MOV 1 INTO SAVED RHDST
:g:¥ED REGISTER TO (HANGE

;*NOW (OMPARE REGIS TERS BEFORE WRITE DATA WITH REGISTERS
027702
027706
027710
027712
027714
027716

004037
004612
002354
000022
027720
027724

027720

104074

027722

000207

0462444

;*AFTER

(COMMAND

JSR

RO, a#(COMREG

SAVERE

18.

;18. REGISTERS TO BE (OMPARED

JRETURN TO 1$ ON ERROR
;RETURN TO 2% ON NO ERROR

2%
1%:

; COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN °'SAVERE'
;TEST DATA STARTING FROM 'RHW(C'

ERROR

RTS

JWHILE USING UNIBUS B

;WRITE DATA COMMAND CAUSED
. IMPROPER REGISTER CHANGE

:gEOD DATA GIVES WHAT SHOULD
JRECEIVED DATA GIVES WHAT WAS
;THERE

;*NOW WRITE

027726
027724

027730
027732
027734

004037
003534
00247C

063474

2%:

000400
027742

027736
027740

027746

027742

104075

027744

000207

JSR

REINTO
WRF ROM

FROM BUFFER WILL BE

RO,a#COMPAR

COMMAND

CHECKED FOR NO CHANGE

;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 43 ON NO ERROR

256.
3%

2 3

3%:

AFTER

ERROR

;WHILE USING UNIBUS B

RTS

:WRITE

:WRITE DATA COMMAND CHANGED
FROM BUFFER

;*NOW A READ DATA COMMAND WILL BE GIVEN
s*FILL READ INTO BU FFER WITH 200 ZEROS AND 56 OF ALL ONES

027746
027746
027752
027756
027760
027762
027764
027770
027772

027774

004737
004037
003534
000310
000000
004037

004354

000070
000377

041456
041326

AN
JSR

JSR

RE INTO

PC.,a#CLDISK

RO,a#CLAREA

SOO.

041326

JSR

RO,a#CLAREA

REINTO+<200.*2>

56.
377

;SET R1-RHCS1, R2-RH(CS?
;CLEAR 200. WORDS, FROM REINTO
JSTARTING FROM REINTO
;200. WORDS
JFILL WITH O
JCLEAR 56. WORDS, FROM REINTO+<200.%2>
JSTARTING FROM REINTO+<200.+2>

;55. WORDS
JFILL WITH 377

J*FILL WRITE FROM BUFFER WITH 200 OF 52525 AND 56 OF 0

CZRJIC.PN

T.R1
(T.

lale)

CZRJICO, RPOL/S/6 FCTNL

CZRJICO, RPOL/S/6 FCINL (7 LR1

CZRJIIC.PT

5574
5575
5576
5577
5578
5579
5580
5581

27-JUL~78 13:05

027776

052525
004037

003310
000070
000377

5582
5583
5584
5585
5586

004037
000000
000
000

003534
000000
014000
002446
052777

5593
5594
5595
5596
5597

WRFROM

RO,a#CLAREA

200.
52525
RO,a#(LAREA
JSR
WRFROM+<200, =2>
S6.
377

041326

SEQ 0125

;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>
:S6. WORDS
JFILL WITH 377

043430
.BYTE
.BYTE

JSR
0
0
0
-200.

RO, a#RUN

RE INTO

0
ECI'FMT2?

002000

READAT

BIS

152226

#PSEL ,a8RHCSY

;SETUP TO RUN FOR DATA (COMMAND
;CYLINDER O
;SECTOR O
;TRACK O
JWORD COUNT = 200.
;BUS ADDRESS

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

JSET PORT B
;THAT

S UNIBUS B

;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA (OMMAND
030052
030056
030060
030062

004037
002272
004€12
000022

0461624

030064
030070
030074

004737

041536
066720

030076
030104
030110
030114
030120
030122

013777
013746
052716
012677
011100
011305

004606
002446
002101

030124
030126
030130
030132
030134
030136
030142
030146

5629

110
13:06 PAGE 126

WRITE/READ DATA USING UNIBUS B

JSR

041326

177470

$590
5591
5592

5602
5603

140

27=-JUL-78

;*NOW FILL COMMAND

5587
5588
5589

5598
5599
5600
5601

004037
002470
000310

MACYTT 30A(1052)

030152
030154
030156
030162
030166
030170

104401
000000

JSR
RHW(

104021

012746

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

JSR

PC,a#CHECKT

;CHECK DVA,RDY,MOL ,DPR,DRY,VV - 1

MOV
MOV

S¥RPLVEC,aRPVEC ;SET RPO4 VECTOR ADDRESS
@¥READAT ,-(SP)
;GET READY TO MOVE COMMAND

MOV

(SP)+,aRHCS1

SAVERE
18.

TYPE
HALT
152162

BIS

152160

MOV
MoV

JCPHALT

#GO!IE!PSEL, (SP)
a3R1,R0
aR3.RS5

WAT
RHCS1
RDY

104413

002300
000200
001614
001507
013746
052716
011637
022600
001405
010037
010137

RO, a#SAVER

908.
839.

002446
006101

010500

71%:

;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

JALLOW 9080 MICRO SECONDS
JRDY MUST SET BETWEEN

a#READAT ,-(SP)

MOV

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

718
RO,a#$BDDAT
R1,3#REGADR
21

;BRANCH IF GOOD
;BAD DATA
JFAILING REGISTER RHCS1
:DURING ABOVE OPERATION ONLY

(MP

001126
004600

;GO WITH

TESTING [F ANY OF

MOV

BIS

001124

;CANNOT CONTINUE
;STOP

BEQ
MOV
MoV
ERROR

MOV

.SAVE COMMAND

#1E!GO!DVA!PSEL, (SP)
(SP)+,RO

s INCLUDE IE!GO!DVAIPSEL

;DURING ABOVE OPERATION ONLY IE!GO.DVA!PSEL

AMOL 'DPR!VV,=(SP)

;SAVE BITS SET DURING OPERATION IN RHDSI

Z
2

CZRJ1CO, RPOL/S/6 FCTINL (T
CZRJIC.PN
27-JuUL~78 13:05

011637
022605
001405
010537
010337

5630

104063

MACY11 30A(1052)
140

27-JUL-78

CMP

BEQ

MOV

001126
004600

SEQ 0126

PAGE 127

WRITE/READ DATA USING UNIBUS B

MOV

001124

J 10

13:06

MOV
ERROR

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

R3. a¥RE GADR
63

"DURING ABOVE OPERATION ONLY

(SP)+,NR5
73s
RS, a4$BDDAT

'DURING ABOVE OPERATION ONLY MOL .DPR.VV
*BRANCH IF GOOD
*BAD DATA
*FAILING REGISTER RHDS1

- «CHANGE SAVED REGISTLRS TO EXPECTED VALUES
004037
002272
000000
004037
002276
004354
004037
002304

041360

JSR
guuc

RO, a#F ILLRE

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

JSR

RO.@#F ILLRE

MOV REINT0+<200.%2> INTO SAVED RHBA

RHBA

RE INTO+<200. 22>

JSR
?HDST

041360

000001

RO, a#F ILLRE

*SAVED REGISTER TO CHANGE
:DATA

:MOV 1 INTO SAVED RHDST
:32¥ED REGISTER TO CHANGE

;~COMPARE REGISTERS BEFORE READ DATA COMMAND
;*WITH REGISTERS AFTER COMMAND
004037
004612
002354
000022
030264
030270

042644

JSR
SAVERE
W(

RO,a#(COMREG

ERROR

RTS

18.
5%
6%

104072

5%:

000207

;COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN °'SAVERE'
sTEST DATA STARTING FROM ‘RHWC'
;18. REGISTERS TO BE COMPARED
JRETURN TC 5% ON ERROR
JRETURN TO 6% ON NO ERROR
JWHILE USING UNIBUS B

;READ DATA CAUSED IMPROPER
JREGISTER 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

004037
002470
003534
000400
030306
030312
104073

030310
030312

043474

JSR

WRFROM
REINTO

RO, a#COMPAR

256.
’$
108

7%:

000207
10%:

;COMPARE TWO BLOCKS OF MEMORY

;GO0D DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

2256. WORDS TO BE COMPARED
JRETURN TO 7% ON ERROR
JRETURN TO 108 OGN NO ERROR

ERROR

;WHILE USING UNIBUS B

RTS

;WRITE DATA FOLLOWED BY A

;INCORRECT DATA AFTER
;READ DATA

CZ¥

Czi

WRITE/READ DATA USING UNIBUS B

SEQG 0127

PAGE 128

140

K 10

13:06

5686

27-JuL-78 13:05

27-JuUL-78

CZRJIC.PI

MACY11 30A(1052)

CZRJICO, RPO4/S/6 FCTINL CTLR1

27-JUL-78

140

WRITE/READ DATA USING UNIBUS B

TST41:

SCOPE
MOV

#STACK,SP

JSR

PC.a#CLDISK

SEQ 0128

CZF

WRFROM+<260. *2>
4
10000

0
0

cLOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD

;SECOND DATA WORD

;THIRD DATA WORD
;FOURTH DATA WORD

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

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

000000
004037
003544
000400

030460

A TR

AR IR IR

R TA PR

030404
030410
030412
030414

041326

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

030364
030370
030372
030374
030376
030400
030402

041302

041326

R SR SR SRR

030352
030356
030360
030362

;eFJLL WRITE FROM BUFFER WITH DATA
JSR
RO,a#CLAREA
;CLEAR 256. WORDS, FROM WRFROM+10
WRFROM+10
:STARTING FROM WRFROM+10
:256. WORDS
256.
0
SFILL WITH O

030350

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

0
0
0

;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
JFIRST DATA WORD

;SAVE HEADER DATA IN WRFROM

RO ,a#F LHEAD

JSR

WRFROM
A
10000

;eFILL WRITE FROM BUFFER WITH HEADER

JSET R1-RHCS1, R2-RH(S2

0461302

MOV

JRESET STACK
;SAVE TEST NUMBER

004037
002470

004604

#41 ,NTSTNM

012737
004737

001000
000041
041456

030332
030336

000004
012706

030312
030314
030320
030326

004037
004544
000004
010000

041302

041326

041302

JSR

REINTO
4
10000

RO, a#F LHEAD

0
0
0

JSR
RO,24CLAREA
REINTO+1(
25€.
0
JSR
RO, a#F LHEAD
QEINTO*<260.*2>
10000

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

;SECOND DATA WCRD
sTHIRC DATA WORD
;FOURTH DATA WORD

;CLEAR 256. WORDS, FROM REINTO+10
:STARTING FROM REINTO+10
2256. WORDS
JFILL WITH O
;SAVE HEADER DATA IN REINTO+<260.+2>
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
JFIRST DATA WORD

5687

5688
5689
5690
5691
5692
5693
5694
5695
5696
5697
5698
5699
5700
5701
5702
5703
5704
5705
5706
5707
5708
5709
5710
5711
5712
5713
5714
5715
5716
5717
5718

MACY1T

L 10
13:06 PAGE 129

(ZRJICO, RPO4/5/6 FCTINL (TLRI
27-3UL-78 13:05
CZRJIC.PN

30A(1052)

CZRJICO, RPOL/5/6 FCTNL CTLRT
CZRJIC.P1T
5743
5744
57645
57646
5747
5748
gggg

27-JuUL-78 13:05

030462
030464
030466
030470
030474
030476
030500

000001
000000
000000
004037
004554
000002
000001

MACY11 30A(1052)
T41

g;g}

030502
030506
030510
030511
030512
030514
030516
030520
030522

004027
000000
000
000
177366
002470
000000
010000
002444

043430

5763
5764
5765
5766
g;gg

0305246
030530
030532
030534

004037
002272
004612
000022

041624

5769
5770
g;;;

030536
030542
030546

004737
104401
000C00

041536
066720

g;;z

030550

013777

004606

5775
5776

030556
030562

013746
052716

002444
000101

5777
5778
2;;3

030566
030572
030574

012677
011100
011305

BYTE
.BYTE

151510

151506

5797
5798

030576
030600
030602
030604
030606
030610
030614
030620
030624
030626
030630
030634
030640
030642

030646
030652

104413
002300
000200
002001
001553
013746
052716
011637
022600
001405
010037
010137
104021
012746
011637
022605

002444
004101
001124
001126
004600
010500
00112.

PAGE 130

64%:

;SECOND DATA WORD
;THIRD DATA WORD
;FOURTH DATA WORD
;CLEAR 2 WORDS, FROM REINTO+<264.*2>
;STARTING FROM REINTO+<264.%2>
;2 WORDS
JFILL WITH

SEQ 0129

CZFk
CZF

¢
¢
¢
¢
¢
¢
S

;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED

JSR
RO, a#RUN
0
O
O
=262.-4
WRF ROM
0
FMT22
WRIFOR

¢
¢
¢
¢
¢
¢
¢
¢
i

;SETUP TO RUN FOR DATA (OMMAND
JCYLINDER O
;SECTOR O
;TRACK 0
JWORD COUNT (DATA) = 262. +
;BUS ADDRESS
;DO NOT INKIBIT BUS ADDRESS INCREMENT
216 BITS PER WORD FORMAT
;GET READY TO DO A WRIFOR

;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DAT1
JSR
RO, a#SAVER
;SAVE REGISTERS
RHW(
JRHWC IS THE FIRST REGISTER SAVED
SAVERE
;STARTING ADDRESS OF WHERE
18.
JNUMBER OF REGISTERS

¢
¢
¢
¢
:

JSR
TYPE
HALT

PC,a#CHECKT
LCPHALT

¢
¢
:

MOV

a#RPLVEC,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS

@HWRIFOR,-(SP)
#GO!1E, (SP)

(
(

MOV
MOV
MoV

g;g}
5783
5784
5785
5786
5787
5788
5789
5790
5791
5792
5793
5794
5795
5796

13:06

IMPLIED SEAR(CH

1
0
0
JSR
RO,3#CLAREA
REINTO+<264. %2>
2
1

041326

5753
5754
5755
5756
5757
5758
5759
5760
2;2;

27-JuL-78

Mm10

(SP)+,@RHCS1
@R1,.R0
aR3,R5

;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
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

¢
¢
:

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

WAT
RHCS1
RDY
1025.
875.
MOV
BIS
MOV
cMP
BEQ
MOV
MOV
ERROR
MOV

(
(
(
(
(
(
(
(
(
(
(
(
(
(

MoV
(MP

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 10250 MICRO SECONDS
;RDY MUST SET BETWEEN
S#WRIFOR,~(SP)
;SAVE COMMAND
#]E!GO!DVA,(SP) ;INCLUDE IE!GO!DVA
(SP) ,a#$GDDAT
;SAvVEc FOR PRINTOUT
(SP)+,RO
;DURING ABOVE OPERATION ONLY IE!GO.DVA
649
;BRANCH IF GOOD
RO,a#$BDDAT
;BAD DATA
R1,3#REGADR
JFAILING REGISTER RH(CS1
21
;DURING ABOVE OPERATION ONLY
#MOL 'DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1

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

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY MOL DPR.VV

¢
¢

:BRANCH IF GOOD
*BAD DATA
*FAILING REGISTER RHDS1

*DURING ABOVE OPERATION ONLY

. «NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES
030670
030674
030676
030700
030704
030706
030710
030714
030716

004037
002272

000000
004037
002274
003514
004037
002304
000002

041360

JSR

RO, a#F ILLRE

:MOV 0 INTO SAVED RHW(

041360

JSR

RO,34F ILLRE

“MOV WRFROM+<266.%2> INTO SAVED RHBA

guuc

RHBA
WRFROM+<266. 2>
RO.a#F ILLRE
JSR
guosr

041360

:32¥ED REGISTER TO CHANGE

"SAVED REGISTER TO CHANGE
:DATA
:MOV 2 INTO SAVED RHDST
;SA¥ED REGISTER TO CHANGE
;DA

;*NOW (COMPARE REGISTERS BEFORE WRITE HEADER AND DATA
;*W]TH REGISTERS AFTER COMMAND
030720
030724
030726
030730
030732
030734
030736
030740

JSR
SAVERE
w(

042444

RO, a#COMREG

18.
1%

;18. REGISTERS TO BE COMPARED
JRETURN TO 1% ON ERROR

;RETURN TO 2% ON NO ERROR

030742
1%:

104027

000207

ERROR
RTS

; COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN °SAVERE'
;TEST DATA STARTING FROM °'RHW(C'

;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

CZR
CZR

N e Ve Ve Ve Ve Y0 Ve V20 V2 32 %0 Y2 Y0 .50 .50 30 .50 .30 .30.50.3 0.}

668
RS, a#$ODDAT
R3 SREGADR

SEQ 0130

PAGE 131

N, N

104063

IMPLIED SEAR(CH

BEQ
MOV
MOV
ERROR

001126
004600

N 10

13:06

001405
010537
010337

T41

27-JUL-78

030654
030656
030662
030666

30A(1052)

J*NOTHING GOT CHANGED

030760
030762

004037
003534
002470
000412
030760
030764

043474

2$:

JSR

REINTO
WRFROM

RO, a#COMPAR

266.
3%
4%

3%:

104030

000207

ERROR
RTS

;COMPARE TWO BLOCKS OF MEMORY

;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
30
PC

JWRITE HEADER AND DATA
;CHANGED WRITE FROM BUFrER

;*NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN
;*FOR SECTOR 1, 256 WORDS

030764
030764
030770
030774

004737
004037
003534

041456
041326

4%:

J*READ INTO BUFFER IS FILLED WITH ONES
JSR
JSR

REINTO

PC,a#CLDISK
RO,a#CLAREA

;SET R1-RHCS1, R2-RH(CSZ2
;CLEAR 260. WORDS, FROM REINTO
;STARTING FROM REINTO

030742
030742
030746
030750
030752
030754
030756

5799
5800
5801
5802
5803

MACY11

C(ZRJI1CO, RPOL/S5/6 FCINL (TL R1
CZRJIC.P1N
27-JuL-78 13:05

5855
5856
5857

5858
5859
5860
5861
5002
5863
5864
5865
5866
5867
5868
5869
5870
S871
5872
5873
5874
5875
5876
5877
5878
5879
5880
5881
5882
5883
5884
5885
5886
5887
5888
5889
5890

030776
031000

MACY11 30A(1052)
141

27-JuL-78

13:06

IMPLIED SEARCH

PAGE 132
;260. WORDS
FILL WITH 377

260.
377

000404
000377

;*WRITE FROM BUFFER IS FILLED WITH EXPECTED DATA
004037
002470
000006
010000
000001
000000
000000
000001

041302

004037
002504
000254

041326

000001

JSR

WRFROM
6

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

RO, a#F LHEAD

}OOOO

;THIRD DATA WORD

;FOURTH DATA WORD
;FIFTH DATA WORD

:SIXTH DATA WORD

;CLEAR 254 WORDS, FROM WRFROM+<6.*2>
;STARTING FROM WRFROM+<6.%2>
S
WORD
;254
O
WITH
JFILL

RO,a#CLAREA
JSR
WRFROM+<6
. *2>
854

000000

J*NOW FILL COMMAND
004037
000000
001
000
177374
003534
000000
014000
002450

éSR

043430
.BYTE
.BYTE

JSETUP TO RUN FOR DATA COMMAND
;CYLINDER O
JSECTOR 1

RO, a#RUN

0
-256.-4

;TRACK 0O

0
ECI!IFMT22

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

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

REINTO

REFOR

;*NOW SAVE REGISTER S FOR COMPARISON AFTER READ HEADER AND DATA
004037
002272
004612
000022

041624

031074
031100
031104

004737

041536
066720

031106

013777

004606

031072

104401
000000

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

JSR

PC,a#CHECKT

VV = 1
Y
,DPR,DRY,
,RD
,MOL
;CHECK DVA
:g?ggOT CONTINUE TESTING IF ANY OF

MOV

Q¥RPLVEC,QRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV
MOV
MOV

@#REFOR,-(SP)
#GO!IE, (SP)
(SP)+,3RHCS 1
aR1,RO
aR3,R5

SAVERE
18.

002450
000101

031114

RO, a#SAVER

JSR

RHW(

151150

TYPE
HALT

151152

LCPHALT

;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

;WAIT FOR RDY BIT TO SET

WAT

JWAIT FOR RHCS1 REGISTER
JWAIT FOR RDY BIT IN RHCS1 REGISTER

RHCS1

001614

RDY

JALLOW 9080 MICRO SECONDS

908.

”~

4
4

SEQ 0131

Fon Xan

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

8 1

CZRJIC.P1Y

27-JuL-78 13:05

5911
5912
5913
5914
5915
5916
5917
5918
5919

031144
031146
031152
031156
031162
031164
031166
031172
031176

001507
013746
052716
011637
022600
001405
010037
010137
104021

5921
5922
5923
5924
5925
gggg

031204
031210
031212
031214
031220
031224

011637
022605
001405
010537
010337
104063

5920

031200

012746

MACY11 30A(1052)
T41

002450
004101
001126

001126
004600

010500
001124

67%:

001126
004600

5930

031226

004037

5932

031234

000000

5933

5934
5935
5936
5637
gg%g

031232

031236

031242
031244
031246
031252
031254

002272

004037

002274
004544
004037
002304
000002

041360

5950

5951
5952
5953
5954
5955

PAGE 133

SEQ 0132

839.
MOV
BIS
MOV

;RDY MUST SET BETWEEN
SNREFOR,-(SP)
;SAVE COMMAND
#1E'GO'DVA,
(SP) ;INCLUDE IE'GO'DVA
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT

MOV

#MOL 'DPR'VV,=(SP)

(MP
BEQ
MOV
MOV
ERROR
MOV
CMP
BEQ
MOV
MOV
ERROR

JSR

RHW(C
0

041360

JSR

(SP)+,RO
673
RO, a#SBDDAT
R1,a#REGADR
21

:DURING ABOVE OPERATION ONLY IE'GO'DVA
:BRANCH IF GOOD
:BAD DATA
:
:FAILING REGISTER RHCS?
:DURING ABOVE OPERATION ONLY

(SP) ,a#SGDDAT
(SP)+,RS
698
RS ,a#SBDDAT
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

RO,a#F ILLRE

RO,34F ILLRE

RHBA
RE INTO+<260. %2>
JSR
RO,a#F ILLRE
RHDST
2

041360

5940
ggz;
5943
5944
5945
5946
5947
ggzg

13:06

;SAVE BITS SET DURING OPERATION IN RHDS1

: *CHANGE SAVED REGISTERS TO EXPECTED VALUES

2333

5931

27-JuL-78

IMPLIED SEARCH

:MOV O INTO SAVED RHWC

:SAVED REGISTER TO CHANGE
:DATA

MOV REINTO+<260.%*2> INTO SAVED RHBA
:SAVED REGISTER TO CHANGE
:DATA
:MOV 2 INTO SAVED RHDST
;SAVED REGISTER TO (HANGE
:DATA

:*COMPARE REGISTERS BEFORE READ HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND
031256
031262
031264
031266
031270
031272

004037
004612
002354
000022
031274
031300

031274
031276

104031
000207

042444

5%:

JSR
SAVERE
wC
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

ERROR
RTS

31
PC

:READ HEADER AND DATA CAUSED
: IMPROPER REGISTER CHANGE
:GOOD DATA GIVES WHAT SHOULD
:BE THERE
:RECEIVED DATA GIVES WHAT WAS

gggg

:THERE AFTER COMMAND

5958

:*NOW READ INTO BUFFER WILL BE CHECKED TO SEE

5959
5960
5961

5962
5963
5964
5965
5966

:*THAT READ WAS GOOD

031300

031300
031304
031306
031310
031312

004037
002470
003534
000404
031316

043474

6%:

JSR
WRFROM
REINTO
260.

RO, 3#COMPAR

;COMPARE TWO BLOCKS OF MEMORY
:GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
;260. WORDS TO BE COMPARED
JRETURN TO 7% ON ERROR

CZRJICO, RPO4/S/6 FCTNL CTLR1

c N

5967
5968
5969
5970
5971
5972
5973
5974

031314

031322

031316
031320

104032

031322

000207

T41

27-JuUL-78

IMPLIED SEARCH

JRETURN TO 108 ON NO ERROR

108
7%:

:
108

0 1
13:06 PAGE 134

ERROR
RTS

JWRITE HEADER AND DATA

;FOLLOWED BY A READ HEADER

JAND DATA GAVE A READ ERROR

JERROR MAY BE IN READ OR WRITE

SEQ 0133

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

MACY11 30A(1052)

5975
5976
5977
5978
5979
5980

5981
5982
5983
5984
5985
5986
5987
5988
5989
5990
5991
5992

5993

5994
5995
5996
5997
5998
5999

031322
031324
031330
031336

000004
012706
012737
004737

001000
000042
041456

031342
031346
031350
031352
031354
031356
031360

004037
002470

031362
031366
031370
031372

004037
002500
000400
001125

041326

031374
031400
031402
031404
031406
031410
031412

004037
003500
000004
010001
000000

041302

031414
031420
031422
031424

004037
003510

041302

MACY11

30A(1052)
T41

TST42:

004604

EN
13:06 PAGE
IMPLIED SEARCH
SCOPE
MOV

MOV
JSR

#STACK,
SP

#42 ,aNTSTNM
PC.,a#CLDISK

WRF ROM

RO,
a#F LHEAD

10000

618.-400>.<21.>

JFIRST DATA WORD

.SECOND DATA WORD

;THIRD DATA WORD

;STARTING FROM WRFROM+10

;256. WORDS
SFILL WITH <18.%40>!21.

;«FJLL WRITE FROM BUFFER WITH NEXT TRACK HEADER
RO, a#F LHEAD
;SAVE HEADER DATA IN WRFROM+<260.*2>
rRFROM*<260.*2>
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
JSR

sFIRST DATA WORD
;SECOND DATA WORD

10001

000002
002000

:SAVE HEADER DATA [N WRFROM
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED

;*FILL WRITE FROM BUFFER WITH DATA
:CLEAR 256. WORDS, FROM WRFROM+10

RO,a#CLAREA
JSR
WRFROM+10
256.
<18.%40>!21.

0
0
0

041326

;SET R1-RHCS1, R2-RH(SZ2

;FOURTH DATA WORD

000000
000C00

JRESET STACK
;SAVE TEST NUMBER

;*FILL WRITE FROM BUFFER WITH HEADER

JSR

000004
010000
011025
000000
000000

SEQ 0134

135

27-JuL-78

s THIRD DATA WORD

;FOURTH DATA WORD

;*FILL WRITE

FROM BUFFER WITH NEXT TRACK DATA

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

%2>
. 64
;CLEAR 2 WORDS, FROM WRFROM+<2
. %2>
264
OM+<
WRFR
FROM
TING
;STAR
5
;2

WORD S

FILL 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
s *CHANGE WRITE FROM BUFFER.
031426
031432
031434
031436
031440
031442
031444
031446
031452
031454
031456
031460
031464
031466
031470

004037
003534

041302

JSR

REINTO

RO, a#F LHEAD

10000

618.*400>!<21.>

041326

041302

0
JSR

RO,a#CLAREA
REINTO*1O
256.
<18.%40>!21.
JSR
RO, a#FLHEAD
REINTO+<260.
%2>
/)

010001

10001

;SAVE HEADER DATA IN REINTO
;LOCATION WHERE SAVED

;NUMBER OF WORDS SAVED
JFIRST DATA WORD

. SECOND DATA WORD

;THIRD DATA WORD

;FOURTH DATA WORD

;CLEAR 256. WORDS, FROM REINTO+10
;STARTING FROM REINTO+10
;256. WORDS
JFILL WITH <18.%40>!21.
:SAVE HEADER DATA IN REINTO+<260.%*2>
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST

DATA WORD

[
Xen]

(ZRJICO, RPO4/S/6 FCTNL CTLRY
CZRJIC.PN
27-JUL-78 13:05

6031
6032
6033
6034
6035

031472
031474
031476
031500
031504
031506
031510

000000
000000
000000
004037
004554
000002
002000

MACYT1 30A(1052)

SEEK TESTS

27-JuUL-78

13:06

0
0

;SECOND DATA WORD
;THIRD DATA WORD

JSR
RO,a#CLAREA
REINTO+<264.+2>
2
2000

;CLEAR 2 WORDS, FROM REINTO+<264.*2>
:STARTING FROM REINTO+<264.42>
;2 WORDS
JFILL WITH 2000

041326

SEQ 0135

PAGE 136

;FOURTH DATA WORD

;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED
031512
031516
031520
031521
031522
031524
031526
031530
031532

004037

000000
025
022
177366
002470
000000
010000
002444

JSR

043430
.BYTE
.BYTE

0
21.

JSETUP TO RUN FOR DATA (COMMAND

RO, 3#RUN

;CYLINDER O
JSECTOR 21.

18.

;TRACK 18.

-262.-4

JWORD COUNT (DATA) = 262. +

WRF ROM

;BUS ADDRESS

;D0 NOT INHIBIT BUS ADDRESS INCREMENT

FMT22
WRIFOR

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

;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA1
031534
031540
031542
031544

004037
002272
004612
000022

041624

JSR
RHW(
SAVERE
18.

RO, I#SAVER

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

031546
031552
031556

004737

041536
066720

JSR

PC,a#(HECKT

vV - 1
DY
MOL ,DPR,DRY
;CHECK DVA,R

031560

013777

004606

MOV

a#RPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

031566
031572
031576
031602
031604

013746
052716
012677
011100
011305

002444
000101

MOV

BHWRIFOR,-(SP)

;GET READY TO MOVE (OMMAND

MOV
Mov

(SP)+,aRHCS1
aR1,R0

;GO WITH
;SAVE RH(CS1

104401
000000

TYPE
HALT
150500

BIS

150476

Mov

LCPHALT

#GO!IE, (SP)
aR3.R5

;*ONE REVOLUTION
031606
031610
031612
031614
031616
031620
031624
031630
031634
031636
031640
031644
031650
031652
031656

845.
MOV

010500
001124

;SAVE RHDS1 DURING ABOVE OPERATION

JALLOW 16950 MICRO SECONDS
SHWRIFOR,-(SP)

;RDY MUST SET BETWEEN
;SAVE COMMAND

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

RO, a#$BDDAT

;BAD DATA

(SP) ;INCLUDE IE'!GO!DVA
#I1E!GO!DVA,

cMpP
BEQ

(SP)+,RO
649

MOV
tRROR
MOV
MOV

R1,3#REGADR
;FAILING REGISTER RH(CS1
:DURING ABOVE OPERATION ONLY
21
#MOL !DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT

MOV
64%:

DURING ABOVE OPERATION

BIS

MOV

001126
004600

ANY OF

JGET READY TO SET 'GO' AND

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

1695.

002444
004101
001124

TESTING IF

16670 MICROT SEC, ONE SECTOR = 760 MICRO1 SEC

WAT
RHCS1
RDY

104413

002300
000200
003237
001515
013746
052716
011637
022600
001405
010037
010137
104021
012746
011637

;CANNOT CONTINUE
;STOP

;DURING ABOVE OPERATION ONLY IE.GO.DVA
;BRANCH IF GOOD

[aXa]

C2RJ1CO, RPO4/5/6 FCTNL CTLR]
CZRJIC.PTT
27~-JUL-78 13:05

(ZRJICO, RPO&/S/6 FCINL CTLRI
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

P
BEQ
MOV

001126
004500

MOV
ERROR

6N
13:06 PAGE

(SP)+ RS
66%

RS, a4$8DDAT

R3,a#REGADR
63

SEQ 0136

137

;DURING ABOVE OPERATION ONLY MOL.DPR.VV
sBRANCH [F GOOD
;BAD DATA
;FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

;*NOW C(HANGE SAVED REGISTERS TO EXPECTED VALUES
031700
031704
031706
031710
031714
031716
031720
031724
031726
031730
031734
031736
031740
031744
031746

JSR

RO,a#fF [LLRE

MOV 0 INTO SAVED RHW(C

JSR

RO,a#F ILLRE

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

JSR

RO.,a#F ILLRE

004037
002272
000000
004037
002274
003514
004037
002312

041360

004037
002334
000001
004037
002304
000001

041360

JSR
?HCC

RO,a#F JLLRE

041360

JSR

RO,a#F ILLRE

000001

SHUC

041360

RHBA
WRFROM+ <266, x2>

041360

RHCA
1

RHDST
1

:82¥ED REGISTER TO (CHANGE
JSAVED REGISTER TO CHANGE
:DATA

:MOV 1 INTO SAVED RMCA

;SAVED REGISTER TO CHANGE
;DATA

:MOV 1 INTO SAVED RHCC
;SA¥ED REGISTER TO CHANGE

;DATA

;MOV 1

INTO SAVED RMDST

;SAVED REGISTER TO CHANGE
;DATA

;*NOW COMARE REGISTERS BEFORE WRITE HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND

031762
031764

004037
004€12
002354
000022
031766
031772

031766
031770

104027
000207

031750
031754
031756

031760

JSR
SAVERE
w(
18.

0462644

RO, a#COMREG

;JRETURN 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
JRETURN TO 2% ON NO ERROR

JWRITE HEADER AND DATA

;CAUSED IMPROPER REGISTER

s CHANGE
;GOOD DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE AFTER COMMANT

;*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT
s *NOTHING GOT CHANGED
6133
6135

6137
6138
6139
6140
6141
6142

031772
031772
031776
032000
032002
032004
032006

004037
003534
002470
000412
032010
032014

032010
032012

000207

104030

043474

2%:

JSR

REINTO
WRF ROM

RO, a#COMPAR

266.

ERROR
RTS

;GOOD DATA STARTS FROM REINTO
JTEST DATA STARTS FROM WRFROM

;266. WORDS TO BE COMPARED
JRETURN TO 3$ ON ERROR

3¢:

; COMPARE TWO BLOCKS OF MEMORY

JRETURN TO 4% ON NO ERROR

;WRITE HEADER AND DATA

;CHANGED WRITE FROM BUFFER

“IRJICO, RPOL/S/6 FCTNL CTLR1
(ZRJIC.PIN
27-JUL-78 13:05
6143
6144
6145
6146

6147
6148
6149
6150
6151
6152
6153
6154
6155
6156
6157
6158
6159
6160
6161
6162

6163
6164

6165

6166

6167
6168
6169
6170
6171
6172

6173

6174
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185
6186
6187
6188
6189
6190
6191
6192
6193
6194
6195
6196
6197
6198

MACY11 30A(1052)

SEEK TESTS

27-JuL-78

H 1

13:06

SEQ 0137

PAGE 138

;*NOW A READ HEADER AND DATA (OMMAND WILL BE GIVEN
;*READ INTO BUTFER IS FILLED WITH ONES

032014
032014
032020
032026
032026
032030

004737
004037
003534
000404

004037
002470
000006
010001
000000
006000
000000
002000
002000
004037
002504
000376
000000

032070
032074
032076
032077

004037
000001
C00
000
177374
003534
00000¢C
014000
002450

032104
032106
032110

JSR
JSR

REINTO

PC.a#CLD]SK
RO,a#CLAREA

2?0.

177777

032032
032036
032040
032042
032044
032046
032050
032052
032054
032056
032062
032064
032066

032100
032102

061456
041326

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

:CLEAR 260. WORDS, FROM REINTO
:STARTING FROM REINTO
;260. WORDS
JFILL WITH -1

;*WRITE FROM BUFFER IS FILLED WITH 10001,0,0,0,2000,2000, AND 254 OF O
JSR
RO, a#FLHEAD
;SAVE HEADER DATA [N WRFROM
WRF ROM
;LOCATION WHERE SAVED
6
;NUMBER OF WORDS SAVED

041302

10001
0
0
0
2000
2000
RO,a#CLAREA
JSR
WRFROM+<6+2>

041326

854.

;*NOW FILL COMMAND

4SR

043430
.BYTE
.BYTE

RO, a#RUN

;FIRST DATA WORD

;SECOND DATA WORD
;THIRD DATA WORD
:FOURTH DATA WORD
;FIFTH DATA WORD
;SIXTH DATA WORD

JCLEAR 254. WORDS, FROM WRFROM+<6*2>
;STARTING FROM WRFROM+<6*2>
WORDS
:254.
SFILL WITH O
;SETUP TO RUN FOR DATA (COMMAND
;CYLINDER 1
JSECTOR O

0
0
=256.~4

;TRACK O

;DO NOT INHIBIT BUS ADDRESS INCREMENT

REFOR

;GET READY TO DO A REFOR

JWORD COUNT (DATA) - 256. +
;BUS ADDRESS

REINTO

ECI!FMT22

;16 BITS PER WORD FORMAT

;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA
032112
032116
032120
032122

004037
002272
004612
000022

041624

032124
032130
032134

004737
104401
000000

041536
066720

032136

013777

004606

032144
032150
032154
032160
032162

013746
052716
012677
011100
011305

002450
000101
150120

032164

1064413

JSR

RHW(

RO,a#SAVER

;STARTING ADDRESS OF

SAVERE
18.

JNUMBER OF REGISTERS

WHERE

JSR

PC,a#(HECKT
LCPHALT

;CHECK DVA,RDY,MOL,DPR,DRY,vv = 1
:g?ggOT CONTINUE TESTING IF ANY OF

MOV

B#RP4LVEC ,aRPVEC

;SET RPO4 VECTOR ADDRESS

Q¥REFOR,-(SP)

;GET READY TO MOVE COMMAND
;GET READY TO SET 'GO' AND
;G0 WITH
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

TYPE
HALT

150122

;SAVE REGISTERS
JRHWC IS THE FIRST REGISTER SAVED

MOV

BIS
MOV
MOV
Mov
WAT

#GO.1E, (SP)
(SP) +,aRH(CS1
aR1,RO
aR3,R5

JWAIT FOR RDY BIT

TO SET

(ZRJICO, RPO4/S/6 FCTINL CTLRI
CZRJIC.PN
27-JuL-78 13:05
6199

032166
032170
032172
032174
032176
032202

032226
032230
032234
032240
032242
032244
032250
032254

032256
032262
032264
032266
032272
032274
032276
032302
032304

002300
000200
001614
001507
013746
052716
011637
022600
001405
010037
010137
104021

012746
011637
022605
001405
010537
010337
104063

004037
002272
000000
004037
002274
004544
004037
002204
000001

032306
032312
032314
032316
032320
032322

004037
004612
002354
000022
032324
032330

032324
032326

104031
000207

MACY11

30A(1052)
27-JuUL-78
SEEK TESTS

13:06

PAGE 139

RHCS1
RDY

908.
839.

002450
004101
001124

010500
001124

CMP

(SP)+ R0

;DURING ABOVE OPERATION ONLY IE.GO'DVA

RO,a#$BDDAT

.BAD DATA

(SF) ,a48$GDDAT

; SAVE COMMAND
;INCLUDE IE!GO!DVA

;SAVE FOR PRINTOUT

BEQ

67%

MOV
ERROR
MOV

R1.,a#REGADR
;FAILING REGISTER RH(CS1
21
;DURING ABOVE OPERATION ONLY
#MOL !DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDSI

MOV

;BRANCH IF GOOD

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

RS .a#$BDDAT

:BAD DATA

(MP
BEQ

(SP)+ ,R5
69%

MOV
ERROR

R3,a#REGADR
63

MOV

001126
004600

JALLOW 9080 MICRO SECONDS
JRDY MUST SET BETWEEN

a#REFOR,~(SP)
#1E.GO!DVA,(SP)

MOV

67%:

JWAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RH(S!

MOV
BIS

MOV

001126
004600

SEQ 0138

;DURING ABOVE OPERATION ONLY MOL.DPR VV
;BRANCH IF GOOD
JFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
RO,a#F ILLRE
:MOV O INTO SAVED RHW(C

JSR

041360

SHUC

041360

;gA¥ED REGISTER TO CHANGE

JSR

RO,a4F ILLRE

JSR

RO,a#F ILLRE

RHBA
RE INTO+<260. %2>

041360

?HDST

.DA

;MOV REINTO+<260.%2> INTO SAVED RABA
;SAVED REGISTER TO CHANGE
;DATA

JMOV 1

INTO SAVED RHDST

;SA¥ED REGISTER TO CHANMGE
.DA

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

JSR

042444

SAVERE
W(

RO,a#COMREG

18.
5%
6%

5%:

ERROR
RTS

; 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

31
PC

;JREAD 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 GOGD

6254

032330
032330
032334
032336
032340

004037
002470
003534
000404

043474

6%:

JSR

WRFROM
REINTO

260.

RO, a#COMPAR

;COMPARE

TWO BLOCKS OF MEMORY

;GOOD DATA STARTS FROM WR, ROM
;TEST DATA STARTS FROM REINTO

;260. WORDS TO BE COMPARED

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

6255
6256
6257

6258
6259
6260
6261
6262

6263
6264

032342
032344

032346
032352

032346
032350

000207

032352

104032

MACY11

30A{1052)

SEEX TESTS

27-JuL-78

10%:

ERROR

RTS

SEQ 0139

JRETURN TO 78 ON ERROR
JRETURN TO 108 ON NO ERROR

78
108

7%:

J 1"
13:06 PAGE 140

:WRITE HEADER AND DATA
:FOLLOWED BY A READ HEADER

JAND DATA GAVE

A READ £RRIR

;ERRCR MAY BE IN READ OR WRITE

6265
6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
6292
6293
6294
6295
6296

032352
032354
032360
032366

000004
012706

012737
004737

001000
000943
041456

30A(1052)

SEEK TESTS
TST43:

27-JuL-78

SEQ 0140

SCOPE
MOV

#STACK,SP

JRESET STACK

JSR

PC,a#CLDISK

:SET R1=RH(CS1, RZ2-RH(CS?

MOV

004604

K 11
13:06 PAGE 141

N63,INTSTNM

;SAVE TEST NUMBER

;*THE FOLLOWING MOVES ARE

TO INITIALIZE

TEST FROM

:*CYLINDER O
;*THESE LOCATIONS ARE CHANGED DURING TEST TO ENABLE
;*GOING TO NEXT CYLINDER
032372
032400
032406
032414
032422
032430
032436
032444
032452
032460

012737
012737
012737
012737
012737
012737
012737
012737
012737
012737

010000
001125
010001
002000
000000
000001
000001
010001
002000
000001

032550
032570

MOV
MOV

#10000,a#ST71+410
#<<18.240>'21.>,a#5T2+10

MOV
MoV
MOV
MOV
MOV

#,aHSTE+6
#1,a45T6+16
#10001,a#S79+10
#2000,a#ST10+10
#1,345T11+4

MOV
MOV
MOV

032602
032622

032630
033040

033050
033132
033152
033172

#10001,a#ST73+10
#2000,a#ST4+10
#0,aNSTS5+4

;*THIS IS TO GET THE HEADS TO CYLINDER O
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

004606
002426
000101
147570

MOV
MOV
BIS
MOV

147572

MOV

WAT
RHDS1

000012
041456

DRY
31999.
24001.
MOV
JSR

001200
ST1

004037
002470
000004
010000
011025
000000
000000

041302

002500
000400
001125

aR1.R0O
aR3,RS

#10. ,a#8TMP1
PC.,a#CLDISK

;*FILL WRITE

041326

:SET RPQO4 VELTOR ADDRESS
:GET READY TO MOVE COMMAND
;GET READY TO SET 'GO' AND
;60 WITH

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

:WAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 319990 MICRO SECONDS
;DRY MUST SET BETWEEN
:TEN COUNT TO GET TO CYLINDER 10
;SET R1-RHCS1, R2-RHC(CS?2

FROM BUFFER WITH HEADER

JSR
RO, a#F LHEAD
WRFROM
4
10000
<18.%400>.21.
0

T2
004037

SH#RPLVEC ,BRPVEC
aWRECALI,=-(SP)
#GO'IE, (SP)
(SP)+,aRHCS1

;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
WRFROM+10
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

MACY11

CZRJICO, RPO4/S5/6 FCTNL CTLRT
CZRJIC.P1T
27-JuL-78 13:05

C(ZRJICO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PN
27-JUL-78 13:05
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6333
6334
6335
6336
6337
6338
6339
6340
6341
6342
6343
6344
6345
6346
6347

6348
6349
6350
6351
6352
6353
6354
6355
6356
6357
6358
6359
6360
6361
6302
6363
6364
6365
6366
6367
6368
6369
6370
6371
6372

6373
6374
6375
6376

032572
032572
032576
032600
032602
032604
032606
032610
032612
032612
032616
032620
032622
032624
032624
032630
032632

004037
003500

MACY11 30A(1052)
743

ST3:

041302

004037

ST4:

041326

STS:

043430

.BYTE
BYTE

JSR

RO, a#F LHEAD

;SAVE HEADER DATA IN WRFROM+<260.
*2>
cLOCATION WHERE SAVED
sNUMBER OF WORDS SAVED
;FIRST DATA WORD
;SECOND DATA WORD
:THIRD DATA WORD
;FOURTH DATA WORD

;*FILL WRITE FROM BUFFER WITH NEXT TRACK DATA

JSR
RO, a#CLAREA
WRFROM+<264 . 2>
2

;CLEAR 2 WORDS, FROM WRFROM+<264.+2>
;STARTING FROM WRFROM+<264
. %2>
;2 WORDS
JFILL WITH 1.%2000

;*THE WRITE HEADER AND DATA COMMAND WILL BE FILLED
JSR
0

RO, a#RUN

21.

;SETUP TO RUN FOR DATA (OMMAND
sCYLINDER O
;SECTOR 21.

-262.-4

JWORD COUNT (DATA) = 262.

18.

;TRACK 18.

WRFROM

;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT

FMT22
WRIFOR

002444

SEQ 0141

PAGE 142

SEEK & WRT TEST (CYL = 0-10)

1.%2000

032633
032634
032636
032640
032642
032644

L 1

13:06

WRFROM+<260.*2>
4
10001
0
0
0

000000

004037
003510
000002
002000

27-JUL-78

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

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA
032646
032652
032654
032656

004037
002272
004612
000022

041624

032660
032664
£22670

004737
104401

041536
06672C

032672

013777

004606

032700
032704
032710
032714
032716

013746
052716
012677
011100
011305

002444
000101
147364

000000

JER

RHW(
SAVERE

RO,a#SAVER

18.

JSR

TYPE

HALT

147366

;SAVE REGISTERS

JRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE

JNUMBER OF REGISTERS

PC,a#CHECKT
LCPHALT

;CHECK DVA,RDY
,MOL ,DPR,DRY,VV - 1

s CANNOT CONTINUE TESTING IF ANY Of
;STOP

MOV

A¥RP4LVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MoV

A#WRIFOR,-(SP)

;GET READY TO MOVE

MOV
MOV
MoV

(SP)+,3RHCS1
aR1.R0
aR3,R5

;GO WITH
;SAVE RHCS1
;SAVE RHDS1

BIS

#GO!IE, (SP)

COMMAND

;GET READY TO SET 'GO' AND

DURING ABOVE OPERATION
DURING ABOVE OPERATION

;*ONE REVOLUTION = 16670 MICRO SECONDS, ONE SECTOR = 760 MICRO SEC.
;*MAX TIME ALLOWED = ONE REVOLUTION + SEEK + 2 SECTORS
;*MIN TIME ALLOWED = 2 SECTORS + SEEK
032720
032722
032724
032726
032730

104413

002300
000200
003237
001515

WAT

RHCS1
RDY
1695.
845.

;WAIT FOR RDY BIT

TO SET

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

~NONWN

RRL
RN OV

ERROR

;*NOW CHANGES SAVED REGISTERS TO EXPECTED VALUES
033012
033016
033020
033022
033026
033030
033032
033032
033036
033040
033042
033046
032050
033052
033056
033060

004037
002272
000000
004037
002274
003514

041360

004037
002334
000001
004037
002312
000001
004037
002304
000001

041360

JSR

RO,a#F JLLRE

0
JSR

RO.,a#F ILLRE

RHW(

041360

RHBA

ST6:

WRFROM+<266.
%2>

JSR

RO,a#F JLLRE

JSR

RO,a#F ILLRE

JSR

RO,a#F ILLRE

?HCC

041360

qHCA

041360

RHDST
1

:MOV O INTO SAVED RHWC
:32¥£o REGISTER TO CHANGE

MOV WRFROM+<266.%2> INTO SAVED RHBA
*SAVED Reg‘l\flsn 70 CHANGE
;MOV 1 INTO SAVED RH(C(
;SAVED REGISTER TO CHANGE

.DATA

;MOV 1 INTO SAVED RHCA

;SAVED REGISTER TO CHANGE
;DATA
:MOV 1 INTO SAVED RHDST

:g:¥£0 REGISTER TO CHANGE

;*COMPARE REGISTERS BEFORE WRITE HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND
033062
033066
033070
033072
033074
033076
033100
033102

004037
004612
002354
000022
033100
033104
104027
000207

042444

JSR

SAVERE

RO, a#COMREG

Ww(

18.

ST7
ST7:

ST8

ERROR

RTS

27
PC

6424

; COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN ‘SAVERE'
;TEST DATA STARTING FROM 'RHWC'
;18. REGISTERS TO BE COMPARED
JRETURN TO ST7 ON ERROR
JRETURN TO ST8 ON NO ERROR
sWRITE HEADER AND DATA CAUSED
; IMPROPER REGISTER CHANGE

:$32250ATA GIVES WHAT SHOULD BE

JRECEIVED DATA GIVES WHAT WAS BE
s THERE AFTER COMMAND

;*SETUP TO READ HEADER AND DATA FOR NEXT TRACK
;*FILL READ INTO BUFFER WITH ALL ONES
033104
033104

004737

041456

ST8:

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(CSZ2

JFAILING REGISTER RHDS1
:DURING ABOVE OPERATION ONLY

;BRANCH IF GOOD
;BAD DATA

663
RS, a34$8DDAT
R3,3#REGADR

;DURING ABOVE OPERATION ONLY MOL!DPR!VV

BEQ
MOV
MOV

SET DURING OPERATION IN RHDS1

+ RS
(SP)

#MOL !DPR!VV,=(SP)
;SAVE BITS
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT

:DURING ABOVE OPERATION ONLY

MoV
MOV

cMp

00112¢
004600

JFAILING REGISTER RH(S1

64%:

ERROR

R1,3#REGADR

104063

010500
001124

CMP
BEQ

011637
022605
001405
010537
010337

MoV
MOV

MOV

104021
012746

001126
004600

BIS

@#WRIFOR,~(SP)
; SAVE COMMAND
(SP) s INCLUDE IE!GO.DVA
#1E!GO.DVA,
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT
(SP)+,RO
;DURING ABOVE OPERATION ONLY IE.GO.DVA
649
;BRANCH 1F GOOD
RO,a#$BDDAT
;BAD DATA

022600
001405
010037
010137

MOV

011637

002444
004101
001124

RRERRLLL E

6400
6401
6402
6403
6404
6405
6406
6407
6408
6409
6410
6411

032736
032742
032746
032750
032752
032756
032762
032764
032779
032774
032776
033000
033004
033010

013746
052716

6398

032732

czf
czi

6377
6378
6379
6380
6381
6382
6383
6384
6385
6386
6387
6388
6389
6390
6391
6392
6393
6394
6395
6396
6397

SEQ 0142

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

27-JUL-78 13:06 PAGE 143
MACY11 30A(1052)
T43
SEEK & WRT TEST (CyL = 0-10)

RO,a#CLAREA

2?0.

;CLEAR 260. WORDS, FROM REINTO
;STARTING FROM REINTO
:260. WORDS
JFILL WITH =1

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA

6447
6448

033166
033166
033172
033174
033175
033176
033200
033202
033204
033206

041302

004037
002500
000002
002000
004037
002504
000376
000000

041326

004037
000001
000
000
177374
003534
000000
014000
002450

ST9:

JSR

WRFROM

RO, a#F LHEAD

ST10:

10001
0
0
0

;FIRST DATA WORD

;SECOND DATA WORD
:THIRD DATA WORD

:FOURTH DATA WORD

JSR
RO,a#CLAREA
gRFROM+<4*2>

1+2000
JSR
RO,a#CLAREA
WRFROM+<6%2>
2564.
0

041326

ST11:

043430

.BYTE
.BYTE

:SAVE HEADER DATA IN WRFROM
sLOCATION WHERE SAVED
JNUMBER OF WORDS SAVED

wmilemle

6446

004037
002470
000004
010001
000000
000000
000000

6440
6441
6442
6443
6444
6445

: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

;*FILL COMMAND INTO REGISTERS
#SR

RO, a#RUN

.SETUP TO RUN FOR DATA COMMAND
sCYLINDER 1

;SECTOR O

0
0
-256.-4

:TRACK 0
;JWORD COUNT

;BUS ADDRESS

SEINTO

ECI'FMT22
REFOR

(DATA)

= 256.

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

;*SAVE REGISTERS FOR COMPARISON AFTER READ HEADER
;*AND DATA
033210
033214
033216
033220

004037
002272
004612
000020

041624

033222

004737
104401

041536
066720

033234

013777

004606

033242
033246
033252
033256
033260

013746
052716
012677
011100
011305

002450
000101

033226
033232

20C000

147022

JSR

RHWC
SAVERE
16.

:SAVE REGISTERS
JRHWC

IS THE FIRST REGISTER SAVED

;STARTING ADDRESS OF WHERE
;NUMBER OF REGISTERS

;CHECK DVA,RDY MOL.DPR,DRY,VV = 1
:CANgOT CONTINUE TESTING IF ANY OF
:STO

JSR
TYPE

PC.,a#CHE
KT
LCPHALTY

MOV

A#RPLVEC,IRPVEC ;SET RPO4 VECTOR ADDRESS

MOV
BIS
MOV
MOV

A#REFOR,-(SP)
#GO!IE, (SP)
(SP)+,@RH(CST
aR1.R0
aR3,R5

HALT

147024

RO,a#SAVER

MOV

caimtwleamiwloaiealelwlwlisi

JSR
REINTO

041326

SEQ 0143

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

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

bl
-

T43

13:06
PAGE 144
27-JuL-78
SEEK & WRT TEST (CYL = 0-10)

004037
003534
000404
177777

6433
6434
6435
6436
6437
6438
6439

MACY11 30A(1052)

-—

(ZRJICO, RPO4/S5/6 FCTNL CTLR
CZRJIC.P1N
27-JuUL~78 13:05

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

6489
6490
6491
6492
6493
6494
6495
6496
6497
6498
6499
6500
6501
6502
6503
6504
6505
6506
6507
6508
6509
6510
6511
6512
6513
6514
6515
6516
6517
6518
6519
6520
6521
6522
6523
6524
6525
6526
6527
6528
6529
6530
6531
6532
6533
6534
6535
6536
6537
6538
6539
6540
6541
6542
6543
6544

27-JuL-78 13:05

MACY11 30A(1052)
T43

8 12
27-JUL-78 13:06 PAGE 145
SEEK & WRT TEST (CyL = 0-10)
WAT
RHCST

033262
033264
033266
033270

RDY
908.
839.

MOV
BIS

002450
004101
001124

MOV

010500
001124

033352

@#REFOR,~(SP)
;SAVE COMMAND
(SP) . INCLUDE IE'!GO!DVA
#1E'GO!DVA,
(SP) ,a#SGDDAT

;SAVE FOR PRINTOUT

MOV
ERROR

R1,a#REGADR
21

;FAILING REGISTER RH(CS1
:DURING ABOVE OPERATION ONLY

MOV
cMP

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

;SAVE FOR PFINTOUT
;DURING ABOVE OPERATION ONLY MOL :DPR:VV

R3,a#REGADR
63

;FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

MOV

BEQ
MOV

001126
004600

JWAIT FOR RDY BIT IN RHCS1 REGISTER
JALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

(SP)+,RO

(MP

:
648

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

;DURING ABOVE OPERATION ONLY IE.GO!DVA

BEQ
MOV

001126
004600

SEQ 0144

MOV
ERROR

648
RO, a#$BDDAT

;BRANCH IF GOOD
:BAD DATA

#MOL 'DPR!VV,=(SP)
66$
RS, a#$BDDAT

;SAVE BITS SET DURING OPERATION IN RHDSI

;BRANCH IF GOOD
;BAD DATA

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
033354
033360
033362
033364
033370
033372
033374

041360

JSR

RO,a#F ILLRE

MOV 0 INTO SAVED RHWC

041360

JSR

RO,a#F ILLRE

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

SHUC

RHBA
RE INTO+<260. %2>
RO,a#F ILLRE
JSR
?HDST

041360

:g:¥§0 REGISTER TO CHANGE

;SAVED REGISTER TO CHANGE
;DATA
MOV 1 INTO SAVED RHDST
:g:¥ED REGISTER TO CHANGE

;*COMPARE REGISTERS BEFORE READ HEADER AND DATA WITH
;*REGISTERS AFTER COMMAND
004037
004612
002354
000022
033422
033426

18.

ST12:

104031

033432

033434

004037
002470
003534

RO, a#COMREG

043474

ST13:

ERROR

RTS

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

ST12
ST13

000207

033426
033426

JSR
SAVERE
W(

042444

JRETURN TO ST12 ON ERROR
JRETURN TO ST13 ON NO ERROR
31

;JREAD HEADER AND DATA CAUSED
; IMPROPER REGISTER CHANGE

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

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

6545

6546
6547
6548
6549
6550
6551
6552
6553
6554
6555
6556
6557
6558
6559
6560
6561
6562
6563
6564
6565
6566
6567
6568
6569
6570
6571
6572
6573
6574
6575
6576
6577
6578
6579
6580
6581
6582
6583
6584
6585
6586
6587
6588
6589
6590
659N
6592
6593
6594
6595
6596
6597
6598
6599
6600

033436
033440
033442
033444
033446

763

c 12
27~JUL-78 13:06 PAGE 146
SEEK & WRT TEST (CyL = 0-10)
260.
ST14
ST15

000404

033444
033450
ST14:

104032

000207

ERROR
RTS

:260. WORDS TO BE COMPARED
JRETURN TO ST14 ON ERROR
JRETURN TO ST15 ON NO ERROR
32

;WRITE HEADER AND DATA
;WITH AN IMPLIED SEEK

;FOLLOWED BY A READ

JHEADER AND DATA ON THE
JNEXT TRACK GAVE A
;READ ERROR

JERROR MAY BE READ OR WRITE
;~£?E HEADS HAVE ADVANCED ONE CYLINDER BY AN IMPLIED
K
M

:*CHANGES WILL BE MADE TO ENABLE GOING TO THE NEXT
:«CYLINDER AND THEN THE ABOVE WILL BE REPEATED
;«TILL CYLINDER 10 IS REACHED

005237
062737
005237
062737
005237
005237
005237
005237
062737
005237
005337
001001

032550
002000
032602
002000
032630
033040
033050
033132
002000
033172
001200

000137

032540

000402

INC
ADD
INC
ADD
INC
INC
INC
INC
ADD
INC
DEC

032570
032622

033152

ST16:

BNE
BR
JMP

a#sST1+10
#<1.22000>,a#572+410
a#ST3+10
#<1,.+2000>,a#S5T4+10
#ST5+4
aHSTH+6
#STO+16
a#ST9+10
#<1.+2000>,a4#ST10+10
a#ST11+4
ISTMPT
;sCOUNT FOR TEN TIMES

ST16
ST17
ST

JBRANCH 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
;*FILL REGISTERS FOR A SEEK COMMAND
033542
033542
033546
033552

004737
004037
000000

041456
041426

033554
033560
033562
033564

004037
002272
004612
000022

041624

033566

013777

004606

033574

013746
052716
012677
011100
011305

002452
000101
146470

ST17:

JSR

PC.,a#CLDISK

RO,a#SEEKCY

:SET R1-RHCS1, R2-RH(CS?2

:SEEK FOR

;CYLINDER O

;*SAVE REGISTERS FOR COMPARISON AFTER SEEK COMMAND

146472

JSR
RHWC
SAVERE
18.

RO.a#SAVER

MoV

A#RPLVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS

MOV

A#SEECOM,-(SP)

;GET READY TO MOVE COMMAND

MOV

(SP)+,aRH(ST

;GO WITH

BIS

MOV
MOV

#GO!IE, (SP)
aR1,RO
aR3.RS

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

;GET READY TO SET 'GO' AND
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

SEQ 0145

e Xe]

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

MACY11 30A(1052)

CZRJICO, RPO4L/S5/6 FCTNL CTLR1
CZRJIC.P1

27-JuL-78 13:05

MACY11 30A(1052)
T43

6601

6602
6603
6604
6605
6606

6607
6608
6609
6610
6611
6612
6613
6614
6615

6616

6617
6618
6619
6620

6621

225%

033614
033616
033620
033622
033624
033626
033632
033636
033642
033644
033646
033652
033656

033660

033664
033670
033672
033674

033700
033704

104413
002322
000200
015530
000043
013746
052716
011637
022600
001405
010037
010137
104021

012746

011637
022605
001405
010537

010337
104063

002452
004301
001124
001126
004600

030500

64%:

001124

001126

004600

033706
033712

004037
002334

041360

6629
6630
6631

033716
033724
033730

053737
004037
002322

004740
042336

033714

033732
033734
033736
033740
033744
033746
033750
033752

000000

000001
000001
100000
004037
002300
000001
000001
100000

6641
6642
6643

033754
033760

004037
004612

6645

033764

000022

6644

6646
222;
6649

6650

6651
6652
6653
gggg
6656

PAGE 147

SEQ 0146

BEQ
MOV
MOV
ERROR

648
RO, a#SBDDAT
R1,3#REGADR
21

;BRANCH [F GOOD
;BAD DATA
JFAILING REGISTER RHCS.
;DURING ABOVE OPERATION ONLY

MOV
Mp
BEQ
MOV

(SP) ,a#$GDDAT
(SP)+,R5
66%
RS ,a#$BDDAT

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY PIP.MOL DPR WV
;BRANCH IF GOOD
;BAD DATA

;DURING ABOVE OPERATION ONLY

MOV

ERROR

#PIP!MOL 'DPR!VV,=(SP)

R3.,3#REGADR

;SAVE BITS SET DURING OPERATION IN RHDS1

JFAILING REGISTER RHDS1

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE

6626
6627

6632
6633
6634
6635
6636
6637
6638
2228

13:06

SEEK & WRT TEST (CvL = 0-10)

;*SEEK FOR ONE CYLINDER=7MIL] SEC., FOR TEN=70 MILI SEC
WAT
;JWAIT FOR DRY BIT TO SET
RHDS1
;WAIT FOR RHDS1 REGISTER
sWAIT FOR DRY BIT IN RHDS1 REGISTER
DRY
7000.
JALLOW 70000 MICRO SECOMDS
35.
;DRY MUST SET BETWEEN
MOV
a#SEECOM,-(SP)
;SAVE COMMAND
; INCLUDE DVA!GO!IE'RDY
#DVA!GO!IE!RDY, (SP)
BIS
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
MOV
CMP
(SP)+,RO
;DURING ABOVE OPERATION ONLY DVA!GO.IE.RDY

ggsg
6628

27-JuUL-78

D 12

033762

033766
033770
033772
033774

JSR
RHCC

RO,a#F ILLRE

BIS
JSR
RHDS1

SHATTENT ,a#SAVERE +24
;SET APPROPRIATE ‘'ATA' BITS
RO, a#(CHREG
;CHANGE BITS IN SAVED REGISTER
;CHANGE RHDS1 REGISTER

004636

1
1
ATA
JSR
RHCS1
1
1
SC

042336

;MOV 0 INTO SAVED RHCC
;SAVED REGISTER TO CHANGE
.DATA

RO, a#CHREG

;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA ]S 1
s CHANGE ATA BIT
;CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS1 REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF SC IS 1
;CHANGE SC BIT

;*COMPARE REGISTERS AFTER A SEEK COMMAND
JSR
RO,a#COMREG
; COMPARE SAVED REGISTERS WITH
SAVERE
:GOOD DATA SAVED IN 'SAVERE'

042444

002354

;TEST DATA STARTING FROM ‘'RHWC'

033772
033776

ST18
ST19

JRETURN TO ST18 ON ERROR
JRETURN TO ST19 ON NO ERROR

104037

000207

18.

ST18:

ERROR

RTS

;18. REGISTERS TO BE COMPARED

;SEEK COMMAND CAUSED AN
. ERROR

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

TLR]

3:05

T43

6675

6676

SEQ 0147

PAGE 148

SEEK & WRT TEST (CyL = 0-10)

;*SECTOR 21 TRACK 18, EXPECTED DATA IS 1125
;*FOR 10 WORDS

;*CLEAR READ INTO BUFFER WITH ALL ONES

6661

6664
6665
6666
6667
6668
6669
6670
6671
6672
6673
6674

E 12

13:06

;*NO ERROR BITS
;*A READ HEADEN AND DATA WILL BE DONE ON CYLINDER O

6658
6659
6660
6662
6663

27-JUL-78

03377¢
033776

034002
034004
034006

034010
034014
034016
034020
034022
034024

6677

004037
003534
000404

ST19:

041326

RE INTO

041302

0
0

JSR

041326

RO, a#F LHEAD

RO,a#CLAREA

WRFROM+<4 , *2>

10.
<18.%40>!<21.>

JSR

RO,a#CLAREA

WRFROM+<14, 2>
246,

000366
177777

-1

JSR
0
21.

RO, a#RUN

18.

REFOR

013777

004606

034126

013746
052716
012677

002450
000101

034132
034134
034136
034140
034142

002300
000200
001614
001507

000000

034116
034122

104413

146146

:THIRD DATA WORD
:FOURTH DATA WORD

;CLEAR 10. WORDS, FROM WRFROM+<4,
+2>
:STARTING FROM WRFROM+<4
+2>
;10. WORDS
SFILL WITH <18.240>!'<21.>

;CLEAR 246. WORDS, FROM WRFROM+<14.
%2>
;STARTING FROM WRFROM+<14
. +2>
;246. WORDS

JFILL WITH -1

JSR

TXP;

PC,a#CHECKT
LCPHALT

HAL

146150

:SETUP TO RUN FOR DATA COMMAND
;CYLINDER O
JSECTOR 21,
JWORD COUNT (DATA) = 10. +

0
ECI!FMT2?
041536
066720

;LOCATJON WHERE SAVED
:NUMBER OF WORDS SAVED
JFIRST DATA WORD
;SECOND DATA WORD

;TRACK 18.

-10.-4

REINTO

104401

;SAVE HEADER DATA [N WRFROM

;*FILL READ HEADER AND DATA COMMAND FOR 10 WORDS

043430
.BYTE
.BYTE

004737

;STARTING FROM REINTO

;260. WORDS
JFILL WITH =1

WRFROM
4
10000
<18.%400>'<21.>

041326

004037

:CLEAR 260. WORDS, FROM REINTO

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA

JSR

010000

011025
000000
000000
004037

RO,a#CLAREA

260.
-1

1777277

004037
002470
000004

JSR

;BUS ADDRESS

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

;GET READY TO DO A REFOR

DY = 1
MOL ,DPR,DRY,VV
;CHECK DVA,R
:g?ggOT CONTINUE

TESTING IF

MOV

MRPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

MOV

@#REFOR,~(SP)

;GET READY TO MOVE COMMAND

MOV

(SP) +,3RHCS1

;GO WITH

BIS

#GO!IE, (SP)

;GET READY TO SET °'GO' AND

WAT
RHCS1T

;WAIT FOR RDY BIT TO SET
JWAIT FOR RHCS1 REGISTER

9908.
839.

JRDY MUST SET BETWEEN

RDY

ANY OF

;WAIT FOR RDY BIT IN RHCS1 REGISTER

JALLOW 9080 MICRO SECONDS

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

MACY11 30A(1052)

CZRJICO, RPO4/S5/6 FCTNL CTLR]
27-JuL-78 13:05
CZRJIC.P1
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

106032
000207

034166

MACY11

30A(1052)
143

F 12

;*CHECK READ WORDS

JSR

043474

WRF ROM
REINTO

RO, a#COMPAR

260.
ST26

ST127:

ERROR

RTS

;COMPARE TWwO BLOCKS OF MEMORY

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

;260. WORDS TO BE COMPARED
JRETURN TO ST26 ON ERROR

ST27

ST26:

SEQ 0148

13:06 PAGE 149
27-JuL-78
SEEK & WRT TEST (CYL = 0-10)

:RETURN

TO ST27 ON NO ERROR

;PEAD HEADER AND DATA

JFOLLOWING A SEEK TO CYLINDER O
JFROM CYLINDER 10 GAVE AN
;ERROR

6728
6729
6730
6731
6732
6733
6734
6735
6736
6737
6738
6739
6740
6741
6742
6743
6744
6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6760
6761
6762

6763
6764

6765
6766
6767
6768
6769
6770
6771
6772

6773

6774
6775
6776

6777
6778
6779
6780
6781
6782
6783

034166
034170
034174
034202

000004
012706
012737
004737

034206

MACY11

27-JuL-78

G 12

13:06

143

SEEK & WRT TEST

TST44:

SEQ 0149

PAGE 150

(CYL = 0-10)

001300
000044

004604

SCOPE
MOV
MOV

013777

004606

146052

MOV

SFRPLVE( ,aRPVEC ;SET RPO4 VECTOR ADDRESS

034214
034220
034224
034230
034232

013746
052716
012677
011100
011305

002426
000101

MOV

a#RECALI,~(SP)

MOV

(SP)+,3RHCST

034234
034236
034240
034262
0342644

104413

002322
000200
076377
056701

034246
034252

004037
000012

0461426

JSR
10.

034254
034260
034262
034264

004037
002272
004612
000022

041624

JSR
RHW(
SAVERE
18.

RO,a#SAVER

034266

013777

004606

mMov

A#RPSLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

034274
034300
034304
034310
034312

013746
052716
012677
011100
011305

002452
000101
145770

034314
034316
034320
034322
034324
034326
034332
034336
034342
034344
034346
034352
034356
034360
034364

104413

041456

PC,a#CLDISK

JRESET STA(K
;SAVE TEST NUMBER

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

;*THIS GETS HEADS TO CYLINDER 0

BIS

146050

MOV
MOV

;GET READY TO MOVE COMMAND

#GO!IE, (SP)

sGET READY TO SET

aR1,R0O
aR3,RS

:SAVE RHCS1 DURING ABOVE OPERATION
:SAVE RHDS1 DURING ABOVE OPERATION

;GO WITH

'GO' AND

WAT
RHDS1

JWAIT FOR DRY BIT TO SET
;JWAIT FOR RHDS1 REGISTER

31999.
24001.

SJALLOW 319990 MICRO SECONDS
;DRY MUST SET BETWEEN

JWAIT FOR DRY BIT IN RHDS1 REGISTER

DRY

;*FILL REGISTERS FOR A SEEK COMMAND
RO, a#SEEKCY

. SEEK FOR
;LYLINDER 10.

;*SAVE REGISTERS FOR COMPARISON AFTER SEEK COMMAND

1645772

MOV

BIS

MoV
MoV
MOV

Q#SEECOM,-(SP)

#GO!IE, (SP)

(SP)+,aRHCS1
aR1,R0
aR3,R5

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

;GET READY TO MOVE COMMAND

;GET READY TO SET 'GO' AND

;GO WITH
;SAVE RHCS1 DURING ABOVE OPERATION
:SAVE RHDS1 DURING ABOVE OPERATION

;*SEEK FOR ONE CYLINDER=7 MILI SEC., FOR TEN=70 MILI SEC

WAT

002322
000200
015530
000043
013746
052716
011637
022600
001405
010037
010137

002452
004301
001124

012746
011637

030500
001124

104021

JSR

#STACK,SP
64 ,ANTSTNM

RHDS1
DRY
7000.
35.

a#SEECOM,-(SP)

;DRY MUST SET BETWEEN
;SAVE COMMAND

MOV

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

CMP

#DVA.GO! I1E!RDY, (SP)

. INCLUDE DVA!GO!IE!RDY

(SP)+ RO

;DURING ABOVE OPERATION ONLY DVA.GO!IE.RDY

RO,a#$BDDAT

;BAD DATA

BEQ

67%

MOV
ERROR
MOV
MoV

R1,a#REGADR
JFAILING REGISTER RHCST
;DURING ABOVE OPERATION ONLY
21
#P1P!MOL 'DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION [N RHDS1
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT

MOV

67%:

JWAIT FOR RHDS1 REGISTER
;WAIT FOR DRY BIT IN RHDS1 REGISTER
JALLOW 70000 MICRO SECONDS

MOV

BIS

001126
004600

JWAIT FOR DRY BIT TO SET

;BRANCH [F GOOD

CZRJIICO, RPO&L/S5/6 FCTNL (TLRI
CZRJIC.PTN
27-JuL-78 13:05

30A(1052)

(ZRJICO, RPOL/S5/6 FCINL (TLRI
CZRJIC.P1I
27-JuL-78 13:05
6784

6785

6786
6787
6788
6789
6790
6791
6792
6793

034370
034372
034374
034400
034404

022605
001405
010537
010337
104063

MACY11

30A(1052)
T&é

H 12

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

Mp
BEQ
MOV
MOV
ERROR

001126

004500

SEQ 0150

13:06 PAGE 151
27=-JuUL-78
(CYL = 009)
TEST
SEEK & READ

;DURING ABOVE OFERATION ONLY PIP.MOL.DPR VV
;BRANCH [f GOOD
;JBAD DATA
JFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

;*NOW (HANGE SAVED REGISTERS TO EXPECTED VALUE

034406
034412
034414
034416
034424
034430
034432
034434
034436
034440
034444
034446
034450
034452

004037
002334
000012
053737
004037
002322
000001

041360

004037
002300
000001

042336

034454
034460
034462
034464
034466
034470

004037
004612
002354
000022
034472
034476

042444

034472
034474

000207

000001
100000

004740
042336

JSR

RO.,a#F ILLRE

BIS
JSR

INHATTENT ,Q#SAVERE +24
:SET APPROPRIATE ‘'ATA' BITS
RO,3#CHREG
;CHANGE BITS IN SAVED REGISTER

RHCC
10.

004636

RHDS1
1
1

JSR
RHCS1T

RO,a#(HREG

1
1
SC

;CHANGE ATA BIT

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

;*COMPARE REGISTERS AFTER A SEEK COMMAND

JSR

SAVERE

RO,a#COMREG

w(
18.
1%
2%

104037

INTO SAVED RHCC

;SAVED REGISTER TO C(HANGE
:DATA

;CHANGE RHDS1 REGISTER
;1 BIT/BITS TO BE (HANGED
JNEW VALUE OF ATA IS 1

ATA

000001
100000

;MOV 10.

1%:

ERROR

;GOOD DATA SAVED IN °SAVERE'

:TEST DATA STARTING FROM ‘RHW(C'
;18. REGISTERS TO BE COMPARED
JRETURN TO 1% ON ERROR
JRETURN TO 2% ON NO ERROR

RTS

; COMPARE SAVED REGISTERS WITH

;SEEK COMMAND CAUSED

;ERROR

;GO0OD DATA GIVES WHAT SHOULD
;BE THERE

JRECEIVED DATA GIVES WHAT WAS
;THERE AFTER A SEEK COMMAND

;*AT

THIS POINT

;*NO ERROR BITS

THE CURRENT CYLINDER IS GOOD AND THERE ARE

;%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
034476
034476
034502
034506
034510
034512

034514

034520

004737
004037
003534
000404

041456
041326

JSR
JSR
REINTO

PC.a#CLDISK
RO,a#CLAREA

260.

177777

004037
002470

2%:

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

;260. WORDS

-1

041302

;SET R1-RHCS1, R2-RH(SZ

JFILL WITH =1

J*FILL

WRITE FPOM BUFFER WITH EXPECTED DATA

JSR

RO, a#F LHEAD

WRFROM

;SAVE HEADER DATA IN WRFROM
;LOCATION WHERE

SAVED

—

(=P
o]

034522
034524
034526
034530
034532
034534
034540
0345642
034544
034546
034552
034554

000004
01001
011025

034556

177777

034560
034564
034566
034567
034570
034572
034574
034576
034600

004037

034602
034606
034612

004737
104401

041536
066720

034614

013777

004606

034622
034626
034632

013746
052716
012677

002450
000101

034636
034640

034642
034644
034646

104413
002300
000200
001614
001507

034650
034654
034656
034660
034662
034664

004037
002470
003534
000404
034666
034672

034666
034670

104032
000207

034672

MACY11 30A(1052)
T44

CZRJICO, RPO4/S5/6 FCTNL
CZRJIC.PY
27-JuL-78

27-JUL-78

I 12

13:06

PAGE 152

1001
<18.+400>.<21.>
0
0

JNUMBER OF WORDS SAVED
;FIRST DATA WORD

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

JSR
RO,a#CLAREA
;CLEAR 20. WORDS, FROM WRFROM+<4
%2>
WRFROM+<4, #2>
;STARTING FROM WRFROM+<4
. %2>
20.
;20. WORDS
<9.+2000>,.<18.+40>.<21.>
JFILL 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>
250.
:250. WORDS

041326

JFILL WITH <1

-1

;*FILL READ HEADER AND DATA COMMAND FOR 10 WORDS

043430
BYTE
.BYTE

JSR
9.

RO, a#RUN

;TRACK 18,

=20.=4

;WORD COUNT (DATA) = 20.

;BUS ADDRESS

ECI.FMT2?2

014000
002450

REFOR

145442

TO DO A REFOR

MOV

a#RP4LVEC ,aRPVEC

;SET RPO4 VECTOR ADDRESS

MOV
BIS

SH#REFOR,-(SP)
#GO. IE, (SP)

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

(SP) +,aRHCS1

WRFROM
RE INTO

RO, a#COMPAR

260.
3%
43

ERROR
RTS

TESTING

TO SET

;COMPARE

TWO BLOCKS OF MEMORY

;GO0OD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

:260. WORDS TO BE COMPARED
JRETURN TO 3% ON ERROR
:RETURN TO 4% ON NO ERROR
32
PC

ANY OF

GO WITH

JWAIT FOR RHCS1 REGISTER
JWAIT FOR RDY BIT IN RHCS1
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

. *CHECK READ WORDS

JSR

;CANNOT CONTINUE
;STOP

:WAIT FOR RDY BIT

RHCST
RDY
908.
839.

A ¥

:GET READY

;CHECK DVA,RDY,MOL ,DPR,DRY,VV

LCPHALT

WAT

3%:

INHIBIT BUS ADDRESS INCREMENT

;16 BITS PER WORD FORMAT

PC.,a#CHECKT

MOV

043474

;DO NOT

¢+

JSR

TYPE
HALT
145444

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 9.

;SECTOR 21.

18.

REINTO

000000

SEQ 0151

SEEK & READ TEST (CyL = 009)

;READ HEADER AND DATA
;FOLLOWING A SEEK TO CYLINDER O
;FROM CYLINDER O GAVE AN

.ERROR

(ZRJICO, RPO&L/S5/6 FCINL CTLR)

CZRJIIC.P1
6896
6857

27-JuL-78 13:05

MACY11 30A(1052)
T44

27-JuL-78

J 12

13:06

PAGE 153

SEEK & READ TEST (CyL = 009)

SEQ 0152

(ZRJICO, RPO4L/5/6 FCINL (TLRI
(ZRJIC.PN
27-JuL-78 13:05
6858
6899

K 12
MACY11 30A(1052)
27-JUL-78
13:06 PAGE 154
WRITE C(HECK DATA € WRITE PROTECT TESTS

.SBTTL

WRITE CHECK DATA & WRITE PROTECT TESTS

SEQ 0153

CZRJICO, RPO&/S5/6 FCTNL CTLR1
CZRJIIC.P1
27-JuL-78 13:05
6900
6901
6902
6903
6904
6905
6906
6907
6908
6909
6910
6911
6912
6913
6914
6915
6916
6917
6918
6919
6920
6921
6922
6923

034672
034674
034700
034706
034712
034716
034722

000004
012706
012737
004737
004737
104401
000000

034724
034730

004037
000005

041426

034732

013777

004606

034740
034744
034750
034754
034756

013746
052716
012677
011100
011305

002452

034760
034762
034764
034766
034770
034772

104413
002322
000200
015530
000043
004737

034776
035002
035004
035006
035010
035012
035014

004C37
002470
000004
010005
003404
000000

001000
000045
041456
041536
066720

000101
145324

MACY11 30A(1052)

004604

27-JUL-78

L 12
13:06 PAGE i55

T45

WRITE CHECK HEADER AND DATA

TST4S:

SCOPE
MoV

SP
#STACK,

JSR
JSR

PC,a#CLDISK
PC,a#CHECKT

MOV

TYPE
HALT

#45 ,BNTSTNM
LCPHALT

041392

;SET R1-RHCS1, RZ2-RH(SZ2

1
:g?ggOT CONTINUE TESTING IF ANY OFf
;CHECK DVA,RDY,MOL,DPR,DRY,VV

;*GET HEADS TO CYLINDER 5
RO,a#SEEKCY
;SEEK FOR
;CYLINDER 5

145326

MOV
MOV

BIS
MOV
MoV
MOV

IHRPSLVEC ,aRPVEC(

;SET RPO4 VECTOR ADDRESS

Q#SEECOM,-(SP)

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

#GO!IE, (SP)
(SP) +,aRHCS1
aR1,R0O
aR3.RS

7000.
35.
JSR

;G0 WITH

;SAVE RHCS1 DURING ABOVE OPERATICN

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

JWAIT FOR DRY BIT IN RHDS! REGISTER

PC,a#CLDISK

JALLOW 70000 MICRO SECONDS
;DRY MUST SET BETWEEN
;SET R1-RHCS1, R2-RH(SZ2

;*FILL WRITE FROM BUFFER WITH HEADER
RO,
a#F LHEAD
;SAVE HEADER DATA IN WRFROM

JSR
WRFROM

;LOCATION WHERE SAVED

10005
<7*400>.4

0
0

000000

STA(K

JSAVE TEST NUMBER

%SR

WAT
RHDS1
DRY

041456

JRESET

SEQ 0154

;NUMBER OF WORDS SAVED
;FIRST DATA WORD

- SECOND DATA WORD

;THIRD DATA WORD

;FOURTH DATA WORD

;*10 WORDS OF OF THE FOLLOWING DATA

;% 12344,17777,0,52525,125252

035016
035022
035024
035026
035030
035034
035036
035040
035042
035046
035050
035052
035054
035060
035062
035064
035066

004037
002500
000012
012344
004037
002524
00001¢
177777
004037
002550
000012
000000

004037
002574
000012
052525
004037

041326

RO,a#CLAREA
JSR
#gFROM+<4*2>
<5%2000>!<7%40>'4
RO,a#CLAREA
JSR
%2>
WRFROM+<14
10.
-1

RO,a#CLAREA
JSR
. %2>
WRFROM+<24
10.
0
RO,a#CLAREA
JSR
¥8FROM+<34.*2>

52525
JSR

RO,a#CLAREA

;CLEAR 10. WORDS, FROM WRFROM+<4x2>
;STARTING FROM WRFROM+<4x2>
:10. WORDS
SFILL WITH <5%2000>!<7240>'4
:CLEAR 10. WORDS, FROM WRFROM+<14.%2>
:STARTING FROM WRFROM+<14
. %2>
:10. WORDS
SFILL WITH =1
4
. %2>
;CLEAR 10. WORDS, FROM WRFROM+<2
%2>
:STARTING FROM WRFROM+<24
:10. WORDS
JFILL WITH O
4
. *2>
:CLEAR 10. WORDS., FROM WRFROM+<3
:STARTING FROM WRFROM+<34.*2>
:10. WORDS
JFILL WITH 52525

+2>
. 44
:CLEAR 10. WORDS, FROM WRFROM+<

MACY11 30A(1052)

CZRJICO, RPO4/S5/6 FCTNL
CZRJIC.P "
27-JuL~-78
6956
6957

035072
035074
035076

T45

27-JUL-78

¥8FROM+<44.'2>

002620
000012

125252

SEQ 0155

13:06 PAGE 156
WRITE CHECK HEADER AND DATA

«2>
. 44
;STARTING FROM WRFROM+<

:10. WORDS
JFILL WITH 125252

;*FILL LEFT ROTATING ZEROS FROM WRFROM+<54.#2>
035100
035102
035106
035112
035116
035120
035122
035124
035126

010146
012700
012705
012701
000261
010021
006100
005305
001374

177776
000020
002644
1%:

MOV
MOV
0%
ggg

R1,-(SP)
;.PUSH R1 ON STACK
#177776,R0
:DATA
. COUNT
#16. ,R5
WWRFROM+<54. *2>,RT ;WHERE DATA GOES

MOV
ROL

RO, (R1)+
RO

DEC
BNE

RS
1%

;STORE DATA
;GET ZERO ONE BIT LEFT
;COUNT 16
;BRANCH IF 16 NOT DONE

%2>
s«FILL LEFT ROTATING ONE INTO WRFROM+<65.
035130
035132
035136
035140
035142
035144

000241
012700
010021
006300
103375
012601

000001

CLC

2%:

MOV
MOV
ASL
8CC
MOV

#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

004C37
002744

RO,a#CLAREA
JSR
WRFROM+<86.
%2>
174.
377
JSR
RO,
a#F LHEAD
2RFROM+<260.*2>

041326

000256

000377
004037
003500
000004
010005
003405
000000
000000
004037
003510
000002
012345

035212
035216
035220
035222

004037
003534
000412

035224
035230
035232
035233

004037
000005
004
007

041302

10005

<7x400>!'5

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

041326

<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 [N WRFROM+<260.*2>

;LOCATION WHERE SAVED
WORDS SAVED
OF
;NUMBER
;FIRST

DATA WORD

- SECOND DATA WORD

;THIRD DATA WORD

;FOURTH DATA WORD
. %2>
;CLEAR 2 WORDS, FROM WRFROM+<264

;2 WORDS

%2>
., 64
:STARTING FROM WRFROM+<2

JFILL WITH <5%2000>.<7%40>!5

;*READ INTO BUFFER WILL BE CLEARED

JSR

041326

REINTO

266.
177400

177400

RO,a#CLAREA

;CLEAR 266. WORDS, FROM REINTO
;STARTING FROM REINTO
:266. WORDS
JFILL WITH 177400

;*THE WRITE HEADER AND DATA COMMAND WILL BE LOADED
RO, a#RUN
gSR
;SETUP TO RUN FOR DATA (COMMAND

043430
.BYTE
.BYTE

;CYLINDER S
:SECTOR 4

;TRACK 7

cZl
czl

CZRJICO, RPO4L/S/6 FCTNL CTLR]
CZRJIC.P1
27-JuL-78 13:05
7012
7013
7014
7015
7016
7017
7018
7019
7020
7021
7022

7023

7024
7025
7026
7027
7028
7029
7030
7031
7032
7033
7034
7035
7036
7037
7038
7039
7040
7041

7042
7043
7044

7045
7046

7047
7048
7049

7050
7051
7052

7053
7054
7055
7056
7057
7058
7059
7060
7061
7062
7063
7064
7065
7066
7067

035234
035236
035240
035242
035244

MACY11

30A(1052)
145

27-JUL=-78

N 12
13:06 PAGE 157

WRITE CHECK HEADER AND DATA

-262.-4

177366
002470
000000
010000
002444

SEQ 0156

;WORD COUNT (DATA) - 262. +

WRFROM

;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT

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

FMT22
WRIFOR

;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRiTE HEADER AND DATA
035246
035252
0352564
035256

004037
002272
004612
000022

041624

JSR
RHW(C
SAVERE
18.

RO,a#SAVER

035260
035264
035270

004737

041536
066720

JSR

PC.,a#CHECKT

035272

013777

004606

035300
035304
035310

013746
052716
012677

002444
000101

035314
035316
035320
035322
035324

104413

035326
035332
035334
035336
035342
035344
035346
035352
035354

104401
000000

TYPE

HALT

144766

004037

002272
000000
004037
002274
003514
004037
002304
003406

MOV

a#WRIFOR,-(SP)

;GET READY TO MOVE COMMAND

MOV

(SP)+ ,aRHCS1

;GO WITH

#GO!IE, (SP)

SAVED REGISTERS TO EXPECTED VALUES

JSR

RO,a#F ILLRE

:MOV O INTO SAVED RHWC

JSR

RO,a#FILLRE

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

JSR

RO,a#F ILLRE

SHUC

RHBA
WRFROM+<266. %2>

041360

'GO’ AND

;ALLOW 9860 MICRO SECONDS
;RDY MUST SET BETWEEN

:*NOW CHANGE

041360

:GET READY TO SET

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

986.
834.

041360

;STOP

SHRPLVE(C ,aRPVEC :SET RPO4 VECTOR ADDRESS

WAT
RHCS1
RDY

002300
000200
001732
001502

;CHECK DVA,RDY,MOL ,DPR,DRY,vV - 1

;CANNOT CONTINUE TESTING [F ANY OF

MOV
8IS

144764

JCPHALT

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

RHDST
3406

:g:¥§0 REGISTER TO CHANGE

: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
035356
035362
035364
035366
035370
035372

004037
004612
002354
000022
035374
035400

035374
035376

000207

104027

JSR
SAVERE

042444

RO,a#CGMREG

;TEST DATA STARTING FROM ‘RHWC®

18.
38
4%

3%:

ERROR
RTS

;COMPARE SAVED REGISTERS WITH
;GOOD DATA SAVED IN 'SAVERE'
;18. REGISTERS TO BE COMPARED
;RETURN TO 3% ON ERROR
JRETURN TO 43 ON NO ERROR

27
PC

JWRITE HEADER AND DATA
;CAUSED IMPROPER REGISTER
; CHANGE
;GO0D DATA GIVES WHAT SHOULD
;BE

THERE

;RECEIVED DATA GIVES WHAT

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JUL-78 13:05
7068
7069
7070
7071
7072
7073
7074
7075
7076
7077
7078
7079
7080
7081
7082
7083
7084
7085
7086

7087
7088
7089
7090
7091
7092
7093
7094
7095
7096
7097
7098
7099
7100
101
7102
7103
7104
7105
7106
7107
7108
7109
7110
7111
7112
7113
7114
7115
7116
7117
7118
7119
7120
7121
7122
7123

MACY11 30A(1052)
145

27-JUL-78

B8 13
13:06 PAGE 158

SEQ 0157

WRITE CHECK HEADER AND DATA

;WAS THERE AFTER COMMANT

;*NOW FILL COMMAND FOR READ
035400
035400
035404
035410
035412
035413
035414
035416
035420
035422
035424

041456
043430

.BYTE
.BYTE

JSR
JSR
5

PC.a#CLDISK
RO, a#RUN

4
7

;SET R1-RH(S1, R2-RH(S?2
;SETUP TO RUN FOR DATA (COMMAND
;CYLINDER 5
;SECTOR 4
;TRACK 7

-262.-4

JWORD COUNT (DATA) = 262. +

REINTO

;BUS ADDRESS

;DO NOT INHIBIT BUS ADDRESS INCREMENT

REFOR

;GET READY TO DO A REFOR

ECI'FMT2?2

;16 BITS PER WORD FORMAT

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

035432
035434
035436

041624

JSR
RHW(
SAVERE
18.

RO, a#SAVER

JSR

PC,a#CHECKT

MOV

@#RP4LVEC,IRPVEC ;SET RPO4 VECTOR ADDRESS

MOV

a#REFOR,-(SP)

;GET READY TO MOVE COMMAND

rov

(SP) +,a8RHCS1

;GO WITH

035440
035444
035450

004737

041536
066720

035452

013777

004606

035460
035464
035470

013746
052716
012677

002450
000101
144604

035474
035476
035500
035502
035504

104413
002300
000200
001732
001502

104401
000000

TYPE
HALT
144606

8IS

JCPHALT

#GO!IE, (SP)

WAT
RHCS

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

;CHECK DVA,RDY,MOL ,DPR,DRY,VV - 1

;CANNOT CONTINUE TESTING IF ANY OF
;STOP

;GET READY TO SET °'GO' AND
;JWAIT FOR RDY BIT TO SET
JWAIT FOR RHCS1 REGISTER

;WAIT FOR RDY BIT IN RHCS1 REGISTER
JALLOW 9860 MICRO SECONDS
JRDY MUST SET BETWEEN

RDY
986.
834.

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
035506
035512
035514
035516
035522
035524
035526
035532
035534

004037
002272
000000
004037

041360

JSR
SHUC

RO,a#F ILLRE

041360

JSR

RO,a#F ILLRE

JSR

RO,a#F ILLRE

041360
003406

RHBA
REINTO+<266. %2>
RHDST
3406

:MOV 0 INTO SAVED RHWC
:3A¥ED REGISTER TO CHANGE
;DA

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

;MOV 3406 INTO SAVED RHDST
;SAVED REGISTER TO CHANGE
;DATA

;*COMPARE REGISTERS BEFORE READ HEADtr AND DATA
;*WITH REGISTERS AFTER COMMAND
035536

004037

042444

JSR

RO,a#COMREG

; COMPARE SAVED REGISTERS WITH

7124
7125
7126
7127

035542
035544
035546
035550
035552

004612
002354
000022
035554
035560

035554
035556

000207

T45

27-JUL-78

WRITE

c 13
13:06 PAGE 159

CHECK HEADER AND DATA

SAVERE
w(

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

18.
5%
6%

5%:

104031

SEQ 0158

ERROR
RTS

;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
000412
035576
035602

035576
035600

104032
000207

043474

6%:

JSR
WRFROM

RO, a#(OMPAR

REINTO
266.
7%

sTEST DATA STARTS FROM REINTO
;266. WORDS TO BE COMPARED
JRETURN TO 7% ON ERROR

10%

7%:

ERROR
RTS

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

JRETURN TO 108 ON NO ERROR

JWRITE HEADER AND DATA

FOLLOWED BY A READ HEADER

;AND DATA GAVE A READ ERROR
JERROR MAY BE

IN READ OR WRITE

;%A WRITE _READ HAS BEEN SUCCESSFULLY COMPLETED
;*NOW A WRITE (HECK HEADER AND DATA WILL BE GIVEN
J*FILL THE WRITE CHECK HEADER AND DATA
035602
035602
035606
035612
035614

7167
7170
72171

7172
7173
7174
7175
7176
7177
7178
7179

035615
035616
035620
035622
035624
035626

004737
004037
000005

041456
043430

10%:

.BYTE
.BYTE

JSR
JSR
5

PC.,a#CLDISK
RO,a#RUN

:SECTOR &

;TRACK 7

-262.-4

:WORD COUNT (DATA) = 262. +

WRFROM

0
ECI'FMT22
WRCHDT

002440

:SET R1-RHCS1, R2-RH(CS?2
;SETUP TO RUN FOR DATA COMMAND
:CYLINDER S

;BUS ADDRESS

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

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK
035630
035630
035634
035636
035640

004037
002272
004612
000022

041624

035642

004737

041536

ST25:

JSR
RHWC
SAVERE
18.

RO,a#SAVER

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

JSR

PC,a#CHECKT

;CHECK DVA,RDY,MOL,DPR,DRY,VV

MACY11 30A(1052)

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

CZRJICO, RPO4/5/6 FCTNL CTLRY

CZRJIC.P1
7180
7181
7182
7183
7184
7185
72186
7187
7188
7189
7190
7191
7192

7193
7194
7195
7196
7197
7198
7199
7200
7201
7202
7203
7204
7205
7206
7207
7208
7209
7210
7211
7212
7213
7214
7215
7216
7217
7218
7219
7220
7221
7222

7223

7224
7225
7226
7227
7228
7229
7230
7231
7232

7233
7234
7235

27-JuUL~-78 13:05

035646
035652

000000

104401

066720

035654

013777

004606

035662
035666
035672
035676
035700

013746
052716
012677
011100
011305

002440
000101

035702
035704
035706
035710
035712
035714
035720
035724
035730
035732
035734
035740
035744
035746
035752
035756
035760
035762
035766

035772

MACY11 30A(1052)
T45

144404

S#RPLVEC ,a8RPVEC ;SET RPO4 VECTOR ADDRESS

MOV

a#MWRCHDT ,-(SP)

;GET READY TO MOVE COMMAND

MOV
MOV

(SP) +,aRH(ST
aR1,R0

;GO WITH
;SAVE RHCS1

RDY
986.

001732

104021
012746
011637
022605
001405
010537
010337
104063

MoV

#GO'IE, (SP)
aR3,R5

WAT
RH(CS1

000200

010137

LCPHALT

MOV

104413

002440
004101
001124

010500
001124

;GE1 READY TO SET

°'GO' AND

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
JALLOW 9860 MICRO SECONDS

BEQ

(SP)+,RO
6493

MOV
ERROR
MOV

R1.,a#REGADR
JFAILING REGISTER RH(CS1
;DURING ABOVE OPERATION ONLY
21
#MOL 'DPR!VV,~-(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1

MOV

CMP
BEQ

001126
004600

;STOP

AMWRCHDT ,-(SP)

MOV

64%:

;CANNOT CONTINUE TESTING [F ANY OF

834.
MoV

BIS
Mov
CMP

001126
004600

SEQ 0159

TYPE

BIS

144402

D 13
13:06 PAGE 160

WRITE CHECK HEADER AND DATA
HALT

002300

001502
013746
052716
011637
022600
001405
010037

27-JUL~-78

JRDY MUST SET BETWEEN
;SAVE COMMAND
#1E.DVA!GO,
(SP) ;INCLUDE IE:DVA!GO
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
RO,a#$BDDAT

(SP) ,a#$GDDAT

;BRANCH IF GOOD
;BAD DATA

;SAVE FOR PRINTOUT

(SP)+ RS
66%

;DURING ABOVE OPERATION ONLY MOL.DPR!'VV
;BRANCH IF GOOD

R3,a#REGADR

JFAILING REGISTER RHDS1

MOV

RS5.,a#$8DDAT

ERROR

MOV

:DURING ABOVE OPERATION ONLY IE.DVA!GO

;BAD DATA

;DURING ABOVE OPERATION ONLY

;«CHANGE SAVED REGISTERS TO £XPECTED VALUES
035774
036000
036002
036004
036010
036012
036014
036020
036022

004037
002272
000000
004037
002274
003514

JSR

041360

SHUC

JSR

041360

RHBA

RO.,a#F ILLRE
RO,a#F JLLRE

WRFROM+<266. %2>

JSR

041360

RHDST
3406

RO,a#F ILLRE

;MOV O INTO SAVED RHW(C

;SA¥SD REGISTER TO CHANGE
:DA

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

:SAVED REGISTER TO CHANGE
.DATA

MOV 3406 INTO SAVED RHDST

:SAVED REGISTER TO CHANGE
.DATA

;*COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND

036024
036030
036032
036034
036036
036040

004037
004612
002354
000022
036042
036046

036042
036044

104040
000207

JSR

042444

SAVERE
WC

RO, a#COMREG

18.

ERROR

RTS

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

REGISTERS TO Bt COMPARED

JRETURN TO 8% ON ERROR
JRETURN TO 9% ON NO ERROR

8%
9%
8%:

;COMPARE SAVFD REGISTERS WITH

40
PC

;WRITE CHECK CAUSED

;AN IMPROPER REGISTER

MACY11

E 13

30A(1052)
27-JuL-78
13:06
PAGE 161
745
WRITE CHECK HEADER AND DATA

7236

. CHANGE

7237
7238
7239
7240
72461

7242
72643

SEQ 0160

;GOOD DATA GIVES WHAT
JSHOULD BE THERE

JRECEIVED DATA GIVES WHAT

;WAS

036046

9 :

THERE

AFTER

COMMAND

~eo
|

(ZRJICO, RPO4/ 5/6 FCINL CTLR1
CZRJIC.PT
27-JuL~-78 13:05

(2RJICO, RPO4/5/6 FCTINL CTLRI
CZRJIC.PIN
27-JUL-78 13:05
7244

7245
7246
7247

7248
7249
7250

7251
7252
7253
7254
7255
7256
7257
7258
7259
7260
7261
7262
7263
7264
7265
7266
7267
7268
7269

7270

036046
036050
036054
036062
036066
036072
036076

000004
012706

012737
004737
004737
104401

000000

001000
000346
041456
041536
066720

MACY11 20A(1052)
145

TST46:

004604

27-JUL-78

WRITE

F 13

13:06

SEQ 0161

PAGE 162

CHECK HEADER AND DATA

SCOPE

MO
MOV

#STACK ,SP
#66,a8TSTNM

TYPE
HALT

JCPHALT

JSR
JSR

PC.a#CLDISK
PC.,a#CHECKT

;RESET STACK
;SAVE TEST NUMBER

:SET R1=-RH(S1, R2=-RH(CSZ
DY = 1
MOL ,DPR,DRY,VV
:CHECK DVA,R
;CANNOT CONTINUE
;STOP

TESTING [F

ANY Ot

:*GET HEADS TO CYLINDER 5
036104

004037

000005

061426

036106

013777

004606

036114
036120

036124

013746
052716
012677

00245¢2
000101

036130
036132
036134
036136
036140

104413
002322
000200
004704
004704

036142

004737

036100

144150

RO, a#SEEKCY

MOV

A¥RPLVEC ,a8RPVEC ;SET RPO4 VECTOR ADDRESS

MOV

Q#SEECOM,-(SP)

144152

BIS
MOV

#GO.IE, (SP)
(SP)+,aRH(CS1

;CYLINDER S

;GET READY TO MOVE

:GET READY TO SET
;G0 WITH

(OMMAND

'GO' AND

WAT
RHDS1

;WAIT FOR DRY BIT TO SET
sWAIT FOR RHDS1 REGISTER

2500.
2500.

;DRY MUST SET BETWEEN

DRY

047456

;SEEK FOR

JSR

:WAIT FOR DRY BIT IN RHDS1 REGISTER

JALLOW 25000 MICRO SECONDS

PC.a#CLDISK

:SET R1-RH(CS1, R2-RH(CS?Z

;%10 WORDS OF EACH 12344,17777,0,52525,125252
036146
036152
036154
036156
036160
036164
036166
036170
036172
036176
036200

036214
036216
036222

004037
002470
000012
012344
004037
002514
000012

041326

004037
002540
000012
000000
004037
002564
000012
052525
004037

041326

177777

JSR

WRFROM

RO,a#CLAREA

10.

041326

036224
036226

<5%x2000>'<7%40>'4
JSR
RO,a#CLAREA
WRFROM+<10, %2>
10.

;CLEAR 10. WORDS, FROM WRFROM
;STARTING FROM WRFROM

:10. WORDS

SFILL WITH <5%2000>1<7240>!4
;CLEAR 10. WORDS, FROM WRFROM+<10.
%2>
:STARTING FROM WRFROM+<10.+2>

;10. WORDS
JFILL WITH -1

10.

;10. WORDS

JSR
RO,a#CLAREA
WRFROM+<20., %2>
0
JSR
RO,a#CLAREA
WRFROM+<30, %2>
10.
52525
JSR
RO,a#CLAREA
WRFROM+<40. %2>
10.

125252

:CLEAR 10. WORDS, FROM WRFROM+<20Q.*2>
:STARTING FROM WRFROM+<20.%2>

SFILL WITH O
;CLEAR 10. WORDS.,
:STARTING
;10. WORDS
SFILL WITH 52525
;CLEAR 10. WORDS,
:STARTING
:10. WORDS

FROM WRFROM+<30.*2>
FROM WRFROM+<30.x2>
FROM WRFROM+<40Q.
2>
FROM WRFROM+<40.+2>

SFILL WITH 125252

;*FILL LEFT ROTATING ZEROS FROM WRFROM+<50.*2>
036230
036232
036236

177776

000020

MOV
MOV
MoV

R1,-(SP)
#177776,R0
#16..RS

;.PUSH R1 ON STACK
;DATA
; COUNT

7300
7301

7302

7303
7304

7305

7306
7307
7308
7309
7310
7311
7312
7313
7314
7315
7316
7317
7318
7319
7320
7321
7322
7323
7324
7325
7326
7327
7328
7329

036242
036246
036250
036252
036254
036256

012701
000261
010021
006100
005305
001374

746

002634
1%:

7351
7352
7353
7354
7355

WRITE

G 13

13:06

CHECK DATA

PAGE 163

SEQ 0162

MOV
SEC

MIRFROM+<50.
2> ,R1 ;WHERE DATA GOES

ROL

MOV

DEC
BNE

RO, (R1)+

;STORE DATA

RS
1%

JCOUNT 16
:BRANCH IF

JGET ZERO ONE BIT LEFT

16 NOT DONE

;*FILL LEFT ROTATING ONE INTO WRFROM+<65.%2>
000241
012700
010021
006300
103375
012601

cLc

000001

2%:

MOV
MOV
ASL

#1,R0
RO, (R1)+
RO

MoV

(SP)+,R1

BCC

;;POP STACK INTO R1

;*FILL REST OF DATA
004037
002734
000256
000377
004037
003470
000002
012345

041326

004037

063430

JSR

RO,a#CLAREA

WRFROM+<82. *2>
174.
377

JSR

041326

RO,a#CLAREA

SRFROM¢<256.~?>

<5%2000>!<7%40>.5

.BYTE
.BYTE

JSR
5
4
7

RO, a#RUN

-256.

0
ECI.FMT2?

014000
002436

WRCHEK

061624

004737
104401

041536
066720

036370

013777

004606

036376
036402
036406
036412
036414

013746
052716
012677
011100
011305

002436
000101

000000

WORDS

JFILL WITH 377
;CLEAR 2 WORDS, FROM WRFROM+<256.*2>

;2 WORDS

6.
;STARTING FROM WRFROM+<25%2>
JFILL WITH <5%2000>1<7%40>!5

;SETUP TO RUN FOR DATA (COMMAND
:CYLINDER S
;SECTOR &
:TRACK 7
;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

JSR

RHW(

RO,a#SAVER

SAVERE
18.

143666

:174.

JWORD COUNT = 256.

WRFROM

004037
002272
004612
000022

;CLEAR 174. WORDS, FROM WRFROM+<82.*2>
;STARTING FROM WRFROM+<82.#%2>

;«FILL THE WRITE CHECK HEADER AND DATA

7330

7331
7332
7333
7334
7335
7336
7337
7338
7339
7340
7341
7342
7343
7344
7345
7346
7347
7348
7349
7350

27=-JuL-78

JSR

TYPE

IS THE

FIRST REGISTER SAVED

;STARTING ADDRESS OF WHERE
NUMBER OF REGISTERS

PC.a#CHECKT
LCPHALT

HALT

143670

;SAVE REGISTERS

RHWC

;. CHECK DVA,RDY_MOL ,DPR,DRY,VV
;CANNOT

CONTINUE

TESTING

@¥RPLVEC ,QRPVE(C ;SET RPO4 VECTOR ADDRESS

MOV

@#WRCHEK ,-(SP)

;GET READY

(SP) +,aRH(CS1

;GO WITH

MOV

MOV
MOV

ANY OF

;STOP

MOV
BIS

#GO!IE, (SP)
aR1,RO
aR3,R5

TO MOVE

;GET READY TO SET
;SAVE RHCS1
;SAVE RHDS1

COMMAND

'GO' AND

DURING ABOVE OPERATION
DURING ABOVE OPERATION

(gn
X e ]

MACY11 30A(1052)

[
9]
V]

(ZRJICO, RPO&/S5/6 FCINL CTLRY
CZRJIC.P1
27-JUL~-78 13:05

(ZRJICO, RPO&L/S5/6 FCTNL C(TLRI
CZRJIC.PI
27-JUL-78 13:05

T46

002300
000200
001732
001502
013746
052716
011637
022600
001405
010037
010137

7357
7358
7359
7360

7361

7362

7363
7364

7365

104021

036474
036476
036502
036506

012746
011637
022605
001405
010537
010337
104063

27-JUL-78

13:06

WRITE CHECK DATA

PAGE

RDY

986.

834.
MOV

002436
004101
001124

BIS
MOV
CMP
BEQ

010500
001124

67%:

#1E_DVA.GO,
(SP)
(SP) ,a#SGDDAT
(SP)+ RO
67%

JRDY MUST SET BETWEEN

s SAVE COMMAND
;INCLUDE IE:DVA.GO
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY IE:DVA.GO
:BRANCH [F GOOD

MOV

(MP

(SP) +,R5

ERROR

MOV

BEQ
MoV
MOV
ERROR

001126
00460C

INWRCHEK ,=(SP)

;BAD DATA
;FAILING REGISTER RH(CS1
21
;DURING ABOVE OPERATION ONLY
#MOL 'DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1

MOV
MOV

001126
004600

SEQ 0163

164

;JWAIT FOR RDY BIT TO SET
JWAIT FOR RHCS1 REGISTER
JWAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9860 MICRO SECONDS

WAT
RHCS1

104413

7356

7366
7367
7368
7369
7370
7371
7372
7373
7374
7375
7376
7377

MACY11 30A(1052)

RO, a#$BDDAT
R1,a#REGADR

(SP) ,a#$GDDAT

;SAVE FOR PRINTQUT

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

;BRANCH IF GOOD
;BAD DATA

;DURING ABOVE OPERATION ONLY MOL.DPR.VV

;FAILING REGISTER RHDS1

;DURING ABOVE OPERATION ONLY

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
036510
036514
036516
036520
036524
036526
036530
036534
036536

004037
002272
000000
004037
002274
003470
004037
002304
003405

JSR

041360

RHWC

JSR

041360

RHBA

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

%2>
WRFROM+<256.
JSR
RO.a#F ILLRE

041360

RHDST

3405

:MOV 0 INTO SAVED RHWC
:32¥§D REGISTER TO CHANGE

:MOV WRFROM+<256.+2> INTO SAVED RHBA

;SAVED REGISTER TO CHANGE
;DATA

:MOV 3405 INTO SAVED RHDST
:32¥§D REGISTER TQO CHANGE

; *COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA
;*WITH REGISTER AFTER COMMAND
036540
036544
036546
036550
036552
036554
036556
036560
7401
7402
7403
7404
7405

7406

7407
7408

004037
004612
002354
000022
036556
036562

104040
000207

042444

JSR

SAVERE

RO, a#COMREG

:COMPARE SAVED REGISTERS WITH
:GOOD DATA SAVED IN 'SAVERE'

:TEST DATA STARTING FROM 'RHW(C'

:18. REGISTERS TO BE COMPARED
JRETURN TO 8% ON ERROR

8%:

ERROR

RTS

40
PC

RETURN TO 9% ON NO ERROR
JWRITE

CHECK CAUSED

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

;WAS THERE AFTER COMMANDS

036562

9%:

CZRJICO, RPO4/5/6 FCINL CTLRI
CZRJIC.P1N
27-0UL-78 13:05
7409

7410

7411
7612
7413
7614
74615
7616
7617
7618
7419
74620
7421
7422

7423

7424
7425
7426
7427
7428
7429

7430
7431
7432
7433
7434
7435
7436
7437
7438

7439

7440
7641
7442
7443
7644
7645
7446
7647
7448
7449
7450
7451
7452
7453
7454
7455
7456
7457
7458
7459
7460
7461
7462
7463
7464

036562

036610
036614
036620
036624

036626
036632
036634

000004
012706
012737
004737
005737
001402
000137
004737

001000
000047
041456
004750

104401

037330
041536
066720

005737

004732

000137

037330

000000
001402

MACY11

30A(1052)

27-JUL=78

I 13
13:06 PAGE 165

SEQ 0164

T46

WRITE

TST4L7:

SCOPE
MOV

#STACK,SP

JRESET STA(K

JSR
TST
BEQ
JMP
JSR

PC,a#CLDISK
MRH70
308
T1STS0
PC,a#(HECKT

sSET R1-RH(S1, R2-RH(S2
;TEST FOR RH70 CONTROLLER
JIF FLAG = 1, THIS TEST IS SKIPPED
JUMP TO NEXT TEST ===-we-cccccccacaaax )
sCHECK DVA,RDY,MOL ,DPR,DRY,VV = 1

MOV

004604

TYPE

CHECK DATA

N47 ,NTSTNM

LCPHALT

HALT
TST

BEQ
JMP

;SAVE TEST NUMBER

s CANNOT

CONTINUE

TESTING

ANY

;STOP
a#UBUSB

i1%
ar9s

;1S UNIBUS B

THERE

JUNIBUS B THERE SO CONTINUE
sNO UNIBUS B, GO TO NEXT TEST

;*GET HEADS TO CYLINDER 5
036640
036640
036644

004037
000005

041426

036646

013777

004606

036654
036660
036664

013746
052716
012677

002452
000101
143410

036670
036672
036674
036676
036700

104413
002322

036702

004737

11%:

163412

JSR
5

RO,a#SEEKCY

;SEEK FOR
:CYLINDER 5

MOov

SHRPLVEC ,aRPVEC

;SET RPO4 VECTOR ADDRESS

MOV
BIS

o#SEECOM,-(SP)
#GO.1E, (SP)

GET READY
;GET READY

MOV

(SP)+ ,3RH(CS1

WAT

WAIT FOR DRY BIT

2500.
2500.

JALLOW 25000 MICRO SECONDS
;DRY MUST SET BETWEEN

RHDS1
DRY

000200
004704
004704

041456

JSR

004037
002470

000012
012344
004037

041326

041325

041326

002610

041326

JSR

WRFROM

PC.a#CLDISK

EACH 12344,17777,0.52525.125252

RO,a#CLAREA

JCLEAR 10. WORDS.,

10.

:10.

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

RO,3#CLAREA

WRFROM+<20. x2>

10.
0
JSR

RO,a#CLAREA
WRFROM+<30, x2>

10.
52525
JSR
RO,a#CLAREA
WRFROM+<40., 2>

FROM WRFROM

;STARTING FROM WRFROM

;10.

JSR

;SET R1-RHCS1, R2-RH(CSZ

10.
<5%2000>'<7%40> .4

-1

TO SET

JWAIT FOR RHDS1 REGISTER
JWAIT FOR DRY BIT IN RHDS1

;*10 WORDS OF

036706
036712
036714
036716
036720
036724
036726
036730
036732
036736
036740
036742
036744
036750
036752
036754
036756
036762

;G0 WITH

TO MOVE COMMAND
TO SET 'GO' AND

WORDS

JCLEAR

SFILL WITH <5+2000>!'<7+40>'4

10, WORDS, FROM WRFROM+<10,*2>
;STARTING FROM WRFROM+<10,+2>

WORDS

SFILL WITH =1

JCLEAR 10.

WORDS,

FROM WRFROM+<20.x2>

JSTARTING FROM WRFROM+<20.%2>

;10. WORDS
SFILL WITH O
JCLEAR 10. WORDS, FROM WRFROM+<30.*2>
;STARTING FROM WRFROM+<30.*2>
;10. WORDS

JFILL WITH 52525
;CLEAR 10. WORDS, FROM WRFROM+<40.*2>
;STARTING FROM WRFROM+<40,+2>

7465
;469
66

27-JuL-78 13:05

036764
036766

147

(00012
125252

036770

010146

76472
7673
7474
7675
7476
76477
;4;8

036776
037002
037006
037010
037012
037014
037016

012705
012701
000261
010021
006100
005305
0V137¢4

036772

012700

177776

76482
7483
76484
76485
7486

000241
012700
010021
006300
103375

76490
76491

037036
037042

004037
002734

76493

0370646

000377

7489

7692

7494
7495

76496

;2gg
7499

:10. WORDS
;FILL WITH 125252

R1,-(SP)

000020
002634

MOV
MOV
SEC
MOV
ROL
DEC
BNE

#16. ,RS
; COUNT
#WRFROM+<50.+2>
,R1 ;WHERE DATA GOES

1%:

#177776,R0

RO, (R1)+

;+sPUSH R1 ON STA(CK

;DATA

;STORE DATA

RO
RS
1%

;GET ZERO ONE BIT LEFT
;COUNT 16
;BRANCH IF 16 NOT DONE

;*FJLL LEFT ROTATING ONE INTO WRFROM+<65.%*2>
037020
037022
037026
037030
037032

;2%;

SEQ 0165

MOV

;420
481

PAGE 166

:*FILL LEFT ROTATING ZEROS FROM WRFROM+<50.*2>

7470

7«71

13:06

10,
125252

;468
46

27-JuL-78

WRITE CHECK DATA USING UNIRULS B

037034

0370446

037050
037056
037056

037060

000001

2%:

012601

MOV

#1,R0
RO, (R1)+
RO
2’3

(SP) + ,R1

;*F1LL REST OF

041326

000256

004037
003470

cLC
MOV
MOV
ASL
BCC

:;POP STACK INTO R1

DATA

JSR
RO,a#CLAREA
WRFROM+<82.*2>

;CLEAR 174, WORDS, FROM WRFROM+<82.+2>
;STARTING FROM WRFROM+<B82.*2>

377

SFILL WITH 377

1764.

041326

JSR
RO.,a#CLAREA
WRFROM+<256. *2>

000002

012345

<5+2000>.<7%40>!5
JFILL

THE

WRITE

JFILL WITH <5+2000>!<7%40>!S

CHECK HEADER AND DATA

004037
000005

7503
7504
7505
7506

037071
(037072
037074
037076

007
177400
002470
000000

037102

002436

037104

052777

002000

7515
7516
7517
;g}g

037112
037116
037120
037122

004037
002272
004612
000022

(C41624

JSR
RHWC
SAVERE
18.

RO,a#SAVER

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

7520

037124

004737

041536

JSR

PC,a#CHECKT

;CHECK DVA,RDY,MOL.DPR,DRY,VV - 1

7507

;288
7510

7511

;g}%

7514

037100

004

.BYTE

014000

RO ,a#RUN

;2 WORDS

037062
037066
037070

JSR
5

:CLEAR 2 WORDS., FRPOM WRFROM+<Z256.+2>
;STARTING FROM WRFROM+<256.
%2>

7500
7501

7502

043430

;174. WORDS

;SECTOR &

7
=256,
WRFROM
0

ECI.FMT22

WRCHEK

143166

BIS

JSETUP TO RUN FOR DATA (COMMAND
JCYLINDER S

HPSEL ,dRHC(CS1

;TRACK 7
JWORD COUNT = 256.
;BUS ADDRESS
;DO NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT

;GET READY TO DO A WR(CHEK

:SET PORT B

;THAT

]S UNIBUS B

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE CHE(CK

MACY11 30A(1052)

s K

CZRJIC.P1

~NN

CZRJICO, RPOL/5/6 FCTNL CTLRT

J 13

037130
037134

104401
000000

066720

7524
7525
7526
7527
7528
7529

037136

013777

004506

037144
037150
037154
037160
037162

013746

002436
002101

037164
037166
037170
037172
037174
037176
037202
037206
037212
037214
037216
037222
037226
037230
037234
037240
037242
037244

104413

7522
7523

7530
7531
7532
7533
7534
7535
7536
7537
7538
7539
7540
7541
7542
7543
7544
7545
7546
7547
7548
7549
7550
7551
7552
7553
7554
7555
7556
7557
7558
7559
7560
7561
7562
7563
7564
7565
7506
7567
7568
7569
7570
7571
7572
7573
7574
7575
7576

037250
037254

052716
012677
011100
011305

002300
000200
001732
001502
013746
052716
011637
022600
001405
010037
010137
104021

012746
011637
022605
001405
010537
010337
104063

147

27=-JUL-78

JCPHALT

MOV

@MRPLVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

;*SET PORT SELECT

MOV

834.

MOV

BIS
MOV
CMP
BEQ

001124

001126
004600
010500
001124

67%:

001126
004600

;STOP

S#WRCHEK ,~(SP)
:GE1
#GO. JE!PSEL, (SP)

(SP)+ ,aRH(CST

aR1,R0
aR3,R5

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

;GO WITH

;SAVE RH(S1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION
JWAIT FOR RHCS1 REGISTER
JWAIT FOR RDY BIT IN RHCS1

;ALLOW 9860 MICRO SECONDS
JRDY MUST SET BETWEEN

(SP) +,RO
67%

;DURING ABOVE OPERATION ONLY IE.DVA!PSEL
!GO
;BRANCH IF GOOD
;BAD DATA
JFAILING REGISTER RH(S1

RO,a#$BDDAT
R1,3#REGADR

MOV
MOV

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

RS,a#$BDDAT

;BAD DATA

;DURING ABOVE OPERATION ONLY
21
#MOL !DPR!VV,=(SP)
:SAVE BITS SET DURING OPERATION IN RHDS1

CMP
BEQ

(SP)+,RS
69%

MOV
ERROR

R3,a#REGADR
63

MOV

AWWRCHEK ,-(SP)
;SAVE COMMAND
#1E!DVA!PSEL !GO, (SP)
. INCLUDE IE!DVA.PSEL.GO
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT

MOV
MOV

ERROR

AND

;WAIT FOR RDY BIT TO SET

WAT
RHCS1
RDY
986.

002436
006101

;CANNOT CONTINUE TESTING lF ANY OF

TYPE

MOV
BIS
MOV
MOV

1643120

SEQ 0166

PAGE 167

WRITE CHECK DATA USING UNIBUS B
HALT

143122

K 13

13:06

;DURING ABOVE OPERATION ONLY MOL.DPR.VV
;BRANCH IF GOOD

JFAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

:*CHANGE SAVED REGISTERS TO EXPECTED VALUES
037256
037262
037264
037266
037272
037274
037276

037302
037304

004037
002272
000000
004037
002274
003470
004037
002304
003405

037306
037312
037314
037316
037320
037322

004037
004612
002354
000022
037324
037330

037324

104076

041360

JSR

RO,a#F ILLRE

:MOV O INTO SAVED RHW(

JSR

RO,a#F ILLRE

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

JSR

RO,a#FILLRE

SHUC

041360

RHBA
WRFROM+<256. x2>

041360

RHDST
3405

:3A¥ED REGISTER TO CHANGE
;DA

;SAVED REGISTER TO CHANGE
:DATA

:MOV 3405 INTO SAVED RHDST
:SAVED REGISTER TO CHANGE
:DATA

;*COMPARE REGISTERS BEFCRE WRITE CHECK HEADER AND DATA
;*WITH REGISTER AFTER COMMAND

JSR
SAVERE

042444

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 8% ON ERROR
;RETURN TO 9% ON NO ERROR

8%:

JWHILE USING UNIBUS B

;WRITE CHECK CAUSED

~NN

]
7521

MACY11 30A(1052)

[an Xen]

(ZRJIICO, RPO4/S5/6 FCINL CTLRI
27-JUL-78 13:05
CZRJIC.PIN

CZRJICO, RPO4/S/6 FCINL CTLR1
CZRJIC.PN
7577
7578
7579
7580
7581
;gg%

037326

7584
7585

037330

7586
7587
7588
7589

27-JuUL~78 13:05

MACY11 30A(1052)
147

000207

27-JuUL-78

PAGE 168

WRITE CHECK DATA USING UNIBUS B
RTS

9%:

L 13

13:06

;AN IMPROPER REGISTER
; CHANGE
;GOOD DATA GIVES WHAT
sSHOULD BE THERE
JRECEIVED DATA GIVES WHAT
;WAS THERE AFTER (OMMANDS

SEQ 0167

(ZRJICO, RPO4/5/6 FCINL CTLR]
CZRJIIC.PN
27-JUL-78 13:05
7590
7591
7592
7593
7594
7595
7596
7597
7598
7599
7600
760
7602
7603
7604

7605
7606
7607
7608
7609
7610
7611
7612
7613
7614
76i5
7616

7617
7618
19
7620
7621
7622
7623
7624
7625
7626
7627
7628
7629
7630
7631
7632
7633
7634
7635
7636
7637
7638

7639

7640
7641
7642
7643
7644

7645

037330

000004

037332
037336
037340
037344
037346
037352
037354
037356
037362
037366
037374

005737
001007
005737
001004
005737
001001

004724

000137
012706
012737
004737

040554
001000
000050
041456

000402

MACY11

30A(1052)

27=-JUL-78

13:06

WRITE CHECK DATA USING UNIBUS B

TST50:

SCOPE

TST
BNE
TST
BNE

000042

1ST
BNE
BR

001100

JMP

MOV
MOV

004604

JSR

a#NOPUSH
1%
Y LY
1%

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

a#SPASS
1%

TSTS51

SEQ 0168

PAGE 169

T47

#STACK,SP
450,34 TSTNM

PC.,a#CLDISK

;FIRST PASS ?
;SKIP THIS TEST IF NOT
JCONTINUE WITH THIS TEST

JUMP TO NEXT TEST =====c-c-w—-=--- )
JRESET STACK
;SAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(S2

;*FILL SECTOR O, TRACK O, CvL O WITH ONES
037400
037404
037406
037410

004037
002470
000400
177777

041326

037412
037416
037420
037421

004037

043430

03742
037426
0574320
03743¢

002470
000000
010000
002442

N37422

000000
000
000
177400

WRF ROM

FROM BUFFER

RO,a#CLAREA

256.

SFILL WITH =1

0
0
0
-256.

RO, a#RUN

WRFROM

037446

013777

004606

037454
03746C
037464

013746
052716
012677

002442
000101
142610

037470
037472
037474
037476
037500

104413
002300
000200
004704
004704

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

JSR

PC,a#CHECKT

MOV

@¥RP4LVEC ,aRPVEC ;SET RPO4 VECTOR ADDRESS

TYPE
HALT
142612

;CYLINDER O
;SECTOR O
:TRACK O
JWORD COUNT = 256.
;BUS ADDRESS

FMT22
WRIDAT

041536
066720

;SETUP TO RUN FOR DATA (COMMAND

;DO NOT INHIBIT BUS ADDRESS INCREMENT

104401

;JSTARTING FROM WRFROM

;*FILL WRITE DATA COMMAND

JSR
.BYTE
.BYTE

004737

;CLEAR 256. WORDS, FROM WRFROM
:256. WORDS

-1

037434
037440
037444

000000

;*FILL WRITE

JSR

MOV

BIS

MOV

LCPHALT

a#WRIDAT ,-(SP)

#GO!IE, (SP)

(SP) +,@RHCS1

J*TIME IS NOT CRITICAL

;CHECK DVA,RDY
,MOL ,DPR,DRY,VV ~ 1

;CANNOT CONTINUE
;STOP

TESTING IF ANY OF

;GET READY TO MOVE COMMAND

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

WAT

;JWAIT FOR RDY BIT TO SET

2500.

JALLOW 25000 MICRO SECONDS

RHCS1
RDY

JWAIT FOR RHCS1 REGISTER
JWAIT FOR RDY BIT IN RHCS1 REGISTER

;RDY MUST SET BETWEEN

2500.

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

C(ZRJICO, RPO4/S/6 FCTINL CTLRI
CZRJIC.P1T
7646
7647
7648

7649

7650

7621

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

27-JUL~78 13:05

037512
037514
037520
037540
037544
037546
037552
037660
037662
037666
037670
037672
037674

MACY11 30A(1052)
150

104401

104401
000442
000000

004037
002322

N 13
13:06 PAGE 170

TYPE

037522

?OgDS

004716

TYPE

037554

SEQ 0169

WRITE PROTECT OPERATION

18.

000022

000407
013746
104405

27-JUL-78

82 I
HAL

:NUMBER OF REGISTERS
,68%

67%

S#UN]IT,=-(SP)
,70%

69%

;2 TYPE ASCIZ STRING

::GET OVER THE ASCIZ

;GET UNIT UNDER TEST

;:TYPE ASCIZ STRING

;;GET OVER THE ASCIZ

;'THS ONLY REGISTER THAT SHOULD

;*=WRL

JSR
RHDS1
1

042336

000001
000001
004000

RO, a#CHREG

CHANGE IS RHDS1 - BIT #11

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

1
WRL

;*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
; COMPARE SAVED REGISTERS WITH
RO,a#COMREG
JSR
SAVERE
:GOOD DATA SAVED IN °'SAVERE'
w(
;TEST DATA STARTING FROM ‘'RHWC'
18.
;18. REGISTERS TO BE COMPARED
3$
JRETURN TO 3% ON ERROR

062444

3%:

104041

ERROR
RTS

JRETURN TO 4$ ON NO ERROR

41
PC

;LOCKING OUT WRITE BY
JWRITE LOCK BUTTON CAUSED

; IMPROPER REGISTER CHANGE

;GOOD DATA GIVES WHAT SHOULD
;BE THERE

JRECEIVED DATA GIVES WHAT
;WAS THERE AFTER WRITE
;WAS LOCKED OUT BY BUTTON

;*NOW A WRITE WILL BE ATTEMPIED WITH WRITE LOCKED
;*0UT BY BUTTON

;*FILL WRITE FROM BUFFER WITH 377
037720

013737

037720

037726
037732
037736
037740
037742

004737
004037
002470
000400
000377

041456
041326

037744
037750
037752
037753
037754
037756
037760
037762

004037
000000
000
000
177777
002470
000000
010000

043430

001110

48%:

MOV

a#Ls ANSLPERR

;SCOPE LOOP STARTS FROM HERE

JSR
JSR

PC,a#CLDISK
RO,a#CLAREA

;SET R1-RHCS1, R2-RH(SZ
;CLEAR 256. WORDS, FROM WRFROM

WRFROM

256.

;256. WORDS
JFILL WITH 377

377

;*TRY A ONE WORD WRITE

.BYTE
.BYTE

JSR
0
0
0
-1.

WRFROM

FMT22

;STARTING FROM WRFROM

RO, a#RUN

;SETUP TO RUN FOR DATA (COMMAND
;CYLINDER O
JSECTOR O
;TRACK O
;WORD COUNT - 1.
;BUS ADDRESS

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

czl
czl

(ZRJICO, RPO4L/5/6 FCINL CTLRI
CZRJIC.PI
27-JUL-78 13:05
7702
7703
7704
7705
7706
7707
7708
7709
7710
7711
7712
7713
7714
7715
7716
7717
7718
7719
7720
7721
7722
7723
7724
7725
7726

037764

002442

037766
037772
037774
037776

004037
002272
004612

041624

040000

013777

004606

040006
040012
040016

013746
052716
012677

002442
000101

040022
040024
040026
040030
040032

002300
000200
004704

MACY11 30A(1052)
150

27-JUL-78

B 14

13:06

WRITE PROTECT OPERATION

WRIDAT

;GET READY TO DO A WRIDAT

;*SAVE REGISTERS
RO,a#SAVER
JSR

;SAVE REGISTERS

SAVERE

;STARTING ADDRESS OF WHERE

RHW(
18.

000022

162260

142256

104413

0047C4

SEQ 0170

PAGE 171

JRHWC IS THE FIRST REGISTER SAVED
;NUMBER OF REGISTERS

MOV

SNRPSLVEC ,8RPVEC ;SET RPO4 VECTOR ADCRESS

MOV

ANMWRIDAT ,-(SP)

;GET READY TO MOVE COMMAND

BIS
#G0D'IE, (SP)
(SP)+,a3RHCS1
MOV
;*TIME IS NOT CRITICAL

;GET READY TO SET ‘GO’ AND
;GO0 WITH

RDY

JWAIT FOR RDY BIT IN RH(CS1 REGISTER

WAT
RHCS1

JWAIT FOR RDY BIT TO SET
JWAIT FOR RHCS1 REGISTER

2500.
2500.

JALLOW 25000 MICRO SECONDS
JRDY MUST SET BETWEEN

;*CHANGE SAVED REGISTERS TO EXPECTED VALUE
017737
017737
017746
042716
042737
052637
004037
002300
000002
000001

142232
142226
142222
177477
000300
004616

004612
004614

004616

042336

;2 BIT/BITS TO BE CHANGED

TRE

;NEW VALUE OF SC IS 1
;CHANGE SC BIT
;NEW VALUE OF TRE IS 1
: CHANGE TRE BI7

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

041360

JSR
?HDST

RO, a#F ILLRE

042336

JSR
RHER1
1
1
WLE
JSR
RHDS1
2
1

RO,a#CHREG

1
ERR

;NEW VALUE OF ERR IS 1
:CHANGE ERR BIT
QXATTENT ,3#SAVERE +24
;SET APPROPRIATE

042336

ATA

053737

ARHWC ,a#SAVERE
;RHWC IS UNPREDICTABLE
IRHBA, a#SAVERE +2;RHBA IS UNPREDICTABLE
@RHCS2,~(SP)
;GET RHCS2
#~C<]JR!'OR>,(SP) .KEEP IR AND OR
#IR!OR,B#SAVERE+4.;
CLEAR SAVED IR OR
(SP) +,a#SAVERE+4;SET OR IR AS REQUIRED
; CHANGE BITS IN SAVED REGISTER
RO, a#CHREG
s CHANGE RHCS1 REGISTER

1
SC
1

100000

000001
040000

MOV
MOV
MOV
8IC
BIC
B1S
JSR
RHCS1

004740

004636

BIS

RO,a#CHREG

;CHANGE BITS IN SAVED REGISTER
s CHANGE RHER1 REGISTER
;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF WLE IS 1
;CHANGE WLE BIT
;CHANGE BITS IN SAVED REGISTER
;CHANGE RHDS1 REGISTER
;Z BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA |S 1
;CHANGE ATA BIT

'ATA' BITS

;*COMPARE REGISTERS BEFORE WRITE WAS ATTEMPTED
;*WITH REGISTERS AFTER ATTEMPT
040164

004037

042444

JSR

RO, a#COMREG

; COMPARE SAVED REGISTERS WITH

CZRJICO, RPO4/S/6 FCTNL CTLR1
CZRIIC.PN
27-JuL~78 13:05
7758
7759
7760
7761
7762
7763
7764
7765
7766
7767
7768
7769
7770
7771
7772
7773
7774
7775
7776
7777

040170
040172
040174
040176
040200

004612
002354
000022
040202
040206

040202
040204

104042
000207

MACYT1

C 14
30A(1052)
27-JUL-78
13:06 PAGE
WRITE PROTECT OPERATION
150

SAVERE

;GO0OD DATA SAVED IN 'SAVERE'
JTEST DATA STARTING FROM ‘RHW(C'
;18. REGISTERS TO BE COMPARED
JRETURN TO 5% ON ERROR
JRETURN TO 6% ON NO ERROR

w(
18.
5%
63
5%:

ERROR
RTS

SEQ@ 0171

172

JATTEMPTING TO WRITE WITH
;WRITE LOCKED OUT

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

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

0461456

004037
003534
000400
000000

041326

004037
002470
000400
177777

041326

004037
000000
000
00

043430

69%:

JSR

PC,a#CLDISK

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

;*«FILL READ INTO BUFFER WITH O

JSR

REINTQ

RO,a#CLAREA

256.
0

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

:256. WORDS
JFILL WITH O

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA FRMTM READ
JSR
RO,a#CLAREA
;CLEAR 256. WORDS, FROM WRFROM

WRFROM

:STARTING FROM WRFROM

-1

JFILL WITH -1

256.

.BYTE
.BYTE

:256. WORDS

;*FILL COMMAND
JSR
RO,a#RUN
0
0
0

JSETUP TO RUN FOR DATA COMMAND
;CYLINDER O
;SECTOR O
;TRACK O

REINTO

;BUS ADDRESS

READAT

:GET READY TO DO A READAT

=256.

0
ECI'FMT22

:WORD COUNT = 256.

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

040256

002446

040260

013777

004606

040266
040272
040276

013746
052716
012677

002446
000101
141776

040302
040304
040306
040310
040312

104413

WAT

JWAIT FOR RDY BIT TO SET

001507

839.

*RDY MUST SET BETWEEN

142000

MoV

A#RPLVEC ,BRPVEC ;SET RPO4 VECTOR ADDRESS

MOV

@#READAT ,~-(SP)

;GET READY TO MOVE COMMAND

MoV

(SP)+,aRHC(S1

;GO WITH

BIS

RHCS1
RDY
908

#GO!1E, (SP)

;GET READY TO SET

'GO' AND

;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9080 MICRO SECONDS

7814
7815
7816
7817
7818
7819
7820
7821
7822
7823
7824
7825
7826
7827
7828
7829
7830
7831
7832
7833
7834

040314
040320
040322
040324
040326
040330

004037
002470
003534
000400
040332
040334

040332

104043

MACY11 30A(1052)
150

27-JUL-78

D 14

13:06

WRITE PROTECT OPERATION

; *COMPARE READ DATA
RO, 3#COMPAR
JSR
WRFROM
REINTO
256.
7%

043474

7%:

SEQ 0172

PAGE 173

ERROR

;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 8% ON NO ERROR

JWRITING 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
s *UNLOCKED
004037
002272
004612
000022

0461624

104401

040354

000407
013746
104405
104401
000440
000000

040522

004037
002322
000001
000000
004000

8%:

ST20:

JSR
RHWC
SAVERE
18.

RO,a#SAVER

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

TYPE

.65%

;. TYPE ASCIZ STRING

,67%

;. TYPE ASCIZ STRING

004716

BR
?OXD

040406

TYPE

YPDS

Bg I
HAL

648
@HUNIT ,-(SP)
66%

;.GET OVER THE ASCIZ
;GET UNIT UNDER TEST
;.GET OVER THE ASCIZ

;«THE ONLY BIT THAT SHOULD CHANGE IS WRL-BIT #11

JSR

042336

RHDS1
1

RO, a#(CHREG

IN RHDS1

;CHANGE BITS IN SAVED REGISTER

; CHANGE RHDS1 REGISTER
;1 BIT/BITS TO BE CHANGED

;NEW VALUE OF WRL IS 0

WRL

; CHANGE WRL BIT

;*COMPARE ALL REGISTERS BEFORE WRITE LOCK WAS UNLOCKED
;*WITH REGISTERS AFTER WRITE WAS UNLOCKED
040524
040530
040532
040534
040536
040540

004037
004612
002354
000022
040542
040546

040542
040544

104044

000207

JSR

042444

SAVERE
W(

RO,a#COMREG

;COMPARE SAVED REGISTERS WITH

JUNLOCKING WRITES BY WRITE

18.
9%
108

:
9%

ERROR
RTS

;GOOD DATA SAVED IN °'SAVERE'
;TEST DATA STARTING FROM ‘'RHWC'
;18. REGISTERS TO BE COMPARED
JRETURN TO 9% ON ERROR
;RETURN TO 108 ON NO ERROR
;LOCK BUTTON CAUSED AN ERROR

lenYen]

(ZRJICO, RPO&/S5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05

CZRJICO, RPO4/S/6 FCTINL CTLRT
CZRJIC.P11

27-JUL-78 13:05

MACY11 30A(1052)
150

27-JUL-78

E 14

13:06

PAGE 174

SEQ 0173

WRITE PROTECT OPERATION

7870

;GOOD DATA GIVES WHAT SHOULD

7872
7873

JRECEIVED DATA GIVES WHAT WAS
;THERE AFTER WRITES WERE

7871

;BE

7874

7875
7876
7877
7878

THERE

JUNLOCKED

040546

012737

177777

047274

10$:

MoV

#-1,3¥PRITEM

;ON THIS ERROR NO LOOPING IS RECOMMENDED
;JUST A HALT ON ERROR WILL DO THE SAME
JTHING AS ONLY THE REGISTERS ARE READ
;CLEAR PREVIOUS ITEM NUMBER

CZRJIC.PI1N

27-JUL =78 13:05

MACY11 30A(1052)
750

27-JUL-78

13:06

SEQ 0174

PAGE 175

WRITE PROTECT OPERATION

7879

7880
7881
7882

7883
7884
7885
7886
7887
7888
7889
7890
78N
7892
7893
7894
7895
7896
7897
7898
7899
7900
7901
7902
7903
7904
7905
7906
7907
7908
7909
7910
7911
7912
7913
7914
7915
7916

040554
040556
040564

040572
040576
040650
040654
040656
040662
040670
040674
040676
040702

040706
040712
040714
040720
040724
040730

040732
040736
040742
04075C
040754
040756
040762
040766
040770
040772
040774
041000

000004

012737
012737

000901
000000

104401

040600

000424
013746
104405
104401
000402

005237

001100
06111
001100

012737
005237
001413
013700
012701
022100
001401
000775
011137
000137

004720

004716
010034

;s TYPE ASCIZ STRING

TYPE
BR
MOV
TYPDS

.67%
663
S#SERTTL ,~(SP)

2;TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;GET READY TO TYPE NUMBER OF ERRORS

SNSERTTL
aNSTSTNM
SHSELECT
3%

;CLEAR TOTAL NUMBER OF ERRORS
;CLEAR TEST NUMBER

INC

a#SPASS
. SENDMG
HSPASS ,~(SP)

s INCREASE PASS COUNT

JMP

aHTSTS

;JUMP TEST 4 ——=—m--=mmmmmmmmmeme >

MOV

#-1,a#PRITEM

.CLEAR PREVIOUS ITEM NUMBER
;NO. OF UNITS PRESENT

TST
BEQ

TYPE
MOV
TYPDS
TYPE

3%:

004716
004676

,65%

(LR
CLR

047274

1%:

2%:

;.D0 1 ITERATION
JREINSTATE PS TO O

648
SNUNIT,-(SP)

TYPDS

041106
010034

¥ ,STIMES
#0,PS

BR
MoV

TYPE

001112
001102
004726

1727777

SCOPE

MOV

040664

001112

000137

TSTS1:

004716

0" 3746
104405
005037
005037
005737
0014613

104401
013746
104405
104401

001212
177776

DEC
BEQ
MoV
MOV
CMP
BEQ
BR
MOV
JMP

.SENULL

SH#NOUNITS
$EOP

a#UN]IT RO

#UNITS,R1
(R1)+,R0O
2%
1%

(R1) ,@#UNIT
aRTSTS

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

JSTARTING FROM 200 ?

sCHECK NEXT DRIVE IF SO

;CONTINUE WITH THIS ONE IF NOT

;TYPE "END PASS 4’

JBRANCH IF ALL DRIVES COMPLETE
JUNIT UNDER TEST
;TABLE POINTER
;IS THIS UNIT JUST TESTED ?

;BRANCH IF YES
JBRANCH IF NO
JMAKE
JTEST

THIS NEXT UNIT
THE NEXT DRIVE ============--

fen Xam )

(ZRJICO, RPO4/S5/6 FCTINL CTLRI

CZRJIICO, RPO4L/S5/6 FCINL CTLRI
CZRJIC.PIN
27-JuL-78 13:05
7917
7918
7919
7920
7921
7922
7923
7924
7925
7926
7927
7928
7929
7930
7931
7932
7933
7934
7935

MACY11

30A(1052)

27-JuL-78
LSBTTL
LSBTTL
.SBTTL

000004

005037
005037
005237
042737
005327

000001
003022
012737
000001
041032
104401
013746
104405
104401
013700
001405
000005
004710
000240
000240
000240
000137
006212
377

015

050040
000043

001102
001212
001100
100000

SCOPE

001100

;:JERO THE TEST NUMBER
;;ZERO THE NUMBER OF JTERATIONS

BIC

#100000, $PASS

J:DON'T ALLOW A NEG. NUMBER

INC

DEC
.WORD
8GT
MOV
$ENDCT: .WORD
$EOPCT
TYPDS
TYPE

8381;%

. SENDMG
$PASS,~-(SP)

::TYPE "END PASS #''
::SAVE SPASS FOR TYPEOQUT

(PC)+,a(PC)+
1

L SENULL

PC., (RO

$RTNAD:
SENULL:

$ENDMG:

JMP

.WORD
.BYTE

.ASCIZ

THE PASS NUMBER

. 2LO0P?

$ENDAD: JSR

NOP

;: INCREMENT

(PC)+
1
$DOAGN

a#42 RO
$DOAGN

NOP
NOP

000

$PASS

$GET42: MOV
BEQ

RESET

377
042412
051501

*«SUBROUTINES=~»

$TSTNM
$TIMES

TYPE
MOV

041106
000042

SEQ 0175

CLR
CLR

$EOPCT:

0461111
001100

G 14
13:06 PAGE 176

A(PC)+

TST1
-1,-1,0

;i YES
;:RESTORE COUNTER

;:G0 TYPE--DECIMAL ASCII
;;TYPE A NULL CHARACTER

;;GET MONITOR ADDRESS
2 ;BRANCH IF NO MONITOR
;.CLEAR THE WORLD

;GO0 TO MONITOR
;2 SAVE ROOM
;2FOR

JACTN

; :RETURN

2 sNULL CHARACTER STRING

<15><12>/END PASS #/

WITH SIGN

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

MACY11

7951
7952
7953
7954
7955
7956
7957
7958
7959

END OF PASS ROUTINE

.SBTTL

H 14

13:06

SEQ 0176

PAGE 177

JAM CURRENT CYLINDER ROUTINE

:*xTHIS ROUTINE WILL CHANGE THE CURRENT CYLINDER REGISTER - °*RH(C(C'

:*BY GIVING A 'SEEK' COMMAND FOLLOWED BY AN INIT WHICH WILL LOAD
s*'RHCC® WITH THE DESIRED CYLINDER VALUE.

*«THAT THE

LOADED vALUE

IS CORRE(T.

THE ROUTINE

THEN (HECKS

> %

;~«CALL IS:

7960
7961
7962

J*
;x

000001

0461170
0461174
041202
041204

004737
032737
0016401

043370
040000

002404

041206
041214
041216
041220
041222

052777
000240
000240
000240
000240

000001

141064

041224
041230
041236
041240

004737
032737
001401

043370
040000

041242
041246
041254
041260
041262
041266
041274

004737
017737
020537
001406
010537
013737
104077

041456

041276
041276
041300

012605
000200

JSR
{8

MOV

JFILL DESIRED CYLINDER REGISTER

MOV

SNSEECOM,aRHCST

FILL

(RO) +,RS

aRHDST

#DMD , aRHMR

141062

001126

001124
002334

004600

001126

3%:

”

JGETTING READY TO FILL DESIRED CYLINDER

:MAKE SURE DESIRED SECTOR TRACK .5 NOT ILLEGAL
SEEK COMMAND

;SET DIAGNOSTIC MODE

;TAKE A REGISTER SNAPSHOT

JSR

PC,a#PUTREG

#ERR,a#DS1
Pt
103

JCHECK FOR COMPOSITE ERROR
;NOT = 1, A-OK
;REGISTER CONTENTS INCORRECT BEFORE A
;DIAGNOSTIC SEEK

BIS

#GO,aRH(CST

;ISSUE 'GO' TO SEEK COMMAND

NOP
NOP
NOP

NOP

104104

:PC OF JSR+4
;SAVE PC OF JSR

RS ,aRHCA

BIT
BEQ
ERROR

002404

:;PUSH RS ON STACK

MOV
MOV

2%:

RS,~(SP)

:DESIRED VALUE OF CURRENT CYLINDER

RO.,a#PCJSR
#6 ,aNMPCJISR

CLR

104103

RO.,a#MAKECYL

MOV
SUB
MOV

002452

005077
013777
012777

161142
141130

041512

W —

012005
010577

0461512
000004

—

162737

:
MAKECYL

010546
010037

—_

061126
0461126
041130
0461134
061142
041144
041150
041154
041162

—_—

7963

27-JUL-78

30A(1052)

:ALLOW TIME FOR SEEK TU HANG UP
JALLOW TIME FOR SEEK TO HANG UP
;ALLOW TIME FOR SEEK TO HANG UP
JALLOW TIME FOR SEEK TO HANG UP

JSR
BIT
8EQ
ERROR

PC.,a#-UTREG
#ERR,a#0S1
3%
104

;TAKE A 2ND REGISTER SNAPSHOT
;CHECK FOR ERRORS
:NOT = 1, A-0OK
;REGISTER CONTENTS INCORRECT AFTER
;A DIAGNOSTIC SEEK

JSR

PC,a#CLDISK

;GIVE INIT TO FORCE THE TRANSFER

ERROR

:CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER

(SP)+ RS

;:POP STACK INTO RS

MOV
(MP
BEQ
MOV
MOV

MOV
RTS

aRHCC ,a#8B8DDAT
RS ,a#$BDDAT
1%
RS ,a#$GDDAT
a#RHCC ,a#REGADR

TEST DATA
:COMPARE CURRENT CYLINDER
:BRANCH IF GOOD
;GOOD VALUE OF RHCC
;FAILING REGISTER ADDRESS

CREGISTER AFTER A SEEK AND AN IN]T

CZRJICO, RPO&/S/6 FCINL (TLRY
CZRJIC.P11
27-JuL-78 13:05
8003

8004
8005
8006
8007
8008
8009
8010
8011
8012
8013
8014
8015
8016
8017
8018

8019
8020
8021

8022
8023
8024
8025

8026
8027
8028
8029

I 14
MACY11 30A(1052)
27-JuL-78 13:06 PAGE 78
JAM CURRENT CYLINDER ROUTINE

SEaQ 0177

;*THIS FILLS MEMORY WITMH GIVEN DATA
s*USED CHIEFLY FOR HEADER INFORMATION
J*CALL IS
oTM

JSR

LOC

xD1

]

RO, a#F LHEAD

;FILL HEADER

;LOCATION WHERE SAVED
JNUMBER OF

WORDS

;DATA REPEATED XN TIMES

xD?2

;DATA REPEATED XN TIMES

041302
041302
041304
041306
041310

010146
010246
012001
012002

FLHEAD:

MOV
MOV
MOV
MOV

R1,-(SP)
R2,-(SP)
(RO)+,R1
(RO)+ ,R2

;;PUSH R1 ON STA(K
;:PUSH R2 ON STA(K
;R1 HAS ADDRESS OF WHERE
;R2 HAS NUMBER OF WORDS

;*NOW FILL DATA
041312
041314
041316
041320
041322
041324

012021
005302
001375
012602
012601
000200

1%:

MOV

DEC
BNE
MoV
MOV
RTS

(RO)+,(R1)+

R2
1%
(SP)+,R2
(8P)*.R1
R

;SAVE

DATA

;DECREMENT COUNT
;BRANCH IF INCOMPLETE
;.POP STACK INTO R2
;.POP STACK INTO R1

;*THIS (LEARS ANY B' OCK OF MEMORY.
s*FILLING IT WITH ANY DATA
;*CALL

.
o*
.*
;*
4

JSR
F
N
D

RO,a#CLAREA
;FROM
sNUMBER OF WORDS
:DATA
TO BE FILLED

:*R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED
;*RS WILL HAVE NUMBER OF WORDS
;*R3 WILL HAVE DATA
8045
8046
8047
8048
8049
8050
8051
8052
8053
8054
8055
8056
8057
8058

041326
041326
041330
041332
041334
041336
041340
041342
041344
041346
041350
041352
041354
041356

010146
010246
010346
012001
012002
012003
010321
005302
001375
012603
012602
012601
000200

CLAREA:

MOV
MOV

R1,-(SP)
P2,-(SP)

;;PUSH R1 ON STA(CK
;.PUSH R2 ON STA(CK

MOV
MOV
MOV
MOV

(RO) +,R1
(RO)+,R?
(RO)+,R3
R3,(R1)+

;FROM
;NUMBER
:DATA
;MOVE DATA

MOV

1%:

DEC
BNE
MOV
MOV
MOV
RTS

R3,-(SP)

R2
1%
(SP)+,R3
(SP) +,R2
(SP)+,R1
RO

;:PUSH R3 ON STA(K

s COUNT
JBRANCH [F NOT COMPLETE
;;POP STACK INTO R3
;.POP STACK INTO R?
;.POP STACK INTO R1

JRETURN TO MAIN PROGRAM

TO SAVE

CZRJIICG, RPO4L/S5/6 FCINL (TLRI
(ZRJIC.P1T
27-JuL-78 13:05
8059
8060
8061
8062
8063
8064
8065
8066

J 14
30A(1052)
13: 06 PAGE
27-JuL-78
JAM (CURRENT CYLINDER ROUTINE

;*THIS ]S A SUBROUTINE
;*wITH GIVEN VALUE

8067

8068
8069
8070
8071
8072
8073
8074
8075
8076
8077
8078
8079
8080
8081
8082
8083
8084
8085

MACY11

s*CALL
L]

*
- n

JSR

RHXX

TO FILL

179

SEQ 0178

SAVED REGISTER LOCATION

RO,a#F ILLRE

JREGISTER NAME

;DATA

041360
041360
041362
041364
041366
041370
041374
041400
061402
0461404

010146
010246
012001
012002
162701
010261
012602
012601
000200

FILLRE:

002272

004612

R1,-(SP)
R2,~(SP)
(RO) +,R1
(RO)+,R2

#RHWC ,R1

R2.,SAVERE (R1)
(SP)+ ,R2
(SP)+ ,R1
RO

;:PUSH R1 ON STACK
;cPUSH R2 ON STA(CK
;ADDRESS OF ADDRESS OF
:DATA
OFSET

.DATA IS MOVED IN

;:POP STACK INTO R2
;:POP STACK INTO R1
;RETURN TO MAIN PROGRAM

LR
CIRJICO, RPO4/S5/6 FCTNL CTLRI
(ZRJIC.PT
27-JuL-78 13:05

8036
8(87
8088
8089
8090
8091
8092

8093

8094
8095
8096
8097
8098
8099
8100
8101
8102
8103

MACY 1T

27-JuL-78

13:06

JAM CURRENT CYLINDER ROUTINE

PAGE 180

;*THIS SUBROUTINE SETS UP FOR SEAR(CH
;*CALL IS
RO, a#SR(CH
JSR
i
.

s CYLINDER

;SECTOR

;*.BYTE S

: TRACK

s*.BYTE T

061406
041412
041416
041424

012077
012077
013777

140700
1460666
002434

SRCH:
160654

000200

8104

8105
8106
8107
8108
8109
8110
8111
8112
8113

30A(1052)

K 14

MOV

(RO) +,aRHCA

MOV
MOV

(RO) +,aRHDST
A¥SERCH,aRHCST1

RTS

;*THIS SUBROUTINE
;*CALL IS

it
i

JSR
c

;SET CESIRED CYLINDER ADDRESS

;SET DESIRED SECTOR/TRACK ADDRESS
;GET READY FOR SEARCH

;WITH 30 IN RHCS1

SETS UP FOR SEEK (OMMANDS

RO, BWSEEKCY
: CYLINDER

. %

0641426
041432
041440

012077
013777
000200

140660
002452

160640

SEEKCY: MOV

MOV
RTS

(RO) ¢, @RHCA

;SET DESIRED CYLINDER ADDRESS

JRETURN TO MAIN PROGRAM

Q4SEECOM,aRHCST

MOV 4 INTO RHCS]

SEQ 0179

0. RPO4/5/6 FCTNL
P11
27~JuL-78

TLR1

3:05

27-JuL-78

MACY11 30A(1052)

;~CALL IS

JSR

OFSET:

BIS

052077
013777
000200

002454

061456
041462

041472

013701
013702
013703
013704

002300
002276
002322
002302

0461476
041502
041506
041510

012712
013712
005011
000207

000040
004716

0461466

1460642

JAM CURRENT CYLINDER ROUTINE
;*THIS SUBROUTINE

061442
041446
041454

13:06

140624

SEQ 0180

PAGE 181

SETS UP FOR OFFSET ( OMMANDS

RO, a#OF SET

;MICRO INCHES OFSET

(RO) +,aRHOF

;JSET

OFSET REGISTER

;MOV14

JRETURN TO MAIN PROGRAM

INTO RH(CST

CLDISX: MOV

#RHCST,
MRHCS?2,
a#RHDST,
a#RHER1T,

R1
R2
R3
R&

;R1 WILL
;R2 WILL
;R3 WILL
;R4 WILL

MOV
MOV

#CLR,aR2

RTS

MOV
RTS

MOV
MOV
MOV

CLR

S#OFSETC,aRHCST

SHUNIT ,aR2
aR1

BE
BE
BE
BE

.CLEAR ALL

CONTROL AND STATUS]
CONTROL AND STATUS?Z
DISK STATUS REGISTER?
ERROR REGISTER #1
REG.

JREINSTATE UNIT NO.
JCLEAR FUNCTION BITS

CZRJICO, RPO4/S5/6 FCTNL CTLRI
CZRJIC.P11
27-JUL-78 13:05

8134
8135
8136
8137
8138
8139
8140
8141
8142
8143
8144
8145
8146

8147
8148
8149
8150
8151
8152
8153
8154
8155
8156
8157
8158
8159
8160
8161
8162
8163
8164

8165
8166
8167
8168
8169
8170
8171
8172

8173

8174
8175
8176
8177
8178
8179
8180

27-JuL-78

MACY11 30A(1052)

13:06

JAM CURRENT CYLINDER ROUTINE

SEQ 0181

PAGE 182

;*THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) [N RH(S1
1
;*AND (HECKS MEDIUM ON LINE (MOL), DEVICE PRESENT (DPR), DEVICE READY
;*

(DRY)

IN RHDS1

;*IT ALSO CHECKS THAT THERE ARE NO BITS STUCK AT 1 IN RHDST
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

JSR

(SP) ,a#PCJSR

:SAVE PC OF JSR+4

aR3,-(SP)

;GET RHDS1

SuB

#4 ,d#PCJSR

BIS
BR

#VV, (SP)

MOV

000100

;PC

;GET PC OF

JSR

;DONT CHECK VvV BIT

CHECKC

;GOTO COMMON CHECK ROUTINE

(SP) ,a4#PCJSR

;SAVE PC OF JSR+4

MOV

aR3,-(SP)

;GET RHDS1 £ DO VvV CHECK AT 3%

173577
004200

CHECKC(: MOV
BIC
cMP

aR1,-(SP)

;GET €S

#DVATRDY,(SP)+

-RHCS1

001122

BEQ
MOV

041512
000004

041512

CHECKT: MoV
SUB

ERROR

#4 ,a#PCJSR

#173577. (SP)
33

aR1,34$BDADR
61

;GET PC OF

JSR

SCLEAR UNWANTED BITS

SHOULD HAVE DEVICE AVAILABLE

;AND BE READY
:BRANCH IF

1T DOES

;BAD DATA REGISTER (RH(S1)
JRHCST DID NOT HAVE DEVICE
JAVAILABLE RIGHT AT THE START

;ALL OTHER BITS SHOULD BE O

041574
041600
041604
041606
041612

042716
022726
001404
011337
104062

041614

000207

102000

010700

BIC
MP

BEQ

001122

HATA!LBT, (SP)
;sCLEAR UNWANTED BITS
#MOL !DPR'!DRY!VV,
(SP)+ ;RHDS1 SHOULD HAVE
7$
;BRANCH [F GOOD

ERROR

aR3, a#$BDADR
62

RTS

MOV

THESE

SET

;BAD DATA IN REGISTER (RHDS1)
;RHDS1 HAS SOME BITS OTHER
;THAN MOL, DRY, DPR,VV SET

JALL OTHER BITS SHOULD BE 0O

JRETURN TO TEST AND HALT/CONTINUE

;DEPENDING ON WHETHER THIS IS A
;"FATAL'' ERROR

041616
041622

062716
000207

000006

Is ¥

ADD
RTS

#6, (SP)

;JADJUST STACK TO JUMP OVER HALT

JRETURN TO THE

TEST AND CONTINUE

[N TEST

8230
8231
8232
8233
8234
8235
8236

13:06

JAM (URRENT CYLINDER ROUTINE

8181
8182
8183

PAGE 183

;«THIS ]S A SUBROUTINE

TO SAVE REGISTERS

:*IN THE REGISTER TABLE TO ANY LOCATION
;THE

;*JSR
M

[

Z—

8184
8185
8186
8187
8188
8189
8190
8191
8192
8193
8194
8195
8196
8197
8198
8199
8200
8201
8202
8203
8204
8205
8206
8207
8208
8209
8210
8211
8212
8213
8214
8215
8216
8217
8218
8219
8220
8221
8222
8223
8224
8225
8226
8227
8228
8229

N 14

27-JuL-78

CALL

RO,a#SAVER
;FROM

i
;710
;NUMBER Of WORDS SAVED
i
JoF MUST ALWAYS BE RH(S1
;*T MUST ALWAYS BE

041624
041624

041626

041630
041632
041634
041636
041640
041642
041644

041646
041650
041652
041654

SAVER:

010146
010246
010346
012001
012002
012003
013122
005303
001375
012603
012602
012601
000200

MOV
MOV

R1,-(SP)
R2,-(SP)

;sPUSH R1 ON STACK
;sPUSH R2 ON STACK

MOV
MOV

(RO)+ ,R1
(RO)+,R2

:FROM
;10

MOV

1%:

SAVRE

MOV

R3,~-(SP)

(R0O)+ ,R3

;:PUSH R3 ON STACK

;NUMBER

MOV
DEC

a3(R1)+ _(R2)+
R3

;SAVE REGISTER CONTENTS
; COUNT

MOV
MOV
MOV

(SP)+,R3
(SP)+ ,R2
(SP)+ ,R1

;;POP STACK INTO R3
;:POP STACK INTO RZ
::POP STACK INTO R1

BNE

RTS

;BRANCH [F NOT DONE

;*WHEN AN EVENT IS TO BE TIMED THE RPO4 VECTORS TO "TIME 1°°
;*PRJORITY OF
;*PRIORITY OF

;*PRIORITY OF

PROCESS OR IS 4
TRAPS MUST BE 6

RPO&

INTERRUPTS

IS 7

041656
041662
041670
041676
041704

005077
017737
017737
017737
000002

1640462
140462
140440
140434

0461714
004664
004662

TIMET:
TIMEZ2:

(LR
MOV
MOV
MOV
RTI

aPCLCSR
APCLCTR,INWAITTM GET
ARHCC, a#F INACC

aRHLA , a#F INALA

;STOP THE (CLOCK
TIME ON CLOCK
JGET CURRENT CYLINDER
:GET LOOK AHEAD
JRETURN TO WAIT P OR WAIT.T

;«THIS [S A WAIT LOOP WHEN AN EVENT IS TO BE TIMED
J*THE CALL IS

SEQ 0182

MACY11 30A(1052)

P P

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

CZRJICO, RPOL/S5/6 FCINL (TLRI
CZRJIC.P1
27-JUL-78 13:05

MACY11

B 15

8237
8238
8239

WwAT
A

B
TA

8240
8241
8242

SEQ 0183

30A(1052)
27-JUL-78 13:06 PAGE 184
JAM CURRENT CYLINDER ROUTINE

;ABSOLUTE REGISTER ADDRESS
;BIT WAITED FOR
;TIME ALLOWED GIVEN IN 10 MICROSEC
s TOLERANCE PLUS/MINUS IN 10 MICROSEC

;*R1-WILL HAVE TIME ALLOWED IN 10 MICRO SECONDS
;*R2-WILL HAVE TOLERANCE PLUS/MINUS IN 10 MICRO SECONDS

8243

;*MINIMUM TIME THAT (AN BE MEASURED IS ABOUT 12 MICRO SECONDS
;*FOR

000000
000000
000000
000000
005037
005077

012777
010046
010146

010246
010346
016600
010037
162737
013037
012037
012001
012002
010066
013703
033777

001025
005303
001372
013703
033777
001015
005303
001372
017737
032777
001402

WAITPC:
WAITRE:
WA]TBT:
WAITTM:
WAIT.P:

041714

160420

000021

000010
041706
000002
0461710
041712

1406410

042154
041712

177642
000100

041706

177674

177654

017737
032777

CLR
MOV

SuB

1%:

2%:

001126

MOV

BIT
BNE
DEC
BNE

MOV

BIT
BNE
DEC
BNE

MOV

140222

3%:

104002

042070
042076

JWAIT ON BIT
JWAITED TIME

BIT
BEQ
ERROR
BR
ERROR

177614

000100

INAITTM
;CLEAR WAITED TIME
@PCLBUF ;CLEAR COUNT SET BUFFER
#GO'BIT4L,aPCLCSR ;COUNT UP, 100 KHZ,
RO,-(SP)
::PUSH RO ON STACK
R1,-(SP)
;:PUSH R1 ON STACK
R2,-(SP)
:2PUSH R2 ON STAZK

R3,~-(SP)

:;PUSH R3 ON STACK

#2,3MIA]TPC

JWAT PC

10(SP) ,RO
RO,aMA] TPC

START (LOCK

;RO HAS ADDRESS OF NEXT LOCATION
:NOW WAITPC HAS WAT PC + 2
IS IN WAITPC

a(RO)+ ,a#WAITRE ;WAIT ON REGISTER ADDRESS
(RO)+,a#WAITBT

(RO) + ,R1
(RO) +,R2
RO,10(sSP)

WAIT ON BIT

;R1 HAS TIME IN 10 MSEC
;R2 HAS TOLERANCE IN 10 MSEC
JRESTORE RETURN ON STACK

;*THIS SECTION WAITS FOR BIT, THROUGH TWO COUNT DOWNS

000427

000425

JWAT PC
;WAIT ON REGISTER ADDRESS

MOV
MOV
MOV
MOV
MoV

104001

042066

SLOWEST PROCESSOR

MOV
MOV
MOV
MOV
MOV
MOV

000010
042154
041712

THE

001126
140174

4%:

@#TIMCNT ,R3

;JR3 IS A TEMPORARY COUNTER

;COUNT IF REQUIRED BIT NOT THERE

SHWAITBT ,aWAITRE ;IS REQUIRED BIT THERE
49
;BRANCH IF YES

: TEMPORARY COUNTER
a#TIMCNT ,R3
QNWAITBT ,aWAITRE ;IS REQUIRED BIT THERE
43
:BRANCH IF YES

:COUNT IF REQUIRED BIT NOT THERE

aWAITRE ,a#$BDDAT ;REGISTER CONTENTS FOR TYPEOQUT
#1E ,aRHCS1
3$

:DID ANY INTERRUPT OCCUR
:BRANCH IF YES

:RP04 DID NOT INTERRUPT

:RP04 INTERRUPTED BUT WAITED

;0UT

;ON BIT DID NOT OCCUR
;EVEN AFTER TWO COUNT DOWNS
:FROM 177777 10 0
. 0uT

;*NOW TIME AND TOLERANCE WILL BE CHECKED

MOV

8IT

WA TRE ,a#$BDDAT ;REGISTER CONTENTS FOR TYPEOQUT

#1E.3RHCST

;DID ANY

INTERRUPT OCCUR

(ZRJICO, RPO4L/S5/6 FCTNL CTLRI

CZRJIC.PTI
8293
8294

8298

27-JUL-78 13:05

C15
MACY11 30A(1052)
27-JuL-78 13:06 PAGE 185
JAM CURRENT CYI ;NDER ROUTINE

042104
042106

001402
104003

BEQ

110

000414

042}}2

160201
023701

ERROR

5%:

041714

SuB
cMp

R2.R1
SAWAITTM,R1

SEQ 0184

;BRANCH [F

YES

JINTERRUPT DID NOT OCCUR EVEN
;AFTER ONE BNE AND ONE MOV

;OF

;ouT

THE WAITED ON BIT SETTING

JR1T NOW HAS LOWER LIMIT OF
JFOR GOOD RESULTS, WAITTM

:?gg} BE GREATER OR EQUAL

8302
8303

042120
042122

103002
104004

BHIS
ERROR

6%
4

;BRANCH [F GOOD
;BIT DID OCCUR BUT TIME

8305

042124

000406

JouT

8307
8308
8309

042126
042130
042132

060202
060201
020137

ADD
ADD
CMP

RZ.R2
R2.R1
R1,a#WAITTM

8311
8312

042136
042140

103001
104004

8315
8316
8317
8318
8319

042142
042144
042146
042150
042152

012603
012602
012601
012600
000002

6%:
041714

BHIS

ERROR

MOV
MOV

(SP)+ ,R3
(SP)+,R2

MOV
MOV
RT]

(SP) + ,R1
(SP)+,R0O

TIME

;TAKEN IS BELOW LOWER LIMIT

:DOUBLE TOLERANCE
;R1T NOW HAS UPPER LIMIT OF
;FOR GOOD RESULTS, WAITTM

TIME

;MUST BE LESS OR EQUAL TO R1
:BRANCH IF GOOD

;BIT DID OCCUR BUT TIME TAKEN

;1S ABOVE UPPER LIMIT
::POP STACK INTO R3
:;POP STACK INTO R2

;;POP STACK INTO R1
;;POP STACK INTO RO
JRETURN TO MAIN TEST

:*«THIS IS A WAIT LOOP WHEN NO P-CLOCK IS AVAILABLE
;*NO TIMING IS DONE
;«CALL IS
o

M
o %
i
o

8335

042154

177777

8338
8339
8340
8341
8342
8343
8344
8345
8346

042156
042160
042162
042166
042172
042200
042204
042210
042212

010046
010346
016600
010037
162737
013037
012037
022020
010066

WAT

A
B8
TA

;ABSOLUTE REGISTER ADDRESS
;BIT WAITE) FOR
:TIME-NOT USED HERE
;TIME-NOT USED HERE

;*R3-1S A _TEMPORARY COUNTER

TIMCNT:

000004
041706
000002
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, aMWAITPC
d(RO)
+ ,a#WAITRE
(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
JWAT PC +2 IS IN WAITPC
JWAT PC IS IN WAITPC
;WAIT ON REGISTER ADDRESS
;WAIT ON BIT

;DUMP NEXT TWO WORDS-TA, TO
JRESTORE RETURN ON STACK

;*THIS HAS THE TWO COUNT DOWNS FROM 177777

CZRJIC.P1T

8349
8350
8351
8352
8353
8354
8355
8356
8357
8358
8359
8360
8361
8362
8363
8364
8365
8366
8367
8368
8369
8370
8371
8372
8373
8374
8375
8376
8377
8378
8379
8380
8381
8382
8383

27-JuL-78 13:05

042216
042222
042230

013703
033777
001025
005303
001372
013703
033777
001015
005303
001372
017737
032777
001402

042154
041712

177426
000100

MACY11

177460

177440

D 15

1%:

2%:

000412

042304
042306
042314
042316
042324

000240
032777
001405
017737

042326
042330
042330
042332
042334

000400

104003

0126C3
012600
000002

137764

177366

001126

5%:

:R3 HAS TEMPORARY COUNT
aNTIMCNT ,R3
SMAITOT,BWAITRE ;IS REQUIRED BIT THERE
43

:BRANCH IF

YES

DEC
BNE

;COUNT IF REQUIRED BIT NOT THERE

BIT
BNE

a#TIMCNT ,R3

SNWA]TBT .SWAITRE

:SECOND COUNT DOWN FROM 177777

:BRANCH IF

MOV

BEQ
ERROR

3%:

000100

BIT
BNE

BIT

140006

104001

042302

MOV

DEC
BNE
MOV

001126

000414
104002

SEQ 0185

30A(1052)
27=-JUL-78 13:06 PAGE 186
JAM CURRENT CYLINDER ROUTINE

;IS REQUIRED BIT THERE
YES

:COUNT [F REQUIRED BIT NOOT THERE

AWAITRE ,a#88DAT ;REGISTER CONTENTS FOR TYPEOQUT
#1E.,aRH(ST
;DID ANY INTERRUPT OCCUR
;BRANCH [F YES
33
1

;RP0O4 DID NOT

INTERRUPT

:BIT DID NOT OCCUR
;ouT

B8R
ERROR

;RPO4 INTERRUPTED BUT

B8R

;FROM 177777 10 O
;ouT

CWAITED ON BIT DID NOT OCCUR
JEVEN AFTER TWO COUNT DOWNS

;*BIT DID SET SO CHECK IF

NOP

BIT

#1E,aRHCST

INTERRUPT OCCURED

JALLOW TIME FOR INTERRUPT
:DID ANY

INTERRUPT OCCUR

;BRANCH [F

YES

BEQ
MOV
ERROR

aWAITRE ,a#$8DDAT ;REGISTER CONTENTS FOR TYPEOUT
;INTERRUPT DID NOT OCCUR
3

B8R

:THE WAITED ON BIT OCCURING
;0uT

MOV
MOV
RTI

(SP)+_,R3

;:POP STACK INTO R3

:EVEN AFTER ONE BNE OF

(SP)+ RO

;;POP STACK INTO RO

JRETURN TO MAIN TEST

(ZRJICO, RPO4/5/6 FCTNL (TLR]

CZRJIC.P1

N RS

PR RRRREEERR R

8384
8385
8386
8387
8388
8389
8390
83N
8392
8393
8394
8395
8396
8397
8398
8399
8400
8401
8402
8403
8404
8405
8406
8407
8408
8409
8410

27-JuUL-78 13:05

E 15

13:06
PAGE
JAM CURRENT CYLINDER ROUTINE

MACY11 30A(1052)

27-JuL-78

SEQ 0186

187

;*THIS CHANGES REGISTER SAVED VALUE
;«CALL IS
RO,a#CHREG
JSR
o
JREGISTER TO BE (HANGED
o
R
JNUMBER OF BITS TO BE CHANGED
o
N
NEW
JNEW VALUE OF BIT MUST BE 0 OR1
. "
JPOSITION OF BIT TO BE CHANGED
i
P

042336
042336
042340
042342
042344
042346
042352
042354
042356
042362
042370
042372
042374
042376
042400

010146
010246
012001
012002
162701
005720
001403
052061
000402
042061
005302
001367
012602
012601
000200

002272
004612
UN4612

;*NEW AND P WILL Bt REPEATED N NUMBER OF TIMES
(HREG:
;:PUSH R1 ON STACK
R1.,=-(SP)
MOV
;:sPUSH R2 ON STACK
R2,=(SP)
MOV
;R1 HAS ADDRESS OF ADDRESS OF REGISTER
MOV
(ROY+,R1
;R2 HAS NUMBER OF CHANGES
(RO)
MOV
+ ,R2
#RHWC
,R1
:R1 HAS OFSET OF REQUIRED REGISTER
SuB
1%:
TST
(RO)+
;IS A BIC OR A BIS TO BE DONE
BEQ
23
JBRANCH IF A BIC IS REQUIRED
(RO) +,SAVERE(R1) ;SET REQUIRED BIT
8IS
BR
3%
;BRANCH TO DECREMENT COUNT
(RO)+,SAVERE(R1) ;CLEAR REQUIRED BIT
2%:
BIC
R2
3%:
DEC
;DECREMENT NUMBER OF CHANGES
1%
BNE
sBRANCH [F NOT COMPLETE
(SP)+,R2
MOV
;.POP STACK INTO R2
;.POP STACK INTO R1
MOV
(SP)+ ,R1
JRETURN TO MAIN PROGRAM
RO
RTS

J*THIS FILLS A BLOCK WITH INCREMENTAL DATA
s+CALL IS
RO, a#FILL
JSR
.
J*
M
s
M

042402
042402
042404
042406
042410
042412
042414
042416
042420

042422
042424
042426
042430
042432
042434
042436
042440

010146
010246
010346
010446
012001
012002

FILL:

010321
060403
005302
001374
012604
012603
012602
012601

;STARTING VALUE OF

; INCREMENT DATA BY

R1,-(SP)
R2.,=-(SP)

MOV
MOV

R4 ,-(SP)
(RO +,R1

MoV
MOV
MOV

1%:

;NUMBER OF WORDS

MOV
MoV

MOV

012003
012004

. FROM

F
N
S
1

R3,-(SP)

(RO)+,R2
(RO)+,R3
(RO)+ R4

:sPUSH R1

DATA

ON STACK

;;PUSH R2 ON STACK
::PUSH R3 ON STACK

;;PUSH R4 ON STACK
;R1 HAS ADDRESS WHERE DATA [S TO GO
;R2 HAS NUMBER OF WORDS TO BE FILLED

;STARTING VALUE OF DATA
;R4 HAS

INCREMENT

;*NOW DATA WILL BE FILLED
MoV
R3,(R1)+
sFILL DATA
ADD
R4 ,R3
:GET NEXT VALUE OF DATA
DEC
R2
:DECREMENT COUNT
1%
BNE
;BRANCH IF ALL NOT DONE
MOV
(SP)+ ,R4
;:POP STACK INTO R4
MoV
MOV
MOV

(SP)+,R3
(SP)+,R2
(SP)+ ,R1

:POP STACK INTO R3
,:POP STACK INTO R2
;.POP STACK INTO R1

fen Xen ]

CZRJICO, RPO4/5/6 FCINL CTLRI

CZRJIC.PI1T
8440
8441
8442
8443

042442

27=-JUL=-78 13:05
000200

MACY11

30A(1052)

27-JuL-78

13:06

JAM CURRENT CYLINDER ROUTINE
RTS

PAGE

SEQ 0187

188
JRETURN

TO MAIN PROGRAM

[ Xaa]

(ZRJICO, RPOL/S/6 FCINL CTLRI

(ZRJIC.PN

27-JuL-78 13:05

MACY11 30A(1052)

27-JuL-78

G 15

13:06

JAM CURRENT CYLINDER ROUTINE

8444
8445
8446

PAGE 189

8447

;*THIS IS A SUBROUTINE TO COMPARE REGISTERS

8450

;*CALL

8448
8449

;~GOOD DATA IS ALREADY SAVED [N °'SAVERE'
;*TEST DATA IS IN THE REGISTERS

8451
8452
8453
8454
8455
8456

g:gg

;*'REGADR' HAS REGISTER ADDRESS

8459

042444

8461
8462

042446
042450

8460
8463
8464
8465
8466
8467
8468
8469
8470

8471
8472

8473

8474

042444

010146

042452
042454
042456
042460
042462
042464
042466

010446
010546
012001
012002
012003
012004
011000

042470
042474

042502

004737
113737

012705

042506
042512
042514
042516
042522
042526
042534

062705
022122
001420
014137
014237
016537
004714

042536
042540
042544
042550
042554
042556
042560

022122
017746
042716
022726
001402
005303
001352

8491

042562

042562
042564
042566
042570
042572
042574
042576

COMREG:

010246
010346

8475
8476
8477
8478
8479
8480
8481
8482
8483
8484
8485
8486
8487
8488
gzgg

8492
8493
8494
8495
8496
8497
8498

i*
JSR
RO,a#COMREG
SAVERE
S
i*
RHCS1
it
N.
i
RG
;*ON RETURN WITH ERROR ‘'$GDDAT'

012605
012604
012603
012602
012601
000200
000000

MOV

R1,-(SP)

;;PUSH R1 ON STA(K

MOV
MOV
MOV
MOV
MOV
MOV
MOV

R4, -(SP)
RS,-(SP)
(RO) +.R1
(RO) +,R2
(RO)+,R3
(RO)+,R4
(RO) ,RO

;;PUSH R4 ON STA(K
;.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
MoV

043370
004637

177776

000002
001124
001126

002272

R2,=-(SP)
R3,-(SP)

;*NOW SAVE REGISTERS

JSR
MOVB

002401

MOV
1%:

004600

136374
177177
000200
2%:
3%:

4%:

:GOOD DATA
;ADDRESS OF ADDRESS TEST DATA
JRETURN FOR ERROR
JRETURN FOR GOOD COMPARISON
HAS GOOD DATA, °'$BDDAT' HAS BAD DATA

PC,a#PUTREG
;SAVE REGISTERS
A#SAVERE +25,a#AS+1,MAKE UPPER BYTE OF RHAS SAME

#-2 RS

:*NOW COMPARES WILL MADE

ADD
(MP
BEQ
MOV
MOV
MOV
JSR

;;PUSH R2 ON STACK
:.PUSH R3 ON STACK

;PRESET RS 10 -2

CMP
MOV
BIC
CMP
BcQ
DEC
BNE

#2,R5
;INCREMENT TO INDEX
(R1)+,(R2)+
; COMPARE REGISTER CONTENTS
2%
sBRANCH IF GOOD
-(R1) ,a#8GDDAT
;SAVE GOOD DATA
-(R2) ,a#$BDDAT
;SAVE BAD DATA
RHWC (RS) ,@#REGADR
;SAVE ADDRESS OF FAILING REGISTER
PC,aR4
JRETURN TO MAIN PROGRAM
;TO PRINT ERROR
(R1)+,(R2)+
;UNDO =(R1) AND -(R2) FOR ERRORS
dSWR, = (SP)
;GET SWITCH SETTING
#0600, (SP)
SKEEP ONLY SWITCH 7 AND 8
#SW07, (SP)+
;1S 7 SET AND 8 DOWN
3$
;BRANCH OUT IF YES
R3
JARE ALL COMPARES DONE
1%
JBRANCH IF NOT COMPLETE

MOV
MOV
MoV
MOV
MOV
RTS
.WORD

(SP) + ,RS
(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+ ,R1
RO
0

;;POP STACK INTO RS
;.POP STACK INTO Ré
;;POP STACK INTO R3
;;POP STACK INTO R2
;.POP STACK INTO R1
;RETURN TO MAIN PROGRAM
;TEMP STORAGE

SEQ 0188

[ Xl

CZRJI1CO, RPO4/S/6 FCTINL CTLR1T

(ZRJICO, RPO4/5/6 FCINL CTLR1T
CZRJIC.P1I
27~JUL=78 13:05

MACY11

H 15

30A(1052)
27-JuL-/8
13:06
PAGE
JAM CURRENT CYLINLER ROUTINE

190

SEQ 0189

8499
8500
8501
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
8507
8508
8509
8510
8511
8512
8513
8514
8515

;*WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT
:*THE PROGRAM GOES BACK TO CAN BE CHANGED.
;*THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: ;*1.
IT MUST BE WITHIN THE TEST UNDER CONSIDERATION
;*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, [F LOOP ON
s*«TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED
;*THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT

3282

; *PROGRAM GOES BACK = USUALLY BACK

BEGINNING OF

THE

TEST.

. %

8518

:*AFTER LOOPING FOR SOME

gggg

TIME

;*NORMAL OPERATION WILL CONTINUE.

8521
8522
8523
8524
8525
8526
8527
8528

042600
042602
042602
042606
042614
042620
042664
042670

000000

8530
8531
8532

042676
042730
042734

000414
013746
1046402

042672

8533
8534
8535

042736
042742
042746

8537
8538
8539
8540
8541
8542
8543
8544
8545
8546
8547
8548
8549
ggg?

043034
043116
043122
043170
043172
043176
043202
043206
043246
043252
043354
(043356
043362
043366

8536

THE

:*COMES TO THE END OF THE TEST UNDER CONSIDERATION.

32}9

8529

043030

005037
012737
104401
000421
013746
104402

104401

104401
104401
000430

104401

000430
104401
000422
104412
062716
012637
104401
000417
104401
000440
104412
012637
013746
000002

177776
177777
0642622

004604

042700
001110

001223
042750

043036
043124
000002
001106
043210

043254
001110
001106

047274

TESTAD: O
OPERSEL:
CLR
MOV
TYPE
BR
MOV
TYPOC
TYPE
BR
MOV
TYPOC
TYPE
TYPE
BR

TYPE

BR
TYPE
BR
RDOCT
ADD
MOV
TYPE
BR
TYPE
BR
RDOCT
MOV
MOV
RT]

THE LOOP SWITCH IS PUT DOWN THEN

JFIRST ADDRESS OF
PS
#-1,38PRITEM
,65%
648
STSTNM,-(SP)

,67%

66$
a#SLPERR,~(SP)

TEST

:MAKE PROCESSOR STATUS ZERO
;CLEAR PREVIOUS ITEM NUMBER
::TYPE ASCIZ STRING
;:GET OVER THE AS(IZ
:GET READY TO TYPE TEST
;NUMBER

2:TYPE ASCIZ STRING

::GET OVER THE ASCIZ
;GET READY TO TYPE LOOP BACK PC

LSCRLF
,69%
68%

;:TYPE ASCIZ STRING
:;GET OVER THE ASCIZ

70%
L73%
72%

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

L7218

;;TYPE ASCIZ STRING

#2,(SP)
(SP) + 248 PADR
,75%
74%
J77%
76%

;GET LPADR

(SP)+,a#%LPERR
S#SLPADR,~(SP)

;GET LPERR

::TYPE ASCIZ STRING
:.GET OVER THE ASCIZ
JoTYPE ASZIZ STRING
::GET OVER THE ASCIZ

(ZRJICO, RPO4/S/6 FCTINL CTLRI
CZRJIC.PT
27-JuL-78 13:05
8553
8554
8555
8556
8557
8558
8559
8560
8561
8562
8563
8564
8565
8566

8567
8568
8569
8570
8571
8572
8573
85.'4
8575
8576
8577
8578
8579

115
27=-JuL-78 13:06 PAGE
MACYT1 30A(1052)
JAM (URRENT CYLINDER ROUTINE

SEQ 0190

191

;*THIS SAVES THE (ONTENTS OF ALL HARDWARE REGISTERS

;~IN MEMORY LOCATIONS TAGED FROM 'W(C'' TO "EC2'’

;*THIS IS DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS
;*AND NOT THE REGISTERS THEMSELVES.
THIS Will MAKE
;*ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT

043370
043370
043372
043374
043376
043402
043406
043412
043414
043416
043420
043422
043424
043426

010046
010146
010246
012700
012701
012702
013021
005302
001375
012602
012601
012600
000207

UTREG:

002272
002354

000022

0%:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
DEC

BNE
MOV

MOV
MOV
RTS

RO,=(SP)
R1,-(SP)
R2,~(SP)
#RHW(C RO
#C,R1

;.PUSH RO ON STACK
;;PUSH R1 ON STA(K
;.PUSH R2 ON STA(CK

;STARTING ADDRESS OF REG

:STARTING ADDRESS OF WERE SAVED
#RHCC~RHW(+2/2,R2 ;NUMBER OF REG. INTO R2
a(RO)+,(R1)+
;SAVE HARDWARE REG.

R2
108
(SP)+,R2
(SP)+,R1
(SP)+,R0
PC

;.POP STACK INTO R2
;.POP STACK INTO R1
;.POP STACK INTO RO

8580

8581

8582

;*THIS IS A DATA

8584
8585
8586
8587
8588
8589
8590
8591
8592
8593
8594
8595
8596
8597
8598
8599
8600
8601
8602
8603
8604
8605
8606

. %

8583

8607

043466
043472

013077
000200

Enn»nn:»

043462

012077
012077
012077
012077
013746
052016
012677
012077

043430

P o LN
I CYPSRTP S

[I)

;*THE

(A LL IS
JSR
C
S

COMMAND SETUP SUBROUT INE

RO, a#RUN

T
-W

B
BAI
FMT22!ECI!HCI
coM

004716

MOV
MOV
MOV
MOV
MOV

13664
136622

MoV

(RO) +,3RHCA
(RO) +,aRHDST
(RO) +,aRHWC
(RO) +,3RHBA
S#UNIT,-(SP)
(RO)+, (SP)
(SP)+,aRH(CS2
(RO) +,aRHOF

MOV
RTS

136656
136644
136626
136624

136606

BIS
MOV

@(R0O) +,aRH(S

sCYLINDER
JSECTOR
: TRACK
JWORD COUNT
.BUS ADDRESS
:BUS ADDRESS INHIBIT
;FMT22=1

=16 BIT WORDS

;ECI = ECC CORRECTION INHIBIT
;HC] = HEADER COMPARE [NHIBIT
;COMMAND ADDRESS
;CYLINDER
;DESIRED SECTOR/TRACK
;WORD COUNT

;BUS ADDRESS
JGET UNIT NO

;SET BUS ADDRESS INKIBIT
SUNIT NO AND BAl TO RH(CS?
;FORMAT, ECC INHIBIT, HEADER
;COMPARE, [F THERE
;COMMAND IN RHCS1
JRETURN TO MAIN PROGRAM

CZRJICO, RPO&/S5/6 FCINL CTLRI
CZRJIC.P11
27-JuL-78 13:05
8608
8609
8610
8611
8612
8613
8614
8615

30A(1052)

27-JuL-78

J 15

13:06
PAGE
JAM (CURRENT CYLINDER ROUTINE

SEQ 0191

192

;*THIS IS A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY

8,8,

0,0

; *R1 HAS GOOD DATA BUFFER ADDRESS
*R2 HAS TEST DATA BUFFER ADDRESS
*RS HAS ADDRESS OF RETURN ON ERROR

®.

8616

8617
8618
8619
8620
8621

*R3 HAS NUMBER OF WORDS

*R4 HAS ONE

L
e

0463474
043474
043476
043500
043502
043504
043506
043510
043512
043514
043516
043520
043522
043524
043530
043532

(OMPAR:

010146
010246
010346
010446
010546
012001

012002
012003
012005
011000
010304
005204
010437
022122
001417

043534
014137
043540 014237
043544
160337
043550004715
043552
022122
043554
017746
043560 042716
043564
022726
043570 001402
043572
005303
043574
001353
043576
043576
012605
043600 012604
043602 012603
043604
012602
043606 012601
043610 000200

®»

;+CALL IS:

8622

8623
8624
8625
8626
8627
8628
8629
8630
8631
8632
8633
8634
8635

MACY11

004602

1%:

JSR
G

TO BE

RO, a#COMPAR

T
N
RE
RG

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV
MoV
MOV
MoV
INC
MOV
Mp

(OMPARED

THAN NUMBER OF

WORDS

TO BE

(OMPARED

;ADDRESS OF GOOD DATA
;ADDRESS OF TEST DATA
sNUMBER OF WORDS TO BE COMPARED

JRETURN ON ERROR

JRETURN ON NO ERROR

R1,-(SP)

R2.-(SP)
R3,-(SP)
R4 ,-(SP)
RS ,-(SP)
(RO)+ R
(RO) +,R2
(RO)+,R3
(RO) +,RS
(RO) ,RO
R3,R4
R4

R4 ,a#ERWORD

;3PUSH R1

ON STACK

;sPUSH R2 ON STACK

;+PUSH R3 ON STACK
. sPUSH 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

<RETURN ON NO ERROR
;NO OF

WORDS

TO BE

COMPARED

:FOR ERROR WORD NO

BEQ

(R1)+,(R2)+

;COMPARE GOOD WITH TEST DATA
;BRANCH [F GOOD

001124
001126
004602

MOV
MOV

~(R1) ,a#8GDDAT

.GOOD DATA
;BAD DATA
;ERROR WORD NO.

135360
177177

MOV

JSR
CMF

8IC

000200

2%:
3%:

BEQ

DEC

BNE
MOV
MOV
MOV
MOV
MOV
RTS

-(R2) ,a#$8DDAT
R3.,3a#ERWORD
PC.,aR5
(R1)+,(R2)+
aSWR,~-(SP)

#~C600, (SP)
#SW07, (SP)+

3%
R3
1%

(SP)+,RS
(SP)
+ ,R4
(SP)+,R3

(SP)+,R2

(SP)+ ,R1
RO

JRETURN TO PRINT

ERROR

JUNDO -(R1) AND -(R2)
;GET SWITCH SETTING

FOR ERRORS

JKEEP ONLY SWITCH 7 AND 8

;IS 7 SET AND 8 RESET
;BRANCH OUT IF YES
. COUNT
;BRANCH IF ALL NOT DEVICE
;;POP STACK INTO RS

;;POP STACK INTO R4

;;POP STACK INTO R3

;;POP STACK

INTO RZ

J:POP STACK INTO R1
;RETURN TO MAIN PROGRAM

—_

N —4

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

MACY11 30A(1052)

27-JuUL-78

K 15

13:06

JAM (CURRENT CYLINDER ROUTINE

PAGE 193

THIS ROUTINE WILL ALLOW THE

SEQ 0192

CHANGE OF

ADDRESS FROM 176700 TO ANY TYPED VALUE

043612
043612
043616
043672
043676

043700
043704

043760
043764
043766
043772
0463776
044004
044010
044012
044016
044022
044024
044026
044030
044030
044034
044074
044100
044102
044106
044206
044210
044214
044220
044256
044262
044264
044270
044326
044332
044334
044340
044400
044404
044412
044416
044470
044474
044552
044556
044560
044564
044572
044576
044576

104401

000425
013746
104402
104401

000425
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
104401
000424
104401
000426
012746
104402
104401
000402

002300

044036

66%

LA7S

RDOCT
MoV
MOV
MOV
(MP

PC.a#STKINT

;. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
JINITIALIZE THE TTY KEYBOARD

#RHDB RO
#22. ,R1
#ADT IMO, a#4

;GET STARTING ADDRESS OF REGISTERS
JNUMBER OF REGISTERS
;SET TRAP CATCHER TO CHECK THIS ADDRESS

TST
SuB
ADD
DEC
BNE

a0(SP)
SH#RHCS1,aSP
aSP, (RO) +
R1
2%

;NO,
;OK,
;GET
JAND
;JONE
;BUT

68%
AH#RPVEC,~-(SP)

,69%

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ
:GET READY TO TYPE OLD VECTOR ADDRESS

.71%

;. TYPE ASCIZ STRING

(SP)
+ ,a#RPVEC

:SETUP VECTOR ADDRESS
;:TYPE ASCIZ STRING
;;GET OVER THE ASCIZ

.75%

;. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

/7%
76%

::TYPE ASCIZ STRING

78%
,81%

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

BR
JSR

045666

000000
002300

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;GET READY TO TYPE OLD BASE

MOV
TYPOC
TYPE

043706

002270
000026
044576
002300

.65%

TYPE
BR

043620

000004

BEQ

2%:
1%:

TYPE

002266

MOV
TYPOC

064110

TYPE
BR
RDOCT
MOV
TYPE
BR

002266
044222

002300

044342

MOV
TYPOC
TYPE
BR
MOV
TYPOC
TYPE

064406

TYPE

044272
002266

B8R
BR

044420

TYPE

0464476

TYPE

000200

MOV
TYPOC
TYPE

044566

000137

005012

104401

044604

ADTIMO:

THE BASE

64%
@#RHCST,-(SP)

aSP,a#RHCS1

70%

.73%
72%
@#RHCS1,-(SP)
74%
@#RPVEC,-(SP)

.79%

80%
,83%
82%

#RA ,-(SP)

;NEW ADDRESS?

OLD ONE JUST RETYPED.
SO ACCESS THIS NEW ADDRESS
THE ADDRESS OFFSET
PLUG IT IN,
LESS REGISTER TO GO
WE'RE NOT DONE YET.

;.GET OVER THE ASCIZ

:;GET OVER THE ASCIZ
:;TYPE ASCIZ STRING

BR
JMP

a#BEGIN

84%

;;TYPE ASCIZ STRING
::GET OVER THE ASCIZ

TYPE

,65%

J:TYPE ASCIZ STRING

,85%

;RESTART,

TO RUN ALL DRIVES

(ZRJ1CO, RPO&L/S5/6 FCINL CTLRI
CZRJIC.PN
27-JuL-78 13:05
8719
8720
rel

Br2¢
8723

044602
064660
044662

000426
022626
000137

L 15
MACY11 30A(1052)
27-JUL-78
13:06 PAGE 194
JAM CURRENT CYLINDER ROUTINE
BR

043612

(Mp
JMP

648

(SP)+, .SP)+
¥BASE CH

;.GET OVER THE ASCIZ

JRESTORE THE STA(K
JAND DO THE WHOLE THING AGAIN!

SEQ 0193

8724
8725
8726
8727
8728
8729
8730
8731
8732
8733

8734

044666
0464666

044672
0464716
044720
0464726

27-JuL-78 13:05

104401
000411
104402

012777
000000

135340

27-JuL-78

m 15
13:06 PAGE

JAM (CURRENT CYLINDER ROUTINE

RPVE(CT:

044674
044666

30A(1052)

TYPE

,65%

B8R

643

MOV
HALT

#RPVECT ,aRPVE(

TYPOC

SEQ 0194

195

2 TYPE

ASCIZ

STRING

;;GET OVER THE ASCIZ

;TYPE FROM P(
JRESTORE TRAP RPO4 VE(TOR
;CHANGE TO (ONTINUE

CZRJIC.PIT

MACY11

CZRJICO, RPO4L/S/6 FCTNL CTLRI

8773
8774
8775
8776

8777

8778
8779

045136
045142
045146
045152
045156
045164
045172
045176
045200

000004

127737

136124

001102

105737

001103

101015

032777
001404
013737
000443
105037
005037
000415

032777
001011
005737
001406
005237
023737
002021
012737
013737
105237

011637
011637
005037
112737

013777
013716
000002
000004

001115

001103

001000

134074

001110

001106

001103
001212
004000

(%
134042

001100
001104
001212

000001
045200
001102
001106
001110
001214
000001
001102
001106

7%:

$SVLAD

MOV

(SP)+
. S#ERRVEC

(Mp

(MPB
8EQ
ISTR

BEQ
(MPB
BHI
8IT
BEQ
MOV

CLRB
(LR

BR
BIT
BNE

BEG
INC
P
BGE
1%:
MOV
MOV
$SVLAD: INCB
MOV
MOV
CLR
MOVB
$OVER:
MOV
MOV

:
$MX(NT

zrl

{SP)+ ,#ERRVE(

(SP)+,(SP)+

78
#1708, aSwR
8

aSWR,$TSTNM
$OVER
$ERFLG

3$
SERMAX,SERFLG
3$
#1709, aSwR
.

$LPERR,
$L PADK

$OVER

SERFLG
$TIMES

s
#BIT11,aSWR
18
$PASS

18
$ICNT

$TIMES.SICNT
$OVER
#1,81CNT
SMXCNT,STIMES
$TSTNM
(SP) ,SLPADR
(SP) ,$LPERR

$E SCAPE
#1.SERMAX
$ISTNM,aDISPLAY
$LPADR, (SP)

FOR (HANGE

[N SOF T-SWR

;:L00P ON PRESENT TESIT?

JoYES

SWi4=1

;oIF RUNNING ON THE "XOR'' TESTER (HANGE

JoSAVE THE CONTENTS OF THE ERROR VECTOR
csSET FOR TIMEOUT
;. TIME OUT ON XOR?
;oRESTORE THE ERROR VECTOR
.60 TO THE NEXT TEST
;sCLEAR THE STACK AFTER A TIME OUT
;sRESTORE THE ERROR VECTOR
;;LO0OP ON THE PRESENT TEST
;. LOOP ON SPEC. TEST?
;.BR IF NO
;;ON THE RIGHT TEST?
.:BR [IF YES

SWR<7:
0>

:sHAS AN ERROR OCCURRED?

c:BR [F NO

:;MAxiFEsSORS FOR THIS TEST OCCURRED>
..LOOP ON ERROR?
;BR IF NO

..SEI LOOP ADDRESS TO LAST SCOPE

;. JERO THE ERROR FLAG
;s CLEAR THE NUMBER OF [TERATIONS TO MAKE
;JESCAPE TO THE NEXT TEST
;. INHIBIT ITERATIONS?
;:BR IF YES
..IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS

S INCREMENT ITERATION COUNT
;. CHECK THE NUMBER OF [TERATIONS MADE
;;BR IF MORE JTERATION REQUIRED
JoREINITIALIZE THE ITERATION (OUNTER
;o SET NUMBER OF ITERATIONS TO DO

;. COUNT TEST NUMBERS

;. SAVE SCOPE LOOP ADDRESS
;s SAVE ERROR LOOP ADDRESS

.. CLEAR THE ESCAPE FROM ERROR ADDRESS
sJONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER

;:FUDGE RETURN ADDRESS
JoFIXES PS
JoMAX, NUMBER OF [TERATIONS

csTEST

m=mI

B8R

001104

SNMERRVEC ,=(SP)
#58 , S¥ERRVEC

177060

8R
8IT
BEQ

’%:

MIT14,aSwR
$OVER
63

157

MOV

134132

0014621
123737

MOV
MOV

000004

000400

001462

(KSWR

N eI OO " MOMDER TM M

177060

817
BNE
$XTSIR: BR
1%:

SEQ 0195

"MONDZ R

000423
032777
001404

000004
044770

134200

196

I O

012637
000463
022626
012637

040000

PAGE

044740
044742
044744
044750
046756
046762
044766
044770
044772
044776
045000
045006
045010
045016
045020
045024
045026
045034
045536
045044
045046
045054
045056
045062
045066
045070
045076
045100
045104
045106
045112
045120
045122
045130

104407

032777
N
0011
000416
013746
012737
005737

SCOPE HANDLER ROUT INE

N 15

13:06

"N ONMPER T

87%7
8738
8739
8740
8741
8742
8743
8744
8745
8746
8747
8748
8749
8750
8751
8752
8753
8754
8755
8756
8757
8758
8759
8760
8761
8762
8763
8764
8765
8766
8767
8768
8769
8770
8771
8772

044730
044732

27-JUL-78

=IO

8736

30A(1052)

8735

MACYTT

=IO MTMOANADZ B

(ZRJIICO, RPOL/S/6 TCTN (TLRI
(ZRJIC.PY
27-JuL-78 13:05

(2R21CO, RPO4L/S5/6 FCTINL CTLRI
CZRJIC.P1
27-JUL-78 13:05
8780
8781
8782
8783
8784

8784

8786
8787
8788
8789
8790
8791
8792

045202
045204
045206
045210
045212
045214
045220
045226
045226
045230

010046
010146
010246
010346
010546
012746
016605
100004

005405

112766
005000

0127C3
112723
005002
016001

8793
8794
8795
8796
8797

160105
002402

MACY1T

020200
000020

000055

000001

245416
000040

052702
052702
110223
005720
020027
002746
003002
010502

1%:

2%:

045406

3s:

005202
000774
060105
005702
001002

105716
100407
106316
103003
116663

8 16
13:06 PAGE 197
30A(1052)
27-JuL-78
CONVERT SINARY TO DECIMAL AND TYPE ROUT INE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG
MOovB

CLR

MOV
Movs

CLR
MOV
SuB
BLT
INC
BR

R2,=(SP)
R3,-(SP)
RS,=(SP)

#20200,-(SP)
20(SP) RS
1
RS
#'=,1(SP)
RO
#SDRLK R3

# (R

R2
$OTAL (RO) ,R1
R1.R5
43

5%:

000001

000060
000040

177777

000010

8MI]

ASLB
8CC
MOov8
BIS
BIS
MovB
TST

cMP
BLT
BGT
MOV

177776

:
9%

TSTB
BPL
mMovB8
CLRB
MOV
MoV
MOV

045416
000002

MOV
MoV

TYPE
MOV

000004
$DT8L:

MOV
RTI

10000
1000.
100.
10.

::PUSH RO ON STACK

:;PUSH R1 ON STACK
J:PUSH R2 NN STACK
;:PUSH R3 ON STACK
;:PUSH RS ON STA{K
::SET BLANK SWITCH AND SIGN

GET THE INPUT NUMBER
BR IF INPUT IS POS.
HAKE THE BINARY NUMBER POS.
HAKE THE ASCI] NUMBER NEG.

;;ZERO THE CONSTANTS INDEX
;;SETUP THE OUTPUT POINTER
::SET THE FIRST CHARACTER TO A BLANK
:;CLEAR THE B(CD NUMBER
::GET THE CONSTANT
:FORM THIS BCD DIGIT
BR IF DONE

; INCREASE THE BCD DIGIT BY 1

::ADD BACK THE CONSTANT
;:CHECK IF BCD DIGIT=0
;:FALL THROUGH [F O
;:STILL DOING LEADING 0°S?
.:BR IF YES

ADD
TST

T1STB

177777

000012

Ri,~(SP)

BNE

8%:

045410
045412
045414

RO.-(SP)

SEQ 0196

6
1(SP) ,=1(R3)
#'0.R2
2 _R2

R2.(R3)+

+
(RO)
RO, #10
2%
8s
R5.R2
63

“SP)+
9
=1(SP) ,=2(R3)
(R3)

(SP)+,RS
(SP)+,R3
(SP)+ ,R2
+ ,R1
(SP)
(SP)+,R0O

.SDBLK
2(SP) ,4(SP)
(SP)+,(SP)

s :MSD?
;:BR IF NO
J:YES==SET THE

SIGN

;:MAKE THE B8CD DIGIT ASCII

::MAKE IT A SPACE IF NOT ALREADY A DIGIT-

:2PUT THIS CHARACTER IN THE OUTPUT BUFFER
;s JUST INCREMENTING
::CHECK THE TABLE INDEX
;G0 DO THE NEXT DIGIT
;260 TO EXIT
:;GET THE LSD
;G0 CHANGE TO ASCIlI
;:WAS THE LSD THE FIRST NON-ZERQO?

;:BR IF NO

J2YES==-SET THE SIGN FOR TYPING

;:SET THE TERMINATOR
;;POP STACK INTO RS
;;POP STACK INTO R3
:;POP STACK INTO R2
::POP STACK INTO R1

::POP STACK INTO RO

;:NOW TYPE THE NUMBER

;;ADJUST THE STACK
::RETURN TO USER

CZRJIICO, RPO4L/S5/6 FCINL CTLRI
CZRJIC.P1
27-JuL~-78 13:05

8833
8834

8835

045426
045432
045434
045436
045440
045442

045446
045450
045452
045454
045456
045462
045464
045470
045472
045476
045500
045502
045504
045506
045512
045514
045520
0455264
045526
045532
045536
045540
045544
045550
045552
045556
045562
045570
045572
045574
045576
045602
045604

045612
045620
045622
045626
045630
045636
045640
045642
045644

105737

100002

MACYT1

001157

30A(1052)

TYPE ROUTINE

$TYPE:

000000

000407
010046
017600

112046

001005
005726
012600
062716
000002

1%:

000002

2%:

000002

60%:
3%:

122716

000011

4%:

122716
001006
005726
104401
001223
105037

000200

045642

123726

045576
001156

6%:

001154
000001

7%:

001430

000755
004737
001350
013746
105366
002770
004737
105337
000770
112716
004737
132737
001372
005726
000724
105777

100375
116677
122766

001003
105037
000406

122766
001402
105227
0000° "
0002v7

27-JuL-78

TS718B
8PL

$TPFLG

MOV
MOV

RO,-(SP)

HALT
B8R

MOv8

BNE
TST

MOV
ADD

RTI
CMPR

BEQ
(MPB
BNE
TST
TYPE

5%:

045576
045642

000040
045576
000007

045642

133346

000002
000015

8%:
9% :

$TYPEC:

$CRLF
CLRB
BR

JSR

(MPR
BNE
MOV
DE(CR
BLT
JSR
DECB

MOVR
JSR

TSTB

133340
000002

000002

a2(SPy
RO

(RO)+,-(SP)
43

1%:

CMP8

INCB
$CHARCNT
: .WORD
$TYPEX: RTS

PAGE

SEQ 0197

198

2:1S THERE A TERMINAL?
;:BR IF YES
JJHALT HERE IF NO TERMINAL
. s LEAVE
;:SAVE RO
;2GET ADDRESS OF ASCIZ STRING
;.PUSH CHARACTER TO BE TYPED ONTO STACK

(SP)+

;:BR IF IT ISN'T THE TERMINATOR
;:1F TERMINATOR POP T OFF THE STA(K

MHT
, (SP)

; JRETURN
;IBRANCH [F

#CRLF, (SP)

;;BRANCH IF NOT <(CRLF>

+
(SP)

;:POF <CR><LF> EQUIV
;;TYPE A CR AND LF

$CHARCNT

;s CLEAR CHARACTER COUNT
;:GET NEXT CHARACTER
2:;G0 TYPE THIS CHARA(CTER
22IS 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
.:60 TYPE A NULL
2 ;D0 NOT COUNT AS A COUNT
.. LOOP
;JREPLACE TAB WITH SPACE
;:;TYPE A SPACE
;;BRANCH IF NOT AT

(SP)+ RO
#2,(SP)

PC,STYPEC

$FILLC,(SP)+
2%
$NULL ,~(SP)
1(SP)
63
PC,.STYPEC

$CHARCNT
78

#' ,L(SP)
PC,STYPEC

#7 ,$CHARCNT

$TYPEC

2(SP) ,a81PB

045642
000012

C 16

13:06

#CR,2(SP)
13
$CHARCNT
$TYPEX
#LF ,2(SP)
$TYPEX
(PC)+

;.RESTORE RO
;sADJUST RETURN P(
<HT>

;:TAB STOP

;;POP SPACE OFF STACK
;:GET NEXT CHARACTER
;oWAIT UNTIL PRINTER IS READY

;;LOAD CHAR TO BE TYPED INTO DATA REG.
.. 1S CHARACTER A CARRIAGE RETURN?
s ;BRANCH IF NO
;s YES==CLEAR (HARACTER COUNT

JEXIT
2215 CHARACTER A LINE FEED?
;;BRANCH IF YES
;o COUNT THE (HARA(CTER
;. CHARACTER COUNT STORAGE

CZRJICO, RPO4/S5/6 FCTNL
CZRJIC.PTN
27-JuL-78
8881

8882

8883
8884

8885

8886
8887
8888
8889
8390
8891
8892

045646
045650
045652
045666
04567¢
045700
045706
045714

045646
045654
045650
045736

8936

TTY

INPUT ROUTINE

001140

000011

0465646

SISTRIP THE JUNK

3s:

31s:

133074
133070
177600
000021

32%:

045646
000140

000040
177520
045650
045650

045665

045654

045650

000176

001140

4% :

JMP

BNE
CMP
BEQ

2%
#SWREG, SWR
6%

BNE

CMP

5%:

(SP)+

(SP) 47

#9. ,8TKCNT
LSBELL

(SP)+

;:CLEAR DONE FLAG

;:RETURN TO CALLER
J:PICKUP THE CHARACTER

::I1S IT A CONTROL C?
: :BRANCH IF NO
2:TYPE A CONTROL=-C

;INIT THE KEYBOARD

(*O)

;:CLEAN UP STACK

;s CONTROL C RESTART
;:1S

IT A CONTROL G?

;:BRANCH IF NO
::1S SOFT-SWR SELECTED?
::60 TO SWR CHANGE
;1S THE QUEUE FULL?

: ;BRANCH IF NO
;:RING THE

TTY BELL

. ;CLEAN CHARACTER OFF OF

5%
(SP) ,#23

CLR

a$TKS

;:DISABLE TTY KEYBOARD INTERRUPTS

TST8
BPL
MOVA

a$TKS
31s
d$TKB,-(SP)

:2WAIT FOR A CHAR
;:LO0P UNTIL ITS THERE
;:GET THE CHARACTER

cMP
BNE

(SP) + 421
318

;:IS IT A CONTROL-Q?
;;BRANCH IF NO

BNE

TST

32%

(SP)+

#~C177.(SP)

MOV

#100,a8TKS

INC
CMP

STKCNT
(SP) 140

RTI

MP
BGT
BIC
MOVB
INC
cMP

[ 3

(SP) ,#175
43
#40, (SP)
(SP)+,a8TKQIN
$TKQIN
$TKQIN,#S$TKQEND

JsEXIT
;1S IT A CONTROL-S?

STACK

B8R
CMP

BNE
$CKSWR:

(SP) , 43

1%
LSCONTLC

OPERSEL

RLT

000175

PC
as$TKB,~(SP)

PC,S$TKINT

BIC
133046

a$TKB

JSR

TST

133102

132754

#2177, (SP)

TYPE

000023

100121

BIC

CMP

001216

046110
046112
046116
046120
046124
046130
046134
046142
046144
046152
046154
046162
044164
V46170

J:ENABLE TTY KEYBOARD INTERRUPT

TST

000176

000100

#100,a88TKS

cMP

1%:

SEQ 0198

199

MOV

BNE
TYPE

042602
000007

PAGE

J;NUMBER OF ITEMS [N QUEUE
;3 INPUT POINTER
JsOUTPUT POINTER
;:CLEAR COUNT OF ITEMS [N QUEUE
;:MOVE THE STARTING ADDRESS OF THE
:;QUEUE INTO THE INPUT & OUTPUT POINTERS.
;:INITIALIZE THE KEYBOARD VE(CTOR
. 'BR'' LEVEL 4

RTS
$TXKSRY: MOVB

046725
045666

D 16

13:06

0
0
O
$TKCNT
#STKQSRT ,$TKQIN
$TKQIN,STKQOUT
#STKSRY ,a#TKVEC
#200,a#TKVEC+2

TST

000003

8913

8928
8929
8930
8931
8932
8933
8934
8935

045650
045652
000060
000062

STKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKINT: (LR
MOV
MoV
MOV
MOV

133204
177600

8894
8895
8896
8897
8898
8899
8900
8901
8902
8903
8904
8905
8906
8907
8908
8909
8910
8911
8912
8914
8915
8916
8917
8918
8919
8920
8921
8922
8923
8924
8925
8926
8927

30A(1052)

133210

8893

27=JUL=-78

MACY11

;:BRANCH [F NO

;:CLEAN CHAR OFF

STACK

J:MAKE IT 7-BIT ASCII

:;REENABLE TTY KEYBOARD INTERRUPTS
; JRETURN

;:COUNT THIS CHARACTER
;.18 IT UPPER CASE?
:;BRANCH IF

YES

;IS IT A SPECIAL (HAR?
::BRANCH IF YES
J:MAKE IT UPPER CASE
J:AND PUT IT IN QUEUE
;:UPDATE THE POINTER
;.GO OFF THE END?

::BRANCH IF NO

MOV

#STKQSRT ,S$TKQIN ;;RESET THE POINTER

CMP
BNE

#SWREG, SWR
15%

BPL

15%

RTI

TSTR

o$TKS

;. ;RETURN

2:1S THE SOFT-SWR SELECTED
JSEXIT IF NOT
;1S A CHAR WAITING?

IF NOT, EXIT
;o

CZRJICO, RPO4/S/6 FCTINL CTLRI
27-JuUL-78 13:05
CZRJIC.P11
8937
8938
8939
8940
8941
8942

8943
8944

8945

8946

8947
8948
8949
8950
8951
8952
8953
8954
8955
8956
8957
8958
8959
8960
8961
8962

8963

8964
8965
8966

8967
8968
8969
8970
8971
8972
8973
8974
8975
8976

046172
0466176
046202
046206
046210
046216
046220
046222
046226
046232
046240
046244
046250
046254
046256
046262
046264
046266
046272
046274
046300
046304
046310
046312
046316
046322
046330
046332
046340
046344
046350
046352
046356
046362
046364
046370
046372
046376
046400
046406
046412
046416
046424
046426
046434
046436
046442
046446
046450
046454
046456
046462
046466
046470
046472
046474

117746

MACY11 30A(1052)
TTY

INPUT ROUTINE

132750

177600

000007
001134

000001

:
6%

045666

132712
000001
046737
0467446
000176

001135
$SGTSWR:

046755

19%:

7%:

132652
132646
177600
000003

0466725
000006
001135

000001

000100

132604

27-JUuL-78

3$TKB, - (SP)

JIYES

(SP) .47

;1S IT A CONTROL=-G”

TYPE
MOV
TYPOC
TYPE
(LR

LIMSWR

TYPE

TYPE
ADD

000015

10%:

000001

000100

132510

045576
000060

000067
000060
000002

15%:
16%:

as$TksS

#1,8IN1AG

LSCNTLG

SwPFG,-(SP)

a$TKB,=(SP)
#%C177,(SP)
(SP) 43
93

20%:

11%:

(SP)+
PC,STKINT

MOVB
81C
(MP
BNE

TST8
BPL

046732
000006

132532

23
., #1
SAUTOR
2%

CLR

9%:

000002
000006
001223
001135

#-C177 ., (SP)

- SMNEW
=(SP)
-(SP)

TYPE
ADD
CMPB

000004

SEQ 0199

PAGE 200

movB
BIC
CMP
BNE
(MP8
BEQ
TST
JSR
CLR
MOVB

BNE
MOV
JMP
CMP

042602
000025

E 16

13:06

BNE

BR
cMP
BNE
TST
BEQ
MOV

ADD
TYPE
(MP8

a$TKS
’$

LSCNTLC

#6,SP
#1
S$INTAG,
8%

#100,a8$TKS
OPERSEL

(SP) 425
108

LSCNTLU

(MP

BEQ
ASL
ASL
ASL

; ;BRANCH [F YES
:;CLEAR CONTROL-G OFF STA(K
;:FLUSH THE TTY INPUT QUEUE
;:DISABLE TTY KEYBOARD INTERRUPTS
:2SET INTERRUPT MODE INDICATOR
J:ECHO THE CONTROL-G (*G)
::TYPE CURRENT CONTENTS

;:SAVE SWREG FOR TYPEOUT
::GO TYPE=-=QCTAL ASCIICALL DIGITS)
;:PROMPT FOR NEW SWR
;:CLEAR COUNTER
;2 THE NEW SWR

;:CHAR THERE?

1F NO1 TRY AGAIN
;2
J:PICK UP CHAR

J;MAKE IT 7-BIT ASCII
;:1S IT A CONTROL-(C?
: ;BRANCH ]F NOT
::YES, ECHO CONTROL~-C (~(C)
;s CLEAN UP STALK
:;REENABLE TTY KEYBOARD INTERRUPTS?
:;BRANCH 1F NO
;JALLOW TTY KEYBOARD INTERRUPTS
;s CONTROL=-C RESTART
;oIS 1T A CONTROL=-U?
; ;BRANCH IF NOT
::YES, ECHO CONTROL-U (*U)

;;ECHO <CR> AND <LF>
::RE-ENABLE TTY KBD INTERRUPTS?

#6,5P

PC,S$TYPEC
(SP) ,460

TST

;:21F NOT, PUT [T IN THE TTY QUEUE
:;ARE WE RUNNING [N AUTO-MODE®

. SCRLF
SINTAG,#1

(SP) 415

163
4(SP)
118

JSR
CMP

BGT
BIC

7-BIT ASCII

2(SP) ,aSWR

19%

15%
#100,38TKS

BLT

;:IGNORE PREVIOUS INPUT
:;LET'S TRY IT AGAIN
2218 IT A <CR>?
;;BRANCH [F NO
::YES, IS IT THE FIRST (HAR?
:;BRANCH IF YES
2 ;SAVE NEW SWR

#6,SP

BNE
MOV
RT1

JIMAKE

#60, (SP) +
2(SP)
17%
(SP)
(SP)
(SP)

:;CLEAR UP STAC(K

;;BRANCH IF NOT
:;RE-ENABLE TTY KBD INTERRUPTS

;JRETURN
;:ECHO CHAR

;:CHAR < 07
: :BRANCH [F YES
:;CHAR > 7?
: :BRANCH IF YES
::STRIP=-QFF ASCII
;1S THIS THE FIRST (HAR
: ;BRANCH [F YES
:INO, SHIFT PRESENT
CHAR OVER TO MAKLE
S
ROOM FOR NEW ONE.
M

(ZRJICO, RPO4/S/6 FCTINL CTLRI
CZRJIC.P
27-JuL-78 13:05
8993

8994
8995
8996
8997
8998

8999

9000
9001
9002
9003
9004
9005

9006

9007
9008
9009
9010
9011
9012
9013
9014
9015
9016
9017
9018
9019
9020
9021
9022

046476
046502
066506
046510
046514
046516
046520
046526
0466532
0466534
046540
046542
046546
046550
046554
046562
046566
046574
046576
046604
046606
V66610
0"06!!0
046620
046622
046624

9025
9026
9027
9028
9029
9030
9031
9032
9033
9034
9035
9036
9037
9038
9039

TTY

INC

104401

001222

18%:

TYPE

$RD(HR:

MOV

000667
000720
011646
016666
005066
005046
012746
000002
005737
001775
005337
117766

005237
023727
001003
012737
000002
010346
012703
022703

101405
104410
112613
122713

104401

000004
000004

045646
045646
177072

045652
045652

045654

012603

011646
016666
012766
000002

;:PUT NEW PS ON STACK
;sPUT NEW PC ON STACK
::POP NEW PC AND PS
J:WAIT ON A CHARACTER

R3.~(SP)

2%:

(MP

046712

3%:

000002
000004
9% :

006503
005015
006507
053523
000
047040
000040

;2 THE PS

;:GET READY FOR A (HARACTER

MOV

1%:

000004
046714

;s SIMULATE CONTROL=-U

::PUSH DOWN THE PC AND

$RDLIN:

001222

177777
001224

4(SP),2(3P)

?2<CR><LF>

#STKGSRT,$TKQOUT P;RESE:

2%:

108:

104401

001356
105063

(SP) ,=(SP)

;eTYPE

MOv

045665

000177

122723

20%

:;GET THE NEXT ONE

$TKCNT

000004

046714
046725

73
. SQUES

J;KEEP COUNT OF (HAR
;:SET IN NEW (HAR

TST

1$:

045652

2(SP)
=2(SP), (SP)

4(SP)
~(SP)
#64% ,-(SP)

046542

046712
000015

104401

000002

SEQ 0200

201

INPUT ROUTINE

17%:

177776

F 16
13:06
PAGE

27-JuL-78

000002

000763
111337

046670
046672
046674
046702
046710
046712
046713
046725
046732
046737
046744
046752
046755
046762

30A(1052)

005266
056616

001003

9023
9024

MACY1?

RT]

MOV

BLOS
RDCHR
MOVB
CMPB
BNE
TYPE
BR

13
$TKCNT
::DECREMENT THE COUNTER
,4 (SP )
3$TKQOUT
:;:GET ONE CHARA(CTER
$TKQOUT
:2UPDATE THE POINTER
3;KOOUTASTKQEND ..DID IT GO OFF OF THE END?
JBRANCH [F NO

#STTYIN,RZ
HSTTYIN+9,
,R3
43

(SP)+,(R3)
#177,(R3)

MOV
MOV
MOV
(01"
RTI

000012
000
000012
020122

$CNTLC:
$CNTLU:
$CNTLG:
$MSWR:

BYTE
.BYTE
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

053505

SMNEW:

.ASCIZ

THE POINTER

::GET ADDRESS
;;BUFFER FULL?
;:BR IF YES
::G0 READ ONE CHARACTER FROM THE TTY
J;GET CHARAC(CTER
;1S 1T A RUBQUT
;2SKIP IF NOT
:;TYPE A

:;CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER

MOVB

TYPE
CMPR
BNE
CLRB
TYPE

. ;RETURN
:;SAVE R3

;;CHECK FOR RETURN
2:LOOP IF NOT RETURN
.SLF

(SP)+,R3
(SP) ,=(SP)
4(SPJ,2(SP)

HSTTYIN,4(SP)

0
0
2>
/2C/<15><1
/2U/<15><12>
/2G/<15><12>
<15><12>/SWR
/

;. CLEAR RETURN (THE 15)
;;TYPE A LINE FEED
;.RESTORE R3
;;ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT
cs
. JRETURN

:3STORAGE FOR ASCII CHAR., TO TYPE

2 TERMINATOR
;:CONTROL ''C'°
:;CONTROL 'U’
/;;CONTROL ‘G’

NEW =/
JFROM

THE

"TY

CZRJICO, RPOL/S/6 FCTNL CTLR1
CZRJIC.P1
27-JuL-78 13:05

046766
046770
046776

011646
016666
010046
010146
010246

000004

047114

000060

122716

000067

002423
006301

006102
006301
006102
006301
006102
042716
062601
000756
005726
010166
010237
012€02
012601

$RDOCT:

1%:

112046
001420
122716

003026

000002

MOV

ROL IN

MOV
MOV
CLR
CLR

BEQ
CMPB
BGT
CMPB
BLT
ASL
ROL
ASL
ROL
ASL
ROL

177770

000012
047124

3¢:

8IC
ADD
B8R
TST

MOV
MOV
MOV
MOV

MOV

000002
005726
105010

4%:

104401

047124

MCvV
MOV
MOV

MOovB

012600

000000
104401
000730
000000

27-JuL-78

001222

G 16

SEQ 0201

13:06
PAGE 202
READ AN OCTAL NUMBER FROM THE TTY

30A(1052)

MOV

104411

012600
010037
005001
005002

MACY11

5%:

RTI

TST
CLRB
TYPE

.WORD
TYPE
8R
$HIOCT: .WORD

(SP) ,=(SP)
4(SP),C(SP)
RO,=(SP)
R1,-(SP)
R2,=(SP)

;:PROVIDE SPACE FOR THE
;2 INPUT NUMBER

(SP)+ RO
RO,S5%
1
R2
(RO)+,=-(SP)

J:GET ADDRESS OF 1ST (HARA(CTER
J;AND SAVE [T
;;CLEAR DATA WORD

3%
#'Q,{(SP)
4%

2'7,(SP)
43
R1
R2
R1
R2
R1
R2
#°C7,(SP)
(SP)+ .R1

i 3

+
(SP)

R1.12(SP)
R2.$HIOCT
(SP)+,R2
(SP)+ ,R1

(SP)+,R0O

+
(SP)
(RO)

0
. SQUES
1%

:;PUSH RO ON STACK

:;PUSH RT ON STA(K
;;PUSH R2 ON STACK

;;READ AN ASCIZ LINE

J:PICKUP THIS CHARACTER
;;1F ZERO GET OUuT
;JMAKE

SURE

THIS (CHARA(TER

;1S AN OCTAL DIGIT

vl
L

;.8
J2STRIP THE ASCII

JUNK

;:ADD IN THIS DIGIT
;. LOOP

;:CLEAN TERMINATOR FROM STACK

2 :SAVE THE RESULT

::POP STACK INTO R2
;;POP STACK INTO R1
,.POP STACK INTO RO
; JRETURN

::CLEAN PARTIAL FROM STACK
::SET A TERMINATOR

;:TYPE
:;ll?ll

UP THRU THE BAD

IICROO

. TRY AGAIN

(HAR.

.IF.'

:;HIGH GRDER BITS GO HERE

CZRJICO, RPO4/S/6 FCINL CTLRI

CZRJIC.PTT

047126
047130
047136
047162
047144
047152
047160
047162
047166
047172
047176
047204
047212
047220

047222
047226
047232
047236
047240
047242
0472644
047252
047254
047260
047264
047266
047272

27-JuL~-78 13:05
104407

012737
105237
001775
013777
032777
001402
104401

005237
011637
162737
117737
032777
001004
004737
104401

005777
100002
000000
104407
032777
001402

013716
005737
001402
013716
000002

177777
001103

MACYT1

004734

H 16

30A(1052)
27-JuL-78
13:06
ERROR HANDLER ROUTINE

7%:

001102
002000
1%:

TYPE

INC
MOV
Su8

mMovs

BIT
BNE

JSR

2%:

131702

001214

BEQ
MOV

BIT

047276
001223

001110
001214

INCB

8EQ

001216
001112
001116
000002
131706
020000

001000

(KSWR
MOV

131666

3%:
4%

TYPE

ST
BPL
HALT

CKSWR
BIT
BEQ

MOV
TST

BEQ

MOV
RTI

PAGE 203

#-1,a¥[RFLGS

SEQ 0202

J3TEST

FOR

CHANGE

JSET ERROR FLAG

IN SOF T=SWR

$ERFLG
;cSET THE ERROR FLAG
’$
;cDON'T LET THE FLAG GO TO ZERO
STSTNM, aDISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG

:?IT10.GSUR

LSBELL

SERTTL
(SP) ,$ERRP(
#2,8ERRP(
@$ERRPC,SITEMB

#B1T13,aSWR
20%
P(,S$ERRTYP

,$CRLF

;:BELL ON ERROR?
;:NO - SKIP
;:sRING BELL
. ;COUNT THE NUMBER OF ERRORS
..GET ADDRESS UF ERROR [NSTRUCTION

;:STRIP AND SAVE THE ERROR ITEM (ODE

;. SKIP TYPEOUT IF
;:SKIP TYPEOUTS

SET

;.60 TO USER ERROR ROUTINE

aSWR
33

;;HALT

Z§ITO9.aSuR

;;LO0OP ON ERROR SWITCH SET?

$LPERR, (SP)
$ESCAPF
5%
$ESCAPE, (SP)

ON ERROR

2:SKIP IF CONTINUE
;;HALT ON ERROR!
;s TEST FOR CHANGE IN SOFT-SWR
::BR

;.FUDGE
;. CHECK
;:BR [F
;;FUDGE

s sRETURN

RETURN FOR LOOPING
FOR AN ESCAPE ADDRESS
NONE
RETURN ADDRESS FOR ESCAPE

L
CZRJIICO, RPO&L/S5/6 FCINL (TLRI
CZRJIC.P11
27-JUL~-78 13:05

MACY11 30A(1052)

27-JuUL-78

ERROR HANDLER ROUTINE

13:06

;':tt'tt'tttt...ttttt'

.SBTTL

[

PAGE 204

ARRARSR

SEQ 0203

ERROR MESSAGE TYPEOUT ROUTINE

*THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB)

*ERROR [S TO BE REPORTED.

TO DETERMINE WHICH

[T THEN OBTAINS, FROM THE ‘ERROR TABLE'' ($ERRTB),

*AND REPORTS THE APPROPRIATE [NFORMATION CONCERNING THE ERROR.

LI
I

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

«SECOND [F

TYPED BEFOR REPORTING THE ERROR

THE CURRENT ERROR HAS THE SAME ITEM NUMBER

;*AS THE PREVIOUS ERROR THEN ONLY THE DATA wiIlL BE

TYPED

PRITEM:

LOCATION

;*AND NOT THE ERROR MESSAGE AND HEADER.

9157
9158

9165

9166

047274

000000

047276
047302
047306
047312
047314
047316

017746
042716
022726
001001
000402
000137

131636
177277
000100

104401

047330

047322
047322
047326
047344
047350
047352
047356
047374
047400
047402
047406
047424
047430
047432
047436
047454
047460
047462
047466
047504
047510
047512
047516
047534
047540
047542
047546
047564
047570
047572
047576

000406
013746

104402
104401
000406
013746
104402
104401

000406
013746
104402
104401

000406
013746
104402
104401
000406
013746
104402
104401
000406
013746
104402
104401
000406

050236

002354

047360

:PREVIOUS

SERRTYP: MOV

aSWR,-(SP)

SGET SWITCH SETTING

CMP

#SWO06, (SP) +

“1S 6 SET AND 8 RESET

BIC

BNE
1%:

JMP

TYPE

BR
MOV

TYPOC

TYPE

002356

BR
MOV

047410

TYPE

002360
047440
002362

047470

TYPOC

MOV

TYPOC

TYPE

BR
Mog

TYPOC

TYPE

002404

BR
?og

047520

TYPE

0023064

047550
002370
047600

ITEM NO.

YPOC

BR
MOV

TYPOC

TYPE

BR
MOV

TYPOC

TYPE

#500, (SP)
1%

S4TYPERR

"KEEP ONLY SWITCH 8 AND 6

*IF NOT BRANCH

*BRANCH IF SW 6 IS SET AND 8 RESET
SJUMP IF Sw 8 IS SET

“OR IF SW 8 IS RESET AND SW 6 IS RESET

,65%

::TYPE ASCIZ STRING

L67%

::TYPE ASCIZ STRING

,69%

;:TYPE ASCIZ STRING

NCS2,-(SP)

“GET READY TO TYPE RHCS2 CONTENTS

64$
(.- (SP)

66$
ANBA, - (SP)
é8$

" GET OVER THE ASCIZ
“GET READY TO TYPE RHWC CONTENTS

“IGET OVER THE ASCIZ
‘GET READY TO TYPE RHBA CONTENTS
" GET OVER THE ASCIZ

718

::TYPE ASCIZ STRING

,73$

::TYPE ASCIZ STRING

708
(ST, ~(SP)

“ GET OVER THE ASCIZ
“GET READY TO TYPE RHCS1 CONTENTS

72%
aaDS1,~(SP)

“ GET OVER THE ASCIZ
"GET READY TO TYPE RHDS1 CONTENTS

,75%

::TYPE ASCIZ STRING

74%
aERT, = (SP)

" GET OVER THE ASCIZ
“GET READY TO TYPE RHER1

77%

::TYPE ASCIZ STRING

,79%

::TYPE ASCIZ STRING

76%
QMER2,~(SP)
/8%

CONTENTS

“ GET OVER THE ASCIZ
"GET READY TO TYPE RHER2 CONTENTS
;,GET OVER THE ASCIZ

(ZRJIICO, RPO&4/5/6 FCTINL CTLRI
CZRJIC.P1
27-JuL-78 13:05
9167
9168
9169
9170
9171
9172
9173
9174
9175
9176
9177
9178
9179
9180
9181
9182

9183
9184

9185
9186
9187
5188
9189
9190
9191

9192
9193
9194
9195
9196
9197
9198
9199
9200
9201

9202
9203
9204
9205
9206
9207
9208
9209
9210
9211
9212
9213
9214
9215
9216
9217
9218
9219
9220
9221

9222

013746

153700
001004

001114

050254

013746

001116

000406
013746
104402
104401

000406
013746
104402
104401
000406

013746

104402
104401
000406

013746
104402
104401

000406
013746
104402
104401

000406
013746
104402
104401
000406
013746
104402
104401
000406
013746
104402
104401

000406
013746
104402
104401
000406
013746
104402
104401

000406
013746
104402

J 16
30A(1052)
27-JuL-78
13:06 PAGE 205
ERROR MESSAGE TYPEOUT ROUTINE

002376

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
050064
050070
050072
050076
050114
050120
050122
050126
050144
050150
050152
050156
050174
050200
050202
050206
050224
050230
050232
050236
050236
050242
050244
050246
050252

104402
104401

MACY11

MOV
TYPOC
TYPE
BR

047630
002366

MOV
TYPOC
TYPE

047660

002374

MOV
TYPOC
TYPE

047710

002400

MOV
TYPOC
TYPE
BR
MOV
TYPOC
TYPE

047760
002372

047770

002402

MOV
TYPOC
TYPE
BR
MOV
TYPOC
TYPE

050020
002420
050050

002416

MoV
TYPOC
TYPE
BR
MOV
TYPOC
TYPE

050100
002412

050130

050160
002406

002410

005037

047274

104401
010046
005000

001223

.81%
80%

;. TYPE ASCIZ STRING

,83%
82%

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
;GET READY TO TYPE RHCA (ONTENTS

.85%
84S

;:TYP.

.87%

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

a#DST ,-(SP)

a#(A,-(SP)

(SP)
a#A-S,

;.GET OVER THE ASCIZ
JGET READY TO TYPE RHDST (ONTENTS

ASCIZ

STRING

;:GET OVER THE ASCIZ
JGET READY TO TYPE RHAS C(ONTENTS

86$
a#OF ,-(SP)

;GET READY TO TYPE RHOF (ONTENTS

.89%
88%
,
- (SP)
MR

;;TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
JGET READY TO TYPE RHMR (ONTENTS

918
90%
a#LA, ~(SP)

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ
;GET READY TO TYPE RHLA CONTENTS

,93%

;. TYPE ASCIZ STRING

92%

a#((,-(SP)

..GET OVER THE ASCIZ
;GET READY TO TYPE RHCC CONTENTS

,97%
96%

;. TYPE ASCIZ STRING

98%
a#DT ,-(SP)

,99%

;:TYPE ASCIZ STRING
;;GET OVER THE ASCIZ
;GET READY TO TYPE RHDT (CONTENTS

BR
MoV

3#SN,~(SP)

;. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
JGET READY TO TYPE RHSN CONTENTS

(LR

S#PRITEM

;CLEAR PREVIOUS ERROR [TEM

.SCRLF

;''CARRJAGE RETURN'' & "L INE FEED''
;SAVE RO
JPICKUP THE ITEM [NDEX

TYPOC

TYPERR:

JGET READY TO TYPE RHER3 CONTENTS

;. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
;GET READY TO TYPE RHECT CONTENTS

TYPOC
TYPE

050210

- (SP)
SNER3,

L9598
949

BR
MoV
TYPOC
TYPE
BR
Mov

002414

SEQ 0204

TYPE
MOV

CLR
B8ISRB
BNE
MOV

aECT,=(SP)

HEC2,-(SP)

RO,=(SP)
RO

SNSITEMB
RO
1%

$ERRP(,~(SP)

;.GET OVER THE ASCIZ
;GET READY TO TYPE RHECZ CONTENTS

;IF ITEM NUMBER [S ZERO, JUST

;TYPE

THE PC OF

THE ERROR

;SAVE SERRPC FOR TYPEOUT
;ERROR ADDRESS

(ZRJICO, RPOL/S/6 FCINL CTLRI
CZRJIC.PIT
27-JuL-78 13:05
9223
9224
9225
9226
9227
9228
9229
9230
9231

050260
050262
050264
050266
050270

047274
050326

050326
050330

001223
050344

050334
050340

050342
050344
050346
050352
050354
050356
050360
050362
050364
050366
050370

050402
050404
050410

050412
050414
050416
050420

1%:

001226
047274

050274
050300
050304
050306
050310
050312
050316
050322
050324

050372
050374
050374
050376
050400

TYPOC

104402
000454

05027¢

MACY11

K 16

001223

13%:

BR
DEC

ASL
ASL
ASL
ADD
CMP

BNE
C(MP
BR
MOV
MOV

BEQ
2%:
3%:

A ¥
5¢:

6%:

TYPE

7%:

104405

005711
001403
104401
000764
012601
012600
000207
020040
050424

8%:

RO
RO
RO
#$ERRTB,RO
RO,a#PRITEM

138
(RO)+,(RO)+
5%

RO,a#PRITEM
(RO)+,2%

BEQ

.WORD

MOV

(RO)+ ,R1

TYPE
MOV

TYPE

TYPE
MOV

LSCRLF
(RO)+.,4%

LSCRLF
R1,~(SP)

BEQ
MOV
1STB
BNE
MOV

9%
(RO)+,RO
(RO)+
7%
a(R1)+,-(SP)

MOV

a(R1)+,~-(SP)

TYPDS

TST

(R1)

BEQ
TYPE
BR

9%
L1118
6%

9%:
10%:

MoV
MoV

(SP)+ ,R1
(SP)+ RO

11%:

ASCIZ
.EVEN

050420

000

108
RO

.WORD

TYPOC

013146

SEQ 0205

13:06
PAGE 206
27-JJL-78
30A(1052)
ERROR MESSAGE TYPEOUT ROUTINE

RTS

;GO TYPE--OCTAL ASCII(ALL DIGITS)

JGET OUT
ADJUST THE INDEX SO THAT [T wlilL
WORK FOR THE ERROR TABLE
;FORM TABLE POINTER
;WAS PREVIOUS ERROR SAME

sBRANCH [F NOT

;POP RO OVER EM AND DH

;SAVE NEW ERROR [TEM

JPICKUP 'ERROR MESSAGE'' POINTER

;SKIP TYPEQUT IF NO POINTER
;TYPE

THE 'ERROR MESSAGE'’

;"ERROR MESSAGE'' POINTER GOES HERE
:"'CARRIAGE RETURN'' & "LINE FEED"'

;PICKUP ‘DATA HEADER'' POINTER
;SKIP TYPEOUT IF O
;TYPE

THE 'DATA HEADER''

;" DATA HEADER'' POINTER GOES HERE
:"'CARRIAGE RETURN'' & "LINE FEED"’

;SAVE R1

;PICKUP 'DATA TABLE'' POINTER
;BR IF NO DATA TO BE TYPED

;PICKUP 'DATA FORMAT'' POINTER
;"OCTAL'' OR 'DECIMAL"’

;BR [F DECIMAL
;SAVE a(R1)+ FOR TYPEOUT

;GO TYPE--OCTAL ASCII(ALL DIGITS)

;SAVE a(R1)+ FOR TYPEOUT
;GO TYPE--DECIMAL ASCII WITH SIGN
;1S THERE ANOTHER NUMBER?
;BR IF NO
;TYPE TWO(2)
. LOOP

SPACES

JRESTORE R1
€ "LINE FEED"'
;"'CARRIAGE RETURN''
;RETURN
;TWO(2) SPACES

9268
9269
9270
9271
9272
9273
9274

9275

9276
9277
9278
9279
9280
9281
9282

9283

9284
9285
9286
9287
9288
9289
9290
9291
9292
9293
9294
9295
9296
9297

050426
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
100016

042703
001002
005704
001403
005204
052703
052703
110337

104401
105337

003547
002402
005204
000744
012605
012604
012603
016666
012616

000002
000
000
000
000
000000

000000
002001

050651
000002

000001
000006
000005

MACY11

050647

050647
050651
050646

L 16

$TYPOS:

;;PICKUP

R3,-(SP)

;:SAVE R3

THE MODE

;;LOAD ZERO FJILL SWITCH
;;NUMBER OF DIGITS TO TYPE
;:ADJUST RETURN ADDRESS

2.SET THE ZERO FILL SWITCH
;.SET FOR SIX(6) DIGITS
;.SET THE ITERATION COUNT

R4, ~(SP)

;sCAVE R4

3%:

ROL
ROL
ROL
MOV
ROL

BPL
BIC
BNE
TST
BEQ
INC

RS
RS
RS
RS.R3
R3
$OMODE
7%
#177770,R3
4%

$TYPON:

1%:

2%:

177770

5%:
’%:

6%
000002

a(SP),- (SP)
1(SP),$OFILL
(SP)+,$OMODE
+1
#2,(SP)
$TYPON

#1,80F ILL
#6,$0MODE
+1
#5,80CNT

000006
050650
050647
000012

000060
000040
050644
050644
050646

MOV
MovB
MovB
ADD

MOvB
mMovB
mMovB
MOV
MOV
MOV
movs
NEG
ADD
MovB
MOVB
MOV
(LR
ROL

$TYPOC:

050651

050650

SEQ 0206

30A(1052)
27-JUL-78
13:06 PAGE 207
ERROR MESSAGE TYPEOUT ROUTINE

000004
8%:

$OCNT:
$OFILL:
:
$OMODE

DE(B

R5,-(SP)
R4
+1DE
$OMO
R&

#6,R4

R4, $SOMODE

$OFILL.RG
12(SP) ,RS
R3

BIS
MovB
TYPE
DE(B

BGT

BLT
INC
B8R

MOV
MOV
MOV
MOV
MOV
RT1

.BYTE
.BYTE
.BYTE
.BYTE
.WORD

::SAVE RS

;.GET THE NUMBER OF DIGITS TO TYPE

::SUBTRACT IT FOR MAX., ALLOWED
;:SAVE IT FOR USE
J:GET THE Z2ERO FILL SWITCH
;;PICKUP THE INPUT NUMBER
;s CLEAR THE OUTPUT WORD

::ROTATE MSB INTO '‘C**
;.60 DO MsSB
;;FORM THIS DIGIT

J:GET LSB OF THIS DIGIT
;3TYPE THIS DIGIT?
:sBR

.:GET RID OF JUNK

;. TEST FOR O
::SUPPRESS THIS 07
;:BR IF YES
;;DON'T SUPPRESS ANYMORE 0°'S

;;MAKE THIS DIGIT ASCII

BIS

(SP)+ RS
(SP)+_R4

(SP)+,R3
2(SP) ,4(SP)
(SP)+,(SP)

OCOOOO

(ZRJICO, RPO4L/S/76 FCINL CTLRI
CZRJIC.P1N
27-JuL-78 13:GS

;;MAKE ASCI1 IF NOT ALREADY
;;SAVE FOR TYPING
;:G0 TYPE THIS DIGIT
;. COUNT BY 1
;;BR IF MORE TO DO
;;BR IF DONE
;o INSURE LAST DIGIT ISN'T A BLANK
;.60 DO THE LAST DIGIT
;RESTORE RS
;JRESTORE R4
;;RESTORE R3
;.SET THE STACK FOR RETURNING
;s RETURN

2 ;STORAGE FOR ASCII DIGIT
;:TERMINATOR FOR TYPE

ROUTINE

2:0CTAL DIGIT COUNTER
;o lERO FILL SWITCH
;oNUMBER OF DIGITS TO TYPE

(ZRJICO, RPO&/S5/6 FCINL (TLRI
CZRJIC.PTI
27-JuL-78 13:05
931
9322
9323
9324
9325
9326
9327
9328
9329
9330
9331
9332

9333

9334
9335
9336
9337
9338
9339
9340
9341
9342
9343

050652
050654
050660
050662
050664

050666
050672
050674
050676
050704
050706
050710
050712
050714
050716
050720
050722
050724
050726
050730
050732
050734

010046

016600
005740

MACY11

30A(1052)

TRAP DECODER

$TRAP:

000002

111000

006300
016000
000200
011646
016666
000002
050674
0465426
050450
050424
050464
045202
046244
046154

046516
046606
046766
042156

050706

000004

000002

27-JuL-78

$TRAP?:
$TRPAD:

MOV
MOV
IST
MOvVB

ASL
MOV
RTS
MOV
MOV
RT]

. WORD
$TYPE
$1YPOC
$TYPOS
$TYPON
$TYPDS
$GTSWR
$CKSWR
$RD(HR
$RDL IN
$RDOCT
WAIT.T

M 16

13:06

PAGE 208

SEQ 0207

RO,-(SP)
2(SP),ro

;:SAVE RO
;2GET TRAP ADDRESS

(RO) RO
RO

;:GET RIGHT BYTE OF TRAP
;2POSITION FOR INDEXING

-(R0O)

$TRPAD (RO) ,RO
RO
(SP) ,~(SP)
L (SP) ,2(SP)

$TRAP?2

;s CALL=TYPE

. s CALL=TYPOC

s CALL-TYPOS

;s CALL=TYPON

JsCALL=TYPDS

;¢ CALL=GTSWR

s CALL=CKSWR

;s CALL=RD(CHR

:sCALL=RDLIN

;s CALL RDOCTY

;. CALL WAT

; cBACKUP BY 2

;3 INDEX TO TABLE

::G0 TO ROUTINE
:3MOVE THE PC DOWN
;:MOVE THE PSW DOWN

JsRESTORE THE PSW
TRAP+1(104401)

TRAP+2(106402)
TRAP+3(1046403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)
TRAP+7(104407)
TRAP+10(104410)

TTY

TYPEOUT ROUTINE

TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZERDS)
TYPE OCTAL NUMBER (AS PER LAST (ALL)
TYPE DECIMAL NUMBER (WITH SIGN)
GET SOF T-SWR SETTING
TEST FOR CHANGE I[N SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE

TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY
TRAP+13(104413) DONT ADD ABOVE THIS TRAP

—

"IRJ LD, RPUL/S/6 FCTNL (TLRY
(IRJIC.PMY
27=-JuL~78 13:05

05673
050744
050752
050754
050756
050760
050762
050764
050766
050772
050776
051004

051006
051010
051016
051022
051026
051032
051034
051040
051042
051044
051046
051050
051052
051054

012737
012737
010046
010146

010246
010346
010446
010546
017746
010637
012737
000000
000776
Q012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601

012600

012737
012737
104401

051110
012716
005012
000002
000000
000776
000000
005015
000122

05110¢
000340

MACY1T
000024
000026

8
30A(1052)
27=-JuL=-78 13:06
POWER DOWN AND UP ROUTINES
SPWRDN: MOV

MOV
MOV
MOV
MOV
MOV

051010

000024

051102
051106
051106
051106

000024

$PWRUP:

1¢%:

1301090

050736
000340

000024
000026
$SPWRMG:
$PWRAD:

$ILLUP:

047520

042527

$SAVR6:
$POWER:

MOV
HALT
BR
MOV
MOV

SEQ 0208

#SILLUP,a#PWRVEC ,; ,SET FOR FAST UP
#340,aPWRVEC+2 ;;PRIO:7

RO,-(SP)

;:PUSH RO ON STACK

R1,=~(SP)

:;PUSH R1 ON STACK

RS.,-(SP)

::PUSH RS ON STACK

R2,=(SP)
R3,-(SP)
R4 ,=-(SP)

asSwR,~(SP)

130146

051106

1
PAGE 209

;¢PUSH R2 ON STACK
;:PUSH R3 ON STACK
;2PUSH R4 ON STACK

:;PUSH aSWR ON STA(CK

;. SAVE SP
SP,$SAVR6
#SPWRUP ,a#PWRVE(C ;;SET UP VECTOR

.~2

: ;HANG UP

$SAVR6,SP

;;GET SP

#SILLUP ,a#PWRVEC

;;SET

FOR FAST

DOWN

CLR
INC
BNF

$SAVR6E

J;WAIT LOOP FOR THE TTY

:;0F

.WORD

$POWER
(PC)+,(SP)
BEGIN

;JREPORT THE POWER FAILURE
:;POWER FAIL MESSAGE POINTER
;;RESTART AT BEGIN
;JRESTART ADDRESS

;;THE POWER UP SEQUENCE WAS STARTED
;. BEFORE THE POWER DOWN WAS (OMPLETE

MOV
Mov
MOV
MOV
MOV
MOV
MOV
MOV
MoV
TYPE
Mov

.WORD

RTI
HALT

BR
0

LASCIZ

$SAVR6

;:WAIT FOR THE INC
WORD

(SP)+,aSWR
::POP STACK INTO aSWR
(SP)+,RS
::POP STACK INTO RS
(SP)+ R4
;:POP STACK INTO R4
(SP)+,R3
:;POP STACK INTO R3
(SP)+ R2
:;POP STACK INTO RZ2
(SP)+,R1
J;POP STACK INTO R1
(SP)+,RO
:;POP STACK INTO RO
#SPWRDN
, a#PWRVEC ;:SET UP THE POWER DOWN VECTOR
#340,a#PWRVEC+2 ;:PRIO: 7

<15><12>' POWER''

;;PUT

THE

SP HERE

(ZRJICO, RPO4L/5/6 FCTNL CTLRY
CZRJIC.P1
27-JuUL-78 13:05
[]

MACY1T 30A(1052)

9390
9391
9392
9393
9394
9395
9396
9397
9398
9399
9400
9401
9402

13:06

POWER DOWN AND UP ROUTINES

9381
9382
9383
9384
9385
9386
9387

9388
9389

27-JUL-78

SEQ 0209

PAGE 210

"ttt"ttitt'fit.t.i*ttttt't'tt'ttttt'
b

"«ERROR AND MESSAGE TABLE CONDIMENTS
.

"t'tfi'fi'ittfit.t.t'tt*fifitt.ttitttttt!'

051120
051126
051134
051142
051147
051154
051162
051170
051176
051204
051212
051220
051226
051234
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

032060
047040
052116
052120
052116
052120
046102
020124
041040
050130
020104
044504
020124

042040
052117
051105
000
051105
042440
020105
047504
052125
041505
044502
020104
042523

EM1:

LASCIZ

/RPO4

EM2:

.ASCIZ

/INTERRUPT ENABLE BIT DOWN BUT EXPECTED BIT DID NOT SET/

042040
052117
051105
053440
054105
042105
042040
052105

EM3:

.ASCIZ

/RP04 DID NOT INTERRUPT WHEN EXPECTED BIT DID SET/

052522
042510
042520
041040
042111

(32060
047040
052116
052120
020116
052103
052111
051440

041505
044502
020104
052502
042515
047111
051117
042515
030061
047522
042040
046101

EM4:

LASCIZ

/EXPECTED BIT DID SET BUT TIME

042523
041505

050130
020104
044504
020124
044524
020123
051122
044524
020116
041511
026103
046511

042040
047516
040505
046440
020107
046114
000123
047111
051105
020122
047125

EMS:

LASCIZ

/RHAS DOES NOT CLEAR BY MOVING IN ALL ONES/

053117
047111
047440
047514
020107
020061
046101

051501
020123
046103
054502
047111
040440
042516
042101
044122
047506
020114

EM6:

.ASCIZ

/LOADING RHER1

050122
042111
044440
0¢2522
m

052522
040516
044502

047127
042440
042524

020124
047516
000124
050122
042111
044440

000
105
042524
020124
042523
020124
044440
042440
024040
044440
046440
000051
044122
042517
020124
020122

DID NOT

INTERRUPT/

IS IN ERROR (TIME

IN *0O MICROSEC, DECIMAL

FOR ALL UNITS DID NOT SET ANY RHAS BITS/

CZRJICO, RPO4/S5/6 FCTNL CTLR]
CZRJIC.PN
27-JuL~78 13:05
9437
938
939
9440
9441
94642
6443
9444
9445
9446
9647
9448
9449
9450
9451
9452
9453
9454
9455
9456
9457
%58
9459
9460
9461
9462
9463
9464
9465
9466
%67
9468
9469
%470
9471
%72
%73
9474
9475
976
9477
9478
9479
9480
%81
34,82
9483
9484
9485
94,86
9487
9488
9489
9490
9491
9492

051532

051540
051546
051554
051562
051570
051576
051604
051612
051620
051626
051634
051640
051646
051654
051662
051670
051676
051704
051707
051714
051722
051730
051736
051744
051752
051760
051766
051774
052002
052010
052014
052022
052030
052036
052044

052052
052060
052066
052074
052102
052110
052116
052122
052130
052136
052144
052152
052160
052166
052174
052202
052210
052216
052224

052111

020123
047516
020124
044122
0521

020116

042524
043505
026122
051107
047502
000056

052123
020104
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
044520
050040
042105
047040
044524
026105
030523
046125
042526
026060
030475

050117
051104
040510
020114
047111
030523
000
052111
047111
047520
020104
051040
051440
020104
044040
047125

027117

04444C
000124
042524
047111
047520
020104
04756
020113
020056
020061
042114
020105
026061
000060
044124
042116
053517
052440
02C::7
046101
051040
051440
020104
043440
042040
020054

MACY11 30A(1052)

27-JUL-78

13:06

POWER DOWN AND UP ROUTINES

044504
020124
047101
051501
000123
0564105
052116
051511
050040

SEQ@ 0210

PAGE 211

EM7:

LASCIZ

/NON EXISTENT REGISTER, PROGRAM ABORTED./

042520
053111
020123
044502
051040
051440

EM10:

LASCIZ

/STOPPED DRIVE HAS MOL BIT IN RHDS1

020110
046104
042527
047504
041510
047510
047117
053101
052111
040440
020122

EM11:

LASCIZ

/WITH SPINDLE POWERED DOWN RHCSZ2 SHOULD ONLY HAVE UNIT NO. AND IR SET/

020122
046104
042527
050125
050040
041501
044122
044123
044040
047515
053040

EM12:

LASCIZ

/AFTER SPINDLE POWERED UP, NO PACK ACKN. RHDS1 SHOULD HAVE MOL=1, vv=0/

051440
042514
051105
026120

EM13:

.ASCIZ

/WITH SPINDLE POWERED UP, NO INTIALIZE, RHCS1 SHOULD HAVE GO=0, DVA=1, R

046501
052122

047111
05511
041510
047510

040510
036517

040526
042122

SET/

9493
9494
9495
9496
9497
3498
9499
9500
9501
9502

9503

9504

9505
9506

9507
9508
9509
9510
9511
9512
9513
9514
9515
9516
9517
9518
9519
9520

9521
9522
9523
9524
9525

9526
9527

9528
9529
9530
9531
9532
9533
9534
9535
9536
9537
9538
9539
9540
9541
9542
9543
9544
9545
9546
9547
9548

052232
052240
052244
052252
052260
052266
052274
052302

052310
052316
052317
052324
052332
052340
052346
052354
052362
052370

052371
052376

052404
052412
052420
052426
052434
052442
052450
052456
052460
052466
052474
052502
052510
052516
052517
052524
052532
052540
052546
052554
052562
052570
052576
052604
052606
052614
052622

052630
052636
052644
052652
052653
052660
052702

036531
036505
043101
050123
020105
042522
020054
051440
020104
000
120
041501
042514

047503

020104
042105
051105
012
107
040504
020123
042522
040515
042522
040524
043101
047503
000104
047516
047503
020104
042105
051105
012
107
040504

020123
042522
040515
042522
040524
043101
047503
000104

051104
046103

047503
020104
042105
051105

012
107

040504
053111
047510
042502

MACY1T 30A71052)

27-JuL-78

13:06

POWER DOWN AND UP ROUTINES

PAGE 212

026061

0464440

042526
047111
047520
020104
044122
047510
042502

020122
046104
042527
050125
041503
046125
030075

EMI4:

LASCIZ

/AFTER SPIND_E POWERED UP, RH(C SHOULD BE-0/

041501
047113
043504
046515
040503
040440
047522

020113
053517
020105
047101
051525
020116
006522

EM1S:

LASCII

/PACK ACKNOWLEDGE COMMAND CAUSED AN ERROR/<15><12>

047517
040524
042502
041440
042116
020103
044440
042524
046515

020104
044440
047506
046517
020054
040504
020123
020122
047101

LASCIZ

/GOOD DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND/

047455
046515
040503
040440
047522

020120
047101
051525
020116
006522

LASCII

/NO-OP (OMMAND CAUSED AN ERROR/<15><12>

047517
040524
042502
041440
042116
020103
044440
042524

020104
044440
047506
046517
020054
040504
020123
020122
047101

LASCIZ

/GOOD DATA IS BEFORE COMMAND, REC DATA [S AFTER COMMAND/

053111
040505
046515
040503

020105

/DRIVE CLEAR COMMAND CAUSED AN ERROR/<15><12>

040440
047522

020122
047101
051525
020116
006522

LASCII

047517
040524
051505
046125
020054

020104
043440
051440
020104
042522

LASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES AFTER COMMAND/

000060

046515

EM16:

EM17:

SEQ 0211

~Nr

(ZRJICO, RPOL/S/6 FCINL CTLRI
CZRJIC.P1
27-JuL-78 13:05

9549
9550
9551
9552
9553
9554
9555
9556
9557
9558
9559
9560
9561
9562
9563
9564
9565
9566
9567
9568
9569
9570
9571
9572
9573
9574
9575
9576
9577
9578
9579
9580
9581
9582
9583
9584
9585
9586
9587
9588
9589
9590
9591
9592
9593

MACY11 30A(1052)

052710
052716
052724
052732
052740

020103
043440
040440
041440
042116

040504
053111
052106
046517
000

040524
051505
051105
040515

052743
052750
052756

122

040505
041440
042116
042523
042440
005015
0462117
020101
020123
042114

026504
046517
041440
020104
051122

041510
047117
020123
043516
040515
051501
051105

030523

051504
052116
042040
020107
047101
020123
051122
046116
047503
020104
042105
051105
012

04711
040515
052501
047101
051117
047507
052101
042526
052517
026105
042040
044507
042522
047117
052106
046517
000

122
041440
052116
044522
046517
053440
020116
000122
044122
047503
051524
047111
046515
040527
042440

051040
052101
042526
027107
027124
051105
040515

047517
040524
051505
046125

053362

043107

020054
040504
053111
043505
052116
042524

27-JuUL-78

13:06

POWER DOWN AND UP ROUTINES

PAGE 213

SEQ 0212

LASCII

/READ-IN (OMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/

EM21:

.ASCIZ

/RHCS1

CONTENTS DURING COMMAND WAS IN ERROR/

020061
047105
051125
047503
020104
047111
051117

EM2?2:

.ASCIZ

/RHDS1

CONTENTS DURING COMMAND WAS

040517
046515
040503
040440
047522

EM23:

LASCII

/UNLOAD COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG.

EM20:

042040
044507
044123
061040
061505
020101
020123
041440
040440
041440
042116
042524
052504
041440
042116

044440
047522

020104
043440
051440
020104
042522

040524
051505
020056
020056
020122

[N ERROR/

CONT.

AFTER COMMAND/

CZRJICO, RPO4L/S/6 FCTNL CTLRT
27-JuL-78 13:05

CZRJIC.P1T

9605

9606
9607
9608

9609
9610
9611
9612
9613
9614
9615
9616
9617
9618
9619
9620
9621
9622

9623

9624
9625
9626
9627
9628
9629
9630
9631
9632
9633
9634
9635
9636
9637
9638

053370
053376
053400
053406
053414
053422
053430
053436
053440
053446
053454
053462
053470
053476
053504
053512
053520
053526
053534
053542
053543
053550
053556
053564
053572
053600
053606
053614
053622
053630
053636
053644
053652
053660
053666
053674
053702
053710
053716
053724
053725
053732
053740
053746
053754
053762
053770
053776
054004
054012
054015
054022
054030
054036
054044
054052

047503
000104
043117
041440
042116
042523
042440
005015
047507
052101
042526
052517
026105
042040
044507
042522
047117
052106
046517

000
122
020116

047105
044514
046517
041440
020104
051122
047507
052101
042526
052517
026105
042040
044507
042522
047117
052106
046517
000
065
043106
047503
051504
040440
052040
044124
052501
047101
051117
127
044040
020122
040504
052501
046511

POWER DOWN AND UP ROUTINES

MACY11 30A(1052)

046515

047101

051506
046517
041440
020104
051122

052105
040515
052501
047101
051117

042117
020101
020123
042114
051040
052101
042526
027107
027124
051105
040515

06420490
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
041440
040440
041440
042116

EM?25:

030060
042523
046515
047440
052106
042510
051105
042523
042440
000
044522
040505
047101
040524
042523
051120

047440
020124
047101
042516
051105
047440
041440
020104
051122
042524
042504
020104
041440
020104
050117

27-JUL=-78

021
SEQ 0 0213

PAGE 214

LASCI1

/OFFSET (OMMAND CAUSED AN ERROR/<15><12>

.ASCIZ

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

EM26:

.ASCIZ

/500 OFFSET COMMANDS ONE AFTER THE OTHER CAUSED AN ERROR/

EM27:

LASCII

/WR]TE HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12>

EM24:

CONT. AFTER COMMAND/

CZRJICO, RPO4/S5/6 FCTNL CTLRY
CZRJIC.P1
27-JuL~78 13:05

13:06

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13-05
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

27-JuL-78

13:0 2

POWER DOWN AND UP ROUTINE

PAGE 215

051105
051511
044103
005015
047507
052101
042526
052101
046125
052040
005015
042522
042105
020101
020123
053440
042510
052106
046517
000

051040
042524
047101

043505
020122
042507

042117

042060
044507
044127
047510
042502
042522

LASCI1

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042503
042040
044507
044127
051501
042522
051105

LASCIZ

/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/

040515

0531
05211
042526
052101
052040
040440
041440
042116

127

044522
040505
047101
040524
043516
044522
047522
043106

042524
042504
020104
041440
042105
042524
020115
051105

EM30:

LASCIZ

/WRITE HEADER AND DATA (CHANGED WRITE FROM BUFFER/

040505
042101
042116
020101
042105
047522
042522
051105
043516

020104
051105
062040
040503
044440
042520
044507
041440
006505

EM31:

LASCII

/READ HEADFR AND DATA CAUSED IMPROPER REGISTER (HANGE/<15><12>

047517
040524
051505
020124
042114
044124

020104
043440
053440
044123
041040
051105

.ASCI1

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

041505
020104
043440
053440
040527
051105
042524
046515

044505
040504
053111
040510
020123
020105
020122
047101

LASCIZ

/RECEIVED DATA GIVES WHAT WAS THtRE AFTER COMMAND/

044040
020122
040504
040510
053440
043040

054400
054401
054406
054414

054422
054430
054436
054444
054447
054454
054462
054470
054476
054504
054512
054520
054526

MACY11 30A(1052)

020101

020123
051440
020104
042510

012

000104

SEQ 0214

CZRJICO, RPO4/S/6 FCTNL CTLRI
CZRJIC.PIN
27-JuL-78 13:05
9717
9718
9719

9720

9721
9722
9723
9724
9725
9726
9727
9728
9729
9730
9731
9732
9733
9734
9735
9736
9737
9738
9739
9740
9741
9742
9743
9744
9745
9746
9747
9748
9749
9750
9751
9752
9753
9754
9755
9756
9757
9758
9759
9760
9761
9762
9763
9764
9765
9766
9767
9768
9769
9770
9771
9772

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

051127
042510
042040
043040
042527
051040
042510

040440
052101
052501
040504
051122
122
040504
052501
046511
051105
051511
044103
005015
047507
252101
042526
052101
046125
052040
005015
042522
042105
020101
020123
053440
042510
052106
046517

055136
055144
055151
055156
055164
055172
055200
055206
055214

006505

MACY11 30A(1052)

27-JuL-78

13:06

POWER DOWN AND UP ROUTINES

PAGE 216

SEQ 0215

EM3?2:

.ASCIZ

/WRITE HEADER DATA, FOLLOWED BY READ HEADER AND DATA, CAUSED DATA ERROR/

EM3_:

LASCII

/READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12>

042040
044507
044127
047510
042502
042522

LASCI1

/GO0OD 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
044507
041440
006505
047517
040524

020104
044440
042522

EM34:

.ASCIZ

/READ DATA INCORRECT/

042524
020101
047101
051525
050115
020122
052123
040510
012
020104
043440
053440
044123
041040
051105

EM35:

LASCI]

/WRITE DATA (COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

052111
042101
052101
046117
020104
040505
042101
042116
026101
042523
040524
051117
040505
040524
042523
051120
051040
042524
047101

020105
051105
026101
047514
054502
020104
051105
042040
041440
020104
042440
000
020104
041440
020104
050117
043505
020122
042507

042117
020101
020123
051440
020104
042510

051505
020124
042114
044124

012

(7RJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PT
¢7-JUL-78 13:05
9773

9774
9775
9776

9777
9778
9779
9780
9781
9782
3783
9784
9785

9786
9787
9788
9786
9790
9791
9792
9793
9794
9795
9796
9797
9798
9799
9800
9801

9802

9803
9804
9805
9806

9807
9808
9809

9810
9811
9812

9813
9814
9815

9816

9817
9818
9819
9820
9821
9822
9823
9824
9825
9826
9827
9828

055217
055224
055232
055240
055246
055254
055262
055270
055276
055303
055310
055316
055324
055332
055340
055346
055354
055360
055366
055374
055402
055410
055416
055424
055432
055436
055444
055452
055460
055466
055474
055502
055504
055512
055520
055526

055534
055542
055550
055556
055564
055572

055575
055602
055610
055616
055624
055632
055640
055646
055652
055660
055666
055674
055702

122

042526
040524
051505
051511
047503
051524
051105
040515

127
042040
047503
020104
042507
0521
046517
042506

042523
046517

041440
020104
050117
043505
020122
042507
047507
052101
042526
052101
046125
052040
005015
042522
042105
020101
020123
052123
047117
020123
020122
041440
042116
127
041440
041440
020104
050117
043505
020122

042507
047507
052101
042526
052101
046125

041505
020104
043440
051040
0642524
052116
040440
041440
042116
044522
052101
046515
044103
020104
020105

041040
000122

MACY11 30A(1052)

27-JuL-78

13:06

POWER DOWN AND UP ROUTINES
LASCIZ

/RECEIVED DATA GIVES REGISTER (ONTENTS AFTER COMMAND/

EM36:

LASCIZ

/WRITE DATA (OMMAND (HANGLD WRITE FROM BUFFER/

EM37:

LASCII

/SEEK COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

044505
040504
053111
043505
020122
047105

052106
0406517
000
042524
020101
047101
047101
051127
051106
043125

PAGE 217

045505
040515
052501
046511
051105
051511
044103
005015
042117
020101
020123
051440
020104
042510

041440
042116
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
042523
046517
000

053111
052101
042526
044507
041440
052116
042524
045505
040515

.ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER SEEK COMMAND/

044522
042510
052501
046511
051105
051571
044103
005015
042117
020101
020123
051440
020104

042524
045503
042523
051120
051040
042524
047101

LASCI1

/WRITE CHECK CAUSED IMPROPER REGISTER CHANGE/<15><12>

LASCI1

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042040
044507
044127
047510
042502

EM4LO:

SEQ 0216

CZRJI1CO, RPO4/5/6 FCTNL CTLRI
CZRJIC.PT
27-JuL-78 13:05
9829
9830

055710
055716
055720
055726
055734
055742
055750
055756
055764
055772
056000
056004
056012
056020
056026
056034
056042
056050
056056
056064
056072
056100
056106
056114
056122
056130
056136
056144
056152
056160
056162
056170
056176
056204
056212
056220
056226
056234
056242
056250
056256
056264
056265
056272
056300
056306
056314
056322
056330

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

056374
056401

043516
107

056336
056344
056352
056360
056366

101

052120
047524
042524
020110
051505
042513
020124
042105
047522
042522
051105

MACY11 30A(1052)

27-JuL-78

13:06

POWER DOWN AND UP ROUTINES

042510

042522

042503
042040
044507
042522
051105
042524
043107
047503
000104
045503
052517
052111
053440
046040
052502
041440
020104
050117
043505
020122
042507
042117
020101
020123
051440

053111
052101
042526
044507
041440
052116
042524
046515

SEQ 0217

PAGE 218

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

LASCII

/LOCKING OUT WRITE BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE/

042040
044507

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

020104
042510

044127
047510
042502
042522

042503
042040
044507
042522
051105
042524
043101
051127
053440
047514
047440

053111
052101
042526
044507
041440
052116
042524
052111
051105
045503
052125

.ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITES WERE LOCKED OUT/

052124
047111
053440
053440
051127
046040
020104
040503
044440
042520
044507
041440
006505
047517

046505
020107
044522

LASCII

/ATTEMPTING TO WRITE WITH WRITES LOCKED OUT CAUSED

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

047111
020124
020105
044522
041517
052124
052501
046511
051105
051511
044103
005015

052111
05211
041517
052517
051525
050115
020122
052123
040510
012
020104

:
EM&T

EM42:

IMPROPER REGISTER CHA

CZRJICO, RPO4/S5/6 FCTNL CTLR1
27-JuL-78 13:05
CZRJIC.PN
9885
9886
9887
9888
9889
9890
9891
9892
9893
9894

9895
9896
9897
9898
9899

056406
056414
056422
056430
056436
056444
056447
056454
056462
056470
056476
056504
056512
056520
056526
056534
056542
056543
056550
056556
056564
056572
056600
056606
056614
056622
056625
056632
056640
056646
056654
056662
056670
056676
056704
056712
056720
056726
056734
056742
056750
056753
056760
056766
056774
057002
057010
057016
057024
057032
057037
057044
057052
057060
057066
057074

040504
05311
040510
052517
020105
006505
122
042526
040524
051505
051511
047503
051524
051105
046505
053440

052124

MACY11 30A(1052)

13:06

POWER DOWN AND UP ROUTINES

040524
051505
020124
042114
044124
012
041505
020104
043440
051040
042524
052116
040440
040440

043440
053440
044123
041040
051105

052120
044522

044505
040504
053111
043505
020122
047105
052106
052124
042105
042524

044522
053440
051127
046040
020104
044103
020104
042040

044524
052111
052111
041517
052517
047101
044504
052101

012
047517
040524
051505
020124
047117
020113
042522
042524
044124
042524
042513
024524
020123
050115
012
041505
020104
043440
053440
040527
042101
020113
020122
006505
044527
044522
041517
052517
051501
046505

27-Jut~-78

PAGE 219

SEQ 0218

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTMS AFTER ATTEMPTED WRITE/

.ASCII

/WRITING WITH WRITES LOCKED OUT CHANGED DISK DATA/<'5><12>

020104
043440
053440
040527
042040
042502
053440
024040
053440
046040
020104
005015
052101
042524

LASCI1

/GOOD DATA GIVES WHAT WAS ON DISK BEFORE WRITE

LASCII

/WAS ATTEMPTED/<15><12>

044505
040504
05311
040510
020123
041040
043101
051127

LASCI1

/RECEIVED DATA GIVES WHAT WAS READ BACK AFTER WRITE/<15><12>

044124
042524
042513
024524
040440
052120

LASCIZ

/(WITH WRITE LOCKED QUT) WAS ATTEMPTED/

012

EML3:

(WITH WRITE LOCKED OUT)/<

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL-78 13:05
057102
057105
057112
057120
057126
057134
057142
057150
057156
057164
057172
057200
057206
057213
057220
057226
057234
057242

057250
057256
057261
057266
057274
057302
057310

057316
057324
057332
057340
057346
057354
057360
057366
057374
057377

057404
057412
057420
057426
057434
057442
057450
057456
057464
057472
057477
057504
057512
057520
057526
057534
057540
057546
057554
057562
057570

042105
105

047111
052111
020131
020105
041040
020116
042105
047522
042522
051105
043516
107
040504
053111
040510
052517
020105
006505
122

042526
040524
051505
051511

047503
051524
051105
042524
020113
047117
047105

020104
051505
124
042506
020107
051501

041517
054503
051105
020054

051117
052040
030440

103
020104
050117
043505
020122
042507

047507
052101
042526
052101
046125

000
040516
020107
051505
051127
047514
052125
040503
044440
042520
044507
041440
006505
047517
040524
051505
020124
042114
044124

012

041505
020104
043440
051040
042524
052116
040440
053440
046040

052502
005015
041101
051127

000
040522
051122
047117
020124
020113
044514
032040
042523
031040
040522
006470
052501
046511
051105
051571
044103
005015
042117
020101
020123
051440
020104

27-JuL-78 13:06
MACY11 3gA(1 052)
AND UP ROUTINES
DOWN
OWER

PAGE 220

SEQ 0219

LASCII

/ENABL NG WRITES BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHAMNGE/<1

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

044505
040504
053111
043505
020122
047105
052106
044522
041517
052124

LASCI]

/RECEIVED DATA GIVES REGISTMER CONTENTS AFTER WRITE LOCK BUTTON/<15><12>

042514
052111

LASCIZ

/ENABLED WRITES/

.ASCII

/TRANSFERRING ON LAST BLOCK - CYLINDER 410, SECTOR 21, TRACK 18/<15><12>

.ASCII

/CAUSED IMPROPER REGISTER CHANGE/<15><12>

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

046102
051127
041040
052111
045503
047524
051525
050115
020122
052123
040510
012
020104
043440
053440
044123

EM4S:

041040
051105

051516
047111
046040
046102
020055
042116
030061
052103
026061
045503
012
042523
051120
051040
042524
047101

042040
044507
044127
047510
042502

EM4S:

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

— e
ed cd
d
b
b
NN
NOWVNESWN-=O VO ~NOWNS WO

—

b o) weh

—

d i od d sl nd

d wnd

SRISSISSSK 2222222222

) b

10007

057576
057604
057606
057614
057622
057630
057636
057644
057652
057660
057666
057673
057700
057706
057714
057722
057730
057736
057744
057752
057760
057766
057772
060000
060006
060014

052040
005015
042522
042105
02010
020123
052123
047117
020123
020122
043123
104

042522
047522
052123
045503
046131
020122
051440
020122
051124
034061
051511
051105
051124
051105

042040
051106
047117
040524
041505
040503
044440
042520
042522
051105
043516

047517
040524
051505

060264

MACY11 30A€1052)
042522

042503
042040
044507
042522
051105
042524
043101
051124
051105
052101
042101
020115
041040
026440
047111
030464
041505
030462
041501
005015
044440
047522
047101
044522
052101
046517

053111
052101
042526
044507
0461440
052116
042524
047101
000
020101
043040
040514
047514
041440
042504
026060
047524

052116
047524
051525
050115
020122
044507

051440

041440
026105
020104
043440

020124
042114
044124

053440
044123
041040
051105

042506

041505
020104
043440
051040
042524
052116
040440
040440
052120
040522
000122

13:06

POWER DOWN AND UP ROUTINES

042510

054105

27-JuL-78

EM46:

PAGE 221

SEQ 0220

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER TRANSFER/

LASCI]

/DATA READ FROM LAST BLOCK = CYLINDER 410, SECTOR 21, TRACK 18/<15><12>

.ASCIZ

/1S

LASCI]

/TRANSFERRING DATA FROM NONEXISTANT SECTOR CAUSED IMPROPER /<15><12>

.ASCI1

/REGISTER CHANGE, GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED TRANSFER/

020054
020113

020116
000122
043123
043516
020101
047040
051511

020122
042105
047522
005015
052123
040510
043440
040504

EM47:

IN ERROR/

053111

040510

052517

020105
006505

044505
040504
053111

043505
020122
047105
052106
052124
042105
051516

MACY11

3CA(1052)

EMSO0:

051122

043123
043516
020115
044530
020124
05111/
042523
040524
051117

042117
020101
020123
051440
020104
042510

(ZRJICO, RPO4/S5/6 FCTNL CTLRI]
27-JuL-78 13:05
CZRJIC.PIT
10053
10054
10055
10056
10057
10058
10059
10060
10061
10062
10063
10064
10065

060270

051124
051105
043040
067516

052123
042523
041440
020104

060416
060424
060426
060434
060442
060450
060456
060464
060472
060500
060506
060507
060514
060522
060530
060536
060544
060552
060560
060566
060574
060600
060606
060614
060622
060630
060636
060644
060646
060654
060662
060670
060676
060704
060712
060720

060726
060734
060742
060750
060754

062440
005015
047507
052101
042526
052101
046125
052040
005015
040502
0460524
051505
020124
047111
042506
042524
047101
000
107
020107
040507
041516
0461440
020104
050117
043505
020122
042507
047507
052101
042526
052101
046125
052040
005015
0462522
042105
020101
020123
052123
047117
020123
020122
040507
041516
044440
042526
051127

27-JuL-78

13:06

POWER DOWN AND UP ROUTINES

SEQ 0221

PAGE 222

LASCII

/TRANSFERRING FROM NONEXISTANT SECTOR CAUSED DATA ERROR/<15><12>

042040
044507
044127
047510
042502
042522

LASCI]

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

020104
043440
053440
040527
041040
020122
020122

040504
053111
040510

LASCIZ

/BAD DATA GIVES WHAT WAS

053111
046111
020114
044524
052501
046511
051105
05151
044103
005015
042117
020101
020123
051440
020104
042510

047111
042514
052506
047117
042523
051120
051040
0425264
047101

.ASCI1

/GIVING ILLEGAL FUNCTION CAUSED IMPROPER REGISTER CHANGE/<15><12>

042040
044507
044127
047510
042502
042522

LASCI1

/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

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ILLEGAL FUNCTION IS GIVEN/

LASCI1I

/WRITE DATA (CMMAND ON NONEXISTANT SECTOR CAUSED IMPROPER REG. CHANGE /<1

047101
044522
047522
042516
047101
052103
052501
040504

043123

IN BUFFER AFTER TRANSFER/

020123
043125
043101
051124
051105

020105

EMS1:

EM52:

b
b D D D O
NO NS NN —-O0

060762
060770
060776
061004
061012

X NV

—

pord

—

S
G
U
O
G

b - B

elololelololelolols] o
(ole] P
Qe Guor Guer o
s o Gur G
ar|

CZRJICO, RPO4/5/6 FCTNL CTLRT
CZRJIC.PN
27-JuUL~78 13:05
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
041440
020104
042440
000

101
052120
047503
020104
044440

061420
061426
061430
061436
061444
061452

042111
042522
052501
046511
051105
051511
044103
005015
047507
052101
042526
052101

040524

049515
020116

044530
020124
051117
042523
051120
051040
044103
005015
042117

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
.ASCI]

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

020123
051440
020104
042510

042040
044507
044127
047510
042502
042522

042503
042040
044507
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

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE DATA/

EM53:

LASCIZ

/READ HEADER AND DATA AFTER A SEARCH CAUSED DATA ERROR/

052124
047111
046515
044527
053116
040440
051523

EMS4

LASCII

/ATTEMPTING COMMAND WITH INVALID ADDRESS CAUSED IMPROPER REGISTER CHANGE

051120
051040
042524
047101

046505
020107
047101
044124
046101
042104
041440
020104
050117
043505
020122
042507

042117
020101
020123
051440

042040
044507
044127
047510

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

020101

042523

CZRJICO, RPO4L/S5/6 FCTNL CTLRI
27-JuUL-78 13:05
CZRJIC.P11
10165

046125

052040

005015
042522
042105
020101
020123
052123
047117
020123
020122
052101
051127
020107
040505
053440
054105

042105
042522
042526
020127
006522
103
020104
050117
043505

SBRIRRR

Puur Gy
Gaur s P
G

) e
e

061460
061466
061474
061476
061504
061512
061520
061526
061534
061542
061550

183

(ololeloleleolele]

10166
10167
10168
10169
10170
10171

020122
042507
047507
052101
042526
052101
046125
052040
005015
042522
042105
020101

020123
052123
047117
020123
020122
052101
062066
062074
062102
062110
062116
062124
062132
062140
062146
062152

040504
040505
044124
054105
042105

042522
042526
020127
020122
041516
052103
047527

MACY11 30A(1052)
042502
042522

042503
042040
044507
042522
051105
042524
043101
050117
047511
052111
051117
044504
052111
042520
040440
051523
043122
051105
012
052501
046511
051105
051511
044103
005015
042117
020101
020123
051440
020104
042510

053111
052101
042526
044507
041440
052116
042524
051105
000116
047111

042503
042040
044507
042522
051105

040440
051523
043122
051125
051511
051117
005015
042122

13:06

POWER DOWN AND UP ROUTINES

020104
042510

042524
043101
050117
047511
040524
020104
040440
042520

27-JuL-78

PAGE 224

SEQ 0223

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/

LASCI1

/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><1¢2>

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/

.ASCI11

/DATA READ WITH AN EXPECTED ADDRESS OVERFLOW ERROR IS INCORRECT/<15><12>

.ASCI1

/WORD NO. 1 TO 260 SHOULD BE READ, WORD NO 261 TO 266 SHOULD/<15><12>

051040

EMSS:

043516

020110
052103
042104
047440
047514
047522

047040

EMS56:

CZRJICO, RPO4/5/6 FCTNL CTLRT
CZRJIC.PN
27-JuL~-78 13:05
10221
10222
10223
10224
10225
10226
10227
10228
10229
10230
10231
10232
10233
10234

062160
062166
062174
062202
062210
062216
0622264
062232
062240
062246
062247
062254
062262

10235

10236
10237
10238
10239
10240
10241
10242
10243
10244

10245
10246
10247
10248
10249
10250
10251
10252
10253
10254
10255
10256
10257
10258
10259
10260
10261
10262

10263

10264
10265
10266
10267
10268
10269
10270
10271
10272
10273
10274
10275
10276

027117
020117
044123
041040

042101
042122
033062
031049
047510
012
102
047101
052101
044524
052101
046515
044527
047522
051117
044502
051525
046511
051105
051511
044103
005015
047507
052101
042526

052040
020060
042114
042522
047527
020117
047524
051440
006504

020105
042507
042524
043516
020101
047101
044124
043516
040515
020124
042105
051120
051040
042524
047101

044103
000104
050115
042040
047503
020104
053440
043040
020124
040503
005015
050117
043505
020122
042507

042117
020101
020123

27-JUL-78

13:06

POWER DOWN AND UP ROUTINES

PAGE 225

SEQ 0224

/BE

LASCII

/ATTEMPTING DATA COMMAND WITH WRONG FORMAT BIT CAUSED/<15><12>

LASCII

/IMPROPER REGISTER CHANGE/<15><12>

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

020104
042510

042040
044507
044127
047510
042502
042522
053111
052101
042526
044507
041440
052116
042524
042524
020104
052040
042506

LASCIZ

/RECEIVED DATA GIVES REGISTER (ONTENTS AFTER ATTEMPTED DATA TRANSFER/

052123
047117
020123

042503
042040
044507
042522
051105
042524
043101
052101
042524
040524
051516

052101
044524
020117
054506
051511
052504
040440
051105
020116
042105

042524
043516
047575
051040
042524
044522
020116
052101
040503
044440

050115
052040
044504
043505
020122
043516
050117
047511
051525
050115

LASCII

/ATTEMPTING TO MODIFY REGISTER DURING AN OPERATION CAUSED IMPROPER/<15><

052040
005015
042522
042105
020101
020123

062554
062562
062570
062576
062604
062612
062620
062626
062634
062642

030440
033062
052517
020105
020054
047040
020061
033066
046125

30A(1052)

LASCIZ

052101
046125

062522
062530
062536
062544
062552

MACY11

020122
050115
040504
040522
0090122

051440

EMS7:

EM60:

CHANGED/

(ZRJICO, RPO&4/5/6 FCTNL (TLR]
27-JuL-78 13:05
CZRJIC.PN
10277
10278
10279
10280
10281
10282
10283
10284
10285
10286
10287
10288
10289
10290
10291
10292
10293
10294
10295
10296
10297
10298
10299

10300

10301
10302
10303
10304
10305
10306
10307
10308
10309
10310
10311
10312
10313
10314
10315
10316
10317
10318
10319
10320

10321

10322
10323
10324
10325
10326
10327

10328
10329
10330
10331
10332

062650
062656
062657
062664

062672

062700
062706
062714
062722
062730

062736

062744
062746
062754
062762
062770
062776
063004
063012
063020
063026
063034
063042
063050
063053
063060
063066
063074
063102
063110
063116
063124
063132
063140
063146
063154
063162
063165
063172
063200
063206
063214
063222
063230
063236
063244
063246
063254
063262
063270
063276
063304
063312
063320
063326
063327

047522

MACY11 30A(1052)

27-JuL-78

13:06

POWER DOWN AND UP ROUTINES

SEQ 0225

PAGE 226

042520

006522

043505
020122
042507
042117
020101
020123
051440

05151
044103
020056
042040
044507
044127
047510
042502
042522

LASCII

/REGISTER CHANGE. GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042503
042040
044507
042522
051105
042524
043101
050117
047511
020123
050115
012
042117
043516
043440
040440
051523
042522
051105
043516
043111
044127
040503
042440
000
041510
051501
020105
051122
052123
041040
020075
020122

053111
052101
042526
044507
041440
052116
042524
051105
020116
052101
042524

LASCI]

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION WAS ATTEMPTED/<15

04311
051040
053111
042104
047440
044507
041040
046440
042511
041511
051525
051122

.ASCIZ

/MODIFYING REG GIVES ADDRESS OF REGISTER BEING MODIFIED WHICH CAUSED EPR

030523
051440
047111
041505
052101
052111
026061
020075

EM61:

LASCIZ

/RHCS1

051504
020123
044440
042522
040524
044502
030440
036440

020061
047523
041576
052103
052524
051524
020054
030040

EM62:

LASCIZ

/RHDS1 HAS SOME INCORRECT STATUS BITS - 1, OR - 0/

042110

030523

EM63:

LASCIZ

/RHDS1

020104
042510

HAS SOME

INCORRECT STATUS BITS - 1, OR - 0/

CONTENTS DURING COMMAND WERE

IN ERROR/

10354
10355
10356
10357
10358
10359
10360
10361

10362
10363
10364
10365
10366
10367
10368

10369
10370
10371
10372
10373
10374
10375
10376
10377
10378
10379
10380

10381
10382
10383
10384
10385
10386
10387
10388

064030

042503
042040
044507
042522
051105
042524
043101
047503
000104
042526
020124
047111
042101
042116
020101
047101
020122
051440
044524
051505
051525

053111
052101
042526
044507
041440
052116
042524
046515

047522
044122
044507
051124
042502
051127
020116
040505
0461440
020054
030040

020122
051504
042526
041501
047111
052111
051117
020104

051122
040506
000107
051105
042040
047503
020104
042510
046105
047117
020124
042105

046131
041523
005015

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

EM6S:

LASCIZ

/INTERRUPT

EM66:

LASCII

/HEADER AND DATA COMMAND FUR HEAD SELECTION TEST CAUSED/<15><12>

LASCII

/ERROR = RHDST GIVES TRACK BEING WRITTEN OR READ ON CYL 0, SCTR 0/<15><1

/RECALIBRATE COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

041440
020104
050117
043505
020122
042507
042117
020101
020123
051440
020104
042510

LASCI]

:
EM64

046101
042524
040515
052501
046511
051105
05151
044103
005015
042040
044507
044127
047510
042502
042522

000

SEQ 0226

041505
040522
046517

PAGE 227

10353

041440
042116
042523
051120
051040
042524
047101
047507
052101
042526
052101
046125
052040
005015
042522
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
047117
030040
051124

042524
052504
041440
042116
020105
051122

POWER DOWN AND UP ROUTINES

MMM MTm

10349
10350
10351
10352

122
0611

047117
020123
043516
040515
051105
042440

13:06

MMM

10343
10344
10345
10346
10347
10348

063372
063400
063403
063410
063416
063424
063432
063440
063446
063454
063462
063470
063476
063504
063512
063520
063526
063534
063536
063544
063552
063560
063566
063574
063602
063610
063616
063622
063630
063636
063644
063652
063660
063666
063674
063702
063710
063716
063724
063732
063734
063742
063750
063756
063764
063772
064000
064006
064014
064022

041440
052116
044522
046517
053440
047111
051117

27-JUL-78

FAILING/

I MAIFRIMIMI MMM

10340
10341
10342

063334
063342
063350
063356
063364

30A(1052)

A IR MR SR PR MR PR PR PR AR PR

10333
10334
10335
10336
10337
10338
10339

MACY11

e PR IR PR FEM TR IR

(ZRJICO, RPO4L/S/6 FCTNL CTLRI
27-JUL-78 13:05
(ZRJIC.PIN

10433
10434
10435
10436
10437
10438
10439
10440
10441
10442
10443
10444

LASCIZ

/AND

LASCII

/READ HEADER AND DATA ERROR IN/<15><12>

042506
020105
052040
012
020104
026461
042526
042504

LASCII

/DIFFERENCE LINE TEST/<15><12>

LASCI

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

064326
064334
064342
064350
064356
064364
064365
064372
064400
064406

042522
040505
047101
040524
051117

042101
042504
020104
042440
044440

044040
020122
040504
051122
006516

064420
064426
064434

047516
020064
044040
006522
127
047516
033062
042526
020101
020110
042510
047111

043111
041516
042516
006524
051117
020123
044507
040505
012
051177
020123
020060
042040
044127
051511
041440
042504

064413

064442
064445
064452
064460
064466
064474
064502
064510
064516

042522
044514
051505

127

Mo
Yen
[
W

EM70:

012
104

TRACK NUMBER./

064272
064300
064306
064314
064322

[N DATA WORDS BITS 4,5,6,7,8 GIVE

020113
051105

064264

047111
020101
020123
032040
033454
053111
041501
041115

OYOYOYOD

/WORD NUMBERS 5 TO 260 ARE DATA WORDS,/<12><15>

Non Nae Nae B

10417
10418
10419
10420
10421
10422
10423
10424
10425
10426
10427
10428
10429
10430
10431
10432

LASCII

015
020104
051105
047524
040440
052101
042122

10416

/FIRST FOUR WORD NUMBERS ARE THE HEADER./<12><15>

10409
10410
10411
10412
10413
10414
106415

LASCI]

020124
05344C
052516
020123
044124
042101

10405
10406
10407
10408

/READ HEADER AND DATA ERROR IN HEAD SELECTION TEST./<12><15>

EM67:

10394
10395
10396
10397
10398
10399
10400
10401
10402
10403
10404

SEQ 0227

PAGE 228

LASCII

044040
020122
040504
051122
020116
051440
044526
051505

042522
040505
047101
040524
051117
042510
046105
047117
027124
044506

10393

POWER DOWN AND UP ROUTINES

042101
042504
020104
042440
044440
042101
041505
052040
006412
051522
051125
020104
051105
020105
042510
005056
051117
0461115
020065
030066
042040
047527
006412
020104
052101
042122
051524
033054
043440
051124
052516
000056

064036
064044
064052
064060
064066
064074
064102
064110
064116
0646122
064130
064136
064144
064152
064160
064166
064173
064200
064206
064214
064222
064230
064236
064242
064250
064256

13:06

(el

10390
10391
10392

27-JUL-78

[an)

10389

MACY11 30A(1052)

Wy W

(2ZRJI1CO, RPO4/S/6 FCTNL CILRY
CZRJIC.P1
27-JuL-78 13:05

10493
10494
10495
10496
10497
10498

10499
10500

064622
064630
064634
064642
064650
064656
064664

064672
064700
064702
064710
064716
064724
064732
064740
064746
064754
064762
064770
064775
065002
065010
065016
065023
065030
065036
065044
065052
065060
065066
065074
065076
065104
065112
065120
065126
065134
065142
065144
065152
065160
065166
065174
065202

122

040504
052501
046511
051105
051511
044103
005015
047507
052101
042526
052101
046125
052040
005015
042522
042105
020101
020123
053440
042510

LASCII

/FORCING OPI BY 3 INDEX PULSES/<15><12>

042523
051120
051040
042524
047107

LASCII

/CAUSED IMPROPER REGISTER CHANGE/<15><12>

042117
020101
020123
051440

LASCI]

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

020104
042510

042040
044507
044127
047510
042502
042522

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/

LASCI!

/WHILE USING UNIBUS B/<15><12>

LASCII

/READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12>

042117
020101
020123
051440
020104
042570

042040
044507
044127

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<"5><12>

042503
042040
044507
044127
051501
042522

053111
052101
042526
052101
052040
040440

LASCIZ

/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/

005015

EM71:

EM72:

10461
10462
10463
10464
10465
10466
10467
10468
10469
10470
10471
10472
10473
10474
10475
10476
10477
10478
10479
10480
10481
10482
10483
10484
10485
10486
10487
10488
10489
10490
10491
10492

064614

103

020104
050117
043505
020122
042507
047507
052101
042526
052101
046125
052040
005015
042522
042105
020101
020123
052123
047117
020123
020122
042504
051514
127
052440
052440
020123

052501
046511
051105
05151
044103

064542
064550
064556
064564
064572
064573
064600
064606

SEQ 0228

047111
02011
044440
050040
006523

064532
064534

2
PAGE 229

lvlv N vivivivielviviviviolofely)

041522
050117
031440
054105
042523

10447
10448
10449
10450
10451
10452
10453
10454
10455
10456
10457
10458
10459
10460

042101
000123
047506
020107
054502
042116
046125
012

POWER DOWN AND UP ROU

[
}?:02

lvielvivivlelviviviviviviviwleivwlo)

051505

064524

27-JuL-78

047510
042502
042522

eslelelviecleleleolwlew]

051104

10445

10446

30A(1052)

Lo X o ]

CZRJICO, RPO4/5/6 FCINL CTLR]
27-JuL-78 13:05
rIRJIC.P1

MACY11

065216
065224

052106
046517

065225
065232
065240
065246
065253
065260
065266
065274

065277
065304
065312
065320
065325
065332

10552
10553
10554
10555
10556

041440
042116

044510
044523
044516
006502
040505
040524
051117
000
044510
044523
044516

042514
043516
052502
012
020104
044440
042522

EM73:

042514
043516
052502

EM74:

044507

041440
006505
047517
040524
051505
020124
042114

10528
10529
10530
10531
10532
10533
10534
10535
10536
10537
10538
10539
10540
10541
10542
10543
10544
10545
10546
10547
10548
10549
10550
10551

044124

012
041505
020104
043440
051040

042524

052116
040440
041440
042116
044510

041040

044523
044516
006502
044522
052101
046515
044103
020104
020105
041040
000122
046111
047111
0411M
005015

PAGE 230

LASCII

/WHILE USING UNIBUS B/<15><12>

LASCIZ

/READ DATA INCORRECT/

LASCII

/WHILE USING UNIBUS B/<15><12>

LASCII

/WRJTE DATA COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

.ASCI1

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

012

042524

020101
047101
051525
050115
020122
052123
040510
012
020104
043440
053449
044123
041040

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER (OMMAND/

LASCII

/WHILE USING UNIBUS B/<15><12>

LASCIZ

/WRITE DATA COMMAND C(HANGED WRITE FROM BUFFER/

LASCII

/WHILE USING UNIBUS B/<15><12>

051105

044505
040504
053111
043505
020122
047105
052106
046517
000
042514
043516
052502
012
042524
020101
047101
047101
051127
051106
043125
020105
020107
051525

SEQ 0229

POWER DOWN AND UP ROUTINES

051105
040515

006502
044522
052101
046515
040503
044440
042520

13:06

ledwivicivivivleolviv)

065210

27-JuL-78

10501
10502
10503
10504
10505
10506
10507
10508
10509
10510
10511
10512
10513
10514
10515
10516
10517
10518
10519
10520
10521
10522
10523
10524
10525
10526
10527

MACYT1 30A(1052)

EM7S:

EM76:

MmMMmMmMmMmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm

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

10565

10566
10567
10568
10569
10570
10571
10572
10573
10574

10575
10576
10577
10578
10579
10580
10581
10582
10583
10584
10585
10586
10587
10588
10589
10590
10591
10592
10593
10594
10595
10596
10597
10598
10599
10600
10601
10602

065674
065702
065710
065716
065724
065732
065740
065746
065751
065756
065764

051127
044103
040503
044440
042520
044507
041440
006505
107
040504
053111
040510

052517
020105
006505
122

042526
040524
051505
051511
047503
051524
051105
040515

120

042101
051047
050040
052040

047111
052130

042520
052111
040507
020117
023503
042524

042101
020123
041440
020105
052114
020116

052111
041505
051525

050115
020122
052123
040510
012

047517
040524
051505
020124
042114

044124
012
041505
020104
043440
051040
042524
052116
040440
041440
042116
042522
047111
041510

044522
020117
020107
052040
047504
052117
052504
051117
051040
006524
042510
042522
020124
051040
051524
051440
052103
020110
042122
051047
041440
052176

051104
046120
040510
042522

042105
040502

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
053440
044123
041040
051105

LASCI1

/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
051505
050040
042503
042522
051505
012
042522
047040
042524
051505
040440
051525
053440
042522
052040
041510
047117
000123

.ASCIZ

/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®

LASCIZ

/ADDRESS PLUG CHANGE RESULTED IN BAD REGISTER DATA/

051505
043525
043516

052523

044440
020104

EM?77:

CONTENTS/

P Yen)

27-JuUL-78

TATMMmMMmMMMMmMMmMMmMmMmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm

10557
10558
10559
10560
10561
10562
10563
10564

MACY11 30A(1052)

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

EM100:

066432
066440
066446
066454
066462
066470

066472
066500
066506
066514
066522
066530
066536
066544

042111

043440
046106
044127
042104
050040
042522
000104
047125
052117
046111
040440
040440

051523
020107
041501
122

042524
052116
044440
042522
043105
020101
046440
042523
122

042524
052116
044440
042522
052106
042040
047515
042505

PAGE 232

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
052106
042104
050040
042522
042105
043505
020122
047105
041516
052103
051117
044504
042117
045505
043505
020122
047105
041516
052103
051105
040511
042504
000113

047040
040526
042514
051105
042522
052514
046120
000
051511
047503
051524
051117
041040
020105
043501
020105
000
051511

EM102:

LASCIZ

/UNIT NOT AVAILABLE AFTER ADDRESS PLUG REPLACED/

EM103:

LASCIZ

/REGISTER CONTENTS INCORRECT BEFORE A DIAG MODE SEEK/

EM104:

LASCIZ

/REGISTER CONTENTS INCORRECT AFTER A DIAG MODE SEEK/

047503
051524
051117
040440
040440
020107
051440

SEQ 0231

POWER DOWN AND UP ROUTINES

TTrTTRTTM

042522
051105
000101
047125

13:06

haal

066372
066400
066406
066410
066416
066424

27-JuUL-78

TTONMN

10613

MACY11 30A(1052)

rTTrT

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

/THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<15><12>

042101
042502
052440
046111
020054
051501
052524
051524

LASCII

/'READY', BECOME UNAVAILABLE, OR HAS STATUS BITS/<15><12>

020110
052117
046103
000104

LASCIZ

/WHICH CANNOT BE CLEARED/

040505

041511
047116
020105
042522

041520
020040
020040
020124
044502
020040
020040
020107
044122

020040
042524
020040
020040
020124
042522
020040
020040
051503

020040
052123
040527
020040
020040
020107
042522
020040
006461

.ASCII

/PC

TEST

WAT

BIT

REG

10695
10696
10697
10698
10699
10700
10701
10702
10703
10704
10705
10706

020040
047040
020040
020040
050130
040440
051523
042524
047117
000
020103

020040
020117
050040
020040
041505
042104
041440
052116
042524

LASCIZ

EXPECT

ADDRESS CONTENT CONTENT/

067337

LASCII

/PC

TEST

WAT

BIT

REG

020114
020122
020105
042515
051511
005015

020105
047522
047440
044526
051501
020105
047111
051517

047503

042522
020054
042515
040526
042514
044040
040524
044502

CPHALT:

046114

020122
042503
043440
043117
026105
006524

020040

DH1:

DH4:

REG

RHCS1/<15><12>

TIME IN/<15><12>

FErrEXRXRKRKRKRRERKEKERRRIKIRIRIK
e

LASCI1

040524
047522
042523
052503
046040
043516

|
10689
10690
10691
10692
10693
10694

POWER DOWN AND UP ROUTINES

SEQ 0232

PAGE 233

/FATAL ERROK = SEE DOCUMENT LISTING/<15><12><15><12>

10672
10673
10674

1063

13:06

LASCII

040506
051105
020055
047504
052116
044524
005015
044124
052116
051105
042504
044040
047117
046106

10675
10676
10677
10678
10679
10680
10681
10682
10683
10684
10685
10686
10687

27-JuL-78

TR
E®

10651
10652
10653
10654
10655
10656
10657
10658
10659
10660
10661
10662
10663
10664
10665
10666
10667
10668
10669
10670
10671

MACY11 30A(1052)

MNP DPIPIPIIFryFReRRTRRD

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

10741
10742
10743
10744
10745
10746
10747
10748
10749

10750
10751
10752
10753
10754
10755
10756
10757
10758
10759
10760
10761
10762

051505
053440
020040
020040
043505
052040
047111

020040
047516
020040
020040
042520
042101
020123
042523
020040
042524

020040

067536
067544
067552

067560
067566
067574
067602
067610
067616
067617
067624
067632
067640
067646
067654
067661
067666
067674
067702
067710
067716
067724
067732
067740
067746
067754

042101
000123

067756
067764
067772
070000
070006
070014
070022
070030

041520
020040
020040
046111
047503
020124
047105
052116

020040
041520
020040
052103
051104
030061
000103
020040
052123
042522
020040

LASCIZ

DHS:

020040
042503
005015
020040
020040
042101
020123
020040
040524

LASCII

/PC

.ASCIZ

SEQ 0233

EXPECT

ADDRESS 10 MSEC/

TEST

REG

GOOD

RECEIVED/<15><12>

ADDRESS DATA

TEST

REG

ADDRESS DATA/

DATA/

RECEIVED/<15><12>

020103
052040
020040
020040
041505
006504
020040
047040
020040
042522
052101
020040
042524
020040
020040
051104

020040
051505
051040
020040
044505
012
020040
020117
040440
051523
000101
020040
052123
042522
020040
051505

DH6:

DH7:

.ASCIZ

/PC

TEST

REG

020040
042524
020040
047111

020040
052123
040506
020107
047105
052116
047503
020124

DH10:

LASCII

/PC

TEST

FAILING CONTENT CONTENT CONTENT CONTENT/<15><12>

052116
047503
020124
047105

.ASCII

/PC

.ASCIZ

ADDRESS/

Mmoo

PAGE 234

DU DOO0OO00000O00C0O000

052040
020040
020040
052111
051040
020040
020105

020040
0-0040
042117
042522
042105
020040
047516
020040
051505
040524
040504

067530

POWER DOWN AND UP ROUTINES

DIODOUVDV VUV

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

020040

13:06

MY IR IMIOVDIMTVIOIVVVVV VIV VDBV

10713

067344
067352
067360
067366
067374
067402
067410
067416
067420
067426
067434
067442
067450
067456
067464
067472
067500
067506
067514
067522

27-JUL-78

10707
10708
10709
10710
10711
10712

MACY11 30A(1052)

TTmmnm

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

CZRJICO, RPO4/S/6 FCTNL CTLRI
CZRJIC.PN
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
1081
10812
10813
10814
10815
10816
10817
10818

070036
070044
070047
070054
070062
070070
070076
070104
070112
070120
070126
070134
070135
070142
070150
070156
070164
070172
070200
070206
070214
070222
070230
070236
070244
070252
070260
070266
070274
070302
070310
070316
070324
070332
070334
070342
070350
070356
070364
070372
070400
070401
070406
070414
070422
070430
070436
070444

047503
006524
040
020040
020040
043505
051040
020040
030523
042110
051040

070450
070456
070464
070472
070500
070506
070514

041520
020040
020040
020107
047507
020040
020104

000
120
020040
020124
047117
041440
043117
020124
047117
041440
043117
020124
020040
020040
020040
051503
044122
020040
020061
051105
044122
020040
000063
041520
020040
020040
042122
047507
020040
012
040
020040
020040
020117
042040
020040
006501

052116
012
0290040
047040
020040
020056
041510
051040
020040
030523
042510

MACY11 30A(1052)

020040
020117
051040
020040
030523
041510
051040
020040
030522

044122
020040
020061
051105
044122
020040
042524
020040
020040
042117
040502

020040
052123
047527
020040
020040
006504

DH30:

020040
047040
020040
020040
052101
042040
000012

020040
020117
047040
020040
020101
052101

020040
042524
020040
020040
042117
042522
020040

020040
052123
042522
020040
020040
053103
046111

051503

SEQ 0234

PAGE 235

047105

DH26:

052040
020040
020124
047117
041440
043117
020124
047117
041440
043117
020040
047516
020040
020061

13:06
POWER DOWN AND UP ROUTINES

020040
051505
041440
043117
020124
047117
041440
043117
020124
047117
005015
020040
020040
044122
020040
020062
051504
044122
020040
020062
051105

020103

27-JUL-78

RHER1/

REG.

RHCS1

RHCS1T

LASCII

/P(

TEST

CONT OF

CONT OF CONT OF CONT OF CONT OF /<15><12

RHCS1

RHCSZ

RHDS1

TEST

WORD

GOOD

BAD/<15><12>

DATA

DATA/<15><12>

TEST

REG

GOOD

RECVD

LASCIZ

LASCII

/PC

LASCIZ

DHS1:

RHDS1

LASCIZ

.ASCI]

/PC

RHER1T

RHER2

ILLEGL/<15><12>

RHER3/

CZRJICO, RPO4L/S5/6 FCTNL CTLRY
CZRJIC.PTIT
27-JuL-78 13:05
10819
10820
10821
10822
10823
10824
10825
10826
10827
10828
10829
10830
10831
10832
10833
10834
10835
10836
10837
10838
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

070522
070530
070536
070544
070552
070560
070566
070574
070602

070607
070614
070622
070630
070636
070644

070652
070660
070666
070670
070676
070704
070712
070720
070726
070734
070742
070744
070752
070760
070766
070774
071002
071003
071010
071016
071024
071032
071037
071044
071052
071060
071066
071074
071076
071104
071112
071120
071126
071132
071140
071146
071154
071162
071170
071176

042514

020040
020040
020040
051104
040504
020040
020040
041516
120
020040
020124

043505
043440
020040
042126
042117
005015

020040
020040

MACY11 30A(1052)

27-JUL-78

13:06

POWER DOWN AND UP ROUTINES

046107
020040
047516
020040
051505
040524
040504

020040
047124

005015
020040
020040
042101
020123
020040
040524
052506
000

020103
052040
020040
020040
047517
051040
020040
044506

020040
051505
051040
020040
020104
041505
046440
043516

020040
047516
020040
051505
040524
040504
020040

020040
020040
042101
020123
020040
040524
042522

020040
042524
020040
020106
051503

020040
052123
041520
020040
006461

020040
047040
020040
020040
051501
020103
052040
020040
043117
042110

020040
020117
045040
020040
000
020040
051505
050040
020040
030523

020040
047516
020040
020040
000123
020040
042524
020040
020040
052116
047503
020040

020040
020040
051512
020040

020040
052123
047503
020040
020040
052116
0C5015

DH60:

ADDRESS DATA

LASCIlI

/PC

TEST

REG

GOOD

RECVD

ADDRESS DATA

DATA

TEST

PC OF

RHCS1/<15><12>

JSR

WAS/

TEST

JSR

WAS/

TEST

CONT

LASCII

/PC

LASCII

/PC

.ASCIZ

DH65:

DATA

.ASCIZ

DHEZ:

SEQ 0235

PAGE 236

LASCIZ

DH61:

LASCII

/PC

FUNCTN/

MODF ING/<15><12>

REG/

RHDS1/<15><12>

CONT

/<15><12>

CZRJICO, RPO4/5/6 FCTNL (TLRY
CZRJIC.PIT
27-JUL-78 13:05
16875
10876
10877
10878
10879
10880
10881
10882
10883

10884
10885
10886
10887
10888
10889
10890
10891
10892
10893
10894
10895
10896
10897
10898
10899
10900
10901
10902
10903

10904
10905
10906

10907
10908
10909
10910
10911
10912

10913

10914

10915
10916
10917
10918
10919
10920
10921
10922
10923
10924
10925
10926
10927
10928
10929
10930

071204
071212
071220
071226
071234
071242
071250
071255
071262
071270
071276
071304
071312
071320
071326
071334
071342
071350

020040
020040
020040
051503
044122
020040
020061

071353
071360
071366
071374
071402
071410
071416
071424
071430
071436
071444
071452
071460
071466
071474
071502

120
020040

120
020040
020124
042110
051040
020040
031122
042510
051040
020040
031123

020124
020103
051040
020040
020104
042101
020040
020040
020040
020122
042101
020040
020040
040524

020040
047516
020040
020061
051501

044122

020040

020103
052040
020040
052123
042510
051040
020040
031522
041510
051040
000

020103
052040
020040
043117
043505
043440
020040
005015
020040
047516
020040
020040
051104
040504
020040
000

MACY11 30A(1052)
020040
020040
044122
020040
020040
051504
000
020040
051505
051040
020040
030522
042510
051040
020040
030523
041510
020040
051505
050040
020040
020056
047517
041040

071604
071612
071620
071624
071632

041710

000000
004604
001126
004604
000000
004604

001116
002360

SFQ 0236

PAGE 237

.ASCIZ

RHCS1

RHAS

RHDS1

DHE6:

LASCIZ

/PC

TEST

RHDST

RHER1

RHERZ2

RHER3

DH77:

LASCII

/PC

TEST

REG.

GOOD

BAD/<15><12>

LASCIZ

JSR

ADDR

DATA

DATA/

020040
020049
051512
020040
020040
040524
040504

RHCS1

.EVEN

004604
041710
000000
004604

071570
071574
071602

13:06

POWER DOWN AND UP ROUTINES

071506

071506
071514
071522
071526
071534
071542
071546
071554
071562

27-JuUL-78

004604
002360
000000
004604
002404

041706
001126

DT1:

.WORD

$ERRP(,TSTNM,WAITP(C
,WAITRT ,WAITRE ,$8DDAT,(S1,0

041706
001126

DT4:

.WORD

$ERRPC,TSTNM,
WAITP( ,WAITBT ,WAITRE ,$8DDAT ,WAITTM,0

004600
000000
004600

DT5:

.WORD

$ERRP(, TSTNM,REGADR,
$GDDAT , $BDDAT,0

DT6:

.WORD

$ERRP(, TSTNM,REGADR,
$BDDAT , 0

001200

D17:

.WORD

$ERRPC,TSTNM,$TMP1,0

001122
002404

DT10:

.WORD

$ERRP(, TSTNM, $BDADR,(S1,(S2,DS1,ER1,0

002362
002364

DT26:

.WORD

$ERRPC,TSTNM,(S1,(S2.DS1,ERY,ER2,ER3,0

RH(CS2/

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.P1
27-JUL-78 13:05
10931
10932
10933
10934
10935
10936
10937
10938
10939

10940
10941
10942
10943
10944
10945
10946
10947
10948
10949
10950
10951
10952
10953
10954
10955
10956
10957
10958
10959
10960
10961
10962

10963

10964

10965
10966
10967
10968
10969

10970
10971
10972
10973
10974
10975
10976
10977
10978
10979
10980
10981
10982
10983
10984
10985
10986

MACY11 30A(1052)
000000
006602
000000

001116
001124
000000

004604
001126

071742
071750
071756
071764
071772

001116
001124
000000
001116
001122
001116
001122
001116
002400
001116
002370
002360

071776
072004
072012

002370

071662
071670
071676
071700
071706

E
13 :06

POWER DOWN AND UP ROUTINES

002376
004604
001126

071640
071646
071654

27-JuL-78

PAGE 238

DT30:

.WORD

SGDDAT , $8DDAT, 0
$ERRPC, TSTNM,ERWORD,

004600
002464

DT51:

.WORD

$GDDAT , $BDDAT , ILLEGL ,0
$ERRPC, TSTNM,REGADR,

004604
001126

004600
001122

DT60:

.WORD

$GDDAT ,$8DDAT, $BDADR, 0
$ERRPC, TSTNM,REGADR,

004604
000000
004604
000000
004604
002404
004604
002376
000000

041512

DT61:

.WORD

0
$ERRP( .TSTNM,PCJSR,$BDADR,

041512

DT62:

.WORD

0
$ERRPC, TSTNM,PCJSR,$BDADR,

002362
000000
002364
002362

DT65:

.WORD

$SERRP( ,TSTNM,(S1,AS,DS1,0

DT66:

.WORD

$ERRPC, TSTNM,ER1,ER2,ER3,(S51,(52.0

001116
004600
000000

004604
001124

0415 12
001126

DT77:

.WORD

$GDDAT, $8DDAT
0
$ERRPC, TSTNM,PCJSR,REGADR,

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:

.BYTE

0.0.0.0 .0.0.0

000
000

000
001

DF&:

.BYTE

0.0.0.0 .0.1.0

000
000
000

000

DFS:

.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

DF30:

.BYTE

0.0,0.0 .0

072072
072075

000
000

DFS1:

.BYTE

0.0,0.0 .0.0

072100
072103
072106
072111
072112

000
000
000
000
000

000
000
000

DF60:

.BYTE

0.0.0.,0 .0.0

DF61:

.BYTE

0.0,0.0

000

DF62:

.BYTE

0101000

071714
071716
071724
071730

071736

001116

001124

SEQ 0237

CZRJIICO, RPO&L/S5/6 FCINL CTLRI
CZRJIC.PI
27-JuL-78 13:05
10987

10988

10989
10990
10991
10992
10993
10994
10995
10996
10997
10998
10999

11000

MACY11 30A(1052)

27-JuL-78

13:06

POWER DOWN AND UP ROUTINES

PAGE 239

072115
072116
072121
072123
072126
072131

000
000
000
000
000
000

000
000
200
000
000

000

DF65:

.BYTE

0,0,0.0.0

000
600

DF66:

.By1¢

0,0,0,0,0,0,0.,0

072133
072136

000
000

pF77:

.BYTE

0,0,0,0,0,0

072142

.EVEN

000001

.END

SEQ 0238

044576

16424
6504
8679

2055

002400

17784

8472«

004666

18474

2273

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

BA
002356
BAI
= 000010
BASECH 043612

BEGIN

BEGIN1
BEGINZ
BIRD
BITO
BI1T00 =
BIT01 BIT02 =
BIT03
BITO4 =
BITOS =
BIT06 =
BI1T707 BIT08 =
BIT09
BIT1
=

BIT10
BIT11
BIT12
BIT13
BIT14
BIT15

=
=
=
=
-

005012

004762
004776
020162
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002

002000
004000
010000
020000
040000
100000

000004
000010
000020
000040
000100
000200
000400
8IT8
001000
BIT9
BPTVEC- 000014

BITZ2
BIT3
B114
BITS
BIT6
BIT7

=
=
=
-

002374

2216+

2273+

17674
15004
640

9143
3224
86684

3241
8721

643
641
3734
6294
6294
6294
6294
6294
6294
6294
6294
6294
6294
629
62

18964
18994
37484

6192

15844
15854
15864
15874
15884
15894
15904
15914
15274
15284

639

629
6294
6294
629%
6294
6294

6294
6294
6294
6294
6294
6294

6294
6294
6294
17764

4260

6629

3129

3814

4003

6175

4259

6634

6800

7749

8167

2790

2848

3124

3266

3383

3493

3693

3809

4021

6795

7752

lenYan

10946

4176
o

=
=
-

18714

2829

ATO
AT1
AT2
AT3
AT4
AT5
AT6
AT7
A16
A17

004740

9179

ATTENT

2774

il ol

ATABLE

15524

[ uiE

- 100000

87174

19024

8716

9374
-

ATA

15644

- 001000

AOE

ADTIMO

2841

s CCCC

2788

- 100000
ACU
ADDMGD 000204

SEQ 0239

CROSS REFERENCE TABLE == USER SYMBOLS

16844

16824

PAGE 241

= 020000

- 000040

13:06

-—

ACE

ACL

27-JUL-78 13:05

27-JuL=78

CZRJIC.PI

MACY11 30A(1052)

CZRJICO, RPO4/S/6 FCTNL CTLRYT

B747
8755

9088
8762
9095
8736
4263
B254

9175

9103

066720

7757

2489
4076

5770

(R
CRLF
CSF
(su
(s1

- 000015
000200
- 000002

- 000010
002362

CSe
D8
DCK
OCL
DCLEAR
DDISP =
=
DE1_
DFF20 =
DFF5 =
DF1
DF10
DF 26
DF 30

002360
002352
100000
000100
002430
177570
000040
000002
000001
072014
072046
072055
072065

DF&

072023

7345

6294
6294

16294
16314
17714
17684
17654
15704

16834
17974

6294

15424
15384
15374
722
799
962
983
109764
758

2770

2779
3433
6796

2784
3534
6801

2816
3543

2825

7657

3810
7730

2832
3815

4687

4691

4700
5181

6704
5288

2759
3288
6630

9102
4470
5057
5564

6034
6849

3424
6635
93384
4581
5164
5568
6148

5168
5575
6163
6943
7322

7290
7787

2354
3061

2412
3319
4280

4074

5563
7073

5287
6903

4914
6882
3042
4778
6526

4668

6542
2796
4542
6232
84594
2678
4387
6059

3016

5177
5579
6315
6947
7447

2446
3346

4296

5691
7160

5035
7142
3135
4898
6642

3092

7025

5703
6332
6951
7451

2487
3471
4314

5852
7248

5145

7816

3298
5018
6808

3157

7091

2837

4007
7745

4199

5769
7344

2842

6058
7520

3218

4822

4826

4935
5423
5991

7274
7494

7463

2558
3587

2644
3598

2655
3610

2676
3730

6453
6995

3125

4386

6171

7455

6433
6955

5893
7417

4166

7002
7490

5718

4297

4015
7852

4815
5299
5746

5303
5853
6664

83924
5419
5869
6677

6681

7278
7607

2918
3752

6301

2812
3741
4810
6432
7687

4931
6584
7778

4331
5979

4469

6147
7413

4577
6269
7443

5272

5391

5548

5669

5838

5962

3704
5375

3823

4026

4180

7055

3553
5255
7123

7227

7392

7568

7665

3473
5082
6905

3612
5206
7026

3754
5328

7092

3851
5463

7180

3869
5606

7250

1226

1335

1346

1377

1396

7270

86284
3443
5129
3348

6357

6479

4851
6698

4969

6866

8872
8847

8881
8881

7521

106534

2747
2724

9151

10926
10926

10929
10929

10946
10948

10948

109684
1475
1096

109724
1130

115¢4

1190

2960

5605
7249

4811
5292
5735
6449
6984
7459

4729

4606

7740

4084

4683

7603

5530

5652

5819

(el

PHAAAAAAANANN

3885
5462
7179

R AAAANMANAAANAA

3850
5327

3753
5205

3611
5081
6904

bl 4D

CPHALT

6133
2521
4266
5943

3156
4968
6865

042444

3014
3867
5160
6830
8125+
8130
4560
6251
2609
4436
6114
7861
2560
4298
5894
7418

3091
4850
6697

COMREG

7992
15024
4455

2336

3015

4728
6478

000040
043474

7286
7781

81474

3194
679

CLR
COMPAR

2215
2953
3849
5049
6733

6023
6845

4075

1929

734

813
1439

1002

109594

ASADAS AL

041456

7282
7688

4362
5050
5436

4050

109564

843
1463

1035

4345
4944

4255

3868

9083

3472

8735

4250

3347

ol ol

2512
3227

6356
81534
2599
3235

5432
6006
6831

CLDISK

2559
81574
2919

(KSWR = 1044C
CLAREA 041326

SEQ 0240

042336

4605

6186
7623

PAGE 242

CHREG

4494

2488
8151
2677

13:06

37374

9195

00 = ~Nw

CHECKT

3723

17854

020126
002416
041514
041552
041536

27-JuUL-78

CROSS REFERENCE TABLE == USER SYMBOLS

—

CAT
ccC
CHECK
CHECKC

MACY11 30A(1052)

O~
- R
&

CZRJICO, RPOL/S5/6 FCINL CTLRI]
CZRJIC.PIY
27-JuUL-78 13:05

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

067716

071526
071546

805

1432
1000

1188

1224

1333

1344

1375

1394

107064

1316
783
1412
15394

848
1026
1292
108124
107374
108294
108464
108574
108684
108824
10748#4
108944

937
1181

948
1200

971
1212

992
1237

1644
1016

106864

835
1456
1033

107554
1468

1094

1044
1355

860

874
1055
1368

1069
1386

888

107754
1128

900

1081
1406

1929+
1936

1936+

8776

9087+

3579

2645
35944
2456

2656

2692

2846

3588

3599

3731

3742

7972

2592

2745

3797
5352

3997
5629

5796

4240
5920

4413
6085

4519
6211

4630

2458
6771

2749

3968
5488
8168
4003

4156

6782
2592
6922

3677
5232

4138

4222

4307

4320

6297

6605

678
2745
2329+

2749
3277

7975
9207

744

109134
842
1462
1034

15454
4755

6503

1544H

6746
17734
6294
17804
17814
15674
15804

72°
798
961
982
109324
757
767
1011

4875
6616

9171

739
819

674
6304

15124
15414
15744

]

1152

109904

109664
109944
727

994
1239

[ X

973
1214

X’

950
1202

4995

1928

733
812
1438
1001

1450
1017

109164
852
1027

1045

826

864

5106
7204

7266

878

1056

6385

7369
3659
7439

7546
3786
8168

7987

9155

10926

10929

10946

109264
1474
1095

109294
1129

1153

1189

1225

1334

1345

1376

1395

892
1070

904
1082

919
1120

1142

929

938
1182

949
1201

972
1213

993
1238

L el Ll LS LD LD Ll L Ll LA LA LA SR GA A A L A A A A A A

DH77
=
DIGB
DISPLA
DISPRE
OLT
=
=
DL64
=
DMD
DOG
DPR

DH?7

1183

VPV
WPV PV
N

070450
067617
070607
070744
071037
071132
071255

930
1143

939

1427

920
1121
109624

mamam

DH51
DH6
DHE0
DH61
DHE2
DH65
DH66

913
1108

067337
067500

905

1083
1408

10988#

072043

DH&
DHS

893

1071
1388

mss

072133
067160
067756
070135
070334

879
1057
1370

~N N

DF77
DH1
DH10
DH26
DH30

DF?7

1028
1294
109794
109644
109824
109844
109864

865

1046
1360

072072
072037
072100
072106
072112
072116
072123

853

SEQ 0241

H =0
nNoO
—
O~
—

DF 51
DF 6
DF60
DF61
DF 62
DF 65
DF 66

768

—

072032

3
[
27-JUL-78 13:06 PAGE 243
CROSS REFERENCE TABLE -- USER SYMBOLS

30A(1052)

-0

DF5S

MACY11

(ZRJICO, RPO4L/S/6 FCTNL CTLR1
27-JUL-78 13:05
CZRJIC.P1

055041
055065

EM36
EM37
EM4

EM4LO
EM4T

054233
054313
054530
054637

055303
055360
051317

055575
056004

624

713
789
1421

1430

1442
1454

1466

802
816

830

846
856
868
882
725
896
909
916
923
933
942
953
965
737
976
986
997
1005
1015
1021
1031
1038
748
1049
1060

3949
5622

4142

4226

4406

6512

4623

4484
5451

4485

4595
5594

4596
5761

4959
6176
7169

7800

4840
5884
7082

4841

7702

4719
5883
7081

4868

4988

3430
5072
6347

3540
5196
6467
7507

4263
5317
6468
7508

4377
5318
6694
7621

1916+

2035+

2072«

6609

7336
9199
9203
1915~
93904
94504
106074

106164
106254

106334

10642#
94574
94694
94814
94954
95034
95214
9537%

93944
95554
95734
95814

95894

96074
96254

96454
96554
94044
96824
96914
97174

97294
97534
97574
97824
97904
94134
98164
98404

6775

7197

7362

6695

5593
6862

6863
7801

MM
AAAAAAANAS

3790
5481
8159

5789

7016

5913

6078

6204

6049
7168

6378

EM34
EM35

EM30
EM31
EM32
EM33

7335
17834
1784

3663
5345
7539

002412
002414
000030
051120
051640
066326
066410
066472
066551
066635
051707
052014
052122
052244
052317
052460
052606
051147
052743
053107
053162
053235
053400
053543
053725
054015
051236

2747
5225

ECi
EC2
EMTVEC=
EM1
EM10
EMI00
EMI0T
EM102
EM103
EM104
EM11
EM12
EM13
EM14
EM15
EM16
EM17
EM2
EM20
EM21
EM22
EM23
EM24
EM25
EM26
EM27
EM3

2469

2585
5099

2372

6177

109194

15614
16554
5077

1426

6696

1407

A aa

785
1417
15304
4748

1387

- 000100
- 004000

1273
1305
1323

1369

A o

ECH
ECI

1264

1359

071562
071700
071716
071730
071742
071756
071574
071776
= 004000

1293
109354
109214
109394
109424
109444
109464
109484
109234
109524

D16
DT60
D161
D162
DT65
D166
017
DT77
DVA

1281
1168
777
1255

LA LA LA

071662

SEQ 0242

AS LA LA Ll ol

DTS5

J
3
MACY11 30A(1052) 27-JUL-78 13:06 PAGE 244
CROSS REFERENCE TABLE == USER SYMBOLS

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

EML2
EML3
EM4S
EM4S

056265
056543
057105
057377

EM47
EMS
EMSO
EMS1

060006
051430
060270
060507

EM75

EM76

EM?77

ERFLGS
ERR
=
ERRVEC=
ERWORD
ER1
ER2
ER3
ExT1
EXT10 =
EXT2
=
EXT20 =
EXT4 =
EXT40 FEN
=
FER
=
FILL
FILLRE

b
b
o

N = OO 00 NV S
O NVIWON WO

062052
062262
051502
062554
063165
063246
063327
063403
063622
063644
064036
051570
064326
064534
064775

060754

061231
061317
061564

d od

EMS4
EMSS
EMS6
EMS7
EMO
EMOO
EM61
EM62
EM63
EM64
EM6S
EM66
EMG7
EM7
EM70
EM71
EM72
EM73
EM74

057673

—)

EMS?2
EMS3

SEQ 0243

98714
99024

99424
99754

PNONVON)
= =D e b

EM4LO

1074

27-JUL-78 13:06 PAGE 245
MACY11 30A(1052)
CROSS REFERENCE TABLE -~ USER SYMBOLS

100084
100214
94264
100534
100794
101084

101384

101484
101774
102094
102334

94334

102674
103144
103234

103324

103404
103654
103684
103894
94424
104224
104474

065225
065277

105044
1380
105414
105534
105814

065543
065646

066103

*
9084
2776
1926
8641«
9159
9163

004734
040000
000004
004602
002364
002370
002376
000001
000010
000002
000020
000004
000040

000200
000020
042402
041360

2831

9167

1927
8647
10926
10929
10929

3209
3528

3246
3531

4535

6792

105124

5116
5642
6220
7042

4310
1937%

10932
10929
10948

7751

2037+

7987

2045+

2074»

8739

3255
3694

3258
3697

3261
3806
44
5362
5933
6405

8740~

8742+

8745+

10948

3252
3690

4640
5119

4646

7045

7109

5645
6223

7975

5242
5809
6395

4765
5245
5812

6398

7112

4768

5248
5930
6402
7115

7214

3268

4261

4885
5365
5936
6408
7217

3282
4426
4891
5517
6098

3285
4429
5005

7379

7382

6516

5520
6101
6519

3418
4529
5008
5523
6104
6626
7385

i
Nan|

CZRJICO, RPO&L/5/76 FCTNL CTLRI
CZRJIC.PN
27-JuL-78 13:05

CZRJICO, RPO4/S5/6 FCTNL CTLR1
CZRJIC P11
27-JUL-78 13:05
FINACC
FINALA
FIRST
FISH
FLHEAD

004664
004662
004736
017406

FMT2?2

010000

041302

002422

FUTABL

GNS

ThAAEw

7556
18414
18404
18684

3591

4335
6322
16564
4841
5760
6695
7620
17934
630

2130
2318
2740
3865

000001

HT.

IAE
IE

ILF
ILLEGL
ILR

wnn
nn

HCRC

HCE
HCI

000010
104406
000200
002000
000400
000011
003323

002000
000100

000001
002464
000002

15404

15624
16544

5451
7336
15634
62N
25064
3203
41364
4622

54754
6300
68754
7361

15654
15254
4131
412
5334
6204
6915
7806
15554
18114
15564

1959

1962

1972+

36064
4355
6441
3428
4958

5761
6862
7621

1957

2132
2322
2926

93374

3663

5728

7701

5709
6838
4263
5071
5884
7015
7702

1949

8230

1678

15244

80734

7562

5088
5913
6739
7528

8531
8708
9167
9333

7737

7559
8229+

3987
8536
8710
9NN
9334
2503
3780
4393
5099
6065
6763
7539

4316

GRV
GTSWR

L 3
MACY11 30A(1052)
27-JUL-78 13:06 PAGE 246
CROSS REFERENCE TABLE -=- USER SYMBOLS

5694

6670
3538

4959

5883
6863

2134
2341
2928
4043
8538
8712
9175
9335
2574
3790
4406
5212
6078

6775
7630

3432
5594

3542
5761

8845
251
34104
4141
L7424
5480
63724
6880
74374

8881
25794
3415

7508

2361

4142
4612
5345

6291

7032

8280
10935

7621

62204
4747

56164
6377

2136
2343

5982

5997

6016

6154

6305

4595
5318

4596

4719

7082

4485
5317
6177
7168

7169

7335

7507

4840
5594
6694
7508

1969

1971

2020
2242
2449
2998
7845
8690
9147

2054

5739
6988
4377
5195

5860
80164
4484
5196

7800

7081
7801

1964

1966

6049

2940
4047
8540
8716
9179
9336
2876
3875
4501
5225
6193
6872
7713

6176

2183
2349
2946

2187
2425
2967

9187

8671
9139
91N
9339
3106

5512
8547
8728

9338
3031
3949
4612
5345
6291
7032
7980

SEQ 0244

7650

2240

6346

5468
6363
7098
8254

2072

9199
9341

3398
4131
4748
5611
6485

4011
4623

5593
6468

7197

2105
2314
2736
3863
8527
8706
9163
9332

3653

4303

4988

6704
7434

7261

4263
5884
7702

4485

4596

4841

5072

5318

2584
35204
4225

2885
36574
4310

29904

30344
3789
44004
5098
60724
6712

31094
3883
45064
5224
6198#
6749
72644
7814

31084
4069
46174
5344
62954
6774
73564

3668

3790
4393

3954
4501
5225
6193
6872
7713

6177

49824

48624
5621
64904

5788
66034
7040
7634A

6925
75334

3406
6147
4735
5481
6378
7186
8360

3653

7197

8373

4226
4857
5622
6496
7261

6347

6695

71914
7721

4303
4988
5900

6704
7434

7016

6065
6763
7539

7169

CZRJICO, RPO4/S5/6 FCINL CTLR1
CZRJIC.P1
27-JUL-78 13:05
004752
000020
000100
004000
172340
172342

INUNIT

d e
d
b md

2350
2352
2354
2356
2300

NNNNSNNN

= 172344
72346

2302
2304
72306
172310
172312
172314
172316

002420
002000
000012
000105

041126
000002
020000
001000
000004
000250
010000

MAKE CY
MCLK

MCPE
MHS
MINX
MMVEC
MOL

MXF
NED
NEM
NHS

MRD
MSE
MSTCK

MPE

000400
002402
000020
000020
000010
000040
001000
010000
004000
002000
002422
004724
004720
004722

NOPERA
NOPUSH
T
NOUNI
NUNIT
ocvL
= 100000

18784

6294

15034
16394

MACY11 30A(1052)

27-JUL-78

13:06

SEQ 0245

PAGE 247

CROSS REFERENCE TABLE -~ USER SYMBOLS

2931+

2975

2436

3222

1913+

1914+

3239

7727

7728

2584
35204

28804

2885
36574
4310

6584
6584
6584
6584

6584
6584
6584
6584
6584
6584
6584
6584
6584
6584
6584
6584
17864
15474
6294
25064
3203
L1364
4622
54754
6300
68754
7361
2646
15754
15314
16374
15764

6584
15494
3997
5488

8168

15054
17794
15784
16324
15774
15794
15064
15094
15084
16384
17944
18614
18574
18594
16864

9191
8167

8876
251
34104

8881
25794
3415
42204
4747
56164
69204
7642
3589

4225
48624
5621
64904
6925
75334
3600

2467

2769

2824

2337

2345

2430

4141
L7424
5480

63724
6880
74374
2657

6377

49824

5788
66034
7040
76344
3743

4156
5796

4240
5920

2454
4413
6085

3226
2724
5501

2783

2836

2960

3019

3030

2151«
2200+

2193«
2201+

3094
1903«

2415

4000
5629

29904
3662
43184
4987
59074
6608
71014

7639

79644

2995
37844

4323
50934
5912

67074
7106
77164

30344
3789

44004
5098

3039
38784
4405

52194

6077

60724
6712
71914
7721

6744k
7196
78094

3797

4519
6211

4630
6385

4755

6503

3677
4875
6616

4995
6782

2680

2908

3320

3839

7593

3664

3950

4013

4143

4227

2592

3334

3344

9187

1896+

1900+

2200
3119

3105

2246+
3242

7907«

31094
3883
45064
5224
61984
6749

7264H

7814

3859
5106
7204

3114
4064H
4511
53394

31984
4069
46174
5344

7269

73564

6203
67694

3970
5232
7369

62954
6774

3971
5352

7546

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

000004
000010
000001
000020
000002
000040

OPERSE
042602
oPI
= 020000
OR
= 000200

PAR
= 000010
PCJSR
041512
PCLBUF
002346
PCLCSR
002344
PCLCTR
002350
PGE
= 0020C0
PIP
= 020000
PIRQ
= 177772
PIRQVE= 000240
PKACK
002460
PLU
- 020000
PRE
000020
PRITEM
047274
PROG
= 001000
PRO
= 000000
PR1
= 000040
PR2
= 000100
PR3
= 000140
PR4
= 000200
PRS
= 000240
PR6
= 000300
PR7
= 000340
PS
= 177776
PSEL
= 002000
PSU
= 000001

PSW
= 177776
PUTREG 043370

PWRVEC= 000024
RA
000200

RDCHR = 104410

RDLIN = 104411
RDOCT - 104412
RDY
= 000200

READAT

002446

READIN
RECALI
REFOR

002462
002426
002450

18074
18334
16484

SEQ 0246

PAGE 248

CROSS REFERENCE TABLE =-- USER SYMBOLS

9183

81204

4119
4078+

6130
4079+

8899

8965

7727
3292
7967*

7728

6141
4098

4302
4281+

4282

4284~

4285

8147+

8148«

8153«

8154~

10942

10944

8121

16454

16464
16504
16474

16514
85224

15684
15044
15584
7966*
176474
17464
17484
15074
15504
6294

6294

18094
164614
16814

2011«
15464
6294
6294
6294
629#
6294
6294
6294
6294
6294
15294
16784
6294
2723
6294
6394
9017
9049
2020
15264
3940
5477
7103
18044

5594
18104
17964
18054

6695

8253«
8227
8228

81454

10952

8254«

3677

3797

3968

3997

4156

4240

6616

6782

2491

2502

2562

2573

2584

2875

2985

3874

4059

2543«

2950«

3465+

4048+

7878

7906+

8524~

91274

9213«

2360«
5468

2389«
5481

2413«
5595

7883«
5611

8523«
5622

751

7528

7539

2959

7974
9344

7986
9345+

8471

85654
9357«

9369+

9370«

8547
2372
4142
5785
7358

8676
2390

8694

93414
2585

3036
4744
6492

4864

3200
4984

1920+

4596
5610

6703

4611

5621
3397
3652
4500
6863

4226

4619

7718
4856

7811

3507
3779

7082

2763

4508

6200

5909

7535
4622
7801

3405
3662
451
6871

9354~

5899
7097

6374

4867

3515
3789
5912

8159
5072
~\wn

=
=
=
=
=
=

17754
16534
4300

13:06

o~
- N

0F100
0F 200
OF25
0F400
OF50
0F800

002372
000200
041442
002454
004610

27-JUL-78

-~ —

Of
OFREV =
OFSET
OFSETC
OFSTVL

MACY11 30A(1052)

9230

9234«

6709

3522
5095

6775/

3663
5221
6877

3790
5341
7037

5087

5098

5318

5333

5344

6290
6192

6738
6203

6468

6484

6495

6609

CZRJI1CO, RPO4/S5/6 FCTNL CTLR1
CZRJIC.P1T
27-JUL~78 13:05
REGADR

REGSAV
REGSAY
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+
1095¢
9084#
2035
18194
4796
5182
5644
6028
6716
17984
6294
18084
17284
17164
5810
17404
17264
17354
8229
17214
3107+«
3643«
4119+
4618

5452«
6199
6873+
7511«

RHCS2
RHCS3
RHDB
RHDST

002276
002342
002270
002304

RHDST

002322

RHDT

002324

RHEC1
RHEC2
RHER1
RHERZ
RHER3
RHLA
RHMR
RHOF
RHSN
RHW(

002330
002332
002302
002306
002314
002336
002320
002310
002326
002272

8112+

17174
17414
17144
17234
5249
7386
17304
3544
4306
7746
17314

2290
17334
17344
17224
17244
17274
17364
17294
17254
17324
17154

SEQ 0247

13:06
PAGE 249
27-JuL-78
MACY11 30A(1052)
CROSS REFERENCE TABLE -- USER SYMBOLS

2590%
4418+
5230«
6090+
7367%

2597+
4517«
5237+
6209+«
7374~

5273
5671
6035
6832

4363
4816
5289
5729
6134
6860

4456
4838
5293
5736
6149

4203

4214

4225

3210
5934
2063
3259
2478
8571
2491~
3110
3654+
4132+
4736«
5469+
6292+
6876
7529+
8121«
2106

4627

4533

4644

3419

2480

3529

2482

2504
3196+
3695

2562%
3199
3770«

2089+
L245%
5104+
9925«
7202*

90854
4356
4812

2083

2480%

4411+

5111+
6083+
7209+

2105

6099

4167
4743
5476

6364»
6916+
7534
8125
2157+

6884

3383x

6224

4203
4858~

5595«
6373

7033«
7631

3675«

3802+
4753+

7551«

3795«
4635+«
5486~
6390~
7997«

4482
4916

4534
4945

4562
5036

4593
5051
5437
5881

7079

7114

7144

3682+

4524+
5350%
6216+
7544

4628+

4471
4890
5315
5740
6174

3493«

4192«
4769

7003

5367
5747
6225

5357«
6383«

5393
5839
6253

4705
5178
5591
6024
6692

6517

7725

5521

5643
8598«

6102

31N

6406
3688

7969+
3807

8093~
6105

8171+
6403

8595«
6627

6793

7993

7997

2575~
3228
3781«

2760
3289
3816

2817
3384«
3876«
4304~
4983
5777«
6598«

2877

2987«
3407«
3934«

3019«
3494«
3939
4501
5213«
5908
6708

3032+«
3509«
4008
4502+
5220
6066+
6740«
7352+

3035
3517«

3094+
3521

6399

4216+
4863

5612«
6486~
7035
7635

4251
4976+
5617

6491

7099+
7714%

7102
7717

6636

7187«
7731
8604«
3236

4394
5094
5901«

6705«
7192
7807~

7262*
7810

7971«

4016
4507

4061+
4613«

7980+

7435«
8095+

5335«
6073
6764+
7357

5340
6194+
6802

8680

8683
8126

8698
8601+

4536

4647

4772
6520

4892

5012
7116

5123
7221

2826
3879
6745

2881
3998
6770

4065

2991

3274

6797

3126
6137
6921

6172
7265

3411
4221
7438

4256
7658

2168
2302

2170
2327

2183
2329

2254

2256

2263

2265

2284

4262

3269

3588«
8120«

3599«
8602+

3731«

3742+

7972+

3062

3099

3162

3207

3350

3389

3475

3499

4430
6108

2580
3785
6296

2600
3811
6604

2771
3857
6631

2163
2297

2165
2300

3247

7741

81°8

2838

3262

2656+
3425
2326
2567

2692«

2843

2328
2697

369

3024

8094~

3399«
3921«
4317%
5089+
5784

8671

3532
5937
8596«

3535

4701
5147
5569
6017
6065

5366
7560

3422
5813

8127
2160
2295

4670
5121
5565
5964
6544
7818

5801+
6780+
10939

5246
7383

3250
5646

4319

4645
5069
5549
5935
6518
7798

6621+
10935

5120

8373
3219

7970«

10921

4161+
4093«

7218

8360
2833

7738

7782

10919

4154+
4880+
5794«

5009
7113

8292
2780

2513
3698

6465

6508+

3979«
4873«
5634«
6614+

4889
7046

8280
2253«

8677
2958
5524

5433
5854
6434

5693+
6501+
8480«

3963«

4760
5627+

6227

5501

6409

7726

7049

3434

CZRJICO, RPO4/S5/6 FCTNL CTLR1
CZRJIC.PI
27-JuUL-78 13:05
3614

4601

5363
6352

RH70

RH70CK
RMR
=
RPTRP1
RPTRPZ2
RPVEC

RPVECT
RPOS
RPO6
RP4VEC

004750

006146
000004
011460
011566
002266

044666
004746
004744
004606

RTN
RUN

006640
043430

SAVER

041624

SAVERE

004612

100000

sC1
=
sC10
SC2
=
SC20 SC4
=
SEECOM
SEEKCY
SELECT
SELTST

000100
001000
000200
002000
000400

002452
041426
004726
010020
002434
SERCH
SKI
= 040000
SN
002410
006110
SND1
SR(H
041406
SRO

177572

7380

18764
1982#
15574

2357
2386

14814

3930«

5609«
6912+
8702
1944
18754
18744
1828#
4212
5897
7095
2067
4369
6041
7793

2495

4489
6181

81924
18364
3100
3444
4125
4779
5602
6527
7341
7839
15334
4233
16154
16184

&
C
13:06 PAGE 250
27-JUL-78
MACY11 30A(1052)
CROSS REFERENCE TABLE -- USER SYMBOLS

3648

4641

5458
6396

7516
1984«

23714
24004
1943
4128«
5773«
7029+
8729+

87254
2262+
2252%

2010~
4390
6062
7183
20724
4477
6169
85954
2566
4600
6351

2497
3121«
3500
4176~
4847

5653
6591
7393
7862

2467
4254

3756

4724
5518

3775

4766

3890

4846

5640
6590

6474

5601
6514

2062+

2064

3117

2356

2385

2500+

7557

7644

7706

4886

4088
4964

7724

7021
7838

3926

5765
6756

3215

2571+

5807

SEQ 0248
4124
5006
5889
7043

4833
6687

4951

6855

5064
7008

5188

2696
4723
6473

3023
4845

6589

3098
4963

6755

3388
5076
7020

3498
5200
7086

3647
5322

2522

2568
3136
3649

2610
3191
3693

2698
3212«
3705

5820
6643

5890
6757

2790+
3213«
3776
4383
5130

2820
6805

3121
7734

6339

3124«
3554
4181
4899
5766
6629+
7517
8079«
2765
6639

4209
4965

7569
8400

4260+
5019

7645
8402+

3192«
4972+
»
6594
7627+

3393«

3503«
5209+
6736%

3651«
5331«
6760+
8690

3778+
5466+

6869+
8695+

3778

3930
5609
6912

4128
5773
7029

6736

4711
6460

7431

7614

3720
3393
5085
6701

4588

7348

8480

8597+

3576
3192

2894
2892
3103
4854
6482
7524

4498
6190
7258

5611

8571

3103«
4854+
6482«

2667
2665
3028
4732
6360

7348«

8397

8569

3028+
4732+
6360«

2632
2630
2571
4609
6289

8729
2268«
2259*
2500

6289«

4424

8078
3505

4609+

4390%
6062*
7183+

4382
5117
6054

3395

4498+
6190«
7258

4212+
5897
7095+

7431

7524+

7110

5085+
6701«
7710«

18064

6585
1863#
2124
17994
1685#
17824
1952

8093«
658#

6596
6751
1897~
22044
8095

6608
6909

6762

1899+«

7255
1902«

2328+

3279

9211

19724

6774

7428
2016

5201
6096
7175

7803+

7340

3651
5331
6760

6869

5310

5443
7328

7500

7613

7694

7174

3774
5457

7339

3925
5600
7515

4123
5764
7643

4207
5858
7705

4381
6053
7837

2791«
3244
3809~
4437
5202
6115

2848«
3277«
3927
4543
5324
6233

2855
3279+

6353

3025
3299
4021«
4654
5459
6416

3043
3390

7707

7022
7724+

2797
3267+
3824
449N
5256
6183

3231

3244

3670

3819

3956

4019

4149

6914
81114
2204

7260

7433

7971

8112

2224

7895

4267
5078
5944
6795
7666
8472

4972

6594
7627

6055

6809

7710
7074

3503
5209

7803

7161

7056
7725+

7088
7728+

16164

16194
16174

4530
5223
6221

4208
5077
5931
7087

5466

5586

4004*
4602
5376
7124
7729+

5753

7176
7752+

5876

4027
4725
5531

6475

7228
7758

4170

CZRJICO, RPO4/S5/6 FCTNL CTLR1
CZRJIC.PN
27-JuL~78 13:05
SR1
SR2
SR3
STACK

=
~
=
=

177574
177576
172516
001000

START
STKLMT=
ST
ST10
3TN
ST12
S113
ST14
ST15
S116

005022
177774
032540
033142
033166
033422
033426
033444
033450
033536

ST18
ST19

033772
033776

sST17

ST2
S120
ST25
ST26
S127
ST3
ST4

032560
040346
035630
034162
034166
032572
032612

032624
033032
033100
033104

STS
ST6
ST7
ST8

ST9
SWR

SWREG
SWO
Sw00
SwO1
SwO2
Sw03
Sw04
SwO5
SWo6
SwQ7
SW08
Sw09
Sw1
SwW10
Sw11l
swi2
Sw13

Swl4
Sw15
Sw2
Sw3

033542

033122
001140

=
=
-

=
=
=
=
=

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

040000
100000
000004
000010

6584
658#
558%#
6294
3012

4329
7601
1898
6294

6276+
6284
6285+
6530
6531
6546
6547
6574
6575
6646
6647

6277

78424
71734

6718
6719
6278«
6279
6280«
6281«
6419
6420
6283+

6784

8736
9352

6314
62
62
6294
629
629
6294
6294
6294
629
62N
62
6294
62N
6294
62
6294
6294
6294
62
6294

MACY11 30A(1052)

27-JuL=-78

13:06

SEQ 0249

PAGE 251

CROSS REFERENCE TABLE =-- USER SYMBOLS

1912
3153
4575

2034
3317

1901

19064

63044
64484
64594
65334
65414
65494
65634

6563«
6571+
6572+

65764
6583#
66494
66634
63144
67214
67264
63214
63314
63384
6282+
64214

64314
64404
1910
8747
9362+

4681

2080
3469
4929

2213
3585
5158

2353
3596
5408

2382
3608
5689

2410
3728
5977

2556
3739
6267

1982
8933

2049
8975«

2101

2122

2903

6901

2674

2916

4072
7246

429
7411

8484
9103

9129

6564~

6565+
6566+
6567«
64014

6570

6568+

6569+

8755

1930

1935«
8762

1976
8902

1935

1976

8902

8933

8949

9131
8486

8652

1982

2653
3847

6576

8749

2049

2642
3750
6731

1928+

2101

2122

9088

9095

9099

8650

(ZRJICO, RPO4/S/6 FCTNL CTLRI
27-JUL-78 13:05
CZRJIC.PI
Sw4&
SwS
Sw6
sw?
Sw8
Sw9

=
=
=
=
=
=

TBITVE=
TDF
=
TESTAD
TIMONT
TIMEYT
TIMEZ2
TKVEC =
TMPO
TMP1
TMP4
TN

000020
000040
000100
000200
000400
001000

000014
000040
042600
042154
041656
041670
000060
004754
004756
004760

- 000050

TOTALA

004742

TPVEC - 000064
TRAPVE
000034
TRE
- 040000

TRK1
TRK10 TRK2
=
TRK20 =
TRK4
=
TRP
TRTVECTSTNM

TST1
TST10
TST11
TST12
TST13

TST14
TST15

TST16
TST17

TST12

TST20
TST21

004000
040000
010000
10000G
020000
006600
000014
004604

006312
011576
012356
012640
012700

012734
013746
014754
015412

006654

016200
016744

1S122
TST23
TST24
TST25

017312
017352
017400
020066

TS127

020162

TST26

020126

629#
6294
Y&
6294
6294
6294
6294
16334
85214
2363
82274
2010
6294
1885#
1886#
1887#
4145

2213
3154

4 294N
5409
764114
18724

6294
629

2392

8269

82294
8887

8888+

4292+
3666+
41664
2214

33174

4295
56894
7612

1917+

1918+

2033~
3013«

2017
2398
2422
2641
2637
2649
2671
2634
31524
20784
33164
3327
35844
35054
36074
37274
3738«
37494

76014

2117«

18274

4295+
74612n
10942

4323
3667«
4148
246104
3318
4329
5690

2115+
2467

2917«

SEQ 0250

2903

15324
16204
16234
16214
16244
16224

2061
629

27-JUL~78 13:06 PAGE 252
MACY11 30A(1052)
CROSS REFERENCE TABLE =-=- USER SYMBOLS

8274

3669

4229+«

83354

3952«

4230~

8349

8354

3953~

3955

3969«

3970+

3972

3998«

3999«

2557
36084

26744
3609

2675
37504

29164
3751

2917
38474

62674

6268

30124
3848
51584
6902

40724
5159
72464

2643«
3751«
6732+

2654+
3848+
6902~

4232

2611
34694
4330
59774

25564
3470
45754

4576

3076

3176

7602

1942

5978

2767

2822

7736

2081+
3154

2097+
3318«

2214+
3470~
4930+

L681A

4682

49294

6732

4930
69014

3264

3368

3628

3907

4105

2335«
3586+
5159+«

2352«
3597+
5409«

2381«
3609«
5690~

2411+
3729+
5978

2557+
3740+

67314

3013

4001

31534

4073
5408#
7247

20684

4330+
7602+
10944

2027

24054
25484

26524
26624
2687
2898

3468#

4576%
8527
10946

2031a

4682«
10913
10948
7945

2754
2905

28894
2915

10916
10952

30114

10919

10921

10923

10926

6268+

10929

10932

10935

2675+

4073«
7247
10939

CZRIICO, RPO4/S5/6 FCTINL CTLRY
27-JuL-78 13:05
CZRJIC.PIN
TST3
T1ST30
TST31
TST32
TST33
T1ST34
TST3S
1ST36
TST37
TST4
TST40

006730
020530
022044
023106
023260
026146
024462
025372
026232
010034
027142

TST43

032352

1ST41
TST42

TST46
TST4S
TST46
TS147
TSTS
TSTSG
TST51
1ST6
TS17
TUF
=
TYPDS
TYPE

030312
031322

034166
034672
036046
036562
011022
037330
040554
011366
011476
000100
104405
104401

2086
38374
3846

4288
4324

L5744
46804
49284
51574
2205
54064
5413
59764
62664
67304
69004

TYPON

104404

TYPOS = 104403

uBUSB
004732
UNIB = 000020
004716
UNIT

UNITS
UNITSL
UNLOAD
UNS

004676
004730
002424
040000

27-JUL-78

13:06

SEQ 0251

PAGE 253

CROSS REFERENCE TABLE -- USER SYMBOLS

20954
40704

L2914
43284

22104

7904

7915

56884

72454
74104

23344
7616
7600

75914
78814

2338
2369

23504
2373

23794

2180

2192

2277

16344
7846
1955

2130
2316
2712
2998

7888
1957

2132
2320
2716
3016
3863

3861
4969
5894

6059

8525
8700
8948

8529
8704
8951

7418

TYPERR
050236
TYPOC - 104402

MACY11 30A(1052)

Fog

9137
9189
93324
9134

2057

9140
9192
93354
9334#
18654
150°#
18564

2736

7887
18554
18644
17954
1569#

5082
7521

91461
9193

9371

92144

2184

7892
1960

2134
2339
2734

3092
3869
5206
6187

2426

2450

1962

1964

7902

2177
2341
2738
3157

9152
9204

5415«

5503«

7421

2022+
2931

2028+
2940

2145

2149
2028

2199+
2951~
8131
2199
2206
3948

2023+
3921

7914~

3932

3332

3341

4044

7651

2185
2347

2190
2423
2926
3337

2018
2238
2427
2938
3342

2052
2240

2065
2274
2451
2944

2070
2278
2489
2965
3612

2103
2282
2560
2969
3754

2128
2312
2678
2996
3851

9256
1967

2924

3333

93364
1969

8532

2206+
2952+
8599
2231

2285

9201

2968

8528
9156

2281

9197

2941

4076
5506
6866
7847

8533
8706
8960
9145

7624

2737

4045
5504
6698
7843
8538
8714
8996
9157
9209

4041

9148
9200

7909

2181
2343
2920
3328

3985
5328
6357
7648
8534
8708
8968
9149

9196

9144

7935

2715

5463
6479
7652

8536
8710
8977
9153
9205

9208

4298
5507

2447
2942
3348
4387
5510
7026

3473

4495

4606

7092
7900

5512

5513

8545
8726
9024
9165
9237

9028
9169
9239

9078
9173
9242

7180
7903
8688
8896
9080
9177
9244

9160
9212

8672

9164
9223

8691
9168
9252

8699
9172
93334

8703
9176

9180

2218
2967

2245
2975

2248
3213

2276
3331

2425
3340

4043

7910

8543
8718

9021
9161
9215

6905
7885

7889

8669
8825

8673
8850

8713

2435

4729
5606
7250
7933
8692

9090
9181
9259

8728

4851
5770
7345
7936

8696
8947
9098
9185

9304

8950

9184

9188

2449

2714
7845

7650

vu30
Vv

un
0

UWR
VUF

UPE

usl
us?
usé

CZRJICO, RPO4/S/6 FCTNL CTLR1
CZRJIC.PIY
27-JuL-78 13:05
020000
000001
000002
000004
000010
000002
010000
000100

002354

[

T I

WCE
WwCF
wCU
WLE
WRCHDT
WRCHEK
WRF ROM

041712
0461706
041710
041714
041716
042156
104413

040000
000040
000001
004000
002440
002436
002470

WRIDAT

002442

WRIFOR

002444

004000
- 000400
000004
XE2
007462
$AUTOB
001134
$8DADR
001122
$8DDAT
001126

wRL
WRU
WSU

SEQ 0252

1510#
14974
1498%#
14994

16804

16794
16404
15434

3677

4630
WAITBT
WAITPC
WA] TRE
WAITTM
WAIT.P
WAIT.T
=
WAT

27-JUL-78 13:06 PAGE 254
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

6385
82504
82484
82494
8228+
8252#
83374
2506
4064

5339
6769
93424
17664
4,182
5821
7667
1511a
15604
1628#
15664
18014

1800#
1818#

4797
5247
5695
6007
64472
6940

7219
7456
7817
18024
7621

1803#
7016

15484
16364
16304

2120
6754
6704
6724
4237+
4999+

5917+

2460
3797
4755
6503
8263+
8260+
8262+
82514
9342

2579

6136
5475
6875

2523

4268

5945

7759

7744
7169
7336
4336
4823
5274
5704
6046

2508

3859
4875
6616
8270
8261+
8270
8252«

2880

4220
5616

6920

2611
4438
6116
7863

7185
7350
4346
4827

2516
3880
4995
6782
8275
8341«
8275
8299

2581

2990
4305
5783
7035

3034
4318
5907
7101

10916

8343«

8350

8355

4400

3198
4506

3410
4617

4742

7191

7264

7356

74637

3109

6072
3044

6198
3137

6295

7527
4457
4956

7538
4561

4582

4734
7702
4392

4747
7712
4405

5103+
5924+

10913

10916

8150

7508
4428
4936
5392
5758

4719
7629
4377
7031
7661

4244

6066

7196
7361
4374
4915
5304
5719

6135
6543
6952

2856

6155
6671
6956

2882

4000
5488

6234
8570

7283
7473

1980+

2778

3999
5352
7546
8355

3300
5020
6810

7464

2432
2087«

2603

49500
6644

7460

2143

8344«
8342+
8279
8309

3971
5232
7369
8350
10913
8291
10916

4780

6450
6944

7279

7204

2592

4655
6417
9139

2798

4544

5300
5710
6100
6454
6948

7275

2970
5106

6528

5420
5811
6164
6678
6965
7291

5010
5424
5840
6252
6682
6985

5037
5448
5861
6306
6715
6989
7319
7561

5629
8168

3520

6372

4240

5920

3437
4613
6085

4519

8359

8375

10913

10916

4862

3657

3784
4982

3938
5219

7533

7634

3878
5093
6707

2992

6490

3445
513

3555

4669
5058

4688
5146
5550

7057

5522
5870
6316
6839
6996
7323
7608

3547

4156
5796

3412

6603

7716

6211

6744

7809

3706
5377
7229

3825
5532
7394

4028
5654
7570

4692

4716

4770

7618

7047
7384
7689

7448
7699

5257
7125

5963

6323

6846
7013
7333

5165
5576
5983
6333
6850

5169
5580
5992
6344
6883
7143

5193
5670
5998
6400
6929
7166
7452

7495

7300
7505

4959

4974

4987

5196

5211

5224

5651

54€7

5480

5761

5775

5788

6049

6064

6077

6347

6362

6377

2472«
2596+

8162+
3674

8170~
3681«
4627+
5356w
6382+

10926

10939

10942

10944
3978+
L4872+

4153
(879+
5793«
6620+

4160+
64992+
5800+

7287
74649

7788

7856

8941
2440+

2482+

4410+

5110+
6082+

9043
2462+
2589
L4177
5229+
6089+

6516+

5236+
6208+

4523
5349+
6215+

3794+

4634+
5485+
6389+

3801+

4752

5492+
6500+

3962+
4759+
5626+
6507~

5633
6613

677G

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

27-JUL-78 13:05

MACY11 30A(1052)

27-JUL-78

13:06

001216
045642

7201+
8646+
8906
8861+

7208+
10913
9036
8865

7366+
10916
9090
8874«

7373%
10919
9110
88794

$CMTAG 001100
$CM1
= 000006
$CM2 = 000014

6594
6854
6894

1908
6904
6904

1915
6914
6914

1921
6924
6924

6974

6984

SCKSWR

$CM3

046154

= 000006

$CMé

= 000006

$CRLF

001223

89334

6884

6954

9338

689

6964

046725
046737
046732

8896
8947
8968

8960
90384
90374

90364

$OBLK
$DOAGN
$OTBL
$ENDAD
SENDCT

045416
041102
045406
041072
041040

9083
8791
7929
8794
633
79314

9098
8825
7938
88294
79404

9110
88334
79444

SENULL

041106

7900

7933

2059

7936

79474

041004

7903

2137

7908

79224

001103
001115

6614
6674

B735
1923+

8751
8753

6684

9092+

9093+

SCNTLC
SCNTLG
BCNTLU

SENDMG
$EOP

$EOPCT

$ERFLG
$SERMAX

SERROR

041111

041032

7054

79284

2190

7932

79464

1922
6934
6934

6944
6944

6954
6954

6994

7004

7014

6864
6854
6694

8855
8881

8881

9110

2088+

2481+

2586+

2593+

3671+

$ICNT
$ILLUP
$INTAG
SITEMB
SLF

$LPADR
SLPERR

001104
051102
001135
001114
001224

001106
001110

SMAIL = weesen ||
046755
SMNEW
046744
SMSWR

66272
9344
L76H
6664
7064

6634
664k

1938
8951
8948

10952

10923

10926

10929

3974«

4150+

5630+
6610«

5790+
6617+

4157+
4989+
5797«
6776+
10935

10916

001156
001155
001120

79374
89484
609
9071«

10921

10913

9110
9108

10939

10919

9221

9091+«
9106

041062
046244
000000
047124

9036

9110

7893«
B774x

$GET42
$GTSWR
$HD
=
$HIOCT

8977

9094

7891
1922«

7205+«

8881

9110

10946

7198+

8851

9085+

10944

6783«

8533

8780

10942

4407«
5107+
6079+

8375+

8759«
8780

10939

4241
5100«
5921+

8359+

8753
8775«

10935
9229
91254

6234%
4996
5914+

8291+

5513

10932
707#
9097

6714

8279+

5512

001226
047276

001124

10952

5507

$ERRTB
SERRTY

$GDDAT

7994
10939

9244

5506

1915

$FILLC
SFILLS
$GDADR

7993
10935

9239

3342

9215

047126

6654
7024

90834

7550+
10932

001116

001112
001214

2072

3333

7543+
10921

$ERRPC

SERTTL
$ESCAP

SEQ 0253

PAGE 255

CROSS REFERENCE TABLE == USER SYMBOLS

6786
8479+
7034
8852+

$BELL
SCHARC

4414%
5226+
6086*

7363+

L513%
5233%x
6205+

7370+

4520%
5346+
6212+

7540%

10948

10952

3798+

4624
5353«
6379+

3791«
4631«
5482+
6386+
7996+

56489+
6497~
8478«

8757«
8773

8772
8779

9105

3678+

7547+

4749

3958+

4756

5623+
6504«
8645+

9337
908cN

B766+
9357
8946+
9094+
8881

1924%
1925+«

1976
90414
90394

8767
Y3764
8962
9110
9028

2212«
7685+
8772

8769«

8779

8978
9218
9036

9043

4071«
8531
8839

9083

B542~
8548«
9099

9110

8549
8757

8777

8779

L4BEO*

10919

4B76+

10932

(ZRJICO, RPO4/S/6 FCINL CTLRI
CZRJIC.PI
27-JuL-78 13:05
045200
SMXCNT
BNULL
001154
ENWTST= 000001

050646

$OCNT

050650
045164
001100

$OVER
$PASS

051110
051076
050736
051072
051010
001222
046516

$POWER
$PWRAD
$PWRDN

$QUES
$RDCHR
$RDDEC- AR ER
$RDL IN
046606
$RDOCT
046766
$RDSZ = 000011

$REGAD
$REGO
$REG1
SREG2
$REG3
$REG4
$REGS

$RTNAD

$R2A

$SAVRE
-

001160
001162
001164
001166
001170
001172
001174
041104
LA

L2 2 %284

051106
044730
$SETUP= 000117

$SAVR6
$SCOPE
$SS1

= 000000

$STUP - 177777
$SVLAD
045136
$SVPC - 000200
- 167770
$SWR

- 000009
$SWRMK
STIMES
001212
$7KB
$TKCNT
$TKINT
$TKQEN=
$TKQIN
$TKQOU
$TKQSR

001146
045646
045666
045665
045650
045652
045654

8770
6844
2031
3011a

L328#
75914
9276
9271«
8737
6594
8764
9372
9374
1919

93724
9354
704m

87754
8857
20784
3152#
L574m
78814

9305+
9275+

8750
2419
8780

93444

93574
8881
9339

H
9044

9340
9341

90134
688«
6894

SEQ 0254

8881
20954
33164

L6804

93184
9280
8758
2684

23794
36074
5688#

24094
37274
59764

2548#
3738#
62664

26414
37494
67304

26524
3837#
69004

L0704
72454

42914
74104

3843

7597

7899+«

7901

7925+

7926+~

7934

7946

9080

9083

9110

22104
34,684
49284

23344
35844
51574

23504
35954

9283«

9294«

93204

8768
2912

87764
3324

54064

26624

2889

93794

8998«

9342
9013

MACY11 30A(1052)
27-JUL-78 13:06 PAGE 256
CROSS REFERENCE TABLE ==~ USER SYMBOLS

9369
8996

9021

9036

9359+

9360~

93784

1915
9083

1917
9102

1919
9109

1921

1922

1924

1974

7923

8735

8900

8904

701

702

703

1921

1922

2653
3838

1924
2663
407

1925

4292

2032
3012
4329

2079
3153

2096
3317

2211
3469

8747

8748
9099

8751

9103

8752
9110

8753

2890+

5407+

7882+

7924+

6904
6914

6924
6934
694N
79454
9342
9342
9353«
1913
1907#

8933

19404
19074

8743
6334
605#
2335
3585

2380
3608
5689

5158
7939
8762
627
7014
8770+
6814

9083

2032+

2079+

2096+

2211+

2663+

8889
8904

8892
8921«
8675

8915

8937

8956

8884w

8897

8944

8927+

8928+

8929

8931+

8776
8749

2553

1948

88844
8882#
8883«
8884#

8885+
8886+
8885

2642
3750
6731

8746
9088

7946

8881#

2549
3739
6267
8736

2410
3728
5977
8735
8779

9009

8886
9007
8931

9008~
901

9004

9009

9006+

9011«

6901

9095

7246

2890
76411

7592

4575

7882

9375

4681
7922

4929
7924

8760+

8767

8760

8761

(ZRJICO, RPO4/S5/6 FCINL CTLR]

27-JuL-78 13:05

CZRJIIC.P1T
$TKS
$TKSRV
$TMPO
$TMP1

$TMP?
$TMP3
$TMP4
$TMPS
$TN

6804
8887
A95#

001144
045736
001176
001200
001202
001204
001206
001210
= 000052

664

6974
698%#
6995#
7004
6094
2205

23804
2643
2898
3584
3740

$TPB

$TPFLG
$TPS
$TRAP

$TRAP2

=
$TRP
$TRPAD
$TSTNM
$TTYIN
$TYPBN=
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
$XTSTR
$SGE T4=
$OF ILL
$40CAT=

4294
54074
7245
6834
6874

001152
001157
001150
050652
050674

682#

1917
93284
93314
9326
6604
9014
9337
87804

000014
050706
001102
046714
AWK
Y

045202
065426
045576
045644
050450
050464
050424
044742
000000
050647
AR

8833«
885
8875

9274LH

9273

92694

87384

79394
9270+«

8736
630#

ERN

072142

18554

21794
2940n
8536#
9083
9356
. ABS.

072142

ERRORS DETECTED:

MACY11 30A(1052)

27-JUL-78

13:06

SEQ 0255

PAGE ¢57

CROSS REFERENCE TABLE -~ USER SYMBOLS
8890

8911«

8913

89109«

8935

8945w

8954

2153+
2047~

2154~
2363+

2364x

2392+

2393

6300+

6573

10923

2017
2210
2381
2649
2905

2027
22114
2398
2652
2915
3586
37504

2031
2213
2409
26534
2916
3595
3837

20324
2334
24104
2654
3011

2033
23354
2422
2662

2078
2338
2548
26634
3152
3607
3847

20794
2350
25494
2671

3153«
36084
4070

2081
23514
2556
2674
3316
3727

59774

6266

8881
88924

L3294
5688

4574

76114

7416

56894

30124
3597
3846
L575H
5976
7591

75924

93344

93354

93364

93374

93384

9015

7923
9032

90364

8735

8749

8771x

8776

9336
9331

9332

88694

8870

8982

35854

3749
6324
5408

72464

8871«
8833
8869
93214
9331
93334
93314
7894«

8860
8877
9333

4328

5413

7410
8881

8864

88804

9335

9274Lx
9097

9284

1911

21834
29464
85454
9110
9377

4680

2086
2352
2634
2687
33174
37284

2095
2369
2636
2754
3327
3729

62674

4072
49294
6730

93394

93404

93414

8780

9087

9110

19714

707
20544

18174

20674

76504

76544

78454

46814

40714
4928

7600

7601

7881

4288
5157

20964
2373
2641
2889
3468
3738

4291

67314

51584
6700

93424

93434

18184

18154

78824

2097
2379
26424

28904
34694
37394

42924
5406
69014

634H

1924

21874
29984
86504
91394

1091 1#

93194

6354

1925

2242M
30004
87064
91434

109974

6384

19594

2276M
38634
87124
91754

642N
19644
23144
L0474
87204

91794

658#

19664

2318»
55124

8779

91834

6594

23224
8780
91874

000
O

ME :: CND-SYSMAC( : TOC :M( :MC : :ME
(ZRJIC,DSKW:C
e s ZRJIC.SEQ/SOL
5575t e R e onDS /NL L:TOC
RUN-TIME RATIO: 267/102 2.6

8980+

8881
8881

92764
9334

6334

35964
38384

8964#

. SM( [400,1066]1,C2RJIC.P11[400,1424]

23434
88334
91914

23454

20724
23494

8881
91954

8884#
9207#

78914

21304
24294

7946
90364
92114

18364

2132#
29264
7950

92664

CZRJICO, RPO4/5/6 FCTNL CTLR1
CZRJIC.P1

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